ZIBDR.m

ZIBDR ; IHS/ADC/GTH - SAVES DIR STRING TO EDITORS ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 ;

 ; The string is stored in the "Temp" storage area for the

 ; screen and line editors for the current device.

 ;

SAVE(ZIBDIR) ;EP - Save string in editor global locations.

 ; I ^%ZOSF("OS")'["MSM" D OSNO^XB Q  ; Only supports Micronetics. ;IHS/SET/GTH XB*3*9 10/29/2002

 I ^%ZOSF("OS")'["MSM",'(^%ZOSF("OS")["OpenM") D OSNO^XB Q  ;IHS/SET/GTH XB*3*9 10/29/2002

 I $$VERSION^%ZOSV(1)["MSM" D  Q  ;IHS/SET/GTH XB*3*9 10/29/2002

 . W !!!,"Saving the following line of code in",!,"^%ZUT($I,""Temp"") for the ^%E editor,",!,"and ^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR ;IHS/SET/GTH XB*3*9 10/29/2002

 . KILL ^%ZUT($I,"Temp") ;IHS/SET/GTH XB*3*9 10/29/2002

 . S ^%ZUT($I,"Temp",1)=ZIBDIR,^%ZUT($I,"Temp",0)="Temporary storage" ;IHS/SET/GTH XB*3*9 10/29/2002

 .Q  ;IHS/SET/GTH XB*3*9 10/29/2002

 ;W !!!,"Saving the following line of code in",!,"^%ZUT($I,""Temp"") for the ^%E editor,",!,"and ^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR ;IHS/SET/GTH XB*3*9 10/29/2002

 W !!!,"Saving the following line of code in",!,"^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR ;IHS/SET/GTH XB*3*9 10/29/2002

 ; KILL ^%ZUT($I,"Temp") S ^%ZUT($I,"Temp",1)=ZIBDIR,^%ZUT($I,"Temp",0)="Temporary storage" ;IHS/SET/GTH XB*3*9 10/29/2002

 KILL ^ZUT($I,"Temp") S ^ZUT($I,"Temp",1)=ZIBDIR,^ZUT($I,"Temp",0)="Temporary storage"

 Q

 ;

ZIBDR     ; IHS/ADC/GTH - SAVES DIR STRING TO EDITORS ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 +2       ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 +3       ;

 +4       ; The string is stored in the "Temp" storage area for the

 +5       ; screen and line editors for the current device.

 +6       ;

SAVE(ZIBDIR) ;EP - Save string in editor global locations.

 +1       ; I ^%ZOSF("OS")'["MSM" D OSNO^XB Q  ; Only supports Micronetics. ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           IF ^%ZOSF("OS")'["MSM"

               IF '(^%ZOSF("OS")["OpenM")

                   DO OSNO^XB

                   QUIT 

 +3       ;IHS/SET/GTH XB*3*9 10/29/2002

           IF $$VERSION^%ZOSV(1)["MSM"

               Begin DoDot:1

 +4       ;IHS/SET/GTH XB*3*9 10/29/2002

                   WRITE !!!,"Saving the following line of code in",!,"^%ZUT($I,""Temp"") for the ^%E editor,",!,"and ^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR

 +5       ;IHS/SET/GTH XB*3*9 10/29/2002

                   KILL ^%ZUT($IO,"Temp")

 +6       ;IHS/SET/GTH XB*3*9 10/29/2002

                   SET ^%ZUT($IO,"Temp",1)=ZIBDIR

                   SET ^%ZUT($IO,"Temp",0)="Temporary storage"

 +7       ;IHS/SET/GTH XB*3*9 10/29/2002

                   QUIT 

               End DoDot:1

               QUIT 

 +8       ;W !!!,"Saving the following line of code in",!,"^%ZUT($I,""Temp"") for the ^%E editor,",!,"and ^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR ;IHS/SET/GTH XB*3*9 10/29/2002

 +9       ;IHS/SET/GTH XB*3*9 10/29/2002

           WRITE !!!,"Saving the following line of code in",!,"^ZUT($I,""Temp"") for the ^% editor:",!,ZIBDIR

 +10      ; KILL ^%ZUT($I,"Temp") S ^%ZUT($I,"Temp",1)=ZIBDIR,^%ZUT($I,"Temp",0)="Temporary storage" ;IHS/SET/GTH XB*3*9 10/29/2002

 +11       KILL ^ZUT($IO,"Temp")

           SET ^ZUT($IO,"Temp",1)=ZIBDIR

           SET ^ZUT($IO,"Temp",0)="Temporary storage"

 +12       QUIT 

 +13      ;