GMRAPED3 ;HIRMFO/YMP,RM-VALIDATE ENTRY FOR .02 FIELD IN FILE 120.8 ; 11/12/91
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
EN1 ; GIVEN DFN, SELECT PATIENT ALLERGY
K GMRAAR S GMRAAR=""
W !!,"CAUSATIVE AGENT: "_$P(GMRAPA(0),"^",2)_"// (Uneditable)"
Q