VPR SOCIAL HISTORY (47) ENTITY (1.5)

Name	Value
NAME	VPR SOCIAL HISTORY
DEFAULT FILE NUMBER	9000010.23
DATA MODEL	SDA
DISPLAY NAME	SocialHistory
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) FromTime SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: 1201 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRHF("EVENT DATE AND TIME")) Extension SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 ENTITY: VPR SOCIAL HX EXTENSION GET ACTION: S VALUE=DIEN SocialHabit SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .01 ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_"^^VHAT" SocialHabitCategory SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .01 EXTENDED POINTER LKUP: .03 RETURN INTERNAL VALUE: YES ENTITY: VPR HEALTH FACTOR SocialHabitComments SEQUENCE: 8 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) 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)
DESCRIPTION	This entity populates the Social History container in HealthShare from the V HEALTH FACTORS (#9000010.23) file with factors related to smoking or tobacco use. It expects the record IEN as the ID (DIEN). This entity is supported by code in routine VPRSDAHX, which uses the ^PXRMINDX reminder index and VHF^PXPXRM call to extract V HEALTH FACTOR 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	HFS^VPRSDAHX