GerSolExa_ConsultarListaExames

Permite percorrer a lista de exames a serem apresentados na tela Gera Solicitação/Agendamento, chamada a partir da tela Geração de Solicitação de Exames (FRGERSOL).

Sintaxe: GerSolExa_ConsultarListaExames(Alfa TipOpe, Numero End NumEmp, Numero End CodFic, Numero End CodExa, Data End DatSol);

Parâmetros:

Nome Tipo Descrição
TipOpe Alfa Tipo de Operação: "I - Início" ou "P - Próximo"
NumEmp Numérico Retorna o código da empresa
CodFic Numérico Retorna o código da ficha médica
CodExa Numérico Retorna o código do exame
DatSol Data Retorna a data da solicitação do exame

Exemplo:

xTem = GerSolExa_ConsultarListaExames("I", xNumEmp, xCodFic, xCodExa, xDatSol);
Enquanto (xTem = 0) {
  Se ((xNumEmp = 1) e (xCodFic = 1010003))
    { GerSolExa_RemoverExameLista(); }
  xTem = GerSolExa_ConsultarListaExames("P", xNumEmp, xCodFic, xCodExa, xDatSol);
}

Utilização: Regra vinculada ao processo 885 - Geração de Solicitação de Exames.

Este artigo ajudou você?