Name	Value
NAME	VPR RAD ORDER
DEFAULT FILE NUMBER	100
DATA MODEL	SDA
DISPLAY NAME	RadOrder
ITEM	EnteredAt SEQUENCE: 35 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: N X S X=$P($G(OR0),U,10) S:X VALUE=$$GET1^DIQ(44,+X,3,"I") S:'VALUE VALUE=$$SITE^VPRSDA ;#4 ien ResultCopiesTo SEQUENCE: 29 ITEM TYPE: LIST FILE NUMBER: 100 FIELD NUMBER: 35 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER LIST TYPE: ARRAY XML NAME: CareProvider GET ACTION: N X S X=$P($G(OR3),U,10) S:X DLIST(1)=X I X="" S DDEOUT=1 Status SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 5 EXTENDED POINTER LKUP: .02 OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X="dc":"D",X="canc":"C",X="laps":"C",X="dc/e":"R",X="comp":"E",X="exp":"E",X="hold":"H",X="part":"A",1:"IP") Result SEQUENCE: 39 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 33 ENTITY: VPR RAD RESULT GET ACTION: S VALUE=$G(ORPK) S:VALUE="" DDEOUT=1 PlacerId SEQUENCE: 1 ITEM TYPE: ID FromTime SEQUENCE: 37 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 21 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR0),U,8) ToTime SEQUENCE: 38 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 22 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR0),U,9) UpdatedOn SEQUENCE: 50 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 31 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR3),U) ClinicalInformation SEQUENCE: 41 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,"COMMENT") S:VALUE="" DDEOUT=1 EnteredBy SEQUENCE: 34 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(OR0),U,6) ReasonForStudy SEQUENCE: 49 ITEM TYPE: ENTITY FILE NUMBER: 100.045 FIELD NUMBER: 1 ENTITY: VPR TEXT ONLY GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,"REASON") S:VALUE="" DDEOUT=1 AuthorizationTime SEQUENCE: 26 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(ORSIG),U,3),IEN="1,"_DIEN EnteringOrganization SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION OUTPUT TRANSFORM: S VALUE=+VALUE GET ACTION: S VALUE=$P($G(OR0),U,10) S:VALUE<1 DDEOUT=1 Extension SEQUENCE: 53 ITEM TYPE: ENTITY FILE NUMBER: 100 ENTITY: VPR ORDER EXTENSION GET ACTION: S VALUE=DIEN ExternalId SEQUENCE: 51 ITEM TYPE: ID EnteredOn SEQUENCE: 36 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 4 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR0),U,7) FillerId SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 33 GET ACTION: S ORPK=$$PKGID^ORX8(DIEN),VALUE=ORPK OrderCategory SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 23 RETURN INTERNAL VALUE: YES ENTITY: VPR DISPLAY GROUP GET ACTION: S VALUE=$P($G(OR0),U,11) OrderItem SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 100.001 FIELD NUMBER: .01 ENTITY: VPR ORDERABLE ITEM GET ACTION: S VALUE=+$O(^OR(100,DIEN,.1,"B",0)),IEN="1,"_DIEN S:VALUE<1 DDEOUT=1 ;first/only OrderedBy SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 1 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(OR0),U,4) Priority SEQUENCE: 19 ITEM TYPE: ENTITY FILE NUMBER: 100.045 FIELD NUMBER: 1 ENTITY: VPR ORDER URGENCY GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,"URGENCY") S:VALUE="" DDEOUT=1
DESCRIPTION	This entity populates the RadOrder container in HealthShare from the ORDER (#100) file; it expects the record ien as its ID (DIEN). Result data is pulled from the RAD/NUC MED PATIENT (#70) file. This entity is supported by code in routines VPRSDAOR and VPRSDAR, which uses the RAO7PC* calls to extract radiology data. Data in SDA is maintained by monitoring the OR EVSEND RA and RA EVSEND OR protocol events.
GET ENTRY ACTION	D PRE^VPRSDAR
GET EXIT ACTION	D POST^VPRSDAR K OR0,OR3,OR6,OR8,ORDAD,ORSIG
GET ID ACTION	D OR1^VPRSDAOR(DIEN)
GET QUERY ROUTINE	ORDERS^VPRSDAOR("XRAY")

VPR RAD ORDER (34) ENTITY (1.5)