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=$$SNOMED^VPRSDAL(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)