VPR PRF HISTORY (153)    ENTITY (1.5)

• AssignmentId
  SEQUENCE:   1
  ITEM TYPE:   ID
• UpdateTime
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   26.14
  FIELD NUMBER:   .02
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRH("ASSIGNDT")),U)
• Action
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   26.14
  FIELD NUMBER:   .03
  GET ACTION:   S VALUE=$P($G(VPRH("ACTION")),U,2)
• Site
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   26.14
  FIELD NUMBER:   .09
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$P($G(VPRH("ORIGFAC")),U)
• Comment
  SEQUENCE:   5
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   26.14
  FIELD NUMBER:   1
  GET ACTION:   N I S I=0 F S I=$O(VPRH("COMMENT",I)) Q:I<1 S WP(I)=$G(VPRH("COMMENT",I,0))
• DBRSNumbers
  SEQUENCE:   6
  ITEM TYPE:   LIST
  ENTITY:   VPR PRF DBRS RECORD
  LIST TYPE:   ARRAY
  XML NAME:   DBRS
  GET ACTION:   N I S I=0 F S I=$O(VPRH("DBRS",I)) Q:I<1 S DLIST(I)=$P($G(VPRH("DBRS",I)),U,1,2)
• EnteredBy
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   26.14
  FIELD NUMBER:   .04
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRH("ENTERBY")),U)
• ApprovedBy
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   26.14
  FIELD NUMBER:   .05
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRH("APPRVBY")),U)
• DocumentNumber
  SEQUENCE:   9
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   26.14
  FIELD NUMBER:   .06
  OUTPUT TRANSFORM:   S VALUE=VALUE_";TIU"
  GET ACTION:   S VALUE=$P($G(VPRH("TIULINK")),U)

This entity supports VPR PATIENT RECORD FLAG, to return each entry in the
PRF Assignment History file #26.14 for the flag. It is intended to be 
used within the VPR PRF EXTENSION entity.