| 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" |
