Histórico da Página
...
- "GUIA-ORIGEM" ,"VALIDA-PROC", "ANTES-MODIFICA", "ALTERA-GUIA-SCS" e "VALOR-INSUMO".
- "VALIDA-PREST", "VALIDA-PREST-SO"
- "GRAVA-GUIA"
- "CON-CART-BENEF"
- "APOS-BUSCA-GUIA"
- "FIM-GRAVA-GUIA"
- "ANEXOS-GUIA"
- "APOS-OBSERVACAO"
- "APOS-SOLIC"
- "DENTRO-MOD-INSU"
Include das definições das tabelas temporárias
...
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-tipo-guia like tip-guia.cd-tipo-guia
field cd-unidade-carteira like unimed.cd-unimed
field cd-cateira-usuario like guiautor.cd-carteira-usuario
field cd-unidade-exec like preserv.cd-unidade
field cd-prestador-exec like preserv.cd-prestador
field cd-esp-exec like procguia.cd-esp-prest-executante
field cd-unidade-princ like preserv.cd-unidade
field cd-prestador-princ like preserv.cd-prestador
field cd-unidade-solic like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-proced-completo as int format "99999999"
field cd-modalidade like modalid.cd-modalidade
field cd-plano like propost.cd-plano
field cd-tipo-plano like propost.cd-tipo-plano
field ds-motivo as char format "x(750)"
field r-guiautor as rowid
field vl-custo-op as dec
field vl-taxa-part as dec
field vl-tot-val as dec
field lg-dados-internacao like tranrevi.lg-dados-internacao
field r-propost as rowid
field cd-unid-neg as int
field cd-transacao like tranrevi.cd-transacao
field nr-proposta like propost.nr-proposta
field cd-usuario like guiautor.cd-usuario
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field dt-interna-ini as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field r-usuario as rowid
field in-classe-nota as int
field h-temp-insuguia as handle
field lg-alteracao-cancelada as log.
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama CPC-AT0112C.P. O valor desse campo pode ser "MODIFICA;
- nm-ponto-chamada-cpc – "GUIA-ORIGEM ", "ALTERA-GUIA-SCS" e "VALIDA-PROC"
- cd-tipo-guia – Código do tipo da guia utilizado pela Guia (AIH);
- cd-unidade-carteira – Código da unidade da carteira do beneficiário;
- cd-carteira-usuario – Código da carteira do beneficiário;
- cd-unidade-exec – Código da unidade do prestador executante;
- cd-prestador-exec – Código do prestador executante;
- cd-esp-exec – Código da especialidade do prestador executante;
- cd-unidade-princ – Código da unidade do prestador principal;
- cd-prestador-princ – Código do prestador principal;
- cd-unidade-solic – Código da unidade do prestador solicitante;
- cd-prestador-solic - Código do prestador solicitante;
- cd-proced-completo – Código do procedimento em autorização completo, ou seja, com oito dígitos;
- r-guiautor – Rowid da tabela guiautor;
- vl-custo-op – Valor do custo operacional;
- vl-taxa-part – Valor da taxa de participação;
- vl-tot-val - Total da guia (custo operacional + taxa de participação)
- lg-dados-internacao - Dados internação
- r-propost - Rowid da tabela propost.
- cd-unid-neg - Unidade
- cd-transacao - Transação
- nr-proposta - Número da proposta.
- cd-usuario - Código do usuário.
- aa-guia-atendimento - Ano da guia de atendimento.
- nr-guia-atendimento - Número da guia de atendimento.
- dt-interna-ini - Data internação inicial
- dt-interna-fim - - Data internação final
- r-usuario - Rowid da tabela usuario.
- in-classe-nota - Classe de nota.
- h-temp-insuguia - handle da tabela temporaria de insumos
- lg-alteracao-cancelada - indicador se a alteração do insumo foi cancelada
Tabela de saída tmp-cpc-at0112c-saida
...
field cd-unidade like insuguia.cd-unidade
field aa-guia-atendimento like insuguia.aa-guia-atendimento
field nr-guia-atendimento like insuguia.nr-guia-atendimento
field nr-processo like insuguia.nr-processo
field nr-seq-digitacao like insuguia.nr-seq-digitacao
field vl-insumo-cob like insuguia.vl-insumo-cob
field cd-modulo like insuguia.cd-modulo
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field cd-pacote like insuguia.cd-pacote
field cd-prestador like insuguia.cd-prestador
field cd-tab-preco-proc like insuguia.cd-tab-preco-proc.
Definição campo a campo da tabela de entrada
- cd-unidade – Código da Unidade.
- aa-guia-atendimento – Ano da Guia de Atendimento.
- nr-guia-atendimento – Número da Guia de Atendimento.
- nr-processo – Número do Processo.
- nr-seq-digitacao – Número da Seqüência de Digitação.
- vl-insumo-cob - Valor do Insumo Cobrado.
- cd-modulo - Código do módulo.
- cd-tipo-insumo - Tipo do insumo.
- cd-insumo - Código do insumo.
- cd-pacote - Código do pacote.
- cd-prestador - Código do prestador.
- cd-tab-preco-proc - Código da tabela de preço pagamento.
Tabela de entrada tmp-cpc-at0112c-procguia
...