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 Sep 23, 2025@20:26:10 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
