source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTAL.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1XUTMTAL ;SEA/RDS - TaskMan: ToolKit, Select List ;06/27/94 14:01
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4START G SELECT
5 ;
6SETUP ;SELECT--Setup Reader Input Parameters
7 S DIR(0)="FAO^^D XFORM^XUTMTAL"
8 S DIR("A")=$S($D(XUTMT("A"))#2:XUTMT("A"),1:"Select TASK: ")
9 S DIR("?")=$S($D(XUTMT("?"))#2:XUTMT("?"),1:"^D HELP1^XUTMTAL")
10 S DIR("??")=$S($D(XUTMT("??"))#2:XUTMT("??"),1:"^D ^XUTMQ")
11 I DIR("??")="@" K DIR("??")
12 I $D(XUTMT("B"))#2 S DIR("B")=XUTMT("B")
13 I $D(DTIME)[0 S DIR("T")=60
14 Q
15 ;
16XFORM ;SELECT--Input Transform
17 N ZT,ZT1,ZT2,ZT3,ZT4,ZTIGNORE,ZTOUT,ZTYPE
18 K ^TMP($J,"XUTMT") S ZTOUT=0
19 I $D(XUTMT("S1"))#2 X XUTMT("S1") I ZTOUT Q
20 S ZTIGNORE=0,ZTYPE=$L(X,",")>1!(X["-")
21 F ZT=1:1:$L(X,",") S ZT1=$P(X,",",ZT) D ELEMNT
22 S ZT1="",ZT3="" F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMT",ZT1)),ZT2="" Q:ZT1="" S:$D(^(ZT1))=1 ZT3=ZT3_","_ZT1 I $D(^(ZT1))=10 F ZT=0:0 S ZT2=$O(^TMP($J,"XUTMT",ZT1,ZT2)) Q:ZT2="" S ZT3=ZT3_","_ZT2_"-"_ZT1
23 I ZT3'["-",ZT3'["," K ^TMP($J,"XUTMT")
24 I ZT3="",'ZTYPE W !!?5,"That is not a valid task number." K X Q
25 I ZT3="" W !!?5,"That is not a valid list of task numbers." K X Q
26 I ZTIGNORE W !?5,"(Irregular list elements ignored)"
27 S Y=$E(ZT3,2,$L(ZT3))
28 I $D(XUTMT("S2"))#2 X XUTMT("S2") I '$D(X) K Y,^TMP($J,"XUTMT")
29 Q
30 ;
31ELEMNT ;XFORM--process each element in the list
32 S ZT2=ZT1
33 I ZT1["-" S ZT1=+ZT1,ZT2=$P(ZT2,"-",2)
34 I $S(ZT1=0:1,ZT2=0:1,ZT1'?1N.N:1,1:ZT2'?1N.N) S ZTIGNORE=1 Q
35 I ZT1>ZT2 S ZT3=ZT1,ZT1=ZT2,ZT2=ZT3
36 D ADDTR
37 Q
38 ;
39ADDTR ;XFORM--Add Task Range To Compression List
40 S ZT3=$O(^TMP($J,"XUTMT",ZT1-2)) I ZT3]"",ZT3<ZT2 S:$D(^(ZT3))=1&(ZT1-1=ZT3) ZT1=ZT3 I $D(^(ZT3))>9 S ZT4=$O(^(ZT3,"")) I ZT4<ZT1 S ZT1=ZT4
41 S ZT3=$O(^TMP($J,"XUTMT",ZT2-1)) I ZT3]"" S:$D(^(ZT3))=1&(ZT2+1=ZT3) ZT2=ZT3 I $D(^(ZT3))>9 S ZT4=$O(^(ZT3,"")) I ZT4'>(ZT2+1) S ZT2=ZT3
42 S ZT3=ZT1-1 F ZT4=0:0 S ZT3=$O(^TMP($J,"XUTMT",ZT3)) Q:ZT3=""!(ZT3>ZT2) K ^TMP($J,"XUTMT",ZT3)
43 S:ZT1'=ZT2 ^TMP($J,"XUTMT",ZT2,ZT1)="" S:ZT1=ZT2 ^TMP($J,"XUTMT",ZT1)="" Q
44 ;
45HELP1 ;SELECT--Default Help For '?'
46 W !!?5,"Answer must be the internal number(s) of the task(s) to be selected."
47 W !!?5,"Answer must be an integer between 1 and 999999999."
48 W !?5,"Answer may be a range, for example 4000-5000."
49 W !?5,"Answer may be a list, for example 4001,4004,4010-4020."
50 Q
51 ;
52SELECT ;Main Section--Select Task
53 N DIR,DIRUT,DTOUT,DUOUT,X,Y,ZT
54 D SETUP,^DIR K DIR
55 I $D(DTOUT) W " ** TIME-OUT **",$C(7)
56 I $D(DUOUT) W " ** ^-ESCAPE **"
57 K XUTMT,ZTSK S ZTSK=$S(U[Y:"",1:Y) Q
58 ;
Note: See TracBrowser for help on using the repository browser.