Name	Value
NAME	VPR EDP LOG
DEFAULT FILE NUMBER	230
DATA MODEL	SDA
DISPLAY NAME	Encounter
ITEM	Extension SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 230 ENTITY: VPR EDP EXTENSION GET ACTION: S VALUE=DIEN SeparationMode SEQUENCE: 29 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: 1.2 RETURN INTERNAL VALUE: YES ENTITY: VPR EDP CODE GET ACTION: S VALUE=$P($G(EDP1),U,2) Priority SEQUENCE: 35 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .12 EXTENDED POINTER LKUP: 15003 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010,15003,,VALUE) GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,3) S:VALUE="" VALUE="P" EnteredBy SEQUENCE: 41 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .12 EXTENDED POINTER LKUP: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,23) EnteredOn SEQUENCE: 43 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(EDP0),U) EnteredAt SEQUENCE: 42 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(EDP0),U,2) FromTime SEQUENCE: 44 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: .08 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(EDP0),U,8) ToTime SEQUENCE: 45 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: .09 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(EDP0),U,9) EncounterNumber SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: .12 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(EDP0),U,12) EncounterType SEQUENCE: 5 ITEM TYPE: FIXED STRING FIXED RESPONSE: E EncounterCodedType SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .12 EXTENDED POINTER LKUP: .07 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: N X S X=$P($G(@VPRVST@(0)),U,7) S:$L(X) VALUE=X_U_$$EXTERNAL^DILFD(9000010,.07,,X) ConsultingClinicians SEQUENCE: 9 ITEM TYPE: LIST ENTITY: VPR PROVIDER LIST TYPE: ARRAY XML NAME: CareProvider GET ACTION: N I,P S I=0 F P=5,6,7 I $P($G(EDP3),U,P) S I=I+1,DLIST(I)=$P(EDP3,U,P)_U_$S(P=5:"PRIMARY",1:"SECONDARY") AccountingNumber SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 230 FIELD NUMBER: .12 EXTENDED POINTER LKUP: .26 GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,26) AdmissionSource SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .1 RETURN INTERNAL VALUE: YES ENTITY: VPR EDP CODE GET ACTION: S VALUE=$P($G(EDP0),U,10) AdmitReason SEQUENCE: 21 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: 1.1 ENTITY: VPR TEXT ONLY GET ACTION: S VALUE=$P($G(EDP1),U) HealthCareFacility SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 230 FIELD NUMBER: .14 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(EDP0),U,14)
DESCRIPTION	This entity populates the Encounter container in HealthShare with ENCEVENT^PXAPI call and VA FileMan to extract Visit and ED Log data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event and the AVPR index on file #230. emergency visits from the EDP LOG (#230) file; it expects the record IEN as the ID (DIEN). Control is passed to this entity from the GET ID ACTION of VPR VISIT, which resets DIEN to the #230 IEN of the Visit's corresponding EDP Log file entry. It is not intended to be called independently. This entity is supported by code in routine VPRSDAVF, which uses the
GET EXIT ACTION	K:$D(VPRVST) @VPRVST K EDP0,EDP1,EDP3,VPRV,VPRVST
GET ID ACTION	D EDP1^VPRSDAV
GET QUERY ROUTINE	EDPQ^VPRSDAV

VPR EDP LOG (165) ENTITY (1.5)