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

DINIT2A4 ;SFISC/MKO-KEY AND INDEX FILES ;3:01 PM  10 Jan 2000
 ;;22.0;VA FileMan;**1,20**;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
 G ^DINIT2A5
Q Q
 ;;^DD(.114,5.3,0)
 ;;=TRANSFORM FOR LOOKUP^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.114,5.3,3)
 ;;=This is Standard MUMPS code. Answer '??' for more help.
 ;;^DD(.114,5.3,9)
 ;;=@
 ;;^DD(.114,5.3,21,0)
 ;;=^^10^10^3000106^
 ;;^DD(.114,5.3,21,1,0)
 ;;=Used only during lookup.
 ;;^DD(.114,5.3,21,2,0)
 ;;= 
 ;;^DD(.114,5.3,21,3,0)
 ;;=Answer should be M code that sets the variable X to a new value. X is the
 ;;^DD(.114,5.3,21,4,0)
 ;;=only input variable that is guaranteed to be defined and is equal to the
 ;;^DD(.114,5.3,21,5,0)
 ;;=lookup value entered by the user.
 ;;^DD(.114,5.3,21,6,0)
 ;;= 
 ;;^DD(.114,5.3,21,7,0)
 ;;=During lookup, if the lookup value is not found in the index, FileMan will
 ;;^DD(.114,5.3,21,8,0)
 ;;=execute the TRANSFORM FOR LOOKUP code to transform the lookup value X. It
 ;;^DD(.114,5.3,21,9,0)
 ;;=will then search this index looking for a match to the transformed lookup
 ;;^DD(.114,5.3,21,10,0)
 ;;=value.
 ;;^DD(.114,5.3,"DT")
 ;;=3000105
 ;;^DD(.114,5.5,0)
 ;;=TRANSFORM FOR DISPLAY^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
 ;;^DD(.114,5.5,3)
 ;;=This is Standard MUMPS code. Answer '??' for more help.
 ;;^DD(.114,5.5,9)
 ;;=@
 ;;^DD(.114,5.5,21,0)
 ;;=^^16^16^3000106^
 ;;^DD(.114,5.5,21,1,0)
 ;;=Used only during lookup.
 ;;^DD(.114,5.5,21,2,0)
 ;;= 
 ;;^DD(.114,5.5,21,3,0)
 ;;=Answer should be M code that sets the variable X to a new value. X is the
 ;;^DD(.114,5.5,21,4,0)
 ;;=only variable that is guaranteed to be defined and is equal to the value
 ;;^DD(.114,5.5,21,5,0)
 ;;=of the subscript from the index.
 ;;^DD(.114,5.5,21,6,0)
 ;;= 
 ;;^DD(.114,5.5,21,7,0)
 ;;=TRANSFORM FOR DISPLAY should be set only for an index value that has been
 ;;^DD(.114,5.5,21,8,0)
 ;;=transformed using the code in the TRANSFORM FOR STORAGE prior to storing
 ;;^DD(.114,5.5,21,9,0)
 ;;=the value in the index.
 ;;^DD(.114,5.5,21,10,0)
 ;;= 
 ;;^DD(.114,5.5,21,11,0)
 ;;=The code should take the internal value from the index subscript X, and
 ;;^DD(.114,5.5,21,12,0)
 ;;=convert it back to a format that can be displayed to an end user.  During
 ;;^DD(.114,5.5,21,13,0)
 ;;=lookup, if a match or matches are made to a lookup value that was
 ;;^DD(.114,5.5,21,14,0)
 ;;=transformed using the TRANSFORM FOR LOOKUP code on this index, then
 ;;^DD(.114,5.5,21,15,0)
 ;;=FileMan will execute the TRANSFORM FOR DISPLAY code before displaying the
 ;;^DD(.114,5.5,21,16,0)
 ;;=index value(s) to the end user.
 ;;^DD(.114,5.5,"DT")
 ;;=2980731
 ;;^DD(.114,6,0)
 ;;=MAXIMUM LENGTH^NJ3,0^^0;5^K:+X'=X!(X>240)!(X<1)!(X?.E1"."1N.N) X
 ;;^DD(.114,6,3)
 ;;=Answer must be between 1 and 240, with no decimal digits. Answer '??' for more help.
 ;;^DD(.114,6,21,0)
 ;;=^^7^7^2980911^
 ;;^DD(.114,6,21,1,0)
 ;;=Answer must be the maximum length this cross-reference value should have
 ;;^DD(.114,6,21,2,0)
 ;;=when stored as a subscript in the index. FileMan's lookup utilties
 ;;^DD(.114,6,21,3,0)
 ;;=account for lookup values longer than the maximum length.
 ;;^DD(.114,6,21,4,0)
 ;;= 
 ;;^DD(.114,6,21,5,0)
 ;;=Specify a MAXIMUM LENGTH when an untruncated subscript may cause the
 ;;^DD(.114,6,21,6,0)
 ;;=length of a global reference in the index to exceed the M Portability
 ;;^DD(.114,6,21,7,0)
 ;;=Requirements.
 ;;^DD(.114,6,"DT")
 ;;=2960219
 ;;^DD(.114,7,0)
 ;;=COLLATION^S^F:forwards;B:backwards;^0;7^Q
 ;;^DD(.114,7,3)
 ;;=Answer '??' for more help.
 ;;^DD(.114,7,21,0)
 ;;=^^7^7^2980911^
 ;;^DD(.114,7,21,1,0)
 ;;=Answer with the direction FileMan's lookup utilities should $ORDER through
 ;;^DD(.114,7,21,2,0)
 ;;=this subscript when entries are returned or displayed to the user. If for
 ;;^DD(.114,7,21,3,0)
 ;;=example, you have a compound index on a Date of Birth field and a Name
 ;;^DD(.114,7,21,4,0)
 ;;=field, and you specify a COLLATION of 'backwards' on the Date of Birth
 ;;^DD(.114,7,21,5,0)
 ;;=value, the Lister and the Finder will return entries in reverse-date
 ;;^DD(.114,7,21,6,0)
 ;;=order. Likewise, question mark (?) help and partial matches in interactive
 ;;^DD(.114,7,21,7,0)
 ;;=^DIC lookups will display entries in reverse-date order.
 ;;^DD(.114,7,"DT")
 ;;=2970213
 ;;^DD(.114,8,0)
 ;;=LOOKUP PROMPT^F^^0;8^K:$L(X)>30!($L(X)<1) X
 ;;^DD(.114,8,3)
 ;;=Answer must be 1-30 characters in length. Answer '??' for more help.
 ;;^DD(.114,8,21,0)
 ;;=^^3^3^2980911^
 ;;^DD(.114,8,21,1,0)
 ;;=The text entered here will become a prompt for the user when this index is
 ;;^DD(.114,8,21,2,0)
 ;;=used for lookup (i.e., in the Classic FileMan calls to ^DIC.)  If the text
 ;;^DD(.114,8,21,3,0)
 ;;=is missing, then the FIELD LABEL will be used as a default.
 ;;^DD(.114,8,"DT")
 ;;=2970506