VPR ALLERGY OBSERVATION (176)    ENTITY (1.5)

Name Value
NAME VPR ALLERGY OBSERVATION
DEFAULT FILE NUMBER 120.85
DATA MODEL SDA
DISPLAY NAME AllergyObservation
ITEM
  • ObservationTime
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.85
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRDT) S:VALUE="" DDEOUT=1
  • Severity
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.85
    FIELD NUMBER:   14.5
    ENTITY:   VPR CODE TABLE
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="MILD":"255604002^MILD^SNOMED CT",VALUE="MODERATE":"6736007^MODERATE^SNOMED CT",VALUE="SEVERE":"24484000^SEVERE^SNOMED CT",1:VALUE)
    GET ACTION:   S VALUE=$G(VPRSEV) S:VALUE="" DDEOUT=1
DESCRIPTION
This entity supports VPR ALLERGY, adding a list of observation dates and 
severities to VPR ALLERGY EXTENSION. It expects a string in the form 
ID=date^severity, both in internal format.
GET EXIT ACTION K VPRDT,VPRSEV
GET ID ACTION S VPRDT=+$G(DIEN),VPRSEV=$P($G(DIEN),U,2)