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