import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: HSPSTAAPAC - Status alteração questionário SUS
Descrição:
O ponto de entrada HSPSTAAPAC permite definir os Questionários / Status que permitem a alteração do folder inferior na rotina "Solicitação APAC" (HSPAHM12).
Eventos
Programa Fonte
HSPAHM12
Sintaxe
HSPSTAAPAC - Status alteração questionário SUS ( [ cCdQues ] ) --> aRet
Parâmetros:
Retorno
Observações
Nesse Ponto de Entrada será passado por parâmetro o código do Questionário selecionado.
aRet[1] - Boolean, indicando se utilizará o retorno do Ponto de Entrada ou Status padrões do sistema. .T. - Utiliza o retorno do Ponto de Entrada .F. - Utiliza o padrão do sistema aRet[2] - Caracter indicando os Status que permitirão a alteração. Retornar os Status com espaços. Ex: "0/1/2" Observação: Por padrão, todos os questionários permitem alteração nos Status 0 e 4.
Exemplos
User Function HSPSTAAPACLocal cCdQues := paramixb[1]Local aRet := {}If cCdQues == "SUS099" //Codigo do questionario Aadd(aRet,.T.) //Utilizara o retorno do ponto de entrada Aadd(aRet,"0/1/2/3/4")// Status que permitem alteracao para o quest SUS099Else Aadd(aRet,.F.) //Utilizara o padrao do sistema EndIfReturn(aRet) |