Rotina utilizada para especializar abrangência por Abrangência X Proposta X Procedimento/Insumo.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
A CPC receberá uma tabela temporária com os dados da modalidade, proposta, procedimento ou tipo e código do insumo em questão, e retornará, se houver, a respectiva abrangência cadastrada.
Localização
Dentro da api-propabra.p, quando a função especificada for igual a "ABR".
Ponto de Utilização
"ABRAN-MOVTO"
Include das definições das tabelas temporárias
cpc-api-propabra.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-api-propabra-entrada
def temp-table tt-cpc-api-propabra-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as logical
field cd-modalidade like modalid.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-tipo-insumo like tipoinsu.cd-tipo-insumo
field cd-insumo-par like insumos.cd-insumo
field cd-procedimento as int format "99999999".
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-api-propabra. Os valores desse campo podem ser:
"ROTINA".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa ue a utiliza. Para o programa api-propabra.p:
"ABRAN-MOVTO"
lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
cd-modalidade – Código da modalidade do beneficiário.
nr-proposta: Número da proposta do beneficiário.
cd-tipo-inusmo: Código do tipo de insumo. Se não informado, valor deve ser zero.
cd-inusmo-par: Código do insumo. Se não informado, valor deve ser zero.
cd-procedimento: Código do procedimento. Se não informado, valor deve ser zero.
Tabela de saída tmp-cpc-api-propabra-saida
def temp-table tt-cpc-api-propabra-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field cd-abrangencia-plano like abraplan.cd-abrangencia-plano.
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 – Deve conter mensagens de erro ou qualer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se LG-mensagem-na tela for não então esse campo deve ser preenchido.
cd-abrangencia-plano: código da abrangência a ser retornado pela CPC.