VPR RAD ORDER (34)    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")
• 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

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.