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 Status SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: 3.2 EXTENDED POINTER LKUP: .02 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