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

DINIT2A4.m

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