English
Español
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:<div class="Code"><p>xNumEmp = R110FIC.NumEmp;<br></br>xCodFic = R110FIC.CodFic;<br></br>RetornaPrxVacinas("INICIO", xNumEmp, xCodFic, xCodRem, xDatPrx, xSeqDos, xCodAte, xCodCam, xSeqCam, xTabOrg, xNumLoc);<br></br>Se (xCodRem = 0)<br></br>Cancel(1);<br></br>Senao<br></br>Inicio<br></br>@ Código da Vacina @<br></br>FCodVac = xCodRem;<br></br>@ Data de Solicitação da Vacina @<br></br>FDatPrx = xDatPrx;<br></br>FSeqDos = xSeqDos;<br></br>FCodCam = xCodCam;<br></br>FSeqCam = xSeqCam;<br></br>ListaSecao ("Adicional_Vacinas");<br></br>Fim;<br></br><br></br>Enquanto (xCodRem <> 0)<br></br>Inicio<br></br>RetornaPrxVacinas("PROXIMO", xNumEmp, xCodFic, xCodRem, xDatPrx, xSeqDos, xCodAte, xCodCam, xSeqCam, xTabOrg, xNumLoc);<br></br>Se (xCodRem = 0)<br></br>Cancel(1);<br></br>Senao<br></br>Inicio<br></br>@ Código da Vacina @<br></br>FCodVac = xCodRem;<br></br>@ Data de Solicitação da Vacina @<br></br>FDatPrx = xDatPrx;<br></br>FSeqDos = xSeqDos;<br></br>FCodCam = xCodCam;<br></br>FSeqCam = xSeqCam;<br></br>ListaSecao ("Adicional_Vacinas");<br></br>Fim;</p></div>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
