- %ZIS7 ;SFISC/AC - DEVICE HANDLER HELP ;05/05/10 15:58
- ;;8.0;KERNEL;**205,546**;JUL 10, 1995;Build 12
- 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
- %ZIS7 ;SFISC/AC - DEVICE HANDLER HELP ;05/05/10 15:58
- +1 ;;8.0;KERNEL;**205,546**;JUL 10, 1995;Build 12
- 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
