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