VPR ORDER EXTENSION (115)    ENTITY (1.5)

Name Value
NAME VPR ORDER EXTENSION
DEFAULT FILE NUMBER 100
DATA MODEL SDA
DISPLAY NAME OrderExtension
ITEM
  • Released
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100.008
    FIELD NUMBER:   16
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(OR8),U,16),IEN="1,"_DIEN
  • ReleasedBy
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100.008
    FIELD NUMBER:   17
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(OR8),U,17),IEN="1,"_DIEN
  • OrderType
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   8.1
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE=1:"EDIT",VALUE=2:"RENEW",1:"NEW")
    GET ACTION:   S VALUE=$P($G(OR3),U,11)
  • NatureOfOrder
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100.008
    FIELD NUMBER:   12
    GET ACTION:   S IEN="1,"_DIEN
  • ReplacedOrder
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   9
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(OR3),U,5)
  • ReplacementOrder
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   9.1
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(OR3),U,6)
  • DiscontinueType
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   61
  • PatientClass
    SEQUENCE:   15
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   10
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(OR0),U,12)
  • Specialty
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100
    FIELD NUMBER:   11
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR SPECIALTY
    GET ACTION:   S VALUE=$P($G(OR0),U,13)
  • OrderEvent
    SEQUENCE:   17
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100
    FIELD NUMBER:   15
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR ORDER EVENT
    GET ACTION:   S IEN=$S($G(ORDAD):ORDAD,1:DIEN)
  • SignatureStatus
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100.008
    FIELD NUMBER:   4
    GET ACTION:   S VALUE=$P($G(ORSIG),U),IEN="1,"_DIEN
  • DiscontinuedDateTime
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   63
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(OR6),U,3)
  • DiscontinuedBy
    SEQUENCE:   12
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100
    FIELD NUMBER:   62
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P($G(OR6),U,2)
  • DiscontinuedReason
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100
    FIELD NUMBER:   65
    GET ACTION:   N X S X=$P($G(OR6),U,4),VALUE=$S(X:$$GET1^DIQ(100.03,X,.01),1:$P($G(OR6),U,5)) S:VALUE="" DDEOUT=1
  • Content
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100.008
    FIELD NUMBER:   .1
    GET ACTION:   N VPRTXT,ORIGVIEW S ORIGVIEW=2 D TEXT^ORQ12(.VPRTXT,+DIEN) S VALUE=$$STRING^VPRD(.VPRTXT) S:VALUE="" DDEOUT=1
  • VAStatus
    SEQUENCE:   14
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100
    FIELD NUMBER:   5
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR ORDER STATUS
    GET ACTION:   S VALUE=$P($G(OR3),U,3)
  • CollectionSample
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   100.045
    FIELD NUMBER:   1
    GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"SAMPLE",,"E") S:VALUE="" DDEOUT=1
  • SignedBy
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   100.008
    FIELD NUMBER:   5
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P($G(ORSIG),U,2),IEN="1,"_DIEN
DESCRIPTION
This entity extends the VPR * ORDER entities: VPR LAB ORDER, VPR RAD ORDER,
and VPR OTHER ORDER. It expects the Orders file #100 pointer as the ID.