CarregaExamesPrevistosDep

Esta função não é utilizada em nenhum modelo da cópia. Fica disponível para ser utilizada em algum modelo específico de cliente que deseja considerar também os exames dos dependentes. 

Observação

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

Sintaxe: CarregaExamesPrevistosDep(Numero xIni, Numero xFim, Alfa xOrd, Alfa xOri, Alfa xExa, Alfa xFic, Alfa xLoc, Alfa xCar, Alfa xTur, Alfa xTcl, Alfa xCad, Alfa xFil, Alfa xSit, Alfa xPPP)

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.
Posição 2 = Agrupamento:
'C' - Código do Local;
'N' - Nome do Local.
Exemplo: "EC"; "EN"; "TC"; etc.
xOri Alfa Origem do exame.
xExa Alfa Abrangência de exame.
xFic Alfa Abrangência da ficha médica.
xLoc Alfa Abrangência de local.
xCar Alfa Abrangência de cargo.
xTur Alfa Abrangência de turno.
xTcl Alfa Abrangência de tipo de colaborador.
xCad Alfa Abrangência de cadastro.
xFil Alfa Abrangência de filial.
xSit Alfa Abrangência de situação.
xPPP Alfa Opção para carregar somente os Exames que são considerados no PPP.

Exemplo:

xOriExa = "PD"; /* [P]eriódico e [D]emissional */
xAbrExa = EAbrExa;
xAbrFic = " ";
xAbrLoc = EAbrLoc;
xAbrCar = " ";
xAbrTur = " ";
xAbrTcl = " ";
xAbrCad = " ";
xAbrSit = " ";
xCodFil = R030FIL.CodFil;
xAbrFil = formatar (R030FIL.CodFil,"%4.0f");
EExaPPP = EExaPPP + "C"; /* Não irá listar os exames com situação cancelado */
xTipOrdAgr = ETipOrd + ETipAgr;
/* ATENÇÃO: A carga dos exames REALIZADOS deve ser feita sempre ANTES da carga dos exames PREVISTOS */
CarregaExamesRealizados(xDatIni, xDatFim, xTipOrdAgr, xOriExa, xAbrExa, xAbrFic, xAbrLoc, xAbrCar, xAbrTur, xAbrTcl, xAbrCad, xAbrFil, xAbrSit, EExaPPP);
CarregaExamesPrevistosDep(xPrxIni, xPrxFim, xTipOrdAgr, xOriExa, xAbrExa, xAbrFic, xAbrLoc, xAbrCar, xAbrTur, xAbrTcl, xAbrCad, xAbrFil, xAbrSit, EExaPPP);
xRet = RetExaCarregados("I", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno, xQtdPre);
RetornaCodLoc(xNumLoc, xCodLoc);

Utilização: Esta função pode ser utilizada em modelos específicos, na seção Seleção, somente no gerador de relatórios. O retorno das informações carregadas nesta função é obtido através da função "RetExaCarregados".

Este artigo ajudou você?