VPR PROBLEM (11)    ENTITY (1.5)

Name Value
NAME VPR PROBLEM
DEFAULT FILE NUMBER 9000011
DATA MODEL SDA
DISPLAY NAME Problem
ITEM
  • 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)
DESCRIPTION
This entity populates the Problem container in HealthShare.
GET EXIT ACTION K GMPFLD,GMPORIG
GET ID ACTION D PROB1^VPRSDAG(DIEN)
GET QUERY ROUTINE PROBLEMS^VPRSDAQ