- 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 ---[H[J[2J[HLEXDDS 1466 printed Jan 18, 2025@03:08:21 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