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