cpc-ac2020d.p0

Rotina utilizada para:
Tratar a informação "Tipo de Saída" quando a mesma não for informada pelo usuário e estiver sendo registrado um documento de consulta ou SP/SADT na versão do TISS, para o ponto de chamada "TIPO-SAIDA";
Realizar criticas e validações genéricas sobre o documento criado no MODULO RC, para o poonto de chamada "FINAL-ATUALIZA"
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
No momento da criação do Documento, dentro do AC2020D.P, para ponto de chamada "TIPO-SAIDA";
Após a finalização do processo de criação de documento no RC, para ponto de chamada "FINAL-ATUALIZA";
Ponto de Utilização
"TIPO-SAIDA" e "FINAL-ATUALIZA"
Include das definições das tabelas temporárias
CPC-AC2020D.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-ac2020d-entrada
def temp-table tmp-cpc-ac2020d-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-msg-tela as log
field tp-saida like docrecon.tp-saida
field cd-unidade like docrecon.cd-unidade
field cd-unidade-prestadora like docrecon.cd-unidade-prestadora
field cd-transacao like docrecon.cd-transacao
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.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a CPC-AC2020D.P. O valor deste campo somente pode ser:
"CRIA-DOC"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa AC2020D.P:
"TIPO-SAIDA"
lg-msg-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não.
tp-saida – Tipo de saída informado pelo usuário do sistema, quando do processo de registro de consulta ou SP/SADT do TISS.
cd-unidade – Código da Unidade;
cd-unidade-prestadora – Código da Unidade Prestadora;
cd-transacao – Código da Transação;
nr-serie-doc-original – Série do documento original;
nr-doc-original – Número do documento original;
nr-doc-sistema – Número do documento do sistema (seqüência) .
Tabela de saída tmp-cpc-ac2020D-saida
def temp-table tmp-cpc-ac2020d-saida no-undo
field lg-undo-retry as log
field ds-msg-erro as char
field tp-saida as int.
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
ds-msg-erro – Deve conter a mensagem de erro, se ocorrer, quando o parâmetro lg-msg-tela estiver desabilitado.
tp-saida – Tipo de saída definido pela operadora. (Os valores de domínio são de 0 até 5 para consulta e 0 até 6 para SP/SADT).