CPC-RCAPI020.P

Rotina utilizada para:

• Permitir alterar o local de atendimento da tabela de documentos (docrecon).
• Permitir a entrada de documento com a série duplicada, quando parametrizado na transação "Tipo d Seqüência = 04 –Seq. Serie/Documento".
• Permite sobrepor a ação parametrizada na transação sobre uma guia de atendimento.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
• Permitir sequenciar documentos de reapresentação por Serie/Documento(Tipo Sequencia 04) e sequencia para beneficiarios diferentes (Permite Sequencia 02).
• Permitir restringir importação de acordo com a glosa.

Localização

• Dentro do programa rcapi020.p. após a inclusão do documento;
• Dentro do programa rcapi020.p. quando da consistência do número do documento com o parâmetro, da transação, "Tipo d Seqüência = 04 –Seq. Serie/Documento" ;
• Dentro do programa rcapi020.p, ao localizar transação.
• Dentro do programa rcapi020.p, ao localizar primeira ocorrencia do documento.

Ponto de Utilização

• "ALT-LOC-ATEND" , "SEQ-SERIE-DOCTO" , "CART-ANT", "FINAL-INC", "DADOS-INTERNAC", "ACAO-GUIA", "FINAL-MANUT" ou "ANTES-LOC-ATEND".

Include das definições das tabelas temporárias

• CPC-RCAPI020.I

Exemplo de chamada da cpc

• run cpc/cpc-rcapi020.p(input table tmp-cpc-rcapi020-entrada,
                                        input table tmp-docrecon,
                                        output table tmp-cpc-rcapi020-saida) no-error.
• Sendo que a tmp-docrecon deve ser definida dentro da lógica da cpc.

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rcapi020-entrada

def temp-table tmp-cpc-rcapi020-entrada no-undo

field in-evento-programa                             as char format "x(10)"
field nm-ponto-chamada-cpc                       as char format "x(15)"
field cd-unidade                                           like preserv.cd-unidade
field cd-unidade-prestadora                          like preserv.cd-unidade
field cd-transacao                                         like docrecon.cd-transacao
field cd-unidade-principal                              like docrecon.cd-unidade-principal
field cd-prestador-principal                            like docrecon.cd-prestador-principal
field nr-serie-doc-original                               like docrecon.nr-serie-doc-original
field nr-doc-original                                       like docrecon.nr-doc-original
field nr-doc-sistema                                      like docrecon.nr-doc-sistema
field r-docrecon                                             as recid
field cd-unidade-ant                                      like car-ide.cd-unimed
field cd-carteira-usuario-ant                           like car-ide.cd-carteira-inteira
field cd-modalidade-ant                                 like docretmp.cd-modalidade
field cd-usuario-ant                                       like docretmp.cd-usuario
field nr-ter-adesao-ant                                  like docretmp.nr-ter-adesao
field nr-via-carteira-ant                                  like docretmp.nr-via-carteira
field tp-atendimento                                     as int
field aa-guia-atendimento                            like guiautor.aa-guia-atendimento
field nr-guia-atendimento                             like guiautor.nr-guia-atendimento
field in-acao-guia                                          as int
field lg-simulacao                                         as logical
field nr-docsist-rcapi020                               like docrecon.nr-doc-sistema.
field nr-rowid-tranrevi                                    as rowid
field lg-mens-rcapi020                                  as log.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rcapi020.p: "ALTERA" , "IMPORTACAO", "BUSCA-GUIA", "INICIO"ou "FIM".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
• in-funcao – Indica se a função é de inclusão, alteração ou exclusão.
• Cd-unidade – Código da Unidade;
• Cd-unidade-prestadora – Código da Unidade Prestadora;
• Cd-transacao – Código da Transação;
• Cd-unidade-principal – Código da Unidade do prestador principal;
• Cd-prestador-principal – Código do prestador Principal;
• Nr-serie-doc-original – Número da Série do documento;
• Nr-doc-original – Número do documento;
• nr-doc-sistema – Número do documento do sistema.
• R-docrecon – Identificação do registro apontado;
• Cd-unidade-ant– código da unidade da carteira;
• Cd-carteira-usuario-ant – código da carteira do usuário;
• Cd-modalidade-ant- código da modalidade;
• Cd-usuario-ant- código do usuário;
• Nr-ter-adesao-ant- Número do termo de adesão ;
• Nr-via-carteira-ant- Número da via da carteira.
• Tp-atendimento – Tipo de Atendimento.
• Aa-guia-atendimento – Ano da guia de atendimento.
• Nr-guia-atendimento – Número da guia de atendimento.
• In-acao-guia – Acao realizada sobre a guia de atendimento
• lg-simulacao – Indica se o processo é de simulação ou não
• nr-docsist- rcapi020 – sequência do documento passado como parâmetro para a rcapi020.p;
• nr-rowid-tranrevi – código rowid da tabela tranrevi;
• lg-mens-rcapi20 – indica tipo de mensagem a ser exibida.

Tabela de saída tmp-cpc-rcapi020–saida

def temp-table tmp-cpc-rcapi020-saida no-undo

field cd-local-atendimento                         like docrecon.cd-local-atendimento
field lg-undo-retry                                      as log
field ds-mensagem                                   as char format "x(75)"
field lg-cart-ant                                          as log
field lg-dados-internacao                           as log
field in-acao-guia                                       as int
field cd-unidade-prestador                         like preserv.cd-unidade
field cd-prestador                                       like preserv.cd-prestador
field cd-mensagem                                    like mensiste.cd-mensagem
field ds-complemento                                like mensiste.ds-mensagem-sistema
field in-tipo-mensagem                              like mensiste.in-tipo-mensagem
field ds-chave                                            like mensiste.ds-mensagem-sistema
field lg-restringe-importacao                    as logical
field lg-valida-local-atendimento              as logical initial yes.

Definição campo a campo da tabela de saída

• Cd-local-atendimento – Código do local de atendimento do documento
• Lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
• Ds-mensagem – Mensagem de aviso ou de erro.
• Lg-cart-ant- Variável que controla se o erro 654 será mostrado ou não.
• Lg-dados-internacao – Internação Sim/Não.
• In-acao-guia – Acao realizada sobre a guia de atendimento.
• cd-unidade-prestador – código da unidade do prestador.
• cd-prestador – código do prestador.
• cd-mensagem – código mensagem de erro.
• ds-complemento – descricção do complemento da mensage.
• in-tipo-mensagem - indica tipo de mensagem.
• ds-chave – índica a chave da mensagem.
• lg-restringe-importacao - Indica se irá restringir a importação após o retorno da CPC e interromper a execução;
• lg-valida-local-atendimento - indica se deve fazer a validação de produto do local de atendimento.