source: lang-file4mu1and2/VW-LanguageFiles-DILAINITs-DINIT-2012-11-14.ro@ 1597

Last change on this file since 1597 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: 126.5 KB
Line 
1Lang files inits. Run ^DINIT first, then run ^DILAINIT
2GT.M 14-NOV-2012 11:28:46
3DILAI001
4DILAI001 ; ; 02-NOV-2012 ; 11/14/12 11:06am
5 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
6 Q:'DIFQ(.85) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
7Q Q
8 ;;^DIC(.85,0,"GL")
9 ;;=^DI(.85,
10 ;;^DIC("B","LANGUAGE",.85)
11 ;;=
12 ;;^DIC(.85,"%",0)
13 ;;=^1.005
14 ;;^DIC(.85,"%D",0)
15 ;;=^^27^27^3121101^
16 ;;^DIC(.85,"%D",1,0)
17 ;;=The LANGUAGE file is used both to officially identify a language, and to
18 ;;^DIC(.85,"%D",2,0)
19 ;;=store MUMPS code needed to do language-specific conversions of data such
20 ;;^DIC(.85,"%D",3,0)
21 ;;=as dates and numbers.
22 ;;^DIC(.85,"%D",4,0)
23 ;;=
24 ;;^DIC(.85,"%D",5,0)
25 ;;=Fileman distributes entries for the following languages:
26 ;;^DIC(.85,"%D",6,0)
27 ;;= ID Number (.001) Name (.01)
28 ;;^DIC(.85,"%D",7,0)
29 ;;= 1 English
30 ;;^DIC(.85,"%D",8,0)
31 ;;= 2 German
32 ;;^DIC(.85,"%D",9,0)
33 ;;= 3 Spanish
34 ;;^DIC(.85,"%D",10,0)
35 ;;= 4 French
36 ;;^DIC(.85,"%D",11,0)
37 ;;= 5 Finnish
38 ;;^DIC(.85,"%D",12,0)
39 ;;= 6 Italian
40 ;;^DIC(.85,"%D",13,0)
41 ;;= 7 Portuguese
42 ;;^DIC(.85,"%D",14,0)
43 ;;= 10 Arabic
44 ;;^DIC(.85,"%D",15,0)
45 ;;= 11 Russian
46 ;;^DIC(.85,"%D",16,0)
47 ;;= 12 Greek
48 ;;^DIC(.85,"%D",17,0)
49 ;;= 18 Hebrew
50 ;;^DIC(.85,"%D",18,0)
51 ;;=
52 ;;^DIC(.85,"%D",19,0)
53 ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
54 ;;^DIC(.85,"%D",20,0)
55 ;;=DILAINIT routines, shipped with Fileman 22.2.
56 ;;^DIC(.85,"%D",21,0)
57 ;;=
58 ;;^DIC(.85,"%D",22,0)
59 ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
60 ;;^DIC(.85,"%D",23,0)
61 ;;=also allows non-English text to be returned via FileMan calls.
62 ;;^DIC(.85,"%D",24,0)
63 ;;=
64 ;;^DIC(.85,"%D",25,0)
65 ;;=A note to VISTA developers: Although users can select entries by name,
66 ;;^DIC(.85,"%D",26,0)
67 ;;=software should use the official two or three letter codes to eliminiate
68 ;;^DIC(.85,"%D",27,0)
69 ;;=mistakes resulting from languages that have similar spelling.
70 ;;^DIC(.85,"%MSC")
71 ;;=3121114.111954
72 ;;^DD(.85,0)
73 ;;=FIELD^^10^20
74 ;;^DD(.85,0,"DDA")
75 ;;=N
76 ;;^DD(.85,0,"DT")
77 ;;=3121101
78 ;;^DD(.85,0,"ID",.02)
79 ;;=W " ",$P(^(0),U,2)
80 ;;^DD(.85,0,"ID",.03)
81 ;;=W " ",$P(^(0),U,3)
82 ;;^DD(.85,0,"IX","F",.8501,.01)
83 ;;=
84 ;;^DD(.85,0,"NM","LANGUAGE")
85 ;;=
86 ;;^DD(.85,0,"PT",.007,.001)
87 ;;=
88 ;;^DD(.85,0,"PT",.008,.001)
89 ;;=
90 ;;^DD(.85,0,"PT",.009,.001)
91 ;;=
92 ;;^DD(.85,0,"PT",.4,709.1)
93 ;;=
94 ;;^DD(.85,0,"PT",.4,1819.1)
95 ;;=
96 ;;^DD(.85,0,"PT",.847,.01)
97 ;;=
98 ;;^DD(.85,0,"PT",.85,.08)
99 ;;=
100 ;;^DD(.85,0,"PT",.85,.09)
101 ;;=
102 ;;^DD(.85,0,"PT",1.008,.001)
103 ;;=
104 ;;^DD(.85,0,"PT",200,200.07)
105 ;;=
106 ;;^DD(.85,0,"PT",8989.3,207)
107 ;;=
108 ;;^DD(.85,.001,0)
109 ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
110 ;;^DD(.85,.001,3)
111 ;;=Type a number between 1 and 9999999999, 0 decimal digits.
112 ;;^DD(.85,.001,21,0)
113 ;;=^^3^3^3121031^^
114 ;;^DD(.85,.001,21,1,0)
115 ;;=A number that is used to uniquely identify a language. This number
116 ;;^DD(.85,.001,21,2,0)
117 ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
118 ;;^DD(.85,.001,21,3,0)
119 ;;=during Kernel signon to signify which language Fileman should use.
120 ;;^DD(.85,.001,23,0)
121 ;;=^^31^31^3121031^
122 ;;^DD(.85,.001,23,1,0)
123 ;;=Entries in this file are standardized, with the contents controlled by
124 ;;^DD(.85,.001,23,2,0)
125 ;;=the Fileman Primary Development Team. The ID Number field is used to help
126 ;;^DD(.85,.001,23,3,0)
127 ;;=protect referential integrity in VISTA databases during upgrades to the
128 ;;^DD(.85,.001,23,4,0)
129 ;;=file. ID Number assignment corresponds to the order in which languages
130 ;;^DD(.85,.001,23,5,0)
131 ;;=were added to the file. They were added in segments.
132 ;;^DD(.85,.001,23,6,0)
133 ;;=
134 ;;^DD(.85,.001,23,7,0)
135 ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
136 ;;^DD(.85,.001,23,8,0)
137 ;;=were the first eleven languages added, in order. English is first because
138 ;;^DD(.85,.001,23,9,0)
139 ;;=Fileman was originally written in English. German is second because
140 ;;^DD(.85,.001,23,10,0)
141 ;;=Marcus Werners of Germany led the effort to create Fileman's dialog
142 ;;^DD(.85,.001,23,11,0)
143 ;;=framework, to make translating VISTA into other languages easier.
144 ;;^DD(.85,.001,23,12,0)
145 ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
146 ;;^DD(.85,.001,23,13,0)
147 ;;=which the Fileman team was approached by potential translators about
148 ;;^DD(.85,.001,23,14,0)
149 ;;=adding those languages to the file (though Finnish actually predates all
150 ;;^DD(.85,.001,23,15,0)
151 ;;=other translation efforts except English). Arabic was assigned ID Number
152 ;;^DD(.85,.001,23,16,0)
153 ;;=10 instead of 8 in recognition of the debt English owes Arabic for
154 ;;^DD(.85,.001,23,17,0)
155 ;;=introducing the decimal numbering system to Europe. Russian and Greek
156 ;;^DD(.85,.001,23,18,0)
157 ;;=were the next two translations the Fileman team was approached about. I
158 ;;^DD(.85,.001,23,19,0)
159 ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
160 ;;^DD(.85,.001,23,20,0)
161 ;;=sure there was a reason.
162 ;;^DD(.85,.001,23,21,0)
163 ;;=
164 ;;^DD(.85,.001,23,22,0)
165 ;;=Thereafter, languages are added in segments, in order by Name, starting
166 ;;^DD(.85,.001,23,23,0)
167 ;;=with ID Number 8. The segments correspond to the ISO 639 language
168 ;;^DD(.85,.001,23,24,0)
169 ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
170 ;;^DD(.85,.001,23,25,0)
171 ;;=so on). Each language has one unique record in this file, so wherever a
172 ;;^DD(.85,.001,23,26,0)
173 ;;=language in one segment has already been included in an earlier segment,
174 ;;^DD(.85,.001,23,27,0)
175 ;;=it is not included in the later segment (e.g., Greek was in segment one,
176 ;;^DD(.85,.001,23,28,0)
177 ;;=so it is not also added as a duplicate in segment two).
178 ;;^DD(.85,.001,23,29,0)
179 ;;=
180 ;;^DD(.85,.001,23,30,0)
181 ;;=This segmented approach makes it comparatively easy to upgrade the file
182 ;;^DD(.85,.001,23,31,0)
183 ;;=in discrete batches, to keep the update projects manageable.
184 ;;^DD(.85,.001,"DT")
185 ;;=3121031
186 ;;^DD(.85,.01,0)
187 ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
188 ;;^DD(.85,.01,.1)
189 ;;=Language-Name
190 ;;^DD(.85,.01,3)
191 ;;=Answer must be 1-60 characters in length.
192 ;;^DD(.85,.01,21,0)
193 ;;=^^10^10^3121031^
194 ;;^DD(.85,.01,21,1,0)
195 ;;=Enter the English name of the language, not the native name.
196 ;;^DD(.85,.01,21,2,0)
197 ;;=
198 ;;^DD(.85,.01,21,3,0)
199 ;;=The default is the English name from ISO 639, converted where necessary to
200 ;;^DD(.85,.01,21,4,0)
201 ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
202 ;;^DD(.85,.01,21,5,0)
203 ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
204 ;;^DD(.85,.01,21,6,0)
205 ;;=used.
206 ;;^DD(.85,.01,21,7,0)
207 ;;=
208 ;;^DD(.85,.01,21,8,0)
209 ;;=However, this use of ISO 639's spelling as a default is overridden in
210 ;;^DD(.85,.01,21,9,0)
211 ;;=several different ways to improve consistency across entries and to
212 ;;^DD(.85,.01,21,10,0)
213 ;;=reduce selection error.
214 ;;^DD(.85,.01,23,0)
215 ;;=^^63^63^3121031^
216 ;;^DD(.85,.01,23,1,0)
217 ;;=This is the English name of the language, not the native name. It
218 ;;^DD(.85,.01,23,2,0)
219 ;;=defaults to the English name from ISO 639, mixed case, converted where
220 ;;^DD(.85,.01,23,3,0)
221 ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
222 ;;^DD(.85,.01,23,4,0)
223 ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
224 ;;^DD(.85,.01,23,5,0)
225 ;;=spelling is used.
226 ;;^DD(.85,.01,23,6,0)
227 ;;=
228 ;;^DD(.85,.01,23,7,0)
229 ;;=However, this use of ISO 639's spelling as a default is overridden in
230 ;;^DD(.85,.01,23,8,0)
231 ;;=several different ways to improve consistency across entries and to
232 ;;^DD(.85,.01,23,9,0)
233 ;;=reduce selection error.
234 ;;^DD(.85,.01,23,10,0)
235 ;;=
236 ;;^DD(.85,.01,23,11,0)
237 ;;=For example, for most modern languages, the form of the name that
238 ;;^DD(.85,.01,23,12,0)
239 ;;=includes the word "Modern" and the parenthesized dates is an alternate
240 ;;^DD(.85,.01,23,13,0)
241 ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
242 ;;^DD(.85,.01,23,14,0)
243 ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
244 ;;^DD(.85,.01,23,15,0)
245 ;;=an alternate name and making the name "Greek" instead.
246 ;;^DD(.85,.01,23,16,0)
247 ;;=
248 ;;^DD(.85,.01,23,17,0)
249 ;;=Since most users of these systems are medical professionals rather than
250 ;;^DD(.85,.01,23,18,0)
251 ;;=linguists or historians, we emphasize modern languages and group
252 ;;^DD(.85,.01,23,19,0)
253 ;;=historical ones away from the modern names to reduce accidents. For
254 ;;^DD(.85,.01,23,20,0)
255 ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
256 ;;^DD(.85,.01,23,21,0)
257 ;;=an alternate name for "Old French" in this file, to move the obsolete
258 ;;^DD(.85,.01,23,22,0)
259 ;;=form of the language away from the modern one. Thus, "Old" languages,
260 ;;^DD(.85,.01,23,23,0)
261 ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
262 ;;^DD(.85,.01,23,24,0)
263 ;;=languages whose names look like historical ones, such as "Old Church
264 ;;^DD(.85,.01,23,25,0)
265 ;;=Slavonic", that are still living languages or in active liturgical use
266 ;;^DD(.85,.01,23,26,0)
267 ;;=are kept in this form if that is how they are best known.
268 ;;^DD(.85,.01,23,27,0)
269 ;;=
270 ;;^DD(.85,.01,23,28,0)
271 ;;=Also, such forms that include parenthetical dates are changed to remove
272 ;;^DD(.85,.01,23,29,0)
273 ;;=the dates and parentheses from the Name field; the original forms and
274 ;;^DD(.85,.01,23,30,0)
275 ;;=variants are preserved in the Alternate Name field.
276 ;;^DD(.85,.01,23,31,0)
277 ;;=
278 ;;^DD(.85,.01,23,32,0)
279 ;;=For similar reasons, language collections like "Banda languages" are
280 ;;^DD(.85,.01,23,33,0)
281 ;;=renamed as "Languages, Banda" to move them away from individual language
282 ;;^DD(.85,.01,23,34,0)
283 ;;=a patient might speak, like "Banda-Banda". The same was preserved from
284 ;;^DD(.85,.01,23,35,0)
285 ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
286 ;;^DD(.85,.01,23,36,0)
287 ;;=Portuguese-Based"), which are collective languages, to kepp them separate
288 ;;^DD(.85,.01,23,37,0)
289 ;;=from the individual languages they might be confused with (such as
290 ;;^DD(.85,.01,23,38,0)
291 ;;="Portuguese"). However, individual languages like "Haitian Creole" and
292 ;;^DD(.85,.01,23,39,0)
293 ;;="Chinook Jargon" whose ISO 639 names makes them sound like language
294 ;;^DD(.85,.01,23,40,0)
295 ;;=collections are nevertheless left as is, since these are the names they
296 ;;^DD(.85,.01,23,41,0)
297 ;;=are known by and since the distinguishing part of the name does come
298 ;;^DD(.85,.01,23,42,0)
299 ;;=first, allowing for unambiguous selection.
300 ;;^DD(.85,.01,23,43,0)
301 ;;=
302 ;;^DD(.85,.01,23,44,0)
303 ;;=Where the language name from ISO 639 is a list of alternative names, as
304 ;;^DD(.85,.01,23,45,0)
305 ;;=in "Catalan, Valencian", the dominant name (based on other code sets,
306 ;;^DD(.85,.01,23,46,0)
307 ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
308 ;;^DD(.85,.01,23,47,0)
309 ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
310 ;;^DD(.85,.01,23,48,0)
311 ;;=
312 ;;^DD(.85,.01,23,49,0)
313 ;;=As a general rule (except in the case of language collections), ISO 639
314 ;;^DD(.85,.01,23,50,0)
315 ;;=names that use commas to invert a language name (like "Sorbian, Upper")
316 ;;^DD(.85,.01,23,51,0)
317 ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
318 ;;^DD(.85,.01,23,52,0)
319 ;;=Alternate Name. We do not try to use commas in the Name field to group
320 ;;^DD(.85,.01,23,53,0)
321 ;;=together all related languages or dialects, though we do in the Alternate
322 ;;^DD(.85,.01,23,54,0)
323 ;;=Name field.
324 ;;^DD(.85,.01,23,55,0)
325 ;;=
326 ;;^DD(.85,.01,23,56,0)
327 ;;=In the Name field, parenthetical comments are generally restricted to
328 ;;^DD(.85,.01,23,57,0)
329 ;;=distinguishing between unrelated languages that have the same name, like
330 ;;^DD(.85,.01,23,58,0)
331 ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
332 ;;^DD(.85,.01,23,59,0)
333 ;;=parenthetical words will be (in order of preference) a country, a people,
334 ;;^DD(.85,.01,23,60,0)
335 ;;=or an alternate name of the language, so long as it distinguishes it from
336 ;;^DD(.85,.01,23,61,0)
337 ;;=the other identically named languages. To date, we have not had to change
338 ;;^DD(.85,.01,23,62,0)
339 ;;=any of the ISO 639 names we've imported to make or correct these
340 ;;^DD(.85,.01,23,63,0)
341 ;;=distinctions, but we stand ready to do so to enforce this pattern.
342 ;;^DD(.85,.01,"DT")
343 ;;=3121031
344 ;;^DD(.85,.02,0)
345 ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
346 ;;^DD(.85,.02,3)
347 ;;=Answer must be 2 characters in length.
348 ;;^DD(.85,.02,21,0)
349 ;;=^^3^3^3121101^^
350 ;;^DD(.85,.02,21,1,0)
351 ;;=Enter the two-letter code defined for this language in the ISO 639-1
352 ;;^DD(.85,.02,21,2,0)
353 ;;=standard. Not every language has a two-letter code; for those that do not
354 ;;^DD(.85,.02,21,3,0)
355 ;;=leave this field blank.
356 ;;^DD(.85,.02,23,0)
357 ;;=^^1^1^3121101^
358 ;;^DD(.85,.02,23,1,0)
359 ;;=Future versions of this file wil include an optional key on this field.
360 ;;^DD(.85,.02,"DT")
361 ;;=3121101
362 ;;^DD(.85,.03,0)
363 ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
364 ;;^DD(.85,.03,3)
365 ;;=Answer must be 3 characters in length.
366 ;;^DD(.85,.03,21,0)
367 ;;=^^2^2^3121101^^^^
368 ;;^DD(.85,.03,21,1,0)
369 ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
370 ;;^DD(.85,.03,21,2,0)
371 ;;=standard.
372 ;;^DD(.85,.03,23,0)
373 ;;=^^2^2^3121101^
374 ;;^DD(.85,.03,23,1,0)
375 ;;=When this file is upgraded to ISO-639-6, an optional key will be added to
376 ;;^DD(.85,.03,23,2,0)
377 ;;=this field.
378 ;;^DD(.85,.03,"DT")
379 ;;=3121101
380 ;;^DD(.85,.04,0)
381 ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
382 ;;^DD(.85,.04,3)
383 ;;=Answer must be 4 characters in length.
384 ;;^DD(.85,.04,21,0)
385 ;;=^^1^1^3121101^^^
386 ;;^DD(.85,.04,21,1,0)
387 ;;=Enter the four letter code associated with the language in ISO-639-6.
388 ;;^DD(.85,.04,23,0)
389 ;;=^^3^3^3121101^
390 ;;^DD(.85,.04,23,1,0)
391 ;;=This field is currently not used in this version of the release (as of
392 ;;^DD(.85,.04,23,2,0)
393 ;;=Fileman V22.2). In a future version when this file is upgraded to
394 ;;^DD(.85,.04,23,3,0)
395 ;;=ISO-639-6, a key will be added to this field.
396 ;;^DD(.85,.04,"DT")
397 ;;=3121101
398 ;;^DD(.85,.05,0)
399 ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
400 ;;^DD(.85,.05,3)
401 ;;=Answer must be 3 characters in length.
402 ;;^DD(.85,.05,21,0)
403 ;;=^^4^4^3121101^
404 ;;^DD(.85,.05,21,1,0)
405 ;;=This is the alternate three letter code for a language. This will only be
406 ;;^DD(.85,.05,21,2,0)
407 ;;=used in cases where the language abbreviation is different in English
408 ;;^DD(.85,.05,21,3,0)
409 ;;=than in the native language. E.g. GER instead of DEU; for German instead
410 ;;^DD(.85,.05,21,4,0)
411 ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
412 ;;^DD(.85,.05,23,0)
413 ;;=^^1^1^3121101^
414 ;;^DD(.85,.05,23,1,0)
415 ;;=In a future version of Fileman, this field will have an optional key.
416
417DILAI002
418DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am
419 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
420 Q:'DIFQ(.85) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
421Q Q
422 ;;^DD(.85,.05,"DT")
423 ;;=3121102
424 ;;^DD(.85,.06,0)
425 ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
426 ;;^DD(.85,.06,3)
427 ;;=Select a language's scope
428 ;;^DD(.85,.06,21,0)
429 ;;=^^12^12^3121031^
430 ;;^DD(.85,.06,21,1,0)
431 ;;=Enter the Scope of a Language.
432 ;;^DD(.85,.06,21,2,0)
433 ;;=
434 ;;^DD(.85,.06,21,3,0)
435 ;;=Individual if the language is an individually identifiable language
436 ;;^DD(.85,.06,21,4,0)
437 ;;=(e.g. 'Cantonese').
438 ;;^DD(.85,.06,21,5,0)
439 ;;=
440 ;;^DD(.85,.06,21,6,0)
441 ;;=Macrolanguage if the language encopasses several other languages (e.g.
442 ;;^DD(.85,.06,21,7,0)
443 ;;='Chinese')
444 ;;^DD(.85,.06,21,8,0)
445 ;;=
446 ;;^DD(.85,.06,21,9,0)
447 ;;=Collective if the language is a language group (e.g. 'Languages,
448 ;;^DD(.85,.06,21,10,0)
449 ;;=Sino-Tibetan')
450 ;;^DD(.85,.06,21,11,0)
451 ;;=
452 ;;^DD(.85,.06,21,12,0)
453 ;;=Special and Local are reserved for specific entries.
454 ;;^DD(.85,.06,23,0)
455 ;;=^^1^1^3121101^
456 ;;^DD(.85,.06,23,1,0)
457 ;;=The current version of this file does not distribute data for this field.
458 ;;^DD(.85,.06,"DT")
459 ;;=3121101
460 ;;^DD(.85,.07,0)
461 ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
462 ;;^DD(.85,.07,.1)
463 ;;=Historical Status
464 ;;^DD(.85,.07,3)
465 ;;=Select a choice.
466 ;;^DD(.85,.07,21,0)
467 ;;=^^12^12^3121101^^
468 ;;^DD(.85,.07,21,1,0)
469 ;;=Living means that the language is spoken today (e.g. English).
470 ;;^DD(.85,.07,21,2,0)
471 ;;=
472 ;;^DD(.85,.07,21,3,0)
473 ;;=Constructed means that the language is artificial (e.g. Esperanto).
474 ;;^DD(.85,.07,21,4,0)
475 ;;=
476 ;;^DD(.85,.07,21,5,0)
477 ;;=Ancient means that the language is very old and not spoken any more (e.g.
478 ;;^DD(.85,.07,21,6,0)
479 ;;=Ancient Egyptian).
480 ;;^DD(.85,.07,21,7,0)
481 ;;=
482 ;;^DD(.85,.07,21,8,0)
483 ;;=Historical means that the language was being used in the Medieval times
484 ;;^DD(.85,.07,21,9,0)
485 ;;=and is not spoken any more (e.g. Old High German).
486 ;;^DD(.85,.07,21,10,0)
487 ;;=
488 ;;^DD(.85,.07,21,11,0)
489 ;;=Extinct means that the language was being used recently but has died out
490 ;;^DD(.85,.07,21,12,0)
491 ;;=(e.g. Cornish).
492 ;;^DD(.85,.07,23,0)
493 ;;=^^1^1^3121101^
494 ;;^DD(.85,.07,23,1,0)
495 ;;=The current version of this file does not distribute data for this field.
496 ;;^DD(.85,.07,"DT")
497 ;;=3121101
498 ;;^DD(.85,.08,0)
499 ;;=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
500 ;;^DD(.85,.08,3)
501 ;;=Select a choice.
502 ;;^DD(.85,.08,12)
503 ;;=Only collective languages are selectable
504 ;;^DD(.85,.08,12.1)
505 ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
506 ;;^DD(.85,.08,21,0)
507 ;;=^^1^1^3121101^^
508 ;;^DD(.85,.08,21,1,0)
509 ;;=Enter a language collection to which this language belongs.
510 ;;^DD(.85,.08,23,0)
511 ;;=^^1^1^3121101^
512 ;;^DD(.85,.08,23,1,0)
513 ;;=The current version of this file does not distribute data for this field.
514 ;;^DD(.85,.08,"DT")
515 ;;=3121101
516 ;;^DD(.85,.09,0)
517 ;;=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
518 ;;^DD(.85,.09,3)
519 ;;=Enter a choice.
520 ;;^DD(.85,.09,12)
521 ;;=You may only select Macrolanguages
522 ;;^DD(.85,.09,12.1)
523 ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
524 ;;^DD(.85,.09,21,0)
525 ;;=^^3^3^3121101^
526 ;;^DD(.85,.09,21,1,0)
527 ;;=If this language is a dialect of a macrolanguage, select the
528 ;;^DD(.85,.09,21,2,0)
529 ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
530 ;;^DD(.85,.09,21,3,0)
531 ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
532 ;;^DD(.85,.09,23,0)
533 ;;=^^1^1^3121101^
534 ;;^DD(.85,.09,23,1,0)
535 ;;=The current version of this file does not distribute data for this field.
536 ;;^DD(.85,.09,"DT")
537 ;;=3121101
538 ;;^DD(.85,1,0)
539 ;;=ALTERNATE NAME^.8501^^1;0
540 ;;^DD(.85,10,0)
541 ;;=DESCRIPTION^.8502^^10;0
542 ;;^DD(.85,10,"DT")
543 ;;=3121031
544 ;;^DD(.85,10.1,0)
545 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
546 ;;^DD(.85,10.1,3)
547 ;;=This is Standard MUMPS code.
548 ;;^DD(.85,10.1,9)
549 ;;=@
550 ;;^DD(.85,10.1,21,0)
551 ;;=^^6^6^2941121^^^^
552 ;;^DD(.85,10.1,21,1,0)
553 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
554 ;;^DD(.85,10.1,21,2,0)
555 ;;=this language. The code should set Y to the ordinal equivalent without
556 ;;^DD(.85,10.1,21,3,0)
557 ;;=altering any other variables in the environment. Ex. in English:
558 ;;^DD(.85,10.1,21,4,0)
559 ;;= Y=1 becomes Y=1ST
560 ;;^DD(.85,10.1,21,5,0)
561 ;;= Y=2 becomes Y=2ND
562 ;;^DD(.85,10.1,21,6,0)
563 ;;= Y=3 becomes Y=3RD etc.
564 ;;^DD(.85,10.1,"DT")
565 ;;=2940307
566 ;;^DD(.85,10.2,0)
567 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
568 ;;^DD(.85,10.2,3)
569 ;;=This is Standard MUMPS code.
570 ;;^DD(.85,10.2,9)
571 ;;=@
572 ;;^DD(.85,10.2,21,0)
573 ;;=^^6^6^2941121^^^
574 ;;^DD(.85,10.2,21,1,0)
575 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
576 ;;^DD(.85,10.2,21,2,0)
577 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
578 ;;^DD(.85,10.2,21,3,0)
579 ;;=The code should set Y to the output, without altering any other variables
580 ;;^DD(.85,10.2,21,4,0)
581 ;;=in the environment. Ex. in English:
582 ;;^DD(.85,10.2,21,5,0)
583 ;;=
584 ;;^DD(.85,10.2,21,6,0)
585 ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
586 ;;^DD(.85,10.2,"DT")
587 ;;=2940307
588 ;;^DD(.85,10.21,0)
589 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
590 ;;^DD(.85,10.21,3)
591 ;;=This is Standard MUMPS code.
592 ;;^DD(.85,10.21,9)
593 ;;=@
594 ;;^DD(.85,10.21,21,0)
595 ;;=^^22^22^2941122^
596 ;;^DD(.85,10.21,21,1,0)
597 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
598 ;;^DD(.85,10.21,21,2,0)
599 ;;=format, to printable format based on the various outputs from routine
600 ;;^DD(.85,10.21,21,3,0)
601 ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
602 ;;^DD(.85,10.21,21,4,0)
603 ;;=code, in addition to the internal date in Y, a third parameter will be
604 ;;^DD(.85,10.21,21,5,0)
605 ;;=defined to contain flags equivalent to the flag passed as the second input
606 ;;^DD(.85,10.21,21,6,0)
607 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
608 ;;^DD(.85,10.21,21,7,0)
609 ;;=altering any other variables in the environment. The output should be
610 ;;^DD(.85,10.21,21,8,0)
611 ;;=formatted based on these flags:
612 ;;^DD(.85,10.21,21,9,0)
613 ;;=
614 ;;^DD(.85,10.21,21,10,0)
615 ;;= 1 MMM DD, YYYY@HH:MM:SS
616 ;;^DD(.85,10.21,21,11,0)
617 ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
618 ;;^DD(.85,10.21,21,12,0)
619 ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
620 ;;^DD(.85,10.21,21,13,0)
621 ;;= 4 YY/MM/DD@HH:MM:SS
622 ;;^DD(.85,10.21,21,14,0)
623 ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
624 ;;^DD(.85,10.21,21,15,0)
625 ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
626 ;;^DD(.85,10.21,21,16,0)
627 ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
628 ;;^DD(.85,10.21,21,17,0)
629 ;;=
630 ;;^DD(.85,10.21,21,18,0)
631 ;;=letters in the flag
632 ;;^DD(.85,10.21,21,19,0)
633 ;;= S return always seconds
634 ;;^DD(.85,10.21,21,20,0)
635 ;;= U return uppercase month names
636 ;;^DD(.85,10.21,21,21,0)
637 ;;= P return time as am,pm
638 ;;^DD(.85,10.21,21,22,0)
639 ;;= D return only date part
640 ;;^DD(.85,10.21,"DT")
641 ;;=2940624
642 ;;^DD(.85,10.22,0)
643 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
644 ;;^DD(.85,10.22,3)
645 ;;=This is Standard MUMPS code for the output of time only.
646 ;;^DD(.85,10.22,9)
647 ;;=@
648 ;;^DD(.85,10.22,21,0)
649 ;;=^^2^2^2960318^
650 ;;^DD(.85,10.22,21,1,0)
651 ;;=The code stored here will be used to get formatted output of the time
652 ;;^DD(.85,10.22,21,2,0)
653 ;;=part belonging to a FileMan Date/Time value.
654 ;;^DD(.85,10.22,"DT")
655 ;;=2960318
656 ;;^DD(.85,10.3,0)
657 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
658 ;;^DD(.85,10.3,3)
659 ;;=This is Standard MUMPS code.
660 ;;^DD(.85,10.3,9)
661 ;;=@
662 ;;^DD(.85,10.3,21,0)
663 ;;=^^5^5^2941121^^
664 ;;^DD(.85,10.3,21,1,0)
665 ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
666 ;;^DD(.85,10.3,21,2,0)
667 ;;=this language. The code should set Y to the cardinal equivalent without
668 ;;^DD(.85,10.3,21,3,0)
669 ;;=altering any other variables in the environment. Ex. in English:
670 ;;^DD(.85,10.3,21,4,0)
671 ;;= Y=2000 becomes Y=2,000
672 ;;^DD(.85,10.3,21,5,0)
673 ;;= Y=1234567 becomes Y=1,234,567
674 ;;^DD(.85,10.3,"DT")
675 ;;=2940308
676 ;;^DD(.85,10.4,0)
677 ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
678 ;;^DD(.85,10.4,3)
679 ;;=This is Standard MUMPS code.
680 ;;^DD(.85,10.4,9)
681 ;;=@
682 ;;^DD(.85,10.4,21,0)
683 ;;=^^4^4^2941121^
684 ;;^DD(.85,10.4,21,1,0)
685 ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
686 ;;^DD(.85,10.4,21,2,0)
687 ;;=this language. The code should set Y to the external format without
688 ;;^DD(.85,10.4,21,3,0)
689 ;;=altering any other variables in the environment. In English, changes
690 ;;^DD(.85,10.4,21,4,0)
691 ;;= abCdeF to: ABCDEF
692 ;;^DD(.85,10.4,"DT")
693 ;;=2940308
694 ;;^DD(.85,10.5,0)
695 ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
696 ;;^DD(.85,10.5,3)
697 ;;=This is Standard MUMPS code.
698 ;;^DD(.85,10.5,9)
699 ;;=@
700 ;;^DD(.85,10.5,21,0)
701 ;;=^^4^4^2941121^
702 ;;^DD(.85,10.5,21,1,0)
703 ;;=MUMPS code used to convert text in Y to its lower-case equivalent in
704 ;;^DD(.85,10.5,21,2,0)
705 ;;=this language. The code should set Y to the external format without
706 ;;^DD(.85,10.5,21,3,0)
707 ;;=altering any other variables in the environment. In English, changes:
708 ;;^DD(.85,10.5,21,4,0)
709 ;;= ABcdEFgHij to: abcdefghij
710 ;;^DD(.85,10.5,"DT")
711 ;;=2940308
712 ;;^DD(.85,20.2,0)
713 ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
714 ;;^DD(.85,20.2,3)
715 ;;=This is Standard MUMPS code.
716 ;;^DD(.85,20.2,9)
717 ;;=@
718 ;;^DD(.85,20.2,"DT")
719 ;;=2940714
720 ;;^DD(.8501,0)
721 ;;=ALTERNATE NAME SUB-FIELD^^.01^1
722 ;;^DD(.8501,0,"DT")
723 ;;=3121101
724 ;;^DD(.8501,0,"IX","B",.8501,.01)
725 ;;=
726 ;;^DD(.8501,0,"NM","ALTERNATE NAME")
727 ;;=
728 ;;^DD(.8501,0,"UP")
729 ;;=.85
730 ;;^DD(.8501,.01,0)
731 ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
732 ;;^DD(.8501,.01,1,0)
733 ;;=^.1
734 ;;^DD(.8501,.01,1,1,0)
735 ;;=.8501^B
736 ;;^DD(.8501,.01,1,1,1)
737 ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
738 ;;^DD(.8501,.01,1,1,2)
739 ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
740 ;;^DD(.8501,.01,1,2,0)
741 ;;=.85^F
742 ;;^DD(.8501,.01,1,2,1)
743 ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
744 ;;^DD(.8501,.01,1,2,2)
745 ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
746 ;;^DD(.8501,.01,1,2,3)
747 ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
748 ;;^DD(.8501,.01,1,2,"%D",0)
749 ;;=^^1^1^3121101^
750 ;;^DD(.8501,.01,1,2,"%D",1,0)
751 ;;=Whole file cross-reference for ALTERNATE NAME multiple.
752 ;;^DD(.8501,.01,1,2,"DT")
753 ;;=3121101
754 ;;^DD(.8501,.01,3)
755 ;;=Answer must be 1-60 characters in length.
756 ;;^DD(.8501,.01,21,0)
757 ;;=^^2^2^3121101^^
758 ;;^DD(.8501,.01,21,1,0)
759 ;;=This field contains other synonyms for a language.
760 ;;^DD(.8501,.01,21,2,0)
761 ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
762 ;;^DD(.8501,.01,"DT")
763 ;;=3121101
764 ;;^DD(.8502,0)
765 ;;=DESCRIPTION SUB-FIELD^^.01^1
766 ;;^DD(.8502,0,"DT")
767 ;;=3121031
768 ;;^DD(.8502,0,"NM","DESCRIPTION")
769 ;;=
770 ;;^DD(.8502,0,"UP")
771 ;;=.85
772 ;;^DD(.8502,.01,0)
773 ;;=DESCRIPTION^Wx^^0;1
774 ;;^DD(.8502,.01,3)
775 ;;=Enter an optional language description
776 ;;^DD(.8502,.01,"DT")
777 ;;=3121031
778 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
779 ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
780 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
781 ;;=S ^DI(.85,"B",X,DA)=""
782 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
783 ;;=K ^DI(.85,"B",X,DA)
784 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
785 ;;=K ^DI(.85,"B")
786 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
787 ;;=^.114IA^1^1
788 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
789 ;;=1^F^.85^.01^^1^F
790 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
791 ;;=
792 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
793 ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
794 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
795 ;;=S ^DI(.85,"C",X,DA)=""
796 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
797 ;;=K ^DI(.85,"C",X,DA)
798 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
799 ;;=K ^DI(.85,"C")
800 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
801 ;;=^.114IA^1^1
802 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
803 ;;=1^F^.85^.02^^1^F
804 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
805 ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
806 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
807 ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
808 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
809 ;;=K ^DI(.85,"D",$E(X,1,30),DA)
810 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
811 ;;=K ^DI(.85,"D")
812 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
813 ;;=^.114IA^1^1
814 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
815 ;;=1^F^.85^.03^30^1^F
816 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
817 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
818 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
819 ;;=^^6^6^3121031^
820 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
821 ;;=This will add entries to the D index for the three letter code a la the
822 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
823 ;;=mnemonic style.
824 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
825 ;;=
826 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
827 ;;=If you need re-cross-reference this field, you need to kill of the
828 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
829 ;;=entries in the regular D index, set the D index, and then set this index
830 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
831 ;;=to update the D with the mnemonic xrefs.
832 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
833 ;;=S ^DI(.85,"D",X,DA)=1
834 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
835 ;;=K ^DI(.85,"D",X,DA)
836 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
837 ;;=^.114IA^1^1
838 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
839 ;;=1^F^.85^.05^^1^F
840 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
841 ;;=.85^A^P^1046
842 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
843 ;;=^.312IA^1^1
844 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
845 ;;=.01^.85^1
846 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
847 ;;=.85^B^S^1048
848 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
849 ;;=^.312IA^1^1
850 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
851 ;;=.03^.85^1
852 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
853 ;;=.85^B
854 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
855 ;;=.85^D
856
857DILAI003
858DILAI003 ; ; 02-NOV-2012
859 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
860 Q:'DIFQR(.85) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
861Q Q
862 ;;^UTILITY(U,$J,.85)
863 ;;=^DI(.85,
864 ;;^UTILITY(U,$J,.85,0)
865 ;;=LANGUAGE^.85I^18^533
866 ;;^UTILITY(U,$J,.85,1,0)
867 ;;=ENGLISH^EN^ENG
868 ;;^UTILITY(U,$J,.85,1,1,0)
869 ;;=^.8501^2^2
870 ;;^UTILITY(U,$J,.85,1,1,1,0)
871 ;;=MODERN ENGLISH (1500-)
872 ;;^UTILITY(U,$J,.85,1,1,2,0)
873 ;;=ENGLISH,MODERN (1500-)
874 ;;^UTILITY(U,$J,.85,1,"CRD")
875 ;;=I Y S Y=$FN(Y,",")
876 ;;^UTILITY(U,$J,.85,1,"DD")
877 ;;=S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
878 ;;^UTILITY(U,$J,.85,1,"FMTE")
879 ;;=N RTN,%T S %T="."_$E($P(Y,".",2)_"000000",1,7),%F=$G(%F),RTN="F"_$S(%F<1:1,%F>7:1,1:+%F\1)_"^DILIBF" D @RTN S Y=%R
880 ;;^UTILITY(U,$J,.85,1,"LC")
881 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
882 ;;^UTILITY(U,$J,.85,1,"ORD")
883 ;;=I $G(Y) S Y=Y_$S(Y#10=1&(Y#100-11):"ST",Y#10=2&(Y#100-12):"ND",Y#10=3&(Y#100-13):"RD",1:"TH")
884 ;;^UTILITY(U,$J,.85,1,"TIME")
885 ;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
886 ;;^UTILITY(U,$J,.85,1,"UC")
887 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
888 ;;^UTILITY(U,$J,.85,2,0)
889 ;;=GERMAN^DE^DEU^^GER
890 ;;^UTILITY(U,$J,.85,2,1,0)
891 ;;=^.8501^7^7
892 ;;^UTILITY(U,$J,.85,2,1,1,0)
893 ;;=GERMAN, STANDARD
894 ;;^UTILITY(U,$J,.85,2,1,2,0)
895 ;;=STANDARD GERMAN
896 ;;^UTILITY(U,$J,.85,2,1,3,0)
897 ;;=DEUTSCH
898 ;;^UTILITY(U,$J,.85,2,1,4,0)
899 ;;=DEUTSCH SPRACHE
900 ;;^UTILITY(U,$J,.85,2,1,5,0)
901 ;;=TEDESCO
902 ;;^UTILITY(U,$J,.85,2,1,6,0)
903 ;;=MODERN GERMAN (1500-)
904 ;;^UTILITY(U,$J,.85,2,1,7,0)
905 ;;=GERMAN,MODERN (1500-)
906 ;;^UTILITY(U,$J,.85,2,"CRD")
907 ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
908 ;;^UTILITY(U,$J,.85,2,"DD")
909 ;;=S:Y Y=$S($E(Y,6,7):$E(Y,6,7)_".",1:"")_$S($E(Y,4,5):$E(Y,4,5)_".",1:"")_($E(Y,1,3)+1700)_$P(" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
910 ;;^UTILITY(U,$J,.85,2,"LC")
911 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
912 ;;^UTILITY(U,$J,.85,2,"ORD")
913 ;;=S:$G(Y) Y=Y_"."
914 ;;^UTILITY(U,$J,.85,2,"TIME")
915 ;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
916 ;;^UTILITY(U,$J,.85,2,"UC")
917 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
918 ;;^UTILITY(U,$J,.85,3,0)
919 ;;=SPANISH^ES^SPA
920 ;;^UTILITY(U,$J,.85,3,1,0)
921 ;;=^.8501^5^5
922 ;;^UTILITY(U,$J,.85,3,1,1,0)
923 ;;=CASTILIAN
924 ;;^UTILITY(U,$J,.85,3,1,2,0)
925 ;;=CASTELLANO
926 ;;^UTILITY(U,$J,.85,3,1,3,0)
927 ;;=ESPANOL
928 ;;^UTILITY(U,$J,.85,3,1,4,0)
929 ;;=MODERN SPANISH (1500-)
930 ;;^UTILITY(U,$J,.85,3,1,5,0)
931 ;;=SPANISH, MODERN (1500-)
932 ;;^UTILITY(U,$J,.85,4,0)
933 ;;=FRENCH^FR^FRA^^FRE
934 ;;^UTILITY(U,$J,.85,4,1,0)
935 ;;=^.8501^3^3
936 ;;^UTILITY(U,$J,.85,4,1,1,0)
937 ;;=FRANCAIS
938 ;;^UTILITY(U,$J,.85,4,1,2,0)
939 ;;=MODERN FRENCH (1600-)
940 ;;^UTILITY(U,$J,.85,4,1,3,0)
941 ;;=FRENCH, MODERN (1600-)
942 ;;^UTILITY(U,$J,.85,5,0)
943 ;;=FINNISH^FI^FIN
944 ;;^UTILITY(U,$J,.85,5,1,0)
945 ;;=^.8501^3^3
946 ;;^UTILITY(U,$J,.85,5,1,1,0)
947 ;;=SUOMEA
948 ;;^UTILITY(U,$J,.85,5,1,2,0)
949 ;;=SUOMI
950 ;;^UTILITY(U,$J,.85,5,1,3,0)
951 ;;=SUOMEN KIELI
952 ;;^UTILITY(U,$J,.85,5,"DD")
953 ;;=X:$G(Y) ^DD("DD")
954 ;;^UTILITY(U,$J,.85,5,"ORD")
955 ;;=I $G(Y) S Y=Y_"."
956 ;;^UTILITY(U,$J,.85,6,0)
957 ;;=ITALIAN^IT^ITA
958 ;;^UTILITY(U,$J,.85,6,1,0)
959 ;;=^.8501^2^2
960 ;;^UTILITY(U,$J,.85,6,1,1,0)
961 ;;=ITALIANO
962 ;;^UTILITY(U,$J,.85,6,1,2,0)
963 ;;=LINGUA ITALIANA
964 ;;^UTILITY(U,$J,.85,7,0)
965 ;;=PORTUGUESE^PT^POR
966 ;;^UTILITY(U,$J,.85,7,1,0)
967 ;;=^.8501^4^4
968 ;;^UTILITY(U,$J,.85,7,1,1,0)
969 ;;=PORTUGUES
970 ;;^UTILITY(U,$J,.85,7,1,2,0)
971 ;;=LINGUA PORTUGUESA
972 ;;^UTILITY(U,$J,.85,7,1,3,0)
973 ;;=MODERN PORTUGUESE (1516-)
974 ;;^UTILITY(U,$J,.85,7,1,4,0)
975 ;;=PORTUGUESE, MODERN (1516-)
976 ;;^UTILITY(U,$J,.85,8,0)
977 ;;=ABKHAZ^AB^ABK^^
978 ;;^UTILITY(U,$J,.85,8,1,0)
979 ;;=^.8501^2^2
980 ;;^UTILITY(U,$J,.85,8,1,1,0)
981 ;;=ABKHAZIAN
982 ;;^UTILITY(U,$J,.85,8,1,2,0)
983 ;;=ABXAZO
984 ;;^UTILITY(U,$J,.85,9,0)
985 ;;=ACHINESE^^ACE^^
986 ;;^UTILITY(U,$J,.85,10,0)
987 ;;=ARABIC^AR^ARA
988 ;;^UTILITY(U,$J,.85,10,1,0)
989 ;;=^.8501^2^2
990 ;;^UTILITY(U,$J,.85,10,1,1,0)
991 ;;=AL-'ARABIYYAH
992 ;;^UTILITY(U,$J,.85,10,1,2,0)
993 ;;='ARABI
994 ;;^UTILITY(U,$J,.85,11,0)
995 ;;=RUSSIAN^RU^RUS
996 ;;^UTILITY(U,$J,.85,11,1,0)
997 ;;=^.8501^2^2
998 ;;^UTILITY(U,$J,.85,11,1,1,0)
999 ;;=RUSSKI
1000 ;;^UTILITY(U,$J,.85,11,1,2,0)
1001 ;;=RUSSKIY YAZYK
1002 ;;^UTILITY(U,$J,.85,12,0)
1003 ;;=GREEK^EL^ELL^^GRE
1004 ;;^UTILITY(U,$J,.85,12,1,0)
1005 ;;=^.8501^9^9
1006 ;;^UTILITY(U,$J,.85,12,1,1,0)
1007 ;;=ELLINIKA
1008 ;;^UTILITY(U,$J,.85,12,1,2,0)
1009 ;;=ELLINIKI GLOSSA
1010 ;;^UTILITY(U,$J,.85,12,1,3,0)
1011 ;;=GRAECAE
1012 ;;^UTILITY(U,$J,.85,12,1,4,0)
1013 ;;=GREC
1014 ;;^UTILITY(U,$J,.85,12,1,5,0)
1015 ;;=GRECO
1016 ;;^UTILITY(U,$J,.85,12,1,6,0)
1017 ;;=NEO-HELLENIC
1018 ;;^UTILITY(U,$J,.85,12,1,7,0)
1019 ;;=ROMAIC
1020 ;;^UTILITY(U,$J,.85,12,1,8,0)
1021 ;;=MODERN GREEK (1453-)
1022 ;;^UTILITY(U,$J,.85,12,1,9,0)
1023 ;;=GREEK, MODERN (1453-)
1024 ;;^UTILITY(U,$J,.85,13,0)
1025 ;;=ACOLI^^ACH^^
1026 ;;^UTILITY(U,$J,.85,14,0)
1027 ;;=ADANGME^^ADA^^
1028 ;;^UTILITY(U,$J,.85,15,0)
1029 ;;=ADYGHE^^ADY^^
1030 ;;^UTILITY(U,$J,.85,15,1,0)
1031 ;;=^.8501^1^1
1032 ;;^UTILITY(U,$J,.85,15,1,1,0)
1033 ;;=ADYGEI
1034 ;;^UTILITY(U,$J,.85,16,0)
1035 ;;=AFAR^AA^AAR^^
1036 ;;^UTILITY(U,$J,.85,16,1,0)
1037 ;;=^.8501^4^4
1038 ;;^UTILITY(U,$J,.85,16,1,1,0)
1039 ;;=QAFAR AF
1040 ;;^UTILITY(U,$J,.85,16,1,2,0)
1041 ;;='AFAR AF
1042 ;;^UTILITY(U,$J,.85,16,1,3,0)
1043 ;;=ADAL
1044 ;;^UTILITY(U,$J,.85,16,1,4,0)
1045 ;;=AFARAF
1046 ;;^UTILITY(U,$J,.85,17,0)
1047 ;;=AFRIHILI^^AFH^^
1048 ;;^UTILITY(U,$J,.85,18,0)
1049 ;;=HEBREW^HE^HEB
1050 ;;^UTILITY(U,$J,.85,18,1,0)
1051 ;;=^.8501^3^3
1052 ;;^UTILITY(U,$J,.85,18,1,1,0)
1053 ;;=IVRIT
1054 ;;^UTILITY(U,$J,.85,18,1,2,0)
1055 ;;=MODERN HEBREW (1881-)
1056 ;;^UTILITY(U,$J,.85,18,1,3,0)
1057 ;;=HEBREW, MODERN (1881-)
1058 ;;^UTILITY(U,$J,.85,19,0)
1059 ;;=AFRIKAANS^AF^AFR^^
1060 ;;^UTILITY(U,$J,.85,20,0)
1061 ;;=AINU^^AIN^^
1062 ;;^UTILITY(U,$J,.85,21,0)
1063 ;;=AKAN^AK^AKA^^
1064 ;;^UTILITY(U,$J,.85,22,0)
1065 ;;=AKKADIAN^^AKK^^
1066 ;;^UTILITY(U,$J,.85,23,0)
1067 ;;=ALBANIAN^SQ^SQI^^ALB
1068 ;;^UTILITY(U,$J,.85,23,1,0)
1069 ;;=^.8501^2^2
1070 ;;^UTILITY(U,$J,.85,23,1,1,0)
1071 ;;=SHQIP
1072 ;;^UTILITY(U,$J,.85,23,1,2,0)
1073 ;;=GJUHA SHQIPE
1074 ;;^UTILITY(U,$J,.85,24,0)
1075 ;;=ALEUT^^ALE^^
1076 ;;^UTILITY(U,$J,.85,25,0)
1077 ;;=ALTAI, SOUTHERN^^ALT^^
1078 ;;^UTILITY(U,$J,.85,25,1,0)
1079 ;;=^.8501^1^1
1080 ;;^UTILITY(U,$J,.85,25,1,1,0)
1081 ;;=SOUTHERN ALTAI
1082 ;;^UTILITY(U,$J,.85,26,0)
1083 ;;=AMHARIC^AM^AMH^^
1084 ;;^UTILITY(U,$J,.85,26,1,0)
1085 ;;=^.8501^4^4
1086 ;;^UTILITY(U,$J,.85,26,1,1,0)
1087 ;;=ABYSSINIAN
1088 ;;^UTILITY(U,$J,.85,26,1,2,0)
1089 ;;=AMARIGNA
1090 ;;^UTILITY(U,$J,.85,26,1,3,0)
1091 ;;=AMARINYA
1092 ;;^UTILITY(U,$J,.85,26,1,4,0)
1093 ;;=ETHIOPIAN
1094 ;;^UTILITY(U,$J,.85,27,0)
1095 ;;=ANCIENT EGYPTIAN^^EGY^^
1096 ;;^UTILITY(U,$J,.85,27,1,0)
1097 ;;=^.8501^1^1
1098 ;;^UTILITY(U,$J,.85,27,1,1,0)
1099 ;;=EGYPTIAN, ANCIENT
1100 ;;^UTILITY(U,$J,.85,28,0)
1101 ;;=ANCIENT GREEK^^GRC^^
1102 ;;^UTILITY(U,$J,.85,28,1,0)
1103 ;;=^.8501^1^1
1104 ;;^UTILITY(U,$J,.85,28,1,1,0)
1105 ;;=GREEK, ANCIENT (TO 1453)
1106 ;;^UTILITY(U,$J,.85,29,0)
1107 ;;=ANGIKA^^ANP^^
1108 ;;^UTILITY(U,$J,.85,30,0)
1109 ;;=ARAGONESE^AN^ARG^^
1110 ;;^UTILITY(U,$J,.85,30,1,0)
1111 ;;=^.8501^6^6
1112 ;;^UTILITY(U,$J,.85,30,1,1,0)
1113 ;;=ALTOARAGONES
1114 ;;^UTILITY(U,$J,.85,30,1,2,0)
1115 ;;=ARAGOIERAZ
1116 ;;^UTILITY(U,$J,.85,30,1,3,0)
1117 ;;=ARAGONES
1118 ;;^UTILITY(U,$J,.85,30,1,4,0)
1119 ;;=FABLA ARAGONESA
1120 ;;^UTILITY(U,$J,.85,30,1,5,0)
1121 ;;=HIGH ARAGONESE
1122 ;;^UTILITY(U,$J,.85,30,1,6,0)
1123 ;;=PATUES
1124 ;;^UTILITY(U,$J,.85,31,0)
1125 ;;=ARAPAHO^^ARP^^
1126 ;;^UTILITY(U,$J,.85,32,0)
1127 ;;=ARAWAK^^ARW^^
1128 ;;^UTILITY(U,$J,.85,33,0)
1129 ;;=ARMENIAN^HY^HYE^^ARM
1130 ;;^UTILITY(U,$J,.85,33,1,0)
1131 ;;=^.8501^7^7
1132 ;;^UTILITY(U,$J,.85,33,1,1,0)
1133 ;;=HAYEREN
1134 ;;^UTILITY(U,$J,.85,33,1,2,0)
1135 ;;=ARMJANSKI YAZYK
1136 ;;^UTILITY(U,$J,.85,33,1,3,0)
1137 ;;=ENA
1138 ;;^UTILITY(U,$J,.85,33,1,4,0)
1139 ;;=ERMENI DILI
1140 ;;^UTILITY(U,$J,.85,33,1,5,0)
1141 ;;=ERMENICE
1142 ;;^UTILITY(U,$J,.85,33,1,6,0)
1143 ;;=HAIEREN
1144 ;;^UTILITY(U,$J,.85,33,1,7,0)
1145 ;;=SOMKHURI
1146 ;;^UTILITY(U,$J,.85,34,0)
1147 ;;=AROMANIAN^^RUP^^
1148 ;;^UTILITY(U,$J,.85,34,1,0)
1149 ;;=^.8501^2^2
1150 ;;^UTILITY(U,$J,.85,34,1,1,0)
1151 ;;=ARUMANIAN
1152 ;;^UTILITY(U,$J,.85,34,1,2,0)
1153 ;;=MACEDO-ROMANIAN
1154 ;;^UTILITY(U,$J,.85,35,0)
1155 ;;=ASSAMESE^AS^ASM^^
1156 ;;^UTILITY(U,$J,.85,35,1,0)
1157 ;;=^.8501^3^3
1158 ;;^UTILITY(U,$J,.85,35,1,1,0)
1159 ;;=ASAMBE
1160 ;;^UTILITY(U,$J,.85,35,1,2,0)
1161 ;;=ASAMI
1162 ;;^UTILITY(U,$J,.85,35,1,3,0)
1163 ;;=ASAMIYA
1164 ;;^UTILITY(U,$J,.85,36,0)
1165 ;;=ASTURIAN^^AST^^
1166 ;;^UTILITY(U,$J,.85,36,1,0)
1167 ;;=^.8501^3^3
1168 ;;^UTILITY(U,$J,.85,36,1,1,0)
1169 ;;=BABLE
1170 ;;^UTILITY(U,$J,.85,36,1,2,0)
1171 ;;=LEONESE
1172 ;;^UTILITY(U,$J,.85,36,1,3,0)
1173 ;;=ASTURLEONESE
1174 ;;^UTILITY(U,$J,.85,37,0)
1175 ;;=AVARIC^AV^AVA^^
1176 ;;^UTILITY(U,$J,.85,38,0)
1177 ;;=AVESTAN^AE^AVE^^
1178 ;;^UTILITY(U,$J,.85,39,0)
1179 ;;=AWADHI^^AWA^^
1180 ;;^UTILITY(U,$J,.85,40,0)
1181 ;;=AYMARA^AY^AYM^^
1182 ;;^UTILITY(U,$J,.85,41,0)
1183 ;;=AZERBAIJANI^AZ^AZE^^
1184 ;;^UTILITY(U,$J,.85,42,0)
1185 ;;=BALINESE^^BAN^^
1186 ;;^UTILITY(U,$J,.85,43,0)
1187 ;;=BALUCHI^^BAL^^
1188 ;;^UTILITY(U,$J,.85,44,0)
1189 ;;=BAMBARA^BM^BAM^^
1190 ;;^UTILITY(U,$J,.85,45,0)
1191 ;;=BASA^^BAS^^
1192 ;;^UTILITY(U,$J,.85,46,0)
1193 ;;=BASHKIR^BA^BAK^^
1194 ;;^UTILITY(U,$J,.85,47,0)
1195 ;;=BASQUE^EU^EUS^^BAQ
1196 ;;^UTILITY(U,$J,.85,47,1,0)
1197 ;;=^.8501^1^1
1198 ;;^UTILITY(U,$J,.85,47,1,1,0)
1199 ;;=EUSKARA
1200 ;;^UTILITY(U,$J,.85,48,0)
1201 ;;=BEJA^^BEJ^^
1202 ;;^UTILITY(U,$J,.85,48,1,0)
1203 ;;=^.8501^1^1
1204 ;;^UTILITY(U,$J,.85,48,1,1,0)
1205 ;;=BEDAWIYET
1206 ;;^UTILITY(U,$J,.85,49,0)
1207 ;;=BELARUSIAN^BE^BEL^^
1208 ;;^UTILITY(U,$J,.85,50,0)
1209 ;;=BEMBA^^BEM^^
1210 ;;^UTILITY(U,$J,.85,51,0)
1211 ;;=BENGALI^BN^BEN^^
1212 ;;^UTILITY(U,$J,.85,52,0)
1213 ;;=BHOJPURI^^BHO^^
1214 ;;^UTILITY(U,$J,.85,53,0)
1215 ;;=BIKOL^^BIK^^
1216 ;;^UTILITY(U,$J,.85,54,0)
1217 ;;=BILIN^^BYN^^
1218 ;;^UTILITY(U,$J,.85,54,1,0)
1219 ;;=^.8501^1^1
1220 ;;^UTILITY(U,$J,.85,54,1,1,0)
1221 ;;=BLIN
1222 ;;^UTILITY(U,$J,.85,55,0)
1223 ;;=BINI^^BIN^^
1224 ;;^UTILITY(U,$J,.85,55,1,0)
1225 ;;=^.8501^1^1
1226 ;;^UTILITY(U,$J,.85,55,1,1,0)
1227 ;;=EDO
1228 ;;^UTILITY(U,$J,.85,56,0)
1229 ;;=BISLAMA^BI^BIS^^
1230 ;;^UTILITY(U,$J,.85,57,0)
1231 ;;=BLISSYMBOLS^^ZBL^^
1232 ;;^UTILITY(U,$J,.85,57,1,0)
1233 ;;=^.8501^2^2
1234 ;;^UTILITY(U,$J,.85,57,1,1,0)
1235 ;;=BLISSYMBOLICS
1236 ;;^UTILITY(U,$J,.85,57,1,2,0)
1237 ;;=BLISS
1238 ;;^UTILITY(U,$J,.85,58,0)
1239 ;;=BOSNIAN^BS^BOS^^
1240 ;;^UTILITY(U,$J,.85,59,0)
1241 ;;=BRAJ^^BRA^^
1242 ;;^UTILITY(U,$J,.85,60,0)
1243 ;;=BRETON^BR^BRE^^
1244 ;;^UTILITY(U,$J,.85,61,0)
1245 ;;=BUGINESE^^BUG^^
1246 ;;^UTILITY(U,$J,.85,62,0)
1247 ;;=BULGARIAN^BG^BUL^^
1248 ;;^UTILITY(U,$J,.85,63,0)
1249 ;;=BURIAT^^BUA^^
1250 ;;^UTILITY(U,$J,.85,64,0)
1251 ;;=BURMESE^MY^MYA^^BUR
1252 ;;^UTILITY(U,$J,.85,64,1,0)
1253 ;;=^.8501^1^1
1254 ;;^UTILITY(U,$J,.85,64,1,1,0)
1255 ;;=MYANMAR LANGUAGE
1256 ;;^UTILITY(U,$J,.85,65,0)
1257 ;;=CADDO^^CAD^^
1258 ;;^UTILITY(U,$J,.85,66,0)
1259 ;;=CATALAN^CA^CAT^^
1260 ;;^UTILITY(U,$J,.85,66,1,0)
1261 ;;=^.8501^1^1
1262 ;;^UTILITY(U,$J,.85,66,1,1,0)
1263 ;;=VALENCIAN
1264 ;;^UTILITY(U,$J,.85,67,0)
1265 ;;=CEBUANO^^CEB^^
1266 ;;^UTILITY(U,$J,.85,68,0)
1267 ;;=CHAGATAI^^CHG^^
1268 ;;^UTILITY(U,$J,.85,69,0)
1269 ;;=CHAMORRO^CH^CHA^^
1270 ;;^UTILITY(U,$J,.85,70,0)
1271 ;;=CHECHEN^CE^CHE^^
1272 ;;^UTILITY(U,$J,.85,71,0)
1273 ;;=CHEROKEE^^CHR^^
1274 ;;^UTILITY(U,$J,.85,72,0)
1275 ;;=CHEYENNE^^CHY^^
1276 ;;^UTILITY(U,$J,.85,73,0)
1277 ;;=CHIBCHA^^CHB^^
1278 ;;^UTILITY(U,$J,.85,74,0)
1279 ;;=CHICHEWA^NY^NYA^^
1280 ;;^UTILITY(U,$J,.85,74,1,0)
1281 ;;=^.8501^2^2
1282 ;;^UTILITY(U,$J,.85,74,1,1,0)
1283 ;;=CHEWA
1284 ;;^UTILITY(U,$J,.85,74,1,2,0)
1285 ;;=NYANJA
1286 ;;^UTILITY(U,$J,.85,75,0)
1287 ;;=CHINESE^ZH^ZHO^^CHI
1288 ;;^UTILITY(U,$J,.85,76,0)
1289 ;;=CHINOOK JARGON^^CHN^^
1290 ;;^UTILITY(U,$J,.85,77,0)
1291 ;;=CHIPEWYAN^^CHP^^
1292 ;;^UTILITY(U,$J,.85,77,1,0)
1293 ;;=^.8501^1^1
1294 ;;^UTILITY(U,$J,.85,77,1,1,0)
1295 ;;=DENE SULINE
1296 ;;^UTILITY(U,$J,.85,78,0)
1297 ;;=CHOCTAW^^CHO^^
1298 ;;^UTILITY(U,$J,.85,79,0)
1299 ;;=CHUUKESE^^CHK^^
1300 ;;^UTILITY(U,$J,.85,80,0)
1301 ;;=CHUVASH^CV^CHV^^
1302 ;;^UTILITY(U,$J,.85,81,0)
1303 ;;=CLASSICAL NEWARI^^NWC^^
1304 ;;^UTILITY(U,$J,.85,81,1,0)
1305 ;;=^.8501^2^2
1306 ;;^UTILITY(U,$J,.85,81,1,1,0)
1307 ;;=OLD NEWARI
1308 ;;^UTILITY(U,$J,.85,81,1,2,0)
1309 ;;=CLASSICAL NEPAL BHASA
1310 ;;^UTILITY(U,$J,.85,82,0)
1311 ;;=CLASSICAL SYRIAC^^SYC^^
1312 ;;^UTILITY(U,$J,.85,83,0)
1313 ;;=COPTIC^^COP^^
1314 ;;^UTILITY(U,$J,.85,84,0)
1315 ;;=CORNISH^KW^COR^^
1316 ;;^UTILITY(U,$J,.85,85,0)
1317 ;;=CORSICAN^CO^COS^^
1318 ;;^UTILITY(U,$J,.85,86,0)
1319 ;;=CREE^CR^CRE^^
1320 ;;^UTILITY(U,$J,.85,87,0)
1321 ;;=CREEK^^MUS^^
1322 ;;^UTILITY(U,$J,.85,88,0)
1323 ;;=CREOLES AND PIDGINS^^CRP^^
1324 ;;^UTILITY(U,$J,.85,89,0)
1325 ;;=CREOLES AND PIDGINS, ENGLISH-BASED^^CPE^^
1326 ;;^UTILITY(U,$J,.85,90,0)
1327 ;;=CREOLES AND PIDGINS, FRENCH-BASED^^CPF^^
1328 ;;^UTILITY(U,$J,.85,91,0)
1329 ;;=CREOLES AND PIDGINS, PORTUGUESE-BASED^^CPP^^
1330 ;;^UTILITY(U,$J,.85,92,0)
1331 ;;=CRIMEAN TATAR^^CRH^^
1332 ;;^UTILITY(U,$J,.85,92,1,0)
1333 ;;=^.8501^1^1
1334 ;;^UTILITY(U,$J,.85,92,1,1,0)
1335 ;;=CRIMEAN TURKISH
1336 ;;^UTILITY(U,$J,.85,93,0)
1337 ;;=CROATIAN^HR^HRV^^
1338 ;;^UTILITY(U,$J,.85,94,0)
1339 ;;=CZECH^CS^CES^^CZE
1340 ;;^UTILITY(U,$J,.85,95,0)
1341 ;;=DAKOTA^^DAK^^
1342 ;;^UTILITY(U,$J,.85,96,0)
1343 ;;=DANISH^DA^DAN^^
1344 ;;^UTILITY(U,$J,.85,97,0)
1345 ;;=DARGWA^^DAR^^
1346 ;;^UTILITY(U,$J,.85,98,0)
1347 ;;=DELAWARE^^DEL^^
1348 ;;^UTILITY(U,$J,.85,99,0)
1349 ;;=DINKA^^DIN^^
1350 ;;^UTILITY(U,$J,.85,100,0)
1351 ;;=DIVEHI^DV^DIV^^
1352 ;;^UTILITY(U,$J,.85,100,1,0)
1353 ;;=^.8501^2^2
1354 ;;^UTILITY(U,$J,.85,100,1,1,0)
1355 ;;=DHIVEHI
1356 ;;^UTILITY(U,$J,.85,100,1,2,0)
1357 ;;=MALDIVIAN
1358 ;;^UTILITY(U,$J,.85,101,0)
1359 ;;=DOGRI^^DOI^^
1360 ;;^UTILITY(U,$J,.85,102,0)
1361 ;;=DOGRIB^^DGR^^
1362 ;;^UTILITY(U,$J,.85,103,0)
1363 ;;=DUALA^^DUA^^
1364 ;;^UTILITY(U,$J,.85,104,0)
1365 ;;=DUTCH^NL^NLD^^DUT
1366 ;;^UTILITY(U,$J,.85,104,1,0)
1367 ;;=^.8501^1^1
1368 ;;^UTILITY(U,$J,.85,104,1,1,0)
1369 ;;=FLEMISH
1370 ;;^UTILITY(U,$J,.85,105,0)
1371 ;;=DYULA^^DYU^^
1372 ;;^UTILITY(U,$J,.85,106,0)
1373 ;;=DZONGKHA^DZ^DZO^^
1374 ;;^UTILITY(U,$J,.85,107,0)
1375 ;;=EFIK^^EFI^^
1376 ;;^UTILITY(U,$J,.85,108,0)
1377 ;;=EKAJUK^^EKA^^
1378 ;;^UTILITY(U,$J,.85,109,0)
1379 ;;=ELAMITE^^ELX^^
1380 ;;^UTILITY(U,$J,.85,110,0)
1381 ;;=ERZYA^^MYV^^
1382 ;;^UTILITY(U,$J,.85,111,0)
1383 ;;=ESPERANTO^EO^EPO^^
1384 ;;^UTILITY(U,$J,.85,112,0)
1385 ;;=ESTONIAN^ET^EST^^
1386 ;;^UTILITY(U,$J,.85,113,0)
1387 ;;=EWE^EE^EWE^^
1388 ;;^UTILITY(U,$J,.85,114,0)
1389 ;;=EWONDO^^EWO^^
1390 ;;^UTILITY(U,$J,.85,115,0)
1391 ;;=FANG^^FAN^^
1392 ;;^UTILITY(U,$J,.85,116,0)
1393 ;;=FANTI^^FAT^^
1394 ;;^UTILITY(U,$J,.85,117,0)
1395 ;;=FAROESE^FO^FAO^^
1396 ;;^UTILITY(U,$J,.85,118,0)
1397 ;;=FIJIAN^FJ^FIJ^^
1398 ;;^UTILITY(U,$J,.85,119,0)
1399 ;;=FILIPINO^^FIL^^
1400 ;;^UTILITY(U,$J,.85,119,1,0)
1401 ;;=^.8501^1^1
1402 ;;^UTILITY(U,$J,.85,119,1,1,0)
1403 ;;=PILIPINO
1404 ;;^UTILITY(U,$J,.85,120,0)
1405 ;;=FON^^FON^^
1406 ;;^UTILITY(U,$J,.85,121,0)
1407 ;;=FRISIAN, EASTERN^^FRS^^
1408 ;;^UTILITY(U,$J,.85,121,1,0)
1409 ;;=^.8501^1^1
1410 ;;^UTILITY(U,$J,.85,121,1,1,0)
1411 ;;=EASTERN FRISIAN
1412 ;;^UTILITY(U,$J,.85,122,0)
1413 ;;=FRISIAN, NORTHERN^^FRR^^
1414 ;;^UTILITY(U,$J,.85,122,1,0)
1415 ;;=^.8501^1^1
1416 ;;^UTILITY(U,$J,.85,122,1,1,0)
1417 ;;=NORTHERN FRISIAN
1418 ;;^UTILITY(U,$J,.85,123,0)
1419 ;;=FRISIAN, WEST^FY^FRY^^
1420 ;;^UTILITY(U,$J,.85,123,1,0)
1421 ;;=^.8501^2^2
1422 ;;^UTILITY(U,$J,.85,123,1,1,0)
1423 ;;=WEST FRISIAN
1424 ;;^UTILITY(U,$J,.85,123,1,2,0)
1425 ;;=WESTERN FRISIAN
1426 ;;^UTILITY(U,$J,.85,124,0)
1427 ;;=FRIULIAN^^FUR^^
1428 ;;^UTILITY(U,$J,.85,125,0)
1429 ;;=FULA^FF^FUL^^
1430 ;;^UTILITY(U,$J,.85,125,1,0)
1431 ;;=^.8501^4^4
1432 ;;^UTILITY(U,$J,.85,125,1,1,0)
1433 ;;=FULANI
1434 ;;^UTILITY(U,$J,.85,125,1,2,0)
1435 ;;=FULAH
1436 ;;^UTILITY(U,$J,.85,125,1,3,0)
1437 ;;=PULAAR
1438 ;;^UTILITY(U,$J,.85,125,1,4,0)
1439 ;;=PULAR
1440 ;;^UTILITY(U,$J,.85,126,0)
1441 ;;=GA^^GAA^^
1442 ;;^UTILITY(U,$J,.85,127,0)
1443 ;;=GAELIC^GD^GLA^^
1444 ;;^UTILITY(U,$J,.85,127,1,0)
1445 ;;=^.8501^2^2
1446 ;;^UTILITY(U,$J,.85,127,1,1,0)
1447 ;;=SCOTS GAELIC
1448 ;;^UTILITY(U,$J,.85,127,1,2,0)
1449 ;;=SCOTTISH GAELIC
1450 ;;^UTILITY(U,$J,.85,128,0)
1451 ;;=GALIBI CARIB^^CAR^^
1452 ;;^UTILITY(U,$J,.85,129,0)
1453 ;;=GALICIAN^GL^GLG^^
1454 ;;^UTILITY(U,$J,.85,130,0)
1455 ;;=GANDA^LG^LUG^^
1456 ;;^UTILITY(U,$J,.85,131,0)
1457 ;;=GAYO^^GAY^^
1458
1459DILAI004
1460DILAI004 ; ; 02-NOV-2012
1461 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
1462 Q:'DIFQR(.85) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
1463Q Q
1464 ;;^UTILITY(U,$J,.85,132,0)
1465 ;;=GBAYA^^GBA^^
1466 ;;^UTILITY(U,$J,.85,133,0)
1467 ;;=GEEZ^^GEZ^^
1468 ;;^UTILITY(U,$J,.85,134,0)
1469 ;;=GEORGIAN^KA^KAT^^GEO
1470 ;;^UTILITY(U,$J,.85,135,0)
1471 ;;=GILBERTESE^^GIL^^
1472 ;;^UTILITY(U,$J,.85,136,0)
1473 ;;=GONDI^^GON^^
1474 ;;^UTILITY(U,$J,.85,137,0)
1475 ;;=GORONTALO^^GOR^^
1476 ;;^UTILITY(U,$J,.85,138,0)
1477 ;;=GOTHIC^^GOT^^
1478 ;;^UTILITY(U,$J,.85,139,0)
1479 ;;=GREBO^^GRB^^
1480 ;;^UTILITY(U,$J,.85,140,0)
1481 ;;=GUARANI^GN^GRN^^
1482 ;;^UTILITY(U,$J,.85,141,0)
1483 ;;=GUJARATI^GU^GUJ^^
1484 ;;^UTILITY(U,$J,.85,142,0)
1485 ;;=GWICH'IN^^GWI^^
1486 ;;^UTILITY(U,$J,.85,143,0)
1487 ;;=HAIDA^^HAI^^
1488 ;;^UTILITY(U,$J,.85,144,0)
1489 ;;=HAITIAN CREOLE^HT^HAT^^
1490 ;;^UTILITY(U,$J,.85,145,0)
1491 ;;=HAUSA^HA^HAU^^
1492 ;;^UTILITY(U,$J,.85,146,0)
1493 ;;=HAWAIIAN^^HAW^^
1494 ;;^UTILITY(U,$J,.85,147,0)
1495 ;;=HERERO^HZ^HER^^
1496 ;;^UTILITY(U,$J,.85,148,0)
1497 ;;=HILIGAYNON^^HIL^^
1498 ;;^UTILITY(U,$J,.85,149,0)
1499 ;;=HINDI^HI^HIN^^
1500 ;;^UTILITY(U,$J,.85,150,0)
1501 ;;=HIRI MOTU^HO^HMO^^
1502 ;;^UTILITY(U,$J,.85,151,0)
1503 ;;=HITTITE^^HIT^^
1504 ;;^UTILITY(U,$J,.85,152,0)
1505 ;;=HMONG^^HMN^^
1506 ;;^UTILITY(U,$J,.85,152,1,0)
1507 ;;=^.8501^1^1
1508 ;;^UTILITY(U,$J,.85,152,1,1,0)
1509 ;;=MONG
1510 ;;^UTILITY(U,$J,.85,153,0)
1511 ;;=HUNGARIAN^HU^HUN^^
1512 ;;^UTILITY(U,$J,.85,154,0)
1513 ;;=HUPA^^HUP^^
1514 ;;^UTILITY(U,$J,.85,155,0)
1515 ;;=IBAN^^IBA^^
1516 ;;^UTILITY(U,$J,.85,156,0)
1517 ;;=ICELANDIC^IS^ISL^^ICE
1518 ;;^UTILITY(U,$J,.85,157,0)
1519 ;;=IDO^IO^IDO^^
1520 ;;^UTILITY(U,$J,.85,158,0)
1521 ;;=IGBO^IG^IBO^^
1522 ;;^UTILITY(U,$J,.85,159,0)
1523 ;;=ILOKO^^ILO^^
1524 ;;^UTILITY(U,$J,.85,160,0)
1525 ;;=INARI SAMI^^SMN^^
1526 ;;^UTILITY(U,$J,.85,161,0)
1527 ;;=INDONESIAN^ID^IND^^
1528 ;;^UTILITY(U,$J,.85,162,0)
1529 ;;=INGUSH^^INH^^
1530 ;;^UTILITY(U,$J,.85,163,0)
1531 ;;=INTERLINGUA^IA^INA^^
1532 ;;^UTILITY(U,$J,.85,164,0)
1533 ;;=INTERLINGUE^IE^ILE^^
1534 ;;^UTILITY(U,$J,.85,164,1,0)
1535 ;;=^.8501^1^1
1536 ;;^UTILITY(U,$J,.85,164,1,1,0)
1537 ;;=OCCIDENTAL
1538 ;;^UTILITY(U,$J,.85,165,0)
1539 ;;=INUKTITUT^IU^IKU^^
1540 ;;^UTILITY(U,$J,.85,166,0)
1541 ;;=INUPIAQ^IK^IPK^^
1542 ;;^UTILITY(U,$J,.85,167,0)
1543 ;;=IRISH^GA^GLE^^
1544 ;;^UTILITY(U,$J,.85,168,0)
1545 ;;=JAPANESE^JA^JPN^^
1546 ;;^UTILITY(U,$J,.85,169,0)
1547 ;;=JAVANESE^JV^JAV^^
1548 ;;^UTILITY(U,$J,.85,170,0)
1549 ;;=JUDEO-ARABIC^^JRB^^
1550 ;;^UTILITY(U,$J,.85,171,0)
1551 ;;=JUDEO-PERSIAN^^JPR^^
1552 ;;^UTILITY(U,$J,.85,172,0)
1553 ;;=KABARDIAN^^KBD^^
1554 ;;^UTILITY(U,$J,.85,173,0)
1555 ;;=KABYLE^^KAB^^
1556 ;;^UTILITY(U,$J,.85,174,0)
1557 ;;=KACHIN^^KAC^^
1558 ;;^UTILITY(U,$J,.85,174,1,0)
1559 ;;=^.8501^1^1
1560 ;;^UTILITY(U,$J,.85,174,1,1,0)
1561 ;;=JINGPHO
1562 ;;^UTILITY(U,$J,.85,175,0)
1563 ;;=KALAALLISUT^KL^KAL^^
1564 ;;^UTILITY(U,$J,.85,175,1,0)
1565 ;;=^.8501^1^1
1566 ;;^UTILITY(U,$J,.85,175,1,1,0)
1567 ;;=GREENLANDIC
1568 ;;^UTILITY(U,$J,.85,176,0)
1569 ;;=KALMYK^^XAL^^
1570 ;;^UTILITY(U,$J,.85,176,1,0)
1571 ;;=^.8501^1^1
1572 ;;^UTILITY(U,$J,.85,176,1,1,0)
1573 ;;=OIRAT
1574 ;;^UTILITY(U,$J,.85,177,0)
1575 ;;=KAMBA^^KAM^^
1576 ;;^UTILITY(U,$J,.85,178,0)
1577 ;;=KANNADA^KN^KAN^^
1578 ;;^UTILITY(U,$J,.85,179,0)
1579 ;;=KANURI^KR^KAU^^
1580 ;;^UTILITY(U,$J,.85,180,0)
1581 ;;=KARA-KALPAK^^KAA^^
1582 ;;^UTILITY(U,$J,.85,181,0)
1583 ;;=KARACHAY-BALKAR^^KRC^^
1584 ;;^UTILITY(U,$J,.85,182,0)
1585 ;;=KARELIAN^^KRL^^
1586 ;;^UTILITY(U,$J,.85,183,0)
1587 ;;=KASHMIRI^KS^KAS^^
1588 ;;^UTILITY(U,$J,.85,184,0)
1589 ;;=KASHUBIAN^^CSB^^
1590 ;;^UTILITY(U,$J,.85,185,0)
1591 ;;=KAWI^^KAW^^
1592 ;;^UTILITY(U,$J,.85,186,0)
1593 ;;=KAZAKH^KK^KAZ^^
1594 ;;^UTILITY(U,$J,.85,187,0)
1595 ;;=KHASI^^KHA^^
1596 ;;^UTILITY(U,$J,.85,188,0)
1597 ;;=KHMER^KM^KHM^^
1598 ;;^UTILITY(U,$J,.85,188,1,0)
1599 ;;=^.8501^1^1
1600 ;;^UTILITY(U,$J,.85,188,1,1,0)
1601 ;;=CENTRAL KHMER
1602 ;;^UTILITY(U,$J,.85,189,0)
1603 ;;=KHOTANESE^^KHO^^
1604 ;;^UTILITY(U,$J,.85,189,1,0)
1605 ;;=^.8501^1^1
1606 ;;^UTILITY(U,$J,.85,189,1,1,0)
1607 ;;=SAKAN
1608 ;;^UTILITY(U,$J,.85,190,0)
1609 ;;=KIKUYU^KI^KIK^^
1610 ;;^UTILITY(U,$J,.85,190,1,0)
1611 ;;=^.8501^1^1
1612 ;;^UTILITY(U,$J,.85,190,1,1,0)
1613 ;;=GIKUYU
1614 ;;^UTILITY(U,$J,.85,191,0)
1615 ;;=KIMBUNDU^^KMB^^
1616 ;;^UTILITY(U,$J,.85,192,0)
1617 ;;=KINYARWANDA^RW^KIN^^
1618 ;;^UTILITY(U,$J,.85,193,0)
1619 ;;=KIRGHIZ^KY^KIR^^
1620 ;;^UTILITY(U,$J,.85,193,1,0)
1621 ;;=^.8501^1^1
1622 ;;^UTILITY(U,$J,.85,193,1,1,0)
1623 ;;=KYRGYZ
1624 ;;^UTILITY(U,$J,.85,194,0)
1625 ;;=KLINGON^^TLH^^
1626 ;;^UTILITY(U,$J,.85,194,1,0)
1627 ;;=^.8501^1^1
1628 ;;^UTILITY(U,$J,.85,194,1,1,0)
1629 ;;=TLHINGAN-HOL
1630 ;;^UTILITY(U,$J,.85,195,0)
1631 ;;=KOMI^KV^KOM^^
1632 ;;^UTILITY(U,$J,.85,196,0)
1633 ;;=KONGO^KG^KON^^
1634 ;;^UTILITY(U,$J,.85,197,0)
1635 ;;=KONKANI^^KOK^^
1636 ;;^UTILITY(U,$J,.85,198,0)
1637 ;;=KOREAN^KO^KOR^^
1638 ;;^UTILITY(U,$J,.85,199,0)
1639 ;;=KOSRAEAN^^KOS^^
1640 ;;^UTILITY(U,$J,.85,200,0)
1641 ;;=KPELLE^^KPE^^
1642 ;;^UTILITY(U,$J,.85,201,0)
1643 ;;=KUANYAMA^KJ^KUA^^
1644 ;;^UTILITY(U,$J,.85,201,1,0)
1645 ;;=^.8501^1^1
1646 ;;^UTILITY(U,$J,.85,201,1,1,0)
1647 ;;=KWANYAMA
1648 ;;^UTILITY(U,$J,.85,202,0)
1649 ;;=KUMYK^^KUM^^
1650 ;;^UTILITY(U,$J,.85,203,0)
1651 ;;=KURDISH^KU^KUR^^
1652 ;;^UTILITY(U,$J,.85,204,0)
1653 ;;=KURUKH^^KRU^^
1654 ;;^UTILITY(U,$J,.85,205,0)
1655 ;;=KUTENAI^^KUT^^
1656 ;;^UTILITY(U,$J,.85,206,0)
1657 ;;=LADINO^^LAD^^
1658 ;;^UTILITY(U,$J,.85,207,0)
1659 ;;=LAHNDA^^LAH^^
1660 ;;^UTILITY(U,$J,.85,208,0)
1661 ;;=LAMBA^^LAM^^
1662 ;;^UTILITY(U,$J,.85,209,0)
1663 ;;=LANGUAGES, AFRO-ASIATIC^^AFA^^
1664 ;;^UTILITY(U,$J,.85,210,0)
1665 ;;=LANGUAGES, ALACALUFAN^^AQA^^
1666 ;;^UTILITY(U,$J,.85,211,0)
1667 ;;=LANGUAGES, ALGIC^^AQL^^
1668 ;;^UTILITY(U,$J,.85,212,0)
1669 ;;=LANGUAGES, ALGONQUIAN^^ALG^^
1670 ;;^UTILITY(U,$J,.85,213,0)
1671 ;;=LANGUAGES, ALTAIC^^TUT^^
1672 ;;^UTILITY(U,$J,.85,214,0)
1673 ;;=LANGUAGES, APACHE^^APA^^
1674 ;;^UTILITY(U,$J,.85,215,0)
1675 ;;=LANGUAGES, ARAUAN^^AUF^^
1676 ;;^UTILITY(U,$J,.85,216,0)
1677 ;;=LANGUAGES, ARAWAKAN^^AWD^^
1678 ;;^UTILITY(U,$J,.85,217,0)
1679 ;;=LANGUAGES, ARMENIAN^^HYX^^
1680 ;;^UTILITY(U,$J,.85,218,0)
1681 ;;=LANGUAGES, ARTIFICIAL^^ART^^
1682 ;;^UTILITY(U,$J,.85,219,0)
1683 ;;=LANGUAGES, ATHAPASCAN^^ATH^^
1684 ;;^UTILITY(U,$J,.85,220,0)
1685 ;;=LANGUAGES, ATLANTIC-CONGO^^ALV^^
1686 ;;^UTILITY(U,$J,.85,221,0)
1687 ;;=LANGUAGES, AUSTRALIAN^^AUS^^
1688 ;;^UTILITY(U,$J,.85,222,0)
1689 ;;=LANGUAGES, AUSTRO-ASIATIC^^AAV^^
1690 ;;^UTILITY(U,$J,.85,223,0)
1691 ;;=LANGUAGES, AUSTRONESIAN^^MAP^^
1692 ;;^UTILITY(U,$J,.85,224,0)
1693 ;;=LANGUAGES, BALTIC^^BAT^^
1694 ;;^UTILITY(U,$J,.85,225,0)
1695 ;;=LANGUAGES, BAMILEKE^^BAI^^
1696 ;;^UTILITY(U,$J,.85,226,0)
1697 ;;=LANGUAGES, BANDA^^BAD^^
1698 ;;^UTILITY(U,$J,.85,227,0)
1699 ;;=LANGUAGES, BANTU^^BNT^^
1700 ;;^UTILITY(U,$J,.85,228,0)
1701 ;;=LANGUAGES, BASQUE^^EUQ^^
1702 ;;^UTILITY(U,$J,.85,229,0)
1703 ;;=LANGUAGES, BATAK^^BTK^^
1704 ;;^UTILITY(U,$J,.85,230,0)
1705 ;;=LANGUAGES, BERBER^^BER^^
1706 ;;^UTILITY(U,$J,.85,231,0)
1707 ;;=LANGUAGES, BIHARI^BH^BIH^^
1708 ;;^UTILITY(U,$J,.85,232,0)
1709 ;;=LANGUAGES, CADDOAN^^CDD^^
1710 ;;^UTILITY(U,$J,.85,233,0)
1711 ;;=LANGUAGES, CAUCASIAN^^CAU^^
1712 ;;^UTILITY(U,$J,.85,234,0)
1713 ;;=LANGUAGES, CELTIC^^CEL^^
1714 ;;^UTILITY(U,$J,.85,235,0)
1715 ;;=LANGUAGES, CENTRAL AMERICAN INDIAN^^CAI^^
1716 ;;^UTILITY(U,$J,.85,236,0)
1717 ;;=LANGUAGES, CENTRAL MALAYO-POLYNESIAN^^PLF^^
1718 ;;^UTILITY(U,$J,.85,237,0)
1719 ;;=LANGUAGES, CENTRAL SUDANIC^^CSU^^
1720 ;;^UTILITY(U,$J,.85,238,0)
1721 ;;=LANGUAGES, CHADIC^^CDC^^
1722 ;;^UTILITY(U,$J,.85,239,0)
1723 ;;=LANGUAGES, CHAMIC^^CMC^^
1724 ;;^UTILITY(U,$J,.85,240,0)
1725 ;;=LANGUAGES, CHIBCHAN^^CBA^^
1726 ;;^UTILITY(U,$J,.85,241,0)
1727 ;;=LANGUAGES, CHINESE^^ZHX^^
1728 ;;^UTILITY(U,$J,.85,242,0)
1729 ;;=LANGUAGES, CUSHITIC^^CUS^^
1730 ;;^UTILITY(U,$J,.85,243,0)
1731 ;;=LANGUAGES, DRAVIDIAN^^DRA^^
1732 ;;^UTILITY(U,$J,.85,244,0)
1733 ;;=LANGUAGES, EAST GERMANIC^^GME^^
1734 ;;^UTILITY(U,$J,.85,245,0)
1735 ;;=LANGUAGES, EAST SLAVIC^^ZLE^^
1736 ;;^UTILITY(U,$J,.85,246,0)
1737 ;;=LANGUAGES, EASTERN MALAYO-POLYNESIAN^^PQE^^
1738 ;;^UTILITY(U,$J,.85,247,0)
1739 ;;=LANGUAGES, EASTERN SUDANIC^^SDV^^
1740 ;;^UTILITY(U,$J,.85,248,0)
1741 ;;=LANGUAGES, EGYPTIAN^^EGX^^
1742 ;;^UTILITY(U,$J,.85,249,0)
1743 ;;=LANGUAGES, ESKIMO-ALEUT^^ESX^^
1744 ;;^UTILITY(U,$J,.85,250,0)
1745 ;;=LANGUAGES, FINNO-UGRIAN^^FIU^^
1746 ;;^UTILITY(U,$J,.85,251,0)
1747 ;;=LANGUAGES, FORMOSAN^^FOX^^
1748 ;;^UTILITY(U,$J,.85,252,0)
1749 ;;=LANGUAGES, GERMANIC^^GEM^^
1750 ;;^UTILITY(U,$J,.85,253,0)
1751 ;;=LANGUAGES, GREEK^^GRK^^
1752 ;;^UTILITY(U,$J,.85,254,0)
1753 ;;=LANGUAGES, HIMACHALI^^HIM^^
1754 ;;^UTILITY(U,$J,.85,255,0)
1755 ;;=LANGUAGES, HMONG-MIEN^^HMX^^
1756 ;;^UTILITY(U,$J,.85,256,0)
1757 ;;=LANGUAGES, HOKAN^^HOK^^
1758 ;;^UTILITY(U,$J,.85,257,0)
1759 ;;=LANGUAGES, IJO^^IJO^^
1760 ;;^UTILITY(U,$J,.85,258,0)
1761 ;;=LANGUAGES, INDIC^^INC^^
1762 ;;^UTILITY(U,$J,.85,259,0)
1763 ;;=LANGUAGES, INDO-EUROPEAN^^INE^^
1764 ;;^UTILITY(U,$J,.85,260,0)
1765 ;;=LANGUAGES, INDO-IRANIAN^^IIR^^
1766 ;;^UTILITY(U,$J,.85,261,0)
1767 ;;=LANGUAGES, IRANIAN^^IRA^^
1768 ;;^UTILITY(U,$J,.85,262,0)
1769 ;;=LANGUAGES, IROQUOIAN^^IRO^^
1770 ;;^UTILITY(U,$J,.85,263,0)
1771 ;;=LANGUAGES, ITALIC^^ITC^^
1772 ;;^UTILITY(U,$J,.85,264,0)
1773 ;;=LANGUAGES, JAPANESE^^JPX^^
1774 ;;^UTILITY(U,$J,.85,265,0)
1775 ;;=LANGUAGES, KAREN^^KAR^^
1776 ;;^UTILITY(U,$J,.85,266,0)
1777 ;;=LANGUAGES, KHOISAN^^KHI^^
1778 ;;^UTILITY(U,$J,.85,267,0)
1779 ;;=LANGUAGES, KORDOFANIAN^^KDO^^
1780 ;;^UTILITY(U,$J,.85,268,0)
1781 ;;=LANGUAGES, KRU^^KRO^^
1782 ;;^UTILITY(U,$J,.85,269,0)
1783 ;;=LANGUAGES, LAND DAYAK^^DAY^^
1784 ;;^UTILITY(U,$J,.85,270,0)
1785 ;;=LANGUAGES, MALAYO-POLYNESIAN^^POZ^^
1786 ;;^UTILITY(U,$J,.85,271,0)
1787 ;;=LANGUAGES, MANDE^^DMN^^
1788 ;;^UTILITY(U,$J,.85,272,0)
1789 ;;=LANGUAGES, MANOBO^^MNO^^
1790 ;;^UTILITY(U,$J,.85,273,0)
1791 ;;=LANGUAGES, MAYAN^^MYN^^
1792 ;;^UTILITY(U,$J,.85,274,0)
1793 ;;=LANGUAGES, MON-KHMER^^MKH^^
1794 ;;^UTILITY(U,$J,.85,275,0)
1795 ;;=LANGUAGES, MONGOLIAN^^XGN^^
1796 ;;^UTILITY(U,$J,.85,276,0)
1797 ;;=LANGUAGES, MULTIPLE^^MUL^^
1798 ;;^UTILITY(U,$J,.85,277,0)
1799 ;;=LANGUAGES, MUNDA^^MUN^^
1800 ;;^UTILITY(U,$J,.85,278,0)
1801 ;;=LANGUAGES, NA-DENE^^XND^^
1802 ;;^UTILITY(U,$J,.85,279,0)
1803 ;;=LANGUAGES, NAHUATL^^NAH^^
1804 ;;^UTILITY(U,$J,.85,280,0)
1805 ;;=LANGUAGES, NIGER-KORDOFANIAN^^NIC^^
1806 ;;^UTILITY(U,$J,.85,281,0)
1807 ;;=LANGUAGES, NILO-SAHARAN^^SSA^^
1808 ;;^UTILITY(U,$J,.85,282,0)
1809 ;;=LANGUAGES, NORTH AMERICAN INDIAN^^NAI^^
1810 ;;^UTILITY(U,$J,.85,283,0)
1811 ;;=LANGUAGES, NORTH CAUCASIAN^^CCN^^
1812 ;;^UTILITY(U,$J,.85,284,0)
1813 ;;=LANGUAGES, NORTH GERMANIC^^GMQ^^
1814 ;;^UTILITY(U,$J,.85,285,0)
1815 ;;=LANGUAGES, NUBIAN^^NUB^^
1816 ;;^UTILITY(U,$J,.85,286,0)
1817 ;;=LANGUAGES, OMOTIC^^OMV^^
1818 ;;^UTILITY(U,$J,.85,287,0)
1819 ;;=LANGUAGES, OTO-MANGUEAN^^OMQ^^
1820 ;;^UTILITY(U,$J,.85,288,0)
1821 ;;=LANGUAGES, OTOMIAN^^OTO^^
1822 ;;^UTILITY(U,$J,.85,289,0)
1823 ;;=LANGUAGES, PAPUAN^^PAA^^
1824 ;;^UTILITY(U,$J,.85,290,0)
1825 ;;=LANGUAGES, PHILIPPINE^^PHI^^
1826 ;;^UTILITY(U,$J,.85,291,0)
1827 ;;=LANGUAGES, PRAKRIT^^PRA^^
1828 ;;^UTILITY(U,$J,.85,292,0)
1829 ;;=LANGUAGES, QUECHUAN^^QWE^^
1830 ;;^UTILITY(U,$J,.85,293,0)
1831 ;;=LANGUAGES, ROMANCE^^ROA^^
1832 ;;^UTILITY(U,$J,.85,294,0)
1833 ;;=LANGUAGES, SALISHAN^^SAL^^
1834 ;;^UTILITY(U,$J,.85,295,0)
1835 ;;=LANGUAGES, SAMI^^SMI^^
1836 ;;^UTILITY(U,$J,.85,296,0)
1837 ;;=LANGUAGES, SAMOYEDIC^^SYD^^
1838 ;;^UTILITY(U,$J,.85,297,0)
1839 ;;=LANGUAGES, SEMITIC^^SEM^^
1840 ;;^UTILITY(U,$J,.85,298,0)
1841 ;;=LANGUAGES, SIGN^^SGN^^
1842 ;;^UTILITY(U,$J,.85,298,1,0)
1843 ;;=^.8501^1^1
1844 ;;^UTILITY(U,$J,.85,298,1,1,0)
1845 ;;=SIGN LANGUAGES
1846 ;;^UTILITY(U,$J,.85,299,0)
1847 ;;=LANGUAGES, SINO-TIBETAN^^SIT^^
1848 ;;^UTILITY(U,$J,.85,300,0)
1849 ;;=LANGUAGES, SIOUAN^^SIO^^
1850 ;;^UTILITY(U,$J,.85,301,0)
1851 ;;=LANGUAGES, SLAVIC^^SLA^^
1852 ;;^UTILITY(U,$J,.85,302,0)
1853 ;;=LANGUAGES, SONGHAI^^SON^^
1854 ;;^UTILITY(U,$J,.85,303,0)
1855 ;;=LANGUAGES, SORBIAN^^WEN^^
1856 ;;^UTILITY(U,$J,.85,304,0)
1857 ;;=LANGUAGES, SOUTH AMERICAN INDIAN^^SAI^^
1858 ;;^UTILITY(U,$J,.85,305,0)
1859 ;;=LANGUAGES, SOUTH CAUCASIAN^^CCS^^
1860 ;;^UTILITY(U,$J,.85,306,0)
1861 ;;=LANGUAGES, SOUTH SLAVIC^^ZLS^^
1862 ;;^UTILITY(U,$J,.85,307,0)
1863 ;;=LANGUAGES, TAI^^TAI^^
1864 ;;^UTILITY(U,$J,.85,308,0)
1865 ;;=LANGUAGES, TIBETO-BURMAN^^TBQ^^
1866 ;;^UTILITY(U,$J,.85,309,0)
1867 ;;=LANGUAGES, TRANS-NEW GUINEA^^NGF^^
1868 ;;^UTILITY(U,$J,.85,310,0)
1869 ;;=LANGUAGES, TUNGUS^^TUW^^
1870 ;;^UTILITY(U,$J,.85,311,0)
1871 ;;=LANGUAGES, TUPI^^TUP^^
1872 ;;^UTILITY(U,$J,.85,312,0)
1873 ;;=LANGUAGES, TURKIC^^TRK^^
1874 ;;^UTILITY(U,$J,.85,313,0)
1875 ;;=LANGUAGES, UNCODED^^MIS^^
1876 ;;^UTILITY(U,$J,.85,314,0)
1877 ;;=LANGUAGES, URALIC^^URJ^^
1878 ;;^UTILITY(U,$J,.85,315,0)
1879 ;;=LANGUAGES, UTO-AZTECAN^^AZC^^
1880 ;;^UTILITY(U,$J,.85,316,0)
1881 ;;=LANGUAGES, WAKASHAN^^WAK^^
1882 ;;^UTILITY(U,$J,.85,317,0)
1883 ;;=LANGUAGES, WEST GERMANIC^^GMW^^
1884 ;;^UTILITY(U,$J,.85,318,0)
1885 ;;=LANGUAGES, WEST SLAVIC^^ZLW^^
1886 ;;^UTILITY(U,$J,.85,319,0)
1887 ;;=LANGUAGES, WESTERN MALAYO-POLYNESIAN^^PQW^^
1888 ;;^UTILITY(U,$J,.85,320,0)
1889 ;;=LANGUAGES, YUPIK^^YPK^^
1890 ;;^UTILITY(U,$J,.85,321,0)
1891 ;;=LANGUAGES, ZANDE^^ZND^^
1892 ;;^UTILITY(U,$J,.85,322,0)
1893 ;;=LAO^LO^LAO^^
1894 ;;^UTILITY(U,$J,.85,323,0)
1895 ;;=LATIN^LA^LAT^^
1896 ;;^UTILITY(U,$J,.85,324,0)
1897 ;;=LATVIAN^LV^LAV^^
1898 ;;^UTILITY(U,$J,.85,325,0)
1899 ;;=LEZGHIAN^^LEZ^^
1900 ;;^UTILITY(U,$J,.85,326,0)
1901 ;;=LIMBURGAN^LI^LIM^^
1902 ;;^UTILITY(U,$J,.85,326,1,0)
1903 ;;=^.8501^2^2
1904 ;;^UTILITY(U,$J,.85,326,1,1,0)
1905 ;;=LIMBURGISH
1906 ;;^UTILITY(U,$J,.85,326,1,2,0)
1907 ;;=LIMBURGER
1908 ;;^UTILITY(U,$J,.85,327,0)
1909 ;;=LINGALA^LN^LIN^^
1910 ;;^UTILITY(U,$J,.85,328,0)
1911 ;;=LITHUANIAN^LT^LIT^^
1912 ;;^UTILITY(U,$J,.85,329,0)
1913 ;;=LOJBAN^^JBO^^
1914 ;;^UTILITY(U,$J,.85,330,0)
1915 ;;=LOW GERMAN^^NDS^^
1916 ;;^UTILITY(U,$J,.85,330,1,0)
1917 ;;=^.8501^3^3
1918 ;;^UTILITY(U,$J,.85,330,1,1,0)
1919 ;;=LOW SAXON
1920 ;;^UTILITY(U,$J,.85,330,1,2,0)
1921 ;;=GERMAN, LOW
1922 ;;^UTILITY(U,$J,.85,330,1,3,0)
1923 ;;=SAXON, LOW
1924 ;;^UTILITY(U,$J,.85,331,0)
1925 ;;=LOZI^^LOZ^^
1926 ;;^UTILITY(U,$J,.85,332,0)
1927 ;;=LUBA-KATANGA^LU^LUB^^
1928 ;;^UTILITY(U,$J,.85,333,0)
1929 ;;=LUBA-LULUA^^LUA^^
1930 ;;^UTILITY(U,$J,.85,334,0)
1931 ;;=LUISENO^^LUI^^
1932 ;;^UTILITY(U,$J,.85,335,0)
1933 ;;=LUNDA^^LUN^^
1934 ;;^UTILITY(U,$J,.85,336,0)
1935 ;;=LUO (KENYA AND TANZANIYA)^^LUO^^
1936 ;;^UTILITY(U,$J,.85,337,0)
1937 ;;=LUSHAI^^LUS^^
1938 ;;^UTILITY(U,$J,.85,338,0)
1939 ;;=LUXEMBOURGISH^LB^LTZ^^
1940 ;;^UTILITY(U,$J,.85,338,1,0)
1941 ;;=^.8501^1^1
1942 ;;^UTILITY(U,$J,.85,338,1,1,0)
1943 ;;=LETZEBURGESCH
1944 ;;^UTILITY(U,$J,.85,339,0)
1945 ;;=MACEDONIAN^MK^MKD^^MAC
1946 ;;^UTILITY(U,$J,.85,340,0)
1947 ;;=MADURESE^^MAD^^
1948 ;;^UTILITY(U,$J,.85,341,0)
1949 ;;=MAGAHI^^MAG^^
1950 ;;^UTILITY(U,$J,.85,342,0)
1951 ;;=MAITHILI^^MAI^^
1952 ;;^UTILITY(U,$J,.85,343,0)
1953 ;;=MAKASAR^^MAK^^
1954 ;;^UTILITY(U,$J,.85,344,0)
1955 ;;=MALAGASY^MG^MLG^^
1956 ;;^UTILITY(U,$J,.85,345,0)
1957 ;;=MALAY^MS^MSA^^MAY
1958 ;;^UTILITY(U,$J,.85,346,0)
1959 ;;=MALAYALAM^ML^MAL^^
1960 ;;^UTILITY(U,$J,.85,347,0)
1961 ;;=MALTESE^MT^MLT^^
1962 ;;^UTILITY(U,$J,.85,348,0)
1963 ;;=MANCHU^^MNC^^
1964 ;;^UTILITY(U,$J,.85,349,0)
1965 ;;=MANDAR^^MDR^^
1966 ;;^UTILITY(U,$J,.85,350,0)
1967 ;;=MANDINGO^^MAN^^
1968 ;;^UTILITY(U,$J,.85,351,0)
1969 ;;=MANIPURI^^MNI^^
1970 ;;^UTILITY(U,$J,.85,352,0)
1971 ;;=MANX^GV^GLV^^
1972 ;;^UTILITY(U,$J,.85,353,0)
1973 ;;=MAORI^MI^MRI^^MAO
1974 ;;^UTILITY(U,$J,.85,354,0)
1975 ;;=MAPUDUNGUN^^ARN^^
1976 ;;^UTILITY(U,$J,.85,354,1,0)
1977 ;;=^.8501^1^1
1978 ;;^UTILITY(U,$J,.85,354,1,1,0)
1979 ;;=MAPUCHE
1980 ;;^UTILITY(U,$J,.85,355,0)
1981 ;;=MARATHI^MR^MAR^^
1982 ;;^UTILITY(U,$J,.85,356,0)
1983 ;;=MARI^^CHM^^
1984 ;;^UTILITY(U,$J,.85,357,0)
1985 ;;=MARSHALLESE^MH^MAH^^
1986 ;;^UTILITY(U,$J,.85,358,0)
1987 ;;=MARWARI^^MWR^^
1988 ;;^UTILITY(U,$J,.85,359,0)
1989 ;;=MASAI^^MAS^^
1990 ;;^UTILITY(U,$J,.85,360,0)
1991 ;;=MENDE^^MEN^^
1992 ;;^UTILITY(U,$J,.85,361,0)
1993 ;;=MI'KMAQ^^MIC^^
1994 ;;^UTILITY(U,$J,.85,361,1,0)
1995 ;;=^.8501^1^1
1996 ;;^UTILITY(U,$J,.85,361,1,1,0)
1997 ;;=MICMAC
1998 ;;^UTILITY(U,$J,.85,362,0)
1999 ;;=MIDDLE DUTCH^^DUM^^
2000 ;;^UTILITY(U,$J,.85,362,1,0)
2001 ;;=^.8501^1^1
2002 ;;^UTILITY(U,$J,.85,362,1,1,0)
2003 ;;=DUTCH, MIDDLE (CA.1050-1350)
2004 ;;^UTILITY(U,$J,.85,363,0)
2005 ;;=MIDDLE ENGLISH^^ENM^^
2006 ;;^UTILITY(U,$J,.85,363,1,0)
2007 ;;=^.8501^2^2
2008 ;;^UTILITY(U,$J,.85,363,1,1,0)
2009 ;;=MIDDLE ENGLISH (1100-1500)
2010 ;;^UTILITY(U,$J,.85,363,1,2,0)
2011 ;;=ENGLISH, MIDDLE (1100-1500)
2012 ;;^UTILITY(U,$J,.85,364,0)
2013 ;;=MIDDLE FRENCH^^FRM^^
2014 ;;^UTILITY(U,$J,.85,364,1,0)
2015 ;;=^.8501^2^2
2016 ;;^UTILITY(U,$J,.85,364,1,1,0)
2017 ;;=MIDDLE FRENCH (CA. 1400-1600)
2018 ;;^UTILITY(U,$J,.85,364,1,2,0)
2019 ;;=FRENCH, MIDDLE (CA. 1400-1600)
2020 ;;^UTILITY(U,$J,.85,365,0)
2021 ;;=MIDDLE HIGH GERMAN^^GMH^^
2022 ;;^UTILITY(U,$J,.85,365,1,0)
2023 ;;=^.8501^2^2
2024 ;;^UTILITY(U,$J,.85,365,1,1,0)
2025 ;;=MIDDLE HIGH GERMAN (CA. 1050-1500)
2026 ;;^UTILITY(U,$J,.85,365,1,2,0)
2027 ;;=GERMAN, MIDDLE HIGH (CA. 1050-1500)
2028
2029DILAI005
2030DILAI005 ; ; 02-NOV-2012
2031 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2032 Q:'DIFQR(.85) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
2033Q Q
2034 ;;^UTILITY(U,$J,.85,366,0)
2035 ;;=MIDDLE IRISH^^MGA^^
2036 ;;^UTILITY(U,$J,.85,366,1,0)
2037 ;;=^.8501^2^2
2038 ;;^UTILITY(U,$J,.85,366,1,1,0)
2039 ;;=MIDDLE IRISH (900-1200)
2040 ;;^UTILITY(U,$J,.85,366,1,2,0)
2041 ;;=IRISH, MIDDLE (900-1200)
2042 ;;^UTILITY(U,$J,.85,367,0)
2043 ;;=MINANGKABAU^^MIN^^
2044 ;;^UTILITY(U,$J,.85,368,0)
2045 ;;=MIRANDESE^^MWL^^
2046 ;;^UTILITY(U,$J,.85,369,0)
2047 ;;=MOHAWK^^MOH^^
2048 ;;^UTILITY(U,$J,.85,370,0)
2049 ;;=MOKSHA^^MDF^^
2050 ;;^UTILITY(U,$J,.85,371,0)
2051 ;;=MONGO^^LOL^^
2052 ;;^UTILITY(U,$J,.85,372,0)
2053 ;;=MONGOLIAN^MN^MON^^
2054 ;;^UTILITY(U,$J,.85,373,0)
2055 ;;=MOSSI^^MOS^^
2056 ;;^UTILITY(U,$J,.85,374,0)
2057 ;;=N'KO^^NQO^^
2058 ;;^UTILITY(U,$J,.85,375,0)
2059 ;;=NAURU^NA^NAU^^
2060 ;;^UTILITY(U,$J,.85,376,0)
2061 ;;=NAVAJO^NV^NAV^^
2062 ;;^UTILITY(U,$J,.85,376,1,0)
2063 ;;=^.8501^1^1
2064 ;;^UTILITY(U,$J,.85,376,1,1,0)
2065 ;;=NAVAHO
2066 ;;^UTILITY(U,$J,.85,377,0)
2067 ;;=NDEBELE, NORTH^ND^NDE^^
2068 ;;^UTILITY(U,$J,.85,377,1,0)
2069 ;;=^.8501^1^1
2070 ;;^UTILITY(U,$J,.85,377,1,1,0)
2071 ;;=NORTH NDEBELE
2072 ;;^UTILITY(U,$J,.85,378,0)
2073 ;;=NDEBELE, SOUTH^NR^NBL^^
2074 ;;^UTILITY(U,$J,.85,378,1,0)
2075 ;;=^.8501^1^1
2076 ;;^UTILITY(U,$J,.85,378,1,1,0)
2077 ;;=SOUTH NDEBELE
2078 ;;^UTILITY(U,$J,.85,379,0)
2079 ;;=NDONGA^NG^NDO^^
2080 ;;^UTILITY(U,$J,.85,380,0)
2081 ;;=NEAPOLITAN^^NAP^^
2082 ;;^UTILITY(U,$J,.85,381,0)
2083 ;;=NEPAL BHASA^^NEW^^
2084 ;;^UTILITY(U,$J,.85,381,1,0)
2085 ;;=^.8501^1^1
2086 ;;^UTILITY(U,$J,.85,381,1,1,0)
2087 ;;=NEWARI
2088 ;;^UTILITY(U,$J,.85,382,0)
2089 ;;=NEPALI^NE^NEP^^
2090 ;;^UTILITY(U,$J,.85,383,0)
2091 ;;=NIAS^^NIA^^
2092 ;;^UTILITY(U,$J,.85,384,0)
2093 ;;=NIUEAN^^NIU^^
2094 ;;^UTILITY(U,$J,.85,385,0)
2095 ;;=NO LINGUISTIC CONTENT^^ZXX^^
2096 ;;^UTILITY(U,$J,.85,385,1,0)
2097 ;;=^.8501^1^1
2098 ;;^UTILITY(U,$J,.85,385,1,1,0)
2099 ;;=NOT APPLICABLE
2100 ;;^UTILITY(U,$J,.85,386,0)
2101 ;;=NOGAI^^NOG^^
2102 ;;^UTILITY(U,$J,.85,387,0)
2103 ;;=NORWEGIAN^NO^NOR^^
2104 ;;^UTILITY(U,$J,.85,388,0)
2105 ;;=NORWEGIAN BOKMAL^NB^NOB^^
2106 ;;^UTILITY(U,$J,.85,388,1,0)
2107 ;;=^.8501^1^1
2108 ;;^UTILITY(U,$J,.85,388,1,1,0)
2109 ;;=BOKMAL, NORWEGIAN
2110 ;;^UTILITY(U,$J,.85,389,0)
2111 ;;=NORWEGIAN NYNORSK^NN^NNO^^
2112 ;;^UTILITY(U,$J,.85,389,1,0)
2113 ;;=^.8501^1^1
2114 ;;^UTILITY(U,$J,.85,389,1,1,0)
2115 ;;=NYNORSK, NORWEGIAN
2116 ;;^UTILITY(U,$J,.85,390,0)
2117 ;;=NUOSU^II^III^^
2118 ;;^UTILITY(U,$J,.85,390,1,0)
2119 ;;=^.8501^5^5
2120 ;;^UTILITY(U,$J,.85,390,1,1,0)
2121 ;;=BLACK YI
2122 ;;^UTILITY(U,$J,.85,390,1,2,0)
2123 ;;=LIANGSHAN YI
2124 ;;^UTILITY(U,$J,.85,390,1,3,0)
2125 ;;=NORTHERN YI
2126 ;;^UTILITY(U,$J,.85,390,1,4,0)
2127 ;;=NOSU YI
2128 ;;^UTILITY(U,$J,.85,390,1,5,0)
2129 ;;=SICHUAN YI
2130 ;;^UTILITY(U,$J,.85,391,0)
2131 ;;=NYAMWEZI^^NYM^^
2132 ;;^UTILITY(U,$J,.85,392,0)
2133 ;;=NYANKOLE^^NYN^^
2134 ;;^UTILITY(U,$J,.85,393,0)
2135 ;;=NYORO^^NYO^^
2136 ;;^UTILITY(U,$J,.85,394,0)
2137 ;;=NZIMA^^NZI^^
2138 ;;^UTILITY(U,$J,.85,395,0)
2139 ;;=OCCITAN^OC^OCI^^
2140 ;;^UTILITY(U,$J,.85,395,1,0)
2141 ;;=^.8501^1^1
2142 ;;^UTILITY(U,$J,.85,395,1,1,0)
2143 ;;=OCCITAN (POST 1500)
2144 ;;^UTILITY(U,$J,.85,396,0)
2145 ;;=OFFICIAL ARAMAIC^^ARC^^
2146 ;;^UTILITY(U,$J,.85,396,1,0)
2147 ;;=^.8501^2^2
2148 ;;^UTILITY(U,$J,.85,396,1,1,0)
2149 ;;=OFFICIAL ARAMAIC (700-300 BCE)
2150 ;;^UTILITY(U,$J,.85,396,1,2,0)
2151 ;;=ARAMAIC, OFFICIAL (700-300 BCE)
2152 ;;^UTILITY(U,$J,.85,397,0)
2153 ;;=OJIBWE^OJ^OJI^^
2154 ;;^UTILITY(U,$J,.85,397,1,0)
2155 ;;=^.8501^4^4
2156 ;;^UTILITY(U,$J,.85,397,1,1,0)
2157 ;;=OJIBWA
2158 ;;^UTILITY(U,$J,.85,397,1,2,0)
2159 ;;=OJIBWAY
2160 ;;^UTILITY(U,$J,.85,397,1,3,0)
2161 ;;=CHIPPEWA
2162 ;;^UTILITY(U,$J,.85,397,1,4,0)
2163 ;;=ANISHINAABEMOWIN
2164 ;;^UTILITY(U,$J,.85,398,0)
2165 ;;=OLD ENGLISH^^ANG^^
2166 ;;^UTILITY(U,$J,.85,398,1,0)
2167 ;;=^.8501^2^2
2168 ;;^UTILITY(U,$J,.85,398,1,1,0)
2169 ;;=OLD ENGLISH (CA. 450-1100)
2170 ;;^UTILITY(U,$J,.85,398,1,2,0)
2171 ;;=ENGLISH, OLD (CA. 450-1100)
2172 ;;^UTILITY(U,$J,.85,399,0)
2173 ;;=OLD FRENCH^^FRO^^
2174 ;;^UTILITY(U,$J,.85,399,1,0)
2175 ;;=^.8501^2^2
2176 ;;^UTILITY(U,$J,.85,399,1,1,0)
2177 ;;=OLD FRENCH (842-CA. 1400)
2178 ;;^UTILITY(U,$J,.85,399,1,2,0)
2179 ;;=FRENCH, OLD (842-CA. 1400)
2180 ;;^UTILITY(U,$J,.85,400,0)
2181 ;;=OLD HIGH GERMAN^^GOH^^
2182 ;;^UTILITY(U,$J,.85,400,1,0)
2183 ;;=^.8501^2^2
2184 ;;^UTILITY(U,$J,.85,400,1,1,0)
2185 ;;=OLD HIGH GERMAN (CA. 750-1050)
2186 ;;^UTILITY(U,$J,.85,400,1,2,0)
2187 ;;=GERMAN, OLD HIGH (CA. 750-1050)
2188 ;;^UTILITY(U,$J,.85,401,0)
2189 ;;=OLD IRISH^^SGA^^
2190 ;;^UTILITY(U,$J,.85,401,1,0)
2191 ;;=^.8501^2^2
2192 ;;^UTILITY(U,$J,.85,401,1,1,0)
2193 ;;=OLD IRISH (TO 900)
2194 ;;^UTILITY(U,$J,.85,401,1,2,0)
2195 ;;=IRISH, OLD (TO 900)
2196 ;;^UTILITY(U,$J,.85,402,0)
2197 ;;=OLD NORSE^^NON^^
2198 ;;^UTILITY(U,$J,.85,402,1,0)
2199 ;;=^.8501^1^1
2200 ;;^UTILITY(U,$J,.85,402,1,1,0)
2201 ;;=NORSE, OLD
2202 ;;^UTILITY(U,$J,.85,403,0)
2203 ;;=OLD PERSIAN^^PEO^^PEO
2204 ;;^UTILITY(U,$J,.85,403,1,0)
2205 ;;=^.8501^2^2
2206 ;;^UTILITY(U,$J,.85,403,1,1,0)
2207 ;;=OLD PERSIAN (CA. 600-400 B.C.)
2208 ;;^UTILITY(U,$J,.85,403,1,2,0)
2209 ;;=PERSIAN, OLD (CA. 600-400 B.C.)
2210 ;;^UTILITY(U,$J,.85,404,0)
2211 ;;=OLD PROVENCAL^^PRO^^PRO
2212 ;;^UTILITY(U,$J,.85,404,1,0)
2213 ;;=^.8501^2^2
2214 ;;^UTILITY(U,$J,.85,404,1,1,0)
2215 ;;=OLD PROVENCAL (TO 1500)
2216 ;;^UTILITY(U,$J,.85,404,1,2,0)
2217 ;;=PROVENCAL, OLD (TO 1500)
2218 ;;^UTILITY(U,$J,.85,405,0)
2219 ;;=ORIYA^OR^ORI^^
2220 ;;^UTILITY(U,$J,.85,406,0)
2221 ;;=OROMO^OM^ORM^^
2222 ;;^UTILITY(U,$J,.85,407,0)
2223 ;;=OSAGE^^OSA^^
2224 ;;^UTILITY(U,$J,.85,408,0)
2225 ;;=OSSETIAN^OS^OSS^^
2226 ;;^UTILITY(U,$J,.85,408,1,0)
2227 ;;=^.8501^1^1
2228 ;;^UTILITY(U,$J,.85,408,1,1,0)
2229 ;;=OSSETIC
2230 ;;^UTILITY(U,$J,.85,409,0)
2231 ;;=OTTOMAN TURKISH^^OTA^^OTA
2232 ;;^UTILITY(U,$J,.85,409,1,0)
2233 ;;=^.8501^2^2
2234 ;;^UTILITY(U,$J,.85,409,1,1,0)
2235 ;;=OTTOMAN TURKISH (1500-1928)
2236 ;;^UTILITY(U,$J,.85,409,1,2,0)
2237 ;;=TURKISH, OTTOMAN (1500-1928)
2238 ;;^UTILITY(U,$J,.85,410,0)
2239 ;;=PAHLAVI^^PAL^^
2240 ;;^UTILITY(U,$J,.85,411,0)
2241 ;;=PALAUAN^^PAU^^
2242 ;;^UTILITY(U,$J,.85,412,0)
2243 ;;=PALI^PI^PLI^^
2244 ;;^UTILITY(U,$J,.85,413,0)
2245 ;;=PAMPANGA^^PAM^^
2246 ;;^UTILITY(U,$J,.85,413,1,0)
2247 ;;=^.8501^1^1
2248 ;;^UTILITY(U,$J,.85,413,1,1,0)
2249 ;;=KAPAMPANGAN
2250 ;;^UTILITY(U,$J,.85,414,0)
2251 ;;=PANGASINAN^^PAG^^
2252 ;;^UTILITY(U,$J,.85,415,0)
2253 ;;=PAPIAMENTO^^PAP^^
2254 ;;^UTILITY(U,$J,.85,416,0)
2255 ;;=PASHTO^PS^PUS^^
2256 ;;^UTILITY(U,$J,.85,416,1,0)
2257 ;;=^.8501^1^1
2258 ;;^UTILITY(U,$J,.85,416,1,1,0)
2259 ;;=PUSHTO
2260 ;;^UTILITY(U,$J,.85,417,0)
2261 ;;=PEDI^^NSO^^
2262 ;;^UTILITY(U,$J,.85,417,1,0)
2263 ;;=^.8501^3^3
2264 ;;^UTILITY(U,$J,.85,417,1,1,0)
2265 ;;=SEPEDI
2266 ;;^UTILITY(U,$J,.85,417,1,2,0)
2267 ;;=NORTHERN SOTHO
2268 ;;^UTILITY(U,$J,.85,417,1,3,0)
2269 ;;=SOTHO, NORTHERN
2270 ;;^UTILITY(U,$J,.85,418,0)
2271 ;;=PERSIAN^FA^FAS^^PER
2272 ;;^UTILITY(U,$J,.85,418,1,0)
2273 ;;=^.8501^1^1
2274 ;;^UTILITY(U,$J,.85,418,1,1,0)
2275 ;;=FARSI
2276 ;;^UTILITY(U,$J,.85,419,0)
2277 ;;=PHOENICIAN^^PHN^^
2278 ;;^UTILITY(U,$J,.85,420,0)
2279 ;;=POHNPEIAN^^PON^^
2280 ;;^UTILITY(U,$J,.85,421,0)
2281 ;;=POLISH^PL^POL^^
2282 ;;^UTILITY(U,$J,.85,422,0)
2283 ;;=PUNJABI^PA^PAN^^
2284 ;;^UTILITY(U,$J,.85,422,1,0)
2285 ;;=^.8501^1^1
2286 ;;^UTILITY(U,$J,.85,422,1,1,0)
2287 ;;=PANJABI
2288 ;;^UTILITY(U,$J,.85,423,0)
2289 ;;=QUECHUA^QU^QUE^^
2290 ;;^UTILITY(U,$J,.85,424,0)
2291 ;;=RAJASTHANI^^RAJ^^
2292 ;;^UTILITY(U,$J,.85,425,0)
2293 ;;=RAPANUI^^RAP^^
2294 ;;^UTILITY(U,$J,.85,426,0)
2295 ;;=RAROTONGAN^^RAR^^
2296 ;;^UTILITY(U,$J,.85,426,1,0)
2297 ;;=^.8501^1^1
2298 ;;^UTILITY(U,$J,.85,426,1,1,0)
2299 ;;=COOK ISLANDS MAORI
2300 ;;^UTILITY(U,$J,.85,428,0)
2301 ;;=ROMANIAN^RO^RON^^RUM
2302 ;;^UTILITY(U,$J,.85,428,1,0)
2303 ;;=^.8501^2^2
2304 ;;^UTILITY(U,$J,.85,428,1,1,0)
2305 ;;=MOLDAVIAN
2306 ;;^UTILITY(U,$J,.85,428,1,2,0)
2307 ;;=MOLDOVAN
2308 ;;^UTILITY(U,$J,.85,429,0)
2309 ;;=ROMANSH^RM^ROH^^
2310 ;;^UTILITY(U,$J,.85,430,0)
2311 ;;=ROMANY^^ROM^^
2312 ;;^UTILITY(U,$J,.85,431,0)
2313 ;;=RUNDI^RN^RUN^^
2314 ;;^UTILITY(U,$J,.85,431,1,0)
2315 ;;=^.8501^1^1
2316 ;;^UTILITY(U,$J,.85,431,1,1,0)
2317 ;;=KIRUNDI
2318 ;;^UTILITY(U,$J,.85,432,0)
2319 ;;=SAMARITAN ARAMAIC^^SAM^^
2320 ;;^UTILITY(U,$J,.85,433,0)
2321 ;;=SAMI, LULE^^SMJ^^
2322 ;;^UTILITY(U,$J,.85,433,1,0)
2323 ;;=^.8501^1^1
2324 ;;^UTILITY(U,$J,.85,433,1,1,0)
2325 ;;=LULE SAMI
2326 ;;^UTILITY(U,$J,.85,434,0)
2327 ;;=SAMI, NORTHERN^SE^SME^^
2328 ;;^UTILITY(U,$J,.85,434,1,0)
2329 ;;=^.8501^1^1
2330 ;;^UTILITY(U,$J,.85,434,1,1,0)
2331 ;;=NORTHERN SAMI
2332 ;;^UTILITY(U,$J,.85,435,0)
2333 ;;=SAMI, SKOLT^^SMS^^
2334 ;;^UTILITY(U,$J,.85,435,1,0)
2335 ;;=^.8501^1^1
2336 ;;^UTILITY(U,$J,.85,435,1,1,0)
2337 ;;=SKOLT SAMI
2338 ;;^UTILITY(U,$J,.85,436,0)
2339 ;;=SAMI, SOUTHERN^^SMA^^
2340 ;;^UTILITY(U,$J,.85,436,1,0)
2341 ;;=^.8501^1^1
2342 ;;^UTILITY(U,$J,.85,436,1,1,0)
2343 ;;=SOUTHERN SAMI
2344 ;;^UTILITY(U,$J,.85,437,0)
2345 ;;=SAMOAN^SM^SMO^^
2346 ;;^UTILITY(U,$J,.85,438,0)
2347 ;;=SANDAWE^^SAD^^
2348 ;;^UTILITY(U,$J,.85,439,0)
2349 ;;=SANGO^SG^SAG^^
2350 ;;^UTILITY(U,$J,.85,440,0)
2351 ;;=SANSKRIT^SA^SAN^^
2352 ;;^UTILITY(U,$J,.85,441,0)
2353 ;;=SANTALI^^SAT^^
2354 ;;^UTILITY(U,$J,.85,442,0)
2355 ;;=SARDINIAN^SC^SRD^^
2356 ;;^UTILITY(U,$J,.85,443,0)
2357 ;;=SASAK^^SAS^^
2358 ;;^UTILITY(U,$J,.85,444,0)
2359 ;;=SCOTS^^SCO^^
2360 ;;^UTILITY(U,$J,.85,445,0)
2361 ;;=SELKUP^^SEL^^
2362 ;;^UTILITY(U,$J,.85,446,0)
2363 ;;=SERBIAN^SR^SRP^^
2364 ;;^UTILITY(U,$J,.85,447,0)
2365 ;;=SERER^^SRR^^
2366 ;;^UTILITY(U,$J,.85,448,0)
2367 ;;=SHAN^^SHN^^
2368 ;;^UTILITY(U,$J,.85,449,0)
2369 ;;=SHONA^SN^SNA^^
2370 ;;^UTILITY(U,$J,.85,450,0)
2371 ;;=SICILIAN^^SCN^^
2372 ;;^UTILITY(U,$J,.85,451,0)
2373 ;;=SIDAMO^^SID^^
2374 ;;^UTILITY(U,$J,.85,452,0)
2375 ;;=SIKSIKA^^BLA^^
2376 ;;^UTILITY(U,$J,.85,453,0)
2377 ;;=SINDHI^SD^SND^^
2378 ;;^UTILITY(U,$J,.85,454,0)
2379 ;;=SINHALA^SI^SIN^^
2380 ;;^UTILITY(U,$J,.85,454,1,0)
2381 ;;=^.8501^1^1
2382 ;;^UTILITY(U,$J,.85,454,1,1,0)
2383 ;;=SINHALESE
2384 ;;^UTILITY(U,$J,.85,455,0)
2385 ;;=SLAVE (ATHAPASKAN)^^DEN^^
2386 ;;^UTILITY(U,$J,.85,455,1,0)
2387 ;;=^.8501^1^1
2388 ;;^UTILITY(U,$J,.85,455,1,1,0)
2389 ;;=SLAVEY
2390 ;;^UTILITY(U,$J,.85,456,0)
2391 ;;=SLAVONIC, CHURCH^CU^CHU^^
2392 ;;^UTILITY(U,$J,.85,456,1,0)
2393 ;;=^.8501^5^5
2394 ;;^UTILITY(U,$J,.85,456,1,1,0)
2395 ;;=CHURCH SLAVONIC
2396 ;;^UTILITY(U,$J,.85,456,1,2,0)
2397 ;;=CHURCH SLAVIC
2398 ;;^UTILITY(U,$J,.85,456,1,3,0)
2399 ;;=OLD CHURCH SLAVONIC
2400 ;;^UTILITY(U,$J,.85,456,1,4,0)
2401 ;;=OLD BULGARIAN
2402 ;;^UTILITY(U,$J,.85,456,1,5,0)
2403 ;;=OLD SLAVONIC
2404 ;;^UTILITY(U,$J,.85,457,0)
2405 ;;=SLOVAK^SK^SLK^^SLO
2406 ;;^UTILITY(U,$J,.85,458,0)
2407 ;;=SLOVENIAN^SL^SLV^^
2408 ;;^UTILITY(U,$J,.85,458,1,0)
2409 ;;=^.8501^1^1
2410 ;;^UTILITY(U,$J,.85,458,1,1,0)
2411 ;;=SLOVENE
2412 ;;^UTILITY(U,$J,.85,459,0)
2413 ;;=SOGDIAN^^SOG^^
2414 ;;^UTILITY(U,$J,.85,460,0)
2415 ;;=SOMALI^SO^SOM^^
2416 ;;^UTILITY(U,$J,.85,461,0)
2417 ;;=SONINKE^^SNK^^
2418 ;;^UTILITY(U,$J,.85,462,0)
2419 ;;=SORBIAN, LOWER^^DSB^^
2420 ;;^UTILITY(U,$J,.85,462,1,0)
2421 ;;=^.8501^1^1
2422 ;;^UTILITY(U,$J,.85,462,1,1,0)
2423 ;;=LOWER SORBIAN
2424 ;;^UTILITY(U,$J,.85,463,0)
2425 ;;=SORBIAN, UPPER^^HSB^^
2426 ;;^UTILITY(U,$J,.85,463,1,0)
2427 ;;=^.8501^1^1
2428 ;;^UTILITY(U,$J,.85,463,1,1,0)
2429 ;;=UPPER SORBIAN
2430 ;;^UTILITY(U,$J,.85,464,0)
2431 ;;=SOTHO, SOUTHERN^ST^SOT^^
2432 ;;^UTILITY(U,$J,.85,464,1,0)
2433 ;;=^.8501^1^1
2434 ;;^UTILITY(U,$J,.85,464,1,1,0)
2435 ;;=SOUTHERN SOTHO
2436 ;;^UTILITY(U,$J,.85,465,0)
2437 ;;=SRANAN TONGO^^SRN^^
2438 ;;^UTILITY(U,$J,.85,466,0)
2439 ;;=SUKUMA^^SUK^^
2440 ;;^UTILITY(U,$J,.85,467,0)
2441 ;;=SUMERIAN^^SUX^^
2442 ;;^UTILITY(U,$J,.85,468,0)
2443 ;;=SUNDANESE^SU^SUN^^
2444 ;;^UTILITY(U,$J,.85,469,0)
2445 ;;=SUSU^^SUS^^
2446 ;;^UTILITY(U,$J,.85,470,0)
2447 ;;=SWAHILI^SW^SWA^^
2448 ;;^UTILITY(U,$J,.85,471,0)
2449 ;;=SWATI^SS^SSW^^
2450 ;;^UTILITY(U,$J,.85,472,0)
2451 ;;=SWEDISH^SV^SWE^^
2452 ;;^UTILITY(U,$J,.85,473,0)
2453 ;;=SWISS GERMAN^^GSW^^
2454 ;;^UTILITY(U,$J,.85,473,1,0)
2455 ;;=^.8501^3^3
2456 ;;^UTILITY(U,$J,.85,473,1,1,0)
2457 ;;=GERMAN, SWISS
2458 ;;^UTILITY(U,$J,.85,473,1,2,0)
2459 ;;=ALEMANNIC
2460 ;;^UTILITY(U,$J,.85,473,1,3,0)
2461 ;;=ALSATIAN
2462 ;;^UTILITY(U,$J,.85,474,0)
2463 ;;=SYRIAC^^SYR^^
2464 ;;^UTILITY(U,$J,.85,475,0)
2465 ;;=TAGALOG^TL^TGL^^
2466 ;;^UTILITY(U,$J,.85,476,0)
2467 ;;=TAHITIAN^TY^TAH^^
2468 ;;^UTILITY(U,$J,.85,477,0)
2469 ;;=TAJIK^TG^TGK^^
2470 ;;^UTILITY(U,$J,.85,478,0)
2471 ;;=TAMASHEK^^TMH^^
2472 ;;^UTILITY(U,$J,.85,479,0)
2473 ;;=TAMIL^TA^TAM^^
2474 ;;^UTILITY(U,$J,.85,480,0)
2475 ;;=TATAR^TT^TAT^^
2476 ;;^UTILITY(U,$J,.85,481,0)
2477 ;;=TELUGU^TE^TEL^^
2478 ;;^UTILITY(U,$J,.85,482,0)
2479 ;;=TERENO^^TER^^
2480 ;;^UTILITY(U,$J,.85,483,0)
2481 ;;=TETUM^^TET^^
2482 ;;^UTILITY(U,$J,.85,484,0)
2483 ;;=THAI^TH^THA^^
2484 ;;^UTILITY(U,$J,.85,485,0)
2485 ;;=TIBETAN^BO^BOD^^TIB
2486 ;;^UTILITY(U,$J,.85,485,1,0)
2487 ;;=^.8501^2^2
2488 ;;^UTILITY(U,$J,.85,485,1,1,0)
2489 ;;=TIBETAN STANDARD
2490 ;;^UTILITY(U,$J,.85,485,1,2,0)
2491 ;;=TIBETAN, CENTRAL
2492 ;;^UTILITY(U,$J,.85,486,0)
2493 ;;=TIGRE^^TIG^^
2494 ;;^UTILITY(U,$J,.85,487,0)
2495 ;;=TIGRINYA^TI^TIR^^
2496 ;;^UTILITY(U,$J,.85,488,0)
2497 ;;=TIMNE^^TEM^^
2498 ;;^UTILITY(U,$J,.85,489,0)
2499 ;;=TIV^^TIV^^
2500 ;;^UTILITY(U,$J,.85,490,0)
2501 ;;=TLINGIT^^TLI^^
2502 ;;^UTILITY(U,$J,.85,491,0)
2503 ;;=TOK PISIN^^TPI^^
2504 ;;^UTILITY(U,$J,.85,492,0)
2505 ;;=TOKELAU^^TKL^^
2506 ;;^UTILITY(U,$J,.85,493,0)
2507 ;;=TONGA (NYASA)^^TOG^^
2508 ;;^UTILITY(U,$J,.85,494,0)
2509 ;;=TONGA (TONGA ISLANDS)^TO^TON^^
2510 ;;^UTILITY(U,$J,.85,494,1,0)
2511 ;;=^.8501^1^1
2512 ;;^UTILITY(U,$J,.85,494,1,1,0)
2513 ;;=TONGA ISLANDS
2514 ;;^UTILITY(U,$J,.85,495,0)
2515 ;;=TSIMSHIAN^^TSI^^
2516 ;;^UTILITY(U,$J,.85,496,0)
2517 ;;=TSONGA^TS^TSO^^
2518 ;;^UTILITY(U,$J,.85,497,0)
2519 ;;=TSWANA^TN^TSN^^
2520 ;;^UTILITY(U,$J,.85,498,0)
2521 ;;=TUMBUKA^^TUM^^
2522 ;;^UTILITY(U,$J,.85,499,0)
2523 ;;=TURKISH^TR^TUR^^
2524 ;;^UTILITY(U,$J,.85,500,0)
2525 ;;=TURKMEN^TK^TUK^^
2526 ;;^UTILITY(U,$J,.85,501,0)
2527 ;;=TUVALU^^TVL^^
2528 ;;^UTILITY(U,$J,.85,502,0)
2529 ;;=TUVINIAN^^TYV^^
2530 ;;^UTILITY(U,$J,.85,503,0)
2531 ;;=TWI^TW^TWI^^
2532 ;;^UTILITY(U,$J,.85,504,0)
2533 ;;=UDMURT^^UDM^^
2534 ;;^UTILITY(U,$J,.85,505,0)
2535 ;;=UGARITIC^^UGA^^
2536 ;;^UTILITY(U,$J,.85,506,0)
2537 ;;=UIGHUR^UG^UIG^^
2538 ;;^UTILITY(U,$J,.85,506,1,0)
2539 ;;=^.8501^1^1
2540 ;;^UTILITY(U,$J,.85,506,1,1,0)
2541 ;;=UYGHUR
2542 ;;^UTILITY(U,$J,.85,507,0)
2543 ;;=UKRAINIAN^UK^UKR^^
2544 ;;^UTILITY(U,$J,.85,508,0)
2545 ;;=UMBUNDU^^UMB^^
2546 ;;^UTILITY(U,$J,.85,509,0)
2547 ;;=UNDETERMINED^^UND^^
2548 ;;^UTILITY(U,$J,.85,510,0)
2549 ;;=URDU^UR^URD^^
2550 ;;^UTILITY(U,$J,.85,511,0)
2551 ;;=UZBEK^UZ^UZB^^
2552 ;;^UTILITY(U,$J,.85,512,0)
2553 ;;=VAI^^VAI^^
2554 ;;^UTILITY(U,$J,.85,513,0)
2555 ;;=VENDA^VE^VEN^^
2556 ;;^UTILITY(U,$J,.85,514,0)
2557 ;;=VIETNAMESE^VI^VIE^^
2558 ;;^UTILITY(U,$J,.85,515,0)
2559 ;;=VOLAPUK^VO^VOL^^
2560 ;;^UTILITY(U,$J,.85,516,0)
2561 ;;=VOTIC^^VOT^^
2562 ;;^UTILITY(U,$J,.85,517,0)
2563 ;;=WALLOON^WA^WLN^^
2564 ;;^UTILITY(U,$J,.85,518,0)
2565 ;;=WARAY^^WAR^^
2566 ;;^UTILITY(U,$J,.85,519,0)
2567 ;;=WASHO^^WAS^^
2568 ;;^UTILITY(U,$J,.85,520,0)
2569 ;;=WELSH^CY^CYM^^WEL
2570 ;;^UTILITY(U,$J,.85,521,0)
2571 ;;=WOLAITTA^^WAL^^
2572 ;;^UTILITY(U,$J,.85,521,1,0)
2573 ;;=^.8501^1^1
2574 ;;^UTILITY(U,$J,.85,521,1,1,0)
2575 ;;=WOLAYTTA
2576 ;;^UTILITY(U,$J,.85,522,0)
2577 ;;=WOLOF^WO^WOL^^
2578 ;;^UTILITY(U,$J,.85,523,0)
2579 ;;=XHOSA^XH^XHO^^
2580 ;;^UTILITY(U,$J,.85,524,0)
2581 ;;=YAKUT^^SAH^^
2582 ;;^UTILITY(U,$J,.85,525,0)
2583 ;;=YAO^^YAO^^
2584 ;;^UTILITY(U,$J,.85,526,0)
2585 ;;=YAPESE^^YAP^^
2586 ;;^UTILITY(U,$J,.85,527,0)
2587 ;;=YIDDISH^YI^YID^^
2588 ;;^UTILITY(U,$J,.85,528,0)
2589 ;;=YORUBA^YO^YOR^^
2590 ;;^UTILITY(U,$J,.85,529,0)
2591 ;;=ZAPOTEC^^ZAP^^
2592 ;;^UTILITY(U,$J,.85,530,0)
2593 ;;=ZAZA^^ZZA^^
2594 ;;^UTILITY(U,$J,.85,530,1,0)
2595 ;;=^.8501^5^5
2596 ;;^UTILITY(U,$J,.85,530,1,1,0)
2597 ;;=DIMILI
2598 ;;^UTILITY(U,$J,.85,530,1,2,0)
2599 ;;=DIMLI
2600 ;;^UTILITY(U,$J,.85,530,1,3,0)
2601 ;;=KIRDKI
2602 ;;^UTILITY(U,$J,.85,530,1,4,0)
2603 ;;=KIRMANJKI
2604 ;;^UTILITY(U,$J,.85,530,1,5,0)
2605 ;;=ZAZAKI
2606 ;;^UTILITY(U,$J,.85,531,0)
2607 ;;=ZENAGA^^ZEN^^
2608 ;;^UTILITY(U,$J,.85,532,0)
2609 ;;=ZHUANG^ZA^ZHA^^
2610 ;;^UTILITY(U,$J,.85,532,1,0)
2611 ;;=^.8501^1^1
2612 ;;^UTILITY(U,$J,.85,532,1,1,0)
2613 ;;=CHUANG
2614 ;;^UTILITY(U,$J,.85,533,0)
2615 ;;=ZULU^ZU^ZUL^^
2616 ;;^UTILITY(U,$J,.85,534,0)
2617 ;;=ZUNI^^ZUN^^
2618
2619DILAI006
2620DILAI006 ; ; 02-NOV-2012
2621 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2622 I DSEC 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
2623Q Q
2624 ;;^DIC(.85,0,"AUDIT")
2625 ;;=
2626 ;;^DIC(.85,0,"DD")
2627 ;;=^
2628 ;;^DIC(.85,0,"DEL")
2629 ;;=^
2630 ;;^DIC(.85,0,"LAYGO")
2631 ;;=^
2632 ;;^DIC(.85,0,"RD")
2633 ;;=
2634 ;;^DIC(.85,0,"WR")
2635 ;;=^
2636
2637DILAI007
2638DILAI007 ; ; 02-NOV-2012
2639 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2640 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
2641Q Q
2642 ;;^UTILITY(U,$J,"SBF",.85,.85)
2643 ;;=
2644 ;;^UTILITY(U,$J,"SBF",.85,.8501)
2645 ;;=
2646 ;;^UTILITY(U,$J,"SBF",.85,.8502)
2647 ;;=
2648
2649DILAINI1
2650DILAINI1 ; ; 02-NOV-2012
2651 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2652 ; LOADS AND INDEXES DD'S
2653 ;
2654 K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DFR,DTN,DIX,DZ D DT^DICRW S %=1,U="^",DSEC=1
2655 S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
2656ASK I %=1,$D(DIFQ(0)) W !,"SHALL I WRITE OVER FILE SECURITY CODES" S %=2 D YN^DICN S DSEC=%=1 I %<1 K DIFQ Q
2657 Q:'$D(DIFQ) S %=2 W !!,"ARE YOU SURE EVERYTHING'S OK" D YN^DICN I %-1 K DIFQ Q
2658 I $D(DIFKEP) F DIDIU=0:0 S DIDIU=$O(DIFKEP(DIDIU)) Q:DIDIU'>0 S DIU=DIDIU,DIU(0)=DIFKEP(DIDIU) D EN^DIU2
2659 D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J) D WAIT^DICD
2660 S DN="^DILAI" F R=1:1:7 D @(DN_$$B36(R)) W "."
2661 F S D=$O(^UTILITY(U,$J,"SBF","")) Q:D'>0 K:'DIFQ(D) ^(D) S D=$O(^(D,"")) I D>0 K ^(D) D IX
2662KEYSNIX ; Keys and new style indexes installer ; new in FM V22.2
2663 N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
2664 N DIFRFILE S DIFRFILE=0 ; Loop through files
2665 F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
2666 . K ^TMP("DIFROMS2",$J,"TRIG")
2667 . N DIFRD S DIFRD=0
2668 . F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
2669 . K ^TMP("DIFROMS2",$J,"TRIG")
2670 . S DIFRD=0
2671 . F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
2672 K @DIFRSA ; kill off tran global
2673 ; VEN/SMH v22.2: Below I added a K D1 because it leaks from the call causing the key matching algo to fail.
2674DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
2675 I DIFQR(D) S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=DIFQR(D)'=2 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 K D1 Q:'$D(^(D0,0)) S Z=^(0) D I^DITR
2676 K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
2677 ;
2678W S Y=$P($T(@X),";",2) W !,"NOTE: This package also contains "_Y_"S",! Q:'$D(DIFQ(0))
2679 S %=1 W ?6,"SHALL I WRITE OVER EXISTING "_Y_"S OF THE SAME NAME" D YN^DICN I '% W !?6,"Answer YES to replace the current "_Y_"S with the incoming ones." G W
2680 S:%=2 DIFQ(X)=0 K:%<0 DIFQ
2681 Q
2682 ;
2683OPT ;OPTION
2684RTN ;ROUTINE DOCUMENTATION NOTE
2685FUN ;FUNCTION
2686BUL ;BULLETIN
2687KEY ;SECURITY KEY
2688HEL ;HELP FRAME
2689DIP ;PRINT TEMPLATE
2690DIE ;INPUT TEMPLATE
2691DIB ;SORT TEMPLATE
2692DIS ;FORM
2693REM ;REMOTE PROCEDURE
2694 ;
2695SBF ;FILE AND SUB FILE NUMBERS
2696IX W "." S DIK="A" F %=0:0 S DIK=$O(^DD(D,DIK)) Q:DIK="" K ^(DIK)
2697 S DA(1)=D,DIK="^DD("_D_"," D IXALL^DIK
2698 I $D(^DIC(D,"%",0)) S DIK="^DIC(D,""%""," G IXALL^DIK
2699 Q
2700B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
2701N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
2702
2703DILAINI2
2704DILAINI2 ; ; 02-NOV-2012
2705 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2706 ;
2707 ;
2708 K ^UTILITY("DIFROM",$J),DIC S DIDUZ=0 S:$D(DUZ)#2 DIDUZ=DUZ S DUZ=.5
2709 I $D(^DIC(9.2,0))#2,^(0)?1"HEL".E S (DIC,DLAYGO)=9.2,N="HEL",DIC(0)="LX" G ADD
2710 Q
2711 ;
2712ADD F R=0:0 S R=$O(^UTILITY(U,$J,N,R)) Q:R'>0 S X=$P(^(R,0),U,1) W "." K DA D ^DIC I Y>0,'$D(DIFQ(N))!$P(Y,U,3) S ^UTILITY("DIFROM",$J,N,X)=+Y K ^DIC(9.2,+Y,1),^(2),^(3),^(10) S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y D %XY^%RCR
2713 S DIK=DIC
2714HELP S R=$O(^UTILITY("DIFROM",$J,N,R)) Q:R="" W !,"'"_R_"' Help Frame filed." S DA=^(R)
2715 F X=0:0 S X=$O(^DIC(9.2,DA,2,X)) Q:'X S I=$S($D(^(X,0)):^(0),1:0),Y=$P(I,U,2) S:Y]"" Y=$O(^DIC(9.2,"B",Y,0)) S ^(0)=$P(^DIC(9.2,DA,2,X,0),U,1)_U_$S(Y>0:Y,1:"")_U_$P(^(0),U,3,99)
2716 S I=0 F X=0:0 S X=$O(^DIC(9.2,DA,10,X)) Q:'X I $D(^(X,0)) S Y=$P(^(0),U),Y=$S(Y]"":$O(^MAG("B",Y,0)),1:0) S:Y $P(^DIC(9.2,DA,10,X,0),U)=Y,I=I+1,%=X I 'Y K ^DIC(9.2,DA,10,X,0)
2717 I I S $P(^DIC(9.2,DA,10,0),U,3,4)=%_U_I
2718IX D IX1^DIK G HELP
2719 ;
2720U I $D(DIRUT) S DIFQ=1
2721 W ! Q
2722REP S DIR(0)="Y",DIR("A")="Shall I change the NAME of the file to "_DIF
2723 S DIR("??")="^D REP^DIFROMH1",DIR("B")="NO" D ^DIR G U:$D(DIRUT)
2724 I Y S DIE=1,DIFQ=0,DA=N,DR=".01////"_DIF D ^DIE Q
2725 S DIR("A")="Shall I replace your file with mine"
2726 S DIR("??")="^D AG^DIFROMH1" D ^DIR G U:$D(DIRUT)!'Y
2727 S DIU(0)="E",DIR("A")="Do you want to keep the Data"
2728 S DIR("??")="^D CHG^DIFROMH1" D ^DIR G U:$D(DIRUT)
2729 S:'Y DIU(0)=DIU(0)_"D"
2730 S DIR("A")="Do you want to keep the Templates"
2731 S DIR("??")="^D TEMP^DIFROMH1" D ^DIR G U:$D(DIRUT) S:'Y DIU(0)=DIU(0)_"T"
2732 S DIFQ(N)=1,DIFKEP(N)=DIU(0) W !?15," (",DIF,") " Q
2733
2734DILAINI3
2735DILAINI3 ; ; 02-NOV-2012
2736 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2737 ;
2738 ;
2739 K ^UTILITY("DIFROM",$J) S DIC(0)="LX",(DIC,DLAYGO)=3.6,N="BUL" D ADD:$D(^XMB(3.6,0))
2740 S X=0 F R=0:0 S X=$O(^UTILITY("DIFROM",$J,N,X)) Q:X="" W !,"'",X,"' BULLETIN FILED -- Remember to add mail groups for new bulletins."
2741 I $D(^DIC(9.4,0))#2,^(0)?1"PACK".E S N="PKG",(DIC,DLAYGO)=9.4 D ADD
2742 G NP:'$D(DA) S %=+$O(^DIC(9.4,DA,22,"B",DIFROM,0)) I $D(^DIC(9.4,DA,22,%,0)) S $P(^(0),U,3)=DT
2743 I $D(^DIC(9.4,DA,0))#2 S %=$P(^(0),U,4) I %]"" S %=$O(^DIC(9.2,"B",%,0)) S:%]"" $P(^DIC(9.4,DA,0),U,4)=%
2744OR I $D(^ORD(100.99))&$O(^UTILITY(U,$J,"OR","")) D EN^DILAINI4
2745NP K DIC,^UTILITY("DIFROM",$J) S DIC(0)="LX" I $D(^DIC(19,0))#2,^(0)?1"OPTION".E S (DIC,DLAYGO)=19,N="OPT" D ADD,OP
2746 I $D(^DIC(19.1,0))#2,($P(^(0),U)?1"SECUR".E)!($P(^(0),U)="KEY") S (DIC,DLAYGO)=19.1,N="KEY" D ADD K ^UTILITY("DIFROM",$J)
2747 I $D(^DIC(9.8,0))#2,^(0)?1"ROUTINE^".E S (DIC,DLAYGO)=9.8,N="RTN" D ADD
2748 S DIC=.5,DLAYGO=0,N="FUN" D ADD
2749 I $P($G(^DIC(8994,0)),U)="REMOTE PROCEDURE" S (DIC,DLAYGO)=8994,N="REM" D ADD
2750 S DIC("S")="I $P(^(0),U,4)=DIFL" F N="DIPT","DIBT","DIE" S DIC=U_N_"(" D ADD
2751 K DIC("S") S N="DIST(.404,",DIC=U_N,DLAYGO=.404 D ADD
2752 S DIC("S")="I $P(^(0),U,8)=DIFL",N="DIST(.403,",DIC=U_N,DLAYGO=.403 D ADD
2753 K ^UTILITY(U,$J),DIC,DLAYGO F DIFR="DIE","DIPT" D DIEZ
2754 K ^UTILITY("DIFROM",$J) Q
2755DIEZ I ^DD("VERSION")>17.4,'$D(DISYS) D OS^DII
2756 E S DISYS=^DD("OS")
2757 Q:'$D(^DD("OS",DISYS,"ZS"))
2758 S DIFR1=""
2759DZ1 S DIFR1=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1)) Q:DIFR1=""
2760 F DIFR2=0:0 S DIFR2=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1,DIFR2)) Q:'DIFR2 S Y=DIFR2 I $D(@(U_DIFR_"(Y,""ROU"")")) K ^("ROU") I $D(^("ROUOLD")) S X=^("ROUOLD"),DMAX=^DD("ROU") D:X]"" @("EN^DI"_$E(DIFR,3)_"Z")
2761 G DZ1
2762 ;
2763OP S R=$O(^UTILITY("DIFROM",$J,N,R)) I R="" K ^UTILITY("DIFROM",$J) G Q
2764 W !,"'"_R_"' Option Filed" S DA=+^UTILITY("DIFROM",$J,N,R) G:$P(^(R),U,2,3)="XUCORE^"!($P(^(R),U,2,3)="XUCOMMAND^") OP
2765 I $D(^DIC(19,DA,220)) S %=$P(^(220),U) S:%]"" %=$O(^XMB(3.6,"B",%,0)) S $P(^DIC(19,DA,220),U)=%,%=$P(^(220),U,3) S:%]"" %=$O(^XMB(3.8,"B",%,0)) S $P(^DIC(19,DA,220),U,3)=%
2766 S %=$P(^DIC(19,DA,0),U,12) S:%]"" %=$O(^DIC(9.4,"B",%,0))
2767 S $P(^DIC(19,DA,0),U,12)=%,%=$P(^(0),U,7),(DZ,DIX)=0
2768 D:$D(^DIC(19,DA,10,"B")) KAD(DA) S:%]"" %=$O(^DIC(9.2,"B",%,0)) S $P(^DIC(19,DA,0),U,7)=%,%=$P(^(0),U,4),%="MOQXL"[% K ^(10,"B"),^("C")
2769 F X=0:0 S X=$O(^DIC(19,DA,10,X)) Q:'X S I=$S($D(^(X,0)):^(0),1:0),Y=$S($D(^(U)):^(U),1:"") K ^DIC(19,DA,10,X) I Y]"",% S D=$O(^DIC(19,"B",Y,0)) I D S ^DIC(19,DA,10,X,0)=D_U_$P(I,U,2,9),DZ=DZ+1,DIX=X
2770 S:% ^DIC(19,DA,10,0)="^19.01PI^"_DIX_U_DZ D IX1^DIK G OP
2771 ;
2772ADD F R=0:0 S R=$O(^UTILITY(U,$J,N,R)) Q:R="" S X=$P(^(R,0),U),DIFL=$S(N="DIST(.403,":$P(^(0),U,8),N="DIST(.404,":$P(^(0),U,2),1:$P(^(0),U,4)) W "." K DA D ^DIC I Y>0,'$D(DIFQ($E(N,1,3)))!$P(Y,U,3) S Y=Y_U D A
2773Q Q
2774A I N="BUL" K % S %(0)=$G(@(DIC_"+Y,2,0)")) F %=0:0 S %=$O(@(DIC_"+Y,2,%)")) Q:'% S %(%)=$G(^(%,0))
2775 K:N'="KEY"&(N'="OPT") @(DIC_"+Y)") S ^UTILITY("DIFROM",$J,N,X)=Y S:$E(N,1,2)="DI" ^(X,+Y)="" S:N="PKG" DIFROM(0)=+Y Q:$P(Y,U,2,3)="XUCORE^"!($P(Y,U,2,3)="XUCOMMAND^")
2776 I N="BUL",%(0)]"" S @(DIC_"+Y,2,0)")=%(0) F %=0:0 S %=$O(%(%)) Q:'% S @(DIC_"+Y,2,%,0)")=%(%)
2777 I $E(N,1,2)="DI",('DIFL)!('$D(^DD(+DIFL))) D
2778 .W !,"**WARNING--"_$S(N="DIE":"INPUT",N="DIPT":"PRINT",N="DIBT":"SORT",1:"FORM or BLOCK")_$S(N'["DIST":" template ",1:" ")_$P(Y,U,2)_" has been installed,",!,"but associated file "_DIFL_" is not on your system!"
2779 .Q
2780 I N="OPT" S:$P(^DIC(19,+Y,0),U,6)]"" DIOPT=$P(^(0),U,6) I $O(^UTILITY(U,$J,N,R,1,0)) K ^DIC(19,+Y,1)
2781 I N="DIST(.403," D BLK
2782 S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y,DIK=DIC D %XY^%RCR
2783 D IX1^DIK:N'="OPT" I N="OPT",$D(DIOPT) S:$P(^DIC(19,DA,0),U,6)="" $P(^(0),U,6)=DIOPT K DIOPT
2784 I N="DIST(.403," D
2785 .N DIFRVAL S DIFRVAL=$$VAL^DIFROMSS(.403,DA)
2786 .I DIFRVAL W !,"Compiling form: ",$P(^DIST(.403,DA,0),U) D EN^DDSZ(DA) Q
2787 .W !,"ERROR: Form: ",$P(^DIST(.403,DA,0),U)," cannot be compiled"
2788 .Q
2789 Q
2790BLK F J=0:0 S J=$O(^UTILITY(U,$J,N,R,40,J)) Q:'J I $D(^(J,0)) S %=$P(^(0),U,2) S:%]"" %=$O(^DIST(.404,"B",%,0)) S:% $P(^UTILITY(U,$J,N,R,40,J,0),U,2)=% D B1
2791 K A0,A1,A2,J,L Q
2792B1 F L=0:0 S L=$O(^UTILITY(U,$J,N,R,40,J,40,L)) Q:'L S A0=$G(^(L,0)),%=$P(A0,U) I %]"" S %=$O(^DIST(.404,"B",%,0)) I % S $P(A0,U)=%,^UTILITY(U,$J,N,R,40,J,"BLK",%,0)=A0 D
2793 .N X S X=0
2794 .F S X=$O(^UTILITY(U,$J,N,R,40,J,40,L,X)) Q:X="" S ^UTILITY(U,$J,N,R,40,J,"BLK",%,X)=^(X)
2795 .Q
2796 S A0=$G(^UTILITY(U,$J,N,R,40,J,40,0)) Q:A0="" K ^UTILITY(U,$J,N,R,40,J,40) S (A1,A2)=0
2797 F L=0:0 S L=$O(^UTILITY(U,$J,N,R,40,J,"BLK",L)) Q:'L S ^UTILITY(U,$J,N,R,40,J,40,L,0)=^(L,0),A1=L,A2=A2+1 D
2798 .N X S X=0
2799 .F S X=$O(^UTILITY(U,$J,N,R,40,J,"BLK",L,X)) Q:X="" S ^UTILITY(U,$J,N,R,40,J,40,L,X)=^(X)
2800 .Q
2801 S $P(A0,U,3,4)=A1_U_A2,^UTILITY(U,$J,N,R,40,J,40,0)=A0 K ^UTILITY(U,$J,N,R,40,J,"BLK")
2802 Q
2803KAD(D0) N D1,X
2804 S X=0 F S X=$O(^DIC(19,D0,10,"B",X)) Q:X'>0 S D1=0 F S D1=$O(^DIC(19,D0,10,"B",X,D1)) Q:D1'>0 K ^DIC(19,"AD",X,D0,D1)
2805 Q
2806
2807DILAINI4
2808DILAINI4 ; ; 02-NOV-2012
2809 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2810 ;
2811 ;
2812EN S DA(1)=1,DIK="^ORD(100.99,1,5," I $D(^ORD(100.99,1,5,DA)) D ^DIK
2813 S %X="^UTILITY(U,$J,""OR"","_$O(^UTILITY(U,$J,"OR",""))_",",%Y=DIK_DA_","
2814 S:'$D(^ORD(100.99,1,5,0)) ^(0)="^100.995P^^" S $P(^(0),U,3,4)=DA_U_($P(^(0),U,4)+1)
2815 D %XY^%RCR S $P(^ORD(100.99,1,5,DA,0),U)=DA,%=$P(^(0),U,4)
2816 I %]"" S %=$O(^ORD(100.98,"B",%,0)) I %>0 S $P(^ORD(100.99,1,5,DA,0),U,4)=%
2817 D OR
2818 S DA(1)=1 D IX1^DIK
2819 Q
2820OR S (N,I)=0,X=""
2821 F S N=$O(^ORD(100.99,1,5,DA,1,N)) Q:'N S X=$P(^(N,0),U) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% ^ORD(100.99,1,5,DA,1,N,0)=% S X=N,I=I+1,(R,J)=0,Y="" D OR1
2822 S:I $P(^ORD(100.99,1,5,DA,1,0),U,3,4)=X_U_I S (N,I)=0,X=""
2823 F S N=$O(^ORD(100.99,1,5,DA,5,N)) Q:'N S X=$P(^(N,0),U,3) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% $P(^ORD(100.99,1,5,DA,5,N,0),U,3)=% S X=N,I=I+1
2824 S:I $P(^ORD(100.99,1,5,DA,5,0),U,3,4)=X_U_I K N,R,X,Y,I,J
2825 Q
2826OR1 N X F S R=$O(^ORD(100.99,1,5,DA,1,N,1,R)) Q:'R S X=$P(^(R,0),U) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% ^ORD(100.99,1,5,DA,1,N,1,R,0)=% S Y=R,J=J+1
2827 S:J $P(^ORD(100.99,1,5,DA,1,N,1,0),U,3,4)=Y_U_J
2828 Q
2829ADDP N I,J,N,R,DA,DLAYGO,DO S %=""
2830 S DIC="^ORD(101,",DIC(0)="LX",DLAYGO=101 D FILE^DICN K DIC Q:Y=-1 S %=+Y Q
2831
2832DILAINI5
2833DILAINI5 ; ; 02-NOV-2012
2834 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2835 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
2836 Q
2837IXF ;;
2838 ;;.85I;LANGUAGE;^DI(.85,;0;y;y;;;;;y;o
2839 ;;
2840
2841DILAINIT
2842DILAINIT ; ; 02-NOV-2012
2843 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
2844 ;
2845 K DIF,DIFQ,DIFQR,DIFQN,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DIFROM,DFR,DTN,DIX,DZ,DIRUT,DTOUT,DUOUT
2846 S DIOVRD=1,U="^",DIFQ=0,DIFROM="22.2" W !,"This version (#22.2) of 'DILAINIT' was created on 02-NOV-2012"
2847 W !?9,"(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)",!
2848 I $D(^DD("VERSION")),^("VERSION")'<22 G GO
2849 ;W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
2850 I ^DD("VERSION")<22 W !,"but I need version 22 of the VA FileMan!" G Q
2851GO ;
2852EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
2853 S DIFQ=0 K DIRUT,DTOUT,DUOUT
2854 F DIFRIR=1:1:1 S DIFRRTN="^DILAINI"_$E("5",DIFRIR) D @DIFRRTN
2855 W:1 !,"I AM GOING TO SET UP THE FOLLOWING FILES:" F I=1:2:2 S DIF(I)=^UTILITY("DIF",$J,I) D 1 G Q:DIFQ!$D(DIRUT) K DIF(I)
2856 S DIFROM="22.2" D PKG:'$D(DIFROM(0)),^DILAINI1 G Q:'$D(DIFQ) S DIK(0)="AB"
2857 F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),DIK=$P(%,";",5),N=$P(%,";",3),D=$P(%,";",4)_U_N D D K DIFQ(N)
2858 K DIFQR D ^DILAINI2,^DILAINI3
2859 L S DUZ=DIDUZ W:1 !,$C(7),"OK, I'M DONE.",!,"NO"_$P("TE THAT FILE",U,DSEC)_" SECURITY-CODE PROTECTION HAS BEEN MADE"
2860 I DIFROM F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),N=+$P(%,";",3) I N,$P(%,";",8)="y" S ^DD(N,0,"VR")=DIFROM
2861 I DIFROM(0)>0 F %="PRE","INI","INIT" S:$D(DIFROM(%)) $P(^DIC(9.4,DIFROM(0),%),U,2)=DIFROM(%)
2862 I $G(DIFQN) S $P(^(0),U,3,4)=$P(DIFQN,U,2)_U_($P(^DIC(0),U,4)+DIFQN) K DIFQN
2863 S:DIFROM(0)>0 ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
2864D S:$D(^DIC(+N,0))[0 ^(0)=D S X=$D(@(DIK_"0)")),^(0)=D_U_$S(X#2:$P(^(0),U,3,9),1:U)
2865 S DIFQR=DIFQR(+N) I ^DD("VERSION")>17.5,$D(^DD(+N,0,"DIK"))#2 S X=^("DIK"),Y=+N,DMAX=^DD("ROU") D EN^DIKZ
2866 I DIFQR D IXALL^DIK:$O(@(DIK_"0)")) W "."
2867 Q
2868R G REP^DILAINI2
2869 ;
28701 S N=+$P(DIF(I),";",3),DIF=$P(DIF(I),";",4),S=$P(DIF(I),";",5)
2871 W !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y") S Z=$S($D(^DIC(N,0))#2:^(0),1:"")
2872 I Z="" S DIFQ(N)=1,DIFQN=$G(DIFQN)+1_U_N G S
2873 I $L($P(Z,DIF)) W $C(7),!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!" D R Q:DIFQ G S:$D(DIFKEP(N)),1
2874 S DIFQ(N)=$P(DIF(I),";",7)'="n"
2875 I $L(Z) W $C(7),!,"Note: You already have the '",$P(Z,U),"' File." S DIFQ(0)=1
2876 S %=$E(^UTILITY("DIF",$J,I+1),4,245) I %]"" X % S DIFQ(N)=$T W:'$T !,"Screen on this Data Dictionary did not pass--DD will not be installed!" G S
2877 I $L(Z),$P(DIF(I),";",10)="y" S DIR("A")="Shall I write over the existing Data Definition",DIR("??")="^D DD^DIFROMH1",DIR("B")="YES",DIR(0)="Y" D ^DIR S DIFQ(N)=Y
2878S S DIFQR(N)=0 Q:$P(DIF(I),";",13)'="y"!$D(DIRUT)
2879 I $P(DIF(I),";",15)="y",$O(@(S_"0)"))>0 S DIF=$P(DIF(I),";",14)="o",DIR("A")="Want my data "_$P("merged with^to overwrite",U,DIF+1)_" yours",DIR("??")="^D DTA^DIFROMH1",DIR(0)="Y" D ^DIR S DIFQR(N)=$S('Y:Y,1:Y+DIF) Q
2880 S %=$P(DIF(I),";",14)="o" W !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." S DIFQR(N)=%+1
2881 Q
2882Q W $C(7),!!,"NO UPDATING HAS OCCURRED!" G Q^DIFROM0
2883 ;
2884PKG S X=$P($T(IXF),";",3),DIC="^DIC(9.4,",DIC(0)="",DIC("S")="I $P(^(0),U,2)="""_$P(X,U,2)_"""",X=$P(X,U) D ^DIC S DIFROM(0)=+Y K DIC
2885 Q
2886 ;
2887IXF ;;;1
2888
2889DINIT
2890DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM 30 Mar 1999 ; 11/14/12 11:18am
2891V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
2892 D KL^DINIT6
2893N ;
2894 D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW
2895 I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D
2896 . W $C(7),!!,"*** WARNING!! VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!
2897 S Y=$G(^DD("OS")) I Y,"1,2,3,4,5,6,10,11,12,13,15,"[(Y_",") W $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21." G KL^DINIT6
2898DO W !!,"Initialize VA FileMan now? NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6
2899 I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO
2900NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "
2901 R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")
2902 I X'?1AN.ANP W " ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA
2903 S %X=X
2904NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "
2905 R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)
2906 S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X
2907 I X'>0 W " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO
2908 ;***** REMOVE AFTER V21 INIT *****
2909 ;D
2910 ;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC Q:DIREC>10000 K ^DI(.84,DIREC,5)
2911 ;. Q
2912 ;*********************************
2913 K ^DD(0) D ^DINIT0,^DINIT11B
2914 D OSETC
2915 W ! S Y=1 D OS G KL^DINIT6:Y<0
2916 W !!,"Now loading other FileMan files--please wait." G GO
2917 ;
2918 ;
2919OS W ! S DIC="^DD(""OS"",",DIC(0)="IAQE",DIC("A")="TYPE OF MUMPS SYSTEM YOU ARE USING: " I $D(^DD("OS"))#2 S (DITZS,DIC("B"))=^("OS") S:DITZS=7 (DITZS,DIC("B"))=18
2920 E S (DITZS,^DD("OS"))=100
2921 D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y
2922 I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D
2923 . S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""
2924 . S ZTDESC="Set Operating System" D ^%ZTLOAD Q
2925Q K DITZS,ZTSK Q
2926VERSION ;
2927 S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
2928 ;
2929GO S I=$C(126),DIT=$P($H,",",2)
2930 S $P(^DIBT(0),U,1,2)="TEMPLATE^.4I",$P(^DIE(0),U,1,2)="TEMPLATE^.4I",$P(^DIPT(0),U,1,2)="TEMPLATE^.4I",^(.01,0)="CAPTIONED^",^("F",1)="S DIC=DCC,DA=D0 D EN^DIQ"
2931 S ^DIPT(.02,0)="FILE SECURITY CODES^^^1",^("F",1)=".01;L20"_I_"0;R13"_I_31_I_33_I_35_I_34_I_32_I_21_I_20
2932 S ^DIA(0)="AUDIT^1.1I"
2933 K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)
2934 K ^DIC(.403),^(.404),^(1.2)
2935 K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)
2936 F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")
2937 K ^DIC(.46),^DD(.46),^(.461),^(.463)
2938 K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)
2939 F I=1.521,1.52101,1.5211,1.5212,1.5213,1.5214,1.5215,1.5216,1.5217,1.5218,1.5219,1.52191,1.52192 K ^DIC(I),^DD(I)
2940 G ^DINIT0F0
2941 ;
2942OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
2943 N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0
2944 W !!,"Now loading MUMPS Operating System File"
2945 D ^DINIT21,OSDD^DINIT24
2946 S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3
2947 S ^DIC(.7,"%D",0)="^^5^5^2940908^"
2948 S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code. Since the code to invoke"
2949 S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"
2950 S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"
2951 S ^DIC(.7,"%D",4,0)="this file. During the FileMan INIT process an operating system is"
2952 S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."
2953 K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3
2954 K DA,DIK S DIK="^DD(""OS""," D X^DINIT3
2955 D
2956 . N I,DA,DIK F I=1,2,3,4,5,6,7,10,11,12,13,14,15 S DA=I,DIK="^DD(""OS""," D ^DIK
2957 . Q
2958 ;
2959 K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
2960 K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
2961 K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
2962 S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
2963 S $P(^DIC(.84,0),U,1,2)="DIALOG^.84",$P(^DI(.84,0),U,1,2)="DIALOG^.84I" I $D(^DIC(.84,0,"GL")) D A1^DINIT3
2964 S $P(^DIC(.85,0),U,1,2)="LANGUAGE^.85",$P(^DI(.85,0),U,1,2)="LANGUAGE^.85I" I $D(^DIC(.85,0,"GL")) D A1^DINIT3
2965 F I=.84,.841,.842,.844,.845,.847,.8471,.85,.8501,.8502 D XX^DINIT3 ; VEN/SMH - added .8501 and .8502 for new lang file
2966 ; Keys and new style indexes installer ; new in FM V22.2
2967 N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
2968 N DIFRFILE S DIFRFILE=0 ; Loop through files
2969 F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
2970 . K ^TMP("DIFROMS2",$J,"TRIG")
2971 . N DIFRD S DIFRD=0
2972 . F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
2973 . K ^TMP("DIFROMS2",$J,"TRIG")
2974 . S DIFRD=0
2975 . F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
2976 K @DIFRSA ; kill off tran global
2977 ;
2978 D DATA
2979 Q
2980 ;
2981 ; VEN/SMH - added kill D1 since that causes a problem with Transfer/Merge
2982 ; for keyed fields if it leaks from the symbol table.
2983DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
2984 S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=0 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 K D1 Q:'$D(^(D0,0)) S Z=^(0) D I^DITR
2985 K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
2986 ;
2987B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)
2988N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
2989
2990DINIT011
2991DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
2992 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
2993 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
2994Q Q
2995 ;;^DIC(.85,0,"GL")
2996 ;;=^DI(.85,
2997 ;;^DIC("B","LANGUAGE",.85)
2998 ;;=
2999 ;;^DIC(.85,"%",0)
3000 ;;=^1.005
3001 ;;^DIC(.85,"%D",0)
3002 ;;=^^27^27^3121101^
3003 ;;^DIC(.85,"%D",1,0)
3004 ;;=The LANGUAGE file is used both to officially identify a language, and to
3005 ;;^DIC(.85,"%D",2,0)
3006 ;;=store MUMPS code needed to do language-specific conversions of data such
3007 ;;^DIC(.85,"%D",3,0)
3008 ;;=as dates and numbers.
3009 ;;^DIC(.85,"%D",4,0)
3010 ;;=
3011 ;;^DIC(.85,"%D",5,0)
3012 ;;=Fileman distributes entries for the following languages:
3013 ;;^DIC(.85,"%D",6,0)
3014 ;;= ID Number (.001) Name (.01)
3015 ;;^DIC(.85,"%D",7,0)
3016 ;;= 1 English
3017 ;;^DIC(.85,"%D",8,0)
3018 ;;= 2 German
3019 ;;^DIC(.85,"%D",9,0)
3020 ;;= 3 Spanish
3021 ;;^DIC(.85,"%D",10,0)
3022 ;;= 4 French
3023 ;;^DIC(.85,"%D",11,0)
3024 ;;= 5 Finnish
3025 ;;^DIC(.85,"%D",12,0)
3026 ;;= 6 Italian
3027 ;;^DIC(.85,"%D",13,0)
3028 ;;= 7 Portuguese
3029 ;;^DIC(.85,"%D",14,0)
3030 ;;= 10 Arabic
3031 ;;^DIC(.85,"%D",15,0)
3032 ;;= 11 Russian
3033 ;;^DIC(.85,"%D",16,0)
3034 ;;= 12 Greek
3035 ;;^DIC(.85,"%D",17,0)
3036 ;;= 18 Hebrew
3037 ;;^DIC(.85,"%D",18,0)
3038 ;;=
3039 ;;^DIC(.85,"%D",19,0)
3040 ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
3041 ;;^DIC(.85,"%D",20,0)
3042 ;;=DILAINIT routines, shipped with Fileman 22.2.
3043 ;;^DIC(.85,"%D",21,0)
3044 ;;=
3045 ;;^DIC(.85,"%D",22,0)
3046 ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
3047 ;;^DIC(.85,"%D",23,0)
3048 ;;=also allows non-English text to be returned via FileMan calls.
3049 ;;^DIC(.85,"%D",24,0)
3050 ;;=
3051 ;;^DIC(.85,"%D",25,0)
3052 ;;=A note to VISTA developers: Although users can select entries by name,
3053 ;;^DIC(.85,"%D",26,0)
3054 ;;=software should use the official two or three letter codes to eliminiate
3055 ;;^DIC(.85,"%D",27,0)
3056 ;;=mistakes resulting from languages that have similar spelling.
3057 ;;^DIC(.85,"%MSC")
3058 ;;=3121114.111954
3059 ;;^DD(.85,0)
3060 ;;=FIELD^^10^20
3061 ;;^DD(.85,0,"DDA")
3062 ;;=N
3063 ;;^DD(.85,0,"DT")
3064 ;;=3121101
3065 ;;^DD(.85,0,"ID",.02)
3066 ;;=W " ",$P(^(0),U,2)
3067 ;;^DD(.85,0,"ID",.03)
3068 ;;=W " ",$P(^(0),U,3)
3069 ;;^DD(.85,0,"IX","F",.8501,.01)
3070 ;;=
3071 ;;^DD(.85,0,"NM","LANGUAGE")
3072 ;;=
3073 ;;^DD(.85,0,"PT",.007,.001)
3074 ;;=
3075 ;;^DD(.85,0,"PT",.008,.001)
3076 ;;=
3077 ;;^DD(.85,0,"PT",.009,.001)
3078 ;;=
3079 ;;^DD(.85,0,"PT",.4,709.1)
3080 ;;=
3081 ;;^DD(.85,0,"PT",.4,1819.1)
3082 ;;=
3083 ;;^DD(.85,0,"PT",.847,.01)
3084 ;;=
3085 ;;^DD(.85,0,"PT",.85,.08)
3086 ;;=
3087 ;;^DD(.85,0,"PT",.85,.09)
3088 ;;=
3089 ;;^DD(.85,0,"PT",1.008,.001)
3090 ;;=
3091 ;;^DD(.85,0,"PT",200,200.07)
3092 ;;=
3093 ;;^DD(.85,0,"PT",8989.3,207)
3094 ;;=
3095 ;;^DD(.85,.001,0)
3096 ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
3097 ;;^DD(.85,.001,3)
3098 ;;=Type a number between 1 and 9999999999, 0 decimal digits.
3099 ;;^DD(.85,.001,21,0)
3100 ;;=^^3^3^3121031^^
3101 ;;^DD(.85,.001,21,1,0)
3102 ;;=A number that is used to uniquely identify a language. This number
3103 ;;^DD(.85,.001,21,2,0)
3104 ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
3105 ;;^DD(.85,.001,21,3,0)
3106 ;;=during Kernel signon to signify which language Fileman should use.
3107 ;;^DD(.85,.001,23,0)
3108 ;;=^^31^31^3121031^
3109 ;;^DD(.85,.001,23,1,0)
3110 ;;=Entries in this file are standardized, with the contents controlled by
3111 ;;^DD(.85,.001,23,2,0)
3112 ;;=the Fileman Primary Development Team. The ID Number field is used to help
3113 ;;^DD(.85,.001,23,3,0)
3114 ;;=protect referential integrity in VISTA databases during upgrades to the
3115 ;;^DD(.85,.001,23,4,0)
3116 ;;=file. ID Number assignment corresponds to the order in which languages
3117 ;;^DD(.85,.001,23,5,0)
3118 ;;=were added to the file. They were added in segments.
3119 ;;^DD(.85,.001,23,6,0)
3120 ;;=
3121 ;;^DD(.85,.001,23,7,0)
3122 ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
3123 ;;^DD(.85,.001,23,8,0)
3124 ;;=were the first eleven languages added, in order. English is first because
3125 ;;^DD(.85,.001,23,9,0)
3126 ;;=Fileman was originally written in English. German is second because
3127 ;;^DD(.85,.001,23,10,0)
3128 ;;=Marcus Werners of Germany led the effort to create Fileman's dialog
3129 ;;^DD(.85,.001,23,11,0)
3130 ;;=framework, to make translating VISTA into other languages easier.
3131 ;;^DD(.85,.001,23,12,0)
3132 ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
3133 ;;^DD(.85,.001,23,13,0)
3134 ;;=which the Fileman team was approached by potential translators about
3135 ;;^DD(.85,.001,23,14,0)
3136 ;;=adding those languages to the file (though Finnish actually predates all
3137 ;;^DD(.85,.001,23,15,0)
3138 ;;=other translation efforts except English). Arabic was assigned ID Number
3139 ;;^DD(.85,.001,23,16,0)
3140 ;;=10 instead of 8 in recognition of the debt English owes Arabic for
3141 ;;^DD(.85,.001,23,17,0)
3142 ;;=introducing the decimal numbering system to Europe. Russian and Greek
3143 ;;^DD(.85,.001,23,18,0)
3144 ;;=were the next two translations the Fileman team was approached about. I
3145 ;;^DD(.85,.001,23,19,0)
3146 ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
3147 ;;^DD(.85,.001,23,20,0)
3148 ;;=sure there was a reason.
3149 ;;^DD(.85,.001,23,21,0)
3150 ;;=
3151 ;;^DD(.85,.001,23,22,0)
3152 ;;=Thereafter, languages are added in segments, in order by Name, starting
3153 ;;^DD(.85,.001,23,23,0)
3154 ;;=with ID Number 8. The segments correspond to the ISO 639 language
3155 ;;^DD(.85,.001,23,24,0)
3156 ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
3157 ;;^DD(.85,.001,23,25,0)
3158 ;;=so on). Each language has one unique record in this file, so wherever a
3159 ;;^DD(.85,.001,23,26,0)
3160 ;;=language in one segment has already been included in an earlier segment,
3161 ;;^DD(.85,.001,23,27,0)
3162 ;;=it is not included in the later segment (e.g., Greek was in segment one,
3163 ;;^DD(.85,.001,23,28,0)
3164 ;;=so it is not also added as a duplicate in segment two).
3165 ;;^DD(.85,.001,23,29,0)
3166 ;;=
3167 ;;^DD(.85,.001,23,30,0)
3168 ;;=This segmented approach makes it comparatively easy to upgrade the file
3169 ;;^DD(.85,.001,23,31,0)
3170 ;;=in discrete batches, to keep the update projects manageable.
3171 ;;^DD(.85,.001,"DT")
3172 ;;=3121031
3173 ;;^DD(.85,.01,0)
3174 ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
3175 ;;^DD(.85,.01,.1)
3176 ;;=Language-Name
3177 ;;^DD(.85,.01,3)
3178 ;;=Answer must be 1-60 characters in length.
3179 ;;^DD(.85,.01,21,0)
3180 ;;=^^10^10^3121031^
3181 ;;^DD(.85,.01,21,1,0)
3182 ;;=Enter the English name of the language, not the native name.
3183 ;;^DD(.85,.01,21,2,0)
3184 ;;=
3185 ;;^DD(.85,.01,21,3,0)
3186 ;;=The default is the English name from ISO 639, converted where necessary to
3187 ;;^DD(.85,.01,21,4,0)
3188 ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
3189 ;;^DD(.85,.01,21,5,0)
3190 ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
3191 ;;^DD(.85,.01,21,6,0)
3192 ;;=used.
3193 ;;^DD(.85,.01,21,7,0)
3194 ;;=
3195 ;;^DD(.85,.01,21,8,0)
3196 ;;=However, this use of ISO 639's spelling as a default is overridden in
3197 ;;^DD(.85,.01,21,9,0)
3198 ;;=several different ways to improve consistency across entries and to
3199 ;;^DD(.85,.01,21,10,0)
3200 ;;=reduce selection error.
3201 ;;^DD(.85,.01,23,0)
3202 ;;=^^63^63^3121031^
3203 ;;^DD(.85,.01,23,1,0)
3204 ;;=This is the English name of the language, not the native name. It
3205 ;;^DD(.85,.01,23,2,0)
3206 ;;=defaults to the English name from ISO 639, mixed case, converted where
3207 ;;^DD(.85,.01,23,3,0)
3208 ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
3209 ;;^DD(.85,.01,23,4,0)
3210 ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
3211 ;;^DD(.85,.01,23,5,0)
3212 ;;=spelling is used.
3213 ;;^DD(.85,.01,23,6,0)
3214 ;;=
3215 ;;^DD(.85,.01,23,7,0)
3216 ;;=However, this use of ISO 639's spelling as a default is overridden in
3217 ;;^DD(.85,.01,23,8,0)
3218 ;;=several different ways to improve consistency across entries and to
3219 ;;^DD(.85,.01,23,9,0)
3220 ;;=reduce selection error.
3221 ;;^DD(.85,.01,23,10,0)
3222 ;;=
3223 ;;^DD(.85,.01,23,11,0)
3224 ;;=For example, for most modern languages, the form of the name that
3225 ;;^DD(.85,.01,23,12,0)
3226 ;;=includes the word "Modern" and the parenthesized dates is an alternate
3227 ;;^DD(.85,.01,23,13,0)
3228 ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
3229 ;;^DD(.85,.01,23,14,0)
3230 ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
3231 ;;^DD(.85,.01,23,15,0)
3232 ;;=an alternate name and making the name "Greek" instead.
3233 ;;^DD(.85,.01,23,16,0)
3234 ;;=
3235 ;;^DD(.85,.01,23,17,0)
3236 ;;=Since most users of these systems are medical professionals rather than
3237 ;;^DD(.85,.01,23,18,0)
3238 ;;=linguists or historians, we emphasize modern languages and group
3239 ;;^DD(.85,.01,23,19,0)
3240 ;;=historical ones away from the modern names to reduce accidents. For
3241 ;;^DD(.85,.01,23,20,0)
3242 ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
3243 ;;^DD(.85,.01,23,21,0)
3244 ;;=an alternate name for "Old French" in this file, to move the obsolete
3245 ;;^DD(.85,.01,23,22,0)
3246 ;;=form of the language away from the modern one. Thus, "Old" languages,
3247 ;;^DD(.85,.01,23,23,0)
3248 ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
3249 ;;^DD(.85,.01,23,24,0)
3250 ;;=languages whose names look like historical ones, such as "Old Church
3251 ;;^DD(.85,.01,23,25,0)
3252 ;;=Slavonic", that are still living languages or in active liturgical use
3253 ;;^DD(.85,.01,23,26,0)
3254 ;;=are kept in this form if that is how they are best known.
3255 ;;^DD(.85,.01,23,27,0)
3256 ;;=
3257 ;;^DD(.85,.01,23,28,0)
3258 ;;=Also, such forms that include parenthetical dates are changed to remove
3259 ;;^DD(.85,.01,23,29,0)
3260 ;;=the dates and parentheses from the Name field; the original forms and
3261 ;;^DD(.85,.01,23,30,0)
3262 ;;=variants are preserved in the Alternate Name field.
3263 ;;^DD(.85,.01,23,31,0)
3264 ;;=
3265 ;;^DD(.85,.01,23,32,0)
3266 ;;=For similar reasons, language collections like "Banda languages" are
3267 ;;^DD(.85,.01,23,33,0)
3268 ;;=renamed as "Languages, Banda" to move them away from individual language
3269 ;;^DD(.85,.01,23,34,0)
3270 ;;=a patient might speak, like "Banda-Banda". The same was preserved from
3271 ;;^DD(.85,.01,23,35,0)
3272 ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
3273 ;;^DD(.85,.01,23,36,0)
3274 ;;=Portuguese-Based"), which are collective languages, to kepp them separate
3275 ;;^DD(.85,.01,23,37,0)
3276 ;;=from the individual languages they might be confused with (such as
3277 ;;^DD(.85,.01,23,38,0)
3278 ;;="Portuguese"). However, individual languages like "Haitian Creole" and
3279 ;;^DD(.85,.01,23,39,0)
3280 ;;="Chinook Jargon" whose ISO 639 names makes them sound like language
3281 ;;^DD(.85,.01,23,40,0)
3282 ;;=collections are nevertheless left as is, since these are the names they
3283 ;;^DD(.85,.01,23,41,0)
3284 ;;=are known by and since the distinguishing part of the name does come
3285 ;;^DD(.85,.01,23,42,0)
3286 ;;=first, allowing for unambiguous selection.
3287 ;;^DD(.85,.01,23,43,0)
3288 ;;=
3289 ;;^DD(.85,.01,23,44,0)
3290 ;;=Where the language name from ISO 639 is a list of alternative names, as
3291 ;;^DD(.85,.01,23,45,0)
3292 ;;=in "Catalan, Valencian", the dominant name (based on other code sets,
3293 ;;^DD(.85,.01,23,46,0)
3294 ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
3295 ;;^DD(.85,.01,23,47,0)
3296 ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
3297 ;;^DD(.85,.01,23,48,0)
3298 ;;=
3299 ;;^DD(.85,.01,23,49,0)
3300 ;;=As a general rule (except in the case of language collections), ISO 639
3301 ;;^DD(.85,.01,23,50,0)
3302 ;;=names that use commas to invert a language name (like "Sorbian, Upper")
3303 ;;^DD(.85,.01,23,51,0)
3304 ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
3305 ;;^DD(.85,.01,23,52,0)
3306 ;;=Alternate Name. We do not try to use commas in the Name field to group
3307 ;;^DD(.85,.01,23,53,0)
3308 ;;=together all related languages or dialects, though we do in the Alternate
3309 ;;^DD(.85,.01,23,54,0)
3310 ;;=Name field.
3311 ;;^DD(.85,.01,23,55,0)
3312 ;;=
3313 ;;^DD(.85,.01,23,56,0)
3314 ;;=In the Name field, parenthetical comments are generally restricted to
3315 ;;^DD(.85,.01,23,57,0)
3316 ;;=distinguishing between unrelated languages that have the same name, like
3317 ;;^DD(.85,.01,23,58,0)
3318 ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
3319 ;;^DD(.85,.01,23,59,0)
3320 ;;=parenthetical words will be (in order of preference) a country, a people,
3321 ;;^DD(.85,.01,23,60,0)
3322 ;;=or an alternate name of the language, so long as it distinguishes it from
3323 ;;^DD(.85,.01,23,61,0)
3324 ;;=the other identically named languages. To date, we have not had to change
3325 ;;^DD(.85,.01,23,62,0)
3326 ;;=any of the ISO 639 names we've imported to make or correct these
3327 ;;^DD(.85,.01,23,63,0)
3328 ;;=distinctions, but we stand ready to do so to enforce this pattern.
3329 ;;^DD(.85,.01,"DT")
3330 ;;=3121031
3331 ;;^DD(.85,.02,0)
3332 ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
3333 ;;^DD(.85,.02,3)
3334 ;;=Answer must be 2 characters in length.
3335 ;;^DD(.85,.02,21,0)
3336 ;;=^^3^3^3121101^^
3337 ;;^DD(.85,.02,21,1,0)
3338 ;;=Enter the two-letter code defined for this language in the ISO 639-1
3339 ;;^DD(.85,.02,21,2,0)
3340 ;;=standard. Not every language has a two-letter code; for those that do not
3341 ;;^DD(.85,.02,21,3,0)
3342 ;;=leave this field blank.
3343 ;;^DD(.85,.02,23,0)
3344 ;;=^^1^1^3121101^
3345 ;;^DD(.85,.02,23,1,0)
3346 ;;=Future versions of this file wil include an optional key on this field.
3347 ;;^DD(.85,.02,"DT")
3348 ;;=3121101
3349 ;;^DD(.85,.03,0)
3350 ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
3351 ;;^DD(.85,.03,3)
3352 ;;=Answer must be 3 characters in length.
3353 ;;^DD(.85,.03,21,0)
3354 ;;=^^2^2^3121101^^^^
3355 ;;^DD(.85,.03,21,1,0)
3356 ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
3357 ;;^DD(.85,.03,21,2,0)
3358 ;;=standard.
3359 ;;^DD(.85,.03,23,0)
3360 ;;=^^2^2^3121101^
3361 ;;^DD(.85,.03,23,1,0)
3362 ;;=When this file is upgraded to ISO-639-6, an optional key will be added to
3363 ;;^DD(.85,.03,23,2,0)
3364 ;;=this field.
3365 ;;^DD(.85,.03,"DT")
3366 ;;=3121101
3367 ;;^DD(.85,.04,0)
3368 ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
3369 ;;^DD(.85,.04,3)
3370 ;;=Answer must be 4 characters in length.
3371 ;;^DD(.85,.04,21,0)
3372 ;;=^^1^1^3121101^^^
3373 ;;^DD(.85,.04,21,1,0)
3374 ;;=Enter the four letter code associated with the language in ISO-639-6.
3375 ;;^DD(.85,.04,23,0)
3376 ;;=^^3^3^3121101^
3377 ;;^DD(.85,.04,23,1,0)
3378 ;;=This field is currently not used in this version of the release (as of
3379 ;;^DD(.85,.04,23,2,0)
3380 ;;=Fileman V22.2). In a future version when this file is upgraded to
3381 ;;^DD(.85,.04,23,3,0)
3382 ;;=ISO-639-6, a key will be added to this field.
3383 ;;^DD(.85,.04,"DT")
3384 ;;=3121101
3385 ;;^DD(.85,.05,0)
3386 ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
3387 ;;^DD(.85,.05,3)
3388 ;;=Answer must be 3 characters in length.
3389 ;;^DD(.85,.05,21,0)
3390 ;;=^^4^4^3121101^
3391 ;;^DD(.85,.05,21,1,0)
3392 ;;=This is the alternate three letter code for a language. This will only be
3393 ;;^DD(.85,.05,21,2,0)
3394 ;;=used in cases where the language abbreviation is different in English
3395 ;;^DD(.85,.05,21,3,0)
3396 ;;=than in the native language. E.g. GER instead of DEU; for German instead
3397 ;;^DD(.85,.05,21,4,0)
3398 ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
3399 ;;^DD(.85,.05,23,0)
3400 ;;=^^1^1^3121101^
3401 ;;^DD(.85,.05,23,1,0)
3402 ;;=In a future version of Fileman, this field will have an optional key.
3403
3404DINIT012
3405DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
3406 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
3407 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
3408Q Q
3409 ;;^DD(.85,.05,"DT")
3410 ;;=3121101
3411 ;;^DD(.85,.06,0)
3412 ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
3413 ;;^DD(.85,.06,3)
3414 ;;=Select a language's scope
3415 ;;^DD(.85,.06,21,0)
3416 ;;=^^12^12^3121031^
3417 ;;^DD(.85,.06,21,1,0)
3418 ;;=Enter the Scope of a Language.
3419 ;;^DD(.85,.06,21,2,0)
3420 ;;=
3421 ;;^DD(.85,.06,21,3,0)
3422 ;;=Individual if the language is an individually identifiable language
3423 ;;^DD(.85,.06,21,4,0)
3424 ;;=(e.g. 'Cantonese').
3425 ;;^DD(.85,.06,21,5,0)
3426 ;;=
3427 ;;^DD(.85,.06,21,6,0)
3428 ;;=Macrolanguage if the language encopasses several other languages (e.g.
3429 ;;^DD(.85,.06,21,7,0)
3430 ;;='Chinese')
3431 ;;^DD(.85,.06,21,8,0)
3432 ;;=
3433 ;;^DD(.85,.06,21,9,0)
3434 ;;=Collective if the language is a language group (e.g. 'Languages,
3435 ;;^DD(.85,.06,21,10,0)
3436 ;;=Sino-Tibetan')
3437 ;;^DD(.85,.06,21,11,0)
3438 ;;=
3439 ;;^DD(.85,.06,21,12,0)
3440 ;;=Special and Local are reserved for specific entries.
3441 ;;^DD(.85,.06,23,0)
3442 ;;=^^1^1^3121101^
3443 ;;^DD(.85,.06,23,1,0)
3444 ;;=The current version of this file does not distribute data for this field.
3445 ;;^DD(.85,.06,"DT")
3446 ;;=3121101
3447 ;;^DD(.85,.07,0)
3448 ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
3449 ;;^DD(.85,.07,.1)
3450 ;;=Historical Status
3451 ;;^DD(.85,.07,3)
3452 ;;=Select a choice.
3453 ;;^DD(.85,.07,21,0)
3454 ;;=^^12^12^3121101^^
3455 ;;^DD(.85,.07,21,1,0)
3456 ;;=Living means that the language is spoken today (e.g. English).
3457 ;;^DD(.85,.07,21,2,0)
3458 ;;=
3459 ;;^DD(.85,.07,21,3,0)
3460 ;;=Constructed means that the language is artificial (e.g. Esperanto).
3461 ;;^DD(.85,.07,21,4,0)
3462 ;;=
3463 ;;^DD(.85,.07,21,5,0)
3464 ;;=Ancient means that the language is very old and not spoken any more (e.g.
3465 ;;^DD(.85,.07,21,6,0)
3466 ;;=Ancient Egyptian).
3467 ;;^DD(.85,.07,21,7,0)
3468 ;;=
3469 ;;^DD(.85,.07,21,8,0)
3470 ;;=Historical means that the language was being used in the Medieval times
3471 ;;^DD(.85,.07,21,9,0)
3472 ;;=and is not spoken any more (e.g. Old High German).
3473 ;;^DD(.85,.07,21,10,0)
3474 ;;=
3475 ;;^DD(.85,.07,21,11,0)
3476 ;;=Extinct means that the language was being used recently but has died out
3477 ;;^DD(.85,.07,21,12,0)
3478 ;;=(e.g. Cornish).
3479 ;;^DD(.85,.07,23,0)
3480 ;;=^^1^1^3121101^
3481 ;;^DD(.85,.07,23,1,0)
3482 ;;=The current version of this file does not distribute data for this field.
3483 ;;^DD(.85,.07,"DT")
3484 ;;=3121101
3485 ;;^DD(.85,.08,0)
3486 ;;=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
3487 ;;^DD(.85,.08,3)
3488 ;;=Select a choice.
3489 ;;^DD(.85,.08,12)
3490 ;;=Only collective languages are selectable
3491 ;;^DD(.85,.08,12.1)
3492 ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
3493 ;;^DD(.85,.08,21,0)
3494 ;;=^^1^1^3121101^^
3495 ;;^DD(.85,.08,21,1,0)
3496 ;;=Enter a language collection to which this language belongs.
3497 ;;^DD(.85,.08,23,0)
3498 ;;=^^1^1^3121101^
3499 ;;^DD(.85,.08,23,1,0)
3500 ;;=The current version of this file does not distribute data for this field.
3501 ;;^DD(.85,.08,"DT")
3502 ;;=3121101
3503 ;;^DD(.85,.09,0)
3504 ;;=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
3505 ;;^DD(.85,.09,3)
3506 ;;=Enter a choice.
3507 ;;^DD(.85,.09,12)
3508 ;;=You may only select Macrolanguages
3509 ;;^DD(.85,.09,12.1)
3510 ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
3511 ;;^DD(.85,.09,21,0)
3512 ;;=^^3^3^3121101^
3513 ;;^DD(.85,.09,21,1,0)
3514 ;;=If this language is a dialect of a macrolanguage, select the
3515 ;;^DD(.85,.09,21,2,0)
3516 ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
3517 ;;^DD(.85,.09,21,3,0)
3518 ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
3519 ;;^DD(.85,.09,23,0)
3520 ;;=^^1^1^3121101^
3521 ;;^DD(.85,.09,23,1,0)
3522 ;;=The current version of this file does not distribute data for this field.
3523 ;;^DD(.85,.09,"DT")
3524 ;;=3121101
3525 ;;^DD(.85,1,0)
3526 ;;=ALTERNATE NAME^.8501^^1;0
3527 ;;^DD(.85,10,0)
3528 ;;=DESCRIPTION^.8502^^10;0
3529 ;;^DD(.85,10,"DT")
3530 ;;=3121031
3531 ;;^DD(.85,10.1,0)
3532 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3533 ;;^DD(.85,10.1,3)
3534 ;;=This is Standard MUMPS code.
3535 ;;^DD(.85,10.1,9)
3536 ;;=@
3537 ;;^DD(.85,10.1,21,0)
3538 ;;=^^6^6^2941121^^^^
3539 ;;^DD(.85,10.1,21,1,0)
3540 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
3541 ;;^DD(.85,10.1,21,2,0)
3542 ;;=this language. The code should set Y to the ordinal equivalent without
3543 ;;^DD(.85,10.1,21,3,0)
3544 ;;=altering any other variables in the environment. Ex. in English:
3545 ;;^DD(.85,10.1,21,4,0)
3546 ;;= Y=1 becomes Y=1ST
3547 ;;^DD(.85,10.1,21,5,0)
3548 ;;= Y=2 becomes Y=2ND
3549 ;;^DD(.85,10.1,21,6,0)
3550 ;;= Y=3 becomes Y=3RD etc.
3551 ;;^DD(.85,10.1,"DT")
3552 ;;=2940307
3553 ;;^DD(.85,10.2,0)
3554 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3555 ;;^DD(.85,10.2,3)
3556 ;;=This is Standard MUMPS code.
3557 ;;^DD(.85,10.2,9)
3558 ;;=@
3559 ;;^DD(.85,10.2,21,0)
3560 ;;=^^6^6^2941121^^^
3561 ;;^DD(.85,10.2,21,1,0)
3562 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
3563 ;;^DD(.85,10.2,21,2,0)
3564 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
3565 ;;^DD(.85,10.2,21,3,0)
3566 ;;=The code should set Y to the output, without altering any other variables
3567 ;;^DD(.85,10.2,21,4,0)
3568 ;;=in the environment. Ex. in English:
3569 ;;^DD(.85,10.2,21,5,0)
3570 ;;=
3571 ;;^DD(.85,10.2,21,6,0)
3572 ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
3573 ;;^DD(.85,10.2,"DT")
3574 ;;=2940307
3575 ;;^DD(.85,10.21,0)
3576 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3577 ;;^DD(.85,10.21,3)
3578 ;;=This is Standard MUMPS code.
3579 ;;^DD(.85,10.21,9)
3580 ;;=@
3581 ;;^DD(.85,10.21,21,0)
3582 ;;=^^22^22^2941122^
3583 ;;^DD(.85,10.21,21,1,0)
3584 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
3585 ;;^DD(.85,10.21,21,2,0)
3586 ;;=format, to printable format based on the various outputs from routine
3587 ;;^DD(.85,10.21,21,3,0)
3588 ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
3589 ;;^DD(.85,10.21,21,4,0)
3590 ;;=code, in addition to the internal date in Y, a third parameter will be
3591 ;;^DD(.85,10.21,21,5,0)
3592 ;;=defined to contain flags equivalent to the flag passed as the second input
3593 ;;^DD(.85,10.21,21,6,0)
3594 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
3595 ;;^DD(.85,10.21,21,7,0)
3596 ;;=altering any other variables in the environment. The output should be
3597 ;;^DD(.85,10.21,21,8,0)
3598 ;;=formatted based on these flags:
3599 ;;^DD(.85,10.21,21,9,0)
3600 ;;=
3601 ;;^DD(.85,10.21,21,10,0)
3602 ;;= 1 MMM DD, YYYY@HH:MM:SS
3603 ;;^DD(.85,10.21,21,11,0)
3604 ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
3605 ;;^DD(.85,10.21,21,12,0)
3606 ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
3607 ;;^DD(.85,10.21,21,13,0)
3608 ;;= 4 YY/MM/DD@HH:MM:SS
3609 ;;^DD(.85,10.21,21,14,0)
3610 ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
3611 ;;^DD(.85,10.21,21,15,0)
3612 ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
3613 ;;^DD(.85,10.21,21,16,0)
3614 ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
3615 ;;^DD(.85,10.21,21,17,0)
3616 ;;=
3617 ;;^DD(.85,10.21,21,18,0)
3618 ;;=letters in the flag
3619 ;;^DD(.85,10.21,21,19,0)
3620 ;;= S return always seconds
3621 ;;^DD(.85,10.21,21,20,0)
3622 ;;= U return uppercase month names
3623 ;;^DD(.85,10.21,21,21,0)
3624 ;;= P return time as am,pm
3625 ;;^DD(.85,10.21,21,22,0)
3626 ;;= D return only date part
3627 ;;^DD(.85,10.21,"DT")
3628 ;;=2940624
3629 ;;^DD(.85,10.22,0)
3630 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3631 ;;^DD(.85,10.22,3)
3632 ;;=This is Standard MUMPS code for the output of time only.
3633 ;;^DD(.85,10.22,9)
3634 ;;=@
3635 ;;^DD(.85,10.22,21,0)
3636 ;;=^^2^2^2960318^
3637 ;;^DD(.85,10.22,21,1,0)
3638 ;;=The code stored here will be used to get formatted output of the time
3639 ;;^DD(.85,10.22,21,2,0)
3640 ;;=part belonging to a FileMan Date/Time value.
3641 ;;^DD(.85,10.22,"DT")
3642 ;;=2960318
3643 ;;^DD(.85,10.3,0)
3644 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3645 ;;^DD(.85,10.3,3)
3646 ;;=This is Standard MUMPS code.
3647 ;;^DD(.85,10.3,9)
3648 ;;=@
3649 ;;^DD(.85,10.3,21,0)
3650 ;;=^^5^5^2941121^^
3651 ;;^DD(.85,10.3,21,1,0)
3652 ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
3653 ;;^DD(.85,10.3,21,2,0)
3654 ;;=this language. The code should set Y to the cardinal equivalent without
3655 ;;^DD(.85,10.3,21,3,0)
3656 ;;=altering any other variables in the environment. Ex. in English:
3657 ;;^DD(.85,10.3,21,4,0)
3658 ;;= Y=2000 becomes Y=2,000
3659 ;;^DD(.85,10.3,21,5,0)
3660 ;;= Y=1234567 becomes Y=1,234,567
3661 ;;^DD(.85,10.3,"DT")
3662 ;;=2940308
3663 ;;^DD(.85,10.4,0)
3664 ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3665 ;;^DD(.85,10.4,3)
3666 ;;=This is Standard MUMPS code.
3667 ;;^DD(.85,10.4,9)
3668 ;;=@
3669 ;;^DD(.85,10.4,21,0)
3670 ;;=^^4^4^2941121^
3671 ;;^DD(.85,10.4,21,1,0)
3672 ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
3673 ;;^DD(.85,10.4,21,2,0)
3674 ;;=this language. The code should set Y to the external format without
3675 ;;^DD(.85,10.4,21,3,0)
3676 ;;=altering any other variables in the environment. In English, changes
3677 ;;^DD(.85,10.4,21,4,0)
3678 ;;= abCdeF to: ABCDEF
3679 ;;^DD(.85,10.4,"DT")
3680 ;;=2940308
3681 ;;^DD(.85,10.5,0)
3682 ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3683 ;;^DD(.85,10.5,3)
3684 ;;=This is Standard MUMPS code.
3685 ;;^DD(.85,10.5,9)
3686 ;;=@
3687 ;;^DD(.85,10.5,21,0)
3688 ;;=^^4^4^2941121^
3689 ;;^DD(.85,10.5,21,1,0)
3690 ;;=MUMPS code used to convert text in Y to its lower-case equivalent in
3691 ;;^DD(.85,10.5,21,2,0)
3692 ;;=this language. The code should set Y to the external format without
3693 ;;^DD(.85,10.5,21,3,0)
3694 ;;=altering any other variables in the environment. In English, changes:
3695 ;;^DD(.85,10.5,21,4,0)
3696 ;;= ABcdEFgHij to: abcdefghij
3697 ;;^DD(.85,10.5,"DT")
3698 ;;=2940308
3699 ;;^DD(.85,20.2,0)
3700 ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
3701 ;;^DD(.85,20.2,3)
3702 ;;=This is Standard MUMPS code.
3703 ;;^DD(.85,20.2,9)
3704 ;;=@
3705 ;;^DD(.85,20.2,"DT")
3706 ;;=2940714
3707 ;;^DD(.8501,0)
3708 ;;=ALTERNATE NAME SUB-FIELD^^.01^1
3709 ;;^DD(.8501,0,"DT")
3710 ;;=3121101
3711 ;;^DD(.8501,0,"IX","B",.8501,.01)
3712 ;;=
3713 ;;^DD(.8501,0,"NM","ALTERNATE NAME")
3714 ;;=
3715 ;;^DD(.8501,0,"UP")
3716 ;;=.85
3717 ;;^DD(.8501,.01,0)
3718 ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
3719 ;;^DD(.8501,.01,1,0)
3720 ;;=^.1
3721 ;;^DD(.8501,.01,1,1,0)
3722 ;;=.8501^B
3723 ;;^DD(.8501,.01,1,1,1)
3724 ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
3725 ;;^DD(.8501,.01,1,1,2)
3726 ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
3727 ;;^DD(.8501,.01,1,2,0)
3728 ;;=.85^F
3729 ;;^DD(.8501,.01,1,2,1)
3730 ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
3731 ;;^DD(.8501,.01,1,2,2)
3732 ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
3733 ;;^DD(.8501,.01,1,2,3)
3734 ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
3735 ;;^DD(.8501,.01,1,2,"%D",0)
3736 ;;=^^1^1^3121101^
3737 ;;^DD(.8501,.01,1,2,"%D",1,0)
3738 ;;=Whole file cross-reference for ALTERNATE NAME multiple.
3739 ;;^DD(.8501,.01,1,2,"DT")
3740 ;;=3121101
3741 ;;^DD(.8501,.01,3)
3742 ;;=Answer must be 1-60 characters in length.
3743 ;;^DD(.8501,.01,21,0)
3744 ;;=^^2^2^3121101^^
3745 ;;^DD(.8501,.01,21,1,0)
3746 ;;=This field contains other synonyms for a language.
3747 ;;^DD(.8501,.01,21,2,0)
3748 ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
3749 ;;^DD(.8501,.01,"DT")
3750 ;;=3121101
3751 ;;^DD(.8502,0)
3752 ;;=DESCRIPTION SUB-FIELD^^.01^1
3753 ;;^DD(.8502,0,"DT")
3754 ;;=3121031
3755 ;;^DD(.8502,0,"NM","DESCRIPTION")
3756 ;;=
3757 ;;^DD(.8502,0,"UP")
3758 ;;=.85
3759 ;;^DD(.8502,.01,0)
3760 ;;=DESCRIPTION^Wx^^0;1
3761 ;;^DD(.8502,.01,3)
3762 ;;=Enter an optional language description
3763 ;;^DD(.8502,.01,"DT")
3764 ;;=3121031
3765 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
3766 ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
3767 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
3768 ;;=S ^DI(.85,"B",X,DA)=""
3769 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
3770 ;;=K ^DI(.85,"B",X,DA)
3771 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
3772 ;;=K ^DI(.85,"B")
3773 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
3774 ;;=^.114IA^1^1
3775 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
3776 ;;=1^F^.85^.01^^1^F
3777 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
3778 ;;=
3779 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
3780 ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
3781 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
3782 ;;=S ^DI(.85,"C",X,DA)=""
3783 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
3784 ;;=K ^DI(.85,"C",X,DA)
3785 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
3786 ;;=K ^DI(.85,"C")
3787 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
3788 ;;=^.114IA^1^1
3789 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
3790 ;;=1^F^.85^.02^^1^F
3791 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
3792 ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
3793 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
3794 ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
3795 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
3796 ;;=K ^DI(.85,"D",$E(X,1,30),DA)
3797 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
3798 ;;=K ^DI(.85,"D")
3799 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
3800 ;;=^.114IA^1^1
3801 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
3802 ;;=1^F^.85^.03^30^1^F
3803 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
3804 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
3805 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
3806 ;;=^^6^6^3121031^
3807 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
3808 ;;=This will add entries to the D index for the three letter code a la the
3809 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
3810 ;;=mnemonic style.
3811 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
3812 ;;=
3813 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
3814 ;;=If you need re-cross-reference this field, you need to kill of the
3815 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
3816 ;;=entries in the regular D index, set the D index, and then set this index
3817 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
3818 ;;=to update the D with the mnemonic xrefs.
3819 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
3820 ;;=S ^DI(.85,"D",X,DA)=1
3821 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
3822 ;;=K ^DI(.85,"D",X,DA)
3823 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
3824 ;;=^.114IA^1^1
3825 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
3826 ;;=1^F^.85^.05^^1^F
3827 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
3828 ;;=.85^A^P^1046
3829 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
3830 ;;=^.312IA^1^1
3831 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
3832 ;;=.01^.85^1
3833 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
3834 ;;=.85^B^S^1048
3835 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
3836 ;;=^.312IA^1^1
3837 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
3838 ;;=.03^.85^1
3839 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
3840 ;;=.85^B
3841 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
3842 ;;=.85^D
3843
3844DINIT013
3845DINIT013 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS ;3121101 ; 11/2/12 8:41am
3846 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
3847 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
3848Q Q
3849 ;;^UTILITY(U,$J,.85)
3850 ;;=^DI(.85,
3851 ;;^UTILITY(U,$J,.85,0)
3852 ;;=LANGUAGE^.85I^18^11
3853 ;;^UTILITY(U,$J,.85,1,0)
3854 ;;=ENGLISH^EN^ENG
3855 ;;^UTILITY(U,$J,.85,1,1,0)
3856 ;;=^.8501^2^2
3857 ;;^UTILITY(U,$J,.85,1,1,1,0)
3858 ;;=MODERN ENGLISH (1500-)
3859 ;;^UTILITY(U,$J,.85,1,1,2,0)
3860 ;;=ENGLISH,MODERN (1500-)
3861 ;;^UTILITY(U,$J,.85,1,"CRD")
3862 ;;=I Y S Y=$FN(Y,",")
3863 ;;^UTILITY(U,$J,.85,1,"DD")
3864 ;;=S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
3865 ;;^UTILITY(U,$J,.85,1,"FMTE")
3866 ;;=N RTN,%T S %T="."_$E($P(Y,".",2)_"000000",1,7),%F=$G(%F),RTN="F"_$S(%F<1:1,%F>7:1,1:+%F\1)_"^DILIBF" D @RTN S Y=%R
3867 ;;^UTILITY(U,$J,.85,1,"LC")
3868 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
3869 ;;^UTILITY(U,$J,.85,1,"ORD")
3870 ;;=I $G(Y) S Y=Y_$S(Y#10=1&(Y#100-11):"ST",Y#10=2&(Y#100-12):"ND",Y#10=3&(Y#100-13):"RD",1:"TH")
3871 ;;^UTILITY(U,$J,.85,1,"TIME")
3872 ;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
3873 ;;^UTILITY(U,$J,.85,1,"UC")
3874 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
3875 ;;^UTILITY(U,$J,.85,2,0)
3876 ;;=GERMAN^DE^DEU^^GER
3877 ;;^UTILITY(U,$J,.85,2,1,0)
3878 ;;=^.8501^7^7
3879 ;;^UTILITY(U,$J,.85,2,1,1,0)
3880 ;;=GERMAN, STANDARD
3881 ;;^UTILITY(U,$J,.85,2,1,2,0)
3882 ;;=STANDARD GERMAN
3883 ;;^UTILITY(U,$J,.85,2,1,3,0)
3884 ;;=DEUTSCH
3885 ;;^UTILITY(U,$J,.85,2,1,4,0)
3886 ;;=DEUTSCH SPRACHE
3887 ;;^UTILITY(U,$J,.85,2,1,5,0)
3888 ;;=TEDESCO
3889 ;;^UTILITY(U,$J,.85,2,1,6,0)
3890 ;;=MODERN GERMAN (1500-)
3891 ;;^UTILITY(U,$J,.85,2,1,7,0)
3892 ;;=GERMAN,MODERN (1500-)
3893 ;;^UTILITY(U,$J,.85,2,"CRD")
3894 ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
3895 ;;^UTILITY(U,$J,.85,2,"DD")
3896 ;;=S:Y Y=$S($E(Y,6,7):$E(Y,6,7)_".",1:"")_$S($E(Y,4,5):$E(Y,4,5)_".",1:"")_($E(Y,1,3)+1700)_$P(" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
3897 ;;^UTILITY(U,$J,.85,2,"LC")
3898 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
3899 ;;^UTILITY(U,$J,.85,2,"ORD")
3900 ;;=S:$G(Y) Y=Y_"."
3901 ;;^UTILITY(U,$J,.85,2,"TIME")
3902 ;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
3903 ;;^UTILITY(U,$J,.85,2,"UC")
3904 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
3905 ;;^UTILITY(U,$J,.85,3,0)
3906 ;;=SPANISH^ES^SPA
3907 ;;^UTILITY(U,$J,.85,3,1,0)
3908 ;;=^.8501^5^5
3909 ;;^UTILITY(U,$J,.85,3,1,1,0)
3910 ;;=CASTILIAN
3911 ;;^UTILITY(U,$J,.85,3,1,2,0)
3912 ;;=CASTELLANO
3913 ;;^UTILITY(U,$J,.85,3,1,3,0)
3914 ;;=ESPANOL
3915 ;;^UTILITY(U,$J,.85,3,1,4,0)
3916 ;;=MODERN SPANISH (1500-)
3917 ;;^UTILITY(U,$J,.85,3,1,5,0)
3918 ;;=SPANISH, MODERN (1500-)
3919 ;;^UTILITY(U,$J,.85,4,0)
3920 ;;=FRENCH^FR^FRA^^FRE
3921 ;;^UTILITY(U,$J,.85,4,1,0)
3922 ;;=^.8501^3^3
3923 ;;^UTILITY(U,$J,.85,4,1,1,0)
3924 ;;=FRANCAIS
3925 ;;^UTILITY(U,$J,.85,4,1,2,0)
3926 ;;=MODERN FRENCH (1600-)
3927 ;;^UTILITY(U,$J,.85,4,1,3,0)
3928 ;;=FRENCH, MODERN (1600-)
3929 ;;^UTILITY(U,$J,.85,5,0)
3930 ;;=FINNISH^FI^FIN
3931 ;;^UTILITY(U,$J,.85,5,1,0)
3932 ;;=^.8501^3^3
3933 ;;^UTILITY(U,$J,.85,5,1,1,0)
3934 ;;=SUOMEA
3935 ;;^UTILITY(U,$J,.85,5,1,2,0)
3936 ;;=SUOMI
3937 ;;^UTILITY(U,$J,.85,5,1,3,0)
3938 ;;=SUOMEN KIELI
3939 ;;^UTILITY(U,$J,.85,5,"DD")
3940 ;;=X:$G(Y) ^DD("DD")
3941 ;;^UTILITY(U,$J,.85,5,"ORD")
3942 ;;=I $G(Y) S Y=Y_"."
3943 ;;^UTILITY(U,$J,.85,6,0)
3944 ;;=ITALIAN^IT^ITA
3945 ;;^UTILITY(U,$J,.85,6,1,0)
3946 ;;=^.8501^2^2
3947 ;;^UTILITY(U,$J,.85,6,1,1,0)
3948 ;;=ITALIANO
3949 ;;^UTILITY(U,$J,.85,6,1,2,0)
3950 ;;=LINGUA ITALIANA
3951 ;;^UTILITY(U,$J,.85,7,0)
3952 ;;=PORTUGUESE^PT^POR
3953 ;;^UTILITY(U,$J,.85,7,1,0)
3954 ;;=^.8501^4^4
3955 ;;^UTILITY(U,$J,.85,7,1,1,0)
3956 ;;=PORTUGUES
3957 ;;^UTILITY(U,$J,.85,7,1,2,0)
3958 ;;=LINGUA PORTUGUESA
3959 ;;^UTILITY(U,$J,.85,7,1,3,0)
3960 ;;=MODERN PORTUGUESE (1516-)
3961 ;;^UTILITY(U,$J,.85,7,1,4,0)
3962 ;;=PORTUGUESE, MODERN (1516-)
3963 ;;^UTILITY(U,$J,.85,10,0)
3964 ;;=ARABIC^AR^ARA
3965 ;;^UTILITY(U,$J,.85,10,1,0)
3966 ;;=^.8501^2^2
3967 ;;^UTILITY(U,$J,.85,10,1,1,0)
3968 ;;=AL-'ARABIYYAH
3969 ;;^UTILITY(U,$J,.85,10,1,2,0)
3970 ;;='ARABI
3971 ;;^UTILITY(U,$J,.85,11,0)
3972 ;;=RUSSIAN^RU^RUS
3973 ;;^UTILITY(U,$J,.85,11,1,0)
3974 ;;=^.8501^2^2
3975 ;;^UTILITY(U,$J,.85,11,1,1,0)
3976 ;;=RUSSKI
3977 ;;^UTILITY(U,$J,.85,11,1,2,0)
3978 ;;=RUSSKIY YAZYK
3979 ;;^UTILITY(U,$J,.85,12,0)
3980 ;;=GREEK^EL^ELL^^GRE
3981 ;;^UTILITY(U,$J,.85,12,1,0)
3982 ;;=^.8501^9^9
3983 ;;^UTILITY(U,$J,.85,12,1,1,0)
3984 ;;=ELLINIKA
3985 ;;^UTILITY(U,$J,.85,12,1,2,0)
3986 ;;=ELLINIKI GLOSSA
3987 ;;^UTILITY(U,$J,.85,12,1,3,0)
3988 ;;=GRAECAE
3989 ;;^UTILITY(U,$J,.85,12,1,4,0)
3990 ;;=GREC
3991 ;;^UTILITY(U,$J,.85,12,1,5,0)
3992 ;;=GRECO
3993 ;;^UTILITY(U,$J,.85,12,1,6,0)
3994 ;;=NEO-HELLENIC
3995 ;;^UTILITY(U,$J,.85,12,1,7,0)
3996 ;;=ROMAIC
3997 ;;^UTILITY(U,$J,.85,12,1,8,0)
3998 ;;=MODERN GREEK (1453-)
3999 ;;^UTILITY(U,$J,.85,12,1,9,0)
4000 ;;=GREEK, MODERN (1453-)
4001 ;;^UTILITY(U,$J,.85,18,0)
4002 ;;=HEBREW^HE^HEB
4003 ;;^UTILITY(U,$J,.85,18,1,0)
4004 ;;=^.8501^3^3
4005 ;;^UTILITY(U,$J,.85,18,1,1,0)
4006 ;;=IVRIT
4007 ;;^UTILITY(U,$J,.85,18,1,2,0)
4008 ;;=MODERN HEBREW (1881-)
4009 ;;^UTILITY(U,$J,.85,18,1,3,0)
4010 ;;=HEBREW, MODERN (1881-)
4011
4012
4013
Note: See TracBrowser for help on using the repository browser.