VPR PROBLEM EXTENSION (107)    ENTITY (1.5)

Name Value
NAME VPR PROBLEM EXTENSION
DEFAULT FILE NUMBER 9000011
DATA MODEL SDA
DISPLAY NAME ProblemExtension
ITEM
  • Comments
    SEQUENCE:   13
    ITEM TYPE:   LIST
    ENTITY:   VPR COMMENT
    LIST TYPE:   ARRAY
    XML NAME:   Comment
    GET ACTION:   D PROBCMT^VPRSDAG(DIEN)
  • Removed
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="H":"true",1:"false")
    GET ACTION:   S DDEOUT=1 ;VALUE=$P($G(GMPFLD(1.02)),U)
  • IsSc
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.1
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.1)),U)
  • Service
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.06
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.06)),U,2)
  • OnsetDate
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   .13
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   N D S D=$P(VALUE,"."),VALUE=(1700+$E(D,1,3))_"-"_$E(D,4,5)_"-"_$E(D,6,7)
    GET ACTION:   S VALUE=$P($G(GMPFLD(.13)),U)
  • LexiconId
    SEQUENCE:   14
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.01
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.01)),U)
  • Priority
    SEQUENCE:   15
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.14
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.14)),U,2)
  • IsVerified
    SEQUENCE:   16
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="P":"true",VALUE="T":"false",1:"")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.02)),U)
  • IsRemoved
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="H":"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.02)),U)
  • IsExposureAO
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.11
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.11)),U)
  • IsExposureIR
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.12
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.12)),U)
  • IsExposurePG
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.13
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.13)),U)
  • IsExposureHNC
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.15
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.15)),U)
  • IsExposureMST
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.16
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.16)),U)
  • IsExposureCV
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.17
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.17)),U)
  • IsExposureSH
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.18
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.18)),U)
  • Location
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000011
    FIELD NUMBER:   1.08
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=$P($G(GMPFLD(1.08)),U)
DESCRIPTION
This entity extends VPR PROBLEM.