CPC-RC0110C.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 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.