CarregaPrxVacinas

Esta função é utilizada no modelo do relatório Relação das Próximas Vacinas (SMVA001).

Sintaxe: CarregaPrxVacinas(Numero xDatIni, Numero xDatFim, Alfa xDatRef, Numero xDatVac, Numero xDiaSol, Numero xCodAte, Alfa xGerAbe, Numero xDosVen, Alfa xAbrLoc, Alfa xAbrCar, Alfa xAbrRem, Alfa xAbrFic, Alfa xAbrTcl, Alfa xAbrCad, Alfa xAbrFil);
 

Parâmetros:

Nome Tipo Descrição
xDatIni

Numérica

Informar a data inicial, a partir da qual serão geradas as vacinas.
xDatFim Numérica Informar a data final, até a qual deverão ser geradas as vacinas.
xDatRef

Alfanumérica

Indica qual data deverá ser considerada para buscar as vacinas ("I" - Data de início, "T" - Data de término). A rotina então buscará todas as vacinas ativas na data informada e para isto irá considerar as datas de término de cada vacina cadastrado como periódico e a data de término do PCMSO.
xDatVac Numérica Informar a data que deverá constar como data da solicitação nas solicitações das vacinas. Se não houver data, será considerada a periodicidade normal das vacinas conforme indicado no cadastrado do exame (vacina).
xDiaSol Numérica Informar quantidade de dias da solicitação.
xCodAte Numérica Informar o atendente responsável pelas solicitações das vacinas geradas.
xGerAbe Alfanumérica Indicar qual procedimento a ser adotado quando existirem solicitações em aberto. "G" - Gerar Nova Conforme Dias, "N" - Não gerar. Quando usada a opção "G", a função passa a considerar o parâmetro xDiaSol.
xDosVen Numérica Indicar qual procedimento a ser adotado quando uma vacina tiver diversas doses e uma delas estiver vencida: 0 - repetir, 1 recomeçar, 2 - continuar.
xAbrLoc Alfanumérica Informar abrangência de local.
xAbrCar Alfanumérica Informar abrangência de cargo.
xAbrRem

Alfanumérica

Informar abrangência de medicamento (vacina).
xAbrFic

Alfanumérica

Informar abrangência de código de ficha médica.
xAbrTcl

Alfanumérica

Informar abrangência de tipo de colaborador.
xAbrCad

Alfanumérica

Informar abrangência de cadastro.
xAbrFil

Alfanumérica

Informar abrangência de filial.

Tipo de Retorno: quantidade de solicitações geradas.

Utilização: deve ser usada junto com a função SetaEmpresaPrxVacinas, conforme exemplo.

Exemplo:

SetaEmpresaPrxVacinas(ENumEmp);
xQtdVac = CarregaPrxVacinas(EDatIni, EDatRef, xConCam, EDatVac, xDiaSol, xCodAte, xSolAbe, xDosVen, EAbrLoc, EAbrCar, EAbrRem, EAbrFic, EAbrTcl, EAbrCad, EAbrFil);
Se (xQtdVac = 0)
Cancel(1);

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

Este artigo ajudou você?