Linha de Produto: | Microsiga Protheus |
Segmento: | Saúde |
Módulo: | Plano de Saúde |
Rotina: | PLSA09A - Anexos Clínicos |
Ponto de Entrada: | PL09AFIM |
Banco(s) de Dados: | Todos |
Tabelas Utilizadas: | B4A - Cabeçalho Anexos |
Implementada chamada ao ponto de entrada PL09AFIM ao final da rotina de Anexos Clínicos nas operações de Inclusão, Exclusão e Cópia, para que seja possível realizar tratamentos adicionais após a manutenção do Anexo.
Descrição: | Ponto de entrada para tratamentos adicionais após inclusão da Guia de Anexo. | ||||||||||||||||||||||||
Localização: | Atualizações/Atendimento/Anexos Clinicos | ||||||||||||||||||||||||
Eventos: | Incluir, Excluir e Copiar | ||||||||||||||||||||||||
Programa Fonte: | PLSA09A.prw | ||||||||||||||||||||||||
Função: | PLS09AMov - Movimentação de Anexos Clínicos | ||||||||||||||||||||||||
| Parâmetros: |
| ||||||||||||||||||||||||
Retorno: | nulo |
#include 'protheus.ch'
#define INCLUSAO 3
#define EXCLUSAO 5
#define COPIA 6
user function PL09AFIM()
local cTp := ParamIXB[1] //Tipo de Anexo
local nOpc := ParamIXB[2] //Operacao
local cOpeMov := ParamIXB[3] //Operadora
local cAnoAut := ParamIXB[4] //Ano da autorizacao
local cMesAut := ParamIXB[5] //Mes da autorizacao
local cNumAut := ParamIXB[6] //Numero da autorizacao
local lAuditoria := ParamIXB[7] //Indica se a guia foi enviada para auditoria
local cChave := ""
local cTipAnx := ""
local cOperacao := ""
//Monta a chave da guia
cChave := cOpeMov + "." + cAnoAut + "." + cMesAut + "." + cNumAut
//Verifica o tipo de Anexo
do case
case cTp == "07"
cTipAnx := "ANEXO QUIMIOTERAPIA"
case cTp == "08"
cTipAnx := "ANEXO RADIOTERAPIA"
case cTp == "09"
cTipAnx := "ANEXO OPME"
endcase
//Verifica o tipo de operacao
do case
case nOpc == EXCLUSAO
cOperacao := "Exclusão"
case nOpc == INCLUSAO
cOperacao := "Inclusao"
case nOpc == COPIA
cOperacao := "Copia"
endcase
//Exibe alerta
MsgInfo ("P.E. PL09AFIM" + CRLF + CRLF + ;
"Guia: " + cChave + CRLF + ;
"Tipo de Anexo: " + cTipAnx + CRLF + ;
"Operação: " + cOperacao + CRLF)
return