CPC-AT0115C-IE.p

• 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"
• "ANT-TRAT-PCT" (utilizado apenas na API-SOLITITA-PTU60)

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
field lg-retorno-cpc                                 as log

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
  • lg-retorno-cpc - Indica se a API-SOLICITA-PTU60 deverá excluir os movimentos (procedimentos e insumos) da requisição quando identificar que fazem parte de um pacote.