VPR EDP EXTENSION (164)    ENTITY (1.5)

Name Value
NAME VPR EDP EXTENSION
DEFAULT FILE NUMBER 230
DATA MODEL SDA
DISPLAY NAME EncounterExtension
ITEM
  • 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
  • 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)
DESCRIPTION
This entity extends VPR EDP LOG. It uses VPRVST and the ^TMP("PXKENC",$J) 
array, as defined in VPR EDP LOG.
GET EXIT ACTION K VPRDT,VPRVAL