CPC-RCAPI020.P0

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.

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.

Ponto de Utilização

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

Include das definições das tabelas temporárias

• CPC-RCAPI020.I

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 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 nr-doc-sistema                                       like docrecon.nr-doc-sistema.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rcapi020.p.
• "ALTERA" , "IMPORTACAO" ou "BUSCA-GUIA".
• 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" ou "CART-ANT".
• 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;
• 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.
• Nr-doc-sistema – número do documento do sistema.

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.

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.