Name	Value
NAME	VPR OTHER ORDER
DEFAULT FILE NUMBER	100
DATA MODEL	SDA
DISPLAY NAME	OtherOrder
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") PlacerId SEQUENCE: 1 ITEM TYPE: ID 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 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) 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) 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 Extension SEQUENCE: 53 ITEM TYPE: ENTITY FILE NUMBER: 100 ENTITY: VPR ORDER EXTENSION GET ACTION: S VALUE=DIEN ExternalId SEQUENCE: 51 ITEM TYPE: ID OrderItem SEQUENCE: 5.1 ITEM TYPE: ENTITY FILE NUMBER: 100 ENTITY: VPR RELEASE EVENT GET ACTION: I '$G(ORIT) S ORIT=$$VALUE^ORX8(DIEN,"EVENT"),VALUE=ORIT S:VALUE<1 DDEOUT=1 ;ADT orders OrderItem SEQUENCE: 5.2 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 2 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER DIALOG GET ACTION: S:$G(ORIT) DDEOUT=1 I '$G(ORIT) S ORIT=+$P(OR0,U,5),VALUE=ORIT ;if nothing else 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 VALUE=$$PKGID^ORX8(DIEN) 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 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDERABLE ITEM GET ACTION: S ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT,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 OtherOrder container in HealthShare from the ORDER (#100) file; it expects the record ien as its ID (DIEN). This entity is supported by code in routine VPRSDAOR, which uses the ORQ1 and ORX8 calls to extract order data. Data in SDA is maintained by monitoring the OR EVSEND * protocol events.
GET EXIT ACTION	K OR0,OR3,OR6,OR8,ORDAD,ORSIG,ORIT
GET ID ACTION	D OR1^VPRSDAOR(DIEN)
GET QUERY ROUTINE	NONORD^VPRSDAOR

VPR OTHER ORDER (35) ENTITY (1.5)