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 Status SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 409.68 FIELD NUMBER: .12 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

VPR VISIT EXTENSION (103) ENTITY (1.5)