XUTMTP0.m

XUTMTP0 ;SEA/RDS - TaskMan: ToolKit, Print, Part 2 ;12/16/94  15:47 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

 Q

STATUS ;

 S %=$P(XUTSK(.1),U) I %]"",$T(@%)]"" D @% Q

TRAP S XUTSK(.15,ZTC)="This task has an irregular status code." Q

 ;

CODES ;Messages For The Various Status Codes

0 S XUTSK(.15,ZTC)="Incomplete or still being created." Q

1 S XUTSK(.15,ZTC)="Stopped irregularly while scheduled." Q

2 S XUTSK(.15,ZTC)="Being inspected by Task Manager." Q

3 S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a partition." Q

4 S XUTSK(.15,ZTC)="Being prepared." Q

5 S XUTSK(.15,ZTC)="Started running "_XUTSK("UPDATE")_" and stopped irregularly." Q

6 S XUTSK(.15,ZTC)="Completed "_XUTSK("UPDATE")_"." Q

A S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a device." Q

B S XUTSK(.15,ZTC)="Rejected.",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q

C S XUTSK(.15,ZTC)="Error "_XUTSK("UPDATE")_".",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q

D S XUTSK(.15,ZTC)="Stopped by "_$S(ZTNAME'=$P(XUTSK(.1),U,10):$P(XUTSK(.1),U,10)_".",1:"you.") Q

E S XUTSK(.15,ZTC)="Interrupted while running." Q

F S XUTSK(.15,ZTC)="Unscheduled by "_$S(ZTNAME'=$P(XUTSK(.1),U,3):$P(XUTSK(.1),U,3)_".",1:"you.") Q

G S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a link." Q

H S XUTSK(.15,ZTC)="Edited without being scheduled." Q

I S XUTSK(.15,ZTC)="Discarded by Task Manager because its record was incomplete." Q

J S XUTSK(.15,ZTC)="Currently being edited." Q

K S XUTSK(.15,ZTC)="Created without being scheduled." Q

L 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

 ;

 ;

XUTMTP0   ;SEA/RDS - TaskMan: ToolKit, Print, Part 2 ;12/16/94  15:47 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

 +3       ;

 +4        QUIT 

STATUS    ;

 +1        SET %=$PIECE(XUTSK(.1),U)

           IF %]""

               IF $TEXT(@%)]""

                   DO @%

                   QUIT 

TRAP       SET XUTSK(.15,ZTC)="This task has an irregular status code."

           QUIT 

 +1       ;

CODES     ;Messages For The Various Status Codes

0          SET XUTSK(.15,ZTC)="Incomplete or still being created."

           QUIT 

1          SET XUTSK(.15,ZTC)="Stopped irregularly while scheduled."

           QUIT 

2          SET XUTSK(.15,ZTC)="Being inspected by Task Manager."

           QUIT 

3          SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a partition."

           QUIT 

4          SET XUTSK(.15,ZTC)="Being prepared."

           QUIT 

5          SET XUTSK(.15,ZTC)="Started running "_XUTSK("UPDATE")_" and stopped irregularly."

           QUIT 

6          SET XUTSK(.15,ZTC)="Completed "_XUTSK("UPDATE")_"."

           QUIT 

A          SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a device."

           QUIT 

B          SET XUTSK(.15,ZTC)="Rejected."

           SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)

           SET ZTC=ZTC+1

           QUIT 

C          SET XUTSK(.15,ZTC)="Error "_XUTSK("UPDATE")_"."

           SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)

           SET ZTC=ZTC+1

           QUIT 

D          SET XUTSK(.15,ZTC)="Stopped by "_$SELECT(ZTNAME'=$PIECE(XUTSK(.1),U,10):$PIECE(XUTSK(.1),U,10)_".",1:"you.")

           QUIT 

E          SET XUTSK(.15,ZTC)="Interrupted while running."

           QUIT 

F          SET XUTSK(.15,ZTC)="Unscheduled by "_$SELECT(ZTNAME'=$PIECE(XUTSK(.1),U,3):$PIECE(XUTSK(.1),U,3)_".",1:"you.")

           QUIT 

G          SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a link."

           QUIT 

H          SET XUTSK(.15,ZTC)="Edited without being scheduled."

           QUIT 

I          SET XUTSK(.15,ZTC)="Discarded by Task Manager because its record was incomplete."

           QUIT 

J          SET XUTSK(.15,ZTC)="Currently being edited."

           QUIT 

K          SET XUTSK(.15,ZTC)="Created without being scheduled."

           QUIT 

L          SET XUTSK(.15,ZTC)="Preparing this task caused the submanager an error "_XUTSK("UPDATE")_"."

           SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)

           SET ZTC=ZTC+1

           QUIT 

 +1       ;

 +2       ;