VPR FAMILY HISTORY (45) ENTITY (1.5)

Name	Value
NAME	VPR FAMILY HISTORY
DEFAULT FILE NUMBER	9000010.23
DATA MODEL	SDA
DISPLAY NAME	FamilyHistory
ITEM	EncounterNumber SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: S VALUE=$G(VPRVST) CustomPairs SEQUENCE: 3 ITEM TYPE: LIST ENTITY: VPR CUSTOM PAIR GET ACTION: N X S X=$G(VPRHF("VALUE")) I $L(X) S DLIST(1)="Severity^"_$$EXTERNAL^DILFD(9000010.23,.04,,X) Extension SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 ENTITY: VPR FAM HX EXTENSION GET ACTION: S VALUE=DIEN Diagnosis SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR HEALTH FACTOR NoteText SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: 81101 GET ACTION: S VALUE=$G(VPRHF("COMMENTS")) EnteredBy SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P(VPRVST0,U,23) EnteredAt SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 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) FamilyMember SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="UNK^UNKNOWN" ExternalId SEQUENCE: 15 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";HF"
DESCRIPTION	This entity populates the Family History container in HealthShare from the V HEALTH FACTORS (#9000010.23) file with factors that contain "Family History" or "Family Hx". It expects the record IEN as the ID (DIEN). This entity is supported by code in routine VPRSDAVF, which uses the ^PXRMINDX reminder index and VHF^PXPXRM call to extract V POV data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event.
GET EXIT ACTION	K VPRHF,VPRVST,VPRVST0
GET ID ACTION	D HF1^VPRSDAHX
GET QUERY ROUTINE	HFM^VPRSDAHX