HSPSTAAPAC - Status alteração questionário SUS

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).
Por padrão, o sistema permite a alteração dos registros na inclusão e alteração para o Status (GK7_STATUS) com os conteúdos "0" ou "4".

HSPAHM12

HSPSTAAPAC - Status alteração questionário SUS ( [ cCdQues ] ) --> aRet

aRet(array_of_record)
• Array contendo:
  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"

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.

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)