XUTMG146.m

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 ---XUTMG146   1898     printed  Apr 23, 2025@18:27:46                                                                                                                                                                                                    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       ;