Name	Value
NAME	VPR DOCUMENT EXTENSION
DEFAULT FILE NUMBER	8925
DATA MODEL	SDA
DISPLAY NAME	DocumentExtension
ITEM	CareProviders SEQUENCE: 1 ITEM TYPE: LIST ENTITY: VPR SIGNER LIST TYPE: ARRAY XML NAME: CareProvider GET ACTION: D TIUS^VPRSDAT(DIEN) PatientLocation SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1205 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$G(VPRTIU(DIEN,1205,"I")) SignatureMode SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1505 Service SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1404 RETURN INTERNAL VALUE: YES ENTITY: VPR SERVICE GET ACTION: S VALUE=$G(VPRTIU(DIEN,1404,"I")) SecondaryVisit SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1207 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$G(VPRTIU(DIEN,1207,"I")) VisitID SEQUENCE: 14 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 15001 GET ACTION: S VALUE=$G(VPRTIU(DIEN,15001,"I")) AmendedOn SEQUENCE: 15 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1601 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,1601,"I")) AmendedBy SEQUENCE: 16 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1602 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$G(VPRTIU(DIEN,1602,"I")) AmendedSigned SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1603 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,1603,"I")) AdminClosureMode SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1613 Class SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT CLASS GET ACTION: S VALUE=$G(VPRTIU(DIEN,.04,"I")) Parent SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 2101 RETURN INTERNAL VALUE: YES GET ACTION: N X S X=$G(VPRTIU(DIEN,2101,"I")) S:X VALUE=X_";TIU" Subject SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1701 GET ACTION: S VALUE=$G(VPRTIU(DIEN,1701,"I")) NationalTitle 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")),VPRNATL=+$G(^TIU(8925.1,+VALUE,15)) S:'VPRNATL DDEOUT=1 NationalTitleRole SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 1501 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT ROLE OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,5) GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL NationalTitleService SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 1501 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT SERVICE OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,7) GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL NationalTitleSetting SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 1501 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT SETTING OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,6) GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL NationalTitleSubject SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 1501 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT SUBJECT OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,4) GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL NationalTitleType SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 1501 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT TYPE OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,8) GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
DESCRIPTION	This entity extends VPR DOCUMENT; it expects the VPRTIU array to be defined.
GET EXIT ACTION	K VPRNATL

VPR DOCUMENT EXTENSION (109) ENTITY (1.5)