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