Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEXDDS

LEXDDS.m

Go to the documentation of this file.
  1. LEXDDS ;ISL/KER - Display Defaults - Single User ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; $$GET1^DIQ ICR 2056
  1. ; HOME^%ZIS ICR 10086
  1. ; ^%ZIS ICR 10086
  1. ; ^%ZISC ICR 10089
  1. ; ^%ZTLOAD ICR 10063
  1. ;
  1. ; Entry: D EN^LEXDDS LEXAP is unknown
  1. ;
  1. ; Entry: D EN1^LEXDDS(LEXAP) LEXAP is known
  1. ;
  1. ; Print/Display User Defaults - Single User
  1. ;
  1. ; Where
  1. ;
  1. ; LEXAP Pointer to file 757.2
  1. ;
  1. ;
  1. EN ; Display Single User Defaults, LEXAP is unknown
  1. N LEXAP,X,Y S LEXAP=$$DFI^LEXDM4 Q:+LEXAP=0 W ! D EN1(LEXAP) Q
  1. EN1(LEXAP) ; Display Single User Defaults, LEXAP is unknown
  1. W ! D DEV,HOME^%ZIS
  1. K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE Q
  1. DEV ; Select a device
  1. N %,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK
  1. S ZTRTN="DISP^LEXDDSP",(ZTSAVE("LEXAP"),ZTSAVE("DUZ"))=""
  1. S ZTDESC="LEXICON DEFAULTS FOR "_$$GET1^DIQ(200,+($G(DUZ)),.01)
  1. S ZTIO=ION,ZTDTH=$H,%ZIS="PQ" D ^%ZIS Q:POP S ZTIO=ION
  1. I $D(IO("Q")) D QUE,^%ZISC Q
  1. D NOQUE Q
  1. NOQUE ; Do not que task
  1. W @IOF W:IOST["P-"&('$D(IO("S"))) !,"< Not queued, printing user defaults >",!
  1. H 2 U:IOST["P-" IO D @ZTRTN,^%ZISC Q
  1. QUE ; Task queued to print user defaults
  1. K IO("Q") D ^%ZTLOAD
  1. W !,$S($D(ZTSK):"Request Queued",1:"Request Cancelled"),! H 2 Q