| ITEM |
-
- PatientStatus
- SEQUENCE: 1
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2.98
- FIELD NUMBER: 3
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)="I":"INPATIENT",1:"AMBULATORY")
- GET ACTION: S VALUE=$P($G(VPRAPPT),U,3)
-
- ServiceStatus
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2.98
- FIELD NUMBER: 3
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)="I":"INPATIENT VISIT",1:"AMBULATORY")
- GET ACTION: S VALUE=$P($G(VPRAPPT),U,3)
-
- AssociatedEncounterNumber
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2.98
- FIELD NUMBER: 21
- EXTENDED POINTER LKUP: .05
- RETURN INTERNAL VALUE: YES
- GET ACTION: N SDOE S SDOE=$P($G(VPRAPPT),U,12) I SDOE S VALUE=$P($$GETOE^SDOE(SDOE),U,5)
-
- Purpose
- SEQUENCE: 4
- ITEM TYPE: ENTITY
- FILE NUMBER: 2.98
- FIELD NUMBER: 9
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,18),";")
-
- Eligibility
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 44.003
- FIELD NUMBER: 30
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR ELIGIBILITY
- GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,8),";") S:VALUE="" DDEOUT=1
-
- Length
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 44.003
- FIELD NUMBER: 1
- GET ACTION: S VALUE=$P($G(VPRAPPT),U,5) S:VALUE="" DDEOUT=1
-
- CheckedIn
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 44.003
- FIELD NUMBER: 309
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VPRAPPT),U,9) S:VALUE="" DDEOUT=1
|
