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

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DIPKI004 ; ; 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.4,1946,21,2,0)
7 ;;=along with the Package.
8 ;;^DD(9.4,1946,"DT")
9 ;;=2940606
10 ;;^DD(9.4,15007,0)
11 ;;=SYNONYM^9.415007^^15007;0
12 ;;^DD(9.402,0)
13 ;;=AFFECTS RECORD MERGE SUB-FIELD^^4^3
14 ;;^DD(9.402,0,"DT")
15 ;;=2900906
16 ;;^DD(9.402,0,"IX","B",9.402,.01)
17 ;;=
18 ;;^DD(9.402,0,"NM","AFFECTS RECORD MERGE")
19 ;;=
20 ;;^DD(9.402,0,"UP")
21 ;;=9.4
22 ;;^DD(9.402,.01,0)
23 ;;=FILE AFFECTED^*P1'X^DIC(^0;1^S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
24 ;;^DD(9.402,.01,1,0)
25 ;;=^.1
26 ;;^DD(9.402,.01,1,1,0)
27 ;;=9.402^B
28 ;;^DD(9.402,.01,1,1,1)
29 ;;=S ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)=""
30 ;;^DD(9.402,.01,1,1,2)
31 ;;=K ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)
32 ;;^DD(9.402,.01,1,2,0)
33 ;;=9.4^AMRG
34 ;;^DD(9.402,.01,1,2,1)
35 ;;=S ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)=""
36 ;;^DD(9.402,.01,1,2,2)
37 ;;=K ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)
38 ;;^DD(9.402,.01,1,2,"%D",0)
39 ;;=^^2^2^2900906^
40 ;;^DD(9.402,.01,1,2,"%D",1,0)
41 ;;=This xref is used by the merge process to determine if any package
42 ;;^DD(9.402,.01,1,2,"%D",2,0)
43 ;;=file entry affects the file being merged.
44 ;;^DD(9.402,.01,1,2,"DT")
45 ;;=2900906
46 ;;^DD(9.402,.01,3)
47 ;;=Pointer to a file that has been added to FILE 15's variable pointer.
48 ;;^DD(9.402,.01,12)
49 ;;=MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15
50 ;;^DD(9.402,.01,12.1)
51 ;;=S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))"
52 ;;^DD(9.402,.01,21,0)
53 ;;=^^1^1^2940627^^
54 ;;^DD(9.402,.01,21,1,0)
55 ;;=A file that if merged will affect this package.
56 ;;^DD(9.402,.01,"DT")
57 ;;=2900910
58 ;;^DD(9.402,3,0)
59 ;;=NAME OF MERGE ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<2)!'(X?1U1.7UN) X
60 ;;^DD(9.402,3,3)
61 ;;=Answer with a routine name (1U.1.7UN).
62 ;;^DD(9.402,3,21,0)
63 ;;=^^4^4^2930330^
64 ;;^DD(9.402,3,21,1,0)
65 ;;=This field holds the routine name to call when two records in
66 ;;^DD(9.402,3,21,2,0)
67 ;;=an affected file are to be merged. This allows the package to
68 ;;^DD(9.402,3,21,3,0)
69 ;;=do any repointing or other clean-up needed before the records
70 ;;^DD(9.402,3,21,4,0)
71 ;;=are merged.
72 ;;^DD(9.402,3,"DT")
73 ;;=2900816
74 ;;^DD(9.402,4,0)
75 ;;=RECORD HAS PACKAGE DATA^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
76 ;;^DD(9.402,4,3)
77 ;;=This is Standard MUMPS code. To tell if this record has data in this package.
78 ;;^DD(9.402,4,9)
79 ;;=@
80 ;;^DD(9.402,4,"DT")
81 ;;=2900816
82 ;;^DD(9.404,0)
83 ;;=*VERIFICATION SUB-FIELD^NL^3^4
84 ;;^DD(9.404,0,"ID",1)
85 ;;=W:$D(^(0)) " ",$P(^(0),U,2)
86 ;;^DD(9.404,0,"NM","*VERIFICATION")
87 ;;=
88 ;;^DD(9.404,0,"UP")
89 ;;=9.4
90 ;;^DD(9.404,.01,0)
91 ;;=VERIFICATION^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 DINUM,X
92 ;;^DD(9.404,.01,21,0)
93 ;;=^^1^1^2920513^^^
94 ;;^DD(9.404,.01,21,1,0)
95 ;;=Date of notification that this software has been verified.
96 ;;^DD(9.404,.01,"DT")
97 ;;=2840815
98 ;;^DD(9.404,1,0)
99 ;;=ISC^F^^0;2^K:$L(X)>20!($L(X)<2) X
100 ;;^DD(9.404,1,3)
101 ;;=The name of the ISC responsible for verification (3-20 characters).
102 ;;^DD(9.404,1,21,0)
103 ;;=^^1^1^2920513^^
104 ;;^DD(9.404,1,21,1,0)
105 ;;=The name of the ISC where this verification was done.
106 ;;^DD(9.404,1,"DT")
107 ;;=2840815
108 ;;^DD(9.404,2,0)
109 ;;=VERSION^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
110 ;;^DD(9.404,2,3)
111 ;;=Please enter the version number of this verified Package (0.00-999.99).
112 ;;^DD(9.404,2,21,0)
113 ;;=^^1^1^2920513^^
114 ;;^DD(9.404,2,21,1,0)
115 ;;=The version number of this verified Package.
116 ;;^DD(9.404,2,"DT")
117 ;;=2840815
118 ;;^DD(9.404,3,0)
119 ;;=COMMENTS^9.414^^1;0
120 ;;^DD(9.404,3,21,0)
121 ;;=^^1^1^2920513^^
122 ;;^DD(9.404,3,21,1,0)
123 ;;=Comments regarding this verified version of the Package.
124 ;;^DD(9.409,0)
125 ;;=*DELTA SUB-FIELD^NL^.01^1
126 ;;^DD(9.409,0,"NM","*DELTA")
127 ;;=
128 ;;^DD(9.409,0,"UP")
129 ;;=9.4
130 ;;^DD(9.409,.01,0)
131 ;;=DELTA^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X
132 ;;^DD(9.409,.01,3)
133 ;;=Please enter the name of the Delta Test site.
134 ;;^DD(9.409,.01,21,0)
135 ;;=^^1^1^2851007^
136 ;;^DD(9.409,.01,21,1,0)
137 ;;=The name of a Delta Test site for this Package.
138 ;;^DD(9.409,.01,"DT")
139 ;;=2840815
140 ;;^DD(9.41,0)
141 ;;=DESCRIPTION SUB-FIELD^NL^.01^1
142 ;;^DD(9.41,0,"NM","DESCRIPTION")
143 ;;=
144 ;;^DD(9.41,0,"UP")
145 ;;=9.4
146 ;;^DD(9.41,.01,0)
147 ;;=DESCRIPTION^W^^0;1^Q
148 ;;^DD(9.41,.01,3)
149 ;;=Please enter a complete and detailed description of the Package.
150 ;;^DD(9.41,.01,21,0)
151 ;;=^^2^2^2920513^^^^
152 ;;^DD(9.41,.01,21,1,0)
153 ;;=This is a complete and detailed description of the Package's functions
154 ;;^DD(9.41,.01,21,2,0)
155 ;;=and capabilities.
156 ;;^DD(9.41,.01,"DT")
157 ;;=2851007
158 ;;^DD(9.414,0)
159 ;;=COMMENTS SUB-FIELD^NL^.01^1
160 ;;^DD(9.414,0,"NM","COMMENTS")
161 ;;=
162 ;;^DD(9.414,0,"UP")
163 ;;=9.404
164 ;;^DD(9.414,.01,0)
165 ;;=COMMENTS^W^^0;1^Q
166 ;;^DD(9.414,.01,3)
167 ;;=Comments relating to verification
168 ;;^DD(9.414,.01,21,0)
169 ;;=^^1^1^2920513^^^
170 ;;^DD(9.414,.01,21,1,0)
171 ;;=Comments regarding this verified version of the Package.
172 ;;^DD(9.414,.01,"DT")
173 ;;=2840815
174 ;;^DD(9.415007,0)
175 ;;=SYNONYM SUB-FIELD^^.01^1
176 ;;^DD(9.415007,0,"DT")
177 ;;=2941020
178 ;;^DD(9.415007,0,"IX","B",9.415007,.01)
179 ;;=
180 ;;^DD(9.415007,0,"NM","SYNONYM")
181 ;;=
182 ;;^DD(9.415007,0,"UP")
183 ;;=9.4
184 ;;^DD(9.415007,.01,0)
185 ;;=SYNONYM^F^^0;1^K:$L(X)>30!($L(X)<2) X
186 ;;^DD(9.415007,.01,1,0)
187 ;;=^.1
188 ;;^DD(9.415007,.01,1,1,0)
189 ;;=9.415007^B
190 ;;^DD(9.415007,.01,1,1,1)
191 ;;=S ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)=""
192 ;;^DD(9.415007,.01,1,1,2)
193 ;;=K ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)
194 ;;^DD(9.415007,.01,1,2,0)
195 ;;=9.4^E
196 ;;^DD(9.415007,.01,1,2,1)
197 ;;=S ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)=""
198 ;;^DD(9.415007,.01,1,2,2)
199 ;;=K ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)
200 ;;^DD(9.415007,.01,1,2,"%D",0)
201 ;;=^^2^2^2941020^
202 ;;^DD(9.415007,.01,1,2,"%D",1,0)
203 ;;=This allow the lookup of a package other than it's official name.
204 ;;^DD(9.415007,.01,1,2,"%D",2,0)
205 ;;=It is'nt used by the Kernel VERSION function.
206 ;;^DD(9.415007,.01,1,2,"DT")
207 ;;=2941020
208 ;;^DD(9.415007,.01,3)
209 ;;=Answer must be 2-30 characters in length.
210 ;;^DD(9.415007,.01,"DT")
211 ;;=2941020
212 ;;^DD(9.42,0)
213 ;;=*ROUTINE SUB-FIELD^NL^.01^1
214 ;;^DD(9.42,0,"IX","B",9.42,.01)
215 ;;=
216 ;;^DD(9.42,0,"NM","*ROUTINE")
217 ;;=
218 ;;^DD(9.42,0,"UP")
219 ;;=9.4
220 ;;^DD(9.42,.01,0)
221 ;;=ROUTINE^MFX^^0;1^K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X
222 ;;^DD(9.42,.01,1,0)
223 ;;=^.1^^-1
224 ;;^DD(9.42,.01,1,1,0)
225 ;;=9.4^D
226 ;;^DD(9.42,.01,1,1,1)
227 ;;=S ^DIC(9.4,"D",X,DA(1))=""
228 ;;^DD(9.42,.01,1,1,2)
229 ;;=K ^DIC(9.4,"D",X,DA(1))
230 ;;^DD(9.42,.01,1,2,0)
231 ;;=9.42^B
232 ;;^DD(9.42,.01,1,2,1)
233 ;;=S ^DIC(9.4,DA(1),2,"B",X,DA)=""
234 ;;^DD(9.42,.01,1,2,2)
235 ;;=K ^DIC(9.4,DA(1),2,"B",X,DA)
236 ;;^DD(9.42,.01,3)
237 ;;=Please enter a routine name (1-8 characters).
238 ;;^DD(9.42,.01,21,0)
239 ;;=^^3^3^2920513^^^^
Note: See TracBrowser for help on using the repository browser.