source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPEM2.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 443 bytes
Line 
1GMRAPEM2 ;HIRMFO/YMP,RM,WAA-CHANGE OF OBSERVED DATA TO HISTORICAL STORAGE ;12/1/95 13:45
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3OUTPUT ;Display the word processing field for a patient allergy record.
4 D DISP G EXIT
5 Q
6DISP S GMRAOUT=0
7 F GMRAYY="O","V","E" D DISP1^GMRAPEM1(GMRAPA,GMRAYY,.GMRAOUT) Q:GMRAOUT
8 Q
9PRINT ;PRINT OUT THE DATA
10 D PRINT^GMRAPEM1
11 Q
12HEAD ;Print header data.
13 D EOP^GMRADSP3
14 Q
15EXIT ;Exit point.
16 K GMRAVCM
17 Q
Note: See TracBrowser for help on using the repository browser.