RetExaCarregados

Função que retorna os Exames Realizados/Anormais/Previstos.

Esta função é específica do modelo SMPC011 e é utilizada na seção Seleção com o parâmetro xTipOpe = "I". É utilizada também na seção Detalhe com o parâmetro xTipOpe = "P". A vantagem desta função em relação a sua antecessora  (RetExaCarregadosLoc)  é que a antiga carrega os exames de um local por vez, e esta carrega todos os locais ou de uma abrangência.

Sua funcionalidade depende das funções "CarregaExamesPrevistos" e "CarregaExamesRealizados".

Sintaxe: RetExaCarregados(Alfa xTipOpe, Numero End xTabOrg, Numero End xNumLoc, Alfa End xNomLoc, Alfa End xDesExa, Numero End xQtdRea, Numero End xQtdAno, Numero End xQtdPre)

Parâmetros:

Nome Tipo Descrição
xTipOpe Alfa Parâmetro 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.
xTabOrg Numérico Retorno do Organograma.
xNumLoc Numérico Retorno do Local onde o exame foi realizado.
xNomLoc Alfa Retorno do Nome do Local onde o exame foi realizado.
xDesExa Alfa Parâmetro do tipo Alfa que 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.

Tipo do Retorno: Preenche as variáveis xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno e xQtdPre.

Exemplo:

/* = Seção Seleção = */

xRet = RetExaCarregados("I", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno, xQtdPre);

Se (xRet <> 0)

Cancel(1);

 

/* = Seção Detalhe = */

Enquanto (xRet = 0)

{

AlteraControle("DEDesOri","Descrição",xDesExa);

FANroExa = xQtdRea;

FANroAno = xQtdAno;

FANroPrx = xQtdPre;

ListaSecao("Adicional_1");

xRet = RetExaCarregados("P", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno, xQtdPre);

}

Utilização: Gerador de relatórios.

Este artigo ajudou você?