GMRAPEM2 ;HIRMFO/YMP,RM,WAA-CHANGE OF OBSERVED DATA TO HISTORICAL STORAGE ;12/1/95 13:45
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
OUTPUT ;Display the word processing field for a patient allergy record.
D DISP G EXIT
Q
DISP S GMRAOUT=0
F GMRAYY="O","V","E" D DISP1^GMRAPEM1(GMRAPA,GMRAYY,.GMRAOUT) Q:GMRAOUT
Q
PRINT ;PRINT OUT THE DATA
D PRINT^GMRAPEM1
Q
HEAD ;Print header data.
D EOP^GMRADSP3
Q
EXIT ;Exit point.
K GMRAVCM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAPEM2 460 printed Dec 13, 2024@01:39:58 Page 2
GMRAPEM2 ;HIRMFO/YMP,RM,WAA-CHANGE OF OBSERVED DATA TO HISTORICAL STORAGE ;12/1/95 13:45
+1 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
OUTPUT ;Display the word processing field for a patient allergy record.
+1 DO DISP
GOTO EXIT
+2 QUIT
DISP SET GMRAOUT=0
+1 FOR GMRAYY="O","V","E"
DO DISP1^GMRAPEM1(GMRAPA,GMRAYY,.GMRAOUT)
if GMRAOUT
QUIT
+2 QUIT
PRINT ;PRINT OUT THE DATA
+1 DO PRINT^GMRAPEM1
+2 QUIT
HEAD ;Print header data.
+1 DO EOP^GMRADSP3
+2 QUIT
EXIT ;Exit point.
+1 KILL GMRAVCM
+2 QUIT
