18 lines
443 B
Mathematica
18 lines
443 B
Mathematica
|
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
|