PLSRETCP - Participação Financeira

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

PLSRETCOP

PLSRETCP - 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 ], [ lVerPgAto ], [ nVlrEve ], [ cTipPre ], [ cNivAut ], [ cChvAut ], [ aRdas ], [ aRetCom ], [ cEspec ], [ cDente ], [ cFace ] ) --> aRetPto

aRetPto(array_of_record)

User function PLSRETCP()nPerCop 	:=Paramixb[1]//- Percentual de ParticipaçãonValCop 	:=Paramixb[2]//- Percentual de Participação- Valor da ParticipaçãonTaxa 		:=Paramixb[3]//- Percentual de Participação- Valor da Taxa AdministrativanValUs 		:=Paramixb[4]//- Percentual de Participação- Valor da UScAlias 		:=Paramixb[5]//- Percentual de Participação- Alias ativolExistia 	:=Paramixb[6]//- Percentual de Participação- Identifica se o sistema encontrou parametrização da participação financeiracPgNoAto 	:=Paramixb[7]//- Percentual de Participação- Identificador de pagamento no atocPgDrRDA 	:=Paramixb[8]//- Percentual de Participação- identificador de pagamento direto a RDAnLimFra 	:=Paramixb[9]//- Percentual de Participação- Limite da FranquiacCodInt 	:=Paramixb[10]//- Percentual de Participação- Codigo da OperadoracCodEmp 	:=Paramixb[11]//- Percentual de Participação- Codigo do Grupo / Empresa cMatric 	:=Paramixb[12]//- Percentual de Participação- Matricula do BeneficiariocTipReg 	:=Paramixb[13]//- Percentual de Participação- Tipo de Registro do BeneficiariocCodPla 	:=Paramixb[14]//- Percentual de Participação- Codigo do PlanocVerPla 	:=Paramixb[15]//- Percentual de Participação- Versão do PlanocOpeOri 	:=Paramixb[16]//- Percentual de Participação- Operadora de Origem do BeneficiariodDatPro 	:=Paramixb[17]//- Percentual de Participação- Data do ProcedimentonQtd 		:=Paramixb[18]//- Percentual de Participação- Quantidade do ProcedimentocCodPad 	:=Paramixb[19]//- Percentual de Participação- Codigo da tabela de procedimentoscCodPro 	:=Paramixb[20]//- Percentual de Participação- Codigo do ProcedimentocCodLoc 	:=Paramixb[21]//- Percentual de Participação- Codigo do Local de AtendimentocCodRda 	:=Paramixb[22]//- Percentual de Participação- Codigo do prestador de saúdelCompra 	:=Paramixb[23]//- Percentual de Participação- Identificador de compracRegAte 	:=Paramixb[24]//- Percentual de Participação- Regime de Atendimento: 1=Internacao   2=AmbulatorialcCodTabCop 	:=Paramixb[25]//- Percentual de Participação- Codigo da tabela de co-participaçãolVerPgAto 	:=Paramixb[26]//- Percentual de Participação- Flag de verificação de pagamento no ato.nVlrEve 	:=Paramixb[27]//- Percentual de Participação- Valor do EventocTipPre 	:=Paramixb[28]//- Percentual de Participação- Tipo de PrestadorcNivAut 	:=Paramixb[29]//- Percentual de Participação- Nivel da autorização do procedimentocChvAut 	:=Paramixb[30]//- Percentual de Participação- Chave da autorização do procedimentoaRdas   	:=Paramixb[31]//- Percentual de Participação- Array com dados referente a rda da composição do procedimento.aRetCom 	:=Paramixb[32]//- Percentual de Participação- Array com as criticas encontradas durante o processo.cEspec        := Paramixb[33] // Codigo da especialidade//Desevolvimento do usuarioaParPtoEnt({nPerCop,nValCop,nTaxa,nValUs,cAlias,lExistia,cPgNoAto,cPgDrRDA,nLimFra,lCompra,cRegAte,cCodTabCop,aRdas})Return(aParPtoEnt)