CPC-RC0112C.P

• 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.