Name	Value
NAME	VPR ORDER EXTENSION
DEFAULT FILE NUMBER	100
DATA MODEL	SDA
DISPLAY NAME	OrderExtension
ITEM	Released SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 16 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR8),U,16),IEN="1,"_DIEN ReleasedBy SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 17 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(OR8),U,17),IEN="1,"_DIEN OrderType SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 8.1 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE=1:"EDIT",VALUE=2:"RENEW",1:"NEW") GET ACTION: S VALUE=$P($G(OR3),U,11) NatureOfOrder SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 12 GET ACTION: S IEN="1,"_DIEN ReplacedOrder SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 9 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR3),U,5) ReplacementOrder SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 9.1 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR3),U,6) DiscontinueType SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 61 PatientClass SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 10 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR0),U,12) Specialty SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 11 RETURN INTERNAL VALUE: YES ENTITY: VPR SPECIALTY GET ACTION: S VALUE=$P($G(OR0),U,13) OrderEvent SEQUENCE: 18 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 15 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER EVENT GET ACTION: S IEN=$S($G(ORDAD):ORDAD,1:DIEN) DCEvent SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 68 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER DC EVENT GET ACTION: S VALUE=$P($G(OR6),U,8) SignatureStatus SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 4 GET ACTION: S VALUE=$P($G(ORSIG),U),IEN="1,"_DIEN Package SEQUENCE: 20 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 12 RETURN INTERNAL VALUE: YES ENTITY: VPR PACKAGE GET ACTION: S VALUE=$P($G(OR0),U,14) DiscontinuedDateTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 63 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR6),U,3) DiscontinuedBy SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 62 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(OR6),U,2) DiscontinuedReason SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 65 GET ACTION: N X S X=$P($G(OR6),U,4),VALUE=$S(X:$$GET1^DIQ(100.03,X,.01),1:$P($G(OR6),U,5)) S:VALUE="" DDEOUT=1 Content SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: .1 GET ACTION: N VPRTXT,ORIGVIEW S ORIGVIEW=2 D TEXT^ORQ12(.VPRTXT,+DIEN) S VALUE=$$STRING^VPRD(.VPRTXT) S:VALUE="" DDEOUT=1 VAStatus SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER STATUS GET ACTION: S VALUE=$P($G(OR3),U,3) CollectionSample SEQUENCE: 19 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,"SAMPLE",,"E") S:VALUE="" DDEOUT=1 SignedBy SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(ORSIG),U,2),IEN="1,"_DIEN
DESCRIPTION	This entity extends the VPR * ORDER entities: VPR LAB ORDER, VPR RAD ORDER, and VPR OTHER ORDER. It expects the ORDER (#100) ien as the ID, as well as the other context variables defined in their ID Actions.

VPR ORDER EXTENSION (115) ENTITY (1.5)