VPR FAMILY HISTORY (45)    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)
• 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"

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.