| ITEM |
-
- FromTime
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .01
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P(VPRVST0,U)
-
- EnteredOn
- SEQUENCE: 18
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .01
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P(VPRVST0,U) S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,1.4,"I") ;ED visit
-
- ExternalId
- SEQUENCE: 19
- ITEM TYPE: ID
- OUTPUT TRANSFORM: S VALUE=VALUE_";POV"
-
- Extension
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- ENTITY: VPR VPOV EXTENSION
- GET ACTION: S VALUE=DIEN
-
- IdentificationTime
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: 1201
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$G(VPRPOV("EVENT DATE AND TIME")) S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,1.4,"I")
-
- ToTime
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .18
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P(VPRVST0,U,18) S:'VALUE VALUE=$$CKOUT^VPRSDAV(+VPRVST)
-
- EncounterNumber
- SEQUENCE: 4
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
- GET ACTION: S VALUE=$G(VPRVST)
-
- DiagnosingClinician
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- FIELD NUMBER: 1204
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PROVIDER
- GET ACTION: S VALUE=$G(VPRPOV("ENCOUNTER PROVIDER")) I VALUE="",$G(VPREDP) S VALUE=$$GET1^DIQ(230,VPREDP,3.5,"I")
-
- Diagnosis
- SEQUENCE: 7
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .01
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR ICD
- GET ACTION: S DATA("DATE")=+$G(VPRVST0),DATA("TEXT")=$$POVNARR^VPRSDAVF
-
- DiagnosisType
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .12
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE=$G(VPRPOV("PRIMARY/SECONDARY"))
-
- OnsetTime
- SEQUENCE: 13
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .13
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$G(VPRPOV("DATE OF INJURY"))
-
- EnteredBy
- SEQUENCE: 16
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .23
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$P(VPRVST0,U,23)
-
- EnteredAt
- SEQUENCE: 17
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.07
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .06
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$P(VPRVST0,U,6) I VALUE<1 S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,.02,"I") S:'VALUE VALUE=$$SITE^VPRSDA
|
| DESCRIPTION |
This entity populates the Diagnosis container in HealthShare from the
protocol event.
V POV (#9000010.07) file; it expects the record IEN as the ID (DIEN).
If the record was created from an EDP Log (#230) file entry, some
values not saved in V POV may be retrieved from the EDP Log entry.
This entity is supported by code in routine VPRSDAVF, which uses the
^PXRMINDX reminder index and VPOV^PXPXRM call to extract V POV data.
Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT
|
