VPR ALLERGY EXTENSION (101) ENTITY (1.5)

Name	Value
NAME	VPR ALLERGY EXTENSION
DEFAULT FILE NUMBER	120.8
DATA MODEL	SDA
DISPLAY NAME	AllergyExtension
ITEM	Mechanism SEQUENCE: 1 ITEM TYPE: ENTITY FILE NUMBER: 120.8 FIELD NUMBER: 17 ENTITY: VPR CODE ONLY GET ACTION: S VALUE=$P($G(GMRAY),U,6) Source SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 120.8 FIELD NUMBER: 6 GET ACTION: S VALUE=$P($G(GMRAY),U,5) Comments SEQUENCE: 3 ITEM TYPE: LIST ENTITY: VPR COMMENT LIST TYPE: ARRAY XML NAME: Comment GET ACTION: D CMTS^VPRSDAL(DIEN) Reactions SEQUENCE: 4 ITEM TYPE: LIST ENTITY: VPR ALLERGY SIGN/SYMPTOM LIST TYPE: ARRAY XML NAME: Reaction GET ACTION: N I,X S I=0 F S I=$O(VPRALG("S",I)) Q:I<1 S X=$G(VPRALG("S",I)),DLIST(I)=+$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"") DrugClasses SEQUENCE: 5 ITEM TYPE: LIST ENTITY: VPR DRUG CLASS GET ACTION: N I S I=0 F S I=$O(GMRAY("V",I)) Q:I<1 S DLIST(I)=I_U_GMRAY("V",I) DrugProducts SEQUENCE: 6 ITEM TYPE: LIST ENTITY: VPR DRUG INGREDIENT LIST TYPE: ARRAY XML NAME: DrugProduct GET ACTION: M DLIST=GMRAY("I") OriginalCode SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 120.8 FIELD NUMBER: 1 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(VPRALG),U,9) InactiveUser SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 120.8 FIELD NUMBER: 24 RETURN INTERNAL VALUE: YES ENTITY: VPR USER AllergyObservations SEQUENCE: 9 ITEM TYPE: LIST ENTITY: VPR ALLERGY OBSERVATION GET ACTION: M DLIST=GMRAY("O")
DESCRIPTION	This entity extends VPR ALLERGY. It expects the GMRAY variable and array to be defined, from the GET ID ACTION call to GMRAOR2.