Ponto-de-Entrada: PLCODCONS - Troca de Código
Descrição:
O ponto de entrada PLCODCONS é acionado na rotina de Recepção e permite trocar o código da tabela (CodPad) e do procedimento (CodPro) no momento da geração da guia do beneficiário (alteração para Status “Consultório”).
Ponto de chamada: Após o sistema ler o conteúdo do parâmetro MV_PLSCDCO
Programa Fonte
PLSMCTMD
Sintaxe
PLCODCONS - Troca de Código ( [ nRegBBD ], < cCodPad> , < cCodPro> , [ cCodLoc ], [ cCodEsp ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nRegBBD | Numérico | Recno da tabela BBD posicionado | |||||||||||||||
| cCodPad | Array of Record | Código da tabela carregada pelo sistema | X | ||||||||||||||
| cCodPro | Array of Record | Código do procedimento carregado pelo sistema | X | ||||||||||||||
| cCodLoc | Array of Record | Localidade (Registro BBD_CODLOC posicionado) | |||||||||||||||
| cCodEsp | Array of Record | Especialidade (Registro BBD_CODESP posicionado) |
Retorno
-
aRet(array_of_record)
- Array contendo o seguinte formato:
[1] -> cCodPad - Código da tabela
[2] -> cCodPro - Código do procedimento
Exemplos
User Function PLCODCONSLocal nRegBBD := paramixb[1]local cCodPad := paramixb[2]Local cCodPro := paramixb[3]Local cCodLoc := paramixb[4]Local cCodEsp := paramixb[5] //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Troca o código da tabela e procedimento de acordo com o código da especialidade ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙIf cCodEsp == "999" cCodPad := "XX" cCodPro := "XXXXXXX"EndIf Return({cCodPad,cCodPro})