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: I $P($G(GMPFLD(1.02)),U)'="H" D PROBCMT^VPRSDAG(DIEN) ;skip if hidden 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. It expects the GMPFLD array to be defined.

VPR PROBLEM EXTENSION (107) ENTITY (1.5)