Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: GMRAPED3

GMRAPED3.m

Go to the documentation of this file.

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)"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAPED3   261     printed  Feb 18, 2025@23:06:15                                                                                                                                                                                                     Page 2

GMRAPED3  ;HIRMFO/YMP,RM-VALIDATE ENTRY FOR .02 FIELD IN FILE 120.8 ; 11/12/91

 +1       ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996

EN1       ; GIVEN DFN, SELECT PATIENT ALLERGY

 +1        KILL GMRAAR

           SET GMRAAR=""

 +2        WRITE !!,"CAUSATIVE AGENT: "_$PIECE(GMRAPA(0),"^",2)_"//  (Uneditable)"

 +3        QUIT