source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIPKI008.m@ 767

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

initial load of WorldVistAEHR

File size: 6.7 KB
Line 
1DIPKI008 ; ; 30-MAR-1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q:'DIFQ(9.4) 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
5Q Q
6 ;;^DD(9.49,2,21,2,0)
7 ;;=automatically when an INIT is installed for this package.
8 ;;^DD(9.49,2,"DT")
9 ;;=2840302
10 ;;^DD(9.49,3,0)
11 ;;=INSTALLED BY^P200'^VA(200,^0;4^Q
12 ;;^DD(9.49,3,21,0)
13 ;;=^^1^1^2940607^
14 ;;^DD(9.49,3,21,1,0)
15 ;;=This is the person who installed this version at this site.
16 ;;^DD(9.49,3,"DT")
17 ;;=2940607
18 ;;^DD(9.49,41,0)
19 ;;=DESCRIPTION OF ENHANCEMENTS^9.54^^1;0
20 ;;^DD(9.49,41,21,0)
21 ;;=^^2^2^2851008^^
22 ;;^DD(9.49,41,21,1,0)
23 ;;=This is a description of the enhancements being distributed with this
24 ;;^DD(9.49,41,21,2,0)
25 ;;=release.
26 ;;^DD(9.49,51,0)
27 ;;=*RELEASE NOTE^9.491^^R;0
28 ;;^DD(9.49,51,21,0)
29 ;;=^^2^2^2851009^^^^
30 ;;^DD(9.49,51,21,1,0)
31 ;;=These are the release notes which go along with this release of the
32 ;;^DD(9.49,51,21,2,0)
33 ;;=Package.
34 ;;^DD(9.49,51,"DT")
35 ;;=2940603
36 ;;^DD(9.49,61,0)
37 ;;=*INSTALLATION NOTES^9.4961^^I;0
38 ;;^DD(9.49,61,"DT")
39 ;;=2940603
40 ;;^DD(9.49,62,0)
41 ;;=*SYSTEM REQUIREMENTS^9.4962^^S;0
42 ;;^DD(9.49,62,"DT")
43 ;;=2940603
44 ;;^DD(9.49,63,0)
45 ;;=*PROGRAMMER NOTES^9.4963^^P;0
46 ;;^DD(9.49,63,"DT")
47 ;;=2940603
48 ;;^DD(9.49,1105,0)
49 ;;=PATCH APPLICATION HISTORY^9.4901^^PAH;0
50 ;;^DD(9.4901,0)
51 ;;=PATCH APPLICATION HISTORY SUB-FIELD^^1^4
52 ;;^DD(9.4901,0,"DT")
53 ;;=2940603
54 ;;^DD(9.4901,0,"IX","B",9.4901,.01)
55 ;;=
56 ;;^DD(9.4901,0,"NM","PATCH APPLICATION HISTORY")
57 ;;=
58 ;;^DD(9.4901,0,"UP")
59 ;;=9.49
60 ;;^DD(9.4901,.01,0)
61 ;;=PATCH APPLICATION HISTORY^MF^^0;1^K:$L(X)>15!($L(X)<8) X
62 ;;^DD(9.4901,.01,1,0)
63 ;;=^.1
64 ;;^DD(9.4901,.01,1,1,0)
65 ;;=9.4901^B
66 ;;^DD(9.4901,.01,1,1,1)
67 ;;=S ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)=""
68 ;;^DD(9.4901,.01,1,1,2)
69 ;;=K ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)
70 ;;^DD(9.4901,.01,3)
71 ;;=Answer must be 8-15 characters in length.
72 ;;^DD(9.4901,.01,"DT")
73 ;;=2890426
74 ;;^DD(9.4901,.02,0)
75 ;;=DATE APPLIED^D^^0;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X
76 ;;^DD(9.4901,.02,"DT")
77 ;;=2890426
78 ;;^DD(9.4901,.03,0)
79 ;;=APPLIED BY^P200'^VA(200,^0;3^Q
80 ;;^DD(9.4901,.03,"DT")
81 ;;=2890426
82 ;;^DD(9.4901,1,0)
83 ;;=DESCRIPTION^9.49011^^1;0
84 ;;^DD(9.4901,1,21,0)
85 ;;=^^1^1^2940603^
86 ;;^DD(9.4901,1,21,1,0)
87 ;;=This is a description of the patch being distributed with this release.
88 ;;^DD(9.49011,0)
89 ;;=DESCRIPTION SUB-FIELD^^.01^1
90 ;;^DD(9.49011,0,"DT")
91 ;;=2940603
92 ;;^DD(9.49011,0,"NM","DESCRIPTION")
93 ;;=
94 ;;^DD(9.49011,0,"UP")
95 ;;=9.4901
96 ;;^DD(9.49011,.01,0)
97 ;;=DESCRIPTION^W^^0;1^Q
98 ;;^DD(9.49011,.01,"DT")
99 ;;=2940603
100 ;;^DD(9.491,0)
101 ;;=*RELEASE NOTE SUB-FIELD^NL^2^4
102 ;;^DD(9.491,0,"NM","*RELEASE NOTE")
103 ;;=
104 ;;^DD(9.491,0,"UP")
105 ;;=9.49
106 ;;^DD(9.491,.01,0)
107 ;;=RELEASE NOTE^MF^^0;1^K:$L(X)>80!($L(X)<3) X
108 ;;^DD(9.491,.01,3)
109 ;;=Please enter a description (3-80 characters).
110 ;;^DD(9.491,.01,21,0)
111 ;;=^^1^1^2851008^^
112 ;;^DD(9.491,.01,21,1,0)
113 ;;=This is a description of a particular enhancement.
114 ;;^DD(9.491,.01,"DT")
115 ;;=2850123
116 ;;^DD(9.491,.02,0)
117 ;;=WHERE CHANGE OCCURRED^F^^0;2^K:$L(X)>80!($L(X)<3) X
118 ;;^DD(9.491,.02,3)
119 ;;=Routine(s), Field Name(s), and/or Data that has been changed (3-80 characters).
120 ;;^DD(9.491,.02,21,0)
121 ;;=^^1^1^2851009^^^^
122 ;;^DD(9.491,.02,21,1,0)
123 ;;=Routine, Field Name, or Data that has been changed.
124 ;;^DD(9.491,.02,"DT")
125 ;;=2850123
126 ;;^DD(9.491,1,0)
127 ;;=DESCRIPTION OF CHANGE^9.492^^1;0
128 ;;^DD(9.491,1,21,0)
129 ;;=^^1^1^2851008^^
130 ;;^DD(9.491,1,21,1,0)
131 ;;=This is a description of the improvements.
132 ;;^DD(9.491,2,0)
133 ;;=UPDATE^9.493^^2;0
134 ;;^DD(9.491,2,21,0)
135 ;;=^^2^2^2851009^^
136 ;;^DD(9.491,2,21,1,0)
137 ;;=Comments on the updates which have been made to this release of the
138 ;;^DD(9.491,2,21,2,0)
139 ;;=Package.
140 ;;^DD(9.492,0)
141 ;;=DESCRIPTION OF CHANGE SUB-FIELD^NL^.01^1
142 ;;^DD(9.492,0,"NM","DESCRIPTION OF CHANGE")
143 ;;=
144 ;;^DD(9.492,0,"UP")
145 ;;=9.491
146 ;;^DD(9.492,.01,0)
147 ;;=DESCRIPTION OF CHANGE^W^^0;1^Q
148 ;;^DD(9.492,.01,21,0)
149 ;;=^^1^1^2851008^^^^
150 ;;^DD(9.492,.01,21,1,0)
151 ;;=This is a description of the improvement.
152 ;;^DD(9.492,.01,"DT")
153 ;;=2850123
154 ;;^DD(9.493,0)
155 ;;=UPDATE SUB-FIELD^NL^.01^1
156 ;;^DD(9.493,0,"NM","UPDATE")
157 ;;=
158 ;;^DD(9.493,0,"UP")
159 ;;=9.491
160 ;;^DD(9.493,.01,0)
161 ;;=UPDATE^W^^0;1^Q
162 ;;^DD(9.493,.01,21,0)
163 ;;=^^1^1^2851008^
164 ;;^DD(9.493,.01,21,1,0)
165 ;;=This is a description of the update to the Package.
166 ;;^DD(9.493,.01,"DT")
167 ;;=2850123
168 ;;^DD(9.495,0)
169 ;;=*MENU SUB-FIELD^^.02^2
170 ;;^DD(9.495,0,"DT")
171 ;;=2890928
172 ;;^DD(9.495,0,"IX","B",9.495,.01)
173 ;;=
174 ;;^DD(9.495,0,"NM","*MENU")
175 ;;=
176 ;;^DD(9.495,0,"UP")
177 ;;=9.4
178 ;;^DD(9.495,.01,0)
179 ;;=MENU^MF^^0;1^K:$L(X)>30!($L(X)<1) X
180 ;;^DD(9.495,.01,1,0)
181 ;;=^.1
182 ;;^DD(9.495,.01,1,1,0)
183 ;;=9.495^B
184 ;;^DD(9.495,.01,1,1,1)
185 ;;=S ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)=""
186 ;;^DD(9.495,.01,1,1,2)
187 ;;=K ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)
188 ;;^DD(9.495,.01,3)
189 ;;=This is the name of a menu-type option outside this namespace.
190 ;;^DD(9.495,.01,4)
191 ;;=N DO,DIC S DIC="^DIC(19,",DIC(0)="QE",D="B",DIC("S")="I $P(^(0),U,4)=""M""" D DQ^DICQ
192 ;;^DD(9.495,.01,21,0)
193 ;;=^^4^4^2920513^^^^
194 ;;^DD(9.495,.01,21,1,0)
195 ;;=This is the name of an option NOT in this namespace. This option
196 ;;^DD(9.495,.01,21,2,0)
197 ;;=must be a menu, but it may not exist on this system. You are
198 ;;^DD(9.495,.01,21,3,0)
199 ;;=entering this menu name because you want to add an option in this
200 ;;^DD(9.495,.01,21,4,0)
201 ;;=package to a menu that is in another.
202 ;;^DD(9.495,.01,"DT")
203 ;;=2890928
204 ;;^DD(9.495,.02,0)
205 ;;=OPTION^R*P19'^DIC(19,^0;2^S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
206 ;;^DD(9.495,.02,12)
207 ;;=Select an option in this namespace.
208 ;;^DD(9.495,.02,12.1)
209 ;;=S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""
210 ;;^DD(9.495,.02,21,0)
211 ;;=^^1^1^2920513^^
212 ;;^DD(9.495,.02,21,1,0)
213 ;;=This is an option which you wish to add to a menu in another namespace.
214 ;;^DD(9.495,.02,"DT")
215 ;;=2890928
216 ;;^DD(9.4961,0)
217 ;;=*INSTALLATION NOTES SUB-FIELD^^.01^1
218 ;;^DD(9.4961,0,"NM","*INSTALLATION NOTES")
219 ;;=
220 ;;^DD(9.4961,0,"UP")
221 ;;=9.49
222 ;;^DD(9.4961,.01,0)
223 ;;=INSTALLATION NOTES^W^^0;1^Q
224 ;;^DD(9.4961,.01,"DT")
225 ;;=2890426
226 ;;^DD(9.4962,0)
227 ;;=*SYSTEM REQUIREMENTS SUB-FIELD^^.01^1
228 ;;^DD(9.4962,0,"NM","*SYSTEM REQUIREMENTS")
229 ;;=
230 ;;^DD(9.4962,0,"UP")
231 ;;=9.49
232 ;;^DD(9.4962,.01,0)
233 ;;=SYSTEM REQUIREMENTS^W^^0;1^Q
234 ;;^DD(9.4962,.01,"DT")
235 ;;=2890426
236 ;;^DD(9.4963,0)
237 ;;=*PROGRAMMER NOTES SUB-FIELD^^.01^1
238 ;;^DD(9.4963,0,"NM","*PROGRAMMER NOTES")
239 ;;=
240 ;;^DD(9.4963,0,"UP")
241 ;;=9.49
242 ;;^DD(9.4963,.01,0)
243 ;;=PROGRAMMER NOTES^W^^0;1^Q
244 ;;^DD(9.4963,.01,"DT")
245 ;;=2890426
246 ;;^DD(9.54,0)
247 ;;=DESCRIPTION OF ENHANCEMENTS SUB-FIELD^NL^.01^1
Note: See TracBrowser for help on using the repository browser.