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/XPDIN00K.m@ 1351

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

initial load of WorldVistAEHR
File size: 4.7 KB
Line 
1XPDIN00K ; ; 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",8,51,2,"D")
6 ;;=10^32^30^20
7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,2,"N")
8 ;;=5^1,54^1,54^5^1,54^^^^^^1
9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"D")
10 ;;=8^32^30^12
11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,5,"N")
12 ;;=0^2^2^0^2
13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB")
14 ;;=9.6,1
15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51,"PTB",1)
16 ;;=S X=$$GET^DDSVAL(9.6,.DA,1),DA=X
17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54)
18 ;;=11^2^9.6^^e^^^^1
19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"D")
20 ;;=12^32^3^20
21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,54,1,"N")
22 ;;=2,51^0^0^2,51^0
23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67)
24 ;;=4^2^9.6^^d^^^^0
25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,2,"D")
26 ;;=5^9^30^.01
27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,67,3,"D")
28 ;;=^^^^6^2^^0
29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,"FIRST")
30 ;;=5,51
31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,0,0,"N")
32 ;;=1,84^1,55^1,55^1,84^1,55
33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55)
34 ;;=3^3^9.6^^e^^^^1
35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"D")
36 ;;=5^32^3^21
37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,1,"N")
38 ;;=0^2^2^0^2
39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"D")
40 ;;=7^32^44^22
41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,55,2,"N")
42 ;;=1^1,84^1,84^1^1,84
43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84)
44 ;;=10^3^9.66^^e^^4^^1^1
45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"D")
46 ;;=11^4^4^.01
47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,84,1,"N")
48 ;;=2,55^0^0^2,55^0^1,-1^1,+1^1,+1^1,-1^1,+1
49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",9,"FIRST")
50 ;;=1,55
51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,0,0,"N")
52 ;;=1,85^1,85^1,85^1,85^1,85
53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,56)
54 ;;=4^5^9.66^^e^^^^0
55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85)
56 ;;=5^4^9.661^^e^^2^^1^1
57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"D")
58 ;;=5^5^4^.01
59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,85,1,"N")
60 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",10,"FIRST")
62 ;;=1,85
63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,0,0,"N")
64 ;;=1,60^1,60^1,60^1,60^1,60
65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60)
66 ;;=6^3^9.641^^e^^6^^1^1
67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"D")
68 ;;=6^3^45^.01
69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,60,1,"N")
70 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,62)
72 ;;=5^3^9.64^^d^^^^0
73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",11,"FIRST")
74 ;;=1,60
75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,0,0,"N")
76 ;;=1,61^1,61^1,61^1,61^1,61
77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61)
78 ;;=7^4^9.6411^^e^^6^^1^1
79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"D")
80 ;;=7^4^45^.01
81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,61,1,"N")
82 ;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,63)
84 ;;=6^3^9.641^^d^^^^0
85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",12,"FIRST")
86 ;;=1,61
87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,0,0,"N")
88 ;;=7,64^2,64^2,64^7,64^2,64
89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64)
90 ;;=5^1^9.64^^e^^^^2
91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"D")
92 ;;=7^21^15^222.8
93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,2,"N")
94 ;;=0^4^4^0^4
95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"D")
96 ;;=11^21^30^222.6
97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,3,"N")
98 ;;=4^7^7^5^7
99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"D")
100 ;;=9^21^3^222.5
101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,4,"N")
102 ;;=2^3^5^2^5
103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"D")
104 ;;=9^68^3^222.9
105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,5,"N")
106 ;;=2^3^3^4^3
107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"D")
108 ;;=14^3^72^224
109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,64,7,"N")
110 ;;=3^0^0^3^0
111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",13,"FIRST")
112 ;;=2,64
113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,0,0,"N")
114 ;;=3,65^1,66^1,66^3,65^1,66
115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45)
116 ;;=0^0^9.6^^d^^^^0
117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,2,"D")
118 ;;=1^6^30^.01
119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,45,4,"D")
120 ;;=^^^^2^0^^0
121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65)
122 ;;=0^0^9.6^^e^^^^2
123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"D")
124 ;;=14^26^30^1
125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,2,"N")
126 ;;=1,66^3^3^1,66^3
127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"D")
128 ;;=16^26^3^5
129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,65,3,"N")
130 ;;=2^0^0^2^0
131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66)
132 ;;=4^0^9.62^^e^^6^^1^1
133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"D")
134 ;;=5^2^30^.01
135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,66,1,"N")
136 ;;=0^2,65^2,65^0^2,65^1,-1^1,+1^1,+1^1,-1^1,+1
137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",14,"FIRST")
138 ;;=1,66
Note: See TracBrowser for help on using the repository browser.