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