| 1 | LEXDDS ; ISL Display Defaults - Single User ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | ; Entry: D EN^LEXDDS LEXAP is unknown
|
|---|
| 5 | ;
|
|---|
| 6 | ; Entry: D EN1^LEXDDS(LEXAP) LEXAP is known
|
|---|
| 7 | ;
|
|---|
| 8 | ; Print/Display User Defaults - Single User
|
|---|
| 9 | ;
|
|---|
| 10 | ; Where
|
|---|
| 11 | ;
|
|---|
| 12 | ; LEXAP Pointer to file 757.2
|
|---|
| 13 | ;
|
|---|
| 14 | ;
|
|---|
| 15 | EN ; Display Single User Defaults, LEXAP is unknown
|
|---|
| 16 | N LEXAP,X,Y S LEXAP=$$DFI^LEXDM4 Q:+LEXAP=0 W ! D EN1(LEXAP) Q
|
|---|
| 17 | EN1(LEXAP) ; Display Single User Defaults, LEXAP is unknown
|
|---|
| 18 | W ! D DEV,HOME^%ZIS
|
|---|
| 19 | K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE Q
|
|---|
| 20 | DEV ; Select a device
|
|---|
| 21 | N %,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK
|
|---|
| 22 | S ZTRTN="DISP^LEXDDSP",(ZTSAVE("LEXAP"),ZTSAVE("DUZ"))=""
|
|---|
| 23 | S ZTDESC="LEXICON DEFAULTS FOR "_$P(^VA(200,DUZ,0),"^",1)
|
|---|
| 24 | S ZTIO=ION,ZTDTH=$H,%ZIS="PQ" D ^%ZIS Q:POP S ZTIO=ION
|
|---|
| 25 | I $D(IO("Q")) D QUE,^%ZISC Q
|
|---|
| 26 | D NOQUE Q
|
|---|
| 27 | NOQUE ; Do not que task
|
|---|
| 28 | W @IOF W:IOST["P-"&('$D(IO("S"))) !,"< Not queued, printing user defaults >",!
|
|---|
| 29 | H 2 U:IOST["P-" IO D @ZTRTN,^%ZISC Q
|
|---|
| 30 | QUE ; Task queued to print user defaults
|
|---|
| 31 | K IO("Q") D ^%ZTLOAD
|
|---|
| 32 | W !,$S($D(ZTSK):"Request Queued",1:"Request Cancelled"),! H 2 Q
|
|---|
