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

RetornaPrxVacinas

Esta função é utilizada no modelo da cópia (SMVA001.GER - Relação das Próximas Vacinas).

Sintaxe: RetornaPrxVacinas(Alfa xPosicao, Numero xNumEmp, Numero xCodFic, Numero End xCodRem, Numero End xDatSol, Numero End xSeqDos, Numero End xCodAte, Numero End xCodCam, Numero End xSeqCam, Numero End xTabOrg, Numero End xNumLoc);

Parâmetros:

Nome	Tipo	Descrição
xPosicao	Alfanumérica	Contém a posição de seleção dos dados. Os valores possíveis são: INICIO ou PROXIMO.
xNumEmp	Numérica	Informar qual a empresa da ficha médica que deseja consultar as próximas vacinas.
xCodFic	Numérica	Informar qual a ficha médica que deseja consultar as próximas vacinas.
xCodRem	Numérica	Retornará o código da vacina (Medicamento).
xDatSol	Numérica	Retornará a data de solicitação da vacina.
xSeqDos	Numérica	Retornará a dose (sequência) da vacina.
xCodAte	Numérica	Retornará o código do atendente responsável pela aplicação da vacina.
xCodCam	Numérica	Retornará o código da campanha de vacinação.
xSeqCam	Numérica	Retornará o sequência da campanha de vacinação.
xTabOrg	Numérica	Retornará a tabela de organograma da ficha médica em questão.
xNumLoc	Numérica	Retornará o local de organograma da ficha médica em questão.

Exemplo:

xNumEmp = R110FIC.NumEmp;
xCodFic = R110FIC.CodFic;
RetornaPrxVacinas("INICIO", xNumEmp, xCodFic, xCodRem, xDatPrx, xSeqDos, xCodAte, xCodCam, xSeqCam, xTabOrg, xNumLoc);
Se (xCodRem = 0)
Cancel(1);
Senao
Inicio
@ Código da Vacina @
FCodVac = xCodRem;
@ Data de Solicitação da Vacina @
FDatPrx = xDatPrx;
FSeqDos = xSeqDos;
FCodCam = xCodCam;
FSeqCam = xSeqCam;
ListaSecao ("Adicional_Vacinas");
Fim;

Enquanto (xCodRem <> 0)
Inicio
RetornaPrxVacinas("PROXIMO", xNumEmp, xCodFic, xCodRem, xDatPrx, xSeqDos, xCodAte, xCodCam, xSeqCam, xTabOrg, xNumLoc);
Se (xCodRem = 0)
Cancel(1);
Senao
Inicio
@ Código da Vacina @
FCodVac = xCodRem;
@ Data de Solicitação da Vacina @
FDatPrx = xDatPrx;
FSeqDos = xSeqDos;
FCodCam = xCodCam;
FSeqCam = xSeqCam;
ListaSecao ("Adicional_Vacinas");
Fim;

Utilização: Depende da execução da função CarregaPrxVacinas.

Disponível para o módulo: SM, no gerador de relatórios.