VPR SOCIAL HISTORY (47)    ENTITY (1.5)

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

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.