VPR PATIENT TYPE (227)    ENTITY (1.5)

Name Value
NAME VPR PATIENT TYPE
DEFAULT FILE NUMBER 391
DATA MODEL SDA
DISPLAY NAME PatientType
ITEM
  • Code
    SEQUENCE:   6
    ITEM TYPE:   ID
  • Description
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   391
    FIELD NUMBER:   .01
    GET ACTION:   S VALUE=$P($G(VPRTYPE),U,2)
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA391
DESCRIPTION 
This entity accepts a pointer to the PATIENT TYPE (#391) file and returns
a coded element.
GET EXIT ACTION K VPRTYPE
GET ID ACTION S VPRTYPE=$G(DIEN),DIEN=+$G(DIEN)