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

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DIPKI007 ; ; 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.455,.02,21,6,0)
7 ;;=available, then the variable would not be displayed along with other
8 ;;^DD(9.455,.02,21,7,0)
9 ;;=annotated key variables.
10 ;;^DD(9.455,.02,21,8,0)
11 ;;=
12 ;;^DD(9.455,.02,"DT")
13 ;;=2920928
14 ;;^DD(9.455,1,0)
15 ;;=DESCRIPTION^9.456^^1;0
16 ;;^DD(9.455,1,21,0)
17 ;;=^^2^2^2851008^^
18 ;;^DD(9.455,1,21,1,0)
19 ;;=This lists information about the MUMPS variable required by this
20 ;;^DD(9.455,1,21,2,0)
21 ;;=Package.
22 ;;^DD(9.456,0)
23 ;;=DESCRIPTION SUB-FIELD^NL^.01^1
24 ;;^DD(9.456,0,"NM","DESCRIPTION")
25 ;;=
26 ;;^DD(9.456,0,"UP")
27 ;;=9.455
28 ;;^DD(9.456,.01,0)
29 ;;=DESCRIPTION^W^^0;1^Q
30 ;;^DD(9.456,.01,21,0)
31 ;;=^^2^2^2851008^^
32 ;;^DD(9.456,.01,21,1,0)
33 ;;=This describes the MUMPS variable which this Package would like
34 ;;^DD(9.456,.01,21,2,0)
35 ;;=defined prior to entry into the routines.
36 ;;^DD(9.456,.01,"DT")
37 ;;=2850228
38 ;;^DD(9.46,0)
39 ;;=*PRINT TEMPLATE SUB-FIELD^NL^2^2
40 ;;^DD(9.46,0,"NM","*PRINT TEMPLATE")
41 ;;=
42 ;;^DD(9.46,0,"UP")
43 ;;=9.4
44 ;;^DD(9.46,.01,0)
45 ;;=PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
46 ;;^DD(9.46,.01,1,0)
47 ;;=^.1^^0
48 ;;^DD(9.46,.01,3)
49 ;;=Please enter the name of a Print Template (2-50 characters).
50 ;;^DD(9.46,.01,21,0)
51 ;;=^^5^5^2921202^
52 ;;^DD(9.46,.01,21,1,0)
53 ;;=The name of a Print Template being sent with this Package.
54 ;;^DD(9.46,.01,21,2,0)
55 ;;=This multiple is used to send non-namespaced templates in an INIT.
56 ;;^DD(9.46,.01,21,3,0)
57 ;;=Namespaced templates are sent automatically and need not be listed
58 ;;^DD(9.46,.01,21,4,0)
59 ;;=separately. Selected Fields for Export and Export templates cannot be
60 ;;^DD(9.46,.01,21,5,0)
61 ;;=sent; entering their names here will have no effect.
62 ;;^DD(9.46,.01,"DT")
63 ;;=2821117
64 ;;^DD(9.46,2,0)
65 ;;=FILE^RP1'^DIC(^0;2^Q
66 ;;^DD(9.46,2,21,0)
67 ;;=^^1^1^2920513^^
68 ;;^DD(9.46,2,21,1,0)
69 ;;=The FileMan file for this Print Template.
70 ;;^DD(9.46,2,"DT")
71 ;;=2821126
72 ;;^DD(9.47,0)
73 ;;=*INPUT TEMPLATE SUB-FIELD^NL^2^2
74 ;;^DD(9.47,0,"ID",2)
75 ;;=W " FILE #"_$P(^(0),U,2)
76 ;;^DD(9.47,0,"NM","*INPUT TEMPLATE")
77 ;;=
78 ;;^DD(9.47,0,"UP")
79 ;;=9.4
80 ;;^DD(9.47,.01,0)
81 ;;=INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
82 ;;^DD(9.47,.01,1,0)
83 ;;=^.1^^0
84 ;;^DD(9.47,.01,3)
85 ;;=Please enter the name of an Input Template (2-50 characters).
86 ;;^DD(9.47,.01,21,0)
87 ;;=^^4^4^2920513^^^
88 ;;^DD(9.47,.01,21,1,0)
89 ;;=The name of an Input Template being sent with this Package.
90 ;;^DD(9.47,.01,21,2,0)
91 ;;=This multiple is used to send non-namespaced templates in an INIT.
92 ;;^DD(9.47,.01,21,3,0)
93 ;;=Namespaced templates are sent automatically and need not be listed
94 ;;^DD(9.47,.01,21,4,0)
95 ;;=separately.
96 ;;^DD(9.47,.01,"DT")
97 ;;=2821117
98 ;;^DD(9.47,2,0)
99 ;;=FILE^RP1'^DIC(^0;2^Q
100 ;;^DD(9.47,2,21,0)
101 ;;=^^1^1^2920513^^
102 ;;^DD(9.47,2,21,1,0)
103 ;;=The name of the FileMan file for this Input Template.
104 ;;^DD(9.47,2,"DT")
105 ;;=2821126
106 ;;^DD(9.48,0)
107 ;;=*SORT TEMPLATE SUB-FIELD^NL^2^2
108 ;;^DD(9.48,0,"NM","*SORT TEMPLATE")
109 ;;=
110 ;;^DD(9.48,0,"UP")
111 ;;=9.4
112 ;;^DD(9.48,.01,0)
113 ;;=SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
114 ;;^DD(9.48,.01,1,0)
115 ;;=^.1^^0
116 ;;^DD(9.48,.01,3)
117 ;;=Please enter the name of a Sort Template (2-50 characters).
118 ;;^DD(9.48,.01,21,0)
119 ;;=^^4^4^2920513^^^
120 ;;^DD(9.48,.01,21,1,0)
121 ;;=The name of a Sort Template being sent with this Package.
122 ;;^DD(9.48,.01,21,2,0)
123 ;;=This multiple is used to send non-namespaced templates in an INIT.
124 ;;^DD(9.48,.01,21,3,0)
125 ;;=Namespaced templates are sent automatically and need not be listed
126 ;;^DD(9.48,.01,21,4,0)
127 ;;=separately.
128 ;;^DD(9.48,.01,"DT")
129 ;;=2821117
130 ;;^DD(9.48,2,0)
131 ;;=FILE^RP1'^DIC(^0;2^Q
132 ;;^DD(9.48,2,21,0)
133 ;;=^^1^1^2920513^^
134 ;;^DD(9.48,2,21,1,0)
135 ;;=The FileMan file for this Sort Template.
136 ;;^DD(9.485,0)
137 ;;=*SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2
138 ;;^DD(9.485,0,"DT")
139 ;;=2910320
140 ;;^DD(9.485,0,"NM","*SCREEN TEMPLATE (FORM)")
141 ;;=
142 ;;^DD(9.485,0,"UP")
143 ;;=9.4
144 ;;^DD(9.485,.01,0)
145 ;;=SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X
146 ;;^DD(9.485,.01,1,0)
147 ;;=^.1^^0
148 ;;^DD(9.485,.01,3)
149 ;;=Please enter the name of a Screen Template (Form), (2-50 characters).
150 ;;^DD(9.485,.01,21,0)
151 ;;=^^2^2^2920513^^^^
152 ;;^DD(9.485,.01,21,1,0)
153 ;;=The name of a Screen Template (from the FORM file) associated with
154 ;;^DD(9.485,.01,21,2,0)
155 ;;=this Package.
156 ;;^DD(9.485,.01,23,0)
157 ;;=^^3^3^2910320^^^^
158 ;;^DD(9.485,.01,23,1,0)
159 ;;=This list is originally created by the user for building an INIT, and allows
160 ;;^DD(9.485,.01,23,2,0)
161 ;;=the user to send FORMS on an INIT that are outside the Package namespace.
162 ;;^DD(9.485,.01,23,3,0)
163 ;;=All BLOCKS associated with the FORMS are also sent automatically.
164 ;;^DD(9.485,.01,"DT")
165 ;;=2910320
166 ;;^DD(9.485,2,0)
167 ;;=FILE^RP1'^DIC(^0;2^Q
168 ;;^DD(9.485,2,21,0)
169 ;;=^^1^1^2920513^^
170 ;;^DD(9.485,2,21,1,0)
171 ;;=The name of the FileMan file for this Screen Template (FORM).
172 ;;^DD(9.485,2,23,0)
173 ;;=^^1^1^2910320^
174 ;;^DD(9.485,2,23,1,0)
175 ;;=This field must match the PRIMARY FILE field on the FORM file.
176 ;;^DD(9.485,2,"DT")
177 ;;=2910320
178 ;;^DD(9.49,0)
179 ;;=VERSION SUB-FIELD^NL^1105^10
180 ;;^DD(9.49,0,"DT")
181 ;;=2940607
182 ;;^DD(9.49,0,"ID",1)
183 ;;=W:$D(^("0")) " ",$E($P(^("0"),U,2),4,5)_"-"_$E($P(^("0"),U,2),6,7)_"-"_$E($P(^("0"),U,2),2,3)
184 ;;^DD(9.49,0,"IX","B",9.49,.01)
185 ;;=
186 ;;^DD(9.49,0,"NM","VERSION")
187 ;;=
188 ;;^DD(9.49,0,"UP")
189 ;;=9.4
190 ;;^DD(9.49,.01,0)
191 ;;=VERSION^FX^^0;1^K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
192 ;;^DD(9.49,.01,1,0)
193 ;;=^.1
194 ;;^DD(9.49,.01,1,1,0)
195 ;;=9.49^B
196 ;;^DD(9.49,.01,1,1,1)
197 ;;=S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
198 ;;^DD(9.49,.01,1,1,2)
199 ;;=K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
200 ;;^DD(9.49,.01,3)
201 ;;=Please enter the Version Number of this release. This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.).
202 ;;^DD(9.49,.01,21,0)
203 ;;=^^2^2^2930415^^^^
204 ;;^DD(9.49,.01,21,1,0)
205 ;;=The version number of this Package. This number is updated automatically
206 ;;^DD(9.49,.01,21,2,0)
207 ;;=when an INIT is built for this package.
208 ;;^DD(9.49,.01,"DT")
209 ;;=2910322
210 ;;^DD(9.49,1,0)
211 ;;=DATE DISTRIBUTED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
212 ;;^DD(9.49,1,21,0)
213 ;;=^^2^2^2911209^^^
214 ;;^DD(9.49,1,21,1,0)
215 ;;=The date this release was distributed. This field is updated automatically
216 ;;^DD(9.49,1,21,2,0)
217 ;;=when an INIT is built for this package.
218 ;;^DD(9.49,1,"DT")
219 ;;=2840227
220 ;;^DD(9.49,2,0)
221 ;;=DATE INSTALLED AT THIS SITE^D^^0;3^S %DT="ET" D ^%DT S X=Y K:Y<1 X
222 ;;^DD(9.49,2,21,0)
223 ;;=^^2^2^2911209^^^
224 ;;^DD(9.49,2,21,1,0)
225 ;;=The date this release was installed at this site. This field is updated
Note: See TracBrowser for help on using the repository browser.