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/XPDIN00Q.m@ 1578

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00Q ; ; 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(.404,",51,40,2,10)
6 ;;=
7 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,0)
8 ;;=1^Primary Help Frame^3
9 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,1)
10 ;;=12
11 ;;^UTILITY(U,$J,"DIST(.404,",51,40,5,2)
12 ;;=3,31^30^3,11
13 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",1,5)
14 ;;=
15 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"B",2,2)
16 ;;=
17 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","AFFECTS RECORD MERGE",2)
18 ;;=
19 ;;^UTILITY(U,$J,"DIST(.404,",51,40,"C","PRIMARY HELP FRAME",5)
20 ;;=
21 ;;^UTILITY(U,$J,"DIST(.404,",52,0)
22 ;;=XPD EDIT BUILD7^9.62
23 ;;^UTILITY(U,$J,"DIST(.404,",52,40,0)
24 ;;=^.4044I^10^10
25 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,0)
26 ;;=2^Name^3^
27 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,1)
28 ;;=.01
29 ;;^UTILITY(U,$J,"DIST(.404,",52,40,1,2)
30 ;;=2,12^30^2,6
31 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,0)
32 ;;=3^DIR(0)^3^
33 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,1)
34 ;;=1
35 ;;^UTILITY(U,$J,"DIST(.404,",52,40,2,2)
36 ;;=4,12^65^4,4
37 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,0)
38 ;;=4^DIR(A)^3^
39 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,1)
40 ;;=2
41 ;;^UTILITY(U,$J,"DIST(.404,",52,40,3,2)
42 ;;=6,12^65^6,4
43 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,0)
44 ;;=5^DIR(A,#)^3^
45 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,1)
46 ;;=3
47 ;;^UTILITY(U,$J,"DIST(.404,",52,40,4,2)
48 ;;=7,12^1^7,2
49 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,0)
50 ;;=6^DIR(B)^3^
51 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,1)
52 ;;=4
53 ;;^UTILITY(U,$J,"DIST(.404,",52,40,5,2)
54 ;;=9,12^65^9,4
55 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,0)
56 ;;=7^DIR(?)^3^
57 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,1)
58 ;;=5
59 ;;^UTILITY(U,$J,"DIST(.404,",52,40,6,2)
60 ;;=11,12^65^11,4
61 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,0)
62 ;;=8^DIR(?,#)^3^
63 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,1)
64 ;;=6
65 ;;^UTILITY(U,$J,"DIST(.404,",52,40,7,2)
66 ;;=12,12^1^12,2
67 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,0)
68 ;;=9^DIR(??)^3^
69 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,1)
70 ;;=7
71 ;;^UTILITY(U,$J,"DIST(.404,",52,40,8,2)
72 ;;=13,12^64^13,3
73 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,0)
74 ;;=10^M Code^3
75 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,1)
76 ;;=10
77 ;;^UTILITY(U,$J,"DIST(.404,",52,40,9,2)
78 ;;=15,12^65^15,4
79 ;;^UTILITY(U,$J,"DIST(.404,",52,40,10,0)
80 ;;=1^ Install Questions ^1^
81 ;;^UTILITY(U,$J,"DIST(.404,",52,40,10,2)
82 ;;=^^1,27^1
83 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",1,10)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",2,1)
86 ;;=
87 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",3,2)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",4,3)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",5,4)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",6,5)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",7,6)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",8,7)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",9,8)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"B",10,9)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C"," INSTALL QUESTIONS ",10)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(0)",2)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?)",6)
108 ;;=
109 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(?,#)",7)
110 ;;=
111 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(??)",8)
112 ;;=
113 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A)",3)
114 ;;=
115 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(A,#)",4)
116 ;;=
117 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","DIR(B)",5)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","M CODE",9)
120 ;;=
121 ;;^UTILITY(U,$J,"DIST(.404,",52,40,"C","NAME",1)
122 ;;=
123 ;;^UTILITY(U,$J,"DIST(.404,",53,0)
124 ;;=XPD EDIT BUILD31^9.67
125 ;;^UTILITY(U,$J,"DIST(.404,",53,40,0)
126 ;;=^.4044I^1^1
127 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,0)
128 ;;=1^!M^1^
129 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,.1)
130 ;;=S Y=" "_$P($G(^DIC(D1,0)),U)_" "
131 ;;^UTILITY(U,$J,"DIST(.404,",53,40,1,2)
132 ;;=^^1,27^
133 ;;^UTILITY(U,$J,"DIST(.404,",53,40,"B",1,1)
134 ;;=
135 ;;^UTILITY(U,$J,"DIST(.404,",54,0)
136 ;;=XPD EDIT BUILD8^9.6
137 ;;^UTILITY(U,$J,"DIST(.404,",54,11)
138 ;;=
139 ;;^UTILITY(U,$J,"DIST(.404,",54,40,0)
140 ;;=^.4044I^1^1
141 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,0)
142 ;;=1^Alpha/Beta Testing...^3
143 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,1)
144 ;;=20
145 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,2)
146 ;;=2,31^3^2,8
147 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,3)
148 ;;=NO
149 ;;^UTILITY(U,$J,"DIST(.404,",54,40,1,10)
150 ;;=S:X="y" DDSSTACK="9"
151 ;;^UTILITY(U,$J,"DIST(.404,",54,40,"B",1,1)
152 ;;=
153 ;;^UTILITY(U,$J,"DIST(.404,",54,40,"C","ALPHA/BETA TESTING...",1)
154 ;;=
155 ;;^UTILITY(U,$J,"DIST(.404,",55,0)
156 ;;=XPD EDIT BUILD9^9.6
157 ;;^UTILITY(U,$J,"DIST(.404,",55,40,0)
158 ;;=^.4044I^5^4
159 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,0)
160 ;;=2^Installation Message^3
161 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,1)
162 ;;=21
163 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,2)
164 ;;=3,30^3^3,8
165 ;;^UTILITY(U,$J,"DIST(.404,",55,40,1,3)
166 ;;=NO
167 ;;^UTILITY(U,$J,"DIST(.404,",55,40,2,0)
168 ;;=3^Address for Usage Reporting^3
169 ;;^UTILITY(U,$J,"DIST(.404,",55,40,2,1)
170 ;;=22
Note: See TracBrowser for help on using the repository browser.