cpc-rc0112c.p1

Rotina utilizada para tratar insumos do tipo OPME, associando aos prestadores do grupo 98 (OPME).
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 da rotina de alteração de insumos – rc0112c.p, ao informar o tipo de insumo como OPME (lg-opme), abre o zoom de prestadores OPME (grupo 98) e subscreve o nome do fornecedor. Grava os campos insumos.u-int-1 e insumos.u-int-2 com os campos preserv.cd-unidade e preserv.cd-prestador respectivamente da seleção do zoom .
Ao final do programa de alteração de insumos – rc0112c.p para alimentar um campo reserva do cliente.
Ponto de Utilização
"TROCA-EXEC"
"FINAL-MODIFICAR"
"DADOS-TNUMM"
Include das definições das tabelas temporárias
cpc-rc0112c.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0112c-entrada
def temp-table tmp-cpc-rc0112c-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-insumo like insumos.cd-insumo
field cd-tipo-insumo like insumos.cd-tipo-insumo
field lg-opme as log
field nm-fornecedor like insumos.nm-fornecedor.
field rw-insumos as rowid
field lg-atribuicao as log format "Sim/Nao"
field cd-principio-ativo like insumos.cd-principio-ativo.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0112c.p.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0112c.p:
"TROCA-EXEC"
"FINAL-MODIFICAR"
cd-insumo – Código do insumo da tabela insumos.
cd-tipo-insumo – Código do tipo de insumos da tabela insumos.
lg-opme – Indica se o insumo é o do tipo OPME. Se sim será visualizado os prestadores do tipo 98 senão o campo continua livre para digitação.
nm-fornecedor - É o nome do fornecedor ou nome do prestador se o insumo for do tipo OPME.
rw-insumos – é o rowid da tabela insumos.
lg-atribuicao – variável que define se irá ser exigido a autorização do insumo ou não.
Cd-principio-ativo – código do principio ativo.
Tabela de saída tmp-cpc-rc0112c-saida
def temp-table tmp-cpc-rc0112c-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field nm-fornecedor as char format "x(42)"
field cd-unidade as int
field cd-prestador as int
field lg-atribuicao as log format "Sim/Nao"
field lg-principio-ativo 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-relatório – Deve conter mensagens de erro ou qualquer 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.
nm-fornecedor – Retorna o nome do prestador da tabela preserv quando o insumo for do tipo opme.
cd-unidade – é o código da unidade do prestador da tabela preserv.
cd-prestador – é o código do prestador da tabela preserv.
lg-atribuicao – variável que irá retornar SIM/NÃO para a exigência de autorização do insumo.
Lg-principio-ativo – Retorna se o campo principio ativo for branco.