VPR PATIENT ENROLLMENT (198) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ENROLLMENT
DEFAULT FILE NUMBER	2.001
DATA MODEL	SDA
DISPLAY NAME	Enrollment
ITEM	Clinic SEQUENCE: 1 ITEM TYPE: ENTITY FILE NUMBER: 2.001 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(VAEN),U) EnrollmentDate SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.001 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VAEN),U,2)
DESCRIPTION	This entity returns a clinic from the Enrollment Clinic sub-file, to support the VPR PATIENT EXTENSION.
GET EXIT ACTION	K VAEN
GET ID ACTION	S VAEN=$G(DIEN),DIEN=+$O(^DPT(DFN,"DE","B",+VAEN,0))_","_DFN