Name	Value
NAME	VPR PATIENT EXTENSION
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	PatientExtension
ITEM	Bid SEQUENCE: 1 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$E($G(VADM(1)))_$G(VA("BID")) IsServiceConnected SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .301 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false") GET ACTION: S VALUE=+$G(VAEL(3)) ScPercent SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .302 GET ACTION: S VALUE=$P(VAEL(3),U,2) ServicePeriod SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .323 GET ACTION: S:$G(VAEL(2)) VALUE=$P(VAEL(2),U,2) I '$G(VAEL(2)) S DDEOUT=1 MeansTestStatus SEQUENCE: 31 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .14 GET ACTION: S:$L($G(VAEL(9))) VALUE=$P(VAEL(9),U,2) EligibilityStatus SEQUENCE: 33 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .3611 GET ACTION: S:$L($G(VAEL(8))) VALUE=$P(VAEL(8),U,2) Eligibilities SEQUENCE: 34 ITEM TYPE: LIST ENTITY: VPR PATIENT ELIGIBILITY LIST TYPE: ARRAY XML NAME: Eligibility GET ACTION: N X M DLIST=VAEL(1) S X=$G(VAEL(1)) S:X DLIST(.5)=X_"^1" Disabilities SEQUENCE: 35 ITEM TYPE: LIST ENTITY: VPR PATIENT DISABILITY LIST TYPE: ARRAY XML NAME: Disability GET ACTION: S:'$$RDIS^DGRPDB(DFN,.DLIST) DDEOUT=1 IsExposureMST SEQUENCE: 12 ITEM TYPE: FIXED STRING GET ACTION: N X S X=$P($$GETSTAT^DGMSTAPI(DFN),U,2),VALUE=$S(X="Y":"true",X="N":"false",1:"") CareTeamName SEQUENCE: 37 ITEM TYPE: FIXED STRING GET ACTION: S VPRTEAM=$$INSTPCTM^SCAPMC(DFN) S:VPRTEAM VALUE=$P(VPRTEAM,U,2) CareTeamMembers SEQUENCE: 39 ITEM TYPE: LIST ENTITY: VPR TEAM MEMBER LIST TYPE: ARRAY XML NAME: CareProvider GET ACTION: D PCP^VPRPCMM Dob SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($P($G(VADM(3)),U),".") IsExposureSHAD SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .32115 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=+$G(VASV(14,1)) AgentOrangeExposure SEQUENCE: 16 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .32102 RETURN INTERNAL VALUE: YES ENTITY: VPR PATIENT AO GET ACTION: S VALUE=DIEN I "U"[$P(VPR321,U,2) S DDEOUT=1 RadiationExposure SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .32103 RETURN INTERNAL VALUE: YES ENTITY: VPR PATIENT IR GET ACTION: S VALUE=DIEN I "U"[$P(VPR321,U,3) S DDEOUT=1 SWAsiaExposure SEQUENCE: 18 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .322013 RETURN INTERNAL VALUE: YES ENTITY: VPR PATIENT SWA GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,13) S DDEOUT=1 VietnamService SEQUENCE: 20 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .32101 RETURN INTERNAL VALUE: YES ENTITY: VPR VIETNAM SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR321,U) S DDEOUT=1 LebanonService SEQUENCE: 21 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3221 RETURN INTERNAL VALUE: YES ENTITY: VPR LEBANON SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U) S DDEOUT=1 GrenadaService SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3224 RETURN INTERNAL VALUE: YES ENTITY: VPR GRENADA SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,4) S DDEOUT=1 PanamaService SEQUENCE: 23 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3227 RETURN INTERNAL VALUE: YES ENTITY: VPR PANAMA SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,7) S DDEOUT=1 PersianGulfService SEQUENCE: 24 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .32201 RETURN INTERNAL VALUE: YES ENTITY: VPR PERSIAN GULF SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,10) S DDEOUT=1 SomaliaService SEQUENCE: 25 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .322016 RETURN INTERNAL VALUE: YES ENTITY: VPR SOMALIA SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,16) S DDEOUT=1 IsExposureAO SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .32102 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false") GET ACTION: S VALUE=+$G(VASV(2)) YugoslaviaService SEQUENCE: 26 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .322019 RETURN INTERNAL VALUE: YES ENTITY: VPR YUGOSLAVIA SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR322,U,19) S DDEOUT=1 POWStatus SEQUENCE: 27 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .525 RETURN INTERNAL VALUE: YES ENTITY: VPR POW STATUS GET ACTION: S VALUE=DIEN I "U"[$P(VPR52,U,5) S DDEOUT=1 CombatService SEQUENCE: 28 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .5291 RETURN INTERNAL VALUE: YES ENTITY: VPR COMBAT SERVICE GET ACTION: S VALUE=DIEN I "U"[$P(VPR52,U,11) S DDEOUT=1 PurpleHeartStatus SEQUENCE: 29 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .532 GET ACTION: S VALUE=$P($G(VASV(9,1)),U,2) S:'$G(VASV(9)) DDEOUT=1 IsCopayExempt SEQUENCE: 32 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 354 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") CareTeamPhone SEQUENCE: 38 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 404.51 FIELD NUMBER: .02 GET ACTION: S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1 EmergencyResponseIndicator SEQUENCE: 43 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .181 ServiceEpisodes SEQUENCE: 29 ITEM TYPE: LIST ENTITY: VPR PATIENT MILITARY SERVICE LIST TYPE: ARRAY XML NAME: ServiceEpisode GET ACTION: N I S I=0 F S I=$O(VPRSV(I)) Q:I<1 S DLIST(I)=I Enrollments SEQUENCE: 36 ITEM TYPE: LIST ENTITY: VPR PATIENT ENROLLMENT LIST TYPE: ARRAY XML NAME: Enrollment GET ACTION: N I S I=0 F S I=$O(^UTILITY("VAEN",$J,I)) Q:I<1 S DLIST(I)=$G(^(I,"I")) MHTeamName SEQUENCE: 40 ITEM TYPE: FIXED STRING GET ACTION: S VPRTEAM=$$MHTEAM^VPRPCMM(DFN),VALUE=$P(VPRTEAM,U,2) IsExposureIR SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .32103 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false") GET ACTION: S VALUE=+$G(VASV(3)) MHTeamMembers SEQUENCE: 42 ITEM TYPE: LIST ENTITY: VPR TEAM MEMBER LIST TYPE: ARRAY XML NAME: CareProvider GET ACTION: D:$G(VPRTEAM) MBRS^VPRPCMM LastTreated SEQUENCE: 44 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR SOURCE FACILITY GET ACTION: S VALUE=DIEN MHTeamPhone SEQUENCE: 41 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 404.51 FIELD NUMBER: .02 GET ACTION: S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1 IsSensitive SEQUENCE: 45 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 38.1 FIELD NUMBER: 2 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",VALUE=0:"false",1:"") INPUT TRANSFORM: S VALUE=$S(VALUE="true":1,VALUE="false":0,1:"") IsAdmitted SEQUENCE: 46 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .105 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=+$P($G(^DPT(DFN,.105)),U) ;mvt ien or 0 AdmEncounterNumber SEQUENCE: 48 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .105 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$VNUM^VPRSDAV(VALUE) GET ACTION: S VALUE=$P($G(^DPT(DFN,.105)),U) Admitnumber SEQUENCE: 47 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .105 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(^DPT(DFN,.105)),U) IsExposureCL SEQUENCE: 14 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .321701 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE="Y":"true",1:"false") Type SEQUENCE: 49 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: 391 RETURN INTERNAL VALUE: YES ENTITY: VPR PATIENT TYPE GET ACTION: S VALUE=$G(VAEL(6)) IsPregnant SEQUENCE: 50 ITEM TYPE: FIXED STRING GET ACTION: I $P($G(VADM(5)),U)="F" S VALUE=$S($$ISPREG^WVUTL11(DFN):"true",1:"false") IsExposurePG SEQUENCE: 9 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$S(VASV(11)!VASV(12)!VASV(13):"true",1:"false") ;OIF/OEF IsLactating SEQUENCE: 51 ITEM TYPE: FIXED STRING GET ACTION: I $P($G(VADM(5)),U)="F" S VALUE=$S($$ISLACT^WVUTL11(DFN):"true",1:"false") IsExposureTERA SEQUENCE: 15 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .32116 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=+$G(VASV(15)) IsExposureCV SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .5295 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE<0:"",VALUE:"true",1:"false") GET ACTION: S VALUE=$$CVEDT^DGCV(DFN) ;+$G(VASV(5)) IsExposureHNC SEQUENCE: 11 ITEM TYPE: FIXED STRING GET ACTION: N X,XI,XS,HNC S X=$$GETCUR^DGNTAPI(DFN,"HNC"),XI=$P($G(HNC("IND")),U),XS=+($G(HNC("STAT"))),X=$S(XI="Y":1,XS=4:1,XS=5:1,XS=1:0,XS=6:0,1:""),VALUE=$S(X:"true",1:"false") VeteranLrdfn SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: 63 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$G(^DPT(DFN,"LR")) IsVeteran SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: 1901 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true","Yy"[$E(VALUE):"true",1:"false") GET ACTION: S VALUE=+$G(VAEL(4))
DESCRIPTION	This entity extends VPR PATIENT, using supported calls to VADPT to retrieve the data.
GET ENTRY ACTION	D 7^VADPT,SDE^VADPT,MSE^VPRSDADG
GET EXIT ACTION	K VPRSV,VAEL,VASV,VAERR,VPRTEAM,VPRPTP,^UTILITY("VAEN",$J),VPR321,VPR322,VPR52
GET ID ACTION	S VPR321=$G(^DPT(DIEN,.321)),VPR322=$G(^(.322)),VPR52=$G(^(.52))

VPR PATIENT EXTENSION (95) ENTITY (1.5)