VistA-Miscellaneous/lang_file4mu1and2/DMLAI003.m

611 lines
15 KiB
Mathematica

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