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/XPDIN00R.m@ 1080

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

initial load of WorldVistAEHR
File size: 4.8 KB
RevLine 
[613]1XPDIN00R ; ; 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,",55,40,2,2)
6 ;;=5,30^44^5,1
7 ;;^UTILITY(U,$J,"DIST(.404,",55,40,4,0)
8 ;;=1^ Alpha/Beta Testing ^1^
9 ;;^UTILITY(U,$J,"DIST(.404,",55,40,4,2)
10 ;;=^^1,26^1
11 ;;^UTILITY(U,$J,"DIST(.404,",55,40,5,0)
12 ;;=4^Package Namespace or Prefix:^1
13 ;;^UTILITY(U,$J,"DIST(.404,",55,40,5,2)
14 ;;=^^7,1
15 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",1,4)
16 ;;=
17 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",2,1)
18 ;;=
19 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",3,2)
20 ;;=
21 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"B",4,5)
22 ;;=
23 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C"," ALPHA/BETA TESTING ",4)
24 ;;=
25 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","ADDRESS FOR USAGE REPORTING",2)
26 ;;=
27 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","INSTALLATION MESSAGE",1)
28 ;;=
29 ;;^UTILITY(U,$J,"DIST(.404,",55,40,"C","PACKAGE NAMESPACE OR PREFIX:",5)
30 ;;=
31 ;;^UTILITY(U,$J,"DIST(.404,",56,0)
32 ;;=XPD EDIT BUILD10^9.66
33 ;;^UTILITY(U,$J,"DIST(.404,",56,40,0)
34 ;;=^.4044I^1^1
35 ;;^UTILITY(U,$J,"DIST(.404,",56,40,1,0)
36 ;;=1^ Exclude Namespace or Prefix ^1
37 ;;^UTILITY(U,$J,"DIST(.404,",56,40,1,2)
38 ;;=^^1,20^1
39 ;;^UTILITY(U,$J,"DIST(.404,",56,40,"B",1,1)
40 ;;=
41 ;;^UTILITY(U,$J,"DIST(.404,",56,40,"C"," EXCLUDE NAMESPACE OR PREFIX ",1)
42 ;;=
43 ;;^UTILITY(U,$J,"DIST(.404,",57,0)
44 ;;=XPD EDIT BUILD30^9.67
45 ;;^UTILITY(U,$J,"DIST(.404,",57,40,0)
46 ;;=^.4044I^2^2
47 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,0)
48 ;;=1^^3
49 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,1)
50 ;;=.01
51 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,2)
52 ;;=2,1^24
53 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,4)
54 ;;=^^^2
55 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,10)
56 ;;=S DDSSTACK=3
57 ;;^UTILITY(U,$J,"DIST(.404,",57,40,1,14)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,0)
60 ;;=2^^4
61 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,2)
62 ;;=2,27^5
63 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,4)
64 ;;=^^1
65 ;;^UTILITY(U,$J,"DIST(.404,",57,40,2,30)
66 ;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
67 ;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",1,1)
68 ;;=
69 ;;^UTILITY(U,$J,"DIST(.404,",57,40,"B",2,2)
70 ;;=
71 ;;^UTILITY(U,$J,"DIST(.404,",58,0)
72 ;;=XPD EDIT BUILD40^9.64
73 ;;^UTILITY(U,$J,"DIST(.404,",58,40,0)
74 ;;=^.4044I^1^1
75 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,0)
76 ;;=1^^3
77 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,1)
78 ;;=.01
79 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,2)
80 ;;=2,7^45
81 ;;^UTILITY(U,$J,"DIST(.404,",58,40,1,10)
82 ;;=S DDSSTACK=7
83 ;;^UTILITY(U,$J,"DIST(.404,",58,40,"B",1,1)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.404,",59,0)
86 ;;=XPD EDIT BUILD41^9.6
87 ;;^UTILITY(U,$J,"DIST(.404,",59,40,0)
88 ;;=^.4044I^3^2
89 ;;^UTILITY(U,$J,"DIST(.404,",59,40,1,0)
90 ;;=1^2^1^
91 ;;^UTILITY(U,$J,"DIST(.404,",59,40,1,2)
92 ;;=^^1,71^
93 ;;^UTILITY(U,$J,"DIST(.404,",59,40,3,0)
94 ;;=2^File List (Name or Number)^1
95 ;;^UTILITY(U,$J,"DIST(.404,",59,40,3,2)
96 ;;=^^4,28^1
97 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",1,1)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"B",2,3)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"C",2,1)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.404,",59,40,"C","FILE LIST (NAME OR NUMBER)",3)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.404,",60,0)
106 ;;=XPD EDIT BUILD42^9.641
107 ;;^UTILITY(U,$J,"DIST(.404,",60,40,0)
108 ;;=^.4044I^1^1
109 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,0)
110 ;;=1^^3
111 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,1)
112 ;;=.01
113 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,2)
114 ;;=1,1^45
115 ;;^UTILITY(U,$J,"DIST(.404,",60,40,1,10)
116 ;;=S DDSSTACK=12
117 ;;^UTILITY(U,$J,"DIST(.404,",60,40,"B",1,1)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.404,",61,0)
120 ;;=XPD EDIT BUILD43^9.6411
121 ;;^UTILITY(U,$J,"DIST(.404,",61,40,0)
122 ;;=^.4044I^1^1
123 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,0)
124 ;;=1^^3
125 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,1)
126 ;;=.01
127 ;;^UTILITY(U,$J,"DIST(.404,",61,40,1,2)
128 ;;=1,1^45
129 ;;^UTILITY(U,$J,"DIST(.404,",61,40,"B",1,1)
130 ;;=
131 ;;^UTILITY(U,$J,"DIST(.404,",62,0)
132 ;;=XPD EDIT BUILD44^9.64
133 ;;^UTILITY(U,$J,"DIST(.404,",62,40,0)
134 ;;=^.4044I^1^1
135 ;;^UTILITY(U,$J,"DIST(.404,",62,40,1,0)
136 ;;=1^ Data Dictionary Number ^1^
137 ;;^UTILITY(U,$J,"DIST(.404,",62,40,1,2)
138 ;;=^^1,24^1
139 ;;^UTILITY(U,$J,"DIST(.404,",62,40,"B",1,1)
140 ;;=
141 ;;^UTILITY(U,$J,"DIST(.404,",62,40,"C"," DATA DICTIONARY NUMBER ",1)
142 ;;=
143 ;;^UTILITY(U,$J,"DIST(.404,",63,0)
144 ;;=XPD EDIT BUILD45^9.641
145 ;;^UTILITY(U,$J,"DIST(.404,",63,40,0)
146 ;;=^.4044I^1^1
147 ;;^UTILITY(U,$J,"DIST(.404,",63,40,1,0)
148 ;;=1^ Field Number ^1^
149 ;;^UTILITY(U,$J,"DIST(.404,",63,40,1,2)
150 ;;=^^1,24^1
151 ;;^UTILITY(U,$J,"DIST(.404,",63,40,"B",1,1)
152 ;;=
153 ;;^UTILITY(U,$J,"DIST(.404,",63,40,"C"," FIELD NUMBER ",1)
154 ;;=
155 ;;^UTILITY(U,$J,"DIST(.404,",64,0)
156 ;;=XPD EDIT BUILD46^9.64
157 ;;^UTILITY(U,$J,"DIST(.404,",64,40,0)
158 ;;=^.4044I^7^6
159 ;;^UTILITY(U,$J,"DIST(.404,",64,40,1,0)
160 ;;=1^ Data Export Options ^1^
161 ;;^UTILITY(U,$J,"DIST(.404,",64,40,1,2)
162 ;;=^^1,29^1
163 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,0)
164 ;;=2^Site's Data^3
Note: See TracBrowser for help on using the repository browser.