CPC-AT0112C3.p

• Permite indicar se o usuário terá ou na permissão para alterar a quantidade solicitada de procedimentos.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Enviara e recebera uma tabela temporária.

Localização

• Quando da solicitação da informação "Qt Rep.Cob" (Quantidade de vezes que cobra a tabela médica do beneficiário), no processo de alteração de procedimento do módulo AT, e o parâmetro "Muda qt.vezes tab." do tipo de Guia estiver definido igual a "Não"

Ponto de Utilização

• "ALTERA-QTD-AUT"
• "VALIDA-INSUMO"
• "TRATA-VL-INSUMO"
• "VER-VAL-ALCADA"
• "APOS-VALOR"

Include das definições das tabelas temporárias

• CPC-AT0112C3.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- at0112c3-entrada

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

field in-evento-programa                 as char format "x(10)"
field nm-ponto-chamada-cpc          as char format "x(15)"
field cd-unid-exec                            like presev.cd-unidade
field cd-prestador-exec                    like preserv.cd-prestador
field nr-guia-atendimento                 like procguia.nr-guia-atendimento
field aa-guia-atendimento                like procguia.aa-guia-atendimento
field cd-insumo                                like insumos.cd-insumo
field cd-tipo-insumo                        like insumos.cd-tipo-insumo
field vl-insumo-cob                         like insuguia.vl-insumo
field vl-valorizado                           like insuguia.vl-insumo
field qt-insumo                                like insuguia.qt-insumo

field qt-insumo-sol                          like insuguia.qt-insumo
field cd-tip-guia                               like tip-guia.cd-tipo-guia
field vl-taxa-participacao                 like insuguia.vl-taxa-participação
field dt-interna-ini                            as date format 99/99/9999
field dt-interna-fim                           as date format 99/99/9999.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama CPC-AT0112C3.P. 
  • nm-ponto-chamada-cpc – Nome do ponto de cpc
  • cd-unid-exec – Código da unidade do prestador executante;
  • cd-prestador-exex – Código do prestadoe executante;
  • Nr-guia-atendimento - Número da guia de atendimento
  • Aa-guia-atendimento – Ano da guia de atendimento
  • Cd-insumo – Codigo do isnumo
  • Cd-tipo-insumo – Codigo do tipo do insumo.
  • Vl-isnumo-cob – Valor do insumo cobrado;
  • Vl-valorizado - Valor total dos insumos cobrados.
  • Qt-insumo – Quantidade de Insumo.
  • qt-insumo-sol  – Quantidade Solicitada de Insumo.
  • cd-tip-guia – Tipo de Guia 
  • vl-taxa-participação - Valor da participação
  • dt-interna-ini - Data de internação inicial      
  • dt-interna-fim - Data de internação final    

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

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

field lg-erro                                   as log
field ds-mensagem                      as char format "x(75)"
field lg-alt-qtd-aut                         as log
fields ds-mensagem-alerta         as char format "x(75)"
field vl-insumo-cob                      like insuguia.vl-insumo-cob
field vl-unitario                              like insuguia.vl-insumo.

field lg-altera-part                          as log
field vl-taxa-participacao               like insuguia.vl-taxa-participação
field in-cobra-participacao            like insuguia.in-cobra-participação
field lg-undo-retry                         as log.

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

• • lg-erro – Indica a ocorrência de erro no processamento da CPC;
  • ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
  • lg-alt-qtd-aut - Autoriza quantidade autorizada (Sim/Não)
  • ds-mensagem-alerta – devolve mensagem de alerta em caso de algum erro ou confome regra especifica
  • Vl-isnumo-cob – Valor do insumo cobrado;
  • Vl-unitario – Possui o valor unitário do insumo;
  • lg-altera-part -  Indica a alteração da participação
  • vl-taxa-participação - Valor da participação
  • in-cobra-participacao - Indica onde é cobrada a participação: 1 - "Uso Base-Cobra Fat/Uso Fora-Cobra Fat"; 2 - "Uso Base-Cobra Unid/Uso Fora-Nao Cobra"; 3 - "Uso Base-Cobra Prest/Uso Fora-Nao Cobra".; 4 - Uso Base-Cobra Prest/Uso Fora-Cobra Fat"; 5 - "Uso Base-Cobra Unid/Uso Fora-Cobra Fat"; 6 - "Uso Base-Cobra Prest-Uni/Uso Fora-Cobra Fatura"; 7 - "Uso Base-Cobra Prest-Fat/Uso Fora-Cobra Fatura"; 8 - "Uso Base-Nao Cobra/Uso Fora-Cobra Fatura"; 9 - "Uso Base-Nao Cobra/Uso Fora-Nao Cobra".
  • lg-undo-retry – Indica a ocorrência de erro no processamento da CPC;

Tabela de entrada tmp-cpc-at0112c3-insuguia

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

field cd-tipo-insumo              like insuguia.cd-tipo-insumo
field cd-insumo                     like insuguia.cd-insumo
field vl-insumo-cob               like insuguia.vl-insumo-cob.

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

• • cd-tipo-insumo – Código do tipo do insumo;
  • cd-insumo – Código do insumo;
  • vl-insumo-cob – Valor do insumo cobrado;