01. DADOS GERAIS
| Produto: | |
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | SIGAPLS - Plano de Saúde |
|---|
| Função: | Layout PTU A1300 (PLSUA1300) |
|---|
| Ticket: | 8706769 |
|---|
| Issue: | DSAUBE-11178 |
|---|
02. REQUISITO
O ponto de entrada que permita manipular a Tag de abrangências do beneficiário, caso o cliente utilize outras tabelas para cadastrar o grupo de município(B9B) e o grupo de estados(B9C).
03. SOLUÇÃO
Ponto de entrada PL1300ABRA criado, que enviará quatro parâmetros:
- Cód. EDI (BF7_CODEDI)
- Cód. Abrang (BF7_CODORI)
- Recno da BA1
- Recno da BI3.
Retorno: Array com todas as abrangência do beneficiário: Sendo com duas posições o array, onde a primeira é para estados e a segunda para município.
- Para Grupo de Municípios: { " ", "1234567" } - Precisa ser preenchido a primeira posição em branco e a segunda com o código do Município com o tamanho de 7.
- Para Grupo de Estados: { "SP" , " " } - Precisa ser preenchido a primeira posição com o Estado e a segunda em branco.
Observação: Caso o beneficiário não tenha abrangências, precisará ser retornado um array vazio: {}
04. EXEMPLO DE USO
Ponto de Entrada
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 | #include "PROTHEUS.CH"
User Function PL1300ABRA()
Local cCodEdi := paramixb[1] // Campo BF7_CODEDI
Local cCodOri := paramixb[2] // Campo BF7_CODORI
Local nRecBA1 := paramixb[3] // Recno do Beneficiário
Local nRecBI3 := paramixb[4] // Recno do Produto Saúde
Local aRet := {} // Retorno
Local aAreaBA1 := BA1->(GetArea())
Local aAreaBI3 := BI3->(GetArea())
// Tratamento para a abrangencia:
// Quando for Grupo de Municpio
aAdd(aRet,{"","1234567"})
// Quando for Grupo de Estado
aAdd(aRet,{"SP",""}) RestArea(aAreaBA1)
RestArea(aAreaBI3)
Return |