VPR ADVANCE DIRECTIVE (38) ENTITY (1.5)

Name	Value
NAME	VPR ADVANCE DIRECTIVE
DEFAULT FILE NUMBER	8925
DATA MODEL	SDA
DISPLAY NAME	AdvanceDirective
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
GET EXIT ACTION	K VPRTIU,^TMP("TIUPPCV",$J)
GET ID ACTION	D AD1^VPRSDAF(.DIEN)
GET QUERY ROUTINE	ADQ^VPRSDAF