XTER1B ;ISC-SF/JLI - PACKAGE SPECIFIC VARIABLE IDENTIFICATION ;9/9/92 15:41
;;8.0;KERNEL;;Jul 10, 1995
EN I '$D(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B","ZTQUEUED")) W !,"THIS JOB WAS INTERACTIVE -- IT WAS ***NOT*** A QUEUED JOB",!
F XTER1BI="ZTQUEUED","DUZ","DUZ(0)","XUCI","XQUSER","XQY0","IO(0)","IO","XMZ" D
.S XTER1BK=XTER1BI I XTER1BI["(" S XTER1BK=$P(XTER1BI,"(")_"c",XTER1BK=XTER1BK_$P($E(XTER1BI,$L(XTER1BK)+1,$L(XTER1BI)),")")_"d"
.I $D(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B",XTER1BI)) S XTER1BN=$O(^(XTER1BI,0)) W !,XTER1BI,?10,"(",$P($T(@XTER1BK),";",3),") = ",$S(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV",XTER1BN,"D")="":"<null>",1:^("D"))
.Q
;
PKGFIL ;
S XTER1BN="" F S XTER1BN=$O(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B",XTER1BN)) Q:XTER1BN="" S XTER1BI=$O(^(XTER1BN,0)) I $D(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV",XTER1BI,"D")) S XTER1BV=^("D") D
.F XTER1BP=0:0 S XTER1BP=$O(^DIC(9.4,XTER1BP)) Q:XTER1BP'>0 I $D(^(XTER1BP,0)) S XTER1BPN=$P(^(0),U) I $D(^DIC(9.4,XTER1BP,1933,"AB",XTER1BN)) S XTER1BPV=$O(^(XTER1BN,0)) D Q
..W !!,XTER1BN,?10," = ",XTER1BV,!?5,XTER1BPN," Package"
..F XTER1BPI=0:0 S XTER1BPI=$O(^DIC(9.4,XTER1BP,1933,XTER1BPV,1,XTER1BPI)) Q:XTER1BPI'>0 W !,^(XTER1BPI,0)
Q
END ;
ZTQUEUED ;;INDICATES THAT THIS JOB WAS A QUEUED TASK;
DUZ ;;INTERNAL ENTRY NUMBER FOR USER
DUZc0d ;;FILEMAN ACCESS CODE
XUCI ;;THE UCI THE JOB WAS IN;
IO ;;CURRENTLY SELECTED DEVICE
XMZ ;;INTERNAL NUMBER OF MESSAGE IN FILE 3.9
IOc0d ;;BASIC DEVICE
XQY0 ;;ZERO NODE FROM CURRENT OPTION;
XQUSER ;;THE CURRENT USER'S NAME;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTER1B 1541 printed Nov 22, 2024@17:50:42 Page 2
XTER1B ;ISC-SF/JLI - PACKAGE SPECIFIC VARIABLE IDENTIFICATION ;9/9/92 15:41
+1 ;;8.0;KERNEL;;Jul 10, 1995
EN IF '$DATA(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B","ZTQUEUED"))
WRITE !,"THIS JOB WAS INTERACTIVE -- IT WAS ***NOT*** A QUEUED JOB",!
+1 FOR XTER1BI="ZTQUEUED","DUZ","DUZ(0)","XUCI","XQUSER","XQY0","IO(0)","IO","XMZ"
Begin DoDot:1
+2 SET XTER1BK=XTER1BI
IF XTER1BI["("
SET XTER1BK=$PIECE(XTER1BI,"(")_"c"
SET XTER1BK=XTER1BK_$PIECE($EXTRACT(XTER1BI,$LENGTH(XTER1BK)+1,$LENGTH(XTER1BI)),")")_"d"
+3 IF $DATA(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B",XTER1BI))
SET XTER1BN=$ORDER(^(XTER1BI,0))
WRITE !,XTER1BI,?10,"(",$PIECE($TEXT(@XTER1BK),";",3),") = ",$SELECT(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV",XTER1BN,"D")="":"<null>",1:^("D"))
+4 QUIT
End DoDot:1
+5 ;
PKGFIL ;
+1 SET XTER1BN=""
FOR
SET XTER1BN=$ORDER(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV","B",XTER1BN))
if XTER1BN=""
QUIT
SET XTER1BI=$ORDER(^(XTER1BN,0))
IF $DATA(^%ZTER(1,%XTZDAT,1,%XTZNUM,"ZV",XTER1BI,"D"))
SET XTER1BV=^("D")
Begin DoDot:1
+2 FOR XTER1BP=0:0
SET XTER1BP=$ORDER(^DIC(9.4,XTER1BP))
if XTER1BP'>0
QUIT
IF $DATA(^(XTER1BP,0))
SET XTER1BPN=$PIECE(^(0),U)
IF $DATA(^DIC(9.4,XTER1BP,1933,"AB",XTER1BN))
SET XTER1BPV=$ORDER(^(XTER1BN,0))
Begin DoDot:2
+3 WRITE !!,XTER1BN,?10," = ",XTER1BV,!?5,XTER1BPN," Package"
+4 FOR XTER1BPI=0:0
SET XTER1BPI=$ORDER(^DIC(9.4,XTER1BP,1933,XTER1BPV,1,XTER1BPI))
if XTER1BPI'>0
QUIT
WRITE !,^(XTER1BPI,0)
End DoDot:2
QUIT
End DoDot:1
+5 QUIT
END ;
ZTQUEUED ;;INDICATES THAT THIS JOB WAS A QUEUED TASK;
DUZ ;;INTERNAL ENTRY NUMBER FOR USER
DUZc0d ;;FILEMAN ACCESS CODE
XUCI ;;THE UCI THE JOB WAS IN;
IO ;;CURRENTLY SELECTED DEVICE
XMZ ;;INTERNAL NUMBER OF MESSAGE IN FILE 3.9
IOc0d ;;BASIC DEVICE
XQY0 ;;ZERO NODE FROM CURRENT OPTION;
XQUSER ;;THE CURRENT USER'S NAME;
