VPR ALLERGY SIGN/SYMPTOM (33) ENTITY (1.5)

Name	Value
NAME	VPR ALLERGY SIGN/SYMPTOM
DEFAULT FILE NUMBER	120.83
DATA MODEL	SDA
DISPLAY NAME	Reaction
ITEM	Code SEQUENCE: 6 ITEM TYPE: ID GET ACTION: S VALUE=$P($G(VPREACTN),U) Description SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 120.83 FIELD NUMBER: .01 GET ACTION: S VALUE=$P($G(VPREACTN),U,2) SDACodingStandard SEQUENCE: 1 ITEM TYPE: FIXED STRING FIXED RESPONSE: VA120.83 GET ACTION: S VALUE=$P($G(VPREACTN),U,3) Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 120.83 ENTITY: VPR ALLERGY SIGN EXTENSION GET ACTION: S VALUE=$G(VPRDT) S:VALUE="" DDEOUT=1 OriginalText SEQUENCE: 3 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VPRNAME)
DESCRIPTION	This entity supports VPR ALLERGY, returning a coded element representation of a single Reaction. It expects either a #120.83 ien, or a string in the form ien^name^date. If a SNOMED CT code is available, that code and name will be returned instead of the #120.83 ien; the #120.83 name will be returned in the OriginalText property. An extension may also contain the date this reaction was entered if included in the ID string.
GET EXIT ACTION	K VPREACTN,VPRDT,VPRNAME
GET ID ACTION	D REACTN^VPRSDAL(.DIEN) ;convert to national code