Ponto-de-Entrada: PLSTRATQ - Regra de Quantidade
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
O Ponto de Entrada PLSTRATQ é utilizado para checar a regra específica de quantidade de um Procedimento.
Programa Fonte
PLSXAUT
Sintaxe
PLSTRATQ - Regra de Quantidade ( [ cMatrUsr ], [ dData ], [ cHora ], [ cCdTbPd ], [ cCodPro ], [ nQtdSoli ], [ cLOCALExec ], [ aDadRDA ], [ nRegBD6 ], [ cCid ], [ aRet ], [ cDente ], [ cFaces ] ) --> aArray
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cMatrUsr | Caracter | Código da matrícula do usuário | |||||||||||||||
| dData | Data | Data do evento | |||||||||||||||
| cHora | Caracter | Hora do evento | |||||||||||||||
| cCdTbPd | Caracter | Código da Tabela Padrão Saúde | |||||||||||||||
| cCodPro | Caracter | Código do procedimento | |||||||||||||||
| nQtdSoli | Numérico | Quantidade solicitada | |||||||||||||||
| cLOCALExec | Caracter | Código do local de execução | |||||||||||||||
| aDadRDA | Array of Record | Array com dados da Rede de Atendimento | |||||||||||||||
| nRegBD6 | Numérico | Número do registro da BD6 (Eventos das Contas Médicas) | |||||||||||||||
| cCid | Caracter | Código do CID | |||||||||||||||
| aRet | Array of Record | Array que trata a regra do executante | |||||||||||||||
| cDente | Array of Record | Dente | |||||||||||||||
| cFaces | Array of Record |
Retorno
-
aArray(array_of_record)
- Posição[1] = "0" Ponto de Entrada não autorizou o procedimento.Posição[1] = "1" Ponto de Entrada não faz nada. Posição[1] = "2" Ponto de Entrada autorizou o procedimento. Posição[2] = "Texto para ser mostrado na crítica."
Exemplos
User Function PLSTRATQ()Local cMatrUsr := ParamIXB[1]Local dData := ParamIXB[2]Local cHora := ParamIXB[3]Local cCdTbPd := ParamIXB[4]Local cCodPro := ParamIXB[5]Local nQtdSoli := ParamIXB[6]Local cLOCALExec := ParamIXB[7]Local aDadRDA := ParamIXB[8]Local nRegBD6 := ParamIXB[9]Local cCid := ParamIXB[10]Local aRet := ParamIXB[11]Local cDente := ParamIXB[12]Local cFaces := ParamIXB[13]Local aArray := {"0"}If cCodPro == "10101012" //Procedimento autorizado aArray[1] := "1" Else aArray[1] := "0" aArray[2] := "Atendimento não autorizado."EndIfReturn(aArray)