Histórico da Página

...

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

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                as as char format "x(15)"
field cd-tipo-guia                                    like like tip-guia.cd-tipo-guia
field cd-unidade-carteira                       like unimed.cd-unimed
field cd-cateira-usuario                         like guiautor.carteira-usuario like guiautor.cd-carteira-usuario
field cd-unidade-exec                            like 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 like preserv.cd-unidade
field cd-prestador-princ                        like like preserv.cd-prestador
field cd-unidade-solic                           like preserv.cd-unidade
field cd-prestador-solic                        like like preserv.cd-prestador
field cd-transacao                                 like tranrevi.like tranrevi.cd-transacao
field cd-userid                                       like preserv.cd-userid
field cd-proced-completo                     as int format "99999999"
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                                     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 rowidas rowid
field cd-proced-completo as int format "99999999"
field aa-guia-atendimento                    like 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 as log
field vl-custo-op as dec
field vl-taxa-part                                  as as dec
field vl-tot-val                                      as dec
field lg-prest-alto-custo                      as log.

Definição campo a campo da tabela de entrada

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.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama CPC-AT0111C.P. O valor desse campo pode ser "INCLUI;
    • nm-ponto-chamada-cpc – "SOLIC-CID", "INC-CLINICA", "CLASSE-NOTA", "GUIA-ORIGEM", "UNIDADE-BENEF", "VALIDA-PROC", "CONV-UNID-CART" , "GUIA-ASSOC" e "VALOR-INSUMO";
    • 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-transacao – Código da transação associada a Guia de Autorização digitada;
    • cd-userid – Usuário logado ao sistema para a digitação da Guia de Atendimento;
    • cd-proced-completo – Código do procedimento em autorização completo, ou seja com oito dígitos;
    • aa-guia-atendimento – Ano da guia de atendimento anterior;
    • nr-guia-atendimento – Número da guia de atendimento anterior;
    • lg-guia-principal – Indica se esta é a guia principal;
    • vl-custo-op – Valor do custo operacional;
    • vl-taxa-part – Valor da taxa de participação,
    • vl-tot-val – Valor total da guia (custo operacional + participação).
    • lg-dados-internacao - 
    • cd-tipo-insu - 
    • cd-insumo 
    • nr-proposta 
    • cd-usuario 
    • r-usuario 
    • rowid-usuario 
    • r-unicamco 
    • dt-realizacao 
    • r-out-uni
    • in-proc-insu
    • r-propost 
    • cd-unid-neg
    • cd-prestador-executante 
    • cd-unidade-executante 
    • dt-controle 
    • cd-local-aten
    • cd-clinica 
    • cd-vinculo-executante 
    • cd-esp-executante
    • lg-preco-padrao 
    • cd-esp-prest-executante 
    • lg-trab-cooperado 
    • cd-cid like
    • dt-interna-ini 
    • dt-interna-fim
    • in-classe-nota
    • in-evento-programa – Evento do programa que chama CPC-AT0111C.P. O valor desse campo pode ser "INCLUI;
    • nm-ponto-chamada-cpc – "SOLIC-CID", "INC-CLINICA", "CLASSE-NOTA", "GUIA-ORIGEM", "UNIDADE-BENEF", "VALIDA-PROC", "CONV-UNID-CART" , "GUIA-ASSOC" e "VALOR-INSUMO";
    • 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-transacao – Código da transação associada a Guia de Autorização digitada;
    • cd-userid – Usuário logado ao sistema para a digitação da Guia de Atendimento;
    • cd-proced-completo – Código do procedimento em autorização completo, ou seja com oito dígitos;
    • aa-guia-atendimento – Ano da guia de atendimento anterior;
    • nr-guia-atendimento – Número da guia de atendimento anterior;
    • lg-guia-principal – Indica se esta é a guia principal;
    • vl-custo-op – Valor do custo operacional;
    • vl-taxa-part – Valor da taxa de participação,
    • vl-tot-val – Valor total da guia (custo operacional + participação).
    • lg-pres-alto-custo – Variável que grava a informação se o prestador é de alto custo.

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

...

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.

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

...

• • lg-senha-emissao – Indicador de que a Guia de Autorização ira gerar Senha.
  • lg-gera-senha – Indica se a geração da Senha será ou não autormatica.
  • lg-autoriza – Indica se a Guia de Atendimento gerada via Senha será ou não Autorizada;
  • lg-alt-carte-benef – Indica se ocorreu a alteração da carteira do beneficiário dentro da CPC;
  • nr-recid-usuario – recid da tabela USUARIO. Deverá possuir conteúdo quando o parâmetro lg-alt-carte-benef estiver habilitado e o beneficiário for da base;
  • nr-recid-outuni – recid da tabela OUT-UNI. Deverá possuir conteúdo quando o parâmetro lg-alt-carte-benef estiver habilitado e o beneficiário for de intercâmbio;
  • nr-recid-unicamco – recid da tabela UNICAMCO. Deverá possuir conteúdo quando o parâmetro lg-alt-carte-benef estiver habilitado e o beneficiário for de intercâmbio;
  • nr-recid-proposta – recid da tabela PROPOST. Deverá possuir conteúdo quando o parâmetro lg-alt-carte-benef estiver habilitado e o beneficiário for da base;
  • cd-unidade-carteira – código da unidade da carteira do beneficiário;
  • aa-guia-atendimento – ano da guia de atendimento;
  • nr-guia-atendimento – número da guia de atendimento;
  • in-liberado-guias – situação de liberação da guia de atendimento,
  • lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
  • lg-bloq-mod-insu
  • lg-atualiza-insumo
  • dt-interna-ini
  • dt-interna-fim
  • lg-alerta - Retorna se a mensagem deverá ser somente um alerta, sem parar o processo.
  • lg-altera-dados - Retorna se a mensagem deverá ser somente um alerta

Tabela de entrada tmp-cpc-at0111c-insuguia

...