Ponto-de-Entrada: PLS315VS - Controle de Alteração de Status
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada PLS315VS na função ValidStatu, após a verificação de status do paciente.
Objetivo: Permite o controle da mudança de status de um paciente agendado na funcionalidade de recepção.
Programa Fonte
PLSA315.PRW
Sintaxe
PLS315VS - Controle de Alteração de Status ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> , < ParamIxb[4]> ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Numérico | Recno do registro da tabela BBD (agendas). | X | ||||||||||||||
| ParamIxb[2] | Array of Record | Array aStatus contendo os status possíveis. | X | ||||||||||||||
| ParamIxb[3] | Numérico | Opção escolhida a partir do array aStatus (para qual status esta sendo alterado). | X | ||||||||||||||
| ParamIxb[4] | Numérico | Opção escolhida antiga escolhida dentro do array aStatus (qual status estava antes da alteração). | X |
Retorno
-
lRet(logico)
- Lógico sendo verdadeira (true) caso seja possível continuar ou falso (false) caso não seja possível continuar.
Exemplos
User Function PLS315VS()LOCAL nRecBBD := Paramixb[1]LOCAL aStatus := paramixb[2]LOCAL nTipo := paramixb[3]LOCAL nPos := paramixb[4]LOCAL lRet := .T.// Para garantir o posicionamentoBBD->( dbGoto(nRecBBD) )DbSelectArea("BEA")BEA->( DbSetorder(13) )If !BEA->( MsSeek(xFilial("BEA")+BBD->BBD_NUMATE) ) .or. Empty(BBD->BBD_NUMATE) MsgInfo("El cambio de Status del agenda solo sera permitido después del generacion del encaminamento.Tome la acción de encaminar para espués cambiar el Status!") lRet := .F.EndifIf lRet .And. aStatus[nTipo,4] < aStatus[nPos,4] MsgInfo("No es posible estornar." ) lRet := .F.Endif If BBD->BBD_STATUS == "6" .And. BEA->BEA_CODRDA == GetNewPar("MV_PLSRDAG","999999") MsgInfo("No es posible cambiar el status con el rda generica.") lRet := .F.Endif Return lRet