VPR VISIT EXTENSION (103)    ENTITY (1.5)

Name Value
NAME VPR VISIT EXTENSION
DEFAULT FILE NUMBER 9000010
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(DIEN),VPRDT=$P($G(@VPRVST@(0)),U),VPRVAL=VALUE
  • IsServiceConnected
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80001
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VPRVSC=$G(@VPRVST@(800)),VALUE=$P(VPRVSC,U)
  • IsExposureAO
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80002
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,2)
  • IsExposureIR
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80003
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,3)
  • IsExposureSWA
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80004
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,4)
  • IsExposureMST
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80005
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,5)
  • IsExposureHNC
    SEQUENCE:   14
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80006
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,6)
  • IsExposureCV
    SEQUENCE:   15
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80007
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,7)
  • IsExposureSHAD
    SEQUENCE:   16
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   80008
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P(VPRVSC,U,8)
  • OriginatingProcess
    SEQUENCE:   17
    ITEM TYPE:   ENTITY
    FILE NUMBER:   409.68
    FIELD NUMBER:   .08
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S IEN=$O(^SCE("AVSIT",DIEN,0)) S:IEN<1 DDEOUT=1
  • StopCode
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .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)
  • Cpt
    SEQUENCE:   1.1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    ENTITY:   VPR CODE TABLE
    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
  • ParentEncounterNumber
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   .12
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,12)
  • Eligibility
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .21
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR ELIGIBILITY
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,21)
  • VisitID
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   15001
    GET ACTION:   S VALUE=$P($G(@VPRVST@(150)),U)
  • Comments
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   81101
    GET ACTION:   S VALUE=$P($G(@VPRVST@(811)),U)
  • Package
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   81202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PACKAGE
    GET ACTION:   S VALUE=$P($G(@VPRVST@(812)),U,2)
  • DataSource
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   81203
DESCRIPTION
This entity extends VPR VISIT; it is intended to only be used within 
that Entity. It expects ^TMP("PXKENC",$J) to be defined.
GET EXIT ACTION K VPRDT,VPRVAL,VPRVSC