; PROCEDURE RETURNS PT DX INFO
; INPUT: DFN=PTR TO PATIENT
; DATE=DATE TO FIND CURRENT DX FOR
; OUTPUT:
ALLERGY(DFN,ARRAY)
; PROCEDURE RETURNS PT A/AR INFO
; INPUT: DFN=PTR TO PATIENT
; ARRAY=RESULTS RETURNED IN ARRAY (PASSED BY REF)
; OUTPUT: ARRAY(X)=A
; WHERE X IS 1..NUMBER OF ALLERGIES
; A IS FREE TEXT ALLERGY (MECHANISM)