VPR LAB ORDER (13)    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 IEN=$S($G(ORDAD):ORDAD,1:DIEN),X=$$GET1^DIQ(100,IEN,35,"I") S:X DLIST(1)=X
• Specimen
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"SPECIMEN",,"E") S:VALUE="" DDEOUT=1
• SpecimenCollectedTime
  SEQUENCE:   13
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   21
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VPRCDT=$P($G(OR0),U,8),VALUE=VPRCDT
• 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 LRCH RESULT
  GET ACTION:   D RSLT^VPRSDAB
• 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=$G(VPRCDT)
• 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
• Comments
  SEQUENCE:   24
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"COMMENT") S:VALUE="" DDEOUT=1
• GroupId
  SEQUENCE:   30
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   36
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S VALUE=$G(ORDAD) S:VALUE="" DDEOUT=1
• 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 S:VALUE?1.";" DDEOUT=1
• OrderCategory
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   23
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR DISPLAY GROUP
  OUTPUT TRANSFORM:   D DG^VPRSDAB(.VALUE) ;cks VALUE, sets LRSUB
  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 ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT 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 LAB URGENCY
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"URGENCY") S:VALUE="" DDEOUT=1

This entity populates the LabOrder container in HealthShare from the
ORDER (#100) file; it expects the record ien as its ID (DIEN). Result
data is pulled from the LAB DATA (#63) file.
 
This entity is supported by code in routines VPRSDAOR and VPRSDAB, 
which uses various LR7O* calls to extract lab data. Data in SDA
is maintained by monitoring the OR EVSEND LR* and LR* EVSEND OR
protocol events.