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/XPDIN00S.m@ 623

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

initial load of WorldVistAEHR
File size: 4.7 KB
Line 
1XPDIN00S ; ; 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,",64,40,2,1)
6 ;;=222.8
7 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,2)
8 ;;=3,21^15^3,8
9 ;;^UTILITY(U,$J,"DIST(.404,",64,40,2,3)
10 ;;=OVERWRITE
11 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,0)
12 ;;=5^Data List^3
13 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,1)
14 ;;=222.6
15 ;;^UTILITY(U,$J,"DIST(.404,",64,40,3,2)
16 ;;=7,21^30^7,10
17 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,0)
18 ;;=3^Resolve Pointers^3
19 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,1)
20 ;;=222.5
21 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,2)
22 ;;=5,21^3^5,3
23 ;;^UTILITY(U,$J,"DIST(.404,",64,40,4,3)
24 ;;=NO
25 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,0)
26 ;;=4^May User Override Data Update^3
27 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,1)
28 ;;=222.9
29 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,2)
30 ;;=5,68^3^5,37
31 ;;^UTILITY(U,$J,"DIST(.404,",64,40,5,3)
32 ;;=NO
33 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,0)
34 ;;=6^Screen to Select Data^3
35 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,1)
36 ;;=224
37 ;;^UTILITY(U,$J,"DIST(.404,",64,40,7,2)
38 ;;=10,3^72^9,3^1
39 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",1,1)
40 ;;=
41 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",2,2)
42 ;;=
43 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",3,4)
44 ;;=
45 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",4,5)
46 ;;=
47 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",5,3)
48 ;;=
49 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"B",6,7)
50 ;;=
51 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C"," DATA EXPORT OPTIONS ",1)
52 ;;=
53 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","DATA LIST",3)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","MAY USER OVERRIDE DATA UPDATE",5)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","RESOLVE POINTERS",4)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SCREEN TO SELECT DATA",7)
60 ;;=
61 ;;^UTILITY(U,$J,"DIST(.404,",64,40,"C","SITE'S DATA",2)
62 ;;=
63 ;;^UTILITY(U,$J,"DIST(.404,",65,0)
64 ;;=XPD EDIT BUILD11^9.6
65 ;;^UTILITY(U,$J,"DIST(.404,",65,40,0)
66 ;;=^.4044I^4^4
67 ;;^UTILITY(U,$J,"DIST(.404,",65,40,1,0)
68 ;;=1^4^1^
69 ;;^UTILITY(U,$J,"DIST(.404,",65,40,1,2)
70 ;;=^^1,71^
71 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,0)
72 ;;=3^Package File Link...^3
73 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,1)
74 ;;=1
75 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,2)
76 ;;=15,27^30^15,5
77 ;;^UTILITY(U,$J,"DIST(.404,",65,40,2,10)
78 ;;=S:X]"" DDSSTACK=8
79 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,0)
80 ;;=4^Track Package Nationally^3
81 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,1)
82 ;;=5
83 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,2)
84 ;;=17,27^3^17,1
85 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,3)
86 ;;=NO
87 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,10)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.404,",65,40,3,11)
90 ;;=S:$$GET^DDSVAL(DIE,.DA,1)="" DDSBR="^^COM"
91 ;;^UTILITY(U,$J,"DIST(.404,",65,40,4,0)
92 ;;=2^Install Questions^1^
93 ;;^UTILITY(U,$J,"DIST(.404,",65,40,4,2)
94 ;;=^^4,28^1
95 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",1,1)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",2,4)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",3,2)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"B",4,3)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C",4,1)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","INSTALL QUESTIONS",4)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","PACKAGE FILE LINK...",2)
108 ;;=
109 ;;^UTILITY(U,$J,"DIST(.404,",65,40,"C","TRACK PACKAGE NATIONALLY",3)
110 ;;=
111 ;;^UTILITY(U,$J,"DIST(.404,",66,0)
112 ;;=XPD EDIT BUILD12^9.62
113 ;;^UTILITY(U,$J,"DIST(.404,",66,40,0)
114 ;;=^.4044I^1^1
115 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,0)
116 ;;=1^^3
117 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,1)
118 ;;=.01
119 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,2)
120 ;;=2,3^30
121 ;;^UTILITY(U,$J,"DIST(.404,",66,40,1,10)
122 ;;=S DDSSTACK=15
123 ;;^UTILITY(U,$J,"DIST(.404,",66,40,"B",1,1)
124 ;;=
125 ;;^UTILITY(U,$J,"DIST(.404,",67,0)
126 ;;=XPD EDIT BUILD60^9.6
127 ;;^UTILITY(U,$J,"DIST(.404,",67,40,0)
128 ;;=^.4044I^3^3
129 ;;^UTILITY(U,$J,"DIST(.404,",67,40,1,0)
130 ;;=1^ Edit PACKAGE File ^1^
131 ;;^UTILITY(U,$J,"DIST(.404,",67,40,1,2)
132 ;;=^^1,26^1
133 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,0)
134 ;;=2^Name^3
135 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,1)
136 ;;=.01
137 ;;^UTILITY(U,$J,"DIST(.404,",67,40,2,2)
138 ;;=2,8^30^2,2
139 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,0)
140 ;;=3^!M^1^
141 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,.1)
142 ;;=S $P(Y,"-",76)=""
143 ;;^UTILITY(U,$J,"DIST(.404,",67,40,3,2)
144 ;;=^^3,1^
145 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",1,1)
146 ;;=
147 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",2,2)
148 ;;=
149 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"B",3,3)
150 ;;=
151 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"C"," EDIT PACKAGE FILE ",1)
152 ;;=
153 ;;^UTILITY(U,$J,"DIST(.404,",67,40,"C","NAME",2)
154 ;;=
155 ;;^UTILITY(U,$J,"DIST(.404,",84,0)
156 ;;=XPD EDIT BUILD9A^9.66
157 ;;^UTILITY(U,$J,"DIST(.404,",84,40,0)
158 ;;=^.4044I^1^1
159 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,0)
160 ;;=1^^3
161 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,1)
162 ;;=.01
163 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,2)
164 ;;=2,2^4
165 ;;^UTILITY(U,$J,"DIST(.404,",84,40,1,10)
166 ;;=S DDSSTACK=10
Note: See TracBrowser for help on using the repository browser.