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.

...

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. O valor desse campo pode ser "ALTERA", "MODIFICA"; 
  • nm-ponto-chamada-cpc – "ALTERA-QTD-AUT";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
  • cd-tip-guia
  • vl-taxa-participacao  
  • dt-interna-ini      
  • dt-interna-fim       

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

...

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
  • vl-taxa-participação
  • in-cobra-participacao
  • lg-undo-retry

Tabela de entrada tmp-cpc-at0112c3-insuguia

...

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

...