Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLCODCONS - Troca de Código
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

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})