VPR PROBLEM (11)    ENTITY (1.5)

• Extension
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  ENTITY:   VPR PROBLEM EXTENSION
  GET ACTION:   S VALUE=DIEN
• FromTime
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000011
  FIELD NUMBER:   .13
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(GMPFLD(.13)),U)
• ToTime
  SEQUENCE:   18
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000011
  FIELD NUMBER:   1.07
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:VALUE VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(GMPFLD(1.07)),U) I 'VALUE,$$DELETED^VPRSDAG(DIEN,1.07) S VALUE=$$NULL^VPRSDA
• Problem
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   80001
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=VALUE_U_$$SCTTEXT^VPRSDAG(VALUE,DIEN)_"^SNOMED CT"
  GET ACTION:   S VALUE=$P($G(GMPFLD(80001)),U)
• ExternalId
  SEQUENCE:   19
  ITEM TYPE:   ID
  OUTPUT TRANSFORM:   S VALUE=VALUE_";PL"
• UpdatedOn
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000011
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(GMPFLD(.03)),U)
• EnteredOn
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000011
  FIELD NUMBER:   .08
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(GMPFLD(.08)),U)
• EnteredBy
  SEQUENCE:   14
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   1.03
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
• EnteredAt
  SEQUENCE:   15
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   .06
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
• Problem
  SEQUENCE:   6.1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR ICD
  GET ACTION:   S:$L($G(GMPFLD(80001))) DDEOUT=1 I $G(GMPFLD(80001))="" S VALUE=$P($G(GMPFLD(.01)),U),DATA("DATE")=$P($G(GMPFLD(80201)),U),DATA("SYS")=$P($G(GMPFLD(80202)),U)
• ProblemDetails
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000011
  FIELD NUMBER:   .05
  GET ACTION:   S VALUE=$P($G(GMPFLD(.05)),U,2)
• Clinician
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   1.05
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(GMPFLD(1.05)),U)
• Status
  SEQUENCE:   9
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000011
  FIELD NUMBER:   .12
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE="A":"55561003^Active^SNOMED CT",VALUE="I":"73425007^Inactive^SNOMED CT",1:"")
  GET ACTION:   S VALUE=$P($G(GMPFLD(.12)),U)

This entity populates the Problem container in HealthShare from the
PROBLEM (#9000011) file; it expects the record IEN as the ID (DIEN).
 
A problem will be removed from SDA if it is removed or hidden in VistA.
 
This entity is supported by code in routine VPRSDAG, which uses the
GMPLUTL2 and GMPLEDT3 routines to extract problems. Data in SDA is
maintained by monitoring the GMPL EVENT protocol event.