XUTMG146 ;SEA/RDS - TaskMan: Globals: X-Refs For File 14.6 ;1/18/91 17:01 ;
;;8.0;KERNEL;;Jul 10, 1995
;
Q
;
S01 ;set statement for field .01
I $P(ZT,U,2)]"",$P(ZT,U,3)]"",$P(ZT,U,4)]"" S ^%ZIS(14.6,"AT",X,$P(ZT,U,2),$P(ZT,U,3),$P(ZT,U,4))=""
I $P(ZT,U,2)]"" S ^%ZIS(14.6,"AV",$P(ZT,U,2),X,DA)=""
Q
;
K01 ;kill statement for field .01
I $P(ZT,U,2)]"",$P(ZT,U,3)]"",$P(ZT,U,4)]"" K ^%ZIS(14.6,"AT",X,$P(ZT,U,2),$P(ZT,U,3),$P(ZT,U,4))
I $P(ZT,U,2)]"" K ^%ZIS(14.6,"AV",$P(ZT,U,2),X,DA)
Q
;
;-------------------------------------------------------------------
;
S15 ;set statement for field 1.5
I $P(ZT,U)]"",$P(ZT,U,3)]"",$P(ZT,U,4)]"" S ^%ZIS(14.6,"AT",$P(ZT,U),X,$P(ZT,U,3),$P(ZT,U,4))=""
I $P(ZT,U)]"" S ^%ZIS(14.6,"AV",X,$P(ZT,U),DA)=""
Q
;
K15 ;kill statement for field 1.5
I $P(ZT,U)]"",$P(ZT,U,3)]"",$P(ZT,U,4)]"" K ^%ZIS(14.6,"AT",$P(ZT,U),X,$P(ZT,U,3),$P(ZT,U,4))
I $P(ZT,U)]"" K ^%ZIS(14.6,"AV",X,$P(ZT,U),DA)
Q
;
;-------------------------------------------------------------------
;
S25 ;set statement for field 2.5
I $P(ZT,U)]"",$P(ZT,U,2)]"",$P(ZT,U,4)]"" S ^%ZIS(14.6,"AT",$P(ZT,U),$P(ZT,U,2),X,$P(ZT,U,4))=""
I $P(ZT,U,4)]"" S ^%ZIS(14.6,"AV",X,$P(ZT,U,4),DA)=""
Q
;
K25 ;kill statement for field 2.5
I $P(ZT,U)]"",$P(ZT,U,2)]"",$P(ZT,U,4)]"" K ^%ZIS(14.6,"AT",$P(ZT,U),$P(ZT,U,2),X,$P(ZT,U,4))
I $P(ZT,U,4)]"" K ^%ZIS(14.6,"AV",X,$P(ZT,U,4),DA)
Q
;
;-------------------------------------------------------------------
;
S3 ;set statement for field 3
I $P(ZT,U)]"",$P(ZT,U,2)]"",$P(ZT,U,3)]"" S ^%ZIS(14.6,"AT",$P(ZT,U),$P(ZT,U,2),$P(ZT,U,3),X)=""
I $P(ZT,U,3)]"" S ^%ZIS(14.6,"AV",$P(ZT,U,3),X,DA)=""
Q
;
K3 ;kill statement for field 3
I $P(ZT,U)]"",$P(ZT,U,2)]"",$P(ZT,U,3)]"" K ^%ZIS(14.6,"AT",$P(ZT,U),$P(ZT,U,2),$P(ZT,U,3),X)
I $P(ZT,U,3)]"" K ^%ZIS(14.6,"AV",$P(ZT,U,3),X,DA)
Q
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMG146 1898 printed Apr 09, 2024@21:12:29 Page 2
XUTMG146 ;SEA/RDS - TaskMan: Globals: X-Refs For File 14.6 ;1/18/91 17:01 ;
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;
+3 QUIT
+4 ;
S01 ;set statement for field .01
+1 IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,3)]""
IF $PIECE(ZT,U,4)]""
SET ^%ZIS(14.6,"AT",X,$PIECE(ZT,U,2),$PIECE(ZT,U,3),$PIECE(ZT,U,4))=""
+2 IF $PIECE(ZT,U,2)]""
SET ^%ZIS(14.6,"AV",$PIECE(ZT,U,2),X,DA)=""
+3 QUIT
+4 ;
K01 ;kill statement for field .01
+1 IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,3)]""
IF $PIECE(ZT,U,4)]""
KILL ^%ZIS(14.6,"AT",X,$PIECE(ZT,U,2),$PIECE(ZT,U,3),$PIECE(ZT,U,4))
+2 IF $PIECE(ZT,U,2)]""
KILL ^%ZIS(14.6,"AV",$PIECE(ZT,U,2),X,DA)
+3 QUIT
+4 ;
+5 ;-------------------------------------------------------------------
+6 ;
S15 ;set statement for field 1.5
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,3)]""
IF $PIECE(ZT,U,4)]""
SET ^%ZIS(14.6,"AT",$PIECE(ZT,U),X,$PIECE(ZT,U,3),$PIECE(ZT,U,4))=""
+2 IF $PIECE(ZT,U)]""
SET ^%ZIS(14.6,"AV",X,$PIECE(ZT,U),DA)=""
+3 QUIT
+4 ;
K15 ;kill statement for field 1.5
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,3)]""
IF $PIECE(ZT,U,4)]""
KILL ^%ZIS(14.6,"AT",$PIECE(ZT,U),X,$PIECE(ZT,U,3),$PIECE(ZT,U,4))
+2 IF $PIECE(ZT,U)]""
KILL ^%ZIS(14.6,"AV",X,$PIECE(ZT,U),DA)
+3 QUIT
+4 ;
+5 ;-------------------------------------------------------------------
+6 ;
S25 ;set statement for field 2.5
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,4)]""
SET ^%ZIS(14.6,"AT",$PIECE(ZT,U),$PIECE(ZT,U,2),X,$PIECE(ZT,U,4))=""
+2 IF $PIECE(ZT,U,4)]""
SET ^%ZIS(14.6,"AV",X,$PIECE(ZT,U,4),DA)=""
+3 QUIT
+4 ;
K25 ;kill statement for field 2.5
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,4)]""
KILL ^%ZIS(14.6,"AT",$PIECE(ZT,U),$PIECE(ZT,U,2),X,$PIECE(ZT,U,4))
+2 IF $PIECE(ZT,U,4)]""
KILL ^%ZIS(14.6,"AV",X,$PIECE(ZT,U,4),DA)
+3 QUIT
+4 ;
+5 ;-------------------------------------------------------------------
+6 ;
S3 ;set statement for field 3
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,3)]""
SET ^%ZIS(14.6,"AT",$PIECE(ZT,U),$PIECE(ZT,U,2),$PIECE(ZT,U,3),X)=""
+2 IF $PIECE(ZT,U,3)]""
SET ^%ZIS(14.6,"AV",$PIECE(ZT,U,3),X,DA)=""
+3 QUIT
+4 ;
K3 ;kill statement for field 3
+1 IF $PIECE(ZT,U)]""
IF $PIECE(ZT,U,2)]""
IF $PIECE(ZT,U,3)]""
KILL ^%ZIS(14.6,"AT",$PIECE(ZT,U),$PIECE(ZT,U,2),$PIECE(ZT,U,3),X)
+2 IF $PIECE(ZT,U,3)]""
KILL ^%ZIS(14.6,"AV",$PIECE(ZT,U,3),X,DA)
+3 QUIT
+4 ;
+5 ;
