source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTP0.m@ 738

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1XUTMTP0 ;SEA/RDS - TaskMan: ToolKit, Print, Part 2 ;12/16/94 15:47
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 Q
5STATUS ;
6 S %=$P(XUTSK(.1),U) I %]"",$T(@%)]"" D @% Q
7TRAP S XUTSK(.15,ZTC)="This task has an irregular status code." Q
8 ;
9CODES ;Messages For The Various Status Codes
100 S XUTSK(.15,ZTC)="Incomplete or still being created." Q
111 S XUTSK(.15,ZTC)="Stopped irregularly while scheduled." Q
122 S XUTSK(.15,ZTC)="Being inspected by Task Manager." Q
133 S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a partition." Q
144 S XUTSK(.15,ZTC)="Being prepared." Q
155 S XUTSK(.15,ZTC)="Started running "_XUTSK("UPDATE")_" and stopped irregularly." Q
166 S XUTSK(.15,ZTC)="Completed "_XUTSK("UPDATE")_"." Q
17A S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a device." Q
18B S XUTSK(.15,ZTC)="Rejected.",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
19C S XUTSK(.15,ZTC)="Error "_XUTSK("UPDATE")_".",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
20D S XUTSK(.15,ZTC)="Stopped by "_$S(ZTNAME'=$P(XUTSK(.1),U,10):$P(XUTSK(.1),U,10)_".",1:"you.") Q
21E S XUTSK(.15,ZTC)="Interrupted while running." Q
22F S XUTSK(.15,ZTC)="Unscheduled by "_$S(ZTNAME'=$P(XUTSK(.1),U,3):$P(XUTSK(.1),U,3)_".",1:"you.") Q
23G S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a link." Q
24H S XUTSK(.15,ZTC)="Edited without being scheduled." Q
25I S XUTSK(.15,ZTC)="Discarded by Task Manager because its record was incomplete." Q
26J S XUTSK(.15,ZTC)="Currently being edited." Q
27K S XUTSK(.15,ZTC)="Created without being scheduled." Q
28L S XUTSK(.15,ZTC)="Preparing this task caused the submanager an error "_XUTSK("UPDATE")_".",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
29 ;
30 ;
Note: See TracBrowser for help on using the repository browser.