Histórico da Página

...

• "ATUALIZA-STATUS"
• "LOC-TIP-GUIA"
• "ANTES-ENVIA-IE"
• "VALIDA-COB"
• "ANT-VER-TISS"
• "COMUM-ORIGEM"
• "CRIA-MENS"
• "antes-tem-serious"
• "ATUALIZA-DADOS"
• "INI-TRAT-RET-AU" - a partir da versão 12.1.2307

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-at1000-solic-entrada

def temp-table tmp-cpc-at1000-solic-entrada no-undo

field in-evento-programa                  as char format "x(10)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field cd-clinica                                   like clinpres.cd-clinica
field in-liberado-guias                       like guiautor.in-liberado-guias
field lg-glosa                                     as log
field cd-tipo-guia                               like guiautor.cd-tipo-guia
field cd-unidade-solicitante              like guiautor.cd-unidade-solicitante
field cd-prestador-solicitante           like guiautor.cd-prestador-solicitante
field cd-unidade-principal                 like guiautor.cd-unidade-principal
field cd-prestador-principal              like guiautor.cd-prestador-principal
field cd-unidade-carteira                  like guiautor.cd-unidade-carteira
field cd-carteira-usuario                   like guiautor.cd-carteira-usuario
field r-guiautor                                  as rowid

field lg-tem-serious                          as log
field lg-tiss                                       as log
field nr-guia-prestador                    as dec
field cd-unidade-exec                     as int
field cd-prestador-exec                  as int
field cd-transacao-exec                 as dec
field cd-mensagem-sistema          as int
field cd-mensagem-tiss                 as int
field ds-mensagem                       as char
field tp-acomodacao                   as char
field h-buffer-tmp-cabecalho-guia as handle.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a CPC-AT1000.P. Os valores desse campo podem ser: "INCLUI", "RETORNA".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa AT1000-SOLIC.P:"ATUALIZA-STATUS" 
• cd-clinica – Código da clinica que está solicitando a GUIA;
• in-liberado-guias – Indicador da situação atual da GUIA;
• lg-glosa – Variável que indica se ocorreu glosa em algum movimento (procedimentos e insumos) da GUIA.
• cd-tipo-guia – Código do tipo da guia vinculada a GUIA solicitada.
• cd-unidade-solicitante - Código da unidade do prestador solicitante da GUIA.
• cd-prestador-solicitante - Código do prestador solicitante da GUIA.
• cd-unidade-principal - Código da unidade do prestador principal da GUIA.
• cd-prestador-principal - Código do prestador principal da GUIA.
• cd-unidade-carteira - Código da unidade da carteira do beneficiário da GUIA.
• cd-carteira-usuario - Código da carteira do beneficiário da GUIA.
• r-guiautor – RECID de acesso a tabela GUIAUTOR
• lg-tem-serious – Indica se a unidade utiliza Sistema Serious ou não.
• lg-tiss – Indica se é TISS ou não.

• nr-guia-prestador - Número da guia do prestador.

• cd-unidade-exec - Código da unidade do prestador executante da GUIA.

• cd-prestador-exec - Código do prestador executante da GUIA.

• cd-transacao-exec - Código da transação da GUIA.

• cd-mensagem-sistema - Código da mensagem do sistema.

• cd-mensagem-tiss - Código da glosaTISS do sistema

• ds-mensagem - Descrição da mensagem.

• tp-acomodacao - Tipo de acomodação do usuário.

• h-buffer-tmp-cabecalho-guia - Handle da temporária cabecalho guia (tmp-cabecalho-guia).
  
  

Tabela de entrada tmp-cpc-at1000-solic-movtos

def temp-table tmp-cpc-at1000-solic-movtos no-undo

...

• cd-procedimento – Código do procedimento que está associado a GUIA.
• cd-tipo-insumo - Código do tipo do insumo, vinculado ao insumo, que está associado a GUIA..
• cd-insumo - Código do insumo que está associado a GUIA..
• cd-unidade – Código da unidade do prestador executante do movimento.
• cd-prestador – Código do prestador executante do movimento.
• Lg-glosa – Indicador da ocorrência de glosa no movimento, associado a GUIA.

Tabela de saída tmp-cpc-at1000-solic-saida

def temp-table tmp-cpc-at1000-solic-saida   no-undo

...

         field lg-undo-retry                as log 
       

...

 field in-liberado-guias          

...

 like guiautor.in-liberado-guias

...

         field cd-erro-sistema            

...

 like mensauto.cd-retorno

...

         field cd-tipo-guia                

...

like guiautor.cd-tipo-guia

...

         field ds-mensagem                

...

 as char

...

         field cd-unidade-carteira        

...

 like guiautor.cd-unidade-carteira
         field lg-ind-comunica              as log
         field lg-tem-serious               as log
         field lg-tiss                      as log
         field lg-retorna                   as log
         field lg-erro-cobertura            as log
         field lg-atualiza-transacao        as logical initial yes.

Definição campo a campo da tabela de saída

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• In-liberado-guias – Variável que indicará a NOVA situação da GUIA, conforme necessidade da operadora.
• cd-erro-sistema – Código do erro processado dentro da CPC, quando o parâmetro lg-undo-retry estiver habilitado.
• cd-tipo-guia – Código do tipo da guia.
• Ds-mensagem – Descricao da mensagem de erro.
• Cd-unidade-carteira – código Código da unidade do beneficiario.
• lg-ind-comunica - Log que retorna se comunica ou não com a origem             
• lg-tem-serious – Indica se a unidade utiliza Sistema Serious ou não.              
• lg-tiss – Indica se é TISS ou não.                             
• lg-retorna – Indica se retorna ou não.                       
• lg-erro-cobertura - Variável que indica se ocorreu erro devido a cobertura.
• lg-atualiza-transacao - indica se deve atualizar a transação com base no tipo de guia; em caso afirmativo a transação é buscada na tabela "trantipi".