VPR REFERRAL ACTIVITY (177)    ENTITY (1.5)

• Action
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123.02
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$P($G(VPRACT),U,2)
• ActionDate
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123.02
  FIELD NUMBER:   2
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRACT),U,3)
• Provider
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123.02
  FIELD NUMBER:   3
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRACT),U,4)
• EnteredBy
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123.02
  FIELD NUMBER:   4
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(VPRACT),U,5)
• ActionId
  SEQUENCE:   5
  ITEM TYPE:   ID
• Comment
  SEQUENCE:   6
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   123.02
  FIELD NUMBER:   5
  GET ACTION:   M WP=VPRCACT(+DIEN,1) S:'$O(WP(0)) DDEOUT=1
• ForwardedFrom
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123.02
  FIELD NUMBER:   6
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CONSULT SERVICE
  GET ACTION:   S VALUE=$P($G(VPRACT),U,6)
• PriorProvider
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123.02
  FIELD NUMBER:   7
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRACT),U,7)

This entity supports VPR REFERRAL EXTENSION, returning an entry in the 
Request Processing Activity multiple of the Request/Consultation file 
#123. It expects the VPRCACT array, defined in the GET ACTION field 
of the Extension property RequestActions.