GMRAPEM2.m

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

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