Histórico da Página
...
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.
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:
- 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.
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.
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 | GetNewPar("MV_PLSUNI","0") == "1" | Sim | Sim | ||
BGR_POSREF | Caracter | 1 | 0 | Orderm Lista Referenciada | Alterar | Pertence("123456789") | Alterar | Real | GetNewPar("MV_PLSUNI", "0") == "1" | Sim | Sim | |||
BR8_LISREF | Caracter | 1 | 0 | Lista Referenciada | Alterar | PERTENCE("12" ) | 1=Sim;2=Não | Alterar | Real | GetNewPar("MV_PLSUNI", "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 | GetNewPar("MV_PLSUNI", "0") == "1" | Sim | Sim | ||
BX6_PERVAC | Numérico | 16 | 2 | Percentual Via Cobrança |
Visualizar | Alterar | Real | getNewPar("MV_PLSUNI","0") == "1" | Sim | Sim | |||||||||
BME_CODTAB | Caracter | 3 | 0 | Código Tabela | Visualizar | CTabBME | Visualizar | Real | Sim | Sim | ||||
BMG_CODTAB | Caracter | 3 | 0 | Código Tabela | Visualizar | cTabBMG |
B72PLS | Visualizar | Real | GetNewPar("MV_PLSUNI","0") == "1" | Sim | Sim | |||||||||
BMD_CODTAB | Caracter | 3 | 0 | Código Tabela | Alterar | IIF(EMPTY(M->BMD_CODTAB),.T.,PlsSeek("BF8",1,PLSINTPAD()+M->BMD_CODTAB)) |
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.
...