VistA Analysis » VistA Reference » RPCs » ORQQAL LIST

ORQQAL LIST

Returns a list of allergies for a patient.

Properties

Property Value
Label LIST
MUMPS Implementation ORQQAL
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
PATIENT ID LITERAL 16 true The record number of the patient (DFN) from the Patient file (#2).

MUMPS Method Description

Property Value
Method LIST^ORQQAL
Method Comment RETURN PATIENT'S ALLERGY/ADVERSE REACTION INFO:
Input Parameters ORPT
First Comment 
 null:no allergy assessment, 0:no known allergies, 1:pt has allergies
 if 1 also get: allergen/reactant^reaction/symptom^severity^allergy ien
Code 
 N I,J,K,GMRARXN,GMRA
 S I=1,J=0,K=0
 D EN1^GMRAOR1(ORPT,"GMRARXN")
 I $G(GMRARXN)="" S ORAY(I)="^No Allergy Assessment"
 I $G(GMRARXN)=0 S ORAY(I)="^No Known Allergies"
 I $G(GMRARXN)=1 F  S J=$O(GMRARXN(J)) Q:J=""  S ORAY(I)=$P(GMRARXN(J),"^",3)_"^"_$P(GMRARXN(J),"^")_"^"_$P(GMRARXN(J),"^",2) D SIGNS S I=I+1
 S:'$D(ORAY(1)) ORAY(1)="^No allergies found."

CPRS

File Type Description
Pascal File rCover.pas


Document generated on August 31st 2022, 2:55:43 pm