CarregaExamesPrevistos
Esta função é utilizada no modelo da cópia (SMPC011.GER - Quadro III NR-7
Relatório Anual).
Esta função carrega os exames de todos os locais ou de uma abrangência, já a
função CarregaExamesPrevistosLoc carrega os exames de um local por vez.
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: CarregaExamesPrevistos(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, Alfa xConRea);
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. 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 |
xConRea | Alfa | Indica se deve considerar ('S','N') os exames realizados no ano seguinte de acordo o período de referência passado na função. Quando for informado "N" irá desconsiderar os exames que estejam com Situação Exame = R-Realizado. |
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 */
xConRea = "S";
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);
CarregaExamesPrevistos(xPrxIni, xPrxFim, xTipOrdAgr, xOriExa, xAbrExa, xAbrFic,
xAbrLoc, xAbrCar, xAbrTur, xAbrTcl, xAbrCad, xAbrFil, xAbrSit, EExaPPP, xConRea);
xRet = RetExaCarregados("I", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea,
xQtdAno, xQtdPre);
RetornaCodLoc(xNumLoc, xCodLoc);
Utilização:
Esta função é específica do modelo SMPC011.GER do módulo SM (Segurança e Medicina) e é utilizada na seção Seleção. O retorno das informações carregadas nesta função é obtido através da função "RetExaCarregados".