CPC-AT0111C.p

Rotina utilizada para:

• Permitir a operadora INDICAR qual é o momento da solicitação do CID, no momento da inclusão da GUIA e
• Permitir a operadora INDICAR qual é o código da clinica DEFAULT que deverá ser SUGESTIONADO ao usuário.
• Permitir a operadora definir qual a classe de nota (TIPO DE GUIA TISS) a ser utilizada na digitação da guia de autorização (AT).
• Obrigar a informação da autorização origem, quando do atendimento de beneficiário de intercâmbio. Ressalta-se que para este processo o tipo de guia, associada a autorização, deverá estar com o parâmetro  Pede autoriz.origem" Ativo (igual a Sim).
• Permitir a operdora controlar a emissao de Guias de Autorização através de Senhas, os questionamentos referentes a geração e informação via senha, permitindo que o cliente informe dentro da cpc a resposta padrão das perguntas sem que as mesmas sejam solicitadas em tela.
• Pemitir a operdora efetuar a troca da unidade do beneficiário e do beneficiário quando da inclusão de uma guia de autorização/orçamento no sistema, via modulo AT.
• Permtir a operadora efetuar consistências sobre o procedimento incluído na GUIA (AIH).
• Permitir a coversão da unidade da carteira.
• Permitir a operador visualizar dados das guias associadas e seus respectivos movimentos na opção de inclusão do programa.
• Rotina utilizada para informar e gravar a informação de prestador de alto custo.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

• Quando da verificação da necessidade da solicitação do CID, dentro do programa AT0111C.P;
• Quando da solicitação do código da clinica, dentro do programa AT0111C.P;
• Quando da solicitação do Tipo de Guia TISS (logo após a informação do prestador solicitante), dentro do programa AT0111C.P;
• Quando da solicitação da autorização origem, dentro do programa AT0111C.P;
• Geração da Senha de Autorização da Guia;
• Após a informação (input) da unidade da carteira do beneficiário;
• Após a informação (inclusão) do código do procedimento.
• Antes da realização das consistências da unidade da carteira.
• Na inclusão da guia, após digitar a informação do ano e número da guia anterior.
• Na atual função de "F10" que atualmente mostra o frame "Valores da Guia".
• Após a informação da unidade e prestador principal.
• Antes de salvar os dados na tabela guiautor.
• No momento de informar o anexo da guia, sendo possível alterar toda a lógica da tela.
• Após gravar e gerar o número da guia.
• Antes da solicitação da justificativa do procedimento.

Ponto de Utilização

• "SOLIC-CID"
• "INC-CLINICA"
• "CLASSE-NOTA"
• "GUIA-ORIGEM"
• "VERIFICA-SENHA"
• "UNIDADE-BENEFIC"
• "VALIDA-PROC"
• "CONV-UNID-CART"
• "GUIA-ASSOC"
• "VALOR-INSUMO"
• "GRAVA-MOTIVO"
• "PRES-ALT-CUS"
• "VALIDA-PREST"

Include das definições das tabelas temporárias

• CPC-AT0111C.I

• "ANEXOS-GUIA"
• "FIM-GRAVA-GUIA"
• "APOS-SOLIC"
• "VALIDA-JUSTIFIC"

Include das definições das tabelas temporárias

• CPC-AT0111C.I

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 as char format "x(15)"
field cd-tipo-guia                                like tip-guia.-guia like tip-guia.cd-tipo-guia
field cd-unidade-carteira                      like like unimed.cd-unimed
field cd-cateiracarteira-usuario                       like guiautor.cd-carteira-usuario
field cd-unidade-exec                         like preserv.cd-unidade
field cd-prestador-exec                       like preservlike 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.cdlike preserv.cd-unidade
field cd-prestador-solic                       like preserv.cd-prestador
field cd-transacao                              like like tranrevi.cd-transacao
field cd-userid                                   like preserv.cd-userid
field cd-proced-completo                    as int format "99999999"
field cd-modalidade                           modalidade like propost.cd-modalidade
field cd-plano                                    like like propost.cd-plano
field cd-tipo-plano                             like like propost.cd-tipo-plano
field ds-motivo                                  as as char format "x(750)"
field r-guiautor                                  as as rowid
field aacd-guia-atendimento                  like 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-taxa-part as dec
field vl-tot-val                                   as dec
field lg-prest-alto-custo                      as log.

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-pres-alto-custo – Variável que grava a informação se o prestador é de alto custo.

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.

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

• • lg-erro – Indica a ocorrência de erro nos processos de verificar qual é o momento da solicitação do CID por parte da operadora e também após o usuário informar a autorização origem, quando do processo da solicitação de guia;
  • ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro/restrição nos processos de verificar qual é o momento da solicitação do CID por parte da operadora e após o usuário informar a autorização origem ,quando do processo da solicitação de guia;
  • lg-pede-cid-depois – Se este parâmetro retornar "Yes" (Sim) então indicará que o Cid deverá ser solicitado somente quando da gravação da guia (AIH) e quando retornar "No" (Não) então indicará que o Cid deverá ser solicitado antes do usuário informar os da guia (AIH);
  • cd-clinica – Este parâmetro irá retornar um código de clinica DEFAULT, quando seu conteúdo for maior que zeros, como sugestão ao usuário.
  • In-classe-nota – Código da Classe da nota (TIPO DE GUIA TISS).

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)

• • 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.

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.

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.

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

• • • in-evento-programa – Evento do programa que chama CPC-AT0111C.P.
    • nm-ponto-chamada-cpc – Nome do ponto de cpc;
    • 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 - Indica dados internação
    • cd-tipo-insu - Tipo Insumo
    • cd-insumo - Insumo
    • nr-proposta - Número da proposta
    • cd-usuario - Código beneficiário
    • r-usuario - Beneficiário da base
    • rowid-usuario - Beneficiário da base
    • r-unicamco - Negociação entre Unidades
    • dt-realizacao - Data realização
    • r-out-uni- Beneficiário de fora
    • in-proc-insu - Procedimento ou Insumo
    • r-propost - Proposta
    • cd-unid-neg - Unidade
    • cd-prestador-executante - Prestador
    • cd-unidade-executante - Unidade Prestador
    • dt-controle - Data controle
    • cd-local-aten - Código do Local de atendimento
    • cd-clinica - Código da Clínica
    • cd-vinculo-executante - Vínculo executante
    • cd-esp-executante - Especialidade executante
    • lg-preco-padrao - Preço padrão
    • cd-esp-prest-executante - Especialidade executante
    • lg-trab-cooperado - Trabalho cooperado
    • cd-cid - Código CID
    • dt-interna-ini - Data de internação inicial
    • dt-interna-fim - Data de internação final
    • in-classe-nota - Classe de nota
    • lg-possui-anterior-valido - Possui autorização anterior valida. 
    • cd-classe-erro-realiz - Classe de Erro 163.

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

• • lg-erro – Indica a ocorrência de erro nos processos de verificar qual é o momento da solicitação do CID por parte da operadora e também após o usuário informar a autorização origem, quando do processo da solicitação de guia;
  • ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro/restrição nos processos de verificar qual é o momento da solicitação do CID por parte da operadora e após o usuário informar a autorização origem ,quando do processo da solicitação de guia;
  • lg-pede-cid-depois – Se este parâmetro retornar "Yes" (Sim) então indicará que o Cid deverá ser solicitado somente quando da gravação da guia (AIH) e quando retornar "No" (Não) então indicará que o Cid deverá ser solicitado antes do usuário informar os da guia (AIH);
  • cd-clinica – Este parâmetro irá retornar um código de clinica DEFAULT, quando seu conteúdo for maior que zeros, como sugestão ao usuário.
  • In-classe-nota – Código da Classe da nota (TIPO DE GUIA TISS).

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)

• • 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 - Bloqueia
  • lg-atualiza-insumo - Atualiza insumo
  • dt-interna-ini - Data de internação inicial
  • dt-interna-fim - Data de internação final
  • lg-alerta - Retorna se a mensagem deverá ser somente um alerta, sem parar o processo.
  • lg-altera-dados - Retorna se os dados podem ser alterados
  • lg-possui-anterior-valido - Possui autorização anterior valida. 

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

• • • 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.

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

• • • cd-modulo - Código do módulo.
    • cd-procedimento - Código do procedimento.

...