Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT011

DINIT011.m

Go to the documentation of this file. 
  1. DINIT011 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99  10:41:48
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  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
  1. Q Q
  1.  ;;^DIC(.85,0,"GL")
  1.  ;;=^DI(.85,
  1.  ;;^DIC("B","LANGUAGE",.85)
  1.  ;;=
  1.  ;;^DIC(.85,"%",0)
  1.  ;;=^1.005
  1.  ;;^DIC(.85,"%D",0)
  1.  ;;=^^7^7^2941122^
  1.  ;;^DIC(.85,"%D",1,0)
  1.  ;;=The LANGUAGE file is used both to officially identify a language, and to
  1.  ;;^DIC(.85,"%D",2,0)
  1.  ;;=store MUMPS code needed to do language-specific conversions of data such
  1.  ;;^DIC(.85,"%D",3,0)
  1.  ;;=as dates and numbers.  VA FileMan currently distributes only the English
  1.  ;;^DIC(.85,"%D",4,0)
  1.  ;;=language entry for this file (entry number 1).  This code is currently
  1.  ;;^DIC(.85,"%D",5,0)
  1.  ;;=available for use only within VA FileMan.  A pointer to this file from the
  1.  ;;^DIC(.85,"%D",6,0)
  1.  ;;=TRANSLATION multiple on the DIALOG file also allows non-English text to be
  1.  ;;^DIC(.85,"%D",7,0)
  1.  ;;=returned via FileMan calls.
  1.  ;;^DD(.85,0)
  1.  ;;=FIELD^^20.2^10
  1.  ;;^DD(.85,0,"DDA")
  1.  ;;=N
  1.  ;;^DD(.85,0,"DT")
  1.  ;;=2960318
  1.  ;;^DD(.85,0,"ID",1)
  1.  ;;=W "   ",$P(^(0),U,2)
  1.  ;;^DD(.85,0,"IX","B",.85,.01)
  1.  ;;=
  1.  ;;^DD(.85,0,"IX","C",.85,1)
  1.  ;;=
  1.  ;;^DD(.85,0,"NM","LANGUAGE")
  1.  ;;=
  1.  ;;^DD(.85,0,"PT",.847,.01)
  1.  ;;=
  1.  ;;^DD(.85,0,"PT",200,200.07)
  1.  ;;=
  1.  ;;^DD(.85,0,"PT",8989.3,207)
  1.  ;;=
  1.  ;;^DD(.85,.01,0)
  1.  ;;=ID NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X S:$G(X) DINUM=X
  1.  ;;^DD(.85,.01,.1)
  1.  ;;=Language-ID-Number
  1.  ;;^DD(.85,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.85,.01,1,1,0)
  1.  ;;=.85^B
  1.  ;;^DD(.85,.01,1,1,1)
  1.  ;;=S ^DI(.85,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.85,.01,1,1,2)
  1.  ;;=K ^DI(.85,"B",$E(X,1,30),DA)
  1.  ;;^DD(.85,.01,3)
  1.  ;;=Type a Number between 1 and 9999999999, 0 Decimal Digits
  1.  ;;^DD(.85,.01,21,0)
  1.  ;;=^^3^3^2941121^^
  1.  ;;^DD(.85,.01,21,1,0)
  1.  ;;=A number that is used to uniquely identify a language.  This number
  1.  ;;^DD(.85,.01,21,2,0)
  1.  ;;=corresponds to the FileMan system variable DUZ("LANG"), which is set
  1.  ;;^DD(.85,.01,21,3,0)
  1.  ;;=during Kernel signon to signify which language FileMan should use.
  1.  ;;^DD(.85,.01,"DT")
  1.  ;;=2940524
  1.  ;;^DD(.85,1,0)
  1.  ;;=NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X
  1.  ;;^DD(.85,1,.1)
  1.  ;;=Language-Name
  1.  ;;^DD(.85,1,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.85,1,1,1,0)
  1.  ;;=.85^C
  1.  ;;^DD(.85,1,1,1,1)
  1.  ;;=S ^DI(.85,"C",$E(X,1,30),DA)=""
  1.  ;;^DD(.85,1,1,1,2)
  1.  ;;=K ^DI(.85,"C",$E(X,1,30),DA)
  1.  ;;^DD(.85,1,1,1,"DT")
  1.  ;;=2940307
  1.  ;;^DD(.85,1,3)
  1.  ;;=Answer must be 1-30 characters in length. (e.g., ENGLISH, GERMAN, FRENCH)
  1.  ;;^DD(.85,1,21,0)
  1.  ;;=^^2^2^2941121^
  1.  ;;^DD(.85,1,21,1,0)
  1.  ;;=The descriptive name of the language corresponding to this entry (i.e.,
  1.  ;;^DD(.85,1,21,2,0)
  1.  ;;=German, Spanish).
  1.  ;;^DD(.85,1,23,0)
  1.  ;;=^^1^1^2940524^^
  1.  ;;^DD(.85,1,23,1,0)
  1.  ;;=Descriptive name of this language (e.g., ENGLISH, GERMAN).
  1.  ;;^DD(.85,1,"DT")
  1.  ;;=2940524
  1.  ;;^DD(.85,10.1,0)
  1.  ;;=ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.85,10.1,3)
  1.  ;;=This is Standard MUMPS code.
  1.  ;;^DD(.85,10.1,9)
  1.  ;;=@
  1.  ;;^DD(.85,10.1,21,0)
  1.  ;;=^^6^6^2941121^^^^
  1.  ;;^DD(.85,10.1,21,1,0)
  1.  ;;=MUMPS code used to transfer a number in Y to its ordinal equivalent in
  1.  ;;^DD(.85,10.1,21,2,0)
  1.  ;;=this language. The code should set Y to the ordinal equivalent without
  1.  ;;^DD(.85,10.1,21,3,0)
  1.  ;;=altering any other variables in the environment.  Ex. in English:
  1.  ;;^DD(.85,10.1,21,4,0)
  1.  ;;=       Y=1     becomes         Y=1ST
  1.  ;;^DD(.85,10.1,21,5,0)
  1.  ;;=       Y=2     becomes         Y=2ND
  1.  ;;^DD(.85,10.1,21,6,0)
  1.  ;;=       Y=3     becomes         Y=3RD  etc.
  1.  ;;^DD(.85,10.1,"DT")
  1.  ;;=2940307
  1.  ;;^DD(.85,10.2,0)
  1.  ;;=DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.85,10.2,3)
  1.  ;;=This is Standard MUMPS code.
  1.  ;;^DD(.85,10.2,9)
  1.  ;;=@
  1.  ;;^DD(.85,10.2,21,0)
  1.  ;;=^^6^6^2941121^^^
  1.  ;;^DD(.85,10.2,21,1,0)
  1.  ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
  1.  ;;^DD(.85,10.2,21,2,0)
  1.  ;;=format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS.
  1.  ;;^DD(.85,10.2,21,3,0)
  1.  ;;=The code should set Y to the output, without altering any other variables
  1.  ;;^DD(.85,10.2,21,4,0)
  1.  ;;=in the environment.  Ex. in English:
  1.  ;;^DD(.85,10.2,21,5,0)
  1.  ;;= 
  1.  ;;^DD(.85,10.2,21,6,0)
  1.  ;;=       Y=2940612.031245        becomes         Y=JUN 12,1994@03:12:45
  1.  ;;^DD(.85,10.2,"DT")
  1.  ;;=2940307
  1.  ;;^DD(.85,10.21,0)
  1.  ;;=DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.85,10.21,3)
  1.  ;;=This is Standard MUMPS code.
  1.  ;;^DD(.85,10.21,9)
  1.  ;;=@
  1.  ;;^DD(.85,10.21,21,0)
  1.  ;;=^^22^22^2941122^
  1.  ;;^DD(.85,10.21,21,1,0)
  1.  ;;=MUMPS code used to transfer a date or date/time in Y from FileMan internal
  1.  ;;^DD(.85,10.21,21,2,0)
  1.  ;;=format, to printable format based on the various outputs from routine
  1.  ;;^DD(.85,10.21,21,3,0)
  1.  ;;=FMTE^DILIBF.  This is an extrinsic function.  Coming in to this MUMPS
  1.  ;;^DD(.85,10.21,21,4,0)
  1.  ;;=code, in addition to the internal date in Y, a third parameter will be
  1.  ;;^DD(.85,10.21,21,5,0)
  1.  ;;=defined to contain flags equivalent to the flag passed as the second input
  1.  ;;^DD(.85,10.21,21,6,0)
  1.  ;;=parameter to FMTE^DILIBF. The code should set Y to the output, without
  1.  ;;^DD(.85,10.21,21,7,0)
  1.  ;;=altering any other variables in the environment.  The output should be
  1.  ;;^DD(.85,10.21,21,8,0)
  1.  ;;=formatted based on these flags:
  1.  ;;^DD(.85,10.21,21,9,0)
  1.  ;;= 
  1.  ;;^DD(.85,10.21,21,10,0)
  1.  ;;= 1    MMM DD, YYYY@HH:MM:SS
  1.  ;;^DD(.85,10.21,21,11,0)
  1.  ;;= 2    MM/DD/YY@HH:MM:SS     no leading zeroes on month,day
  1.  ;;^DD(.85,10.21,21,12,0)
  1.  ;;= 3    DD/MM/YY@HH:MM:SS     no leading zeroes on month,day
  1.  ;;^DD(.85,10.21,21,13,0)
  1.  ;;= 4    YY/MM/DD@HH:MM:SS
  1.  ;;^DD(.85,10.21,21,14,0)
  1.  ;;= 5    MMM DD,YYYY@HH:MM:SS  no space before year,no leading zero on day
  1.  ;;^DD(.85,10.21,21,15,0)
  1.  ;;= 6    MM-DD-YYYY @ HH:MM:SS spaces separate time 
  1.  ;;^DD(.85,10.21,21,16,0)
  1.  ;;= 7    MM-DD-YYYY@HH:MM:SS   no leading zeroes on month,day
  1.  ;;^DD(.85,10.21,21,17,0)
  1.  ;;= 
  1.  ;;^DD(.85,10.21,21,18,0)
  1.  ;;=letters in the flag
  1.  ;;^DD(.85,10.21,21,19,0)
  1.  ;;= S    return always seconds
  1.  ;;^DD(.85,10.21,21,20,0)
  1.  ;;= U    return uppercase month names
  1.  ;;^DD(.85,10.21,21,21,0)
  1.  ;;= P    return time as am,pm
  1.  ;;^DD(.85,10.21,21,22,0)
  1.  ;;= D    return only date part
  1.  ;;^DD(.85,10.21,"DT")
  1.  ;;=2940624
  1.  ;;^DD(.85,10.22,0)
  1.  ;;=TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.85,10.22,3)
  1.  ;;=This is Standard MUMPS code for the output of time only.
  1.  ;;^DD(.85,10.22,9)
  1.  ;;=@
  1.  ;;^DD(.85,10.22,21,0)
  1.  ;;=^^2^2^2960318^
  1.  ;;^DD(.85,10.22,21,1,0)
  1.  ;;=The code stored here will be used to get formatted output of the time
  1.  ;;^DD(.85,10.22,21,2,0)
  1.  ;;=part belonging to a FileMan Date/Time value.
  1.  ;;^DD(.85,10.22,"DT")
  1.  ;;=2960318
  1.  ;;^DD(.85,10.3,0)
  1.  ;;=CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM