cpc-rtquantitativo.p

• Rotina utilizada ao processar as regras do quantitativo.
• 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.

Localização

• Dentro do quantitativo. 

Ponto de Utilização

• "ESTORNA-QTD"
• "INICIO-ROTINA"
• "LOCALIZA-MOVTO" => Ao buscar informações do movimento, no final, aciona CPC.

Include das definições das tabelas temporárias

• cpc-rtquantitativo.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtquantitativo-entrada

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

field in-evento-programa              as char format "x(06)"
field nm-ponto-chamada-cpc       as char format "x(15)"
field dt-periodo-ini                        as date format "99/99/9999"
field dt-periodo-fim                       as date format "99/99/9999"
field cd-modalidade                     like propost.cd-modalidade
field nr-ter-adesao                       like propost.nr-ter-adesao
field cd-usuario                            as int
field in-tp-movimento                   as char format "x(1)"
field nr-rowid-movimento             as rowid
field lg-mens-tela                         as log
field cd-local-atendimento           as int
field cd-unidade-prestador          as int
field cd-prestador                        as int
field cd-tipo-insumo-proc            as int
field cd-insumo-proc                   as int
field cd-plano                              as int
field cd-tipo-plano                       as int.

Definição campo a campo da tabela de entrada

• in-evento-programa - Nome do evento relacionado ao ponto de CPC dentro do programa que a utiliza.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC dentro do programa que a utiliza. 
• dt-periodo-ini
• dt-periodo-fim
• cd-modalidade - Código da modalidade.
• nr-ter-adesao - Código do contrato (termo de adesão).
• cd-usuario - Código do beneficiário.
• in-tp-movimento - Tipo movimento. P - Procedimento; I - Insumo.
• nr-rowid-movimento
• lg-mens-tela
• cd-local-atendimento - Código do locar de atendimento.
• cd-unidade-prestador - Código da unidade do prestador executante. 
• cd-prestador - Código do prestador executante. 
• cd-tipo-insumo-proc - Código do tipo insumo ou do grupo do procedimento.
• cd-insumo-proc - Código do insumo ou do procedimento.
• cd-plano - Código do plano
• cd-tipo-plano - Código do tipo de plano

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

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

field lg-undo-retry                     as logical
field ds-mensagem-erro           as char format "x(75)"
field ds-mensagem                   as char format "x(20)"
field dt-periodo-ini                     as date format "99/99/9999"
field dt-periodo-fim                    as date format "99/99/9999"
field lg-continua                        as log
field lg-mens-tela                      as log.

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

• lg-undo-retry - Informa ao programa se ocorreu algum na CPC.
• ds-mensagem-erro - Mensagem de erro retornada do programa CPC.
• ds-mensagem
• dt-periodo-ini
• dt-periodo-fim
• lg-continua - Indica se o processo deve continuar.
• lg-mens-tela