Index: /lang-file4mu1and2/DILAI001.m =================================================================== --- /lang-file4mu1and2/DILAI001.m (revision 1594) +++ /lang-file4mu1and2/DILAI001.m (revision 1594) @@ -0,0 +1,410 @@ +DILAI001 ; ; 02-NOV-2012 + ;;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. + ;;^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. Index: /lang-file4mu1and2/DILAI002.m =================================================================== --- /lang-file4mu1and2/DILAI002.m (revision 1594) +++ /lang-file4mu1and2/DILAI002.m (revision 1594) @@ -0,0 +1,438 @@ +DILAI002 ; ; 02-NOV-2012 + ;;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-)Mneumonic 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 C 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 C index, set the C index, and then set this index + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0) + ;;=to update the C 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 Index: /lang-file4mu1and2/DILAI003.m =================================================================== --- /lang-file4mu1and2/DILAI003.m (revision 1594) +++ /lang-file4mu1and2/DILAI003.m (revision 1594) @@ -0,0 +1,600 @@ +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^^ Index: /lang-file4mu1and2/DILAI004.m =================================================================== --- /lang-file4mu1and2/DILAI004.m (revision 1594) +++ /lang-file4mu1and2/DILAI004.m (revision 1594) @@ -0,0 +1,568 @@ +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) Index: /lang-file4mu1and2/DILAI005.m =================================================================== --- /lang-file4mu1and2/DILAI005.m (revision 1594) +++ /lang-file4mu1and2/DILAI005.m (revision 1594) @@ -0,0 +1,588 @@ +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^^ Index: /lang-file4mu1and2/DILAI006.m =================================================================== --- /lang-file4mu1and2/DILAI006.m (revision 1594) +++ /lang-file4mu1and2/DILAI006.m (revision 1594) @@ -0,0 +1,16 @@ +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") + ;;=^ Index: /lang-file4mu1and2/DILAI007.m =================================================================== --- /lang-file4mu1and2/DILAI007.m (revision 1594) +++ /lang-file4mu1and2/DILAI007.m (revision 1594) @@ -0,0 +1,10 @@ +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) + ;;= Index: /lang-file4mu1and2/DILAINI1.m =================================================================== --- /lang-file4mu1and2/DILAINI1.m (revision 1594) +++ /lang-file4mu1and2/DILAINI1.m (revision 1594) @@ -0,0 +1,52 @@ +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",%) Index: /lang-file4mu1and2/DILAINI2.m =================================================================== --- /lang-file4mu1and2/DILAINI2.m (revision 1594) +++ /lang-file4mu1and2/DILAINI2.m (revision 1594) @@ -0,0 +1,29 @@ +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 Index: /lang-file4mu1and2/DILAINI3.m =================================================================== --- /lang-file4mu1and2/DILAINI3.m (revision 1594) +++ /lang-file4mu1and2/DILAINI3.m (revision 1594) @@ -0,0 +1,71 @@ +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 Index: /lang-file4mu1and2/DILAINI4.m =================================================================== --- /lang-file4mu1and2/DILAINI4.m (revision 1594) +++ /lang-file4mu1and2/DILAINI4.m (revision 1594) @@ -0,0 +1,23 @@ +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 Index: /lang-file4mu1and2/DILAINI5.m =================================================================== --- /lang-file4mu1and2/DILAINI5.m (revision 1594) +++ /lang-file4mu1and2/DILAINI5.m (revision 1594) @@ -0,0 +1,7 @@ +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 + ;; Index: /lang-file4mu1and2/DILAINIT.m =================================================================== --- /lang-file4mu1and2/DILAINIT.m (revision 1594) +++ /lang-file4mu1and2/DILAINIT.m (revision 1594) @@ -0,0 +1,46 @@ +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 Index: /lang-file4mu1and2/DINIT.m =================================================================== --- /lang-file4mu1and2/DINIT.m (revision 1594) +++ /lang-file4mu1and2/DINIT.m (revision 1594) @@ -0,0 +1,98 @@ +DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM 30 Mar 1999 ; 11/2/12 8:39am +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) W !!,"Now loading DIALOG and LANGUAGE Files" + K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502),^DI(.85) ; 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",%) Index: /lang-file4mu1and2/DINIT011.m =================================================================== --- /lang-file4mu1and2/DINIT011.m (revision 1594) +++ /lang-file4mu1and2/DINIT011.m (revision 1594) @@ -0,0 +1,410 @@ +DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/2/12 8:40am + ;;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. + ;;^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. Index: /lang-file4mu1and2/DINIT012.m =================================================================== --- /lang-file4mu1and2/DINIT012.m (revision 1594) +++ /lang-file4mu1and2/DINIT012.m (revision 1594) @@ -0,0 +1,440 @@ +DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/2/12 8:40am + ;;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-)Mneumonic 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 C 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 C index, set the C index, and then set this index + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0) + ;;=to update the C with the mnemonic xrefs. + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1) + ;;=S ^DI(.85,"C",X,DA)=1 + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2) + ;;=K ^DI(.85,"C",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,"IX",.85,.85,"E",11.1,1,3) + ;;= + ;;^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^1047 + ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0) + ;;=^.312IA^1^1 + ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0) + ;;=.02^.85^1 + ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A") + ;;=.85^B + ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B") + ;;=.85^C Index: /lang-file4mu1and2/DINIT013.m =================================================================== --- /lang-file4mu1and2/DINIT013.m (revision 1594) +++ /lang-file4mu1and2/DINIT013.m (revision 1594) @@ -0,0 +1,166 @@ +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-) Index: /lang-file4mu1and2/LICENSE.md =================================================================== --- /lang-file4mu1and2/LICENSE.md (revision 1594) +++ /lang-file4mu1and2/LICENSE.md (revision 1594) @@ -0,0 +1,13 @@ + Copyright 2012 Fredrick D.S. Marshall and Sam Habiel + + Licensed under the Apache License, Version 2.0 (the "License"); + you may not use this file except in compliance with the License. + You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, software + distributed under the License is distributed on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + See the License for the specific language governing permissions and + limitations under the License. Index: /lang-file4mu1and2/documentation.md =================================================================== --- /lang-file4mu1and2/documentation.md (revision 1594) +++ /lang-file4mu1and2/documentation.md (revision 1594) @@ -0,0 +1,261 @@ +The following routines should be applied to WV 2.0 in order to install a new language file for use in Meaningful Use Stages 1 and 2. + +More detailed documentation can be found on: +http://www.vistapedia.com/index.php/Language_File_%28.85%29 + +## Warning +DO NOT INSTALL THIS OVER MSC FILEMAN. THE NEW LANGUAGE FILE WILL BE PART OF THE SUCCESSOR OF MSC FILEMAN, FILEMAN V22.2. + +## Getting the software +Download: + +## Installation Instructions +1. Import the routines from the file system using your Mumps implementation's Routine Input from RO format utility. +2. Run ^DINIT. Answer Yes to all Yes/No questions if unsure how to answer. +3. Run ^DILAINIT. Answer Yes to all Yes/No questions. + +### Example Install Transcript + + GTM>D ^%RI + + Routine Input Utility - Converts RO file to *.m files. + + Formfeed delimited ? + Input device: : /home/sakura/Documents/workspace/Vista/FLAP/lang_file/files4wv/langFilemods4wv.ro + + Language File Modifications for WV + GT.M 08-NOV-2012 08:41:55 + + + Output directory : /var/local/wvtest/routines/ + + DILAI001 DILAI002 DILAI003 DILAI004 DILAI005 DILAI006 DILAI007 DILAINI1 + DILAINI2 DILAINI3 DILAINI4 DILAINI5 DILAINIT DINIT DINIT011 DINIT012 + DINIT013 + + + Restored 3972 lines in 17 routines. + GTM>D ^DINIT + + + VA FileMan V.22.0 + + + Initialize VA FileMan now? NO//Y + + SITE NAME: Vista-Office EHR// + + SITE NUMBER: 50// .......................... + + Now loading MUMPS Operating System File + + Do you want to change the MUMPS OPERATING SYSTEM File? NO//.... + + Now loading DIALOG and LANGUAGE Files.............................................................. + + + TYPE OF MUMPS SYSTEM YOU ARE USING: GT.M(UNIX)// + + Now loading other FileMan files--please wait.......................................................................................... + ............................................................................................................................. + .......... + + The following files have been installed: + .11 INDEX + .2 DESTINATION + .31 KEY + .4 PRINT TEMPLATE + .401 SORT TEMPLATE + .402 INPUT TEMPLATE + .403 FORM + .404 BLOCK + .44 FOREIGN FORMAT + .46 IMPORT TEMPLATE + .5 FUNCTION + .6 DD AUDIT + .7 MUMPS OPERATING SYSTEM + .81 DATA TYPE + .83 COMPILED ROUTINE + .84 DIALOG + .85 LANGUAGE + 1 FILE + 1.1 AUDIT + 1.11 ARCHIVAL ACTIVITY + 1.12 FILEGRAM HISTORY + 1.13 FILEGRAM ERROR LOG + 1.2 ALTERNATE EDITOR + 1.521 SQLI_SCHEMA + 1.52101 SQLI_KEY_WORD + 1.5211 SQLI_DATA_TYPE + 1.5212 SQLI_DOMAIN + 1.5213 SQLI_KEY_FORMAT + 1.5214 SQLI_OUTPUT_FORMAT + 1.5215 SQLI_TABLE + 1.5216 SQLI_TABLE_ELEMENT + 1.5217 SQLI_COLUMN + 1.5218 SQLI_PRIMARY_KEY + 1.5219 SQLI_FOREIGN_KEY + 1.52191 SQLI_ERROR_TEXT + 1.52192 SQLI_ERROR_LOG + + + Re-indexing entries in the DIALOG file...................... + + Compiling all forms ... + + DICATT (#.001) + DIPTED (#.1001) + DIKC EDIT (#.1101) + DIKC EDIT UI (#.1102) + DIKK EDIT (#.3101) + DIBTED (#.40001) + DIETED (#.40101) + DIEDIT (#.40201) + DDGF BLOCK EDIT (#.40301) + DDGF PAGE ADD (#.40302) + DDGF PAGE EDIT (#.40303) + DDGF PAGE SELECT (#.40304) + DDGF FORM EDIT (#.40305) + DDGF HEADER BLOCK EDIT (#.40306) + DDGF FIELD ADD (#.40401) + DDGF FIELD CAPTION ONLY (#.40402) + DDGF FIELD DD (#.40403) + DDGF FIELD FORM ONLY (#.40404) + DDGF FIELD COMPUTED (#.40405) + DDGF BLOCK ADD (#.40406) + DDGF BLOCK DELETE (#.40407) + DDGF HEADER BLOCK SELECT (#.40408) + DDXP FF FORM1 (#.441) + DDMP SPECIFY IMPORT (#.461) + XPD EDIT BUILD (#1) + XUEDIT CHARACTERISTICS (#2) + XUEXISTING USER (#3) + XUDEVICE MT (#4) + XUDEVICE SDP (#5) + XUDEVICE SPL (#6) + XUDEVICE HFS (#7) + XUDEVICE CHAN (#8) + XU OPTION SCHEDULE (#9) + XUSERDEACT (#10) + XUTM UCI ASSOC (#11) + XUSITEPARM (#12) + XUAUDIT (#13) + XUREACT USER (#14) + PRSA TD EDIT (#15) + PRSA OT REQ (#16) + PRSA TD DISP (#17) + PRSA TL EDIT (#18) + PRSA TL DISP (#19) + PRSA LV REQ (#20) + PRSA ED REQ (#21) + PRSA VC POST (#22) + PRSA PM POST (#23) + PRSA TD TL (#24) + PRSA TP POST1 (#25) + PRSA TE EDIT (#26) + PRSA FEE POST (#27) + NURA-I-SERVICE (#28) + XU-PERSON CLASS (#29) + XUNEW USER (#30) + SPNLPFM1 (#31) + SPNFFRM1 (#32) + SPNFFRM2 (#33) + SPNLPFM2 (#34) + XPD EDIT MP (#35) + XPD EDIT GP (#36) + PRCHQ1 (#37) + PRCHQ2 (#38) + PRCHQ3 (#39) + PRCHQ4 (#40) + PRCHQ5 (#41) + SPNLP FUN MES (#42) + SPNLP FIM FM1 (#43) + SPNLP CHART FM1 (#44) + SPNLP MS FM1 (#45) + SPNE ENTER/EDIT SYNONYM (#46) + LREPI (#47) + ENPR MS (#48) + ENPR ALL (#49) + ENPR PRELIM (#50) + ENPR AE (#51) + ENPR CO (#52) + ENPR CHG (#53) + ABSV ADD/EDIT MASTER (#54) + XQEDTOPT (#55) + XU-INST-EDIT (#56) + LREPIPROT (#57) + XUTMKE ADD (#58) + WV PROC-FORM-1 (#59) + WV NOTIF-FORM-1 (#60) + WV PATIENT-FORM-1 (#61) + WV NOTIF-FORM-2 (#62) + WV PROC-FORM-2-COLP (#63) + WV NOTIFPURPOSE-FORM-1 (#64) + WV SITE PARAMS-FORM-1 (#65) + WV REFUSED PROCEDURE-ENTRY (#66) + WV PROC-FORM-LAB (#67) + XDR RESFILE FORM (#68) + HL SITE PARAMETERS (#69) + PSB PRN EFFECTIVENESS (#70) + PSB MED LOG EDIT (#71) + PSBO DL (#72) + PSBO WA (#73) + PSBO ML (#74) + PSBO MM (#75) + PSBO PE (#76) + PSB MISSING DOSE REQUEST (#77) + PSBO MH (#78) + PSBO MV (#79) + PSB MISSING DOSE FOLLOWUP (#80) + PSBO BL (#81) + PSBO MD (#82) + PSB NEW UD ENTRY (#83) + PSB NEW IV ENTRY (#84) + HL7 APP (#85) + HL7 LOGICAL LINK (#86) + HL7 INTERFACE (#87) + SPNLP ASIA MES (#88) + PSB MED LOG EDIT IV (#89) + SPNLP FAM FM1 (#90) + SPNLP DIENER FM1 (#91) + SPNLP DUSOI FM1 (#92) + XU-CLINICAL TRAINEE (#93) + XUSSPKI (#94) + INSTITUTION EDIT (#95) + PRSA LD POST (#96) + XUDEVICE LPD (#97) + XUDEVICE TRM (#98) + KMPD PARAMETERS EDIT (#99) + LREPI9 (#100) + XUDEVICE RES (#101) + PSBO BZ (#102) + ENIT EDIT (#103) + PXRM DIALOG EDIT (#104) + XUSITEIP (#105) + PSB BCBU PARAMETERS (#106) + PSBO XA (#107) + MD MAIN (#108) + PRSP ESR POST (#109) + PRSP EXT ABSENCE (#110) + + + INITIALIZATION COMPLETED IN 8 SECONDS. + GTM>D ^DILAINIT + + This version (#22.2) of 'DILAINIT' was created on 02-NOV-2012 + (at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043) + + I AM GOING TO SET UP THE FOLLOWING FILES: + + .85 LANGUAGE (including data) + Note: You already have the 'LANGUAGE' File. + I will OVERWRITE your data with mine. + + SHALL I WRITE OVER FILE SECURITY CODES? No// Y (Yes) + + ARE YOU SURE EVERYTHING'S OK? No// Y (Yes) + + ...HMMM, I'M WORKING AS FAST AS I CAN..................... + OK, I'M DONE. + NOTE THAT FILE SECURITY-CODE PROTECTION HAS BEEN MADE + Index: /lang-file4mu1and2/langFilemods4wv.ro =================================================================== --- /lang-file4mu1and2/langFilemods4wv.ro (revision 1594) +++ /lang-file4mu1and2/langFilemods4wv.ro (revision 1594) @@ -0,0 +1,4010 @@ +Language File Modifications for WV +GT.M 08-NOV-2012 08:41:55 +DILAI001 +DILAI001 ; ; 02-NOV-2012 + ;;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. + ;;^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 + ;;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-)Mneumonic 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 C 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 C index, set the C index, and then set this index + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0) + ;;=to update the C 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/2/12 8:39am +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) W !!,"Now loading DIALOG and LANGUAGE Files" + K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502),^DI(.85) ; 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/2/12 8:40am + ;;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. + ;;^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/2/12 8:40am + ;;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-)Mneumonic 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 C 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 C index, set the C index, and then set this index + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0) + ;;=to update the C with the mnemonic xrefs. + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1) + ;;=S ^DI(.85,"C",X,DA)=1 + ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2) + ;;=K ^DI(.85,"C",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,"IX",.85,.85,"E",11.1,1,3) + ;;= + ;;^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^1047 + ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0) + ;;=^.312IA^1^1 + ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0) + ;;=.02^.85^1 + ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A") + ;;=.85^B + ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B") + ;;=.85^C + +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-) + + +