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

DINIT2A0.m

Go to the documentation of this file. 
  1. DINIT2A0 ;SFISC/MKO-KEY AND INDEX FILES ;10:50 AM  30 Mar 1999
  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.  G ^DINIT2A1
  1. Q Q
  1.  ;;^DIC(.11,0,"GL")
  1.  ;;=^DD("IX",
  1.  ;;^DIC("B","INDEX",.11)
  1.  ;;=
  1.  ;;^DIC(.11,"%D",0)
  1.  ;;=^^5^5^2980911^
  1.  ;;^DIC(.11,"%D",1,0)
  1.  ;;=This file stores information about new-style cross-references defined on a
  1.  ;;^DIC(.11,"%D",2,0)
  1.  ;;=file. Whereas traditional cross-references are stored under the 1 nodes of
  1.  ;;^DIC(.11,"%D",3,0)
  1.  ;;=the ^DD for a particular field, new-style cross-references are stored in
  1.  ;;^DIC(.11,"%D",4,0)
  1.  ;;=this file and can consist of one field (simple cross-references), as well
  1.  ;;^DIC(.11,"%D",5,0)
  1.  ;;=as more than one field (compound cross-references).
  1.  ;;^DD(.11,0)
  1.  ;;=FIELD^^11.1^20
  1.  ;;^DD(.11,0,"DDA")
  1.  ;;=N
  1.  ;;^DD(.11,0,"DT")
  1.  ;;=2980908
  1.  ;;^DD(.11,0,"ID","DI SHORT DESCRIPTION 50")
  1.  ;;=D EN^DDIOL($E($P(^(0),U,3),1,50),"","?0")
  1.  ;;^DD(.11,0,"IX","AC",.11,.51)
  1.  ;;=
  1.  ;;^DD(.11,0,"IX","B",.11,.01)
  1.  ;;=
  1.  ;;^DD(.11,0,"NM","INDEX")
  1.  ;;=
  1.  ;;^DD(.11,0,"PT",.31,3)
  1.  ;;=
  1.  ;;^DD(.11,.01,0)
  1.  ;;=FILE^RNJ20,7^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."8N.N) X
  1.  ;;^DD(.11,.01,1,0)
  1.  ;;=^.1^^-1
  1.  ;;^DD(.11,.01,1,1,0)
  1.  ;;=.11^B
  1.  ;;^DD(.11,.01,1,1,1)
  1.  ;;=S ^DD("IX","B",$E(X,1,30),DA)=""
  1.  ;;^DD(.11,.01,1,1,2)
  1.  ;;=K ^DD("IX","B",$E(X,1,30),DA)
  1.  ;;^DD(.11,.01,1,1,3)
  1.  ;;=Lets developers pick indexes by file number
  1.  ;;^DD(.11,.01,1,1,"%D",0)
  1.  ;;=^^2^2^2980911^
  1.  ;;^DD(.11,.01,1,1,"%D",1,0)
  1.  ;;=The B index, on the .01 (File) of the Index file, lets developers pick
  1.  ;;^DD(.11,.01,1,1,"%D",2,0)
  1.  ;;=indexes by the numbers of the files they cross-reference.
  1.  ;;^DD(.11,.01,3)
  1.  ;;=Answer must be between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help.
  1.  ;;^DD(.11,.01,21,0)
  1.  ;;=^^3^3^2980910^^
  1.  ;;^DD(.11,.01,21,1,0)
  1.  ;;=Answer should be the number of the file cross-referenced by this index.
  1.  ;;^DD(.11,.01,21,2,0)
  1.  ;;=For whole file cross-references on subfiles, answer with the number of
  1.  ;;^DD(.11,.01,21,3,0)
  1.  ;;=the file where the index physically resides, not the subfile number.
  1.  ;;^DD(.11,.01,"DT")
  1.  ;;=2980611
  1.  ;;^DD(.11,.02,0)
  1.  ;;=NAME^RF^^0;2^K:$L(X)>30!($L(X)<1)!'(X?1A.AN) X
  1.  ;;^DD(.11,.02,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(.11,.02,3)
  1.  ;;=Answer must be 1-30 characters in length. Answer '??' for more help.
  1.  ;;^DD(.11,.02,21,0)
  1.  ;;=^^4^4^2980911^
  1.  ;;^DD(.11,.02,21,1,0)
  1.  ;;=Answer must be the name of the index. For example, the name of the default
  1.  ;;^DD(.11,.02,21,2,0)
  1.  ;;=lookup index on a file's .01 field is B, the name of the uniqueness index
  1.  ;;^DD(.11,.02,21,3,0)
  1.  ;;=of a compound key is BB, and the name of an index not used for lookup must
  1.  ;;^DD(.11,.02,21,4,0)
  1.  ;;=start with A.
  1.  ;;^DD(.11,.02,"DT")
  1.  ;;=2990303
  1.  ;;^DD(.11,.1,0)
  1.  ;;=DESCRIPTION^.1101^^.1;0
  1.  ;;^DD(.11,.11,0)
  1.  ;;=SHORT DESCRIPTION^RF^^0;3^K:$L(X)>79!($L(X)<1) X
  1.  ;;^DD(.11,.11,3)
  1.  ;;=Answer must be 1-79 characters in length. Answer '??' for more help.
  1.  ;;^DD(.11,.11,21,0)
  1.  ;;=^^2^2^2980910^
  1.  ;;^DD(.11,.11,21,1,0)
  1.  ;;=Answer should be text briefly explaining the function of this
  1.  ;;^DD(.11,.11,21,2,0)
  1.  ;;=cross-reference.
  1.  ;;^DD(.11,.11,"DT")
  1.  ;;=2960216
  1.  ;;^DD(.11,.2,0)
  1.  ;;=TYPE^RS^R:REGULAR;MU:MUMPS;^0;4^Q
  1.  ;;^DD(.11,.2,3)
  1.  ;;=Answer '??' for more help.
  1.  ;;^DD(.11,.2,21,0)
  1.  ;;=^^5^5^2980911^
  1.  ;;^DD(.11,.2,21,1,0)
  1.  ;;=REGULAR - One or more field values are stored in an index on the file. The
  1.  ;;^DD(.11,.2,21,2,0)
  1.  ;;=index can be used for sorting, or optionally, looking up entries.
  1.  ;;^DD(.11,.2,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.11,.2,21,4,0)
  1.  ;;=MUMPS - Customizable M code executes whenever a field that makes up the
  1.  ;;^DD(.11,.2,21,5,0)
  1.  ;;=cross-references changes.
  1.  ;;^DD(.11,.2,"DT")
  1.  ;;=2970718
  1.  ;;^DD(.11,.4,0)
  1.  ;;=EXECUTION^RS^F:FIELD;R:RECORD;^0;6^Q
  1.  ;;^DD(.11,.4,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(.11,.4,3)
  1.  ;;=Answer '??' for more help.
  1.  ;;^DD(.11,.4,21,0)
  1.  ;;=^^7^7^2980911^^
  1.  ;;^DD(.11,.4,21,1,0)
  1.  ;;=Answer with the code that indicates whether the cross reference logic
  1.  ;;^DD(.11,.4,21,2,0)
  1.  ;;=should be executed after a field in the index changes, or only after all
  1.  ;;^DD(.11,.4,21,3,0)
  1.  ;;=fields in a record are updated. The logic for most simple (single-field)
  1.  ;;^DD(.11,.4,21,4,0)
  1.  ;;=indexes should be executed immediately after the field changes, and so
  1.  ;;^DD(.11,.4,21,5,0)
  1.  ;;=should get the code 'F'. The logic for most compound indexes should be
  1.  ;;^DD(.11,.4,21,6,0)
  1.  ;;=executed only once after a transaction on the entire record is complete,
  1.  ;;^DD(.11,.4,21,7,0)
  1.  ;;=and so should get the code 'R'. Exceptions to this rule are rare.
  1.  ;;^DD(.11,.4,"DT")
  1.  ;;=2980611
  1.  ;;^DD(.11,.41,0)
  1.  ;;=ACTIVITY^FX^^0;7^K:$L(X)>2!($L(X)<1)!($TR(X,"IR")]"") X
  1.  ;;^DD(.11,.41,3)
  1.  ;;=Answer must be 2 characters in length. Answer '??' for more help.
  1.  ;;^DD(.11,.41,21,0)
  1.  ;;=^^15^15^2990225^
  1.  ;;^DD(.11,.41,21,1,0)
  1.  ;;=Answer with the flags that control whether FileMan fires this
  1.  ;;^DD(.11,.41,21,2,0)
  1.  ;;=cross-reference during an installation and a re-cross-referencing
  1.  ;;^DD(.11,.41,21,3,0)
  1.  ;;=operation. The possible flags are:
  1.  ;;^DD(.11,.41,21,4,0)
  1.  ;;= 
  1.  ;;^DD(.11,.41,21,5,0)
  1.  ;;=  I = Installing an entry at a site
  1.  ;;^DD(.11,.41,21,6,0)
  1.  ;;=  R = Re-cross-referencing this index
  1.  ;;^DD(.11,.41,21,7,0)
  1.  ;;= 
  1.  ;;^DD(.11,.41,21,8,0)
  1.  ;;=FileMan automatically fires cross-references during an edit, regardless of
  1.  ;;^DD(.11,.41,21,9,0)
  1.  ;;=Activity, though you can control whether a cross-reference is fired by
  1.  ;;^DD(.11,.41,21,10,0)
  1.  ;;=entering Set and Kill Conditions.
  1.  ;;^DD(.11,.41,21,11,0)
  1.  ;;= 
  1.  ;;^DD(.11,.41,21,12,0)
  1.  ;;=Also, if you explicity select a cross-reference in an EN^DIK, EN1^DIK, or
  1.  ;;^DD(.11,.41,21,13,0)
  1.  ;;=ENALL^DIK call, or in the UTILITY FUNCTIONS/RE-INDEX FILE option on the VA
  1.  ;;^DD(.11,.41,21,14,0)
  1.  ;;=FileMan menu, that cross-reference will be fired whether or not its
  1.  ;;^DD(.11,.41,21,15,0)
  1.  ;;=Activity contains an "R".
  1.  ;;^DD(.11,.41,"DT")
  1.  ;;=2980611
  1.  ;;^DD(.11,.42,0)
  1.  ;;=USE^S^LS:LOOKUP & SORTING;S:SORTING ONLY;A:ACTION;^0;14^Q
  1.  ;;^DD(.11,.42,3)
  1.  ;;=Controls how the index will be used by Classic FileMan Lookup (^DIC), Finder (FIND^DIC and $$FIND1^DIC) and Sort/Print (EN1^DIP). Answer '??' for more help.
  1.  ;;^DD(.11,.42,21,0)
  1.  ;;=^^15^15^2980911^^
  1.  ;;^DD(.11,.42,21,1,0)
  1.  ;;=LOOKUP & SORTING - The index name starts with "B" or a letter that
  1.  ;;^DD(.11,.42,21,2,0)
  1.  ;;=alphabetically follows "B".  Calls to Classic FileMan lookup (^DIC) or the
  1.  ;;^DD(.11,.42,21,3,0)
  1.  ;;=Finder (FIND^DIC or $$FIND1^DIC) where the index is not specified will
  1.  ;;^DD(.11,.42,21,4,0)
  1.  ;;=include this index in the search. The index will be available for use by