CPC-WAC0017A2.P

• Rotina utilizada para tratar quando o prestador solicitar insumos de OPME e não informar o valor unitário (campo 71), grava a guia de autorização com o prestador executante. Se o valor for informado, a matrícula gravada no prestador executante permanecerá a do hospital.
• 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 Prorrogações para a Solicitação de Guias de Internação no Padrão TISS – wac0072a2.p ao salvar a tela.
• No programa wac0018a1 quando salvar a guia de autorização, faz a consistência de insumos de opme (tabela wk-opm) com prestador padrão (campo valor unitário em branco ) para salvar os campos de insumos.u-int-1 e insumos.u-int-2 com as informações de unidade e código do prestador executante respectivamente.

Ponto de Utilização

"SUBMIT-ESPEC".

Include das definições das tabelas temporárias

• cpc-wac0017a2.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0017a2-entrada

def temp-table tmp-cpc-wac0017a2-entrada no-undo

field in-evento-programa                     as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15)"

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0017a2.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0017a2.i:
    • "SUBMIT-ESPEC".
      
      

Tabela de saída tmp-cpc-wac0017a2-saida

def temp-table tmp-cpc-wac0017a2-saida no-undo

field lg-undo-retry                  as log
field ds-mensagem               as char format "x(75)"

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.