| 1 | XUTMTP1 ;SEA/RDS - TaskMan: ToolKit, Print, Part 3 ;07/26/2006
|
|---|
| 2 | ;;8.0;KERNEL;**20,225,381**;Jul 10, 1995;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | PRINT ;Print Task
|
|---|
| 5 | N %ZTT,ZTC,ZTD,ZTI,ZTO,ZTTAB S XUINX=+$G(XUINX)
|
|---|
| 6 | S ZTTAB=$S(XUINX:$L(XUINX),1:$L(XUTSK))
|
|---|
| 7 | I XUINX W !,XUINX,": (Task #",XUTSK,") "
|
|---|
| 8 | E W !,XUTSK,": "
|
|---|
| 9 | S ZTD=$P(XUTSK(0),U,1,2)
|
|---|
| 10 | I ZTD="ZTSK^XQ1",$P(XUTSK(0),U,11)_","_$P(XUTSK(0),U,12)=XUTMUCI S ZTO=$S($D(^%ZTSK(XUTSK,.3,"XQY"))#2:+^("XQY"),1:+$P(XUTSK(0),U,8)) I ZTO,$D(^DIC(19,ZTO,0))#2 S ZTD=$P(^(0),U)_" - "_$P(^(0),U,2)
|
|---|
| 11 | S:'$T ZTD=$S(ZTD]"":ZTD_", ",1:"")_$E(XUTSK(.03),1,75) D W($S(ZTD]"":ZTD,1:"Task data missing")_$E(".",($E(ZTD,$L(ZTD))'=".")))
|
|---|
| 12 | S ZTD=$S($P($P(XUTSK(.2),U),";")]"":" Device "_$P($P(XUTSK(.2),U),";")_".",XUTSK(0)]"":" No device.",1:" Device unknown.") D W(ZTD)
|
|---|
| 13 | S ZTD=$P(XUTSK(0),U,4) I ZTD="" S ZTD=$P(XUTSK(0),U,11) I ZTD]"" S ZTD=ZTD_","_$P(XUTSK(0),U,12)
|
|---|
| 14 | I ZTD]"",$P(XUTSK(0),U,14)]"" S $P(ZTD,",",2)=$P(XUTSK(0),U,14)
|
|---|
| 15 | S ZTD=" "_$S(ZTD]"":ZTD,1:"Account unknown")_"." D W(ZTD)
|
|---|
| 16 | S ZTD=$P(XUTSK(0),U,5) I ZTD]"" D W(" From "_$$TIME^XUTMTP(ZTD)_",") ; D W(ZTD)
|
|---|
| 17 | I ZTD]"" S ZTD=$S($P(XUTSK(0),U,10)=ZTNAME:" By you.",$P(XUTSK(0),U,10)]"":" By "_$P(XUTSK(0),U,10)_".",$P(XUTSK(0),U,3)]"":" By user # "_$P(XUTSK(0),U,3)_".",1:" By an unspecified user.") D W(ZTD)
|
|---|
| 18 | S ZTC="" F ZTI=0:0 S ZTC=$O(XUTSK(.15,ZTC)) Q:ZTC="" S ZTD=" "_XUTSK(.15,ZTC) D W(ZTD)
|
|---|
| 19 | ; The information about the running task is stored in
|
|---|
| 20 | ; ^%ZTSCH("TASK",task number) and the 10th piece is equal to the
|
|---|
| 21 | ; job number.
|
|---|
| 22 | ; XUTSK("TASK") is equal ^%ZTSCH("TASK",task number)
|
|---|
| 23 | I $D(XUTSK("TASK")),$P(XUTSK("TASK"),U,10)]"" S ZTD=$P(XUTSK("TASK"),U,10),ZTD=" Job #: "_ZTD_$S(ZTD>4096:" ["_$$CNV^XLFUTL(ZTD,16)_"]",1:"") D W(ZTD)
|
|---|
| 24 | I $L(XUTSK(.11)) D W(" Job Msg: "_XUTSK(.11))
|
|---|
| 25 | I $D(XUTSK("TASK1")) D W(" Updated: "_$$TIME^XUTMTP(XUTSK("TASK1")))
|
|---|
| 26 | K XUTMT Q
|
|---|
| 27 | ;
|
|---|
| 28 | W(A) ;Write value
|
|---|
| 29 | W:$X+$L(A)>80 !,?ZTTAB W A
|
|---|
| 30 | Q
|
|---|
