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.
• Dentro do programa rcapi020.p, ao iniciar a validação de classes de erro.

Ponto de Utilização

• "ALT-LOC-ATEND" , "SEQ-SERIE-DOCTO" , "CART-ANT", "FINAL-INC", "DADOS-INTERNAC", "ACAO-GUIA" ou , "FINAL-MANUT", "ANTES-LOC-ATEND"
•  "INI-CLASSE-ERRO" e "INI-MEN-RCAPI20" - disponíveis a partir da versão 12.1.2411

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  as char format "x(15)"
    field cd-unidade in-funcao                             as char format "x(3)"
    field cd-unidade                           like  like preserv.cd-unidade
    field cd-unidade-prestadora                        like 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  like docrecon.cd-prestador-principal
    field nr-serie-doc-original                            like like docrecon.nr-serie-doc-original original 
    field nr-doc-original                                      like like docrecon.nr-doc-original
    field nr-doc-sistema                                     like  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 like docretmp.nr-ter-adesao
    field nr-via-carteira-ant                                like like docretmp.nr-via-carteira
    field tp-atendimento                                  as int     
    as int
field aa-guia-atendimento                            like like guiautor.aa-guia-atendimento
    field nr-guia-atendimento                            like like guiautor.nr-guia-atendimento
    field in-acao-guia                          as int
    field cd-unidade-prest                        as int
field lg-simulacao          like docrecon.cd-unidade-principal  
    field cd-prestador                          like docrecon.cd-prestador-principal
    field in-tipo                               as char format "x(01)"
    field dt-realizacao                         like docrecon.dt-emissao
    field lg-simulacao                          as logical
    field nr-docsist-rcapi020                            like like docrecon.nr-doc-sistema.
    field nr-rowid-tranrevi                     as rowid
    field lg-mens-rcapi020                      as log
    field nr-rowid-tmp-docrecon                 as rowid
    field lg-mens-rcapi020 cd-mensagem                           like mensiste.cd-mensagem
    field in-tipo-mensagem                     as log like mensiste.in-tipo-mensagem.

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. Para o programa rcapi020.p:
• "ALT-LOC-ATEND" , "SEQ-SERIE-DOCTO", "CART-ANT", ou "FINAL-MANUT".
•  
• 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;
•  nr-rowid-tmp-docrecon – código rowid da tabela docrecon;
• cd-mensagem –  código da mensagem retornada pela cpc;
• in-tipo-mensagem –  tipo de mensagem retornada pela cpc;: tipos existentes na Manutenção Mensagens.

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

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

    field cd-local-atendimento                         like  like docrecon.cd-local-atendimento
    field lg-undo-retry                         as log
             as log
field ds-mensagem                                   as char format "x(75)"
    field lg-cart-ant                           as log
               as log
field lg-dados-internacao                     as log
     as log
field in-acao-guia                              as int
          as int
field cd-unidade-prestador                        like preserv.cd-unidade
    field cd-prestador                                       like  like preserv.cd-prestador
    field cd-mensagem                                    like 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.inds-tipomensagem-mensagem sistema
field ds-chave     field lg-permite-per-usu                    as log
    field lg-restringe-importacao               as logical
    field lg-valida-local-atendimento           as logical initial yes
    like mensiste.ds-mensagem-sistemafield lg-ignora-erro                        as logical.

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;
• lg-ignora-erro - indica se deve ou não ignorar erro retornado pela cpc.