cpc-at0115c-ie.p1

Rotina utilizada para tratar a situação do segmento de retorno;
Rotina utilizada para cancelar a guia anterior da guia anterior;
Rotina utilizada para criar segmento de movimentos quando estes estão num pacote;
Rotina utilizada para gravar o numero da guia de origem quando retorna negada;
Rotina utilizada para tratar a situação da Guia de Atendimento no momento da Impressão da Guia.
Rotina utilizada para tratar os movimentos de uma Guia em Intercâmbio Eletrônico.
Rotina utilizada para retirar os acentos e caracteres especiais da observação da Guia de Intercâmbio Eletrônico
Rotina utilizada para zerar o valor dos insumos enviados nas Guias de Intercâmbio Eletrônico.
Rotina utilizada para realizar a comunicação do Intercâmbio Eletrônico quando não for encontrada nenhuma regra definida pelo sistema.
Rotina utilizada para chamar a comunicação com a unidade origem do beneficiário sem a necessidade de regra de intercâmbio criada.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do at0115c.p.
Ponto de Utilização
"TRATA-SITUACAO"
"CANCEL-GUIA-ANT"
"CRIA-SEG-PACOTE"
"GRAVA-AUT-NEG"
"MOVTOS-IE"
"RETIRA-ACENTOS"
"ZERA-INSUMOS"
"MOVTOS-COMPL"
"REGRA-AUT-IE"
"COMUNICA-IE""
" OBRIGATORIEDADE DE GERAÇÃO DE LAYOUT TISS"
Include das definições das tabelas temporárias
cpc-at0115c-ie.i
Tabela de entrada tmp-cpc-at0115c-ie-entrada
def temp-table tmp-cpc-at0115c-ie-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field r-guiautor as recid
field ds-segmento-conexao-solicitacao as char format "x(1000)"
field ds-segmento-conexao-retorno as char format "x(1000)"
field id-autorizado as char
field ds-aa-guia-origem as char
field ds-nr-guia-origem as char
field in-confirma-autor as char format "x(28)"
field cd-tipo-guia like guiautor.cd-tipo-guia..
Definição campo a campo da tabela de entrada – Dados dos movimentos
in-evento-programa – Evento do programa que chama a cpc-atapi0115c-ie.p.
nm-ponto-chamada-cpc – Ponto de chamada da CPC.
r-guiautor – Recid da guiautor.
ds-segmento-conexao-solicitacao – Segmento de conexão recebido.
ds-segmento-conexao-retorno – Segmentoda de conexão de retorno.
id-autorizado – Identificador de Autorizacao no segmento de retorno.
ds-aa-guia-origem – Ano da guia de Origem.
ds-nr-guia-origem – Numero da guia de origem.
In-confirma-autor – indicador de confirmação de Status da Guia de Atendimento
cd-tipo-guia – código do tipo da guia na guia autor.
Tabela de saida tmp-cpc-at0115c-ie-saida
def temp-table tmp-cpc-at0115c-ie-saida no-undo
field nm-grupo as char
field nm-usuario as char
field in-sit-guia as int
field lg-trata-padrao-auditoria as log
field ds-aa-guia-origem as char
field ds-nr-guia-origem as char
field in-padrao-auditoria as int
field lg-erro as log
field ds-mensagem as char format "x(250)"
field lg-permite-autorizar as log
field lg-permite-comunicar as log
field ds-motivo as char.

Definição campo a campo da tabela de entrada
Nm-grupo – Nome do grupo
nm-usuario – Nome do usuário
in-sit-guia – Situação da guia de Atendimento;
ds-aa-guia-origem – Ano da guia de Origem;
ds-nr-guia-origem – Numero da guia de Origem;
in-padrao-auditoria – Indicador de status padrão para a Guia de Atendimento, antes da impressão.
Lg-erro – Indicador da ocorrência ou não de erro dentro da CPC;
Ds-mensagem – Mensagem referente ao erro ocorrido dentro da CPC.
lg-permite-autorizar – Variável retorna SIM se permitiu a autorização do intercambio eletrônico e NÃO se não consistiu a regra.
lg-permite-comunicar – Indicador que permite a comunicação com a unidade origem do beneficiário
ds-motivo – Descrição do motivo.