Name	Value
NAME	VPR DOCUMENT
DEFAULT FILE NUMBER	8925
DATA MODEL	SDA
DISPLAY NAME	Document
ITEM	FromTime SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .07 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,.07,"I")) DocumentName SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .01 GET ACTION: S VALUE=$P($G(^TIU(8925.1,+$G(VPRTIU(DIEN,.01,"I")),0)),U) DocumentNumber SEQUENCE: 16 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";TIU" INPUT TRANSFORM: S:$P(VALUE,";",2)="TIU" VALUE=+VALUE DocumentCompletionStatus SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT STATUS GET ACTION: S VALUE=$G(VPRTIU(DIEN,.05,"I")) EnteredBy SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1302 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$G(VPRTIU(DIEN,1302,"I")) EnteredAt SEQUENCE: 23 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: 24 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")) FileType SEQUENCE: 13 ITEM TYPE: FIXED STRING FIXED RESPONSE: TXT Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 8925 ENTITY: VPR DOCUMENT EXTENSION GET ACTION: S VALUE=DIEN ToTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .08 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,.08,"I")) Status SEQUENCE: 18 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=$$AVSTS^VPRSDAT(VALUE) GET ACTION: S VALUE=+$G(VPRTIU(DIEN,.05,"I")) EncounterNumber SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: S VALUE=$G(VPRTIU(DIEN,.03,"I")) DocumentTime SEQUENCE: 6 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")) NoteText SEQUENCE: 7 ITEM TYPE: WORD PROCESSING FILE NUMBER: 8925 FIELD NUMBER: 2 GET ACTION: D TEXT^VPRSDAT DocumentType SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=$$TYPE^VPRSDAT(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,"I")) Clinician SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1202 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,"I")) TranscriptionTime SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1307 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,1307,"I")) AuthorizationTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1501 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$$SIGDT^VPRSDAT(DIEN)
DESCRIPTION	This entity populates the Document container in HealthShare from the the TIU DOCUMENT ACTION EVENT protocol event. TIU DOCUMENT (#8925) file; 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 VPRSDAT, which uses the TIUVPR and TIULQ routines to extract documents. Data in SDA is maintained by monitoring the AEVT cross reference on file #8925 and
GET EXIT ACTION	K VPRTIU
GET ID ACTION	D DOC1^VPRSDAT(DIEN)
GET QUERY ROUTINE	DOCQRY^VPRSDAT

VPR DOCUMENT (32) ENTITY (1.5)