VPR ORDER FLAG (266)    ENTITY (1.5)

• FlagStatus
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   31
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
  GET ACTION:   S VALUE=$P($G(ORFLAG),U)
• FlaggedOn
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   33
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,3)
• FlaggedBy
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.008
  FIELD NUMBER:   34
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,4)
• FlagReason
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   35
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,5)
• UnflaggedOn
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   36
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,6)
• UnflaggedBy
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.008
  FIELD NUMBER:   37
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,7)
• UnflagReason
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   38
  GET ACTION:   S VALUE=$P($G(ORFLAG),U,8)
• OrderAction
  SEQUENCE:   8
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   2
  RETURN INTERNAL VALUE:   YES

This entity returns flag data for an order action. It is intended to be
called from VPR MED EXTENSION.