Routine: DINIT011

DINIT011 ;SFISC/TKW,VEN/SMH-DIALOG & LANGUAGE FILE INITS ;07JAN2016

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 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)

 ;;=^^13^13^3160102^

 ;;^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)

 ;;=The KIDS build for FileMan 22.2 contains all languages in ISO 639-2:1998(as revised 11/21/2012).

 ;;^DIC(.85,"%D",6,0)

 ;;=When installed without the KIDS build, FileMan 22.2 installs 11 languages.

 ;;^DIC(.85,"%D",7,0)

;;=

 ;;^DIC(.85,"%D",8,0)

 ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file

 ;;^DIC(.85,"%D",9,0)

 ;;=also allows non-English text to be returned via FileMan calls.

 ;;^DIC(.85,"%D",10,0)

;;=

 ;;^DIC(.85,"%D",11,0)

 ;;=A note to VISTA developers: Although users can select entries by name,

 ;;^DIC(.85,"%D",12,0)

 ;;=software should use the official two or three letter codes to eliminate

 ;;^DIC(.85,"%D",13,0)

 ;;=mistakes resulting from languages that have similar spelling.

 ;;^DIC(.85,"%MSC")

 ;;=3121114.111954

 ;;^DD(.85,0)

 ;;=FIELD^^10^20

 ;;^DD(.85,0,"DDA")

 ;;=N

 ;;^DD(.85,0,"DT")

 ;;=3121101

 ;;^DD(.85,0,"ID",.02)

 ;;=W "   ",$P(^(0),U,2)

 ;;^DD(.85,0,"ID",.03)

 ;;=W "   ",$P(^(0),U,3)

 ;;^DD(.85,0,"IX","F",.8501,.01)

;;=

 ;;^DD(.85,0,"NM","LANGUAGE")

;;=

 ;;^DD(.85,0,"PT",.007,.001)

;;=

 ;;^DD(.85,0,"PT",.008,.001)

;;=

 ;;^DD(.85,0,"PT",.009,.001)

;;=

 ;;^DD(.85,0,"PT",.4,709.1)

;;=

 ;;^DD(.85,0,"PT",.4,1819.1)

;;=

 ;;^DD(.85,0,"PT",.847,.01)

;;=

 ;;^DD(.85,0,"PT",.85,.08)

;;=

 ;;^DD(.85,0,"PT",.85,.09)

;;=

 ;;^DD(.85,0,"PT",1.008,.001)

;;=

 ;;^DD(.85,0,"PT",200,200.07)

;;=

 ;;^DD(.85,0,"PT",8989.3,207)

;;=

 ;;^DD(.85,.001,0)

 ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X

 ;;^DD(.85,.001,3)

 ;;=Type a number between 1 and 9999999999, 0 decimal digits.

 ;;^DD(.85,.001,21,0)

 ;;=^^3^3^3121031^^

 ;;^DD(.85,.001,21,1,0)

 ;;=A number that is used to uniquely identify a language.  This number

 ;;^DD(.85,.001,21,2,0)

 ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set

 ;;^DD(.85,.001,21,3,0)

 ;;=during Kernel signon to signify which language Fileman should use.

 ;;^DD(.85,.001,23,0)

 ;;=^^31^31^3121031^

 ;;^DD(.85,.001,23,1,0)

 ;;=Entries in this file are standardized, with the contents controlled by

 ;;^DD(.85,.001,23,2,0)

 ;;=the Fileman Primary Development Team. The ID Number field is used to help

 ;;^DD(.85,.001,23,3,0)

 ;;=protect referential integrity in VISTA databases during upgrades to the

 ;;^DD(.85,.001,23,4,0)

 ;;=file. ID Number assignment corresponds to the order in which languages

 ;;^DD(.85,.001,23,5,0)

 ;;=were added to the file. They were added in segments.

 ;;^DD(.85,.001,23,6,0)

;;=

 ;;^DD(.85,.001,23,7,0)

 ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which

 ;;^DD(.85,.001,23,8,0)

 ;;=were the first eleven languages added, in order. English is first because

 ;;^DD(.85,.001,23,9,0)

 ;;=Fileman was originally written in English. German is second because

 ;;^DD(.85,.001,23,10,0)

 ;;=Marcus Werners of Germany led the effort to create Fileman's dialog

 ;;^DD(.85,.001,23,11,0)

 ;;=framework, to make translating VISTA into other languages easier.

 ;;^DD(.85,.001,23,12,0)

 ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in

 ;;^DD(.85,.001,23,13,0)

 ;;=which the Fileman team was approached by potential translators about

 ;;^DD(.85,.001,23,14,0)

 ;;=adding those languages to the file (though Finnish actually predates all

 ;;^DD(.85,.001,23,15,0)

 ;;=other translation efforts except English). Arabic was assigned ID Number

 ;;^DD(.85,.001,23,16,0)

 ;;=10 instead of 8 in recognition of the debt English owes Arabic for

 ;;^DD(.85,.001,23,17,0)

 ;;=introducing the decimal numbering system to Europe. Russian and Greek

 ;;^DD(.85,.001,23,18,0)

 ;;=were the next two translations the Fileman team was approached about. I

 ;;^DD(.85,.001,23,19,0)

 ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm

 ;;^DD(.85,.001,23,20,0)

 ;;=sure there was a reason.

 ;;^DD(.85,.001,23,21,0)

;;=

 ;;^DD(.85,.001,23,22,0)

 ;;=Thereafter, languages are added in segments, in order by Name, starting

 ;;^DD(.85,.001,23,23,0)

 ;;=with ID Number 8. The segments correspond to the ISO 639 language

 ;;^DD(.85,.001,23,24,0)

 ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and

 ;;^DD(.85,.001,23,25,0)

 ;;=so on). Each language has one unique record in this file, so wherever a

 ;;^DD(.85,.001,23,26,0)

 ;;=language in one segment has already been included in an earlier segment,

 ;;^DD(.85,.001,23,27,0)

 ;;=it is not included in the later segment (e.g., Greek was in segment one,

 ;;^DD(.85,.001,23,28,0)

 ;;=so it is not also added as a duplicate in segment two).

 ;;^DD(.85,.001,23,29,0)

;;=

 ;;^DD(.85,.001,23,30,0)

 ;;=This segmented approach makes it comparatively easy to upgrade the file

 ;;^DD(.85,.001,23,31,0)

 ;;=in discrete batches, to keep the update projects manageable.

 ;;^DD(.85,.001,"DT")

 ;;=3121031

 ;;^DD(.85,.01,0)

 ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X

 ;;^DD(.85,.01,.1)

 ;;=Language-Name

 ;;^DD(.85,.01,3)

 ;;=Answer must be 1-60 characters in length.

 ;;^DD(.85,.01,21,0)

 ;;=^^10^10^3121031^

 ;;^DD(.85,.01,21,1,0)

 ;;=Enter the English name of the language, not the native name.

 ;;^DD(.85,.01,21,2,0)

;;=

 ;;^DD(.85,.01,21,3,0)

 ;;=The default is the English name from ISO 639, converted where necessary to

 ;;^DD(.85,.01,21,4,0)

 ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO

 ;;^DD(.85,.01,21,5,0)

 ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is

 ;;^DD(.85,.01,21,6,0)

 ;;=used.

 ;;^DD(.85,.01,21,7,0)

;;=

 ;;^DD(.85,.01,21,8,0)

 ;;=However, this use of ISO 639's spelling as a default is overridden in

 ;;^DD(.85,.01,21,9,0)

 ;;=several different ways to improve consistency across entries and to

 ;;^DD(.85,.01,21,10,0)

 ;;=reduce selection error.

 ;;^DD(.85,.01,23,0)

 ;;=^^63^63^3121031^

 ;;^DD(.85,.01,23,1,0)

 ;;=This is the English name of the language, not the native name. It

 ;;^DD(.85,.01,23,2,0)

 ;;=defaults to the English name from ISO 639, mixed case, converted where

 ;;^DD(.85,.01,23,3,0)

 ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central

 ;;^DD(.85,.01,23,4,0)

 ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's

 ;;^DD(.85,.01,23,5,0)

 ;;=spelling is used.

 ;;^DD(.85,.01,23,6,0)

;;=

 ;;^DD(.85,.01,23,7,0)

 ;;=However, this use of ISO 639's spelling as a default is overridden in

 ;;^DD(.85,.01,23,8,0)

 ;;=several different ways to improve consistency across entries and to

 ;;^DD(.85,.01,23,9,0)

 ;;=reduce selection error.

 ;;^DD(.85,.01,23,10,0)

;;=

 ;;^DD(.85,.01,23,11,0)

 ;;=For example, for most modern languages, the form of the name that

 ;;^DD(.85,.01,23,12,0)

 ;;=includes the word "Modern" and the parenthesized dates is an alternate

 ;;^DD(.85,.01,23,13,0)

 ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we

 ;;^DD(.85,.01,23,14,0)

 ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"

 ;;^DD(.85,.01,23,15,0)

 ;;=an alternate name and making the name "Greek" instead.

 ;;^DD(.85,.01,23,16,0)

;;=

 ;;^DD(.85,.01,23,17,0)

 ;;=Since most users of these systems are medical professionals rather than

 ;;^DD(.85,.01,23,18,0)

 ;;=linguists or historians, we emphasize modern languages and group

 ;;^DD(.85,.01,23,19,0)

 ;;=historical ones away from the modern names to reduce accidents. For

 ;;^DD(.85,.01,23,20,0)

 ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as

 ;;^DD(.85,.01,23,21,0)

 ;;=an alternate name for "Old French" in this file, to move the obsolete

 ;;^DD(.85,.01,23,22,0)

 ;;=form of the language away from the modern one. Thus, "Old" languages,

 ;;^DD(.85,.01,23,23,0)

 ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,

 ;;^DD(.85,.01,23,24,0)

 ;;=languages whose names look like historical ones, such as "Old Church

 ;;^DD(.85,.01,23,25,0)

 ;;=Slavonic", that are still living languages or in active liturgical use

 ;;^DD(.85,.01,23,26,0)

 ;;=are kept in this form if that is how they are best known.

 ;;^DD(.85,.01,23,27,0)

;;=

 ;;^DD(.85,.01,23,28,0)

 ;;=Also, such forms that include parenthetical dates are changed to remove

 ;;^DD(.85,.01,23,29,0)

 ;;=the dates and parentheses from the Name field; the original forms and

 ;;^DD(.85,.01,23,30,0)

 ;;=variants are preserved in the Alternate Name field.

 ;;^DD(.85,.01,23,31,0)

;;=

 ;;^DD(.85,.01,23,32,0)

 ;;=For similar reasons, language collections like "Banda languages" are

 ;;^DD(.85,.01,23,33,0)

 ;;=renamed as "Languages, Banda" to move them away from individual language

 ;;^DD(.85,.01,23,34,0)

 ;;=a patient might speak, like "Banda-Banda". The same was preserved from

 ;;^DD(.85,.01,23,35,0)

 ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,

 ;;^DD(.85,.01,23,36,0)

 ;;=Portuguese-Based"), which are collective languages, to kepp them separate

 ;;^DD(.85,.01,23,37,0)

 ;;=from the individual languages they might be confused with (such as

 ;;^DD(.85,.01,23,38,0)

 ;;="Portuguese"). However, individual languages like "Haitian Creole" and

 ;;^DD(.85,.01,23,39,0)

 ;;="Chinook Jargon" whose ISO 639 names makes them sound like language

 ;;^DD(.85,.01,23,40,0)

 ;;=collections are nevertheless left as is, since these are the names they

 ;;^DD(.85,.01,23,41,0)

 ;;=are known by and since the distinguishing part of the name does come

 ;;^DD(.85,.01,23,42,0)

 ;;=first, allowing for unambiguous selection.

 ;;^DD(.85,.01,23,43,0)

;;=

 ;;^DD(.85,.01,23,44,0)

 ;;=Where the language name from ISO 639 is a list of alternative names, as

 ;;^DD(.85,.01,23,45,0)

 ;;=in "Catalan, Valencian", the dominant name (based on other code sets,

 ;;^DD(.85,.01,23,46,0)

 ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the

 ;;^DD(.85,.01,23,47,0)

 ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.

 ;;^DD(.85,.01,23,48,0)

;;=

 ;;^DD(.85,.01,23,49,0)

 ;;=As a general rule (except in the case of language collections), ISO 639

 ;;^DD(.85,.01,23,50,0)

 ;;=names that use commas to invert a language name (like "Sorbian, Upper")

 ;;^DD(.85,.01,23,51,0)

 ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an

 ;;^DD(.85,.01,23,52,0)

 ;;=Alternate Name. We do not try to use commas in the Name field to group

 ;;^DD(.85,.01,23,53,0)

 ;;=together all related languages or dialects, though we do in the Alternate

 ;;^DD(.85,.01,23,54,0)

 ;;=Name field.

 ;;^DD(.85,.01,23,55,0)

;;=

 ;;^DD(.85,.01,23,56,0)

 ;;=In the Name field, parenthetical comments are generally restricted to

 ;;^DD(.85,.01,23,57,0)

 ;;=distinguishing between unrelated languages that have the same name, like

 ;;^DD(.85,.01,23,58,0)

 ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The

 ;;^DD(.85,.01,23,59,0)

 ;;=parenthetical words will be (in order of preference) a country, a people,

 ;;^DD(.85,.01,23,60,0)

 ;;=or an alternate name of the language, so long as it distinguishes it from

 ;;^DD(.85,.01,23,61,0)

 ;;=the other identically named languages. To date, we have not had to change

 ;;^DD(.85,.01,23,62,0)

 ;;=any of the ISO 639 names we've imported to make or correct these

 ;;^DD(.85,.01,23,63,0)

 ;;=distinctions, but we stand ready to do so to enforce this pattern.

 ;;^DD(.85,.01,"DT")

 ;;=3121031

 ;;^DD(.85,.02,0)

 ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X

 ;;^DD(.85,.02,3)

 ;;=Answer must be 2 characters in length.

 ;;^DD(.85,.02,21,0)

 ;;=^^3^3^3121101^^

 ;;^DD(.85,.02,21,1,0)

 ;;=Enter the two-letter code defined for this language in the ISO 639-1

 ;;^DD(.85,.02,21,2,0)

 ;;=standard. Not every language has a two-letter code; for those that do not

 ;;^DD(.85,.02,21,3,0)

 ;;=leave this field blank.

 ;;^DD(.85,.02,23,0)

 ;;=^^1^1^3121101^

 ;;^DD(.85,.02,23,1,0)

 ;;=Future versions of this file wil include an optional key on this field.

 ;;^DD(.85,.02,"DT")

 ;;=3121101

 ;;^DD(.85,.03,0)

 ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X

 ;;^DD(.85,.03,3)

 ;;=Answer must be 3 characters in length.

 ;;^DD(.85,.03,21,0)

 ;;=^^2^2^3121101^^^^

 ;;^DD(.85,.03,21,1,0)

 ;;=Enter the three-letter code defined for this language in the ISO 639-2/B

 ;;^DD(.85,.03,21,2,0)

 ;;=standard.

 ;;^DD(.85,.03,23,0)

 ;;=^^2^2^3121101^

 ;;^DD(.85,.03,23,1,0)

 ;;=When this file is upgraded to ISO-639-6, an optional key will be added to

 ;;^DD(.85,.03,23,2,0)

 ;;=this field.

 ;;^DD(.85,.03,"DT")

 ;;=3121101

 ;;^DD(.85,.04,0)

 ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X

 ;;^DD(.85,.04,3)

 ;;=Answer must be 4 characters in length.

 ;;^DD(.85,.04,21,0)

 ;;=^^1^1^3121101^^^

 ;;^DD(.85,.04,21,1,0)

 ;;=Enter the four letter code associated with the language in ISO-639-6.

 ;;^DD(.85,.04,23,0)

 ;;=^^3^3^3121101^

 ;;^DD(.85,.04,23,1,0)

 ;;=This field is currently not used in this version of the release (as of

 ;;^DD(.85,.04,23,2,0)

 ;;=Fileman V22.2). In a future version when this file is upgraded to

 ;;^DD(.85,.04,23,3,0)

 ;;=ISO-639-6, a key will be added to this field.

 ;;^DD(.85,.04,"DT")

 ;;=3121101

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT011   14312     printed  Apr 23, 2025@19:04:22                                                                                                                                                                                                   Page 2

DINIT011  ;SFISC/TKW,VEN/SMH-DIALOG & LANGUAGE FILE INITS ;07JAN2016

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

 +7        FOR I=1:2

               SET X=$TEXT(Q+I)

               if X'["^"

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               if $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               if $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               SET @X=Y

Q          QUIT

 +1       ;;^DIC(.85,0,"GL")

 +2       ;;=^DI(.85,

 +3       ;;^DIC("B","LANGUAGE",.85)

 +4       ;;=

 +5       ;;^DIC(.85,"%",0)

 +6       ;;=^1.005

 +7       ;;^DIC(.85,"%D",0)

 +8       ;;=^^13^13^3160102^

 +9       ;;^DIC(.85,"%D",1,0)

 +10      ;;=The LANGUAGE file is used both to officially identify a language, and to

 +11      ;;^DIC(.85,"%D",2,0)

 +12      ;;=store MUMPS code needed to do language-specific conversions of data such

 +13      ;;^DIC(.85,"%D",3,0)

 +14      ;;=as dates and numbers.

 +15      ;;^DIC(.85,"%D",4,0)

 +16      ;;=

 +17      ;;^DIC(.85,"%D",5,0)

 +18      ;;=The KIDS build for FileMan 22.2 contains all languages in ISO 639-2:1998(as revised 11/21/2012).

 +19      ;;^DIC(.85,"%D",6,0)

 +20      ;;=When installed without the KIDS build, FileMan 22.2 installs 11 languages.

 +21      ;;^DIC(.85,"%D",7,0)

 +22      ;;=

 +23      ;;^DIC(.85,"%D",8,0)

 +24      ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file

 +25      ;;^DIC(.85,"%D",9,0)

 +26      ;;=also allows non-English text to be returned via FileMan calls.

 +27      ;;^DIC(.85,"%D",10,0)

 +28      ;;=

 +29      ;;^DIC(.85,"%D",11,0)

 +30      ;;=A note to VISTA developers: Although users can select entries by name,

 +31      ;;^DIC(.85,"%D",12,0)

 +32      ;;=software should use the official two or three letter codes to eliminate

 +33      ;;^DIC(.85,"%D",13,0)

 +34      ;;=mistakes resulting from languages that have similar spelling.

 +35      ;;^DIC(.85,"%MSC")

 +36      ;;=3121114.111954

 +37      ;;^DD(.85,0)

 +38      ;;=FIELD^^10^20

 +39      ;;^DD(.85,0,"DDA")

 +40      ;;=N

 +41      ;;^DD(.85,0,"DT")

 +42      ;;=3121101

 +43      ;;^DD(.85,0,"ID",.02)

 +44      ;;=W "   ",$P(^(0),U,2)

 +45      ;;^DD(.85,0,"ID",.03)

 +46      ;;=W "   ",$P(^(0),U,3)

 +47      ;;^DD(.85,0,"IX","F",.8501,.01)

 +48      ;;=

 +49      ;;^DD(.85,0,"NM","LANGUAGE")

 +50      ;;=

 +51      ;;^DD(.85,0,"PT",.007,.001)

 +52      ;;=

 +53      ;;^DD(.85,0,"PT",.008,.001)

 +54      ;;=

 +55      ;;^DD(.85,0,"PT",.009,.001)

 +56      ;;=

 +57      ;;^DD(.85,0,"PT",.4,709.1)

 +58      ;;=

 +59      ;;^DD(.85,0,"PT",.4,1819.1)

 +60      ;;=

 +61      ;;^DD(.85,0,"PT",.847,.01)

 +62      ;;=

 +63      ;;^DD(.85,0,"PT",.85,.08)

 +64      ;;=

 +65      ;;^DD(.85,0,"PT",.85,.09)

 +66      ;;=

 +67      ;;^DD(.85,0,"PT",1.008,.001)

 +68      ;;=

 +69      ;;^DD(.85,0,"PT",200,200.07)

 +70      ;;=

 +71      ;;^DD(.85,0,"PT",8989.3,207)

 +72      ;;=

 +73      ;;^DD(.85,.001,0)

 +74      ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X

 +75      ;;^DD(.85,.001,3)

 +76      ;;=Type a number between 1 and 9999999999, 0 decimal digits.

 +77      ;;^DD(.85,.001,21,0)

 +78      ;;=^^3^3^3121031^^

 +79      ;;^DD(.85,.001,21,1,0)

 +80      ;;=A number that is used to uniquely identify a language.  This number

 +81      ;;^DD(.85,.001,21,2,0)

 +82      ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set

 +83      ;;^DD(.85,.001,21,3,0)

 +84      ;;=during Kernel signon to signify which language Fileman should use.

 +85      ;;^DD(.85,.001,23,0)

 +86      ;;=^^31^31^3121031^

 +87      ;;^DD(.85,.001,23,1,0)

 +88      ;;=Entries in this file are standardized, with the contents controlled by

 +89      ;;^DD(.85,.001,23,2,0)

 +90      ;;=the Fileman Primary Development Team. The ID Number field is used to help

 +91      ;;^DD(.85,.001,23,3,0)

 +92      ;;=protect referential integrity in VISTA databases during upgrades to the

 +93      ;;^DD(.85,.001,23,4,0)

 +94      ;;=file. ID Number assignment corresponds to the order in which languages

 +95      ;;^DD(.85,.001,23,5,0)

 +96      ;;=were added to the file. They were added in segments.

 +97      ;;^DD(.85,.001,23,6,0)

 +98      ;;=

 +99      ;;^DD(.85,.001,23,7,0)

 +100     ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which

 +101     ;;^DD(.85,.001,23,8,0)

 +102     ;;=were the first eleven languages added, in order. English is first because

 +103     ;;^DD(.85,.001,23,9,0)

 +104     ;;=Fileman was originally written in English. German is second because

 +105     ;;^DD(.85,.001,23,10,0)

 +106     ;;=Marcus Werners of Germany led the effort to create Fileman's dialog

 +107     ;;^DD(.85,.001,23,11,0)

 +108     ;;=framework, to make translating VISTA into other languages easier.

 +109     ;;^DD(.85,.001,23,12,0)

 +110     ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in

 +111     ;;^DD(.85,.001,23,13,0)

 +112     ;;=which the Fileman team was approached by potential translators about

 +113     ;;^DD(.85,.001,23,14,0)

 +114     ;;=adding those languages to the file (though Finnish actually predates all

 +115     ;;^DD(.85,.001,23,15,0)

 +116     ;;=other translation efforts except English). Arabic was assigned ID Number

 +117     ;;^DD(.85,.001,23,16,0)

 +118     ;;=10 instead of 8 in recognition of the debt English owes Arabic for

 +119     ;;^DD(.85,.001,23,17,0)

 +120     ;;=introducing the decimal numbering system to Europe. Russian and Greek

 +121     ;;^DD(.85,.001,23,18,0)

 +122     ;;=were the next two translations the Fileman team was approached about. I

 +123     ;;^DD(.85,.001,23,19,0)

 +124     ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm

 +125     ;;^DD(.85,.001,23,20,0)

 +126     ;;=sure there was a reason.

 +127     ;;^DD(.85,.001,23,21,0)

 +128     ;;=

 +129     ;;^DD(.85,.001,23,22,0)

 +130     ;;=Thereafter, languages are added in segments, in order by Name, starting

 +131     ;;^DD(.85,.001,23,23,0)

 +132     ;;=with ID Number 8. The segments correspond to the ISO 639 language

 +133     ;;^DD(.85,.001,23,24,0)

 +134     ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and

 +135     ;;^DD(.85,.001,23,25,0)

 +136     ;;=so on). Each language has one unique record in this file, so wherever a

 +137     ;;^DD(.85,.001,23,26,0)

 +138     ;;=language in one segment has already been included in an earlier segment,

 +139     ;;^DD(.85,.001,23,27,0)

 +140     ;;=it is not included in the later segment (e.g., Greek was in segment one,

 +141     ;;^DD(.85,.001,23,28,0)

 +142     ;;=so it is not also added as a duplicate in segment two).

 +143     ;;^DD(.85,.001,23,29,0)

 +144     ;;=

 +145     ;;^DD(.85,.001,23,30,0)

 +146     ;;=This segmented approach makes it comparatively easy to upgrade the file

 +147     ;;^DD(.85,.001,23,31,0)

 +148     ;;=in discrete batches, to keep the update projects manageable.

 +149     ;;^DD(.85,.001,"DT")

 +150     ;;=3121031

 +151     ;;^DD(.85,.01,0)

 +152     ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X

 +153     ;;^DD(.85,.01,.1)

 +154     ;;=Language-Name

 +155     ;;^DD(.85,.01,3)

 +156     ;;=Answer must be 1-60 characters in length.

 +157     ;;^DD(.85,.01,21,0)

 +158     ;;=^^10^10^3121031^

 +159     ;;^DD(.85,.01,21,1,0)

 +160     ;;=Enter the English name of the language, not the native name.

 +161     ;;^DD(.85,.01,21,2,0)

 +162     ;;=

 +163     ;;^DD(.85,.01,21,3,0)

 +164     ;;=The default is the English name from ISO 639, converted where necessary to

 +165     ;;^DD(.85,.01,21,4,0)

 +166     ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO

 +167     ;;^DD(.85,.01,21,5,0)

 +168     ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is

 +169     ;;^DD(.85,.01,21,6,0)

 +170     ;;=used.

 +171     ;;^DD(.85,.01,21,7,0)

 +172     ;;=

 +173     ;;^DD(.85,.01,21,8,0)

 +174     ;;=However, this use of ISO 639's spelling as a default is overridden in

 +175     ;;^DD(.85,.01,21,9,0)

 +176     ;;=several different ways to improve consistency across entries and to

 +177     ;;^DD(.85,.01,21,10,0)

 +178     ;;=reduce selection error.

 +179     ;;^DD(.85,.01,23,0)

 +180     ;;=^^63^63^3121031^

 +181     ;;^DD(.85,.01,23,1,0)

 +182     ;;=This is the English name of the language, not the native name. It

 +183     ;;^DD(.85,.01,23,2,0)

 +184     ;;=defaults to the English name from ISO 639, mixed case, converted where

 +185     ;;^DD(.85,.01,23,3,0)

 +186     ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central

 +187     ;;^DD(.85,.01,23,4,0)

 +188     ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's

 +189     ;;^DD(.85,.01,23,5,0)

 +190     ;;=spelling is used.

 +191     ;;^DD(.85,.01,23,6,0)

 +192     ;;=

 +193     ;;^DD(.85,.01,23,7,0)

 +194     ;;=However, this use of ISO 639's spelling as a default is overridden in

 +195     ;;^DD(.85,.01,23,8,0)

 +196     ;;=several different ways to improve consistency across entries and to

 +197     ;;^DD(.85,.01,23,9,0)

 +198     ;;=reduce selection error.

 +199     ;;^DD(.85,.01,23,10,0)

 +200     ;;=

 +201     ;;^DD(.85,.01,23,11,0)

 +202     ;;=For example, for most modern languages, the form of the name that

 +203     ;;^DD(.85,.01,23,12,0)

 +204     ;;=includes the word "Modern" and the parenthesized dates is an alternate

 +205     ;;^DD(.85,.01,23,13,0)

 +206     ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we

 +207     ;;^DD(.85,.01,23,14,0)

 +208     ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"

 +209     ;;^DD(.85,.01,23,15,0)

 +210     ;;=an alternate name and making the name "Greek" instead.

 +211     ;;^DD(.85,.01,23,16,0)

 +212     ;;=

 +213     ;;^DD(.85,.01,23,17,0)

 +214     ;;=Since most users of these systems are medical professionals rather than

 +215     ;;^DD(.85,.01,23,18,0)

 +216     ;;=linguists or historians, we emphasize modern languages and group

 +217     ;;^DD(.85,.01,23,19,0)

 +218     ;;=historical ones away from the modern names to reduce accidents. For

 +219     ;;^DD(.85,.01,23,20,0)

 +220     ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as

 +221     ;;^DD(.85,.01,23,21,0)

 +222     ;;=an alternate name for "Old French" in this file, to move the obsolete

 +223     ;;^DD(.85,.01,23,22,0)

 +224     ;;=form of the language away from the modern one. Thus, "Old" languages,

 +225     ;;^DD(.85,.01,23,23,0)

 +226     ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,

 +227     ;;^DD(.85,.01,23,24,0)

 +228     ;;=languages whose names look like historical ones, such as "Old Church

 +229     ;;^DD(.85,.01,23,25,0)

 +230     ;;=Slavonic", that are still living languages or in active liturgical use

 +231     ;;^DD(.85,.01,23,26,0)

 +232     ;;=are kept in this form if that is how they are best known.

 +233     ;;^DD(.85,.01,23,27,0)

 +234     ;;=

 +235     ;;^DD(.85,.01,23,28,0)

 +236     ;;=Also, such forms that include parenthetical dates are changed to remove

 +237     ;;^DD(.85,.01,23,29,0)

 +238     ;;=the dates and parentheses from the Name field; the original forms and

 +239     ;;^DD(.85,.01,23,30,0)

 +240     ;;=variants are preserved in the Alternate Name field.

 +241     ;;^DD(.85,.01,23,31,0)

 +242     ;;=

 +243     ;;^DD(.85,.01,23,32,0)

 +244     ;;=For similar reasons, language collections like "Banda languages" are

 +245     ;;^DD(.85,.01,23,33,0)

 +246     ;;=renamed as "Languages, Banda" to move them away from individual language

 +247     ;;^DD(.85,.01,23,34,0)

 +248     ;;=a patient might speak, like "Banda-Banda". The same was preserved from

 +249     ;;^DD(.85,.01,23,35,0)

 +250     ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,

 +251     ;;^DD(.85,.01,23,36,0)

 +252     ;;=Portuguese-Based"), which are collective languages, to kepp them separate

 +253     ;;^DD(.85,.01,23,37,0)

 +254     ;;=from the individual languages they might be confused with (such as

 +255     ;;^DD(.85,.01,23,38,0)

 +256     ;;="Portuguese"). However, individual languages like "Haitian Creole" and

 +257     ;;^DD(.85,.01,23,39,0)

 +258     ;;="Chinook Jargon" whose ISO 639 names makes them sound like language

 +259     ;;^DD(.85,.01,23,40,0)

 +260     ;;=collections are nevertheless left as is, since these are the names they

 +261     ;;^DD(.85,.01,23,41,0)

 +262     ;;=are known by and since the distinguishing part of the name does come

 +263     ;;^DD(.85,.01,23,42,0)

 +264     ;;=first, allowing for unambiguous selection.

 +265     ;;^DD(.85,.01,23,43,0)

 +266     ;;=

 +267     ;;^DD(.85,.01,23,44,0)

 +268     ;;=Where the language name from ISO 639 is a list of alternative names, as

 +269     ;;^DD(.85,.01,23,45,0)

 +270     ;;=in "Catalan, Valencian", the dominant name (based on other code sets,

 +271     ;;^DD(.85,.01,23,46,0)

 +272     ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the

 +273     ;;^DD(.85,.01,23,47,0)

 +274     ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.

 +275     ;;^DD(.85,.01,23,48,0)

 +276     ;;=

 +277     ;;^DD(.85,.01,23,49,0)

 +278     ;;=As a general rule (except in the case of language collections), ISO 639

 +279     ;;^DD(.85,.01,23,50,0)

 +280     ;;=names that use commas to invert a language name (like "Sorbian, Upper")

 +281     ;;^DD(.85,.01,23,51,0)

 +282     ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an

 +283     ;;^DD(.85,.01,23,52,0)

 +284     ;;=Alternate Name. We do not try to use commas in the Name field to group

 +285     ;;^DD(.85,.01,23,53,0)

 +286     ;;=together all related languages or dialects, though we do in the Alternate

 +287     ;;^DD(.85,.01,23,54,0)

 +288     ;;=Name field.

 +289     ;;^DD(.85,.01,23,55,0)

 +290     ;;=

 +291     ;;^DD(.85,.01,23,56,0)

 +292     ;;=In the Name field, parenthetical comments are generally restricted to

 +293     ;;^DD(.85,.01,23,57,0)

 +294     ;;=distinguishing between unrelated languages that have the same name, like

 +295     ;;^DD(.85,.01,23,58,0)

 +296     ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The

 +297     ;;^DD(.85,.01,23,59,0)

 +298     ;;=parenthetical words will be (in order of preference) a country, a people,

 +299     ;;^DD(.85,.01,23,60,0)

 +300     ;;=or an alternate name of the language, so long as it distinguishes it from

 +301     ;;^DD(.85,.01,23,61,0)

 +302     ;;=the other identically named languages. To date, we have not had to change

 +303     ;;^DD(.85,.01,23,62,0)

 +304     ;;=any of the ISO 639 names we've imported to make or correct these

 +305     ;;^DD(.85,.01,23,63,0)

 +306     ;;=distinctions, but we stand ready to do so to enforce this pattern.

 +307     ;;^DD(.85,.01,"DT")

 +308     ;;=3121031

 +309     ;;^DD(.85,.02,0)

 +310     ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X

 +311     ;;^DD(.85,.02,3)

 +312     ;;=Answer must be 2 characters in length.

 +313     ;;^DD(.85,.02,21,0)

 +314     ;;=^^3^3^3121101^^

 +315     ;;^DD(.85,.02,21,1,0)

 +316     ;;=Enter the two-letter code defined for this language in the ISO 639-1

 +317     ;;^DD(.85,.02,21,2,0)

 +318     ;;=standard. Not every language has a two-letter code; for those that do not

 +319     ;;^DD(.85,.02,21,3,0)

 +320     ;;=leave this field blank.

 +321     ;;^DD(.85,.02,23,0)

 +322     ;;=^^1^1^3121101^

 +323     ;;^DD(.85,.02,23,1,0)

 +324     ;;=Future versions of this file wil include an optional key on this field.

 +325     ;;^DD(.85,.02,"DT")

 +326     ;;=3121101

 +327     ;;^DD(.85,.03,0)

 +328     ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X

 +329     ;;^DD(.85,.03,3)

 +330     ;;=Answer must be 3 characters in length.

 +331     ;;^DD(.85,.03,21,0)

 +332     ;;=^^2^2^3121101^^^^

 +333     ;;^DD(.85,.03,21,1,0)

 +334     ;;=Enter the three-letter code defined for this language in the ISO 639-2/B

 +335     ;;^DD(.85,.03,21,2,0)

 +336     ;;=standard.

 +337     ;;^DD(.85,.03,23,0)

 +338     ;;=^^2^2^3121101^

 +339     ;;^DD(.85,.03,23,1,0)

 +340     ;;=When this file is upgraded to ISO-639-6, an optional key will be added to

 +341     ;;^DD(.85,.03,23,2,0)

 +342     ;;=this field.

 +343     ;;^DD(.85,.03,"DT")

 +344     ;;=3121101

 +345     ;;^DD(.85,.04,0)

 +346     ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X

 +347     ;;^DD(.85,.04,3)

 +348     ;;=Answer must be 4 characters in length.

 +349     ;;^DD(.85,.04,21,0)

 +350     ;;=^^1^1^3121101^^^

 +351     ;;^DD(.85,.04,21,1,0)

 +352     ;;=Enter the four letter code associated with the language in ISO-639-6.

 +353     ;;^DD(.85,.04,23,0)

 +354     ;;=^^3^3^3121101^

 +355     ;;^DD(.85,.04,23,1,0)

 +356     ;;=This field is currently not used in this version of the release (as of

 +357     ;;^DD(.85,.04,23,2,0)

 +358     ;;=Fileman V22.2). In a future version when this file is upgraded to

 +359     ;;^DD(.85,.04,23,3,0)

 +360     ;;=ISO-639-6, a key will be added to this field.

 +361     ;;^DD(.85,.04,"DT")

 +362     ;;=3121101

DINIT011.m