ZIS7.m

%ZIS7 ;SFISC/AC - DEVICE HANDLER HELP ;05/05/10  15:58

 ;;8.0;KERNEL;**205,546**;JUL 10, 1995;Build 9

EN1 W !,"Specify a device with optional parameters in the format"

 W !,?8,"Device Name;Right Margin;Page Length"

 W !,?21,"or"

 W !,?5,"Device Name;Subtype;Right Margin;Page Length"

 W !!,"Or in the new format"

 W !,?14,"Device Name;/settings"

 W !,?21,"or"

 W !,?10,"Device Name;Subtype;/settings"

 W !,"For example"

 W !,?17,"HOME;80;999"

 W !,?21,"or"

 W !,?13,"HOME;C-VT320;/M80L999"

 W !!,"Enter ?? for more information"

 Q

EN2 S X=0 I $D(^%ZOSF("TEST")) S X="XQH" X ^("TEST")

 I $T S X=$O(^DIC(9.2,"B","XUDOC DEVICE PROMPT*",0)),X=$D(^DIC(9.2,+X,0)) I X S X=($P(^(0),"^",1)="XUDOC DEVICE PROMPT*")

 W !,"The following information is available:"

 ;W !?20,"Printer Listing",!?20,"Complete Device Listing",!?20,"Extended Help"_$S(X:"",1:" [UNAVAILABLE]")

 W !?20,"All Printers",!?20,"Printers only on '"_%ZISV_"'",!?20,"Complete Device Listing",!?20,"Devices only on '"_%ZISV_"'"

 W !,?20,"New Format for Device Specification",!?20,"Extended Help"_$S(X:"",1:" [UNAVAILABLE]")

R W !!?15,"Select one (A,P,C,D,N, or E): " D SBR^%ZIS1 S %X=$$UP^%ZIS1(%X) ;p546

 I $D(DTOUT)!$D(DUOUT) K DTOUT,DUOUT Q

 Q:%X=""  S %X=$E(%X_"?")

 I %X="?"!("APCDNE"'[%X) W !,"Enter 'A', 'P', 'C', 'D', 'N' or 'E'" G R

 I 'X,%X="E" W *7," [UNAVAILABLE]" G R

 I "APCD"[%X D LD1^%ZIS5 Q

 I "EN"'[%X W *7," [ERROR]" Q

 N %ZIS,%H,%E,%ZISB,%ZISV,IO ;p546

 S U="^",XQH=$S(%X="E":"XUDOC DEVICE PROMPT*",1:"XUDOC DEVICE ALT SYNTAX")

 D DT^DICRW:'$D(DUZ)#2!'$D(DTIME),EN^XQH

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZIS7   1582     printed  Apr 09, 2024@21:07:47                                                                                                                                                                                                        Page 2

%ZIS7     ;SFISC/AC - DEVICE HANDLER HELP ;05/05/10  15:58

 +1       ;;8.0;KERNEL;**205,546**;JUL 10, 1995;Build 9

EN1        WRITE !,"Specify a device with optional parameters in the format"

 +1        WRITE !,?8,"Device Name;Right Margin;Page Length"

 +2        WRITE !,?21,"or"

 +3        WRITE !,?5,"Device Name;Subtype;Right Margin;Page Length"

 +4        WRITE !!,"Or in the new format"

 +5        WRITE !,?14,"Device Name;/settings"

 +6        WRITE !,?21,"or"

 +7        WRITE !,?10,"Device Name;Subtype;/settings"

 +8        WRITE !,"For example"

 +9        WRITE !,?17,"HOME;80;999"

 +10       WRITE !,?21,"or"

 +11       WRITE !,?13,"HOME;C-VT320;/M80L999"

 +12       WRITE !!,"Enter ?? for more information"

 +13       QUIT 

EN2        SET X=0

           IF $DATA(^%ZOSF("TEST"))

               SET X="XQH"

               XECUTE ^("TEST")

 +1        IF $TEST

               SET X=$ORDER(^DIC(9.2,"B","XUDOC DEVICE PROMPT*",0))

               SET X=$DATA(^DIC(9.2,+X,0))

               IF X

                   SET X=($PIECE(^(0),"^",1)="XUDOC DEVICE PROMPT*")

 +2        WRITE !,"The following information is available:"

 +3       ;W !?20,"Printer Listing",!?20,"Complete Device Listing",!?20,"Extended Help"_$S(X:"",1:" [UNAVAILABLE]")

 +4        WRITE !?20,"All Printers",!?20,"Printers only on '"_%ZISV_"'",!?20,"Complete Device Listing",!?20,"Devices only on '"_%ZISV_"'"

 +5        WRITE !,?20,"New Format for Device Specification",!?20,"Extended Help"_$SELECT(X:"",1:" [UNAVAILABLE]")

R         ;p546

           WRITE !!?15,"Select one (A,P,C,D,N, or E): "

           DO SBR^%ZIS1

           SET %X=$$UP^%ZIS1(%X)

 +1        IF $DATA(DTOUT)!$DATA(DUOUT)

               KILL DTOUT,DUOUT

               QUIT 

 +2        if %X=""

               QUIT 

           SET %X=$EXTRACT(%X_"?")

 +3        IF %X="?"!("APCDNE"'[%X)

               WRITE !,"Enter 'A', 'P', 'C', 'D', 'N' or 'E'"

               GOTO R

 +4        IF 'X

               IF %X="E"

                   WRITE *7," [UNAVAILABLE]"

                   GOTO R

 +5        IF "APCD"[%X

               DO LD1^%ZIS5

               QUIT 

 +6        IF "EN"'[%X

               WRITE *7," [ERROR]"

               QUIT 

 +7       ;p546

           NEW %ZIS,%H,%E,%ZISB,%ZISV,IO

 +8        SET U="^"

           SET XQH=$SELECT(%X="E":"XUDOC DEVICE PROMPT*",1:"XUDOC DEVICE ALT SYNTAX")

 +9        if '$DATA(DUZ)#2!'$DATA(DTIME)

               DO DT^DICRW

           DO EN^XQH

 +10       QUIT