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

Lang files inits. Run ^DINIT first, then run ^DILAINIT
GT.M 14-NOV-2012 11:28:46
DILAI001
DILAI001 ; ; 02-NOV-2012 ; 11/14/12 11:06am
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^DIC(.85,0,"GL")
 ;;=^DI(.85,
 ;;^DIC("B","LANGUAGE",.85)
 ;;=
 ;;^DIC(.85,"%",0)
 ;;=^1.005
 ;;^DIC(.85,"%D",0)
 ;;=^^27^27^3121101^
 ;;^DIC(.85,"%D",1,0)
 ;;=The LANGUAGE file is used both to officially identify a language, and to
 ;;^DIC(.85,"%D",2,0)
 ;;=store MUMPS code needed to do language-specific conversions of data such
 ;;^DIC(.85,"%D",3,0)
 ;;=as dates and numbers.
 ;;^DIC(.85,"%D",4,0)
 ;;= 
 ;;^DIC(.85,"%D",5,0)
 ;;=Fileman distributes entries for the following languages:
 ;;^DIC(.85,"%D",6,0)
 ;;= ID Number (.001)       Name (.01)
 ;;^DIC(.85,"%D",7,0)
 ;;=                1       English
 ;;^DIC(.85,"%D",8,0)
 ;;=                2       German
 ;;^DIC(.85,"%D",9,0)
 ;;=                3       Spanish
 ;;^DIC(.85,"%D",10,0)
 ;;=                4       French
 ;;^DIC(.85,"%D",11,0)
 ;;=                5       Finnish
 ;;^DIC(.85,"%D",12,0)
 ;;=                6       Italian
 ;;^DIC(.85,"%D",13,0)
 ;;=                7       Portuguese
 ;;^DIC(.85,"%D",14,0)
 ;;=               10       Arabic
 ;;^DIC(.85,"%D",15,0)
 ;;=               11       Russian
 ;;^DIC(.85,"%D",16,0)
 ;;=               12       Greek
 ;;^DIC(.85,"%D",17,0)
 ;;=               18       Hebrew
 ;;^DIC(.85,"%D",18,0)
 ;;= 
 ;;^DIC(.85,"%D",19,0)
 ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
 ;;^DIC(.85,"%D",20,0)
 ;;=DILAINIT routines, shipped with Fileman 22.2.
 ;;^DIC(.85,"%D",21,0)
 ;;= 
 ;;^DIC(.85,"%D",22,0)
 ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
 ;;^DIC(.85,"%D",23,0)
 ;;=also allows non-English text to be returned via FileMan calls.
 ;;^DIC(.85,"%D",24,0)
 ;;= 
 ;;^DIC(.85,"%D",25,0)
 ;;=A note to VISTA developers: Although users can select entries by name, 
 ;;^DIC(.85,"%D",26,0)
 ;;=software should use the official two or three letter codes to eliminiate 
 ;;^DIC(.85,"%D",27,0)
 ;;=mistakes resulting from languages that have similar spelling.
 ;;^DIC(.85,"%MSC")
 ;;=3121114.111954
 ;;^DD(.85,0)
 ;;=FIELD^^10^20
 ;;^DD(.85,0,"DDA")
 ;;=N
 ;;^DD(.85,0,"DT")
 ;;=3121101
 ;;^DD(.85,0,"ID",.02)
 ;;=W "   ",$P(^(0),U,2)
 ;;^DD(.85,0,"ID",.03)
 ;;=W "   ",$P(^(0),U,3)
 ;;^DD(.85,0,"IX","F",.8501,.01)
 ;;=
 ;;^DD(.85,0,"NM","LANGUAGE")
 ;;=
 ;;^DD(.85,0,"PT",.007,.001)
 ;;=
 ;;^DD(.85,0,"PT",.008,.001)
 ;;=
 ;;^DD(.85,0,"PT",.009,.001)
 ;;=
 ;;^DD(.85,0,"PT",.4,709.1)
 ;;=
 ;;^DD(.85,0,"PT",.4,1819.1)
 ;;=
 ;;^DD(.85,0,"PT",.847,.01)
 ;;=
 ;;^DD(.85,0,"PT",.85,.08)
 ;;=
 ;;^DD(.85,0,"PT",.85,.09)
 ;;=
 ;;^DD(.85,0,"PT",1.008,.001)
 ;;=
 ;;^DD(.85,0,"PT",200,200.07)
 ;;=
 ;;^DD(.85,0,"PT",8989.3,207)
 ;;=
 ;;^DD(.85,.001,0)
 ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
 ;;^DD(.85,.001,3)
 ;;=Type a number between 1 and 9999999999, 0 decimal digits.
 ;;^DD(.85,.001,21,0)
 ;;=^^3^3^3121031^^
 ;;^DD(.85,.001,21,1,0)
 ;;=A number that is used to uniquely identify a language.  This number
 ;;^DD(.85,.001,21,2,0)
 ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
 ;;^DD(.85,.001,21,3,0)
 ;;=during Kernel signon to signify which language Fileman should use.
 ;;^DD(.85,.001,23,0)
 ;;=^^31^31^3121031^
 ;;^DD(.85,.001,23,1,0)
 ;;=Entries in this file are standardized, with the contents controlled by 
 ;;^DD(.85,.001,23,2,0)
 ;;=the Fileman Primary Development Team. The ID Number field is used to help 
 ;;^DD(.85,.001,23,3,0)
 ;;=protect referential integrity in VISTA databases during upgrades to the 
 ;;^DD(.85,.001,23,4,0)
 ;;=file. ID Number assignment corresponds to the order in which languages 
 ;;^DD(.85,.001,23,5,0)
 ;;=were added to the file. They were added in segments.
 ;;^DD(.85,.001,23,6,0)
 ;;= 
 ;;^DD(.85,.001,23,7,0)
 ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which 
 ;;^DD(.85,.001,23,8,0)
 ;;=were the first eleven languages added, in order. English is first because 
 ;;^DD(.85,.001,23,9,0)
 ;;=Fileman was originally written in English. German is second because 
 ;;^DD(.85,.001,23,10,0)
 ;;=Marcus Werners of Germany led the effort to create Fileman's dialog 
 ;;^DD(.85,.001,23,11,0)
 ;;=framework, to make translating VISTA into other languages easier. 
 ;;^DD(.85,.001,23,12,0)
 ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in 
 ;;^DD(.85,.001,23,13,0)
 ;;=which the Fileman team was approached by potential translators about 
 ;;^DD(.85,.001,23,14,0)
 ;;=adding those languages to the file (though Finnish actually predates all 
 ;;^DD(.85,.001,23,15,0)
 ;;=other translation efforts except English). Arabic was assigned ID Number 
 ;;^DD(.85,.001,23,16,0)
 ;;=10 instead of 8 in recognition of the debt English owes Arabic for 
 ;;^DD(.85,.001,23,17,0)
 ;;=introducing the decimal numbering system to Europe. Russian and Greek 
 ;;^DD(.85,.001,23,18,0)
 ;;=were the next two translations the Fileman team was approached about. I 
 ;;^DD(.85,.001,23,19,0)
 ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm 
 ;;^DD(.85,.001,23,20,0)
 ;;=sure there was a reason.
 ;;^DD(.85,.001,23,21,0)
 ;;= 
 ;;^DD(.85,.001,23,22,0)
 ;;=Thereafter, languages are added in segments, in order by Name, starting 
 ;;^DD(.85,.001,23,23,0)
 ;;=with ID Number 8. The segments correspond to the ISO 639 language 
 ;;^DD(.85,.001,23,24,0)
 ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and 
 ;;^DD(.85,.001,23,25,0)
 ;;=so on). Each language has one unique record in this file, so wherever a 
 ;;^DD(.85,.001,23,26,0)
 ;;=language in one segment has already been included in an earlier segment, 
 ;;^DD(.85,.001,23,27,0)
 ;;=it is not included in the later segment (e.g., Greek was in segment one, 
 ;;^DD(.85,.001,23,28,0)
 ;;=so it is not also added as a duplicate in segment two).
 ;;^DD(.85,.001,23,29,0)
 ;;= 
 ;;^DD(.85,.001,23,30,0)
 ;;=This segmented approach makes it comparatively easy to upgrade the file 
 ;;^DD(.85,.001,23,31,0)
 ;;=in discrete batches, to keep the update projects manageable.
 ;;^DD(.85,.001,"DT")
 ;;=3121031
 ;;^DD(.85,.01,0)
 ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
 ;;^DD(.85,.01,.1)
 ;;=Language-Name
 ;;^DD(.85,.01,3)
 ;;=Answer must be 1-60 characters in length.
 ;;^DD(.85,.01,21,0)
 ;;=^^10^10^3121031^
 ;;^DD(.85,.01,21,1,0)
 ;;=Enter the English name of the language, not the native name. 
 ;;^DD(.85,.01,21,2,0)
 ;;= 
 ;;^DD(.85,.01,21,3,0)
 ;;=The default is the English name from ISO 639, converted where necessary to
 ;;^DD(.85,.01,21,4,0)
 ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
 ;;^DD(.85,.01,21,5,0)
 ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
 ;;^DD(.85,.01,21,6,0)
 ;;=used.
 ;;^DD(.85,.01,21,7,0)
 ;;= 
 ;;^DD(.85,.01,21,8,0)
 ;;=However, this use of ISO 639's spelling as a default is overridden in 
 ;;^DD(.85,.01,21,9,0)
 ;;=several different ways to improve consistency across entries and to 
 ;;^DD(.85,.01,21,10,0)
 ;;=reduce selection error.
 ;;^DD(.85,.01,23,0)
 ;;=^^63^63^3121031^
 ;;^DD(.85,.01,23,1,0)
 ;;=This is the English name of the language, not the native name. It 
 ;;^DD(.85,.01,23,2,0)
 ;;=defaults to the English name from ISO 639, mixed case, converted where 
 ;;^DD(.85,.01,23,3,0)
 ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central 
 ;;^DD(.85,.01,23,4,0)
 ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's 
 ;;^DD(.85,.01,23,5,0)
 ;;=spelling is used.
 ;;^DD(.85,.01,23,6,0)
 ;;= 
 ;;^DD(.85,.01,23,7,0)
 ;;=However, this use of ISO 639's spelling as a default is overridden in 
 ;;^DD(.85,.01,23,8,0)
 ;;=several different ways to improve consistency across entries and to 
 ;;^DD(.85,.01,23,9,0)
 ;;=reduce selection error.
 ;;^DD(.85,.01,23,10,0)
 ;;= 
 ;;^DD(.85,.01,23,11,0)
 ;;=For example, for most modern languages, the form of the name that 
 ;;^DD(.85,.01,23,12,0)
 ;;=includes the word "Modern" and the parenthesized dates is an alternate 
 ;;^DD(.85,.01,23,13,0)
 ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we 
 ;;^DD(.85,.01,23,14,0)
 ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)" 
 ;;^DD(.85,.01,23,15,0)
 ;;=an alternate name and making the name "Greek" instead.
 ;;^DD(.85,.01,23,16,0)
 ;;= 
 ;;^DD(.85,.01,23,17,0)
 ;;=Since most users of these systems are medical professionals rather than 
 ;;^DD(.85,.01,23,18,0)
 ;;=linguists or historians, we emphasize modern languages and group 
 ;;^DD(.85,.01,23,19,0)
 ;;=historical ones away from the modern names to reduce accidents. For 
 ;;^DD(.85,.01,23,20,0)
 ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as 
 ;;^DD(.85,.01,23,21,0)
 ;;=an alternate name for "Old French" in this file, to move the obsolete 
 ;;^DD(.85,.01,23,22,0)
 ;;=form of the language away from the modern one. Thus, "Old" languages, 
 ;;^DD(.85,.01,23,23,0)
 ;;="Ancient" ones, and "Middle" ones will tend to sort together. However, 
 ;;^DD(.85,.01,23,24,0)
 ;;=languages whose names look like historical ones, such as "Old Church 
 ;;^DD(.85,.01,23,25,0)
 ;;=Slavonic", that are still living languages or in active liturgical use 
 ;;^DD(.85,.01,23,26,0)
 ;;=are kept in this form if that is how they are best known.
 ;;^DD(.85,.01,23,27,0)
 ;;= 
 ;;^DD(.85,.01,23,28,0)
 ;;=Also, such forms that include parenthetical dates are changed to remove 
 ;;^DD(.85,.01,23,29,0)
 ;;=the dates and parentheses from the Name field; the original forms and 
 ;;^DD(.85,.01,23,30,0)
 ;;=variants are preserved in the Alternate Name field.
 ;;^DD(.85,.01,23,31,0)
 ;;= 
 ;;^DD(.85,.01,23,32,0)
 ;;=For similar reasons, language collections like "Banda languages" are 
 ;;^DD(.85,.01,23,33,0)
 ;;=renamed as "Languages, Banda" to move them away from individual language 
 ;;^DD(.85,.01,23,34,0)
 ;;=a patient might speak, like "Banda-Banda". The same was preserved from 
 ;;^DD(.85,.01,23,35,0)
 ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins, 
 ;;^DD(.85,.01,23,36,0)
 ;;=Portuguese-Based"), which are collective languages, to kepp them separate 
 ;;^DD(.85,.01,23,37,0)
 ;;=from the individual languages they might be confused with (such as 
 ;;^DD(.85,.01,23,38,0)
 ;;="Portuguese"). However, individual languages like "Haitian Creole" and 
 ;;^DD(.85,.01,23,39,0)
 ;;="Chinook Jargon" whose ISO 639 names makes them sound like language 
 ;;^DD(.85,.01,23,40,0)
 ;;=collections are nevertheless left as is, since these are the names they 
 ;;^DD(.85,.01,23,41,0)
 ;;=are known by and since the distinguishing part of the name does come 
 ;;^DD(.85,.01,23,42,0)
 ;;=first, allowing for unambiguous selection.
 ;;^DD(.85,.01,23,43,0)
 ;;= 
 ;;^DD(.85,.01,23,44,0)
 ;;=Where the language name from ISO 639 is a list of alternative names, as 
 ;;^DD(.85,.01,23,45,0)
 ;;=in "Catalan, Valencian", the dominant name (based on other code sets, 
 ;;^DD(.85,.01,23,46,0)
 ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the 
 ;;^DD(.85,.01,23,47,0)
 ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
 ;;^DD(.85,.01,23,48,0)
 ;;= 
 ;;^DD(.85,.01,23,49,0)
 ;;=As a general rule (except in the case of language collections), ISO 639 
 ;;^DD(.85,.01,23,50,0)
 ;;=names that use commas to invert a language name (like "Sorbian, Upper") 
 ;;^DD(.85,.01,23,51,0)
 ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an 
 ;;^DD(.85,.01,23,52,0)
 ;;=Alternate Name. We do not try to use commas in the Name field to group 
 ;;^DD(.85,.01,23,53,0)
 ;;=together all related languages or dialects, though we do in the Alternate 
 ;;^DD(.85,.01,23,54,0)
 ;;=Name field.
 ;;^DD(.85,.01,23,55,0)
 ;;= 
 ;;^DD(.85,.01,23,56,0)
 ;;=In the Name field, parenthetical comments are generally restricted to 
 ;;^DD(.85,.01,23,57,0)
 ;;=distinguishing between unrelated languages that have the same name, like 
 ;;^DD(.85,.01,23,58,0)
 ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The 
 ;;^DD(.85,.01,23,59,0)
 ;;=parenthetical words will be (in order of preference) a country, a people, 
 ;;^DD(.85,.01,23,60,0)
 ;;=or an alternate name of the language, so long as it distinguishes it from 
 ;;^DD(.85,.01,23,61,0)
 ;;=the other identically named languages. To date, we have not had to change 
 ;;^DD(.85,.01,23,62,0)
 ;;=any of the ISO 639 names we've imported to make or correct these 
 ;;^DD(.85,.01,23,63,0)
 ;;=distinctions, but we stand ready to do so to enforce this pattern.
 ;;^DD(.85,.01,"DT")
 ;;=3121031
 ;;^DD(.85,.02,0)
 ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
 ;;^DD(.85,.02,3)
 ;;=Answer must be 2 characters in length.
 ;;^DD(.85,.02,21,0)
 ;;=^^3^3^3121101^^
 ;;^DD(.85,.02,21,1,0)
 ;;=Enter the two-letter code defined for this language in the ISO 639-1
 ;;^DD(.85,.02,21,2,0)
 ;;=standard. Not every language has a two-letter code; for those that do not
 ;;^DD(.85,.02,21,3,0)
 ;;=leave this field blank.
 ;;^DD(.85,.02,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.02,23,1,0)
 ;;=Future versions of this file wil include an optional key on this field.
 ;;^DD(.85,.02,"DT")
 ;;=3121101
 ;;^DD(.85,.03,0)
 ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
 ;;^DD(.85,.03,3)
 ;;=Answer must be 3 characters in length.
 ;;^DD(.85,.03,21,0)
 ;;=^^2^2^3121101^^^^
 ;;^DD(.85,.03,21,1,0)
 ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
 ;;^DD(.85,.03,21,2,0)
 ;;=standard.
 ;;^DD(.85,.03,23,0)
 ;;=^^2^2^3121101^
 ;;^DD(.85,.03,23,1,0)
 ;;=When this file is upgraded to ISO-639-6, an optional key will be added to 
 ;;^DD(.85,.03,23,2,0)
 ;;=this field.
 ;;^DD(.85,.03,"DT")
 ;;=3121101
 ;;^DD(.85,.04,0)
 ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
 ;;^DD(.85,.04,3)
 ;;=Answer must be 4 characters in length.
 ;;^DD(.85,.04,21,0)
 ;;=^^1^1^3121101^^^
 ;;^DD(.85,.04,21,1,0)
 ;;=Enter the four letter code associated with the language in ISO-639-6. 
 ;;^DD(.85,.04,23,0)
 ;;=^^3^3^3121101^
 ;;^DD(.85,.04,23,1,0)
 ;;=This field is currently not used in this version of the release (as of
 ;;^DD(.85,.04,23,2,0)
 ;;=Fileman V22.2). In a future version when this file is upgraded to 
 ;;^DD(.85,.04,23,3,0)
 ;;=ISO-639-6, a key will be added to this field.
 ;;^DD(.85,.04,"DT")
 ;;=3121101
 ;;^DD(.85,.05,0)
 ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
 ;;^DD(.85,.05,3)
 ;;=Answer must be 3 characters in length.
 ;;^DD(.85,.05,21,0)
 ;;=^^4^4^3121101^
 ;;^DD(.85,.05,21,1,0)
 ;;=This is the alternate three letter code for a language. This will only be 
 ;;^DD(.85,.05,21,2,0)
 ;;=used in cases where the language abbreviation is different in English 
 ;;^DD(.85,.05,21,3,0)
 ;;=than in the native language. E.g. GER instead of DEU; for German instead 
 ;;^DD(.85,.05,21,4,0)
 ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
 ;;^DD(.85,.05,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.05,23,1,0)
 ;;=In a future version of Fileman, this field will have an optional key.

DILAI002
DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^DD(.85,.05,"DT")
 ;;=3121102
 ;;^DD(.85,.06,0)
 ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
 ;;^DD(.85,.06,3)
 ;;=Select a language's scope
 ;;^DD(.85,.06,21,0)
 ;;=^^12^12^3121031^
 ;;^DD(.85,.06,21,1,0)
 ;;=Enter the Scope of a Language.
 ;;^DD(.85,.06,21,2,0)
 ;;= 
 ;;^DD(.85,.06,21,3,0)
 ;;=Individual if the language is an individually identifiable language 
 ;;^DD(.85,.06,21,4,0)
 ;;=(e.g. 'Cantonese').
 ;;^DD(.85,.06,21,5,0)
 ;;= 
 ;;^DD(.85,.06,21,6,0)
 ;;=Macrolanguage if the language encopasses several other languages (e.g. 
 ;;^DD(.85,.06,21,7,0)
 ;;='Chinese')
 ;;^DD(.85,.06,21,8,0)
 ;;= 
 ;;^DD(.85,.06,21,9,0)
 ;;=Collective if the language is a language group (e.g. 'Languages, 
 ;;^DD(.85,.06,21,10,0)
 ;;=Sino-Tibetan')
 ;;^DD(.85,.06,21,11,0)
 ;;= 
 ;;^DD(.85,.06,21,12,0)
 ;;=Special and Local are reserved for specific entries.
 ;;^DD(.85,.06,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.06,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.06,"DT")
 ;;=3121101
 ;;^DD(.85,.07,0)
 ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
 ;;^DD(.85,.07,.1)
 ;;=Historical Status
 ;;^DD(.85,.07,3)
 ;;=Select a choice.
 ;;^DD(.85,.07,21,0)
 ;;=^^12^12^3121101^^
 ;;^DD(.85,.07,21,1,0)
 ;;=Living means that the language is spoken today (e.g. English).
 ;;^DD(.85,.07,21,2,0)
 ;;= 
 ;;^DD(.85,.07,21,3,0)
 ;;=Constructed means that the language is artificial (e.g. Esperanto).
 ;;^DD(.85,.07,21,4,0)
 ;;= 
 ;;^DD(.85,.07,21,5,0)
 ;;=Ancient means that the language is very old and not spoken any more (e.g.
 ;;^DD(.85,.07,21,6,0)
 ;;=Ancient Egyptian).
 ;;^DD(.85,.07,21,7,0)
 ;;= 
 ;;^DD(.85,.07,21,8,0)
 ;;=Historical means that the language was being used in the Medieval times 
 ;;^DD(.85,.07,21,9,0)
 ;;=and is not spoken any more (e.g. Old High German).
 ;;^DD(.85,.07,21,10,0)
 ;;= 
 ;;^DD(.85,.07,21,11,0)
 ;;=Extinct means that the language was being used recently but has died out 
 ;;^DD(.85,.07,21,12,0)
 ;;=(e.g. Cornish).
 ;;^DD(.85,.07,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.07,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.07,"DT")
 ;;=3121101
 ;;^DD(.85,.08,0)
 ;;=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
 ;;^DD(.85,.08,3)
 ;;=Select a choice.
 ;;^DD(.85,.08,12)
 ;;=Only collective languages are selectable
 ;;^DD(.85,.08,12.1)
 ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
 ;;^DD(.85,.08,21,0)
 ;;=^^1^1^3121101^^
 ;;^DD(.85,.08,21,1,0)
 ;;=Enter a language collection to which this language belongs.
 ;;^DD(.85,.08,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.08,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.08,"DT")
 ;;=3121101
 ;;^DD(.85,.09,0)
 ;;=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
 ;;^DD(.85,.09,3)
 ;;=Enter a choice.
 ;;^DD(.85,.09,12)
 ;;=You may only select Macrolanguages
 ;;^DD(.85,.09,12.1)
 ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
 ;;^DD(.85,.09,21,0)
 ;;=^^3^3^3121101^
 ;;^DD(.85,.09,21,1,0)
 ;;=If this language is a dialect of a macrolanguage, select the 
 ;;^DD(.85,.09,21,2,0)
 ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of 
 ;;^DD(.85,.09,21,3,0)
 ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
 ;;^DD(.85,.09,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.09,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.09,"DT")
 ;;=3121101
 ;;^DD(.85,1,0)
 ;;=ALTERNATE NAME^.8501^^1;0
 ;;^DD(.85,10,0)
 ;;=DESCRIPTION^.8502^^10;0
 ;;^DD(.85,10,"DT")
 ;;=3121031
 ;;^DD(.85,10.1,0)
 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.1,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.1,9)
 ;;=@
 ;;^DD(.85,10.1,21,0)
 ;;=^^6^6^2941121^^^^
 ;;^DD(.85,10.1,21,1,0)
 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
 ;;^DD(.85,10.1,21,2,0)
 ;;=this language. The code should set Y to the ordinal equivalent without
 ;;^DD(.85,10.1,21,3,0)
 ;;=altering any other variables in the environment.  Ex. in English:
 ;;^DD(.85,10.1,21,4,0)
 ;;=       Y=1     becomes         Y=1ST
 ;;^DD(.85,10.1,21,5,0)
 ;;=       Y=2     becomes         Y=2ND
 ;;^DD(.85,10.1,21,6,0)
 ;;=       Y=3     becomes         Y=3RD  etc.
 ;;^DD(.85,10.1,"DT")
 ;;=2940307
 ;;^DD(.85,10.2,0)
 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.2,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.2,9)
 ;;=@
 ;;^DD(.85,10.2,21,0)
 ;;=^^6^6^2941121^^^
 ;;^DD(.85,10.2,21,1,0)
 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
 ;;^DD(.85,10.2,21,2,0)
 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
 ;;^DD(.85,10.2,21,3,0)
 ;;=The code should set Y to the output, without altering any other variables
 ;;^DD(.85,10.2,21,4,0)
 ;;=in the environment.  Ex. in English:
 ;;^DD(.85,10.2,21,5,0)
 ;;= 
 ;;^DD(.85,10.2,21,6,0)
 ;;=       Y=2940612.031245        becomes         Y=JUN 12,1994@03:12:45
 ;;^DD(.85,10.2,"DT")
 ;;=2940307
 ;;^DD(.85,10.21,0)
 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.21,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.21,9)
 ;;=@
 ;;^DD(.85,10.21,21,0)
 ;;=^^22^22^2941122^
 ;;^DD(.85,10.21,21,1,0)
 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
 ;;^DD(.85,10.21,21,2,0)
 ;;=format, to printable format based on the various outputs from routine
 ;;^DD(.85,10.21,21,3,0)
 ;;=FMTE^DILIBF.  This is an extrinsic function.  Coming in to this MUMPS
 ;;^DD(.85,10.21,21,4,0)
 ;;=code, in addition to the internal date in Y, a third parameter will be
 ;;^DD(.85,10.21,21,5,0)
 ;;=defined to contain flags equivalent to the flag passed as the second input
 ;;^DD(.85,10.21,21,6,0)
 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
 ;;^DD(.85,10.21,21,7,0)
 ;;=altering any other variables in the environment.  The output should be
 ;;^DD(.85,10.21,21,8,0)
 ;;=formatted based on these flags:
 ;;^DD(.85,10.21,21,9,0)
 ;;= 
 ;;^DD(.85,10.21,21,10,0)
 ;;= 1    MMM DD, YYYY@HH:MM:SS
 ;;^DD(.85,10.21,21,11,0)
 ;;= 2    MM/DD/YY@HH:MM:SS     no leading zeroes on month,day
 ;;^DD(.85,10.21,21,12,0)
 ;;= 3    DD/MM/YY@HH:MM:SS     no leading zeroes on month,day
 ;;^DD(.85,10.21,21,13,0)
 ;;= 4    YY/MM/DD@HH:MM:SS
 ;;^DD(.85,10.21,21,14,0)
 ;;= 5    MMM DD,YYYY@HH:MM:SS  no space before year,no leading zero on day
 ;;^DD(.85,10.21,21,15,0)
 ;;= 6    MM-DD-YYYY @ HH:MM:SS spaces separate time 
 ;;^DD(.85,10.21,21,16,0)
 ;;= 7    MM-DD-YYYY@HH:MM:SS   no leading zeroes on month,day
 ;;^DD(.85,10.21,21,17,0)
 ;;= 
 ;;^DD(.85,10.21,21,18,0)
 ;;=letters in the flag
 ;;^DD(.85,10.21,21,19,0)
 ;;= S    return always seconds
 ;;^DD(.85,10.21,21,20,0)
 ;;= U    return uppercase month names
 ;;^DD(.85,10.21,21,21,0)
 ;;= P    return time as am,pm
 ;;^DD(.85,10.21,21,22,0)
 ;;= D    return only date part
 ;;^DD(.85,10.21,"DT")
 ;;=2940624
 ;;^DD(.85,10.22,0)
 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.22,3)
 ;;=This is Standard MUMPS code for the output of time only.
 ;;^DD(.85,10.22,9)
 ;;=@
 ;;^DD(.85,10.22,21,0)
 ;;=^^2^2^2960318^
 ;;^DD(.85,10.22,21,1,0)
 ;;=The code stored here will be used to get formatted output of the time
 ;;^DD(.85,10.22,21,2,0)
 ;;=part belonging to a FileMan Date/Time value.
 ;;^DD(.85,10.22,"DT")
 ;;=2960318
 ;;^DD(.85,10.3,0)
 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.3,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.3,9)
 ;;=@
 ;;^DD(.85,10.3,21,0)
 ;;=^^5^5^2941121^^
 ;;^DD(.85,10.3,21,1,0)
 ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
 ;;^DD(.85,10.3,21,2,0)
 ;;=this language. The code should set Y to the cardinal equivalent without
 ;;^DD(.85,10.3,21,3,0)
 ;;=altering any other variables in the environment.  Ex. in English:
 ;;^DD(.85,10.3,21,4,0)
 ;;=       Y=2000     becomes         Y=2,000
 ;;^DD(.85,10.3,21,5,0)
 ;;=       Y=1234567  becomes         Y=1,234,567
 ;;^DD(.85,10.3,"DT")
 ;;=2940308
 ;;^DD(.85,10.4,0)
 ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.4,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.4,9)
 ;;=@
 ;;^DD(.85,10.4,21,0)
 ;;=^^4^4^2941121^
 ;;^DD(.85,10.4,21,1,0)
 ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
 ;;^DD(.85,10.4,21,2,0)
 ;;=this language. The code should set Y to the external format without
 ;;^DD(.85,10.4,21,3,0)
 ;;=altering any other variables in the environment.  In English, changes
 ;;^DD(.85,10.4,21,4,0)
 ;;=   abCdeF      to: ABCDEF
 ;;^DD(.85,10.4,"DT")
 ;;=2940308
 ;;^DD(.85,10.5,0)
 ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.5,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.5,9)
 ;;=@
 ;;^DD(.85,10.5,21,0)
 ;;=^^4^4^2941121^
 ;;^DD(.85,10.5,21,1,0)
 ;;=MUMPS code used to convert text in Y to its lower-case equivalent in  
 ;;^DD(.85,10.5,21,2,0)
 ;;=this language. The code should set Y to the external format without
 ;;^DD(.85,10.5,21,3,0)
 ;;=altering any other variables in the environment.  In English, changes:
 ;;^DD(.85,10.5,21,4,0)
 ;;=    ABcdEFgHij         to:  abcdefghij
 ;;^DD(.85,10.5,"DT")
 ;;=2940308
 ;;^DD(.85,20.2,0)
 ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,20.2,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,20.2,9)
 ;;=@
 ;;^DD(.85,20.2,"DT")
 ;;=2940714
 ;;^DD(.8501,0)
 ;;=ALTERNATE NAME SUB-FIELD^^.01^1
 ;;^DD(.8501,0,"DT")
 ;;=3121101
 ;;^DD(.8501,0,"IX","B",.8501,.01)
 ;;=
 ;;^DD(.8501,0,"NM","ALTERNATE NAME")
 ;;=
 ;;^DD(.8501,0,"UP")
 ;;=.85
 ;;^DD(.8501,.01,0)
 ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
 ;;^DD(.8501,.01,1,0)
 ;;=^.1
 ;;^DD(.8501,.01,1,1,0)
 ;;=.8501^B
 ;;^DD(.8501,.01,1,1,1)
 ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
 ;;^DD(.8501,.01,1,1,2)
 ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
 ;;^DD(.8501,.01,1,2,0)
 ;;=.85^F
 ;;^DD(.8501,.01,1,2,1)
 ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
 ;;^DD(.8501,.01,1,2,2)
 ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
 ;;^DD(.8501,.01,1,2,3)
 ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
 ;;^DD(.8501,.01,1,2,"%D",0)
 ;;=^^1^1^3121101^
 ;;^DD(.8501,.01,1,2,"%D",1,0)
 ;;=Whole file cross-reference for ALTERNATE NAME multiple.
 ;;^DD(.8501,.01,1,2,"DT")
 ;;=3121101
 ;;^DD(.8501,.01,3)
 ;;=Answer must be 1-60 characters in length.
 ;;^DD(.8501,.01,21,0)
 ;;=^^2^2^3121101^^
 ;;^DD(.8501,.01,21,1,0)
 ;;=This field contains other synonyms for a language.
 ;;^DD(.8501,.01,21,2,0)
 ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
 ;;^DD(.8501,.01,"DT")
 ;;=3121101
 ;;^DD(.8502,0)
 ;;=DESCRIPTION SUB-FIELD^^.01^1
 ;;^DD(.8502,0,"DT")
 ;;=3121031
 ;;^DD(.8502,0,"NM","DESCRIPTION")
 ;;=
 ;;^DD(.8502,0,"UP")
 ;;=.85
 ;;^DD(.8502,.01,0)
 ;;=DESCRIPTION^Wx^^0;1
 ;;^DD(.8502,.01,3)
 ;;=Enter an optional language description
 ;;^DD(.8502,.01,"DT")
 ;;=3121031
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
 ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
 ;;=S ^DI(.85,"B",X,DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
 ;;=K ^DI(.85,"B",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
 ;;=K ^DI(.85,"B")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
 ;;=1^F^.85^.01^^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
 ;;=
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
 ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
 ;;=S ^DI(.85,"C",X,DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
 ;;=K ^DI(.85,"C",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
 ;;=K ^DI(.85,"C")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
 ;;=1^F^.85^.02^^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
 ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
 ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
 ;;=K ^DI(.85,"D",$E(X,1,30),DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
 ;;=K ^DI(.85,"D")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
 ;;=1^F^.85^.03^30^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
 ;;=^^6^6^3121031^
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
 ;;=This will add entries to the D index for the three letter code a la the 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
 ;;=mnemonic style.
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
 ;;= 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
 ;;=If you need re-cross-reference this field, you need to kill of the 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
 ;;=entries in the regular D index, set the D index, and then set this index 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
 ;;=to update the D with the mnemonic xrefs.
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
 ;;=S ^DI(.85,"D",X,DA)=1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
 ;;=K ^DI(.85,"D",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
 ;;=1^F^.85^.05^^1^F
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
 ;;=.85^A^P^1046
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
 ;;=^.312IA^1^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
 ;;=.01^.85^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
 ;;=.85^B^S^1048
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
 ;;=^.312IA^1^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
 ;;=.03^.85^1
 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
 ;;=.85^B
 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
 ;;=.85^D

DILAI003
DILAI003 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^UTILITY(U,$J,.85)
 ;;=^DI(.85,
 ;;^UTILITY(U,$J,.85,0)
 ;;=LANGUAGE^.85I^18^533
 ;;^UTILITY(U,$J,.85,1,0)
 ;;=ENGLISH^EN^ENG
 ;;^UTILITY(U,$J,.85,1,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,1,1,1,0)
 ;;=MODERN ENGLISH (1500-)
 ;;^UTILITY(U,$J,.85,1,1,2,0)
 ;;=ENGLISH,MODERN (1500-)
 ;;^UTILITY(U,$J,.85,1,"CRD")
 ;;=I Y S Y=$FN(Y,",")
 ;;^UTILITY(U,$J,.85,1,"DD")
 ;;=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[".")
 ;;^UTILITY(U,$J,.85,1,"FMTE")
 ;;=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
 ;;^UTILITY(U,$J,.85,1,"LC")
 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;;^UTILITY(U,$J,.85,1,"ORD")
 ;;=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")
 ;;^UTILITY(U,$J,.85,1,"TIME")
 ;;=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:"")
 ;;^UTILITY(U,$J,.85,1,"UC")
 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 ;;^UTILITY(U,$J,.85,2,0)
 ;;=GERMAN^DE^DEU^^GER
 ;;^UTILITY(U,$J,.85,2,1,0)
 ;;=^.8501^7^7
 ;;^UTILITY(U,$J,.85,2,1,1,0)
 ;;=GERMAN, STANDARD
 ;;^UTILITY(U,$J,.85,2,1,2,0)
 ;;=STANDARD GERMAN
 ;;^UTILITY(U,$J,.85,2,1,3,0)
 ;;=DEUTSCH
 ;;^UTILITY(U,$J,.85,2,1,4,0)
 ;;=DEUTSCH SPRACHE
 ;;^UTILITY(U,$J,.85,2,1,5,0)
 ;;=TEDESCO
 ;;^UTILITY(U,$J,.85,2,1,6,0)
 ;;=MODERN GERMAN (1500-)
 ;;^UTILITY(U,$J,.85,2,1,7,0)
 ;;=GERMAN,MODERN (1500-)
 ;;^UTILITY(U,$J,.85,2,"CRD")
 ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
 ;;^UTILITY(U,$J,.85,2,"DD")
 ;;=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[".")
 ;;^UTILITY(U,$J,.85,2,"LC")
 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
 ;;^UTILITY(U,$J,.85,2,"ORD")
 ;;=S:$G(Y) Y=Y_"."
 ;;^UTILITY(U,$J,.85,2,"TIME")
 ;;=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:"")
 ;;^UTILITY(U,$J,.85,2,"UC")
 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
 ;;^UTILITY(U,$J,.85,3,0)
 ;;=SPANISH^ES^SPA
 ;;^UTILITY(U,$J,.85,3,1,0)
 ;;=^.8501^5^5
 ;;^UTILITY(U,$J,.85,3,1,1,0)
 ;;=CASTILIAN
 ;;^UTILITY(U,$J,.85,3,1,2,0)
 ;;=CASTELLANO
 ;;^UTILITY(U,$J,.85,3,1,3,0)
 ;;=ESPANOL
 ;;^UTILITY(U,$J,.85,3,1,4,0)
 ;;=MODERN SPANISH (1500-)
 ;;^UTILITY(U,$J,.85,3,1,5,0)
 ;;=SPANISH, MODERN (1500-)
 ;;^UTILITY(U,$J,.85,4,0)
 ;;=FRENCH^FR^FRA^^FRE
 ;;^UTILITY(U,$J,.85,4,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,4,1,1,0)
 ;;=FRANCAIS
 ;;^UTILITY(U,$J,.85,4,1,2,0)
 ;;=MODERN FRENCH (1600-)
 ;;^UTILITY(U,$J,.85,4,1,3,0)
 ;;=FRENCH, MODERN (1600-)
 ;;^UTILITY(U,$J,.85,5,0)
 ;;=FINNISH^FI^FIN
 ;;^UTILITY(U,$J,.85,5,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,5,1,1,0)
 ;;=SUOMEA
 ;;^UTILITY(U,$J,.85,5,1,2,0)
 ;;=SUOMI
 ;;^UTILITY(U,$J,.85,5,1,3,0)
 ;;=SUOMEN KIELI
 ;;^UTILITY(U,$J,.85,5,"DD")
 ;;=X:$G(Y) ^DD("DD")
 ;;^UTILITY(U,$J,.85,5,"ORD")
 ;;=I $G(Y) S Y=Y_"."
 ;;^UTILITY(U,$J,.85,6,0)
 ;;=ITALIAN^IT^ITA
 ;;^UTILITY(U,$J,.85,6,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,6,1,1,0)
 ;;=ITALIANO
 ;;^UTILITY(U,$J,.85,6,1,2,0)
 ;;=LINGUA ITALIANA
 ;;^UTILITY(U,$J,.85,7,0)
 ;;=PORTUGUESE^PT^POR
 ;;^UTILITY(U,$J,.85,7,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,7,1,1,0)
 ;;=PORTUGUES
 ;;^UTILITY(U,$J,.85,7,1,2,0)
 ;;=LINGUA PORTUGUESA
 ;;^UTILITY(U,$J,.85,7,1,3,0)
 ;;=MODERN PORTUGUESE (1516-)
 ;;^UTILITY(U,$J,.85,7,1,4,0)
 ;;=PORTUGUESE, MODERN (1516-)
 ;;^UTILITY(U,$J,.85,8,0)
 ;;=ABKHAZ^AB^ABK^^
 ;;^UTILITY(U,$J,.85,8,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,8,1,1,0)
 ;;=ABKHAZIAN
 ;;^UTILITY(U,$J,.85,8,1,2,0)
 ;;=ABXAZO
 ;;^UTILITY(U,$J,.85,9,0)
 ;;=ACHINESE^^ACE^^
 ;;^UTILITY(U,$J,.85,10,0)
 ;;=ARABIC^AR^ARA
 ;;^UTILITY(U,$J,.85,10,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,10,1,1,0)
 ;;=AL-'ARABIYYAH
 ;;^UTILITY(U,$J,.85,10,1,2,0)
 ;;='ARABI
 ;;^UTILITY(U,$J,.85,11,0)
 ;;=RUSSIAN^RU^RUS
 ;;^UTILITY(U,$J,.85,11,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,11,1,1,0)
 ;;=RUSSKI
 ;;^UTILITY(U,$J,.85,11,1,2,0)
 ;;=RUSSKIY YAZYK
 ;;^UTILITY(U,$J,.85,12,0)
 ;;=GREEK^EL^ELL^^GRE
 ;;^UTILITY(U,$J,.85,12,1,0)
 ;;=^.8501^9^9
 ;;^UTILITY(U,$J,.85,12,1,1,0)
 ;;=ELLINIKA
 ;;^UTILITY(U,$J,.85,12,1,2,0)
 ;;=ELLINIKI GLOSSA
 ;;^UTILITY(U,$J,.85,12,1,3,0)
 ;;=GRAECAE
 ;;^UTILITY(U,$J,.85,12,1,4,0)
 ;;=GREC
 ;;^UTILITY(U,$J,.85,12,1,5,0)
 ;;=GRECO
 ;;^UTILITY(U,$J,.85,12,1,6,0)
 ;;=NEO-HELLENIC
 ;;^UTILITY(U,$J,.85,12,1,7,0)
 ;;=ROMAIC
 ;;^UTILITY(U,$J,.85,12,1,8,0)
 ;;=MODERN GREEK (1453-)
 ;;^UTILITY(U,$J,.85,12,1,9,0)
 ;;=GREEK, MODERN (1453-)
 ;;^UTILITY(U,$J,.85,13,0)
 ;;=ACOLI^^ACH^^
 ;;^UTILITY(U,$J,.85,14,0)
 ;;=ADANGME^^ADA^^
 ;;^UTILITY(U,$J,.85,15,0)
 ;;=ADYGHE^^ADY^^
 ;;^UTILITY(U,$J,.85,15,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,15,1,1,0)
 ;;=ADYGEI
 ;;^UTILITY(U,$J,.85,16,0)
 ;;=AFAR^AA^AAR^^
 ;;^UTILITY(U,$J,.85,16,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,16,1,1,0)
 ;;=QAFAR AF
 ;;^UTILITY(U,$J,.85,16,1,2,0)
 ;;='AFAR AF
 ;;^UTILITY(U,$J,.85,16,1,3,0)
 ;;=ADAL
 ;;^UTILITY(U,$J,.85,16,1,4,0)
 ;;=AFARAF
 ;;^UTILITY(U,$J,.85,17,0)
 ;;=AFRIHILI^^AFH^^
 ;;^UTILITY(U,$J,.85,18,0)
 ;;=HEBREW^HE^HEB
 ;;^UTILITY(U,$J,.85,18,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,18,1,1,0)
 ;;=IVRIT
 ;;^UTILITY(U,$J,.85,18,1,2,0)
 ;;=MODERN HEBREW (1881-)
 ;;^UTILITY(U,$J,.85,18,1,3,0)
 ;;=HEBREW, MODERN (1881-)
 ;;^UTILITY(U,$J,.85,19,0)
 ;;=AFRIKAANS^AF^AFR^^
 ;;^UTILITY(U,$J,.85,20,0)
 ;;=AINU^^AIN^^
 ;;^UTILITY(U,$J,.85,21,0)
 ;;=AKAN^AK^AKA^^
 ;;^UTILITY(U,$J,.85,22,0)
 ;;=AKKADIAN^^AKK^^
 ;;^UTILITY(U,$J,.85,23,0)
 ;;=ALBANIAN^SQ^SQI^^ALB
 ;;^UTILITY(U,$J,.85,23,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,23,1,1,0)
 ;;=SHQIP
 ;;^UTILITY(U,$J,.85,23,1,2,0)
 ;;=GJUHA SHQIPE
 ;;^UTILITY(U,$J,.85,24,0)
 ;;=ALEUT^^ALE^^
 ;;^UTILITY(U,$J,.85,25,0)
 ;;=ALTAI, SOUTHERN^^ALT^^
 ;;^UTILITY(U,$J,.85,25,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,25,1,1,0)
 ;;=SOUTHERN ALTAI
 ;;^UTILITY(U,$J,.85,26,0)
 ;;=AMHARIC^AM^AMH^^
 ;;^UTILITY(U,$J,.85,26,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,26,1,1,0)
 ;;=ABYSSINIAN
 ;;^UTILITY(U,$J,.85,26,1,2,0)
 ;;=AMARIGNA
 ;;^UTILITY(U,$J,.85,26,1,3,0)
 ;;=AMARINYA
 ;;^UTILITY(U,$J,.85,26,1,4,0)
 ;;=ETHIOPIAN
 ;;^UTILITY(U,$J,.85,27,0)
 ;;=ANCIENT EGYPTIAN^^EGY^^
 ;;^UTILITY(U,$J,.85,27,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,27,1,1,0)
 ;;=EGYPTIAN, ANCIENT
 ;;^UTILITY(U,$J,.85,28,0)
 ;;=ANCIENT GREEK^^GRC^^
 ;;^UTILITY(U,$J,.85,28,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,28,1,1,0)
 ;;=GREEK, ANCIENT (TO 1453)
 ;;^UTILITY(U,$J,.85,29,0)
 ;;=ANGIKA^^ANP^^
 ;;^UTILITY(U,$J,.85,30,0)
 ;;=ARAGONESE^AN^ARG^^
 ;;^UTILITY(U,$J,.85,30,1,0)
 ;;=^.8501^6^6
 ;;^UTILITY(U,$J,.85,30,1,1,0)
 ;;=ALTOARAGONES
 ;;^UTILITY(U,$J,.85,30,1,2,0)
 ;;=ARAGOIERAZ
 ;;^UTILITY(U,$J,.85,30,1,3,0)
 ;;=ARAGONES
 ;;^UTILITY(U,$J,.85,30,1,4,0)
 ;;=FABLA ARAGONESA
 ;;^UTILITY(U,$J,.85,30,1,5,0)
 ;;=HIGH ARAGONESE
 ;;^UTILITY(U,$J,.85,30,1,6,0)
 ;;=PATUES
 ;;^UTILITY(U,$J,.85,31,0)
 ;;=ARAPAHO^^ARP^^
 ;;^UTILITY(U,$J,.85,32,0)
 ;;=ARAWAK^^ARW^^
 ;;^UTILITY(U,$J,.85,33,0)
 ;;=ARMENIAN^HY^HYE^^ARM
 ;;^UTILITY(U,$J,.85,33,1,0)
 ;;=^.8501^7^7
 ;;^UTILITY(U,$J,.85,33,1,1,0)
 ;;=HAYEREN
 ;;^UTILITY(U,$J,.85,33,1,2,0)
 ;;=ARMJANSKI YAZYK
 ;;^UTILITY(U,$J,.85,33,1,3,0)
 ;;=ENA
 ;;^UTILITY(U,$J,.85,33,1,4,0)
 ;;=ERMENI DILI
 ;;^UTILITY(U,$J,.85,33,1,5,0)
 ;;=ERMENICE
 ;;^UTILITY(U,$J,.85,33,1,6,0)
 ;;=HAIEREN
 ;;^UTILITY(U,$J,.85,33,1,7,0)
 ;;=SOMKHURI
 ;;^UTILITY(U,$J,.85,34,0)
 ;;=AROMANIAN^^RUP^^
 ;;^UTILITY(U,$J,.85,34,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,34,1,1,0)
 ;;=ARUMANIAN
 ;;^UTILITY(U,$J,.85,34,1,2,0)
 ;;=MACEDO-ROMANIAN
 ;;^UTILITY(U,$J,.85,35,0)
 ;;=ASSAMESE^AS^ASM^^
 ;;^UTILITY(U,$J,.85,35,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,35,1,1,0)
 ;;=ASAMBE
 ;;^UTILITY(U,$J,.85,35,1,2,0)
 ;;=ASAMI
 ;;^UTILITY(U,$J,.85,35,1,3,0)
 ;;=ASAMIYA
 ;;^UTILITY(U,$J,.85,36,0)
 ;;=ASTURIAN^^AST^^
 ;;^UTILITY(U,$J,.85,36,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,36,1,1,0)
 ;;=BABLE
 ;;^UTILITY(U,$J,.85,36,1,2,0)
 ;;=LEONESE
 ;;^UTILITY(U,$J,.85,36,1,3,0)
 ;;=ASTURLEONESE
 ;;^UTILITY(U,$J,.85,37,0)
 ;;=AVARIC^AV^AVA^^
 ;;^UTILITY(U,$J,.85,38,0)
 ;;=AVESTAN^AE^AVE^^
 ;;^UTILITY(U,$J,.85,39,0)
 ;;=AWADHI^^AWA^^
 ;;^UTILITY(U,$J,.85,40,0)
 ;;=AYMARA^AY^AYM^^
 ;;^UTILITY(U,$J,.85,41,0)
 ;;=AZERBAIJANI^AZ^AZE^^
 ;;^UTILITY(U,$J,.85,42,0)
 ;;=BALINESE^^BAN^^
 ;;^UTILITY(U,$J,.85,43,0)
 ;;=BALUCHI^^BAL^^
 ;;^UTILITY(U,$J,.85,44,0)
 ;;=BAMBARA^BM^BAM^^
 ;;^UTILITY(U,$J,.85,45,0)
 ;;=BASA^^BAS^^
 ;;^UTILITY(U,$J,.85,46,0)
 ;;=BASHKIR^BA^BAK^^
 ;;^UTILITY(U,$J,.85,47,0)
 ;;=BASQUE^EU^EUS^^BAQ
 ;;^UTILITY(U,$J,.85,47,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,47,1,1,0)
 ;;=EUSKARA
 ;;^UTILITY(U,$J,.85,48,0)
 ;;=BEJA^^BEJ^^
 ;;^UTILITY(U,$J,.85,48,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,48,1,1,0)
 ;;=BEDAWIYET
 ;;^UTILITY(U,$J,.85,49,0)
 ;;=BELARUSIAN^BE^BEL^^
 ;;^UTILITY(U,$J,.85,50,0)
 ;;=BEMBA^^BEM^^
 ;;^UTILITY(U,$J,.85,51,0)
 ;;=BENGALI^BN^BEN^^
 ;;^UTILITY(U,$J,.85,52,0)
 ;;=BHOJPURI^^BHO^^
 ;;^UTILITY(U,$J,.85,53,0)
 ;;=BIKOL^^BIK^^
 ;;^UTILITY(U,$J,.85,54,0)
 ;;=BILIN^^BYN^^
 ;;^UTILITY(U,$J,.85,54,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,54,1,1,0)
 ;;=BLIN
 ;;^UTILITY(U,$J,.85,55,0)
 ;;=BINI^^BIN^^
 ;;^UTILITY(U,$J,.85,55,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,55,1,1,0)
 ;;=EDO
 ;;^UTILITY(U,$J,.85,56,0)
 ;;=BISLAMA^BI^BIS^^
 ;;^UTILITY(U,$J,.85,57,0)
 ;;=BLISSYMBOLS^^ZBL^^
 ;;^UTILITY(U,$J,.85,57,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,57,1,1,0)
 ;;=BLISSYMBOLICS
 ;;^UTILITY(U,$J,.85,57,1,2,0)
 ;;=BLISS
 ;;^UTILITY(U,$J,.85,58,0)
 ;;=BOSNIAN^BS^BOS^^
 ;;^UTILITY(U,$J,.85,59,0)
 ;;=BRAJ^^BRA^^
 ;;^UTILITY(U,$J,.85,60,0)
 ;;=BRETON^BR^BRE^^
 ;;^UTILITY(U,$J,.85,61,0)
 ;;=BUGINESE^^BUG^^
 ;;^UTILITY(U,$J,.85,62,0)
 ;;=BULGARIAN^BG^BUL^^
 ;;^UTILITY(U,$J,.85,63,0)
 ;;=BURIAT^^BUA^^
 ;;^UTILITY(U,$J,.85,64,0)
 ;;=BURMESE^MY^MYA^^BUR
 ;;^UTILITY(U,$J,.85,64,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,64,1,1,0)
 ;;=MYANMAR LANGUAGE
 ;;^UTILITY(U,$J,.85,65,0)
 ;;=CADDO^^CAD^^
 ;;^UTILITY(U,$J,.85,66,0)
 ;;=CATALAN^CA^CAT^^
 ;;^UTILITY(U,$J,.85,66,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,66,1,1,0)
 ;;=VALENCIAN
 ;;^UTILITY(U,$J,.85,67,0)
 ;;=CEBUANO^^CEB^^
 ;;^UTILITY(U,$J,.85,68,0)
 ;;=CHAGATAI^^CHG^^
 ;;^UTILITY(U,$J,.85,69,0)
 ;;=CHAMORRO^CH^CHA^^
 ;;^UTILITY(U,$J,.85,70,0)
 ;;=CHECHEN^CE^CHE^^
 ;;^UTILITY(U,$J,.85,71,0)
 ;;=CHEROKEE^^CHR^^
 ;;^UTILITY(U,$J,.85,72,0)
 ;;=CHEYENNE^^CHY^^
 ;;^UTILITY(U,$J,.85,73,0)
 ;;=CHIBCHA^^CHB^^
 ;;^UTILITY(U,$J,.85,74,0)
 ;;=CHICHEWA^NY^NYA^^
 ;;^UTILITY(U,$J,.85,74,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,74,1,1,0)
 ;;=CHEWA
 ;;^UTILITY(U,$J,.85,74,1,2,0)
 ;;=NYANJA
 ;;^UTILITY(U,$J,.85,75,0)
 ;;=CHINESE^ZH^ZHO^^CHI
 ;;^UTILITY(U,$J,.85,76,0)
 ;;=CHINOOK JARGON^^CHN^^
 ;;^UTILITY(U,$J,.85,77,0)
 ;;=CHIPEWYAN^^CHP^^
 ;;^UTILITY(U,$J,.85,77,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,77,1,1,0)
 ;;=DENE SULINE
 ;;^UTILITY(U,$J,.85,78,0)
 ;;=CHOCTAW^^CHO^^
 ;;^UTILITY(U,$J,.85,79,0)
 ;;=CHUUKESE^^CHK^^
 ;;^UTILITY(U,$J,.85,80,0)
 ;;=CHUVASH^CV^CHV^^
 ;;^UTILITY(U,$J,.85,81,0)
 ;;=CLASSICAL NEWARI^^NWC^^
 ;;^UTILITY(U,$J,.85,81,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,81,1,1,0)
 ;;=OLD NEWARI
 ;;^UTILITY(U,$J,.85,81,1,2,0)
 ;;=CLASSICAL NEPAL BHASA
 ;;^UTILITY(U,$J,.85,82,0)
 ;;=CLASSICAL SYRIAC^^SYC^^
 ;;^UTILITY(U,$J,.85,83,0)
 ;;=COPTIC^^COP^^
 ;;^UTILITY(U,$J,.85,84,0)
 ;;=CORNISH^KW^COR^^
 ;;^UTILITY(U,$J,.85,85,0)
 ;;=CORSICAN^CO^COS^^
 ;;^UTILITY(U,$J,.85,86,0)
 ;;=CREE^CR^CRE^^
 ;;^UTILITY(U,$J,.85,87,0)
 ;;=CREEK^^MUS^^
 ;;^UTILITY(U,$J,.85,88,0)
 ;;=CREOLES AND PIDGINS^^CRP^^
 ;;^UTILITY(U,$J,.85,89,0)
 ;;=CREOLES AND PIDGINS, ENGLISH-BASED^^CPE^^
 ;;^UTILITY(U,$J,.85,90,0)
 ;;=CREOLES AND PIDGINS, FRENCH-BASED^^CPF^^
 ;;^UTILITY(U,$J,.85,91,0)
 ;;=CREOLES AND PIDGINS, PORTUGUESE-BASED^^CPP^^
 ;;^UTILITY(U,$J,.85,92,0)
 ;;=CRIMEAN TATAR^^CRH^^
 ;;^UTILITY(U,$J,.85,92,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,92,1,1,0)
 ;;=CRIMEAN TURKISH
 ;;^UTILITY(U,$J,.85,93,0)
 ;;=CROATIAN^HR^HRV^^
 ;;^UTILITY(U,$J,.85,94,0)
 ;;=CZECH^CS^CES^^CZE
 ;;^UTILITY(U,$J,.85,95,0)
 ;;=DAKOTA^^DAK^^
 ;;^UTILITY(U,$J,.85,96,0)
 ;;=DANISH^DA^DAN^^
 ;;^UTILITY(U,$J,.85,97,0)
 ;;=DARGWA^^DAR^^
 ;;^UTILITY(U,$J,.85,98,0)
 ;;=DELAWARE^^DEL^^
 ;;^UTILITY(U,$J,.85,99,0)
 ;;=DINKA^^DIN^^
 ;;^UTILITY(U,$J,.85,100,0)
 ;;=DIVEHI^DV^DIV^^
 ;;^UTILITY(U,$J,.85,100,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,100,1,1,0)
 ;;=DHIVEHI
 ;;^UTILITY(U,$J,.85,100,1,2,0)
 ;;=MALDIVIAN
 ;;^UTILITY(U,$J,.85,101,0)
 ;;=DOGRI^^DOI^^
 ;;^UTILITY(U,$J,.85,102,0)
 ;;=DOGRIB^^DGR^^
 ;;^UTILITY(U,$J,.85,103,0)
 ;;=DUALA^^DUA^^
 ;;^UTILITY(U,$J,.85,104,0)
 ;;=DUTCH^NL^NLD^^DUT
 ;;^UTILITY(U,$J,.85,104,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,104,1,1,0)
 ;;=FLEMISH
 ;;^UTILITY(U,$J,.85,105,0)
 ;;=DYULA^^DYU^^
 ;;^UTILITY(U,$J,.85,106,0)
 ;;=DZONGKHA^DZ^DZO^^
 ;;^UTILITY(U,$J,.85,107,0)
 ;;=EFIK^^EFI^^
 ;;^UTILITY(U,$J,.85,108,0)
 ;;=EKAJUK^^EKA^^
 ;;^UTILITY(U,$J,.85,109,0)
 ;;=ELAMITE^^ELX^^
 ;;^UTILITY(U,$J,.85,110,0)
 ;;=ERZYA^^MYV^^
 ;;^UTILITY(U,$J,.85,111,0)
 ;;=ESPERANTO^EO^EPO^^
 ;;^UTILITY(U,$J,.85,112,0)
 ;;=ESTONIAN^ET^EST^^
 ;;^UTILITY(U,$J,.85,113,0)
 ;;=EWE^EE^EWE^^
 ;;^UTILITY(U,$J,.85,114,0)
 ;;=EWONDO^^EWO^^
 ;;^UTILITY(U,$J,.85,115,0)
 ;;=FANG^^FAN^^
 ;;^UTILITY(U,$J,.85,116,0)
 ;;=FANTI^^FAT^^
 ;;^UTILITY(U,$J,.85,117,0)
 ;;=FAROESE^FO^FAO^^
 ;;^UTILITY(U,$J,.85,118,0)
 ;;=FIJIAN^FJ^FIJ^^
 ;;^UTILITY(U,$J,.85,119,0)
 ;;=FILIPINO^^FIL^^
 ;;^UTILITY(U,$J,.85,119,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,119,1,1,0)
 ;;=PILIPINO
 ;;^UTILITY(U,$J,.85,120,0)
 ;;=FON^^FON^^
 ;;^UTILITY(U,$J,.85,121,0)
 ;;=FRISIAN, EASTERN^^FRS^^
 ;;^UTILITY(U,$J,.85,121,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,121,1,1,0)
 ;;=EASTERN FRISIAN
 ;;^UTILITY(U,$J,.85,122,0)
 ;;=FRISIAN, NORTHERN^^FRR^^
 ;;^UTILITY(U,$J,.85,122,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,122,1,1,0)
 ;;=NORTHERN FRISIAN
 ;;^UTILITY(U,$J,.85,123,0)
 ;;=FRISIAN, WEST^FY^FRY^^
 ;;^UTILITY(U,$J,.85,123,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,123,1,1,0)
 ;;=WEST FRISIAN
 ;;^UTILITY(U,$J,.85,123,1,2,0)
 ;;=WESTERN FRISIAN
 ;;^UTILITY(U,$J,.85,124,0)
 ;;=FRIULIAN^^FUR^^
 ;;^UTILITY(U,$J,.85,125,0)
 ;;=FULA^FF^FUL^^
 ;;^UTILITY(U,$J,.85,125,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,125,1,1,0)
 ;;=FULANI
 ;;^UTILITY(U,$J,.85,125,1,2,0)
 ;;=FULAH
 ;;^UTILITY(U,$J,.85,125,1,3,0)
 ;;=PULAAR
 ;;^UTILITY(U,$J,.85,125,1,4,0)
 ;;=PULAR
 ;;^UTILITY(U,$J,.85,126,0)
 ;;=GA^^GAA^^
 ;;^UTILITY(U,$J,.85,127,0)
 ;;=GAELIC^GD^GLA^^
 ;;^UTILITY(U,$J,.85,127,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,127,1,1,0)
 ;;=SCOTS GAELIC
 ;;^UTILITY(U,$J,.85,127,1,2,0)
 ;;=SCOTTISH GAELIC
 ;;^UTILITY(U,$J,.85,128,0)
 ;;=GALIBI CARIB^^CAR^^
 ;;^UTILITY(U,$J,.85,129,0)
 ;;=GALICIAN^GL^GLG^^
 ;;^UTILITY(U,$J,.85,130,0)
 ;;=GANDA^LG^LUG^^
 ;;^UTILITY(U,$J,.85,131,0)
 ;;=GAYO^^GAY^^

DILAI004
DILAI004 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^UTILITY(U,$J,.85,132,0)
 ;;=GBAYA^^GBA^^
 ;;^UTILITY(U,$J,.85,133,0)
 ;;=GEEZ^^GEZ^^
 ;;^UTILITY(U,$J,.85,134,0)
 ;;=GEORGIAN^KA^KAT^^GEO
 ;;^UTILITY(U,$J,.85,135,0)
 ;;=GILBERTESE^^GIL^^
 ;;^UTILITY(U,$J,.85,136,0)
 ;;=GONDI^^GON^^
 ;;^UTILITY(U,$J,.85,137,0)
 ;;=GORONTALO^^GOR^^
 ;;^UTILITY(U,$J,.85,138,0)
 ;;=GOTHIC^^GOT^^
 ;;^UTILITY(U,$J,.85,139,0)
 ;;=GREBO^^GRB^^
 ;;^UTILITY(U,$J,.85,140,0)
 ;;=GUARANI^GN^GRN^^
 ;;^UTILITY(U,$J,.85,141,0)
 ;;=GUJARATI^GU^GUJ^^
 ;;^UTILITY(U,$J,.85,142,0)
 ;;=GWICH'IN^^GWI^^
 ;;^UTILITY(U,$J,.85,143,0)
 ;;=HAIDA^^HAI^^
 ;;^UTILITY(U,$J,.85,144,0)
 ;;=HAITIAN CREOLE^HT^HAT^^
 ;;^UTILITY(U,$J,.85,145,0)
 ;;=HAUSA^HA^HAU^^
 ;;^UTILITY(U,$J,.85,146,0)
 ;;=HAWAIIAN^^HAW^^
 ;;^UTILITY(U,$J,.85,147,0)
 ;;=HERERO^HZ^HER^^
 ;;^UTILITY(U,$J,.85,148,0)
 ;;=HILIGAYNON^^HIL^^
 ;;^UTILITY(U,$J,.85,149,0)
 ;;=HINDI^HI^HIN^^
 ;;^UTILITY(U,$J,.85,150,0)
 ;;=HIRI MOTU^HO^HMO^^
 ;;^UTILITY(U,$J,.85,151,0)
 ;;=HITTITE^^HIT^^
 ;;^UTILITY(U,$J,.85,152,0)
 ;;=HMONG^^HMN^^
 ;;^UTILITY(U,$J,.85,152,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,152,1,1,0)
 ;;=MONG
 ;;^UTILITY(U,$J,.85,153,0)
 ;;=HUNGARIAN^HU^HUN^^
 ;;^UTILITY(U,$J,.85,154,0)
 ;;=HUPA^^HUP^^
 ;;^UTILITY(U,$J,.85,155,0)
 ;;=IBAN^^IBA^^
 ;;^UTILITY(U,$J,.85,156,0)
 ;;=ICELANDIC^IS^ISL^^ICE
 ;;^UTILITY(U,$J,.85,157,0)
 ;;=IDO^IO^IDO^^
 ;;^UTILITY(U,$J,.85,158,0)
 ;;=IGBO^IG^IBO^^
 ;;^UTILITY(U,$J,.85,159,0)
 ;;=ILOKO^^ILO^^
 ;;^UTILITY(U,$J,.85,160,0)
 ;;=INARI SAMI^^SMN^^
 ;;^UTILITY(U,$J,.85,161,0)
 ;;=INDONESIAN^ID^IND^^
 ;;^UTILITY(U,$J,.85,162,0)
 ;;=INGUSH^^INH^^
 ;;^UTILITY(U,$J,.85,163,0)
 ;;=INTERLINGUA^IA^INA^^
 ;;^UTILITY(U,$J,.85,164,0)
 ;;=INTERLINGUE^IE^ILE^^
 ;;^UTILITY(U,$J,.85,164,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,164,1,1,0)
 ;;=OCCIDENTAL
 ;;^UTILITY(U,$J,.85,165,0)
 ;;=INUKTITUT^IU^IKU^^
 ;;^UTILITY(U,$J,.85,166,0)
 ;;=INUPIAQ^IK^IPK^^
 ;;^UTILITY(U,$J,.85,167,0)
 ;;=IRISH^GA^GLE^^
 ;;^UTILITY(U,$J,.85,168,0)
 ;;=JAPANESE^JA^JPN^^
 ;;^UTILITY(U,$J,.85,169,0)
 ;;=JAVANESE^JV^JAV^^
 ;;^UTILITY(U,$J,.85,170,0)
 ;;=JUDEO-ARABIC^^JRB^^
 ;;^UTILITY(U,$J,.85,171,0)
 ;;=JUDEO-PERSIAN^^JPR^^
 ;;^UTILITY(U,$J,.85,172,0)
 ;;=KABARDIAN^^KBD^^
 ;;^UTILITY(U,$J,.85,173,0)
 ;;=KABYLE^^KAB^^
 ;;^UTILITY(U,$J,.85,174,0)
 ;;=KACHIN^^KAC^^
 ;;^UTILITY(U,$J,.85,174,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,174,1,1,0)
 ;;=JINGPHO
 ;;^UTILITY(U,$J,.85,175,0)
 ;;=KALAALLISUT^KL^KAL^^
 ;;^UTILITY(U,$J,.85,175,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,175,1,1,0)
 ;;=GREENLANDIC
 ;;^UTILITY(U,$J,.85,176,0)
 ;;=KALMYK^^XAL^^
 ;;^UTILITY(U,$J,.85,176,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,176,1,1,0)
 ;;=OIRAT
 ;;^UTILITY(U,$J,.85,177,0)
 ;;=KAMBA^^KAM^^
 ;;^UTILITY(U,$J,.85,178,0)
 ;;=KANNADA^KN^KAN^^
 ;;^UTILITY(U,$J,.85,179,0)
 ;;=KANURI^KR^KAU^^
 ;;^UTILITY(U,$J,.85,180,0)
 ;;=KARA-KALPAK^^KAA^^
 ;;^UTILITY(U,$J,.85,181,0)
 ;;=KARACHAY-BALKAR^^KRC^^
 ;;^UTILITY(U,$J,.85,182,0)
 ;;=KARELIAN^^KRL^^
 ;;^UTILITY(U,$J,.85,183,0)
 ;;=KASHMIRI^KS^KAS^^
 ;;^UTILITY(U,$J,.85,184,0)
 ;;=KASHUBIAN^^CSB^^
 ;;^UTILITY(U,$J,.85,185,0)
 ;;=KAWI^^KAW^^
 ;;^UTILITY(U,$J,.85,186,0)
 ;;=KAZAKH^KK^KAZ^^
 ;;^UTILITY(U,$J,.85,187,0)
 ;;=KHASI^^KHA^^
 ;;^UTILITY(U,$J,.85,188,0)
 ;;=KHMER^KM^KHM^^
 ;;^UTILITY(U,$J,.85,188,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,188,1,1,0)
 ;;=CENTRAL KHMER
 ;;^UTILITY(U,$J,.85,189,0)
 ;;=KHOTANESE^^KHO^^
 ;;^UTILITY(U,$J,.85,189,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,189,1,1,0)
 ;;=SAKAN
 ;;^UTILITY(U,$J,.85,190,0)
 ;;=KIKUYU^KI^KIK^^
 ;;^UTILITY(U,$J,.85,190,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,190,1,1,0)
 ;;=GIKUYU
 ;;^UTILITY(U,$J,.85,191,0)
 ;;=KIMBUNDU^^KMB^^
 ;;^UTILITY(U,$J,.85,192,0)
 ;;=KINYARWANDA^RW^KIN^^
 ;;^UTILITY(U,$J,.85,193,0)
 ;;=KIRGHIZ^KY^KIR^^
 ;;^UTILITY(U,$J,.85,193,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,193,1,1,0)
 ;;=KYRGYZ
 ;;^UTILITY(U,$J,.85,194,0)
 ;;=KLINGON^^TLH^^
 ;;^UTILITY(U,$J,.85,194,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,194,1,1,0)
 ;;=TLHINGAN-HOL
 ;;^UTILITY(U,$J,.85,195,0)
 ;;=KOMI^KV^KOM^^
 ;;^UTILITY(U,$J,.85,196,0)
 ;;=KONGO^KG^KON^^
 ;;^UTILITY(U,$J,.85,197,0)
 ;;=KONKANI^^KOK^^
 ;;^UTILITY(U,$J,.85,198,0)
 ;;=KOREAN^KO^KOR^^
 ;;^UTILITY(U,$J,.85,199,0)
 ;;=KOSRAEAN^^KOS^^
 ;;^UTILITY(U,$J,.85,200,0)
 ;;=KPELLE^^KPE^^
 ;;^UTILITY(U,$J,.85,201,0)
 ;;=KUANYAMA^KJ^KUA^^
 ;;^UTILITY(U,$J,.85,201,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,201,1,1,0)
 ;;=KWANYAMA
 ;;^UTILITY(U,$J,.85,202,0)
 ;;=KUMYK^^KUM^^
 ;;^UTILITY(U,$J,.85,203,0)
 ;;=KURDISH^KU^KUR^^
 ;;^UTILITY(U,$J,.85,204,0)
 ;;=KURUKH^^KRU^^
 ;;^UTILITY(U,$J,.85,205,0)
 ;;=KUTENAI^^KUT^^
 ;;^UTILITY(U,$J,.85,206,0)
 ;;=LADINO^^LAD^^
 ;;^UTILITY(U,$J,.85,207,0)
 ;;=LAHNDA^^LAH^^
 ;;^UTILITY(U,$J,.85,208,0)
 ;;=LAMBA^^LAM^^
 ;;^UTILITY(U,$J,.85,209,0)
 ;;=LANGUAGES, AFRO-ASIATIC^^AFA^^
 ;;^UTILITY(U,$J,.85,210,0)
 ;;=LANGUAGES, ALACALUFAN^^AQA^^
 ;;^UTILITY(U,$J,.85,211,0)
 ;;=LANGUAGES, ALGIC^^AQL^^
 ;;^UTILITY(U,$J,.85,212,0)
 ;;=LANGUAGES, ALGONQUIAN^^ALG^^
 ;;^UTILITY(U,$J,.85,213,0)
 ;;=LANGUAGES, ALTAIC^^TUT^^
 ;;^UTILITY(U,$J,.85,214,0)
 ;;=LANGUAGES, APACHE^^APA^^
 ;;^UTILITY(U,$J,.85,215,0)
 ;;=LANGUAGES, ARAUAN^^AUF^^
 ;;^UTILITY(U,$J,.85,216,0)
 ;;=LANGUAGES, ARAWAKAN^^AWD^^
 ;;^UTILITY(U,$J,.85,217,0)
 ;;=LANGUAGES, ARMENIAN^^HYX^^
 ;;^UTILITY(U,$J,.85,218,0)
 ;;=LANGUAGES, ARTIFICIAL^^ART^^
 ;;^UTILITY(U,$J,.85,219,0)
 ;;=LANGUAGES, ATHAPASCAN^^ATH^^
 ;;^UTILITY(U,$J,.85,220,0)
 ;;=LANGUAGES, ATLANTIC-CONGO^^ALV^^
 ;;^UTILITY(U,$J,.85,221,0)
 ;;=LANGUAGES, AUSTRALIAN^^AUS^^
 ;;^UTILITY(U,$J,.85,222,0)
 ;;=LANGUAGES, AUSTRO-ASIATIC^^AAV^^
 ;;^UTILITY(U,$J,.85,223,0)
 ;;=LANGUAGES, AUSTRONESIAN^^MAP^^
 ;;^UTILITY(U,$J,.85,224,0)
 ;;=LANGUAGES, BALTIC^^BAT^^
 ;;^UTILITY(U,$J,.85,225,0)
 ;;=LANGUAGES, BAMILEKE^^BAI^^
 ;;^UTILITY(U,$J,.85,226,0)
 ;;=LANGUAGES, BANDA^^BAD^^
 ;;^UTILITY(U,$J,.85,227,0)
 ;;=LANGUAGES, BANTU^^BNT^^
 ;;^UTILITY(U,$J,.85,228,0)
 ;;=LANGUAGES, BASQUE^^EUQ^^
 ;;^UTILITY(U,$J,.85,229,0)
 ;;=LANGUAGES, BATAK^^BTK^^
 ;;^UTILITY(U,$J,.85,230,0)
 ;;=LANGUAGES, BERBER^^BER^^
 ;;^UTILITY(U,$J,.85,231,0)
 ;;=LANGUAGES, BIHARI^BH^BIH^^
 ;;^UTILITY(U,$J,.85,232,0)
 ;;=LANGUAGES, CADDOAN^^CDD^^
 ;;^UTILITY(U,$J,.85,233,0)
 ;;=LANGUAGES, CAUCASIAN^^CAU^^
 ;;^UTILITY(U,$J,.85,234,0)
 ;;=LANGUAGES, CELTIC^^CEL^^
 ;;^UTILITY(U,$J,.85,235,0)
 ;;=LANGUAGES, CENTRAL AMERICAN INDIAN^^CAI^^
 ;;^UTILITY(U,$J,.85,236,0)
 ;;=LANGUAGES, CENTRAL MALAYO-POLYNESIAN^^PLF^^
 ;;^UTILITY(U,$J,.85,237,0)
 ;;=LANGUAGES, CENTRAL SUDANIC^^CSU^^
 ;;^UTILITY(U,$J,.85,238,0)
 ;;=LANGUAGES, CHADIC^^CDC^^
 ;;^UTILITY(U,$J,.85,239,0)
 ;;=LANGUAGES, CHAMIC^^CMC^^
 ;;^UTILITY(U,$J,.85,240,0)
 ;;=LANGUAGES, CHIBCHAN^^CBA^^
 ;;^UTILITY(U,$J,.85,241,0)
 ;;=LANGUAGES, CHINESE^^ZHX^^
 ;;^UTILITY(U,$J,.85,242,0)
 ;;=LANGUAGES, CUSHITIC^^CUS^^
 ;;^UTILITY(U,$J,.85,243,0)
 ;;=LANGUAGES, DRAVIDIAN^^DRA^^
 ;;^UTILITY(U,$J,.85,244,0)
 ;;=LANGUAGES, EAST GERMANIC^^GME^^
 ;;^UTILITY(U,$J,.85,245,0)
 ;;=LANGUAGES, EAST SLAVIC^^ZLE^^
 ;;^UTILITY(U,$J,.85,246,0)
 ;;=LANGUAGES, EASTERN MALAYO-POLYNESIAN^^PQE^^
 ;;^UTILITY(U,$J,.85,247,0)
 ;;=LANGUAGES, EASTERN SUDANIC^^SDV^^
 ;;^UTILITY(U,$J,.85,248,0)
 ;;=LANGUAGES, EGYPTIAN^^EGX^^
 ;;^UTILITY(U,$J,.85,249,0)
 ;;=LANGUAGES, ESKIMO-ALEUT^^ESX^^
 ;;^UTILITY(U,$J,.85,250,0)
 ;;=LANGUAGES, FINNO-UGRIAN^^FIU^^
 ;;^UTILITY(U,$J,.85,251,0)
 ;;=LANGUAGES, FORMOSAN^^FOX^^
 ;;^UTILITY(U,$J,.85,252,0)
 ;;=LANGUAGES, GERMANIC^^GEM^^
 ;;^UTILITY(U,$J,.85,253,0)
 ;;=LANGUAGES, GREEK^^GRK^^
 ;;^UTILITY(U,$J,.85,254,0)
 ;;=LANGUAGES, HIMACHALI^^HIM^^
 ;;^UTILITY(U,$J,.85,255,0)
 ;;=LANGUAGES, HMONG-MIEN^^HMX^^
 ;;^UTILITY(U,$J,.85,256,0)
 ;;=LANGUAGES, HOKAN^^HOK^^
 ;;^UTILITY(U,$J,.85,257,0)
 ;;=LANGUAGES, IJO^^IJO^^
 ;;^UTILITY(U,$J,.85,258,0)
 ;;=LANGUAGES, INDIC^^INC^^
 ;;^UTILITY(U,$J,.85,259,0)
 ;;=LANGUAGES, INDO-EUROPEAN^^INE^^
 ;;^UTILITY(U,$J,.85,260,0)
 ;;=LANGUAGES, INDO-IRANIAN^^IIR^^
 ;;^UTILITY(U,$J,.85,261,0)
 ;;=LANGUAGES, IRANIAN^^IRA^^
 ;;^UTILITY(U,$J,.85,262,0)
 ;;=LANGUAGES, IROQUOIAN^^IRO^^
 ;;^UTILITY(U,$J,.85,263,0)
 ;;=LANGUAGES, ITALIC^^ITC^^
 ;;^UTILITY(U,$J,.85,264,0)
 ;;=LANGUAGES, JAPANESE^^JPX^^
 ;;^UTILITY(U,$J,.85,265,0)
 ;;=LANGUAGES, KAREN^^KAR^^
 ;;^UTILITY(U,$J,.85,266,0)
 ;;=LANGUAGES, KHOISAN^^KHI^^
 ;;^UTILITY(U,$J,.85,267,0)
 ;;=LANGUAGES, KORDOFANIAN^^KDO^^
 ;;^UTILITY(U,$J,.85,268,0)
 ;;=LANGUAGES, KRU^^KRO^^
 ;;^UTILITY(U,$J,.85,269,0)
 ;;=LANGUAGES, LAND DAYAK^^DAY^^
 ;;^UTILITY(U,$J,.85,270,0)
 ;;=LANGUAGES, MALAYO-POLYNESIAN^^POZ^^
 ;;^UTILITY(U,$J,.85,271,0)
 ;;=LANGUAGES, MANDE^^DMN^^
 ;;^UTILITY(U,$J,.85,272,0)
 ;;=LANGUAGES, MANOBO^^MNO^^
 ;;^UTILITY(U,$J,.85,273,0)
 ;;=LANGUAGES, MAYAN^^MYN^^
 ;;^UTILITY(U,$J,.85,274,0)
 ;;=LANGUAGES, MON-KHMER^^MKH^^
 ;;^UTILITY(U,$J,.85,275,0)
 ;;=LANGUAGES, MONGOLIAN^^XGN^^
 ;;^UTILITY(U,$J,.85,276,0)
 ;;=LANGUAGES, MULTIPLE^^MUL^^
 ;;^UTILITY(U,$J,.85,277,0)
 ;;=LANGUAGES, MUNDA^^MUN^^
 ;;^UTILITY(U,$J,.85,278,0)
 ;;=LANGUAGES, NA-DENE^^XND^^
 ;;^UTILITY(U,$J,.85,279,0)
 ;;=LANGUAGES, NAHUATL^^NAH^^
 ;;^UTILITY(U,$J,.85,280,0)
 ;;=LANGUAGES, NIGER-KORDOFANIAN^^NIC^^
 ;;^UTILITY(U,$J,.85,281,0)
 ;;=LANGUAGES, NILO-SAHARAN^^SSA^^
 ;;^UTILITY(U,$J,.85,282,0)
 ;;=LANGUAGES, NORTH AMERICAN INDIAN^^NAI^^
 ;;^UTILITY(U,$J,.85,283,0)
 ;;=LANGUAGES, NORTH CAUCASIAN^^CCN^^
 ;;^UTILITY(U,$J,.85,284,0)
 ;;=LANGUAGES, NORTH GERMANIC^^GMQ^^
 ;;^UTILITY(U,$J,.85,285,0)
 ;;=LANGUAGES, NUBIAN^^NUB^^
 ;;^UTILITY(U,$J,.85,286,0)
 ;;=LANGUAGES, OMOTIC^^OMV^^
 ;;^UTILITY(U,$J,.85,287,0)
 ;;=LANGUAGES, OTO-MANGUEAN^^OMQ^^
 ;;^UTILITY(U,$J,.85,288,0)
 ;;=LANGUAGES, OTOMIAN^^OTO^^
 ;;^UTILITY(U,$J,.85,289,0)
 ;;=LANGUAGES, PAPUAN^^PAA^^
 ;;^UTILITY(U,$J,.85,290,0)
 ;;=LANGUAGES, PHILIPPINE^^PHI^^
 ;;^UTILITY(U,$J,.85,291,0)
 ;;=LANGUAGES, PRAKRIT^^PRA^^
 ;;^UTILITY(U,$J,.85,292,0)
 ;;=LANGUAGES, QUECHUAN^^QWE^^
 ;;^UTILITY(U,$J,.85,293,0)
 ;;=LANGUAGES, ROMANCE^^ROA^^
 ;;^UTILITY(U,$J,.85,294,0)
 ;;=LANGUAGES, SALISHAN^^SAL^^
 ;;^UTILITY(U,$J,.85,295,0)
 ;;=LANGUAGES, SAMI^^SMI^^
 ;;^UTILITY(U,$J,.85,296,0)
 ;;=LANGUAGES, SAMOYEDIC^^SYD^^
 ;;^UTILITY(U,$J,.85,297,0)
 ;;=LANGUAGES, SEMITIC^^SEM^^
 ;;^UTILITY(U,$J,.85,298,0)
 ;;=LANGUAGES, SIGN^^SGN^^
 ;;^UTILITY(U,$J,.85,298,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,298,1,1,0)
 ;;=SIGN LANGUAGES
 ;;^UTILITY(U,$J,.85,299,0)
 ;;=LANGUAGES, SINO-TIBETAN^^SIT^^
 ;;^UTILITY(U,$J,.85,300,0)
 ;;=LANGUAGES, SIOUAN^^SIO^^
 ;;^UTILITY(U,$J,.85,301,0)
 ;;=LANGUAGES, SLAVIC^^SLA^^
 ;;^UTILITY(U,$J,.85,302,0)
 ;;=LANGUAGES, SONGHAI^^SON^^
 ;;^UTILITY(U,$J,.85,303,0)
 ;;=LANGUAGES, SORBIAN^^WEN^^
 ;;^UTILITY(U,$J,.85,304,0)
 ;;=LANGUAGES, SOUTH AMERICAN INDIAN^^SAI^^
 ;;^UTILITY(U,$J,.85,305,0)
 ;;=LANGUAGES, SOUTH CAUCASIAN^^CCS^^
 ;;^UTILITY(U,$J,.85,306,0)
 ;;=LANGUAGES, SOUTH SLAVIC^^ZLS^^
 ;;^UTILITY(U,$J,.85,307,0)
 ;;=LANGUAGES, TAI^^TAI^^
 ;;^UTILITY(U,$J,.85,308,0)
 ;;=LANGUAGES, TIBETO-BURMAN^^TBQ^^
 ;;^UTILITY(U,$J,.85,309,0)
 ;;=LANGUAGES, TRANS-NEW GUINEA^^NGF^^
 ;;^UTILITY(U,$J,.85,310,0)
 ;;=LANGUAGES, TUNGUS^^TUW^^
 ;;^UTILITY(U,$J,.85,311,0)
 ;;=LANGUAGES, TUPI^^TUP^^
 ;;^UTILITY(U,$J,.85,312,0)
 ;;=LANGUAGES, TURKIC^^TRK^^
 ;;^UTILITY(U,$J,.85,313,0)
 ;;=LANGUAGES, UNCODED^^MIS^^
 ;;^UTILITY(U,$J,.85,314,0)
 ;;=LANGUAGES, URALIC^^URJ^^
 ;;^UTILITY(U,$J,.85,315,0)
 ;;=LANGUAGES, UTO-AZTECAN^^AZC^^
 ;;^UTILITY(U,$J,.85,316,0)
 ;;=LANGUAGES, WAKASHAN^^WAK^^
 ;;^UTILITY(U,$J,.85,317,0)
 ;;=LANGUAGES, WEST GERMANIC^^GMW^^
 ;;^UTILITY(U,$J,.85,318,0)
 ;;=LANGUAGES, WEST SLAVIC^^ZLW^^
 ;;^UTILITY(U,$J,.85,319,0)
 ;;=LANGUAGES, WESTERN MALAYO-POLYNESIAN^^PQW^^
 ;;^UTILITY(U,$J,.85,320,0)
 ;;=LANGUAGES, YUPIK^^YPK^^
 ;;^UTILITY(U,$J,.85,321,0)
 ;;=LANGUAGES, ZANDE^^ZND^^
 ;;^UTILITY(U,$J,.85,322,0)
 ;;=LAO^LO^LAO^^
 ;;^UTILITY(U,$J,.85,323,0)
 ;;=LATIN^LA^LAT^^
 ;;^UTILITY(U,$J,.85,324,0)
 ;;=LATVIAN^LV^LAV^^
 ;;^UTILITY(U,$J,.85,325,0)
 ;;=LEZGHIAN^^LEZ^^
 ;;^UTILITY(U,$J,.85,326,0)
 ;;=LIMBURGAN^LI^LIM^^
 ;;^UTILITY(U,$J,.85,326,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,326,1,1,0)
 ;;=LIMBURGISH
 ;;^UTILITY(U,$J,.85,326,1,2,0)
 ;;=LIMBURGER
 ;;^UTILITY(U,$J,.85,327,0)
 ;;=LINGALA^LN^LIN^^
 ;;^UTILITY(U,$J,.85,328,0)
 ;;=LITHUANIAN^LT^LIT^^
 ;;^UTILITY(U,$J,.85,329,0)
 ;;=LOJBAN^^JBO^^
 ;;^UTILITY(U,$J,.85,330,0)
 ;;=LOW GERMAN^^NDS^^
 ;;^UTILITY(U,$J,.85,330,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,330,1,1,0)
 ;;=LOW SAXON
 ;;^UTILITY(U,$J,.85,330,1,2,0)
 ;;=GERMAN, LOW
 ;;^UTILITY(U,$J,.85,330,1,3,0)
 ;;=SAXON, LOW
 ;;^UTILITY(U,$J,.85,331,0)
 ;;=LOZI^^LOZ^^
 ;;^UTILITY(U,$J,.85,332,0)
 ;;=LUBA-KATANGA^LU^LUB^^
 ;;^UTILITY(U,$J,.85,333,0)
 ;;=LUBA-LULUA^^LUA^^
 ;;^UTILITY(U,$J,.85,334,0)
 ;;=LUISENO^^LUI^^
 ;;^UTILITY(U,$J,.85,335,0)
 ;;=LUNDA^^LUN^^
 ;;^UTILITY(U,$J,.85,336,0)
 ;;=LUO (KENYA AND TANZANIYA)^^LUO^^
 ;;^UTILITY(U,$J,.85,337,0)
 ;;=LUSHAI^^LUS^^
 ;;^UTILITY(U,$J,.85,338,0)
 ;;=LUXEMBOURGISH^LB^LTZ^^
 ;;^UTILITY(U,$J,.85,338,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,338,1,1,0)
 ;;=LETZEBURGESCH
 ;;^UTILITY(U,$J,.85,339,0)
 ;;=MACEDONIAN^MK^MKD^^MAC
 ;;^UTILITY(U,$J,.85,340,0)
 ;;=MADURESE^^MAD^^
 ;;^UTILITY(U,$J,.85,341,0)
 ;;=MAGAHI^^MAG^^
 ;;^UTILITY(U,$J,.85,342,0)
 ;;=MAITHILI^^MAI^^
 ;;^UTILITY(U,$J,.85,343,0)
 ;;=MAKASAR^^MAK^^
 ;;^UTILITY(U,$J,.85,344,0)
 ;;=MALAGASY^MG^MLG^^
 ;;^UTILITY(U,$J,.85,345,0)
 ;;=MALAY^MS^MSA^^MAY
 ;;^UTILITY(U,$J,.85,346,0)
 ;;=MALAYALAM^ML^MAL^^
 ;;^UTILITY(U,$J,.85,347,0)
 ;;=MALTESE^MT^MLT^^
 ;;^UTILITY(U,$J,.85,348,0)
 ;;=MANCHU^^MNC^^
 ;;^UTILITY(U,$J,.85,349,0)
 ;;=MANDAR^^MDR^^
 ;;^UTILITY(U,$J,.85,350,0)
 ;;=MANDINGO^^MAN^^
 ;;^UTILITY(U,$J,.85,351,0)
 ;;=MANIPURI^^MNI^^
 ;;^UTILITY(U,$J,.85,352,0)
 ;;=MANX^GV^GLV^^
 ;;^UTILITY(U,$J,.85,353,0)
 ;;=MAORI^MI^MRI^^MAO
 ;;^UTILITY(U,$J,.85,354,0)
 ;;=MAPUDUNGUN^^ARN^^
 ;;^UTILITY(U,$J,.85,354,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,354,1,1,0)
 ;;=MAPUCHE
 ;;^UTILITY(U,$J,.85,355,0)
 ;;=MARATHI^MR^MAR^^
 ;;^UTILITY(U,$J,.85,356,0)
 ;;=MARI^^CHM^^
 ;;^UTILITY(U,$J,.85,357,0)
 ;;=MARSHALLESE^MH^MAH^^
 ;;^UTILITY(U,$J,.85,358,0)
 ;;=MARWARI^^MWR^^
 ;;^UTILITY(U,$J,.85,359,0)
 ;;=MASAI^^MAS^^
 ;;^UTILITY(U,$J,.85,360,0)
 ;;=MENDE^^MEN^^
 ;;^UTILITY(U,$J,.85,361,0)
 ;;=MI'KMAQ^^MIC^^
 ;;^UTILITY(U,$J,.85,361,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,361,1,1,0)
 ;;=MICMAC
 ;;^UTILITY(U,$J,.85,362,0)
 ;;=MIDDLE DUTCH^^DUM^^
 ;;^UTILITY(U,$J,.85,362,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,362,1,1,0)
 ;;=DUTCH, MIDDLE (CA.1050-1350)
 ;;^UTILITY(U,$J,.85,363,0)
 ;;=MIDDLE ENGLISH^^ENM^^
 ;;^UTILITY(U,$J,.85,363,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,363,1,1,0)
 ;;=MIDDLE ENGLISH (1100-1500)
 ;;^UTILITY(U,$J,.85,363,1,2,0)
 ;;=ENGLISH, MIDDLE (1100-1500)
 ;;^UTILITY(U,$J,.85,364,0)
 ;;=MIDDLE FRENCH^^FRM^^
 ;;^UTILITY(U,$J,.85,364,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,364,1,1,0)
 ;;=MIDDLE FRENCH (CA. 1400-1600)
 ;;^UTILITY(U,$J,.85,364,1,2,0)
 ;;=FRENCH, MIDDLE (CA. 1400-1600)
 ;;^UTILITY(U,$J,.85,365,0)
 ;;=MIDDLE HIGH GERMAN^^GMH^^
 ;;^UTILITY(U,$J,.85,365,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,365,1,1,0)
 ;;=MIDDLE HIGH GERMAN (CA. 1050-1500)
 ;;^UTILITY(U,$J,.85,365,1,2,0)
 ;;=GERMAN, MIDDLE HIGH (CA. 1050-1500)

DILAI005
DILAI005 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^UTILITY(U,$J,.85,366,0)
 ;;=MIDDLE IRISH^^MGA^^
 ;;^UTILITY(U,$J,.85,366,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,366,1,1,0)
 ;;=MIDDLE IRISH (900-1200)
 ;;^UTILITY(U,$J,.85,366,1,2,0)
 ;;=IRISH, MIDDLE (900-1200)
 ;;^UTILITY(U,$J,.85,367,0)
 ;;=MINANGKABAU^^MIN^^
 ;;^UTILITY(U,$J,.85,368,0)
 ;;=MIRANDESE^^MWL^^
 ;;^UTILITY(U,$J,.85,369,0)
 ;;=MOHAWK^^MOH^^
 ;;^UTILITY(U,$J,.85,370,0)
 ;;=MOKSHA^^MDF^^
 ;;^UTILITY(U,$J,.85,371,0)
 ;;=MONGO^^LOL^^
 ;;^UTILITY(U,$J,.85,372,0)
 ;;=MONGOLIAN^MN^MON^^
 ;;^UTILITY(U,$J,.85,373,0)
 ;;=MOSSI^^MOS^^
 ;;^UTILITY(U,$J,.85,374,0)
 ;;=N'KO^^NQO^^
 ;;^UTILITY(U,$J,.85,375,0)
 ;;=NAURU^NA^NAU^^
 ;;^UTILITY(U,$J,.85,376,0)
 ;;=NAVAJO^NV^NAV^^
 ;;^UTILITY(U,$J,.85,376,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,376,1,1,0)
 ;;=NAVAHO
 ;;^UTILITY(U,$J,.85,377,0)
 ;;=NDEBELE, NORTH^ND^NDE^^
 ;;^UTILITY(U,$J,.85,377,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,377,1,1,0)
 ;;=NORTH NDEBELE
 ;;^UTILITY(U,$J,.85,378,0)
 ;;=NDEBELE, SOUTH^NR^NBL^^
 ;;^UTILITY(U,$J,.85,378,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,378,1,1,0)
 ;;=SOUTH NDEBELE
 ;;^UTILITY(U,$J,.85,379,0)
 ;;=NDONGA^NG^NDO^^
 ;;^UTILITY(U,$J,.85,380,0)
 ;;=NEAPOLITAN^^NAP^^
 ;;^UTILITY(U,$J,.85,381,0)
 ;;=NEPAL BHASA^^NEW^^
 ;;^UTILITY(U,$J,.85,381,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,381,1,1,0)
 ;;=NEWARI
 ;;^UTILITY(U,$J,.85,382,0)
 ;;=NEPALI^NE^NEP^^
 ;;^UTILITY(U,$J,.85,383,0)
 ;;=NIAS^^NIA^^
 ;;^UTILITY(U,$J,.85,384,0)
 ;;=NIUEAN^^NIU^^
 ;;^UTILITY(U,$J,.85,385,0)
 ;;=NO LINGUISTIC CONTENT^^ZXX^^
 ;;^UTILITY(U,$J,.85,385,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,385,1,1,0)
 ;;=NOT APPLICABLE
 ;;^UTILITY(U,$J,.85,386,0)
 ;;=NOGAI^^NOG^^
 ;;^UTILITY(U,$J,.85,387,0)
 ;;=NORWEGIAN^NO^NOR^^
 ;;^UTILITY(U,$J,.85,388,0)
 ;;=NORWEGIAN BOKMAL^NB^NOB^^
 ;;^UTILITY(U,$J,.85,388,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,388,1,1,0)
 ;;=BOKMAL, NORWEGIAN
 ;;^UTILITY(U,$J,.85,389,0)
 ;;=NORWEGIAN NYNORSK^NN^NNO^^
 ;;^UTILITY(U,$J,.85,389,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,389,1,1,0)
 ;;=NYNORSK, NORWEGIAN
 ;;^UTILITY(U,$J,.85,390,0)
 ;;=NUOSU^II^III^^
 ;;^UTILITY(U,$J,.85,390,1,0)
 ;;=^.8501^5^5
 ;;^UTILITY(U,$J,.85,390,1,1,0)
 ;;=BLACK YI
 ;;^UTILITY(U,$J,.85,390,1,2,0)
 ;;=LIANGSHAN YI
 ;;^UTILITY(U,$J,.85,390,1,3,0)
 ;;=NORTHERN YI
 ;;^UTILITY(U,$J,.85,390,1,4,0)
 ;;=NOSU YI
 ;;^UTILITY(U,$J,.85,390,1,5,0)
 ;;=SICHUAN YI
 ;;^UTILITY(U,$J,.85,391,0)
 ;;=NYAMWEZI^^NYM^^
 ;;^UTILITY(U,$J,.85,392,0)
 ;;=NYANKOLE^^NYN^^
 ;;^UTILITY(U,$J,.85,393,0)
 ;;=NYORO^^NYO^^
 ;;^UTILITY(U,$J,.85,394,0)
 ;;=NZIMA^^NZI^^
 ;;^UTILITY(U,$J,.85,395,0)
 ;;=OCCITAN^OC^OCI^^
 ;;^UTILITY(U,$J,.85,395,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,395,1,1,0)
 ;;=OCCITAN (POST 1500)
 ;;^UTILITY(U,$J,.85,396,0)
 ;;=OFFICIAL ARAMAIC^^ARC^^
 ;;^UTILITY(U,$J,.85,396,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,396,1,1,0)
 ;;=OFFICIAL ARAMAIC (700-300 BCE)
 ;;^UTILITY(U,$J,.85,396,1,2,0)
 ;;=ARAMAIC, OFFICIAL (700-300 BCE)
 ;;^UTILITY(U,$J,.85,397,0)
 ;;=OJIBWE^OJ^OJI^^
 ;;^UTILITY(U,$J,.85,397,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,397,1,1,0)
 ;;=OJIBWA
 ;;^UTILITY(U,$J,.85,397,1,2,0)
 ;;=OJIBWAY
 ;;^UTILITY(U,$J,.85,397,1,3,0)
 ;;=CHIPPEWA
 ;;^UTILITY(U,$J,.85,397,1,4,0)
 ;;=ANISHINAABEMOWIN
 ;;^UTILITY(U,$J,.85,398,0)
 ;;=OLD ENGLISH^^ANG^^
 ;;^UTILITY(U,$J,.85,398,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,398,1,1,0)
 ;;=OLD ENGLISH (CA. 450-1100)
 ;;^UTILITY(U,$J,.85,398,1,2,0)
 ;;=ENGLISH, OLD (CA. 450-1100)
 ;;^UTILITY(U,$J,.85,399,0)
 ;;=OLD FRENCH^^FRO^^
 ;;^UTILITY(U,$J,.85,399,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,399,1,1,0)
 ;;=OLD FRENCH (842-CA. 1400)
 ;;^UTILITY(U,$J,.85,399,1,2,0)
 ;;=FRENCH, OLD (842-CA. 1400)
 ;;^UTILITY(U,$J,.85,400,0)
 ;;=OLD HIGH GERMAN^^GOH^^
 ;;^UTILITY(U,$J,.85,400,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,400,1,1,0)
 ;;=OLD HIGH GERMAN (CA. 750-1050)
 ;;^UTILITY(U,$J,.85,400,1,2,0)
 ;;=GERMAN, OLD HIGH (CA. 750-1050)
 ;;^UTILITY(U,$J,.85,401,0)
 ;;=OLD IRISH^^SGA^^
 ;;^UTILITY(U,$J,.85,401,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,401,1,1,0)
 ;;=OLD IRISH (TO 900)
 ;;^UTILITY(U,$J,.85,401,1,2,0)
 ;;=IRISH, OLD (TO 900)
 ;;^UTILITY(U,$J,.85,402,0)
 ;;=OLD NORSE^^NON^^
 ;;^UTILITY(U,$J,.85,402,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,402,1,1,0)
 ;;=NORSE, OLD
 ;;^UTILITY(U,$J,.85,403,0)
 ;;=OLD PERSIAN^^PEO^^PEO
 ;;^UTILITY(U,$J,.85,403,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,403,1,1,0)
 ;;=OLD PERSIAN (CA. 600-400 B.C.)
 ;;^UTILITY(U,$J,.85,403,1,2,0)
 ;;=PERSIAN, OLD (CA. 600-400 B.C.)
 ;;^UTILITY(U,$J,.85,404,0)
 ;;=OLD PROVENCAL^^PRO^^PRO
 ;;^UTILITY(U,$J,.85,404,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,404,1,1,0)
 ;;=OLD PROVENCAL (TO 1500)
 ;;^UTILITY(U,$J,.85,404,1,2,0)
 ;;=PROVENCAL, OLD (TO 1500)
 ;;^UTILITY(U,$J,.85,405,0)
 ;;=ORIYA^OR^ORI^^
 ;;^UTILITY(U,$J,.85,406,0)
 ;;=OROMO^OM^ORM^^
 ;;^UTILITY(U,$J,.85,407,0)
 ;;=OSAGE^^OSA^^
 ;;^UTILITY(U,$J,.85,408,0)
 ;;=OSSETIAN^OS^OSS^^
 ;;^UTILITY(U,$J,.85,408,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,408,1,1,0)
 ;;=OSSETIC
 ;;^UTILITY(U,$J,.85,409,0)
 ;;=OTTOMAN TURKISH^^OTA^^OTA
 ;;^UTILITY(U,$J,.85,409,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,409,1,1,0)
 ;;=OTTOMAN TURKISH (1500-1928)
 ;;^UTILITY(U,$J,.85,409,1,2,0)
 ;;=TURKISH, OTTOMAN (1500-1928)
 ;;^UTILITY(U,$J,.85,410,0)
 ;;=PAHLAVI^^PAL^^
 ;;^UTILITY(U,$J,.85,411,0)
 ;;=PALAUAN^^PAU^^
 ;;^UTILITY(U,$J,.85,412,0)
 ;;=PALI^PI^PLI^^
 ;;^UTILITY(U,$J,.85,413,0)
 ;;=PAMPANGA^^PAM^^
 ;;^UTILITY(U,$J,.85,413,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,413,1,1,0)
 ;;=KAPAMPANGAN
 ;;^UTILITY(U,$J,.85,414,0)
 ;;=PANGASINAN^^PAG^^
 ;;^UTILITY(U,$J,.85,415,0)
 ;;=PAPIAMENTO^^PAP^^
 ;;^UTILITY(U,$J,.85,416,0)
 ;;=PASHTO^PS^PUS^^
 ;;^UTILITY(U,$J,.85,416,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,416,1,1,0)
 ;;=PUSHTO
 ;;^UTILITY(U,$J,.85,417,0)
 ;;=PEDI^^NSO^^
 ;;^UTILITY(U,$J,.85,417,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,417,1,1,0)
 ;;=SEPEDI
 ;;^UTILITY(U,$J,.85,417,1,2,0)
 ;;=NORTHERN SOTHO
 ;;^UTILITY(U,$J,.85,417,1,3,0)
 ;;=SOTHO, NORTHERN
 ;;^UTILITY(U,$J,.85,418,0)
 ;;=PERSIAN^FA^FAS^^PER
 ;;^UTILITY(U,$J,.85,418,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,418,1,1,0)
 ;;=FARSI
 ;;^UTILITY(U,$J,.85,419,0)
 ;;=PHOENICIAN^^PHN^^
 ;;^UTILITY(U,$J,.85,420,0)
 ;;=POHNPEIAN^^PON^^
 ;;^UTILITY(U,$J,.85,421,0)
 ;;=POLISH^PL^POL^^
 ;;^UTILITY(U,$J,.85,422,0)
 ;;=PUNJABI^PA^PAN^^
 ;;^UTILITY(U,$J,.85,422,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,422,1,1,0)
 ;;=PANJABI
 ;;^UTILITY(U,$J,.85,423,0)
 ;;=QUECHUA^QU^QUE^^
 ;;^UTILITY(U,$J,.85,424,0)
 ;;=RAJASTHANI^^RAJ^^
 ;;^UTILITY(U,$J,.85,425,0)
 ;;=RAPANUI^^RAP^^
 ;;^UTILITY(U,$J,.85,426,0)
 ;;=RAROTONGAN^^RAR^^
 ;;^UTILITY(U,$J,.85,426,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,426,1,1,0)
 ;;=COOK ISLANDS MAORI
 ;;^UTILITY(U,$J,.85,428,0)
 ;;=ROMANIAN^RO^RON^^RUM
 ;;^UTILITY(U,$J,.85,428,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,428,1,1,0)
 ;;=MOLDAVIAN
 ;;^UTILITY(U,$J,.85,428,1,2,0)
 ;;=MOLDOVAN
 ;;^UTILITY(U,$J,.85,429,0)
 ;;=ROMANSH^RM^ROH^^
 ;;^UTILITY(U,$J,.85,430,0)
 ;;=ROMANY^^ROM^^
 ;;^UTILITY(U,$J,.85,431,0)
 ;;=RUNDI^RN^RUN^^
 ;;^UTILITY(U,$J,.85,431,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,431,1,1,0)
 ;;=KIRUNDI
 ;;^UTILITY(U,$J,.85,432,0)
 ;;=SAMARITAN ARAMAIC^^SAM^^
 ;;^UTILITY(U,$J,.85,433,0)
 ;;=SAMI, LULE^^SMJ^^
 ;;^UTILITY(U,$J,.85,433,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,433,1,1,0)
 ;;=LULE SAMI
 ;;^UTILITY(U,$J,.85,434,0)
 ;;=SAMI, NORTHERN^SE^SME^^
 ;;^UTILITY(U,$J,.85,434,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,434,1,1,0)
 ;;=NORTHERN SAMI
 ;;^UTILITY(U,$J,.85,435,0)
 ;;=SAMI, SKOLT^^SMS^^
 ;;^UTILITY(U,$J,.85,435,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,435,1,1,0)
 ;;=SKOLT SAMI
 ;;^UTILITY(U,$J,.85,436,0)
 ;;=SAMI, SOUTHERN^^SMA^^
 ;;^UTILITY(U,$J,.85,436,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,436,1,1,0)
 ;;=SOUTHERN SAMI
 ;;^UTILITY(U,$J,.85,437,0)
 ;;=SAMOAN^SM^SMO^^
 ;;^UTILITY(U,$J,.85,438,0)
 ;;=SANDAWE^^SAD^^
 ;;^UTILITY(U,$J,.85,439,0)
 ;;=SANGO^SG^SAG^^
 ;;^UTILITY(U,$J,.85,440,0)
 ;;=SANSKRIT^SA^SAN^^
 ;;^UTILITY(U,$J,.85,441,0)
 ;;=SANTALI^^SAT^^
 ;;^UTILITY(U,$J,.85,442,0)
 ;;=SARDINIAN^SC^SRD^^
 ;;^UTILITY(U,$J,.85,443,0)
 ;;=SASAK^^SAS^^
 ;;^UTILITY(U,$J,.85,444,0)
 ;;=SCOTS^^SCO^^
 ;;^UTILITY(U,$J,.85,445,0)
 ;;=SELKUP^^SEL^^
 ;;^UTILITY(U,$J,.85,446,0)
 ;;=SERBIAN^SR^SRP^^
 ;;^UTILITY(U,$J,.85,447,0)
 ;;=SERER^^SRR^^
 ;;^UTILITY(U,$J,.85,448,0)
 ;;=SHAN^^SHN^^
 ;;^UTILITY(U,$J,.85,449,0)
 ;;=SHONA^SN^SNA^^
 ;;^UTILITY(U,$J,.85,450,0)
 ;;=SICILIAN^^SCN^^
 ;;^UTILITY(U,$J,.85,451,0)
 ;;=SIDAMO^^SID^^
 ;;^UTILITY(U,$J,.85,452,0)
 ;;=SIKSIKA^^BLA^^
 ;;^UTILITY(U,$J,.85,453,0)
 ;;=SINDHI^SD^SND^^
 ;;^UTILITY(U,$J,.85,454,0)
 ;;=SINHALA^SI^SIN^^
 ;;^UTILITY(U,$J,.85,454,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,454,1,1,0)
 ;;=SINHALESE
 ;;^UTILITY(U,$J,.85,455,0)
 ;;=SLAVE (ATHAPASKAN)^^DEN^^
 ;;^UTILITY(U,$J,.85,455,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,455,1,1,0)
 ;;=SLAVEY
 ;;^UTILITY(U,$J,.85,456,0)
 ;;=SLAVONIC, CHURCH^CU^CHU^^
 ;;^UTILITY(U,$J,.85,456,1,0)
 ;;=^.8501^5^5
 ;;^UTILITY(U,$J,.85,456,1,1,0)
 ;;=CHURCH SLAVONIC
 ;;^UTILITY(U,$J,.85,456,1,2,0)
 ;;=CHURCH SLAVIC
 ;;^UTILITY(U,$J,.85,456,1,3,0)
 ;;=OLD CHURCH SLAVONIC
 ;;^UTILITY(U,$J,.85,456,1,4,0)
 ;;=OLD BULGARIAN
 ;;^UTILITY(U,$J,.85,456,1,5,0)
 ;;=OLD SLAVONIC
 ;;^UTILITY(U,$J,.85,457,0)
 ;;=SLOVAK^SK^SLK^^SLO
 ;;^UTILITY(U,$J,.85,458,0)
 ;;=SLOVENIAN^SL^SLV^^
 ;;^UTILITY(U,$J,.85,458,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,458,1,1,0)
 ;;=SLOVENE
 ;;^UTILITY(U,$J,.85,459,0)
 ;;=SOGDIAN^^SOG^^
 ;;^UTILITY(U,$J,.85,460,0)
 ;;=SOMALI^SO^SOM^^
 ;;^UTILITY(U,$J,.85,461,0)
 ;;=SONINKE^^SNK^^
 ;;^UTILITY(U,$J,.85,462,0)
 ;;=SORBIAN, LOWER^^DSB^^
 ;;^UTILITY(U,$J,.85,462,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,462,1,1,0)
 ;;=LOWER SORBIAN
 ;;^UTILITY(U,$J,.85,463,0)
 ;;=SORBIAN, UPPER^^HSB^^
 ;;^UTILITY(U,$J,.85,463,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,463,1,1,0)
 ;;=UPPER SORBIAN
 ;;^UTILITY(U,$J,.85,464,0)
 ;;=SOTHO, SOUTHERN^ST^SOT^^
 ;;^UTILITY(U,$J,.85,464,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,464,1,1,0)
 ;;=SOUTHERN SOTHO
 ;;^UTILITY(U,$J,.85,465,0)
 ;;=SRANAN TONGO^^SRN^^
 ;;^UTILITY(U,$J,.85,466,0)
 ;;=SUKUMA^^SUK^^
 ;;^UTILITY(U,$J,.85,467,0)
 ;;=SUMERIAN^^SUX^^
 ;;^UTILITY(U,$J,.85,468,0)
 ;;=SUNDANESE^SU^SUN^^
 ;;^UTILITY(U,$J,.85,469,0)
 ;;=SUSU^^SUS^^
 ;;^UTILITY(U,$J,.85,470,0)
 ;;=SWAHILI^SW^SWA^^
 ;;^UTILITY(U,$J,.85,471,0)
 ;;=SWATI^SS^SSW^^
 ;;^UTILITY(U,$J,.85,472,0)
 ;;=SWEDISH^SV^SWE^^
 ;;^UTILITY(U,$J,.85,473,0)
 ;;=SWISS GERMAN^^GSW^^
 ;;^UTILITY(U,$J,.85,473,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,473,1,1,0)
 ;;=GERMAN, SWISS
 ;;^UTILITY(U,$J,.85,473,1,2,0)
 ;;=ALEMANNIC
 ;;^UTILITY(U,$J,.85,473,1,3,0)
 ;;=ALSATIAN
 ;;^UTILITY(U,$J,.85,474,0)
 ;;=SYRIAC^^SYR^^
 ;;^UTILITY(U,$J,.85,475,0)
 ;;=TAGALOG^TL^TGL^^
 ;;^UTILITY(U,$J,.85,476,0)
 ;;=TAHITIAN^TY^TAH^^
 ;;^UTILITY(U,$J,.85,477,0)
 ;;=TAJIK^TG^TGK^^
 ;;^UTILITY(U,$J,.85,478,0)
 ;;=TAMASHEK^^TMH^^
 ;;^UTILITY(U,$J,.85,479,0)
 ;;=TAMIL^TA^TAM^^
 ;;^UTILITY(U,$J,.85,480,0)
 ;;=TATAR^TT^TAT^^
 ;;^UTILITY(U,$J,.85,481,0)
 ;;=TELUGU^TE^TEL^^
 ;;^UTILITY(U,$J,.85,482,0)
 ;;=TERENO^^TER^^
 ;;^UTILITY(U,$J,.85,483,0)
 ;;=TETUM^^TET^^
 ;;^UTILITY(U,$J,.85,484,0)
 ;;=THAI^TH^THA^^
 ;;^UTILITY(U,$J,.85,485,0)
 ;;=TIBETAN^BO^BOD^^TIB
 ;;^UTILITY(U,$J,.85,485,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,485,1,1,0)
 ;;=TIBETAN STANDARD
 ;;^UTILITY(U,$J,.85,485,1,2,0)
 ;;=TIBETAN, CENTRAL
 ;;^UTILITY(U,$J,.85,486,0)
 ;;=TIGRE^^TIG^^
 ;;^UTILITY(U,$J,.85,487,0)
 ;;=TIGRINYA^TI^TIR^^
 ;;^UTILITY(U,$J,.85,488,0)
 ;;=TIMNE^^TEM^^
 ;;^UTILITY(U,$J,.85,489,0)
 ;;=TIV^^TIV^^
 ;;^UTILITY(U,$J,.85,490,0)
 ;;=TLINGIT^^TLI^^
 ;;^UTILITY(U,$J,.85,491,0)
 ;;=TOK PISIN^^TPI^^
 ;;^UTILITY(U,$J,.85,492,0)
 ;;=TOKELAU^^TKL^^
 ;;^UTILITY(U,$J,.85,493,0)
 ;;=TONGA (NYASA)^^TOG^^
 ;;^UTILITY(U,$J,.85,494,0)
 ;;=TONGA (TONGA ISLANDS)^TO^TON^^
 ;;^UTILITY(U,$J,.85,494,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,494,1,1,0)
 ;;=TONGA ISLANDS
 ;;^UTILITY(U,$J,.85,495,0)
 ;;=TSIMSHIAN^^TSI^^
 ;;^UTILITY(U,$J,.85,496,0)
 ;;=TSONGA^TS^TSO^^
 ;;^UTILITY(U,$J,.85,497,0)
 ;;=TSWANA^TN^TSN^^
 ;;^UTILITY(U,$J,.85,498,0)
 ;;=TUMBUKA^^TUM^^
 ;;^UTILITY(U,$J,.85,499,0)
 ;;=TURKISH^TR^TUR^^
 ;;^UTILITY(U,$J,.85,500,0)
 ;;=TURKMEN^TK^TUK^^
 ;;^UTILITY(U,$J,.85,501,0)
 ;;=TUVALU^^TVL^^
 ;;^UTILITY(U,$J,.85,502,0)
 ;;=TUVINIAN^^TYV^^
 ;;^UTILITY(U,$J,.85,503,0)
 ;;=TWI^TW^TWI^^
 ;;^UTILITY(U,$J,.85,504,0)
 ;;=UDMURT^^UDM^^
 ;;^UTILITY(U,$J,.85,505,0)
 ;;=UGARITIC^^UGA^^
 ;;^UTILITY(U,$J,.85,506,0)
 ;;=UIGHUR^UG^UIG^^
 ;;^UTILITY(U,$J,.85,506,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,506,1,1,0)
 ;;=UYGHUR
 ;;^UTILITY(U,$J,.85,507,0)
 ;;=UKRAINIAN^UK^UKR^^
 ;;^UTILITY(U,$J,.85,508,0)
 ;;=UMBUNDU^^UMB^^
 ;;^UTILITY(U,$J,.85,509,0)
 ;;=UNDETERMINED^^UND^^
 ;;^UTILITY(U,$J,.85,510,0)
 ;;=URDU^UR^URD^^
 ;;^UTILITY(U,$J,.85,511,0)
 ;;=UZBEK^UZ^UZB^^
 ;;^UTILITY(U,$J,.85,512,0)
 ;;=VAI^^VAI^^
 ;;^UTILITY(U,$J,.85,513,0)
 ;;=VENDA^VE^VEN^^
 ;;^UTILITY(U,$J,.85,514,0)
 ;;=VIETNAMESE^VI^VIE^^
 ;;^UTILITY(U,$J,.85,515,0)
 ;;=VOLAPUK^VO^VOL^^
 ;;^UTILITY(U,$J,.85,516,0)
 ;;=VOTIC^^VOT^^
 ;;^UTILITY(U,$J,.85,517,0)
 ;;=WALLOON^WA^WLN^^
 ;;^UTILITY(U,$J,.85,518,0)
 ;;=WARAY^^WAR^^
 ;;^UTILITY(U,$J,.85,519,0)
 ;;=WASHO^^WAS^^
 ;;^UTILITY(U,$J,.85,520,0)
 ;;=WELSH^CY^CYM^^WEL
 ;;^UTILITY(U,$J,.85,521,0)
 ;;=WOLAITTA^^WAL^^
 ;;^UTILITY(U,$J,.85,521,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,521,1,1,0)
 ;;=WOLAYTTA
 ;;^UTILITY(U,$J,.85,522,0)
 ;;=WOLOF^WO^WOL^^
 ;;^UTILITY(U,$J,.85,523,0)
 ;;=XHOSA^XH^XHO^^
 ;;^UTILITY(U,$J,.85,524,0)
 ;;=YAKUT^^SAH^^
 ;;^UTILITY(U,$J,.85,525,0)
 ;;=YAO^^YAO^^
 ;;^UTILITY(U,$J,.85,526,0)
 ;;=YAPESE^^YAP^^
 ;;^UTILITY(U,$J,.85,527,0)
 ;;=YIDDISH^YI^YID^^
 ;;^UTILITY(U,$J,.85,528,0)
 ;;=YORUBA^YO^YOR^^
 ;;^UTILITY(U,$J,.85,529,0)
 ;;=ZAPOTEC^^ZAP^^
 ;;^UTILITY(U,$J,.85,530,0)
 ;;=ZAZA^^ZZA^^
 ;;^UTILITY(U,$J,.85,530,1,0)
 ;;=^.8501^5^5
 ;;^UTILITY(U,$J,.85,530,1,1,0)
 ;;=DIMILI
 ;;^UTILITY(U,$J,.85,530,1,2,0)
 ;;=DIMLI
 ;;^UTILITY(U,$J,.85,530,1,3,0)
 ;;=KIRDKI
 ;;^UTILITY(U,$J,.85,530,1,4,0)
 ;;=KIRMANJKI
 ;;^UTILITY(U,$J,.85,530,1,5,0)
 ;;=ZAZAKI
 ;;^UTILITY(U,$J,.85,531,0)
 ;;=ZENAGA^^ZEN^^
 ;;^UTILITY(U,$J,.85,532,0)
 ;;=ZHUANG^ZA^ZHA^^
 ;;^UTILITY(U,$J,.85,532,1,0)
 ;;=^.8501^1^1
 ;;^UTILITY(U,$J,.85,532,1,1,0)
 ;;=CHUANG
 ;;^UTILITY(U,$J,.85,533,0)
 ;;=ZULU^ZU^ZUL^^
 ;;^UTILITY(U,$J,.85,534,0)
 ;;=ZUNI^^ZUN^^

DILAI006
DILAI006 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^DIC(.85,0,"AUDIT")
 ;;=
 ;;^DIC(.85,0,"DD")
 ;;=^
 ;;^DIC(.85,0,"DEL")
 ;;=^
 ;;^DIC(.85,0,"LAYGO")
 ;;=^
 ;;^DIC(.85,0,"RD")
 ;;=
 ;;^DIC(.85,0,"WR")
 ;;=^

DILAI007
DILAI007 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 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
Q Q
 ;;^UTILITY(U,$J,"SBF",.85,.85)
 ;;=
 ;;^UTILITY(U,$J,"SBF",.85,.8501)
 ;;=
 ;;^UTILITY(U,$J,"SBF",.85,.8502)
 ;;=

DILAINI1
DILAINI1 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 ; LOADS AND INDEXES DD'S
 ;
 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
 S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
ASK 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
 Q:'$D(DIFQ)  S %=2 W !!,"ARE YOU SURE EVERYTHING'S OK" D YN^DICN I %-1 K DIFQ Q
 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
 D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J) D WAIT^DICD
 S DN="^DILAI" F R=1:1:7 D @(DN_$$B36(R)) W "."
 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
KEYSNIX ; Keys and new style indexes installer ; new in FM V22.2
 N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
 N DIFRFILE S DIFRFILE=0 ; Loop through files
 F  S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE  D
 . K ^TMP("DIFROMS2",$J,"TRIG")
 . N DIFRD S DIFRD=0
 . F  S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD  D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
 . K ^TMP("DIFROMS2",$J,"TRIG")
 . S DIFRD=0
 . F  S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD  D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
 K @DIFRSA ; kill off tran global
 ; VEN/SMH v22.2: Below I added a K D1 because it leaks from the call causing the key matching algo to fail.
DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
 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
 K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
 ;
W S Y=$P($T(@X),";",2) W !,"NOTE: This package also contains "_Y_"S",! Q:'$D(DIFQ(0))
 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
 S:%=2 DIFQ(X)=0 K:%<0 DIFQ
 Q
 ;
OPT ;OPTION
RTN ;ROUTINE DOCUMENTATION NOTE
FUN ;FUNCTION
BUL ;BULLETIN
KEY ;SECURITY KEY
HEL ;HELP FRAME
DIP ;PRINT TEMPLATE
DIE ;INPUT TEMPLATE
DIB ;SORT TEMPLATE
DIS ;FORM
REM ;REMOTE PROCEDURE
 ;
SBF ;FILE AND SUB FILE NUMBERS
IX W "." S DIK="A" F %=0:0 S DIK=$O(^DD(D,DIK)) Q:DIK=""  K ^(DIK)
 S DA(1)=D,DIK="^DD("_D_"," D IXALL^DIK
 I $D(^DIC(D,"%",0)) S DIK="^DIC(D,""%""," G IXALL^DIK
 Q
B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

DILAINI2
DILAINI2 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 ;
 ;
 K ^UTILITY("DIFROM",$J),DIC S DIDUZ=0 S:$D(DUZ)#2 DIDUZ=DUZ S DUZ=.5
 I $D(^DIC(9.2,0))#2,^(0)?1"HEL".E S (DIC,DLAYGO)=9.2,N="HEL",DIC(0)="LX" G ADD
 Q
 ;
ADD 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
 S DIK=DIC
HELP S R=$O(^UTILITY("DIFROM",$J,N,R)) Q:R=""  W !,"'"_R_"' Help Frame filed." S DA=^(R)
 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)
 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)
 I I S $P(^DIC(9.2,DA,10,0),U,3,4)=%_U_I
IX D IX1^DIK G HELP
 ;
U I $D(DIRUT) S DIFQ=1
 W ! Q
REP S DIR(0)="Y",DIR("A")="Shall I change the NAME of the file to "_DIF
 S DIR("??")="^D REP^DIFROMH1",DIR("B")="NO" D ^DIR G U:$D(DIRUT)
 I Y S DIE=1,DIFQ=0,DA=N,DR=".01////"_DIF D ^DIE Q
 S DIR("A")="Shall I replace your file with mine"
 S DIR("??")="^D AG^DIFROMH1" D ^DIR G U:$D(DIRUT)!'Y
 S DIU(0)="E",DIR("A")="Do you want to keep the Data"
 S DIR("??")="^D CHG^DIFROMH1" D ^DIR G U:$D(DIRUT)
 S:'Y DIU(0)=DIU(0)_"D"
 S DIR("A")="Do you want to keep the Templates"
 S DIR("??")="^D TEMP^DIFROMH1" D ^DIR G U:$D(DIRUT) S:'Y DIU(0)=DIU(0)_"T"
 S DIFQ(N)=1,DIFKEP(N)=DIU(0) W !?15," (",DIF,") " Q

DILAINI3
DILAINI3 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 ;
 ;
 K ^UTILITY("DIFROM",$J) S DIC(0)="LX",(DIC,DLAYGO)=3.6,N="BUL" D ADD:$D(^XMB(3.6,0))
 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."
 I $D(^DIC(9.4,0))#2,^(0)?1"PACK".E S N="PKG",(DIC,DLAYGO)=9.4 D ADD
 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
 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)=%
OR I $D(^ORD(100.99))&$O(^UTILITY(U,$J,"OR","")) D EN^DILAINI4
NP 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
 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)
 I $D(^DIC(9.8,0))#2,^(0)?1"ROUTINE^".E S (DIC,DLAYGO)=9.8,N="RTN" D ADD
 S DIC=.5,DLAYGO=0,N="FUN" D ADD
 I $P($G(^DIC(8994,0)),U)="REMOTE PROCEDURE" S (DIC,DLAYGO)=8994,N="REM" D ADD
 S DIC("S")="I $P(^(0),U,4)=DIFL" F N="DIPT","DIBT","DIE" S DIC=U_N_"(" D ADD
 K DIC("S") S N="DIST(.404,",DIC=U_N,DLAYGO=.404 D ADD
 S DIC("S")="I $P(^(0),U,8)=DIFL",N="DIST(.403,",DIC=U_N,DLAYGO=.403 D ADD
 K ^UTILITY(U,$J),DIC,DLAYGO F DIFR="DIE","DIPT" D DIEZ
 K ^UTILITY("DIFROM",$J) Q
DIEZ I ^DD("VERSION")>17.4,'$D(DISYS) D OS^DII
 E  S DISYS=^DD("OS")
 Q:'$D(^DD("OS",DISYS,"ZS"))
 S DIFR1=""
DZ1 S DIFR1=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1)) Q:DIFR1=""
 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")
 G DZ1
 ;
OP S R=$O(^UTILITY("DIFROM",$J,N,R)) I R="" K ^UTILITY("DIFROM",$J) G Q
 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
 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)=%
 S %=$P(^DIC(19,DA,0),U,12) S:%]"" %=$O(^DIC(9.4,"B",%,0))
 S $P(^DIC(19,DA,0),U,12)=%,%=$P(^(0),U,7),(DZ,DIX)=0
 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")
 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
 S:% ^DIC(19,DA,10,0)="^19.01PI^"_DIX_U_DZ D IX1^DIK G OP
 ;
ADD 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
Q Q
A I N="BUL" K % S %(0)=$G(@(DIC_"+Y,2,0)")) F %=0:0 S %=$O(@(DIC_"+Y,2,%)")) Q:'%  S %(%)=$G(^(%,0))
 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^")
 I N="BUL",%(0)]"" S @(DIC_"+Y,2,0)")=%(0) F %=0:0 S %=$O(%(%)) Q:'%  S @(DIC_"+Y,2,%,0)")=%(%)
 I $E(N,1,2)="DI",('DIFL)!('$D(^DD(+DIFL))) D
 .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!"
 .Q
 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)
 I N="DIST(.403," D BLK
 S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y,DIK=DIC D %XY^%RCR
 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
 I N="DIST(.403," D
 .N DIFRVAL S DIFRVAL=$$VAL^DIFROMSS(.403,DA)
 .I DIFRVAL W !,"Compiling form: ",$P(^DIST(.403,DA,0),U) D EN^DDSZ(DA) Q
 .W !,"ERROR: Form: ",$P(^DIST(.403,DA,0),U)," cannot be compiled"
 .Q
 Q
BLK 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
 K A0,A1,A2,J,L Q
B1 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
 .N X S X=0
 .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)
 .Q
 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
 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
 .N X S X=0
 .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)
 .Q
 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")
 Q
KAD(D0) N D1,X
 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)
 Q

DILAINI4
DILAINI4 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 ;
 ;
EN S DA(1)=1,DIK="^ORD(100.99,1,5," I $D(^ORD(100.99,1,5,DA)) D ^DIK
 S %X="^UTILITY(U,$J,""OR"","_$O(^UTILITY(U,$J,"OR",""))_",",%Y=DIK_DA_","
 S:'$D(^ORD(100.99,1,5,0)) ^(0)="^100.995P^^" S $P(^(0),U,3,4)=DA_U_($P(^(0),U,4)+1)
 D %XY^%RCR S $P(^ORD(100.99,1,5,DA,0),U)=DA,%=$P(^(0),U,4)
 I %]"" S %=$O(^ORD(100.98,"B",%,0)) I %>0 S $P(^ORD(100.99,1,5,DA,0),U,4)=%
 D OR
 S DA(1)=1 D IX1^DIK
 Q
OR S (N,I)=0,X=""
 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
 S:I $P(^ORD(100.99,1,5,DA,1,0),U,3,4)=X_U_I S (N,I)=0,X=""
 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
 S:I $P(^ORD(100.99,1,5,DA,5,0),U,3,4)=X_U_I K N,R,X,Y,I,J
 Q
OR1 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
 S:J $P(^ORD(100.99,1,5,DA,1,N,1,0),U,3,4)=Y_U_J
 Q
ADDP N I,J,N,R,DA,DLAYGO,DO S %=""
 S DIC="^ORD(101,",DIC(0)="LX",DLAYGO=101 D FILE^DICN K DIC Q:Y=-1  S %=+Y Q

DILAINI5
DILAINI5 ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
 Q
IXF ;;
 ;;.85I;LANGUAGE;^DI(.85,;0;y;y;;;;;y;o
 ;;

DILAINIT
DILAINIT ; ; 02-NOV-2012
 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
 ;
 K DIF,DIFQ,DIFQR,DIFQN,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DIFROM,DFR,DTN,DIX,DZ,DIRUT,DTOUT,DUOUT
 S DIOVRD=1,U="^",DIFQ=0,DIFROM="22.2" W !,"This version (#22.2) of 'DILAINIT' was created on 02-NOV-2012"
 W !?9,"(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)",!
 I $D(^DD("VERSION")),^("VERSION")'<22 G GO
 ;W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
 I ^DD("VERSION")<22 W !,"but I need version 22 of the VA FileMan!" G Q
GO ;
EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
 S DIFQ=0 K DIRUT,DTOUT,DUOUT
 F DIFRIR=1:1:1 S DIFRRTN="^DILAINI"_$E("5",DIFRIR) D @DIFRRTN
 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)
 S DIFROM="22.2" D PKG:'$D(DIFROM(0)),^DILAINI1 G Q:'$D(DIFQ) S DIK(0)="AB"
 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)
 K DIFQR D ^DILAINI2,^DILAINI3
 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"
 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
 I DIFROM(0)>0 F %="PRE","INI","INIT" S:$D(DIFROM(%)) $P(^DIC(9.4,DIFROM(0),%),U,2)=DIFROM(%)
 I $G(DIFQN) S $P(^(0),U,3,4)=$P(DIFQN,U,2)_U_($P(^DIC(0),U,4)+DIFQN) K DIFQN
 S:DIFROM(0)>0 ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
D 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)
 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
 I DIFQR D IXALL^DIK:$O(@(DIK_"0)")) W "."
 Q
R G REP^DILAINI2
 ;
1 S N=+$P(DIF(I),";",3),DIF=$P(DIF(I),";",4),S=$P(DIF(I),";",5)
 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:"")
 I Z="" S DIFQ(N)=1,DIFQN=$G(DIFQN)+1_U_N G S
 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
 S DIFQ(N)=$P(DIF(I),";",7)'="n"
 I $L(Z) W $C(7),!,"Note:  You already have the '",$P(Z,U),"' File." S DIFQ(0)=1
 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
 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
S S DIFQR(N)=0 Q:$P(DIF(I),";",13)'="y"!$D(DIRUT)
 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
 S %=$P(DIF(I),";",14)="o" W !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." S DIFQR(N)=%+1
 Q
Q W $C(7),!!,"NO UPDATING HAS OCCURRED!" G Q^DIFROM0
 ;
PKG 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
 Q
 ;
IXF ;;;1

DINIT
DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999 ; 11/14/12 11:18am
V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
 D KL^DINIT6
N ;
 D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW
 I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D
 . 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!!",!!
 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
DO W !!,"Initialize VA FileMan now?  NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6
 I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO
NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "
 R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")
 I X'?1AN.ANP W "  ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA
 S %X=X
NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "
 R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)
 S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X
 I X'>0 W "  ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO
 ;***** REMOVE AFTER V21 INIT *****
 ;D
 ;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC  Q:DIREC>10000  K ^DI(.84,DIREC,5)
 ;. Q
 ;*********************************
 K ^DD(0) D ^DINIT0,^DINIT11B
 D OSETC
 W ! S Y=1 D OS G KL^DINIT6:Y<0
 W !!,"Now loading other FileMan files--please wait." G GO
 ;
 ;
OS 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
 E  S (DITZS,^DD("OS"))=100
 D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y
 I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D
 . S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""
 . S ZTDESC="Set Operating System" D ^%ZTLOAD Q
Q K DITZS,ZTSK Q
VERSION ;
 S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
 ;
GO S I=$C(126),DIT=$P($H,",",2)
 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"
 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
 S ^DIA(0)="AUDIT^1.1I"
 K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)
 K ^DIC(.403),^(.404),^(1.2)
 K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)
 F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")
 K ^DIC(.46),^DD(.46),^(.461),^(.463)
 K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)
 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)
 G ^DINIT0F0
 ;
OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
 N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0
 W !!,"Now loading MUMPS Operating System File"
 D ^DINIT21,OSDD^DINIT24
 S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3
 S ^DIC(.7,"%D",0)="^^5^5^2940908^"
 S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code.  Since the code to invoke"
 S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"
 S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"
 S ^DIC(.7,"%D",4,0)="this file.  During the FileMan INIT process an operating system is"
 S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."
 K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3
 K DA,DIK S DIK="^DD(""OS""," D X^DINIT3
 D
 . 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
 . Q
 ;
 K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
 K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
 K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
 S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
 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
 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
 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
 ; Keys and new style indexes installer ; new in FM V22.2
 N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
 N DIFRFILE S DIFRFILE=0 ; Loop through files
 F  S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE  D
 . K ^TMP("DIFROMS2",$J,"TRIG")
 . N DIFRD S DIFRD=0
 . F  S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD  D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
 . K ^TMP("DIFROMS2",$J,"TRIG")
 . S DIFRD=0
 . F  S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD  D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
 K @DIFRSA ; kill off tran global
 ;
 D DATA
 Q
 ;
 ; VEN/SMH - added kill D1 since that causes a problem with Transfer/Merge
 ; for keyed fields if it leaks from the symbol table.
DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
 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
 K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
 ;
B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)
N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

DINIT011
DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
 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
Q Q
 ;;^DIC(.85,0,"GL")
 ;;=^DI(.85,
 ;;^DIC("B","LANGUAGE",.85)
 ;;=
 ;;^DIC(.85,"%",0)
 ;;=^1.005
 ;;^DIC(.85,"%D",0)
 ;;=^^27^27^3121101^
 ;;^DIC(.85,"%D",1,0)
 ;;=The LANGUAGE file is used both to officially identify a language, and to
 ;;^DIC(.85,"%D",2,0)
 ;;=store MUMPS code needed to do language-specific conversions of data such
 ;;^DIC(.85,"%D",3,0)
 ;;=as dates and numbers.
 ;;^DIC(.85,"%D",4,0)
 ;;= 
 ;;^DIC(.85,"%D",5,0)
 ;;=Fileman distributes entries for the following languages:
 ;;^DIC(.85,"%D",6,0)
 ;;= ID Number (.001)       Name (.01)
 ;;^DIC(.85,"%D",7,0)
 ;;=                1       English
 ;;^DIC(.85,"%D",8,0)
 ;;=                2       German
 ;;^DIC(.85,"%D",9,0)
 ;;=                3       Spanish
 ;;^DIC(.85,"%D",10,0)
 ;;=                4       French
 ;;^DIC(.85,"%D",11,0)
 ;;=                5       Finnish
 ;;^DIC(.85,"%D",12,0)
 ;;=                6       Italian
 ;;^DIC(.85,"%D",13,0)
 ;;=                7       Portuguese
 ;;^DIC(.85,"%D",14,0)
 ;;=               10       Arabic
 ;;^DIC(.85,"%D",15,0)
 ;;=               11       Russian
 ;;^DIC(.85,"%D",16,0)
 ;;=               12       Greek
 ;;^DIC(.85,"%D",17,0)
 ;;=               18       Hebrew
 ;;^DIC(.85,"%D",18,0)
 ;;= 
 ;;^DIC(.85,"%D",19,0)
 ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
 ;;^DIC(.85,"%D",20,0)
 ;;=DILAINIT routines, shipped with Fileman 22.2.
 ;;^DIC(.85,"%D",21,0)
 ;;= 
 ;;^DIC(.85,"%D",22,0)
 ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
 ;;^DIC(.85,"%D",23,0)
 ;;=also allows non-English text to be returned via FileMan calls.
 ;;^DIC(.85,"%D",24,0)
 ;;= 
 ;;^DIC(.85,"%D",25,0)
 ;;=A note to VISTA developers: Although users can select entries by name, 
 ;;^DIC(.85,"%D",26,0)
 ;;=software should use the official two or three letter codes to eliminiate 
 ;;^DIC(.85,"%D",27,0)
 ;;=mistakes resulting from languages that have similar spelling.
 ;;^DIC(.85,"%MSC")
 ;;=3121114.111954
 ;;^DD(.85,0)
 ;;=FIELD^^10^20
 ;;^DD(.85,0,"DDA")
 ;;=N
 ;;^DD(.85,0,"DT")
 ;;=3121101
 ;;^DD(.85,0,"ID",.02)
 ;;=W "   ",$P(^(0),U,2)
 ;;^DD(.85,0,"ID",.03)
 ;;=W "   ",$P(^(0),U,3)
 ;;^DD(.85,0,"IX","F",.8501,.01)
 ;;=
 ;;^DD(.85,0,"NM","LANGUAGE")
 ;;=
 ;;^DD(.85,0,"PT",.007,.001)
 ;;=
 ;;^DD(.85,0,"PT",.008,.001)
 ;;=
 ;;^DD(.85,0,"PT",.009,.001)
 ;;=
 ;;^DD(.85,0,"PT",.4,709.1)
 ;;=
 ;;^DD(.85,0,"PT",.4,1819.1)
 ;;=
 ;;^DD(.85,0,"PT",.847,.01)
 ;;=
 ;;^DD(.85,0,"PT",.85,.08)
 ;;=
 ;;^DD(.85,0,"PT",.85,.09)
 ;;=
 ;;^DD(.85,0,"PT",1.008,.001)
 ;;=
 ;;^DD(.85,0,"PT",200,200.07)
 ;;=
 ;;^DD(.85,0,"PT",8989.3,207)
 ;;=
 ;;^DD(.85,.001,0)
 ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
 ;;^DD(.85,.001,3)
 ;;=Type a number between 1 and 9999999999, 0 decimal digits.
 ;;^DD(.85,.001,21,0)
 ;;=^^3^3^3121031^^
 ;;^DD(.85,.001,21,1,0)
 ;;=A number that is used to uniquely identify a language.  This number
 ;;^DD(.85,.001,21,2,0)
 ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
 ;;^DD(.85,.001,21,3,0)
 ;;=during Kernel signon to signify which language Fileman should use.
 ;;^DD(.85,.001,23,0)
 ;;=^^31^31^3121031^
 ;;^DD(.85,.001,23,1,0)
 ;;=Entries in this file are standardized, with the contents controlled by 
 ;;^DD(.85,.001,23,2,0)
 ;;=the Fileman Primary Development Team. The ID Number field is used to help 
 ;;^DD(.85,.001,23,3,0)
 ;;=protect referential integrity in VISTA databases during upgrades to the 
 ;;^DD(.85,.001,23,4,0)
 ;;=file. ID Number assignment corresponds to the order in which languages 
 ;;^DD(.85,.001,23,5,0)
 ;;=were added to the file. They were added in segments.
 ;;^DD(.85,.001,23,6,0)
 ;;= 
 ;;^DD(.85,.001,23,7,0)
 ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which 
 ;;^DD(.85,.001,23,8,0)
 ;;=were the first eleven languages added, in order. English is first because 
 ;;^DD(.85,.001,23,9,0)
 ;;=Fileman was originally written in English. German is second because 
 ;;^DD(.85,.001,23,10,0)
 ;;=Marcus Werners of Germany led the effort to create Fileman's dialog 
 ;;^DD(.85,.001,23,11,0)
 ;;=framework, to make translating VISTA into other languages easier. 
 ;;^DD(.85,.001,23,12,0)
 ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in 
 ;;^DD(.85,.001,23,13,0)
 ;;=which the Fileman team was approached by potential translators about 
 ;;^DD(.85,.001,23,14,0)
 ;;=adding those languages to the file (though Finnish actually predates all 
 ;;^DD(.85,.001,23,15,0)
 ;;=other translation efforts except English). Arabic was assigned ID Number 
 ;;^DD(.85,.001,23,16,0)
 ;;=10 instead of 8 in recognition of the debt English owes Arabic for 
 ;;^DD(.85,.001,23,17,0)
 ;;=introducing the decimal numbering system to Europe. Russian and Greek 
 ;;^DD(.85,.001,23,18,0)
 ;;=were the next two translations the Fileman team was approached about. I 
 ;;^DD(.85,.001,23,19,0)
 ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm 
 ;;^DD(.85,.001,23,20,0)
 ;;=sure there was a reason.
 ;;^DD(.85,.001,23,21,0)
 ;;= 
 ;;^DD(.85,.001,23,22,0)
 ;;=Thereafter, languages are added in segments, in order by Name, starting 
 ;;^DD(.85,.001,23,23,0)
 ;;=with ID Number 8. The segments correspond to the ISO 639 language 
 ;;^DD(.85,.001,23,24,0)
 ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and 
 ;;^DD(.85,.001,23,25,0)
 ;;=so on). Each language has one unique record in this file, so wherever a 
 ;;^DD(.85,.001,23,26,0)
 ;;=language in one segment has already been included in an earlier segment, 
 ;;^DD(.85,.001,23,27,0)
 ;;=it is not included in the later segment (e.g., Greek was in segment one, 
 ;;^DD(.85,.001,23,28,0)
 ;;=so it is not also added as a duplicate in segment two).
 ;;^DD(.85,.001,23,29,0)
 ;;= 
 ;;^DD(.85,.001,23,30,0)
 ;;=This segmented approach makes it comparatively easy to upgrade the file 
 ;;^DD(.85,.001,23,31,0)
 ;;=in discrete batches, to keep the update projects manageable.
 ;;^DD(.85,.001,"DT")
 ;;=3121031
 ;;^DD(.85,.01,0)
 ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
 ;;^DD(.85,.01,.1)
 ;;=Language-Name
 ;;^DD(.85,.01,3)
 ;;=Answer must be 1-60 characters in length.
 ;;^DD(.85,.01,21,0)
 ;;=^^10^10^3121031^
 ;;^DD(.85,.01,21,1,0)
 ;;=Enter the English name of the language, not the native name. 
 ;;^DD(.85,.01,21,2,0)
 ;;= 
 ;;^DD(.85,.01,21,3,0)
 ;;=The default is the English name from ISO 639, converted where necessary to
 ;;^DD(.85,.01,21,4,0)
 ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
 ;;^DD(.85,.01,21,5,0)
 ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
 ;;^DD(.85,.01,21,6,0)
 ;;=used.
 ;;^DD(.85,.01,21,7,0)
 ;;= 
 ;;^DD(.85,.01,21,8,0)
 ;;=However, this use of ISO 639's spelling as a default is overridden in 
 ;;^DD(.85,.01,21,9,0)
 ;;=several different ways to improve consistency across entries and to 
 ;;^DD(.85,.01,21,10,0)
 ;;=reduce selection error.
 ;;^DD(.85,.01,23,0)
 ;;=^^63^63^3121031^
 ;;^DD(.85,.01,23,1,0)
 ;;=This is the English name of the language, not the native name. It 
 ;;^DD(.85,.01,23,2,0)
 ;;=defaults to the English name from ISO 639, mixed case, converted where 
 ;;^DD(.85,.01,23,3,0)
 ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central 
 ;;^DD(.85,.01,23,4,0)
 ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's 
 ;;^DD(.85,.01,23,5,0)
 ;;=spelling is used.
 ;;^DD(.85,.01,23,6,0)
 ;;= 
 ;;^DD(.85,.01,23,7,0)
 ;;=However, this use of ISO 639's spelling as a default is overridden in 
 ;;^DD(.85,.01,23,8,0)
 ;;=several different ways to improve consistency across entries and to 
 ;;^DD(.85,.01,23,9,0)
 ;;=reduce selection error.
 ;;^DD(.85,.01,23,10,0)
 ;;= 
 ;;^DD(.85,.01,23,11,0)
 ;;=For example, for most modern languages, the form of the name that 
 ;;^DD(.85,.01,23,12,0)
 ;;=includes the word "Modern" and the parenthesized dates is an alternate 
 ;;^DD(.85,.01,23,13,0)
 ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we 
 ;;^DD(.85,.01,23,14,0)
 ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)" 
 ;;^DD(.85,.01,23,15,0)
 ;;=an alternate name and making the name "Greek" instead.
 ;;^DD(.85,.01,23,16,0)
 ;;= 
 ;;^DD(.85,.01,23,17,0)
 ;;=Since most users of these systems are medical professionals rather than 
 ;;^DD(.85,.01,23,18,0)
 ;;=linguists or historians, we emphasize modern languages and group 
 ;;^DD(.85,.01,23,19,0)
 ;;=historical ones away from the modern names to reduce accidents. For 
 ;;^DD(.85,.01,23,20,0)
 ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as 
 ;;^DD(.85,.01,23,21,0)
 ;;=an alternate name for "Old French" in this file, to move the obsolete 
 ;;^DD(.85,.01,23,22,0)
 ;;=form of the language away from the modern one. Thus, "Old" languages, 
 ;;^DD(.85,.01,23,23,0)
 ;;="Ancient" ones, and "Middle" ones will tend to sort together. However, 
 ;;^DD(.85,.01,23,24,0)
 ;;=languages whose names look like historical ones, such as "Old Church 
 ;;^DD(.85,.01,23,25,0)
 ;;=Slavonic", that are still living languages or in active liturgical use 
 ;;^DD(.85,.01,23,26,0)
 ;;=are kept in this form if that is how they are best known.
 ;;^DD(.85,.01,23,27,0)
 ;;= 
 ;;^DD(.85,.01,23,28,0)
 ;;=Also, such forms that include parenthetical dates are changed to remove 
 ;;^DD(.85,.01,23,29,0)
 ;;=the dates and parentheses from the Name field; the original forms and 
 ;;^DD(.85,.01,23,30,0)
 ;;=variants are preserved in the Alternate Name field.
 ;;^DD(.85,.01,23,31,0)
 ;;= 
 ;;^DD(.85,.01,23,32,0)
 ;;=For similar reasons, language collections like "Banda languages" are 
 ;;^DD(.85,.01,23,33,0)
 ;;=renamed as "Languages, Banda" to move them away from individual language 
 ;;^DD(.85,.01,23,34,0)
 ;;=a patient might speak, like "Banda-Banda". The same was preserved from 
 ;;^DD(.85,.01,23,35,0)
 ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins, 
 ;;^DD(.85,.01,23,36,0)
 ;;=Portuguese-Based"), which are collective languages, to kepp them separate 
 ;;^DD(.85,.01,23,37,0)
 ;;=from the individual languages they might be confused with (such as 
 ;;^DD(.85,.01,23,38,0)
 ;;="Portuguese"). However, individual languages like "Haitian Creole" and 
 ;;^DD(.85,.01,23,39,0)
 ;;="Chinook Jargon" whose ISO 639 names makes them sound like language 
 ;;^DD(.85,.01,23,40,0)
 ;;=collections are nevertheless left as is, since these are the names they 
 ;;^DD(.85,.01,23,41,0)
 ;;=are known by and since the distinguishing part of the name does come 
 ;;^DD(.85,.01,23,42,0)
 ;;=first, allowing for unambiguous selection.
 ;;^DD(.85,.01,23,43,0)
 ;;= 
 ;;^DD(.85,.01,23,44,0)
 ;;=Where the language name from ISO 639 is a list of alternative names, as 
 ;;^DD(.85,.01,23,45,0)
 ;;=in "Catalan, Valencian", the dominant name (based on other code sets, 
 ;;^DD(.85,.01,23,46,0)
 ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the 
 ;;^DD(.85,.01,23,47,0)
 ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
 ;;^DD(.85,.01,23,48,0)
 ;;= 
 ;;^DD(.85,.01,23,49,0)
 ;;=As a general rule (except in the case of language collections), ISO 639 
 ;;^DD(.85,.01,23,50,0)
 ;;=names that use commas to invert a language name (like "Sorbian, Upper") 
 ;;^DD(.85,.01,23,51,0)
 ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an 
 ;;^DD(.85,.01,23,52,0)
 ;;=Alternate Name. We do not try to use commas in the Name field to group 
 ;;^DD(.85,.01,23,53,0)
 ;;=together all related languages or dialects, though we do in the Alternate 
 ;;^DD(.85,.01,23,54,0)
 ;;=Name field.
 ;;^DD(.85,.01,23,55,0)
 ;;= 
 ;;^DD(.85,.01,23,56,0)
 ;;=In the Name field, parenthetical comments are generally restricted to 
 ;;^DD(.85,.01,23,57,0)
 ;;=distinguishing between unrelated languages that have the same name, like 
 ;;^DD(.85,.01,23,58,0)
 ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The 
 ;;^DD(.85,.01,23,59,0)
 ;;=parenthetical words will be (in order of preference) a country, a people, 
 ;;^DD(.85,.01,23,60,0)
 ;;=or an alternate name of the language, so long as it distinguishes it from 
 ;;^DD(.85,.01,23,61,0)
 ;;=the other identically named languages. To date, we have not had to change 
 ;;^DD(.85,.01,23,62,0)
 ;;=any of the ISO 639 names we've imported to make or correct these 
 ;;^DD(.85,.01,23,63,0)
 ;;=distinctions, but we stand ready to do so to enforce this pattern.
 ;;^DD(.85,.01,"DT")
 ;;=3121031
 ;;^DD(.85,.02,0)
 ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
 ;;^DD(.85,.02,3)
 ;;=Answer must be 2 characters in length.
 ;;^DD(.85,.02,21,0)
 ;;=^^3^3^3121101^^
 ;;^DD(.85,.02,21,1,0)
 ;;=Enter the two-letter code defined for this language in the ISO 639-1
 ;;^DD(.85,.02,21,2,0)
 ;;=standard. Not every language has a two-letter code; for those that do not
 ;;^DD(.85,.02,21,3,0)
 ;;=leave this field blank.
 ;;^DD(.85,.02,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.02,23,1,0)
 ;;=Future versions of this file wil include an optional key on this field.
 ;;^DD(.85,.02,"DT")
 ;;=3121101
 ;;^DD(.85,.03,0)
 ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
 ;;^DD(.85,.03,3)
 ;;=Answer must be 3 characters in length.
 ;;^DD(.85,.03,21,0)
 ;;=^^2^2^3121101^^^^
 ;;^DD(.85,.03,21,1,0)
 ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
 ;;^DD(.85,.03,21,2,0)
 ;;=standard.
 ;;^DD(.85,.03,23,0)
 ;;=^^2^2^3121101^
 ;;^DD(.85,.03,23,1,0)
 ;;=When this file is upgraded to ISO-639-6, an optional key will be added to 
 ;;^DD(.85,.03,23,2,0)
 ;;=this field.
 ;;^DD(.85,.03,"DT")
 ;;=3121101
 ;;^DD(.85,.04,0)
 ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
 ;;^DD(.85,.04,3)
 ;;=Answer must be 4 characters in length.
 ;;^DD(.85,.04,21,0)
 ;;=^^1^1^3121101^^^
 ;;^DD(.85,.04,21,1,0)
 ;;=Enter the four letter code associated with the language in ISO-639-6. 
 ;;^DD(.85,.04,23,0)
 ;;=^^3^3^3121101^
 ;;^DD(.85,.04,23,1,0)
 ;;=This field is currently not used in this version of the release (as of
 ;;^DD(.85,.04,23,2,0)
 ;;=Fileman V22.2). In a future version when this file is upgraded to 
 ;;^DD(.85,.04,23,3,0)
 ;;=ISO-639-6, a key will be added to this field.
 ;;^DD(.85,.04,"DT")
 ;;=3121101
 ;;^DD(.85,.05,0)
 ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
 ;;^DD(.85,.05,3)
 ;;=Answer must be 3 characters in length.
 ;;^DD(.85,.05,21,0)
 ;;=^^4^4^3121101^
 ;;^DD(.85,.05,21,1,0)
 ;;=This is the alternate three letter code for a language. This will only be 
 ;;^DD(.85,.05,21,2,0)
 ;;=used in cases where the language abbreviation is different in English 
 ;;^DD(.85,.05,21,3,0)
 ;;=than in the native language. E.g. GER instead of DEU; for German instead 
 ;;^DD(.85,.05,21,4,0)
 ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
 ;;^DD(.85,.05,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.05,23,1,0)
 ;;=In a future version of Fileman, this field will have an optional key.

DINIT012
DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
 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
Q Q
 ;;^DD(.85,.05,"DT")
 ;;=3121101
 ;;^DD(.85,.06,0)
 ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
 ;;^DD(.85,.06,3)
 ;;=Select a language's scope
 ;;^DD(.85,.06,21,0)
 ;;=^^12^12^3121031^
 ;;^DD(.85,.06,21,1,0)
 ;;=Enter the Scope of a Language.
 ;;^DD(.85,.06,21,2,0)
 ;;= 
 ;;^DD(.85,.06,21,3,0)
 ;;=Individual if the language is an individually identifiable language 
 ;;^DD(.85,.06,21,4,0)
 ;;=(e.g. 'Cantonese').
 ;;^DD(.85,.06,21,5,0)
 ;;= 
 ;;^DD(.85,.06,21,6,0)
 ;;=Macrolanguage if the language encopasses several other languages (e.g. 
 ;;^DD(.85,.06,21,7,0)
 ;;='Chinese')
 ;;^DD(.85,.06,21,8,0)
 ;;= 
 ;;^DD(.85,.06,21,9,0)
 ;;=Collective if the language is a language group (e.g. 'Languages, 
 ;;^DD(.85,.06,21,10,0)
 ;;=Sino-Tibetan')
 ;;^DD(.85,.06,21,11,0)
 ;;= 
 ;;^DD(.85,.06,21,12,0)
 ;;=Special and Local are reserved for specific entries.
 ;;^DD(.85,.06,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.06,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.06,"DT")
 ;;=3121101
 ;;^DD(.85,.07,0)
 ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
 ;;^DD(.85,.07,.1)
 ;;=Historical Status
 ;;^DD(.85,.07,3)
 ;;=Select a choice.
 ;;^DD(.85,.07,21,0)
 ;;=^^12^12^3121101^^
 ;;^DD(.85,.07,21,1,0)
 ;;=Living means that the language is spoken today (e.g. English).
 ;;^DD(.85,.07,21,2,0)
 ;;= 
 ;;^DD(.85,.07,21,3,0)
 ;;=Constructed means that the language is artificial (e.g. Esperanto).
 ;;^DD(.85,.07,21,4,0)
 ;;= 
 ;;^DD(.85,.07,21,5,0)
 ;;=Ancient means that the language is very old and not spoken any more (e.g.
 ;;^DD(.85,.07,21,6,0)
 ;;=Ancient Egyptian).
 ;;^DD(.85,.07,21,7,0)
 ;;= 
 ;;^DD(.85,.07,21,8,0)
 ;;=Historical means that the language was being used in the Medieval times 
 ;;^DD(.85,.07,21,9,0)
 ;;=and is not spoken any more (e.g. Old High German).
 ;;^DD(.85,.07,21,10,0)
 ;;= 
 ;;^DD(.85,.07,21,11,0)
 ;;=Extinct means that the language was being used recently but has died out 
 ;;^DD(.85,.07,21,12,0)
 ;;=(e.g. Cornish).
 ;;^DD(.85,.07,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.07,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.07,"DT")
 ;;=3121101
 ;;^DD(.85,.08,0)
 ;;=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
 ;;^DD(.85,.08,3)
 ;;=Select a choice.
 ;;^DD(.85,.08,12)
 ;;=Only collective languages are selectable
 ;;^DD(.85,.08,12.1)
 ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
 ;;^DD(.85,.08,21,0)
 ;;=^^1^1^3121101^^
 ;;^DD(.85,.08,21,1,0)
 ;;=Enter a language collection to which this language belongs.
 ;;^DD(.85,.08,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.08,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.08,"DT")
 ;;=3121101
 ;;^DD(.85,.09,0)
 ;;=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
 ;;^DD(.85,.09,3)
 ;;=Enter a choice.
 ;;^DD(.85,.09,12)
 ;;=You may only select Macrolanguages
 ;;^DD(.85,.09,12.1)
 ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
 ;;^DD(.85,.09,21,0)
 ;;=^^3^3^3121101^
 ;;^DD(.85,.09,21,1,0)
 ;;=If this language is a dialect of a macrolanguage, select the 
 ;;^DD(.85,.09,21,2,0)
 ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of 
 ;;^DD(.85,.09,21,3,0)
 ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
 ;;^DD(.85,.09,23,0)
 ;;=^^1^1^3121101^
 ;;^DD(.85,.09,23,1,0)
 ;;=The current version of this file does not distribute data for this field.
 ;;^DD(.85,.09,"DT")
 ;;=3121101
 ;;^DD(.85,1,0)
 ;;=ALTERNATE NAME^.8501^^1;0
 ;;^DD(.85,10,0)
 ;;=DESCRIPTION^.8502^^10;0
 ;;^DD(.85,10,"DT")
 ;;=3121031
 ;;^DD(.85,10.1,0)
 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.1,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.1,9)
 ;;=@
 ;;^DD(.85,10.1,21,0)
 ;;=^^6^6^2941121^^^^
 ;;^DD(.85,10.1,21,1,0)
 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
 ;;^DD(.85,10.1,21,2,0)
 ;;=this language. The code should set Y to the ordinal equivalent without
 ;;^DD(.85,10.1,21,3,0)
 ;;=altering any other variables in the environment.  Ex. in English:
 ;;^DD(.85,10.1,21,4,0)
 ;;=       Y=1     becomes         Y=1ST
 ;;^DD(.85,10.1,21,5,0)
 ;;=       Y=2     becomes         Y=2ND
 ;;^DD(.85,10.1,21,6,0)
 ;;=       Y=3     becomes         Y=3RD  etc.
 ;;^DD(.85,10.1,"DT")
 ;;=2940307
 ;;^DD(.85,10.2,0)
 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.2,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.2,9)
 ;;=@
 ;;^DD(.85,10.2,21,0)
 ;;=^^6^6^2941121^^^
 ;;^DD(.85,10.2,21,1,0)
 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
 ;;^DD(.85,10.2,21,2,0)
 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
 ;;^DD(.85,10.2,21,3,0)
 ;;=The code should set Y to the output, without altering any other variables
 ;;^DD(.85,10.2,21,4,0)
 ;;=in the environment.  Ex. in English:
 ;;^DD(.85,10.2,21,5,0)
 ;;= 
 ;;^DD(.85,10.2,21,6,0)
 ;;=       Y=2940612.031245        becomes         Y=JUN 12,1994@03:12:45
 ;;^DD(.85,10.2,"DT")
 ;;=2940307
 ;;^DD(.85,10.21,0)
 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.21,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.21,9)
 ;;=@
 ;;^DD(.85,10.21,21,0)
 ;;=^^22^22^2941122^
 ;;^DD(.85,10.21,21,1,0)
 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
 ;;^DD(.85,10.21,21,2,0)
 ;;=format, to printable format based on the various outputs from routine
 ;;^DD(.85,10.21,21,3,0)
 ;;=FMTE^DILIBF.  This is an extrinsic function.  Coming in to this MUMPS
 ;;^DD(.85,10.21,21,4,0)
 ;;=code, in addition to the internal date in Y, a third parameter will be
 ;;^DD(.85,10.21,21,5,0)
 ;;=defined to contain flags equivalent to the flag passed as the second input
 ;;^DD(.85,10.21,21,6,0)
 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
 ;;^DD(.85,10.21,21,7,0)
 ;;=altering any other variables in the environment.  The output should be
 ;;^DD(.85,10.21,21,8,0)
 ;;=formatted based on these flags:
 ;;^DD(.85,10.21,21,9,0)
 ;;= 
 ;;^DD(.85,10.21,21,10,0)
 ;;= 1    MMM DD, YYYY@HH:MM:SS
 ;;^DD(.85,10.21,21,11,0)
 ;;= 2    MM/DD/YY@HH:MM:SS     no leading zeroes on month,day
 ;;^DD(.85,10.21,21,12,0)
 ;;= 3    DD/MM/YY@HH:MM:SS     no leading zeroes on month,day
 ;;^DD(.85,10.21,21,13,0)
 ;;= 4    YY/MM/DD@HH:MM:SS
 ;;^DD(.85,10.21,21,14,0)
 ;;= 5    MMM DD,YYYY@HH:MM:SS  no space before year,no leading zero on day
 ;;^DD(.85,10.21,21,15,0)
 ;;= 6    MM-DD-YYYY @ HH:MM:SS spaces separate time 
 ;;^DD(.85,10.21,21,16,0)
 ;;= 7    MM-DD-YYYY@HH:MM:SS   no leading zeroes on month,day
 ;;^DD(.85,10.21,21,17,0)
 ;;= 
 ;;^DD(.85,10.21,21,18,0)
 ;;=letters in the flag
 ;;^DD(.85,10.21,21,19,0)
 ;;= S    return always seconds
 ;;^DD(.85,10.21,21,20,0)
 ;;= U    return uppercase month names
 ;;^DD(.85,10.21,21,21,0)
 ;;= P    return time as am,pm
 ;;^DD(.85,10.21,21,22,0)
 ;;= D    return only date part
 ;;^DD(.85,10.21,"DT")
 ;;=2940624
 ;;^DD(.85,10.22,0)
 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.22,3)
 ;;=This is Standard MUMPS code for the output of time only.
 ;;^DD(.85,10.22,9)
 ;;=@
 ;;^DD(.85,10.22,21,0)
 ;;=^^2^2^2960318^
 ;;^DD(.85,10.22,21,1,0)
 ;;=The code stored here will be used to get formatted output of the time
 ;;^DD(.85,10.22,21,2,0)
 ;;=part belonging to a FileMan Date/Time value.
 ;;^DD(.85,10.22,"DT")
 ;;=2960318
 ;;^DD(.85,10.3,0)
 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.3,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.3,9)
 ;;=@
 ;;^DD(.85,10.3,21,0)
 ;;=^^5^5^2941121^^
 ;;^DD(.85,10.3,21,1,0)
 ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
 ;;^DD(.85,10.3,21,2,0)
 ;;=this language. The code should set Y to the cardinal equivalent without
 ;;^DD(.85,10.3,21,3,0)
 ;;=altering any other variables in the environment.  Ex. in English:
 ;;^DD(.85,10.3,21,4,0)
 ;;=       Y=2000     becomes         Y=2,000
 ;;^DD(.85,10.3,21,5,0)
 ;;=       Y=1234567  becomes         Y=1,234,567
 ;;^DD(.85,10.3,"DT")
 ;;=2940308
 ;;^DD(.85,10.4,0)
 ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.4,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.4,9)
 ;;=@
 ;;^DD(.85,10.4,21,0)
 ;;=^^4^4^2941121^
 ;;^DD(.85,10.4,21,1,0)
 ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
 ;;^DD(.85,10.4,21,2,0)
 ;;=this language. The code should set Y to the external format without
 ;;^DD(.85,10.4,21,3,0)
 ;;=altering any other variables in the environment.  In English, changes
 ;;^DD(.85,10.4,21,4,0)
 ;;=   abCdeF      to: ABCDEF
 ;;^DD(.85,10.4,"DT")
 ;;=2940308
 ;;^DD(.85,10.5,0)
 ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,10.5,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,10.5,9)
 ;;=@
 ;;^DD(.85,10.5,21,0)
 ;;=^^4^4^2941121^
 ;;^DD(.85,10.5,21,1,0)
 ;;=MUMPS code used to convert text in Y to its lower-case equivalent in  
 ;;^DD(.85,10.5,21,2,0)
 ;;=this language. The code should set Y to the external format without
 ;;^DD(.85,10.5,21,3,0)
 ;;=altering any other variables in the environment.  In English, changes:
 ;;^DD(.85,10.5,21,4,0)
 ;;=    ABcdEFgHij         to:  abcdefghij
 ;;^DD(.85,10.5,"DT")
 ;;=2940308
 ;;^DD(.85,20.2,0)
 ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.85,20.2,3)
 ;;=This is Standard MUMPS code.
 ;;^DD(.85,20.2,9)
 ;;=@
 ;;^DD(.85,20.2,"DT")
 ;;=2940714
 ;;^DD(.8501,0)
 ;;=ALTERNATE NAME SUB-FIELD^^.01^1
 ;;^DD(.8501,0,"DT")
 ;;=3121101
 ;;^DD(.8501,0,"IX","B",.8501,.01)
 ;;=
 ;;^DD(.8501,0,"NM","ALTERNATE NAME")
 ;;=
 ;;^DD(.8501,0,"UP")
 ;;=.85
 ;;^DD(.8501,.01,0)
 ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
 ;;^DD(.8501,.01,1,0)
 ;;=^.1
 ;;^DD(.8501,.01,1,1,0)
 ;;=.8501^B
 ;;^DD(.8501,.01,1,1,1)
 ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
 ;;^DD(.8501,.01,1,1,2)
 ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
 ;;^DD(.8501,.01,1,2,0)
 ;;=.85^F
 ;;^DD(.8501,.01,1,2,1)
 ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
 ;;^DD(.8501,.01,1,2,2)
 ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
 ;;^DD(.8501,.01,1,2,3)
 ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
 ;;^DD(.8501,.01,1,2,"%D",0)
 ;;=^^1^1^3121101^
 ;;^DD(.8501,.01,1,2,"%D",1,0)
 ;;=Whole file cross-reference for ALTERNATE NAME multiple.
 ;;^DD(.8501,.01,1,2,"DT")
 ;;=3121101
 ;;^DD(.8501,.01,3)
 ;;=Answer must be 1-60 characters in length.
 ;;^DD(.8501,.01,21,0)
 ;;=^^2^2^3121101^^
 ;;^DD(.8501,.01,21,1,0)
 ;;=This field contains other synonyms for a language.
 ;;^DD(.8501,.01,21,2,0)
 ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
 ;;^DD(.8501,.01,"DT")
 ;;=3121101
 ;;^DD(.8502,0)
 ;;=DESCRIPTION SUB-FIELD^^.01^1
 ;;^DD(.8502,0,"DT")
 ;;=3121031
 ;;^DD(.8502,0,"NM","DESCRIPTION")
 ;;=
 ;;^DD(.8502,0,"UP")
 ;;=.85
 ;;^DD(.8502,.01,0)
 ;;=DESCRIPTION^Wx^^0;1
 ;;^DD(.8502,.01,3)
 ;;=Enter an optional language description
 ;;^DD(.8502,.01,"DT")
 ;;=3121031
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
 ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
 ;;=S ^DI(.85,"B",X,DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
 ;;=K ^DI(.85,"B",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
 ;;=K ^DI(.85,"B")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
 ;;=1^F^.85^.01^^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
 ;;=
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
 ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
 ;;=S ^DI(.85,"C",X,DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
 ;;=K ^DI(.85,"C",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
 ;;=K ^DI(.85,"C")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
 ;;=1^F^.85^.02^^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
 ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
 ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
 ;;=K ^DI(.85,"D",$E(X,1,30),DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
 ;;=K ^DI(.85,"D")
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
 ;;=1^F^.85^.03^30^1^F
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
 ;;=^^6^6^3121031^
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
 ;;=This will add entries to the D index for the three letter code a la the 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
 ;;=mnemonic style.
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
 ;;= 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
 ;;=If you need re-cross-reference this field, you need to kill of the 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
 ;;=entries in the regular D index, set the D index, and then set this index 
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
 ;;=to update the D with the mnemonic xrefs.
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
 ;;=S ^DI(.85,"D",X,DA)=1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
 ;;=K ^DI(.85,"D",X,DA)
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
 ;;=^.114IA^1^1
 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
 ;;=1^F^.85^.05^^1^F
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
 ;;=.85^A^P^1046
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
 ;;=^.312IA^1^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
 ;;=.01^.85^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
 ;;=.85^B^S^1048
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
 ;;=^.312IA^1^1
 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
 ;;=.03^.85^1
 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
 ;;=.85^B
 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
 ;;=.85^D

DINIT013
DINIT013 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS ;3121101 ; 11/2/12 8:41am
 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
 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
Q Q
 ;;^UTILITY(U,$J,.85)
 ;;=^DI(.85,
 ;;^UTILITY(U,$J,.85,0)
 ;;=LANGUAGE^.85I^18^11
 ;;^UTILITY(U,$J,.85,1,0)
 ;;=ENGLISH^EN^ENG
 ;;^UTILITY(U,$J,.85,1,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,1,1,1,0)
 ;;=MODERN ENGLISH (1500-)
 ;;^UTILITY(U,$J,.85,1,1,2,0)
 ;;=ENGLISH,MODERN (1500-)
 ;;^UTILITY(U,$J,.85,1,"CRD")
 ;;=I Y S Y=$FN(Y,",")
 ;;^UTILITY(U,$J,.85,1,"DD")
 ;;=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[".")
 ;;^UTILITY(U,$J,.85,1,"FMTE")
 ;;=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
 ;;^UTILITY(U,$J,.85,1,"LC")
 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;;^UTILITY(U,$J,.85,1,"ORD")
 ;;=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")
 ;;^UTILITY(U,$J,.85,1,"TIME")
 ;;=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:"")
 ;;^UTILITY(U,$J,.85,1,"UC")
 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 ;;^UTILITY(U,$J,.85,2,0)
 ;;=GERMAN^DE^DEU^^GER
 ;;^UTILITY(U,$J,.85,2,1,0)
 ;;=^.8501^7^7
 ;;^UTILITY(U,$J,.85,2,1,1,0)
 ;;=GERMAN, STANDARD
 ;;^UTILITY(U,$J,.85,2,1,2,0)
 ;;=STANDARD GERMAN
 ;;^UTILITY(U,$J,.85,2,1,3,0)
 ;;=DEUTSCH
 ;;^UTILITY(U,$J,.85,2,1,4,0)
 ;;=DEUTSCH SPRACHE
 ;;^UTILITY(U,$J,.85,2,1,5,0)
 ;;=TEDESCO
 ;;^UTILITY(U,$J,.85,2,1,6,0)
 ;;=MODERN GERMAN (1500-)
 ;;^UTILITY(U,$J,.85,2,1,7,0)
 ;;=GERMAN,MODERN (1500-)
 ;;^UTILITY(U,$J,.85,2,"CRD")
 ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
 ;;^UTILITY(U,$J,.85,2,"DD")
 ;;=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[".")
 ;;^UTILITY(U,$J,.85,2,"LC")
 ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
 ;;^UTILITY(U,$J,.85,2,"ORD")
 ;;=S:$G(Y) Y=Y_"."
 ;;^UTILITY(U,$J,.85,2,"TIME")
 ;;=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:"")
 ;;^UTILITY(U,$J,.85,2,"UC")
 ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
 ;;^UTILITY(U,$J,.85,3,0)
 ;;=SPANISH^ES^SPA
 ;;^UTILITY(U,$J,.85,3,1,0)
 ;;=^.8501^5^5
 ;;^UTILITY(U,$J,.85,3,1,1,0)
 ;;=CASTILIAN
 ;;^UTILITY(U,$J,.85,3,1,2,0)
 ;;=CASTELLANO
 ;;^UTILITY(U,$J,.85,3,1,3,0)
 ;;=ESPANOL
 ;;^UTILITY(U,$J,.85,3,1,4,0)
 ;;=MODERN SPANISH (1500-)
 ;;^UTILITY(U,$J,.85,3,1,5,0)
 ;;=SPANISH, MODERN (1500-)
 ;;^UTILITY(U,$J,.85,4,0)
 ;;=FRENCH^FR^FRA^^FRE
 ;;^UTILITY(U,$J,.85,4,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,4,1,1,0)
 ;;=FRANCAIS
 ;;^UTILITY(U,$J,.85,4,1,2,0)
 ;;=MODERN FRENCH (1600-)
 ;;^UTILITY(U,$J,.85,4,1,3,0)
 ;;=FRENCH, MODERN (1600-)
 ;;^UTILITY(U,$J,.85,5,0)
 ;;=FINNISH^FI^FIN
 ;;^UTILITY(U,$J,.85,5,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,5,1,1,0)
 ;;=SUOMEA
 ;;^UTILITY(U,$J,.85,5,1,2,0)
 ;;=SUOMI
 ;;^UTILITY(U,$J,.85,5,1,3,0)
 ;;=SUOMEN KIELI
 ;;^UTILITY(U,$J,.85,5,"DD")
 ;;=X:$G(Y) ^DD("DD")
 ;;^UTILITY(U,$J,.85,5,"ORD")
 ;;=I $G(Y) S Y=Y_"."
 ;;^UTILITY(U,$J,.85,6,0)
 ;;=ITALIAN^IT^ITA
 ;;^UTILITY(U,$J,.85,6,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,6,1,1,0)
 ;;=ITALIANO
 ;;^UTILITY(U,$J,.85,6,1,2,0)
 ;;=LINGUA ITALIANA
 ;;^UTILITY(U,$J,.85,7,0)
 ;;=PORTUGUESE^PT^POR
 ;;^UTILITY(U,$J,.85,7,1,0)
 ;;=^.8501^4^4
 ;;^UTILITY(U,$J,.85,7,1,1,0)
 ;;=PORTUGUES
 ;;^UTILITY(U,$J,.85,7,1,2,0)
 ;;=LINGUA PORTUGUESA
 ;;^UTILITY(U,$J,.85,7,1,3,0)
 ;;=MODERN PORTUGUESE (1516-)
 ;;^UTILITY(U,$J,.85,7,1,4,0)
 ;;=PORTUGUESE, MODERN (1516-)
 ;;^UTILITY(U,$J,.85,10,0)
 ;;=ARABIC^AR^ARA
 ;;^UTILITY(U,$J,.85,10,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,10,1,1,0)
 ;;=AL-'ARABIYYAH
 ;;^UTILITY(U,$J,.85,10,1,2,0)
 ;;='ARABI
 ;;^UTILITY(U,$J,.85,11,0)
 ;;=RUSSIAN^RU^RUS
 ;;^UTILITY(U,$J,.85,11,1,0)
 ;;=^.8501^2^2
 ;;^UTILITY(U,$J,.85,11,1,1,0)
 ;;=RUSSKI
 ;;^UTILITY(U,$J,.85,11,1,2,0)
 ;;=RUSSKIY YAZYK
 ;;^UTILITY(U,$J,.85,12,0)
 ;;=GREEK^EL^ELL^^GRE
 ;;^UTILITY(U,$J,.85,12,1,0)
 ;;=^.8501^9^9
 ;;^UTILITY(U,$J,.85,12,1,1,0)
 ;;=ELLINIKA
 ;;^UTILITY(U,$J,.85,12,1,2,0)
 ;;=ELLINIKI GLOSSA
 ;;^UTILITY(U,$J,.85,12,1,3,0)
 ;;=GRAECAE
 ;;^UTILITY(U,$J,.85,12,1,4,0)
 ;;=GREC
 ;;^UTILITY(U,$J,.85,12,1,5,0)
 ;;=GRECO
 ;;^UTILITY(U,$J,.85,12,1,6,0)
 ;;=NEO-HELLENIC
 ;;^UTILITY(U,$J,.85,12,1,7,0)
 ;;=ROMAIC
 ;;^UTILITY(U,$J,.85,12,1,8,0)
 ;;=MODERN GREEK (1453-)
 ;;^UTILITY(U,$J,.85,12,1,9,0)
 ;;=GREEK, MODERN (1453-)
 ;;^UTILITY(U,$J,.85,18,0)
 ;;=HEBREW^HE^HEB
 ;;^UTILITY(U,$J,.85,18,1,0)
 ;;=^.8501^3^3
 ;;^UTILITY(U,$J,.85,18,1,1,0)
 ;;=IVRIT
 ;;^UTILITY(U,$J,.85,18,1,2,0)
 ;;=MODERN HEBREW (1881-)
 ;;^UTILITY(U,$J,.85,18,1,3,0)
 ;;=HEBREW, MODERN (1881-)