source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT011.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 6.7 KB
Line 
1DINIT011 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
2 ;;22.0;VA FileMan;;Mar 30, 1999
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
5Q 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^10
30 ;;^DD(.85,0,"DDA")
31 ;;=N
32 ;;^DD(.85,0,"DT")
33 ;;=2960318
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,0,"PT",200,200.07)
45 ;;=
46 ;;^DD(.85,0,"PT",8989.3,207)
47 ;;=
48 ;;^DD(.85,.01,0)
49 ;;=ID NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X S:$G(X) DINUM=X
50 ;;^DD(.85,.01,.1)
51 ;;=Language-ID-Number
52 ;;^DD(.85,.01,1,0)
53 ;;=^.1
54 ;;^DD(.85,.01,1,1,0)
55 ;;=.85^B
56 ;;^DD(.85,.01,1,1,1)
57 ;;=S ^DI(.85,"B",$E(X,1,30),DA)=""
58 ;;^DD(.85,.01,1,1,2)
59 ;;=K ^DI(.85,"B",$E(X,1,30),DA)
60 ;;^DD(.85,.01,3)
61 ;;=Type a Number between 1 and 9999999999, 0 Decimal Digits
62 ;;^DD(.85,.01,21,0)
63 ;;=^^3^3^2941121^^
64 ;;^DD(.85,.01,21,1,0)
65 ;;=A number that is used to uniquely identify a language. This number
66 ;;^DD(.85,.01,21,2,0)
67 ;;=corresponds to the FileMan system variable DUZ("LANG"), which is set
68 ;;^DD(.85,.01,21,3,0)
69 ;;=during Kernel signon to signify which language FileMan should use.
70 ;;^DD(.85,.01,"DT")
71 ;;=2940524
72 ;;^DD(.85,1,0)
73 ;;=NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X
74 ;;^DD(.85,1,.1)
75 ;;=Language-Name
76 ;;^DD(.85,1,1,0)
77 ;;=^.1
78 ;;^DD(.85,1,1,1,0)
79 ;;=.85^C
80 ;;^DD(.85,1,1,1,1)
81 ;;=S ^DI(.85,"C",$E(X,1,30),DA)=""
82 ;;^DD(.85,1,1,1,2)
83 ;;=K ^DI(.85,"C",$E(X,1,30),DA)
84 ;;^DD(.85,1,1,1,"DT")
85 ;;=2940307
86 ;;^DD(.85,1,3)
87 ;;=Answer must be 1-30 characters in length. (e.g., ENGLISH, GERMAN, FRENCH)
88 ;;^DD(.85,1,21,0)
89 ;;=^^2^2^2941121^
90 ;;^DD(.85,1,21,1,0)
91 ;;=The descriptive name of the language corresponding to this entry (i.e.,
92 ;;^DD(.85,1,21,2,0)
93 ;;=German, Spanish).
94 ;;^DD(.85,1,23,0)
95 ;;=^^1^1^2940524^^
96 ;;^DD(.85,1,23,1,0)
97 ;;=Descriptive name of this language (e.g., ENGLISH, GERMAN).
98 ;;^DD(.85,1,"DT")
99 ;;=2940524
100 ;;^DD(.85,10.1,0)
101 ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
102 ;;^DD(.85,10.1,3)
103 ;;=This is Standard MUMPS code.
104 ;;^DD(.85,10.1,9)
105 ;;=@
106 ;;^DD(.85,10.1,21,0)
107 ;;=^^6^6^2941121^^^^
108 ;;^DD(.85,10.1,21,1,0)
109 ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
110 ;;^DD(.85,10.1,21,2,0)
111 ;;=this language. The code should set Y to the ordinal equivalent without
112 ;;^DD(.85,10.1,21,3,0)
113 ;;=altering any other variables in the environment. Ex. in English:
114 ;;^DD(.85,10.1,21,4,0)
115 ;;= Y=1 becomes Y=1ST
116 ;;^DD(.85,10.1,21,5,0)
117 ;;= Y=2 becomes Y=2ND
118 ;;^DD(.85,10.1,21,6,0)
119 ;;= Y=3 becomes Y=3RD etc.
120 ;;^DD(.85,10.1,"DT")
121 ;;=2940307
122 ;;^DD(.85,10.2,0)
123 ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
124 ;;^DD(.85,10.2,3)
125 ;;=This is Standard MUMPS code.
126 ;;^DD(.85,10.2,9)
127 ;;=@
128 ;;^DD(.85,10.2,21,0)
129 ;;=^^6^6^2941121^^^
130 ;;^DD(.85,10.2,21,1,0)
131 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
132 ;;^DD(.85,10.2,21,2,0)
133 ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
134 ;;^DD(.85,10.2,21,3,0)
135 ;;=The code should set Y to the output, without altering any other variables
136 ;;^DD(.85,10.2,21,4,0)
137 ;;=in the environment. Ex. in English:
138 ;;^DD(.85,10.2,21,5,0)
139 ;;=
140 ;;^DD(.85,10.2,21,6,0)
141 ;;= Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45
142 ;;^DD(.85,10.2,"DT")
143 ;;=2940307
144 ;;^DD(.85,10.21,0)
145 ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
146 ;;^DD(.85,10.21,3)
147 ;;=This is Standard MUMPS code.
148 ;;^DD(.85,10.21,9)
149 ;;=@
150 ;;^DD(.85,10.21,21,0)
151 ;;=^^22^22^2941122^
152 ;;^DD(.85,10.21,21,1,0)
153 ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
154 ;;^DD(.85,10.21,21,2,0)
155 ;;=format, to printable format based on the various outputs from routine
156 ;;^DD(.85,10.21,21,3,0)
157 ;;=FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS
158 ;;^DD(.85,10.21,21,4,0)
159 ;;=code, in addition to the internal date in Y, a third parameter will be
160 ;;^DD(.85,10.21,21,5,0)
161 ;;=defined to contain flags equivalent to the flag passed as the second input
162 ;;^DD(.85,10.21,21,6,0)
163 ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
164 ;;^DD(.85,10.21,21,7,0)
165 ;;=altering any other variables in the environment. The output should be
166 ;;^DD(.85,10.21,21,8,0)
167 ;;=formatted based on these flags:
168 ;;^DD(.85,10.21,21,9,0)
169 ;;=
170 ;;^DD(.85,10.21,21,10,0)
171 ;;= 1 MMM DD, YYYY@HH:MM:SS
172 ;;^DD(.85,10.21,21,11,0)
173 ;;= 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day
174 ;;^DD(.85,10.21,21,12,0)
175 ;;= 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day
176 ;;^DD(.85,10.21,21,13,0)
177 ;;= 4 YY/MM/DD@HH:MM:SS
178 ;;^DD(.85,10.21,21,14,0)
179 ;;= 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day
180 ;;^DD(.85,10.21,21,15,0)
181 ;;= 6 MM-DD-YYYY @ HH:MM:SS spaces separate time
182 ;;^DD(.85,10.21,21,16,0)
183 ;;= 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day
184 ;;^DD(.85,10.21,21,17,0)
185 ;;=
186 ;;^DD(.85,10.21,21,18,0)
187 ;;=letters in the flag
188 ;;^DD(.85,10.21,21,19,0)
189 ;;= S return always seconds
190 ;;^DD(.85,10.21,21,20,0)
191 ;;= U return uppercase month names
192 ;;^DD(.85,10.21,21,21,0)
193 ;;= P return time as am,pm
194 ;;^DD(.85,10.21,21,22,0)
195 ;;= D return only date part
196 ;;^DD(.85,10.21,"DT")
197 ;;=2940624
198 ;;^DD(.85,10.22,0)
199 ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
200 ;;^DD(.85,10.22,3)
201 ;;=This is Standard MUMPS code for the output of time only.
202 ;;^DD(.85,10.22,9)
203 ;;=@
204 ;;^DD(.85,10.22,21,0)
205 ;;=^^2^2^2960318^
206 ;;^DD(.85,10.22,21,1,0)
207 ;;=The code stored here will be used to get formatted output of the time
208 ;;^DD(.85,10.22,21,2,0)
209 ;;=part belonging to a FileMan Date/Time value.
210 ;;^DD(.85,10.22,"DT")
211 ;;=2960318
212 ;;^DD(.85,10.3,0)
213 ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
Note: See TracBrowser for help on using the repository browser.