LEXDDS.m

LEXDDS ;ISL/KER - Display Defaults - Single User ;04/21/2014

 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    $$GET1^DIQ          ICR   2056

 ;    HOME^%ZIS           ICR  10086

 ;    ^%ZIS               ICR  10086

 ;    ^%ZISC              ICR  10089

 ;    ^%ZTLOAD            ICR  10063

 ;               

 ; Entry:  D EN^LEXDDS              LEXAP is unknown

 ;

 ; Entry:  D EN1^LEXDDS(LEXAP)     LEXAP is known

 ;

 ; Print/Display User Defaults - Single User

 ;

 ; Where 

 ;

 ;      LEXAP     Pointer to file 757.2

 ;

 ;

EN ; Display Single User Defaults, LEXAP is unknown

 N LEXAP,X,Y S LEXAP=$$DFI^LEXDM4 Q:+LEXAP=0  W ! D EN1(LEXAP) Q

EN1(LEXAP) ; Display Single User Defaults, LEXAP is unknown

 W ! D DEV,HOME^%ZIS

 K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE Q

DEV ; Select a device

 N %,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK

 S ZTRTN="DISP^LEXDDSP",(ZTSAVE("LEXAP"),ZTSAVE("DUZ"))=""

 S ZTDESC="LEXICON DEFAULTS FOR "_$$GET1^DIQ(200,+($G(DUZ)),.01)

 S ZTIO=ION,ZTDTH=$H,%ZIS="PQ" D ^%ZIS Q:POP  S ZTIO=ION

 I $D(IO("Q")) D QUE,^%ZISC Q

 D NOQUE Q

NOQUE ; Do not que task

 W @IOF W:IOST["P-"&('$D(IO("S"))) !,"< Not queued, printing user defaults >",!

 H 2 U:IOST["P-" IO D @ZTRTN,^%ZISC Q

QUE ; Task queued to print user defaults

 K IO("Q") D ^%ZTLOAD

 W !,$S($D(ZTSK):"Request Queued",1:"Request Cancelled"),! H 2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEXDDS   1466     printed  Apr 09, 2024@21:08:12                                                                                                                                                                                                      Page 2

LEXDDS    ;ISL/KER - Display Defaults - Single User ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1

 +2       ;               

 +3       ; Global Variables

 +4       ;    None

 +5       ;               

 +6       ; External References

 +7       ;    $$GET1^DIQ          ICR   2056

 +8       ;    HOME^%ZIS           ICR  10086

 +9       ;    ^%ZIS               ICR  10086

 +10      ;    ^%ZISC              ICR  10089

 +11      ;    ^%ZTLOAD            ICR  10063

 +12      ;               

 +13      ; Entry:  D EN^LEXDDS              LEXAP is unknown

 +14      ;

 +15      ; Entry:  D EN1^LEXDDS(LEXAP)     LEXAP is known

 +16      ;

 +17      ; Print/Display User Defaults - Single User

 +18      ;

 +19      ; Where 

 +20      ;

 +21      ;      LEXAP     Pointer to file 757.2

 +22      ;

 +23      ;

EN        ; Display Single User Defaults, LEXAP is unknown

 +1        NEW LEXAP,X,Y

           SET LEXAP=$$DFI^LEXDM4

           if +LEXAP=0

               QUIT 

           WRITE !

           DO EN1(LEXAP)

           QUIT 

EN1(LEXAP) ; Display Single User Defaults, LEXAP is unknown

 +1        WRITE !

           DO DEV

           DO HOME^%ZIS

 +2        KILL ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

           QUIT 

DEV       ; Select a device

 +1        NEW %,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK

 +2        SET ZTRTN="DISP^LEXDDSP"

           SET (ZTSAVE("LEXAP"),ZTSAVE("DUZ"))=""

 +3        SET ZTDESC="LEXICON DEFAULTS FOR "_$$GET1^DIQ(200,+($GET(DUZ)),.01)

 +4        SET ZTIO=ION

           SET ZTDTH=$HOROLOG

           SET %ZIS="PQ"

           DO ^%ZIS

           if POP

               QUIT 

           SET ZTIO=ION

 +5        IF $DATA(IO("Q"))

               DO QUE

               DO ^%ZISC

               QUIT 

 +6        DO NOQUE

           QUIT 

NOQUE     ; Do not que task

 +1        WRITE @IOF

           if IOST["P-"&('$DATA(IO("S")))

               WRITE !,"< Not queued, printing user defaults >",!

 +2        HANG 2

           if IOST["P-"

               USE IO

           DO @ZTRTN

           DO ^%ZISC

           QUIT 

QUE       ; Task queued to print user defaults

 +1        KILL IO("Q")

           DO ^%ZTLOAD

 +2        WRITE !,$SELECT($DATA(ZTSK):"Request Queued",1:"Request Cancelled"),!

           HANG 2

           QUIT