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/XPDIN00H.m@ 1639

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00H ; ; 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,40,5,40,"AC",1,50)
6 ;;=
7 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"B",50,50)
8 ;;=
9 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,0)
10 ;;=6^^1,1^^^1^17,79
11 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,1)
12 ;;=Install Questions^4,2,2
13 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,0)
14 ;;=^.4032PI^52^1
15 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,52,0)
16 ;;=XPD EDIT BUILD7^1^2,2^e
17 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"AC",1,52)
18 ;;=
19 ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"B",52,52)
20 ;;=
21 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,0)
22 ;;=7^^5,1^^^1^17,78
23 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,1)
24 ;;=Entries^
25 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,0)
26 ;;=^.4032PI^49^1
27 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,49,0)
28 ;;=XPD EDIT BUILD4^2^1,1^e
29 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"AC",2,49)
30 ;;=
31 ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"B",49,49)
32 ;;=
33 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,0)
34 ;;=8^^5,2^1^2^1^15,78
35 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,1)
36 ;;=Package file
37 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,11)
38 ;;=
39 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,0)
40 ;;=^.4032PI^67^3
41 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,0)
42 ;;=XPD EDIT BUILD6^2^3,2^e
43 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,1)
44 ;;=1
45 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,54,0)
46 ;;=XPD EDIT BUILD8^3^8,2^e
47 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,67,0)
48 ;;=XPD EDIT BUILD60^4^1,2^d
49 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",2,51)
50 ;;=
51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",3,54)
52 ;;=
53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",4,67)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",51,51)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",54,54)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",67,67)
60 ;;=
61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,0)
62 ;;=9^^4,3^^^1^16,77
63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,1)
64 ;;=Page 9
65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,12)
66 ;;=
67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,0)
68 ;;=^.4032PI^84^2
69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,55,0)
70 ;;=XPD EDIT BUILD9^1^1,2^e
71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,0)
72 ;;=XPD EDIT BUILD9A^2^8,2^e
73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,2)
74 ;;=4
75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",1,55)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",2,84)
78 ;;=
79 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",55,55)
80 ;;=
81 ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",84,84)
82 ;;=
83 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,0)
84 ;;=10^^5,4^^^1^9,76
85 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,1)
86 ;;=A/B namespace^4,1,9
87 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,11)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,12)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,0)
92 ;;=^.4032PI^85^2
93 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,56,0)
94 ;;=XPD EDIT BUILD10^1^1,3^e
95 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,0)
96 ;;=XPD EDIT BUILD10A^2^2,2^e
97 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,2)
98 ;;=2
99 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",1,56)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",2,85)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",56,56)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",85,85)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,0)
108 ;;=11^^6,2^^^1^16,77
109 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,1)
110 ;;=Sub DD
111 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,0)
112 ;;=^.4032PI^62^2
113 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,0)
114 ;;=XPD EDIT BUILD42^1^2,3^e
115 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,2)
116 ;;=6^!IEN^n^^
117 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,62,0)
118 ;;=XPD EDIT BUILD44^2^1,3^d
119 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",1,60)
120 ;;=
121 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",2,62)
122 ;;=
123 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",60,60)
124 ;;=
125 ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",62,62)
126 ;;=
127 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,0)
128 ;;=12^^7,3^^^1^15,76
129 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,1)
130 ;;=Sub Field
131 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,0)
132 ;;=^.4032PI^63^2
133 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,0)
134 ;;=XPD EDIT BUILD43^1^2,3^e
135 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,2)
136 ;;=6^!IEN^n
137 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,63,0)
138 ;;=XPD EDIT BUILD45^2^1,2^d
139 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",1,61)
140 ;;=
141 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",2,63)
142 ;;=
143 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",61,61)
144 ;;=
145 ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",63,63)
146 ;;=
147 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,0)
148 ;;=13^^6,2^^^1^16,77
149 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,1)
150 ;;=Page 13
151 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,0)
152 ;;=^.4032PI^64^1
153 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,64,0)
154 ;;=XPD EDIT BUILD46^1^1,1^e
Note: See TracBrowser for help on using the repository browser.