Este ponto de entrada permite definir o prefixo adequado para o título a receber regado pelo plano de saúde de acordo com a operação executada pelo módulo.
Ponto de chamada: É executo antes de gerar o número do título, já que a numeração é definida a partir do prefixo.
Exemplo do ponto de entrada
User Function PLPREFE1()
LOCAL cPrefix := PARAMIXB[1]
LOCAL cNumero := PARAMIXB[2]
LOCAL cAno := PARAMIXB[3]
LOCAL cMes := PARAMIXB[4]
LOCAL aChaves := {}
LOCAL cNivCob := ''
LOCAL cChave := ''
LOCAL cCodEmp := ''
// Retorna caso seja chamado pelo intercambio eventual.
If Type('M->BDC_TIPO') <> 'C'
Return(cPrefix)
Endif
aChaves := aClone(PARAMIXB[5]) // Matriz com os níveis de cobrança.
cNivCob := PARAMIXB[6] // Nível de cobrança.
cChave := aChaves[Val(cNivCob)] // Pega a chave do nivel de cobranca.
cCodEmp := Substr(cChave, 5,4) // Pega o codigo da empresa do nivel de cobranca
If M->BDC_TIPO == '1' // Para pessoa Juridica
If cCodEmp == '0013' //Caso Seja Empresa 0013
cPrefixo := 'PLA'
Else
cPrefixo := 'FLJ'
Endif
Else // Para pessoa física.
If cCodEmp == '8005' // Caso seja empresa 8005
cPrefixo := 'PLA'
Else
cPrefixo := 'FLF'
Endif
Endif
Return(cPrefixo)