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