...
O modelo atual estimula a enxertia de códigos. Na lista os procedimento foram calculados em um modelo que valoriza o procedimento principal e aplica um fator decrescente de participação, pois o que deve ser valorizado é o procedimento principal.
Image Removed
Image Added
A tabela acima deve ser refletida no cadastro de vias de acesso.
...
Observação: Segundo manual do PTU: Única Via = 0, Mesma Via = 1 e Diferentes Vias = 2. Valores informados na coluna Cod EDI.
Exemplo:
Image Removed
Image Added
- Também é necessário ter o DE/PARA TISS cadastrado corretamente com a terminologia 61 (Via de Acesso). Isso para que seja gravado nas guias o código correto da via de acesso.
O sistema considera para Lista Referenciada as guias que tem o campo via de acesso (BD6_VIA) preenchido com as vias: Mesma Via ou Vias Diferentes.
Image Removed
Image Added
Guia:
Agora um teste de Exemplo utilizando uma guia:
...
Repare que o sistema grava os percentuais considerando o maior valor 100% e o menor valor 10%.
Beneficiário do PEA:
No caso de beneficiários do PEA, o sistema procura dados no Subcontrato Aba "Parâmetros de Pagamento por Tipo de Prestador". Neste nível foi criado os campos BMF_CODTAB e BMG_CODTAB, onde você informará qual tabela deve ser considerada para o PEA.
Image Added
04. DEMAIS INFORMAÇÕES
Criação do campo Código Tabela (BA0_LISREF).
Campo | Tipo | Tamanho | Decimal | Nome | Propriedade | Inicializador Padrão | Validação | Consulta | Lista de Opções | Visual | Contexto | Modo Edição | Usado | Browse |
---|
BA0_LISREF | Caracter | 1 | 0 | Lista Referenciada | Alterar |
| PERTENCE("12" ) |
| 1=Sim;2=Não | Alterar | Real |
GetNewParPLSUNI | Sim | Sim |
BGR_POSREF | Caracter | 1 | 0 | Orderm Lista Referenciada | Alterar |
| Pertence("123456789") |
|
| Alterar | Real |
GetNewParPLSUNI | Sim | Sim |
BR8_LISREF | Caracter | 1 | 0 | Lista Referenciada | Alterar |
| PERTENCE("12" ) |
| 1=Sim;2=Não | Alterar | Real |
GetNewParPLSUNIPLSLRF","0") =="1" | Sim | Sim |
BMF_CODTAB | Caracter | 3 | 0 | Código Tabela | Alterar |
| IIF(EMPTY(M->BMF_CODTAB),.T.,PlsSeek("BF8",1,PLSINTPAD()+M->BMF_CODTAB)) | B72PLS |
| Alterar | Real |
GetNewParPLSUNIPLSLRF","0") =="1" | Sim | Sim |
BX6_PERVAC | Numérico | 16 | 2 | Percentual Via Cobrança |
Alterar | Visualizar |
|
|
|
| Alterar | Real | GETNEWPAR("MV_PLSLRF","0") =="1" | Sim | Sim |
BME_CODTAB | Caracter | 3 | 0 | Código Tabela | Visualizar | CTabBME |
|
|
| Visualizar |
AlterargetNewParPLSUNIPLSLRF","0") =="1" | Sim | Sim |
BMG_CODTAB | Caracter | 3 | 0 | Código Tabela | Visualizar | cTabBMG |
|
|
|
| Visualizar | Real | GETNEWPAR("MV_PLSLRF","0") =="1" | Sim | Sim |
BMEBMD_CODTAB | Caracter | 3 | 0 | Código Tabela |
Visualizar | CTABBME | Alterar |
| IIF(EMPTY(M->BMD_CODTAB),.T.,PlsSeek("BF8",1,PLSINTPAD()+M->BMD_CODTAB)) | B72PLS |
| Alterar | Real | GETNEWPAR("MV_PLSLRF","0") =="1" | Sim | Sim |
Ajuste no dicionário de Dados SX3
Campo | Validação |
---|
BGR_CODVIAExistChav("BGR",M->BGR_CODINT+M->BGR_CODVIA+M->BGR_POSREF) |
|
Criação de Índice na tabela BGR.
...