Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CPC-RC0112C.P

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

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.