Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 16

changes.mady.by.user Lucas de Souza Leite

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Tais Salvador da Rosa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • Para o ponto de chamada "TRATA-USU-ATEND", dentro do programa AT0115C.p após o usuário informar a situação da GUIA (Status da AIH);
  • Para o ponto de chamada "ANTES-OUT-UNI", dentro do programa AT0115C.p antes dos testes relacionados com a out-uni;
  • Para o ponto de chamada "TRATA-USU-AUDIT", dentro do programa AT0115C.p quando o usuário está alterando a situação da guia (AIH) de "Pendente de Auditoria" ou "Pendente de Laudo Médico" para "Pendente de Liberação";
  • Para o ponto de chamada " CONS-USU-AUDIT ", dentro do programa AT0115C.p, quando a guia for transferida (colocada) na situação de Pendente de Auditoria;
  • Para o ponto de chamada "PERMITE-AUTOR", dentro do programa AT0115C.p, quando da abertura do ComboBox com as opções de situação da Guia possíveis de seleção;
  • Para o ponto de chamada "SOLIC-TP-EXAME", dentro do programa AT0115C.p, que permite alterar a guia de Atendimento antes de sua impressão para beneficiários de intercâmbio.
  • Para o ponto de chamada "IMP-ASO-PC", dentro do programa AT0115C.p, que permite alterar a guia de Atendimento antes de sua impressão, porem somente para Autorização de Guias.
  • Para o ponto de chamada "CONV-INSUMO", dentro do programa AT0115C.p, que ao encontrar códigos de insumos convertidos iguais, gera somente um código para ser enviado via intercâmbio eletrônico.
  • Para o ponto de chamda chamada "ANTES-COMUNICA", dentro do programa AT0115C.p, que permite validar se guia de atendimento deve ser enviada via intercâmbio eletrônico.
  • Para o ponto de chamda chamada "APOS-ALT-GRUPO", dentro do programa AT0115C.p, que permite digitar mais de 700 caracteres no campo Motivo de Auditoria.
  • Dentro do programa at0115c.p o ponto de chamada "FIM-EXEC-AUTOR", é chamado no final da execução da autorização de guias.
  • Para o ponto de chamada "ATUALIZA-DADOS", dentro do programa AT0115C.p após retorno do envio de uma autorização.
  • O ponto INI-TRAT-RET-AU é chamado no inicio da rotina trata retorno autorizacaoautorização.
  • O ponto de CPC MOT-AUD é chamado em vários momentos do programa, onde pode ser alterado o valor do motivo de auditoria.

...

  • "TRATA-USU-ATEND"
  • "TRATA-USU-AUDIT"
  • "CONS-USU-AUDIT"
  • "PERMITE-AUTOR"
  • "SOLIC-TP-EXAME"
  • "IMP-ASO-PC"
  • "CONV-INUSMO"
  • "ANTES-COMUNICA"
  • "APOS-ALT-GRUPO"
  • "FIM-EXEC-AUTOR"
  • "OPCOES-AUTORIZA"
  • "APOSSTATUS-TRAN"
  • "ANTES-OUT-UNI"
  • "ANTES-TESTA-UNI"
  • "ANT-TEM-SERIOUS"
  • "ATRIBUI-MENS"
  • "ATUALIZA-DADOS"
  • "INI-TRAT-RET-AU" - disponível a partir da versão 12.1.2305.
  • "MOT-AUD" - disponível a partir da versão 12.1.2403.

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 r-guiautor                                 as recid
field in-lib-ant                                  as char format "x(02)"
field in-confirma-autor                    as char format "x(28)"
field cd-movimento movimento                          as int format 99999999  as int64
field cd-pacote pacote                                 as int format 99999999
field ds-motivo-auditoria                 like guiautor.ds-motivo-auditoria
field cd-unidade                               like guiautor.cd-unidade
field aa-guia-atendimento               like guiautor.aa-guia-atendimento
field nr-guia-atendimento               like guiautor.nr-guia-atendimento
field dt-guia-atendimento               as date format "99/99/9999"
field hr-guia-atendimento               as char format "x(8)"
field in-status status                                  as  as char format "x(100)"
field h-in-confirma-autor autor                   as  as handle
field in-liberado-guias guias                         as char
field cd-procedimento procedimento                    as  as char
field ds-mens mens                                  as  as char
field nm-programa-chamador       as     as char
field tp-acomodacao                         as char
field h-buffer-tmp-cabecalho-guia as guia   as handle.

Definição campo a campo da tabela de entrada

    • in-evento-programa – Evento do programa que chama CPC-AT0115C.P. Os valores desse campo podem ser "GRAVA" ou "MODIFICA";
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc CPC dentro do programa que a utiliza. ;
    • r-guiautor – RECID da Guia de Autorização;
    • in-lib-ant – Situação da AIH (Status) em momento anterior a sua atualização/modificação;
    • in-confirma-auditor – Indicador da confirmação da autorização;
    • cd-movimento – Código do movimento.;
    • cd-pacote – Código do pacote.;
    • ds-motivo-auditoria - Campo motivo de auditoria.;
    • cd-unidade – Código da unidade.;
    • aa-guia-atendimento – Ano da guia atendimento.;
    • nr-guia-atendimento – Número da guia atendimento.;
    • dt-guia-atendimento - data da guia atendimento.;
    • hr-guia-atendimento - Hora da guia atendimento.;
    • in-status – Status da guia.;
    • h-in-confirma-autor - Handle de guias;
    • in-liberado-guias – Indicador do status da guia;
    • cd-procedimento - Código do procedimento;
    • ds-mens - Mensagem;
    • nm-programa-chamador - Permite trafegar para a cpc o programa chamador. Por exemplo: atp/at0112c.p, atp/at0111c.p, etc...
    • tp-acomodacao - Tipo de acomodação do usuário.;
    • h-buffer-tmp-cabecalho-guia - Handle da temporária cabecalho guia (tmp-cabecalho-guia).

...

    • nm-grupo – Grupo do usuário que alterou a guia (AIH) para a situação de "Pendente de Auditoria" ou "Pendente de Laudo Médico";
    • nm-usuario - Nome do usuário que alterou a guia (AIH) para a situação de "Pendente de Auditoria" ou "Pendente de Laudo Médico";
    • in-liberado-guias – Indicador do status da guia;
    • lg-permite-autorizar – Parâmetro que permitirá indicar a possibilidade ou não disponibilizar as opções de autorização da guia (Autoriza sem Impressão e Imprime Autorizando);
    • nr-ano-guia-origem – Ano da guia origem;
    • nr-guia-origem – Número da guia origem;
    • lg-erro – 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.;
    • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.;
    • lg-mostra-mensagem - Campo que retorna se o programa chamador deve ou não mostrar a mensagem.;
    • ds-opcoes-autoriza - Indica o tipo de impressão para autorização;
    • cd-unidade - Código da unidade;
    • cd-carteira-usuário - Documento de identificação do usuário;
    • cd-unidade-carteira - Código da unidade do documento de identificação do usuário;
    • lg-testa-uni - Indica de seve ou não testar a unidade     ;
    • lg-tem-serious -  Indica Indica se a unidade utiliza Serious ou não. ;
    • ds-confirma-autor - Indica o tipo de impressão para autorização;
    • lg-grupo - Indica se utiliza o grupo retornado pela cpc.CPC;
    • lg-modif-grupo - Permite modificar ou não o grupo de auditoria, funciona em conjunto com o ponto CONSponto CONS-USU-AUDIT.;
    • ds-motivo-auditoria - utilizado para alterar o motivo de auditoria.

...

Tabela de entrada e saída tmp-movto-ptu

def temp-table tmp-movto no-ptu           no-undo

fields tp-movimento     field sqItem                                as int
    field tp-movimento                  as  as char format "x(116)"   
fields     field cd-tipo-insumo insumo                  as int format  format 99
fields     field cd-movimento movimento                   as int format 99999999
fields cd-pacote int64
    field cd-pacote                           as int format  format 99999999
fields     field ds-movimento movimento                     as as char format "x(80)"
fields     field qt-movimento movimento                    as int format 9999
 as dec
    field in-situacao situacao                           as int format  format "9"
    field vl-movimento movimento                      like insuguia.vl-insumo
    field lg-exclui                               as log
    field cd-unidade                           like procguia.cd-unidade         
    field aa-guia-atendimento           like procguia.aa-guia-atendimento
    field nr-guia-atendimento           like procguia.nr-guia-atendimento
    field nr-processo                         like procguia.nr-processo        
    field nr-seq-digitacao                  like procguia.nr-seq-digitacao
    field tp-anexo                              as int
    field dat-previs-inic                     as date
    field id-pacote                             as character
    field cd-via-admin                       as integer
    field qt-frequencia                       as integer
    field vl-movimento-uni                as decimal
    field cd-anvisa                             like insumos.cd-anvisa
    field cd-ref-fab                            as char format "x(60)"
    field tp-ordem                             as char
    field vl-uni-servico                      as dec 
    field unMedicamento                  as int
    field totalDosagem                     as dec
    field cd-movimento-char            as char.

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

    • sqItem – Sequência do item solicitado;
    • tp-movimento – Indicador que representa o tipo do movimento ("P" – Procedimento ou "I" – Insumo)
    • .
    • ;
    • cd-tipo-insumo - Código do tipo do insumo
    • .
    • ;
    • cd-movimento - Código do movimento
    • .
    • ;
    • cd-pacote – Código do pacote
    • .
    • ;
    • ds-movimento – Descrição do movimento
    • .
    • ;
    • qt-movimento – Quantidade do movimento
    • .
    • ;
    • in-situacao – Indica qual a situação do movimento
    • .vl-movimento – Valor
    • ;
    • vl-movimento – Valor do movimento;
    • lg-exclui – Campo sem utilização;
    • cd-unidade – Código da unidade do beneficiário;
    • aa-guia-atendimento – Ano de emissão da guia de autorização;
    • nr-guia-atendimento – Número da guia de autorização;
    • nr-processo – Número do processo;
    • nr-seq-digitacao – Sequência de digitação dos itens do documento;
    • tp-anexo – Indicador de Anexo;
    • dat-previs-inic – Data prevista de início;
    • id-pacote – Identifica se o serviço faz parte de um pacote;
    • cd-via-admin – Via Administração;
    • qt-frequencia – Frequência da administração;
    • vl-movimento-uni – Valor unitário do movimento;
    • cd-anvisa – Código ANVISA do Material/Medicamento;
    • cd-ref-fab – Referência do Material no Fabricante;
    • tp-ordem – Indica a ordem de preferência do profissional solicitante em relação ao fabricante do material solicitado;
    • vl-uni-servico – Valor unitário do serviço;
    • unMedicamento – Unidade de medida do medicamento;
    • totalDosagem – Dosagem total do medicamento no ciclo atual;
    • cd-movimento-char – Código do movimento.