CPC-AT0110C9.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-at0110c9.p |
- Rotina utilizada para validar o módulo de cobertura dos insumos.
- Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
- Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
- Enviara e recebera uma tabela temporária.
Localização
- Dentro do programa at0110c9.i após o ser informado o módulo de cobertura e dentro do programa atapi022.p após verificar a situação do prestador executante.
- Após validação RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
- Inicio da digitação do Insumo.
- Após digitação do Valor do Insumo.
Ponto de Utilização
- "VALIDAR-MODULO"
- "ENTIDADE"
- "VALIDA-INSUMO"
- "ANT-INC-PACOTE"
- "VALOR-UNIT"
- "PRES-EXE-INSU"
- "ALTERA-QTD-AUT"
Include das definições das tabelas temporárias
- cpc-at0110c9.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-at0110c9i-entrada
def temp-table tmp-cpc-at0110c9i-entrada no-undo
fields in-evento-programa as char format "x(06)"
fields nm-ponto-chamada-cpc as char format "x(15) "
fields cd-tipo-insumo-par like insumos.cd-tipo-insumo
fields cd-insumo-par like insumos.cd-insumo
fields nr-rowid-usuario-par as rowid
fields nr-rowid-out-uni-par as rowid
fields nr-recid-mod-cob-par as recid
fields cd-unid-exec like presev.cd-unidade
fields nr-guia-atendimento like procguia.nr-guia-atendimento
fields aa-guia-atendimento like procguia.nr-guia-atendimento
field cd-proc-insu like presmovt.cd-proc-insu
field cd-tipo-insumo like presmovt.cd-tipo-insumo
field cd-prestador like preserv.cd-prestador
field cd-unidade-principal like unimed.cd-unimed
field cd-unidade-executante like unimed.cd-unimed
field cd-prestador-executante like preserv.cd-prestador
field lg-inclui-pacote as log
field cd-tip-guia like tip-guia.cd-tipo-guia
field vl-insumo-cob like insuguia.vl-insumo-cob
field vl-taxa-participacao like insuguia.vl-taxa-participacao
field dt-interna-ini as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field qt-insumo as int
field h-frame-f-insumo as handle
field nr-recid-usuario as recid
field cd-cid-aux as char format "x99.x" extent 4
field mostra-cr-solic as char format "x(30)" .
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a cpc-at0110c9.
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- cd-tipo-insumo-par – Código do tipo de Insumo.
- cd-insumo-par – Código do Insumo.
- nr-rowid-usuario-par – Rowid do beneficiário (da base).
- nr-rowid-out-uni-par – Rowid do beneficiário (de intercâmbio).
- nr-recid-mod-cob-par – Recid do módulo de cobertura do insumo.
- cd-unid-exec – Unidade da Unimed em execução.
- nr-guia-atendimento – Número da Guia de Atendimento.
- aa-guia-atendimento – Ano da Guia de Atendimento.
- cd-proc-insu – Código do Insumo.
- cd-tipo-insumo – Código do Tipo de Insumo.
- cd-prestador – Código do Prestador referente.
- cd-unidade-principal - Unidade do prestador principal.
- cd-unidade-executante - Unidade do prestador executante.
- cd-prestador-executante – Código prestador executante.
- cd-tip-guia - Código tipo da Guia.
- vl-insumo-cob - Valor Cobrança Insumo.
- vl-taxa-participacao - Valor da taxa de Participação.
- dt-interna-ini - Data de Internação Inicial.
- dt-interna-fim - Data de Internação Final.
- qt-insumo - Quantidade Insumo.
- h-frame-f-insumo - Handle do Frame Insumo.
- nr-recid-usuario - Recid do Beneficiario.
- cd-cid-aux - Codigo do Cadastro iternacional de Doenças.
- mostra-cr-solic - Carater da solicitação: "E" eletiva/ "U" urgencia.
Tabela de saída tmp-cpc-at0110c9i-saida
def temp-table tmp-cpc-at0110c9i-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field lg-restringe-movto as logical
field lg-alt-qtd-aut as log
field ds-mes-alerta as char format "x(75)"
field cd-insumo as int64
field lg-cpc-ant-inc-pacote-restr as log
field cd-tipo-insumo as int
field vl-insumo-cob like insuguia.vl-insumo-cob
field vl-taxa-participacao like insuguia.vl-taxa-participacao
field lg-altera-part as log
field in-cobra-participacao like insuguia.in-cobra-participacao
field dt-interna-ini as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field lg-pede-valor as log
field lg-erro-glosa as log.
Definição campo a campo da tabela de saída
- 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.
- ds-mensagem-relatorio – Variável que retornará a mensagem de erro/aviso após o processamento das informações pela CPC.
- lg-restringe-movto – Variável que identifica se, não ocorrência de uma restrição, o insumo poderá ou não ser incluído.
- lg-alt-qtd-aut – Variável que identifica se ocorre alteração da quantidade de autorizações.
- Ds-mês-alerta – devolve mensagem de alerta em caso de algum erro ou confome regra especifica
- lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.
- cd-tipo-insumo - Código Tipo de Insumo.
- vl-insumo-cob - Valor Cobrança Insumo.
- vl-taxa-participacao - Valor Taxa Participação.
- lg-altera-part - Altera Participação.
- in-cobra-participacao - Cobrar Participação.
- dt-interna-ini - Data Internação Inicial.
- dt-interna-fim - Data Internação Final.
- lg-pede-valor - Pede Valor Unitário.
- lg-erro-glosa - verifica validaçao para gerar ou nao a glosa.
Tabela de entrada temp-movtos-insu
def temp-table temp-movtos-insu no-undo
field cd-unidade-prestador like guiautor.cd-unidade
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo
field qt-insumo like insuguia.qt-insumo.
Definição campo a campo da tabela de saída
- cd-unidade-prestador – Unidade do prestador.
- aa-guia-atendimento – Ano da Guia de Atendimento.
- nr-guia-atendimento – Número da Guia de Atendimento.
- cd-tipo-insumo – Código Tipo de Insumo.
- cd-insumo – Código Insumo.
- qt-insumo – Quantidade Insumo.