VPR PATIENT ELIGIBILITY (96) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ELIGIBILITY
DEFAULT FILE NUMBER	8
DATA MODEL	SDA
DISPLAY NAME	Eligibility
ITEM	Name SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8 FIELD NUMBER: .01 GET ACTION: S VALUE=$P($G(VPRELIG),U) IsPrimary SEQUENCE: 2 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$S($P($G(VPRELIG),U,2):"true",1:"false")
DESCRIPTION	This entity supports VPR PATIENT, returning an eligibility for which the patient is entitled to care. Since this data is usually extracted via VADPT, the string ien^name^primary may be passed in as the ID and the properties will look for the existence of these pieces first.
GET EXIT ACTION	K VPRELIG
GET ID ACTION	S VPRELIG=$P(DIEN,U,2,3),DIEN=+DIEN