source: lang-file4mu1and2/DINIT012.m@ 1763

Last change on this file since 1763 was 1597, checked in by Sam Habiel, 12 years ago

updated lang files; now doesn't delete old lang file data if same version.
File size: 13.9 KB
Line 
1DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
2 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
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) S @X=Y
4Q Q
5 ;;^DD(.85,.05,"DT")
6 ;;=3121101
7 ;;^DD(.85,.06,0)
8 ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
9 ;;^DD(.85,.06,3)
10 ;;=Select a language's scope
11 ;;^DD(.85,.06,21,0)
12 ;;=^^12^12^3121031^
13 ;;^DD(.85,.06,21,1,0)
14 ;;=Enter the Scope of a Language.
15 ;;^DD(.85,.06,21,2,0)
16 ;;=
17 ;;^DD(.85,.06,21,3,0)
18 ;;=Individual if the language is an individually identifiable language
19 ;;^DD(.85,.06,21,4,0)
20 ;;=(e.g. 'Cantonese').
21 ;;^DD(.85,.06,21,5,0)
22 ;;=
23 ;;^DD(.85,.06,21,6,0)
24 ;;=Macrolanguage if the language encopasses several other languages (e.g.
25 ;;^DD(.85,.06,21,7,0)
26 ;;='Chinese')
27 ;;^DD(.85,.06,21,8,0)
28 ;;=
29 ;;^DD(.85,.06,21,9,0)
30 ;;=Collective if the language is a language group (e.g. 'Languages,
31 ;;^DD(.85,.06,21,10,0)
32 ;;=Sino-Tibetan')
33 ;;^DD(.85,.06,21,11,0)
34 ;;=
35 ;;^DD(.85,.06,21,12,0)
36 ;;=Special and Local are reserved for specific entries.
37 ;;^DD(.85,.06,23,0)
38 ;;=^^1^1^3121101^
39 ;;^DD(.85,.06,23,1,0)
40 ;;=The current version of this file does not distribute data for this field.
41 ;;^DD(.85,.06,"DT")
42 ;;=3121101
43 ;;^DD(.85,.07,0)
44 ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
45 ;;^DD(.85,.07,.1)
46 ;;=Historical Status
47 ;;^DD(.85,.07,3)
48 ;;=Select a choice.
49 ;;^DD(.85,.07,21,0)
50 ;;=^^12^12^3121101^^
51 ;;^DD(.85,.07,21,1,0)
52 ;;=Living means that the language is spoken today (e.g. English).
53 ;;^DD(.85,.07,21,2,0)
54 ;;=
55 ;;^DD(.85,.07,21,3,0)
56 ;;=Constructed means that the language is artificial (e.g. Esperanto).
57 ;;^DD(.85,.07,21,4,0)
58 ;;=
59 ;;^DD(.85,.07,21,5,0)
60 ;;=Ancient means that the language is very old and not spoken any more (e.g.
61 ;;^DD(.85,.07,21,6,0)
62 ;;=Ancient Egyptian).
63 ;;^DD(.85,.07,21,7,0)
64 ;;=
65 ;;^DD(.85,.07,21,8,0)
66 ;;=Historical means that the language was being used in the Medieval times
67 ;;^DD(.85,.07,21,9,0)
68 ;;=and is not spoken any more (e.g. Old High German).
69 ;;^DD(.85,.07,21,10,0)
70 ;;=
71 ;;^DD(.85,.07,21,11,0)
72 ;;=Extinct means that the language was being used recently but has died out
73 ;;^DD(.85,.07,21,12,0)
74 ;;=(e.g. Cornish).
75 ;;^DD(.85,.07,23,0)
76 ;;=^^1^1^3121101^
77 ;;^DD(.85,.07,23,1,0)
78 ;;=The current version of this file does not distribute data for this field.
79 ;;^DD(.85,.07,"DT")
80 ;;=3121101
81 ;;^DD(.85,.08,0)
82 ;;=LINGUISTIC CATEGORY^*P.85'^DI(.85,^0;8^S DIC("S")="I $P(^(0),U,6)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
83 ;;^DD(.85,.08,3)
84 ;;=Select a choice.
85 ;;^DD(.85,.08,12)
86 ;;=Only collective languages are selectable
87 ;;^DD(.85,.08,12.1)
88 ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
89 ;;^DD(.85,.08,21,0)
90 ;;=^^1^1^3121101^^
91 ;;^DD(.85,.08,21,1,0)
92 ;;=Enter a language collection to which this language belongs.
93 ;;^DD(.85,.08,23,0)
94 ;;=^^1^1^3121101^
95 ;;^DD(.85,.08,23,1,0)
96 ;;=The current version of this file does not distribute data for this field.
97 ;;^DD(.85,.08,"DT")
98 ;;=3121101
99 ;;^DD(.85,.09,0)
100 ;;=MEMBER OF LANGUAGE SET^*P.85'^DI(.85,^0;9^S DIC("S")="I $P(^(0),U,6)=""M""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
101 ;;^DD(.85,.09,3)
102 ;;=Enter a choice.
103 ;;^DD(.85,.09,12)
104 ;;=You may only select Macrolanguages
105 ;;^DD(.85,.09,12.1)
106 ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
107 ;;^DD(.85,.09,21,0)
108 ;;=^^3^3^3121101^
109 ;;^DD(.85,.09,21,1,0)
110 ;;=If this language is a dialect of a macrolanguage, select the
111 ;;^DD(.85,.09,21,2,0)
112 ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
113 ;;^DD(.85,.09,21,3,0)
114 ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
115 ;;^DD(.85,.09,23,0)
116 ;;=^^1^1^3121101^
117 ;;^DD(.85,.09,23,1,0)
118 ;;=The current version of this file does not distribute data for this field.
119 ;;^DD(.85,.09,"DT")
120 ;;=3121101
121 ;;^DD(.85,1,0)
122 ;;=ALTERNATE NAME^.8501^^1;0
123 ;;^DD(.85,10,0)
124 ;;=DESCRIPTION^.8502^^10;0
125 ;;^DD(.85,10,"DT")
126 ;;=3121031
127 ;;^DD(.85,10.1,0)
128 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
129 ;;^DD(.85,10.1,3)
130 ;;=This is Standard MUMPS code.
131 ;;^DD(.85,10.1,9)
132 ;;=@
133 ;;^DD(.85,10.1,21,0)
134 ;;=^^6^6^2941121^^^^
135 ;;^DD(.85,10.1,21,1,0)
136 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
137 ;;^DD(.85,10.1,21,2,0)
138 ;;=this language. The code should set Y to the ordinal equivalent without
139 ;;^DD(.85,10.1,21,3,0)
140 ;;=altering any other variables in the environment. Ex. in English:
141 ;;^DD(.85,10.1,21,4,0)
142 ;;= Y=1 becomes Y=1ST
143 ;;^DD(.85,10.1,21,5,0)
144 ;;= Y=2 becomes Y=2ND
145 ;;^DD(.85,10.1,21,6,0)
146 ;;= Y=3 becomes Y=3RD etc.
147 ;;^DD(.85,10.1,"DT")
148 ;;=2940307
149 ;;^DD(.85,10.2,0)
150 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
151 ;;^DD(.85,10.2,3)
152 ;;=This is Standard MUMPS code.
153 ;;^DD(.85,10.2,9)
154 ;;=@
155 ;;^DD(.85,10.2,21,0)
156 ;;=^^6^6^2941121^^^
157 ;;^DD(.85,10.2,21,1,0)
158 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
159 ;;^DD(.85,10.2,21,2,0)
160 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
161 ;;^DD(.85,10.2,21,3,0)
162 ;;=The code should set Y to the output, without altering any other variables
163 ;;^DD(.85,10.2,21,4,0)
164 ;;=in the environment. Ex. in English:
165 ;;^DD(.85,10.2,21,5,0)
166 ;;=
167 ;;^DD(.85,10.2,21,6,0)
168 ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
169 ;;^DD(.85,10.2,"DT")
170 ;;=2940307
171 ;;^DD(.85,10.21,0)
172 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
173 ;;^DD(.85,10.21,3)
174 ;;=This is Standard MUMPS code.
175 ;;^DD(.85,10.21,9)
176 ;;=@
177 ;;^DD(.85,10.21,21,0)
178 ;;=^^22^22^2941122^
179 ;;^DD(.85,10.21,21,1,0)
180 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
181 ;;^DD(.85,10.21,21,2,0)
182 ;;=format, to printable format based on the various outputs from routine
183 ;;^DD(.85,10.21,21,3,0)
184 ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
185 ;;^DD(.85,10.21,21,4,0)
186 ;;=code, in addition to the internal date in Y, a third parameter will be
187 ;;^DD(.85,10.21,21,5,0)
188 ;;=defined to contain flags equivalent to the flag passed as the second input
189 ;;^DD(.85,10.21,21,6,0)
190 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
191 ;;^DD(.85,10.21,21,7,0)
192 ;;=altering any other variables in the environment. The output should be
193 ;;^DD(.85,10.21,21,8,0)
194 ;;=formatted based on these flags:
195 ;;^DD(.85,10.21,21,9,0)
196 ;;=
197 ;;^DD(.85,10.21,21,10,0)
198 ;;= 1 MMM DD, YYYY@HH:MM:SS
199 ;;^DD(.85,10.21,21,11,0)
200 ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
201 ;;^DD(.85,10.21,21,12,0)
202 ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
203 ;;^DD(.85,10.21,21,13,0)
204 ;;= 4 YY/MM/DD@HH:MM:SS
205 ;;^DD(.85,10.21,21,14,0)
206 ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
207 ;;^DD(.85,10.21,21,15,0)
208 ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
209 ;;^DD(.85,10.21,21,16,0)
210 ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
211 ;;^DD(.85,10.21,21,17,0)
212 ;;=
213 ;;^DD(.85,10.21,21,18,0)
214 ;;=letters in the flag
215 ;;^DD(.85,10.21,21,19,0)
216 ;;= S return always seconds
217 ;;^DD(.85,10.21,21,20,0)
218 ;;= U return uppercase month names
219 ;;^DD(.85,10.21,21,21,0)
220 ;;= P return time as am,pm
221 ;;^DD(.85,10.21,21,22,0)
222 ;;= D return only date part
223 ;;^DD(.85,10.21,"DT")
224 ;;=2940624
225 ;;^DD(.85,10.22,0)
226 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
227 ;;^DD(.85,10.22,3)
228 ;;=This is Standard MUMPS code for the output of time only.
229 ;;^DD(.85,10.22,9)
230 ;;=@
231 ;;^DD(.85,10.22,21,0)
232 ;;=^^2^2^2960318^
233 ;;^DD(.85,10.22,21,1,0)
234 ;;=The code stored here will be used to get formatted output of the time
235 ;;^DD(.85,10.22,21,2,0)
236 ;;=part belonging to a FileMan Date/Time value.
237 ;;^DD(.85,10.22,"DT")
238 ;;=2960318
239 ;;^DD(.85,10.3,0)
240 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
241 ;;^DD(.85,10.3,3)
242 ;;=This is Standard MUMPS code.
243 ;;^DD(.85,10.3,9)
244 ;;=@
245 ;;^DD(.85,10.3,21,0)
246 ;;=^^5^5^2941121^^
247 ;;^DD(.85,10.3,21,1,0)
248 ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
249 ;;^DD(.85,10.3,21,2,0)
250 ;;=this language. The code should set Y to the cardinal equivalent without
251 ;;^DD(.85,10.3,21,3,0)
252 ;;=altering any other variables in the environment. Ex. in English:
253 ;;^DD(.85,10.3,21,4,0)
254 ;;= Y=2000 becomes Y=2,000
255 ;;^DD(.85,10.3,21,5,0)
256 ;;= Y=1234567 becomes Y=1,234,567
257 ;;^DD(.85,10.3,"DT")
258 ;;=2940308
259 ;;^DD(.85,10.4,0)
260 ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
261 ;;^DD(.85,10.4,3)
262 ;;=This is Standard MUMPS code.
263 ;;^DD(.85,10.4,9)
264 ;;=@
265 ;;^DD(.85,10.4,21,0)
266 ;;=^^4^4^2941121^
267 ;;^DD(.85,10.4,21,1,0)
268 ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
269 ;;^DD(.85,10.4,21,2,0)
270 ;;=this language. The code should set Y to the external format without
271 ;;^DD(.85,10.4,21,3,0)
272 ;;=altering any other variables in the environment. In English, changes
273 ;;^DD(.85,10.4,21,4,0)
274 ;;= abCdeF to: ABCDEF
275 ;;^DD(.85,10.4,"DT")
276 ;;=2940308
277 ;;^DD(.85,10.5,0)
278 ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
279 ;;^DD(.85,10.5,3)
280 ;;=This is Standard MUMPS code.
281 ;;^DD(.85,10.5,9)
282 ;;=@
283 ;;^DD(.85,10.5,21,0)
284 ;;=^^4^4^2941121^
285 ;;^DD(.85,10.5,21,1,0)
286 ;;=MUMPS code used to convert text in Y to its lower-case equivalent in
287 ;;^DD(.85,10.5,21,2,0)
288 ;;=this language. The code should set Y to the external format without
289 ;;^DD(.85,10.5,21,3,0)
290 ;;=altering any other variables in the environment. In English, changes:
291 ;;^DD(.85,10.5,21,4,0)
292 ;;= ABcdEFgHij to: abcdefghij
293 ;;^DD(.85,10.5,"DT")
294 ;;=2940308
295 ;;^DD(.85,20.2,0)
296 ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
297 ;;^DD(.85,20.2,3)
298 ;;=This is Standard MUMPS code.
299 ;;^DD(.85,20.2,9)
300 ;;=@
301 ;;^DD(.85,20.2,"DT")
302 ;;=2940714
303 ;;^DD(.8501,0)
304 ;;=ALTERNATE NAME SUB-FIELD^^.01^1
305 ;;^DD(.8501,0,"DT")
306 ;;=3121101
307 ;;^DD(.8501,0,"IX","B",.8501,.01)
308 ;;=
309 ;;^DD(.8501,0,"NM","ALTERNATE NAME")
310 ;;=
311 ;;^DD(.8501,0,"UP")
312 ;;=.85
313 ;;^DD(.8501,.01,0)
314 ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
315 ;;^DD(.8501,.01,1,0)
316 ;;=^.1
317 ;;^DD(.8501,.01,1,1,0)
318 ;;=.8501^B
319 ;;^DD(.8501,.01,1,1,1)
320 ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
321 ;;^DD(.8501,.01,1,1,2)
322 ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
323 ;;^DD(.8501,.01,1,2,0)
324 ;;=.85^F
325 ;;^DD(.8501,.01,1,2,1)
326 ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
327 ;;^DD(.8501,.01,1,2,2)
328 ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
329 ;;^DD(.8501,.01,1,2,3)
330 ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
331 ;;^DD(.8501,.01,1,2,"%D",0)
332 ;;=^^1^1^3121101^
333 ;;^DD(.8501,.01,1,2,"%D",1,0)
334 ;;=Whole file cross-reference for ALTERNATE NAME multiple.
335 ;;^DD(.8501,.01,1,2,"DT")
336 ;;=3121101
337 ;;^DD(.8501,.01,3)
338 ;;=Answer must be 1-60 characters in length.
339 ;;^DD(.8501,.01,21,0)
340 ;;=^^2^2^3121101^^
341 ;;^DD(.8501,.01,21,1,0)
342 ;;=This field contains other synonyms for a language.
343 ;;^DD(.8501,.01,21,2,0)
344 ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
345 ;;^DD(.8501,.01,"DT")
346 ;;=3121101
347 ;;^DD(.8502,0)
348 ;;=DESCRIPTION SUB-FIELD^^.01^1
349 ;;^DD(.8502,0,"DT")
350 ;;=3121031
351 ;;^DD(.8502,0,"NM","DESCRIPTION")
352 ;;=
353 ;;^DD(.8502,0,"UP")
354 ;;=.85
355 ;;^DD(.8502,.01,0)
356 ;;=DESCRIPTION^Wx^^0;1
357 ;;^DD(.8502,.01,3)
358 ;;=Enter an optional language description
359 ;;^DD(.8502,.01,"DT")
360 ;;=3121031
361 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
362 ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
363 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
364 ;;=S ^DI(.85,"B",X,DA)=""
365 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
366 ;;=K ^DI(.85,"B",X,DA)
367 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
368 ;;=K ^DI(.85,"B")
369 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
370 ;;=^.114IA^1^1
371 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
372 ;;=1^F^.85^.01^^1^F
373 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
374 ;;=
375 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
376 ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
377 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
378 ;;=S ^DI(.85,"C",X,DA)=""
379 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
380 ;;=K ^DI(.85,"C",X,DA)
381 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
382 ;;=K ^DI(.85,"C")
383 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
384 ;;=^.114IA^1^1
385 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
386 ;;=1^F^.85^.02^^1^F
387 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
388 ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
389 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
390 ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
391 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
392 ;;=K ^DI(.85,"D",$E(X,1,30),DA)
393 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
394 ;;=K ^DI(.85,"D")
395 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
396 ;;=^.114IA^1^1
397 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
398 ;;=1^F^.85^.03^30^1^F
399 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
400 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
401 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
402 ;;=^^6^6^3121031^
403 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
404 ;;=This will add entries to the D index for the three letter code a la the
405 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
406 ;;=mnemonic style.
407 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
408 ;;=
409 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
410 ;;=If you need re-cross-reference this field, you need to kill of the
411 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
412 ;;=entries in the regular D index, set the D index, and then set this index
413 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
414 ;;=to update the D with the mnemonic xrefs.
415 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
416 ;;=S ^DI(.85,"D",X,DA)=1
417 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
418 ;;=K ^DI(.85,"D",X,DA)
419 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
420 ;;=^.114IA^1^1
421 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
422 ;;=1^F^.85^.05^^1^F
423 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
424 ;;=.85^A^P^1046
425 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
426 ;;=^.312IA^1^1
427 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
428 ;;=.01^.85^1
429 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
430 ;;=.85^B^S^1048
431 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
432 ;;=^.312IA^1^1
433 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
434 ;;=.03^.85^1
435 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
436 ;;=.85^B
437 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
438 ;;=.85^D
Note: See TracBrowser for help on using the repository browser.