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