1: DINIT017 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: 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
5: Q Q
6: ;;^DIC(.85,0,"GL")
7: ;;=^DI(.85,
8: ;;^DIC("B","LANGUAGE",.85)
9: ;;=
10: ;;^DIC(.85,"%",0)
11: ;;=^1.005
12: ;;^DIC(.85,"%D",0)
13: ;;=^^7^7^2941122^
14: ;;^DIC(.85,"%D",1,0)
15: ;;=The LANGUAGE file is used both to officially identify a language, and to
16: ;;^DIC(.85,"%D",2,0)
17: ;;=store MUMPS code needed to do language-specific conversions of data such
18: ;;^DIC(.85,"%D",3,0)
19: ;;=as dates and numbers. VA FileMan currently distributes only the English
20: ;;^DIC(.85,"%D",4,0)
21: ;;=language entry for this file (entry number 1). This code is currently
22: ;;^DIC(.85,"%D",5,0)
23: ;;=available for use only within VA FileMan. A pointer to this file from the
24: ;;^DIC(.85,"%D",6,0)
25: ;;=TRANSLATION multiple on the DIALOG file also allows non-English text to be
26: ;;^DIC(.85,"%D",7,0)
27: ;;=returned via FileMan calls.
28: ;;^DD(.85,0)
29: ;;=FIELD^^20.2^9
30: ;;^DD(.85,0,"DDA")
31: ;;=N
32: ;;^DD(.85,0,"DT")
33: ;;=2940714
34: ;;^DD(.85,0,"ID",1)
35: ;;=W " ",$P(^(0),U,2)
36: ;;^DD(.85,0,"IX","B",.85,.01)
37: ;;=
38: ;;^DD(.85,0,"IX","C",.85,1)
39: ;;=
40: ;;^DD(.85,0,"NM","LANGUAGE")
41: ;;=
42: ;;^DD(.85,0,"PT",.847,.01)
43: ;;=
44: ;;^DD(.85,.01,0)
45: ;;=ID NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X S:$G(X) DINUM=X
46: ;;^DD(.85,.01,.1)
47: ;;=Language-ID-Number
48: ;;^DD(.85,.01,1,0)
49: ;;=^.1
50: ;;^DD(.85,.01,1,1,0)
51: ;;=.85^B
52: ;;^DD(.85,.01,1,1,1)
53: ;;=S ^DI(.85,"B",$E(X,1,30),DA)=""
54: ;;^DD(.85,.01,1,1,2)
55: ;;=K ^DI(.85,"B",$E(X,1,30),DA)
56: ;;^DD(.85,.01,3)
57: ;;=Type a Number between 1 and 9999999999, 0 Decimal Digits
58: ;;^DD(.85,.01,21,0)
59: ;;=^^3^3^2941121^^
60: ;;^DD(.85,.01,21,1,0)
61: ;;=A number that is used to uniquely identify a language. This number
62: ;;^DD(.85,.01,21,2,0)
63: ;;=corresponds to the FileMan system variable DUZ("LANG"), which is set
64: ;;^DD(.85,.01,21,3,0)
65: ;;=during Kernel signon to signify which language FileMan should use.
66: ;;^DD(.85,.01,"DT")
67: ;;=2940524
68: ;;^DD(.85,1,0)
69: ;;=NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X
70: ;;^DD(.85,1,.1)
71: ;;=Language-Name
72: ;;^DD(.85,1,1,0)
73: ;;=^.1
74: ;;^DD(.85,1,1,1,0)
75: ;;=.85^C
76: ;;^DD(.85,1,1,1,1)
77: ;;=S ^DI(.85,"C",$E(X,1,30),DA)=""
78: ;;^DD(.85,1,1,1,2)
79: ;;=K ^DI(.85,"C",$E(X,1,30),DA)
80: ;;^DD(.85,1,1,1,"DT")
81: ;;=2940307
82: ;;^DD(.85,1,3)
83: ;;=Answer must be 1-30 characters in length. (e.g., ENGLISH, GERMAN, FRENCH)
84: ;;^DD(.85,1,21,0)
85: ;;=^^2^2^2941121^
86: ;;^DD(.85,1,21,1,0)
87: ;;=The descriptive name of the language corresponding to this entry (i.e.,
88: ;;^DD(.85,1,21,2,0)
89: ;;=German, Spanish).
90: ;;^DD(.85,1,"DT")
91: ;;=2940524
92: ;;^DD(.85,10.1,0)
93: ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
94: ;;^DD(.85,10.1,3)
95: ;;=This is Standard MUMPS code.
96: ;;^DD(.85,10.1,9)
97: ;;=@
98: ;;^DD(.85,10.1,21,0)
99: ;;=^^6^6^2941121^^^^
100: ;;^DD(.85,10.1,21,1,0)
101: ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
102: ;;^DD(.85,10.1,21,2,0)
103: ;;=this language. The code should set Y to the ordinal equivalent without
104: ;;^DD(.85,10.1,21,3,0)
105: ;;=altering any other variables in the environment. Ex. in English:
106: ;;^DD(.85,10.1,21,4,0)
107: ;;= Y=1 becomes Y=1ST
108: ;;^DD(.85,10.1,21,5,0)
109: ;;= Y=2 becomes Y=2ND
110: ;;^DD(.85,10.1,21,6,0)
111: ;;= Y=3 becomes Y=3RD etc.
112: ;;^DD(.85,10.1,"DT")
113: ;;=2940307
114: ;;^DD(.85,10.2,0)
115: ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
116: ;;^DD(.85,10.2,3)
117: ;;=This is Standard MUMPS code.
118: ;;^DD(.85,10.2,9)
119: ;;=@
120: ;;^DD(.85,10.2,21,0)
121: ;;=^^6^6^2941121^^^
122: ;;^DD(.85,10.2,21,1,0)
123: ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
124: ;;^DD(.85,10.2,21,2,0)
125: ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
126: ;;^DD(.85,10.2,21,3,0)
127: ;;=The code should set Y to the output, without altering any other variables
128: ;;^DD(.85,10.2,21,4,0)
129: ;;=in the environment. Ex. in English:
130: ;;^DD(.85,10.2,21,5,0)
131: ;;=
132: ;;^DD(.85,10.2,21,6,0)
133: ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
134: ;;^DD(.85,10.2,"DT")
135: ;;=2940307
136: ;;^DD(.85,10.21,0)
137: ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
138: ;;^DD(.85,10.21,3)
139: ;;=This is Standard MUMPS code.
140: ;;^DD(.85,10.21,9)
141: ;;=@
142: ;;^DD(.85,10.21,21,0)
143: ;;=^^22^22^2941122^
144: ;;^DD(.85,10.21,21,1,0)
145: ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
146: ;;^DD(.85,10.21,21,2,0)
147: ;;=format, to printable format based on the various outputs from routine
148: ;;^DD(.85,10.21,21,3,0)
149: ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT017.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman / USER