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.