| 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
|
