Gestão de Pessoas - Manual do Usuário > Customizações > Funções > CarregaExamesRealizados

RetExaCarregadosGHE

Retorna os Exames Realizados/Anormais/Previstos. Esta função é específica do modelo SMPC011 e é utilizada na seção Subtitulo_Filial com os parâmetros xTipOpe = "I" e "P". É utilizada também na seção Detalhe com o parâmetro xTipOpe = "P".

Sua funcionalidade depende das funções CarregaExamesPrevistosGHE e CarregaExamesRealizadosGHE.

Sintaxe: RetExaCarregadosGHE(Alfa xTipOpe, Numero End xCodPRA, Alfa End xDesGHE, Alfa End xDesExa, Numero End xQtdRea, Numero End xQtdAno, Numero End xQtdPre);

Parâmetros:

Nome	Tipo	Descrição
xTipOpe	Alfa	Usado para acessar o início e os próximos registros carregados nas funções CarregaExamesPrevistosLoc e CarregaExamesRealizadosLoc. Seu valor pode ser "I" = Início e "P" = Próximo.

Retorno:

Nome	Tipo	Descrição
xCodPRA	Numérico	Retorno do PPRA.
xDesGHE	Numérico	Retorno da Descrição do GHE
xDesExa	Alfa	Retorna a Descrição do Exame/Tipo da Origem/Descrição da Origem.
xQtdRea	Numérico	Retorno com a quantidade de exames realizados.
xQtdAno	Numérico	Retorno com a quantidade de exames anormais.
xQtdPre	Numérico	Retorno com a quantidade de exames previstos.

Exemplo:

Definir Alfa EAbrExa;

Definir Alfa EAbrLoc;

Definir Alfa EExaPPP;

Definir Alfa EConRea;

Definir Alfa ETipOrd;

Definir Alfa ETipAgr;

Definir Alfa xAbrFil;

Definir Alfa EAbrGHE;

Definir Alfa xDesGHE;

Definir Alfa xDesExa;

Definir Alfa xOriExa;

Definir Alfa xTipOrdAgr;

Definir Numero xCodPRA;

Definir Numero xQtdRea;

Definir Numero xQtdAno;

Definir Numero xQtdPre;

Definir Numero xRet;

xOriExa = "PD"; /* [P]eriódico e [D]emissional */

xAbrFil = formatar (R030FIL.CodFil,"%4.0f");

EExaPPP = EExaPPP + "C"; /* Não irá listar os exames com situação cancelado */

xTipOrdAgr = ETipOrd + ETipAgr;

MontaData(1, 1, 2015, xDatIni);

MontaData(1, 12, 2015, xDatFim);

MontaData(1, 1, 2015, xPrxIni);

MontaData(1, 12, 2015, xPrxFim);

Utilização: Esta função é utilizada no modelo SMPC011 do módulo SM (Segurança e Medicina), na seção Subtitulo_Filial (Evento Depois Imprimir).

Observação:A carga dos exames realizados deve ser feita sempre antes da carga dos exames previstos:

CarregaExamesRealizadosGHE(xDatIni, xDatFim, xTipOrdAgr, xOriExa, EAbrExa, EAbrLoc, xAbrFil, xCodPRA, EAbrGHE, EExaPPP);

CarregaExamesPrevistosGHE(xPrxIni, xPrxFim, xTipOrdAgr, xOriExa, EAbrExa, EAbrLoc, xAbrFil, xCodPRA, EAbrGHE, EExaPPP, EConRea);

xRet = RetExaCarregadosGHE("I", xCodPRA, xDesGHE, xDesExa, xQtdRea, xQtdAno, xQtdPre).

Disponível para os módulos:Segurança e Medicina