Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLCODCONS - Troca de Código

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PLCODCONS - Troca de Código
PLCODCONS - Troca de Código

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nRegBBDNuméricoRecno da tabela BBD posicionado
cCodPadArray of RecordCódigo da tabela carregada pelo sistemaX
cCodProArray of RecordCódigo do procedimento carregado pelo sistemaX
cCodLocArray of RecordLocalidade (Registro BBD_CODLOC posicionado)
cCodEspArray of RecordEspecialidade (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})