source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMG146.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XUTMG146 ;SEA/RDS - TaskMan: Globals: X-Refs For File 14.6 ;1/18/91 17:01 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 Q
5 ;
6S01 ;set statement for field .01
7 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))=""
8 I $P(ZT,U,2)]"" S ^%ZIS(14.6,"AV",$P(ZT,U,2),X,DA)=""
9 Q
10 ;
11K01 ;kill statement for field .01
12 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))
13 I $P(ZT,U,2)]"" K ^%ZIS(14.6,"AV",$P(ZT,U,2),X,DA)
14 Q
15 ;
16 ;-------------------------------------------------------------------
17 ;
18S15 ;set statement for field 1.5
19 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))=""
20 I $P(ZT,U)]"" S ^%ZIS(14.6,"AV",X,$P(ZT,U),DA)=""
21 Q
22 ;
23K15 ;kill statement for field 1.5
24 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))
25 I $P(ZT,U)]"" K ^%ZIS(14.6,"AV",X,$P(ZT,U),DA)
26 Q
27 ;
28 ;-------------------------------------------------------------------
29 ;
30S25 ;set statement for field 2.5
31 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))=""
32 I $P(ZT,U,4)]"" S ^%ZIS(14.6,"AV",X,$P(ZT,U,4),DA)=""
33 Q
34 ;
35K25 ;kill statement for field 2.5
36 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))
37 I $P(ZT,U,4)]"" K ^%ZIS(14.6,"AV",X,$P(ZT,U,4),DA)
38 Q
39 ;
40 ;-------------------------------------------------------------------
41 ;
42S3 ;set statement for field 3
43 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)=""
44 I $P(ZT,U,3)]"" S ^%ZIS(14.6,"AV",$P(ZT,U,3),X,DA)=""
45 Q
46 ;
47K3 ;kill statement for field 3
48 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)
49 I $P(ZT,U,3)]"" K ^%ZIS(14.6,"AV",$P(ZT,U,3),X,DA)
50 Q
51 ;
52 ;
Note: See TracBrowser for help on using the repository browser.