- XUTMTLU ;SEA/RDS - TaskMan: ToolKit, Lookup For Unschedule ;11/18/94 10:38
- ;;8.0;KERNEL;;Jul 10, 1995
- ;
- SCHED ;Lookup Tasks In Schedule File
- N ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTS K ^TMP($J,"XUTMTLU"),ZTSK S ZTSK=0
- 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
- 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
- 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
- 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
- K ^TMP($J,"XUTMTLU") Q
- ;
- COUNT ;Add Either One Or Zero To The Count Of Scheduled Tasks In List
- ;
- C2 ;First Screen By Whether Task Has Already Been Counted
- I $D(^TMP($J,"XUTMTLU",ZTS))#2 Q
- ;
- C5 ;Then Screen by Whether Task Is Within Range
- I '$D(^TMP($J,"XUTMT",ZTS)) S ZT5=$O(^TMP($J,"XUTMT",ZTS)) Q:ZT5="" S ZT6=$O(^(ZT5,"")) Q:ZT6>ZTS!'ZT6
- ;
- C8 ;Finally Screen By Whether User Has Authority To Select Task
- N X
- 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
- ;
- C12 ;Count Tasks Not Screened Out
- S ^TMP($J,"XUTMTLU",ZTS)="",ZTSK=ZTSK+1 Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTLU 1509 printed Mar 13, 2025@21:18:45 Page 2
- XUTMTLU ;SEA/RDS - TaskMan: ToolKit, Lookup For Unschedule ;11/18/94 10:38
- +1 ;;8.0;KERNEL;;Jul 10, 1995
- +2 ;
- SCHED ;Lookup Tasks In Schedule File
- +1 NEW ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTS
- KILL ^TMP($JOB,"XUTMTLU"),ZTSK
- SET ZTSK=0
- +2 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH(ZT1))
- SET ZT2=""
- if 'ZT1
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH(ZT1,ZT2))
- if ZT2=""
- QUIT
- SET ZTS=ZT2
- DO COUNT
- +3 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH("IO",ZT1))
- SET ZT2=""
- if ZT1=""
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))
- SET ZT3=""
- if ZT2=""
- QUIT
- FOR ZT=0:0
- SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))
- if ZT3=""
- QUIT
- SET ZTS=ZT3
- DO COUNT
- +4 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
- SET ZT2=""
- if ZT1=""
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH("JOB",ZT1,ZT2))
- if ZT2=""
- QUIT
- SET ZTS=ZT2
- DO COUNT
- +5 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
- SET ZT2=""
- if ZT1=""
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH("LINK",ZT1,ZT2))
- SET ZT3=""
- if ZT2=""
- QUIT
- FOR ZT=0:0
- SET ZT3=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZT3))
- if ZT3=""
- QUIT
- SET ZTS=ZT3
- DO COUNT
- +6 KILL ^TMP($JOB,"XUTMTLU")
- QUIT
- +7 ;
- COUNT ;Add Either One Or Zero To The Count Of Scheduled Tasks In List
- +1 ;
- C2 ;First Screen By Whether Task Has Already Been Counted
- +1 IF $DATA(^TMP($JOB,"XUTMTLU",ZTS))#2
- QUIT
- +2 ;
- C5 ;Then Screen by Whether Task Is Within Range
- +1 IF '$DATA(^TMP($JOB,"XUTMT",ZTS))
- SET ZT5=$ORDER(^TMP($JOB,"XUTMT",ZTS))
- if ZT5=""
- QUIT
- SET ZT6=$ORDER(^(ZT5,""))
- if ZT6>ZTS!'ZT6
- QUIT
- +2 ;
- C8 ;Finally Screen By Whether User Has Authority To Select Task
- +1 NEW X
- +2 IF 'ZTKEY
- SET X=$GET(^%ZTSK(ZTS))
- IF $SELECT(X="":1,$PIECE(X,U,11)_","_$PIECE(X,U,12)=XUTMUCI:DUZ'=$PIECE(X,U,3),1:ZTNAME'=$PIECE(X,U,10))
- QUIT
- +3 ;
- C12 ;Count Tasks Not Screened Out
- +1 SET ^TMP($JOB,"XUTMTLU",ZTS)=""
- SET ZTSK=ZTSK+1
- QUIT
- +2 ;
