| 1 | XUTMTLU ;SEA/RDS - TaskMan: ToolKit, Lookup For Unschedule ;11/18/94 10:38
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | SCHED ;Lookup Tasks In Schedule File
|
|---|
| 5 | N ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTS K ^TMP($J,"XUTMTLU"),ZTSK S ZTSK=0
|
|---|
| 6 | S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH(ZT1)),ZT2="" Q:'ZT1 F ZT=0:0 S ZT2=$O(^%ZTSCH(ZT1,ZT2)) Q:ZT2="" S ZTS=ZT2 D COUNT
|
|---|
| 7 | S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)),ZT3="" Q:ZT2="" F ZT=0:0 S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTS=ZT3 D COUNT
|
|---|
| 8 | S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:ZT2="" S ZTS=ZT2 D COUNT
|
|---|
| 9 | S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)),ZT3="" Q:ZT2="" F ZT=0:0 S ZT3=$O(^%ZTSCH("LINK",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTS=ZT3 D COUNT
|
|---|
| 10 | K ^TMP($J,"XUTMTLU") Q
|
|---|
| 11 | ;
|
|---|
| 12 | COUNT ;Add Either One Or Zero To The Count Of Scheduled Tasks In List
|
|---|
| 13 | ;
|
|---|
| 14 | C2 ;First Screen By Whether Task Has Already Been Counted
|
|---|
| 15 | I $D(^TMP($J,"XUTMTLU",ZTS))#2 Q
|
|---|
| 16 | ;
|
|---|
| 17 | C5 ;Then Screen by Whether Task Is Within Range
|
|---|
| 18 | I '$D(^TMP($J,"XUTMT",ZTS)) S ZT5=$O(^TMP($J,"XUTMT",ZTS)) Q:ZT5="" S ZT6=$O(^(ZT5,"")) Q:ZT6>ZTS!'ZT6
|
|---|
| 19 | ;
|
|---|
| 20 | C8 ;Finally Screen By Whether User Has Authority To Select Task
|
|---|
| 21 | N X
|
|---|
| 22 | I 'ZTKEY S X=$G(^%ZTSK(ZTS)) I $S(X="":1,$P(X,U,11)_","_$P(X,U,12)=XUTMUCI:DUZ'=$P(X,U,3),1:ZTNAME'=$P(X,U,10)) Q
|
|---|
| 23 | ;
|
|---|
| 24 | C12 ;Count Tasks Not Screened Out
|
|---|
| 25 | S ^TMP($J,"XUTMTLU",ZTS)="",ZTSK=ZTSK+1 Q
|
|---|
| 26 | ;
|
|---|
