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.