XUTMTP1.m

XUTMTP1 ;SEA/RDS - TaskMan: ToolKit, Print, Part 3 ;07/26/2006

 ;;8.0;KERNEL;**20,225,381**;Jul 10, 1995;Build 2

 ;

PRINT ;Print Task

 N %ZTT,ZTC,ZTD,ZTI,ZTO,ZTTAB S XUINX=+$G(XUINX)

 S ZTTAB=$S(XUINX:$L(XUINX),1:$L(XUTSK))

 I XUINX W !,XUINX,": (Task #",XUTSK,") "

 E  W !,XUTSK,": "

 S ZTD=$P(XUTSK(0),U,1,2)

 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)

 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))'=".")))

 S ZTD=$S($P($P(XUTSK(.2),U),";")]"":"  Device "_$P($P(XUTSK(.2),U),";")_".",XUTSK(0)]"":"  No device.",1:"  Device unknown.") D W(ZTD)

 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)

 I ZTD]"",$P(XUTSK(0),U,14)]"" S $P(ZTD,",",2)=$P(XUTSK(0),U,14)

 S ZTD="  "_$S(ZTD]"":ZTD,1:"Account unknown")_"." D W(ZTD)

 S ZTD=$P(XUTSK(0),U,5) I ZTD]"" D W("  From "_$$TIME^XUTMTP(ZTD)_",") ; D W(ZTD)

 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)

 S ZTC="" F ZTI=0:0 S ZTC=$O(XUTSK(.15,ZTC)) Q:ZTC=""  S ZTD="  "_XUTSK(.15,ZTC) D W(ZTD)

 ; The information about the running task is stored in

 ; ^%ZTSCH("TASK",task number) and the 10th piece is equal to the

 ; job number.

 ; XUTSK("TASK") is equal ^%ZTSCH("TASK",task number)

 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)

 I $L(XUTSK(.11)) D W("  Job Msg: "_XUTSK(.11))

 I $D(XUTSK("TASK1")) D W("  Updated: "_$$TIME^XUTMTP(XUTSK("TASK1")))

 K XUTMT Q

 ;

W(A) ;Write value

 W:$X+$L(A)>80 !,?ZTTAB W A

 Q

XUTMTP1   ;SEA/RDS - TaskMan: ToolKit, Print, Part 3 ;07/26/2006

 +1       ;;8.0;KERNEL;**20,225,381**;Jul 10, 1995;Build 2

 +2       ;

PRINT     ;Print Task

 +1        NEW %ZTT,ZTC,ZTD,ZTI,ZTO,ZTTAB

           SET XUINX=+$GET(XUINX)

 +2        SET ZTTAB=$SELECT(XUINX:$LENGTH(XUINX),1:$LENGTH(XUTSK))

 +3        IF XUINX

               WRITE !,XUINX,": (Task #",XUTSK,") "

 +4       IF '$TEST

               WRITE !,XUTSK,": "

 +5        SET ZTD=$PIECE(XUTSK(0),U,1,2)

 +6        IF ZTD="ZTSK^XQ1"

               IF $PIECE(XUTSK(0),U,11)_","_$PIECE(XUTSK(0),U,12)=XUTMUCI

                   SET ZTO=$SELECT($DATA(^%ZTSK(XUTSK,.3,"XQY"))#2:+^("XQY"),1:+$PIECE(XUTSK(0),U,8))

                   IF ZTO

                       IF $DATA(^DIC(19,ZTO,0))#2

                           SET ZTD=$PIECE(^(0),U)_" - "_$PIECE(^(0),U,2)

 +7        IF '$TEST

               SET ZTD=$SELECT(ZTD]"":ZTD_", ",1:"")_$EXTRACT(XUTSK(.03),1,75)

           DO W($SELECT(ZTD]"":ZTD,1:"Task data missing")_$EXTRACT(".",($EXTRACT(ZTD,$LENGTH(ZTD))'=".")))

 +8        SET ZTD=$SELECT($PIECE($PIECE(XUTSK(.2),U),";")]"":"  Device "_$PIECE($PIECE(XUTSK(.2),U),";")_".",XUTSK(0)]"":"  No device.",1:"  Device unknown.")

           DO W(ZTD)

 +9        SET ZTD=$PIECE(XUTSK(0),U,4)

           IF ZTD=""

               SET ZTD=$PIECE(XUTSK(0),U,11)

               IF ZTD]""

                   SET ZTD=ZTD_","_$PIECE(XUTSK(0),U,12)

 +10       IF ZTD]""

               IF $PIECE(XUTSK(0),U,14)]""

                   SET $PIECE(ZTD,",",2)=$PIECE(XUTSK(0),U,14)

 +11       SET ZTD="  "_$SELECT(ZTD]"":ZTD,1:"Account unknown")_"."

           DO W(ZTD)

 +12      ; D W(ZTD)

           SET ZTD=$PIECE(XUTSK(0),U,5)

           IF ZTD]""

               DO W("  From "_$$TIME^XUTMTP(ZTD)_",")

 +13       IF ZTD]""

               SET ZTD=$SELECT($PIECE(XUTSK(0),U,10)=ZTNAME:"  By you.",$PIECE(XUTSK(0),U,10)]"":"  By "_$PIECE(XUTSK(0),U,10)_".",$PIECE(XUTSK(0),U,3)]"":"  By user # "_$PIECE(XUTSK(0),U,3)_".",1:"  By an unspecified user.")

               DO W(ZTD)

 +14       SET ZTC=""

           FOR ZTI=0:0

               SET ZTC=$ORDER(XUTSK(.15,ZTC))

               IF ZTC=""

                   QUIT 

               SET ZTD="  "_XUTSK(.15,ZTC)

               DO W(ZTD)

 +15      ; The information about the running task is stored in

 +16      ; ^%ZTSCH("TASK",task number) and the 10th piece is equal to the

 +17      ; job number.

 +18      ; XUTSK("TASK") is equal ^%ZTSCH("TASK",task number)

 +19       IF $DATA(XUTSK("TASK"))

               IF $PIECE(XUTSK("TASK"),U,10)]""

                   SET ZTD=$PIECE(XUTSK("TASK"),U,10)

                   SET ZTD="  Job #: "_ZTD_$SELECT(ZTD>4096:" ["_$$CNV^XLFUTL(ZTD,16)_"]",1:"")

                   DO W(ZTD)

 +20       IF $LENGTH(XUTSK(.11))

               DO W("  Job Msg: "_XUTSK(.11))

 +21       IF $DATA(XUTSK("TASK1"))

               DO W("  Updated: "_$$TIME^XUTMTP(XUTSK("TASK1")))

 +22       KILL XUTMT

           QUIT 

 +23      ;

W(A)      ;Write value

 +1        IF $X+$LENGTH(A)>80

               WRITE !,?ZTTAB

           WRITE A

 +2        QUIT