| 1 | %ZIS7 ;SFISC/AC - DEVICE HANDLER HELP ;8/29/01 07:44
|
|---|
| 2 | ;;8.0;KERNEL;**205**;JUL 10, 1995
|
|---|
| 3 | EN1 W !,"Specify a device with optional parameters in the format"
|
|---|
| 4 | W !,?8,"Device Name;Right Margin;Page Length"
|
|---|
| 5 | W !,?21,"or"
|
|---|
| 6 | W !,?5,"Device Name;Subtype;Right Margin;Page Length"
|
|---|
| 7 | W !!,"Or in the new format"
|
|---|
| 8 | W !,?14,"Device Name;/settings"
|
|---|
| 9 | W !,?21,"or"
|
|---|
| 10 | W !,?10,"Device Name;Subtype;/settings"
|
|---|
| 11 | W !,"For example"
|
|---|
| 12 | W !,?17,"HOME;80;999"
|
|---|
| 13 | W !,?21,"or"
|
|---|
| 14 | W !,?13,"HOME;C-VT320;/M80L999"
|
|---|
| 15 | W !!,"Enter ?? for more information"
|
|---|
| 16 | Q
|
|---|
| 17 | EN2 S X=0 I $D(^%ZOSF("TEST")) S X="XQH" X ^("TEST")
|
|---|
| 18 | 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*")
|
|---|
| 19 | W !,"The following information is available:"
|
|---|
| 20 | ;W !?20,"Printer Listing",!?20,"Complete Device Listing",!?20,"Extended Help"_$S(X:"",1:" [UNAVAILABLE]")
|
|---|
| 21 | W !?20,"All Printers",!?20,"Printers only on '"_%ZISV_"'",!?20,"Complete Device Listing",!?20,"Devices only on '"_%ZISV_"'"
|
|---|
| 22 | W !,?20,"New Format for Device Specification",!?20,"Extended Help"_$S(X:"",1:" [UNAVAILABLE]")
|
|---|
| 23 | R W !!?15,"Select one (A,P,C,D,N, or E): " D SBR^%ZIS1
|
|---|
| 24 | I $D(DTOUT)!$D(DUOUT) K DTOUT,DUOUT Q
|
|---|
| 25 | Q:%X="" S %X=$E(%X_"?")
|
|---|
| 26 | I %X="?"!("APCDNE"'[%X) W !,"Enter 'A', 'P', 'C', 'D', 'N' or 'E'" G R
|
|---|
| 27 | I 'X,%X="E" W *7," [UNAVAILABLE]" G R
|
|---|
| 28 | I "APCD"[%X D LD1^%ZIS5 Q
|
|---|
| 29 | I "EN"'[%X W *7," [ERROR]" Q
|
|---|
| 30 | N %IS,%H,%E,%ZISB,%ZISV,IO
|
|---|
| 31 | S U="^",XQH=$S(%X="E":"XUDOC DEVICE PROMPT*",1:"XUDOC DEVICE ALT SYNTAX")
|
|---|
| 32 | D DT^DICRW:'$D(DUZ)#2!'$D(DTIME),EN^XQH
|
|---|
| 33 | Q
|
|---|
