Gestão de Pessoas - Manual do Usuário > Customizações > Funções > RetornaPrxExamesLoc

RetornaPrxExamesLoc

Esta função retorna o código do exame, data do último exame, data do próximo exame e motivo do exame na tabela de Relação de Próximos Exames. Esta função é utilizada somente em um modelo da cópia (SMPC008.GER - Relação de Próximos Exames).

Sua funcionalidade depende da função InicializaPrxExamesLoc.

Sintaxe: RetornaPrxExamesLoc(xPosicao,xCodFic,xCodExa,xDatUlt,xDatPro,xMotExm,xOriExa,aOrdem);

Parâmetros:

Nome	Tipo	Descrição
xPosicao	Alfa	Posição de seleção dos dados
xCodFic	Numérico	Código da ficha.
xCodExa	Numérico	Retorna o código do exame.
xDatUlt	Numérico	Retorna a data do último exame.
xDatPro	Numérico	Retorna a data do próximo exame.
xmotExm	Alfa	Retorna a descrição do motivo do exame.
xOriExa	Numérico	Retorna a origem do exame .
aOrdem	Numérico	Retorna o tipo de ordem a utilizar: 1 = Ficha Médica/Código do Exame; 2 = Ficha Médica/Data Próximo Exame; 3 = Ficha Médica/Descrição do Exame.

Exemplo:

Deseja-se saber o último, o próximo e o motivo do exame referente ao local "020309 - Consultoria Geral".

Primeiro deve-se inserir a função InicializaPrxExamesLoc numa seção de Pré-Seleção, para que os dados sejam carregados somente uma vez.

Definir Numero xdatini;
Definir Numero xdatfim;
Definir Alfa xabrexa;
Definir Alfa xcodfic;
Definir Alfa xoriexa;
Definir Alfa xabrloc;
Definir Alfa xabrcar;
Definir Alfa xabrtur;
Definir Alfa xabrtcl;
Definir Alfa xabrcad;
Definir Alfa xabrfil;
Definir Alfa xabrsit;
Definir Alfa xcodrqu;

InicializaPrxExamesLoc (xDatIni, xDatFim, xAbrExa, xCodFic, xOriExa, xAbrLoc, xAbrCar, xAbrTur, xAbrTcl, xAbrCad, xAbrFil, xAbrSit, xCodRqu);

Depois, deve-se inserir a função RetornaPrxExamesLoc numa seção de Seleção, com a variável xPosicao = "INÍCIO" para selecionar o primeiro dado carregado.

Definir Alfa xposicao;
Definir Numero xcodfic;
Definir Numero xcodexa;
Definir Numero xdatult;
Definir Numero xdatpro;
Definir Alfa xmotexm;

xposicao = "INICIO"

RetornaPrxExamesLoc (xPosicao, xCodFic, xCodExa, xDatUlt, xDatPro, xMotExm);

Para retornar os demais dados, é só inserir a função RetornaPrxExamesLoc com a variável xPosicao = "PROXIMO", assim, será carregado sempre o próximo dado.

xposicao = "PROXIMO"

RetornaPrxExamesLoc (xPosicao, xCodFic, xCodExa, xDatUlt, xDatPro, xMotExm, xOriExa, aOrdem);

Utilizado em Regra de Seleção para retornar o código do exame , data do último exame , data do próximo exame, motivo do exame na tabela de Relação de Próximos Exames, a origem e a ordem de geração(1 = Ficha Médica/Código do Exame; 2 = Ficha Médica/Data Próximo Exame ou 3 = Ficha Médica/Descrição do Exame).

Observação: É necessário informar a ordenação apenas quando uma vez, ou seja, quando informar "INICIO" no primeiro parâmetro, não há necessidade de passar uma ordenação a cada retorno "PROXIMO", neste caso pode ser passado o valor zero.

Utilização: Gerador de relatórios e editor de regras.

Disponível para o módulo: SM.