CPC-AT0111C.p

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

cpc-at0111c.p


Rotina utilizada para:

Localização

Ponto de Utilização

Include das definições das tabelas temporárias

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0111c-entrada

def temp-table tmp-cpc-at0111c-entrada no-undo

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-carteira-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-transacao like tranrevi.cd-transacao
field cd-userid like preserv.cd-userid
field cd-modalidade like propost.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 cd-proced-completo as int format "99999999"
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field lg-guia-principal as log
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 cd-tipo-insu like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field nr-proposta like propost.nr-proposta
field cd-usuario like guiautor.cd-usuario
field r-usuario as recid
field rowid-usuario as rowid
field r-unicamco as rowid
field dt-realizacao as date format 99/99/9999
field r-out-uni as rowid
field in-proc-insu as char format "x(1)"
field r-propost as rowid
field cd-unid-neg as int
field cd-prestador-executante like preserv.cd-prestador
field cd-unidade-executante like preserv.cd-unidade
field dt-controle as date
field cd-local-aten as int
field cd-clinica as int
field cd-vinculo-executante as int
field cd-esp-executante as int
field lg-preco-padrao as log
field cd-esp-prest-executante as int
field lg-trab-cooperado like procguia.lg-trab-cooperado
field cd-cid like docrecon.cd-cid
field dt-interna-ini as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field in-classe-nota like guiautor.in-classe-nota
field lg-possui-anterior-valido as log
field cd-classe-erro-realiz as int.

Definição campo a campo da tabela de entrada

Tabela de saída tmp-cpc-at0111c-saida

def temp-table tmp-cpc-at0111c-saida no-undo

field lg-erro                              as log
field ds-mensagem                 as char format "x(75)"
field lg-pede-cid-depois          as log
field cd-clinica                         like clinpres.cd-clinica
field in-classe-nota                 like guiautor.in-classe-nota
field lg-senha-emissao           as log
field lg-gera-senha                  as log
field lg-autoriza                       as log
field lg-alt-carte-benef            as log
field nr-recid-usuario              as recid
field nr-recid-outuni                as recid
field nr-recid-unicamco          as recid
field nr-recid-proposta            as recid
field cd-unidade-carteira         like car-ide.cd-unimed
field aa-guia-atendimento        like guiautor.aa-guia-atendimento
field nr-guia-atendimento         like guiautor.nr-guia-atendimento
field in-liberado-guias              like guiautor.in-liberado-guias
field lg-undo-retry                   as log
field lg-bloq-mod-insu            as log
field lg-atualiza-insumo          as log
field dt-interna-ini                   as date
field dt-interna-fim                  as date
field lg-alerta                          as log
field lg-altera-dados              as log
field lg-possui-anterior-valido as log.

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

01 – Consulta
02 – Exames SADT
03 – Atendimento Ambulatorial
04 – Internação Clínica
05 – Internação Cirúrgica
06 – Internação Obstétrica
07 – Odontologia
08 – Consulta em Emergência
09 - Internacao Hospital Dia
10 - Internacao Domiciliar
11 - Internacao Pediatrica
12 - Internacao Psiquiatrica
13 - Consultas Medicina Ocupacional
14 - Exames medicina ocupacional
15 - Remocao
16 - Pequena cirurgia
17 - Terapias
18 - Atendimento domiciliar
19 - SADT internado
20 - Quimioterapia
21 - Radioterapia
22 - TRS (terapia renal substitutiva)
23 - Consulta (primeira consulta)
24 - Consulta (seguimento)
25 - Consulta (pre-natal)

Tabela de entrada tmp-cpc-at0111c-insuguia

def temp-table tmp-cpc- at0111c-insuguia no-undo

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.

Definição campo a campo da tabela de entrada

Tabela de entrada tmp-cpc-at0111c-procguia

def temp-table tmp-cpc- at0111c-procguia no-undo

field cd-modulo                         like insuguia.cd-modulo
field cd-procedimento               like procguia.cd-procedimento.

Definição campo a campo da tabela de entrada