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/XPDIN00I.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
RevLine 
[613]1XPDIN00I ; ; 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,13,40,"AC",1,64)
6 ;;=
7 ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,"B",64,64)
8 ;;=
9 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,0)
10 ;;=14^^1,1^^2
11 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,1)
12 ;;=Page 14
13 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,0)
14 ;;=^.4032PI^66^3
15 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,45,0)
16 ;;=XPD EDIT BUILD HDR^1^1,1^d
17 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,65,0)
18 ;;=XPD EDIT BUILD11^4^1,1^e
19 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,66,0)
20 ;;=XPD EDIT BUILD12^2^5,1^e
21 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,66,2)
22 ;;=6^^n
23 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"AC",1,45)
24 ;;=
25 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"AC",2,66)
26 ;;=
27 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"AC",4,65)
28 ;;=
29 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"B",45,45)
30 ;;=
31 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"B",65,65)
32 ;;=
33 ;;^UTILITY(U,$J,"DIST(.403,",11,40,14,40,"B",66,66)
34 ;;=
35 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,0)
36 ;;=15^^2,1^^^1^17,79
37 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,1)
38 ;;=Install questions
39 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,40,0)
40 ;;=^.4032PI^52^1
41 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,40,52,0)
42 ;;=XPD EDIT BUILD7^1^1,1^e
43 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,40,"AC",1,52)
44 ;;=
45 ;;^UTILITY(U,$J,"DIST(.403,",11,40,15,40,"B",52,52)
46 ;;=
47 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",1,1)
48 ;;=
49 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",2,2)
50 ;;=
51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",3,3)
52 ;;=
53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",4,4)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",5,5)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",6,6)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",7,7)
60 ;;=
61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",8,8)
62 ;;=
63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",9,9)
64 ;;=
65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",10,10)
66 ;;=
67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",11,11)
68 ;;=
69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",12,12)
70 ;;=
71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",13,13)
72 ;;=
73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",14,14)
74 ;;=
75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"B",15,15)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","A/B NAMESPACE",10)
78 ;;=
79 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","ENTRIES",7)
80 ;;=
81 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","FILE",4)
82 ;;=
83 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","INSTALL QUESTIONS",6)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","INSTALL QUESTIONS",15)
86 ;;=
87 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","KERNEL FILE",3)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PACKAGE FILE",8)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 1",1)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 13",13)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 14",14)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 2",2)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","PAGE 9",9)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","RECORD MERGE",5)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","SUB DD",11)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.403,",11,40,"C","SUB FIELD",12)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,0,0,"N")
108 ;;=6,46^1,46^1,46^6,46^1,46
109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,45)
110 ;;=0^0^9.6^^d^^^^0
111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,45,2,"D")
112 ;;=1^6^30^.01
113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,45,4,"D")
114 ;;=^^^^2^0^^0
115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46)
116 ;;=0^0^9.6^^e^^^^1
117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,1,"D")
118 ;;=5^27^50^.01
119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,1,"N")
120 ;;=0^13^13^0^13
121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,5,"D")
122 ;;=11^27^8^913
123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,5,"N")
124 ;;=11^7^7^11^7
125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,6,"D")
126 ;;=15^27^17^914
127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,6,"N")
128 ;;=7^0^0^7^0
129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,7,"D")
130 ;;=13^27^17^916
131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,7,"N")
132 ;;=5^6^6^5^6
133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,11,"D")
134 ;;=9^27^1^3
135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,11,"N")
136 ;;=13^5^5^13^5^^^^^^1
137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,13,"D")
138 ;;=7^27^11^.02
139 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,46,13,"N")
140 ;;=1^11^11^1^11
141 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",1,"FIRST")
142 ;;=1,46
143 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,0,0,"N")
144 ;;=1,57^1,57^1,57^1,57^1,57
145 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,45)
146 ;;=0^0^9.6^^d^^^^0
147 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,45,2,"D")
148 ;;=1^6^30^.01
149 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,45,4,"D")
150 ;;=^^^^2^0^^0
151 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,47)
152 ;;=0^0^9.6^^e^^^^0
153 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57)
154 ;;=4^0^9.67^^e^^12^^1^1
155 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,1,"D")
156 ;;=5^0^24^.01
Note: See TracBrowser for help on using the repository browser.