iSharkFly-Open
/
VistA-Miscellaneous
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-Miscellaneous/lang_file4mu1and2/VW-LanguageFiles-DMLAINITs-...

4014 lines
125 KiB
Plaintext
Raw Permalink Blame History

Lang file inits. Run ^DINIT first and then ^DMLAINITs.
GT.M 20-NOV-2012 19:44:28
DINIT
DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM 30 Mar 1999 ; 11/14/12 11:18am
V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
D KL^DINIT6
N ;
D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW
I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D
. W $C(7),!!,"*** WARNING!! VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!
S Y=$G(^DD("OS")) I Y,"1,2,3,4,5,6,10,11,12,13,15,"[(Y_",") W $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21." G KL^DINIT6
DO W !!,"Initialize VA FileMan now? NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6
I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO
NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "
R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")
I X'?1AN.ANP W " ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA
S %X=X
NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "
R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)
S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X
I X'>0 W " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO
;***** REMOVE AFTER V21 INIT *****
;D
;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC Q:DIREC>10000 K ^DI(.84,DIREC,5)
;. Q
;*********************************
K ^DD(0) D ^DINIT0,^DINIT11B
D OSETC
W ! S Y=1 D OS G KL^DINIT6:Y<0
W !!,"Now loading other FileMan files--please wait." G GO
;
;
OS W ! S DIC="^DD(""OS"",",DIC(0)="IAQE",DIC("A")="TYPE OF MUMPS SYSTEM YOU ARE USING: " I $D(^DD("OS"))#2 S (DITZS,DIC("B"))=^("OS") S:DITZS=7 (DITZS,DIC("B"))=18
E S (DITZS,^DD("OS"))=100
D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y
I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D
. S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""
. S ZTDESC="Set Operating System" D ^%ZTLOAD Q
Q K DITZS,ZTSK Q
VERSION ;
S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
;
GO S I=$C(126),DIT=$P($H,",",2)
S $P(^DIBT(0),U,1,2)="TEMPLATE^.4I",$P(^DIE(0),U,1,2)="TEMPLATE^.4I",$P(^DIPT(0),U,1,2)="TEMPLATE^.4I",^(.01,0)="CAPTIONED^",^("F",1)="S DIC=DCC,DA=D0 D EN^DIQ"
S ^DIPT(.02,0)="FILE SECURITY CODES^^^1",^("F",1)=".01;L20"_I_"0;R13"_I_31_I_33_I_35_I_34_I_32_I_21_I_20
S ^DIA(0)="AUDIT^1.1I"
K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)
K ^DIC(.403),^(.404),^(1.2)
K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)
F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")
K ^DIC(.46),^DD(.46),^(.461),^(.463)
K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)
F I=1.521,1.52101,1.5211,1.5212,1.5213,1.5214,1.5215,1.5216,1.5217,1.5218,1.5219,1.52191,1.52192 K ^DIC(I),^DD(I)
G ^DINIT0F0
;
OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0
W !!,"Now loading MUMPS Operating System File"
D ^DINIT21,OSDD^DINIT24
S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3
S ^DIC(.7,"%D",0)="^^5^5^2940908^"
S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code. Since the code to invoke"
S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"
S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"
S ^DIC(.7,"%D",4,0)="this file. During the FileMan INIT process an operating system is"
S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."
K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3
K DA,DIK S DIK="^DD(""OS""," D X^DINIT3
D
. N I,DA,DIK F I=1,2,3,4,5,6,7,10,11,12,13,14,15 S DA=I,DIK="^DD(""OS""," D ^DIK
. Q
;
K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
S $P(^DIC(.84,0),U,1,2)="DIALOG^.84",$P(^DI(.84,0),U,1,2)="DIALOG^.84I" I $D(^DIC(.84,0,"GL")) D A1^DINIT3
S $P(^DIC(.85,0),U,1,2)="LANGUAGE^.85",$P(^DI(.85,0),U,1,2)="LANGUAGE^.85I" I $D(^DIC(.85,0,"GL")) D A1^DINIT3
F I=.84,.841,.842,.844,.845,.847,.8471,.85,.8501,.8502 D XX^DINIT3 ; VEN/SMH - added .8501 and .8502 for new lang file
; Keys and new style indexes installer ; new in FM V22.2
N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
N DIFRFILE S DIFRFILE=0 ; Loop through files
F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
. K ^TMP("DIFROMS2",$J,"TRIG")
. N DIFRD S DIFRD=0
. F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
. K ^TMP("DIFROMS2",$J,"TRIG")
. S DIFRD=0
. F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
K @DIFRSA ; kill off tran global
;
D DATA
Q
;
; VEN/SMH - added kill D1 since that causes a problem with Transfer/Merge
; for keyed fields if it leaks from the symbol table.
DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=0 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 K D1 Q:'$D(^(D0,0)) S Z=^(0) D I^DITR
K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
;
B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)
N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
DINIT011
DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
Q Q
;;^DIC(.85,0,"GL")
;;=^DI(.85,
;;^DIC("B","LANGUAGE",.85)
;;=
;;^DIC(.85,"%",0)
;;=^1.005
;;^DIC(.85,"%D",0)
;;=^^27^27^3121101^
;;^DIC(.85,"%D",1,0)
;;=The LANGUAGE file is used both to officially identify a language, and to
;;^DIC(.85,"%D",2,0)
;;=store MUMPS code needed to do language-specific conversions of data such
;;^DIC(.85,"%D",3,0)
;;=as dates and numbers.
;;^DIC(.85,"%D",4,0)
;;=
;;^DIC(.85,"%D",5,0)
;;=Fileman distributes entries for the following languages:
;;^DIC(.85,"%D",6,0)
;;= ID Number (.001) Name (.01)
;;^DIC(.85,"%D",7,0)
;;= 1 English
;;^DIC(.85,"%D",8,0)
;;= 2 German
;;^DIC(.85,"%D",9,0)
;;= 3 Spanish
;;^DIC(.85,"%D",10,0)
;;= 4 French
;;^DIC(.85,"%D",11,0)
;;= 5 Finnish
;;^DIC(.85,"%D",12,0)
;;= 6 Italian
;;^DIC(.85,"%D",13,0)
;;= 7 Portuguese
;;^DIC(.85,"%D",14,0)
;;= 10 Arabic
;;^DIC(.85,"%D",15,0)
;;= 11 Russian
;;^DIC(.85,"%D",16,0)
;;= 12 Greek
;;^DIC(.85,"%D",17,0)
;;= 18 Hebrew
;;^DIC(.85,"%D",18,0)
;;=
;;^DIC(.85,"%D",19,0)
;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
;;^DIC(.85,"%D",20,0)
;;=DILAINIT routines, shipped with Fileman 22.2.
;;^DIC(.85,"%D",21,0)
;;=
;;^DIC(.85,"%D",22,0)
;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
;;^DIC(.85,"%D",23,0)
;;=also allows non-English text to be returned via FileMan calls.
;;^DIC(.85,"%D",24,0)
;;=
;;^DIC(.85,"%D",25,0)
;;=A note to VISTA developers: Although users can select entries by name,
;;^DIC(.85,"%D",26,0)
;;=software should use the official two or three letter codes to eliminiate
;;^DIC(.85,"%D",27,0)
;;=mistakes resulting from languages that have similar spelling.
;;^DIC(.85,"%MSC")
;;=3121114.111954
;;^DD(.85,0)
;;=FIELD^^10^20
;;^DD(.85,0,"DDA")
;;=N
;;^DD(.85,0,"DT")
;;=3121101
;;^DD(.85,0,"ID",.02)
;;=W " ",$P(^(0),U,2)
;;^DD(.85,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(.85,0,"IX","F",.8501,.01)
;;=
;;^DD(.85,0,"NM","LANGUAGE")
;;=
;;^DD(.85,0,"PT",.007,.001)
;;=
;;^DD(.85,0,"PT",.008,.001)
;;=
;;^DD(.85,0,"PT",.009,.001)
;;=
;;^DD(.85,0,"PT",.4,709.1)
;;=
;;^DD(.85,0,"PT",.4,1819.1)
;;=
;;^DD(.85,0,"PT",.847,.01)
;;=
;;^DD(.85,0,"PT",.85,.08)
;;=
;;^DD(.85,0,"PT",.85,.09)
;;=
;;^DD(.85,0,"PT",1.008,.001)
;;=
;;^DD(.85,0,"PT",200,200.07)
;;=
;;^DD(.85,0,"PT",8989.3,207)
;;=
;;^DD(.85,.001,0)
;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
;;^DD(.85,.001,3)
;;=Type a number between 1 and 9999999999, 0 decimal digits.
;;^DD(.85,.001,21,0)
;;=^^3^3^3121031^^
;;^DD(.85,.001,21,1,0)
;;=A number that is used to uniquely identify a language. This number
;;^DD(.85,.001,21,2,0)
;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
;;^DD(.85,.001,21,3,0)
;;=during Kernel signon to signify which language Fileman should use.
;;^DD(.85,.001,23,0)
;;=^^31^31^3121031^
;;^DD(.85,.001,23,1,0)
;;=Entries in this file are standardized, with the contents controlled by
;;^DD(.85,.001,23,2,0)
;;=the Fileman Primary Development Team. The ID Number field is used to help
;;^DD(.85,.001,23,3,0)
;;=protect referential integrity in VISTA databases during upgrades to the
;;^DD(.85,.001,23,4,0)
;;=file. ID Number assignment corresponds to the order in which languages
;;^DD(.85,.001,23,5,0)
;;=were added to the file. They were added in segments.
;;^DD(.85,.001,23,6,0)
;;=
;;^DD(.85,.001,23,7,0)
;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
;;^DD(.85,.001,23,8,0)
;;=were the first eleven languages added, in order. English is first because
;;^DD(.85,.001,23,9,0)
;;=Fileman was originally written in English. German is second because
;;^DD(.85,.001,23,10,0)
;;=Marcus Werners of Germany led the effort to create Fileman's dialog
;;^DD(.85,.001,23,11,0)
;;=framework, to make translating VISTA into other languages easier.
;;^DD(.85,.001,23,12,0)
;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
;;^DD(.85,.001,23,13,0)
;;=which the Fileman team was approached by potential translators about
;;^DD(.85,.001,23,14,0)
;;=adding those languages to the file (though Finnish actually predates all
;;^DD(.85,.001,23,15,0)
;;=other translation efforts except English). Arabic was assigned ID Number
;;^DD(.85,.001,23,16,0)
;;=10 instead of 8 in recognition of the debt English owes Arabic for
;;^DD(.85,.001,23,17,0)
;;=introducing the decimal numbering system to Europe. Russian and Greek
;;^DD(.85,.001,23,18,0)
;;=were the next two translations the Fileman team was approached about. I
;;^DD(.85,.001,23,19,0)
;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
;;^DD(.85,.001,23,20,0)
;;=sure there was a reason.
;;^DD(.85,.001,23,21,0)
;;=
;;^DD(.85,.001,23,22,0)
;;=Thereafter, languages are added in segments, in order by Name, starting
;;^DD(.85,.001,23,23,0)
;;=with ID Number 8. The segments correspond to the ISO 639 language
;;^DD(.85,.001,23,24,0)
;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
;;^DD(.85,.001,23,25,0)
;;=so on). Each language has one unique record in this file, so wherever a
;;^DD(.85,.001,23,26,0)
;;=language in one segment has already been included in an earlier segment,
;;^DD(.85,.001,23,27,0)
;;=it is not included in the later segment (e.g., Greek was in segment one,
;;^DD(.85,.001,23,28,0)
;;=so it is not also added as a duplicate in segment two).
;;^DD(.85,.001,23,29,0)
;;=
;;^DD(.85,.001,23,30,0)
;;=This segmented approach makes it comparatively easy to upgrade the file
;;^DD(.85,.001,23,31,0)
;;=in discrete batches, to keep the update projects manageable.
;;^DD(.85,.001,"DT")
;;=3121031
;;^DD(.85,.01,0)
;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
;;^DD(.85,.01,.1)
;;=Language-Name
;;^DD(.85,.01,3)
;;=Answer must be 1-60 characters in length.
;;^DD(.85,.01,21,0)
;;=^^10^10^3121031^
;;^DD(.85,.01,21,1,0)
;;=Enter the English name of the language, not the native name.
;;^DD(.85,.01,21,2,0)
;;=
;;^DD(.85,.01,21,3,0)
;;=The default is the English name from ISO 639, converted where necessary to
;;^DD(.85,.01,21,4,0)
;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
;;^DD(.85,.01,21,5,0)
;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
;;^DD(.85,.01,21,6,0)
;;=used.
;;^DD(.85,.01,21,7,0)
;;=
;;^DD(.85,.01,21,8,0)
;;=However, this use of ISO 639's spelling as a default is overridden in
;;^DD(.85,.01,21,9,0)
;;=several different ways to improve consistency across entries and to
;;^DD(.85,.01,21,10,0)
;;=reduce selection error.
;;^DD(.85,.01,23,0)
;;=^^63^63^3121031^
;;^DD(.85,.01,23,1,0)
;;=This is the English name of the language, not the native name. It
;;^DD(.85,.01,23,2,0)
;;=defaults to the English name from ISO 639, mixed case, converted where
;;^DD(.85,.01,23,3,0)
;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
;;^DD(.85,.01,23,4,0)
;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
;;^DD(.85,.01,23,5,0)
;;=spelling is used.
;;^DD(.85,.01,23,6,0)
;;=
;;^DD(.85,.01,23,7,0)
;;=However, this use of ISO 639's spelling as a default is overridden in
;;^DD(.85,.01,23,8,0)
;;=several different ways to improve consistency across entries and to
;;^DD(.85,.01,23,9,0)
;;=reduce selection error.
;;^DD(.85,.01,23,10,0)
;;=
;;^DD(.85,.01,23,11,0)
;;=For example, for most modern languages, the form of the name that
;;^DD(.85,.01,23,12,0)
;;=includes the word "Modern" and the parenthesized dates is an alternate
;;^DD(.85,.01,23,13,0)
;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
;;^DD(.85,.01,23,14,0)
;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
;;^DD(.85,.01,23,15,0)
;;=an alternate name and making the name "Greek" instead.
;;^DD(.85,.01,23,16,0)
;;=
;;^DD(.85,.01,23,17,0)
;;=Since most users of these systems are medical professionals rather than
;;^DD(.85,.01,23,18,0)
;;=linguists or historians, we emphasize modern languages and group
;;^DD(.85,.01,23,19,0)
;;=historical ones away from the modern names to reduce accidents. For
;;^DD(.85,.01,23,20,0)
;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
;;^DD(.85,.01,23,21,0)
;;=an alternate name for "Old French" in this file, to move the obsolete
;;^DD(.85,.01,23,22,0)
;;=form of the language away from the modern one. Thus, "Old" languages,
;;^DD(.85,.01,23,23,0)
;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
;;^DD(.85,.01,23,24,0)
;;=languages whose names look like historical ones, such as "Old Church
;;^DD(.85,.01,23,25,0)
;;=Slavonic", that are still living languages or in active liturgical use
;;^DD(.85,.01,23,26,0)
;;=are kept in this form if that is how they are best known.
;;^DD(.85,.01,23,27,0)
;;=
;;^DD(.85,.01,23,28,0)
;;=Also, such forms that include parenthetical dates are changed to remove
;;^DD(.85,.01,23,29,0)
;;=the dates and parentheses from the Name field; the original forms and
;;^DD(.85,.01,23,30,0)
;;=variants are preserved in the Alternate Name field.
;;^DD(.85,.01,23,31,0)
;;=
;;^DD(.85,.01,23,32,0)
;;=For similar reasons, language collections like "Banda languages" are
;;^DD(.85,.01,23,33,0)
;;=renamed as "Languages, Banda" to move them away from individual language
;;^DD(.85,.01,23,34,0)
;;=a patient might speak, like "Banda-Banda". The same was preserved from
;;^DD(.85,.01,23,35,0)
;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
;;^DD(.85,.01,23,36,0)
;;=Portuguese-Based"), which are collective languages, to kepp them separate
;;^DD(.85,.01,23,37,0)
;;=from the individual languages they might be confused with (such as
;;^DD(.85,.01,23,38,0)
;;="Portuguese"). However, individual languages like "Haitian Creole" and
;;^DD(.85,.01,23,39,0)
;;="Chinook Jargon" whose ISO 639 names makes them sound like language
;;^DD(.85,.01,23,40,0)
;;=collections are nevertheless left as is, since these are the names they
;;^DD(.85,.01,23,41,0)
;;=are known by and since the distinguishing part of the name does come
;;^DD(.85,.01,23,42,0)
;;=first, allowing for unambiguous selection.
;;^DD(.85,.01,23,43,0)
;;=
;;^DD(.85,.01,23,44,0)
;;=Where the language name from ISO 639 is a list of alternative names, as
;;^DD(.85,.01,23,45,0)
;;=in "Catalan, Valencian", the dominant name (based on other code sets,
;;^DD(.85,.01,23,46,0)
;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
;;^DD(.85,.01,23,47,0)
;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
;;^DD(.85,.01,23,48,0)
;;=
;;^DD(.85,.01,23,49,0)
;;=As a general rule (except in the case of language collections), ISO 639
;;^DD(.85,.01,23,50,0)
;;=names that use commas to invert a language name (like "Sorbian, Upper")
;;^DD(.85,.01,23,51,0)
;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
;;^DD(.85,.01,23,52,0)
;;=Alternate Name. We do not try to use commas in the Name field to group
;;^DD(.85,.01,23,53,0)
;;=together all related languages or dialects, though we do in the Alternate
;;^DD(.85,.01,23,54,0)
;;=Name field.
;;^DD(.85,.01,23,55,0)
;;=
;;^DD(.85,.01,23,56,0)
;;=In the Name field, parenthetical comments are generally restricted to
;;^DD(.85,.01,23,57,0)
;;=distinguishing between unrelated languages that have the same name, like
;;^DD(.85,.01,23,58,0)
;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
;;^DD(.85,.01,23,59,0)
;;=parenthetical words will be (in order of preference) a country, a people,
;;^DD(.85,.01,23,60,0)
;;=or an alternate name of the language, so long as it distinguishes it from
;;^DD(.85,.01,23,61,0)
;;=the other identically named languages. To date, we have not had to change
;;^DD(.85,.01,23,62,0)
;;=any of the ISO 639 names we've imported to make or correct these
;;^DD(.85,.01,23,63,0)
;;=distinctions, but we stand ready to do so to enforce this pattern.
;;^DD(.85,.01,"DT")
;;=3121031
;;^DD(.85,.02,0)
;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
;;^DD(.85,.02,3)
;;=Answer must be 2 characters in length.
;;^DD(.85,.02,21,0)
;;=^^3^3^3121101^^
;;^DD(.85,.02,21,1,0)
;;=Enter the two-letter code defined for this language in the ISO 639-1
;;^DD(.85,.02,21,2,0)
;;=standard. Not every language has a two-letter code; for those that do not
;;^DD(.85,.02,21,3,0)
;;=leave this field blank.
;;^DD(.85,.02,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.02,23,1,0)
;;=Future versions of this file wil include an optional key on this field.
;;^DD(.85,.02,"DT")
;;=3121101
;;^DD(.85,.03,0)
;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
;;^DD(.85,.03,3)
;;=Answer must be 3 characters in length.
;;^DD(.85,.03,21,0)
;;=^^2^2^3121101^^^^
;;^DD(.85,.03,21,1,0)
;;=Enter the three-letter code defined for this language in the ISO 639-2/B
;;^DD(.85,.03,21,2,0)
;;=standard.
;;^DD(.85,.03,23,0)
;;=^^2^2^3121101^
;;^DD(.85,.03,23,1,0)
;;=When this file is upgraded to ISO-639-6, an optional key will be added to
;;^DD(.85,.03,23,2,0)
;;=this field.
;;^DD(.85,.03,"DT")
;;=3121101
;;^DD(.85,.04,0)
;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
;;^DD(.85,.04,3)
;;=Answer must be 4 characters in length.
;;^DD(.85,.04,21,0)
;;=^^1^1^3121101^^^
;;^DD(.85,.04,21,1,0)
;;=Enter the four letter code associated with the language in ISO-639-6.
;;^DD(.85,.04,23,0)
;;=^^3^3^3121101^
;;^DD(.85,.04,23,1,0)
;;=This field is currently not used in this version of the release (as of
;;^DD(.85,.04,23,2,0)
;;=Fileman V22.2). In a future version when this file is upgraded to
;;^DD(.85,.04,23,3,0)
;;=ISO-639-6, a key will be added to this field.
;;^DD(.85,.04,"DT")
;;=3121101
;;^DD(.85,.05,0)
;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
;;^DD(.85,.05,3)
;;=Answer must be 3 characters in length.
;;^DD(.85,.05,21,0)
;;=^^4^4^3121101^
;;^DD(.85,.05,21,1,0)
;;=This is the alternate three letter code for a language. This will only be
;;^DD(.85,.05,21,2,0)
;;=used in cases where the language abbreviation is different in English
;;^DD(.85,.05,21,3,0)
;;=than in the native language. E.g. GER instead of DEU; for German instead
;;^DD(.85,.05,21,4,0)
;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
;;^DD(.85,.05,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.05,23,1,0)
;;=In a future version of Fileman, this field will have an optional key.
DINIT012
DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
Q Q
;;^DD(.85,.05,"DT")
;;=3121101
;;^DD(.85,.06,0)
;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
;;^DD(.85,.06,3)
;;=Select a language's scope
;;^DD(.85,.06,21,0)
;;=^^12^12^3121031^
;;^DD(.85,.06,21,1,0)
;;=Enter the Scope of a Language.
;;^DD(.85,.06,21,2,0)
;;=
;;^DD(.85,.06,21,3,0)
;;=Individual if the language is an individually identifiable language
;;^DD(.85,.06,21,4,0)
;;=(e.g. 'Cantonese').
;;^DD(.85,.06,21,5,0)
;;=
;;^DD(.85,.06,21,6,0)
;;=Macrolanguage if the language encopasses several other languages (e.g.
;;^DD(.85,.06,21,7,0)
;;='Chinese')
;;^DD(.85,.06,21,8,0)
;;=
;;^DD(.85,.06,21,9,0)
;;=Collective if the language is a language group (e.g. 'Languages,
;;^DD(.85,.06,21,10,0)
;;=Sino-Tibetan')
;;^DD(.85,.06,21,11,0)
;;=
;;^DD(.85,.06,21,12,0)
;;=Special and Local are reserved for specific entries.
;;^DD(.85,.06,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.06,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.06,"DT")
;;=3121101
;;^DD(.85,.07,0)
;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
;;^DD(.85,.07,.1)
;;=Historical Status
;;^DD(.85,.07,3)
;;=Select a choice.
;;^DD(.85,.07,21,0)
;;=^^12^12^3121101^^
;;^DD(.85,.07,21,1,0)
;;=Living means that the language is spoken today (e.g. English).
;;^DD(.85,.07,21,2,0)
;;=
;;^DD(.85,.07,21,3,0)
;;=Constructed means that the language is artificial (e.g. Esperanto).
;;^DD(.85,.07,21,4,0)
;;=
;;^DD(.85,.07,21,5,0)
;;=Ancient means that the language is very old and not spoken any more (e.g.
;;^DD(.85,.07,21,6,0)
;;=Ancient Egyptian).
;;^DD(.85,.07,21,7,0)
;;=
;;^DD(.85,.07,21,8,0)
;;=Historical means that the language was being used in the Medieval times
;;^DD(.85,.07,21,9,0)
;;=and is not spoken any more (e.g. Old High German).
;;^DD(.85,.07,21,10,0)
;;=
;;^DD(.85,.07,21,11,0)
;;=Extinct means that the language was being used recently but has died out
;;^DD(.85,.07,21,12,0)
;;=(e.g. Cornish).
;;^DD(.85,.07,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.07,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.07,"DT")
;;=3121101
;;^DD(.85,.08,0)
;;=LINGUISTIC CATEGORY^*P.85'^DI(.85,^0;8^S DIC("S")="I $P(^(0),U,6)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
;;^DD(.85,.08,3)
;;=Select a choice.
;;^DD(.85,.08,12)
;;=Only collective languages are selectable
;;^DD(.85,.08,12.1)
;;=S DIC("S")="I $P(^(0),U,6)=""C"""
;;^DD(.85,.08,21,0)
;;=^^1^1^3121101^^
;;^DD(.85,.08,21,1,0)
;;=Enter a language collection to which this language belongs.
;;^DD(.85,.08,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.08,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.08,"DT")
;;=3121101
;;^DD(.85,.09,0)
;;=MEMBER OF LANGUAGE SET^*P.85'^DI(.85,^0;9^S DIC("S")="I $P(^(0),U,6)=""M""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
;;^DD(.85,.09,3)
;;=Enter a choice.
;;^DD(.85,.09,12)
;;=You may only select Macrolanguages
;;^DD(.85,.09,12.1)
;;=S DIC("S")="I $P(^(0),U,6)=""M"""
;;^DD(.85,.09,21,0)
;;=^^3^3^3121101^
;;^DD(.85,.09,21,1,0)
;;=If this language is a dialect of a macrolanguage, select the
;;^DD(.85,.09,21,2,0)
;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
;;^DD(.85,.09,21,3,0)
;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
;;^DD(.85,.09,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.09,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.09,"DT")
;;=3121101
;;^DD(.85,1,0)
;;=ALTERNATE NAME^.8501^^1;0
;;^DD(.85,10,0)
;;=DESCRIPTION^.8502^^10;0
;;^DD(.85,10,"DT")
;;=3121031
;;^DD(.85,10.1,0)
;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.1,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.1,9)
;;=@
;;^DD(.85,10.1,21,0)
;;=^^6^6^2941121^^^^
;;^DD(.85,10.1,21,1,0)
;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
;;^DD(.85,10.1,21,2,0)
;;=this language. The code should set Y to the ordinal equivalent without
;;^DD(.85,10.1,21,3,0)
;;=altering any other variables in the environment. Ex. in English:
;;^DD(.85,10.1,21,4,0)
;;= Y=1 becomes Y=1ST
;;^DD(.85,10.1,21,5,0)
;;= Y=2 becomes Y=2ND
;;^DD(.85,10.1,21,6,0)
;;= Y=3 becomes Y=3RD etc.
;;^DD(.85,10.1,"DT")
;;=2940307
;;^DD(.85,10.2,0)
;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.2,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.2,9)
;;=@
;;^DD(.85,10.2,21,0)
;;=^^6^6^2941121^^^
;;^DD(.85,10.2,21,1,0)
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
;;^DD(.85,10.2,21,2,0)
;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
;;^DD(.85,10.2,21,3,0)
;;=The code should set Y to the output, without altering any other variables
;;^DD(.85,10.2,21,4,0)
;;=in the environment. Ex. in English:
;;^DD(.85,10.2,21,5,0)
;;=
;;^DD(.85,10.2,21,6,0)
;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
;;^DD(.85,10.2,"DT")
;;=2940307
;;^DD(.85,10.21,0)
;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.21,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.21,9)
;;=@
;;^DD(.85,10.21,21,0)
;;=^^22^22^2941122^
;;^DD(.85,10.21,21,1,0)
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
;;^DD(.85,10.21,21,2,0)
;;=format, to printable format based on the various outputs from routine
;;^DD(.85,10.21,21,3,0)
;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
;;^DD(.85,10.21,21,4,0)
;;=code, in addition to the internal date in Y, a third parameter will be
;;^DD(.85,10.21,21,5,0)
;;=defined to contain flags equivalent to the flag passed as the second input
;;^DD(.85,10.21,21,6,0)
;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
;;^DD(.85,10.21,21,7,0)
;;=altering any other variables in the environment. The output should be
;;^DD(.85,10.21,21,8,0)
;;=formatted based on these flags:
;;^DD(.85,10.21,21,9,0)
;;=
;;^DD(.85,10.21,21,10,0)
;;= 1 MMM DD, YYYY@HH:MM:SS
;;^DD(.85,10.21,21,11,0)
;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,12,0)
;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,13,0)
;;= 4 YY/MM/DD@HH:MM:SS
;;^DD(.85,10.21,21,14,0)
;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
;;^DD(.85,10.21,21,15,0)
;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
;;^DD(.85,10.21,21,16,0)
;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,17,0)
;;=
;;^DD(.85,10.21,21,18,0)
;;=letters in the flag
;;^DD(.85,10.21,21,19,0)
;;= S return always seconds
;;^DD(.85,10.21,21,20,0)
;;= U return uppercase month names
;;^DD(.85,10.21,21,21,0)
;;= P return time as am,pm
;;^DD(.85,10.21,21,22,0)
;;= D return only date part
;;^DD(.85,10.21,"DT")
;;=2940624
;;^DD(.85,10.22,0)
;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.22,3)
;;=This is Standard MUMPS code for the output of time only.
;;^DD(.85,10.22,9)
;;=@
;;^DD(.85,10.22,21,0)
;;=^^2^2^2960318^
;;^DD(.85,10.22,21,1,0)
;;=The code stored here will be used to get formatted output of the time
;;^DD(.85,10.22,21,2,0)
;;=part belonging to a FileMan Date/Time value.
;;^DD(.85,10.22,"DT")
;;=2960318
;;^DD(.85,10.3,0)
;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.3,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.3,9)
;;=@
;;^DD(.85,10.3,21,0)
;;=^^5^5^2941121^^
;;^DD(.85,10.3,21,1,0)
;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
;;^DD(.85,10.3,21,2,0)
;;=this language. The code should set Y to the cardinal equivalent without
;;^DD(.85,10.3,21,3,0)
;;=altering any other variables in the environment. Ex. in English:
;;^DD(.85,10.3,21,4,0)
;;= Y=2000 becomes Y=2,000
;;^DD(.85,10.3,21,5,0)
;;= Y=1234567 becomes Y=1,234,567
;;^DD(.85,10.3,"DT")
;;=2940308
;;^DD(.85,10.4,0)
;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.4,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.4,9)
;;=@
;;^DD(.85,10.4,21,0)
;;=^^4^4^2941121^
;;^DD(.85,10.4,21,1,0)
;;=MUMPS code used to convert text in Y to its upper-case equivalent in
;;^DD(.85,10.4,21,2,0)
;;=this language. The code should set Y to the external format without
;;^DD(.85,10.4,21,3,0)
;;=altering any other variables in the environment. In English, changes
;;^DD(.85,10.4,21,4,0)
;;= abCdeF to: ABCDEF
;;^DD(.85,10.4,"DT")
;;=2940308
;;^DD(.85,10.5,0)
;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.5,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.5,9)
;;=@
;;^DD(.85,10.5,21,0)
;;=^^4^4^2941121^
;;^DD(.85,10.5,21,1,0)
;;=MUMPS code used to convert text in Y to its lower-case equivalent in
;;^DD(.85,10.5,21,2,0)
;;=this language. The code should set Y to the external format without
;;^DD(.85,10.5,21,3,0)
;;=altering any other variables in the environment. In English, changes:
;;^DD(.85,10.5,21,4,0)
;;= ABcdEFgHij to: abcdefghij
;;^DD(.85,10.5,"DT")
;;=2940308
;;^DD(.85,20.2,0)
;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,20.2,3)
;;=This is Standard MUMPS code.
;;^DD(.85,20.2,9)
;;=@
;;^DD(.85,20.2,"DT")
;;=2940714
;;^DD(.8501,0)
;;=ALTERNATE NAME SUB-FIELD^^.01^1
;;^DD(.8501,0,"DT")
;;=3121101
;;^DD(.8501,0,"IX","B",.8501,.01)
;;=
;;^DD(.8501,0,"NM","ALTERNATE NAME")
;;=
;;^DD(.8501,0,"UP")
;;=.85
;;^DD(.8501,.01,0)
;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
;;^DD(.8501,.01,1,0)
;;=^.1
;;^DD(.8501,.01,1,1,0)
;;=.8501^B
;;^DD(.8501,.01,1,1,1)
;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
;;^DD(.8501,.01,1,1,2)
;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
;;^DD(.8501,.01,1,2,0)
;;=.85^F
;;^DD(.8501,.01,1,2,1)
;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
;;^DD(.8501,.01,1,2,2)
;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
;;^DD(.8501,.01,1,2,3)
;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
;;^DD(.8501,.01,1,2,"%D",0)
;;=^^1^1^3121101^
;;^DD(.8501,.01,1,2,"%D",1,0)
;;=Whole file cross-reference for ALTERNATE NAME multiple.
;;^DD(.8501,.01,1,2,"DT")
;;=3121101
;;^DD(.8501,.01,3)
;;=Answer must be 1-60 characters in length.
;;^DD(.8501,.01,21,0)
;;=^^2^2^3121101^^
;;^DD(.8501,.01,21,1,0)
;;=This field contains other synonyms for a language.
;;^DD(.8501,.01,21,2,0)
;;=E.g. for Greek, synonyms include Ellinika and Romaic.
;;^DD(.8501,.01,"DT")
;;=3121101
;;^DD(.8502,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.8502,0,"DT")
;;=3121031
;;^DD(.8502,0,"NM","DESCRIPTION")
;;=
;;^DD(.8502,0,"UP")
;;=.85
;;^DD(.8502,.01,0)
;;=DESCRIPTION^Wx^^0;1
;;^DD(.8502,.01,3)
;;=Enter an optional language description
;;^DD(.8502,.01,"DT")
;;=3121031
;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
;;=S ^DI(.85,"B",X,DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
;;=K ^DI(.85,"B",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
;;=K ^DI(.85,"B")
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
;;=1^F^.85^.01^^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
;;=
;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
;;=S ^DI(.85,"C",X,DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
;;=K ^DI(.85,"C",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
;;=K ^DI(.85,"C")
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
;;=1^F^.85^.02^^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
;;=K ^DI(.85,"D",$E(X,1,30),DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
;;=K ^DI(.85,"D")
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
;;=1^F^.85^.03^30^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
;;=^^6^6^3121031^
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
;;=This will add entries to the D index for the three letter code a la the
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
;;=mnemonic style.
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
;;=
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
;;=If you need re-cross-reference this field, you need to kill of the
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
;;=entries in the regular D index, set the D index, and then set this index
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
;;=to update the D with the mnemonic xrefs.
;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
;;=S ^DI(.85,"D",X,DA)=1
;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
;;=K ^DI(.85,"D",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
;;=1^F^.85^.05^^1^F
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
;;=.85^A^P^1046
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
;;=^.312IA^1^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
;;=.01^.85^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
;;=.85^B^S^1048
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
;;=^.312IA^1^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
;;=.03^.85^1
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
;;=.85^B
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
;;=.85^D
DINIT013
DINIT013 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS ;3121101 ; 11/2/12 8:41am
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
Q Q
;;^UTILITY(U,$J,.85)
;;=^DI(.85,
;;^UTILITY(U,$J,.85,0)
;;=LANGUAGE^.85I^18^11
;;^UTILITY(U,$J,.85,1,0)
;;=ENGLISH^EN^ENG
;;^UTILITY(U,$J,.85,1,1,0)
;;=^.8501^2^2
;;^UTILITY(U,$J,.85,1,1,1,0)
;;=MODERN ENGLISH (1500-)
;;^UTILITY(U,$J,.85,1,1,2,0)
;;=ENGLISH,MODERN (1500-)
;;^UTILITY(U,$J,.85,1,"CRD")
;;=I Y S Y=$FN(Y,",")
;;^UTILITY(U,$J,.85,1,"DD")
;;=S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
;;^UTILITY(U,$J,.85,1,"FMTE")
;;=N RTN,%T S %T="."_$E($P(Y,".",2)_"000000",1,7),%F=$G(%F),RTN="F"_$S(%F<1:1,%F>7:1,1:+%F\1)_"^DILIBF" D @RTN S Y=%R
;;^UTILITY(U,$J,.85,1,"LC")
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
;;^UTILITY(U,$J,.85,1,"ORD")
;;=I $G(Y) S Y=Y_$S(Y#10=1&(Y#100-11):"ST",Y#10=2&(Y#100-12):"ND",Y#10=3&(Y#100-13):"RD",1:"TH")
;;^UTILITY(U,$J,.85,1,"TIME")
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
;;^UTILITY(U,$J,.85,1,"UC")
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
;;^UTILITY(U,$J,.85,2,0)
;;=GERMAN^DE^DEU^^GER
;;^UTILITY(U,$J,.85,2,1,0)
;;=^.8501^7^7
;;^UTILITY(U,$J,.85,2,1,1,0)
;;=GERMAN, STANDARD
;;^UTILITY(U,$J,.85,2,1,2,0)
;;=STANDARD GERMAN
;;^UTILITY(U,$J,.85,2,1,3,0)
;;=DEUTSCH
;;^UTILITY(U,$J,.85,2,1,4,0)
;;=DEUTSCH SPRACHE
;;^UTILITY(U,$J,.85,2,1,5,0)
;;=TEDESCO
;;^UTILITY(U,$J,.85,2,1,6,0)
;;=MODERN GERMAN (1500-)
;;^UTILITY(U,$J,.85,2,1,7,0)
;;=GERMAN,MODERN (1500-)
;;^UTILITY(U,$J,.85,2,"CRD")
;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
;;^UTILITY(U,$J,.85,2,"DD")
;;=S:Y Y=$S($E(Y,6,7):$E(Y,6,7)_".",1:"")_$S($E(Y,4,5):$E(Y,4,5)_".",1:"")_($E(Y,1,3)+1700)_$P(" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
;;^UTILITY(U,$J,.85,2,"LC")
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
;;^UTILITY(U,$J,.85,2,"ORD")
;;=S:$G(Y) Y=Y_"."
;;^UTILITY(U,$J,.85,2,"TIME")
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
;;^UTILITY(U,$J,.85,2,"UC")
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
;;^UTILITY(U,$J,.85,3,0)
;;=SPANISH^ES^SPA
;;^UTILITY(U,$J,.85,3,1,0)
;;=^.8501^5^5
;;^UTILITY(U,$J,.85,3,1,1,0)
;;=CASTILIAN
;;^UTILITY(U,$J,.85,3,1,2,0)
;;=CASTELLANO
;;^UTILITY(U,$J,.85,3,1,3,0)
;;=ESPANOL
;;^UTILITY(U,$J,.85,3,1,4,0)
;;=MODERN SPANISH (1500-)
;;^UTILITY(U,$J,.85,3,1,5,0)
;;=SPANISH, MODERN (1500-)
;;^UTILITY(U,$J,.85,4,0)
;;=FRENCH^FR^FRA^^FRE
;;^UTILITY(U,$J,.85,4,1,0)
;;=^.8501^3^3
;;^UTILITY(U,$J,.85,4,1,1,0)
;;=FRANCAIS
;;^UTILITY(U,$J,.85,4,1,2,0)
;;=MODERN FRENCH (1600-)
;;^UTILITY(U,$J,.85,4,1,3,0)
;;=FRENCH, MODERN (1600-)
;;^UTILITY(U,$J,.85,5,0)
;;=FINNISH^FI^FIN
;;^UTILITY(U,$J,.85,5,1,0)
;;=^.8501^3^3
;;^UTILITY(U,$J,.85,5,1,1,0)
;;=SUOMEA
;;^UTILITY(U,$J,.85,5,1,2,0)
;;=SUOMI
;;^UTILITY(U,$J,.85,5,1,3,0)
;;=SUOMEN KIELI
;;^UTILITY(U,$J,.85,5,"DD")
;;=X:$G(Y) ^DD("DD")
;;^UTILITY(U,$J,.85,5,"ORD")
;;=I $G(Y) S Y=Y_"."
;;^UTILITY(U,$J,.85,6,0)
;;=ITALIAN^IT^ITA
;;^UTILITY(U,$J,.85,6,1,0)
;;=^.8501^2^2
;;^UTILITY(U,$J,.85,6,1,1,0)
;;=ITALIANO
;;^UTILITY(U,$J,.85,6,1,2,0)
;;=LINGUA ITALIANA
;;^UTILITY(U,$J,.85,7,0)
;;=PORTUGUESE^PT^POR
;;^UTILITY(U,$J,.85,7,1,0)
;;=^.8501^4^4
;;^UTILITY(U,$J,.85,7,1,1,0)
;;=PORTUGUES
;;^UTILITY(U,$J,.85,7,1,2,0)
;;=LINGUA PORTUGUESA
;;^UTILITY(U,$J,.85,7,1,3,0)
;;=MODERN PORTUGUESE (1516-)
;;^UTILITY(U,$J,.85,7,1,4,0)
;;=PORTUGUESE, MODERN (1516-)
;;^UTILITY(U,$J,.85,10,0)
;;=ARABIC^AR^ARA
;;^UTILITY(U,$J,.85,10,1,0)
;;=^.8501^2^2
;;^UTILITY(U,$J,.85,10,1,1,0)
;;=AL-'ARABIYYAH
;;^UTILITY(U,$J,.85,10,1,2,0)
;;='ARABI
;;^UTILITY(U,$J,.85,11,0)
;;=RUSSIAN^RU^RUS
;;^UTILITY(U,$J,.85,11,1,0)
;;=^.8501^2^2
;;^UTILITY(U,$J,.85,11,1,1,0)
;;=RUSSKI
;;^UTILITY(U,$J,.85,11,1,2,0)
;;=RUSSKIY YAZYK
;;^UTILITY(U,$J,.85,12,0)
;;=GREEK^EL^ELL^^GRE
;;^UTILITY(U,$J,.85,12,1,0)
;;=^.8501^9^9
;;^UTILITY(U,$J,.85,12,1,1,0)
;;=ELLINIKA
;;^UTILITY(U,$J,.85,12,1,2,0)
;;=ELLINIKI GLOSSA
;;^UTILITY(U,$J,.85,12,1,3,0)
;;=GRAECAE
;;^UTILITY(U,$J,.85,12,1,4,0)
;;=GREC
;;^UTILITY(U,$J,.85,12,1,5,0)
;;=GRECO
;;^UTILITY(U,$J,.85,12,1,6,0)
;;=NEO-HELLENIC
;;^UTILITY(U,$J,.85,12,1,7,0)
;;=ROMAIC
;;^UTILITY(U,$J,.85,12,1,8,0)
;;=MODERN GREEK (1453-)
;;^UTILITY(U,$J,.85,12,1,9,0)
;;=GREEK, MODERN (1453-)
;;^UTILITY(U,$J,.85,18,0)
;;=HEBREW^HE^HEB
;;^UTILITY(U,$J,.85,18,1,0)
;;=^.8501^3^3
;;^UTILITY(U,$J,.85,18,1,1,0)
;;=IVRIT
;;^UTILITY(U,$J,.85,18,1,2,0)
;;=MODERN HEBREW (1881-)
;;^UTILITY(U,$J,.85,18,1,3,0)
;;=HEBREW, MODERN (1881-)
DMLAI001
DMLAI001 ; ; 20-NOV-2012 ; 11/20/12 12:58pm
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
Q:'DIFQ(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DIC(.85,0,"GL")
;;=^DI(.85,
;;^DIC("B","LANGUAGE",.85)
;;=
;;^DIC(.85,"%",0)
;;=^1.005
;;^DIC(.85,"%D",0)
;;=^^27^27^3121101^
;;^DIC(.85,"%D",1,0)
;;=The LANGUAGE file is used both to officially identify a language, and to
;;^DIC(.85,"%D",2,0)
;;=store MUMPS code needed to do language-specific conversions of data such
;;^DIC(.85,"%D",3,0)
;;=as dates and numbers.
;;^DIC(.85,"%D",4,0)
;;=
;;^DIC(.85,"%D",5,0)
;;=Fileman distributes entries for the following languages:
;;^DIC(.85,"%D",6,0)
;;= ID Number (.001) Name (.01)
;;^DIC(.85,"%D",7,0)
;;= 1 English
;;^DIC(.85,"%D",8,0)
;;= 2 German
;;^DIC(.85,"%D",9,0)
;;= 3 Spanish
;;^DIC(.85,"%D",10,0)
;;= 4 French
;;^DIC(.85,"%D",11,0)
;;= 5 Finnish
;;^DIC(.85,"%D",12,0)
;;= 6 Italian
;;^DIC(.85,"%D",13,0)
;;= 7 Portuguese
;;^DIC(.85,"%D",14,0)
;;= 10 Arabic
;;^DIC(.85,"%D",15,0)
;;= 11 Russian
;;^DIC(.85,"%D",16,0)
;;= 12 Greek
;;^DIC(.85,"%D",17,0)
;;= 18 Hebrew
;;^DIC(.85,"%D",18,0)
;;=
;;^DIC(.85,"%D",19,0)
;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
;;^DIC(.85,"%D",20,0)
;;=DILAINIT routines, shipped with Fileman 22.2.
;;^DIC(.85,"%D",21,0)
;;=
;;^DIC(.85,"%D",22,0)
;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
;;^DIC(.85,"%D",23,0)
;;=also allows non-English text to be returned via FileMan calls.
;;^DIC(.85,"%D",24,0)
;;=
;;^DIC(.85,"%D",25,0)
;;=A note to VISTA developers: Although users can select entries by name,
;;^DIC(.85,"%D",26,0)
;;=software should use the official two or three letter codes to eliminiate
;;^DIC(.85,"%D",27,0)
;;=mistakes resulting from languages that have similar spelling.
;;^DIC(.85,"%MSC")
;;=3121114.111954
;;^DD(.85,0)
;;=FIELD^^10^20
;;^DD(.85,0,"DDA")
;;=N
;;^DD(.85,0,"DT")
;;=3121101
;;^DD(.85,0,"ID",.02)
;;=W " ",$P(^(0),U,2)
;;^DD(.85,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(.85,0,"IX","F",.8501,.01)
;;=
;;^DD(.85,0,"NM","LANGUAGE")
;;=
;;^DD(.85,0,"PT",.007,.001)
;;=
;;^DD(.85,0,"PT",.008,.001)
;;=
;;^DD(.85,0,"PT",.009,.001)
;;=
;;^DD(.85,0,"PT",.4,709.1)
;;=
;;^DD(.85,0,"PT",.4,1819.1)
;;=
;;^DD(.85,0,"PT",.847,.01)
;;=
;;^DD(.85,0,"PT",.85,.08)
;;=
;;^DD(.85,0,"PT",.85,.09)
;;=
;;^DD(.85,0,"PT",1.008,.001)
;;=
;;^DD(.85,0,"PT",200,200.07)
;;=
;;^DD(.85,0,"PT",8989.3,207)
;;=
;;^DD(.85,.001,0)
;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
;;^DD(.85,.001,3)
;;=Type a number between 1 and 9999999999, 0 decimal digits.
;;^DD(.85,.001,21,0)
;;=^^3^3^3121031^^
;;^DD(.85,.001,21,1,0)
;;=A number that is used to uniquely identify a language. This number
;;^DD(.85,.001,21,2,0)
;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
;;^DD(.85,.001,21,3,0)
;;=during Kernel signon to signify which language Fileman should use.
;;^DD(.85,.001,23,0)
;;=^^31^31^3121031^
;;^DD(.85,.001,23,1,0)
;;=Entries in this file are standardized, with the contents controlled by
;;^DD(.85,.001,23,2,0)
;;=the Fileman Primary Development Team. The ID Number field is used to help
;;^DD(.85,.001,23,3,0)
;;=protect referential integrity in VISTA databases during upgrades to the
;;^DD(.85,.001,23,4,0)
;;=file. ID Number assignment corresponds to the order in which languages
;;^DD(.85,.001,23,5,0)
;;=were added to the file. They were added in segments.
;;^DD(.85,.001,23,6,0)
;;=
;;^DD(.85,.001,23,7,0)
;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
;;^DD(.85,.001,23,8,0)
;;=were the first eleven languages added, in order. English is first because
;;^DD(.85,.001,23,9,0)
;;=Fileman was originally written in English. German is second because
;;^DD(.85,.001,23,10,0)
;;=Marcus Werners of Germany led the effort to create Fileman's dialog
;;^DD(.85,.001,23,11,0)
;;=framework, to make translating VISTA into other languages easier.
;;^DD(.85,.001,23,12,0)
;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
;;^DD(.85,.001,23,13,0)
;;=which the Fileman team was approached by potential translators about
;;^DD(.85,.001,23,14,0)
;;=adding those languages to the file (though Finnish actually predates all
;;^DD(.85,.001,23,15,0)
;;=other translation efforts except English). Arabic was assigned ID Number
;;^DD(.85,.001,23,16,0)
;;=10 instead of 8 in recognition of the debt English owes Arabic for
;;^DD(.85,.001,23,17,0)
;;=introducing the decimal numbering system to Europe. Russian and Greek
;;^DD(.85,.001,23,18,0)
;;=were the next two translations the Fileman team was approached about. I
;;^DD(.85,.001,23,19,0)
;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
;;^DD(.85,.001,23,20,0)
;;=sure there was a reason.
;;^DD(.85,.001,23,21,0)
;;=
;;^DD(.85,.001,23,22,0)
;;=Thereafter, languages are added in segments, in order by Name, starting
;;^DD(.85,.001,23,23,0)
;;=with ID Number 8. The segments correspond to the ISO 639 language
;;^DD(.85,.001,23,24,0)
;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
;;^DD(.85,.001,23,25,0)
;;=so on). Each language has one unique record in this file, so wherever a
;;^DD(.85,.001,23,26,0)
;;=language in one segment has already been included in an earlier segment,
;;^DD(.85,.001,23,27,0)
;;=it is not included in the later segment (e.g., Greek was in segment one,
;;^DD(.85,.001,23,28,0)
;;=so it is not also added as a duplicate in segment two).
;;^DD(.85,.001,23,29,0)
;;=
;;^DD(.85,.001,23,30,0)
;;=This segmented approach makes it comparatively easy to upgrade the file
;;^DD(.85,.001,23,31,0)
;;=in discrete batches, to keep the update projects manageable.
;;^DD(.85,.001,"DT")
;;=3121031
;;^DD(.85,.01,0)
;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
;;^DD(.85,.01,.1)
;;=Language-Name
;;^DD(.85,.01,3)
;;=Answer must be 1-60 characters in length.
;;^DD(.85,.01,21,0)
;;=^^10^10^3121031^
;;^DD(.85,.01,21,1,0)
;;=Enter the English name of the language, not the native name.
;;^DD(.85,.01,21,2,0)
;;=
;;^DD(.85,.01,21,3,0)
;;=The default is the English name from ISO 639, converted where necessary to
;;^DD(.85,.01,21,4,0)
;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
;;^DD(.85,.01,21,5,0)
;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
;;^DD(.85,.01,21,6,0)
;;=used.
;;^DD(.85,.01,21,7,0)
;;=
;;^DD(.85,.01,21,8,0)
;;=However, this use of ISO 639's spelling as a default is overridden in
;;^DD(.85,.01,21,9,0)
;;=several different ways to improve consistency across entries and to
;;^DD(.85,.01,21,10,0)
;;=reduce selection error.
;;^DD(.85,.01,23,0)
;;=^^63^63^3121031^
;;^DD(.85,.01,23,1,0)
;;=This is the English name of the language, not the native name. It
;;^DD(.85,.01,23,2,0)
;;=defaults to the English name from ISO 639, mixed case, converted where
;;^DD(.85,.01,23,3,0)
;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
;;^DD(.85,.01,23,4,0)
;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
;;^DD(.85,.01,23,5,0)
;;=spelling is used.
;;^DD(.85,.01,23,6,0)
;;=
;;^DD(.85,.01,23,7,0)
;;=However, this use of ISO 639's spelling as a default is overridden in
;;^DD(.85,.01,23,8,0)
;;=several different ways to improve consistency across entries and to
;;^DD(.85,.01,23,9,0)
;;=reduce selection error.
;;^DD(.85,.01,23,10,0)
;;=
;;^DD(.85,.01,23,11,0)
;;=For example, for most modern languages, the form of the name that
;;^DD(.85,.01,23,12,0)
;;=includes the word "Modern" and the parenthesized dates is an alternate
;;^DD(.85,.01,23,13,0)
;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
;;^DD(.85,.01,23,14,0)
;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
;;^DD(.85,.01,23,15,0)
;;=an alternate name and making the name "Greek" instead.
;;^DD(.85,.01,23,16,0)
;;=
;;^DD(.85,.01,23,17,0)
;;=Since most users of these systems are medical professionals rather than
;;^DD(.85,.01,23,18,0)
;;=linguists or historians, we emphasize modern languages and group
;;^DD(.85,.01,23,19,0)
;;=historical ones away from the modern names to reduce accidents. For
;;^DD(.85,.01,23,20,0)
;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
;;^DD(.85,.01,23,21,0)
;;=an alternate name for "Old French" in this file, to move the obsolete
;;^DD(.85,.01,23,22,0)
;;=form of the language away from the modern one. Thus, "Old" languages,
;;^DD(.85,.01,23,23,0)
;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
;;^DD(.85,.01,23,24,0)
;;=languages whose names look like historical ones, such as "Old Church
;;^DD(.85,.01,23,25,0)
;;=Slavonic", that are still living languages or in active liturgical use
;;^DD(.85,.01,23,26,0)
;;=are kept in this form if that is how they are best known.
;;^DD(.85,.01,23,27,0)
;;=
;;^DD(.85,.01,23,28,0)
;;=Also, such forms that include parenthetical dates are changed to remove
;;^DD(.85,.01,23,29,0)
;;=the dates and parentheses from the Name field; the original forms and
;;^DD(.85,.01,23,30,0)
;;=variants are preserved in the Alternate Name field.
;;^DD(.85,.01,23,31,0)
;;=
;;^DD(.85,.01,23,32,0)
;;=For similar reasons, language collections like "Banda languages" are
;;^DD(.85,.01,23,33,0)
;;=renamed as "Languages, Banda" to move them away from individual language
;;^DD(.85,.01,23,34,0)
;;=a patient might speak, like "Banda-Banda". The same was preserved from
;;^DD(.85,.01,23,35,0)
;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
;;^DD(.85,.01,23,36,0)
;;=Portuguese-Based"), which are collective languages, to kepp them separate
;;^DD(.85,.01,23,37,0)
;;=from the individual languages they might be confused with (such as
;;^DD(.85,.01,23,38,0)
;;="Portuguese"). However, individual languages like "Haitian Creole" and
;;^DD(.85,.01,23,39,0)
;;="Chinook Jargon" whose ISO 639 names makes them sound like language
;;^DD(.85,.01,23,40,0)
;;=collections are nevertheless left as is, since these are the names they
;;^DD(.85,.01,23,41,0)
;;=are known by and since the distinguishing part of the name does come
;;^DD(.85,.01,23,42,0)
;;=first, allowing for unambiguous selection.
;;^DD(.85,.01,23,43,0)
;;=
;;^DD(.85,.01,23,44,0)
;;=Where the language name from ISO 639 is a list of alternative names, as
;;^DD(.85,.01,23,45,0)
;;=in "Catalan, Valencian", the dominant name (based on other code sets,
;;^DD(.85,.01,23,46,0)
;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
;;^DD(.85,.01,23,47,0)
;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
;;^DD(.85,.01,23,48,0)
;;=
;;^DD(.85,.01,23,49,0)
;;=As a general rule (except in the case of language collections), ISO 639
;;^DD(.85,.01,23,50,0)
;;=names that use commas to invert a language name (like "Sorbian, Upper")
;;^DD(.85,.01,23,51,0)
;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
;;^DD(.85,.01,23,52,0)
;;=Alternate Name. We do not try to use commas in the Name field to group
;;^DD(.85,.01,23,53,0)
;;=together all related languages or dialects, though we do in the Alternate
;;^DD(.85,.01,23,54,0)
;;=Name field.
;;^DD(.85,.01,23,55,0)
;;=
;;^DD(.85,.01,23,56,0)
;;=In the Name field, parenthetical comments are generally restricted to
;;^DD(.85,.01,23,57,0)
;;=distinguishing between unrelated languages that have the same name, like
;;^DD(.85,.01,23,58,0)
;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
;;^DD(.85,.01,23,59,0)
;;=parenthetical words will be (in order of preference) a country, a people,
;;^DD(.85,.01,23,60,0)
;;=or an alternate name of the language, so long as it distinguishes it from
;;^DD(.85,.01,23,61,0)
;;=the other identically named languages. To date, we have not had to change
;;^DD(.85,.01,23,62,0)
;;=any of the ISO 639 names we've imported to make or correct these
;;^DD(.85,.01,23,63,0)
;;=distinctions, but we stand ready to do so to enforce this pattern.
;;^DD(.85,.01,"DT")
;;=3121031
;;^DD(.85,.02,0)
;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
;;^DD(.85,.02,3)
;;=Answer must be 2 characters in length.
;;^DD(.85,.02,21,0)
;;=^^3^3^3121101^^
;;^DD(.85,.02,21,1,0)
;;=Enter the two-letter code defined for this language in the ISO 639-1
;;^DD(.85,.02,21,2,0)
;;=standard. Not every language has a two-letter code; for those that do not
;;^DD(.85,.02,21,3,0)
;;=leave this field blank.
;;^DD(.85,.02,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.02,23,1,0)
;;=Future versions of this file wil include an optional key on this field.
;;^DD(.85,.02,"DT")
;;=3121101
;;^DD(.85,.03,0)
;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
;;^DD(.85,.03,3)
;;=Answer must be 3 characters in length.
;;^DD(.85,.03,21,0)
;;=^^2^2^3121101^^^^
;;^DD(.85,.03,21,1,0)
;;=Enter the three-letter code defined for this language in the ISO 639-2/B
;;^DD(.85,.03,21,2,0)
;;=standard.
;;^DD(.85,.03,23,0)
;;=^^2^2^3121101^
;;^DD(.85,.03,23,1,0)
;;=When this file is upgraded to ISO-639-6, an optional key will be added to
;;^DD(.85,.03,23,2,0)
;;=this field.
;;^DD(.85,.03,"DT")
;;=3121101
;;^DD(.85,.04,0)
;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
;;^DD(.85,.04,3)
;;=Answer must be 4 characters in length.
;;^DD(.85,.04,21,0)
;;=^^1^1^3121101^^^
;;^DD(.85,.04,21,1,0)
;;=Enter the four letter code associated with the language in ISO-639-6.
;;^DD(.85,.04,23,0)
;;=^^3^3^3121101^
;;^DD(.85,.04,23,1,0)
;;=This field is currently not used in this version of the release (as of
;;^DD(.85,.04,23,2,0)
;;=Fileman V22.2). In a future version when this file is upgraded to
;;^DD(.85,.04,23,3,0)
;;=ISO-639-6, a key will be added to this field.
;;^DD(.85,.04,"DT")
;;=3121101
;;^DD(.85,.05,0)
;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
;;^DD(.85,.05,3)
;;=Answer must be 3 characters in length.
;;^DD(.85,.05,21,0)
;;=^^4^4^3121101^
;;^DD(.85,.05,21,1,0)
;;=This is the alternate three letter code for a language. This will only be
;;^DD(.85,.05,21,2,0)
;;=used in cases where the language abbreviation is different in English
;;^DD(.85,.05,21,3,0)
;;=than in the native language. E.g. GER instead of DEU; for German instead
;;^DD(.85,.05,21,4,0)
;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
;;^DD(.85,.05,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.05,23,1,0)
;;=In a future version of Fileman, this field will have an optional key.
DMLAI002
DMLAI002 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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")
;;=3121101
;;^DD(.85,.06,0)
;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
;;^DD(.85,.06,3)
;;=Select a language's scope
;;^DD(.85,.06,21,0)
;;=^^12^12^3121031^
;;^DD(.85,.06,21,1,0)
;;=Enter the Scope of a Language.
;;^DD(.85,.06,21,2,0)
;;=
;;^DD(.85,.06,21,3,0)
;;=Individual if the language is an individually identifiable language
;;^DD(.85,.06,21,4,0)
;;=(e.g. 'Cantonese').
;;^DD(.85,.06,21,5,0)
;;=
;;^DD(.85,.06,21,6,0)
;;=Macrolanguage if the language encopasses several other languages (e.g.
;;^DD(.85,.06,21,7,0)
;;='Chinese')
;;^DD(.85,.06,21,8,0)
;;=
;;^DD(.85,.06,21,9,0)
;;=Collective if the language is a language group (e.g. 'Languages,
;;^DD(.85,.06,21,10,0)
;;=Sino-Tibetan')
;;^DD(.85,.06,21,11,0)
;;=
;;^DD(.85,.06,21,12,0)
;;=Special and Local are reserved for specific entries.
;;^DD(.85,.06,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.06,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.06,"DT")
;;=3121101
;;^DD(.85,.07,0)
;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
;;^DD(.85,.07,.1)
;;=Historical Status
;;^DD(.85,.07,3)
;;=Select a choice.
;;^DD(.85,.07,21,0)
;;=^^12^12^3121101^^
;;^DD(.85,.07,21,1,0)
;;=Living means that the language is spoken today (e.g. English).
;;^DD(.85,.07,21,2,0)
;;=
;;^DD(.85,.07,21,3,0)
;;=Constructed means that the language is artificial (e.g. Esperanto).
;;^DD(.85,.07,21,4,0)
;;=
;;^DD(.85,.07,21,5,0)
;;=Ancient means that the language is very old and not spoken any more (e.g.
;;^DD(.85,.07,21,6,0)
;;=Ancient Egyptian).
;;^DD(.85,.07,21,7,0)
;;=
;;^DD(.85,.07,21,8,0)
;;=Historical means that the language was being used in the Medieval times
;;^DD(.85,.07,21,9,0)
;;=and is not spoken any more (e.g. Old High German).
;;^DD(.85,.07,21,10,0)
;;=
;;^DD(.85,.07,21,11,0)
;;=Extinct means that the language was being used recently but has died out
;;^DD(.85,.07,21,12,0)
;;=(e.g. Cornish).
;;^DD(.85,.07,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.07,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.07,"DT")
;;=3121101
;;^DD(.85,.08,0)
;;=LINGUISTIC CATEGORY^*P.85'^DI(.85,^0;8^S DIC("S")="I $P(^(0),U,6)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
;;^DD(.85,.08,3)
;;=Select a choice.
;;^DD(.85,.08,12)
;;=Only collective languages are selectable
;;^DD(.85,.08,12.1)
;;=S DIC("S")="I $P(^(0),U,6)=""C"""
;;^DD(.85,.08,21,0)
;;=^^1^1^3121101^^
;;^DD(.85,.08,21,1,0)
;;=Enter a language collection to which this language belongs.
;;^DD(.85,.08,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.08,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.08,"DT")
;;=3121101
;;^DD(.85,.09,0)
;;=MEMBER OF LANGUAGE SET^*P.85'^DI(.85,^0;9^S DIC("S")="I $P(^(0),U,6)=""M""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
;;^DD(.85,.09,3)
;;=Enter a choice.
;;^DD(.85,.09,12)
;;=You may only select Macrolanguages
;;^DD(.85,.09,12.1)
;;=S DIC("S")="I $P(^(0),U,6)=""M"""
;;^DD(.85,.09,21,0)
;;=^^3^3^3121101^
;;^DD(.85,.09,21,1,0)
;;=If this language is a dialect of a macrolanguage, select the
;;^DD(.85,.09,21,2,0)
;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
;;^DD(.85,.09,21,3,0)
;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
;;^DD(.85,.09,23,0)
;;=^^1^1^3121101^
;;^DD(.85,.09,23,1,0)
;;=The current version of this file does not distribute data for this field.
;;^DD(.85,.09,"DT")
;;=3121101
;;^DD(.85,1,0)
;;=ALTERNATE NAME^.8501^^1;0
;;^DD(.85,10,0)
;;=DESCRIPTION^.8502^^10;0
;;^DD(.85,10,"DT")
;;=3121031
;;^DD(.85,10.1,0)
;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.1,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.1,9)
;;=@
;;^DD(.85,10.1,21,0)
;;=^^6^6^2941121^^^^
;;^DD(.85,10.1,21,1,0)
;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
;;^DD(.85,10.1,21,2,0)
;;=this language. The code should set Y to the ordinal equivalent without
;;^DD(.85,10.1,21,3,0)
;;=altering any other variables in the environment. Ex. in English:
;;^DD(.85,10.1,21,4,0)
;;= Y=1 becomes Y=1ST
;;^DD(.85,10.1,21,5,0)
;;= Y=2 becomes Y=2ND
;;^DD(.85,10.1,21,6,0)
;;= Y=3 becomes Y=3RD etc.
;;^DD(.85,10.1,"DT")
;;=2940307
;;^DD(.85,10.2,0)
;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.2,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.2,9)
;;=@
;;^DD(.85,10.2,21,0)
;;=^^6^6^2941121^^^
;;^DD(.85,10.2,21,1,0)
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
;;^DD(.85,10.2,21,2,0)
;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
;;^DD(.85,10.2,21,3,0)
;;=The code should set Y to the output, without altering any other variables
;;^DD(.85,10.2,21,4,0)
;;=in the environment. Ex. in English:
;;^DD(.85,10.2,21,5,0)
;;=
;;^DD(.85,10.2,21,6,0)
;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
;;^DD(.85,10.2,"DT")
;;=2940307
;;^DD(.85,10.21,0)
;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.21,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.21,9)
;;=@
;;^DD(.85,10.21,21,0)
;;=^^22^22^2941122^
;;^DD(.85,10.21,21,1,0)
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
;;^DD(.85,10.21,21,2,0)
;;=format, to printable format based on the various outputs from routine
;;^DD(.85,10.21,21,3,0)
;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
;;^DD(.85,10.21,21,4,0)
;;=code, in addition to the internal date in Y, a third parameter will be
;;^DD(.85,10.21,21,5,0)
;;=defined to contain flags equivalent to the flag passed as the second input
;;^DD(.85,10.21,21,6,0)
;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
;;^DD(.85,10.21,21,7,0)
;;=altering any other variables in the environment. The output should be
;;^DD(.85,10.21,21,8,0)
;;=formatted based on these flags:
;;^DD(.85,10.21,21,9,0)
;;=
;;^DD(.85,10.21,21,10,0)
;;= 1 MMM DD, YYYY@HH:MM:SS
;;^DD(.85,10.21,21,11,0)
;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,12,0)
;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,13,0)
;;= 4 YY/MM/DD@HH:MM:SS
;;^DD(.85,10.21,21,14,0)
;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
;;^DD(.85,10.21,21,15,0)
;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
;;^DD(.85,10.21,21,16,0)
;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
;;^DD(.85,10.21,21,17,0)
;;=
;;^DD(.85,10.21,21,18,0)
;;=letters in the flag
;;^DD(.85,10.21,21,19,0)
;;= S return always seconds
;;^DD(.85,10.21,21,20,0)
;;= U return uppercase month names
;;^DD(.85,10.21,21,21,0)
;;= P return time as am,pm
;;^DD(.85,10.21,21,22,0)
;;= D return only date part
;;^DD(.85,10.21,"DT")
;;=2940624
;;^DD(.85,10.22,0)
;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.22,3)
;;=This is Standard MUMPS code for the output of time only.
;;^DD(.85,10.22,9)
;;=@
;;^DD(.85,10.22,21,0)
;;=^^2^2^2960318^
;;^DD(.85,10.22,21,1,0)
;;=The code stored here will be used to get formatted output of the time
;;^DD(.85,10.22,21,2,0)
;;=part belonging to a FileMan Date/Time value.
;;^DD(.85,10.22,"DT")
;;=2960318
;;^DD(.85,10.3,0)
;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.3,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.3,9)
;;=@
;;^DD(.85,10.3,21,0)
;;=^^5^5^2941121^^
;;^DD(.85,10.3,21,1,0)
;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
;;^DD(.85,10.3,21,2,0)
;;=this language. The code should set Y to the cardinal equivalent without
;;^DD(.85,10.3,21,3,0)
;;=altering any other variables in the environment. Ex. in English:
;;^DD(.85,10.3,21,4,0)
;;= Y=2000 becomes Y=2,000
;;^DD(.85,10.3,21,5,0)
;;= Y=1234567 becomes Y=1,234,567
;;^DD(.85,10.3,"DT")
;;=2940308
;;^DD(.85,10.4,0)
;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.4,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.4,9)
;;=@
;;^DD(.85,10.4,21,0)
;;=^^4^4^2941121^
;;^DD(.85,10.4,21,1,0)
;;=MUMPS code used to convert text in Y to its upper-case equivalent in
;;^DD(.85,10.4,21,2,0)
;;=this language. The code should set Y to the external format without
;;^DD(.85,10.4,21,3,0)
;;=altering any other variables in the environment. In English, changes
;;^DD(.85,10.4,21,4,0)
;;= abCdeF to: ABCDEF
;;^DD(.85,10.4,"DT")
;;=2940308
;;^DD(.85,10.5,0)
;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,10.5,3)
;;=This is Standard MUMPS code.
;;^DD(.85,10.5,9)
;;=@
;;^DD(.85,10.5,21,0)
;;=^^4^4^2941121^
;;^DD(.85,10.5,21,1,0)
;;=MUMPS code used to convert text in Y to its lower-case equivalent in
;;^DD(.85,10.5,21,2,0)
;;=this language. The code should set Y to the external format without
;;^DD(.85,10.5,21,3,0)
;;=altering any other variables in the environment. In English, changes:
;;^DD(.85,10.5,21,4,0)
;;= ABcdEFgHij to: abcdefghij
;;^DD(.85,10.5,"DT")
;;=2940308
;;^DD(.85,20.2,0)
;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.85,20.2,3)
;;=This is Standard MUMPS code.
;;^DD(.85,20.2,9)
;;=@
;;^DD(.85,20.2,"DT")
;;=2940714
;;^DD(.8501,0)
;;=ALTERNATE NAME SUB-FIELD^^.01^1
;;^DD(.8501,0,"DT")
;;=3121101
;;^DD(.8501,0,"IX","B",.8501,.01)
;;=
;;^DD(.8501,0,"NM","ALTERNATE NAME")
;;=
;;^DD(.8501,0,"UP")
;;=.85
;;^DD(.8501,.01,0)
;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
;;^DD(.8501,.01,1,0)
;;=^.1
;;^DD(.8501,.01,1,1,0)
;;=.8501^B
;;^DD(.8501,.01,1,1,1)
;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
;;^DD(.8501,.01,1,1,2)
;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
;;^DD(.8501,.01,1,2,0)
;;=.85^F
;;^DD(.8501,.01,1,2,1)
;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
;;^DD(.8501,.01,1,2,2)
;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
;;^DD(.8501,.01,1,2,3)
;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
;;^DD(.8501,.01,1,2,"%D",0)
;;=^^1^1^3121101^
;;^DD(.8501,.01,1,2,"%D",1,0)
;;=Whole file cross-reference for ALTERNATE NAME multiple.
;;^DD(.8501,.01,1,2,"DT")
;;=3121101
;;^DD(.8501,.01,3)
;;=Answer must be 1-60 characters in length.
;;^DD(.8501,.01,21,0)
;;=^^2^2^3121101^^
;;^DD(.8501,.01,21,1,0)
;;=This field contains other synonyms for a language.
;;^DD(.8501,.01,21,2,0)
;;=E.g. for Greek, synonyms include Ellinika and Romaic.
;;^DD(.8501,.01,"DT")
;;=3121101
;;^DD(.8502,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.8502,0,"DT")
;;=3121031
;;^DD(.8502,0,"NM","DESCRIPTION")
;;=
;;^DD(.8502,0,"UP")
;;=.85
;;^DD(.8502,.01,0)
;;=DESCRIPTION^Wx^^0;1
;;^DD(.8502,.01,3)
;;=Enter an optional language description
;;^DD(.8502,.01,"DT")
;;=3121031
;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
;;=S ^DI(.85,"B",X,DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
;;=K ^DI(.85,"B",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
;;=K ^DI(.85,"B")
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
;;=1^F^.85^.01^^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
;;=
;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
;;=S ^DI(.85,"C",X,DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
;;=K ^DI(.85,"C",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
;;=K ^DI(.85,"C")
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
;;=1^F^.85^.02^^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
;;=K ^DI(.85,"D",$E(X,1,30),DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
;;=K ^DI(.85,"D")
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
;;=1^F^.85^.03^30^1^F
;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
;;=^^6^6^3121031^
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
;;=This will add entries to the D index for the three letter code a la the
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
;;=mnemonic style.
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
;;=
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
;;=If you need re-cross-reference this field, you need to kill of the
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
;;=entries in the regular D index, set the D index, and then set this index
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
;;=to update the D with the mnemonic xrefs.
;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
;;=S ^DI(.85,"D",X,DA)=1
;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
;;=K ^DI(.85,"D",X,DA)
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
;;=^.114IA^1^1
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
;;=1^F^.85^.05^^1^F
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
;;=.85^A^P^1046
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
;;=^.312IA^1^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
;;=.01^.85^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
;;=.85^B^S^1048
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
;;=^.312IA^1^1
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
;;=.03^.85^1
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
;;=.85^B
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
;;=.85^D
DMLAI003
DMLAI003 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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
;;^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
DMLAI004
DMLAI004 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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,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)
;;^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
DMLAI005
DMLAI005 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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,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
DMLAI006
DMLAI006 ; ; 20-NOV-2012 ; 11/20/12 1:06pm
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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")
;;=^
DMLAI007
DMLAI007 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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)
;;=
DMLAINI1
DMLAINI1 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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="^DMLAI" 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",%)
DMLAINI2
DMLAINI2 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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
DMLAINI3
DMLAINI3 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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^DMLAINI4
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
DMLAINI4
DMLAINI4 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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
DMLAINI5
DMLAINI5 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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;;n;;;y;o;n
;;
DMLAINIT
DMLAINIT ; ; 20-NOV-2012 ; 11/20/12 1:19pm
;;22.2;LANGUAGE FILE INITS;;NOV 20, 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 'DMLAINIT' was created on 20-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="^DMLAINI"_$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)),^DMLAINI1 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 ^DMLAINI2,^DMLAINI3
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^DMLAINI2
;
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
Reference in New Issue View Git Blame Copy Permalink