VPR RAD ORDER (34)    ENTITY (1.5)

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 Rad Order container in HealthShare. It expects 
the ORDER (#100) file ien as its ID.
GET ENTRY ACTION D PRE^VPRSDAR
GET EXIT ACTION D POST^VPRSDAR K OR0,OR3,OR6,OR8,ORDAD,ORSIG
GET ID ACTION D OR1^VPRSDA(DIEN)
GET QUERY ROUTINE ORDERS^VPRSDAQ("XRAY")