Histórico da Página
...
- "ATUALIZA-STATUS"
- "CONSISTE-MOVTOS"
- "LOC-TIP-GUIA"
- "ANTES-ENVIA-IE"
- "AUT-AUTOMATICO"
- "ALTERA-CART"
- "CONS_ANEST"
- "APOS-AUTOR-AUTO"
- "LOC-TIP-GUIA"
Include das definições das tabelas temporárias
...
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-clinica like clinpres.cd-clinica
field cd-unidade like clinpres.cd-unidade
field cd-prestador like clinpres.cd-prestador
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-carteira like car-ide.cd-unimed
field lg-sadt as log
field lg-aih as log
field cd-carteira-usuario as decimal
field nr-rowid-guiaautor as rowid
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field lg-autoriza-aut as log.
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".
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa at1000.p:
- "ATUALIZA-STATUS" ou "CONSISTE-MOVTOS"
- cd-clinica – Código da clinica que está solicitando a AIH;
- cd-unidade – Código da unidade do prestador executante dos procedimentos da AIH;
- cd-prestador – Código do prestador executante dos procedimentos da AIH;
- in-liberado-guias – Indicador da situação atual da AIH;
- lg-glosa – Variável que indica se ocorreu glosa em algum movimento (procedimentos e insumos) da AIH.
- Cd-tipo-guia – Código do tipo da guia vinculada a AIH solicitada.
- cd-unidade-carteira - Código da unidade da carteira do beneficiário da GUIA.
- lg-sadt - Indicador de que a Guia Solicitada trata-se de um SPSADT
- lg-aih - Indicador de que a Guia Solicitada trata-se de uma Autorização de Internação Hospitalar
- cd-carteira-usuario - Código da carteira do beneficiário da GUIA.
- Nr-rowid-guiaautor – Ponteiro da tabela de Guias de Autorização (guiautor)
field lg-libera-aut as log
field cd-transacao like guiautor.cd-transacao
field h-tmp-procguia as handle
field h-tmp-insuguia as handle
field cd-servico as int
field h-tmp-guia as handle
field h-tmp-servico as handle
field cd-local-autorizacao as int
field aa-guia-atendimento-ant like guiautor.aa-guia-atendimento-ant
field nr-guia-atendimento-ant like guiautor.nr-guia-atendimento-ant.
Tabela de entrada tmp-cpc- at1000 -movtos
...
field cd-procedimento like ambcbhpm.cd-amb
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo.
Definição campo a campo da tabela de movtos
- cd-procedimento – Código do procedimento que está associado a AIH.
- Cd-tipo-insumo – Código do Tipo de Insumo solicitado na Guia de Autorização.
- Cd-insumo – Código do Insumo solicitado na Guia de Autorização.
field cd-unidade like clinpres.cd-unidade
field cd-prestador like clinpres.cd-prestador
field qt-movimentos as int.
Tabela de saída tmp-cpc-at1000-saida
...
field lg-undo-retry as log.
field in-liberado-guias like guiautor.in-liberado-guias
field cd-erro-sistema like mensauto.cd-retorno
field lg-cria-guia as log
field lg-comunica-scs as log
field ds-observ-guia as char
field cd-tipo-guia like guiautor.cd-tipo-guia
field cd-transacao like guiautor.cd-transacao
field ds-mensagem as char
field cd-unidade-carteira like guiautor.cd-unidade-carteira.
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 situação da AIH;
- Cd-erro-sistema – Código do erro ocorrido no retorno da CPC, este erro sera utilizado para localizar a mensagem a ser apresentada em tela na Solicitação da Guia.
- Lg-cria-guia – Indicador de retorno da CPC, sinalizando se após passar pela CPC a Guia de Atendimento será ou não criada.
- Lg-comunica-scs – Indicador de que a Solicitação de Guia de Atendimento irá gerar uma comunicação SCS Intercambio Eletrônico
- Ds-observ-guia – Campo de observações a ser gravado na Guia de Autorização.
- Ds-mensagem – Descrição da mensagem
- Cd-unidade-carteira – código da unidade da carteira.
...
field cd-carteira-usuario like usuario.cd-identific-uni-destino
field lg-continua as log init yes
field cd-local-autorizacao as int.