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/XPDIN00J.m@ 1693

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

initial load of WorldVistAEHR
File size: 4.8 KB
RevLine 
[613]1XPDIN00J ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
4Q Q
5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,1,"N")
6 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"D")
8 ;;=5^26^5^0^^^^^1^1
9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"N")
10 ;;=^^0^^0
11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
12 ;;=1,57
13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
14 ;;=1,48^1,48^1,48^2,48^1,48
15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48)
16 ;;=6^1^9.68^^e^^9^^1^1
17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"D")
18 ;;=6^2^45^.01
19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"N")
20 ;;=0^0^0^0^0^1,-1^1,+1^2^2,-1^2
21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"D")
22 ;;=6^50^26^.03
23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"N")
24 ;;=0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1
25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53)
26 ;;=4^1^9.67^^d^^^^0
27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53,1,"D")
28 ;;=^^^^4^27^^0
29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
30 ;;=1,48
31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
32 ;;=1,58^1,58^1,58^1,58^1,58
33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45)
34 ;;=0^0^9.6^^d^^^^0
35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,2,"D")
36 ;;=1^6^30^.01
37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,4,"D")
38 ;;=^^^^2^0^^0
39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58)
40 ;;=4^0^9.64^^e^^12^^1^1
41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"D")
42 ;;=5^6^45^.01
43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"N")
44 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,59)
46 ;;=0^0^9.6^^d^^^^0
47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,"FIRST")
48 ;;=1,58
49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,0,0,"N")
50 ;;=4,50^2,50^2,50^4,50^2,50
51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50)
52 ;;=5^4^9.402^^e^^^^2
53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"D")
54 ;;=7^19^45^.01
55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"N")
56 ;;=0^3^3^0^3
57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"D")
58 ;;=9^27^8^3
59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"N")
60 ;;=2^4^4^2^4
61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"D")
62 ;;=14^4^70^4
63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"N")
64 ;;=3^0^0^3^0
65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,"FIRST")
66 ;;=2,50
67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,0,0,"N")
68 ;;=9,52^1,52^1,52^9,52^1,52
69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52)
70 ;;=1^1^9.62^^e^^^^1
71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"D")
72 ;;=2^12^30^.01
73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"N")
74 ;;=0^2^2^0^2
75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"D")
76 ;;=4^12^65^1
77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"N")
78 ;;=1^3^3^1^3
79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"D")
80 ;;=6^12^65^2
81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"N")
82 ;;=2^4^4^2^4
83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"D")
84 ;;=7^12^1^3
85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"N")
86 ;;=3^5^5^3^5^^^^^^1
87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"D")
88 ;;=9^12^65^4
89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"N")
90 ;;=4^6^6^4^6
91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"D")
92 ;;=11^12^65^5
93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"N")
94 ;;=5^7^7^5^7
95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"D")
96 ;;=12^12^1^6
97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"N")
98 ;;=6^8^8^6^8^^^^^^1
99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"D")
100 ;;=13^12^64^7
101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"N")
102 ;;=7^9^9^7^9
103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"D")
104 ;;=15^12^65^10
105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"N")
106 ;;=8^0^0^8^0
107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,"FIRST")
108 ;;=1,52
109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,0,0,"N")
110 ;;=7,49^2,49^2,49^7,49^2,49
111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49)
112 ;;=4^0^9.64^^e^^^^2
113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"D")
114 ;;=6^29^45^.01
115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"N")
116 ;;=0^18^18^0^18
117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"D")
118 ;;=15^32^3^222.7
119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"N")
120 ;;=13^0^0^13^0
121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"D")
122 ;;=13^1^76^223
123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"N")
124 ;;=16^7^7^14^7
125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"D")
126 ;;=10^61^3^222.2
127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"N")
128 ;;=18^13^13^16^13
129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"D")
130 ;;=10^29^3^222.1
131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"N")
132 ;;=18^13^14^18^14
133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"D")
134 ;;=8^32^7^222.3
135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"N")
136 ;;=2^16^16^2^16
137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,"FIRST")
138 ;;=2,49
139 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,0,0,"N")
140 ;;=1,54^5,51^5,51^1,54^5,51
141 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51)
142 ;;=6^2^9.4^^e^^^1^5
Note: See TracBrowser for help on using the repository browser.