| ITEM |
-
- EntryDate
- SEQUENCE: 1
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VASV(DIEN,4)),U)
-
- SeparationDate
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VASV(DIEN,5)),U)
-
- Branch
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE=$G(VASV(DIEN,1))_"^VA23" I 'VALUE S DDEOUT=1
-
- Number
- SEQUENCE: 5
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- GET ACTION: S VALUE=$G(VASV(DIEN,2))
-
- DischargeType
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE=$G(VASV(DIEN,3))_"^VA25" I 'VALUE S DDEOUT=1
-
- Component
- SEQUENCE: 4
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- GET ACTION: S VALUE=$P($G(VASV(DIEN,6)),U,2) I $L($G(VPRMS)),$P(VASV(DIEN,6),U)'=$P(VPRMS,U,4) S VALUE=$$EXTERNAL^DILFD(2.3216,.04,,$P(VPRMS,U,4))
|
| DESCRIPTION |
This entity returns an instance of the Military Service Episode (#2.3216)
8 = SERVICE xxx [NNTL] fields
sub-file in the Patient (#2) file; it is intended for use inside VPR
PATIENT EXTENSION and expects the VASV array from VADPT. ID should be
the VASV subscript containing the service episode data (6, 7, or 8).
If the Military Service Episode sub-file does not exist, VADPT will
return sets of Service Episode fields from the ^DPT(DFN,.32) node.
6 = SERVICE xxx [LAST] fields
7 = SERVICE xxx [NTL] fields
|
