Ponto-de-Entrada: PLSTRATP - Regra de Periodicidade
| Abrangências: | Microsiga Protheus 10 |
| Versões: | Todas |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
Ponto de entrada para checar regra especifica periodicidade.
Programa Fonte
PLSXAUT
Sintaxe
PLSTRATP - Regra de Periodicidade ( [ cMatrUsr ], [ dData ], [ cHora ], [ cCdTbPd ], [ cCodPro ], [ nQtdSoli ], [ nPerioPer ], [ cUniPer ], [ cLOCALExec ], [ aDadRDA ], [ nRegBD6 ], [ cCid ], [ cAlias ], [ aRet ], [ cDente ], [ cFace ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cMatrUsr | Caracter | Matricula do usuário. | |||||||||||||||
| dData | Caracter | Data para verificacao da periodicidade | |||||||||||||||
| cHora | Caracter | cHora | |||||||||||||||
| cCdTbPd | Caracter | Tabela Padrao Saude | |||||||||||||||
| cCodPro | Caracter | Codigo Procedimento | |||||||||||||||
| nQtdSoli | Array of Record | Quantidade solicitada | |||||||||||||||
| nPerioPer | Numérico | Código do período. | |||||||||||||||
| cUniPer | Caracter | Unidade do período. | |||||||||||||||
| cLOCALExec | Caracter | Local de execução | |||||||||||||||
| aDadRDA | Array of Record | Dados da rede de atendimento. | |||||||||||||||
| nRegBD6 | Numérico | Número do registro no BD6 | |||||||||||||||
| cCid | Caracter | Código da CID. | |||||||||||||||
| cAlias | Caracter | Código do Alias da tabela. | |||||||||||||||
| aRet | Array of Record | Array contendo a critica atual. | |||||||||||||||
| cDente | Array of Record | Codigo do Dente (Atendimento Odontologico) | |||||||||||||||
| cFace | Array of Record | Codigo da face(Atendimento Odontologico) |
Retorno
-
aRet(array_of_record)
- Posição[1] = "0" Ponto de entrada não autorizou a guia."1" Ponto de entrada não faz nada."2" O ponto de entrada autorizou o procedimento.Posição[2] = "Texto para ser mostrado na critica."
Exemplos
User Function PLSTRATP() Local cMatrUsr := paramixb[1] Local dData := paramixb[2] Local cHora := paramixb[3] Local cCdTbPd := paramixb[4] Local cCodPro := paramixb[5] Local aAtendAp := {"0"} If cCodPro == "10101012" //Procedimento autorizado aAtendAp[1] := "1" Else aAtendAp[1] := "0" aAtendAp[2] := "Atendimento não autorizado." EndIf Return aAtendAp
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |