cpc-rc0111c.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 inclusão de insumos – rc0111c.p, antes de gravar os registros e depois de gravar os registros.
Ponto de Utilização
"ANTES-GRAVAR" e "DEPOIS-GRAVAR".
"TROCA-EXEC"
"FINAL-INCLUIR"
"DADOS-TNUMM"
Include das definições das tabelas temporárias
cpc-rc0111c.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0111c-entrada
def temp-table tmp-cpc-rc0111c-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 cd-unidade as int
field cd-prestador as int
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-rc0111c.p. Os valores desse campo pode ser:
"ANTES-GRAVAR"
"DEPOIS-GRAVAR".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0111c.i:
"TROCA-EXEC"
"FINAL-CODIGO"
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.
cd-unidade – é o codigo da unidade do prestador da tabela preserv.
cd-prestador – é o código do prestador da tabela preserv.
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-rc111c-saida
def temp-table tmp-cpc-rc0111c-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 like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
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 – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com lg-undo-retry.
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.