VPR EDP EXTENSION (164)    ENTITY (1.5)

• Cpt
  SEQUENCE:   1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.18
  ENTITY:   VPR CPT
  GET ACTION:   S VALUE=$$CPT^VPRDVSIT(+$G(VPRV)),VPRDT=$P($G(@VPRVST@(0)),U),VPRVAL=VALUE
• VisitID
  SEQUENCE:   9
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   15001
  GET ACTION:   S VALUE=$P($G(@VPRVST@(150)),U)
• IsServiceConnected
  SEQUENCE:   10
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   80001
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
  GET ACTION:   S VALUE=$P($G(@VPRVST@(800)),U)
• Package
  SEQUENCE:   11
  ITEM TYPE:   ENTITY
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   81202
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PACKAGE
  GET ACTION:   S VALUE=$P($G(@VPRVST@(812)),U,2)
• DataSource
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   81203
• Status
  SEQUENCE:   13
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   3.2
  EXTENDED POINTER LKUP:   .02
• StopCode
  SEQUENCE:   2
  ITEM TYPE:   ENTITY
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   .08
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=$$AMIS^VPRDVSIT(VALUE)_"^AMIS"
  GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,8)
• DispositionTime
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   1.3
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(EDP1),U,3)
• Acuity
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   3.3
  EXTENDED POINTER LKUP:   .03
• Cpt
  SEQUENCE:   1.1
  ITEM TYPE:   FIXED STRING
  GET ACTION:   I VPRVAL="" N SEQ S SEQ=+$G(FILTER("sequence")) S:$P($G(^XTMP("VPR-"_SEQ,+$G(DIEN))),U,6) VALUE=$$NULL^VPRSDA(3) ;delete values
• Complaint
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   2
• Comments
  SEQUENCE:   6
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   3.8
  GET ACTION:   S VALUE=$P($G(EDP3),U,8)
• IsClosed
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   230
  FIELD NUMBER:   .07
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
  GET ACTION:   S VALUE=$P($G(EDP0),U,7)
• Eligibility
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   230
  FIELD NUMBER:   .12
  EXTENDED POINTER LKUP:   .21
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR ELIGIBILITY
  GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,21)

This entity extends VPR EDP LOG. It uses VPRVST and the ^TMP("PXKENC",$J) 
array, as defined in VPR EDP LOG.