VPR PATIENT ID (1) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ID
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	PatientID
ITEM	PatientNumbers SEQUENCE: 1 ITEM TYPE: LIST LIST TYPE: COMPLEX XML NAME: PatientNumber COMPLEX TYPE: COMPLEX ITEM SEQUENCE: 1 COMPLEX ITEM NAME: SSN COMPLEX ITEM SEQUENCE: 2 COMPLEX ITEM NAME: MRN COMPLEX ITEM SEQUENCE: 3 COMPLEX ITEM NAME: ICN SSN ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .09 ENTITY: VPR PATIENT NUMBER OUTPUT TRANSFORM: S VALUE=VALUE_"^SSN^^SSA" MRN ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR PATIENT NUMBER GET ACTION: S VALUE=DIEN_"^MRN^"_$G(VASTN)_U_$G(VASTN) ICN ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR PATIENT NUMBER GET ACTION: S VALUE=$$GETICN^MPIF001(DIEN)_"^ICN"
DESCRIPTION	This entity supports VPR PATIENT, and expects the Patient file #2 ien as the ID. It builds an abbreviated version of VPR PATIENT that includes only the patient numbers.
GET ENTRY ACTION	N X S X=$$SITE^VASITE S:X>0 VASITE=+X,VASTN=$P(X,U,3) I X'>0 S VASITE=$$KSP^XUPARAM("INST"),VASTN=$$STA^XUAF4(VASITE)
GET EXIT ACTION	K VASITE,VASTN
GET ID ACTION	S DNAME="Patient"