[1597] | 1 | Lang files inits. Run ^DINIT first, then run ^DILAINIT
|
---|
| 2 | GT.M 14-NOV-2012 11:28:46
|
---|
| 3 | DILAI001
|
---|
| 4 | DILAI001 ; ; 02-NOV-2012 ; 11/14/12 11:06am
|
---|
| 5 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 6 | 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
|
---|
| 7 | Q Q
|
---|
| 8 | ;;^DIC(.85,0,"GL")
|
---|
| 9 | ;;=^DI(.85,
|
---|
| 10 | ;;^DIC("B","LANGUAGE",.85)
|
---|
| 11 | ;;=
|
---|
| 12 | ;;^DIC(.85,"%",0)
|
---|
| 13 | ;;=^1.005
|
---|
| 14 | ;;^DIC(.85,"%D",0)
|
---|
| 15 | ;;=^^27^27^3121101^
|
---|
| 16 | ;;^DIC(.85,"%D",1,0)
|
---|
| 17 | ;;=The LANGUAGE file is used both to officially identify a language, and to
|
---|
| 18 | ;;^DIC(.85,"%D",2,0)
|
---|
| 19 | ;;=store MUMPS code needed to do language-specific conversions of data such
|
---|
| 20 | ;;^DIC(.85,"%D",3,0)
|
---|
| 21 | ;;=as dates and numbers.
|
---|
| 22 | ;;^DIC(.85,"%D",4,0)
|
---|
| 23 | ;;=
|
---|
| 24 | ;;^DIC(.85,"%D",5,0)
|
---|
| 25 | ;;=Fileman distributes entries for the following languages:
|
---|
| 26 | ;;^DIC(.85,"%D",6,0)
|
---|
| 27 | ;;= ID Number (.001) Name (.01)
|
---|
| 28 | ;;^DIC(.85,"%D",7,0)
|
---|
| 29 | ;;= 1 English
|
---|
| 30 | ;;^DIC(.85,"%D",8,0)
|
---|
| 31 | ;;= 2 German
|
---|
| 32 | ;;^DIC(.85,"%D",9,0)
|
---|
| 33 | ;;= 3 Spanish
|
---|
| 34 | ;;^DIC(.85,"%D",10,0)
|
---|
| 35 | ;;= 4 French
|
---|
| 36 | ;;^DIC(.85,"%D",11,0)
|
---|
| 37 | ;;= 5 Finnish
|
---|
| 38 | ;;^DIC(.85,"%D",12,0)
|
---|
| 39 | ;;= 6 Italian
|
---|
| 40 | ;;^DIC(.85,"%D",13,0)
|
---|
| 41 | ;;= 7 Portuguese
|
---|
| 42 | ;;^DIC(.85,"%D",14,0)
|
---|
| 43 | ;;= 10 Arabic
|
---|
| 44 | ;;^DIC(.85,"%D",15,0)
|
---|
| 45 | ;;= 11 Russian
|
---|
| 46 | ;;^DIC(.85,"%D",16,0)
|
---|
| 47 | ;;= 12 Greek
|
---|
| 48 | ;;^DIC(.85,"%D",17,0)
|
---|
| 49 | ;;= 18 Hebrew
|
---|
| 50 | ;;^DIC(.85,"%D",18,0)
|
---|
| 51 | ;;=
|
---|
| 52 | ;;^DIC(.85,"%D",19,0)
|
---|
| 53 | ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
|
---|
| 54 | ;;^DIC(.85,"%D",20,0)
|
---|
| 55 | ;;=DILAINIT routines, shipped with Fileman 22.2.
|
---|
| 56 | ;;^DIC(.85,"%D",21,0)
|
---|
| 57 | ;;=
|
---|
| 58 | ;;^DIC(.85,"%D",22,0)
|
---|
| 59 | ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
|
---|
| 60 | ;;^DIC(.85,"%D",23,0)
|
---|
| 61 | ;;=also allows non-English text to be returned via FileMan calls.
|
---|
| 62 | ;;^DIC(.85,"%D",24,0)
|
---|
| 63 | ;;=
|
---|
| 64 | ;;^DIC(.85,"%D",25,0)
|
---|
| 65 | ;;=A note to VISTA developers: Although users can select entries by name,
|
---|
| 66 | ;;^DIC(.85,"%D",26,0)
|
---|
| 67 | ;;=software should use the official two or three letter codes to eliminiate
|
---|
| 68 | ;;^DIC(.85,"%D",27,0)
|
---|
| 69 | ;;=mistakes resulting from languages that have similar spelling.
|
---|
| 70 | ;;^DIC(.85,"%MSC")
|
---|
| 71 | ;;=3121114.111954
|
---|
| 72 | ;;^DD(.85,0)
|
---|
| 73 | ;;=FIELD^^10^20
|
---|
| 74 | ;;^DD(.85,0,"DDA")
|
---|
| 75 | ;;=N
|
---|
| 76 | ;;^DD(.85,0,"DT")
|
---|
| 77 | ;;=3121101
|
---|
| 78 | ;;^DD(.85,0,"ID",.02)
|
---|
| 79 | ;;=W " ",$P(^(0),U,2)
|
---|
| 80 | ;;^DD(.85,0,"ID",.03)
|
---|
| 81 | ;;=W " ",$P(^(0),U,3)
|
---|
| 82 | ;;^DD(.85,0,"IX","F",.8501,.01)
|
---|
| 83 | ;;=
|
---|
| 84 | ;;^DD(.85,0,"NM","LANGUAGE")
|
---|
| 85 | ;;=
|
---|
| 86 | ;;^DD(.85,0,"PT",.007,.001)
|
---|
| 87 | ;;=
|
---|
| 88 | ;;^DD(.85,0,"PT",.008,.001)
|
---|
| 89 | ;;=
|
---|
| 90 | ;;^DD(.85,0,"PT",.009,.001)
|
---|
| 91 | ;;=
|
---|
| 92 | ;;^DD(.85,0,"PT",.4,709.1)
|
---|
| 93 | ;;=
|
---|
| 94 | ;;^DD(.85,0,"PT",.4,1819.1)
|
---|
| 95 | ;;=
|
---|
| 96 | ;;^DD(.85,0,"PT",.847,.01)
|
---|
| 97 | ;;=
|
---|
| 98 | ;;^DD(.85,0,"PT",.85,.08)
|
---|
| 99 | ;;=
|
---|
| 100 | ;;^DD(.85,0,"PT",.85,.09)
|
---|
| 101 | ;;=
|
---|
| 102 | ;;^DD(.85,0,"PT",1.008,.001)
|
---|
| 103 | ;;=
|
---|
| 104 | ;;^DD(.85,0,"PT",200,200.07)
|
---|
| 105 | ;;=
|
---|
| 106 | ;;^DD(.85,0,"PT",8989.3,207)
|
---|
| 107 | ;;=
|
---|
| 108 | ;;^DD(.85,.001,0)
|
---|
| 109 | ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
|
---|
| 110 | ;;^DD(.85,.001,3)
|
---|
| 111 | ;;=Type a number between 1 and 9999999999, 0 decimal digits.
|
---|
| 112 | ;;^DD(.85,.001,21,0)
|
---|
| 113 | ;;=^^3^3^3121031^^
|
---|
| 114 | ;;^DD(.85,.001,21,1,0)
|
---|
| 115 | ;;=A number that is used to uniquely identify a language. This number
|
---|
| 116 | ;;^DD(.85,.001,21,2,0)
|
---|
| 117 | ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
|
---|
| 118 | ;;^DD(.85,.001,21,3,0)
|
---|
| 119 | ;;=during Kernel signon to signify which language Fileman should use.
|
---|
| 120 | ;;^DD(.85,.001,23,0)
|
---|
| 121 | ;;=^^31^31^3121031^
|
---|
| 122 | ;;^DD(.85,.001,23,1,0)
|
---|
| 123 | ;;=Entries in this file are standardized, with the contents controlled by
|
---|
| 124 | ;;^DD(.85,.001,23,2,0)
|
---|
| 125 | ;;=the Fileman Primary Development Team. The ID Number field is used to help
|
---|
| 126 | ;;^DD(.85,.001,23,3,0)
|
---|
| 127 | ;;=protect referential integrity in VISTA databases during upgrades to the
|
---|
| 128 | ;;^DD(.85,.001,23,4,0)
|
---|
| 129 | ;;=file. ID Number assignment corresponds to the order in which languages
|
---|
| 130 | ;;^DD(.85,.001,23,5,0)
|
---|
| 131 | ;;=were added to the file. They were added in segments.
|
---|
| 132 | ;;^DD(.85,.001,23,6,0)
|
---|
| 133 | ;;=
|
---|
| 134 | ;;^DD(.85,.001,23,7,0)
|
---|
| 135 | ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
|
---|
| 136 | ;;^DD(.85,.001,23,8,0)
|
---|
| 137 | ;;=were the first eleven languages added, in order. English is first because
|
---|
| 138 | ;;^DD(.85,.001,23,9,0)
|
---|
| 139 | ;;=Fileman was originally written in English. German is second because
|
---|
| 140 | ;;^DD(.85,.001,23,10,0)
|
---|
| 141 | ;;=Marcus Werners of Germany led the effort to create Fileman's dialog
|
---|
| 142 | ;;^DD(.85,.001,23,11,0)
|
---|
| 143 | ;;=framework, to make translating VISTA into other languages easier.
|
---|
| 144 | ;;^DD(.85,.001,23,12,0)
|
---|
| 145 | ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
|
---|
| 146 | ;;^DD(.85,.001,23,13,0)
|
---|
| 147 | ;;=which the Fileman team was approached by potential translators about
|
---|
| 148 | ;;^DD(.85,.001,23,14,0)
|
---|
| 149 | ;;=adding those languages to the file (though Finnish actually predates all
|
---|
| 150 | ;;^DD(.85,.001,23,15,0)
|
---|
| 151 | ;;=other translation efforts except English). Arabic was assigned ID Number
|
---|
| 152 | ;;^DD(.85,.001,23,16,0)
|
---|
| 153 | ;;=10 instead of 8 in recognition of the debt English owes Arabic for
|
---|
| 154 | ;;^DD(.85,.001,23,17,0)
|
---|
| 155 | ;;=introducing the decimal numbering system to Europe. Russian and Greek
|
---|
| 156 | ;;^DD(.85,.001,23,18,0)
|
---|
| 157 | ;;=were the next two translations the Fileman team was approached about. I
|
---|
| 158 | ;;^DD(.85,.001,23,19,0)
|
---|
| 159 | ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
|
---|
| 160 | ;;^DD(.85,.001,23,20,0)
|
---|
| 161 | ;;=sure there was a reason.
|
---|
| 162 | ;;^DD(.85,.001,23,21,0)
|
---|
| 163 | ;;=
|
---|
| 164 | ;;^DD(.85,.001,23,22,0)
|
---|
| 165 | ;;=Thereafter, languages are added in segments, in order by Name, starting
|
---|
| 166 | ;;^DD(.85,.001,23,23,0)
|
---|
| 167 | ;;=with ID Number 8. The segments correspond to the ISO 639 language
|
---|
| 168 | ;;^DD(.85,.001,23,24,0)
|
---|
| 169 | ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
|
---|
| 170 | ;;^DD(.85,.001,23,25,0)
|
---|
| 171 | ;;=so on). Each language has one unique record in this file, so wherever a
|
---|
| 172 | ;;^DD(.85,.001,23,26,0)
|
---|
| 173 | ;;=language in one segment has already been included in an earlier segment,
|
---|
| 174 | ;;^DD(.85,.001,23,27,0)
|
---|
| 175 | ;;=it is not included in the later segment (e.g., Greek was in segment one,
|
---|
| 176 | ;;^DD(.85,.001,23,28,0)
|
---|
| 177 | ;;=so it is not also added as a duplicate in segment two).
|
---|
| 178 | ;;^DD(.85,.001,23,29,0)
|
---|
| 179 | ;;=
|
---|
| 180 | ;;^DD(.85,.001,23,30,0)
|
---|
| 181 | ;;=This segmented approach makes it comparatively easy to upgrade the file
|
---|
| 182 | ;;^DD(.85,.001,23,31,0)
|
---|
| 183 | ;;=in discrete batches, to keep the update projects manageable.
|
---|
| 184 | ;;^DD(.85,.001,"DT")
|
---|
| 185 | ;;=3121031
|
---|
| 186 | ;;^DD(.85,.01,0)
|
---|
| 187 | ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
---|
| 188 | ;;^DD(.85,.01,.1)
|
---|
| 189 | ;;=Language-Name
|
---|
| 190 | ;;^DD(.85,.01,3)
|
---|
| 191 | ;;=Answer must be 1-60 characters in length.
|
---|
| 192 | ;;^DD(.85,.01,21,0)
|
---|
| 193 | ;;=^^10^10^3121031^
|
---|
| 194 | ;;^DD(.85,.01,21,1,0)
|
---|
| 195 | ;;=Enter the English name of the language, not the native name.
|
---|
| 196 | ;;^DD(.85,.01,21,2,0)
|
---|
| 197 | ;;=
|
---|
| 198 | ;;^DD(.85,.01,21,3,0)
|
---|
| 199 | ;;=The default is the English name from ISO 639, converted where necessary to
|
---|
| 200 | ;;^DD(.85,.01,21,4,0)
|
---|
| 201 | ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
|
---|
| 202 | ;;^DD(.85,.01,21,5,0)
|
---|
| 203 | ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
|
---|
| 204 | ;;^DD(.85,.01,21,6,0)
|
---|
| 205 | ;;=used.
|
---|
| 206 | ;;^DD(.85,.01,21,7,0)
|
---|
| 207 | ;;=
|
---|
| 208 | ;;^DD(.85,.01,21,8,0)
|
---|
| 209 | ;;=However, this use of ISO 639's spelling as a default is overridden in
|
---|
| 210 | ;;^DD(.85,.01,21,9,0)
|
---|
| 211 | ;;=several different ways to improve consistency across entries and to
|
---|
| 212 | ;;^DD(.85,.01,21,10,0)
|
---|
| 213 | ;;=reduce selection error.
|
---|
| 214 | ;;^DD(.85,.01,23,0)
|
---|
| 215 | ;;=^^63^63^3121031^
|
---|
| 216 | ;;^DD(.85,.01,23,1,0)
|
---|
| 217 | ;;=This is the English name of the language, not the native name. It
|
---|
| 218 | ;;^DD(.85,.01,23,2,0)
|
---|
| 219 | ;;=defaults to the English name from ISO 639, mixed case, converted where
|
---|
| 220 | ;;^DD(.85,.01,23,3,0)
|
---|
| 221 | ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
|
---|
| 222 | ;;^DD(.85,.01,23,4,0)
|
---|
| 223 | ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
|
---|
| 224 | ;;^DD(.85,.01,23,5,0)
|
---|
| 225 | ;;=spelling is used.
|
---|
| 226 | ;;^DD(.85,.01,23,6,0)
|
---|
| 227 | ;;=
|
---|
| 228 | ;;^DD(.85,.01,23,7,0)
|
---|
| 229 | ;;=However, this use of ISO 639's spelling as a default is overridden in
|
---|
| 230 | ;;^DD(.85,.01,23,8,0)
|
---|
| 231 | ;;=several different ways to improve consistency across entries and to
|
---|
| 232 | ;;^DD(.85,.01,23,9,0)
|
---|
| 233 | ;;=reduce selection error.
|
---|
| 234 | ;;^DD(.85,.01,23,10,0)
|
---|
| 235 | ;;=
|
---|
| 236 | ;;^DD(.85,.01,23,11,0)
|
---|
| 237 | ;;=For example, for most modern languages, the form of the name that
|
---|
| 238 | ;;^DD(.85,.01,23,12,0)
|
---|
| 239 | ;;=includes the word "Modern" and the parenthesized dates is an alternate
|
---|
| 240 | ;;^DD(.85,.01,23,13,0)
|
---|
| 241 | ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
|
---|
| 242 | ;;^DD(.85,.01,23,14,0)
|
---|
| 243 | ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
|
---|
| 244 | ;;^DD(.85,.01,23,15,0)
|
---|
| 245 | ;;=an alternate name and making the name "Greek" instead.
|
---|
| 246 | ;;^DD(.85,.01,23,16,0)
|
---|
| 247 | ;;=
|
---|
| 248 | ;;^DD(.85,.01,23,17,0)
|
---|
| 249 | ;;=Since most users of these systems are medical professionals rather than
|
---|
| 250 | ;;^DD(.85,.01,23,18,0)
|
---|
| 251 | ;;=linguists or historians, we emphasize modern languages and group
|
---|
| 252 | ;;^DD(.85,.01,23,19,0)
|
---|
| 253 | ;;=historical ones away from the modern names to reduce accidents. For
|
---|
| 254 | ;;^DD(.85,.01,23,20,0)
|
---|
| 255 | ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
|
---|
| 256 | ;;^DD(.85,.01,23,21,0)
|
---|
| 257 | ;;=an alternate name for "Old French" in this file, to move the obsolete
|
---|
| 258 | ;;^DD(.85,.01,23,22,0)
|
---|
| 259 | ;;=form of the language away from the modern one. Thus, "Old" languages,
|
---|
| 260 | ;;^DD(.85,.01,23,23,0)
|
---|
| 261 | ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
|
---|
| 262 | ;;^DD(.85,.01,23,24,0)
|
---|
| 263 | ;;=languages whose names look like historical ones, such as "Old Church
|
---|
| 264 | ;;^DD(.85,.01,23,25,0)
|
---|
| 265 | ;;=Slavonic", that are still living languages or in active liturgical use
|
---|
| 266 | ;;^DD(.85,.01,23,26,0)
|
---|
| 267 | ;;=are kept in this form if that is how they are best known.
|
---|
| 268 | ;;^DD(.85,.01,23,27,0)
|
---|
| 269 | ;;=
|
---|
| 270 | ;;^DD(.85,.01,23,28,0)
|
---|
| 271 | ;;=Also, such forms that include parenthetical dates are changed to remove
|
---|
| 272 | ;;^DD(.85,.01,23,29,0)
|
---|
| 273 | ;;=the dates and parentheses from the Name field; the original forms and
|
---|
| 274 | ;;^DD(.85,.01,23,30,0)
|
---|
| 275 | ;;=variants are preserved in the Alternate Name field.
|
---|
| 276 | ;;^DD(.85,.01,23,31,0)
|
---|
| 277 | ;;=
|
---|
| 278 | ;;^DD(.85,.01,23,32,0)
|
---|
| 279 | ;;=For similar reasons, language collections like "Banda languages" are
|
---|
| 280 | ;;^DD(.85,.01,23,33,0)
|
---|
| 281 | ;;=renamed as "Languages, Banda" to move them away from individual language
|
---|
| 282 | ;;^DD(.85,.01,23,34,0)
|
---|
| 283 | ;;=a patient might speak, like "Banda-Banda". The same was preserved from
|
---|
| 284 | ;;^DD(.85,.01,23,35,0)
|
---|
| 285 | ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
|
---|
| 286 | ;;^DD(.85,.01,23,36,0)
|
---|
| 287 | ;;=Portuguese-Based"), which are collective languages, to kepp them separate
|
---|
| 288 | ;;^DD(.85,.01,23,37,0)
|
---|
| 289 | ;;=from the individual languages they might be confused with (such as
|
---|
| 290 | ;;^DD(.85,.01,23,38,0)
|
---|
| 291 | ;;="Portuguese"). However, individual languages like "Haitian Creole" and
|
---|
| 292 | ;;^DD(.85,.01,23,39,0)
|
---|
| 293 | ;;="Chinook Jargon" whose ISO 639 names makes them sound like language
|
---|
| 294 | ;;^DD(.85,.01,23,40,0)
|
---|
| 295 | ;;=collections are nevertheless left as is, since these are the names they
|
---|
| 296 | ;;^DD(.85,.01,23,41,0)
|
---|
| 297 | ;;=are known by and since the distinguishing part of the name does come
|
---|
| 298 | ;;^DD(.85,.01,23,42,0)
|
---|
| 299 | ;;=first, allowing for unambiguous selection.
|
---|
| 300 | ;;^DD(.85,.01,23,43,0)
|
---|
| 301 | ;;=
|
---|
| 302 | ;;^DD(.85,.01,23,44,0)
|
---|
| 303 | ;;=Where the language name from ISO 639 is a list of alternative names, as
|
---|
| 304 | ;;^DD(.85,.01,23,45,0)
|
---|
| 305 | ;;=in "Catalan, Valencian", the dominant name (based on other code sets,
|
---|
| 306 | ;;^DD(.85,.01,23,46,0)
|
---|
| 307 | ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
|
---|
| 308 | ;;^DD(.85,.01,23,47,0)
|
---|
| 309 | ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
|
---|
| 310 | ;;^DD(.85,.01,23,48,0)
|
---|
| 311 | ;;=
|
---|
| 312 | ;;^DD(.85,.01,23,49,0)
|
---|
| 313 | ;;=As a general rule (except in the case of language collections), ISO 639
|
---|
| 314 | ;;^DD(.85,.01,23,50,0)
|
---|
| 315 | ;;=names that use commas to invert a language name (like "Sorbian, Upper")
|
---|
| 316 | ;;^DD(.85,.01,23,51,0)
|
---|
| 317 | ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
|
---|
| 318 | ;;^DD(.85,.01,23,52,0)
|
---|
| 319 | ;;=Alternate Name. We do not try to use commas in the Name field to group
|
---|
| 320 | ;;^DD(.85,.01,23,53,0)
|
---|
| 321 | ;;=together all related languages or dialects, though we do in the Alternate
|
---|
| 322 | ;;^DD(.85,.01,23,54,0)
|
---|
| 323 | ;;=Name field.
|
---|
| 324 | ;;^DD(.85,.01,23,55,0)
|
---|
| 325 | ;;=
|
---|
| 326 | ;;^DD(.85,.01,23,56,0)
|
---|
| 327 | ;;=In the Name field, parenthetical comments are generally restricted to
|
---|
| 328 | ;;^DD(.85,.01,23,57,0)
|
---|
| 329 | ;;=distinguishing between unrelated languages that have the same name, like
|
---|
| 330 | ;;^DD(.85,.01,23,58,0)
|
---|
| 331 | ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
|
---|
| 332 | ;;^DD(.85,.01,23,59,0)
|
---|
| 333 | ;;=parenthetical words will be (in order of preference) a country, a people,
|
---|
| 334 | ;;^DD(.85,.01,23,60,0)
|
---|
| 335 | ;;=or an alternate name of the language, so long as it distinguishes it from
|
---|
| 336 | ;;^DD(.85,.01,23,61,0)
|
---|
| 337 | ;;=the other identically named languages. To date, we have not had to change
|
---|
| 338 | ;;^DD(.85,.01,23,62,0)
|
---|
| 339 | ;;=any of the ISO 639 names we've imported to make or correct these
|
---|
| 340 | ;;^DD(.85,.01,23,63,0)
|
---|
| 341 | ;;=distinctions, but we stand ready to do so to enforce this pattern.
|
---|
| 342 | ;;^DD(.85,.01,"DT")
|
---|
| 343 | ;;=3121031
|
---|
| 344 | ;;^DD(.85,.02,0)
|
---|
| 345 | ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
|
---|
| 346 | ;;^DD(.85,.02,3)
|
---|
| 347 | ;;=Answer must be 2 characters in length.
|
---|
| 348 | ;;^DD(.85,.02,21,0)
|
---|
| 349 | ;;=^^3^3^3121101^^
|
---|
| 350 | ;;^DD(.85,.02,21,1,0)
|
---|
| 351 | ;;=Enter the two-letter code defined for this language in the ISO 639-1
|
---|
| 352 | ;;^DD(.85,.02,21,2,0)
|
---|
| 353 | ;;=standard. Not every language has a two-letter code; for those that do not
|
---|
| 354 | ;;^DD(.85,.02,21,3,0)
|
---|
| 355 | ;;=leave this field blank.
|
---|
| 356 | ;;^DD(.85,.02,23,0)
|
---|
| 357 | ;;=^^1^1^3121101^
|
---|
| 358 | ;;^DD(.85,.02,23,1,0)
|
---|
| 359 | ;;=Future versions of this file wil include an optional key on this field.
|
---|
| 360 | ;;^DD(.85,.02,"DT")
|
---|
| 361 | ;;=3121101
|
---|
| 362 | ;;^DD(.85,.03,0)
|
---|
| 363 | ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
|
---|
| 364 | ;;^DD(.85,.03,3)
|
---|
| 365 | ;;=Answer must be 3 characters in length.
|
---|
| 366 | ;;^DD(.85,.03,21,0)
|
---|
| 367 | ;;=^^2^2^3121101^^^^
|
---|
| 368 | ;;^DD(.85,.03,21,1,0)
|
---|
| 369 | ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
|
---|
| 370 | ;;^DD(.85,.03,21,2,0)
|
---|
| 371 | ;;=standard.
|
---|
| 372 | ;;^DD(.85,.03,23,0)
|
---|
| 373 | ;;=^^2^2^3121101^
|
---|
| 374 | ;;^DD(.85,.03,23,1,0)
|
---|
| 375 | ;;=When this file is upgraded to ISO-639-6, an optional key will be added to
|
---|
| 376 | ;;^DD(.85,.03,23,2,0)
|
---|
| 377 | ;;=this field.
|
---|
| 378 | ;;^DD(.85,.03,"DT")
|
---|
| 379 | ;;=3121101
|
---|
| 380 | ;;^DD(.85,.04,0)
|
---|
| 381 | ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
|
---|
| 382 | ;;^DD(.85,.04,3)
|
---|
| 383 | ;;=Answer must be 4 characters in length.
|
---|
| 384 | ;;^DD(.85,.04,21,0)
|
---|
| 385 | ;;=^^1^1^3121101^^^
|
---|
| 386 | ;;^DD(.85,.04,21,1,0)
|
---|
| 387 | ;;=Enter the four letter code associated with the language in ISO-639-6.
|
---|
| 388 | ;;^DD(.85,.04,23,0)
|
---|
| 389 | ;;=^^3^3^3121101^
|
---|
| 390 | ;;^DD(.85,.04,23,1,0)
|
---|
| 391 | ;;=This field is currently not used in this version of the release (as of
|
---|
| 392 | ;;^DD(.85,.04,23,2,0)
|
---|
| 393 | ;;=Fileman V22.2). In a future version when this file is upgraded to
|
---|
| 394 | ;;^DD(.85,.04,23,3,0)
|
---|
| 395 | ;;=ISO-639-6, a key will be added to this field.
|
---|
| 396 | ;;^DD(.85,.04,"DT")
|
---|
| 397 | ;;=3121101
|
---|
| 398 | ;;^DD(.85,.05,0)
|
---|
| 399 | ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
|
---|
| 400 | ;;^DD(.85,.05,3)
|
---|
| 401 | ;;=Answer must be 3 characters in length.
|
---|
| 402 | ;;^DD(.85,.05,21,0)
|
---|
| 403 | ;;=^^4^4^3121101^
|
---|
| 404 | ;;^DD(.85,.05,21,1,0)
|
---|
| 405 | ;;=This is the alternate three letter code for a language. This will only be
|
---|
| 406 | ;;^DD(.85,.05,21,2,0)
|
---|
| 407 | ;;=used in cases where the language abbreviation is different in English
|
---|
| 408 | ;;^DD(.85,.05,21,3,0)
|
---|
| 409 | ;;=than in the native language. E.g. GER instead of DEU; for German instead
|
---|
| 410 | ;;^DD(.85,.05,21,4,0)
|
---|
| 411 | ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
|
---|
| 412 | ;;^DD(.85,.05,23,0)
|
---|
| 413 | ;;=^^1^1^3121101^
|
---|
| 414 | ;;^DD(.85,.05,23,1,0)
|
---|
| 415 | ;;=In a future version of Fileman, this field will have an optional key.
|
---|
| 416 |
|
---|
| 417 | DILAI002
|
---|
| 418 | DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am
|
---|
| 419 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 420 | 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
|
---|
| 421 | Q Q
|
---|
| 422 | ;;^DD(.85,.05,"DT")
|
---|
| 423 | ;;=3121102
|
---|
| 424 | ;;^DD(.85,.06,0)
|
---|
| 425 | ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
|
---|
| 426 | ;;^DD(.85,.06,3)
|
---|
| 427 | ;;=Select a language's scope
|
---|
| 428 | ;;^DD(.85,.06,21,0)
|
---|
| 429 | ;;=^^12^12^3121031^
|
---|
| 430 | ;;^DD(.85,.06,21,1,0)
|
---|
| 431 | ;;=Enter the Scope of a Language.
|
---|
| 432 | ;;^DD(.85,.06,21,2,0)
|
---|
| 433 | ;;=
|
---|
| 434 | ;;^DD(.85,.06,21,3,0)
|
---|
| 435 | ;;=Individual if the language is an individually identifiable language
|
---|
| 436 | ;;^DD(.85,.06,21,4,0)
|
---|
| 437 | ;;=(e.g. 'Cantonese').
|
---|
| 438 | ;;^DD(.85,.06,21,5,0)
|
---|
| 439 | ;;=
|
---|
| 440 | ;;^DD(.85,.06,21,6,0)
|
---|
| 441 | ;;=Macrolanguage if the language encopasses several other languages (e.g.
|
---|
| 442 | ;;^DD(.85,.06,21,7,0)
|
---|
| 443 | ;;='Chinese')
|
---|
| 444 | ;;^DD(.85,.06,21,8,0)
|
---|
| 445 | ;;=
|
---|
| 446 | ;;^DD(.85,.06,21,9,0)
|
---|
| 447 | ;;=Collective if the language is a language group (e.g. 'Languages,
|
---|
| 448 | ;;^DD(.85,.06,21,10,0)
|
---|
| 449 | ;;=Sino-Tibetan')
|
---|
| 450 | ;;^DD(.85,.06,21,11,0)
|
---|
| 451 | ;;=
|
---|
| 452 | ;;^DD(.85,.06,21,12,0)
|
---|
| 453 | ;;=Special and Local are reserved for specific entries.
|
---|
| 454 | ;;^DD(.85,.06,23,0)
|
---|
| 455 | ;;=^^1^1^3121101^
|
---|
| 456 | ;;^DD(.85,.06,23,1,0)
|
---|
| 457 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 458 | ;;^DD(.85,.06,"DT")
|
---|
| 459 | ;;=3121101
|
---|
| 460 | ;;^DD(.85,.07,0)
|
---|
| 461 | ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
|
---|
| 462 | ;;^DD(.85,.07,.1)
|
---|
| 463 | ;;=Historical Status
|
---|
| 464 | ;;^DD(.85,.07,3)
|
---|
| 465 | ;;=Select a choice.
|
---|
| 466 | ;;^DD(.85,.07,21,0)
|
---|
| 467 | ;;=^^12^12^3121101^^
|
---|
| 468 | ;;^DD(.85,.07,21,1,0)
|
---|
| 469 | ;;=Living means that the language is spoken today (e.g. English).
|
---|
| 470 | ;;^DD(.85,.07,21,2,0)
|
---|
| 471 | ;;=
|
---|
| 472 | ;;^DD(.85,.07,21,3,0)
|
---|
| 473 | ;;=Constructed means that the language is artificial (e.g. Esperanto).
|
---|
| 474 | ;;^DD(.85,.07,21,4,0)
|
---|
| 475 | ;;=
|
---|
| 476 | ;;^DD(.85,.07,21,5,0)
|
---|
| 477 | ;;=Ancient means that the language is very old and not spoken any more (e.g.
|
---|
| 478 | ;;^DD(.85,.07,21,6,0)
|
---|
| 479 | ;;=Ancient Egyptian).
|
---|
| 480 | ;;^DD(.85,.07,21,7,0)
|
---|
| 481 | ;;=
|
---|
| 482 | ;;^DD(.85,.07,21,8,0)
|
---|
| 483 | ;;=Historical means that the language was being used in the Medieval times
|
---|
| 484 | ;;^DD(.85,.07,21,9,0)
|
---|
| 485 | ;;=and is not spoken any more (e.g. Old High German).
|
---|
| 486 | ;;^DD(.85,.07,21,10,0)
|
---|
| 487 | ;;=
|
---|
| 488 | ;;^DD(.85,.07,21,11,0)
|
---|
| 489 | ;;=Extinct means that the language was being used recently but has died out
|
---|
| 490 | ;;^DD(.85,.07,21,12,0)
|
---|
| 491 | ;;=(e.g. Cornish).
|
---|
| 492 | ;;^DD(.85,.07,23,0)
|
---|
| 493 | ;;=^^1^1^3121101^
|
---|
| 494 | ;;^DD(.85,.07,23,1,0)
|
---|
| 495 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 496 | ;;^DD(.85,.07,"DT")
|
---|
| 497 | ;;=3121101
|
---|
| 498 | ;;^DD(.85,.08,0)
|
---|
| 499 | ;;=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
|
---|
| 500 | ;;^DD(.85,.08,3)
|
---|
| 501 | ;;=Select a choice.
|
---|
| 502 | ;;^DD(.85,.08,12)
|
---|
| 503 | ;;=Only collective languages are selectable
|
---|
| 504 | ;;^DD(.85,.08,12.1)
|
---|
| 505 | ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
|
---|
| 506 | ;;^DD(.85,.08,21,0)
|
---|
| 507 | ;;=^^1^1^3121101^^
|
---|
| 508 | ;;^DD(.85,.08,21,1,0)
|
---|
| 509 | ;;=Enter a language collection to which this language belongs.
|
---|
| 510 | ;;^DD(.85,.08,23,0)
|
---|
| 511 | ;;=^^1^1^3121101^
|
---|
| 512 | ;;^DD(.85,.08,23,1,0)
|
---|
| 513 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 514 | ;;^DD(.85,.08,"DT")
|
---|
| 515 | ;;=3121101
|
---|
| 516 | ;;^DD(.85,.09,0)
|
---|
| 517 | ;;=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
|
---|
| 518 | ;;^DD(.85,.09,3)
|
---|
| 519 | ;;=Enter a choice.
|
---|
| 520 | ;;^DD(.85,.09,12)
|
---|
| 521 | ;;=You may only select Macrolanguages
|
---|
| 522 | ;;^DD(.85,.09,12.1)
|
---|
| 523 | ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
|
---|
| 524 | ;;^DD(.85,.09,21,0)
|
---|
| 525 | ;;=^^3^3^3121101^
|
---|
| 526 | ;;^DD(.85,.09,21,1,0)
|
---|
| 527 | ;;=If this language is a dialect of a macrolanguage, select the
|
---|
| 528 | ;;^DD(.85,.09,21,2,0)
|
---|
| 529 | ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
|
---|
| 530 | ;;^DD(.85,.09,21,3,0)
|
---|
| 531 | ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
|
---|
| 532 | ;;^DD(.85,.09,23,0)
|
---|
| 533 | ;;=^^1^1^3121101^
|
---|
| 534 | ;;^DD(.85,.09,23,1,0)
|
---|
| 535 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 536 | ;;^DD(.85,.09,"DT")
|
---|
| 537 | ;;=3121101
|
---|
| 538 | ;;^DD(.85,1,0)
|
---|
| 539 | ;;=ALTERNATE NAME^.8501^^1;0
|
---|
| 540 | ;;^DD(.85,10,0)
|
---|
| 541 | ;;=DESCRIPTION^.8502^^10;0
|
---|
| 542 | ;;^DD(.85,10,"DT")
|
---|
| 543 | ;;=3121031
|
---|
| 544 | ;;^DD(.85,10.1,0)
|
---|
| 545 | ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 546 | ;;^DD(.85,10.1,3)
|
---|
| 547 | ;;=This is Standard MUMPS code.
|
---|
| 548 | ;;^DD(.85,10.1,9)
|
---|
| 549 | ;;=@
|
---|
| 550 | ;;^DD(.85,10.1,21,0)
|
---|
| 551 | ;;=^^6^6^2941121^^^^
|
---|
| 552 | ;;^DD(.85,10.1,21,1,0)
|
---|
| 553 | ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
|
---|
| 554 | ;;^DD(.85,10.1,21,2,0)
|
---|
| 555 | ;;=this language. The code should set Y to the ordinal equivalent without
|
---|
| 556 | ;;^DD(.85,10.1,21,3,0)
|
---|
| 557 | ;;=altering any other variables in the environment. Ex. in English:
|
---|
| 558 | ;;^DD(.85,10.1,21,4,0)
|
---|
| 559 | ;;= Y=1 becomes Y=1ST
|
---|
| 560 | ;;^DD(.85,10.1,21,5,0)
|
---|
| 561 | ;;= Y=2 becomes Y=2ND
|
---|
| 562 | ;;^DD(.85,10.1,21,6,0)
|
---|
| 563 | ;;= Y=3 becomes Y=3RD etc.
|
---|
| 564 | ;;^DD(.85,10.1,"DT")
|
---|
| 565 | ;;=2940307
|
---|
| 566 | ;;^DD(.85,10.2,0)
|
---|
| 567 | ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 568 | ;;^DD(.85,10.2,3)
|
---|
| 569 | ;;=This is Standard MUMPS code.
|
---|
| 570 | ;;^DD(.85,10.2,9)
|
---|
| 571 | ;;=@
|
---|
| 572 | ;;^DD(.85,10.2,21,0)
|
---|
| 573 | ;;=^^6^6^2941121^^^
|
---|
| 574 | ;;^DD(.85,10.2,21,1,0)
|
---|
| 575 | ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
---|
| 576 | ;;^DD(.85,10.2,21,2,0)
|
---|
| 577 | ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
|
---|
| 578 | ;;^DD(.85,10.2,21,3,0)
|
---|
| 579 | ;;=The code should set Y to the output, without altering any other variables
|
---|
| 580 | ;;^DD(.85,10.2,21,4,0)
|
---|
| 581 | ;;=in the environment. Ex. in English:
|
---|
| 582 | ;;^DD(.85,10.2,21,5,0)
|
---|
| 583 | ;;=
|
---|
| 584 | ;;^DD(.85,10.2,21,6,0)
|
---|
| 585 | ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
|
---|
| 586 | ;;^DD(.85,10.2,"DT")
|
---|
| 587 | ;;=2940307
|
---|
| 588 | ;;^DD(.85,10.21,0)
|
---|
| 589 | ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 590 | ;;^DD(.85,10.21,3)
|
---|
| 591 | ;;=This is Standard MUMPS code.
|
---|
| 592 | ;;^DD(.85,10.21,9)
|
---|
| 593 | ;;=@
|
---|
| 594 | ;;^DD(.85,10.21,21,0)
|
---|
| 595 | ;;=^^22^22^2941122^
|
---|
| 596 | ;;^DD(.85,10.21,21,1,0)
|
---|
| 597 | ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
---|
| 598 | ;;^DD(.85,10.21,21,2,0)
|
---|
| 599 | ;;=format, to printable format based on the various outputs from routine
|
---|
| 600 | ;;^DD(.85,10.21,21,3,0)
|
---|
| 601 | ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
|
---|
| 602 | ;;^DD(.85,10.21,21,4,0)
|
---|
| 603 | ;;=code, in addition to the internal date in Y, a third parameter will be
|
---|
| 604 | ;;^DD(.85,10.21,21,5,0)
|
---|
| 605 | ;;=defined to contain flags equivalent to the flag passed as the second input
|
---|
| 606 | ;;^DD(.85,10.21,21,6,0)
|
---|
| 607 | ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
|
---|
| 608 | ;;^DD(.85,10.21,21,7,0)
|
---|
| 609 | ;;=altering any other variables in the environment. The output should be
|
---|
| 610 | ;;^DD(.85,10.21,21,8,0)
|
---|
| 611 | ;;=formatted based on these flags:
|
---|
| 612 | ;;^DD(.85,10.21,21,9,0)
|
---|
| 613 | ;;=
|
---|
| 614 | ;;^DD(.85,10.21,21,10,0)
|
---|
| 615 | ;;= 1 MMM DD, YYYY@HH:MM:SS
|
---|
| 616 | ;;^DD(.85,10.21,21,11,0)
|
---|
| 617 | ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
|
---|
| 618 | ;;^DD(.85,10.21,21,12,0)
|
---|
| 619 | ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
|
---|
| 620 | ;;^DD(.85,10.21,21,13,0)
|
---|
| 621 | ;;= 4 YY/MM/DD@HH:MM:SS
|
---|
| 622 | ;;^DD(.85,10.21,21,14,0)
|
---|
| 623 | ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
|
---|
| 624 | ;;^DD(.85,10.21,21,15,0)
|
---|
| 625 | ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
|
---|
| 626 | ;;^DD(.85,10.21,21,16,0)
|
---|
| 627 | ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
|
---|
| 628 | ;;^DD(.85,10.21,21,17,0)
|
---|
| 629 | ;;=
|
---|
| 630 | ;;^DD(.85,10.21,21,18,0)
|
---|
| 631 | ;;=letters in the flag
|
---|
| 632 | ;;^DD(.85,10.21,21,19,0)
|
---|
| 633 | ;;= S return always seconds
|
---|
| 634 | ;;^DD(.85,10.21,21,20,0)
|
---|
| 635 | ;;= U return uppercase month names
|
---|
| 636 | ;;^DD(.85,10.21,21,21,0)
|
---|
| 637 | ;;= P return time as am,pm
|
---|
| 638 | ;;^DD(.85,10.21,21,22,0)
|
---|
| 639 | ;;= D return only date part
|
---|
| 640 | ;;^DD(.85,10.21,"DT")
|
---|
| 641 | ;;=2940624
|
---|
| 642 | ;;^DD(.85,10.22,0)
|
---|
| 643 | ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 644 | ;;^DD(.85,10.22,3)
|
---|
| 645 | ;;=This is Standard MUMPS code for the output of time only.
|
---|
| 646 | ;;^DD(.85,10.22,9)
|
---|
| 647 | ;;=@
|
---|
| 648 | ;;^DD(.85,10.22,21,0)
|
---|
| 649 | ;;=^^2^2^2960318^
|
---|
| 650 | ;;^DD(.85,10.22,21,1,0)
|
---|
| 651 | ;;=The code stored here will be used to get formatted output of the time
|
---|
| 652 | ;;^DD(.85,10.22,21,2,0)
|
---|
| 653 | ;;=part belonging to a FileMan Date/Time value.
|
---|
| 654 | ;;^DD(.85,10.22,"DT")
|
---|
| 655 | ;;=2960318
|
---|
| 656 | ;;^DD(.85,10.3,0)
|
---|
| 657 | ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 658 | ;;^DD(.85,10.3,3)
|
---|
| 659 | ;;=This is Standard MUMPS code.
|
---|
| 660 | ;;^DD(.85,10.3,9)
|
---|
| 661 | ;;=@
|
---|
| 662 | ;;^DD(.85,10.3,21,0)
|
---|
| 663 | ;;=^^5^5^2941121^^
|
---|
| 664 | ;;^DD(.85,10.3,21,1,0)
|
---|
| 665 | ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
|
---|
| 666 | ;;^DD(.85,10.3,21,2,0)
|
---|
| 667 | ;;=this language. The code should set Y to the cardinal equivalent without
|
---|
| 668 | ;;^DD(.85,10.3,21,3,0)
|
---|
| 669 | ;;=altering any other variables in the environment. Ex. in English:
|
---|
| 670 | ;;^DD(.85,10.3,21,4,0)
|
---|
| 671 | ;;= Y=2000 becomes Y=2,000
|
---|
| 672 | ;;^DD(.85,10.3,21,5,0)
|
---|
| 673 | ;;= Y=1234567 becomes Y=1,234,567
|
---|
| 674 | ;;^DD(.85,10.3,"DT")
|
---|
| 675 | ;;=2940308
|
---|
| 676 | ;;^DD(.85,10.4,0)
|
---|
| 677 | ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 678 | ;;^DD(.85,10.4,3)
|
---|
| 679 | ;;=This is Standard MUMPS code.
|
---|
| 680 | ;;^DD(.85,10.4,9)
|
---|
| 681 | ;;=@
|
---|
| 682 | ;;^DD(.85,10.4,21,0)
|
---|
| 683 | ;;=^^4^4^2941121^
|
---|
| 684 | ;;^DD(.85,10.4,21,1,0)
|
---|
| 685 | ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
|
---|
| 686 | ;;^DD(.85,10.4,21,2,0)
|
---|
| 687 | ;;=this language. The code should set Y to the external format without
|
---|
| 688 | ;;^DD(.85,10.4,21,3,0)
|
---|
| 689 | ;;=altering any other variables in the environment. In English, changes
|
---|
| 690 | ;;^DD(.85,10.4,21,4,0)
|
---|
| 691 | ;;= abCdeF to: ABCDEF
|
---|
| 692 | ;;^DD(.85,10.4,"DT")
|
---|
| 693 | ;;=2940308
|
---|
| 694 | ;;^DD(.85,10.5,0)
|
---|
| 695 | ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 696 | ;;^DD(.85,10.5,3)
|
---|
| 697 | ;;=This is Standard MUMPS code.
|
---|
| 698 | ;;^DD(.85,10.5,9)
|
---|
| 699 | ;;=@
|
---|
| 700 | ;;^DD(.85,10.5,21,0)
|
---|
| 701 | ;;=^^4^4^2941121^
|
---|
| 702 | ;;^DD(.85,10.5,21,1,0)
|
---|
| 703 | ;;=MUMPS code used to convert text in Y to its lower-case equivalent in
|
---|
| 704 | ;;^DD(.85,10.5,21,2,0)
|
---|
| 705 | ;;=this language. The code should set Y to the external format without
|
---|
| 706 | ;;^DD(.85,10.5,21,3,0)
|
---|
| 707 | ;;=altering any other variables in the environment. In English, changes:
|
---|
| 708 | ;;^DD(.85,10.5,21,4,0)
|
---|
| 709 | ;;= ABcdEFgHij to: abcdefghij
|
---|
| 710 | ;;^DD(.85,10.5,"DT")
|
---|
| 711 | ;;=2940308
|
---|
| 712 | ;;^DD(.85,20.2,0)
|
---|
| 713 | ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 714 | ;;^DD(.85,20.2,3)
|
---|
| 715 | ;;=This is Standard MUMPS code.
|
---|
| 716 | ;;^DD(.85,20.2,9)
|
---|
| 717 | ;;=@
|
---|
| 718 | ;;^DD(.85,20.2,"DT")
|
---|
| 719 | ;;=2940714
|
---|
| 720 | ;;^DD(.8501,0)
|
---|
| 721 | ;;=ALTERNATE NAME SUB-FIELD^^.01^1
|
---|
| 722 | ;;^DD(.8501,0,"DT")
|
---|
| 723 | ;;=3121101
|
---|
| 724 | ;;^DD(.8501,0,"IX","B",.8501,.01)
|
---|
| 725 | ;;=
|
---|
| 726 | ;;^DD(.8501,0,"NM","ALTERNATE NAME")
|
---|
| 727 | ;;=
|
---|
| 728 | ;;^DD(.8501,0,"UP")
|
---|
| 729 | ;;=.85
|
---|
| 730 | ;;^DD(.8501,.01,0)
|
---|
| 731 | ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
---|
| 732 | ;;^DD(.8501,.01,1,0)
|
---|
| 733 | ;;=^.1
|
---|
| 734 | ;;^DD(.8501,.01,1,1,0)
|
---|
| 735 | ;;=.8501^B
|
---|
| 736 | ;;^DD(.8501,.01,1,1,1)
|
---|
| 737 | ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
|
---|
| 738 | ;;^DD(.8501,.01,1,1,2)
|
---|
| 739 | ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
|
---|
| 740 | ;;^DD(.8501,.01,1,2,0)
|
---|
| 741 | ;;=.85^F
|
---|
| 742 | ;;^DD(.8501,.01,1,2,1)
|
---|
| 743 | ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
|
---|
| 744 | ;;^DD(.8501,.01,1,2,2)
|
---|
| 745 | ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
|
---|
| 746 | ;;^DD(.8501,.01,1,2,3)
|
---|
| 747 | ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
|
---|
| 748 | ;;^DD(.8501,.01,1,2,"%D",0)
|
---|
| 749 | ;;=^^1^1^3121101^
|
---|
| 750 | ;;^DD(.8501,.01,1,2,"%D",1,0)
|
---|
| 751 | ;;=Whole file cross-reference for ALTERNATE NAME multiple.
|
---|
| 752 | ;;^DD(.8501,.01,1,2,"DT")
|
---|
| 753 | ;;=3121101
|
---|
| 754 | ;;^DD(.8501,.01,3)
|
---|
| 755 | ;;=Answer must be 1-60 characters in length.
|
---|
| 756 | ;;^DD(.8501,.01,21,0)
|
---|
| 757 | ;;=^^2^2^3121101^^
|
---|
| 758 | ;;^DD(.8501,.01,21,1,0)
|
---|
| 759 | ;;=This field contains other synonyms for a language.
|
---|
| 760 | ;;^DD(.8501,.01,21,2,0)
|
---|
| 761 | ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
|
---|
| 762 | ;;^DD(.8501,.01,"DT")
|
---|
| 763 | ;;=3121101
|
---|
| 764 | ;;^DD(.8502,0)
|
---|
| 765 | ;;=DESCRIPTION SUB-FIELD^^.01^1
|
---|
| 766 | ;;^DD(.8502,0,"DT")
|
---|
| 767 | ;;=3121031
|
---|
| 768 | ;;^DD(.8502,0,"NM","DESCRIPTION")
|
---|
| 769 | ;;=
|
---|
| 770 | ;;^DD(.8502,0,"UP")
|
---|
| 771 | ;;=.85
|
---|
| 772 | ;;^DD(.8502,.01,0)
|
---|
| 773 | ;;=DESCRIPTION^Wx^^0;1
|
---|
| 774 | ;;^DD(.8502,.01,3)
|
---|
| 775 | ;;=Enter an optional language description
|
---|
| 776 | ;;^DD(.8502,.01,"DT")
|
---|
| 777 | ;;=3121031
|
---|
| 778 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
|
---|
| 779 | ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
|
---|
| 780 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
|
---|
| 781 | ;;=S ^DI(.85,"B",X,DA)=""
|
---|
| 782 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
|
---|
| 783 | ;;=K ^DI(.85,"B",X,DA)
|
---|
| 784 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
|
---|
| 785 | ;;=K ^DI(.85,"B")
|
---|
| 786 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
|
---|
| 787 | ;;=^.114IA^1^1
|
---|
| 788 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
|
---|
| 789 | ;;=1^F^.85^.01^^1^F
|
---|
| 790 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
|
---|
| 791 | ;;=
|
---|
| 792 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
|
---|
| 793 | ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
|
---|
| 794 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
|
---|
| 795 | ;;=S ^DI(.85,"C",X,DA)=""
|
---|
| 796 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
|
---|
| 797 | ;;=K ^DI(.85,"C",X,DA)
|
---|
| 798 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
|
---|
| 799 | ;;=K ^DI(.85,"C")
|
---|
| 800 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
|
---|
| 801 | ;;=^.114IA^1^1
|
---|
| 802 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
|
---|
| 803 | ;;=1^F^.85^.02^^1^F
|
---|
| 804 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
|
---|
| 805 | ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
|
---|
| 806 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
|
---|
| 807 | ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
|
---|
| 808 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
|
---|
| 809 | ;;=K ^DI(.85,"D",$E(X,1,30),DA)
|
---|
| 810 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
|
---|
| 811 | ;;=K ^DI(.85,"D")
|
---|
| 812 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
|
---|
| 813 | ;;=^.114IA^1^1
|
---|
| 814 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
|
---|
| 815 | ;;=1^F^.85^.03^30^1^F
|
---|
| 816 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
|
---|
| 817 | ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
|
---|
| 818 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
|
---|
| 819 | ;;=^^6^6^3121031^
|
---|
| 820 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
|
---|
| 821 | ;;=This will add entries to the D index for the three letter code a la the
|
---|
| 822 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
|
---|
| 823 | ;;=mnemonic style.
|
---|
| 824 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
|
---|
| 825 | ;;=
|
---|
| 826 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
|
---|
| 827 | ;;=If you need re-cross-reference this field, you need to kill of the
|
---|
| 828 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
|
---|
| 829 | ;;=entries in the regular D index, set the D index, and then set this index
|
---|
| 830 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
|
---|
| 831 | ;;=to update the D with the mnemonic xrefs.
|
---|
| 832 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
|
---|
| 833 | ;;=S ^DI(.85,"D",X,DA)=1
|
---|
| 834 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
|
---|
| 835 | ;;=K ^DI(.85,"D",X,DA)
|
---|
| 836 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
|
---|
| 837 | ;;=^.114IA^1^1
|
---|
| 838 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
|
---|
| 839 | ;;=1^F^.85^.05^^1^F
|
---|
| 840 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
|
---|
| 841 | ;;=.85^A^P^1046
|
---|
| 842 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
|
---|
| 843 | ;;=^.312IA^1^1
|
---|
| 844 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
|
---|
| 845 | ;;=.01^.85^1
|
---|
| 846 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
|
---|
| 847 | ;;=.85^B^S^1048
|
---|
| 848 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
|
---|
| 849 | ;;=^.312IA^1^1
|
---|
| 850 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
|
---|
| 851 | ;;=.03^.85^1
|
---|
| 852 | ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
|
---|
| 853 | ;;=.85^B
|
---|
| 854 | ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
|
---|
| 855 | ;;=.85^D
|
---|
| 856 |
|
---|
| 857 | DILAI003
|
---|
| 858 | DILAI003 ; ; 02-NOV-2012
|
---|
| 859 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 860 | 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
|
---|
| 861 | Q Q
|
---|
| 862 | ;;^UTILITY(U,$J,.85)
|
---|
| 863 | ;;=^DI(.85,
|
---|
| 864 | ;;^UTILITY(U,$J,.85,0)
|
---|
| 865 | ;;=LANGUAGE^.85I^18^533
|
---|
| 866 | ;;^UTILITY(U,$J,.85,1,0)
|
---|
| 867 | ;;=ENGLISH^EN^ENG
|
---|
| 868 | ;;^UTILITY(U,$J,.85,1,1,0)
|
---|
| 869 | ;;=^.8501^2^2
|
---|
| 870 | ;;^UTILITY(U,$J,.85,1,1,1,0)
|
---|
| 871 | ;;=MODERN ENGLISH (1500-)
|
---|
| 872 | ;;^UTILITY(U,$J,.85,1,1,2,0)
|
---|
| 873 | ;;=ENGLISH,MODERN (1500-)
|
---|
| 874 | ;;^UTILITY(U,$J,.85,1,"CRD")
|
---|
| 875 | ;;=I Y S Y=$FN(Y,",")
|
---|
| 876 | ;;^UTILITY(U,$J,.85,1,"DD")
|
---|
| 877 | ;;=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[".")
|
---|
| 878 | ;;^UTILITY(U,$J,.85,1,"FMTE")
|
---|
| 879 | ;;=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
|
---|
| 880 | ;;^UTILITY(U,$J,.85,1,"LC")
|
---|
| 881 | ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
|
---|
| 882 | ;;^UTILITY(U,$J,.85,1,"ORD")
|
---|
| 883 | ;;=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")
|
---|
| 884 | ;;^UTILITY(U,$J,.85,1,"TIME")
|
---|
| 885 | ;;=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:"")
|
---|
| 886 | ;;^UTILITY(U,$J,.85,1,"UC")
|
---|
| 887 | ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
---|
| 888 | ;;^UTILITY(U,$J,.85,2,0)
|
---|
| 889 | ;;=GERMAN^DE^DEU^^GER
|
---|
| 890 | ;;^UTILITY(U,$J,.85,2,1,0)
|
---|
| 891 | ;;=^.8501^7^7
|
---|
| 892 | ;;^UTILITY(U,$J,.85,2,1,1,0)
|
---|
| 893 | ;;=GERMAN, STANDARD
|
---|
| 894 | ;;^UTILITY(U,$J,.85,2,1,2,0)
|
---|
| 895 | ;;=STANDARD GERMAN
|
---|
| 896 | ;;^UTILITY(U,$J,.85,2,1,3,0)
|
---|
| 897 | ;;=DEUTSCH
|
---|
| 898 | ;;^UTILITY(U,$J,.85,2,1,4,0)
|
---|
| 899 | ;;=DEUTSCH SPRACHE
|
---|
| 900 | ;;^UTILITY(U,$J,.85,2,1,5,0)
|
---|
| 901 | ;;=TEDESCO
|
---|
| 902 | ;;^UTILITY(U,$J,.85,2,1,6,0)
|
---|
| 903 | ;;=MODERN GERMAN (1500-)
|
---|
| 904 | ;;^UTILITY(U,$J,.85,2,1,7,0)
|
---|
| 905 | ;;=GERMAN,MODERN (1500-)
|
---|
| 906 | ;;^UTILITY(U,$J,.85,2,"CRD")
|
---|
| 907 | ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
|
---|
| 908 | ;;^UTILITY(U,$J,.85,2,"DD")
|
---|
| 909 | ;;=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[".")
|
---|
| 910 | ;;^UTILITY(U,$J,.85,2,"LC")
|
---|
| 911 | ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
|
---|
| 912 | ;;^UTILITY(U,$J,.85,2,"ORD")
|
---|
| 913 | ;;=S:$G(Y) Y=Y_"."
|
---|
| 914 | ;;^UTILITY(U,$J,.85,2,"TIME")
|
---|
| 915 | ;;=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:"")
|
---|
| 916 | ;;^UTILITY(U,$J,.85,2,"UC")
|
---|
| 917 | ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
|
---|
| 918 | ;;^UTILITY(U,$J,.85,3,0)
|
---|
| 919 | ;;=SPANISH^ES^SPA
|
---|
| 920 | ;;^UTILITY(U,$J,.85,3,1,0)
|
---|
| 921 | ;;=^.8501^5^5
|
---|
| 922 | ;;^UTILITY(U,$J,.85,3,1,1,0)
|
---|
| 923 | ;;=CASTILIAN
|
---|
| 924 | ;;^UTILITY(U,$J,.85,3,1,2,0)
|
---|
| 925 | ;;=CASTELLANO
|
---|
| 926 | ;;^UTILITY(U,$J,.85,3,1,3,0)
|
---|
| 927 | ;;=ESPANOL
|
---|
| 928 | ;;^UTILITY(U,$J,.85,3,1,4,0)
|
---|
| 929 | ;;=MODERN SPANISH (1500-)
|
---|
| 930 | ;;^UTILITY(U,$J,.85,3,1,5,0)
|
---|
| 931 | ;;=SPANISH, MODERN (1500-)
|
---|
| 932 | ;;^UTILITY(U,$J,.85,4,0)
|
---|
| 933 | ;;=FRENCH^FR^FRA^^FRE
|
---|
| 934 | ;;^UTILITY(U,$J,.85,4,1,0)
|
---|
| 935 | ;;=^.8501^3^3
|
---|
| 936 | ;;^UTILITY(U,$J,.85,4,1,1,0)
|
---|
| 937 | ;;=FRANCAIS
|
---|
| 938 | ;;^UTILITY(U,$J,.85,4,1,2,0)
|
---|
| 939 | ;;=MODERN FRENCH (1600-)
|
---|
| 940 | ;;^UTILITY(U,$J,.85,4,1,3,0)
|
---|
| 941 | ;;=FRENCH, MODERN (1600-)
|
---|
| 942 | ;;^UTILITY(U,$J,.85,5,0)
|
---|
| 943 | ;;=FINNISH^FI^FIN
|
---|
| 944 | ;;^UTILITY(U,$J,.85,5,1,0)
|
---|
| 945 | ;;=^.8501^3^3
|
---|
| 946 | ;;^UTILITY(U,$J,.85,5,1,1,0)
|
---|
| 947 | ;;=SUOMEA
|
---|
| 948 | ;;^UTILITY(U,$J,.85,5,1,2,0)
|
---|
| 949 | ;;=SUOMI
|
---|
| 950 | ;;^UTILITY(U,$J,.85,5,1,3,0)
|
---|
| 951 | ;;=SUOMEN KIELI
|
---|
| 952 | ;;^UTILITY(U,$J,.85,5,"DD")
|
---|
| 953 | ;;=X:$G(Y) ^DD("DD")
|
---|
| 954 | ;;^UTILITY(U,$J,.85,5,"ORD")
|
---|
| 955 | ;;=I $G(Y) S Y=Y_"."
|
---|
| 956 | ;;^UTILITY(U,$J,.85,6,0)
|
---|
| 957 | ;;=ITALIAN^IT^ITA
|
---|
| 958 | ;;^UTILITY(U,$J,.85,6,1,0)
|
---|
| 959 | ;;=^.8501^2^2
|
---|
| 960 | ;;^UTILITY(U,$J,.85,6,1,1,0)
|
---|
| 961 | ;;=ITALIANO
|
---|
| 962 | ;;^UTILITY(U,$J,.85,6,1,2,0)
|
---|
| 963 | ;;=LINGUA ITALIANA
|
---|
| 964 | ;;^UTILITY(U,$J,.85,7,0)
|
---|
| 965 | ;;=PORTUGUESE^PT^POR
|
---|
| 966 | ;;^UTILITY(U,$J,.85,7,1,0)
|
---|
| 967 | ;;=^.8501^4^4
|
---|
| 968 | ;;^UTILITY(U,$J,.85,7,1,1,0)
|
---|
| 969 | ;;=PORTUGUES
|
---|
| 970 | ;;^UTILITY(U,$J,.85,7,1,2,0)
|
---|
| 971 | ;;=LINGUA PORTUGUESA
|
---|
| 972 | ;;^UTILITY(U,$J,.85,7,1,3,0)
|
---|
| 973 | ;;=MODERN PORTUGUESE (1516-)
|
---|
| 974 | ;;^UTILITY(U,$J,.85,7,1,4,0)
|
---|
| 975 | ;;=PORTUGUESE, MODERN (1516-)
|
---|
| 976 | ;;^UTILITY(U,$J,.85,8,0)
|
---|
| 977 | ;;=ABKHAZ^AB^ABK^^
|
---|
| 978 | ;;^UTILITY(U,$J,.85,8,1,0)
|
---|
| 979 | ;;=^.8501^2^2
|
---|
| 980 | ;;^UTILITY(U,$J,.85,8,1,1,0)
|
---|
| 981 | ;;=ABKHAZIAN
|
---|
| 982 | ;;^UTILITY(U,$J,.85,8,1,2,0)
|
---|
| 983 | ;;=ABXAZO
|
---|
| 984 | ;;^UTILITY(U,$J,.85,9,0)
|
---|
| 985 | ;;=ACHINESE^^ACE^^
|
---|
| 986 | ;;^UTILITY(U,$J,.85,10,0)
|
---|
| 987 | ;;=ARABIC^AR^ARA
|
---|
| 988 | ;;^UTILITY(U,$J,.85,10,1,0)
|
---|
| 989 | ;;=^.8501^2^2
|
---|
| 990 | ;;^UTILITY(U,$J,.85,10,1,1,0)
|
---|
| 991 | ;;=AL-'ARABIYYAH
|
---|
| 992 | ;;^UTILITY(U,$J,.85,10,1,2,0)
|
---|
| 993 | ;;='ARABI
|
---|
| 994 | ;;^UTILITY(U,$J,.85,11,0)
|
---|
| 995 | ;;=RUSSIAN^RU^RUS
|
---|
| 996 | ;;^UTILITY(U,$J,.85,11,1,0)
|
---|
| 997 | ;;=^.8501^2^2
|
---|
| 998 | ;;^UTILITY(U,$J,.85,11,1,1,0)
|
---|
| 999 | ;;=RUSSKI
|
---|
| 1000 | ;;^UTILITY(U,$J,.85,11,1,2,0)
|
---|
| 1001 | ;;=RUSSKIY YAZYK
|
---|
| 1002 | ;;^UTILITY(U,$J,.85,12,0)
|
---|
| 1003 | ;;=GREEK^EL^ELL^^GRE
|
---|
| 1004 | ;;^UTILITY(U,$J,.85,12,1,0)
|
---|
| 1005 | ;;=^.8501^9^9
|
---|
| 1006 | ;;^UTILITY(U,$J,.85,12,1,1,0)
|
---|
| 1007 | ;;=ELLINIKA
|
---|
| 1008 | ;;^UTILITY(U,$J,.85,12,1,2,0)
|
---|
| 1009 | ;;=ELLINIKI GLOSSA
|
---|
| 1010 | ;;^UTILITY(U,$J,.85,12,1,3,0)
|
---|
| 1011 | ;;=GRAECAE
|
---|
| 1012 | ;;^UTILITY(U,$J,.85,12,1,4,0)
|
---|
| 1013 | ;;=GREC
|
---|
| 1014 | ;;^UTILITY(U,$J,.85,12,1,5,0)
|
---|
| 1015 | ;;=GRECO
|
---|
| 1016 | ;;^UTILITY(U,$J,.85,12,1,6,0)
|
---|
| 1017 | ;;=NEO-HELLENIC
|
---|
| 1018 | ;;^UTILITY(U,$J,.85,12,1,7,0)
|
---|
| 1019 | ;;=ROMAIC
|
---|
| 1020 | ;;^UTILITY(U,$J,.85,12,1,8,0)
|
---|
| 1021 | ;;=MODERN GREEK (1453-)
|
---|
| 1022 | ;;^UTILITY(U,$J,.85,12,1,9,0)
|
---|
| 1023 | ;;=GREEK, MODERN (1453-)
|
---|
| 1024 | ;;^UTILITY(U,$J,.85,13,0)
|
---|
| 1025 | ;;=ACOLI^^ACH^^
|
---|
| 1026 | ;;^UTILITY(U,$J,.85,14,0)
|
---|
| 1027 | ;;=ADANGME^^ADA^^
|
---|
| 1028 | ;;^UTILITY(U,$J,.85,15,0)
|
---|
| 1029 | ;;=ADYGHE^^ADY^^
|
---|
| 1030 | ;;^UTILITY(U,$J,.85,15,1,0)
|
---|
| 1031 | ;;=^.8501^1^1
|
---|
| 1032 | ;;^UTILITY(U,$J,.85,15,1,1,0)
|
---|
| 1033 | ;;=ADYGEI
|
---|
| 1034 | ;;^UTILITY(U,$J,.85,16,0)
|
---|
| 1035 | ;;=AFAR^AA^AAR^^
|
---|
| 1036 | ;;^UTILITY(U,$J,.85,16,1,0)
|
---|
| 1037 | ;;=^.8501^4^4
|
---|
| 1038 | ;;^UTILITY(U,$J,.85,16,1,1,0)
|
---|
| 1039 | ;;=QAFAR AF
|
---|
| 1040 | ;;^UTILITY(U,$J,.85,16,1,2,0)
|
---|
| 1041 | ;;='AFAR AF
|
---|
| 1042 | ;;^UTILITY(U,$J,.85,16,1,3,0)
|
---|
| 1043 | ;;=ADAL
|
---|
| 1044 | ;;^UTILITY(U,$J,.85,16,1,4,0)
|
---|
| 1045 | ;;=AFARAF
|
---|
| 1046 | ;;^UTILITY(U,$J,.85,17,0)
|
---|
| 1047 | ;;=AFRIHILI^^AFH^^
|
---|
| 1048 | ;;^UTILITY(U,$J,.85,18,0)
|
---|
| 1049 | ;;=HEBREW^HE^HEB
|
---|
| 1050 | ;;^UTILITY(U,$J,.85,18,1,0)
|
---|
| 1051 | ;;=^.8501^3^3
|
---|
| 1052 | ;;^UTILITY(U,$J,.85,18,1,1,0)
|
---|
| 1053 | ;;=IVRIT
|
---|
| 1054 | ;;^UTILITY(U,$J,.85,18,1,2,0)
|
---|
| 1055 | ;;=MODERN HEBREW (1881-)
|
---|
| 1056 | ;;^UTILITY(U,$J,.85,18,1,3,0)
|
---|
| 1057 | ;;=HEBREW, MODERN (1881-)
|
---|
| 1058 | ;;^UTILITY(U,$J,.85,19,0)
|
---|
| 1059 | ;;=AFRIKAANS^AF^AFR^^
|
---|
| 1060 | ;;^UTILITY(U,$J,.85,20,0)
|
---|
| 1061 | ;;=AINU^^AIN^^
|
---|
| 1062 | ;;^UTILITY(U,$J,.85,21,0)
|
---|
| 1063 | ;;=AKAN^AK^AKA^^
|
---|
| 1064 | ;;^UTILITY(U,$J,.85,22,0)
|
---|
| 1065 | ;;=AKKADIAN^^AKK^^
|
---|
| 1066 | ;;^UTILITY(U,$J,.85,23,0)
|
---|
| 1067 | ;;=ALBANIAN^SQ^SQI^^ALB
|
---|
| 1068 | ;;^UTILITY(U,$J,.85,23,1,0)
|
---|
| 1069 | ;;=^.8501^2^2
|
---|
| 1070 | ;;^UTILITY(U,$J,.85,23,1,1,0)
|
---|
| 1071 | ;;=SHQIP
|
---|
| 1072 | ;;^UTILITY(U,$J,.85,23,1,2,0)
|
---|
| 1073 | ;;=GJUHA SHQIPE
|
---|
| 1074 | ;;^UTILITY(U,$J,.85,24,0)
|
---|
| 1075 | ;;=ALEUT^^ALE^^
|
---|
| 1076 | ;;^UTILITY(U,$J,.85,25,0)
|
---|
| 1077 | ;;=ALTAI, SOUTHERN^^ALT^^
|
---|
| 1078 | ;;^UTILITY(U,$J,.85,25,1,0)
|
---|
| 1079 | ;;=^.8501^1^1
|
---|
| 1080 | ;;^UTILITY(U,$J,.85,25,1,1,0)
|
---|
| 1081 | ;;=SOUTHERN ALTAI
|
---|
| 1082 | ;;^UTILITY(U,$J,.85,26,0)
|
---|
| 1083 | ;;=AMHARIC^AM^AMH^^
|
---|
| 1084 | ;;^UTILITY(U,$J,.85,26,1,0)
|
---|
| 1085 | ;;=^.8501^4^4
|
---|
| 1086 | ;;^UTILITY(U,$J,.85,26,1,1,0)
|
---|
| 1087 | ;;=ABYSSINIAN
|
---|
| 1088 | ;;^UTILITY(U,$J,.85,26,1,2,0)
|
---|
| 1089 | ;;=AMARIGNA
|
---|
| 1090 | ;;^UTILITY(U,$J,.85,26,1,3,0)
|
---|
| 1091 | ;;=AMARINYA
|
---|
| 1092 | ;;^UTILITY(U,$J,.85,26,1,4,0)
|
---|
| 1093 | ;;=ETHIOPIAN
|
---|
| 1094 | ;;^UTILITY(U,$J,.85,27,0)
|
---|
| 1095 | ;;=ANCIENT EGYPTIAN^^EGY^^
|
---|
| 1096 | ;;^UTILITY(U,$J,.85,27,1,0)
|
---|
| 1097 | ;;=^.8501^1^1
|
---|
| 1098 | ;;^UTILITY(U,$J,.85,27,1,1,0)
|
---|
| 1099 | ;;=EGYPTIAN, ANCIENT
|
---|
| 1100 | ;;^UTILITY(U,$J,.85,28,0)
|
---|
| 1101 | ;;=ANCIENT GREEK^^GRC^^
|
---|
| 1102 | ;;^UTILITY(U,$J,.85,28,1,0)
|
---|
| 1103 | ;;=^.8501^1^1
|
---|
| 1104 | ;;^UTILITY(U,$J,.85,28,1,1,0)
|
---|
| 1105 | ;;=GREEK, ANCIENT (TO 1453)
|
---|
| 1106 | ;;^UTILITY(U,$J,.85,29,0)
|
---|
| 1107 | ;;=ANGIKA^^ANP^^
|
---|
| 1108 | ;;^UTILITY(U,$J,.85,30,0)
|
---|
| 1109 | ;;=ARAGONESE^AN^ARG^^
|
---|
| 1110 | ;;^UTILITY(U,$J,.85,30,1,0)
|
---|
| 1111 | ;;=^.8501^6^6
|
---|
| 1112 | ;;^UTILITY(U,$J,.85,30,1,1,0)
|
---|
| 1113 | ;;=ALTOARAGONES
|
---|
| 1114 | ;;^UTILITY(U,$J,.85,30,1,2,0)
|
---|
| 1115 | ;;=ARAGOIERAZ
|
---|
| 1116 | ;;^UTILITY(U,$J,.85,30,1,3,0)
|
---|
| 1117 | ;;=ARAGONES
|
---|
| 1118 | ;;^UTILITY(U,$J,.85,30,1,4,0)
|
---|
| 1119 | ;;=FABLA ARAGONESA
|
---|
| 1120 | ;;^UTILITY(U,$J,.85,30,1,5,0)
|
---|
| 1121 | ;;=HIGH ARAGONESE
|
---|
| 1122 | ;;^UTILITY(U,$J,.85,30,1,6,0)
|
---|
| 1123 | ;;=PATUES
|
---|
| 1124 | ;;^UTILITY(U,$J,.85,31,0)
|
---|
| 1125 | ;;=ARAPAHO^^ARP^^
|
---|
| 1126 | ;;^UTILITY(U,$J,.85,32,0)
|
---|
| 1127 | ;;=ARAWAK^^ARW^^
|
---|
| 1128 | ;;^UTILITY(U,$J,.85,33,0)
|
---|
| 1129 | ;;=ARMENIAN^HY^HYE^^ARM
|
---|
| 1130 | ;;^UTILITY(U,$J,.85,33,1,0)
|
---|
| 1131 | ;;=^.8501^7^7
|
---|
| 1132 | ;;^UTILITY(U,$J,.85,33,1,1,0)
|
---|
| 1133 | ;;=HAYEREN
|
---|
| 1134 | ;;^UTILITY(U,$J,.85,33,1,2,0)
|
---|
| 1135 | ;;=ARMJANSKI YAZYK
|
---|
| 1136 | ;;^UTILITY(U,$J,.85,33,1,3,0)
|
---|
| 1137 | ;;=ENA
|
---|
| 1138 | ;;^UTILITY(U,$J,.85,33,1,4,0)
|
---|
| 1139 | ;;=ERMENI DILI
|
---|
| 1140 | ;;^UTILITY(U,$J,.85,33,1,5,0)
|
---|
| 1141 | ;;=ERMENICE
|
---|
| 1142 | ;;^UTILITY(U,$J,.85,33,1,6,0)
|
---|
| 1143 | ;;=HAIEREN
|
---|
| 1144 | ;;^UTILITY(U,$J,.85,33,1,7,0)
|
---|
| 1145 | ;;=SOMKHURI
|
---|
| 1146 | ;;^UTILITY(U,$J,.85,34,0)
|
---|
| 1147 | ;;=AROMANIAN^^RUP^^
|
---|
| 1148 | ;;^UTILITY(U,$J,.85,34,1,0)
|
---|
| 1149 | ;;=^.8501^2^2
|
---|
| 1150 | ;;^UTILITY(U,$J,.85,34,1,1,0)
|
---|
| 1151 | ;;=ARUMANIAN
|
---|
| 1152 | ;;^UTILITY(U,$J,.85,34,1,2,0)
|
---|
| 1153 | ;;=MACEDO-ROMANIAN
|
---|
| 1154 | ;;^UTILITY(U,$J,.85,35,0)
|
---|
| 1155 | ;;=ASSAMESE^AS^ASM^^
|
---|
| 1156 | ;;^UTILITY(U,$J,.85,35,1,0)
|
---|
| 1157 | ;;=^.8501^3^3
|
---|
| 1158 | ;;^UTILITY(U,$J,.85,35,1,1,0)
|
---|
| 1159 | ;;=ASAMBE
|
---|
| 1160 | ;;^UTILITY(U,$J,.85,35,1,2,0)
|
---|
| 1161 | ;;=ASAMI
|
---|
| 1162 | ;;^UTILITY(U,$J,.85,35,1,3,0)
|
---|
| 1163 | ;;=ASAMIYA
|
---|
| 1164 | ;;^UTILITY(U,$J,.85,36,0)
|
---|
| 1165 | ;;=ASTURIAN^^AST^^
|
---|
| 1166 | ;;^UTILITY(U,$J,.85,36,1,0)
|
---|
| 1167 | ;;=^.8501^3^3
|
---|
| 1168 | ;;^UTILITY(U,$J,.85,36,1,1,0)
|
---|
| 1169 | ;;=BABLE
|
---|
| 1170 | ;;^UTILITY(U,$J,.85,36,1,2,0)
|
---|
| 1171 | ;;=LEONESE
|
---|
| 1172 | ;;^UTILITY(U,$J,.85,36,1,3,0)
|
---|
| 1173 | ;;=ASTURLEONESE
|
---|
| 1174 | ;;^UTILITY(U,$J,.85,37,0)
|
---|
| 1175 | ;;=AVARIC^AV^AVA^^
|
---|
| 1176 | ;;^UTILITY(U,$J,.85,38,0)
|
---|
| 1177 | ;;=AVESTAN^AE^AVE^^
|
---|
| 1178 | ;;^UTILITY(U,$J,.85,39,0)
|
---|
| 1179 | ;;=AWADHI^^AWA^^
|
---|
| 1180 | ;;^UTILITY(U,$J,.85,40,0)
|
---|
| 1181 | ;;=AYMARA^AY^AYM^^
|
---|
| 1182 | ;;^UTILITY(U,$J,.85,41,0)
|
---|
| 1183 | ;;=AZERBAIJANI^AZ^AZE^^
|
---|
| 1184 | ;;^UTILITY(U,$J,.85,42,0)
|
---|
| 1185 | ;;=BALINESE^^BAN^^
|
---|
| 1186 | ;;^UTILITY(U,$J,.85,43,0)
|
---|
| 1187 | ;;=BALUCHI^^BAL^^
|
---|
| 1188 | ;;^UTILITY(U,$J,.85,44,0)
|
---|
| 1189 | ;;=BAMBARA^BM^BAM^^
|
---|
| 1190 | ;;^UTILITY(U,$J,.85,45,0)
|
---|
| 1191 | ;;=BASA^^BAS^^
|
---|
| 1192 | ;;^UTILITY(U,$J,.85,46,0)
|
---|
| 1193 | ;;=BASHKIR^BA^BAK^^
|
---|
| 1194 | ;;^UTILITY(U,$J,.85,47,0)
|
---|
| 1195 | ;;=BASQUE^EU^EUS^^BAQ
|
---|
| 1196 | ;;^UTILITY(U,$J,.85,47,1,0)
|
---|
| 1197 | ;;=^.8501^1^1
|
---|
| 1198 | ;;^UTILITY(U,$J,.85,47,1,1,0)
|
---|
| 1199 | ;;=EUSKARA
|
---|
| 1200 | ;;^UTILITY(U,$J,.85,48,0)
|
---|
| 1201 | ;;=BEJA^^BEJ^^
|
---|
| 1202 | ;;^UTILITY(U,$J,.85,48,1,0)
|
---|
| 1203 | ;;=^.8501^1^1
|
---|
| 1204 | ;;^UTILITY(U,$J,.85,48,1,1,0)
|
---|
| 1205 | ;;=BEDAWIYET
|
---|
| 1206 | ;;^UTILITY(U,$J,.85,49,0)
|
---|
| 1207 | ;;=BELARUSIAN^BE^BEL^^
|
---|
| 1208 | ;;^UTILITY(U,$J,.85,50,0)
|
---|
| 1209 | ;;=BEMBA^^BEM^^
|
---|
| 1210 | ;;^UTILITY(U,$J,.85,51,0)
|
---|
| 1211 | ;;=BENGALI^BN^BEN^^
|
---|
| 1212 | ;;^UTILITY(U,$J,.85,52,0)
|
---|
| 1213 | ;;=BHOJPURI^^BHO^^
|
---|
| 1214 | ;;^UTILITY(U,$J,.85,53,0)
|
---|
| 1215 | ;;=BIKOL^^BIK^^
|
---|
| 1216 | ;;^UTILITY(U,$J,.85,54,0)
|
---|
| 1217 | ;;=BILIN^^BYN^^
|
---|
| 1218 | ;;^UTILITY(U,$J,.85,54,1,0)
|
---|
| 1219 | ;;=^.8501^1^1
|
---|
| 1220 | ;;^UTILITY(U,$J,.85,54,1,1,0)
|
---|
| 1221 | ;;=BLIN
|
---|
| 1222 | ;;^UTILITY(U,$J,.85,55,0)
|
---|
| 1223 | ;;=BINI^^BIN^^
|
---|
| 1224 | ;;^UTILITY(U,$J,.85,55,1,0)
|
---|
| 1225 | ;;=^.8501^1^1
|
---|
| 1226 | ;;^UTILITY(U,$J,.85,55,1,1,0)
|
---|
| 1227 | ;;=EDO
|
---|
| 1228 | ;;^UTILITY(U,$J,.85,56,0)
|
---|
| 1229 | ;;=BISLAMA^BI^BIS^^
|
---|
| 1230 | ;;^UTILITY(U,$J,.85,57,0)
|
---|
| 1231 | ;;=BLISSYMBOLS^^ZBL^^
|
---|
| 1232 | ;;^UTILITY(U,$J,.85,57,1,0)
|
---|
| 1233 | ;;=^.8501^2^2
|
---|
| 1234 | ;;^UTILITY(U,$J,.85,57,1,1,0)
|
---|
| 1235 | ;;=BLISSYMBOLICS
|
---|
| 1236 | ;;^UTILITY(U,$J,.85,57,1,2,0)
|
---|
| 1237 | ;;=BLISS
|
---|
| 1238 | ;;^UTILITY(U,$J,.85,58,0)
|
---|
| 1239 | ;;=BOSNIAN^BS^BOS^^
|
---|
| 1240 | ;;^UTILITY(U,$J,.85,59,0)
|
---|
| 1241 | ;;=BRAJ^^BRA^^
|
---|
| 1242 | ;;^UTILITY(U,$J,.85,60,0)
|
---|
| 1243 | ;;=BRETON^BR^BRE^^
|
---|
| 1244 | ;;^UTILITY(U,$J,.85,61,0)
|
---|
| 1245 | ;;=BUGINESE^^BUG^^
|
---|
| 1246 | ;;^UTILITY(U,$J,.85,62,0)
|
---|
| 1247 | ;;=BULGARIAN^BG^BUL^^
|
---|
| 1248 | ;;^UTILITY(U,$J,.85,63,0)
|
---|
| 1249 | ;;=BURIAT^^BUA^^
|
---|
| 1250 | ;;^UTILITY(U,$J,.85,64,0)
|
---|
| 1251 | ;;=BURMESE^MY^MYA^^BUR
|
---|
| 1252 | ;;^UTILITY(U,$J,.85,64,1,0)
|
---|
| 1253 | ;;=^.8501^1^1
|
---|
| 1254 | ;;^UTILITY(U,$J,.85,64,1,1,0)
|
---|
| 1255 | ;;=MYANMAR LANGUAGE
|
---|
| 1256 | ;;^UTILITY(U,$J,.85,65,0)
|
---|
| 1257 | ;;=CADDO^^CAD^^
|
---|
| 1258 | ;;^UTILITY(U,$J,.85,66,0)
|
---|
| 1259 | ;;=CATALAN^CA^CAT^^
|
---|
| 1260 | ;;^UTILITY(U,$J,.85,66,1,0)
|
---|
| 1261 | ;;=^.8501^1^1
|
---|
| 1262 | ;;^UTILITY(U,$J,.85,66,1,1,0)
|
---|
| 1263 | ;;=VALENCIAN
|
---|
| 1264 | ;;^UTILITY(U,$J,.85,67,0)
|
---|
| 1265 | ;;=CEBUANO^^CEB^^
|
---|
| 1266 | ;;^UTILITY(U,$J,.85,68,0)
|
---|
| 1267 | ;;=CHAGATAI^^CHG^^
|
---|
| 1268 | ;;^UTILITY(U,$J,.85,69,0)
|
---|
| 1269 | ;;=CHAMORRO^CH^CHA^^
|
---|
| 1270 | ;;^UTILITY(U,$J,.85,70,0)
|
---|
| 1271 | ;;=CHECHEN^CE^CHE^^
|
---|
| 1272 | ;;^UTILITY(U,$J,.85,71,0)
|
---|
| 1273 | ;;=CHEROKEE^^CHR^^
|
---|
| 1274 | ;;^UTILITY(U,$J,.85,72,0)
|
---|
| 1275 | ;;=CHEYENNE^^CHY^^
|
---|
| 1276 | ;;^UTILITY(U,$J,.85,73,0)
|
---|
| 1277 | ;;=CHIBCHA^^CHB^^
|
---|
| 1278 | ;;^UTILITY(U,$J,.85,74,0)
|
---|
| 1279 | ;;=CHICHEWA^NY^NYA^^
|
---|
| 1280 | ;;^UTILITY(U,$J,.85,74,1,0)
|
---|
| 1281 | ;;=^.8501^2^2
|
---|
| 1282 | ;;^UTILITY(U,$J,.85,74,1,1,0)
|
---|
| 1283 | ;;=CHEWA
|
---|
| 1284 | ;;^UTILITY(U,$J,.85,74,1,2,0)
|
---|
| 1285 | ;;=NYANJA
|
---|
| 1286 | ;;^UTILITY(U,$J,.85,75,0)
|
---|
| 1287 | ;;=CHINESE^ZH^ZHO^^CHI
|
---|
| 1288 | ;;^UTILITY(U,$J,.85,76,0)
|
---|
| 1289 | ;;=CHINOOK JARGON^^CHN^^
|
---|
| 1290 | ;;^UTILITY(U,$J,.85,77,0)
|
---|
| 1291 | ;;=CHIPEWYAN^^CHP^^
|
---|
| 1292 | ;;^UTILITY(U,$J,.85,77,1,0)
|
---|
| 1293 | ;;=^.8501^1^1
|
---|
| 1294 | ;;^UTILITY(U,$J,.85,77,1,1,0)
|
---|
| 1295 | ;;=DENE SULINE
|
---|
| 1296 | ;;^UTILITY(U,$J,.85,78,0)
|
---|
| 1297 | ;;=CHOCTAW^^CHO^^
|
---|
| 1298 | ;;^UTILITY(U,$J,.85,79,0)
|
---|
| 1299 | ;;=CHUUKESE^^CHK^^
|
---|
| 1300 | ;;^UTILITY(U,$J,.85,80,0)
|
---|
| 1301 | ;;=CHUVASH^CV^CHV^^
|
---|
| 1302 | ;;^UTILITY(U,$J,.85,81,0)
|
---|
| 1303 | ;;=CLASSICAL NEWARI^^NWC^^
|
---|
| 1304 | ;;^UTILITY(U,$J,.85,81,1,0)
|
---|
| 1305 | ;;=^.8501^2^2
|
---|
| 1306 | ;;^UTILITY(U,$J,.85,81,1,1,0)
|
---|
| 1307 | ;;=OLD NEWARI
|
---|
| 1308 | ;;^UTILITY(U,$J,.85,81,1,2,0)
|
---|
| 1309 | ;;=CLASSICAL NEPAL BHASA
|
---|
| 1310 | ;;^UTILITY(U,$J,.85,82,0)
|
---|
| 1311 | ;;=CLASSICAL SYRIAC^^SYC^^
|
---|
| 1312 | ;;^UTILITY(U,$J,.85,83,0)
|
---|
| 1313 | ;;=COPTIC^^COP^^
|
---|
| 1314 | ;;^UTILITY(U,$J,.85,84,0)
|
---|
| 1315 | ;;=CORNISH^KW^COR^^
|
---|
| 1316 | ;;^UTILITY(U,$J,.85,85,0)
|
---|
| 1317 | ;;=CORSICAN^CO^COS^^
|
---|
| 1318 | ;;^UTILITY(U,$J,.85,86,0)
|
---|
| 1319 | ;;=CREE^CR^CRE^^
|
---|
| 1320 | ;;^UTILITY(U,$J,.85,87,0)
|
---|
| 1321 | ;;=CREEK^^MUS^^
|
---|
| 1322 | ;;^UTILITY(U,$J,.85,88,0)
|
---|
| 1323 | ;;=CREOLES AND PIDGINS^^CRP^^
|
---|
| 1324 | ;;^UTILITY(U,$J,.85,89,0)
|
---|
| 1325 | ;;=CREOLES AND PIDGINS, ENGLISH-BASED^^CPE^^
|
---|
| 1326 | ;;^UTILITY(U,$J,.85,90,0)
|
---|
| 1327 | ;;=CREOLES AND PIDGINS, FRENCH-BASED^^CPF^^
|
---|
| 1328 | ;;^UTILITY(U,$J,.85,91,0)
|
---|
| 1329 | ;;=CREOLES AND PIDGINS, PORTUGUESE-BASED^^CPP^^
|
---|
| 1330 | ;;^UTILITY(U,$J,.85,92,0)
|
---|
| 1331 | ;;=CRIMEAN TATAR^^CRH^^
|
---|
| 1332 | ;;^UTILITY(U,$J,.85,92,1,0)
|
---|
| 1333 | ;;=^.8501^1^1
|
---|
| 1334 | ;;^UTILITY(U,$J,.85,92,1,1,0)
|
---|
| 1335 | ;;=CRIMEAN TURKISH
|
---|
| 1336 | ;;^UTILITY(U,$J,.85,93,0)
|
---|
| 1337 | ;;=CROATIAN^HR^HRV^^
|
---|
| 1338 | ;;^UTILITY(U,$J,.85,94,0)
|
---|
| 1339 | ;;=CZECH^CS^CES^^CZE
|
---|
| 1340 | ;;^UTILITY(U,$J,.85,95,0)
|
---|
| 1341 | ;;=DAKOTA^^DAK^^
|
---|
| 1342 | ;;^UTILITY(U,$J,.85,96,0)
|
---|
| 1343 | ;;=DANISH^DA^DAN^^
|
---|
| 1344 | ;;^UTILITY(U,$J,.85,97,0)
|
---|
| 1345 | ;;=DARGWA^^DAR^^
|
---|
| 1346 | ;;^UTILITY(U,$J,.85,98,0)
|
---|
| 1347 | ;;=DELAWARE^^DEL^^
|
---|
| 1348 | ;;^UTILITY(U,$J,.85,99,0)
|
---|
| 1349 | ;;=DINKA^^DIN^^
|
---|
| 1350 | ;;^UTILITY(U,$J,.85,100,0)
|
---|
| 1351 | ;;=DIVEHI^DV^DIV^^
|
---|
| 1352 | ;;^UTILITY(U,$J,.85,100,1,0)
|
---|
| 1353 | ;;=^.8501^2^2
|
---|
| 1354 | ;;^UTILITY(U,$J,.85,100,1,1,0)
|
---|
| 1355 | ;;=DHIVEHI
|
---|
| 1356 | ;;^UTILITY(U,$J,.85,100,1,2,0)
|
---|
| 1357 | ;;=MALDIVIAN
|
---|
| 1358 | ;;^UTILITY(U,$J,.85,101,0)
|
---|
| 1359 | ;;=DOGRI^^DOI^^
|
---|
| 1360 | ;;^UTILITY(U,$J,.85,102,0)
|
---|
| 1361 | ;;=DOGRIB^^DGR^^
|
---|
| 1362 | ;;^UTILITY(U,$J,.85,103,0)
|
---|
| 1363 | ;;=DUALA^^DUA^^
|
---|
| 1364 | ;;^UTILITY(U,$J,.85,104,0)
|
---|
| 1365 | ;;=DUTCH^NL^NLD^^DUT
|
---|
| 1366 | ;;^UTILITY(U,$J,.85,104,1,0)
|
---|
| 1367 | ;;=^.8501^1^1
|
---|
| 1368 | ;;^UTILITY(U,$J,.85,104,1,1,0)
|
---|
| 1369 | ;;=FLEMISH
|
---|
| 1370 | ;;^UTILITY(U,$J,.85,105,0)
|
---|
| 1371 | ;;=DYULA^^DYU^^
|
---|
| 1372 | ;;^UTILITY(U,$J,.85,106,0)
|
---|
| 1373 | ;;=DZONGKHA^DZ^DZO^^
|
---|
| 1374 | ;;^UTILITY(U,$J,.85,107,0)
|
---|
| 1375 | ;;=EFIK^^EFI^^
|
---|
| 1376 | ;;^UTILITY(U,$J,.85,108,0)
|
---|
| 1377 | ;;=EKAJUK^^EKA^^
|
---|
| 1378 | ;;^UTILITY(U,$J,.85,109,0)
|
---|
| 1379 | ;;=ELAMITE^^ELX^^
|
---|
| 1380 | ;;^UTILITY(U,$J,.85,110,0)
|
---|
| 1381 | ;;=ERZYA^^MYV^^
|
---|
| 1382 | ;;^UTILITY(U,$J,.85,111,0)
|
---|
| 1383 | ;;=ESPERANTO^EO^EPO^^
|
---|
| 1384 | ;;^UTILITY(U,$J,.85,112,0)
|
---|
| 1385 | ;;=ESTONIAN^ET^EST^^
|
---|
| 1386 | ;;^UTILITY(U,$J,.85,113,0)
|
---|
| 1387 | ;;=EWE^EE^EWE^^
|
---|
| 1388 | ;;^UTILITY(U,$J,.85,114,0)
|
---|
| 1389 | ;;=EWONDO^^EWO^^
|
---|
| 1390 | ;;^UTILITY(U,$J,.85,115,0)
|
---|
| 1391 | ;;=FANG^^FAN^^
|
---|
| 1392 | ;;^UTILITY(U,$J,.85,116,0)
|
---|
| 1393 | ;;=FANTI^^FAT^^
|
---|
| 1394 | ;;^UTILITY(U,$J,.85,117,0)
|
---|
| 1395 | ;;=FAROESE^FO^FAO^^
|
---|
| 1396 | ;;^UTILITY(U,$J,.85,118,0)
|
---|
| 1397 | ;;=FIJIAN^FJ^FIJ^^
|
---|
| 1398 | ;;^UTILITY(U,$J,.85,119,0)
|
---|
| 1399 | ;;=FILIPINO^^FIL^^
|
---|
| 1400 | ;;^UTILITY(U,$J,.85,119,1,0)
|
---|
| 1401 | ;;=^.8501^1^1
|
---|
| 1402 | ;;^UTILITY(U,$J,.85,119,1,1,0)
|
---|
| 1403 | ;;=PILIPINO
|
---|
| 1404 | ;;^UTILITY(U,$J,.85,120,0)
|
---|
| 1405 | ;;=FON^^FON^^
|
---|
| 1406 | ;;^UTILITY(U,$J,.85,121,0)
|
---|
| 1407 | ;;=FRISIAN, EASTERN^^FRS^^
|
---|
| 1408 | ;;^UTILITY(U,$J,.85,121,1,0)
|
---|
| 1409 | ;;=^.8501^1^1
|
---|
| 1410 | ;;^UTILITY(U,$J,.85,121,1,1,0)
|
---|
| 1411 | ;;=EASTERN FRISIAN
|
---|
| 1412 | ;;^UTILITY(U,$J,.85,122,0)
|
---|
| 1413 | ;;=FRISIAN, NORTHERN^^FRR^^
|
---|
| 1414 | ;;^UTILITY(U,$J,.85,122,1,0)
|
---|
| 1415 | ;;=^.8501^1^1
|
---|
| 1416 | ;;^UTILITY(U,$J,.85,122,1,1,0)
|
---|
| 1417 | ;;=NORTHERN FRISIAN
|
---|
| 1418 | ;;^UTILITY(U,$J,.85,123,0)
|
---|
| 1419 | ;;=FRISIAN, WEST^FY^FRY^^
|
---|
| 1420 | ;;^UTILITY(U,$J,.85,123,1,0)
|
---|
| 1421 | ;;=^.8501^2^2
|
---|
| 1422 | ;;^UTILITY(U,$J,.85,123,1,1,0)
|
---|
| 1423 | ;;=WEST FRISIAN
|
---|
| 1424 | ;;^UTILITY(U,$J,.85,123,1,2,0)
|
---|
| 1425 | ;;=WESTERN FRISIAN
|
---|
| 1426 | ;;^UTILITY(U,$J,.85,124,0)
|
---|
| 1427 | ;;=FRIULIAN^^FUR^^
|
---|
| 1428 | ;;^UTILITY(U,$J,.85,125,0)
|
---|
| 1429 | ;;=FULA^FF^FUL^^
|
---|
| 1430 | ;;^UTILITY(U,$J,.85,125,1,0)
|
---|
| 1431 | ;;=^.8501^4^4
|
---|
| 1432 | ;;^UTILITY(U,$J,.85,125,1,1,0)
|
---|
| 1433 | ;;=FULANI
|
---|
| 1434 | ;;^UTILITY(U,$J,.85,125,1,2,0)
|
---|
| 1435 | ;;=FULAH
|
---|
| 1436 | ;;^UTILITY(U,$J,.85,125,1,3,0)
|
---|
| 1437 | ;;=PULAAR
|
---|
| 1438 | ;;^UTILITY(U,$J,.85,125,1,4,0)
|
---|
| 1439 | ;;=PULAR
|
---|
| 1440 | ;;^UTILITY(U,$J,.85,126,0)
|
---|
| 1441 | ;;=GA^^GAA^^
|
---|
| 1442 | ;;^UTILITY(U,$J,.85,127,0)
|
---|
| 1443 | ;;=GAELIC^GD^GLA^^
|
---|
| 1444 | ;;^UTILITY(U,$J,.85,127,1,0)
|
---|
| 1445 | ;;=^.8501^2^2
|
---|
| 1446 | ;;^UTILITY(U,$J,.85,127,1,1,0)
|
---|
| 1447 | ;;=SCOTS GAELIC
|
---|
| 1448 | ;;^UTILITY(U,$J,.85,127,1,2,0)
|
---|
| 1449 | ;;=SCOTTISH GAELIC
|
---|
| 1450 | ;;^UTILITY(U,$J,.85,128,0)
|
---|
| 1451 | ;;=GALIBI CARIB^^CAR^^
|
---|
| 1452 | ;;^UTILITY(U,$J,.85,129,0)
|
---|
| 1453 | ;;=GALICIAN^GL^GLG^^
|
---|
| 1454 | ;;^UTILITY(U,$J,.85,130,0)
|
---|
| 1455 | ;;=GANDA^LG^LUG^^
|
---|
| 1456 | ;;^UTILITY(U,$J,.85,131,0)
|
---|
| 1457 | ;;=GAYO^^GAY^^
|
---|
| 1458 |
|
---|
| 1459 | DILAI004
|
---|
| 1460 | DILAI004 ; ; 02-NOV-2012
|
---|
| 1461 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 1462 | 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
|
---|
| 1463 | Q Q
|
---|
| 1464 | ;;^UTILITY(U,$J,.85,132,0)
|
---|
| 1465 | ;;=GBAYA^^GBA^^
|
---|
| 1466 | ;;^UTILITY(U,$J,.85,133,0)
|
---|
| 1467 | ;;=GEEZ^^GEZ^^
|
---|
| 1468 | ;;^UTILITY(U,$J,.85,134,0)
|
---|
| 1469 | ;;=GEORGIAN^KA^KAT^^GEO
|
---|
| 1470 | ;;^UTILITY(U,$J,.85,135,0)
|
---|
| 1471 | ;;=GILBERTESE^^GIL^^
|
---|
| 1472 | ;;^UTILITY(U,$J,.85,136,0)
|
---|
| 1473 | ;;=GONDI^^GON^^
|
---|
| 1474 | ;;^UTILITY(U,$J,.85,137,0)
|
---|
| 1475 | ;;=GORONTALO^^GOR^^
|
---|
| 1476 | ;;^UTILITY(U,$J,.85,138,0)
|
---|
| 1477 | ;;=GOTHIC^^GOT^^
|
---|
| 1478 | ;;^UTILITY(U,$J,.85,139,0)
|
---|
| 1479 | ;;=GREBO^^GRB^^
|
---|
| 1480 | ;;^UTILITY(U,$J,.85,140,0)
|
---|
| 1481 | ;;=GUARANI^GN^GRN^^
|
---|
| 1482 | ;;^UTILITY(U,$J,.85,141,0)
|
---|
| 1483 | ;;=GUJARATI^GU^GUJ^^
|
---|
| 1484 | ;;^UTILITY(U,$J,.85,142,0)
|
---|
| 1485 | ;;=GWICH'IN^^GWI^^
|
---|
| 1486 | ;;^UTILITY(U,$J,.85,143,0)
|
---|
| 1487 | ;;=HAIDA^^HAI^^
|
---|
| 1488 | ;;^UTILITY(U,$J,.85,144,0)
|
---|
| 1489 | ;;=HAITIAN CREOLE^HT^HAT^^
|
---|
| 1490 | ;;^UTILITY(U,$J,.85,145,0)
|
---|
| 1491 | ;;=HAUSA^HA^HAU^^
|
---|
| 1492 | ;;^UTILITY(U,$J,.85,146,0)
|
---|
| 1493 | ;;=HAWAIIAN^^HAW^^
|
---|
| 1494 | ;;^UTILITY(U,$J,.85,147,0)
|
---|
| 1495 | ;;=HERERO^HZ^HER^^
|
---|
| 1496 | ;;^UTILITY(U,$J,.85,148,0)
|
---|
| 1497 | ;;=HILIGAYNON^^HIL^^
|
---|
| 1498 | ;;^UTILITY(U,$J,.85,149,0)
|
---|
| 1499 | ;;=HINDI^HI^HIN^^
|
---|
| 1500 | ;;^UTILITY(U,$J,.85,150,0)
|
---|
| 1501 | ;;=HIRI MOTU^HO^HMO^^
|
---|
| 1502 | ;;^UTILITY(U,$J,.85,151,0)
|
---|
| 1503 | ;;=HITTITE^^HIT^^
|
---|
| 1504 | ;;^UTILITY(U,$J,.85,152,0)
|
---|
| 1505 | ;;=HMONG^^HMN^^
|
---|
| 1506 | ;;^UTILITY(U,$J,.85,152,1,0)
|
---|
| 1507 | ;;=^.8501^1^1
|
---|
| 1508 | ;;^UTILITY(U,$J,.85,152,1,1,0)
|
---|
| 1509 | ;;=MONG
|
---|
| 1510 | ;;^UTILITY(U,$J,.85,153,0)
|
---|
| 1511 | ;;=HUNGARIAN^HU^HUN^^
|
---|
| 1512 | ;;^UTILITY(U,$J,.85,154,0)
|
---|
| 1513 | ;;=HUPA^^HUP^^
|
---|
| 1514 | ;;^UTILITY(U,$J,.85,155,0)
|
---|
| 1515 | ;;=IBAN^^IBA^^
|
---|
| 1516 | ;;^UTILITY(U,$J,.85,156,0)
|
---|
| 1517 | ;;=ICELANDIC^IS^ISL^^ICE
|
---|
| 1518 | ;;^UTILITY(U,$J,.85,157,0)
|
---|
| 1519 | ;;=IDO^IO^IDO^^
|
---|
| 1520 | ;;^UTILITY(U,$J,.85,158,0)
|
---|
| 1521 | ;;=IGBO^IG^IBO^^
|
---|
| 1522 | ;;^UTILITY(U,$J,.85,159,0)
|
---|
| 1523 | ;;=ILOKO^^ILO^^
|
---|
| 1524 | ;;^UTILITY(U,$J,.85,160,0)
|
---|
| 1525 | ;;=INARI SAMI^^SMN^^
|
---|
| 1526 | ;;^UTILITY(U,$J,.85,161,0)
|
---|
| 1527 | ;;=INDONESIAN^ID^IND^^
|
---|
| 1528 | ;;^UTILITY(U,$J,.85,162,0)
|
---|
| 1529 | ;;=INGUSH^^INH^^
|
---|
| 1530 | ;;^UTILITY(U,$J,.85,163,0)
|
---|
| 1531 | ;;=INTERLINGUA^IA^INA^^
|
---|
| 1532 | ;;^UTILITY(U,$J,.85,164,0)
|
---|
| 1533 | ;;=INTERLINGUE^IE^ILE^^
|
---|
| 1534 | ;;^UTILITY(U,$J,.85,164,1,0)
|
---|
| 1535 | ;;=^.8501^1^1
|
---|
| 1536 | ;;^UTILITY(U,$J,.85,164,1,1,0)
|
---|
| 1537 | ;;=OCCIDENTAL
|
---|
| 1538 | ;;^UTILITY(U,$J,.85,165,0)
|
---|
| 1539 | ;;=INUKTITUT^IU^IKU^^
|
---|
| 1540 | ;;^UTILITY(U,$J,.85,166,0)
|
---|
| 1541 | ;;=INUPIAQ^IK^IPK^^
|
---|
| 1542 | ;;^UTILITY(U,$J,.85,167,0)
|
---|
| 1543 | ;;=IRISH^GA^GLE^^
|
---|
| 1544 | ;;^UTILITY(U,$J,.85,168,0)
|
---|
| 1545 | ;;=JAPANESE^JA^JPN^^
|
---|
| 1546 | ;;^UTILITY(U,$J,.85,169,0)
|
---|
| 1547 | ;;=JAVANESE^JV^JAV^^
|
---|
| 1548 | ;;^UTILITY(U,$J,.85,170,0)
|
---|
| 1549 | ;;=JUDEO-ARABIC^^JRB^^
|
---|
| 1550 | ;;^UTILITY(U,$J,.85,171,0)
|
---|
| 1551 | ;;=JUDEO-PERSIAN^^JPR^^
|
---|
| 1552 | ;;^UTILITY(U,$J,.85,172,0)
|
---|
| 1553 | ;;=KABARDIAN^^KBD^^
|
---|
| 1554 | ;;^UTILITY(U,$J,.85,173,0)
|
---|
| 1555 | ;;=KABYLE^^KAB^^
|
---|
| 1556 | ;;^UTILITY(U,$J,.85,174,0)
|
---|
| 1557 | ;;=KACHIN^^KAC^^
|
---|
| 1558 | ;;^UTILITY(U,$J,.85,174,1,0)
|
---|
| 1559 | ;;=^.8501^1^1
|
---|
| 1560 | ;;^UTILITY(U,$J,.85,174,1,1,0)
|
---|
| 1561 | ;;=JINGPHO
|
---|
| 1562 | ;;^UTILITY(U,$J,.85,175,0)
|
---|
| 1563 | ;;=KALAALLISUT^KL^KAL^^
|
---|
| 1564 | ;;^UTILITY(U,$J,.85,175,1,0)
|
---|
| 1565 | ;;=^.8501^1^1
|
---|
| 1566 | ;;^UTILITY(U,$J,.85,175,1,1,0)
|
---|
| 1567 | ;;=GREENLANDIC
|
---|
| 1568 | ;;^UTILITY(U,$J,.85,176,0)
|
---|
| 1569 | ;;=KALMYK^^XAL^^
|
---|
| 1570 | ;;^UTILITY(U,$J,.85,176,1,0)
|
---|
| 1571 | ;;=^.8501^1^1
|
---|
| 1572 | ;;^UTILITY(U,$J,.85,176,1,1,0)
|
---|
| 1573 | ;;=OIRAT
|
---|
| 1574 | ;;^UTILITY(U,$J,.85,177,0)
|
---|
| 1575 | ;;=KAMBA^^KAM^^
|
---|
| 1576 | ;;^UTILITY(U,$J,.85,178,0)
|
---|
| 1577 | ;;=KANNADA^KN^KAN^^
|
---|
| 1578 | ;;^UTILITY(U,$J,.85,179,0)
|
---|
| 1579 | ;;=KANURI^KR^KAU^^
|
---|
| 1580 | ;;^UTILITY(U,$J,.85,180,0)
|
---|
| 1581 | ;;=KARA-KALPAK^^KAA^^
|
---|
| 1582 | ;;^UTILITY(U,$J,.85,181,0)
|
---|
| 1583 | ;;=KARACHAY-BALKAR^^KRC^^
|
---|
| 1584 | ;;^UTILITY(U,$J,.85,182,0)
|
---|
| 1585 | ;;=KARELIAN^^KRL^^
|
---|
| 1586 | ;;^UTILITY(U,$J,.85,183,0)
|
---|
| 1587 | ;;=KASHMIRI^KS^KAS^^
|
---|
| 1588 | ;;^UTILITY(U,$J,.85,184,0)
|
---|
| 1589 | ;;=KASHUBIAN^^CSB^^
|
---|
| 1590 | ;;^UTILITY(U,$J,.85,185,0)
|
---|
| 1591 | ;;=KAWI^^KAW^^
|
---|
| 1592 | ;;^UTILITY(U,$J,.85,186,0)
|
---|
| 1593 | ;;=KAZAKH^KK^KAZ^^
|
---|
| 1594 | ;;^UTILITY(U,$J,.85,187,0)
|
---|
| 1595 | ;;=KHASI^^KHA^^
|
---|
| 1596 | ;;^UTILITY(U,$J,.85,188,0)
|
---|
| 1597 | ;;=KHMER^KM^KHM^^
|
---|
| 1598 | ;;^UTILITY(U,$J,.85,188,1,0)
|
---|
| 1599 | ;;=^.8501^1^1
|
---|
| 1600 | ;;^UTILITY(U,$J,.85,188,1,1,0)
|
---|
| 1601 | ;;=CENTRAL KHMER
|
---|
| 1602 | ;;^UTILITY(U,$J,.85,189,0)
|
---|
| 1603 | ;;=KHOTANESE^^KHO^^
|
---|
| 1604 | ;;^UTILITY(U,$J,.85,189,1,0)
|
---|
| 1605 | ;;=^.8501^1^1
|
---|
| 1606 | ;;^UTILITY(U,$J,.85,189,1,1,0)
|
---|
| 1607 | ;;=SAKAN
|
---|
| 1608 | ;;^UTILITY(U,$J,.85,190,0)
|
---|
| 1609 | ;;=KIKUYU^KI^KIK^^
|
---|
| 1610 | ;;^UTILITY(U,$J,.85,190,1,0)
|
---|
| 1611 | ;;=^.8501^1^1
|
---|
| 1612 | ;;^UTILITY(U,$J,.85,190,1,1,0)
|
---|
| 1613 | ;;=GIKUYU
|
---|
| 1614 | ;;^UTILITY(U,$J,.85,191,0)
|
---|
| 1615 | ;;=KIMBUNDU^^KMB^^
|
---|
| 1616 | ;;^UTILITY(U,$J,.85,192,0)
|
---|
| 1617 | ;;=KINYARWANDA^RW^KIN^^
|
---|
| 1618 | ;;^UTILITY(U,$J,.85,193,0)
|
---|
| 1619 | ;;=KIRGHIZ^KY^KIR^^
|
---|
| 1620 | ;;^UTILITY(U,$J,.85,193,1,0)
|
---|
| 1621 | ;;=^.8501^1^1
|
---|
| 1622 | ;;^UTILITY(U,$J,.85,193,1,1,0)
|
---|
| 1623 | ;;=KYRGYZ
|
---|
| 1624 | ;;^UTILITY(U,$J,.85,194,0)
|
---|
| 1625 | ;;=KLINGON^^TLH^^
|
---|
| 1626 | ;;^UTILITY(U,$J,.85,194,1,0)
|
---|
| 1627 | ;;=^.8501^1^1
|
---|
| 1628 | ;;^UTILITY(U,$J,.85,194,1,1,0)
|
---|
| 1629 | ;;=TLHINGAN-HOL
|
---|
| 1630 | ;;^UTILITY(U,$J,.85,195,0)
|
---|
| 1631 | ;;=KOMI^KV^KOM^^
|
---|
| 1632 | ;;^UTILITY(U,$J,.85,196,0)
|
---|
| 1633 | ;;=KONGO^KG^KON^^
|
---|
| 1634 | ;;^UTILITY(U,$J,.85,197,0)
|
---|
| 1635 | ;;=KONKANI^^KOK^^
|
---|
| 1636 | ;;^UTILITY(U,$J,.85,198,0)
|
---|
| 1637 | ;;=KOREAN^KO^KOR^^
|
---|
| 1638 | ;;^UTILITY(U,$J,.85,199,0)
|
---|
| 1639 | ;;=KOSRAEAN^^KOS^^
|
---|
| 1640 | ;;^UTILITY(U,$J,.85,200,0)
|
---|
| 1641 | ;;=KPELLE^^KPE^^
|
---|
| 1642 | ;;^UTILITY(U,$J,.85,201,0)
|
---|
| 1643 | ;;=KUANYAMA^KJ^KUA^^
|
---|
| 1644 | ;;^UTILITY(U,$J,.85,201,1,0)
|
---|
| 1645 | ;;=^.8501^1^1
|
---|
| 1646 | ;;^UTILITY(U,$J,.85,201,1,1,0)
|
---|
| 1647 | ;;=KWANYAMA
|
---|
| 1648 | ;;^UTILITY(U,$J,.85,202,0)
|
---|
| 1649 | ;;=KUMYK^^KUM^^
|
---|
| 1650 | ;;^UTILITY(U,$J,.85,203,0)
|
---|
| 1651 | ;;=KURDISH^KU^KUR^^
|
---|
| 1652 | ;;^UTILITY(U,$J,.85,204,0)
|
---|
| 1653 | ;;=KURUKH^^KRU^^
|
---|
| 1654 | ;;^UTILITY(U,$J,.85,205,0)
|
---|
| 1655 | ;;=KUTENAI^^KUT^^
|
---|
| 1656 | ;;^UTILITY(U,$J,.85,206,0)
|
---|
| 1657 | ;;=LADINO^^LAD^^
|
---|
| 1658 | ;;^UTILITY(U,$J,.85,207,0)
|
---|
| 1659 | ;;=LAHNDA^^LAH^^
|
---|
| 1660 | ;;^UTILITY(U,$J,.85,208,0)
|
---|
| 1661 | ;;=LAMBA^^LAM^^
|
---|
| 1662 | ;;^UTILITY(U,$J,.85,209,0)
|
---|
| 1663 | ;;=LANGUAGES, AFRO-ASIATIC^^AFA^^
|
---|
| 1664 | ;;^UTILITY(U,$J,.85,210,0)
|
---|
| 1665 | ;;=LANGUAGES, ALACALUFAN^^AQA^^
|
---|
| 1666 | ;;^UTILITY(U,$J,.85,211,0)
|
---|
| 1667 | ;;=LANGUAGES, ALGIC^^AQL^^
|
---|
| 1668 | ;;^UTILITY(U,$J,.85,212,0)
|
---|
| 1669 | ;;=LANGUAGES, ALGONQUIAN^^ALG^^
|
---|
| 1670 | ;;^UTILITY(U,$J,.85,213,0)
|
---|
| 1671 | ;;=LANGUAGES, ALTAIC^^TUT^^
|
---|
| 1672 | ;;^UTILITY(U,$J,.85,214,0)
|
---|
| 1673 | ;;=LANGUAGES, APACHE^^APA^^
|
---|
| 1674 | ;;^UTILITY(U,$J,.85,215,0)
|
---|
| 1675 | ;;=LANGUAGES, ARAUAN^^AUF^^
|
---|
| 1676 | ;;^UTILITY(U,$J,.85,216,0)
|
---|
| 1677 | ;;=LANGUAGES, ARAWAKAN^^AWD^^
|
---|
| 1678 | ;;^UTILITY(U,$J,.85,217,0)
|
---|
| 1679 | ;;=LANGUAGES, ARMENIAN^^HYX^^
|
---|
| 1680 | ;;^UTILITY(U,$J,.85,218,0)
|
---|
| 1681 | ;;=LANGUAGES, ARTIFICIAL^^ART^^
|
---|
| 1682 | ;;^UTILITY(U,$J,.85,219,0)
|
---|
| 1683 | ;;=LANGUAGES, ATHAPASCAN^^ATH^^
|
---|
| 1684 | ;;^UTILITY(U,$J,.85,220,0)
|
---|
| 1685 | ;;=LANGUAGES, ATLANTIC-CONGO^^ALV^^
|
---|
| 1686 | ;;^UTILITY(U,$J,.85,221,0)
|
---|
| 1687 | ;;=LANGUAGES, AUSTRALIAN^^AUS^^
|
---|
| 1688 | ;;^UTILITY(U,$J,.85,222,0)
|
---|
| 1689 | ;;=LANGUAGES, AUSTRO-ASIATIC^^AAV^^
|
---|
| 1690 | ;;^UTILITY(U,$J,.85,223,0)
|
---|
| 1691 | ;;=LANGUAGES, AUSTRONESIAN^^MAP^^
|
---|
| 1692 | ;;^UTILITY(U,$J,.85,224,0)
|
---|
| 1693 | ;;=LANGUAGES, BALTIC^^BAT^^
|
---|
| 1694 | ;;^UTILITY(U,$J,.85,225,0)
|
---|
| 1695 | ;;=LANGUAGES, BAMILEKE^^BAI^^
|
---|
| 1696 | ;;^UTILITY(U,$J,.85,226,0)
|
---|
| 1697 | ;;=LANGUAGES, BANDA^^BAD^^
|
---|
| 1698 | ;;^UTILITY(U,$J,.85,227,0)
|
---|
| 1699 | ;;=LANGUAGES, BANTU^^BNT^^
|
---|
| 1700 | ;;^UTILITY(U,$J,.85,228,0)
|
---|
| 1701 | ;;=LANGUAGES, BASQUE^^EUQ^^
|
---|
| 1702 | ;;^UTILITY(U,$J,.85,229,0)
|
---|
| 1703 | ;;=LANGUAGES, BATAK^^BTK^^
|
---|
| 1704 | ;;^UTILITY(U,$J,.85,230,0)
|
---|
| 1705 | ;;=LANGUAGES, BERBER^^BER^^
|
---|
| 1706 | ;;^UTILITY(U,$J,.85,231,0)
|
---|
| 1707 | ;;=LANGUAGES, BIHARI^BH^BIH^^
|
---|
| 1708 | ;;^UTILITY(U,$J,.85,232,0)
|
---|
| 1709 | ;;=LANGUAGES, CADDOAN^^CDD^^
|
---|
| 1710 | ;;^UTILITY(U,$J,.85,233,0)
|
---|
| 1711 | ;;=LANGUAGES, CAUCASIAN^^CAU^^
|
---|
| 1712 | ;;^UTILITY(U,$J,.85,234,0)
|
---|
| 1713 | ;;=LANGUAGES, CELTIC^^CEL^^
|
---|
| 1714 | ;;^UTILITY(U,$J,.85,235,0)
|
---|
| 1715 | ;;=LANGUAGES, CENTRAL AMERICAN INDIAN^^CAI^^
|
---|
| 1716 | ;;^UTILITY(U,$J,.85,236,0)
|
---|
| 1717 | ;;=LANGUAGES, CENTRAL MALAYO-POLYNESIAN^^PLF^^
|
---|
| 1718 | ;;^UTILITY(U,$J,.85,237,0)
|
---|
| 1719 | ;;=LANGUAGES, CENTRAL SUDANIC^^CSU^^
|
---|
| 1720 | ;;^UTILITY(U,$J,.85,238,0)
|
---|
| 1721 | ;;=LANGUAGES, CHADIC^^CDC^^
|
---|
| 1722 | ;;^UTILITY(U,$J,.85,239,0)
|
---|
| 1723 | ;;=LANGUAGES, CHAMIC^^CMC^^
|
---|
| 1724 | ;;^UTILITY(U,$J,.85,240,0)
|
---|
| 1725 | ;;=LANGUAGES, CHIBCHAN^^CBA^^
|
---|
| 1726 | ;;^UTILITY(U,$J,.85,241,0)
|
---|
| 1727 | ;;=LANGUAGES, CHINESE^^ZHX^^
|
---|
| 1728 | ;;^UTILITY(U,$J,.85,242,0)
|
---|
| 1729 | ;;=LANGUAGES, CUSHITIC^^CUS^^
|
---|
| 1730 | ;;^UTILITY(U,$J,.85,243,0)
|
---|
| 1731 | ;;=LANGUAGES, DRAVIDIAN^^DRA^^
|
---|
| 1732 | ;;^UTILITY(U,$J,.85,244,0)
|
---|
| 1733 | ;;=LANGUAGES, EAST GERMANIC^^GME^^
|
---|
| 1734 | ;;^UTILITY(U,$J,.85,245,0)
|
---|
| 1735 | ;;=LANGUAGES, EAST SLAVIC^^ZLE^^
|
---|
| 1736 | ;;^UTILITY(U,$J,.85,246,0)
|
---|
| 1737 | ;;=LANGUAGES, EASTERN MALAYO-POLYNESIAN^^PQE^^
|
---|
| 1738 | ;;^UTILITY(U,$J,.85,247,0)
|
---|
| 1739 | ;;=LANGUAGES, EASTERN SUDANIC^^SDV^^
|
---|
| 1740 | ;;^UTILITY(U,$J,.85,248,0)
|
---|
| 1741 | ;;=LANGUAGES, EGYPTIAN^^EGX^^
|
---|
| 1742 | ;;^UTILITY(U,$J,.85,249,0)
|
---|
| 1743 | ;;=LANGUAGES, ESKIMO-ALEUT^^ESX^^
|
---|
| 1744 | ;;^UTILITY(U,$J,.85,250,0)
|
---|
| 1745 | ;;=LANGUAGES, FINNO-UGRIAN^^FIU^^
|
---|
| 1746 | ;;^UTILITY(U,$J,.85,251,0)
|
---|
| 1747 | ;;=LANGUAGES, FORMOSAN^^FOX^^
|
---|
| 1748 | ;;^UTILITY(U,$J,.85,252,0)
|
---|
| 1749 | ;;=LANGUAGES, GERMANIC^^GEM^^
|
---|
| 1750 | ;;^UTILITY(U,$J,.85,253,0)
|
---|
| 1751 | ;;=LANGUAGES, GREEK^^GRK^^
|
---|
| 1752 | ;;^UTILITY(U,$J,.85,254,0)
|
---|
| 1753 | ;;=LANGUAGES, HIMACHALI^^HIM^^
|
---|
| 1754 | ;;^UTILITY(U,$J,.85,255,0)
|
---|
| 1755 | ;;=LANGUAGES, HMONG-MIEN^^HMX^^
|
---|
| 1756 | ;;^UTILITY(U,$J,.85,256,0)
|
---|
| 1757 | ;;=LANGUAGES, HOKAN^^HOK^^
|
---|
| 1758 | ;;^UTILITY(U,$J,.85,257,0)
|
---|
| 1759 | ;;=LANGUAGES, IJO^^IJO^^
|
---|
| 1760 | ;;^UTILITY(U,$J,.85,258,0)
|
---|
| 1761 | ;;=LANGUAGES, INDIC^^INC^^
|
---|
| 1762 | ;;^UTILITY(U,$J,.85,259,0)
|
---|
| 1763 | ;;=LANGUAGES, INDO-EUROPEAN^^INE^^
|
---|
| 1764 | ;;^UTILITY(U,$J,.85,260,0)
|
---|
| 1765 | ;;=LANGUAGES, INDO-IRANIAN^^IIR^^
|
---|
| 1766 | ;;^UTILITY(U,$J,.85,261,0)
|
---|
| 1767 | ;;=LANGUAGES, IRANIAN^^IRA^^
|
---|
| 1768 | ;;^UTILITY(U,$J,.85,262,0)
|
---|
| 1769 | ;;=LANGUAGES, IROQUOIAN^^IRO^^
|
---|
| 1770 | ;;^UTILITY(U,$J,.85,263,0)
|
---|
| 1771 | ;;=LANGUAGES, ITALIC^^ITC^^
|
---|
| 1772 | ;;^UTILITY(U,$J,.85,264,0)
|
---|
| 1773 | ;;=LANGUAGES, JAPANESE^^JPX^^
|
---|
| 1774 | ;;^UTILITY(U,$J,.85,265,0)
|
---|
| 1775 | ;;=LANGUAGES, KAREN^^KAR^^
|
---|
| 1776 | ;;^UTILITY(U,$J,.85,266,0)
|
---|
| 1777 | ;;=LANGUAGES, KHOISAN^^KHI^^
|
---|
| 1778 | ;;^UTILITY(U,$J,.85,267,0)
|
---|
| 1779 | ;;=LANGUAGES, KORDOFANIAN^^KDO^^
|
---|
| 1780 | ;;^UTILITY(U,$J,.85,268,0)
|
---|
| 1781 | ;;=LANGUAGES, KRU^^KRO^^
|
---|
| 1782 | ;;^UTILITY(U,$J,.85,269,0)
|
---|
| 1783 | ;;=LANGUAGES, LAND DAYAK^^DAY^^
|
---|
| 1784 | ;;^UTILITY(U,$J,.85,270,0)
|
---|
| 1785 | ;;=LANGUAGES, MALAYO-POLYNESIAN^^POZ^^
|
---|
| 1786 | ;;^UTILITY(U,$J,.85,271,0)
|
---|
| 1787 | ;;=LANGUAGES, MANDE^^DMN^^
|
---|
| 1788 | ;;^UTILITY(U,$J,.85,272,0)
|
---|
| 1789 | ;;=LANGUAGES, MANOBO^^MNO^^
|
---|
| 1790 | ;;^UTILITY(U,$J,.85,273,0)
|
---|
| 1791 | ;;=LANGUAGES, MAYAN^^MYN^^
|
---|
| 1792 | ;;^UTILITY(U,$J,.85,274,0)
|
---|
| 1793 | ;;=LANGUAGES, MON-KHMER^^MKH^^
|
---|
| 1794 | ;;^UTILITY(U,$J,.85,275,0)
|
---|
| 1795 | ;;=LANGUAGES, MONGOLIAN^^XGN^^
|
---|
| 1796 | ;;^UTILITY(U,$J,.85,276,0)
|
---|
| 1797 | ;;=LANGUAGES, MULTIPLE^^MUL^^
|
---|
| 1798 | ;;^UTILITY(U,$J,.85,277,0)
|
---|
| 1799 | ;;=LANGUAGES, MUNDA^^MUN^^
|
---|
| 1800 | ;;^UTILITY(U,$J,.85,278,0)
|
---|
| 1801 | ;;=LANGUAGES, NA-DENE^^XND^^
|
---|
| 1802 | ;;^UTILITY(U,$J,.85,279,0)
|
---|
| 1803 | ;;=LANGUAGES, NAHUATL^^NAH^^
|
---|
| 1804 | ;;^UTILITY(U,$J,.85,280,0)
|
---|
| 1805 | ;;=LANGUAGES, NIGER-KORDOFANIAN^^NIC^^
|
---|
| 1806 | ;;^UTILITY(U,$J,.85,281,0)
|
---|
| 1807 | ;;=LANGUAGES, NILO-SAHARAN^^SSA^^
|
---|
| 1808 | ;;^UTILITY(U,$J,.85,282,0)
|
---|
| 1809 | ;;=LANGUAGES, NORTH AMERICAN INDIAN^^NAI^^
|
---|
| 1810 | ;;^UTILITY(U,$J,.85,283,0)
|
---|
| 1811 | ;;=LANGUAGES, NORTH CAUCASIAN^^CCN^^
|
---|
| 1812 | ;;^UTILITY(U,$J,.85,284,0)
|
---|
| 1813 | ;;=LANGUAGES, NORTH GERMANIC^^GMQ^^
|
---|
| 1814 | ;;^UTILITY(U,$J,.85,285,0)
|
---|
| 1815 | ;;=LANGUAGES, NUBIAN^^NUB^^
|
---|
| 1816 | ;;^UTILITY(U,$J,.85,286,0)
|
---|
| 1817 | ;;=LANGUAGES, OMOTIC^^OMV^^
|
---|
| 1818 | ;;^UTILITY(U,$J,.85,287,0)
|
---|
| 1819 | ;;=LANGUAGES, OTO-MANGUEAN^^OMQ^^
|
---|
| 1820 | ;;^UTILITY(U,$J,.85,288,0)
|
---|
| 1821 | ;;=LANGUAGES, OTOMIAN^^OTO^^
|
---|
| 1822 | ;;^UTILITY(U,$J,.85,289,0)
|
---|
| 1823 | ;;=LANGUAGES, PAPUAN^^PAA^^
|
---|
| 1824 | ;;^UTILITY(U,$J,.85,290,0)
|
---|
| 1825 | ;;=LANGUAGES, PHILIPPINE^^PHI^^
|
---|
| 1826 | ;;^UTILITY(U,$J,.85,291,0)
|
---|
| 1827 | ;;=LANGUAGES, PRAKRIT^^PRA^^
|
---|
| 1828 | ;;^UTILITY(U,$J,.85,292,0)
|
---|
| 1829 | ;;=LANGUAGES, QUECHUAN^^QWE^^
|
---|
| 1830 | ;;^UTILITY(U,$J,.85,293,0)
|
---|
| 1831 | ;;=LANGUAGES, ROMANCE^^ROA^^
|
---|
| 1832 | ;;^UTILITY(U,$J,.85,294,0)
|
---|
| 1833 | ;;=LANGUAGES, SALISHAN^^SAL^^
|
---|
| 1834 | ;;^UTILITY(U,$J,.85,295,0)
|
---|
| 1835 | ;;=LANGUAGES, SAMI^^SMI^^
|
---|
| 1836 | ;;^UTILITY(U,$J,.85,296,0)
|
---|
| 1837 | ;;=LANGUAGES, SAMOYEDIC^^SYD^^
|
---|
| 1838 | ;;^UTILITY(U,$J,.85,297,0)
|
---|
| 1839 | ;;=LANGUAGES, SEMITIC^^SEM^^
|
---|
| 1840 | ;;^UTILITY(U,$J,.85,298,0)
|
---|
| 1841 | ;;=LANGUAGES, SIGN^^SGN^^
|
---|
| 1842 | ;;^UTILITY(U,$J,.85,298,1,0)
|
---|
| 1843 | ;;=^.8501^1^1
|
---|
| 1844 | ;;^UTILITY(U,$J,.85,298,1,1,0)
|
---|
| 1845 | ;;=SIGN LANGUAGES
|
---|
| 1846 | ;;^UTILITY(U,$J,.85,299,0)
|
---|
| 1847 | ;;=LANGUAGES, SINO-TIBETAN^^SIT^^
|
---|
| 1848 | ;;^UTILITY(U,$J,.85,300,0)
|
---|
| 1849 | ;;=LANGUAGES, SIOUAN^^SIO^^
|
---|
| 1850 | ;;^UTILITY(U,$J,.85,301,0)
|
---|
| 1851 | ;;=LANGUAGES, SLAVIC^^SLA^^
|
---|
| 1852 | ;;^UTILITY(U,$J,.85,302,0)
|
---|
| 1853 | ;;=LANGUAGES, SONGHAI^^SON^^
|
---|
| 1854 | ;;^UTILITY(U,$J,.85,303,0)
|
---|
| 1855 | ;;=LANGUAGES, SORBIAN^^WEN^^
|
---|
| 1856 | ;;^UTILITY(U,$J,.85,304,0)
|
---|
| 1857 | ;;=LANGUAGES, SOUTH AMERICAN INDIAN^^SAI^^
|
---|
| 1858 | ;;^UTILITY(U,$J,.85,305,0)
|
---|
| 1859 | ;;=LANGUAGES, SOUTH CAUCASIAN^^CCS^^
|
---|
| 1860 | ;;^UTILITY(U,$J,.85,306,0)
|
---|
| 1861 | ;;=LANGUAGES, SOUTH SLAVIC^^ZLS^^
|
---|
| 1862 | ;;^UTILITY(U,$J,.85,307,0)
|
---|
| 1863 | ;;=LANGUAGES, TAI^^TAI^^
|
---|
| 1864 | ;;^UTILITY(U,$J,.85,308,0)
|
---|
| 1865 | ;;=LANGUAGES, TIBETO-BURMAN^^TBQ^^
|
---|
| 1866 | ;;^UTILITY(U,$J,.85,309,0)
|
---|
| 1867 | ;;=LANGUAGES, TRANS-NEW GUINEA^^NGF^^
|
---|
| 1868 | ;;^UTILITY(U,$J,.85,310,0)
|
---|
| 1869 | ;;=LANGUAGES, TUNGUS^^TUW^^
|
---|
| 1870 | ;;^UTILITY(U,$J,.85,311,0)
|
---|
| 1871 | ;;=LANGUAGES, TUPI^^TUP^^
|
---|
| 1872 | ;;^UTILITY(U,$J,.85,312,0)
|
---|
| 1873 | ;;=LANGUAGES, TURKIC^^TRK^^
|
---|
| 1874 | ;;^UTILITY(U,$J,.85,313,0)
|
---|
| 1875 | ;;=LANGUAGES, UNCODED^^MIS^^
|
---|
| 1876 | ;;^UTILITY(U,$J,.85,314,0)
|
---|
| 1877 | ;;=LANGUAGES, URALIC^^URJ^^
|
---|
| 1878 | ;;^UTILITY(U,$J,.85,315,0)
|
---|
| 1879 | ;;=LANGUAGES, UTO-AZTECAN^^AZC^^
|
---|
| 1880 | ;;^UTILITY(U,$J,.85,316,0)
|
---|
| 1881 | ;;=LANGUAGES, WAKASHAN^^WAK^^
|
---|
| 1882 | ;;^UTILITY(U,$J,.85,317,0)
|
---|
| 1883 | ;;=LANGUAGES, WEST GERMANIC^^GMW^^
|
---|
| 1884 | ;;^UTILITY(U,$J,.85,318,0)
|
---|
| 1885 | ;;=LANGUAGES, WEST SLAVIC^^ZLW^^
|
---|
| 1886 | ;;^UTILITY(U,$J,.85,319,0)
|
---|
| 1887 | ;;=LANGUAGES, WESTERN MALAYO-POLYNESIAN^^PQW^^
|
---|
| 1888 | ;;^UTILITY(U,$J,.85,320,0)
|
---|
| 1889 | ;;=LANGUAGES, YUPIK^^YPK^^
|
---|
| 1890 | ;;^UTILITY(U,$J,.85,321,0)
|
---|
| 1891 | ;;=LANGUAGES, ZANDE^^ZND^^
|
---|
| 1892 | ;;^UTILITY(U,$J,.85,322,0)
|
---|
| 1893 | ;;=LAO^LO^LAO^^
|
---|
| 1894 | ;;^UTILITY(U,$J,.85,323,0)
|
---|
| 1895 | ;;=LATIN^LA^LAT^^
|
---|
| 1896 | ;;^UTILITY(U,$J,.85,324,0)
|
---|
| 1897 | ;;=LATVIAN^LV^LAV^^
|
---|
| 1898 | ;;^UTILITY(U,$J,.85,325,0)
|
---|
| 1899 | ;;=LEZGHIAN^^LEZ^^
|
---|
| 1900 | ;;^UTILITY(U,$J,.85,326,0)
|
---|
| 1901 | ;;=LIMBURGAN^LI^LIM^^
|
---|
| 1902 | ;;^UTILITY(U,$J,.85,326,1,0)
|
---|
| 1903 | ;;=^.8501^2^2
|
---|
| 1904 | ;;^UTILITY(U,$J,.85,326,1,1,0)
|
---|
| 1905 | ;;=LIMBURGISH
|
---|
| 1906 | ;;^UTILITY(U,$J,.85,326,1,2,0)
|
---|
| 1907 | ;;=LIMBURGER
|
---|
| 1908 | ;;^UTILITY(U,$J,.85,327,0)
|
---|
| 1909 | ;;=LINGALA^LN^LIN^^
|
---|
| 1910 | ;;^UTILITY(U,$J,.85,328,0)
|
---|
| 1911 | ;;=LITHUANIAN^LT^LIT^^
|
---|
| 1912 | ;;^UTILITY(U,$J,.85,329,0)
|
---|
| 1913 | ;;=LOJBAN^^JBO^^
|
---|
| 1914 | ;;^UTILITY(U,$J,.85,330,0)
|
---|
| 1915 | ;;=LOW GERMAN^^NDS^^
|
---|
| 1916 | ;;^UTILITY(U,$J,.85,330,1,0)
|
---|
| 1917 | ;;=^.8501^3^3
|
---|
| 1918 | ;;^UTILITY(U,$J,.85,330,1,1,0)
|
---|
| 1919 | ;;=LOW SAXON
|
---|
| 1920 | ;;^UTILITY(U,$J,.85,330,1,2,0)
|
---|
| 1921 | ;;=GERMAN, LOW
|
---|
| 1922 | ;;^UTILITY(U,$J,.85,330,1,3,0)
|
---|
| 1923 | ;;=SAXON, LOW
|
---|
| 1924 | ;;^UTILITY(U,$J,.85,331,0)
|
---|
| 1925 | ;;=LOZI^^LOZ^^
|
---|
| 1926 | ;;^UTILITY(U,$J,.85,332,0)
|
---|
| 1927 | ;;=LUBA-KATANGA^LU^LUB^^
|
---|
| 1928 | ;;^UTILITY(U,$J,.85,333,0)
|
---|
| 1929 | ;;=LUBA-LULUA^^LUA^^
|
---|
| 1930 | ;;^UTILITY(U,$J,.85,334,0)
|
---|
| 1931 | ;;=LUISENO^^LUI^^
|
---|
| 1932 | ;;^UTILITY(U,$J,.85,335,0)
|
---|
| 1933 | ;;=LUNDA^^LUN^^
|
---|
| 1934 | ;;^UTILITY(U,$J,.85,336,0)
|
---|
| 1935 | ;;=LUO (KENYA AND TANZANIYA)^^LUO^^
|
---|
| 1936 | ;;^UTILITY(U,$J,.85,337,0)
|
---|
| 1937 | ;;=LUSHAI^^LUS^^
|
---|
| 1938 | ;;^UTILITY(U,$J,.85,338,0)
|
---|
| 1939 | ;;=LUXEMBOURGISH^LB^LTZ^^
|
---|
| 1940 | ;;^UTILITY(U,$J,.85,338,1,0)
|
---|
| 1941 | ;;=^.8501^1^1
|
---|
| 1942 | ;;^UTILITY(U,$J,.85,338,1,1,0)
|
---|
| 1943 | ;;=LETZEBURGESCH
|
---|
| 1944 | ;;^UTILITY(U,$J,.85,339,0)
|
---|
| 1945 | ;;=MACEDONIAN^MK^MKD^^MAC
|
---|
| 1946 | ;;^UTILITY(U,$J,.85,340,0)
|
---|
| 1947 | ;;=MADURESE^^MAD^^
|
---|
| 1948 | ;;^UTILITY(U,$J,.85,341,0)
|
---|
| 1949 | ;;=MAGAHI^^MAG^^
|
---|
| 1950 | ;;^UTILITY(U,$J,.85,342,0)
|
---|
| 1951 | ;;=MAITHILI^^MAI^^
|
---|
| 1952 | ;;^UTILITY(U,$J,.85,343,0)
|
---|
| 1953 | ;;=MAKASAR^^MAK^^
|
---|
| 1954 | ;;^UTILITY(U,$J,.85,344,0)
|
---|
| 1955 | ;;=MALAGASY^MG^MLG^^
|
---|
| 1956 | ;;^UTILITY(U,$J,.85,345,0)
|
---|
| 1957 | ;;=MALAY^MS^MSA^^MAY
|
---|
| 1958 | ;;^UTILITY(U,$J,.85,346,0)
|
---|
| 1959 | ;;=MALAYALAM^ML^MAL^^
|
---|
| 1960 | ;;^UTILITY(U,$J,.85,347,0)
|
---|
| 1961 | ;;=MALTESE^MT^MLT^^
|
---|
| 1962 | ;;^UTILITY(U,$J,.85,348,0)
|
---|
| 1963 | ;;=MANCHU^^MNC^^
|
---|
| 1964 | ;;^UTILITY(U,$J,.85,349,0)
|
---|
| 1965 | ;;=MANDAR^^MDR^^
|
---|
| 1966 | ;;^UTILITY(U,$J,.85,350,0)
|
---|
| 1967 | ;;=MANDINGO^^MAN^^
|
---|
| 1968 | ;;^UTILITY(U,$J,.85,351,0)
|
---|
| 1969 | ;;=MANIPURI^^MNI^^
|
---|
| 1970 | ;;^UTILITY(U,$J,.85,352,0)
|
---|
| 1971 | ;;=MANX^GV^GLV^^
|
---|
| 1972 | ;;^UTILITY(U,$J,.85,353,0)
|
---|
| 1973 | ;;=MAORI^MI^MRI^^MAO
|
---|
| 1974 | ;;^UTILITY(U,$J,.85,354,0)
|
---|
| 1975 | ;;=MAPUDUNGUN^^ARN^^
|
---|
| 1976 | ;;^UTILITY(U,$J,.85,354,1,0)
|
---|
| 1977 | ;;=^.8501^1^1
|
---|
| 1978 | ;;^UTILITY(U,$J,.85,354,1,1,0)
|
---|
| 1979 | ;;=MAPUCHE
|
---|
| 1980 | ;;^UTILITY(U,$J,.85,355,0)
|
---|
| 1981 | ;;=MARATHI^MR^MAR^^
|
---|
| 1982 | ;;^UTILITY(U,$J,.85,356,0)
|
---|
| 1983 | ;;=MARI^^CHM^^
|
---|
| 1984 | ;;^UTILITY(U,$J,.85,357,0)
|
---|
| 1985 | ;;=MARSHALLESE^MH^MAH^^
|
---|
| 1986 | ;;^UTILITY(U,$J,.85,358,0)
|
---|
| 1987 | ;;=MARWARI^^MWR^^
|
---|
| 1988 | ;;^UTILITY(U,$J,.85,359,0)
|
---|
| 1989 | ;;=MASAI^^MAS^^
|
---|
| 1990 | ;;^UTILITY(U,$J,.85,360,0)
|
---|
| 1991 | ;;=MENDE^^MEN^^
|
---|
| 1992 | ;;^UTILITY(U,$J,.85,361,0)
|
---|
| 1993 | ;;=MI'KMAQ^^MIC^^
|
---|
| 1994 | ;;^UTILITY(U,$J,.85,361,1,0)
|
---|
| 1995 | ;;=^.8501^1^1
|
---|
| 1996 | ;;^UTILITY(U,$J,.85,361,1,1,0)
|
---|
| 1997 | ;;=MICMAC
|
---|
| 1998 | ;;^UTILITY(U,$J,.85,362,0)
|
---|
| 1999 | ;;=MIDDLE DUTCH^^DUM^^
|
---|
| 2000 | ;;^UTILITY(U,$J,.85,362,1,0)
|
---|
| 2001 | ;;=^.8501^1^1
|
---|
| 2002 | ;;^UTILITY(U,$J,.85,362,1,1,0)
|
---|
| 2003 | ;;=DUTCH, MIDDLE (CA.1050-1350)
|
---|
| 2004 | ;;^UTILITY(U,$J,.85,363,0)
|
---|
| 2005 | ;;=MIDDLE ENGLISH^^ENM^^
|
---|
| 2006 | ;;^UTILITY(U,$J,.85,363,1,0)
|
---|
| 2007 | ;;=^.8501^2^2
|
---|
| 2008 | ;;^UTILITY(U,$J,.85,363,1,1,0)
|
---|
| 2009 | ;;=MIDDLE ENGLISH (1100-1500)
|
---|
| 2010 | ;;^UTILITY(U,$J,.85,363,1,2,0)
|
---|
| 2011 | ;;=ENGLISH, MIDDLE (1100-1500)
|
---|
| 2012 | ;;^UTILITY(U,$J,.85,364,0)
|
---|
| 2013 | ;;=MIDDLE FRENCH^^FRM^^
|
---|
| 2014 | ;;^UTILITY(U,$J,.85,364,1,0)
|
---|
| 2015 | ;;=^.8501^2^2
|
---|
| 2016 | ;;^UTILITY(U,$J,.85,364,1,1,0)
|
---|
| 2017 | ;;=MIDDLE FRENCH (CA. 1400-1600)
|
---|
| 2018 | ;;^UTILITY(U,$J,.85,364,1,2,0)
|
---|
| 2019 | ;;=FRENCH, MIDDLE (CA. 1400-1600)
|
---|
| 2020 | ;;^UTILITY(U,$J,.85,365,0)
|
---|
| 2021 | ;;=MIDDLE HIGH GERMAN^^GMH^^
|
---|
| 2022 | ;;^UTILITY(U,$J,.85,365,1,0)
|
---|
| 2023 | ;;=^.8501^2^2
|
---|
| 2024 | ;;^UTILITY(U,$J,.85,365,1,1,0)
|
---|
| 2025 | ;;=MIDDLE HIGH GERMAN (CA. 1050-1500)
|
---|
| 2026 | ;;^UTILITY(U,$J,.85,365,1,2,0)
|
---|
| 2027 | ;;=GERMAN, MIDDLE HIGH (CA. 1050-1500)
|
---|
| 2028 |
|
---|
| 2029 | DILAI005
|
---|
| 2030 | DILAI005 ; ; 02-NOV-2012
|
---|
| 2031 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2032 | 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
|
---|
| 2033 | Q Q
|
---|
| 2034 | ;;^UTILITY(U,$J,.85,366,0)
|
---|
| 2035 | ;;=MIDDLE IRISH^^MGA^^
|
---|
| 2036 | ;;^UTILITY(U,$J,.85,366,1,0)
|
---|
| 2037 | ;;=^.8501^2^2
|
---|
| 2038 | ;;^UTILITY(U,$J,.85,366,1,1,0)
|
---|
| 2039 | ;;=MIDDLE IRISH (900-1200)
|
---|
| 2040 | ;;^UTILITY(U,$J,.85,366,1,2,0)
|
---|
| 2041 | ;;=IRISH, MIDDLE (900-1200)
|
---|
| 2042 | ;;^UTILITY(U,$J,.85,367,0)
|
---|
| 2043 | ;;=MINANGKABAU^^MIN^^
|
---|
| 2044 | ;;^UTILITY(U,$J,.85,368,0)
|
---|
| 2045 | ;;=MIRANDESE^^MWL^^
|
---|
| 2046 | ;;^UTILITY(U,$J,.85,369,0)
|
---|
| 2047 | ;;=MOHAWK^^MOH^^
|
---|
| 2048 | ;;^UTILITY(U,$J,.85,370,0)
|
---|
| 2049 | ;;=MOKSHA^^MDF^^
|
---|
| 2050 | ;;^UTILITY(U,$J,.85,371,0)
|
---|
| 2051 | ;;=MONGO^^LOL^^
|
---|
| 2052 | ;;^UTILITY(U,$J,.85,372,0)
|
---|
| 2053 | ;;=MONGOLIAN^MN^MON^^
|
---|
| 2054 | ;;^UTILITY(U,$J,.85,373,0)
|
---|
| 2055 | ;;=MOSSI^^MOS^^
|
---|
| 2056 | ;;^UTILITY(U,$J,.85,374,0)
|
---|
| 2057 | ;;=N'KO^^NQO^^
|
---|
| 2058 | ;;^UTILITY(U,$J,.85,375,0)
|
---|
| 2059 | ;;=NAURU^NA^NAU^^
|
---|
| 2060 | ;;^UTILITY(U,$J,.85,376,0)
|
---|
| 2061 | ;;=NAVAJO^NV^NAV^^
|
---|
| 2062 | ;;^UTILITY(U,$J,.85,376,1,0)
|
---|
| 2063 | ;;=^.8501^1^1
|
---|
| 2064 | ;;^UTILITY(U,$J,.85,376,1,1,0)
|
---|
| 2065 | ;;=NAVAHO
|
---|
| 2066 | ;;^UTILITY(U,$J,.85,377,0)
|
---|
| 2067 | ;;=NDEBELE, NORTH^ND^NDE^^
|
---|
| 2068 | ;;^UTILITY(U,$J,.85,377,1,0)
|
---|
| 2069 | ;;=^.8501^1^1
|
---|
| 2070 | ;;^UTILITY(U,$J,.85,377,1,1,0)
|
---|
| 2071 | ;;=NORTH NDEBELE
|
---|
| 2072 | ;;^UTILITY(U,$J,.85,378,0)
|
---|
| 2073 | ;;=NDEBELE, SOUTH^NR^NBL^^
|
---|
| 2074 | ;;^UTILITY(U,$J,.85,378,1,0)
|
---|
| 2075 | ;;=^.8501^1^1
|
---|
| 2076 | ;;^UTILITY(U,$J,.85,378,1,1,0)
|
---|
| 2077 | ;;=SOUTH NDEBELE
|
---|
| 2078 | ;;^UTILITY(U,$J,.85,379,0)
|
---|
| 2079 | ;;=NDONGA^NG^NDO^^
|
---|
| 2080 | ;;^UTILITY(U,$J,.85,380,0)
|
---|
| 2081 | ;;=NEAPOLITAN^^NAP^^
|
---|
| 2082 | ;;^UTILITY(U,$J,.85,381,0)
|
---|
| 2083 | ;;=NEPAL BHASA^^NEW^^
|
---|
| 2084 | ;;^UTILITY(U,$J,.85,381,1,0)
|
---|
| 2085 | ;;=^.8501^1^1
|
---|
| 2086 | ;;^UTILITY(U,$J,.85,381,1,1,0)
|
---|
| 2087 | ;;=NEWARI
|
---|
| 2088 | ;;^UTILITY(U,$J,.85,382,0)
|
---|
| 2089 | ;;=NEPALI^NE^NEP^^
|
---|
| 2090 | ;;^UTILITY(U,$J,.85,383,0)
|
---|
| 2091 | ;;=NIAS^^NIA^^
|
---|
| 2092 | ;;^UTILITY(U,$J,.85,384,0)
|
---|
| 2093 | ;;=NIUEAN^^NIU^^
|
---|
| 2094 | ;;^UTILITY(U,$J,.85,385,0)
|
---|
| 2095 | ;;=NO LINGUISTIC CONTENT^^ZXX^^
|
---|
| 2096 | ;;^UTILITY(U,$J,.85,385,1,0)
|
---|
| 2097 | ;;=^.8501^1^1
|
---|
| 2098 | ;;^UTILITY(U,$J,.85,385,1,1,0)
|
---|
| 2099 | ;;=NOT APPLICABLE
|
---|
| 2100 | ;;^UTILITY(U,$J,.85,386,0)
|
---|
| 2101 | ;;=NOGAI^^NOG^^
|
---|
| 2102 | ;;^UTILITY(U,$J,.85,387,0)
|
---|
| 2103 | ;;=NORWEGIAN^NO^NOR^^
|
---|
| 2104 | ;;^UTILITY(U,$J,.85,388,0)
|
---|
| 2105 | ;;=NORWEGIAN BOKMAL^NB^NOB^^
|
---|
| 2106 | ;;^UTILITY(U,$J,.85,388,1,0)
|
---|
| 2107 | ;;=^.8501^1^1
|
---|
| 2108 | ;;^UTILITY(U,$J,.85,388,1,1,0)
|
---|
| 2109 | ;;=BOKMAL, NORWEGIAN
|
---|
| 2110 | ;;^UTILITY(U,$J,.85,389,0)
|
---|
| 2111 | ;;=NORWEGIAN NYNORSK^NN^NNO^^
|
---|
| 2112 | ;;^UTILITY(U,$J,.85,389,1,0)
|
---|
| 2113 | ;;=^.8501^1^1
|
---|
| 2114 | ;;^UTILITY(U,$J,.85,389,1,1,0)
|
---|
| 2115 | ;;=NYNORSK, NORWEGIAN
|
---|
| 2116 | ;;^UTILITY(U,$J,.85,390,0)
|
---|
| 2117 | ;;=NUOSU^II^III^^
|
---|
| 2118 | ;;^UTILITY(U,$J,.85,390,1,0)
|
---|
| 2119 | ;;=^.8501^5^5
|
---|
| 2120 | ;;^UTILITY(U,$J,.85,390,1,1,0)
|
---|
| 2121 | ;;=BLACK YI
|
---|
| 2122 | ;;^UTILITY(U,$J,.85,390,1,2,0)
|
---|
| 2123 | ;;=LIANGSHAN YI
|
---|
| 2124 | ;;^UTILITY(U,$J,.85,390,1,3,0)
|
---|
| 2125 | ;;=NORTHERN YI
|
---|
| 2126 | ;;^UTILITY(U,$J,.85,390,1,4,0)
|
---|
| 2127 | ;;=NOSU YI
|
---|
| 2128 | ;;^UTILITY(U,$J,.85,390,1,5,0)
|
---|
| 2129 | ;;=SICHUAN YI
|
---|
| 2130 | ;;^UTILITY(U,$J,.85,391,0)
|
---|
| 2131 | ;;=NYAMWEZI^^NYM^^
|
---|
| 2132 | ;;^UTILITY(U,$J,.85,392,0)
|
---|
| 2133 | ;;=NYANKOLE^^NYN^^
|
---|
| 2134 | ;;^UTILITY(U,$J,.85,393,0)
|
---|
| 2135 | ;;=NYORO^^NYO^^
|
---|
| 2136 | ;;^UTILITY(U,$J,.85,394,0)
|
---|
| 2137 | ;;=NZIMA^^NZI^^
|
---|
| 2138 | ;;^UTILITY(U,$J,.85,395,0)
|
---|
| 2139 | ;;=OCCITAN^OC^OCI^^
|
---|
| 2140 | ;;^UTILITY(U,$J,.85,395,1,0)
|
---|
| 2141 | ;;=^.8501^1^1
|
---|
| 2142 | ;;^UTILITY(U,$J,.85,395,1,1,0)
|
---|
| 2143 | ;;=OCCITAN (POST 1500)
|
---|
| 2144 | ;;^UTILITY(U,$J,.85,396,0)
|
---|
| 2145 | ;;=OFFICIAL ARAMAIC^^ARC^^
|
---|
| 2146 | ;;^UTILITY(U,$J,.85,396,1,0)
|
---|
| 2147 | ;;=^.8501^2^2
|
---|
| 2148 | ;;^UTILITY(U,$J,.85,396,1,1,0)
|
---|
| 2149 | ;;=OFFICIAL ARAMAIC (700-300 BCE)
|
---|
| 2150 | ;;^UTILITY(U,$J,.85,396,1,2,0)
|
---|
| 2151 | ;;=ARAMAIC, OFFICIAL (700-300 BCE)
|
---|
| 2152 | ;;^UTILITY(U,$J,.85,397,0)
|
---|
| 2153 | ;;=OJIBWE^OJ^OJI^^
|
---|
| 2154 | ;;^UTILITY(U,$J,.85,397,1,0)
|
---|
| 2155 | ;;=^.8501^4^4
|
---|
| 2156 | ;;^UTILITY(U,$J,.85,397,1,1,0)
|
---|
| 2157 | ;;=OJIBWA
|
---|
| 2158 | ;;^UTILITY(U,$J,.85,397,1,2,0)
|
---|
| 2159 | ;;=OJIBWAY
|
---|
| 2160 | ;;^UTILITY(U,$J,.85,397,1,3,0)
|
---|
| 2161 | ;;=CHIPPEWA
|
---|
| 2162 | ;;^UTILITY(U,$J,.85,397,1,4,0)
|
---|
| 2163 | ;;=ANISHINAABEMOWIN
|
---|
| 2164 | ;;^UTILITY(U,$J,.85,398,0)
|
---|
| 2165 | ;;=OLD ENGLISH^^ANG^^
|
---|
| 2166 | ;;^UTILITY(U,$J,.85,398,1,0)
|
---|
| 2167 | ;;=^.8501^2^2
|
---|
| 2168 | ;;^UTILITY(U,$J,.85,398,1,1,0)
|
---|
| 2169 | ;;=OLD ENGLISH (CA. 450-1100)
|
---|
| 2170 | ;;^UTILITY(U,$J,.85,398,1,2,0)
|
---|
| 2171 | ;;=ENGLISH, OLD (CA. 450-1100)
|
---|
| 2172 | ;;^UTILITY(U,$J,.85,399,0)
|
---|
| 2173 | ;;=OLD FRENCH^^FRO^^
|
---|
| 2174 | ;;^UTILITY(U,$J,.85,399,1,0)
|
---|
| 2175 | ;;=^.8501^2^2
|
---|
| 2176 | ;;^UTILITY(U,$J,.85,399,1,1,0)
|
---|
| 2177 | ;;=OLD FRENCH (842-CA. 1400)
|
---|
| 2178 | ;;^UTILITY(U,$J,.85,399,1,2,0)
|
---|
| 2179 | ;;=FRENCH, OLD (842-CA. 1400)
|
---|
| 2180 | ;;^UTILITY(U,$J,.85,400,0)
|
---|
| 2181 | ;;=OLD HIGH GERMAN^^GOH^^
|
---|
| 2182 | ;;^UTILITY(U,$J,.85,400,1,0)
|
---|
| 2183 | ;;=^.8501^2^2
|
---|
| 2184 | ;;^UTILITY(U,$J,.85,400,1,1,0)
|
---|
| 2185 | ;;=OLD HIGH GERMAN (CA. 750-1050)
|
---|
| 2186 | ;;^UTILITY(U,$J,.85,400,1,2,0)
|
---|
| 2187 | ;;=GERMAN, OLD HIGH (CA. 750-1050)
|
---|
| 2188 | ;;^UTILITY(U,$J,.85,401,0)
|
---|
| 2189 | ;;=OLD IRISH^^SGA^^
|
---|
| 2190 | ;;^UTILITY(U,$J,.85,401,1,0)
|
---|
| 2191 | ;;=^.8501^2^2
|
---|
| 2192 | ;;^UTILITY(U,$J,.85,401,1,1,0)
|
---|
| 2193 | ;;=OLD IRISH (TO 900)
|
---|
| 2194 | ;;^UTILITY(U,$J,.85,401,1,2,0)
|
---|
| 2195 | ;;=IRISH, OLD (TO 900)
|
---|
| 2196 | ;;^UTILITY(U,$J,.85,402,0)
|
---|
| 2197 | ;;=OLD NORSE^^NON^^
|
---|
| 2198 | ;;^UTILITY(U,$J,.85,402,1,0)
|
---|
| 2199 | ;;=^.8501^1^1
|
---|
| 2200 | ;;^UTILITY(U,$J,.85,402,1,1,0)
|
---|
| 2201 | ;;=NORSE, OLD
|
---|
| 2202 | ;;^UTILITY(U,$J,.85,403,0)
|
---|
| 2203 | ;;=OLD PERSIAN^^PEO^^PEO
|
---|
| 2204 | ;;^UTILITY(U,$J,.85,403,1,0)
|
---|
| 2205 | ;;=^.8501^2^2
|
---|
| 2206 | ;;^UTILITY(U,$J,.85,403,1,1,0)
|
---|
| 2207 | ;;=OLD PERSIAN (CA. 600-400 B.C.)
|
---|
| 2208 | ;;^UTILITY(U,$J,.85,403,1,2,0)
|
---|
| 2209 | ;;=PERSIAN, OLD (CA. 600-400 B.C.)
|
---|
| 2210 | ;;^UTILITY(U,$J,.85,404,0)
|
---|
| 2211 | ;;=OLD PROVENCAL^^PRO^^PRO
|
---|
| 2212 | ;;^UTILITY(U,$J,.85,404,1,0)
|
---|
| 2213 | ;;=^.8501^2^2
|
---|
| 2214 | ;;^UTILITY(U,$J,.85,404,1,1,0)
|
---|
| 2215 | ;;=OLD PROVENCAL (TO 1500)
|
---|
| 2216 | ;;^UTILITY(U,$J,.85,404,1,2,0)
|
---|
| 2217 | ;;=PROVENCAL, OLD (TO 1500)
|
---|
| 2218 | ;;^UTILITY(U,$J,.85,405,0)
|
---|
| 2219 | ;;=ORIYA^OR^ORI^^
|
---|
| 2220 | ;;^UTILITY(U,$J,.85,406,0)
|
---|
| 2221 | ;;=OROMO^OM^ORM^^
|
---|
| 2222 | ;;^UTILITY(U,$J,.85,407,0)
|
---|
| 2223 | ;;=OSAGE^^OSA^^
|
---|
| 2224 | ;;^UTILITY(U,$J,.85,408,0)
|
---|
| 2225 | ;;=OSSETIAN^OS^OSS^^
|
---|
| 2226 | ;;^UTILITY(U,$J,.85,408,1,0)
|
---|
| 2227 | ;;=^.8501^1^1
|
---|
| 2228 | ;;^UTILITY(U,$J,.85,408,1,1,0)
|
---|
| 2229 | ;;=OSSETIC
|
---|
| 2230 | ;;^UTILITY(U,$J,.85,409,0)
|
---|
| 2231 | ;;=OTTOMAN TURKISH^^OTA^^OTA
|
---|
| 2232 | ;;^UTILITY(U,$J,.85,409,1,0)
|
---|
| 2233 | ;;=^.8501^2^2
|
---|
| 2234 | ;;^UTILITY(U,$J,.85,409,1,1,0)
|
---|
| 2235 | ;;=OTTOMAN TURKISH (1500-1928)
|
---|
| 2236 | ;;^UTILITY(U,$J,.85,409,1,2,0)
|
---|
| 2237 | ;;=TURKISH, OTTOMAN (1500-1928)
|
---|
| 2238 | ;;^UTILITY(U,$J,.85,410,0)
|
---|
| 2239 | ;;=PAHLAVI^^PAL^^
|
---|
| 2240 | ;;^UTILITY(U,$J,.85,411,0)
|
---|
| 2241 | ;;=PALAUAN^^PAU^^
|
---|
| 2242 | ;;^UTILITY(U,$J,.85,412,0)
|
---|
| 2243 | ;;=PALI^PI^PLI^^
|
---|
| 2244 | ;;^UTILITY(U,$J,.85,413,0)
|
---|
| 2245 | ;;=PAMPANGA^^PAM^^
|
---|
| 2246 | ;;^UTILITY(U,$J,.85,413,1,0)
|
---|
| 2247 | ;;=^.8501^1^1
|
---|
| 2248 | ;;^UTILITY(U,$J,.85,413,1,1,0)
|
---|
| 2249 | ;;=KAPAMPANGAN
|
---|
| 2250 | ;;^UTILITY(U,$J,.85,414,0)
|
---|
| 2251 | ;;=PANGASINAN^^PAG^^
|
---|
| 2252 | ;;^UTILITY(U,$J,.85,415,0)
|
---|
| 2253 | ;;=PAPIAMENTO^^PAP^^
|
---|
| 2254 | ;;^UTILITY(U,$J,.85,416,0)
|
---|
| 2255 | ;;=PASHTO^PS^PUS^^
|
---|
| 2256 | ;;^UTILITY(U,$J,.85,416,1,0)
|
---|
| 2257 | ;;=^.8501^1^1
|
---|
| 2258 | ;;^UTILITY(U,$J,.85,416,1,1,0)
|
---|
| 2259 | ;;=PUSHTO
|
---|
| 2260 | ;;^UTILITY(U,$J,.85,417,0)
|
---|
| 2261 | ;;=PEDI^^NSO^^
|
---|
| 2262 | ;;^UTILITY(U,$J,.85,417,1,0)
|
---|
| 2263 | ;;=^.8501^3^3
|
---|
| 2264 | ;;^UTILITY(U,$J,.85,417,1,1,0)
|
---|
| 2265 | ;;=SEPEDI
|
---|
| 2266 | ;;^UTILITY(U,$J,.85,417,1,2,0)
|
---|
| 2267 | ;;=NORTHERN SOTHO
|
---|
| 2268 | ;;^UTILITY(U,$J,.85,417,1,3,0)
|
---|
| 2269 | ;;=SOTHO, NORTHERN
|
---|
| 2270 | ;;^UTILITY(U,$J,.85,418,0)
|
---|
| 2271 | ;;=PERSIAN^FA^FAS^^PER
|
---|
| 2272 | ;;^UTILITY(U,$J,.85,418,1,0)
|
---|
| 2273 | ;;=^.8501^1^1
|
---|
| 2274 | ;;^UTILITY(U,$J,.85,418,1,1,0)
|
---|
| 2275 | ;;=FARSI
|
---|
| 2276 | ;;^UTILITY(U,$J,.85,419,0)
|
---|
| 2277 | ;;=PHOENICIAN^^PHN^^
|
---|
| 2278 | ;;^UTILITY(U,$J,.85,420,0)
|
---|
| 2279 | ;;=POHNPEIAN^^PON^^
|
---|
| 2280 | ;;^UTILITY(U,$J,.85,421,0)
|
---|
| 2281 | ;;=POLISH^PL^POL^^
|
---|
| 2282 | ;;^UTILITY(U,$J,.85,422,0)
|
---|
| 2283 | ;;=PUNJABI^PA^PAN^^
|
---|
| 2284 | ;;^UTILITY(U,$J,.85,422,1,0)
|
---|
| 2285 | ;;=^.8501^1^1
|
---|
| 2286 | ;;^UTILITY(U,$J,.85,422,1,1,0)
|
---|
| 2287 | ;;=PANJABI
|
---|
| 2288 | ;;^UTILITY(U,$J,.85,423,0)
|
---|
| 2289 | ;;=QUECHUA^QU^QUE^^
|
---|
| 2290 | ;;^UTILITY(U,$J,.85,424,0)
|
---|
| 2291 | ;;=RAJASTHANI^^RAJ^^
|
---|
| 2292 | ;;^UTILITY(U,$J,.85,425,0)
|
---|
| 2293 | ;;=RAPANUI^^RAP^^
|
---|
| 2294 | ;;^UTILITY(U,$J,.85,426,0)
|
---|
| 2295 | ;;=RAROTONGAN^^RAR^^
|
---|
| 2296 | ;;^UTILITY(U,$J,.85,426,1,0)
|
---|
| 2297 | ;;=^.8501^1^1
|
---|
| 2298 | ;;^UTILITY(U,$J,.85,426,1,1,0)
|
---|
| 2299 | ;;=COOK ISLANDS MAORI
|
---|
| 2300 | ;;^UTILITY(U,$J,.85,428,0)
|
---|
| 2301 | ;;=ROMANIAN^RO^RON^^RUM
|
---|
| 2302 | ;;^UTILITY(U,$J,.85,428,1,0)
|
---|
| 2303 | ;;=^.8501^2^2
|
---|
| 2304 | ;;^UTILITY(U,$J,.85,428,1,1,0)
|
---|
| 2305 | ;;=MOLDAVIAN
|
---|
| 2306 | ;;^UTILITY(U,$J,.85,428,1,2,0)
|
---|
| 2307 | ;;=MOLDOVAN
|
---|
| 2308 | ;;^UTILITY(U,$J,.85,429,0)
|
---|
| 2309 | ;;=ROMANSH^RM^ROH^^
|
---|
| 2310 | ;;^UTILITY(U,$J,.85,430,0)
|
---|
| 2311 | ;;=ROMANY^^ROM^^
|
---|
| 2312 | ;;^UTILITY(U,$J,.85,431,0)
|
---|
| 2313 | ;;=RUNDI^RN^RUN^^
|
---|
| 2314 | ;;^UTILITY(U,$J,.85,431,1,0)
|
---|
| 2315 | ;;=^.8501^1^1
|
---|
| 2316 | ;;^UTILITY(U,$J,.85,431,1,1,0)
|
---|
| 2317 | ;;=KIRUNDI
|
---|
| 2318 | ;;^UTILITY(U,$J,.85,432,0)
|
---|
| 2319 | ;;=SAMARITAN ARAMAIC^^SAM^^
|
---|
| 2320 | ;;^UTILITY(U,$J,.85,433,0)
|
---|
| 2321 | ;;=SAMI, LULE^^SMJ^^
|
---|
| 2322 | ;;^UTILITY(U,$J,.85,433,1,0)
|
---|
| 2323 | ;;=^.8501^1^1
|
---|
| 2324 | ;;^UTILITY(U,$J,.85,433,1,1,0)
|
---|
| 2325 | ;;=LULE SAMI
|
---|
| 2326 | ;;^UTILITY(U,$J,.85,434,0)
|
---|
| 2327 | ;;=SAMI, NORTHERN^SE^SME^^
|
---|
| 2328 | ;;^UTILITY(U,$J,.85,434,1,0)
|
---|
| 2329 | ;;=^.8501^1^1
|
---|
| 2330 | ;;^UTILITY(U,$J,.85,434,1,1,0)
|
---|
| 2331 | ;;=NORTHERN SAMI
|
---|
| 2332 | ;;^UTILITY(U,$J,.85,435,0)
|
---|
| 2333 | ;;=SAMI, SKOLT^^SMS^^
|
---|
| 2334 | ;;^UTILITY(U,$J,.85,435,1,0)
|
---|
| 2335 | ;;=^.8501^1^1
|
---|
| 2336 | ;;^UTILITY(U,$J,.85,435,1,1,0)
|
---|
| 2337 | ;;=SKOLT SAMI
|
---|
| 2338 | ;;^UTILITY(U,$J,.85,436,0)
|
---|
| 2339 | ;;=SAMI, SOUTHERN^^SMA^^
|
---|
| 2340 | ;;^UTILITY(U,$J,.85,436,1,0)
|
---|
| 2341 | ;;=^.8501^1^1
|
---|
| 2342 | ;;^UTILITY(U,$J,.85,436,1,1,0)
|
---|
| 2343 | ;;=SOUTHERN SAMI
|
---|
| 2344 | ;;^UTILITY(U,$J,.85,437,0)
|
---|
| 2345 | ;;=SAMOAN^SM^SMO^^
|
---|
| 2346 | ;;^UTILITY(U,$J,.85,438,0)
|
---|
| 2347 | ;;=SANDAWE^^SAD^^
|
---|
| 2348 | ;;^UTILITY(U,$J,.85,439,0)
|
---|
| 2349 | ;;=SANGO^SG^SAG^^
|
---|
| 2350 | ;;^UTILITY(U,$J,.85,440,0)
|
---|
| 2351 | ;;=SANSKRIT^SA^SAN^^
|
---|
| 2352 | ;;^UTILITY(U,$J,.85,441,0)
|
---|
| 2353 | ;;=SANTALI^^SAT^^
|
---|
| 2354 | ;;^UTILITY(U,$J,.85,442,0)
|
---|
| 2355 | ;;=SARDINIAN^SC^SRD^^
|
---|
| 2356 | ;;^UTILITY(U,$J,.85,443,0)
|
---|
| 2357 | ;;=SASAK^^SAS^^
|
---|
| 2358 | ;;^UTILITY(U,$J,.85,444,0)
|
---|
| 2359 | ;;=SCOTS^^SCO^^
|
---|
| 2360 | ;;^UTILITY(U,$J,.85,445,0)
|
---|
| 2361 | ;;=SELKUP^^SEL^^
|
---|
| 2362 | ;;^UTILITY(U,$J,.85,446,0)
|
---|
| 2363 | ;;=SERBIAN^SR^SRP^^
|
---|
| 2364 | ;;^UTILITY(U,$J,.85,447,0)
|
---|
| 2365 | ;;=SERER^^SRR^^
|
---|
| 2366 | ;;^UTILITY(U,$J,.85,448,0)
|
---|
| 2367 | ;;=SHAN^^SHN^^
|
---|
| 2368 | ;;^UTILITY(U,$J,.85,449,0)
|
---|
| 2369 | ;;=SHONA^SN^SNA^^
|
---|
| 2370 | ;;^UTILITY(U,$J,.85,450,0)
|
---|
| 2371 | ;;=SICILIAN^^SCN^^
|
---|
| 2372 | ;;^UTILITY(U,$J,.85,451,0)
|
---|
| 2373 | ;;=SIDAMO^^SID^^
|
---|
| 2374 | ;;^UTILITY(U,$J,.85,452,0)
|
---|
| 2375 | ;;=SIKSIKA^^BLA^^
|
---|
| 2376 | ;;^UTILITY(U,$J,.85,453,0)
|
---|
| 2377 | ;;=SINDHI^SD^SND^^
|
---|
| 2378 | ;;^UTILITY(U,$J,.85,454,0)
|
---|
| 2379 | ;;=SINHALA^SI^SIN^^
|
---|
| 2380 | ;;^UTILITY(U,$J,.85,454,1,0)
|
---|
| 2381 | ;;=^.8501^1^1
|
---|
| 2382 | ;;^UTILITY(U,$J,.85,454,1,1,0)
|
---|
| 2383 | ;;=SINHALESE
|
---|
| 2384 | ;;^UTILITY(U,$J,.85,455,0)
|
---|
| 2385 | ;;=SLAVE (ATHAPASKAN)^^DEN^^
|
---|
| 2386 | ;;^UTILITY(U,$J,.85,455,1,0)
|
---|
| 2387 | ;;=^.8501^1^1
|
---|
| 2388 | ;;^UTILITY(U,$J,.85,455,1,1,0)
|
---|
| 2389 | ;;=SLAVEY
|
---|
| 2390 | ;;^UTILITY(U,$J,.85,456,0)
|
---|
| 2391 | ;;=SLAVONIC, CHURCH^CU^CHU^^
|
---|
| 2392 | ;;^UTILITY(U,$J,.85,456,1,0)
|
---|
| 2393 | ;;=^.8501^5^5
|
---|
| 2394 | ;;^UTILITY(U,$J,.85,456,1,1,0)
|
---|
| 2395 | ;;=CHURCH SLAVONIC
|
---|
| 2396 | ;;^UTILITY(U,$J,.85,456,1,2,0)
|
---|
| 2397 | ;;=CHURCH SLAVIC
|
---|
| 2398 | ;;^UTILITY(U,$J,.85,456,1,3,0)
|
---|
| 2399 | ;;=OLD CHURCH SLAVONIC
|
---|
| 2400 | ;;^UTILITY(U,$J,.85,456,1,4,0)
|
---|
| 2401 | ;;=OLD BULGARIAN
|
---|
| 2402 | ;;^UTILITY(U,$J,.85,456,1,5,0)
|
---|
| 2403 | ;;=OLD SLAVONIC
|
---|
| 2404 | ;;^UTILITY(U,$J,.85,457,0)
|
---|
| 2405 | ;;=SLOVAK^SK^SLK^^SLO
|
---|
| 2406 | ;;^UTILITY(U,$J,.85,458,0)
|
---|
| 2407 | ;;=SLOVENIAN^SL^SLV^^
|
---|
| 2408 | ;;^UTILITY(U,$J,.85,458,1,0)
|
---|
| 2409 | ;;=^.8501^1^1
|
---|
| 2410 | ;;^UTILITY(U,$J,.85,458,1,1,0)
|
---|
| 2411 | ;;=SLOVENE
|
---|
| 2412 | ;;^UTILITY(U,$J,.85,459,0)
|
---|
| 2413 | ;;=SOGDIAN^^SOG^^
|
---|
| 2414 | ;;^UTILITY(U,$J,.85,460,0)
|
---|
| 2415 | ;;=SOMALI^SO^SOM^^
|
---|
| 2416 | ;;^UTILITY(U,$J,.85,461,0)
|
---|
| 2417 | ;;=SONINKE^^SNK^^
|
---|
| 2418 | ;;^UTILITY(U,$J,.85,462,0)
|
---|
| 2419 | ;;=SORBIAN, LOWER^^DSB^^
|
---|
| 2420 | ;;^UTILITY(U,$J,.85,462,1,0)
|
---|
| 2421 | ;;=^.8501^1^1
|
---|
| 2422 | ;;^UTILITY(U,$J,.85,462,1,1,0)
|
---|
| 2423 | ;;=LOWER SORBIAN
|
---|
| 2424 | ;;^UTILITY(U,$J,.85,463,0)
|
---|
| 2425 | ;;=SORBIAN, UPPER^^HSB^^
|
---|
| 2426 | ;;^UTILITY(U,$J,.85,463,1,0)
|
---|
| 2427 | ;;=^.8501^1^1
|
---|
| 2428 | ;;^UTILITY(U,$J,.85,463,1,1,0)
|
---|
| 2429 | ;;=UPPER SORBIAN
|
---|
| 2430 | ;;^UTILITY(U,$J,.85,464,0)
|
---|
| 2431 | ;;=SOTHO, SOUTHERN^ST^SOT^^
|
---|
| 2432 | ;;^UTILITY(U,$J,.85,464,1,0)
|
---|
| 2433 | ;;=^.8501^1^1
|
---|
| 2434 | ;;^UTILITY(U,$J,.85,464,1,1,0)
|
---|
| 2435 | ;;=SOUTHERN SOTHO
|
---|
| 2436 | ;;^UTILITY(U,$J,.85,465,0)
|
---|
| 2437 | ;;=SRANAN TONGO^^SRN^^
|
---|
| 2438 | ;;^UTILITY(U,$J,.85,466,0)
|
---|
| 2439 | ;;=SUKUMA^^SUK^^
|
---|
| 2440 | ;;^UTILITY(U,$J,.85,467,0)
|
---|
| 2441 | ;;=SUMERIAN^^SUX^^
|
---|
| 2442 | ;;^UTILITY(U,$J,.85,468,0)
|
---|
| 2443 | ;;=SUNDANESE^SU^SUN^^
|
---|
| 2444 | ;;^UTILITY(U,$J,.85,469,0)
|
---|
| 2445 | ;;=SUSU^^SUS^^
|
---|
| 2446 | ;;^UTILITY(U,$J,.85,470,0)
|
---|
| 2447 | ;;=SWAHILI^SW^SWA^^
|
---|
| 2448 | ;;^UTILITY(U,$J,.85,471,0)
|
---|
| 2449 | ;;=SWATI^SS^SSW^^
|
---|
| 2450 | ;;^UTILITY(U,$J,.85,472,0)
|
---|
| 2451 | ;;=SWEDISH^SV^SWE^^
|
---|
| 2452 | ;;^UTILITY(U,$J,.85,473,0)
|
---|
| 2453 | ;;=SWISS GERMAN^^GSW^^
|
---|
| 2454 | ;;^UTILITY(U,$J,.85,473,1,0)
|
---|
| 2455 | ;;=^.8501^3^3
|
---|
| 2456 | ;;^UTILITY(U,$J,.85,473,1,1,0)
|
---|
| 2457 | ;;=GERMAN, SWISS
|
---|
| 2458 | ;;^UTILITY(U,$J,.85,473,1,2,0)
|
---|
| 2459 | ;;=ALEMANNIC
|
---|
| 2460 | ;;^UTILITY(U,$J,.85,473,1,3,0)
|
---|
| 2461 | ;;=ALSATIAN
|
---|
| 2462 | ;;^UTILITY(U,$J,.85,474,0)
|
---|
| 2463 | ;;=SYRIAC^^SYR^^
|
---|
| 2464 | ;;^UTILITY(U,$J,.85,475,0)
|
---|
| 2465 | ;;=TAGALOG^TL^TGL^^
|
---|
| 2466 | ;;^UTILITY(U,$J,.85,476,0)
|
---|
| 2467 | ;;=TAHITIAN^TY^TAH^^
|
---|
| 2468 | ;;^UTILITY(U,$J,.85,477,0)
|
---|
| 2469 | ;;=TAJIK^TG^TGK^^
|
---|
| 2470 | ;;^UTILITY(U,$J,.85,478,0)
|
---|
| 2471 | ;;=TAMASHEK^^TMH^^
|
---|
| 2472 | ;;^UTILITY(U,$J,.85,479,0)
|
---|
| 2473 | ;;=TAMIL^TA^TAM^^
|
---|
| 2474 | ;;^UTILITY(U,$J,.85,480,0)
|
---|
| 2475 | ;;=TATAR^TT^TAT^^
|
---|
| 2476 | ;;^UTILITY(U,$J,.85,481,0)
|
---|
| 2477 | ;;=TELUGU^TE^TEL^^
|
---|
| 2478 | ;;^UTILITY(U,$J,.85,482,0)
|
---|
| 2479 | ;;=TERENO^^TER^^
|
---|
| 2480 | ;;^UTILITY(U,$J,.85,483,0)
|
---|
| 2481 | ;;=TETUM^^TET^^
|
---|
| 2482 | ;;^UTILITY(U,$J,.85,484,0)
|
---|
| 2483 | ;;=THAI^TH^THA^^
|
---|
| 2484 | ;;^UTILITY(U,$J,.85,485,0)
|
---|
| 2485 | ;;=TIBETAN^BO^BOD^^TIB
|
---|
| 2486 | ;;^UTILITY(U,$J,.85,485,1,0)
|
---|
| 2487 | ;;=^.8501^2^2
|
---|
| 2488 | ;;^UTILITY(U,$J,.85,485,1,1,0)
|
---|
| 2489 | ;;=TIBETAN STANDARD
|
---|
| 2490 | ;;^UTILITY(U,$J,.85,485,1,2,0)
|
---|
| 2491 | ;;=TIBETAN, CENTRAL
|
---|
| 2492 | ;;^UTILITY(U,$J,.85,486,0)
|
---|
| 2493 | ;;=TIGRE^^TIG^^
|
---|
| 2494 | ;;^UTILITY(U,$J,.85,487,0)
|
---|
| 2495 | ;;=TIGRINYA^TI^TIR^^
|
---|
| 2496 | ;;^UTILITY(U,$J,.85,488,0)
|
---|
| 2497 | ;;=TIMNE^^TEM^^
|
---|
| 2498 | ;;^UTILITY(U,$J,.85,489,0)
|
---|
| 2499 | ;;=TIV^^TIV^^
|
---|
| 2500 | ;;^UTILITY(U,$J,.85,490,0)
|
---|
| 2501 | ;;=TLINGIT^^TLI^^
|
---|
| 2502 | ;;^UTILITY(U,$J,.85,491,0)
|
---|
| 2503 | ;;=TOK PISIN^^TPI^^
|
---|
| 2504 | ;;^UTILITY(U,$J,.85,492,0)
|
---|
| 2505 | ;;=TOKELAU^^TKL^^
|
---|
| 2506 | ;;^UTILITY(U,$J,.85,493,0)
|
---|
| 2507 | ;;=TONGA (NYASA)^^TOG^^
|
---|
| 2508 | ;;^UTILITY(U,$J,.85,494,0)
|
---|
| 2509 | ;;=TONGA (TONGA ISLANDS)^TO^TON^^
|
---|
| 2510 | ;;^UTILITY(U,$J,.85,494,1,0)
|
---|
| 2511 | ;;=^.8501^1^1
|
---|
| 2512 | ;;^UTILITY(U,$J,.85,494,1,1,0)
|
---|
| 2513 | ;;=TONGA ISLANDS
|
---|
| 2514 | ;;^UTILITY(U,$J,.85,495,0)
|
---|
| 2515 | ;;=TSIMSHIAN^^TSI^^
|
---|
| 2516 | ;;^UTILITY(U,$J,.85,496,0)
|
---|
| 2517 | ;;=TSONGA^TS^TSO^^
|
---|
| 2518 | ;;^UTILITY(U,$J,.85,497,0)
|
---|
| 2519 | ;;=TSWANA^TN^TSN^^
|
---|
| 2520 | ;;^UTILITY(U,$J,.85,498,0)
|
---|
| 2521 | ;;=TUMBUKA^^TUM^^
|
---|
| 2522 | ;;^UTILITY(U,$J,.85,499,0)
|
---|
| 2523 | ;;=TURKISH^TR^TUR^^
|
---|
| 2524 | ;;^UTILITY(U,$J,.85,500,0)
|
---|
| 2525 | ;;=TURKMEN^TK^TUK^^
|
---|
| 2526 | ;;^UTILITY(U,$J,.85,501,0)
|
---|
| 2527 | ;;=TUVALU^^TVL^^
|
---|
| 2528 | ;;^UTILITY(U,$J,.85,502,0)
|
---|
| 2529 | ;;=TUVINIAN^^TYV^^
|
---|
| 2530 | ;;^UTILITY(U,$J,.85,503,0)
|
---|
| 2531 | ;;=TWI^TW^TWI^^
|
---|
| 2532 | ;;^UTILITY(U,$J,.85,504,0)
|
---|
| 2533 | ;;=UDMURT^^UDM^^
|
---|
| 2534 | ;;^UTILITY(U,$J,.85,505,0)
|
---|
| 2535 | ;;=UGARITIC^^UGA^^
|
---|
| 2536 | ;;^UTILITY(U,$J,.85,506,0)
|
---|
| 2537 | ;;=UIGHUR^UG^UIG^^
|
---|
| 2538 | ;;^UTILITY(U,$J,.85,506,1,0)
|
---|
| 2539 | ;;=^.8501^1^1
|
---|
| 2540 | ;;^UTILITY(U,$J,.85,506,1,1,0)
|
---|
| 2541 | ;;=UYGHUR
|
---|
| 2542 | ;;^UTILITY(U,$J,.85,507,0)
|
---|
| 2543 | ;;=UKRAINIAN^UK^UKR^^
|
---|
| 2544 | ;;^UTILITY(U,$J,.85,508,0)
|
---|
| 2545 | ;;=UMBUNDU^^UMB^^
|
---|
| 2546 | ;;^UTILITY(U,$J,.85,509,0)
|
---|
| 2547 | ;;=UNDETERMINED^^UND^^
|
---|
| 2548 | ;;^UTILITY(U,$J,.85,510,0)
|
---|
| 2549 | ;;=URDU^UR^URD^^
|
---|
| 2550 | ;;^UTILITY(U,$J,.85,511,0)
|
---|
| 2551 | ;;=UZBEK^UZ^UZB^^
|
---|
| 2552 | ;;^UTILITY(U,$J,.85,512,0)
|
---|
| 2553 | ;;=VAI^^VAI^^
|
---|
| 2554 | ;;^UTILITY(U,$J,.85,513,0)
|
---|
| 2555 | ;;=VENDA^VE^VEN^^
|
---|
| 2556 | ;;^UTILITY(U,$J,.85,514,0)
|
---|
| 2557 | ;;=VIETNAMESE^VI^VIE^^
|
---|
| 2558 | ;;^UTILITY(U,$J,.85,515,0)
|
---|
| 2559 | ;;=VOLAPUK^VO^VOL^^
|
---|
| 2560 | ;;^UTILITY(U,$J,.85,516,0)
|
---|
| 2561 | ;;=VOTIC^^VOT^^
|
---|
| 2562 | ;;^UTILITY(U,$J,.85,517,0)
|
---|
| 2563 | ;;=WALLOON^WA^WLN^^
|
---|
| 2564 | ;;^UTILITY(U,$J,.85,518,0)
|
---|
| 2565 | ;;=WARAY^^WAR^^
|
---|
| 2566 | ;;^UTILITY(U,$J,.85,519,0)
|
---|
| 2567 | ;;=WASHO^^WAS^^
|
---|
| 2568 | ;;^UTILITY(U,$J,.85,520,0)
|
---|
| 2569 | ;;=WELSH^CY^CYM^^WEL
|
---|
| 2570 | ;;^UTILITY(U,$J,.85,521,0)
|
---|
| 2571 | ;;=WOLAITTA^^WAL^^
|
---|
| 2572 | ;;^UTILITY(U,$J,.85,521,1,0)
|
---|
| 2573 | ;;=^.8501^1^1
|
---|
| 2574 | ;;^UTILITY(U,$J,.85,521,1,1,0)
|
---|
| 2575 | ;;=WOLAYTTA
|
---|
| 2576 | ;;^UTILITY(U,$J,.85,522,0)
|
---|
| 2577 | ;;=WOLOF^WO^WOL^^
|
---|
| 2578 | ;;^UTILITY(U,$J,.85,523,0)
|
---|
| 2579 | ;;=XHOSA^XH^XHO^^
|
---|
| 2580 | ;;^UTILITY(U,$J,.85,524,0)
|
---|
| 2581 | ;;=YAKUT^^SAH^^
|
---|
| 2582 | ;;^UTILITY(U,$J,.85,525,0)
|
---|
| 2583 | ;;=YAO^^YAO^^
|
---|
| 2584 | ;;^UTILITY(U,$J,.85,526,0)
|
---|
| 2585 | ;;=YAPESE^^YAP^^
|
---|
| 2586 | ;;^UTILITY(U,$J,.85,527,0)
|
---|
| 2587 | ;;=YIDDISH^YI^YID^^
|
---|
| 2588 | ;;^UTILITY(U,$J,.85,528,0)
|
---|
| 2589 | ;;=YORUBA^YO^YOR^^
|
---|
| 2590 | ;;^UTILITY(U,$J,.85,529,0)
|
---|
| 2591 | ;;=ZAPOTEC^^ZAP^^
|
---|
| 2592 | ;;^UTILITY(U,$J,.85,530,0)
|
---|
| 2593 | ;;=ZAZA^^ZZA^^
|
---|
| 2594 | ;;^UTILITY(U,$J,.85,530,1,0)
|
---|
| 2595 | ;;=^.8501^5^5
|
---|
| 2596 | ;;^UTILITY(U,$J,.85,530,1,1,0)
|
---|
| 2597 | ;;=DIMILI
|
---|
| 2598 | ;;^UTILITY(U,$J,.85,530,1,2,0)
|
---|
| 2599 | ;;=DIMLI
|
---|
| 2600 | ;;^UTILITY(U,$J,.85,530,1,3,0)
|
---|
| 2601 | ;;=KIRDKI
|
---|
| 2602 | ;;^UTILITY(U,$J,.85,530,1,4,0)
|
---|
| 2603 | ;;=KIRMANJKI
|
---|
| 2604 | ;;^UTILITY(U,$J,.85,530,1,5,0)
|
---|
| 2605 | ;;=ZAZAKI
|
---|
| 2606 | ;;^UTILITY(U,$J,.85,531,0)
|
---|
| 2607 | ;;=ZENAGA^^ZEN^^
|
---|
| 2608 | ;;^UTILITY(U,$J,.85,532,0)
|
---|
| 2609 | ;;=ZHUANG^ZA^ZHA^^
|
---|
| 2610 | ;;^UTILITY(U,$J,.85,532,1,0)
|
---|
| 2611 | ;;=^.8501^1^1
|
---|
| 2612 | ;;^UTILITY(U,$J,.85,532,1,1,0)
|
---|
| 2613 | ;;=CHUANG
|
---|
| 2614 | ;;^UTILITY(U,$J,.85,533,0)
|
---|
| 2615 | ;;=ZULU^ZU^ZUL^^
|
---|
| 2616 | ;;^UTILITY(U,$J,.85,534,0)
|
---|
| 2617 | ;;=ZUNI^^ZUN^^
|
---|
| 2618 |
|
---|
| 2619 | DILAI006
|
---|
| 2620 | DILAI006 ; ; 02-NOV-2012
|
---|
| 2621 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2622 | 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
|
---|
| 2623 | Q Q
|
---|
| 2624 | ;;^DIC(.85,0,"AUDIT")
|
---|
| 2625 | ;;=
|
---|
| 2626 | ;;^DIC(.85,0,"DD")
|
---|
| 2627 | ;;=^
|
---|
| 2628 | ;;^DIC(.85,0,"DEL")
|
---|
| 2629 | ;;=^
|
---|
| 2630 | ;;^DIC(.85,0,"LAYGO")
|
---|
| 2631 | ;;=^
|
---|
| 2632 | ;;^DIC(.85,0,"RD")
|
---|
| 2633 | ;;=
|
---|
| 2634 | ;;^DIC(.85,0,"WR")
|
---|
| 2635 | ;;=^
|
---|
| 2636 |
|
---|
| 2637 | DILAI007
|
---|
| 2638 | DILAI007 ; ; 02-NOV-2012
|
---|
| 2639 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2640 | 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
|
---|
| 2641 | Q Q
|
---|
| 2642 | ;;^UTILITY(U,$J,"SBF",.85,.85)
|
---|
| 2643 | ;;=
|
---|
| 2644 | ;;^UTILITY(U,$J,"SBF",.85,.8501)
|
---|
| 2645 | ;;=
|
---|
| 2646 | ;;^UTILITY(U,$J,"SBF",.85,.8502)
|
---|
| 2647 | ;;=
|
---|
| 2648 |
|
---|
| 2649 | DILAINI1
|
---|
| 2650 | DILAINI1 ; ; 02-NOV-2012
|
---|
| 2651 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2652 | ; LOADS AND INDEXES DD'S
|
---|
| 2653 | ;
|
---|
| 2654 | 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
|
---|
| 2655 | S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
|
---|
| 2656 | 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
|
---|
| 2657 | Q:'$D(DIFQ) S %=2 W !!,"ARE YOU SURE EVERYTHING'S OK" D YN^DICN I %-1 K DIFQ Q
|
---|
| 2658 | 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
|
---|
| 2659 | D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J) D WAIT^DICD
|
---|
| 2660 | S DN="^DILAI" F R=1:1:7 D @(DN_$$B36(R)) W "."
|
---|
| 2661 | 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
|
---|
| 2662 | KEYSNIX ; Keys and new style indexes installer ; new in FM V22.2
|
---|
| 2663 | N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
|
---|
| 2664 | N DIFRFILE S DIFRFILE=0 ; Loop through files
|
---|
| 2665 | F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
|
---|
| 2666 | . K ^TMP("DIFROMS2",$J,"TRIG")
|
---|
| 2667 | . N DIFRD S DIFRD=0
|
---|
| 2668 | . F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
|
---|
| 2669 | . K ^TMP("DIFROMS2",$J,"TRIG")
|
---|
| 2670 | . S DIFRD=0
|
---|
| 2671 | . F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
|
---|
| 2672 | K @DIFRSA ; kill off tran global
|
---|
| 2673 | ; VEN/SMH v22.2: Below I added a K D1 because it leaks from the call causing the key matching algo to fail.
|
---|
| 2674 | DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
|
---|
| 2675 | 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
|
---|
| 2676 | K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
|
---|
| 2677 | ;
|
---|
| 2678 | W S Y=$P($T(@X),";",2) W !,"NOTE: This package also contains "_Y_"S",! Q:'$D(DIFQ(0))
|
---|
| 2679 | 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
|
---|
| 2680 | S:%=2 DIFQ(X)=0 K:%<0 DIFQ
|
---|
| 2681 | Q
|
---|
| 2682 | ;
|
---|
| 2683 | OPT ;OPTION
|
---|
| 2684 | RTN ;ROUTINE DOCUMENTATION NOTE
|
---|
| 2685 | FUN ;FUNCTION
|
---|
| 2686 | BUL ;BULLETIN
|
---|
| 2687 | KEY ;SECURITY KEY
|
---|
| 2688 | HEL ;HELP FRAME
|
---|
| 2689 | DIP ;PRINT TEMPLATE
|
---|
| 2690 | DIE ;INPUT TEMPLATE
|
---|
| 2691 | DIB ;SORT TEMPLATE
|
---|
| 2692 | DIS ;FORM
|
---|
| 2693 | REM ;REMOTE PROCEDURE
|
---|
| 2694 | ;
|
---|
| 2695 | SBF ;FILE AND SUB FILE NUMBERS
|
---|
| 2696 | IX W "." S DIK="A" F %=0:0 S DIK=$O(^DD(D,DIK)) Q:DIK="" K ^(DIK)
|
---|
| 2697 | S DA(1)=D,DIK="^DD("_D_"," D IXALL^DIK
|
---|
| 2698 | I $D(^DIC(D,"%",0)) S DIK="^DIC(D,""%""," G IXALL^DIK
|
---|
| 2699 | Q
|
---|
| 2700 | B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
|
---|
| 2701 | N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
---|
| 2702 |
|
---|
| 2703 | DILAINI2
|
---|
| 2704 | DILAINI2 ; ; 02-NOV-2012
|
---|
| 2705 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2706 | ;
|
---|
| 2707 | ;
|
---|
| 2708 | K ^UTILITY("DIFROM",$J),DIC S DIDUZ=0 S:$D(DUZ)#2 DIDUZ=DUZ S DUZ=.5
|
---|
| 2709 | I $D(^DIC(9.2,0))#2,^(0)?1"HEL".E S (DIC,DLAYGO)=9.2,N="HEL",DIC(0)="LX" G ADD
|
---|
| 2710 | Q
|
---|
| 2711 | ;
|
---|
| 2712 | 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
|
---|
| 2713 | S DIK=DIC
|
---|
| 2714 | HELP S R=$O(^UTILITY("DIFROM",$J,N,R)) Q:R="" W !,"'"_R_"' Help Frame filed." S DA=^(R)
|
---|
| 2715 | 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)
|
---|
| 2716 | 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)
|
---|
| 2717 | I I S $P(^DIC(9.2,DA,10,0),U,3,4)=%_U_I
|
---|
| 2718 | IX D IX1^DIK G HELP
|
---|
| 2719 | ;
|
---|
| 2720 | U I $D(DIRUT) S DIFQ=1
|
---|
| 2721 | W ! Q
|
---|
| 2722 | REP S DIR(0)="Y",DIR("A")="Shall I change the NAME of the file to "_DIF
|
---|
| 2723 | S DIR("??")="^D REP^DIFROMH1",DIR("B")="NO" D ^DIR G U:$D(DIRUT)
|
---|
| 2724 | I Y S DIE=1,DIFQ=0,DA=N,DR=".01////"_DIF D ^DIE Q
|
---|
| 2725 | S DIR("A")="Shall I replace your file with mine"
|
---|
| 2726 | S DIR("??")="^D AG^DIFROMH1" D ^DIR G U:$D(DIRUT)!'Y
|
---|
| 2727 | S DIU(0)="E",DIR("A")="Do you want to keep the Data"
|
---|
| 2728 | S DIR("??")="^D CHG^DIFROMH1" D ^DIR G U:$D(DIRUT)
|
---|
| 2729 | S:'Y DIU(0)=DIU(0)_"D"
|
---|
| 2730 | S DIR("A")="Do you want to keep the Templates"
|
---|
| 2731 | S DIR("??")="^D TEMP^DIFROMH1" D ^DIR G U:$D(DIRUT) S:'Y DIU(0)=DIU(0)_"T"
|
---|
| 2732 | S DIFQ(N)=1,DIFKEP(N)=DIU(0) W !?15," (",DIF,") " Q
|
---|
| 2733 |
|
---|
| 2734 | DILAINI3
|
---|
| 2735 | DILAINI3 ; ; 02-NOV-2012
|
---|
| 2736 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2737 | ;
|
---|
| 2738 | ;
|
---|
| 2739 | K ^UTILITY("DIFROM",$J) S DIC(0)="LX",(DIC,DLAYGO)=3.6,N="BUL" D ADD:$D(^XMB(3.6,0))
|
---|
| 2740 | 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."
|
---|
| 2741 | I $D(^DIC(9.4,0))#2,^(0)?1"PACK".E S N="PKG",(DIC,DLAYGO)=9.4 D ADD
|
---|
| 2742 | 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
|
---|
| 2743 | 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)=%
|
---|
| 2744 | OR I $D(^ORD(100.99))&$O(^UTILITY(U,$J,"OR","")) D EN^DILAINI4
|
---|
| 2745 | 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
|
---|
| 2746 | 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)
|
---|
| 2747 | I $D(^DIC(9.8,0))#2,^(0)?1"ROUTINE^".E S (DIC,DLAYGO)=9.8,N="RTN" D ADD
|
---|
| 2748 | S DIC=.5,DLAYGO=0,N="FUN" D ADD
|
---|
| 2749 | I $P($G(^DIC(8994,0)),U)="REMOTE PROCEDURE" S (DIC,DLAYGO)=8994,N="REM" D ADD
|
---|
| 2750 | S DIC("S")="I $P(^(0),U,4)=DIFL" F N="DIPT","DIBT","DIE" S DIC=U_N_"(" D ADD
|
---|
| 2751 | K DIC("S") S N="DIST(.404,",DIC=U_N,DLAYGO=.404 D ADD
|
---|
| 2752 | S DIC("S")="I $P(^(0),U,8)=DIFL",N="DIST(.403,",DIC=U_N,DLAYGO=.403 D ADD
|
---|
| 2753 | K ^UTILITY(U,$J),DIC,DLAYGO F DIFR="DIE","DIPT" D DIEZ
|
---|
| 2754 | K ^UTILITY("DIFROM",$J) Q
|
---|
| 2755 | DIEZ I ^DD("VERSION")>17.4,'$D(DISYS) D OS^DII
|
---|
| 2756 | E S DISYS=^DD("OS")
|
---|
| 2757 | Q:'$D(^DD("OS",DISYS,"ZS"))
|
---|
| 2758 | S DIFR1=""
|
---|
| 2759 | DZ1 S DIFR1=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1)) Q:DIFR1=""
|
---|
| 2760 | 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")
|
---|
| 2761 | G DZ1
|
---|
| 2762 | ;
|
---|
| 2763 | OP S R=$O(^UTILITY("DIFROM",$J,N,R)) I R="" K ^UTILITY("DIFROM",$J) G Q
|
---|
| 2764 | 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
|
---|
| 2765 | 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)=%
|
---|
| 2766 | S %=$P(^DIC(19,DA,0),U,12) S:%]"" %=$O(^DIC(9.4,"B",%,0))
|
---|
| 2767 | S $P(^DIC(19,DA,0),U,12)=%,%=$P(^(0),U,7),(DZ,DIX)=0
|
---|
| 2768 | 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")
|
---|
| 2769 | 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
|
---|
| 2770 | S:% ^DIC(19,DA,10,0)="^19.01PI^"_DIX_U_DZ D IX1^DIK G OP
|
---|
| 2771 | ;
|
---|
| 2772 | 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
|
---|
| 2773 | Q Q
|
---|
| 2774 | A I N="BUL" K % S %(0)=$G(@(DIC_"+Y,2,0)")) F %=0:0 S %=$O(@(DIC_"+Y,2,%)")) Q:'% S %(%)=$G(^(%,0))
|
---|
| 2775 | 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^")
|
---|
| 2776 | I N="BUL",%(0)]"" S @(DIC_"+Y,2,0)")=%(0) F %=0:0 S %=$O(%(%)) Q:'% S @(DIC_"+Y,2,%,0)")=%(%)
|
---|
| 2777 | I $E(N,1,2)="DI",('DIFL)!('$D(^DD(+DIFL))) D
|
---|
| 2778 | .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!"
|
---|
| 2779 | .Q
|
---|
| 2780 | 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)
|
---|
| 2781 | I N="DIST(.403," D BLK
|
---|
| 2782 | S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y,DIK=DIC D %XY^%RCR
|
---|
| 2783 | 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
|
---|
| 2784 | I N="DIST(.403," D
|
---|
| 2785 | .N DIFRVAL S DIFRVAL=$$VAL^DIFROMSS(.403,DA)
|
---|
| 2786 | .I DIFRVAL W !,"Compiling form: ",$P(^DIST(.403,DA,0),U) D EN^DDSZ(DA) Q
|
---|
| 2787 | .W !,"ERROR: Form: ",$P(^DIST(.403,DA,0),U)," cannot be compiled"
|
---|
| 2788 | .Q
|
---|
| 2789 | Q
|
---|
| 2790 | 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
|
---|
| 2791 | K A0,A1,A2,J,L Q
|
---|
| 2792 | 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
|
---|
| 2793 | .N X S X=0
|
---|
| 2794 | .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)
|
---|
| 2795 | .Q
|
---|
| 2796 | 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
|
---|
| 2797 | 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
|
---|
| 2798 | .N X S X=0
|
---|
| 2799 | .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)
|
---|
| 2800 | .Q
|
---|
| 2801 | 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")
|
---|
| 2802 | Q
|
---|
| 2803 | KAD(D0) N D1,X
|
---|
| 2804 | 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)
|
---|
| 2805 | Q
|
---|
| 2806 |
|
---|
| 2807 | DILAINI4
|
---|
| 2808 | DILAINI4 ; ; 02-NOV-2012
|
---|
| 2809 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2810 | ;
|
---|
| 2811 | ;
|
---|
| 2812 | EN S DA(1)=1,DIK="^ORD(100.99,1,5," I $D(^ORD(100.99,1,5,DA)) D ^DIK
|
---|
| 2813 | S %X="^UTILITY(U,$J,""OR"","_$O(^UTILITY(U,$J,"OR",""))_",",%Y=DIK_DA_","
|
---|
| 2814 | S:'$D(^ORD(100.99,1,5,0)) ^(0)="^100.995P^^" S $P(^(0),U,3,4)=DA_U_($P(^(0),U,4)+1)
|
---|
| 2815 | D %XY^%RCR S $P(^ORD(100.99,1,5,DA,0),U)=DA,%=$P(^(0),U,4)
|
---|
| 2816 | I %]"" S %=$O(^ORD(100.98,"B",%,0)) I %>0 S $P(^ORD(100.99,1,5,DA,0),U,4)=%
|
---|
| 2817 | D OR
|
---|
| 2818 | S DA(1)=1 D IX1^DIK
|
---|
| 2819 | Q
|
---|
| 2820 | OR S (N,I)=0,X=""
|
---|
| 2821 | 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
|
---|
| 2822 | S:I $P(^ORD(100.99,1,5,DA,1,0),U,3,4)=X_U_I S (N,I)=0,X=""
|
---|
| 2823 | 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
|
---|
| 2824 | S:I $P(^ORD(100.99,1,5,DA,5,0),U,3,4)=X_U_I K N,R,X,Y,I,J
|
---|
| 2825 | Q
|
---|
| 2826 | 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
|
---|
| 2827 | S:J $P(^ORD(100.99,1,5,DA,1,N,1,0),U,3,4)=Y_U_J
|
---|
| 2828 | Q
|
---|
| 2829 | ADDP N I,J,N,R,DA,DLAYGO,DO S %=""
|
---|
| 2830 | S DIC="^ORD(101,",DIC(0)="LX",DLAYGO=101 D FILE^DICN K DIC Q:Y=-1 S %=+Y Q
|
---|
| 2831 |
|
---|
| 2832 | DILAINI5
|
---|
| 2833 | DILAINI5 ; ; 02-NOV-2012
|
---|
| 2834 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2835 | K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
|
---|
| 2836 | Q
|
---|
| 2837 | IXF ;;
|
---|
| 2838 | ;;.85I;LANGUAGE;^DI(.85,;0;y;y;;;;;y;o
|
---|
| 2839 | ;;
|
---|
| 2840 |
|
---|
| 2841 | DILAINIT
|
---|
| 2842 | DILAINIT ; ; 02-NOV-2012
|
---|
| 2843 | ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
|
---|
| 2844 | ;
|
---|
| 2845 | K DIF,DIFQ,DIFQR,DIFQN,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DIFROM,DFR,DTN,DIX,DZ,DIRUT,DTOUT,DUOUT
|
---|
| 2846 | S DIOVRD=1,U="^",DIFQ=0,DIFROM="22.2" W !,"This version (#22.2) of 'DILAINIT' was created on 02-NOV-2012"
|
---|
| 2847 | W !?9,"(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)",!
|
---|
| 2848 | I $D(^DD("VERSION")),^("VERSION")'<22 G GO
|
---|
| 2849 | ;W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
|
---|
| 2850 | I ^DD("VERSION")<22 W !,"but I need version 22 of the VA FileMan!" G Q
|
---|
| 2851 | GO ;
|
---|
| 2852 | EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
|
---|
| 2853 | S DIFQ=0 K DIRUT,DTOUT,DUOUT
|
---|
| 2854 | F DIFRIR=1:1:1 S DIFRRTN="^DILAINI"_$E("5",DIFRIR) D @DIFRRTN
|
---|
| 2855 | 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)
|
---|
| 2856 | S DIFROM="22.2" D PKG:'$D(DIFROM(0)),^DILAINI1 G Q:'$D(DIFQ) S DIK(0)="AB"
|
---|
| 2857 | 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)
|
---|
| 2858 | K DIFQR D ^DILAINI2,^DILAINI3
|
---|
| 2859 | 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"
|
---|
| 2860 | 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
|
---|
| 2861 | I DIFROM(0)>0 F %="PRE","INI","INIT" S:$D(DIFROM(%)) $P(^DIC(9.4,DIFROM(0),%),U,2)=DIFROM(%)
|
---|
| 2862 | I $G(DIFQN) S $P(^(0),U,3,4)=$P(DIFQN,U,2)_U_($P(^DIC(0),U,4)+DIFQN) K DIFQN
|
---|
| 2863 | S:DIFROM(0)>0 ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
|
---|
| 2864 | 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)
|
---|
| 2865 | 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
|
---|
| 2866 | I DIFQR D IXALL^DIK:$O(@(DIK_"0)")) W "."
|
---|
| 2867 | Q
|
---|
| 2868 | R G REP^DILAINI2
|
---|
| 2869 | ;
|
---|
| 2870 | 1 S N=+$P(DIF(I),";",3),DIF=$P(DIF(I),";",4),S=$P(DIF(I),";",5)
|
---|
| 2871 | 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:"")
|
---|
| 2872 | I Z="" S DIFQ(N)=1,DIFQN=$G(DIFQN)+1_U_N G S
|
---|
| 2873 | 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
|
---|
| 2874 | S DIFQ(N)=$P(DIF(I),";",7)'="n"
|
---|
| 2875 | I $L(Z) W $C(7),!,"Note: You already have the '",$P(Z,U),"' File." S DIFQ(0)=1
|
---|
| 2876 | 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
|
---|
| 2877 | 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
|
---|
| 2878 | S S DIFQR(N)=0 Q:$P(DIF(I),";",13)'="y"!$D(DIRUT)
|
---|
| 2879 | 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
|
---|
| 2880 | S %=$P(DIF(I),";",14)="o" W !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." S DIFQR(N)=%+1
|
---|
| 2881 | Q
|
---|
| 2882 | Q W $C(7),!!,"NO UPDATING HAS OCCURRED!" G Q^DIFROM0
|
---|
| 2883 | ;
|
---|
| 2884 | 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
|
---|
| 2885 | Q
|
---|
| 2886 | ;
|
---|
| 2887 | IXF ;;;1
|
---|
| 2888 |
|
---|
| 2889 | DINIT
|
---|
| 2890 | DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM 30 Mar 1999 ; 11/14/12 11:18am
|
---|
| 2891 | V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
---|
| 2892 | D KL^DINIT6
|
---|
| 2893 | N ;
|
---|
| 2894 | D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW
|
---|
| 2895 | I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D
|
---|
| 2896 | . 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!!",!!
|
---|
| 2897 | 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
|
---|
| 2898 | DO W !!,"Initialize VA FileMan now? NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6
|
---|
| 2899 | I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO
|
---|
| 2900 | NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "
|
---|
| 2901 | R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")
|
---|
| 2902 | I X'?1AN.ANP W " ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA
|
---|
| 2903 | S %X=X
|
---|
| 2904 | NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "
|
---|
| 2905 | R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)
|
---|
| 2906 | S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X
|
---|
| 2907 | I X'>0 W " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO
|
---|
| 2908 | ;***** REMOVE AFTER V21 INIT *****
|
---|
| 2909 | ;D
|
---|
| 2910 | ;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC Q:DIREC>10000 K ^DI(.84,DIREC,5)
|
---|
| 2911 | ;. Q
|
---|
| 2912 | ;*********************************
|
---|
| 2913 | K ^DD(0) D ^DINIT0,^DINIT11B
|
---|
| 2914 | D OSETC
|
---|
| 2915 | W ! S Y=1 D OS G KL^DINIT6:Y<0
|
---|
| 2916 | W !!,"Now loading other FileMan files--please wait." G GO
|
---|
| 2917 | ;
|
---|
| 2918 | ;
|
---|
| 2919 | 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
|
---|
| 2920 | E S (DITZS,^DD("OS"))=100
|
---|
| 2921 | D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y
|
---|
| 2922 | I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D
|
---|
| 2923 | . S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""
|
---|
| 2924 | . S ZTDESC="Set Operating System" D ^%ZTLOAD Q
|
---|
| 2925 | Q K DITZS,ZTSK Q
|
---|
| 2926 | VERSION ;
|
---|
| 2927 | S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
|
---|
| 2928 | ;
|
---|
| 2929 | GO S I=$C(126),DIT=$P($H,",",2)
|
---|
| 2930 | 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"
|
---|
| 2931 | 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
|
---|
| 2932 | S ^DIA(0)="AUDIT^1.1I"
|
---|
| 2933 | K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)
|
---|
| 2934 | K ^DIC(.403),^(.404),^(1.2)
|
---|
| 2935 | K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)
|
---|
| 2936 | F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")
|
---|
| 2937 | K ^DIC(.46),^DD(.46),^(.461),^(.463)
|
---|
| 2938 | K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)
|
---|
| 2939 | 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)
|
---|
| 2940 | G ^DINIT0F0
|
---|
| 2941 | ;
|
---|
| 2942 | OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
|
---|
| 2943 | N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0
|
---|
| 2944 | W !!,"Now loading MUMPS Operating System File"
|
---|
| 2945 | D ^DINIT21,OSDD^DINIT24
|
---|
| 2946 | S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3
|
---|
| 2947 | S ^DIC(.7,"%D",0)="^^5^5^2940908^"
|
---|
| 2948 | S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code. Since the code to invoke"
|
---|
| 2949 | S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"
|
---|
| 2950 | S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"
|
---|
| 2951 | S ^DIC(.7,"%D",4,0)="this file. During the FileMan INIT process an operating system is"
|
---|
| 2952 | S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."
|
---|
| 2953 | K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3
|
---|
| 2954 | K DA,DIK S DIK="^DD(""OS""," D X^DINIT3
|
---|
| 2955 | D
|
---|
| 2956 | . 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
|
---|
| 2957 | . Q
|
---|
| 2958 | ;
|
---|
| 2959 | K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
|
---|
| 2960 | K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
|
---|
| 2961 | K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
|
---|
| 2962 | S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
|
---|
| 2963 | 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
|
---|
| 2964 | 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
|
---|
| 2965 | 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
|
---|
| 2966 | ; Keys and new style indexes installer ; new in FM V22.2
|
---|
| 2967 | N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
|
---|
| 2968 | N DIFRFILE S DIFRFILE=0 ; Loop through files
|
---|
| 2969 | F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
|
---|
| 2970 | . K ^TMP("DIFROMS2",$J,"TRIG")
|
---|
| 2971 | . N DIFRD S DIFRD=0
|
---|
| 2972 | . F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
|
---|
| 2973 | . K ^TMP("DIFROMS2",$J,"TRIG")
|
---|
| 2974 | . S DIFRD=0
|
---|
| 2975 | . F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
|
---|
| 2976 | K @DIFRSA ; kill off tran global
|
---|
| 2977 | ;
|
---|
| 2978 | D DATA
|
---|
| 2979 | Q
|
---|
| 2980 | ;
|
---|
| 2981 | ; VEN/SMH - added kill D1 since that causes a problem with Transfer/Merge
|
---|
| 2982 | ; for keyed fields if it leaks from the symbol table.
|
---|
| 2983 | DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
|
---|
| 2984 | 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
|
---|
| 2985 | K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
|
---|
| 2986 | ;
|
---|
| 2987 | B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)
|
---|
| 2988 | N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
---|
| 2989 |
|
---|
| 2990 | DINIT011
|
---|
| 2991 | DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
|
---|
| 2992 | ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
---|
| 2993 | 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
|
---|
| 2994 | Q Q
|
---|
| 2995 | ;;^DIC(.85,0,"GL")
|
---|
| 2996 | ;;=^DI(.85,
|
---|
| 2997 | ;;^DIC("B","LANGUAGE",.85)
|
---|
| 2998 | ;;=
|
---|
| 2999 | ;;^DIC(.85,"%",0)
|
---|
| 3000 | ;;=^1.005
|
---|
| 3001 | ;;^DIC(.85,"%D",0)
|
---|
| 3002 | ;;=^^27^27^3121101^
|
---|
| 3003 | ;;^DIC(.85,"%D",1,0)
|
---|
| 3004 | ;;=The LANGUAGE file is used both to officially identify a language, and to
|
---|
| 3005 | ;;^DIC(.85,"%D",2,0)
|
---|
| 3006 | ;;=store MUMPS code needed to do language-specific conversions of data such
|
---|
| 3007 | ;;^DIC(.85,"%D",3,0)
|
---|
| 3008 | ;;=as dates and numbers.
|
---|
| 3009 | ;;^DIC(.85,"%D",4,0)
|
---|
| 3010 | ;;=
|
---|
| 3011 | ;;^DIC(.85,"%D",5,0)
|
---|
| 3012 | ;;=Fileman distributes entries for the following languages:
|
---|
| 3013 | ;;^DIC(.85,"%D",6,0)
|
---|
| 3014 | ;;= ID Number (.001) Name (.01)
|
---|
| 3015 | ;;^DIC(.85,"%D",7,0)
|
---|
| 3016 | ;;= 1 English
|
---|
| 3017 | ;;^DIC(.85,"%D",8,0)
|
---|
| 3018 | ;;= 2 German
|
---|
| 3019 | ;;^DIC(.85,"%D",9,0)
|
---|
| 3020 | ;;= 3 Spanish
|
---|
| 3021 | ;;^DIC(.85,"%D",10,0)
|
---|
| 3022 | ;;= 4 French
|
---|
| 3023 | ;;^DIC(.85,"%D",11,0)
|
---|
| 3024 | ;;= 5 Finnish
|
---|
| 3025 | ;;^DIC(.85,"%D",12,0)
|
---|
| 3026 | ;;= 6 Italian
|
---|
| 3027 | ;;^DIC(.85,"%D",13,0)
|
---|
| 3028 | ;;= 7 Portuguese
|
---|
| 3029 | ;;^DIC(.85,"%D",14,0)
|
---|
| 3030 | ;;= 10 Arabic
|
---|
| 3031 | ;;^DIC(.85,"%D",15,0)
|
---|
| 3032 | ;;= 11 Russian
|
---|
| 3033 | ;;^DIC(.85,"%D",16,0)
|
---|
| 3034 | ;;= 12 Greek
|
---|
| 3035 | ;;^DIC(.85,"%D",17,0)
|
---|
| 3036 | ;;= 18 Hebrew
|
---|
| 3037 | ;;^DIC(.85,"%D",18,0)
|
---|
| 3038 | ;;=
|
---|
| 3039 | ;;^DIC(.85,"%D",19,0)
|
---|
| 3040 | ;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
|
---|
| 3041 | ;;^DIC(.85,"%D",20,0)
|
---|
| 3042 | ;;=DILAINIT routines, shipped with Fileman 22.2.
|
---|
| 3043 | ;;^DIC(.85,"%D",21,0)
|
---|
| 3044 | ;;=
|
---|
| 3045 | ;;^DIC(.85,"%D",22,0)
|
---|
| 3046 | ;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
|
---|
| 3047 | ;;^DIC(.85,"%D",23,0)
|
---|
| 3048 | ;;=also allows non-English text to be returned via FileMan calls.
|
---|
| 3049 | ;;^DIC(.85,"%D",24,0)
|
---|
| 3050 | ;;=
|
---|
| 3051 | ;;^DIC(.85,"%D",25,0)
|
---|
| 3052 | ;;=A note to VISTA developers: Although users can select entries by name,
|
---|
| 3053 | ;;^DIC(.85,"%D",26,0)
|
---|
| 3054 | ;;=software should use the official two or three letter codes to eliminiate
|
---|
| 3055 | ;;^DIC(.85,"%D",27,0)
|
---|
| 3056 | ;;=mistakes resulting from languages that have similar spelling.
|
---|
| 3057 | ;;^DIC(.85,"%MSC")
|
---|
| 3058 | ;;=3121114.111954
|
---|
| 3059 | ;;^DD(.85,0)
|
---|
| 3060 | ;;=FIELD^^10^20
|
---|
| 3061 | ;;^DD(.85,0,"DDA")
|
---|
| 3062 | ;;=N
|
---|
| 3063 | ;;^DD(.85,0,"DT")
|
---|
| 3064 | ;;=3121101
|
---|
| 3065 | ;;^DD(.85,0,"ID",.02)
|
---|
| 3066 | ;;=W " ",$P(^(0),U,2)
|
---|
| 3067 | ;;^DD(.85,0,"ID",.03)
|
---|
| 3068 | ;;=W " ",$P(^(0),U,3)
|
---|
| 3069 | ;;^DD(.85,0,"IX","F",.8501,.01)
|
---|
| 3070 | ;;=
|
---|
| 3071 | ;;^DD(.85,0,"NM","LANGUAGE")
|
---|
| 3072 | ;;=
|
---|
| 3073 | ;;^DD(.85,0,"PT",.007,.001)
|
---|
| 3074 | ;;=
|
---|
| 3075 | ;;^DD(.85,0,"PT",.008,.001)
|
---|
| 3076 | ;;=
|
---|
| 3077 | ;;^DD(.85,0,"PT",.009,.001)
|
---|
| 3078 | ;;=
|
---|
| 3079 | ;;^DD(.85,0,"PT",.4,709.1)
|
---|
| 3080 | ;;=
|
---|
| 3081 | ;;^DD(.85,0,"PT",.4,1819.1)
|
---|
| 3082 | ;;=
|
---|
| 3083 | ;;^DD(.85,0,"PT",.847,.01)
|
---|
| 3084 | ;;=
|
---|
| 3085 | ;;^DD(.85,0,"PT",.85,.08)
|
---|
| 3086 | ;;=
|
---|
| 3087 | ;;^DD(.85,0,"PT",.85,.09)
|
---|
| 3088 | ;;=
|
---|
| 3089 | ;;^DD(.85,0,"PT",1.008,.001)
|
---|
| 3090 | ;;=
|
---|
| 3091 | ;;^DD(.85,0,"PT",200,200.07)
|
---|
| 3092 | ;;=
|
---|
| 3093 | ;;^DD(.85,0,"PT",8989.3,207)
|
---|
| 3094 | ;;=
|
---|
| 3095 | ;;^DD(.85,.001,0)
|
---|
| 3096 | ;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
|
---|
| 3097 | ;;^DD(.85,.001,3)
|
---|
| 3098 | ;;=Type a number between 1 and 9999999999, 0 decimal digits.
|
---|
| 3099 | ;;^DD(.85,.001,21,0)
|
---|
| 3100 | ;;=^^3^3^3121031^^
|
---|
| 3101 | ;;^DD(.85,.001,21,1,0)
|
---|
| 3102 | ;;=A number that is used to uniquely identify a language. This number
|
---|
| 3103 | ;;^DD(.85,.001,21,2,0)
|
---|
| 3104 | ;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
|
---|
| 3105 | ;;^DD(.85,.001,21,3,0)
|
---|
| 3106 | ;;=during Kernel signon to signify which language Fileman should use.
|
---|
| 3107 | ;;^DD(.85,.001,23,0)
|
---|
| 3108 | ;;=^^31^31^3121031^
|
---|
| 3109 | ;;^DD(.85,.001,23,1,0)
|
---|
| 3110 | ;;=Entries in this file are standardized, with the contents controlled by
|
---|
| 3111 | ;;^DD(.85,.001,23,2,0)
|
---|
| 3112 | ;;=the Fileman Primary Development Team. The ID Number field is used to help
|
---|
| 3113 | ;;^DD(.85,.001,23,3,0)
|
---|
| 3114 | ;;=protect referential integrity in VISTA databases during upgrades to the
|
---|
| 3115 | ;;^DD(.85,.001,23,4,0)
|
---|
| 3116 | ;;=file. ID Number assignment corresponds to the order in which languages
|
---|
| 3117 | ;;^DD(.85,.001,23,5,0)
|
---|
| 3118 | ;;=were added to the file. They were added in segments.
|
---|
| 3119 | ;;^DD(.85,.001,23,6,0)
|
---|
| 3120 | ;;=
|
---|
| 3121 | ;;^DD(.85,.001,23,7,0)
|
---|
| 3122 | ;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
|
---|
| 3123 | ;;^DD(.85,.001,23,8,0)
|
---|
| 3124 | ;;=were the first eleven languages added, in order. English is first because
|
---|
| 3125 | ;;^DD(.85,.001,23,9,0)
|
---|
| 3126 | ;;=Fileman was originally written in English. German is second because
|
---|
| 3127 | ;;^DD(.85,.001,23,10,0)
|
---|
| 3128 | ;;=Marcus Werners of Germany led the effort to create Fileman's dialog
|
---|
| 3129 | ;;^DD(.85,.001,23,11,0)
|
---|
| 3130 | ;;=framework, to make translating VISTA into other languages easier.
|
---|
| 3131 | ;;^DD(.85,.001,23,12,0)
|
---|
| 3132 | ;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
|
---|
| 3133 | ;;^DD(.85,.001,23,13,0)
|
---|
| 3134 | ;;=which the Fileman team was approached by potential translators about
|
---|
| 3135 | ;;^DD(.85,.001,23,14,0)
|
---|
| 3136 | ;;=adding those languages to the file (though Finnish actually predates all
|
---|
| 3137 | ;;^DD(.85,.001,23,15,0)
|
---|
| 3138 | ;;=other translation efforts except English). Arabic was assigned ID Number
|
---|
| 3139 | ;;^DD(.85,.001,23,16,0)
|
---|
| 3140 | ;;=10 instead of 8 in recognition of the debt English owes Arabic for
|
---|
| 3141 | ;;^DD(.85,.001,23,17,0)
|
---|
| 3142 | ;;=introducing the decimal numbering system to Europe. Russian and Greek
|
---|
| 3143 | ;;^DD(.85,.001,23,18,0)
|
---|
| 3144 | ;;=were the next two translations the Fileman team was approached about. I
|
---|
| 3145 | ;;^DD(.85,.001,23,19,0)
|
---|
| 3146 | ;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
|
---|
| 3147 | ;;^DD(.85,.001,23,20,0)
|
---|
| 3148 | ;;=sure there was a reason.
|
---|
| 3149 | ;;^DD(.85,.001,23,21,0)
|
---|
| 3150 | ;;=
|
---|
| 3151 | ;;^DD(.85,.001,23,22,0)
|
---|
| 3152 | ;;=Thereafter, languages are added in segments, in order by Name, starting
|
---|
| 3153 | ;;^DD(.85,.001,23,23,0)
|
---|
| 3154 | ;;=with ID Number 8. The segments correspond to the ISO 639 language
|
---|
| 3155 | ;;^DD(.85,.001,23,24,0)
|
---|
| 3156 | ;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
|
---|
| 3157 | ;;^DD(.85,.001,23,25,0)
|
---|
| 3158 | ;;=so on). Each language has one unique record in this file, so wherever a
|
---|
| 3159 | ;;^DD(.85,.001,23,26,0)
|
---|
| 3160 | ;;=language in one segment has already been included in an earlier segment,
|
---|
| 3161 | ;;^DD(.85,.001,23,27,0)
|
---|
| 3162 | ;;=it is not included in the later segment (e.g., Greek was in segment one,
|
---|
| 3163 | ;;^DD(.85,.001,23,28,0)
|
---|
| 3164 | ;;=so it is not also added as a duplicate in segment two).
|
---|
| 3165 | ;;^DD(.85,.001,23,29,0)
|
---|
| 3166 | ;;=
|
---|
| 3167 | ;;^DD(.85,.001,23,30,0)
|
---|
| 3168 | ;;=This segmented approach makes it comparatively easy to upgrade the file
|
---|
| 3169 | ;;^DD(.85,.001,23,31,0)
|
---|
| 3170 | ;;=in discrete batches, to keep the update projects manageable.
|
---|
| 3171 | ;;^DD(.85,.001,"DT")
|
---|
| 3172 | ;;=3121031
|
---|
| 3173 | ;;^DD(.85,.01,0)
|
---|
| 3174 | ;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
---|
| 3175 | ;;^DD(.85,.01,.1)
|
---|
| 3176 | ;;=Language-Name
|
---|
| 3177 | ;;^DD(.85,.01,3)
|
---|
| 3178 | ;;=Answer must be 1-60 characters in length.
|
---|
| 3179 | ;;^DD(.85,.01,21,0)
|
---|
| 3180 | ;;=^^10^10^3121031^
|
---|
| 3181 | ;;^DD(.85,.01,21,1,0)
|
---|
| 3182 | ;;=Enter the English name of the language, not the native name.
|
---|
| 3183 | ;;^DD(.85,.01,21,2,0)
|
---|
| 3184 | ;;=
|
---|
| 3185 | ;;^DD(.85,.01,21,3,0)
|
---|
| 3186 | ;;=The default is the English name from ISO 639, converted where necessary to
|
---|
| 3187 | ;;^DD(.85,.01,21,4,0)
|
---|
| 3188 | ;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
|
---|
| 3189 | ;;^DD(.85,.01,21,5,0)
|
---|
| 3190 | ;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
|
---|
| 3191 | ;;^DD(.85,.01,21,6,0)
|
---|
| 3192 | ;;=used.
|
---|
| 3193 | ;;^DD(.85,.01,21,7,0)
|
---|
| 3194 | ;;=
|
---|
| 3195 | ;;^DD(.85,.01,21,8,0)
|
---|
| 3196 | ;;=However, this use of ISO 639's spelling as a default is overridden in
|
---|
| 3197 | ;;^DD(.85,.01,21,9,0)
|
---|
| 3198 | ;;=several different ways to improve consistency across entries and to
|
---|
| 3199 | ;;^DD(.85,.01,21,10,0)
|
---|
| 3200 | ;;=reduce selection error.
|
---|
| 3201 | ;;^DD(.85,.01,23,0)
|
---|
| 3202 | ;;=^^63^63^3121031^
|
---|
| 3203 | ;;^DD(.85,.01,23,1,0)
|
---|
| 3204 | ;;=This is the English name of the language, not the native name. It
|
---|
| 3205 | ;;^DD(.85,.01,23,2,0)
|
---|
| 3206 | ;;=defaults to the English name from ISO 639, mixed case, converted where
|
---|
| 3207 | ;;^DD(.85,.01,23,3,0)
|
---|
| 3208 | ;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
|
---|
| 3209 | ;;^DD(.85,.01,23,4,0)
|
---|
| 3210 | ;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
|
---|
| 3211 | ;;^DD(.85,.01,23,5,0)
|
---|
| 3212 | ;;=spelling is used.
|
---|
| 3213 | ;;^DD(.85,.01,23,6,0)
|
---|
| 3214 | ;;=
|
---|
| 3215 | ;;^DD(.85,.01,23,7,0)
|
---|
| 3216 | ;;=However, this use of ISO 639's spelling as a default is overridden in
|
---|
| 3217 | ;;^DD(.85,.01,23,8,0)
|
---|
| 3218 | ;;=several different ways to improve consistency across entries and to
|
---|
| 3219 | ;;^DD(.85,.01,23,9,0)
|
---|
| 3220 | ;;=reduce selection error.
|
---|
| 3221 | ;;^DD(.85,.01,23,10,0)
|
---|
| 3222 | ;;=
|
---|
| 3223 | ;;^DD(.85,.01,23,11,0)
|
---|
| 3224 | ;;=For example, for most modern languages, the form of the name that
|
---|
| 3225 | ;;^DD(.85,.01,23,12,0)
|
---|
| 3226 | ;;=includes the word "Modern" and the parenthesized dates is an alternate
|
---|
| 3227 | ;;^DD(.85,.01,23,13,0)
|
---|
| 3228 | ;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
|
---|
| 3229 | ;;^DD(.85,.01,23,14,0)
|
---|
| 3230 | ;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
|
---|
| 3231 | ;;^DD(.85,.01,23,15,0)
|
---|
| 3232 | ;;=an alternate name and making the name "Greek" instead.
|
---|
| 3233 | ;;^DD(.85,.01,23,16,0)
|
---|
| 3234 | ;;=
|
---|
| 3235 | ;;^DD(.85,.01,23,17,0)
|
---|
| 3236 | ;;=Since most users of these systems are medical professionals rather than
|
---|
| 3237 | ;;^DD(.85,.01,23,18,0)
|
---|
| 3238 | ;;=linguists or historians, we emphasize modern languages and group
|
---|
| 3239 | ;;^DD(.85,.01,23,19,0)
|
---|
| 3240 | ;;=historical ones away from the modern names to reduce accidents. For
|
---|
| 3241 | ;;^DD(.85,.01,23,20,0)
|
---|
| 3242 | ;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
|
---|
| 3243 | ;;^DD(.85,.01,23,21,0)
|
---|
| 3244 | ;;=an alternate name for "Old French" in this file, to move the obsolete
|
---|
| 3245 | ;;^DD(.85,.01,23,22,0)
|
---|
| 3246 | ;;=form of the language away from the modern one. Thus, "Old" languages,
|
---|
| 3247 | ;;^DD(.85,.01,23,23,0)
|
---|
| 3248 | ;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
|
---|
| 3249 | ;;^DD(.85,.01,23,24,0)
|
---|
| 3250 | ;;=languages whose names look like historical ones, such as "Old Church
|
---|
| 3251 | ;;^DD(.85,.01,23,25,0)
|
---|
| 3252 | ;;=Slavonic", that are still living languages or in active liturgical use
|
---|
| 3253 | ;;^DD(.85,.01,23,26,0)
|
---|
| 3254 | ;;=are kept in this form if that is how they are best known.
|
---|
| 3255 | ;;^DD(.85,.01,23,27,0)
|
---|
| 3256 | ;;=
|
---|
| 3257 | ;;^DD(.85,.01,23,28,0)
|
---|
| 3258 | ;;=Also, such forms that include parenthetical dates are changed to remove
|
---|
| 3259 | ;;^DD(.85,.01,23,29,0)
|
---|
| 3260 | ;;=the dates and parentheses from the Name field; the original forms and
|
---|
| 3261 | ;;^DD(.85,.01,23,30,0)
|
---|
| 3262 | ;;=variants are preserved in the Alternate Name field.
|
---|
| 3263 | ;;^DD(.85,.01,23,31,0)
|
---|
| 3264 | ;;=
|
---|
| 3265 | ;;^DD(.85,.01,23,32,0)
|
---|
| 3266 | ;;=For similar reasons, language collections like "Banda languages" are
|
---|
| 3267 | ;;^DD(.85,.01,23,33,0)
|
---|
| 3268 | ;;=renamed as "Languages, Banda" to move them away from individual language
|
---|
| 3269 | ;;^DD(.85,.01,23,34,0)
|
---|
| 3270 | ;;=a patient might speak, like "Banda-Banda". The same was preserved from
|
---|
| 3271 | ;;^DD(.85,.01,23,35,0)
|
---|
| 3272 | ;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
|
---|
| 3273 | ;;^DD(.85,.01,23,36,0)
|
---|
| 3274 | ;;=Portuguese-Based"), which are collective languages, to kepp them separate
|
---|
| 3275 | ;;^DD(.85,.01,23,37,0)
|
---|
| 3276 | ;;=from the individual languages they might be confused with (such as
|
---|
| 3277 | ;;^DD(.85,.01,23,38,0)
|
---|
| 3278 | ;;="Portuguese"). However, individual languages like "Haitian Creole" and
|
---|
| 3279 | ;;^DD(.85,.01,23,39,0)
|
---|
| 3280 | ;;="Chinook Jargon" whose ISO 639 names makes them sound like language
|
---|
| 3281 | ;;^DD(.85,.01,23,40,0)
|
---|
| 3282 | ;;=collections are nevertheless left as is, since these are the names they
|
---|
| 3283 | ;;^DD(.85,.01,23,41,0)
|
---|
| 3284 | ;;=are known by and since the distinguishing part of the name does come
|
---|
| 3285 | ;;^DD(.85,.01,23,42,0)
|
---|
| 3286 | ;;=first, allowing for unambiguous selection.
|
---|
| 3287 | ;;^DD(.85,.01,23,43,0)
|
---|
| 3288 | ;;=
|
---|
| 3289 | ;;^DD(.85,.01,23,44,0)
|
---|
| 3290 | ;;=Where the language name from ISO 639 is a list of alternative names, as
|
---|
| 3291 | ;;^DD(.85,.01,23,45,0)
|
---|
| 3292 | ;;=in "Catalan, Valencian", the dominant name (based on other code sets,
|
---|
| 3293 | ;;^DD(.85,.01,23,46,0)
|
---|
| 3294 | ;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
|
---|
| 3295 | ;;^DD(.85,.01,23,47,0)
|
---|
| 3296 | ;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
|
---|
| 3297 | ;;^DD(.85,.01,23,48,0)
|
---|
| 3298 | ;;=
|
---|
| 3299 | ;;^DD(.85,.01,23,49,0)
|
---|
| 3300 | ;;=As a general rule (except in the case of language collections), ISO 639
|
---|
| 3301 | ;;^DD(.85,.01,23,50,0)
|
---|
| 3302 | ;;=names that use commas to invert a language name (like "Sorbian, Upper")
|
---|
| 3303 | ;;^DD(.85,.01,23,51,0)
|
---|
| 3304 | ;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
|
---|
| 3305 | ;;^DD(.85,.01,23,52,0)
|
---|
| 3306 | ;;=Alternate Name. We do not try to use commas in the Name field to group
|
---|
| 3307 | ;;^DD(.85,.01,23,53,0)
|
---|
| 3308 | ;;=together all related languages or dialects, though we do in the Alternate
|
---|
| 3309 | ;;^DD(.85,.01,23,54,0)
|
---|
| 3310 | ;;=Name field.
|
---|
| 3311 | ;;^DD(.85,.01,23,55,0)
|
---|
| 3312 | ;;=
|
---|
| 3313 | ;;^DD(.85,.01,23,56,0)
|
---|
| 3314 | ;;=In the Name field, parenthetical comments are generally restricted to
|
---|
| 3315 | ;;^DD(.85,.01,23,57,0)
|
---|
| 3316 | ;;=distinguishing between unrelated languages that have the same name, like
|
---|
| 3317 | ;;^DD(.85,.01,23,58,0)
|
---|
| 3318 | ;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
|
---|
| 3319 | ;;^DD(.85,.01,23,59,0)
|
---|
| 3320 | ;;=parenthetical words will be (in order of preference) a country, a people,
|
---|
| 3321 | ;;^DD(.85,.01,23,60,0)
|
---|
| 3322 | ;;=or an alternate name of the language, so long as it distinguishes it from
|
---|
| 3323 | ;;^DD(.85,.01,23,61,0)
|
---|
| 3324 | ;;=the other identically named languages. To date, we have not had to change
|
---|
| 3325 | ;;^DD(.85,.01,23,62,0)
|
---|
| 3326 | ;;=any of the ISO 639 names we've imported to make or correct these
|
---|
| 3327 | ;;^DD(.85,.01,23,63,0)
|
---|
| 3328 | ;;=distinctions, but we stand ready to do so to enforce this pattern.
|
---|
| 3329 | ;;^DD(.85,.01,"DT")
|
---|
| 3330 | ;;=3121031
|
---|
| 3331 | ;;^DD(.85,.02,0)
|
---|
| 3332 | ;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
|
---|
| 3333 | ;;^DD(.85,.02,3)
|
---|
| 3334 | ;;=Answer must be 2 characters in length.
|
---|
| 3335 | ;;^DD(.85,.02,21,0)
|
---|
| 3336 | ;;=^^3^3^3121101^^
|
---|
| 3337 | ;;^DD(.85,.02,21,1,0)
|
---|
| 3338 | ;;=Enter the two-letter code defined for this language in the ISO 639-1
|
---|
| 3339 | ;;^DD(.85,.02,21,2,0)
|
---|
| 3340 | ;;=standard. Not every language has a two-letter code; for those that do not
|
---|
| 3341 | ;;^DD(.85,.02,21,3,0)
|
---|
| 3342 | ;;=leave this field blank.
|
---|
| 3343 | ;;^DD(.85,.02,23,0)
|
---|
| 3344 | ;;=^^1^1^3121101^
|
---|
| 3345 | ;;^DD(.85,.02,23,1,0)
|
---|
| 3346 | ;;=Future versions of this file wil include an optional key on this field.
|
---|
| 3347 | ;;^DD(.85,.02,"DT")
|
---|
| 3348 | ;;=3121101
|
---|
| 3349 | ;;^DD(.85,.03,0)
|
---|
| 3350 | ;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
|
---|
| 3351 | ;;^DD(.85,.03,3)
|
---|
| 3352 | ;;=Answer must be 3 characters in length.
|
---|
| 3353 | ;;^DD(.85,.03,21,0)
|
---|
| 3354 | ;;=^^2^2^3121101^^^^
|
---|
| 3355 | ;;^DD(.85,.03,21,1,0)
|
---|
| 3356 | ;;=Enter the three-letter code defined for this language in the ISO 639-2/B
|
---|
| 3357 | ;;^DD(.85,.03,21,2,0)
|
---|
| 3358 | ;;=standard.
|
---|
| 3359 | ;;^DD(.85,.03,23,0)
|
---|
| 3360 | ;;=^^2^2^3121101^
|
---|
| 3361 | ;;^DD(.85,.03,23,1,0)
|
---|
| 3362 | ;;=When this file is upgraded to ISO-639-6, an optional key will be added to
|
---|
| 3363 | ;;^DD(.85,.03,23,2,0)
|
---|
| 3364 | ;;=this field.
|
---|
| 3365 | ;;^DD(.85,.03,"DT")
|
---|
| 3366 | ;;=3121101
|
---|
| 3367 | ;;^DD(.85,.04,0)
|
---|
| 3368 | ;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
|
---|
| 3369 | ;;^DD(.85,.04,3)
|
---|
| 3370 | ;;=Answer must be 4 characters in length.
|
---|
| 3371 | ;;^DD(.85,.04,21,0)
|
---|
| 3372 | ;;=^^1^1^3121101^^^
|
---|
| 3373 | ;;^DD(.85,.04,21,1,0)
|
---|
| 3374 | ;;=Enter the four letter code associated with the language in ISO-639-6.
|
---|
| 3375 | ;;^DD(.85,.04,23,0)
|
---|
| 3376 | ;;=^^3^3^3121101^
|
---|
| 3377 | ;;^DD(.85,.04,23,1,0)
|
---|
| 3378 | ;;=This field is currently not used in this version of the release (as of
|
---|
| 3379 | ;;^DD(.85,.04,23,2,0)
|
---|
| 3380 | ;;=Fileman V22.2). In a future version when this file is upgraded to
|
---|
| 3381 | ;;^DD(.85,.04,23,3,0)
|
---|
| 3382 | ;;=ISO-639-6, a key will be added to this field.
|
---|
| 3383 | ;;^DD(.85,.04,"DT")
|
---|
| 3384 | ;;=3121101
|
---|
| 3385 | ;;^DD(.85,.05,0)
|
---|
| 3386 | ;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
|
---|
| 3387 | ;;^DD(.85,.05,3)
|
---|
| 3388 | ;;=Answer must be 3 characters in length.
|
---|
| 3389 | ;;^DD(.85,.05,21,0)
|
---|
| 3390 | ;;=^^4^4^3121101^
|
---|
| 3391 | ;;^DD(.85,.05,21,1,0)
|
---|
| 3392 | ;;=This is the alternate three letter code for a language. This will only be
|
---|
| 3393 | ;;^DD(.85,.05,21,2,0)
|
---|
| 3394 | ;;=used in cases where the language abbreviation is different in English
|
---|
| 3395 | ;;^DD(.85,.05,21,3,0)
|
---|
| 3396 | ;;=than in the native language. E.g. GER instead of DEU; for German instead
|
---|
| 3397 | ;;^DD(.85,.05,21,4,0)
|
---|
| 3398 | ;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
|
---|
| 3399 | ;;^DD(.85,.05,23,0)
|
---|
| 3400 | ;;=^^1^1^3121101^
|
---|
| 3401 | ;;^DD(.85,.05,23,1,0)
|
---|
| 3402 | ;;=In a future version of Fileman, this field will have an optional key.
|
---|
| 3403 |
|
---|
| 3404 | DINIT012
|
---|
| 3405 | DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
|
---|
| 3406 | ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
---|
| 3407 | 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
|
---|
| 3408 | Q Q
|
---|
| 3409 | ;;^DD(.85,.05,"DT")
|
---|
| 3410 | ;;=3121101
|
---|
| 3411 | ;;^DD(.85,.06,0)
|
---|
| 3412 | ;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
|
---|
| 3413 | ;;^DD(.85,.06,3)
|
---|
| 3414 | ;;=Select a language's scope
|
---|
| 3415 | ;;^DD(.85,.06,21,0)
|
---|
| 3416 | ;;=^^12^12^3121031^
|
---|
| 3417 | ;;^DD(.85,.06,21,1,0)
|
---|
| 3418 | ;;=Enter the Scope of a Language.
|
---|
| 3419 | ;;^DD(.85,.06,21,2,0)
|
---|
| 3420 | ;;=
|
---|
| 3421 | ;;^DD(.85,.06,21,3,0)
|
---|
| 3422 | ;;=Individual if the language is an individually identifiable language
|
---|
| 3423 | ;;^DD(.85,.06,21,4,0)
|
---|
| 3424 | ;;=(e.g. 'Cantonese').
|
---|
| 3425 | ;;^DD(.85,.06,21,5,0)
|
---|
| 3426 | ;;=
|
---|
| 3427 | ;;^DD(.85,.06,21,6,0)
|
---|
| 3428 | ;;=Macrolanguage if the language encopasses several other languages (e.g.
|
---|
| 3429 | ;;^DD(.85,.06,21,7,0)
|
---|
| 3430 | ;;='Chinese')
|
---|
| 3431 | ;;^DD(.85,.06,21,8,0)
|
---|
| 3432 | ;;=
|
---|
| 3433 | ;;^DD(.85,.06,21,9,0)
|
---|
| 3434 | ;;=Collective if the language is a language group (e.g. 'Languages,
|
---|
| 3435 | ;;^DD(.85,.06,21,10,0)
|
---|
| 3436 | ;;=Sino-Tibetan')
|
---|
| 3437 | ;;^DD(.85,.06,21,11,0)
|
---|
| 3438 | ;;=
|
---|
| 3439 | ;;^DD(.85,.06,21,12,0)
|
---|
| 3440 | ;;=Special and Local are reserved for specific entries.
|
---|
| 3441 | ;;^DD(.85,.06,23,0)
|
---|
| 3442 | ;;=^^1^1^3121101^
|
---|
| 3443 | ;;^DD(.85,.06,23,1,0)
|
---|
| 3444 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 3445 | ;;^DD(.85,.06,"DT")
|
---|
| 3446 | ;;=3121101
|
---|
| 3447 | ;;^DD(.85,.07,0)
|
---|
| 3448 | ;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
|
---|
| 3449 | ;;^DD(.85,.07,.1)
|
---|
| 3450 | ;;=Historical Status
|
---|
| 3451 | ;;^DD(.85,.07,3)
|
---|
| 3452 | ;;=Select a choice.
|
---|
| 3453 | ;;^DD(.85,.07,21,0)
|
---|
| 3454 | ;;=^^12^12^3121101^^
|
---|
| 3455 | ;;^DD(.85,.07,21,1,0)
|
---|
| 3456 | ;;=Living means that the language is spoken today (e.g. English).
|
---|
| 3457 | ;;^DD(.85,.07,21,2,0)
|
---|
| 3458 | ;;=
|
---|
| 3459 | ;;^DD(.85,.07,21,3,0)
|
---|
| 3460 | ;;=Constructed means that the language is artificial (e.g. Esperanto).
|
---|
| 3461 | ;;^DD(.85,.07,21,4,0)
|
---|
| 3462 | ;;=
|
---|
| 3463 | ;;^DD(.85,.07,21,5,0)
|
---|
| 3464 | ;;=Ancient means that the language is very old and not spoken any more (e.g.
|
---|
| 3465 | ;;^DD(.85,.07,21,6,0)
|
---|
| 3466 | ;;=Ancient Egyptian).
|
---|
| 3467 | ;;^DD(.85,.07,21,7,0)
|
---|
| 3468 | ;;=
|
---|
| 3469 | ;;^DD(.85,.07,21,8,0)
|
---|
| 3470 | ;;=Historical means that the language was being used in the Medieval times
|
---|
| 3471 | ;;^DD(.85,.07,21,9,0)
|
---|
| 3472 | ;;=and is not spoken any more (e.g. Old High German).
|
---|
| 3473 | ;;^DD(.85,.07,21,10,0)
|
---|
| 3474 | ;;=
|
---|
| 3475 | ;;^DD(.85,.07,21,11,0)
|
---|
| 3476 | ;;=Extinct means that the language was being used recently but has died out
|
---|
| 3477 | ;;^DD(.85,.07,21,12,0)
|
---|
| 3478 | ;;=(e.g. Cornish).
|
---|
| 3479 | ;;^DD(.85,.07,23,0)
|
---|
| 3480 | ;;=^^1^1^3121101^
|
---|
| 3481 | ;;^DD(.85,.07,23,1,0)
|
---|
| 3482 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 3483 | ;;^DD(.85,.07,"DT")
|
---|
| 3484 | ;;=3121101
|
---|
| 3485 | ;;^DD(.85,.08,0)
|
---|
| 3486 | ;;=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
|
---|
| 3487 | ;;^DD(.85,.08,3)
|
---|
| 3488 | ;;=Select a choice.
|
---|
| 3489 | ;;^DD(.85,.08,12)
|
---|
| 3490 | ;;=Only collective languages are selectable
|
---|
| 3491 | ;;^DD(.85,.08,12.1)
|
---|
| 3492 | ;;=S DIC("S")="I $P(^(0),U,6)=""C"""
|
---|
| 3493 | ;;^DD(.85,.08,21,0)
|
---|
| 3494 | ;;=^^1^1^3121101^^
|
---|
| 3495 | ;;^DD(.85,.08,21,1,0)
|
---|
| 3496 | ;;=Enter a language collection to which this language belongs.
|
---|
| 3497 | ;;^DD(.85,.08,23,0)
|
---|
| 3498 | ;;=^^1^1^3121101^
|
---|
| 3499 | ;;^DD(.85,.08,23,1,0)
|
---|
| 3500 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 3501 | ;;^DD(.85,.08,"DT")
|
---|
| 3502 | ;;=3121101
|
---|
| 3503 | ;;^DD(.85,.09,0)
|
---|
| 3504 | ;;=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
|
---|
| 3505 | ;;^DD(.85,.09,3)
|
---|
| 3506 | ;;=Enter a choice.
|
---|
| 3507 | ;;^DD(.85,.09,12)
|
---|
| 3508 | ;;=You may only select Macrolanguages
|
---|
| 3509 | ;;^DD(.85,.09,12.1)
|
---|
| 3510 | ;;=S DIC("S")="I $P(^(0),U,6)=""M"""
|
---|
| 3511 | ;;^DD(.85,.09,21,0)
|
---|
| 3512 | ;;=^^3^3^3121101^
|
---|
| 3513 | ;;^DD(.85,.09,21,1,0)
|
---|
| 3514 | ;;=If this language is a dialect of a macrolanguage, select the
|
---|
| 3515 | ;;^DD(.85,.09,21,2,0)
|
---|
| 3516 | ;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
|
---|
| 3517 | ;;^DD(.85,.09,21,3,0)
|
---|
| 3518 | ;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
|
---|
| 3519 | ;;^DD(.85,.09,23,0)
|
---|
| 3520 | ;;=^^1^1^3121101^
|
---|
| 3521 | ;;^DD(.85,.09,23,1,0)
|
---|
| 3522 | ;;=The current version of this file does not distribute data for this field.
|
---|
| 3523 | ;;^DD(.85,.09,"DT")
|
---|
| 3524 | ;;=3121101
|
---|
| 3525 | ;;^DD(.85,1,0)
|
---|
| 3526 | ;;=ALTERNATE NAME^.8501^^1;0
|
---|
| 3527 | ;;^DD(.85,10,0)
|
---|
| 3528 | ;;=DESCRIPTION^.8502^^10;0
|
---|
| 3529 | ;;^DD(.85,10,"DT")
|
---|
| 3530 | ;;=3121031
|
---|
| 3531 | ;;^DD(.85,10.1,0)
|
---|
| 3532 | ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3533 | ;;^DD(.85,10.1,3)
|
---|
| 3534 | ;;=This is Standard MUMPS code.
|
---|
| 3535 | ;;^DD(.85,10.1,9)
|
---|
| 3536 | ;;=@
|
---|
| 3537 | ;;^DD(.85,10.1,21,0)
|
---|
| 3538 | ;;=^^6^6^2941121^^^^
|
---|
| 3539 | ;;^DD(.85,10.1,21,1,0)
|
---|
| 3540 | ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
|
---|
| 3541 | ;;^DD(.85,10.1,21,2,0)
|
---|
| 3542 | ;;=this language. The code should set Y to the ordinal equivalent without
|
---|
| 3543 | ;;^DD(.85,10.1,21,3,0)
|
---|
| 3544 | ;;=altering any other variables in the environment. Ex. in English:
|
---|
| 3545 | ;;^DD(.85,10.1,21,4,0)
|
---|
| 3546 | ;;= Y=1 becomes Y=1ST
|
---|
| 3547 | ;;^DD(.85,10.1,21,5,0)
|
---|
| 3548 | ;;= Y=2 becomes Y=2ND
|
---|
| 3549 | ;;^DD(.85,10.1,21,6,0)
|
---|
| 3550 | ;;= Y=3 becomes Y=3RD etc.
|
---|
| 3551 | ;;^DD(.85,10.1,"DT")
|
---|
| 3552 | ;;=2940307
|
---|
| 3553 | ;;^DD(.85,10.2,0)
|
---|
| 3554 | ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3555 | ;;^DD(.85,10.2,3)
|
---|
| 3556 | ;;=This is Standard MUMPS code.
|
---|
| 3557 | ;;^DD(.85,10.2,9)
|
---|
| 3558 | ;;=@
|
---|
| 3559 | ;;^DD(.85,10.2,21,0)
|
---|
| 3560 | ;;=^^6^6^2941121^^^
|
---|
| 3561 | ;;^DD(.85,10.2,21,1,0)
|
---|
| 3562 | ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
---|
| 3563 | ;;^DD(.85,10.2,21,2,0)
|
---|
| 3564 | ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
|
---|
| 3565 | ;;^DD(.85,10.2,21,3,0)
|
---|
| 3566 | ;;=The code should set Y to the output, without altering any other variables
|
---|
| 3567 | ;;^DD(.85,10.2,21,4,0)
|
---|
| 3568 | ;;=in the environment. Ex. in English:
|
---|
| 3569 | ;;^DD(.85,10.2,21,5,0)
|
---|
| 3570 | ;;=
|
---|
| 3571 | ;;^DD(.85,10.2,21,6,0)
|
---|
| 3572 | ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
|
---|
| 3573 | ;;^DD(.85,10.2,"DT")
|
---|
| 3574 | ;;=2940307
|
---|
| 3575 | ;;^DD(.85,10.21,0)
|
---|
| 3576 | ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3577 | ;;^DD(.85,10.21,3)
|
---|
| 3578 | ;;=This is Standard MUMPS code.
|
---|
| 3579 | ;;^DD(.85,10.21,9)
|
---|
| 3580 | ;;=@
|
---|
| 3581 | ;;^DD(.85,10.21,21,0)
|
---|
| 3582 | ;;=^^22^22^2941122^
|
---|
| 3583 | ;;^DD(.85,10.21,21,1,0)
|
---|
| 3584 | ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
---|
| 3585 | ;;^DD(.85,10.21,21,2,0)
|
---|
| 3586 | ;;=format, to printable format based on the various outputs from routine
|
---|
| 3587 | ;;^DD(.85,10.21,21,3,0)
|
---|
| 3588 | ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
|
---|
| 3589 | ;;^DD(.85,10.21,21,4,0)
|
---|
| 3590 | ;;=code, in addition to the internal date in Y, a third parameter will be
|
---|
| 3591 | ;;^DD(.85,10.21,21,5,0)
|
---|
| 3592 | ;;=defined to contain flags equivalent to the flag passed as the second input
|
---|
| 3593 | ;;^DD(.85,10.21,21,6,0)
|
---|
| 3594 | ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
|
---|
| 3595 | ;;^DD(.85,10.21,21,7,0)
|
---|
| 3596 | ;;=altering any other variables in the environment. The output should be
|
---|
| 3597 | ;;^DD(.85,10.21,21,8,0)
|
---|
| 3598 | ;;=formatted based on these flags:
|
---|
| 3599 | ;;^DD(.85,10.21,21,9,0)
|
---|
| 3600 | ;;=
|
---|
| 3601 | ;;^DD(.85,10.21,21,10,0)
|
---|
| 3602 | ;;= 1 MMM DD, YYYY@HH:MM:SS
|
---|
| 3603 | ;;^DD(.85,10.21,21,11,0)
|
---|
| 3604 | ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
|
---|
| 3605 | ;;^DD(.85,10.21,21,12,0)
|
---|
| 3606 | ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
|
---|
| 3607 | ;;^DD(.85,10.21,21,13,0)
|
---|
| 3608 | ;;= 4 YY/MM/DD@HH:MM:SS
|
---|
| 3609 | ;;^DD(.85,10.21,21,14,0)
|
---|
| 3610 | ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
|
---|
| 3611 | ;;^DD(.85,10.21,21,15,0)
|
---|
| 3612 | ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
|
---|
| 3613 | ;;^DD(.85,10.21,21,16,0)
|
---|
| 3614 | ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
|
---|
| 3615 | ;;^DD(.85,10.21,21,17,0)
|
---|
| 3616 | ;;=
|
---|
| 3617 | ;;^DD(.85,10.21,21,18,0)
|
---|
| 3618 | ;;=letters in the flag
|
---|
| 3619 | ;;^DD(.85,10.21,21,19,0)
|
---|
| 3620 | ;;= S return always seconds
|
---|
| 3621 | ;;^DD(.85,10.21,21,20,0)
|
---|
| 3622 | ;;= U return uppercase month names
|
---|
| 3623 | ;;^DD(.85,10.21,21,21,0)
|
---|
| 3624 | ;;= P return time as am,pm
|
---|
| 3625 | ;;^DD(.85,10.21,21,22,0)
|
---|
| 3626 | ;;= D return only date part
|
---|
| 3627 | ;;^DD(.85,10.21,"DT")
|
---|
| 3628 | ;;=2940624
|
---|
| 3629 | ;;^DD(.85,10.22,0)
|
---|
| 3630 | ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3631 | ;;^DD(.85,10.22,3)
|
---|
| 3632 | ;;=This is Standard MUMPS code for the output of time only.
|
---|
| 3633 | ;;^DD(.85,10.22,9)
|
---|
| 3634 | ;;=@
|
---|
| 3635 | ;;^DD(.85,10.22,21,0)
|
---|
| 3636 | ;;=^^2^2^2960318^
|
---|
| 3637 | ;;^DD(.85,10.22,21,1,0)
|
---|
| 3638 | ;;=The code stored here will be used to get formatted output of the time
|
---|
| 3639 | ;;^DD(.85,10.22,21,2,0)
|
---|
| 3640 | ;;=part belonging to a FileMan Date/Time value.
|
---|
| 3641 | ;;^DD(.85,10.22,"DT")
|
---|
| 3642 | ;;=2960318
|
---|
| 3643 | ;;^DD(.85,10.3,0)
|
---|
| 3644 | ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3645 | ;;^DD(.85,10.3,3)
|
---|
| 3646 | ;;=This is Standard MUMPS code.
|
---|
| 3647 | ;;^DD(.85,10.3,9)
|
---|
| 3648 | ;;=@
|
---|
| 3649 | ;;^DD(.85,10.3,21,0)
|
---|
| 3650 | ;;=^^5^5^2941121^^
|
---|
| 3651 | ;;^DD(.85,10.3,21,1,0)
|
---|
| 3652 | ;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
|
---|
| 3653 | ;;^DD(.85,10.3,21,2,0)
|
---|
| 3654 | ;;=this language. The code should set Y to the cardinal equivalent without
|
---|
| 3655 | ;;^DD(.85,10.3,21,3,0)
|
---|
| 3656 | ;;=altering any other variables in the environment. Ex. in English:
|
---|
| 3657 | ;;^DD(.85,10.3,21,4,0)
|
---|
| 3658 | ;;= Y=2000 becomes Y=2,000
|
---|
| 3659 | ;;^DD(.85,10.3,21,5,0)
|
---|
| 3660 | ;;= Y=1234567 becomes Y=1,234,567
|
---|
| 3661 | ;;^DD(.85,10.3,"DT")
|
---|
| 3662 | ;;=2940308
|
---|
| 3663 | ;;^DD(.85,10.4,0)
|
---|
| 3664 | ;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3665 | ;;^DD(.85,10.4,3)
|
---|
| 3666 | ;;=This is Standard MUMPS code.
|
---|
| 3667 | ;;^DD(.85,10.4,9)
|
---|
| 3668 | ;;=@
|
---|
| 3669 | ;;^DD(.85,10.4,21,0)
|
---|
| 3670 | ;;=^^4^4^2941121^
|
---|
| 3671 | ;;^DD(.85,10.4,21,1,0)
|
---|
| 3672 | ;;=MUMPS code used to convert text in Y to its upper-case equivalent in
|
---|
| 3673 | ;;^DD(.85,10.4,21,2,0)
|
---|
| 3674 | ;;=this language. The code should set Y to the external format without
|
---|
| 3675 | ;;^DD(.85,10.4,21,3,0)
|
---|
| 3676 | ;;=altering any other variables in the environment. In English, changes
|
---|
| 3677 | ;;^DD(.85,10.4,21,4,0)
|
---|
| 3678 | ;;= abCdeF to: ABCDEF
|
---|
| 3679 | ;;^DD(.85,10.4,"DT")
|
---|
| 3680 | ;;=2940308
|
---|
| 3681 | ;;^DD(.85,10.5,0)
|
---|
| 3682 | ;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3683 | ;;^DD(.85,10.5,3)
|
---|
| 3684 | ;;=This is Standard MUMPS code.
|
---|
| 3685 | ;;^DD(.85,10.5,9)
|
---|
| 3686 | ;;=@
|
---|
| 3687 | ;;^DD(.85,10.5,21,0)
|
---|
| 3688 | ;;=^^4^4^2941121^
|
---|
| 3689 | ;;^DD(.85,10.5,21,1,0)
|
---|
| 3690 | ;;=MUMPS code used to convert text in Y to its lower-case equivalent in
|
---|
| 3691 | ;;^DD(.85,10.5,21,2,0)
|
---|
| 3692 | ;;=this language. The code should set Y to the external format without
|
---|
| 3693 | ;;^DD(.85,10.5,21,3,0)
|
---|
| 3694 | ;;=altering any other variables in the environment. In English, changes:
|
---|
| 3695 | ;;^DD(.85,10.5,21,4,0)
|
---|
| 3696 | ;;= ABcdEFgHij to: abcdefghij
|
---|
| 3697 | ;;^DD(.85,10.5,"DT")
|
---|
| 3698 | ;;=2940308
|
---|
| 3699 | ;;^DD(.85,20.2,0)
|
---|
| 3700 | ;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 3701 | ;;^DD(.85,20.2,3)
|
---|
| 3702 | ;;=This is Standard MUMPS code.
|
---|
| 3703 | ;;^DD(.85,20.2,9)
|
---|
| 3704 | ;;=@
|
---|
| 3705 | ;;^DD(.85,20.2,"DT")
|
---|
| 3706 | ;;=2940714
|
---|
| 3707 | ;;^DD(.8501,0)
|
---|
| 3708 | ;;=ALTERNATE NAME SUB-FIELD^^.01^1
|
---|
| 3709 | ;;^DD(.8501,0,"DT")
|
---|
| 3710 | ;;=3121101
|
---|
| 3711 | ;;^DD(.8501,0,"IX","B",.8501,.01)
|
---|
| 3712 | ;;=
|
---|
| 3713 | ;;^DD(.8501,0,"NM","ALTERNATE NAME")
|
---|
| 3714 | ;;=
|
---|
| 3715 | ;;^DD(.8501,0,"UP")
|
---|
| 3716 | ;;=.85
|
---|
| 3717 | ;;^DD(.8501,.01,0)
|
---|
| 3718 | ;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
---|
| 3719 | ;;^DD(.8501,.01,1,0)
|
---|
| 3720 | ;;=^.1
|
---|
| 3721 | ;;^DD(.8501,.01,1,1,0)
|
---|
| 3722 | ;;=.8501^B
|
---|
| 3723 | ;;^DD(.8501,.01,1,1,1)
|
---|
| 3724 | ;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
|
---|
| 3725 | ;;^DD(.8501,.01,1,1,2)
|
---|
| 3726 | ;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
|
---|
| 3727 | ;;^DD(.8501,.01,1,2,0)
|
---|
| 3728 | ;;=.85^F
|
---|
| 3729 | ;;^DD(.8501,.01,1,2,1)
|
---|
| 3730 | ;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
|
---|
| 3731 | ;;^DD(.8501,.01,1,2,2)
|
---|
| 3732 | ;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
|
---|
| 3733 | ;;^DD(.8501,.01,1,2,3)
|
---|
| 3734 | ;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
|
---|
| 3735 | ;;^DD(.8501,.01,1,2,"%D",0)
|
---|
| 3736 | ;;=^^1^1^3121101^
|
---|
| 3737 | ;;^DD(.8501,.01,1,2,"%D",1,0)
|
---|
| 3738 | ;;=Whole file cross-reference for ALTERNATE NAME multiple.
|
---|
| 3739 | ;;^DD(.8501,.01,1,2,"DT")
|
---|
| 3740 | ;;=3121101
|
---|
| 3741 | ;;^DD(.8501,.01,3)
|
---|
| 3742 | ;;=Answer must be 1-60 characters in length.
|
---|
| 3743 | ;;^DD(.8501,.01,21,0)
|
---|
| 3744 | ;;=^^2^2^3121101^^
|
---|
| 3745 | ;;^DD(.8501,.01,21,1,0)
|
---|
| 3746 | ;;=This field contains other synonyms for a language.
|
---|
| 3747 | ;;^DD(.8501,.01,21,2,0)
|
---|
| 3748 | ;;=E.g. for Greek, synonyms include Ellinika and Romaic.
|
---|
| 3749 | ;;^DD(.8501,.01,"DT")
|
---|
| 3750 | ;;=3121101
|
---|
| 3751 | ;;^DD(.8502,0)
|
---|
| 3752 | ;;=DESCRIPTION SUB-FIELD^^.01^1
|
---|
| 3753 | ;;^DD(.8502,0,"DT")
|
---|
| 3754 | ;;=3121031
|
---|
| 3755 | ;;^DD(.8502,0,"NM","DESCRIPTION")
|
---|
| 3756 | ;;=
|
---|
| 3757 | ;;^DD(.8502,0,"UP")
|
---|
| 3758 | ;;=.85
|
---|
| 3759 | ;;^DD(.8502,.01,0)
|
---|
| 3760 | ;;=DESCRIPTION^Wx^^0;1
|
---|
| 3761 | ;;^DD(.8502,.01,3)
|
---|
| 3762 | ;;=Enter an optional language description
|
---|
| 3763 | ;;^DD(.8502,.01,"DT")
|
---|
| 3764 | ;;=3121031
|
---|
| 3765 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
|
---|
| 3766 | ;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
|
---|
| 3767 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
|
---|
| 3768 | ;;=S ^DI(.85,"B",X,DA)=""
|
---|
| 3769 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
|
---|
| 3770 | ;;=K ^DI(.85,"B",X,DA)
|
---|
| 3771 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
|
---|
| 3772 | ;;=K ^DI(.85,"B")
|
---|
| 3773 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
|
---|
| 3774 | ;;=^.114IA^1^1
|
---|
| 3775 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
|
---|
| 3776 | ;;=1^F^.85^.01^^1^F
|
---|
| 3777 | ;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
|
---|
| 3778 | ;;=
|
---|
| 3779 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
|
---|
| 3780 | ;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
|
---|
| 3781 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
|
---|
| 3782 | ;;=S ^DI(.85,"C",X,DA)=""
|
---|
| 3783 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
|
---|
| 3784 | ;;=K ^DI(.85,"C",X,DA)
|
---|
| 3785 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
|
---|
| 3786 | ;;=K ^DI(.85,"C")
|
---|
| 3787 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
|
---|
| 3788 | ;;=^.114IA^1^1
|
---|
| 3789 | ;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
|
---|
| 3790 | ;;=1^F^.85^.02^^1^F
|
---|
| 3791 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
|
---|
| 3792 | ;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
|
---|
| 3793 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
|
---|
| 3794 | ;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
|
---|
| 3795 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
|
---|
| 3796 | ;;=K ^DI(.85,"D",$E(X,1,30),DA)
|
---|
| 3797 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
|
---|
| 3798 | ;;=K ^DI(.85,"D")
|
---|
| 3799 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
|
---|
| 3800 | ;;=^.114IA^1^1
|
---|
| 3801 | ;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
|
---|
| 3802 | ;;=1^F^.85^.03^30^1^F
|
---|
| 3803 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
|
---|
| 3804 | ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
|
---|
| 3805 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
|
---|
| 3806 | ;;=^^6^6^3121031^
|
---|
| 3807 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
|
---|
| 3808 | ;;=This will add entries to the D index for the three letter code a la the
|
---|
| 3809 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
|
---|
| 3810 | ;;=mnemonic style.
|
---|
| 3811 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
|
---|
| 3812 | ;;=
|
---|
| 3813 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
|
---|
| 3814 | ;;=If you need re-cross-reference this field, you need to kill of the
|
---|
| 3815 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
|
---|
| 3816 | ;;=entries in the regular D index, set the D index, and then set this index
|
---|
| 3817 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
|
---|
| 3818 | ;;=to update the D with the mnemonic xrefs.
|
---|
| 3819 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
|
---|
| 3820 | ;;=S ^DI(.85,"D",X,DA)=1
|
---|
| 3821 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
|
---|
| 3822 | ;;=K ^DI(.85,"D",X,DA)
|
---|
| 3823 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
|
---|
| 3824 | ;;=^.114IA^1^1
|
---|
| 3825 | ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
|
---|
| 3826 | ;;=1^F^.85^.05^^1^F
|
---|
| 3827 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
|
---|
| 3828 | ;;=.85^A^P^1046
|
---|
| 3829 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
|
---|
| 3830 | ;;=^.312IA^1^1
|
---|
| 3831 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
|
---|
| 3832 | ;;=.01^.85^1
|
---|
| 3833 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
|
---|
| 3834 | ;;=.85^B^S^1048
|
---|
| 3835 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
|
---|
| 3836 | ;;=^.312IA^1^1
|
---|
| 3837 | ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
|
---|
| 3838 | ;;=.03^.85^1
|
---|
| 3839 | ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
|
---|
| 3840 | ;;=.85^B
|
---|
| 3841 | ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
|
---|
| 3842 | ;;=.85^D
|
---|
| 3843 |
|
---|
| 3844 | DINIT013
|
---|
| 3845 | DINIT013 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS ;3121101 ; 11/2/12 8:41am
|
---|
| 3846 | ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
---|
| 3847 | 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
|
---|
| 3848 | Q Q
|
---|
| 3849 | ;;^UTILITY(U,$J,.85)
|
---|
| 3850 | ;;=^DI(.85,
|
---|
| 3851 | ;;^UTILITY(U,$J,.85,0)
|
---|
| 3852 | ;;=LANGUAGE^.85I^18^11
|
---|
| 3853 | ;;^UTILITY(U,$J,.85,1,0)
|
---|
| 3854 | ;;=ENGLISH^EN^ENG
|
---|
| 3855 | ;;^UTILITY(U,$J,.85,1,1,0)
|
---|
| 3856 | ;;=^.8501^2^2
|
---|
| 3857 | ;;^UTILITY(U,$J,.85,1,1,1,0)
|
---|
| 3858 | ;;=MODERN ENGLISH (1500-)
|
---|
| 3859 | ;;^UTILITY(U,$J,.85,1,1,2,0)
|
---|
| 3860 | ;;=ENGLISH,MODERN (1500-)
|
---|
| 3861 | ;;^UTILITY(U,$J,.85,1,"CRD")
|
---|
| 3862 | ;;=I Y S Y=$FN(Y,",")
|
---|
| 3863 | ;;^UTILITY(U,$J,.85,1,"DD")
|
---|
| 3864 | ;;=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[".")
|
---|
| 3865 | ;;^UTILITY(U,$J,.85,1,"FMTE")
|
---|
| 3866 | ;;=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
|
---|
| 3867 | ;;^UTILITY(U,$J,.85,1,"LC")
|
---|
| 3868 | ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
|
---|
| 3869 | ;;^UTILITY(U,$J,.85,1,"ORD")
|
---|
| 3870 | ;;=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")
|
---|
| 3871 | ;;^UTILITY(U,$J,.85,1,"TIME")
|
---|
| 3872 | ;;=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:"")
|
---|
| 3873 | ;;^UTILITY(U,$J,.85,1,"UC")
|
---|
| 3874 | ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
---|
| 3875 | ;;^UTILITY(U,$J,.85,2,0)
|
---|
| 3876 | ;;=GERMAN^DE^DEU^^GER
|
---|
| 3877 | ;;^UTILITY(U,$J,.85,2,1,0)
|
---|
| 3878 | ;;=^.8501^7^7
|
---|
| 3879 | ;;^UTILITY(U,$J,.85,2,1,1,0)
|
---|
| 3880 | ;;=GERMAN, STANDARD
|
---|
| 3881 | ;;^UTILITY(U,$J,.85,2,1,2,0)
|
---|
| 3882 | ;;=STANDARD GERMAN
|
---|
| 3883 | ;;^UTILITY(U,$J,.85,2,1,3,0)
|
---|
| 3884 | ;;=DEUTSCH
|
---|
| 3885 | ;;^UTILITY(U,$J,.85,2,1,4,0)
|
---|
| 3886 | ;;=DEUTSCH SPRACHE
|
---|
| 3887 | ;;^UTILITY(U,$J,.85,2,1,5,0)
|
---|
| 3888 | ;;=TEDESCO
|
---|
| 3889 | ;;^UTILITY(U,$J,.85,2,1,6,0)
|
---|
| 3890 | ;;=MODERN GERMAN (1500-)
|
---|
| 3891 | ;;^UTILITY(U,$J,.85,2,1,7,0)
|
---|
| 3892 | ;;=GERMAN,MODERN (1500-)
|
---|
| 3893 | ;;^UTILITY(U,$J,.85,2,"CRD")
|
---|
| 3894 | ;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
|
---|
| 3895 | ;;^UTILITY(U,$J,.85,2,"DD")
|
---|
| 3896 | ;;=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[".")
|
---|
| 3897 | ;;^UTILITY(U,$J,.85,2,"LC")
|
---|
| 3898 | ;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
|
---|
| 3899 | ;;^UTILITY(U,$J,.85,2,"ORD")
|
---|
| 3900 | ;;=S:$G(Y) Y=Y_"."
|
---|
| 3901 | ;;^UTILITY(U,$J,.85,2,"TIME")
|
---|
| 3902 | ;;=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:"")
|
---|
| 3903 | ;;^UTILITY(U,$J,.85,2,"UC")
|
---|
| 3904 | ;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
|
---|
| 3905 | ;;^UTILITY(U,$J,.85,3,0)
|
---|
| 3906 | ;;=SPANISH^ES^SPA
|
---|
| 3907 | ;;^UTILITY(U,$J,.85,3,1,0)
|
---|
| 3908 | ;;=^.8501^5^5
|
---|
| 3909 | ;;^UTILITY(U,$J,.85,3,1,1,0)
|
---|
| 3910 | ;;=CASTILIAN
|
---|
| 3911 | ;;^UTILITY(U,$J,.85,3,1,2,0)
|
---|
| 3912 | ;;=CASTELLANO
|
---|
| 3913 | ;;^UTILITY(U,$J,.85,3,1,3,0)
|
---|
| 3914 | ;;=ESPANOL
|
---|
| 3915 | ;;^UTILITY(U,$J,.85,3,1,4,0)
|
---|
| 3916 | ;;=MODERN SPANISH (1500-)
|
---|
| 3917 | ;;^UTILITY(U,$J,.85,3,1,5,0)
|
---|
| 3918 | ;;=SPANISH, MODERN (1500-)
|
---|
| 3919 | ;;^UTILITY(U,$J,.85,4,0)
|
---|
| 3920 | ;;=FRENCH^FR^FRA^^FRE
|
---|
| 3921 | ;;^UTILITY(U,$J,.85,4,1,0)
|
---|
| 3922 | ;;=^.8501^3^3
|
---|
| 3923 | ;;^UTILITY(U,$J,.85,4,1,1,0)
|
---|
| 3924 | ;;=FRANCAIS
|
---|
| 3925 | ;;^UTILITY(U,$J,.85,4,1,2,0)
|
---|
| 3926 | ;;=MODERN FRENCH (1600-)
|
---|
| 3927 | ;;^UTILITY(U,$J,.85,4,1,3,0)
|
---|
| 3928 | ;;=FRENCH, MODERN (1600-)
|
---|
| 3929 | ;;^UTILITY(U,$J,.85,5,0)
|
---|
| 3930 | ;;=FINNISH^FI^FIN
|
---|
| 3931 | ;;^UTILITY(U,$J,.85,5,1,0)
|
---|
| 3932 | ;;=^.8501^3^3
|
---|
| 3933 | ;;^UTILITY(U,$J,.85,5,1,1,0)
|
---|
| 3934 | ;;=SUOMEA
|
---|
| 3935 | ;;^UTILITY(U,$J,.85,5,1,2,0)
|
---|
| 3936 | ;;=SUOMI
|
---|
| 3937 | ;;^UTILITY(U,$J,.85,5,1,3,0)
|
---|
| 3938 | ;;=SUOMEN KIELI
|
---|
| 3939 | ;;^UTILITY(U,$J,.85,5,"DD")
|
---|
| 3940 | ;;=X:$G(Y) ^DD("DD")
|
---|
| 3941 | ;;^UTILITY(U,$J,.85,5,"ORD")
|
---|
| 3942 | ;;=I $G(Y) S Y=Y_"."
|
---|
| 3943 | ;;^UTILITY(U,$J,.85,6,0)
|
---|
| 3944 | ;;=ITALIAN^IT^ITA
|
---|
| 3945 | ;;^UTILITY(U,$J,.85,6,1,0)
|
---|
| 3946 | ;;=^.8501^2^2
|
---|
| 3947 | ;;^UTILITY(U,$J,.85,6,1,1,0)
|
---|
| 3948 | ;;=ITALIANO
|
---|
| 3949 | ;;^UTILITY(U,$J,.85,6,1,2,0)
|
---|
| 3950 | ;;=LINGUA ITALIANA
|
---|
| 3951 | ;;^UTILITY(U,$J,.85,7,0)
|
---|
| 3952 | ;;=PORTUGUESE^PT^POR
|
---|
| 3953 | ;;^UTILITY(U,$J,.85,7,1,0)
|
---|
| 3954 | ;;=^.8501^4^4
|
---|
| 3955 | ;;^UTILITY(U,$J,.85,7,1,1,0)
|
---|
| 3956 | ;;=PORTUGUES
|
---|
| 3957 | ;;^UTILITY(U,$J,.85,7,1,2,0)
|
---|
| 3958 | ;;=LINGUA PORTUGUESA
|
---|
| 3959 | ;;^UTILITY(U,$J,.85,7,1,3,0)
|
---|
| 3960 | ;;=MODERN PORTUGUESE (1516-)
|
---|
| 3961 | ;;^UTILITY(U,$J,.85,7,1,4,0)
|
---|
| 3962 | ;;=PORTUGUESE, MODERN (1516-)
|
---|
| 3963 | ;;^UTILITY(U,$J,.85,10,0)
|
---|
| 3964 | ;;=ARABIC^AR^ARA
|
---|
| 3965 | ;;^UTILITY(U,$J,.85,10,1,0)
|
---|
| 3966 | ;;=^.8501^2^2
|
---|
| 3967 | ;;^UTILITY(U,$J,.85,10,1,1,0)
|
---|
| 3968 | ;;=AL-'ARABIYYAH
|
---|
| 3969 | ;;^UTILITY(U,$J,.85,10,1,2,0)
|
---|
| 3970 | ;;='ARABI
|
---|
| 3971 | ;;^UTILITY(U,$J,.85,11,0)
|
---|
| 3972 | ;;=RUSSIAN^RU^RUS
|
---|
| 3973 | ;;^UTILITY(U,$J,.85,11,1,0)
|
---|
| 3974 | ;;=^.8501^2^2
|
---|
| 3975 | ;;^UTILITY(U,$J,.85,11,1,1,0)
|
---|
| 3976 | ;;=RUSSKI
|
---|
| 3977 | ;;^UTILITY(U,$J,.85,11,1,2,0)
|
---|
| 3978 | ;;=RUSSKIY YAZYK
|
---|
| 3979 | ;;^UTILITY(U,$J,.85,12,0)
|
---|
| 3980 | ;;=GREEK^EL^ELL^^GRE
|
---|
| 3981 | ;;^UTILITY(U,$J,.85,12,1,0)
|
---|
| 3982 | ;;=^.8501^9^9
|
---|
| 3983 | ;;^UTILITY(U,$J,.85,12,1,1,0)
|
---|
| 3984 | ;;=ELLINIKA
|
---|
| 3985 | ;;^UTILITY(U,$J,.85,12,1,2,0)
|
---|
| 3986 | ;;=ELLINIKI GLOSSA
|
---|
| 3987 | ;;^UTILITY(U,$J,.85,12,1,3,0)
|
---|
| 3988 | ;;=GRAECAE
|
---|
| 3989 | ;;^UTILITY(U,$J,.85,12,1,4,0)
|
---|
| 3990 | ;;=GREC
|
---|
| 3991 | ;;^UTILITY(U,$J,.85,12,1,5,0)
|
---|
| 3992 | ;;=GRECO
|
---|
| 3993 | ;;^UTILITY(U,$J,.85,12,1,6,0)
|
---|
| 3994 | ;;=NEO-HELLENIC
|
---|
| 3995 | ;;^UTILITY(U,$J,.85,12,1,7,0)
|
---|
| 3996 | ;;=ROMAIC
|
---|
| 3997 | ;;^UTILITY(U,$J,.85,12,1,8,0)
|
---|
| 3998 | ;;=MODERN GREEK (1453-)
|
---|
| 3999 | ;;^UTILITY(U,$J,.85,12,1,9,0)
|
---|
| 4000 | ;;=GREEK, MODERN (1453-)
|
---|
| 4001 | ;;^UTILITY(U,$J,.85,18,0)
|
---|
| 4002 | ;;=HEBREW^HE^HEB
|
---|
| 4003 | ;;^UTILITY(U,$J,.85,18,1,0)
|
---|
| 4004 | ;;=^.8501^3^3
|
---|
| 4005 | ;;^UTILITY(U,$J,.85,18,1,1,0)
|
---|
| 4006 | ;;=IVRIT
|
---|
| 4007 | ;;^UTILITY(U,$J,.85,18,1,2,0)
|
---|
| 4008 | ;;=MODERN HEBREW (1881-)
|
---|
| 4009 | ;;^UTILITY(U,$J,.85,18,1,3,0)
|
---|
| 4010 | ;;=HEBREW, MODERN (1881-)
|
---|
| 4011 |
|
---|
| 4012 |
|
---|
| 4013 |
|
---|