source: lang-file4mu1and2/VW-LanguageFiles-DMLAINITs-DINITs-2012-11-20.ro@ 1697

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

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