English
Español
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 PGR. |
| 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
English
Español
