VPR OTHER ORDER (35)    ENTITY (1.5)

• 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

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.