cpc-rcapi020.p1

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).
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" ou "FINAL-MANUT".
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 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. 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.
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.
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.