BLRLUAC9.m

BLRLUAC9 ; IHS/OIT/MKK - IHS LRUPAC 9, I/O routines ; [ 05/15/11  7:50 AM ]

 ;;5.2;LR;**1030**;NOV 01, 1997

 ;

 ; I/O Setup for Reports

 ;

OPENIO(MAXLINES,LINES) ; EP

 D ^%ZIS

 I POP D  Q

 . W !,?4,"Could not open device.  Will print to the screen.",!

 . D PRESSKEY^BLRGMENU(9)

 U IO

 S MAXLINES=IOSL-3,LINES=MAXLINES+10

 Q

 ;

CLOSEIO ; EP

 D ^%ZISC

 Q

BLRLUAC9  ; IHS/OIT/MKK - IHS LRUPAC 9, I/O routines ; [ 05/15/11  7:50 AM ]

 +1       ;;5.2;LR;**1030**;NOV 01, 1997

 +2       ;

 +3       ; I/O Setup for Reports

 +4       ;

OPENIO(MAXLINES,LINES) ; EP

 +1        DO ^%ZIS

 +2        IF POP

               Begin DoDot:1

 +3                WRITE !,?4,"Could not open device.  Will print to the screen.",!

 +4                DO PRESSKEY^BLRGMENU(9)

               End DoDot:1

               QUIT 

 +5        USE IO

 +6        SET MAXLINES=IOSL-3

           SET LINES=MAXLINES+10

 +7        QUIT 

 +8       ;

CLOSEIO   ; EP

 +1        DO ^%ZISC

 +2        QUIT