VistA Analysis » VistA Reference » RPCs » ORVAA VAA

ORVAA VAA

Returns the policy name for a veteran with VA Advantage. If the veteran does not have VA Advantage the return value will be 0.

Properties

Property Value
Label VAA
MUMPS Implementation ORVAA
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
DFN REFERENCE 255 true The DFN is the veteran patient's Internal Entry Number in the PATIENT file.

MUMPS Method Description

Property Value
Method VAA^ORVAA
Input Parameters DFN
First Comment
Returns primary insurance policy name if VAA or TriCare
Code
 N I,IBDT,IBFLDS,IBSTAT,LC,LQ,ORIBR,ORX,PIC,WI
S ORY(0)=""
S IBSTAT="RB",(LC,ORIBR,PIC)="",(LQ,WI)=0,IBFLDS="*"
S IBDT=$$NOW^XLFDT
S PIC=$$INSUR^IBBAPI(DFN,IBDT,IBSTAT,.ORIBR,IBFLDS)
I PIC<0 S ORY(0)=0 Q
I PIC=0 S:ORY(0)="" ORY(0)=0 Q
S $P(ORY(0),U)="Pt Insur",$P(ORY(0),U,2)="Patient has active Insurance"
S $P(ORY(0),U,3)=""
F S LC=$O(ORIBR("IBBAPI","INSUR",LC)) Q:LC=""!(LQ) D
. D FLD01,FLD02,FLD03,FLD04,FLD05,FLD06,FLD07,FLD08,FLD09,FLD10
. D FLD11,FLD12,FLD13,FLD14,FLD15,FLD16,FLD17,FLD18,FLD19,FLD20
. S WI=WI+1,ORY(WI)=""
I ORY(0)="" S ORY(0)=0

CPRS

File Type Description
Pascal File fCover.pas


Document generated on August 31st 2022, 2:55:43 pm