Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 24

changes.mady.by.user Jose Paulo de Azevedo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Paulo de Azevedo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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 RemovedImage 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 RemovedImage 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 RemovedImage 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).


CampoTipoTamanhoDecimalNomePropriedadeInicializador PadrãoValidaçãoConsultaLista de OpçõesVisualContextoModo EdiçãoUsadoBrowse
BA0_LISREFCaracter10Lista ReferenciadaAlterar
PERTENCE("12" )                                             
1=Sim;2=Não                                                                                                            AlterarReal
GetNewPar
GETNEWPAR("MV_
PLSUNI
PLSLRF","0") =="1"
                          
SimSim
BGR_POSREFCaracter10Orderm Lista ReferenciadaAlterar
Pertence("123456789")

AlterarReal
GetNewPar
GETNEWPAR("MV_
PLSUNI
PLSLRF","0") =="1"
                         
SimSim
BR8_LISREFCaracter10Lista ReferenciadaAlterar
PERTENCE("12" )
1=Sim;2=NãoAlterarReal
GetNewPar
GETNEWPAR("MV_
PLSUNI
PLSLRF","0") =="1"SimSim
BMF_CODTABCaracter30Código TabelaAlterar
IIF(EMPTY(M->BMF_CODTAB),.T.,PlsSeek("BF8",1,PLSINTPAD()+M->BMF_CODTAB))                                                        B72PLS
AlterarReal
GetNewPar
GETNEWPAR("MV_
PLSUNI
PLSLRF","0") =="1"SimSim
BX6_PERVACNumérico162Percentual Via Cobrança  Visualizar



AlterarReal
getNewPar
GETNEWPAR("MV_PLSLRF","0") =="1"SimSim
BME_CODTABCaracter30Código TabelaVisualizarCTabBME


VisualizarRealGETNEWPAR("MV_
PLSUNI
PLSLRF","0") =="1"SimSim
BMG_CODTABCaracter30Código TabelaVisualizarcTabBMG                       
    
                                                                     


VisualizarRealGETNEWPAR("MV_PLSLRF","0") =="1"SimSim
BMD_CODTABCaracter30Código TabelaAlterar
IIF(EMPTY(M->BMD_CODTAB),.T.,PlsSeek("BF8",1,PLSINTPAD()+M->BMD_CODTAB))  B72PLS
AlterarRealGETNEWPAR("MV_PLSLRF","0") =="1"SimSim


Ajuste no dicionário de Dados SX3

BGR_CODVIA
CampoValidação
ExistChav("BGR",M->BGR_CODINT+M->BGR_CODVIA+M->BGR_POSREF) 

Criação de Índice na tabela BGR.

...