| ITEM |
-
- ToTime
- SEQUENCE: 12
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 8925
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S DDEOUT=1 ;S VALUE=$P($G(VPRADV),U,3)
-
- ExternalId
- SEQUENCE: 13
- ITEM TYPE: ID
- OUTPUT TRANSFORM: S VALUE=VALUE_";TIU(8925,"
-
- AlertType
- SEQUENCE: 4
- ITEM TYPE: ENTITY
- FILE NUMBER: 8925
- FIELD NUMBER: .04
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE="AD^ADVANCE DIRECTIVE"
-
- Alert
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 8925
- FIELD NUMBER: .01
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR DOCUMENT TITLE
- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,"I"))
-
- Comments
- SEQUENCE: 6
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 8925
- FIELD NUMBER: 2
- GET ACTION: D TEXT^VPRSDAT
-
- Status
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 8925
- FIELD NUMBER: .01
- OUTPUT TRANSFORM: S VALUE=$S(VALUE["RESCIND":"I",1:"A")
-
- EnteredBy
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 8925
- FIELD NUMBER: 1302
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,"I"))
-
- EnteredAt
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 8925
- FIELD NUMBER: 1212
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1212,"I")) S:'VALUE VALUE=$$SITE^VPRSDA
-
- EnteredOn
- SEQUENCE: 10
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 8925
- FIELD NUMBER: 1201
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1201,"I"))
-
- FromTime
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 8925
- FIELD NUMBER: 1301
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1301,"I"))
|
| DESCRIPTION |
This entity populates the Advance Directive container in HealthShare
maintained by the AEVT cross reference on file #8925.
from the TIU DOCUMENT (#8925) file, with documents that belong to the
Advance Directive class. It expects the record IEN as the ID (DIEN).
Documents will be saved in SDA when they reach a status of Complete. A
document will be removed from SDA if it is retracted.
This entity is supported by code in routine VPRSDAF, which uses the
TIUPP3 and TIULQ routines to extract the documents. Data in SDA is
|
