Histórico da Página

Ponto de entrada que permite ao usuário manipular a participação financeira.

PLSRETCOP

PLSRETC2 - Manipula a participação financeira. ( [ nPerCop ], [ nValCop ], [ nTaxa ], [ nValUs ], [ cAlias ], [ lExistia ], [ cPgNoAto ], [ cPgDrRDA ], [ nLimFra ], [ cCodInt ], [ cCodEmp ], [ cMatric ], [ cTipReg ], [ cCodPla ], [ cVerPla ], [ cOpeOri ], [ dDatPro ], [ nQtd ], [ cCodPad ], [ cCodPro ], [ cCodLoc ], [ cCodRda ], [ lCompra ], [ cRegAte ], [ cCodTabCop ], [ nVlrEve ], [ cTipPre ], [ nVlrTBES ], [ nVlrBPF ], [ nVlrTPF ], [ nVlrPF ], [ nVlrTax ], [ nSlvBase ], [ nSlvPerc ], [ nSlvTx ], [ nSlvTotal ], [ nPerda ], [ cFranquia ], [ nPerHorEsp ], [ cNivAut ], [ cChvAut ], [ aRetCom ] ) --> aRetPto

aRetPto(array_of_record)

User function PLSRETC2()Local aRetPto:=Paramixb[1]nPerCop		:= aRetPto[1] // Percentual de ParticipaçãonValCop		:= aRetPto[2] // Valor da ParticipaçãonTaxa		:= aRetPto[3]   // Valor da Taxa AdministrativanValUs 		:= aRetPto[4]   //- Valor da UScAlias 		:= aRetPto[5]   //- Alias ativolExistia 	:= aRetPto[6]   //- Identifica se o sistema encontrou parametrização da participação financeiracPgNoAto 	:= aRetPto[7]   //- Identificador de pagamento no atocPgDrRDA 	:= aRetPto[8]   //- identificador de pagamento direto a RDAnLimFra 	:= aRetPto[9]   //- Limite da FranquiacCodInt 	:= aRetPto[10]   //- Codigo da OperadoracCodEmp 	:= aRetPto[11]   //- Codigo do Grupo / Empresa cMatric 	:= aRetPto[12]   //- Matricula do BeneficiariocTipReg 	:= aRetPto[13]   //- Tipo de Registro do BeneficiariocCodPla 	:= aRetPto[14]   //- Codigo do PlanocVerPla 	:= aRetPto[15]   //- Versão do PlanocOpeOri 	:= aRetPto[16]   //- Operadora de Origem do BeneficiariodDatPro 	:= aRetPto[17]   //- Data do ProcedimentonQtd 		:= aRetPto[18]   //- Quantidade do ProcedimentocCodPad 	:= aRetPto[19]   //- Codigo da tabela de procedimentoscCodPro 	:= aRetPto[20]   //- Codigo do ProcedimentocCodLoc 	:= aRetPto[21]   //- Codigo do Local de AtendimentocCodRda 	:= aRetPto[22]   //- Codigo do prestador de saúdelCompra 	:= aRetPto[23]   //- Identificador de compracRegAte 	:= aRetPto[24]   //- Regime de Atendimento: 1=Internacao   2=AmbulatorialcCodTabCop 	:= aRetPto[25]   //- Codigo da tabela de co-participaçãonVlrEve 	:= aRetPto[26]   //- Valor do EventocTipPre 	:= aRetPto[27]   //- Tipo de PrestadornVlrTBES 	:= aRetPto[28]   //- Valor total do eventonVlrBPF 	:= aRetPto[29]   //- Valor base da co-participacaonVlrTPF 	:= aRetPto[30]   //- Valor total da co-participacaonVlrPF 		:= aRetPto[31]   //- Valor da participação financeiranVlrTax 	:= aRetPto[32]   //- Valor total da taxa administrativanSlvBase 	:= aRetPto[33]   //- Backup do Valor da participação financeiranSlvPerc 	:= aRetPto[34]   //- Backup do Valor da Taxa AdministrativanSlvTx 		:= aRetPto[35]   //- Backup do valor da Taxa AdministrativanSlvTotal 	:= aRetPto[36]   //- Backup do Valor da base da franquianPerda 		:= aRetPto[37]   //- Percentual de perda sobre o limite da franquiacFranquia	:= aRetPto[38]   //- Identifica se houve franquia: 1=Sim; 0-NãonPerHorEsp 	:= aRetPto[39]   //- Periodo em horário especialcNivAut 	:= aRetPto[40]   //- Nivel da autorização do procedimentocChvAut 	:= aRetPto[41]   //- Chave da autorização do procedimentoaRetCom 	:= aRetPto[42]   //- Array com as criticas encontradas durante o processo.// Desenvolvimento do usuarioaRetPto:=nPerCop,nValCop,nTaxa,nValUs,cAlias,lExistia,cPgNoAto,cPgDrRDA,nLimFra,lCompra,cRegAte,cCodTabCop,nVlrTBES,                   nVlrBPF,nVlrTPF,nVlrPF,nVlrTax,nSlvBase,nSlvPerc,nSlvTx,nSlvTotal,nPerda,cFranquia,nPerHorEsp}Return(aRetPto)