VPR PATIENT EXTENSION (95)    ENTITY (1.5)

• 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))

This entity extends VPR PATIENT, using supported calls to VADPT to
retrieve the data.