Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • HSPSTAAPAC - Status alteração questionário SUS

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
HSPSTAAPAC - Status alteração questionário SUS
HSPSTAAPAC - Status alteração questionário SUS

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).
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".
Eventos

Programa Fonte 
HSPAHM12
Sintaxe

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

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
cCdQuesCaracterCódigo do questionário posicionado (GK7_CDQUES)
Retorno
    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"
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)