source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDDS.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1LEXDDS ; 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 ;
15EN ; Display Single User Defaults, LEXAP is unknown
16 N LEXAP,X,Y S LEXAP=$$DFI^LEXDM4 Q:+LEXAP=0 W ! D EN1(LEXAP) Q
17EN1(LEXAP) ; Display Single User Defaults, LEXAP is unknown
18 W ! D DEV,HOME^%ZIS
19 K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE Q
20DEV ; 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
27NOQUE ; 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
30QUE ; 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
Note: See TracBrowser for help on using the repository browser.