CarregaExamesRealizadosGHE

Esta função carrega todos os exames realizados pelos colaboradores, conforme as abrangências definidas, agrupando as informações por GHE.

Observação

Esta função desconsidera os resultados de exames onde o campo Considera Quadro III estiver informado como "N - Não", na tela Resultados Exames (FR108RES).

Sintaxe: CarregaExamesRealizadosGHE(Numero xIni, Numero xFim, Alfa xOrd, Alfa xOri, Alfa xExa, Alfa xLoc, Alfa xFil, Numero xPRA, Alfa xGHE, Alfa xPPP_xSitExa);

Parâmetros:

Nome Tipo Descrição
xIni Numérico Data inicial do período.
xFim Numérico Data final do período.
xOrd Alfa Tipo de ordenação e de agrupamento desejado. Determina o retorno do parâmetro "xDesExa" da função RetExaCarregados. Posição 1 = Ordenação: 'E' - Descrição do Exame; 'T' - Tipo de Origem do Exame; 'O' - Descrição da Origem; 'D' - Descrição do Exame + Descrição da Origem do Exame; 'X' - Descrição da Origem do Exame + Descrição do Exame. Posição 2 = Agrupamento: 'C' - Código do Local; 'N' - Nome do Local.
xOri Alfa Origem do exame.
xExa Alfa Abrangência de exame.
xLoc Alfa Abrangência de local.
xFil Alfa Abrangência de filial.
xPRA Alfa Abrangência de PGR.
xGHE Alfa Abrangência de GHE.
xPPP_xSitExa Alfa Opção para carregar somente os Exames que são considerados no PPP, e também pode ser informado o valor 'C' para que não sejam listado exames com situação 'C-Cancelado'. Ex.: xPPP_xSitExa = 'NC' - Neste caso o 'N' não irá carregar somente os Exames que são considerados no PPP e o 'C' irá desconsiderar os exames de situação Cancelado. Sendo obrigatório apenas o valor a ser considerado no PPP, que é 'S' ou 'N'.

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). O retorno das informações carregadas nesta função é obtido através da função "RetExaCarregadosGHE".

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

Este artigo ajudou você?