Name	Value
NAME	VPR V POV
DEFAULT FILE NUMBER	9000010.07
DATA MODEL	SDA
DISPLAY NAME	Diagnosis
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
GET EXIT ACTION	K VPRPOV,VPRVST,VPRVST0,VPREDP
GET ID ACTION	D POV1^VPRSDAVF
GET QUERY ROUTINE	POV^VPRSDAVF

VPR V POV (88) ENTITY (1.5)