Move all file in one folder
This commit is contained in:
parent
98093dbfbf
commit
e778d21bba
|
|
@ -0,0 +1,13 @@
|
|||
# VistA-Miscellaneous Project
|
||||
|
||||
|
||||
## immunizations_hl7
|
||||
https://trac.opensourcevista.net/svn/immunizations_hl7
|
||||
|
||||
|
||||
## lang_file4mu1and2
|
||||
https://trac.opensourcevista.net/svn/mu-stage1-reg-changes
|
||||
|
||||
|
||||
## mu_stage1_reg_changes
|
||||
https://trac.opensourcevista.net/svn/lang-file4mu1and2
|
||||
|
|
@ -0,0 +1,99 @@
|
|||
DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM 30 Mar 1999 ; 11/14/12 11:18am
|
||||
V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
||||
D KL^DINIT6
|
||||
N ;
|
||||
D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW
|
||||
I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D
|
||||
. W $C(7),!!,"*** WARNING!! VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!
|
||||
S Y=$G(^DD("OS")) I Y,"1,2,3,4,5,6,10,11,12,13,15,"[(Y_",") W $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21." G KL^DINIT6
|
||||
DO W !!,"Initialize VA FileMan now? NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6
|
||||
I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO
|
||||
NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "
|
||||
R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")
|
||||
I X'?1AN.ANP W " ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA
|
||||
S %X=X
|
||||
NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "
|
||||
R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)
|
||||
S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X
|
||||
I X'>0 W " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO
|
||||
;***** REMOVE AFTER V21 INIT *****
|
||||
;D
|
||||
;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC Q:DIREC>10000 K ^DI(.84,DIREC,5)
|
||||
;. Q
|
||||
;*********************************
|
||||
K ^DD(0) D ^DINIT0,^DINIT11B
|
||||
D OSETC
|
||||
W ! S Y=1 D OS G KL^DINIT6:Y<0
|
||||
W !!,"Now loading other FileMan files--please wait." G GO
|
||||
;
|
||||
;
|
||||
OS W ! S DIC="^DD(""OS"",",DIC(0)="IAQE",DIC("A")="TYPE OF MUMPS SYSTEM YOU ARE USING: " I $D(^DD("OS"))#2 S (DITZS,DIC("B"))=^("OS") S:DITZS=7 (DITZS,DIC("B"))=18
|
||||
E S (DITZS,^DD("OS"))=100
|
||||
D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y
|
||||
I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D
|
||||
. S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""
|
||||
. S ZTDESC="Set Operating System" D ^%ZTLOAD Q
|
||||
Q K DITZS,ZTSK Q
|
||||
VERSION ;
|
||||
S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
|
||||
;
|
||||
GO S I=$C(126),DIT=$P($H,",",2)
|
||||
S $P(^DIBT(0),U,1,2)="TEMPLATE^.4I",$P(^DIE(0),U,1,2)="TEMPLATE^.4I",$P(^DIPT(0),U,1,2)="TEMPLATE^.4I",^(.01,0)="CAPTIONED^",^("F",1)="S DIC=DCC,DA=D0 D EN^DIQ"
|
||||
S ^DIPT(.02,0)="FILE SECURITY CODES^^^1",^("F",1)=".01;L20"_I_"0;R13"_I_31_I_33_I_35_I_34_I_32_I_21_I_20
|
||||
S ^DIA(0)="AUDIT^1.1I"
|
||||
K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)
|
||||
K ^DIC(.403),^(.404),^(1.2)
|
||||
K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)
|
||||
F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")
|
||||
K ^DIC(.46),^DD(.46),^(.461),^(.463)
|
||||
K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)
|
||||
F I=1.521,1.52101,1.5211,1.5212,1.5213,1.5214,1.5215,1.5216,1.5217,1.5218,1.5219,1.52191,1.52192 K ^DIC(I),^DD(I)
|
||||
G ^DINIT0F0
|
||||
;
|
||||
OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
|
||||
N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0
|
||||
W !!,"Now loading MUMPS Operating System File"
|
||||
D ^DINIT21,OSDD^DINIT24
|
||||
S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3
|
||||
S ^DIC(.7,"%D",0)="^^5^5^2940908^"
|
||||
S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code. Since the code to invoke"
|
||||
S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"
|
||||
S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"
|
||||
S ^DIC(.7,"%D",4,0)="this file. During the FileMan INIT process an operating system is"
|
||||
S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."
|
||||
K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3
|
||||
K DA,DIK S DIK="^DD(""OS""," D X^DINIT3
|
||||
D
|
||||
. N I,DA,DIK F I=1,2,3,4,5,6,7,10,11,12,13,14,15 S DA=I,DIK="^DD(""OS""," D ^DIK
|
||||
. Q
|
||||
;
|
||||
K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
|
||||
K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
|
||||
K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
|
||||
S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
|
||||
S $P(^DIC(.84,0),U,1,2)="DIALOG^.84",$P(^DI(.84,0),U,1,2)="DIALOG^.84I" I $D(^DIC(.84,0,"GL")) D A1^DINIT3
|
||||
S $P(^DIC(.85,0),U,1,2)="LANGUAGE^.85",$P(^DI(.85,0),U,1,2)="LANGUAGE^.85I" I $D(^DIC(.85,0,"GL")) D A1^DINIT3
|
||||
F I=.84,.841,.842,.844,.845,.847,.8471,.85,.8501,.8502 D XX^DINIT3 ; VEN/SMH - added .8501 and .8502 for new lang file
|
||||
; Keys and new style indexes installer ; new in FM V22.2
|
||||
N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
|
||||
N DIFRFILE S DIFRFILE=0 ; Loop through files
|
||||
F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
|
||||
. K ^TMP("DIFROMS2",$J,"TRIG")
|
||||
. N DIFRD S DIFRD=0
|
||||
. F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
|
||||
. K ^TMP("DIFROMS2",$J,"TRIG")
|
||||
. S DIFRD=0
|
||||
. F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
|
||||
K @DIFRSA ; kill off tran global
|
||||
;
|
||||
D DATA
|
||||
Q
|
||||
;
|
||||
; VEN/SMH - added kill D1 since that causes a problem with Transfer/Merge
|
||||
; for keyed fields if it leaks from the symbol table.
|
||||
DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
|
||||
S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=0 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 K D1 Q:'$D(^(D0,0)) S Z=^(0) D I^DITR
|
||||
K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
|
||||
;
|
||||
B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)
|
||||
N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
||||
|
|
@ -0,0 +1,412 @@
|
|||
DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
|
||||
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
||||
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
|
||||
Q Q
|
||||
;;^DIC(.85,0,"GL")
|
||||
;;=^DI(.85,
|
||||
;;^DIC("B","LANGUAGE",.85)
|
||||
;;=
|
||||
;;^DIC(.85,"%",0)
|
||||
;;=^1.005
|
||||
;;^DIC(.85,"%D",0)
|
||||
;;=^^27^27^3121101^
|
||||
;;^DIC(.85,"%D",1,0)
|
||||
;;=The LANGUAGE file is used both to officially identify a language, and to
|
||||
;;^DIC(.85,"%D",2,0)
|
||||
;;=store MUMPS code needed to do language-specific conversions of data such
|
||||
;;^DIC(.85,"%D",3,0)
|
||||
;;=as dates and numbers.
|
||||
;;^DIC(.85,"%D",4,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",5,0)
|
||||
;;=Fileman distributes entries for the following languages:
|
||||
;;^DIC(.85,"%D",6,0)
|
||||
;;= ID Number (.001) Name (.01)
|
||||
;;^DIC(.85,"%D",7,0)
|
||||
;;= 1 English
|
||||
;;^DIC(.85,"%D",8,0)
|
||||
;;= 2 German
|
||||
;;^DIC(.85,"%D",9,0)
|
||||
;;= 3 Spanish
|
||||
;;^DIC(.85,"%D",10,0)
|
||||
;;= 4 French
|
||||
;;^DIC(.85,"%D",11,0)
|
||||
;;= 5 Finnish
|
||||
;;^DIC(.85,"%D",12,0)
|
||||
;;= 6 Italian
|
||||
;;^DIC(.85,"%D",13,0)
|
||||
;;= 7 Portuguese
|
||||
;;^DIC(.85,"%D",14,0)
|
||||
;;= 10 Arabic
|
||||
;;^DIC(.85,"%D",15,0)
|
||||
;;= 11 Russian
|
||||
;;^DIC(.85,"%D",16,0)
|
||||
;;= 12 Greek
|
||||
;;^DIC(.85,"%D",17,0)
|
||||
;;= 18 Hebrew
|
||||
;;^DIC(.85,"%D",18,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",19,0)
|
||||
;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
|
||||
;;^DIC(.85,"%D",20,0)
|
||||
;;=DILAINIT routines, shipped with Fileman 22.2.
|
||||
;;^DIC(.85,"%D",21,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",22,0)
|
||||
;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
|
||||
;;^DIC(.85,"%D",23,0)
|
||||
;;=also allows non-English text to be returned via FileMan calls.
|
||||
;;^DIC(.85,"%D",24,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",25,0)
|
||||
;;=A note to VISTA developers: Although users can select entries by name,
|
||||
;;^DIC(.85,"%D",26,0)
|
||||
;;=software should use the official two or three letter codes to eliminiate
|
||||
;;^DIC(.85,"%D",27,0)
|
||||
;;=mistakes resulting from languages that have similar spelling.
|
||||
;;^DIC(.85,"%MSC")
|
||||
;;=3121114.111954
|
||||
;;^DD(.85,0)
|
||||
;;=FIELD^^10^20
|
||||
;;^DD(.85,0,"DDA")
|
||||
;;=N
|
||||
;;^DD(.85,0,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,0,"ID",.02)
|
||||
;;=W " ",$P(^(0),U,2)
|
||||
;;^DD(.85,0,"ID",.03)
|
||||
;;=W " ",$P(^(0),U,3)
|
||||
;;^DD(.85,0,"IX","F",.8501,.01)
|
||||
;;=
|
||||
;;^DD(.85,0,"NM","LANGUAGE")
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.007,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.008,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.009,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.4,709.1)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.4,1819.1)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.847,.01)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.85,.08)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.85,.09)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",1.008,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",200,200.07)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",8989.3,207)
|
||||
;;=
|
||||
;;^DD(.85,.001,0)
|
||||
;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
|
||||
;;^DD(.85,.001,3)
|
||||
;;=Type a number between 1 and 9999999999, 0 decimal digits.
|
||||
;;^DD(.85,.001,21,0)
|
||||
;;=^^3^3^3121031^^
|
||||
;;^DD(.85,.001,21,1,0)
|
||||
;;=A number that is used to uniquely identify a language. This number
|
||||
;;^DD(.85,.001,21,2,0)
|
||||
;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
|
||||
;;^DD(.85,.001,21,3,0)
|
||||
;;=during Kernel signon to signify which language Fileman should use.
|
||||
;;^DD(.85,.001,23,0)
|
||||
;;=^^31^31^3121031^
|
||||
;;^DD(.85,.001,23,1,0)
|
||||
;;=Entries in this file are standardized, with the contents controlled by
|
||||
;;^DD(.85,.001,23,2,0)
|
||||
;;=the Fileman Primary Development Team. The ID Number field is used to help
|
||||
;;^DD(.85,.001,23,3,0)
|
||||
;;=protect referential integrity in VISTA databases during upgrades to the
|
||||
;;^DD(.85,.001,23,4,0)
|
||||
;;=file. ID Number assignment corresponds to the order in which languages
|
||||
;;^DD(.85,.001,23,5,0)
|
||||
;;=were added to the file. They were added in segments.
|
||||
;;^DD(.85,.001,23,6,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,7,0)
|
||||
;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
|
||||
;;^DD(.85,.001,23,8,0)
|
||||
;;=were the first eleven languages added, in order. English is first because
|
||||
;;^DD(.85,.001,23,9,0)
|
||||
;;=Fileman was originally written in English. German is second because
|
||||
;;^DD(.85,.001,23,10,0)
|
||||
;;=Marcus Werners of Germany led the effort to create Fileman's dialog
|
||||
;;^DD(.85,.001,23,11,0)
|
||||
;;=framework, to make translating VISTA into other languages easier.
|
||||
;;^DD(.85,.001,23,12,0)
|
||||
;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
|
||||
;;^DD(.85,.001,23,13,0)
|
||||
;;=which the Fileman team was approached by potential translators about
|
||||
;;^DD(.85,.001,23,14,0)
|
||||
;;=adding those languages to the file (though Finnish actually predates all
|
||||
;;^DD(.85,.001,23,15,0)
|
||||
;;=other translation efforts except English). Arabic was assigned ID Number
|
||||
;;^DD(.85,.001,23,16,0)
|
||||
;;=10 instead of 8 in recognition of the debt English owes Arabic for
|
||||
;;^DD(.85,.001,23,17,0)
|
||||
;;=introducing the decimal numbering system to Europe. Russian and Greek
|
||||
;;^DD(.85,.001,23,18,0)
|
||||
;;=were the next two translations the Fileman team was approached about. I
|
||||
;;^DD(.85,.001,23,19,0)
|
||||
;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
|
||||
;;^DD(.85,.001,23,20,0)
|
||||
;;=sure there was a reason.
|
||||
;;^DD(.85,.001,23,21,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,22,0)
|
||||
;;=Thereafter, languages are added in segments, in order by Name, starting
|
||||
;;^DD(.85,.001,23,23,0)
|
||||
;;=with ID Number 8. The segments correspond to the ISO 639 language
|
||||
;;^DD(.85,.001,23,24,0)
|
||||
;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
|
||||
;;^DD(.85,.001,23,25,0)
|
||||
;;=so on). Each language has one unique record in this file, so wherever a
|
||||
;;^DD(.85,.001,23,26,0)
|
||||
;;=language in one segment has already been included in an earlier segment,
|
||||
;;^DD(.85,.001,23,27,0)
|
||||
;;=it is not included in the later segment (e.g., Greek was in segment one,
|
||||
;;^DD(.85,.001,23,28,0)
|
||||
;;=so it is not also added as a duplicate in segment two).
|
||||
;;^DD(.85,.001,23,29,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,30,0)
|
||||
;;=This segmented approach makes it comparatively easy to upgrade the file
|
||||
;;^DD(.85,.001,23,31,0)
|
||||
;;=in discrete batches, to keep the update projects manageable.
|
||||
;;^DD(.85,.001,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,.01,0)
|
||||
;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
||||
;;^DD(.85,.01,.1)
|
||||
;;=Language-Name
|
||||
;;^DD(.85,.01,3)
|
||||
;;=Answer must be 1-60 characters in length.
|
||||
;;^DD(.85,.01,21,0)
|
||||
;;=^^10^10^3121031^
|
||||
;;^DD(.85,.01,21,1,0)
|
||||
;;=Enter the English name of the language, not the native name.
|
||||
;;^DD(.85,.01,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,21,3,0)
|
||||
;;=The default is the English name from ISO 639, converted where necessary to
|
||||
;;^DD(.85,.01,21,4,0)
|
||||
;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
|
||||
;;^DD(.85,.01,21,5,0)
|
||||
;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
|
||||
;;^DD(.85,.01,21,6,0)
|
||||
;;=used.
|
||||
;;^DD(.85,.01,21,7,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,21,8,0)
|
||||
;;=However, this use of ISO 639's spelling as a default is overridden in
|
||||
;;^DD(.85,.01,21,9,0)
|
||||
;;=several different ways to improve consistency across entries and to
|
||||
;;^DD(.85,.01,21,10,0)
|
||||
;;=reduce selection error.
|
||||
;;^DD(.85,.01,23,0)
|
||||
;;=^^63^63^3121031^
|
||||
;;^DD(.85,.01,23,1,0)
|
||||
;;=This is the English name of the language, not the native name. It
|
||||
;;^DD(.85,.01,23,2,0)
|
||||
;;=defaults to the English name from ISO 639, mixed case, converted where
|
||||
;;^DD(.85,.01,23,3,0)
|
||||
;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
|
||||
;;^DD(.85,.01,23,4,0)
|
||||
;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
|
||||
;;^DD(.85,.01,23,5,0)
|
||||
;;=spelling is used.
|
||||
;;^DD(.85,.01,23,6,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,7,0)
|
||||
;;=However, this use of ISO 639's spelling as a default is overridden in
|
||||
;;^DD(.85,.01,23,8,0)
|
||||
;;=several different ways to improve consistency across entries and to
|
||||
;;^DD(.85,.01,23,9,0)
|
||||
;;=reduce selection error.
|
||||
;;^DD(.85,.01,23,10,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,11,0)
|
||||
;;=For example, for most modern languages, the form of the name that
|
||||
;;^DD(.85,.01,23,12,0)
|
||||
;;=includes the word "Modern" and the parenthesized dates is an alternate
|
||||
;;^DD(.85,.01,23,13,0)
|
||||
;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
|
||||
;;^DD(.85,.01,23,14,0)
|
||||
;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
|
||||
;;^DD(.85,.01,23,15,0)
|
||||
;;=an alternate name and making the name "Greek" instead.
|
||||
;;^DD(.85,.01,23,16,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,17,0)
|
||||
;;=Since most users of these systems are medical professionals rather than
|
||||
;;^DD(.85,.01,23,18,0)
|
||||
;;=linguists or historians, we emphasize modern languages and group
|
||||
;;^DD(.85,.01,23,19,0)
|
||||
;;=historical ones away from the modern names to reduce accidents. For
|
||||
;;^DD(.85,.01,23,20,0)
|
||||
;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
|
||||
;;^DD(.85,.01,23,21,0)
|
||||
;;=an alternate name for "Old French" in this file, to move the obsolete
|
||||
;;^DD(.85,.01,23,22,0)
|
||||
;;=form of the language away from the modern one. Thus, "Old" languages,
|
||||
;;^DD(.85,.01,23,23,0)
|
||||
;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
|
||||
;;^DD(.85,.01,23,24,0)
|
||||
;;=languages whose names look like historical ones, such as "Old Church
|
||||
;;^DD(.85,.01,23,25,0)
|
||||
;;=Slavonic", that are still living languages or in active liturgical use
|
||||
;;^DD(.85,.01,23,26,0)
|
||||
;;=are kept in this form if that is how they are best known.
|
||||
;;^DD(.85,.01,23,27,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,28,0)
|
||||
;;=Also, such forms that include parenthetical dates are changed to remove
|
||||
;;^DD(.85,.01,23,29,0)
|
||||
;;=the dates and parentheses from the Name field; the original forms and
|
||||
;;^DD(.85,.01,23,30,0)
|
||||
;;=variants are preserved in the Alternate Name field.
|
||||
;;^DD(.85,.01,23,31,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,32,0)
|
||||
;;=For similar reasons, language collections like "Banda languages" are
|
||||
;;^DD(.85,.01,23,33,0)
|
||||
;;=renamed as "Languages, Banda" to move them away from individual language
|
||||
;;^DD(.85,.01,23,34,0)
|
||||
;;=a patient might speak, like "Banda-Banda". The same was preserved from
|
||||
;;^DD(.85,.01,23,35,0)
|
||||
;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
|
||||
;;^DD(.85,.01,23,36,0)
|
||||
;;=Portuguese-Based"), which are collective languages, to kepp them separate
|
||||
;;^DD(.85,.01,23,37,0)
|
||||
;;=from the individual languages they might be confused with (such as
|
||||
;;^DD(.85,.01,23,38,0)
|
||||
;;="Portuguese"). However, individual languages like "Haitian Creole" and
|
||||
;;^DD(.85,.01,23,39,0)
|
||||
;;="Chinook Jargon" whose ISO 639 names makes them sound like language
|
||||
;;^DD(.85,.01,23,40,0)
|
||||
;;=collections are nevertheless left as is, since these are the names they
|
||||
;;^DD(.85,.01,23,41,0)
|
||||
;;=are known by and since the distinguishing part of the name does come
|
||||
;;^DD(.85,.01,23,42,0)
|
||||
;;=first, allowing for unambiguous selection.
|
||||
;;^DD(.85,.01,23,43,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,44,0)
|
||||
;;=Where the language name from ISO 639 is a list of alternative names, as
|
||||
;;^DD(.85,.01,23,45,0)
|
||||
;;=in "Catalan, Valencian", the dominant name (based on other code sets,
|
||||
;;^DD(.85,.01,23,46,0)
|
||||
;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
|
||||
;;^DD(.85,.01,23,47,0)
|
||||
;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
|
||||
;;^DD(.85,.01,23,48,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,49,0)
|
||||
;;=As a general rule (except in the case of language collections), ISO 639
|
||||
;;^DD(.85,.01,23,50,0)
|
||||
;;=names that use commas to invert a language name (like "Sorbian, Upper")
|
||||
;;^DD(.85,.01,23,51,0)
|
||||
;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
|
||||
;;^DD(.85,.01,23,52,0)
|
||||
;;=Alternate Name. We do not try to use commas in the Name field to group
|
||||
;;^DD(.85,.01,23,53,0)
|
||||
;;=together all related languages or dialects, though we do in the Alternate
|
||||
;;^DD(.85,.01,23,54,0)
|
||||
;;=Name field.
|
||||
;;^DD(.85,.01,23,55,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,56,0)
|
||||
;;=In the Name field, parenthetical comments are generally restricted to
|
||||
;;^DD(.85,.01,23,57,0)
|
||||
;;=distinguishing between unrelated languages that have the same name, like
|
||||
;;^DD(.85,.01,23,58,0)
|
||||
;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
|
||||
;;^DD(.85,.01,23,59,0)
|
||||
;;=parenthetical words will be (in order of preference) a country, a people,
|
||||
;;^DD(.85,.01,23,60,0)
|
||||
;;=or an alternate name of the language, so long as it distinguishes it from
|
||||
;;^DD(.85,.01,23,61,0)
|
||||
;;=the other identically named languages. To date, we have not had to change
|
||||
;;^DD(.85,.01,23,62,0)
|
||||
;;=any of the ISO 639 names we've imported to make or correct these
|
||||
;;^DD(.85,.01,23,63,0)
|
||||
;;=distinctions, but we stand ready to do so to enforce this pattern.
|
||||
;;^DD(.85,.01,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,.02,0)
|
||||
;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
|
||||
;;^DD(.85,.02,3)
|
||||
;;=Answer must be 2 characters in length.
|
||||
;;^DD(.85,.02,21,0)
|
||||
;;=^^3^3^3121101^^
|
||||
;;^DD(.85,.02,21,1,0)
|
||||
;;=Enter the two-letter code defined for this language in the ISO 639-1
|
||||
;;^DD(.85,.02,21,2,0)
|
||||
;;=standard. Not every language has a two-letter code; for those that do not
|
||||
;;^DD(.85,.02,21,3,0)
|
||||
;;=leave this field blank.
|
||||
;;^DD(.85,.02,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.02,23,1,0)
|
||||
;;=Future versions of this file wil include an optional key on this field.
|
||||
;;^DD(.85,.02,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.03,0)
|
||||
;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
|
||||
;;^DD(.85,.03,3)
|
||||
;;=Answer must be 3 characters in length.
|
||||
;;^DD(.85,.03,21,0)
|
||||
;;=^^2^2^3121101^^^^
|
||||
;;^DD(.85,.03,21,1,0)
|
||||
;;=Enter the three-letter code defined for this language in the ISO 639-2/B
|
||||
;;^DD(.85,.03,21,2,0)
|
||||
;;=standard.
|
||||
;;^DD(.85,.03,23,0)
|
||||
;;=^^2^2^3121101^
|
||||
;;^DD(.85,.03,23,1,0)
|
||||
;;=When this file is upgraded to ISO-639-6, an optional key will be added to
|
||||
;;^DD(.85,.03,23,2,0)
|
||||
;;=this field.
|
||||
;;^DD(.85,.03,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.04,0)
|
||||
;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
|
||||
;;^DD(.85,.04,3)
|
||||
;;=Answer must be 4 characters in length.
|
||||
;;^DD(.85,.04,21,0)
|
||||
;;=^^1^1^3121101^^^
|
||||
;;^DD(.85,.04,21,1,0)
|
||||
;;=Enter the four letter code associated with the language in ISO-639-6.
|
||||
;;^DD(.85,.04,23,0)
|
||||
;;=^^3^3^3121101^
|
||||
;;^DD(.85,.04,23,1,0)
|
||||
;;=This field is currently not used in this version of the release (as of
|
||||
;;^DD(.85,.04,23,2,0)
|
||||
;;=Fileman V22.2). In a future version when this file is upgraded to
|
||||
;;^DD(.85,.04,23,3,0)
|
||||
;;=ISO-639-6, a key will be added to this field.
|
||||
;;^DD(.85,.04,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.05,0)
|
||||
;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
|
||||
;;^DD(.85,.05,3)
|
||||
;;=Answer must be 3 characters in length.
|
||||
;;^DD(.85,.05,21,0)
|
||||
;;=^^4^4^3121101^
|
||||
;;^DD(.85,.05,21,1,0)
|
||||
;;=This is the alternate three letter code for a language. This will only be
|
||||
;;^DD(.85,.05,21,2,0)
|
||||
;;=used in cases where the language abbreviation is different in English
|
||||
;;^DD(.85,.05,21,3,0)
|
||||
;;=than in the native language. E.g. GER instead of DEU; for German instead
|
||||
;;^DD(.85,.05,21,4,0)
|
||||
;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
|
||||
;;^DD(.85,.05,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.05,23,1,0)
|
||||
;;=In a future version of Fileman, this field will have an optional key.
|
||||
|
|
@ -0,0 +1,438 @@
|
|||
DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
|
||||
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
||||
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
|
||||
Q Q
|
||||
;;^DD(.85,.05,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.06,0)
|
||||
;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
|
||||
;;^DD(.85,.06,3)
|
||||
;;=Select a language's scope
|
||||
;;^DD(.85,.06,21,0)
|
||||
;;=^^12^12^3121031^
|
||||
;;^DD(.85,.06,21,1,0)
|
||||
;;=Enter the Scope of a Language.
|
||||
;;^DD(.85,.06,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,3,0)
|
||||
;;=Individual if the language is an individually identifiable language
|
||||
;;^DD(.85,.06,21,4,0)
|
||||
;;=(e.g. 'Cantonese').
|
||||
;;^DD(.85,.06,21,5,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,6,0)
|
||||
;;=Macrolanguage if the language encopasses several other languages (e.g.
|
||||
;;^DD(.85,.06,21,7,0)
|
||||
;;='Chinese')
|
||||
;;^DD(.85,.06,21,8,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,9,0)
|
||||
;;=Collective if the language is a language group (e.g. 'Languages,
|
||||
;;^DD(.85,.06,21,10,0)
|
||||
;;=Sino-Tibetan')
|
||||
;;^DD(.85,.06,21,11,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,12,0)
|
||||
;;=Special and Local are reserved for specific entries.
|
||||
;;^DD(.85,.06,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.06,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.06,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.07,0)
|
||||
;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
|
||||
;;^DD(.85,.07,.1)
|
||||
;;=Historical Status
|
||||
;;^DD(.85,.07,3)
|
||||
;;=Select a choice.
|
||||
;;^DD(.85,.07,21,0)
|
||||
;;=^^12^12^3121101^^
|
||||
;;^DD(.85,.07,21,1,0)
|
||||
;;=Living means that the language is spoken today (e.g. English).
|
||||
;;^DD(.85,.07,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,3,0)
|
||||
;;=Constructed means that the language is artificial (e.g. Esperanto).
|
||||
;;^DD(.85,.07,21,4,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,5,0)
|
||||
;;=Ancient means that the language is very old and not spoken any more (e.g.
|
||||
;;^DD(.85,.07,21,6,0)
|
||||
;;=Ancient Egyptian).
|
||||
;;^DD(.85,.07,21,7,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,8,0)
|
||||
;;=Historical means that the language was being used in the Medieval times
|
||||
;;^DD(.85,.07,21,9,0)
|
||||
;;=and is not spoken any more (e.g. Old High German).
|
||||
;;^DD(.85,.07,21,10,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,11,0)
|
||||
;;=Extinct means that the language was being used recently but has died out
|
||||
;;^DD(.85,.07,21,12,0)
|
||||
;;=(e.g. Cornish).
|
||||
;;^DD(.85,.07,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.07,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.07,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.08,0)
|
||||
;;=LINGUISTIC CATEGORY^*P.85'^DI(.85,^0;8^S DIC("S")="I $P(^(0),U,6)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
|
||||
;;^DD(.85,.08,3)
|
||||
;;=Select a choice.
|
||||
;;^DD(.85,.08,12)
|
||||
;;=Only collective languages are selectable
|
||||
;;^DD(.85,.08,12.1)
|
||||
;;=S DIC("S")="I $P(^(0),U,6)=""C"""
|
||||
;;^DD(.85,.08,21,0)
|
||||
;;=^^1^1^3121101^^
|
||||
;;^DD(.85,.08,21,1,0)
|
||||
;;=Enter a language collection to which this language belongs.
|
||||
;;^DD(.85,.08,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.08,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.08,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.09,0)
|
||||
;;=MEMBER OF LANGUAGE SET^*P.85'^DI(.85,^0;9^S DIC("S")="I $P(^(0),U,6)=""M""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
|
||||
;;^DD(.85,.09,3)
|
||||
;;=Enter a choice.
|
||||
;;^DD(.85,.09,12)
|
||||
;;=You may only select Macrolanguages
|
||||
;;^DD(.85,.09,12.1)
|
||||
;;=S DIC("S")="I $P(^(0),U,6)=""M"""
|
||||
;;^DD(.85,.09,21,0)
|
||||
;;=^^3^3^3121101^
|
||||
;;^DD(.85,.09,21,1,0)
|
||||
;;=If this language is a dialect of a macrolanguage, select the
|
||||
;;^DD(.85,.09,21,2,0)
|
||||
;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
|
||||
;;^DD(.85,.09,21,3,0)
|
||||
;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
|
||||
;;^DD(.85,.09,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.09,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.09,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,1,0)
|
||||
;;=ALTERNATE NAME^.8501^^1;0
|
||||
;;^DD(.85,10,0)
|
||||
;;=DESCRIPTION^.8502^^10;0
|
||||
;;^DD(.85,10,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,10.1,0)
|
||||
;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.1,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.1,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.1,21,0)
|
||||
;;=^^6^6^2941121^^^^
|
||||
;;^DD(.85,10.1,21,1,0)
|
||||
;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
|
||||
;;^DD(.85,10.1,21,2,0)
|
||||
;;=this language. The code should set Y to the ordinal equivalent without
|
||||
;;^DD(.85,10.1,21,3,0)
|
||||
;;=altering any other variables in the environment. Ex. in English:
|
||||
;;^DD(.85,10.1,21,4,0)
|
||||
;;= Y=1 becomes Y=1ST
|
||||
;;^DD(.85,10.1,21,5,0)
|
||||
;;= Y=2 becomes Y=2ND
|
||||
;;^DD(.85,10.1,21,6,0)
|
||||
;;= Y=3 becomes Y=3RD etc.
|
||||
;;^DD(.85,10.1,"DT")
|
||||
;;=2940307
|
||||
;;^DD(.85,10.2,0)
|
||||
;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.2,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.2,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.2,21,0)
|
||||
;;=^^6^6^2941121^^^
|
||||
;;^DD(.85,10.2,21,1,0)
|
||||
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
||||
;;^DD(.85,10.2,21,2,0)
|
||||
;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
|
||||
;;^DD(.85,10.2,21,3,0)
|
||||
;;=The code should set Y to the output, without altering any other variables
|
||||
;;^DD(.85,10.2,21,4,0)
|
||||
;;=in the environment. Ex. in English:
|
||||
;;^DD(.85,10.2,21,5,0)
|
||||
;;=
|
||||
;;^DD(.85,10.2,21,6,0)
|
||||
;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
|
||||
;;^DD(.85,10.2,"DT")
|
||||
;;=2940307
|
||||
;;^DD(.85,10.21,0)
|
||||
;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.21,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.21,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.21,21,0)
|
||||
;;=^^22^22^2941122^
|
||||
;;^DD(.85,10.21,21,1,0)
|
||||
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
||||
;;^DD(.85,10.21,21,2,0)
|
||||
;;=format, to printable format based on the various outputs from routine
|
||||
;;^DD(.85,10.21,21,3,0)
|
||||
;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
|
||||
;;^DD(.85,10.21,21,4,0)
|
||||
;;=code, in addition to the internal date in Y, a third parameter will be
|
||||
;;^DD(.85,10.21,21,5,0)
|
||||
;;=defined to contain flags equivalent to the flag passed as the second input
|
||||
;;^DD(.85,10.21,21,6,0)
|
||||
;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
|
||||
;;^DD(.85,10.21,21,7,0)
|
||||
;;=altering any other variables in the environment. The output should be
|
||||
;;^DD(.85,10.21,21,8,0)
|
||||
;;=formatted based on these flags:
|
||||
;;^DD(.85,10.21,21,9,0)
|
||||
;;=
|
||||
;;^DD(.85,10.21,21,10,0)
|
||||
;;= 1 MMM DD, YYYY@HH:MM:SS
|
||||
;;^DD(.85,10.21,21,11,0)
|
||||
;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,12,0)
|
||||
;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,13,0)
|
||||
;;= 4 YY/MM/DD@HH:MM:SS
|
||||
;;^DD(.85,10.21,21,14,0)
|
||||
;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
|
||||
;;^DD(.85,10.21,21,15,0)
|
||||
;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
|
||||
;;^DD(.85,10.21,21,16,0)
|
||||
;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,17,0)
|
||||
;;=
|
||||
;;^DD(.85,10.21,21,18,0)
|
||||
;;=letters in the flag
|
||||
;;^DD(.85,10.21,21,19,0)
|
||||
;;= S return always seconds
|
||||
;;^DD(.85,10.21,21,20,0)
|
||||
;;= U return uppercase month names
|
||||
;;^DD(.85,10.21,21,21,0)
|
||||
;;= P return time as am,pm
|
||||
;;^DD(.85,10.21,21,22,0)
|
||||
;;= D return only date part
|
||||
;;^DD(.85,10.21,"DT")
|
||||
;;=2940624
|
||||
;;^DD(.85,10.22,0)
|
||||
;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.22,3)
|
||||
;;=This is Standard MUMPS code for the output of time only.
|
||||
;;^DD(.85,10.22,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.22,21,0)
|
||||
;;=^^2^2^2960318^
|
||||
;;^DD(.85,10.22,21,1,0)
|
||||
;;=The code stored here will be used to get formatted output of the time
|
||||
;;^DD(.85,10.22,21,2,0)
|
||||
;;=part belonging to a FileMan Date/Time value.
|
||||
;;^DD(.85,10.22,"DT")
|
||||
;;=2960318
|
||||
;;^DD(.85,10.3,0)
|
||||
;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.3,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.3,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.3,21,0)
|
||||
;;=^^5^5^2941121^^
|
||||
;;^DD(.85,10.3,21,1,0)
|
||||
;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
|
||||
;;^DD(.85,10.3,21,2,0)
|
||||
;;=this language. The code should set Y to the cardinal equivalent without
|
||||
;;^DD(.85,10.3,21,3,0)
|
||||
;;=altering any other variables in the environment. Ex. in English:
|
||||
;;^DD(.85,10.3,21,4,0)
|
||||
;;= Y=2000 becomes Y=2,000
|
||||
;;^DD(.85,10.3,21,5,0)
|
||||
;;= Y=1234567 becomes Y=1,234,567
|
||||
;;^DD(.85,10.3,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,10.4,0)
|
||||
;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.4,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.4,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.4,21,0)
|
||||
;;=^^4^4^2941121^
|
||||
;;^DD(.85,10.4,21,1,0)
|
||||
;;=MUMPS code used to convert text in Y to its upper-case equivalent in
|
||||
;;^DD(.85,10.4,21,2,0)
|
||||
;;=this language. The code should set Y to the external format without
|
||||
;;^DD(.85,10.4,21,3,0)
|
||||
;;=altering any other variables in the environment. In English, changes
|
||||
;;^DD(.85,10.4,21,4,0)
|
||||
;;= abCdeF to: ABCDEF
|
||||
;;^DD(.85,10.4,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,10.5,0)
|
||||
;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.5,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.5,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.5,21,0)
|
||||
;;=^^4^4^2941121^
|
||||
;;^DD(.85,10.5,21,1,0)
|
||||
;;=MUMPS code used to convert text in Y to its lower-case equivalent in
|
||||
;;^DD(.85,10.5,21,2,0)
|
||||
;;=this language. The code should set Y to the external format without
|
||||
;;^DD(.85,10.5,21,3,0)
|
||||
;;=altering any other variables in the environment. In English, changes:
|
||||
;;^DD(.85,10.5,21,4,0)
|
||||
;;= ABcdEFgHij to: abcdefghij
|
||||
;;^DD(.85,10.5,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,20.2,0)
|
||||
;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,20.2,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,20.2,9)
|
||||
;;=@
|
||||
;;^DD(.85,20.2,"DT")
|
||||
;;=2940714
|
||||
;;^DD(.8501,0)
|
||||
;;=ALTERNATE NAME SUB-FIELD^^.01^1
|
||||
;;^DD(.8501,0,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8501,0,"IX","B",.8501,.01)
|
||||
;;=
|
||||
;;^DD(.8501,0,"NM","ALTERNATE NAME")
|
||||
;;=
|
||||
;;^DD(.8501,0,"UP")
|
||||
;;=.85
|
||||
;;^DD(.8501,.01,0)
|
||||
;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
||||
;;^DD(.8501,.01,1,0)
|
||||
;;=^.1
|
||||
;;^DD(.8501,.01,1,1,0)
|
||||
;;=.8501^B
|
||||
;;^DD(.8501,.01,1,1,1)
|
||||
;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
|
||||
;;^DD(.8501,.01,1,1,2)
|
||||
;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
|
||||
;;^DD(.8501,.01,1,2,0)
|
||||
;;=.85^F
|
||||
;;^DD(.8501,.01,1,2,1)
|
||||
;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
|
||||
;;^DD(.8501,.01,1,2,2)
|
||||
;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
|
||||
;;^DD(.8501,.01,1,2,3)
|
||||
;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
|
||||
;;^DD(.8501,.01,1,2,"%D",0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.8501,.01,1,2,"%D",1,0)
|
||||
;;=Whole file cross-reference for ALTERNATE NAME multiple.
|
||||
;;^DD(.8501,.01,1,2,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8501,.01,3)
|
||||
;;=Answer must be 1-60 characters in length.
|
||||
;;^DD(.8501,.01,21,0)
|
||||
;;=^^2^2^3121101^^
|
||||
;;^DD(.8501,.01,21,1,0)
|
||||
;;=This field contains other synonyms for a language.
|
||||
;;^DD(.8501,.01,21,2,0)
|
||||
;;=E.g. for Greek, synonyms include Ellinika and Romaic.
|
||||
;;^DD(.8501,.01,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8502,0)
|
||||
;;=DESCRIPTION SUB-FIELD^^.01^1
|
||||
;;^DD(.8502,0,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.8502,0,"NM","DESCRIPTION")
|
||||
;;=
|
||||
;;^DD(.8502,0,"UP")
|
||||
;;=.85
|
||||
;;^DD(.8502,.01,0)
|
||||
;;=DESCRIPTION^Wx^^0;1
|
||||
;;^DD(.8502,.01,3)
|
||||
;;=Enter an optional language description
|
||||
;;^DD(.8502,.01,"DT")
|
||||
;;=3121031
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
|
||||
;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
|
||||
;;=S ^DI(.85,"B",X,DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
|
||||
;;=K ^DI(.85,"B",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
|
||||
;;=K ^DI(.85,"B")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
|
||||
;;=1^F^.85^.01^^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
|
||||
;;=
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
|
||||
;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
|
||||
;;=S ^DI(.85,"C",X,DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
|
||||
;;=K ^DI(.85,"C",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
|
||||
;;=K ^DI(.85,"C")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
|
||||
;;=1^F^.85^.02^^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
|
||||
;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
|
||||
;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
|
||||
;;=K ^DI(.85,"D",$E(X,1,30),DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
|
||||
;;=K ^DI(.85,"D")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
|
||||
;;=1^F^.85^.03^30^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
|
||||
;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
|
||||
;;=^^6^6^3121031^
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
|
||||
;;=This will add entries to the D index for the three letter code a la the
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
|
||||
;;=mnemonic style.
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
|
||||
;;=
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
|
||||
;;=If you need re-cross-reference this field, you need to kill of the
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
|
||||
;;=entries in the regular D index, set the D index, and then set this index
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
|
||||
;;=to update the D with the mnemonic xrefs.
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
|
||||
;;=S ^DI(.85,"D",X,DA)=1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
|
||||
;;=K ^DI(.85,"D",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
|
||||
;;=1^F^.85^.05^^1^F
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
|
||||
;;=.85^A^P^1046
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
|
||||
;;=^.312IA^1^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
|
||||
;;=.01^.85^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
|
||||
;;=.85^B^S^1048
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
|
||||
;;=^.312IA^1^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
|
||||
;;=.03^.85^1
|
||||
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
|
||||
;;=.85^B
|
||||
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
|
||||
;;=.85^D
|
||||
|
|
@ -0,0 +1,166 @@
|
|||
DINIT013 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS ;3121101 ; 11/2/12 8:41am
|
||||
;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
|
||||
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
|
||||
Q Q
|
||||
;;^UTILITY(U,$J,.85)
|
||||
;;=^DI(.85,
|
||||
;;^UTILITY(U,$J,.85,0)
|
||||
;;=LANGUAGE^.85I^18^11
|
||||
;;^UTILITY(U,$J,.85,1,0)
|
||||
;;=ENGLISH^EN^ENG
|
||||
;;^UTILITY(U,$J,.85,1,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,1,1,1,0)
|
||||
;;=MODERN ENGLISH (1500-)
|
||||
;;^UTILITY(U,$J,.85,1,1,2,0)
|
||||
;;=ENGLISH,MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,1,"CRD")
|
||||
;;=I Y S Y=$FN(Y,",")
|
||||
;;^UTILITY(U,$J,.85,1,"DD")
|
||||
;;=S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
|
||||
;;^UTILITY(U,$J,.85,1,"FMTE")
|
||||
;;=N RTN,%T S %T="."_$E($P(Y,".",2)_"000000",1,7),%F=$G(%F),RTN="F"_$S(%F<1:1,%F>7:1,1:+%F\1)_"^DILIBF" D @RTN S Y=%R
|
||||
;;^UTILITY(U,$J,.85,1,"LC")
|
||||
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
|
||||
;;^UTILITY(U,$J,.85,1,"ORD")
|
||||
;;=I $G(Y) S Y=Y_$S(Y#10=1&(Y#100-11):"ST",Y#10=2&(Y#100-12):"ND",Y#10=3&(Y#100-13):"RD",1:"TH")
|
||||
;;^UTILITY(U,$J,.85,1,"TIME")
|
||||
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
|
||||
;;^UTILITY(U,$J,.85,1,"UC")
|
||||
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
||||
;;^UTILITY(U,$J,.85,2,0)
|
||||
;;=GERMAN^DE^DEU^^GER
|
||||
;;^UTILITY(U,$J,.85,2,1,0)
|
||||
;;=^.8501^7^7
|
||||
;;^UTILITY(U,$J,.85,2,1,1,0)
|
||||
;;=GERMAN, STANDARD
|
||||
;;^UTILITY(U,$J,.85,2,1,2,0)
|
||||
;;=STANDARD GERMAN
|
||||
;;^UTILITY(U,$J,.85,2,1,3,0)
|
||||
;;=DEUTSCH
|
||||
;;^UTILITY(U,$J,.85,2,1,4,0)
|
||||
;;=DEUTSCH SPRACHE
|
||||
;;^UTILITY(U,$J,.85,2,1,5,0)
|
||||
;;=TEDESCO
|
||||
;;^UTILITY(U,$J,.85,2,1,6,0)
|
||||
;;=MODERN GERMAN (1500-)
|
||||
;;^UTILITY(U,$J,.85,2,1,7,0)
|
||||
;;=GERMAN,MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,2,"CRD")
|
||||
;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
|
||||
;;^UTILITY(U,$J,.85,2,"DD")
|
||||
;;=S:Y Y=$S($E(Y,6,7):$E(Y,6,7)_".",1:"")_$S($E(Y,4,5):$E(Y,4,5)_".",1:"")_($E(Y,1,3)+1700)_$P(" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
|
||||
;;^UTILITY(U,$J,.85,2,"LC")
|
||||
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
|
||||
;;^UTILITY(U,$J,.85,2,"ORD")
|
||||
;;=S:$G(Y) Y=Y_"."
|
||||
;;^UTILITY(U,$J,.85,2,"TIME")
|
||||
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
|
||||
;;^UTILITY(U,$J,.85,2,"UC")
|
||||
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
|
||||
;;^UTILITY(U,$J,.85,3,0)
|
||||
;;=SPANISH^ES^SPA
|
||||
;;^UTILITY(U,$J,.85,3,1,0)
|
||||
;;=^.8501^5^5
|
||||
;;^UTILITY(U,$J,.85,3,1,1,0)
|
||||
;;=CASTILIAN
|
||||
;;^UTILITY(U,$J,.85,3,1,2,0)
|
||||
;;=CASTELLANO
|
||||
;;^UTILITY(U,$J,.85,3,1,3,0)
|
||||
;;=ESPANOL
|
||||
;;^UTILITY(U,$J,.85,3,1,4,0)
|
||||
;;=MODERN SPANISH (1500-)
|
||||
;;^UTILITY(U,$J,.85,3,1,5,0)
|
||||
;;=SPANISH, MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,4,0)
|
||||
;;=FRENCH^FR^FRA^^FRE
|
||||
;;^UTILITY(U,$J,.85,4,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,4,1,1,0)
|
||||
;;=FRANCAIS
|
||||
;;^UTILITY(U,$J,.85,4,1,2,0)
|
||||
;;=MODERN FRENCH (1600-)
|
||||
;;^UTILITY(U,$J,.85,4,1,3,0)
|
||||
;;=FRENCH, MODERN (1600-)
|
||||
;;^UTILITY(U,$J,.85,5,0)
|
||||
;;=FINNISH^FI^FIN
|
||||
;;^UTILITY(U,$J,.85,5,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,5,1,1,0)
|
||||
;;=SUOMEA
|
||||
;;^UTILITY(U,$J,.85,5,1,2,0)
|
||||
;;=SUOMI
|
||||
;;^UTILITY(U,$J,.85,5,1,3,0)
|
||||
;;=SUOMEN KIELI
|
||||
;;^UTILITY(U,$J,.85,5,"DD")
|
||||
;;=X:$G(Y) ^DD("DD")
|
||||
;;^UTILITY(U,$J,.85,5,"ORD")
|
||||
;;=I $G(Y) S Y=Y_"."
|
||||
;;^UTILITY(U,$J,.85,6,0)
|
||||
;;=ITALIAN^IT^ITA
|
||||
;;^UTILITY(U,$J,.85,6,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,6,1,1,0)
|
||||
;;=ITALIANO
|
||||
;;^UTILITY(U,$J,.85,6,1,2,0)
|
||||
;;=LINGUA ITALIANA
|
||||
;;^UTILITY(U,$J,.85,7,0)
|
||||
;;=PORTUGUESE^PT^POR
|
||||
;;^UTILITY(U,$J,.85,7,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,7,1,1,0)
|
||||
;;=PORTUGUES
|
||||
;;^UTILITY(U,$J,.85,7,1,2,0)
|
||||
;;=LINGUA PORTUGUESA
|
||||
;;^UTILITY(U,$J,.85,7,1,3,0)
|
||||
;;=MODERN PORTUGUESE (1516-)
|
||||
;;^UTILITY(U,$J,.85,7,1,4,0)
|
||||
;;=PORTUGUESE, MODERN (1516-)
|
||||
;;^UTILITY(U,$J,.85,10,0)
|
||||
;;=ARABIC^AR^ARA
|
||||
;;^UTILITY(U,$J,.85,10,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,10,1,1,0)
|
||||
;;=AL-'ARABIYYAH
|
||||
;;^UTILITY(U,$J,.85,10,1,2,0)
|
||||
;;='ARABI
|
||||
;;^UTILITY(U,$J,.85,11,0)
|
||||
;;=RUSSIAN^RU^RUS
|
||||
;;^UTILITY(U,$J,.85,11,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,11,1,1,0)
|
||||
;;=RUSSKI
|
||||
;;^UTILITY(U,$J,.85,11,1,2,0)
|
||||
;;=RUSSKIY YAZYK
|
||||
;;^UTILITY(U,$J,.85,12,0)
|
||||
;;=GREEK^EL^ELL^^GRE
|
||||
;;^UTILITY(U,$J,.85,12,1,0)
|
||||
;;=^.8501^9^9
|
||||
;;^UTILITY(U,$J,.85,12,1,1,0)
|
||||
;;=ELLINIKA
|
||||
;;^UTILITY(U,$J,.85,12,1,2,0)
|
||||
;;=ELLINIKI GLOSSA
|
||||
;;^UTILITY(U,$J,.85,12,1,3,0)
|
||||
;;=GRAECAE
|
||||
;;^UTILITY(U,$J,.85,12,1,4,0)
|
||||
;;=GREC
|
||||
;;^UTILITY(U,$J,.85,12,1,5,0)
|
||||
;;=GRECO
|
||||
;;^UTILITY(U,$J,.85,12,1,6,0)
|
||||
;;=NEO-HELLENIC
|
||||
;;^UTILITY(U,$J,.85,12,1,7,0)
|
||||
;;=ROMAIC
|
||||
;;^UTILITY(U,$J,.85,12,1,8,0)
|
||||
;;=MODERN GREEK (1453-)
|
||||
;;^UTILITY(U,$J,.85,12,1,9,0)
|
||||
;;=GREEK, MODERN (1453-)
|
||||
;;^UTILITY(U,$J,.85,18,0)
|
||||
;;=HEBREW^HE^HEB
|
||||
;;^UTILITY(U,$J,.85,18,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,18,1,1,0)
|
||||
;;=IVRIT
|
||||
;;^UTILITY(U,$J,.85,18,1,2,0)
|
||||
;;=MODERN HEBREW (1881-)
|
||||
;;^UTILITY(U,$J,.85,18,1,3,0)
|
||||
;;=HEBREW, MODERN (1881-)
|
||||
|
|
@ -0,0 +1,412 @@
|
|||
DMLAI001 ; ; 20-NOV-2012 ; 11/20/12 12:58pm
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
Q:'DIFQ(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^DIC(.85,0,"GL")
|
||||
;;=^DI(.85,
|
||||
;;^DIC("B","LANGUAGE",.85)
|
||||
;;=
|
||||
;;^DIC(.85,"%",0)
|
||||
;;=^1.005
|
||||
;;^DIC(.85,"%D",0)
|
||||
;;=^^27^27^3121101^
|
||||
;;^DIC(.85,"%D",1,0)
|
||||
;;=The LANGUAGE file is used both to officially identify a language, and to
|
||||
;;^DIC(.85,"%D",2,0)
|
||||
;;=store MUMPS code needed to do language-specific conversions of data such
|
||||
;;^DIC(.85,"%D",3,0)
|
||||
;;=as dates and numbers.
|
||||
;;^DIC(.85,"%D",4,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",5,0)
|
||||
;;=Fileman distributes entries for the following languages:
|
||||
;;^DIC(.85,"%D",6,0)
|
||||
;;= ID Number (.001) Name (.01)
|
||||
;;^DIC(.85,"%D",7,0)
|
||||
;;= 1 English
|
||||
;;^DIC(.85,"%D",8,0)
|
||||
;;= 2 German
|
||||
;;^DIC(.85,"%D",9,0)
|
||||
;;= 3 Spanish
|
||||
;;^DIC(.85,"%D",10,0)
|
||||
;;= 4 French
|
||||
;;^DIC(.85,"%D",11,0)
|
||||
;;= 5 Finnish
|
||||
;;^DIC(.85,"%D",12,0)
|
||||
;;= 6 Italian
|
||||
;;^DIC(.85,"%D",13,0)
|
||||
;;= 7 Portuguese
|
||||
;;^DIC(.85,"%D",14,0)
|
||||
;;= 10 Arabic
|
||||
;;^DIC(.85,"%D",15,0)
|
||||
;;= 11 Russian
|
||||
;;^DIC(.85,"%D",16,0)
|
||||
;;= 12 Greek
|
||||
;;^DIC(.85,"%D",17,0)
|
||||
;;= 18 Hebrew
|
||||
;;^DIC(.85,"%D",18,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",19,0)
|
||||
;;=The ISO-639-1 and ISO-639-2 compatible language file is distributed in the
|
||||
;;^DIC(.85,"%D",20,0)
|
||||
;;=DILAINIT routines, shipped with Fileman 22.2.
|
||||
;;^DIC(.85,"%D",21,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",22,0)
|
||||
;;=A pointer to this file from the TRANSLATION multiple on the DIALOG file
|
||||
;;^DIC(.85,"%D",23,0)
|
||||
;;=also allows non-English text to be returned via FileMan calls.
|
||||
;;^DIC(.85,"%D",24,0)
|
||||
;;=
|
||||
;;^DIC(.85,"%D",25,0)
|
||||
;;=A note to VISTA developers: Although users can select entries by name,
|
||||
;;^DIC(.85,"%D",26,0)
|
||||
;;=software should use the official two or three letter codes to eliminiate
|
||||
;;^DIC(.85,"%D",27,0)
|
||||
;;=mistakes resulting from languages that have similar spelling.
|
||||
;;^DIC(.85,"%MSC")
|
||||
;;=3121114.111954
|
||||
;;^DD(.85,0)
|
||||
;;=FIELD^^10^20
|
||||
;;^DD(.85,0,"DDA")
|
||||
;;=N
|
||||
;;^DD(.85,0,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,0,"ID",.02)
|
||||
;;=W " ",$P(^(0),U,2)
|
||||
;;^DD(.85,0,"ID",.03)
|
||||
;;=W " ",$P(^(0),U,3)
|
||||
;;^DD(.85,0,"IX","F",.8501,.01)
|
||||
;;=
|
||||
;;^DD(.85,0,"NM","LANGUAGE")
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.007,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.008,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.009,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.4,709.1)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.4,1819.1)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.847,.01)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.85,.08)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",.85,.09)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",1.008,.001)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",200,200.07)
|
||||
;;=
|
||||
;;^DD(.85,0,"PT",8989.3,207)
|
||||
;;=
|
||||
;;^DD(.85,.001,0)
|
||||
;;=ID NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
|
||||
;;^DD(.85,.001,3)
|
||||
;;=Type a number between 1 and 9999999999, 0 decimal digits.
|
||||
;;^DD(.85,.001,21,0)
|
||||
;;=^^3^3^3121031^^
|
||||
;;^DD(.85,.001,21,1,0)
|
||||
;;=A number that is used to uniquely identify a language. This number
|
||||
;;^DD(.85,.001,21,2,0)
|
||||
;;=corresponds to the Kernel system variable DUZ("LANG"), which is set
|
||||
;;^DD(.85,.001,21,3,0)
|
||||
;;=during Kernel signon to signify which language Fileman should use.
|
||||
;;^DD(.85,.001,23,0)
|
||||
;;=^^31^31^3121031^
|
||||
;;^DD(.85,.001,23,1,0)
|
||||
;;=Entries in this file are standardized, with the contents controlled by
|
||||
;;^DD(.85,.001,23,2,0)
|
||||
;;=the Fileman Primary Development Team. The ID Number field is used to help
|
||||
;;^DD(.85,.001,23,3,0)
|
||||
;;=protect referential integrity in VISTA databases during upgrades to the
|
||||
;;^DD(.85,.001,23,4,0)
|
||||
;;=file. ID Number assignment corresponds to the order in which languages
|
||||
;;^DD(.85,.001,23,5,0)
|
||||
;;=were added to the file. They were added in segments.
|
||||
;;^DD(.85,.001,23,6,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,7,0)
|
||||
;;=The first segment consists of language numbers 1-7, 10-12, and 18, which
|
||||
;;^DD(.85,.001,23,8,0)
|
||||
;;=were the first eleven languages added, in order. English is first because
|
||||
;;^DD(.85,.001,23,9,0)
|
||||
;;=Fileman was originally written in English. German is second because
|
||||
;;^DD(.85,.001,23,10,0)
|
||||
;;=Marcus Werners of Germany led the effort to create Fileman's dialog
|
||||
;;^DD(.85,.001,23,11,0)
|
||||
;;=framework, to make translating VISTA into other languages easier.
|
||||
;;^DD(.85,.001,23,12,0)
|
||||
;;=Spanish, French, Finnish, Italian, and Portuguese follow in the order in
|
||||
;;^DD(.85,.001,23,13,0)
|
||||
;;=which the Fileman team was approached by potential translators about
|
||||
;;^DD(.85,.001,23,14,0)
|
||||
;;=adding those languages to the file (though Finnish actually predates all
|
||||
;;^DD(.85,.001,23,15,0)
|
||||
;;=other translation efforts except English). Arabic was assigned ID Number
|
||||
;;^DD(.85,.001,23,16,0)
|
||||
;;=10 instead of 8 in recognition of the debt English owes Arabic for
|
||||
;;^DD(.85,.001,23,17,0)
|
||||
;;=introducing the decimal numbering system to Europe. Russian and Greek
|
||||
;;^DD(.85,.001,23,18,0)
|
||||
;;=were the next two translations the Fileman team was approached about. I
|
||||
;;^DD(.85,.001,23,19,0)
|
||||
;;=do not recall why for Hebrew we skipped ahead to ID Number 18, but I'm
|
||||
;;^DD(.85,.001,23,20,0)
|
||||
;;=sure there was a reason.
|
||||
;;^DD(.85,.001,23,21,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,22,0)
|
||||
;;=Thereafter, languages are added in segments, in order by Name, starting
|
||||
;;^DD(.85,.001,23,23,0)
|
||||
;;=with ID Number 8. The segments correspond to the ISO 639 language
|
||||
;;^DD(.85,.001,23,24,0)
|
||||
;;=standards, in order (639-1 languages in segment two, 639-2 in three, and
|
||||
;;^DD(.85,.001,23,25,0)
|
||||
;;=so on). Each language has one unique record in this file, so wherever a
|
||||
;;^DD(.85,.001,23,26,0)
|
||||
;;=language in one segment has already been included in an earlier segment,
|
||||
;;^DD(.85,.001,23,27,0)
|
||||
;;=it is not included in the later segment (e.g., Greek was in segment one,
|
||||
;;^DD(.85,.001,23,28,0)
|
||||
;;=so it is not also added as a duplicate in segment two).
|
||||
;;^DD(.85,.001,23,29,0)
|
||||
;;=
|
||||
;;^DD(.85,.001,23,30,0)
|
||||
;;=This segmented approach makes it comparatively easy to upgrade the file
|
||||
;;^DD(.85,.001,23,31,0)
|
||||
;;=in discrete batches, to keep the update projects manageable.
|
||||
;;^DD(.85,.001,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,.01,0)
|
||||
;;=NAME^RFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
||||
;;^DD(.85,.01,.1)
|
||||
;;=Language-Name
|
||||
;;^DD(.85,.01,3)
|
||||
;;=Answer must be 1-60 characters in length.
|
||||
;;^DD(.85,.01,21,0)
|
||||
;;=^^10^10^3121031^
|
||||
;;^DD(.85,.01,21,1,0)
|
||||
;;=Enter the English name of the language, not the native name.
|
||||
;;^DD(.85,.01,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,21,3,0)
|
||||
;;=The default is the English name from ISO 639, converted where necessary to
|
||||
;;^DD(.85,.01,21,4,0)
|
||||
;;=ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO
|
||||
;;^DD(.85,.01,21,5,0)
|
||||
;;=639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is
|
||||
;;^DD(.85,.01,21,6,0)
|
||||
;;=used.
|
||||
;;^DD(.85,.01,21,7,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,21,8,0)
|
||||
;;=However, this use of ISO 639's spelling as a default is overridden in
|
||||
;;^DD(.85,.01,21,9,0)
|
||||
;;=several different ways to improve consistency across entries and to
|
||||
;;^DD(.85,.01,21,10,0)
|
||||
;;=reduce selection error.
|
||||
;;^DD(.85,.01,23,0)
|
||||
;;=^^63^63^3121031^
|
||||
;;^DD(.85,.01,23,1,0)
|
||||
;;=This is the English name of the language, not the native name. It
|
||||
;;^DD(.85,.01,23,2,0)
|
||||
;;=defaults to the English name from ISO 639, mixed case, converted where
|
||||
;;^DD(.85,.01,23,3,0)
|
||||
;;=necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central
|
||||
;;^DD(.85,.01,23,4,0)
|
||||
;;=Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's
|
||||
;;^DD(.85,.01,23,5,0)
|
||||
;;=spelling is used.
|
||||
;;^DD(.85,.01,23,6,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,7,0)
|
||||
;;=However, this use of ISO 639's spelling as a default is overridden in
|
||||
;;^DD(.85,.01,23,8,0)
|
||||
;;=several different ways to improve consistency across entries and to
|
||||
;;^DD(.85,.01,23,9,0)
|
||||
;;=reduce selection error.
|
||||
;;^DD(.85,.01,23,10,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,11,0)
|
||||
;;=For example, for most modern languages, the form of the name that
|
||||
;;^DD(.85,.01,23,12,0)
|
||||
;;=includes the word "Modern" and the parenthesized dates is an alternate
|
||||
;;^DD(.85,.01,23,13,0)
|
||||
;;=name, but ISO 639 reverses that with Modern Greek. In this file, we
|
||||
;;^DD(.85,.01,23,14,0)
|
||||
;;=reassert the pattern by making the ISO 639 name "Greek, Modern (1453-)"
|
||||
;;^DD(.85,.01,23,15,0)
|
||||
;;=an alternate name and making the name "Greek" instead.
|
||||
;;^DD(.85,.01,23,16,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,17,0)
|
||||
;;=Since most users of these systems are medical professionals rather than
|
||||
;;^DD(.85,.01,23,18,0)
|
||||
;;=linguists or historians, we emphasize modern languages and group
|
||||
;;^DD(.85,.01,23,19,0)
|
||||
;;=historical ones away from the modern names to reduce accidents. For
|
||||
;;^DD(.85,.01,23,20,0)
|
||||
;;=example, "French, Old (842-ca.1400)" as so named in ISO 639-2 is used as
|
||||
;;^DD(.85,.01,23,21,0)
|
||||
;;=an alternate name for "Old French" in this file, to move the obsolete
|
||||
;;^DD(.85,.01,23,22,0)
|
||||
;;=form of the language away from the modern one. Thus, "Old" languages,
|
||||
;;^DD(.85,.01,23,23,0)
|
||||
;;="Ancient" ones, and "Middle" ones will tend to sort together. However,
|
||||
;;^DD(.85,.01,23,24,0)
|
||||
;;=languages whose names look like historical ones, such as "Old Church
|
||||
;;^DD(.85,.01,23,25,0)
|
||||
;;=Slavonic", that are still living languages or in active liturgical use
|
||||
;;^DD(.85,.01,23,26,0)
|
||||
;;=are kept in this form if that is how they are best known.
|
||||
;;^DD(.85,.01,23,27,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,28,0)
|
||||
;;=Also, such forms that include parenthetical dates are changed to remove
|
||||
;;^DD(.85,.01,23,29,0)
|
||||
;;=the dates and parentheses from the Name field; the original forms and
|
||||
;;^DD(.85,.01,23,30,0)
|
||||
;;=variants are preserved in the Alternate Name field.
|
||||
;;^DD(.85,.01,23,31,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,32,0)
|
||||
;;=For similar reasons, language collections like "Banda languages" are
|
||||
;;^DD(.85,.01,23,33,0)
|
||||
;;=renamed as "Languages, Banda" to move them away from individual language
|
||||
;;^DD(.85,.01,23,34,0)
|
||||
;;=a patient might speak, like "Banda-Banda". The same was preserved from
|
||||
;;^DD(.85,.01,23,35,0)
|
||||
;;=ISO 639 with creoles and pidgins (such as "Creoles and Pidgins,
|
||||
;;^DD(.85,.01,23,36,0)
|
||||
;;=Portuguese-Based"), which are collective languages, to kepp them separate
|
||||
;;^DD(.85,.01,23,37,0)
|
||||
;;=from the individual languages they might be confused with (such as
|
||||
;;^DD(.85,.01,23,38,0)
|
||||
;;="Portuguese"). However, individual languages like "Haitian Creole" and
|
||||
;;^DD(.85,.01,23,39,0)
|
||||
;;="Chinook Jargon" whose ISO 639 names makes them sound like language
|
||||
;;^DD(.85,.01,23,40,0)
|
||||
;;=collections are nevertheless left as is, since these are the names they
|
||||
;;^DD(.85,.01,23,41,0)
|
||||
;;=are known by and since the distinguishing part of the name does come
|
||||
;;^DD(.85,.01,23,42,0)
|
||||
;;=first, allowing for unambiguous selection.
|
||||
;;^DD(.85,.01,23,43,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,44,0)
|
||||
;;=Where the language name from ISO 639 is a list of alternative names, as
|
||||
;;^DD(.85,.01,23,45,0)
|
||||
;;=in "Catalan, Valencian", the dominant name (based on other code sets,
|
||||
;;^DD(.85,.01,23,46,0)
|
||||
;;=Ethnologue, Wikipedia, e.g. "Catalan") is used as the Name, with the
|
||||
;;^DD(.85,.01,23,47,0)
|
||||
;;=other name(s) (e.g., "Valencian") added to the Alternate Name field.
|
||||
;;^DD(.85,.01,23,48,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,49,0)
|
||||
;;=As a general rule (except in the case of language collections), ISO 639
|
||||
;;^DD(.85,.01,23,50,0)
|
||||
;;=names that use commas to invert a language name (like "Sorbian, Upper")
|
||||
;;^DD(.85,.01,23,51,0)
|
||||
;;=are corrected (like "Upper Sorbian"), and the ISO 639 name is made an
|
||||
;;^DD(.85,.01,23,52,0)
|
||||
;;=Alternate Name. We do not try to use commas in the Name field to group
|
||||
;;^DD(.85,.01,23,53,0)
|
||||
;;=together all related languages or dialects, though we do in the Alternate
|
||||
;;^DD(.85,.01,23,54,0)
|
||||
;;=Name field.
|
||||
;;^DD(.85,.01,23,55,0)
|
||||
;;=
|
||||
;;^DD(.85,.01,23,56,0)
|
||||
;;=In the Name field, parenthetical comments are generally restricted to
|
||||
;;^DD(.85,.01,23,57,0)
|
||||
;;=distinguishing between unrelated languages that have the same name, like
|
||||
;;^DD(.85,.01,23,58,0)
|
||||
;;="Lele (Democratic Republic of Congo)" and "Lele (Papua New Guinea)". The
|
||||
;;^DD(.85,.01,23,59,0)
|
||||
;;=parenthetical words will be (in order of preference) a country, a people,
|
||||
;;^DD(.85,.01,23,60,0)
|
||||
;;=or an alternate name of the language, so long as it distinguishes it from
|
||||
;;^DD(.85,.01,23,61,0)
|
||||
;;=the other identically named languages. To date, we have not had to change
|
||||
;;^DD(.85,.01,23,62,0)
|
||||
;;=any of the ISO 639 names we've imported to make or correct these
|
||||
;;^DD(.85,.01,23,63,0)
|
||||
;;=distinctions, but we stand ready to do so to enforce this pattern.
|
||||
;;^DD(.85,.01,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,.02,0)
|
||||
;;=TWO LETTER CODE^FJ2^^0;2^K:$L(X)>2!($L(X)<2) X
|
||||
;;^DD(.85,.02,3)
|
||||
;;=Answer must be 2 characters in length.
|
||||
;;^DD(.85,.02,21,0)
|
||||
;;=^^3^3^3121101^^
|
||||
;;^DD(.85,.02,21,1,0)
|
||||
;;=Enter the two-letter code defined for this language in the ISO 639-1
|
||||
;;^DD(.85,.02,21,2,0)
|
||||
;;=standard. Not every language has a two-letter code; for those that do not
|
||||
;;^DD(.85,.02,21,3,0)
|
||||
;;=leave this field blank.
|
||||
;;^DD(.85,.02,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.02,23,1,0)
|
||||
;;=Future versions of this file wil include an optional key on this field.
|
||||
;;^DD(.85,.02,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.03,0)
|
||||
;;=THREE LETTER CODE^FJ3^^0;3^K:$L(X)>3!($L(X)<3) X
|
||||
;;^DD(.85,.03,3)
|
||||
;;=Answer must be 3 characters in length.
|
||||
;;^DD(.85,.03,21,0)
|
||||
;;=^^2^2^3121101^^^^
|
||||
;;^DD(.85,.03,21,1,0)
|
||||
;;=Enter the three-letter code defined for this language in the ISO 639-2/B
|
||||
;;^DD(.85,.03,21,2,0)
|
||||
;;=standard.
|
||||
;;^DD(.85,.03,23,0)
|
||||
;;=^^2^2^3121101^
|
||||
;;^DD(.85,.03,23,1,0)
|
||||
;;=When this file is upgraded to ISO-639-6, an optional key will be added to
|
||||
;;^DD(.85,.03,23,2,0)
|
||||
;;=this field.
|
||||
;;^DD(.85,.03,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.04,0)
|
||||
;;=FOUR LETTER CODE^FJ4^^0;4^K:$L(X)>4!($L(X)<4) X
|
||||
;;^DD(.85,.04,3)
|
||||
;;=Answer must be 4 characters in length.
|
||||
;;^DD(.85,.04,21,0)
|
||||
;;=^^1^1^3121101^^^
|
||||
;;^DD(.85,.04,21,1,0)
|
||||
;;=Enter the four letter code associated with the language in ISO-639-6.
|
||||
;;^DD(.85,.04,23,0)
|
||||
;;=^^3^3^3121101^
|
||||
;;^DD(.85,.04,23,1,0)
|
||||
;;=This field is currently not used in this version of the release (as of
|
||||
;;^DD(.85,.04,23,2,0)
|
||||
;;=Fileman V22.2). In a future version when this file is upgraded to
|
||||
;;^DD(.85,.04,23,3,0)
|
||||
;;=ISO-639-6, a key will be added to this field.
|
||||
;;^DD(.85,.04,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.05,0)
|
||||
;;=ALTERNATE THREE LETTER CODE^FJ3^^0;5^K:$L(X)>3!($L(X)<3) X
|
||||
;;^DD(.85,.05,3)
|
||||
;;=Answer must be 3 characters in length.
|
||||
;;^DD(.85,.05,21,0)
|
||||
;;=^^4^4^3121101^
|
||||
;;^DD(.85,.05,21,1,0)
|
||||
;;=This is the alternate three letter code for a language. This will only be
|
||||
;;^DD(.85,.05,21,2,0)
|
||||
;;=used in cases where the language abbreviation is different in English
|
||||
;;^DD(.85,.05,21,3,0)
|
||||
;;=than in the native language. E.g. GER instead of DEU; for German instead
|
||||
;;^DD(.85,.05,21,4,0)
|
||||
;;=of Deutsch. This alternate abbreviation can be found in ISO 639-2/B.
|
||||
;;^DD(.85,.05,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.05,23,1,0)
|
||||
;;=In a future version of Fileman, this field will have an optional key.
|
||||
|
|
@ -0,0 +1,438 @@
|
|||
DMLAI002 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
Q:'DIFQ(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^DD(.85,.05,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.06,0)
|
||||
;;=SCOPE^S^I:Individual;M:Macrolanguage;C:Collective;S:Special;L:Local;^0;6^Q
|
||||
;;^DD(.85,.06,3)
|
||||
;;=Select a language's scope
|
||||
;;^DD(.85,.06,21,0)
|
||||
;;=^^12^12^3121031^
|
||||
;;^DD(.85,.06,21,1,0)
|
||||
;;=Enter the Scope of a Language.
|
||||
;;^DD(.85,.06,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,3,0)
|
||||
;;=Individual if the language is an individually identifiable language
|
||||
;;^DD(.85,.06,21,4,0)
|
||||
;;=(e.g. 'Cantonese').
|
||||
;;^DD(.85,.06,21,5,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,6,0)
|
||||
;;=Macrolanguage if the language encopasses several other languages (e.g.
|
||||
;;^DD(.85,.06,21,7,0)
|
||||
;;='Chinese')
|
||||
;;^DD(.85,.06,21,8,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,9,0)
|
||||
;;=Collective if the language is a language group (e.g. 'Languages,
|
||||
;;^DD(.85,.06,21,10,0)
|
||||
;;=Sino-Tibetan')
|
||||
;;^DD(.85,.06,21,11,0)
|
||||
;;=
|
||||
;;^DD(.85,.06,21,12,0)
|
||||
;;=Special and Local are reserved for specific entries.
|
||||
;;^DD(.85,.06,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.06,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.06,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.07,0)
|
||||
;;=TYPE^S^L:Living;C:Constructed;A:Ancient;H:Historical;E:Extinct;^0;7^Q
|
||||
;;^DD(.85,.07,.1)
|
||||
;;=Historical Status
|
||||
;;^DD(.85,.07,3)
|
||||
;;=Select a choice.
|
||||
;;^DD(.85,.07,21,0)
|
||||
;;=^^12^12^3121101^^
|
||||
;;^DD(.85,.07,21,1,0)
|
||||
;;=Living means that the language is spoken today (e.g. English).
|
||||
;;^DD(.85,.07,21,2,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,3,0)
|
||||
;;=Constructed means that the language is artificial (e.g. Esperanto).
|
||||
;;^DD(.85,.07,21,4,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,5,0)
|
||||
;;=Ancient means that the language is very old and not spoken any more (e.g.
|
||||
;;^DD(.85,.07,21,6,0)
|
||||
;;=Ancient Egyptian).
|
||||
;;^DD(.85,.07,21,7,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,8,0)
|
||||
;;=Historical means that the language was being used in the Medieval times
|
||||
;;^DD(.85,.07,21,9,0)
|
||||
;;=and is not spoken any more (e.g. Old High German).
|
||||
;;^DD(.85,.07,21,10,0)
|
||||
;;=
|
||||
;;^DD(.85,.07,21,11,0)
|
||||
;;=Extinct means that the language was being used recently but has died out
|
||||
;;^DD(.85,.07,21,12,0)
|
||||
;;=(e.g. Cornish).
|
||||
;;^DD(.85,.07,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.07,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.07,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.08,0)
|
||||
;;=LINGUISTIC CATEGORY^*P.85'^DI(.85,^0;8^S DIC("S")="I $P(^(0),U,6)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
|
||||
;;^DD(.85,.08,3)
|
||||
;;=Select a choice.
|
||||
;;^DD(.85,.08,12)
|
||||
;;=Only collective languages are selectable
|
||||
;;^DD(.85,.08,12.1)
|
||||
;;=S DIC("S")="I $P(^(0),U,6)=""C"""
|
||||
;;^DD(.85,.08,21,0)
|
||||
;;=^^1^1^3121101^^
|
||||
;;^DD(.85,.08,21,1,0)
|
||||
;;=Enter a language collection to which this language belongs.
|
||||
;;^DD(.85,.08,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.08,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.08,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,.09,0)
|
||||
;;=MEMBER OF LANGUAGE SET^*P.85'^DI(.85,^0;9^S DIC("S")="I $P(^(0),U,6)=""M""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
|
||||
;;^DD(.85,.09,3)
|
||||
;;=Enter a choice.
|
||||
;;^DD(.85,.09,12)
|
||||
;;=You may only select Macrolanguages
|
||||
;;^DD(.85,.09,12.1)
|
||||
;;=S DIC("S")="I $P(^(0),U,6)=""M"""
|
||||
;;^DD(.85,.09,21,0)
|
||||
;;=^^3^3^3121101^
|
||||
;;^DD(.85,.09,21,1,0)
|
||||
;;=If this language is a dialect of a macrolanguage, select the
|
||||
;;^DD(.85,.09,21,2,0)
|
||||
;;=macrolanguage to which it belongs. (E.g. Cantonese is a dialect of
|
||||
;;^DD(.85,.09,21,3,0)
|
||||
;;=Chinese; thus Chinese is Cantonese's macrolanguage.)
|
||||
;;^DD(.85,.09,23,0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.85,.09,23,1,0)
|
||||
;;=The current version of this file does not distribute data for this field.
|
||||
;;^DD(.85,.09,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.85,1,0)
|
||||
;;=ALTERNATE NAME^.8501^^1;0
|
||||
;;^DD(.85,10,0)
|
||||
;;=DESCRIPTION^.8502^^10;0
|
||||
;;^DD(.85,10,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.85,10.1,0)
|
||||
;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.1,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.1,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.1,21,0)
|
||||
;;=^^6^6^2941121^^^^
|
||||
;;^DD(.85,10.1,21,1,0)
|
||||
;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
|
||||
;;^DD(.85,10.1,21,2,0)
|
||||
;;=this language. The code should set Y to the ordinal equivalent without
|
||||
;;^DD(.85,10.1,21,3,0)
|
||||
;;=altering any other variables in the environment. Ex. in English:
|
||||
;;^DD(.85,10.1,21,4,0)
|
||||
;;= Y=1 becomes Y=1ST
|
||||
;;^DD(.85,10.1,21,5,0)
|
||||
;;= Y=2 becomes Y=2ND
|
||||
;;^DD(.85,10.1,21,6,0)
|
||||
;;= Y=3 becomes Y=3RD etc.
|
||||
;;^DD(.85,10.1,"DT")
|
||||
;;=2940307
|
||||
;;^DD(.85,10.2,0)
|
||||
;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.2,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.2,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.2,21,0)
|
||||
;;=^^6^6^2941121^^^
|
||||
;;^DD(.85,10.2,21,1,0)
|
||||
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
||||
;;^DD(.85,10.2,21,2,0)
|
||||
;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
|
||||
;;^DD(.85,10.2,21,3,0)
|
||||
;;=The code should set Y to the output, without altering any other variables
|
||||
;;^DD(.85,10.2,21,4,0)
|
||||
;;=in the environment. Ex. in English:
|
||||
;;^DD(.85,10.2,21,5,0)
|
||||
;;=
|
||||
;;^DD(.85,10.2,21,6,0)
|
||||
;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
|
||||
;;^DD(.85,10.2,"DT")
|
||||
;;=2940307
|
||||
;;^DD(.85,10.21,0)
|
||||
;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.21,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.21,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.21,21,0)
|
||||
;;=^^22^22^2941122^
|
||||
;;^DD(.85,10.21,21,1,0)
|
||||
;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
|
||||
;;^DD(.85,10.21,21,2,0)
|
||||
;;=format, to printable format based on the various outputs from routine
|
||||
;;^DD(.85,10.21,21,3,0)
|
||||
;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
|
||||
;;^DD(.85,10.21,21,4,0)
|
||||
;;=code, in addition to the internal date in Y, a third parameter will be
|
||||
;;^DD(.85,10.21,21,5,0)
|
||||
;;=defined to contain flags equivalent to the flag passed as the second input
|
||||
;;^DD(.85,10.21,21,6,0)
|
||||
;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
|
||||
;;^DD(.85,10.21,21,7,0)
|
||||
;;=altering any other variables in the environment. The output should be
|
||||
;;^DD(.85,10.21,21,8,0)
|
||||
;;=formatted based on these flags:
|
||||
;;^DD(.85,10.21,21,9,0)
|
||||
;;=
|
||||
;;^DD(.85,10.21,21,10,0)
|
||||
;;= 1 MMM DD, YYYY@HH:MM:SS
|
||||
;;^DD(.85,10.21,21,11,0)
|
||||
;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,12,0)
|
||||
;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,13,0)
|
||||
;;= 4 YY/MM/DD@HH:MM:SS
|
||||
;;^DD(.85,10.21,21,14,0)
|
||||
;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
|
||||
;;^DD(.85,10.21,21,15,0)
|
||||
;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
|
||||
;;^DD(.85,10.21,21,16,0)
|
||||
;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
|
||||
;;^DD(.85,10.21,21,17,0)
|
||||
;;=
|
||||
;;^DD(.85,10.21,21,18,0)
|
||||
;;=letters in the flag
|
||||
;;^DD(.85,10.21,21,19,0)
|
||||
;;= S return always seconds
|
||||
;;^DD(.85,10.21,21,20,0)
|
||||
;;= U return uppercase month names
|
||||
;;^DD(.85,10.21,21,21,0)
|
||||
;;= P return time as am,pm
|
||||
;;^DD(.85,10.21,21,22,0)
|
||||
;;= D return only date part
|
||||
;;^DD(.85,10.21,"DT")
|
||||
;;=2940624
|
||||
;;^DD(.85,10.22,0)
|
||||
;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.22,3)
|
||||
;;=This is Standard MUMPS code for the output of time only.
|
||||
;;^DD(.85,10.22,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.22,21,0)
|
||||
;;=^^2^2^2960318^
|
||||
;;^DD(.85,10.22,21,1,0)
|
||||
;;=The code stored here will be used to get formatted output of the time
|
||||
;;^DD(.85,10.22,21,2,0)
|
||||
;;=part belonging to a FileMan Date/Time value.
|
||||
;;^DD(.85,10.22,"DT")
|
||||
;;=2960318
|
||||
;;^DD(.85,10.3,0)
|
||||
;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.3,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.3,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.3,21,0)
|
||||
;;=^^5^5^2941121^^
|
||||
;;^DD(.85,10.3,21,1,0)
|
||||
;;=MUMPS code used to transfer a number in Y to its cardinal equivalent in
|
||||
;;^DD(.85,10.3,21,2,0)
|
||||
;;=this language. The code should set Y to the cardinal equivalent without
|
||||
;;^DD(.85,10.3,21,3,0)
|
||||
;;=altering any other variables in the environment. Ex. in English:
|
||||
;;^DD(.85,10.3,21,4,0)
|
||||
;;= Y=2000 becomes Y=2,000
|
||||
;;^DD(.85,10.3,21,5,0)
|
||||
;;= Y=1234567 becomes Y=1,234,567
|
||||
;;^DD(.85,10.3,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,10.4,0)
|
||||
;;=UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.4,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.4,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.4,21,0)
|
||||
;;=^^4^4^2941121^
|
||||
;;^DD(.85,10.4,21,1,0)
|
||||
;;=MUMPS code used to convert text in Y to its upper-case equivalent in
|
||||
;;^DD(.85,10.4,21,2,0)
|
||||
;;=this language. The code should set Y to the external format without
|
||||
;;^DD(.85,10.4,21,3,0)
|
||||
;;=altering any other variables in the environment. In English, changes
|
||||
;;^DD(.85,10.4,21,4,0)
|
||||
;;= abCdeF to: ABCDEF
|
||||
;;^DD(.85,10.4,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,10.5,0)
|
||||
;;=LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,10.5,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,10.5,9)
|
||||
;;=@
|
||||
;;^DD(.85,10.5,21,0)
|
||||
;;=^^4^4^2941121^
|
||||
;;^DD(.85,10.5,21,1,0)
|
||||
;;=MUMPS code used to convert text in Y to its lower-case equivalent in
|
||||
;;^DD(.85,10.5,21,2,0)
|
||||
;;=this language. The code should set Y to the external format without
|
||||
;;^DD(.85,10.5,21,3,0)
|
||||
;;=altering any other variables in the environment. In English, changes:
|
||||
;;^DD(.85,10.5,21,4,0)
|
||||
;;= ABcdEFgHij to: abcdefghij
|
||||
;;^DD(.85,10.5,"DT")
|
||||
;;=2940308
|
||||
;;^DD(.85,20.2,0)
|
||||
;;=DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
||||
;;^DD(.85,20.2,3)
|
||||
;;=This is Standard MUMPS code.
|
||||
;;^DD(.85,20.2,9)
|
||||
;;=@
|
||||
;;^DD(.85,20.2,"DT")
|
||||
;;=2940714
|
||||
;;^DD(.8501,0)
|
||||
;;=ALTERNATE NAME SUB-FIELD^^.01^1
|
||||
;;^DD(.8501,0,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8501,0,"IX","B",.8501,.01)
|
||||
;;=
|
||||
;;^DD(.8501,0,"NM","ALTERNATE NAME")
|
||||
;;=
|
||||
;;^DD(.8501,0,"UP")
|
||||
;;=.85
|
||||
;;^DD(.8501,.01,0)
|
||||
;;=ALTERNATE NAME^MFJ60^^0;1^K:$L(X)>60!($L(X)<1) X
|
||||
;;^DD(.8501,.01,1,0)
|
||||
;;=^.1
|
||||
;;^DD(.8501,.01,1,1,0)
|
||||
;;=.8501^B
|
||||
;;^DD(.8501,.01,1,1,1)
|
||||
;;=S ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)=""
|
||||
;;^DD(.8501,.01,1,1,2)
|
||||
;;=K ^DI(.85,DA(1),1,"B",$E(X,1,30),DA)
|
||||
;;^DD(.8501,.01,1,2,0)
|
||||
;;=.85^F
|
||||
;;^DD(.8501,.01,1,2,1)
|
||||
;;=S ^DI(.85,"F",$E(X,1,30),DA(1),DA)=""
|
||||
;;^DD(.8501,.01,1,2,2)
|
||||
;;=K ^DI(.85,"F",$E(X,1,30),DA(1),DA)
|
||||
;;^DD(.8501,.01,1,2,3)
|
||||
;;=WHOLE FILE CROSS REFERENCE FOR ALTERNATE NAME
|
||||
;;^DD(.8501,.01,1,2,"%D",0)
|
||||
;;=^^1^1^3121101^
|
||||
;;^DD(.8501,.01,1,2,"%D",1,0)
|
||||
;;=Whole file cross-reference for ALTERNATE NAME multiple.
|
||||
;;^DD(.8501,.01,1,2,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8501,.01,3)
|
||||
;;=Answer must be 1-60 characters in length.
|
||||
;;^DD(.8501,.01,21,0)
|
||||
;;=^^2^2^3121101^^
|
||||
;;^DD(.8501,.01,21,1,0)
|
||||
;;=This field contains other synonyms for a language.
|
||||
;;^DD(.8501,.01,21,2,0)
|
||||
;;=E.g. for Greek, synonyms include Ellinika and Romaic.
|
||||
;;^DD(.8501,.01,"DT")
|
||||
;;=3121101
|
||||
;;^DD(.8502,0)
|
||||
;;=DESCRIPTION SUB-FIELD^^.01^1
|
||||
;;^DD(.8502,0,"DT")
|
||||
;;=3121031
|
||||
;;^DD(.8502,0,"NM","DESCRIPTION")
|
||||
;;=
|
||||
;;^DD(.8502,0,"UP")
|
||||
;;=.85
|
||||
;;^DD(.8502,.01,0)
|
||||
;;=DESCRIPTION^Wx^^0;1
|
||||
;;^DD(.8502,.01,3)
|
||||
;;=Enter an optional language description
|
||||
;;^DD(.8502,.01,"DT")
|
||||
;;=3121031
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",0)
|
||||
;;=.85^B^Regular new-style B Index^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",1)
|
||||
;;=S ^DI(.85,"B",X,DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2)
|
||||
;;=K ^DI(.85,"B",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",2.5)
|
||||
;;=K ^DI(.85,"B")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,0)
|
||||
;;=1^F^.85^.01^^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"B",11.1,1,3)
|
||||
;;=
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",0)
|
||||
;;=.85^C^Regular new style index on two letter language codes^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",1)
|
||||
;;=S ^DI(.85,"C",X,DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2)
|
||||
;;=K ^DI(.85,"C",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",2.5)
|
||||
;;=K ^DI(.85,"C")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"C",11.1,1,0)
|
||||
;;=1^F^.85^.02^^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",0)
|
||||
;;=.85^D^Regular new-style index for three letter abbreviations for languages^R^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",1)
|
||||
;;=S ^DI(.85,"D",$E(X,1,30),DA)=""
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2)
|
||||
;;=K ^DI(.85,"D",$E(X,1,30),DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",2.5)
|
||||
;;=K ^DI(.85,"D")
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"D",11.1,1,0)
|
||||
;;=1^F^.85^.03^30^1^F
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
|
||||
;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
|
||||
;;=^^6^6^3121031^
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
|
||||
;;=This will add entries to the D index for the three letter code a la the
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
|
||||
;;=mnemonic style.
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,3,0)
|
||||
;;=
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,4,0)
|
||||
;;=If you need re-cross-reference this field, you need to kill of the
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
|
||||
;;=entries in the regular D index, set the D index, and then set this index
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
|
||||
;;=to update the D with the mnemonic xrefs.
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
|
||||
;;=S ^DI(.85,"D",X,DA)=1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
|
||||
;;=K ^DI(.85,"D",X,DA)
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
|
||||
;;=^.114IA^1^1
|
||||
;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
|
||||
;;=1^F^.85^.05^^1^F
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
|
||||
;;=.85^A^P^1046
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,0)
|
||||
;;=^.312IA^1^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"A",2,1,0)
|
||||
;;=.01^.85^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
|
||||
;;=.85^B^S^1048
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
|
||||
;;=^.312IA^1^1
|
||||
;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
|
||||
;;=.03^.85^1
|
||||
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
|
||||
;;=.85^B
|
||||
;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
|
||||
;;=.85^D
|
||||
|
|
@ -0,0 +1,610 @@
|
|||
DMLAI003 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
Q:'DIFQR(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^UTILITY(U,$J,.85)
|
||||
;;=^DI(.85,
|
||||
;;^UTILITY(U,$J,.85,0)
|
||||
;;=LANGUAGE^.85I^18^533
|
||||
;;^UTILITY(U,$J,.85,1,0)
|
||||
;;=ENGLISH^EN^ENG
|
||||
;;^UTILITY(U,$J,.85,1,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,1,1,1,0)
|
||||
;;=MODERN ENGLISH (1500-)
|
||||
;;^UTILITY(U,$J,.85,1,1,2,0)
|
||||
;;=ENGLISH,MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,1,"CRD")
|
||||
;;=I Y S Y=$FN(Y,",")
|
||||
;;^UTILITY(U,$J,.85,1,"DD")
|
||||
;;=S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
|
||||
;;^UTILITY(U,$J,.85,1,"FMTE")
|
||||
;;=N RTN,%T S %T="."_$E($P(Y,".",2)_"000000",1,7),%F=$G(%F),RTN="F"_$S(%F<1:1,%F>7:1,1:+%F\1)_"^DILIBF" D @RTN S Y=%R
|
||||
;;^UTILITY(U,$J,.85,1,"LC")
|
||||
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
|
||||
;;^UTILITY(U,$J,.85,1,"ORD")
|
||||
;;=I $G(Y) S Y=Y_$S(Y#10=1&(Y#100-11):"ST",Y#10=2&(Y#100-12):"ND",Y#10=3&(Y#100-13):"RD",1:"TH")
|
||||
;;^UTILITY(U,$J,.85,1,"TIME")
|
||||
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
|
||||
;;^UTILITY(U,$J,.85,1,"UC")
|
||||
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
||||
;;^UTILITY(U,$J,.85,2,0)
|
||||
;;=GERMAN^DE^DEU^^GER
|
||||
;;^UTILITY(U,$J,.85,2,1,0)
|
||||
;;=^.8501^7^7
|
||||
;;^UTILITY(U,$J,.85,2,1,1,0)
|
||||
;;=GERMAN, STANDARD
|
||||
;;^UTILITY(U,$J,.85,2,1,2,0)
|
||||
;;=STANDARD GERMAN
|
||||
;;^UTILITY(U,$J,.85,2,1,3,0)
|
||||
;;=DEUTSCH
|
||||
;;^UTILITY(U,$J,.85,2,1,4,0)
|
||||
;;=DEUTSCH SPRACHE
|
||||
;;^UTILITY(U,$J,.85,2,1,5,0)
|
||||
;;=TEDESCO
|
||||
;;^UTILITY(U,$J,.85,2,1,6,0)
|
||||
;;=MODERN GERMAN (1500-)
|
||||
;;^UTILITY(U,$J,.85,2,1,7,0)
|
||||
;;=GERMAN,MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,2,"CRD")
|
||||
;;=S:$G(Y) Y=$TR($FN(Y,","),",",".")
|
||||
;;^UTILITY(U,$J,.85,2,"DD")
|
||||
;;=S:Y Y=$S($E(Y,6,7):$E(Y,6,7)_".",1:"")_$S($E(Y,4,5):$E(Y,4,5)_".",1:"")_($E(Y,1,3)+1700)_$P(" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),"^",Y[".")
|
||||
;;^UTILITY(U,$J,.85,2,"LC")
|
||||
;;=S Y=$TR(Y,"ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\","abcdefghijklmnopqrstuvwxyz{}|")
|
||||
;;^UTILITY(U,$J,.85,2,"ORD")
|
||||
;;=S:$G(Y) Y=Y_"."
|
||||
;;^UTILITY(U,$J,.85,2,"TIME")
|
||||
;;=S Y=$S($L($G(Y),".")>1:$E(Y_0,9,10)_":"_$E(Y_"000",11,12)_$S($E(Y,13,14):":"_$E(Y_0,13,14),1:""),1:"")
|
||||
;;^UTILITY(U,$J,.85,2,"UC")
|
||||
;;=S Y=$TR(Y,"abcdefghijklmnopqrstuvwxyz{}|","ABCDEFGHIJKLMNOPQRSTUVWXYZ[]\")
|
||||
;;^UTILITY(U,$J,.85,3,0)
|
||||
;;=SPANISH^ES^SPA
|
||||
;;^UTILITY(U,$J,.85,3,1,0)
|
||||
;;=^.8501^5^5
|
||||
;;^UTILITY(U,$J,.85,3,1,1,0)
|
||||
;;=CASTILIAN
|
||||
;;^UTILITY(U,$J,.85,3,1,2,0)
|
||||
;;=CASTELLANO
|
||||
;;^UTILITY(U,$J,.85,3,1,3,0)
|
||||
;;=ESPANOL
|
||||
;;^UTILITY(U,$J,.85,3,1,4,0)
|
||||
;;=MODERN SPANISH (1500-)
|
||||
;;^UTILITY(U,$J,.85,3,1,5,0)
|
||||
;;=SPANISH, MODERN (1500-)
|
||||
;;^UTILITY(U,$J,.85,4,0)
|
||||
;;=FRENCH^FR^FRA^^FRE
|
||||
;;^UTILITY(U,$J,.85,4,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,4,1,1,0)
|
||||
;;=FRANCAIS
|
||||
;;^UTILITY(U,$J,.85,4,1,2,0)
|
||||
;;=MODERN FRENCH (1600-)
|
||||
;;^UTILITY(U,$J,.85,4,1,3,0)
|
||||
;;=FRENCH, MODERN (1600-)
|
||||
;;^UTILITY(U,$J,.85,5,0)
|
||||
;;=FINNISH^FI^FIN
|
||||
;;^UTILITY(U,$J,.85,5,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,5,1,1,0)
|
||||
;;=SUOMEA
|
||||
;;^UTILITY(U,$J,.85,5,1,2,0)
|
||||
;;=SUOMI
|
||||
;;^UTILITY(U,$J,.85,5,1,3,0)
|
||||
;;=SUOMEN KIELI
|
||||
;;^UTILITY(U,$J,.85,5,"DD")
|
||||
;;=X:$G(Y) ^DD("DD")
|
||||
;;^UTILITY(U,$J,.85,5,"ORD")
|
||||
;;=I $G(Y) S Y=Y_"."
|
||||
;;^UTILITY(U,$J,.85,6,0)
|
||||
;;=ITALIAN^IT^ITA
|
||||
;;^UTILITY(U,$J,.85,6,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,6,1,1,0)
|
||||
;;=ITALIANO
|
||||
;;^UTILITY(U,$J,.85,6,1,2,0)
|
||||
;;=LINGUA ITALIANA
|
||||
;;^UTILITY(U,$J,.85,7,0)
|
||||
;;=PORTUGUESE^PT^POR
|
||||
;;^UTILITY(U,$J,.85,7,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,7,1,1,0)
|
||||
;;=PORTUGUES
|
||||
;;^UTILITY(U,$J,.85,7,1,2,0)
|
||||
;;=LINGUA PORTUGUESA
|
||||
;;^UTILITY(U,$J,.85,7,1,3,0)
|
||||
;;=MODERN PORTUGUESE (1516-)
|
||||
;;^UTILITY(U,$J,.85,7,1,4,0)
|
||||
;;=PORTUGUESE, MODERN (1516-)
|
||||
;;^UTILITY(U,$J,.85,8,0)
|
||||
;;=ABKHAZ^AB^ABK
|
||||
;;^UTILITY(U,$J,.85,8,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,8,1,1,0)
|
||||
;;=ABKHAZIAN
|
||||
;;^UTILITY(U,$J,.85,8,1,2,0)
|
||||
;;=ABXAZO
|
||||
;;^UTILITY(U,$J,.85,9,0)
|
||||
;;=ACHINESE^^ACE
|
||||
;;^UTILITY(U,$J,.85,10,0)
|
||||
;;=ARABIC^AR^ARA
|
||||
;;^UTILITY(U,$J,.85,10,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,10,1,1,0)
|
||||
;;=AL-'ARABIYYAH
|
||||
;;^UTILITY(U,$J,.85,10,1,2,0)
|
||||
;;='ARABI
|
||||
;;^UTILITY(U,$J,.85,11,0)
|
||||
;;=RUSSIAN^RU^RUS
|
||||
;;^UTILITY(U,$J,.85,11,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,11,1,1,0)
|
||||
;;=RUSSKI
|
||||
;;^UTILITY(U,$J,.85,11,1,2,0)
|
||||
;;=RUSSKIY YAZYK
|
||||
;;^UTILITY(U,$J,.85,12,0)
|
||||
;;=GREEK^EL^ELL^^GRE
|
||||
;;^UTILITY(U,$J,.85,12,1,0)
|
||||
;;=^.8501^9^9
|
||||
;;^UTILITY(U,$J,.85,12,1,1,0)
|
||||
;;=ELLINIKA
|
||||
;;^UTILITY(U,$J,.85,12,1,2,0)
|
||||
;;=ELLINIKI GLOSSA
|
||||
;;^UTILITY(U,$J,.85,12,1,3,0)
|
||||
;;=GRAECAE
|
||||
;;^UTILITY(U,$J,.85,12,1,4,0)
|
||||
;;=GREC
|
||||
;;^UTILITY(U,$J,.85,12,1,5,0)
|
||||
;;=GRECO
|
||||
;;^UTILITY(U,$J,.85,12,1,6,0)
|
||||
;;=NEO-HELLENIC
|
||||
;;^UTILITY(U,$J,.85,12,1,7,0)
|
||||
;;=ROMAIC
|
||||
;;^UTILITY(U,$J,.85,12,1,8,0)
|
||||
;;=MODERN GREEK (1453-)
|
||||
;;^UTILITY(U,$J,.85,12,1,9,0)
|
||||
;;=GREEK, MODERN (1453-)
|
||||
;;^UTILITY(U,$J,.85,13,0)
|
||||
;;=ACOLI^^ACH
|
||||
;;^UTILITY(U,$J,.85,14,0)
|
||||
;;=ADANGME^^ADA
|
||||
;;^UTILITY(U,$J,.85,15,0)
|
||||
;;=ADYGHE^^ADY
|
||||
;;^UTILITY(U,$J,.85,15,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,15,1,1,0)
|
||||
;;=ADYGEI
|
||||
;;^UTILITY(U,$J,.85,16,0)
|
||||
;;=AFAR^AA^AAR
|
||||
;;^UTILITY(U,$J,.85,16,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,16,1,1,0)
|
||||
;;=QAFAR AF
|
||||
;;^UTILITY(U,$J,.85,16,1,2,0)
|
||||
;;='AFAR AF
|
||||
;;^UTILITY(U,$J,.85,16,1,3,0)
|
||||
;;=ADAL
|
||||
;;^UTILITY(U,$J,.85,16,1,4,0)
|
||||
;;=AFARAF
|
||||
;;^UTILITY(U,$J,.85,17,0)
|
||||
;;=AFRIHILI^^AFH
|
||||
;;^UTILITY(U,$J,.85,18,0)
|
||||
;;=HEBREW^HE^HEB
|
||||
;;^UTILITY(U,$J,.85,18,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,18,1,1,0)
|
||||
;;=IVRIT
|
||||
;;^UTILITY(U,$J,.85,18,1,2,0)
|
||||
;;=MODERN HEBREW (1881-)
|
||||
;;^UTILITY(U,$J,.85,18,1,3,0)
|
||||
;;=HEBREW, MODERN (1881-)
|
||||
;;^UTILITY(U,$J,.85,19,0)
|
||||
;;=AFRIKAANS^AF^AFR
|
||||
;;^UTILITY(U,$J,.85,20,0)
|
||||
;;=AINU^^AIN
|
||||
;;^UTILITY(U,$J,.85,21,0)
|
||||
;;=AKAN^AK^AKA
|
||||
;;^UTILITY(U,$J,.85,22,0)
|
||||
;;=AKKADIAN^^AKK
|
||||
;;^UTILITY(U,$J,.85,23,0)
|
||||
;;=ALBANIAN^SQ^SQI^^ALB
|
||||
;;^UTILITY(U,$J,.85,23,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,23,1,1,0)
|
||||
;;=SHQIP
|
||||
;;^UTILITY(U,$J,.85,23,1,2,0)
|
||||
;;=GJUHA SHQIPE
|
||||
;;^UTILITY(U,$J,.85,24,0)
|
||||
;;=ALEUT^^ALE
|
||||
;;^UTILITY(U,$J,.85,25,0)
|
||||
;;=ALTAI, SOUTHERN^^ALT
|
||||
;;^UTILITY(U,$J,.85,25,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,25,1,1,0)
|
||||
;;=SOUTHERN ALTAI
|
||||
;;^UTILITY(U,$J,.85,26,0)
|
||||
;;=AMHARIC^AM^AMH
|
||||
;;^UTILITY(U,$J,.85,26,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,26,1,1,0)
|
||||
;;=ABYSSINIAN
|
||||
;;^UTILITY(U,$J,.85,26,1,2,0)
|
||||
;;=AMARIGNA
|
||||
;;^UTILITY(U,$J,.85,26,1,3,0)
|
||||
;;=AMARINYA
|
||||
;;^UTILITY(U,$J,.85,26,1,4,0)
|
||||
;;=ETHIOPIAN
|
||||
;;^UTILITY(U,$J,.85,27,0)
|
||||
;;=ANCIENT EGYPTIAN^^EGY
|
||||
;;^UTILITY(U,$J,.85,27,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,27,1,1,0)
|
||||
;;=EGYPTIAN, ANCIENT
|
||||
;;^UTILITY(U,$J,.85,28,0)
|
||||
;;=ANCIENT GREEK^^GRC
|
||||
;;^UTILITY(U,$J,.85,28,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,28,1,1,0)
|
||||
;;=GREEK, ANCIENT (TO 1453)
|
||||
;;^UTILITY(U,$J,.85,29,0)
|
||||
;;=ANGIKA^^ANP
|
||||
;;^UTILITY(U,$J,.85,30,0)
|
||||
;;=ARAGONESE^AN^ARG
|
||||
;;^UTILITY(U,$J,.85,30,1,0)
|
||||
;;=^.8501^6^6
|
||||
;;^UTILITY(U,$J,.85,30,1,1,0)
|
||||
;;=ALTOARAGONES
|
||||
;;^UTILITY(U,$J,.85,30,1,2,0)
|
||||
;;=ARAGOIERAZ
|
||||
;;^UTILITY(U,$J,.85,30,1,3,0)
|
||||
;;=ARAGONES
|
||||
;;^UTILITY(U,$J,.85,30,1,4,0)
|
||||
;;=FABLA ARAGONESA
|
||||
;;^UTILITY(U,$J,.85,30,1,5,0)
|
||||
;;=HIGH ARAGONESE
|
||||
;;^UTILITY(U,$J,.85,30,1,6,0)
|
||||
;;=PATUES
|
||||
;;^UTILITY(U,$J,.85,31,0)
|
||||
;;=ARAPAHO^^ARP
|
||||
;;^UTILITY(U,$J,.85,32,0)
|
||||
;;=ARAWAK^^ARW
|
||||
;;^UTILITY(U,$J,.85,33,0)
|
||||
;;=ARMENIAN^HY^HYE^^ARM
|
||||
;;^UTILITY(U,$J,.85,33,1,0)
|
||||
;;=^.8501^7^7
|
||||
;;^UTILITY(U,$J,.85,33,1,1,0)
|
||||
;;=HAYEREN
|
||||
;;^UTILITY(U,$J,.85,33,1,2,0)
|
||||
;;=ARMJANSKI YAZYK
|
||||
;;^UTILITY(U,$J,.85,33,1,3,0)
|
||||
;;=ENA
|
||||
;;^UTILITY(U,$J,.85,33,1,4,0)
|
||||
;;=ERMENI DILI
|
||||
;;^UTILITY(U,$J,.85,33,1,5,0)
|
||||
;;=ERMENICE
|
||||
;;^UTILITY(U,$J,.85,33,1,6,0)
|
||||
;;=HAIEREN
|
||||
;;^UTILITY(U,$J,.85,33,1,7,0)
|
||||
;;=SOMKHURI
|
||||
;;^UTILITY(U,$J,.85,34,0)
|
||||
;;=AROMANIAN^^RUP
|
||||
;;^UTILITY(U,$J,.85,34,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,34,1,1,0)
|
||||
;;=ARUMANIAN
|
||||
;;^UTILITY(U,$J,.85,34,1,2,0)
|
||||
;;=MACEDO-ROMANIAN
|
||||
;;^UTILITY(U,$J,.85,35,0)
|
||||
;;=ASSAMESE^AS^ASM
|
||||
;;^UTILITY(U,$J,.85,35,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,35,1,1,0)
|
||||
;;=ASAMBE
|
||||
;;^UTILITY(U,$J,.85,35,1,2,0)
|
||||
;;=ASAMI
|
||||
;;^UTILITY(U,$J,.85,35,1,3,0)
|
||||
;;=ASAMIYA
|
||||
;;^UTILITY(U,$J,.85,36,0)
|
||||
;;=ASTURIAN^^AST
|
||||
;;^UTILITY(U,$J,.85,36,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,36,1,1,0)
|
||||
;;=BABLE
|
||||
;;^UTILITY(U,$J,.85,36,1,2,0)
|
||||
;;=LEONESE
|
||||
;;^UTILITY(U,$J,.85,36,1,3,0)
|
||||
;;=ASTURLEONESE
|
||||
;;^UTILITY(U,$J,.85,37,0)
|
||||
;;=AVARIC^AV^AVA
|
||||
;;^UTILITY(U,$J,.85,38,0)
|
||||
;;=AVESTAN^AE^AVE
|
||||
;;^UTILITY(U,$J,.85,39,0)
|
||||
;;=AWADHI^^AWA
|
||||
;;^UTILITY(U,$J,.85,40,0)
|
||||
;;=AYMARA^AY^AYM
|
||||
;;^UTILITY(U,$J,.85,41,0)
|
||||
;;=AZERBAIJANI^AZ^AZE
|
||||
;;^UTILITY(U,$J,.85,42,0)
|
||||
;;=BALINESE^^BAN
|
||||
;;^UTILITY(U,$J,.85,43,0)
|
||||
;;=BALUCHI^^BAL
|
||||
;;^UTILITY(U,$J,.85,44,0)
|
||||
;;=BAMBARA^BM^BAM
|
||||
;;^UTILITY(U,$J,.85,45,0)
|
||||
;;=BASA^^BAS
|
||||
;;^UTILITY(U,$J,.85,46,0)
|
||||
;;=BASHKIR^BA^BAK
|
||||
;;^UTILITY(U,$J,.85,47,0)
|
||||
;;=BASQUE^EU^EUS^^BAQ
|
||||
;;^UTILITY(U,$J,.85,47,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,47,1,1,0)
|
||||
;;=EUSKARA
|
||||
;;^UTILITY(U,$J,.85,48,0)
|
||||
;;=BEJA^^BEJ
|
||||
;;^UTILITY(U,$J,.85,48,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,48,1,1,0)
|
||||
;;=BEDAWIYET
|
||||
;;^UTILITY(U,$J,.85,49,0)
|
||||
;;=BELARUSIAN^BE^BEL
|
||||
;;^UTILITY(U,$J,.85,50,0)
|
||||
;;=BEMBA^^BEM
|
||||
;;^UTILITY(U,$J,.85,51,0)
|
||||
;;=BENGALI^BN^BEN
|
||||
;;^UTILITY(U,$J,.85,52,0)
|
||||
;;=BHOJPURI^^BHO
|
||||
;;^UTILITY(U,$J,.85,53,0)
|
||||
;;=BIKOL^^BIK
|
||||
;;^UTILITY(U,$J,.85,54,0)
|
||||
;;=BILIN^^BYN
|
||||
;;^UTILITY(U,$J,.85,54,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,54,1,1,0)
|
||||
;;=BLIN
|
||||
;;^UTILITY(U,$J,.85,55,0)
|
||||
;;=BINI^^BIN
|
||||
;;^UTILITY(U,$J,.85,55,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,55,1,1,0)
|
||||
;;=EDO
|
||||
;;^UTILITY(U,$J,.85,56,0)
|
||||
;;=BISLAMA^BI^BIS
|
||||
;;^UTILITY(U,$J,.85,57,0)
|
||||
;;=BLISSYMBOLS^^ZBL
|
||||
;;^UTILITY(U,$J,.85,57,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,57,1,1,0)
|
||||
;;=BLISSYMBOLICS
|
||||
;;^UTILITY(U,$J,.85,57,1,2,0)
|
||||
;;=BLISS
|
||||
;;^UTILITY(U,$J,.85,58,0)
|
||||
;;=BOSNIAN^BS^BOS
|
||||
;;^UTILITY(U,$J,.85,59,0)
|
||||
;;=BRAJ^^BRA
|
||||
;;^UTILITY(U,$J,.85,60,0)
|
||||
;;=BRETON^BR^BRE
|
||||
;;^UTILITY(U,$J,.85,61,0)
|
||||
;;=BUGINESE^^BUG
|
||||
;;^UTILITY(U,$J,.85,62,0)
|
||||
;;=BULGARIAN^BG^BUL
|
||||
;;^UTILITY(U,$J,.85,63,0)
|
||||
;;=BURIAT^^BUA
|
||||
;;^UTILITY(U,$J,.85,64,0)
|
||||
;;=BURMESE^MY^MYA^^BUR
|
||||
;;^UTILITY(U,$J,.85,64,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,64,1,1,0)
|
||||
;;=MYANMAR LANGUAGE
|
||||
;;^UTILITY(U,$J,.85,65,0)
|
||||
;;=CADDO^^CAD
|
||||
;;^UTILITY(U,$J,.85,66,0)
|
||||
;;=CATALAN^CA^CAT
|
||||
;;^UTILITY(U,$J,.85,66,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,66,1,1,0)
|
||||
;;=VALENCIAN
|
||||
;;^UTILITY(U,$J,.85,67,0)
|
||||
;;=CEBUANO^^CEB
|
||||
;;^UTILITY(U,$J,.85,68,0)
|
||||
;;=CHAGATAI^^CHG
|
||||
;;^UTILITY(U,$J,.85,69,0)
|
||||
;;=CHAMORRO^CH^CHA
|
||||
;;^UTILITY(U,$J,.85,70,0)
|
||||
;;=CHECHEN^CE^CHE
|
||||
;;^UTILITY(U,$J,.85,71,0)
|
||||
;;=CHEROKEE^^CHR
|
||||
;;^UTILITY(U,$J,.85,72,0)
|
||||
;;=CHEYENNE^^CHY
|
||||
;;^UTILITY(U,$J,.85,73,0)
|
||||
;;=CHIBCHA^^CHB
|
||||
;;^UTILITY(U,$J,.85,74,0)
|
||||
;;=CHICHEWA^NY^NYA
|
||||
;;^UTILITY(U,$J,.85,74,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,74,1,1,0)
|
||||
;;=CHEWA
|
||||
;;^UTILITY(U,$J,.85,74,1,2,0)
|
||||
;;=NYANJA
|
||||
;;^UTILITY(U,$J,.85,75,0)
|
||||
;;=CHINESE^ZH^ZHO^^CHI
|
||||
;;^UTILITY(U,$J,.85,76,0)
|
||||
;;=CHINOOK JARGON^^CHN
|
||||
;;^UTILITY(U,$J,.85,77,0)
|
||||
;;=CHIPEWYAN^^CHP
|
||||
;;^UTILITY(U,$J,.85,77,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,77,1,1,0)
|
||||
;;=DENE SULINE
|
||||
;;^UTILITY(U,$J,.85,78,0)
|
||||
;;=CHOCTAW^^CHO
|
||||
;;^UTILITY(U,$J,.85,79,0)
|
||||
;;=CHUUKESE^^CHK
|
||||
;;^UTILITY(U,$J,.85,80,0)
|
||||
;;=CHUVASH^CV^CHV
|
||||
;;^UTILITY(U,$J,.85,81,0)
|
||||
;;=CLASSICAL NEWARI^^NWC
|
||||
;;^UTILITY(U,$J,.85,81,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,81,1,1,0)
|
||||
;;=OLD NEWARI
|
||||
;;^UTILITY(U,$J,.85,81,1,2,0)
|
||||
;;=CLASSICAL NEPAL BHASA
|
||||
;;^UTILITY(U,$J,.85,82,0)
|
||||
;;=CLASSICAL SYRIAC^^SYC
|
||||
;;^UTILITY(U,$J,.85,83,0)
|
||||
;;=COPTIC^^COP
|
||||
;;^UTILITY(U,$J,.85,84,0)
|
||||
;;=CORNISH^KW^COR
|
||||
;;^UTILITY(U,$J,.85,85,0)
|
||||
;;=CORSICAN^CO^COS
|
||||
;;^UTILITY(U,$J,.85,86,0)
|
||||
;;=CREE^CR^CRE
|
||||
;;^UTILITY(U,$J,.85,87,0)
|
||||
;;=CREEK^^MUS
|
||||
;;^UTILITY(U,$J,.85,88,0)
|
||||
;;=CREOLES AND PIDGINS^^CRP
|
||||
;;^UTILITY(U,$J,.85,89,0)
|
||||
;;=CREOLES AND PIDGINS, ENGLISH-BASED^^CPE
|
||||
;;^UTILITY(U,$J,.85,90,0)
|
||||
;;=CREOLES AND PIDGINS, FRENCH-BASED^^CPF
|
||||
;;^UTILITY(U,$J,.85,91,0)
|
||||
;;=CREOLES AND PIDGINS, PORTUGUESE-BASED^^CPP
|
||||
;;^UTILITY(U,$J,.85,92,0)
|
||||
;;=CRIMEAN TATAR^^CRH
|
||||
;;^UTILITY(U,$J,.85,92,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,92,1,1,0)
|
||||
;;=CRIMEAN TURKISH
|
||||
;;^UTILITY(U,$J,.85,93,0)
|
||||
;;=CROATIAN^HR^HRV
|
||||
;;^UTILITY(U,$J,.85,94,0)
|
||||
;;=CZECH^CS^CES^^CZE
|
||||
;;^UTILITY(U,$J,.85,95,0)
|
||||
;;=DAKOTA^^DAK
|
||||
;;^UTILITY(U,$J,.85,96,0)
|
||||
;;=DANISH^DA^DAN
|
||||
;;^UTILITY(U,$J,.85,97,0)
|
||||
;;=DARGWA^^DAR
|
||||
;;^UTILITY(U,$J,.85,98,0)
|
||||
;;=DELAWARE^^DEL
|
||||
;;^UTILITY(U,$J,.85,99,0)
|
||||
;;=DINKA^^DIN
|
||||
;;^UTILITY(U,$J,.85,100,0)
|
||||
;;=DIVEHI^DV^DIV
|
||||
;;^UTILITY(U,$J,.85,100,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,100,1,1,0)
|
||||
;;=DHIVEHI
|
||||
;;^UTILITY(U,$J,.85,100,1,2,0)
|
||||
;;=MALDIVIAN
|
||||
;;^UTILITY(U,$J,.85,101,0)
|
||||
;;=DOGRI^^DOI
|
||||
;;^UTILITY(U,$J,.85,102,0)
|
||||
;;=DOGRIB^^DGR
|
||||
;;^UTILITY(U,$J,.85,103,0)
|
||||
;;=DUALA^^DUA
|
||||
;;^UTILITY(U,$J,.85,104,0)
|
||||
;;=DUTCH^NL^NLD^^DUT
|
||||
;;^UTILITY(U,$J,.85,104,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,104,1,1,0)
|
||||
;;=FLEMISH
|
||||
;;^UTILITY(U,$J,.85,105,0)
|
||||
;;=DYULA^^DYU
|
||||
;;^UTILITY(U,$J,.85,106,0)
|
||||
;;=DZONGKHA^DZ^DZO
|
||||
;;^UTILITY(U,$J,.85,107,0)
|
||||
;;=EFIK^^EFI
|
||||
;;^UTILITY(U,$J,.85,108,0)
|
||||
;;=EKAJUK^^EKA
|
||||
;;^UTILITY(U,$J,.85,109,0)
|
||||
;;=ELAMITE^^ELX
|
||||
;;^UTILITY(U,$J,.85,110,0)
|
||||
;;=ERZYA^^MYV
|
||||
;;^UTILITY(U,$J,.85,111,0)
|
||||
;;=ESPERANTO^EO^EPO
|
||||
;;^UTILITY(U,$J,.85,112,0)
|
||||
;;=ESTONIAN^ET^EST
|
||||
;;^UTILITY(U,$J,.85,113,0)
|
||||
;;=EWE^EE^EWE
|
||||
;;^UTILITY(U,$J,.85,114,0)
|
||||
;;=EWONDO^^EWO
|
||||
;;^UTILITY(U,$J,.85,115,0)
|
||||
;;=FANG^^FAN
|
||||
;;^UTILITY(U,$J,.85,116,0)
|
||||
;;=FANTI^^FAT
|
||||
;;^UTILITY(U,$J,.85,117,0)
|
||||
;;=FAROESE^FO^FAO
|
||||
;;^UTILITY(U,$J,.85,118,0)
|
||||
;;=FIJIAN^FJ^FIJ
|
||||
;;^UTILITY(U,$J,.85,119,0)
|
||||
;;=FILIPINO^^FIL
|
||||
;;^UTILITY(U,$J,.85,119,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,119,1,1,0)
|
||||
;;=PILIPINO
|
||||
;;^UTILITY(U,$J,.85,120,0)
|
||||
;;=FON^^FON
|
||||
;;^UTILITY(U,$J,.85,121,0)
|
||||
;;=FRISIAN, EASTERN^^FRS
|
||||
;;^UTILITY(U,$J,.85,121,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,121,1,1,0)
|
||||
;;=EASTERN FRISIAN
|
||||
;;^UTILITY(U,$J,.85,122,0)
|
||||
;;=FRISIAN, NORTHERN^^FRR
|
||||
;;^UTILITY(U,$J,.85,122,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,122,1,1,0)
|
||||
;;=NORTHERN FRISIAN
|
||||
;;^UTILITY(U,$J,.85,123,0)
|
||||
;;=FRISIAN, WEST^FY^FRY
|
||||
;;^UTILITY(U,$J,.85,123,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,123,1,1,0)
|
||||
;;=WEST FRISIAN
|
||||
;;^UTILITY(U,$J,.85,123,1,2,0)
|
||||
;;=WESTERN FRISIAN
|
||||
;;^UTILITY(U,$J,.85,124,0)
|
||||
;;=FRIULIAN^^FUR
|
||||
;;^UTILITY(U,$J,.85,125,0)
|
||||
;;=FULA^FF^FUL
|
||||
;;^UTILITY(U,$J,.85,125,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,125,1,1,0)
|
||||
;;=FULANI
|
||||
;;^UTILITY(U,$J,.85,125,1,2,0)
|
||||
;;=FULAH
|
||||
;;^UTILITY(U,$J,.85,125,1,3,0)
|
||||
;;=PULAAR
|
||||
;;^UTILITY(U,$J,.85,125,1,4,0)
|
||||
;;=PULAR
|
||||
;;^UTILITY(U,$J,.85,126,0)
|
||||
;;=GA^^GAA
|
||||
;;^UTILITY(U,$J,.85,127,0)
|
||||
;;=GAELIC^GD^GLA
|
||||
;;^UTILITY(U,$J,.85,127,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,127,1,1,0)
|
||||
;;=SCOTS GAELIC
|
||||
;;^UTILITY(U,$J,.85,127,1,2,0)
|
||||
;;=SCOTTISH GAELIC
|
||||
;;^UTILITY(U,$J,.85,128,0)
|
||||
;;=GALIBI CARIB^^CAR
|
||||
;;^UTILITY(U,$J,.85,129,0)
|
||||
;;=GALICIAN^GL^GLG
|
||||
;;^UTILITY(U,$J,.85,130,0)
|
||||
;;=GANDA^LG^LUG
|
||||
;;^UTILITY(U,$J,.85,131,0)
|
||||
;;=GAYO^^GAY
|
||||
;;^UTILITY(U,$J,.85,132,0)
|
||||
;;=GBAYA^^GBA
|
||||
;;^UTILITY(U,$J,.85,133,0)
|
||||
;;=GEEZ^^GEZ
|
||||
;;^UTILITY(U,$J,.85,134,0)
|
||||
;;=GEORGIAN^KA^KAT^^GEO
|
||||
;;^UTILITY(U,$J,.85,135,0)
|
||||
;;=GILBERTESE^^GIL
|
||||
;;^UTILITY(U,$J,.85,136,0)
|
||||
;;=GONDI^^GON
|
||||
|
|
@ -0,0 +1,588 @@
|
|||
DMLAI004 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
Q:'DIFQR(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^UTILITY(U,$J,.85,137,0)
|
||||
;;=GORONTALO^^GOR
|
||||
;;^UTILITY(U,$J,.85,138,0)
|
||||
;;=GOTHIC^^GOT
|
||||
;;^UTILITY(U,$J,.85,139,0)
|
||||
;;=GREBO^^GRB
|
||||
;;^UTILITY(U,$J,.85,140,0)
|
||||
;;=GUARANI^GN^GRN
|
||||
;;^UTILITY(U,$J,.85,141,0)
|
||||
;;=GUJARATI^GU^GUJ
|
||||
;;^UTILITY(U,$J,.85,142,0)
|
||||
;;=GWICH'IN^^GWI
|
||||
;;^UTILITY(U,$J,.85,143,0)
|
||||
;;=HAIDA^^HAI
|
||||
;;^UTILITY(U,$J,.85,144,0)
|
||||
;;=HAITIAN CREOLE^HT^HAT
|
||||
;;^UTILITY(U,$J,.85,145,0)
|
||||
;;=HAUSA^HA^HAU
|
||||
;;^UTILITY(U,$J,.85,146,0)
|
||||
;;=HAWAIIAN^^HAW
|
||||
;;^UTILITY(U,$J,.85,147,0)
|
||||
;;=HERERO^HZ^HER
|
||||
;;^UTILITY(U,$J,.85,148,0)
|
||||
;;=HILIGAYNON^^HIL
|
||||
;;^UTILITY(U,$J,.85,149,0)
|
||||
;;=HINDI^HI^HIN
|
||||
;;^UTILITY(U,$J,.85,150,0)
|
||||
;;=HIRI MOTU^HO^HMO
|
||||
;;^UTILITY(U,$J,.85,151,0)
|
||||
;;=HITTITE^^HIT
|
||||
;;^UTILITY(U,$J,.85,152,0)
|
||||
;;=HMONG^^HMN
|
||||
;;^UTILITY(U,$J,.85,152,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,152,1,1,0)
|
||||
;;=MONG
|
||||
;;^UTILITY(U,$J,.85,153,0)
|
||||
;;=HUNGARIAN^HU^HUN
|
||||
;;^UTILITY(U,$J,.85,154,0)
|
||||
;;=HUPA^^HUP
|
||||
;;^UTILITY(U,$J,.85,155,0)
|
||||
;;=IBAN^^IBA
|
||||
;;^UTILITY(U,$J,.85,156,0)
|
||||
;;=ICELANDIC^IS^ISL^^ICE
|
||||
;;^UTILITY(U,$J,.85,157,0)
|
||||
;;=IDO^IO^IDO
|
||||
;;^UTILITY(U,$J,.85,158,0)
|
||||
;;=IGBO^IG^IBO
|
||||
;;^UTILITY(U,$J,.85,159,0)
|
||||
;;=ILOKO^^ILO
|
||||
;;^UTILITY(U,$J,.85,160,0)
|
||||
;;=INARI SAMI^^SMN
|
||||
;;^UTILITY(U,$J,.85,161,0)
|
||||
;;=INDONESIAN^ID^IND
|
||||
;;^UTILITY(U,$J,.85,162,0)
|
||||
;;=INGUSH^^INH
|
||||
;;^UTILITY(U,$J,.85,163,0)
|
||||
;;=INTERLINGUA^IA^INA
|
||||
;;^UTILITY(U,$J,.85,164,0)
|
||||
;;=INTERLINGUE^IE^ILE
|
||||
;;^UTILITY(U,$J,.85,164,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,164,1,1,0)
|
||||
;;=OCCIDENTAL
|
||||
;;^UTILITY(U,$J,.85,165,0)
|
||||
;;=INUKTITUT^IU^IKU
|
||||
;;^UTILITY(U,$J,.85,166,0)
|
||||
;;=INUPIAQ^IK^IPK
|
||||
;;^UTILITY(U,$J,.85,167,0)
|
||||
;;=IRISH^GA^GLE
|
||||
;;^UTILITY(U,$J,.85,168,0)
|
||||
;;=JAPANESE^JA^JPN
|
||||
;;^UTILITY(U,$J,.85,169,0)
|
||||
;;=JAVANESE^JV^JAV
|
||||
;;^UTILITY(U,$J,.85,170,0)
|
||||
;;=JUDEO-ARABIC^^JRB
|
||||
;;^UTILITY(U,$J,.85,171,0)
|
||||
;;=JUDEO-PERSIAN^^JPR
|
||||
;;^UTILITY(U,$J,.85,172,0)
|
||||
;;=KABARDIAN^^KBD
|
||||
;;^UTILITY(U,$J,.85,173,0)
|
||||
;;=KABYLE^^KAB
|
||||
;;^UTILITY(U,$J,.85,174,0)
|
||||
;;=KACHIN^^KAC
|
||||
;;^UTILITY(U,$J,.85,174,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,174,1,1,0)
|
||||
;;=JINGPHO
|
||||
;;^UTILITY(U,$J,.85,175,0)
|
||||
;;=KALAALLISUT^KL^KAL
|
||||
;;^UTILITY(U,$J,.85,175,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,175,1,1,0)
|
||||
;;=GREENLANDIC
|
||||
;;^UTILITY(U,$J,.85,176,0)
|
||||
;;=KALMYK^^XAL
|
||||
;;^UTILITY(U,$J,.85,176,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,176,1,1,0)
|
||||
;;=OIRAT
|
||||
;;^UTILITY(U,$J,.85,177,0)
|
||||
;;=KAMBA^^KAM
|
||||
;;^UTILITY(U,$J,.85,178,0)
|
||||
;;=KANNADA^KN^KAN
|
||||
;;^UTILITY(U,$J,.85,179,0)
|
||||
;;=KANURI^KR^KAU
|
||||
;;^UTILITY(U,$J,.85,180,0)
|
||||
;;=KARA-KALPAK^^KAA
|
||||
;;^UTILITY(U,$J,.85,181,0)
|
||||
;;=KARACHAY-BALKAR^^KRC
|
||||
;;^UTILITY(U,$J,.85,182,0)
|
||||
;;=KARELIAN^^KRL
|
||||
;;^UTILITY(U,$J,.85,183,0)
|
||||
;;=KASHMIRI^KS^KAS
|
||||
;;^UTILITY(U,$J,.85,184,0)
|
||||
;;=KASHUBIAN^^CSB
|
||||
;;^UTILITY(U,$J,.85,185,0)
|
||||
;;=KAWI^^KAW
|
||||
;;^UTILITY(U,$J,.85,186,0)
|
||||
;;=KAZAKH^KK^KAZ
|
||||
;;^UTILITY(U,$J,.85,187,0)
|
||||
;;=KHASI^^KHA
|
||||
;;^UTILITY(U,$J,.85,188,0)
|
||||
;;=KHMER^KM^KHM
|
||||
;;^UTILITY(U,$J,.85,188,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,188,1,1,0)
|
||||
;;=CENTRAL KHMER
|
||||
;;^UTILITY(U,$J,.85,189,0)
|
||||
;;=KHOTANESE^^KHO
|
||||
;;^UTILITY(U,$J,.85,189,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,189,1,1,0)
|
||||
;;=SAKAN
|
||||
;;^UTILITY(U,$J,.85,190,0)
|
||||
;;=KIKUYU^KI^KIK
|
||||
;;^UTILITY(U,$J,.85,190,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,190,1,1,0)
|
||||
;;=GIKUYU
|
||||
;;^UTILITY(U,$J,.85,191,0)
|
||||
;;=KIMBUNDU^^KMB
|
||||
;;^UTILITY(U,$J,.85,192,0)
|
||||
;;=KINYARWANDA^RW^KIN
|
||||
;;^UTILITY(U,$J,.85,193,0)
|
||||
;;=KIRGHIZ^KY^KIR
|
||||
;;^UTILITY(U,$J,.85,193,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,193,1,1,0)
|
||||
;;=KYRGYZ
|
||||
;;^UTILITY(U,$J,.85,194,0)
|
||||
;;=KLINGON^^TLH
|
||||
;;^UTILITY(U,$J,.85,194,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,194,1,1,0)
|
||||
;;=TLHINGAN-HOL
|
||||
;;^UTILITY(U,$J,.85,195,0)
|
||||
;;=KOMI^KV^KOM
|
||||
;;^UTILITY(U,$J,.85,196,0)
|
||||
;;=KONGO^KG^KON
|
||||
;;^UTILITY(U,$J,.85,197,0)
|
||||
;;=KONKANI^^KOK
|
||||
;;^UTILITY(U,$J,.85,198,0)
|
||||
;;=KOREAN^KO^KOR
|
||||
;;^UTILITY(U,$J,.85,199,0)
|
||||
;;=KOSRAEAN^^KOS
|
||||
;;^UTILITY(U,$J,.85,200,0)
|
||||
;;=KPELLE^^KPE
|
||||
;;^UTILITY(U,$J,.85,201,0)
|
||||
;;=KUANYAMA^KJ^KUA
|
||||
;;^UTILITY(U,$J,.85,201,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,201,1,1,0)
|
||||
;;=KWANYAMA
|
||||
;;^UTILITY(U,$J,.85,202,0)
|
||||
;;=KUMYK^^KUM
|
||||
;;^UTILITY(U,$J,.85,203,0)
|
||||
;;=KURDISH^KU^KUR
|
||||
;;^UTILITY(U,$J,.85,204,0)
|
||||
;;=KURUKH^^KRU
|
||||
;;^UTILITY(U,$J,.85,205,0)
|
||||
;;=KUTENAI^^KUT
|
||||
;;^UTILITY(U,$J,.85,206,0)
|
||||
;;=LADINO^^LAD
|
||||
;;^UTILITY(U,$J,.85,207,0)
|
||||
;;=LAHNDA^^LAH
|
||||
;;^UTILITY(U,$J,.85,208,0)
|
||||
;;=LAMBA^^LAM
|
||||
;;^UTILITY(U,$J,.85,209,0)
|
||||
;;=LANGUAGES, AFRO-ASIATIC^^AFA
|
||||
;;^UTILITY(U,$J,.85,210,0)
|
||||
;;=LANGUAGES, ALACALUFAN^^AQA
|
||||
;;^UTILITY(U,$J,.85,211,0)
|
||||
;;=LANGUAGES, ALGIC^^AQL
|
||||
;;^UTILITY(U,$J,.85,212,0)
|
||||
;;=LANGUAGES, ALGONQUIAN^^ALG
|
||||
;;^UTILITY(U,$J,.85,213,0)
|
||||
;;=LANGUAGES, ALTAIC^^TUT
|
||||
;;^UTILITY(U,$J,.85,214,0)
|
||||
;;=LANGUAGES, APACHE^^APA
|
||||
;;^UTILITY(U,$J,.85,215,0)
|
||||
;;=LANGUAGES, ARAUAN^^AUF
|
||||
;;^UTILITY(U,$J,.85,216,0)
|
||||
;;=LANGUAGES, ARAWAKAN^^AWD
|
||||
;;^UTILITY(U,$J,.85,217,0)
|
||||
;;=LANGUAGES, ARMENIAN^^HYX
|
||||
;;^UTILITY(U,$J,.85,218,0)
|
||||
;;=LANGUAGES, ARTIFICIAL^^ART
|
||||
;;^UTILITY(U,$J,.85,219,0)
|
||||
;;=LANGUAGES, ATHAPASCAN^^ATH
|
||||
;;^UTILITY(U,$J,.85,220,0)
|
||||
;;=LANGUAGES, ATLANTIC-CONGO^^ALV
|
||||
;;^UTILITY(U,$J,.85,221,0)
|
||||
;;=LANGUAGES, AUSTRALIAN^^AUS
|
||||
;;^UTILITY(U,$J,.85,222,0)
|
||||
;;=LANGUAGES, AUSTRO-ASIATIC^^AAV
|
||||
;;^UTILITY(U,$J,.85,223,0)
|
||||
;;=LANGUAGES, AUSTRONESIAN^^MAP
|
||||
;;^UTILITY(U,$J,.85,224,0)
|
||||
;;=LANGUAGES, BALTIC^^BAT
|
||||
;;^UTILITY(U,$J,.85,225,0)
|
||||
;;=LANGUAGES, BAMILEKE^^BAI
|
||||
;;^UTILITY(U,$J,.85,226,0)
|
||||
;;=LANGUAGES, BANDA^^BAD
|
||||
;;^UTILITY(U,$J,.85,227,0)
|
||||
;;=LANGUAGES, BANTU^^BNT
|
||||
;;^UTILITY(U,$J,.85,228,0)
|
||||
;;=LANGUAGES, BASQUE^^EUQ
|
||||
;;^UTILITY(U,$J,.85,229,0)
|
||||
;;=LANGUAGES, BATAK^^BTK
|
||||
;;^UTILITY(U,$J,.85,230,0)
|
||||
;;=LANGUAGES, BERBER^^BER
|
||||
;;^UTILITY(U,$J,.85,231,0)
|
||||
;;=LANGUAGES, BIHARI^BH^BIH
|
||||
;;^UTILITY(U,$J,.85,232,0)
|
||||
;;=LANGUAGES, CADDOAN^^CDD
|
||||
;;^UTILITY(U,$J,.85,233,0)
|
||||
;;=LANGUAGES, CAUCASIAN^^CAU
|
||||
;;^UTILITY(U,$J,.85,234,0)
|
||||
;;=LANGUAGES, CELTIC^^CEL
|
||||
;;^UTILITY(U,$J,.85,235,0)
|
||||
;;=LANGUAGES, CENTRAL AMERICAN INDIAN^^CAI
|
||||
;;^UTILITY(U,$J,.85,236,0)
|
||||
;;=LANGUAGES, CENTRAL MALAYO-POLYNESIAN^^PLF
|
||||
;;^UTILITY(U,$J,.85,237,0)
|
||||
;;=LANGUAGES, CENTRAL SUDANIC^^CSU
|
||||
;;^UTILITY(U,$J,.85,238,0)
|
||||
;;=LANGUAGES, CHADIC^^CDC
|
||||
;;^UTILITY(U,$J,.85,239,0)
|
||||
;;=LANGUAGES, CHAMIC^^CMC
|
||||
;;^UTILITY(U,$J,.85,240,0)
|
||||
;;=LANGUAGES, CHIBCHAN^^CBA
|
||||
;;^UTILITY(U,$J,.85,241,0)
|
||||
;;=LANGUAGES, CHINESE^^ZHX
|
||||
;;^UTILITY(U,$J,.85,242,0)
|
||||
;;=LANGUAGES, CUSHITIC^^CUS
|
||||
;;^UTILITY(U,$J,.85,243,0)
|
||||
;;=LANGUAGES, DRAVIDIAN^^DRA
|
||||
;;^UTILITY(U,$J,.85,244,0)
|
||||
;;=LANGUAGES, EAST GERMANIC^^GME
|
||||
;;^UTILITY(U,$J,.85,245,0)
|
||||
;;=LANGUAGES, EAST SLAVIC^^ZLE
|
||||
;;^UTILITY(U,$J,.85,246,0)
|
||||
;;=LANGUAGES, EASTERN MALAYO-POLYNESIAN^^PQE
|
||||
;;^UTILITY(U,$J,.85,247,0)
|
||||
;;=LANGUAGES, EASTERN SUDANIC^^SDV
|
||||
;;^UTILITY(U,$J,.85,248,0)
|
||||
;;=LANGUAGES, EGYPTIAN^^EGX
|
||||
;;^UTILITY(U,$J,.85,249,0)
|
||||
;;=LANGUAGES, ESKIMO-ALEUT^^ESX
|
||||
;;^UTILITY(U,$J,.85,250,0)
|
||||
;;=LANGUAGES, FINNO-UGRIAN^^FIU
|
||||
;;^UTILITY(U,$J,.85,251,0)
|
||||
;;=LANGUAGES, FORMOSAN^^FOX
|
||||
;;^UTILITY(U,$J,.85,252,0)
|
||||
;;=LANGUAGES, GERMANIC^^GEM
|
||||
;;^UTILITY(U,$J,.85,253,0)
|
||||
;;=LANGUAGES, GREEK^^GRK
|
||||
;;^UTILITY(U,$J,.85,254,0)
|
||||
;;=LANGUAGES, HIMACHALI^^HIM
|
||||
;;^UTILITY(U,$J,.85,255,0)
|
||||
;;=LANGUAGES, HMONG-MIEN^^HMX
|
||||
;;^UTILITY(U,$J,.85,256,0)
|
||||
;;=LANGUAGES, HOKAN^^HOK
|
||||
;;^UTILITY(U,$J,.85,257,0)
|
||||
;;=LANGUAGES, IJO^^IJO
|
||||
;;^UTILITY(U,$J,.85,258,0)
|
||||
;;=LANGUAGES, INDIC^^INC
|
||||
;;^UTILITY(U,$J,.85,259,0)
|
||||
;;=LANGUAGES, INDO-EUROPEAN^^INE
|
||||
;;^UTILITY(U,$J,.85,260,0)
|
||||
;;=LANGUAGES, INDO-IRANIAN^^IIR
|
||||
;;^UTILITY(U,$J,.85,261,0)
|
||||
;;=LANGUAGES, IRANIAN^^IRA
|
||||
;;^UTILITY(U,$J,.85,262,0)
|
||||
;;=LANGUAGES, IROQUOIAN^^IRO
|
||||
;;^UTILITY(U,$J,.85,263,0)
|
||||
;;=LANGUAGES, ITALIC^^ITC
|
||||
;;^UTILITY(U,$J,.85,264,0)
|
||||
;;=LANGUAGES, JAPANESE^^JPX
|
||||
;;^UTILITY(U,$J,.85,265,0)
|
||||
;;=LANGUAGES, KAREN^^KAR
|
||||
;;^UTILITY(U,$J,.85,266,0)
|
||||
;;=LANGUAGES, KHOISAN^^KHI
|
||||
;;^UTILITY(U,$J,.85,267,0)
|
||||
;;=LANGUAGES, KORDOFANIAN^^KDO
|
||||
;;^UTILITY(U,$J,.85,268,0)
|
||||
;;=LANGUAGES, KRU^^KRO
|
||||
;;^UTILITY(U,$J,.85,269,0)
|
||||
;;=LANGUAGES, LAND DAYAK^^DAY
|
||||
;;^UTILITY(U,$J,.85,270,0)
|
||||
;;=LANGUAGES, MALAYO-POLYNESIAN^^POZ
|
||||
;;^UTILITY(U,$J,.85,271,0)
|
||||
;;=LANGUAGES, MANDE^^DMN
|
||||
;;^UTILITY(U,$J,.85,272,0)
|
||||
;;=LANGUAGES, MANOBO^^MNO
|
||||
;;^UTILITY(U,$J,.85,273,0)
|
||||
;;=LANGUAGES, MAYAN^^MYN
|
||||
;;^UTILITY(U,$J,.85,274,0)
|
||||
;;=LANGUAGES, MON-KHMER^^MKH
|
||||
;;^UTILITY(U,$J,.85,275,0)
|
||||
;;=LANGUAGES, MONGOLIAN^^XGN
|
||||
;;^UTILITY(U,$J,.85,276,0)
|
||||
;;=LANGUAGES, MULTIPLE^^MUL
|
||||
;;^UTILITY(U,$J,.85,277,0)
|
||||
;;=LANGUAGES, MUNDA^^MUN
|
||||
;;^UTILITY(U,$J,.85,278,0)
|
||||
;;=LANGUAGES, NA-DENE^^XND
|
||||
;;^UTILITY(U,$J,.85,279,0)
|
||||
;;=LANGUAGES, NAHUATL^^NAH
|
||||
;;^UTILITY(U,$J,.85,280,0)
|
||||
;;=LANGUAGES, NIGER-KORDOFANIAN^^NIC
|
||||
;;^UTILITY(U,$J,.85,281,0)
|
||||
;;=LANGUAGES, NILO-SAHARAN^^SSA
|
||||
;;^UTILITY(U,$J,.85,282,0)
|
||||
;;=LANGUAGES, NORTH AMERICAN INDIAN^^NAI
|
||||
;;^UTILITY(U,$J,.85,283,0)
|
||||
;;=LANGUAGES, NORTH CAUCASIAN^^CCN
|
||||
;;^UTILITY(U,$J,.85,284,0)
|
||||
;;=LANGUAGES, NORTH GERMANIC^^GMQ
|
||||
;;^UTILITY(U,$J,.85,285,0)
|
||||
;;=LANGUAGES, NUBIAN^^NUB
|
||||
;;^UTILITY(U,$J,.85,286,0)
|
||||
;;=LANGUAGES, OMOTIC^^OMV
|
||||
;;^UTILITY(U,$J,.85,287,0)
|
||||
;;=LANGUAGES, OTO-MANGUEAN^^OMQ
|
||||
;;^UTILITY(U,$J,.85,288,0)
|
||||
;;=LANGUAGES, OTOMIAN^^OTO
|
||||
;;^UTILITY(U,$J,.85,289,0)
|
||||
;;=LANGUAGES, PAPUAN^^PAA
|
||||
;;^UTILITY(U,$J,.85,290,0)
|
||||
;;=LANGUAGES, PHILIPPINE^^PHI
|
||||
;;^UTILITY(U,$J,.85,291,0)
|
||||
;;=LANGUAGES, PRAKRIT^^PRA
|
||||
;;^UTILITY(U,$J,.85,292,0)
|
||||
;;=LANGUAGES, QUECHUAN^^QWE
|
||||
;;^UTILITY(U,$J,.85,293,0)
|
||||
;;=LANGUAGES, ROMANCE^^ROA
|
||||
;;^UTILITY(U,$J,.85,294,0)
|
||||
;;=LANGUAGES, SALISHAN^^SAL
|
||||
;;^UTILITY(U,$J,.85,295,0)
|
||||
;;=LANGUAGES, SAMI^^SMI
|
||||
;;^UTILITY(U,$J,.85,296,0)
|
||||
;;=LANGUAGES, SAMOYEDIC^^SYD
|
||||
;;^UTILITY(U,$J,.85,297,0)
|
||||
;;=LANGUAGES, SEMITIC^^SEM
|
||||
;;^UTILITY(U,$J,.85,298,0)
|
||||
;;=LANGUAGES, SIGN^^SGN
|
||||
;;^UTILITY(U,$J,.85,298,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,298,1,1,0)
|
||||
;;=SIGN LANGUAGES
|
||||
;;^UTILITY(U,$J,.85,299,0)
|
||||
;;=LANGUAGES, SINO-TIBETAN^^SIT
|
||||
;;^UTILITY(U,$J,.85,300,0)
|
||||
;;=LANGUAGES, SIOUAN^^SIO
|
||||
;;^UTILITY(U,$J,.85,301,0)
|
||||
;;=LANGUAGES, SLAVIC^^SLA
|
||||
;;^UTILITY(U,$J,.85,302,0)
|
||||
;;=LANGUAGES, SONGHAI^^SON
|
||||
;;^UTILITY(U,$J,.85,303,0)
|
||||
;;=LANGUAGES, SORBIAN^^WEN
|
||||
;;^UTILITY(U,$J,.85,304,0)
|
||||
;;=LANGUAGES, SOUTH AMERICAN INDIAN^^SAI
|
||||
;;^UTILITY(U,$J,.85,305,0)
|
||||
;;=LANGUAGES, SOUTH CAUCASIAN^^CCS
|
||||
;;^UTILITY(U,$J,.85,306,0)
|
||||
;;=LANGUAGES, SOUTH SLAVIC^^ZLS
|
||||
;;^UTILITY(U,$J,.85,307,0)
|
||||
;;=LANGUAGES, TAI^^TAI
|
||||
;;^UTILITY(U,$J,.85,308,0)
|
||||
;;=LANGUAGES, TIBETO-BURMAN^^TBQ
|
||||
;;^UTILITY(U,$J,.85,309,0)
|
||||
;;=LANGUAGES, TRANS-NEW GUINEA^^NGF
|
||||
;;^UTILITY(U,$J,.85,310,0)
|
||||
;;=LANGUAGES, TUNGUS^^TUW
|
||||
;;^UTILITY(U,$J,.85,311,0)
|
||||
;;=LANGUAGES, TUPI^^TUP
|
||||
;;^UTILITY(U,$J,.85,312,0)
|
||||
;;=LANGUAGES, TURKIC^^TRK
|
||||
;;^UTILITY(U,$J,.85,313,0)
|
||||
;;=LANGUAGES, UNCODED^^MIS
|
||||
;;^UTILITY(U,$J,.85,314,0)
|
||||
;;=LANGUAGES, URALIC^^URJ
|
||||
;;^UTILITY(U,$J,.85,315,0)
|
||||
;;=LANGUAGES, UTO-AZTECAN^^AZC
|
||||
;;^UTILITY(U,$J,.85,316,0)
|
||||
;;=LANGUAGES, WAKASHAN^^WAK
|
||||
;;^UTILITY(U,$J,.85,317,0)
|
||||
;;=LANGUAGES, WEST GERMANIC^^GMW
|
||||
;;^UTILITY(U,$J,.85,318,0)
|
||||
;;=LANGUAGES, WEST SLAVIC^^ZLW
|
||||
;;^UTILITY(U,$J,.85,319,0)
|
||||
;;=LANGUAGES, WESTERN MALAYO-POLYNESIAN^^PQW
|
||||
;;^UTILITY(U,$J,.85,320,0)
|
||||
;;=LANGUAGES, YUPIK^^YPK
|
||||
;;^UTILITY(U,$J,.85,321,0)
|
||||
;;=LANGUAGES, ZANDE^^ZND
|
||||
;;^UTILITY(U,$J,.85,322,0)
|
||||
;;=LAO^LO^LAO
|
||||
;;^UTILITY(U,$J,.85,323,0)
|
||||
;;=LATIN^LA^LAT
|
||||
;;^UTILITY(U,$J,.85,324,0)
|
||||
;;=LATVIAN^LV^LAV
|
||||
;;^UTILITY(U,$J,.85,325,0)
|
||||
;;=LEZGHIAN^^LEZ
|
||||
;;^UTILITY(U,$J,.85,326,0)
|
||||
;;=LIMBURGAN^LI^LIM
|
||||
;;^UTILITY(U,$J,.85,326,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,326,1,1,0)
|
||||
;;=LIMBURGISH
|
||||
;;^UTILITY(U,$J,.85,326,1,2,0)
|
||||
;;=LIMBURGER
|
||||
;;^UTILITY(U,$J,.85,327,0)
|
||||
;;=LINGALA^LN^LIN
|
||||
;;^UTILITY(U,$J,.85,328,0)
|
||||
;;=LITHUANIAN^LT^LIT
|
||||
;;^UTILITY(U,$J,.85,329,0)
|
||||
;;=LOJBAN^^JBO
|
||||
;;^UTILITY(U,$J,.85,330,0)
|
||||
;;=LOW GERMAN^^NDS
|
||||
;;^UTILITY(U,$J,.85,330,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,330,1,1,0)
|
||||
;;=LOW SAXON
|
||||
;;^UTILITY(U,$J,.85,330,1,2,0)
|
||||
;;=GERMAN, LOW
|
||||
;;^UTILITY(U,$J,.85,330,1,3,0)
|
||||
;;=SAXON, LOW
|
||||
;;^UTILITY(U,$J,.85,331,0)
|
||||
;;=LOZI^^LOZ
|
||||
;;^UTILITY(U,$J,.85,332,0)
|
||||
;;=LUBA-KATANGA^LU^LUB
|
||||
;;^UTILITY(U,$J,.85,333,0)
|
||||
;;=LUBA-LULUA^^LUA
|
||||
;;^UTILITY(U,$J,.85,334,0)
|
||||
;;=LUISENO^^LUI
|
||||
;;^UTILITY(U,$J,.85,335,0)
|
||||
;;=LUNDA^^LUN
|
||||
;;^UTILITY(U,$J,.85,336,0)
|
||||
;;=LUO (KENYA AND TANZANIYA)^^LUO
|
||||
;;^UTILITY(U,$J,.85,337,0)
|
||||
;;=LUSHAI^^LUS
|
||||
;;^UTILITY(U,$J,.85,338,0)
|
||||
;;=LUXEMBOURGISH^LB^LTZ
|
||||
;;^UTILITY(U,$J,.85,338,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,338,1,1,0)
|
||||
;;=LETZEBURGESCH
|
||||
;;^UTILITY(U,$J,.85,339,0)
|
||||
;;=MACEDONIAN^MK^MKD^^MAC
|
||||
;;^UTILITY(U,$J,.85,340,0)
|
||||
;;=MADURESE^^MAD
|
||||
;;^UTILITY(U,$J,.85,341,0)
|
||||
;;=MAGAHI^^MAG
|
||||
;;^UTILITY(U,$J,.85,342,0)
|
||||
;;=MAITHILI^^MAI
|
||||
;;^UTILITY(U,$J,.85,343,0)
|
||||
;;=MAKASAR^^MAK
|
||||
;;^UTILITY(U,$J,.85,344,0)
|
||||
;;=MALAGASY^MG^MLG
|
||||
;;^UTILITY(U,$J,.85,345,0)
|
||||
;;=MALAY^MS^MSA^^MAY
|
||||
;;^UTILITY(U,$J,.85,346,0)
|
||||
;;=MALAYALAM^ML^MAL
|
||||
;;^UTILITY(U,$J,.85,347,0)
|
||||
;;=MALTESE^MT^MLT
|
||||
;;^UTILITY(U,$J,.85,348,0)
|
||||
;;=MANCHU^^MNC
|
||||
;;^UTILITY(U,$J,.85,349,0)
|
||||
;;=MANDAR^^MDR
|
||||
;;^UTILITY(U,$J,.85,350,0)
|
||||
;;=MANDINGO^^MAN
|
||||
;;^UTILITY(U,$J,.85,351,0)
|
||||
;;=MANIPURI^^MNI
|
||||
;;^UTILITY(U,$J,.85,352,0)
|
||||
;;=MANX^GV^GLV
|
||||
;;^UTILITY(U,$J,.85,353,0)
|
||||
;;=MAORI^MI^MRI^^MAO
|
||||
;;^UTILITY(U,$J,.85,354,0)
|
||||
;;=MAPUDUNGUN^^ARN
|
||||
;;^UTILITY(U,$J,.85,354,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,354,1,1,0)
|
||||
;;=MAPUCHE
|
||||
;;^UTILITY(U,$J,.85,355,0)
|
||||
;;=MARATHI^MR^MAR
|
||||
;;^UTILITY(U,$J,.85,356,0)
|
||||
;;=MARI^^CHM
|
||||
;;^UTILITY(U,$J,.85,357,0)
|
||||
;;=MARSHALLESE^MH^MAH
|
||||
;;^UTILITY(U,$J,.85,358,0)
|
||||
;;=MARWARI^^MWR
|
||||
;;^UTILITY(U,$J,.85,359,0)
|
||||
;;=MASAI^^MAS
|
||||
;;^UTILITY(U,$J,.85,360,0)
|
||||
;;=MENDE^^MEN
|
||||
;;^UTILITY(U,$J,.85,361,0)
|
||||
;;=MI'KMAQ^^MIC
|
||||
;;^UTILITY(U,$J,.85,361,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,361,1,1,0)
|
||||
;;=MICMAC
|
||||
;;^UTILITY(U,$J,.85,362,0)
|
||||
;;=MIDDLE DUTCH^^DUM
|
||||
;;^UTILITY(U,$J,.85,362,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,362,1,1,0)
|
||||
;;=DUTCH, MIDDLE (CA.1050-1350)
|
||||
;;^UTILITY(U,$J,.85,363,0)
|
||||
;;=MIDDLE ENGLISH^^ENM
|
||||
;;^UTILITY(U,$J,.85,363,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,363,1,1,0)
|
||||
;;=MIDDLE ENGLISH (1100-1500)
|
||||
;;^UTILITY(U,$J,.85,363,1,2,0)
|
||||
;;=ENGLISH, MIDDLE (1100-1500)
|
||||
;;^UTILITY(U,$J,.85,364,0)
|
||||
;;=MIDDLE FRENCH^^FRM
|
||||
;;^UTILITY(U,$J,.85,364,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,364,1,1,0)
|
||||
;;=MIDDLE FRENCH (CA. 1400-1600)
|
||||
;;^UTILITY(U,$J,.85,364,1,2,0)
|
||||
;;=FRENCH, MIDDLE (CA. 1400-1600)
|
||||
;;^UTILITY(U,$J,.85,365,0)
|
||||
;;=MIDDLE HIGH GERMAN^^GMH
|
||||
;;^UTILITY(U,$J,.85,365,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,365,1,1,0)
|
||||
;;=MIDDLE HIGH GERMAN (CA. 1050-1500)
|
||||
;;^UTILITY(U,$J,.85,365,1,2,0)
|
||||
;;=GERMAN, MIDDLE HIGH (CA. 1050-1500)
|
||||
;;^UTILITY(U,$J,.85,366,0)
|
||||
;;=MIDDLE IRISH^^MGA
|
||||
;;^UTILITY(U,$J,.85,366,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,366,1,1,0)
|
||||
;;=MIDDLE IRISH (900-1200)
|
||||
;;^UTILITY(U,$J,.85,366,1,2,0)
|
||||
;;=IRISH, MIDDLE (900-1200)
|
||||
;;^UTILITY(U,$J,.85,367,0)
|
||||
;;=MINANGKABAU^^MIN
|
||||
;;^UTILITY(U,$J,.85,368,0)
|
||||
;;=MIRANDESE^^MWL
|
||||
;;^UTILITY(U,$J,.85,369,0)
|
||||
;;=MOHAWK^^MOH
|
||||
;;^UTILITY(U,$J,.85,370,0)
|
||||
;;=MOKSHA^^MDF
|
||||
;;^UTILITY(U,$J,.85,371,0)
|
||||
;;=MONGO^^LOL
|
||||
;;^UTILITY(U,$J,.85,372,0)
|
||||
;;=MONGOLIAN^MN^MON
|
||||
;;^UTILITY(U,$J,.85,373,0)
|
||||
;;=MOSSI^^MOS
|
||||
;;^UTILITY(U,$J,.85,374,0)
|
||||
;;=N'KO^^NQO
|
||||
;;^UTILITY(U,$J,.85,375,0)
|
||||
;;=NAURU^NA^NAU
|
||||
;;^UTILITY(U,$J,.85,376,0)
|
||||
;;=NAVAJO^NV^NAV
|
||||
;;^UTILITY(U,$J,.85,376,1,0)
|
||||
;;=^.8501^1^1
|
||||
|
|
@ -0,0 +1,558 @@
|
|||
DMLAI005 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
Q:'DIFQR(.85) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^UTILITY(U,$J,.85,376,1,1,0)
|
||||
;;=NAVAHO
|
||||
;;^UTILITY(U,$J,.85,377,0)
|
||||
;;=NDEBELE, NORTH^ND^NDE
|
||||
;;^UTILITY(U,$J,.85,377,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,377,1,1,0)
|
||||
;;=NORTH NDEBELE
|
||||
;;^UTILITY(U,$J,.85,378,0)
|
||||
;;=NDEBELE, SOUTH^NR^NBL
|
||||
;;^UTILITY(U,$J,.85,378,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,378,1,1,0)
|
||||
;;=SOUTH NDEBELE
|
||||
;;^UTILITY(U,$J,.85,379,0)
|
||||
;;=NDONGA^NG^NDO
|
||||
;;^UTILITY(U,$J,.85,380,0)
|
||||
;;=NEAPOLITAN^^NAP
|
||||
;;^UTILITY(U,$J,.85,381,0)
|
||||
;;=NEPAL BHASA^^NEW
|
||||
;;^UTILITY(U,$J,.85,381,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,381,1,1,0)
|
||||
;;=NEWARI
|
||||
;;^UTILITY(U,$J,.85,382,0)
|
||||
;;=NEPALI^NE^NEP
|
||||
;;^UTILITY(U,$J,.85,383,0)
|
||||
;;=NIAS^^NIA
|
||||
;;^UTILITY(U,$J,.85,384,0)
|
||||
;;=NIUEAN^^NIU
|
||||
;;^UTILITY(U,$J,.85,385,0)
|
||||
;;=NO LINGUISTIC CONTENT^^ZXX
|
||||
;;^UTILITY(U,$J,.85,385,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,385,1,1,0)
|
||||
;;=NOT APPLICABLE
|
||||
;;^UTILITY(U,$J,.85,386,0)
|
||||
;;=NOGAI^^NOG
|
||||
;;^UTILITY(U,$J,.85,387,0)
|
||||
;;=NORWEGIAN^NO^NOR
|
||||
;;^UTILITY(U,$J,.85,388,0)
|
||||
;;=NORWEGIAN BOKMAL^NB^NOB
|
||||
;;^UTILITY(U,$J,.85,388,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,388,1,1,0)
|
||||
;;=BOKMAL, NORWEGIAN
|
||||
;;^UTILITY(U,$J,.85,389,0)
|
||||
;;=NORWEGIAN NYNORSK^NN^NNO
|
||||
;;^UTILITY(U,$J,.85,389,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,389,1,1,0)
|
||||
;;=NYNORSK, NORWEGIAN
|
||||
;;^UTILITY(U,$J,.85,390,0)
|
||||
;;=NUOSU^II^III
|
||||
;;^UTILITY(U,$J,.85,390,1,0)
|
||||
;;=^.8501^5^5
|
||||
;;^UTILITY(U,$J,.85,390,1,1,0)
|
||||
;;=BLACK YI
|
||||
;;^UTILITY(U,$J,.85,390,1,2,0)
|
||||
;;=LIANGSHAN YI
|
||||
;;^UTILITY(U,$J,.85,390,1,3,0)
|
||||
;;=NORTHERN YI
|
||||
;;^UTILITY(U,$J,.85,390,1,4,0)
|
||||
;;=NOSU YI
|
||||
;;^UTILITY(U,$J,.85,390,1,5,0)
|
||||
;;=SICHUAN YI
|
||||
;;^UTILITY(U,$J,.85,391,0)
|
||||
;;=NYAMWEZI^^NYM
|
||||
;;^UTILITY(U,$J,.85,392,0)
|
||||
;;=NYANKOLE^^NYN
|
||||
;;^UTILITY(U,$J,.85,393,0)
|
||||
;;=NYORO^^NYO
|
||||
;;^UTILITY(U,$J,.85,394,0)
|
||||
;;=NZIMA^^NZI
|
||||
;;^UTILITY(U,$J,.85,395,0)
|
||||
;;=OCCITAN^OC^OCI
|
||||
;;^UTILITY(U,$J,.85,395,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,395,1,1,0)
|
||||
;;=OCCITAN (POST 1500)
|
||||
;;^UTILITY(U,$J,.85,396,0)
|
||||
;;=OFFICIAL ARAMAIC^^ARC
|
||||
;;^UTILITY(U,$J,.85,396,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,396,1,1,0)
|
||||
;;=OFFICIAL ARAMAIC (700-300 BCE)
|
||||
;;^UTILITY(U,$J,.85,396,1,2,0)
|
||||
;;=ARAMAIC, OFFICIAL (700-300 BCE)
|
||||
;;^UTILITY(U,$J,.85,397,0)
|
||||
;;=OJIBWE^OJ^OJI
|
||||
;;^UTILITY(U,$J,.85,397,1,0)
|
||||
;;=^.8501^4^4
|
||||
;;^UTILITY(U,$J,.85,397,1,1,0)
|
||||
;;=OJIBWA
|
||||
;;^UTILITY(U,$J,.85,397,1,2,0)
|
||||
;;=OJIBWAY
|
||||
;;^UTILITY(U,$J,.85,397,1,3,0)
|
||||
;;=CHIPPEWA
|
||||
;;^UTILITY(U,$J,.85,397,1,4,0)
|
||||
;;=ANISHINAABEMOWIN
|
||||
;;^UTILITY(U,$J,.85,398,0)
|
||||
;;=OLD ENGLISH^^ANG
|
||||
;;^UTILITY(U,$J,.85,398,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,398,1,1,0)
|
||||
;;=OLD ENGLISH (CA. 450-1100)
|
||||
;;^UTILITY(U,$J,.85,398,1,2,0)
|
||||
;;=ENGLISH, OLD (CA. 450-1100)
|
||||
;;^UTILITY(U,$J,.85,399,0)
|
||||
;;=OLD FRENCH^^FRO
|
||||
;;^UTILITY(U,$J,.85,399,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,399,1,1,0)
|
||||
;;=OLD FRENCH (842-CA. 1400)
|
||||
;;^UTILITY(U,$J,.85,399,1,2,0)
|
||||
;;=FRENCH, OLD (842-CA. 1400)
|
||||
;;^UTILITY(U,$J,.85,400,0)
|
||||
;;=OLD HIGH GERMAN^^GOH
|
||||
;;^UTILITY(U,$J,.85,400,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,400,1,1,0)
|
||||
;;=OLD HIGH GERMAN (CA. 750-1050)
|
||||
;;^UTILITY(U,$J,.85,400,1,2,0)
|
||||
;;=GERMAN, OLD HIGH (CA. 750-1050)
|
||||
;;^UTILITY(U,$J,.85,401,0)
|
||||
;;=OLD IRISH^^SGA
|
||||
;;^UTILITY(U,$J,.85,401,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,401,1,1,0)
|
||||
;;=OLD IRISH (TO 900)
|
||||
;;^UTILITY(U,$J,.85,401,1,2,0)
|
||||
;;=IRISH, OLD (TO 900)
|
||||
;;^UTILITY(U,$J,.85,402,0)
|
||||
;;=OLD NORSE^^NON
|
||||
;;^UTILITY(U,$J,.85,402,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,402,1,1,0)
|
||||
;;=NORSE, OLD
|
||||
;;^UTILITY(U,$J,.85,403,0)
|
||||
;;=OLD PERSIAN^^PEO^^PEO
|
||||
;;^UTILITY(U,$J,.85,403,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,403,1,1,0)
|
||||
;;=OLD PERSIAN (CA. 600-400 B.C.)
|
||||
;;^UTILITY(U,$J,.85,403,1,2,0)
|
||||
;;=PERSIAN, OLD (CA. 600-400 B.C.)
|
||||
;;^UTILITY(U,$J,.85,404,0)
|
||||
;;=OLD PROVENCAL^^PRO^^PRO
|
||||
;;^UTILITY(U,$J,.85,404,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,404,1,1,0)
|
||||
;;=OLD PROVENCAL (TO 1500)
|
||||
;;^UTILITY(U,$J,.85,404,1,2,0)
|
||||
;;=PROVENCAL, OLD (TO 1500)
|
||||
;;^UTILITY(U,$J,.85,405,0)
|
||||
;;=ORIYA^OR^ORI
|
||||
;;^UTILITY(U,$J,.85,406,0)
|
||||
;;=OROMO^OM^ORM
|
||||
;;^UTILITY(U,$J,.85,407,0)
|
||||
;;=OSAGE^^OSA
|
||||
;;^UTILITY(U,$J,.85,408,0)
|
||||
;;=OSSETIAN^OS^OSS
|
||||
;;^UTILITY(U,$J,.85,408,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,408,1,1,0)
|
||||
;;=OSSETIC
|
||||
;;^UTILITY(U,$J,.85,409,0)
|
||||
;;=OTTOMAN TURKISH^^OTA^^OTA
|
||||
;;^UTILITY(U,$J,.85,409,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,409,1,1,0)
|
||||
;;=OTTOMAN TURKISH (1500-1928)
|
||||
;;^UTILITY(U,$J,.85,409,1,2,0)
|
||||
;;=TURKISH, OTTOMAN (1500-1928)
|
||||
;;^UTILITY(U,$J,.85,410,0)
|
||||
;;=PAHLAVI^^PAL
|
||||
;;^UTILITY(U,$J,.85,411,0)
|
||||
;;=PALAUAN^^PAU
|
||||
;;^UTILITY(U,$J,.85,412,0)
|
||||
;;=PALI^PI^PLI
|
||||
;;^UTILITY(U,$J,.85,413,0)
|
||||
;;=PAMPANGA^^PAM
|
||||
;;^UTILITY(U,$J,.85,413,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,413,1,1,0)
|
||||
;;=KAPAMPANGAN
|
||||
;;^UTILITY(U,$J,.85,414,0)
|
||||
;;=PANGASINAN^^PAG
|
||||
;;^UTILITY(U,$J,.85,415,0)
|
||||
;;=PAPIAMENTO^^PAP
|
||||
;;^UTILITY(U,$J,.85,416,0)
|
||||
;;=PASHTO^PS^PUS
|
||||
;;^UTILITY(U,$J,.85,416,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,416,1,1,0)
|
||||
;;=PUSHTO
|
||||
;;^UTILITY(U,$J,.85,417,0)
|
||||
;;=PEDI^^NSO
|
||||
;;^UTILITY(U,$J,.85,417,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,417,1,1,0)
|
||||
;;=SEPEDI
|
||||
;;^UTILITY(U,$J,.85,417,1,2,0)
|
||||
;;=NORTHERN SOTHO
|
||||
;;^UTILITY(U,$J,.85,417,1,3,0)
|
||||
;;=SOTHO, NORTHERN
|
||||
;;^UTILITY(U,$J,.85,418,0)
|
||||
;;=PERSIAN^FA^FAS^^PER
|
||||
;;^UTILITY(U,$J,.85,418,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,418,1,1,0)
|
||||
;;=FARSI
|
||||
;;^UTILITY(U,$J,.85,419,0)
|
||||
;;=PHOENICIAN^^PHN
|
||||
;;^UTILITY(U,$J,.85,420,0)
|
||||
;;=POHNPEIAN^^PON
|
||||
;;^UTILITY(U,$J,.85,421,0)
|
||||
;;=POLISH^PL^POL
|
||||
;;^UTILITY(U,$J,.85,422,0)
|
||||
;;=PUNJABI^PA^PAN
|
||||
;;^UTILITY(U,$J,.85,422,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,422,1,1,0)
|
||||
;;=PANJABI
|
||||
;;^UTILITY(U,$J,.85,423,0)
|
||||
;;=QUECHUA^QU^QUE
|
||||
;;^UTILITY(U,$J,.85,424,0)
|
||||
;;=RAJASTHANI^^RAJ
|
||||
;;^UTILITY(U,$J,.85,425,0)
|
||||
;;=RAPANUI^^RAP
|
||||
;;^UTILITY(U,$J,.85,426,0)
|
||||
;;=RAROTONGAN^^RAR
|
||||
;;^UTILITY(U,$J,.85,426,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,426,1,1,0)
|
||||
;;=COOK ISLANDS MAORI
|
||||
;;^UTILITY(U,$J,.85,428,0)
|
||||
;;=ROMANIAN^RO^RON^^RUM
|
||||
;;^UTILITY(U,$J,.85,428,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,428,1,1,0)
|
||||
;;=MOLDAVIAN
|
||||
;;^UTILITY(U,$J,.85,428,1,2,0)
|
||||
;;=MOLDOVAN
|
||||
;;^UTILITY(U,$J,.85,429,0)
|
||||
;;=ROMANSH^RM^ROH
|
||||
;;^UTILITY(U,$J,.85,430,0)
|
||||
;;=ROMANY^^ROM
|
||||
;;^UTILITY(U,$J,.85,431,0)
|
||||
;;=RUNDI^RN^RUN
|
||||
;;^UTILITY(U,$J,.85,431,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,431,1,1,0)
|
||||
;;=KIRUNDI
|
||||
;;^UTILITY(U,$J,.85,432,0)
|
||||
;;=SAMARITAN ARAMAIC^^SAM
|
||||
;;^UTILITY(U,$J,.85,433,0)
|
||||
;;=SAMI, LULE^^SMJ
|
||||
;;^UTILITY(U,$J,.85,433,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,433,1,1,0)
|
||||
;;=LULE SAMI
|
||||
;;^UTILITY(U,$J,.85,434,0)
|
||||
;;=SAMI, NORTHERN^SE^SME
|
||||
;;^UTILITY(U,$J,.85,434,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,434,1,1,0)
|
||||
;;=NORTHERN SAMI
|
||||
;;^UTILITY(U,$J,.85,435,0)
|
||||
;;=SAMI, SKOLT^^SMS
|
||||
;;^UTILITY(U,$J,.85,435,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,435,1,1,0)
|
||||
;;=SKOLT SAMI
|
||||
;;^UTILITY(U,$J,.85,436,0)
|
||||
;;=SAMI, SOUTHERN^^SMA
|
||||
;;^UTILITY(U,$J,.85,436,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,436,1,1,0)
|
||||
;;=SOUTHERN SAMI
|
||||
;;^UTILITY(U,$J,.85,437,0)
|
||||
;;=SAMOAN^SM^SMO
|
||||
;;^UTILITY(U,$J,.85,438,0)
|
||||
;;=SANDAWE^^SAD
|
||||
;;^UTILITY(U,$J,.85,439,0)
|
||||
;;=SANGO^SG^SAG
|
||||
;;^UTILITY(U,$J,.85,440,0)
|
||||
;;=SANSKRIT^SA^SAN
|
||||
;;^UTILITY(U,$J,.85,441,0)
|
||||
;;=SANTALI^^SAT
|
||||
;;^UTILITY(U,$J,.85,442,0)
|
||||
;;=SARDINIAN^SC^SRD
|
||||
;;^UTILITY(U,$J,.85,443,0)
|
||||
;;=SASAK^^SAS
|
||||
;;^UTILITY(U,$J,.85,444,0)
|
||||
;;=SCOTS^^SCO
|
||||
;;^UTILITY(U,$J,.85,445,0)
|
||||
;;=SELKUP^^SEL
|
||||
;;^UTILITY(U,$J,.85,446,0)
|
||||
;;=SERBIAN^SR^SRP
|
||||
;;^UTILITY(U,$J,.85,447,0)
|
||||
;;=SERER^^SRR
|
||||
;;^UTILITY(U,$J,.85,448,0)
|
||||
;;=SHAN^^SHN
|
||||
;;^UTILITY(U,$J,.85,449,0)
|
||||
;;=SHONA^SN^SNA
|
||||
;;^UTILITY(U,$J,.85,450,0)
|
||||
;;=SICILIAN^^SCN
|
||||
;;^UTILITY(U,$J,.85,451,0)
|
||||
;;=SIDAMO^^SID
|
||||
;;^UTILITY(U,$J,.85,452,0)
|
||||
;;=SIKSIKA^^BLA
|
||||
;;^UTILITY(U,$J,.85,453,0)
|
||||
;;=SINDHI^SD^SND
|
||||
;;^UTILITY(U,$J,.85,454,0)
|
||||
;;=SINHALA^SI^SIN
|
||||
;;^UTILITY(U,$J,.85,454,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,454,1,1,0)
|
||||
;;=SINHALESE
|
||||
;;^UTILITY(U,$J,.85,455,0)
|
||||
;;=SLAVE (ATHAPASKAN)^^DEN
|
||||
;;^UTILITY(U,$J,.85,455,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,455,1,1,0)
|
||||
;;=SLAVEY
|
||||
;;^UTILITY(U,$J,.85,456,0)
|
||||
;;=SLAVONIC, CHURCH^CU^CHU
|
||||
;;^UTILITY(U,$J,.85,456,1,0)
|
||||
;;=^.8501^5^5
|
||||
;;^UTILITY(U,$J,.85,456,1,1,0)
|
||||
;;=CHURCH SLAVONIC
|
||||
;;^UTILITY(U,$J,.85,456,1,2,0)
|
||||
;;=CHURCH SLAVIC
|
||||
;;^UTILITY(U,$J,.85,456,1,3,0)
|
||||
;;=OLD CHURCH SLAVONIC
|
||||
;;^UTILITY(U,$J,.85,456,1,4,0)
|
||||
;;=OLD BULGARIAN
|
||||
;;^UTILITY(U,$J,.85,456,1,5,0)
|
||||
;;=OLD SLAVONIC
|
||||
;;^UTILITY(U,$J,.85,457,0)
|
||||
;;=SLOVAK^SK^SLK^^SLO
|
||||
;;^UTILITY(U,$J,.85,458,0)
|
||||
;;=SLOVENIAN^SL^SLV
|
||||
;;^UTILITY(U,$J,.85,458,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,458,1,1,0)
|
||||
;;=SLOVENE
|
||||
;;^UTILITY(U,$J,.85,459,0)
|
||||
;;=SOGDIAN^^SOG
|
||||
;;^UTILITY(U,$J,.85,460,0)
|
||||
;;=SOMALI^SO^SOM
|
||||
;;^UTILITY(U,$J,.85,461,0)
|
||||
;;=SONINKE^^SNK
|
||||
;;^UTILITY(U,$J,.85,462,0)
|
||||
;;=SORBIAN, LOWER^^DSB
|
||||
;;^UTILITY(U,$J,.85,462,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,462,1,1,0)
|
||||
;;=LOWER SORBIAN
|
||||
;;^UTILITY(U,$J,.85,463,0)
|
||||
;;=SORBIAN, UPPER^^HSB
|
||||
;;^UTILITY(U,$J,.85,463,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,463,1,1,0)
|
||||
;;=UPPER SORBIAN
|
||||
;;^UTILITY(U,$J,.85,464,0)
|
||||
;;=SOTHO, SOUTHERN^ST^SOT
|
||||
;;^UTILITY(U,$J,.85,464,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,464,1,1,0)
|
||||
;;=SOUTHERN SOTHO
|
||||
;;^UTILITY(U,$J,.85,465,0)
|
||||
;;=SRANAN TONGO^^SRN
|
||||
;;^UTILITY(U,$J,.85,466,0)
|
||||
;;=SUKUMA^^SUK
|
||||
;;^UTILITY(U,$J,.85,467,0)
|
||||
;;=SUMERIAN^^SUX
|
||||
;;^UTILITY(U,$J,.85,468,0)
|
||||
;;=SUNDANESE^SU^SUN
|
||||
;;^UTILITY(U,$J,.85,469,0)
|
||||
;;=SUSU^^SUS
|
||||
;;^UTILITY(U,$J,.85,470,0)
|
||||
;;=SWAHILI^SW^SWA
|
||||
;;^UTILITY(U,$J,.85,471,0)
|
||||
;;=SWATI^SS^SSW
|
||||
;;^UTILITY(U,$J,.85,472,0)
|
||||
;;=SWEDISH^SV^SWE
|
||||
;;^UTILITY(U,$J,.85,473,0)
|
||||
;;=SWISS GERMAN^^GSW
|
||||
;;^UTILITY(U,$J,.85,473,1,0)
|
||||
;;=^.8501^3^3
|
||||
;;^UTILITY(U,$J,.85,473,1,1,0)
|
||||
;;=GERMAN, SWISS
|
||||
;;^UTILITY(U,$J,.85,473,1,2,0)
|
||||
;;=ALEMANNIC
|
||||
;;^UTILITY(U,$J,.85,473,1,3,0)
|
||||
;;=ALSATIAN
|
||||
;;^UTILITY(U,$J,.85,474,0)
|
||||
;;=SYRIAC^^SYR
|
||||
;;^UTILITY(U,$J,.85,475,0)
|
||||
;;=TAGALOG^TL^TGL
|
||||
;;^UTILITY(U,$J,.85,476,0)
|
||||
;;=TAHITIAN^TY^TAH
|
||||
;;^UTILITY(U,$J,.85,477,0)
|
||||
;;=TAJIK^TG^TGK
|
||||
;;^UTILITY(U,$J,.85,478,0)
|
||||
;;=TAMASHEK^^TMH
|
||||
;;^UTILITY(U,$J,.85,479,0)
|
||||
;;=TAMIL^TA^TAM
|
||||
;;^UTILITY(U,$J,.85,480,0)
|
||||
;;=TATAR^TT^TAT
|
||||
;;^UTILITY(U,$J,.85,481,0)
|
||||
;;=TELUGU^TE^TEL
|
||||
;;^UTILITY(U,$J,.85,482,0)
|
||||
;;=TERENO^^TER
|
||||
;;^UTILITY(U,$J,.85,483,0)
|
||||
;;=TETUM^^TET
|
||||
;;^UTILITY(U,$J,.85,484,0)
|
||||
;;=THAI^TH^THA
|
||||
;;^UTILITY(U,$J,.85,485,0)
|
||||
;;=TIBETAN^BO^BOD^^TIB
|
||||
;;^UTILITY(U,$J,.85,485,1,0)
|
||||
;;=^.8501^2^2
|
||||
;;^UTILITY(U,$J,.85,485,1,1,0)
|
||||
;;=TIBETAN STANDARD
|
||||
;;^UTILITY(U,$J,.85,485,1,2,0)
|
||||
;;=TIBETAN, CENTRAL
|
||||
;;^UTILITY(U,$J,.85,486,0)
|
||||
;;=TIGRE^^TIG
|
||||
;;^UTILITY(U,$J,.85,487,0)
|
||||
;;=TIGRINYA^TI^TIR
|
||||
;;^UTILITY(U,$J,.85,488,0)
|
||||
;;=TIMNE^^TEM
|
||||
;;^UTILITY(U,$J,.85,489,0)
|
||||
;;=TIV^^TIV
|
||||
;;^UTILITY(U,$J,.85,490,0)
|
||||
;;=TLINGIT^^TLI
|
||||
;;^UTILITY(U,$J,.85,491,0)
|
||||
;;=TOK PISIN^^TPI
|
||||
;;^UTILITY(U,$J,.85,492,0)
|
||||
;;=TOKELAU^^TKL
|
||||
;;^UTILITY(U,$J,.85,493,0)
|
||||
;;=TONGA (NYASA)^^TOG
|
||||
;;^UTILITY(U,$J,.85,494,0)
|
||||
;;=TONGA (TONGA ISLANDS)^TO^TON
|
||||
;;^UTILITY(U,$J,.85,494,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,494,1,1,0)
|
||||
;;=TONGA ISLANDS
|
||||
;;^UTILITY(U,$J,.85,495,0)
|
||||
;;=TSIMSHIAN^^TSI
|
||||
;;^UTILITY(U,$J,.85,496,0)
|
||||
;;=TSONGA^TS^TSO
|
||||
;;^UTILITY(U,$J,.85,497,0)
|
||||
;;=TSWANA^TN^TSN
|
||||
;;^UTILITY(U,$J,.85,498,0)
|
||||
;;=TUMBUKA^^TUM
|
||||
;;^UTILITY(U,$J,.85,499,0)
|
||||
;;=TURKISH^TR^TUR
|
||||
;;^UTILITY(U,$J,.85,500,0)
|
||||
;;=TURKMEN^TK^TUK
|
||||
;;^UTILITY(U,$J,.85,501,0)
|
||||
;;=TUVALU^^TVL
|
||||
;;^UTILITY(U,$J,.85,502,0)
|
||||
;;=TUVINIAN^^TYV
|
||||
;;^UTILITY(U,$J,.85,503,0)
|
||||
;;=TWI^TW^TWI
|
||||
;;^UTILITY(U,$J,.85,504,0)
|
||||
;;=UDMURT^^UDM
|
||||
;;^UTILITY(U,$J,.85,505,0)
|
||||
;;=UGARITIC^^UGA
|
||||
;;^UTILITY(U,$J,.85,506,0)
|
||||
;;=UIGHUR^UG^UIG
|
||||
;;^UTILITY(U,$J,.85,506,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,506,1,1,0)
|
||||
;;=UYGHUR
|
||||
;;^UTILITY(U,$J,.85,507,0)
|
||||
;;=UKRAINIAN^UK^UKR
|
||||
;;^UTILITY(U,$J,.85,508,0)
|
||||
;;=UMBUNDU^^UMB
|
||||
;;^UTILITY(U,$J,.85,509,0)
|
||||
;;=UNDETERMINED^^UND
|
||||
;;^UTILITY(U,$J,.85,510,0)
|
||||
;;=URDU^UR^URD
|
||||
;;^UTILITY(U,$J,.85,511,0)
|
||||
;;=UZBEK^UZ^UZB
|
||||
;;^UTILITY(U,$J,.85,512,0)
|
||||
;;=VAI^^VAI
|
||||
;;^UTILITY(U,$J,.85,513,0)
|
||||
;;=VENDA^VE^VEN
|
||||
;;^UTILITY(U,$J,.85,514,0)
|
||||
;;=VIETNAMESE^VI^VIE
|
||||
;;^UTILITY(U,$J,.85,515,0)
|
||||
;;=VOLAPUK^VO^VOL
|
||||
;;^UTILITY(U,$J,.85,516,0)
|
||||
;;=VOTIC^^VOT
|
||||
;;^UTILITY(U,$J,.85,517,0)
|
||||
;;=WALLOON^WA^WLN
|
||||
;;^UTILITY(U,$J,.85,518,0)
|
||||
;;=WARAY^^WAR
|
||||
;;^UTILITY(U,$J,.85,519,0)
|
||||
;;=WASHO^^WAS
|
||||
;;^UTILITY(U,$J,.85,520,0)
|
||||
;;=WELSH^CY^CYM^^WEL
|
||||
;;^UTILITY(U,$J,.85,521,0)
|
||||
;;=WOLAITTA^^WAL
|
||||
;;^UTILITY(U,$J,.85,521,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,521,1,1,0)
|
||||
;;=WOLAYTTA
|
||||
;;^UTILITY(U,$J,.85,522,0)
|
||||
;;=WOLOF^WO^WOL
|
||||
;;^UTILITY(U,$J,.85,523,0)
|
||||
;;=XHOSA^XH^XHO
|
||||
;;^UTILITY(U,$J,.85,524,0)
|
||||
;;=YAKUT^^SAH
|
||||
;;^UTILITY(U,$J,.85,525,0)
|
||||
;;=YAO^^YAO
|
||||
;;^UTILITY(U,$J,.85,526,0)
|
||||
;;=YAPESE^^YAP
|
||||
;;^UTILITY(U,$J,.85,527,0)
|
||||
;;=YIDDISH^YI^YID
|
||||
;;^UTILITY(U,$J,.85,528,0)
|
||||
;;=YORUBA^YO^YOR
|
||||
;;^UTILITY(U,$J,.85,529,0)
|
||||
;;=ZAPOTEC^^ZAP
|
||||
;;^UTILITY(U,$J,.85,530,0)
|
||||
;;=ZAZA^^ZZA
|
||||
;;^UTILITY(U,$J,.85,530,1,0)
|
||||
;;=^.8501^5^5
|
||||
;;^UTILITY(U,$J,.85,530,1,1,0)
|
||||
;;=DIMILI
|
||||
;;^UTILITY(U,$J,.85,530,1,2,0)
|
||||
;;=DIMLI
|
||||
;;^UTILITY(U,$J,.85,530,1,3,0)
|
||||
;;=KIRDKI
|
||||
;;^UTILITY(U,$J,.85,530,1,4,0)
|
||||
;;=KIRMANJKI
|
||||
;;^UTILITY(U,$J,.85,530,1,5,0)
|
||||
;;=ZAZAKI
|
||||
;;^UTILITY(U,$J,.85,531,0)
|
||||
;;=ZENAGA^^ZEN
|
||||
;;^UTILITY(U,$J,.85,532,0)
|
||||
;;=ZHUANG^ZA^ZHA
|
||||
;;^UTILITY(U,$J,.85,532,1,0)
|
||||
;;=^.8501^1^1
|
||||
;;^UTILITY(U,$J,.85,532,1,1,0)
|
||||
;;=CHUANG
|
||||
;;^UTILITY(U,$J,.85,533,0)
|
||||
;;=ZULU^ZU^ZUL
|
||||
;;^UTILITY(U,$J,.85,534,0)
|
||||
;;=ZUNI^^ZUN
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
DMLAI006 ; ; 20-NOV-2012 ; 11/20/12 1:06pm
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
I DSEC F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^DIC(.85,0,"AUDIT")
|
||||
;;=
|
||||
;;^DIC(.85,0,"DD")
|
||||
;;=^
|
||||
;;^DIC(.85,0,"DEL")
|
||||
;;=^
|
||||
;;^DIC(.85,0,"LAYGO")
|
||||
;;=^
|
||||
;;^DIC(.85,0,"RD")
|
||||
;;=
|
||||
;;^DIC(.85,0,"WR")
|
||||
;;=^
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
DMLAI007 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
||||
Q Q
|
||||
;;^UTILITY(U,$J,"SBF",.85,.85)
|
||||
;;=
|
||||
;;^UTILITY(U,$J,"SBF",.85,.8501)
|
||||
;;=
|
||||
;;^UTILITY(U,$J,"SBF",.85,.8502)
|
||||
;;=
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
DMLAINI1 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
; LOADS AND INDEXES DD'S
|
||||
;
|
||||
K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DFR,DTN,DIX,DZ D DT^DICRW S %=1,U="^",DSEC=1
|
||||
S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
|
||||
ASK I %=1,$D(DIFQ(0)) W !,"SHALL I WRITE OVER FILE SECURITY CODES" S %=2 D YN^DICN S DSEC=%=1 I %<1 K DIFQ Q
|
||||
Q:'$D(DIFQ) S %=2 W !!,"ARE YOU SURE EVERYTHING'S OK" D YN^DICN I %-1 K DIFQ Q
|
||||
I $D(DIFKEP) F DIDIU=0:0 S DIDIU=$O(DIFKEP(DIDIU)) Q:DIDIU'>0 S DIU=DIDIU,DIU(0)=DIFKEP(DIDIU) D EN^DIU2
|
||||
D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J) D WAIT^DICD
|
||||
S DN="^DMLAI" F R=1:1:7 D @(DN_$$B36(R)) W "."
|
||||
F S D=$O(^UTILITY(U,$J,"SBF","")) Q:D'>0 K:'DIFQ(D) ^(D) S D=$O(^(D,"")) I D>0 K ^(D) D IX
|
||||
KEYSNIX ; Keys and new style indexes installer ; new in FM V22.2
|
||||
N DIFRSA S DIFRSA=$NA(^UTILITY("KX",$J)) ; Tran global for Keys and Indexes
|
||||
N DIFRFILE S DIFRFILE=0 ; Loop through files
|
||||
F S DIFRFILE=$O(@DIFRSA@("IX",DIFRFILE)) Q:'DIFRFILE D
|
||||
. K ^TMP("DIFROMS2",$J,"TRIG")
|
||||
. N DIFRD S DIFRD=0
|
||||
. F S DIFRD=$O(@DIFRSA@("IX",DIFRFILE,DIFRD)) Q:'DIFRD D DDIXIN^DIFROMSX(DIFRFILE,DIFRD,DIFRSA) ; install New Style Indexes
|
||||
. K ^TMP("DIFROMS2",$J,"TRIG")
|
||||
. S DIFRD=0
|
||||
. F S DIFRD=$O(@DIFRSA@("KEY",DIFRFILE,DIFRD)) Q:'DIFRD D DDKEYIN^DIFROMSY(DIFRFILE,DIFRD,DIFRSA) ; install keys
|
||||
K @DIFRSA ; kill off tran global
|
||||
; VEN/SMH v22.2: Below I added a K D1 because it leaks from the call causing the key matching algo to fail.
|
||||
DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0
|
||||
I DIFQR(D) S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=DIFQR(D)'=2 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 K D1 Q:'$D(^(D0,0)) S Z=^(0) D I^DITR
|
||||
K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA
|
||||
;
|
||||
W S Y=$P($T(@X),";",2) W !,"NOTE: This package also contains "_Y_"S",! Q:'$D(DIFQ(0))
|
||||
S %=1 W ?6,"SHALL I WRITE OVER EXISTING "_Y_"S OF THE SAME NAME" D YN^DICN I '% W !?6,"Answer YES to replace the current "_Y_"S with the incoming ones." G W
|
||||
S:%=2 DIFQ(X)=0 K:%<0 DIFQ
|
||||
Q
|
||||
;
|
||||
OPT ;OPTION
|
||||
RTN ;ROUTINE DOCUMENTATION NOTE
|
||||
FUN ;FUNCTION
|
||||
BUL ;BULLETIN
|
||||
KEY ;SECURITY KEY
|
||||
HEL ;HELP FRAME
|
||||
DIP ;PRINT TEMPLATE
|
||||
DIE ;INPUT TEMPLATE
|
||||
DIB ;SORT TEMPLATE
|
||||
DIS ;FORM
|
||||
REM ;REMOTE PROCEDURE
|
||||
;
|
||||
SBF ;FILE AND SUB FILE NUMBERS
|
||||
IX W "." S DIK="A" F %=0:0 S DIK=$O(^DD(D,DIK)) Q:DIK="" K ^(DIK)
|
||||
S DA(1)=D,DIK="^DD("_D_"," D IXALL^DIK
|
||||
I $D(^DIC(D,"%",0)) S DIK="^DIC(D,""%""," G IXALL^DIK
|
||||
Q
|
||||
B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
|
||||
N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
DMLAINI2 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
;
|
||||
;
|
||||
K ^UTILITY("DIFROM",$J),DIC S DIDUZ=0 S:$D(DUZ)#2 DIDUZ=DUZ S DUZ=.5
|
||||
I $D(^DIC(9.2,0))#2,^(0)?1"HEL".E S (DIC,DLAYGO)=9.2,N="HEL",DIC(0)="LX" G ADD
|
||||
Q
|
||||
;
|
||||
ADD F R=0:0 S R=$O(^UTILITY(U,$J,N,R)) Q:R'>0 S X=$P(^(R,0),U,1) W "." K DA D ^DIC I Y>0,'$D(DIFQ(N))!$P(Y,U,3) S ^UTILITY("DIFROM",$J,N,X)=+Y K ^DIC(9.2,+Y,1),^(2),^(3),^(10) S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y D %XY^%RCR
|
||||
S DIK=DIC
|
||||
HELP S R=$O(^UTILITY("DIFROM",$J,N,R)) Q:R="" W !,"'"_R_"' Help Frame filed." S DA=^(R)
|
||||
F X=0:0 S X=$O(^DIC(9.2,DA,2,X)) Q:'X S I=$S($D(^(X,0)):^(0),1:0),Y=$P(I,U,2) S:Y]"" Y=$O(^DIC(9.2,"B",Y,0)) S ^(0)=$P(^DIC(9.2,DA,2,X,0),U,1)_U_$S(Y>0:Y,1:"")_U_$P(^(0),U,3,99)
|
||||
S I=0 F X=0:0 S X=$O(^DIC(9.2,DA,10,X)) Q:'X I $D(^(X,0)) S Y=$P(^(0),U),Y=$S(Y]"":$O(^MAG("B",Y,0)),1:0) S:Y $P(^DIC(9.2,DA,10,X,0),U)=Y,I=I+1,%=X I 'Y K ^DIC(9.2,DA,10,X,0)
|
||||
I I S $P(^DIC(9.2,DA,10,0),U,3,4)=%_U_I
|
||||
IX D IX1^DIK G HELP
|
||||
;
|
||||
U I $D(DIRUT) S DIFQ=1
|
||||
W ! Q
|
||||
REP S DIR(0)="Y",DIR("A")="Shall I change the NAME of the file to "_DIF
|
||||
S DIR("??")="^D REP^DIFROMH1",DIR("B")="NO" D ^DIR G U:$D(DIRUT)
|
||||
I Y S DIE=1,DIFQ=0,DA=N,DR=".01////"_DIF D ^DIE Q
|
||||
S DIR("A")="Shall I replace your file with mine"
|
||||
S DIR("??")="^D AG^DIFROMH1" D ^DIR G U:$D(DIRUT)!'Y
|
||||
S DIU(0)="E",DIR("A")="Do you want to keep the Data"
|
||||
S DIR("??")="^D CHG^DIFROMH1" D ^DIR G U:$D(DIRUT)
|
||||
S:'Y DIU(0)=DIU(0)_"D"
|
||||
S DIR("A")="Do you want to keep the Templates"
|
||||
S DIR("??")="^D TEMP^DIFROMH1" D ^DIR G U:$D(DIRUT) S:'Y DIU(0)=DIU(0)_"T"
|
||||
S DIFQ(N)=1,DIFKEP(N)=DIU(0) W !?15," (",DIF,") " Q
|
||||
|
|
@ -0,0 +1,71 @@
|
|||
DMLAINI3 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
;
|
||||
;
|
||||
K ^UTILITY("DIFROM",$J) S DIC(0)="LX",(DIC,DLAYGO)=3.6,N="BUL" D ADD:$D(^XMB(3.6,0))
|
||||
S X=0 F R=0:0 S X=$O(^UTILITY("DIFROM",$J,N,X)) Q:X="" W !,"'",X,"' BULLETIN FILED -- Remember to add mail groups for new bulletins."
|
||||
I $D(^DIC(9.4,0))#2,^(0)?1"PACK".E S N="PKG",(DIC,DLAYGO)=9.4 D ADD
|
||||
G NP:'$D(DA) S %=+$O(^DIC(9.4,DA,22,"B",DIFROM,0)) I $D(^DIC(9.4,DA,22,%,0)) S $P(^(0),U,3)=DT
|
||||
I $D(^DIC(9.4,DA,0))#2 S %=$P(^(0),U,4) I %]"" S %=$O(^DIC(9.2,"B",%,0)) S:%]"" $P(^DIC(9.4,DA,0),U,4)=%
|
||||
OR I $D(^ORD(100.99))&$O(^UTILITY(U,$J,"OR","")) D EN^DMLAINI4
|
||||
NP K DIC,^UTILITY("DIFROM",$J) S DIC(0)="LX" I $D(^DIC(19,0))#2,^(0)?1"OPTION".E S (DIC,DLAYGO)=19,N="OPT" D ADD,OP
|
||||
I $D(^DIC(19.1,0))#2,($P(^(0),U)?1"SECUR".E)!($P(^(0),U)="KEY") S (DIC,DLAYGO)=19.1,N="KEY" D ADD K ^UTILITY("DIFROM",$J)
|
||||
I $D(^DIC(9.8,0))#2,^(0)?1"ROUTINE^".E S (DIC,DLAYGO)=9.8,N="RTN" D ADD
|
||||
S DIC=.5,DLAYGO=0,N="FUN" D ADD
|
||||
I $P($G(^DIC(8994,0)),U)="REMOTE PROCEDURE" S (DIC,DLAYGO)=8994,N="REM" D ADD
|
||||
S DIC("S")="I $P(^(0),U,4)=DIFL" F N="DIPT","DIBT","DIE" S DIC=U_N_"(" D ADD
|
||||
K DIC("S") S N="DIST(.404,",DIC=U_N,DLAYGO=.404 D ADD
|
||||
S DIC("S")="I $P(^(0),U,8)=DIFL",N="DIST(.403,",DIC=U_N,DLAYGO=.403 D ADD
|
||||
K ^UTILITY(U,$J),DIC,DLAYGO F DIFR="DIE","DIPT" D DIEZ
|
||||
K ^UTILITY("DIFROM",$J) Q
|
||||
DIEZ I ^DD("VERSION")>17.4,'$D(DISYS) D OS^DII
|
||||
E S DISYS=^DD("OS")
|
||||
Q:'$D(^DD("OS",DISYS,"ZS"))
|
||||
S DIFR1=""
|
||||
DZ1 S DIFR1=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1)) Q:DIFR1=""
|
||||
F DIFR2=0:0 S DIFR2=$O(^UTILITY("DIFROM",$J,DIFR,DIFR1,DIFR2)) Q:'DIFR2 S Y=DIFR2 I $D(@(U_DIFR_"(Y,""ROU"")")) K ^("ROU") I $D(^("ROUOLD")) S X=^("ROUOLD"),DMAX=^DD("ROU") D:X]"" @("EN^DI"_$E(DIFR,3)_"Z")
|
||||
G DZ1
|
||||
;
|
||||
OP S R=$O(^UTILITY("DIFROM",$J,N,R)) I R="" K ^UTILITY("DIFROM",$J) G Q
|
||||
W !,"'"_R_"' Option Filed" S DA=+^UTILITY("DIFROM",$J,N,R) G:$P(^(R),U,2,3)="XUCORE^"!($P(^(R),U,2,3)="XUCOMMAND^") OP
|
||||
I $D(^DIC(19,DA,220)) S %=$P(^(220),U) S:%]"" %=$O(^XMB(3.6,"B",%,0)) S $P(^DIC(19,DA,220),U)=%,%=$P(^(220),U,3) S:%]"" %=$O(^XMB(3.8,"B",%,0)) S $P(^DIC(19,DA,220),U,3)=%
|
||||
S %=$P(^DIC(19,DA,0),U,12) S:%]"" %=$O(^DIC(9.4,"B",%,0))
|
||||
S $P(^DIC(19,DA,0),U,12)=%,%=$P(^(0),U,7),(DZ,DIX)=0
|
||||
D:$D(^DIC(19,DA,10,"B")) KAD(DA) S:%]"" %=$O(^DIC(9.2,"B",%,0)) S $P(^DIC(19,DA,0),U,7)=%,%=$P(^(0),U,4),%="MOQXL"[% K ^(10,"B"),^("C")
|
||||
F X=0:0 S X=$O(^DIC(19,DA,10,X)) Q:'X S I=$S($D(^(X,0)):^(0),1:0),Y=$S($D(^(U)):^(U),1:"") K ^DIC(19,DA,10,X) I Y]"",% S D=$O(^DIC(19,"B",Y,0)) I D S ^DIC(19,DA,10,X,0)=D_U_$P(I,U,2,9),DZ=DZ+1,DIX=X
|
||||
S:% ^DIC(19,DA,10,0)="^19.01PI^"_DIX_U_DZ D IX1^DIK G OP
|
||||
;
|
||||
ADD F R=0:0 S R=$O(^UTILITY(U,$J,N,R)) Q:R="" S X=$P(^(R,0),U),DIFL=$S(N="DIST(.403,":$P(^(0),U,8),N="DIST(.404,":$P(^(0),U,2),1:$P(^(0),U,4)) W "." K DA D ^DIC I Y>0,'$D(DIFQ($E(N,1,3)))!$P(Y,U,3) S Y=Y_U D A
|
||||
Q Q
|
||||
A I N="BUL" K % S %(0)=$G(@(DIC_"+Y,2,0)")) F %=0:0 S %=$O(@(DIC_"+Y,2,%)")) Q:'% S %(%)=$G(^(%,0))
|
||||
K:N'="KEY"&(N'="OPT") @(DIC_"+Y)") S ^UTILITY("DIFROM",$J,N,X)=Y S:$E(N,1,2)="DI" ^(X,+Y)="" S:N="PKG" DIFROM(0)=+Y Q:$P(Y,U,2,3)="XUCORE^"!($P(Y,U,2,3)="XUCOMMAND^")
|
||||
I N="BUL",%(0)]"" S @(DIC_"+Y,2,0)")=%(0) F %=0:0 S %=$O(%(%)) Q:'% S @(DIC_"+Y,2,%,0)")=%(%)
|
||||
I $E(N,1,2)="DI",('DIFL)!('$D(^DD(+DIFL))) D
|
||||
.W !,"**WARNING--"_$S(N="DIE":"INPUT",N="DIPT":"PRINT",N="DIBT":"SORT",1:"FORM or BLOCK")_$S(N'["DIST":" template ",1:" ")_$P(Y,U,2)_" has been installed,",!,"but associated file "_DIFL_" is not on your system!"
|
||||
.Q
|
||||
I N="OPT" S:$P(^DIC(19,+Y,0),U,6)]"" DIOPT=$P(^(0),U,6) I $O(^UTILITY(U,$J,N,R,1,0)) K ^DIC(19,+Y,1)
|
||||
I N="DIST(.403," D BLK
|
||||
S %X="^UTILITY(U,$J,N,R,",%Y=DIC_"+Y,",DA=+Y,DIK=DIC D %XY^%RCR
|
||||
D IX1^DIK:N'="OPT" I N="OPT",$D(DIOPT) S:$P(^DIC(19,DA,0),U,6)="" $P(^(0),U,6)=DIOPT K DIOPT
|
||||
I N="DIST(.403," D
|
||||
.N DIFRVAL S DIFRVAL=$$VAL^DIFROMSS(.403,DA)
|
||||
.I DIFRVAL W !,"Compiling form: ",$P(^DIST(.403,DA,0),U) D EN^DDSZ(DA) Q
|
||||
.W !,"ERROR: Form: ",$P(^DIST(.403,DA,0),U)," cannot be compiled"
|
||||
.Q
|
||||
Q
|
||||
BLK F J=0:0 S J=$O(^UTILITY(U,$J,N,R,40,J)) Q:'J I $D(^(J,0)) S %=$P(^(0),U,2) S:%]"" %=$O(^DIST(.404,"B",%,0)) S:% $P(^UTILITY(U,$J,N,R,40,J,0),U,2)=% D B1
|
||||
K A0,A1,A2,J,L Q
|
||||
B1 F L=0:0 S L=$O(^UTILITY(U,$J,N,R,40,J,40,L)) Q:'L S A0=$G(^(L,0)),%=$P(A0,U) I %]"" S %=$O(^DIST(.404,"B",%,0)) I % S $P(A0,U)=%,^UTILITY(U,$J,N,R,40,J,"BLK",%,0)=A0 D
|
||||
.N X S X=0
|
||||
.F S X=$O(^UTILITY(U,$J,N,R,40,J,40,L,X)) Q:X="" S ^UTILITY(U,$J,N,R,40,J,"BLK",%,X)=^(X)
|
||||
.Q
|
||||
S A0=$G(^UTILITY(U,$J,N,R,40,J,40,0)) Q:A0="" K ^UTILITY(U,$J,N,R,40,J,40) S (A1,A2)=0
|
||||
F L=0:0 S L=$O(^UTILITY(U,$J,N,R,40,J,"BLK",L)) Q:'L S ^UTILITY(U,$J,N,R,40,J,40,L,0)=^(L,0),A1=L,A2=A2+1 D
|
||||
.N X S X=0
|
||||
.F S X=$O(^UTILITY(U,$J,N,R,40,J,"BLK",L,X)) Q:X="" S ^UTILITY(U,$J,N,R,40,J,40,L,X)=^(X)
|
||||
.Q
|
||||
S $P(A0,U,3,4)=A1_U_A2,^UTILITY(U,$J,N,R,40,J,40,0)=A0 K ^UTILITY(U,$J,N,R,40,J,"BLK")
|
||||
Q
|
||||
KAD(D0) N D1,X
|
||||
S X=0 F S X=$O(^DIC(19,D0,10,"B",X)) Q:X'>0 S D1=0 F S D1=$O(^DIC(19,D0,10,"B",X,D1)) Q:D1'>0 K ^DIC(19,"AD",X,D0,D1)
|
||||
Q
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
DMLAINI4 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
;
|
||||
;
|
||||
EN S DA(1)=1,DIK="^ORD(100.99,1,5," I $D(^ORD(100.99,1,5,DA)) D ^DIK
|
||||
S %X="^UTILITY(U,$J,""OR"","_$O(^UTILITY(U,$J,"OR",""))_",",%Y=DIK_DA_","
|
||||
S:'$D(^ORD(100.99,1,5,0)) ^(0)="^100.995P^^" S $P(^(0),U,3,4)=DA_U_($P(^(0),U,4)+1)
|
||||
D %XY^%RCR S $P(^ORD(100.99,1,5,DA,0),U)=DA,%=$P(^(0),U,4)
|
||||
I %]"" S %=$O(^ORD(100.98,"B",%,0)) I %>0 S $P(^ORD(100.99,1,5,DA,0),U,4)=%
|
||||
D OR
|
||||
S DA(1)=1 D IX1^DIK
|
||||
Q
|
||||
OR S (N,I)=0,X=""
|
||||
F S N=$O(^ORD(100.99,1,5,DA,1,N)) Q:'N S X=$P(^(N,0),U) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% ^ORD(100.99,1,5,DA,1,N,0)=% S X=N,I=I+1,(R,J)=0,Y="" D OR1
|
||||
S:I $P(^ORD(100.99,1,5,DA,1,0),U,3,4)=X_U_I S (N,I)=0,X=""
|
||||
F S N=$O(^ORD(100.99,1,5,DA,5,N)) Q:'N S X=$P(^(N,0),U,3) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% $P(^ORD(100.99,1,5,DA,5,N,0),U,3)=% S X=N,I=I+1
|
||||
S:I $P(^ORD(100.99,1,5,DA,5,0),U,3,4)=X_U_I K N,R,X,Y,I,J
|
||||
Q
|
||||
OR1 N X F S R=$O(^ORD(100.99,1,5,DA,1,N,1,R)) Q:'R S X=$P(^(R,0),U) I X]"" S %=$O(^ORD(101,"B",X,0)) D:'% ADDP S:% ^ORD(100.99,1,5,DA,1,N,1,R,0)=% S Y=R,J=J+1
|
||||
S:J $P(^ORD(100.99,1,5,DA,1,N,1,0),U,3,4)=Y_U_J
|
||||
Q
|
||||
ADDP N I,J,N,R,DA,DLAYGO,DO S %=""
|
||||
S DIC="^ORD(101,",DIC(0)="LX",DLAYGO=101 D FILE^DICN K DIC Q:Y=-1 S %=+Y Q
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
DMLAINI5 ; ; 20-NOV-2012
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
|
||||
Q
|
||||
IXF ;;
|
||||
;;.85I;LANGUAGE;^DI(.85,;0;y;y;;n;;;y;o;n
|
||||
;;
|
||||
|
|
@ -0,0 +1,46 @@
|
|||
DMLAINIT ; ; 20-NOV-2012 ; 11/20/12 1:19pm
|
||||
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||||
;
|
||||
K DIF,DIFQ,DIFQR,DIFQN,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DIFROM,DFR,DTN,DIX,DZ,DIRUT,DTOUT,DUOUT
|
||||
S DIOVRD=1,U="^",DIFQ=0,DIFROM="22.2" W !,"This version (#22.2) of 'DMLAINIT' was created on 20-NOV-2012"
|
||||
W !?9,"(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)",!
|
||||
I $D(^DD("VERSION")),^("VERSION")'<22 G GO
|
||||
;W !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...." D N^DINIT
|
||||
I ^DD("VERSION")<22 W !,"but I need version 22 of the VA FileMan!" G Q
|
||||
GO ;
|
||||
EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
|
||||
S DIFQ=0 K DIRUT,DTOUT,DUOUT
|
||||
F DIFRIR=1:1:1 S DIFRRTN="^DMLAINI"_$E("5",DIFRIR) D @DIFRRTN
|
||||
W:1 !,"I AM GOING TO SET UP THE FOLLOWING FILES:" F I=1:2:2 S DIF(I)=^UTILITY("DIF",$J,I) D 1 G Q:DIFQ!$D(DIRUT) K DIF(I)
|
||||
S DIFROM="22.2" D PKG:'$D(DIFROM(0)),^DMLAINI1 G Q:'$D(DIFQ) S DIK(0)="AB"
|
||||
F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),DIK=$P(%,";",5),N=$P(%,";",3),D=$P(%,";",4)_U_N D D K DIFQ(N)
|
||||
K DIFQR D ^DMLAINI2,^DMLAINI3
|
||||
L S DUZ=DIDUZ W:1 !,$C(7),"OK, I'M DONE.",!,"NO"_$P("TE THAT FILE",U,DSEC)_" SECURITY-CODE PROTECTION HAS BEEN MADE"
|
||||
I DIFROM F DIF=1:2:2 S %=^UTILITY("DIF",$J,DIF),N=+$P(%,";",3) I N,$P(%,";",8)="y" S ^DD(N,0,"VR")=DIFROM
|
||||
I DIFROM(0)>0 F %="PRE","INI","INIT" S:$D(DIFROM(%)) $P(^DIC(9.4,DIFROM(0),%),U,2)=DIFROM(%)
|
||||
I $G(DIFQN) S $P(^(0),U,3,4)=$P(DIFQN,U,2)_U_($P(^DIC(0),U,4)+DIFQN) K DIFQN
|
||||
S:DIFROM(0)>0 ^DIC(9.4,DIFROM(0),"VERSION")=DIFROM G Q^DIFROM0
|
||||
D S:$D(^DIC(+N,0))[0 ^(0)=D S X=$D(@(DIK_"0)")),^(0)=D_U_$S(X#2:$P(^(0),U,3,9),1:U)
|
||||
S DIFQR=DIFQR(+N) I ^DD("VERSION")>17.5,$D(^DD(+N,0,"DIK"))#2 S X=^("DIK"),Y=+N,DMAX=^DD("ROU") D EN^DIKZ
|
||||
I DIFQR D IXALL^DIK:$O(@(DIK_"0)")) W "."
|
||||
Q
|
||||
R G REP^DMLAINI2
|
||||
;
|
||||
1 S N=+$P(DIF(I),";",3),DIF=$P(DIF(I),";",4),S=$P(DIF(I),";",5)
|
||||
W !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y") S Z=$S($D(^DIC(N,0))#2:^(0),1:"")
|
||||
I Z="" S DIFQ(N)=1,DIFQN=$G(DIFQN)+1_U_N G S
|
||||
I $L($P(Z,DIF)) W $C(7),!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!" D R Q:DIFQ G S:$D(DIFKEP(N)),1
|
||||
S DIFQ(N)=$P(DIF(I),";",7)'="n"
|
||||
I $L(Z) W $C(7),!,"Note: You already have the '",$P(Z,U),"' File." S DIFQ(0)=1
|
||||
S %=$E(^UTILITY("DIF",$J,I+1),4,245) I %]"" X % S DIFQ(N)=$T W:'$T !,"Screen on this Data Dictionary did not pass--DD will not be installed!" G S
|
||||
I $L(Z),$P(DIF(I),";",10)="y" S DIR("A")="Shall I write over the existing Data Definition",DIR("??")="^D DD^DIFROMH1",DIR("B")="YES",DIR(0)="Y" D ^DIR S DIFQ(N)=Y
|
||||
S S DIFQR(N)=0 Q:$P(DIF(I),";",13)'="y"!$D(DIRUT)
|
||||
I $P(DIF(I),";",15)="y",$O(@(S_"0)"))>0 S DIF=$P(DIF(I),";",14)="o",DIR("A")="Want my data "_$P("merged with^to overwrite",U,DIF+1)_" yours",DIR("??")="^D DTA^DIFROMH1",DIR(0)="Y" D ^DIR S DIFQR(N)=$S('Y:Y,1:Y+DIF) Q
|
||||
S %=$P(DIF(I),";",14)="o" W !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." S DIFQR(N)=%+1
|
||||
Q
|
||||
Q W $C(7),!!,"NO UPDATING HAS OCCURRED!" G Q^DIFROM0
|
||||
;
|
||||
PKG S X=$P($T(IXF),";",3),DIC="^DIC(9.4,",DIC(0)="",DIC("S")="I $P(^(0),U,2)="""_$P(X,U,2)_"""",X=$P(X,U) D ^DIC S DIFROM(0)=+Y K DIC
|
||||
Q
|
||||
;
|
||||
IXF ;;;1
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
Copyright 2012 Fredrick D.S. Marshall and Sam Habiel
|
||||
|
||||
Licensed under the Apache License, Version 2.0 (the "License");
|
||||
you may not use this file except in compliance with the License.
|
||||
You may obtain a copy of the License at
|
||||
|
||||
http://www.apache.org/licenses/LICENSE-2.0
|
||||
|
||||
Unless required by applicable law or agreed to in writing, software
|
||||
distributed under the License is distributed on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
See the License for the specific language governing permissions and
|
||||
limitations under the License.
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,260 @@
|
|||
The following routines should be applied to WV 2.0 in order to install a new language file for use in Meaningful Use Stages 1 and 2.
|
||||
|
||||
More detailed documentation can be found on:
|
||||
http://www.vistapedia.com/index.php/Language_File_%28.85%29
|
||||
|
||||
## Warning
|
||||
DO NOT INSTALL THIS OVER MSC FILEMAN. THE NEW LANGUAGE FILE WILL BE PART OF THE SUCCESSOR OF MSC FILEMAN, FILEMAN V22.2.
|
||||
|
||||
## Getting the software
|
||||
Download:
|
||||
|
||||
## Installation Instructions
|
||||
1. Import the routines from the file system using your Mumps implementation's Routine Input from RO format utility.
|
||||
2. Run ^DINIT. Answer Yes to all Yes/No questions if unsure how to answer.
|
||||
3. Run ^DMLAINIT. Answer Yes to all Yes/No questions.
|
||||
|
||||
### Example Install Transcript
|
||||
|
||||
MU-beta>D ^%RI
|
||||
|
||||
Routine Input Utility - Converts RO file to *.m files.
|
||||
|
||||
Formfeed delimited <No>?
|
||||
Input device: <terminal>: /home/sam/repo/lang/lang-file4mu1and2/VW-LanguageFiles-DMLAINITs-DINITs-2012-11-20.ro
|
||||
|
||||
Lang file inits. Run ^DINIT first and then ^DMLAINITs.
|
||||
GT.M 20-NOV-2012 19:44:28
|
||||
|
||||
|
||||
Output directory : r/
|
||||
|
||||
DINIT DINIT011 DINIT012 DINIT013 DMLAI001 DMLAI002 DMLAI003 DMLAI004
|
||||
DMLAI005 DMLAI006 DMLAI007 DMLAINI1 DMLAINI2 DMLAINI3 DMLAINI4 DMLAINI5
|
||||
DMLAINIT
|
||||
|
||||
|
||||
GTM>D ^DINIT
|
||||
|
||||
|
||||
VA FileMan V.22.0
|
||||
|
||||
|
||||
Initialize VA FileMan now? NO//Y
|
||||
|
||||
SITE NAME: Vista-Office EHR//
|
||||
|
||||
SITE NUMBER: 50// ..........................
|
||||
|
||||
Now loading MUMPS Operating System File
|
||||
|
||||
Do you want to change the MUMPS OPERATING SYSTEM File? NO//....
|
||||
|
||||
Now loading DIALOG and LANGUAGE Files..............................................................
|
||||
|
||||
|
||||
TYPE OF MUMPS SYSTEM YOU ARE USING: GT.M(UNIX)//
|
||||
|
||||
Now loading other FileMan files--please wait..........................................................................................
|
||||
.............................................................................................................................
|
||||
..........
|
||||
|
||||
The following files have been installed:
|
||||
.11 INDEX
|
||||
.2 DESTINATION
|
||||
.31 KEY
|
||||
.4 PRINT TEMPLATE
|
||||
.401 SORT TEMPLATE
|
||||
.402 INPUT TEMPLATE
|
||||
.403 FORM
|
||||
.404 BLOCK
|
||||
.44 FOREIGN FORMAT
|
||||
.46 IMPORT TEMPLATE
|
||||
.5 FUNCTION
|
||||
.6 DD AUDIT
|
||||
.7 MUMPS OPERATING SYSTEM
|
||||
.81 DATA TYPE
|
||||
.83 COMPILED ROUTINE
|
||||
.84 DIALOG
|
||||
.85 LANGUAGE
|
||||
1 FILE
|
||||
1.1 AUDIT
|
||||
1.11 ARCHIVAL ACTIVITY
|
||||
1.12 FILEGRAM HISTORY
|
||||
1.13 FILEGRAM ERROR LOG
|
||||
1.2 ALTERNATE EDITOR
|
||||
1.521 SQLI_SCHEMA
|
||||
1.52101 SQLI_KEY_WORD
|
||||
1.5211 SQLI_DATA_TYPE
|
||||
1.5212 SQLI_DOMAIN
|
||||
1.5213 SQLI_KEY_FORMAT
|
||||
1.5214 SQLI_OUTPUT_FORMAT
|
||||
1.5215 SQLI_TABLE
|
||||
1.5216 SQLI_TABLE_ELEMENT
|
||||
1.5217 SQLI_COLUMN
|
||||
1.5218 SQLI_PRIMARY_KEY
|
||||
1.5219 SQLI_FOREIGN_KEY
|
||||
1.52191 SQLI_ERROR_TEXT
|
||||
1.52192 SQLI_ERROR_LOG
|
||||
|
||||
|
||||
Re-indexing entries in the DIALOG file......................
|
||||
|
||||
Compiling all forms ...
|
||||
|
||||
DICATT (#.001)
|
||||
DIPTED (#.1001)
|
||||
DIKC EDIT (#.1101)
|
||||
DIKC EDIT UI (#.1102)
|
||||
DIKK EDIT (#.3101)
|
||||
DIBTED (#.40001)
|
||||
DIETED (#.40101)
|
||||
DIEDIT (#.40201)
|
||||
DDGF BLOCK EDIT (#.40301)
|
||||
DDGF PAGE ADD (#.40302)
|
||||
DDGF PAGE EDIT (#.40303)
|
||||
DDGF PAGE SELECT (#.40304)
|
||||
DDGF FORM EDIT (#.40305)
|
||||
DDGF HEADER BLOCK EDIT (#.40306)
|
||||
DDGF FIELD ADD (#.40401)
|
||||
DDGF FIELD CAPTION ONLY (#.40402)
|
||||
DDGF FIELD DD (#.40403)
|
||||
DDGF FIELD FORM ONLY (#.40404)
|
||||
DDGF FIELD COMPUTED (#.40405)
|
||||
DDGF BLOCK ADD (#.40406)
|
||||
DDGF BLOCK DELETE (#.40407)
|
||||
DDGF HEADER BLOCK SELECT (#.40408)
|
||||
DDXP FF FORM1 (#.441)
|
||||
DDMP SPECIFY IMPORT (#.461)
|
||||
XPD EDIT BUILD (#1)
|
||||
XUEDIT CHARACTERISTICS (#2)
|
||||
XUEXISTING USER (#3)
|
||||
XUDEVICE MT (#4)
|
||||
XUDEVICE SDP (#5)
|
||||
XUDEVICE SPL (#6)
|
||||
XUDEVICE HFS (#7)
|
||||
XUDEVICE CHAN (#8)
|
||||
XU OPTION SCHEDULE (#9)
|
||||
XUSERDEACT (#10)
|
||||
XUTM UCI ASSOC (#11)
|
||||
XUSITEPARM (#12)
|
||||
XUAUDIT (#13)
|
||||
XUREACT USER (#14)
|
||||
PRSA TD EDIT (#15)
|
||||
PRSA OT REQ (#16)
|
||||
PRSA TD DISP (#17)
|
||||
PRSA TL EDIT (#18)
|
||||
PRSA TL DISP (#19)
|
||||
PRSA LV REQ (#20)
|
||||
PRSA ED REQ (#21)
|
||||
PRSA VC POST (#22)
|
||||
PRSA PM POST (#23)
|
||||
PRSA TD TL (#24)
|
||||
PRSA TP POST1 (#25)
|
||||
PRSA TE EDIT (#26)
|
||||
PRSA FEE POST (#27)
|
||||
NURA-I-SERVICE (#28)
|
||||
XU-PERSON CLASS (#29)
|
||||
XUNEW USER (#30)
|
||||
SPNLPFM1 (#31)
|
||||
SPNFFRM1 (#32)
|
||||
SPNFFRM2 (#33)
|
||||
SPNLPFM2 (#34)
|
||||
XPD EDIT MP (#35)
|
||||
XPD EDIT GP (#36)
|
||||
PRCHQ1 (#37)
|
||||
PRCHQ2 (#38)
|
||||
PRCHQ3 (#39)
|
||||
PRCHQ4 (#40)
|
||||
PRCHQ5 (#41)
|
||||
SPNLP FUN MES (#42)
|
||||
SPNLP FIM FM1 (#43)
|
||||
SPNLP CHART FM1 (#44)
|
||||
SPNLP MS FM1 (#45)
|
||||
SPNE ENTER/EDIT SYNONYM (#46)
|
||||
LREPI (#47)
|
||||
ENPR MS (#48)
|
||||
ENPR ALL (#49)
|
||||
ENPR PRELIM (#50)
|
||||
ENPR AE (#51)
|
||||
ENPR CO (#52)
|
||||
ENPR CHG (#53)
|
||||
ABSV ADD/EDIT MASTER (#54)
|
||||
XQEDTOPT (#55)
|
||||
XU-INST-EDIT (#56)
|
||||
LREPIPROT (#57)
|
||||
XUTMKE ADD (#58)
|
||||
WV PROC-FORM-1 (#59)
|
||||
WV NOTIF-FORM-1 (#60)
|
||||
WV PATIENT-FORM-1 (#61)
|
||||
WV NOTIF-FORM-2 (#62)
|
||||
WV PROC-FORM-2-COLP (#63)
|
||||
WV NOTIFPURPOSE-FORM-1 (#64)
|
||||
WV SITE PARAMS-FORM-1 (#65)
|
||||
WV REFUSED PROCEDURE-ENTRY (#66)
|
||||
WV PROC-FORM-LAB (#67)
|
||||
XDR RESFILE FORM (#68)
|
||||
HL SITE PARAMETERS (#69)
|
||||
PSB PRN EFFECTIVENESS (#70)
|
||||
PSB MED LOG EDIT (#71)
|
||||
PSBO DL (#72)
|
||||
PSBO WA (#73)
|
||||
PSBO ML (#74)
|
||||
PSBO MM (#75)
|
||||
PSBO PE (#76)
|
||||
PSB MISSING DOSE REQUEST (#77)
|
||||
PSBO MH (#78)
|
||||
PSBO MV (#79)
|
||||
PSB MISSING DOSE FOLLOWUP (#80)
|
||||
PSBO BL (#81)
|
||||
PSBO MD (#82)
|
||||
PSB NEW UD ENTRY (#83)
|
||||
PSB NEW IV ENTRY (#84)
|
||||
HL7 APP (#85)
|
||||
HL7 LOGICAL LINK (#86)
|
||||
HL7 INTERFACE (#87)
|
||||
SPNLP ASIA MES (#88)
|
||||
PSB MED LOG EDIT IV (#89)
|
||||
SPNLP FAM FM1 (#90)
|
||||
SPNLP DIENER FM1 (#91)
|
||||
SPNLP DUSOI FM1 (#92)
|
||||
XU-CLINICAL TRAINEE (#93)
|
||||
XUSSPKI (#94)
|
||||
INSTITUTION EDIT (#95)
|
||||
PRSA LD POST (#96)
|
||||
XUDEVICE LPD (#97)
|
||||
XUDEVICE TRM (#98)
|
||||
KMPD PARAMETERS EDIT (#99)
|
||||
LREPI9 (#100)
|
||||
XUDEVICE RES (#101)
|
||||
PSBO BZ (#102)
|
||||
ENIT EDIT (#103)
|
||||
PXRM DIALOG EDIT (#104)
|
||||
XUSITEIP (#105)
|
||||
PSB BCBU PARAMETERS (#106)
|
||||
PSBO XA (#107)
|
||||
MD MAIN (#108)
|
||||
PRSP ESR POST (#109)
|
||||
PRSP EXT ABSENCE (#110)
|
||||
|
||||
|
||||
INITIALIZATION COMPLETED IN 8 SECONDS.
|
||||
MU-beta>D ^DMLAINIT
|
||||
|
||||
This version (#22.2) of 'DMLAINIT' was created on 20-NOV-2012
|
||||
(at FILEMAN.MUMPS.ORG, by MSC FileMan 22.1043)
|
||||
|
||||
I AM GOING TO SET UP THE FOLLOWING FILES:
|
||||
|
||||
.85 LANGUAGE (including data)
|
||||
Note: You already have the 'LANGUAGE' File.
|
||||
I will OVERWRITE your data with mine.
|
||||
|
||||
SHALL I WRITE OVER FILE SECURITY CODES? No// (No) [NB: Can answer either yes or no]
|
||||
|
||||
ARE YOU SURE EVERYTHING'S OK? No// Y (Yes)
|
||||
|
||||
...HMMM, THIS MAY TAKE A FEW MOMENTS.....................
|
||||
OK, I'M DONE.
|
||||
NO SECURITY-CODE PROTECTION HAS BEEN MADE
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,40 @@
|
|||
# Stage 1 Meaningful Use enhancements for Patient Registration for WV
|
||||
NB: This works in conjunction with the new language file. See \[Language File(\].
|
||||
|
||||
# Transported fields
|
||||
UP SEND DATA USER
|
||||
DATE SEC. COMES SITE RSLV OVER
|
||||
FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
2 PATIENT YES NO NO NO
|
||||
Partial DD: subDD: 2 fld: .351 (DATE OF DEATH, transported for xrefs)
|
||||
fld: 250043.1 (PRELIMINARY CAUSE OF DEATH)
|
||||
fld: 256000 (LANGUAGE PREFERENCE)
|
||||
subDD: 2.0256001 (LANGUAGE SKILLS SUB-FIELD)
|
||||
|
||||
200 NEW PERSON YES NO NO NO
|
||||
Partial DD: subDD: 200 fld: 256000 (PREFERRED LANGUAGE)
|
||||
subDD: 200.0256001 (LANGUAGE SKILLS SUB-FIELD)
|
||||
|
||||
|
||||
## Language and Interpreter Language
|
||||
The routines `DG10`, `DGREG`, and `DGPMV` have been modifed to call `D REGMU^VWUTIL` for patients. This routine calls edits fields using the input template `VW LOCAL REGISTRATION TEMPLATE`. The routines correspond to the 3 ways you can enter a patient into VISTA.
|
||||
|
||||
* DG REGISTER PATIENT Register a Patient DGREG
|
||||
* DG LOAD PATIENT DATA Load/Edit Patient Data DG10
|
||||
* DG ADMIT PATIENT Admit a Patient DGPMV
|
||||
|
||||
The post-install routine POST^VWREGPI adds the input template `VW LOCAL REGISTRATION TEMPLATE` to field REGISTRATION TEMPLATE (LOCAL) in file MAS PARAMETERS. This shows the language questions in the 10/10 form processor (DGRP).
|
||||
|
||||
The routine VWUTIL gets called to do the ^DIE call to VW LOCAL REGISTRATION TEMPLATE. It's therefore shipped.
|
||||
|
||||
The routine ORCXPND1 was modified to display Language Preference from the Patient File.
|
||||
|
||||
The routine DGRP2 was modified to correct the display of Interpreter Language. Previously it got the language text from field 1, but in the new language file, the appropriate field is .01.
|
||||
|
||||
## Preliminary Cause of Death
|
||||
* The routine DGDEATH now asks for the Preliminary Cause of Death if a Date of Death is entered. If the date of death is not entered or deleted, the preliminary cause of death is not asked.
|
||||
* The Date of Death field in the patient file has a Mumps type cross-reference that deletes the preliminary cause of death if the date of death is modified or deleted.
|
||||
* The routine DGRPD in RMKff was modified to display Preliminary Cause of Death.
|
||||
* The VW ENTER PRELIM CAUSE OF DEATH is a new menu option off the DG BED CONTROL menu. For discharged patients who are discharged as DEAD, this menu option allows you to enter a Preliminary Cause of Death. The reason this menu option is not on DG REGISTRATION MENU as well is that DG REGISTRATION MENU already includes the menu option DG DEATH ENTRY, which will call routine DGDEATH.
|
||||
Loading…
Reference in New Issue