VPR PATIENT MILITARY SERVICE (197) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT MILITARY SERVICE
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	ServiceEpisode
ITEM	EntryDate SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRSV(DIEN,3)),U) SeparationDate SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRSV(DIEN,4)),U) Branch SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$G(VPRSV(DIEN,2))_"^VA23" I 'VALUE S DDEOUT=1 Number SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 GET ACTION: S VALUE=$G(VPRSV(DIEN,5)) DischargeType SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$G(VPRSV(DIEN,1))_"^VA25" I 'VALUE S DDEOUT=1 Component SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 GET ACTION: S VALUE=$P($G(VPRSV(DIEN,6)),U,2)
DESCRIPTION	ServiceEpisodes list all episodes from the MILITARY SERVICE EPISODE SUB-FILE (#2.3216) of the PATIENT (#2) FILE using the API call GETMSE^DGMSEUTL. Listing them in last SERVICE ENTRY DATE entered (2.3216,.01) to first order.