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)