VPR HEALTH CONCERN (135)    ENTITY (1.5)

• EnteredBy
  SEQUENCE:   1
  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:   2
  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)
• EnteredOn
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.23
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .02
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRVST0,U,2)
• EncounterNumber
  SEQUENCE:   8
  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)
• Description
  SEQUENCE:   10
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.23
  FIELD NUMBER:   .01
  GET ACTION:   S:$P(VPRHF,U,2) VALUE=$P($G(^AUTTHF(+$P(VPRHF,U,2),0)),U)
• Status
  SEQUENCE:   11
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.23
  FIELD NUMBER:   .04
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S:$L(VALUE) VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.23,.04,,VALUE)
  GET ACTION:   S VALUE=$G(VPRHF("LEVEL/SEVERITY"))
• FromTime
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.23
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .02
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRVST0,U,2)

This entity populates the Health Concern container in HealthShare from 
the V HEALTH FACTORS (#9000010.23) file; 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.