source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT2AA.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 6.6 KB
Line 
1DINIT2AA ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 AM 30 Mar 1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT2AB S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DD("IX",.001,0)
8 ;;=0^ADEL^Delete Keys and Indexes associated with a deleted field.^MU^^F^R^I^0^^^^^A
9 ;;^DD("IX",.001,1)
10 ;;=Q
11 ;;^DD("IX",.001,2)
12 ;;=D:'$D(DICATTED)&'$D(DIU) DELXRF^DICATT4(DA(1),DA)
13 ;;^DD("IX",.1101,0)
14 ;;=.11^BB^The uniqueness index for the primary key of the Index file^R^^R^IR^I^.11^^^^^LS
15 ;;^DD("IX",.1101,.1,0)
16 ;;=^^3^3^2980611^
17 ;;^DD("IX",.1101,.1,1,0)
18 ;;=The BB index, on the key of the Index file, lets FileMan test potential
19 ;;^DD("IX",.1101,.1,2,0)
20 ;;=key values for uniqueness. It is a regular compound index with two fields,
21 ;;^DD("IX",.1101,.1,3,0)
22 ;;=the .01 (File) and .02 (Index Name).
23 ;;^DD("IX",.1101,1)
24 ;;=S ^DD("IX","BB",X(1),X(2),DA)=""
25 ;;^DD("IX",.1101,2)
26 ;;=K ^DD("IX","BB",X(1),X(2),DA)
27 ;;^DD("IX",.1101,2.5)
28 ;;=K ^DD("IX","BB")
29 ;;^DD("IX",.1101,11.1,0)
30 ;;=^.114^2^2
31 ;;^DD("IX",.1101,11.1,1,0)
32 ;;=1^F^.11^.01^^1
33 ;;^DD("IX",.1101,11.1,2,0)
34 ;;=2^F^.11^.02^^2
35 ;;^DD("IX",.1102,0)
36 ;;=.11^IX^Allows user to look up Indexes by Name.^R^^F^IR^I^.11^^^^^LS
37 ;;^DD("IX",.1102,.1,0)
38 ;;=^^2^2^2990303^
39 ;;^DD("IX",.1102,.1,1,0)
40 ;;=This 'Regular' index on the Name field (#.02) allows users to select an
41 ;;^DD("IX",.1102,.1,2,0)
42 ;;=index by its name.
43 ;;^DD("IX",.1102,1)
44 ;;=S ^DD("IX","IX",$E(X,1,30),DA)=""
45 ;;^DD("IX",.1102,2)
46 ;;=K ^DD("IX","IX",$E(X,1,30),DA)
47 ;;^DD("IX",.1102,2.5)
48 ;;=K ^DD("IX","IX")
49 ;;^DD("IX",.1102,11.1,0)
50 ;;=^.114IA^1^1
51 ;;^DD("IX",.1102,11.1,1,0)
52 ;;=1^F^.11^.02^30^1^F
53 ;;^DD("IX",.11401,0)
54 ;;=.114^BB^The uniqueness index of the Cross-Reference Values multiple of the Index file^R^^F^IR^I^.114^^^^^LS
55 ;;^DD("IX",.11401,1)
56 ;;=S ^DD("IX",DA(1),11.1,"BB",X,DA)=""
57 ;;^DD("IX",.11401,2)
58 ;;=K ^DD("IX",DA(1),11.1,"BB",X,DA)
59 ;;^DD("IX",.11401,2.5)
60 ;;=K ^DD("IX",DA(1),11.1,"BB")
61 ;;^DD("IX",.11401,11.1,0)
62 ;;=^.114IA^1^1
63 ;;^DD("IX",.11401,11.1,1,0)
64 ;;=1^F^.114^.01^^1
65 ;;^DD("IX",.11402,0)
66 ;;=.114^AC^Lets FileMan find cross reference values by subscript^R^^F^IR^I^.114^^^^^S
67 ;;^DD("IX",.11402,1)
68 ;;=S ^DD("IX",DA(1),11.1,"AC",X,DA)=""
69 ;;^DD("IX",.11402,2)
70 ;;=K ^DD("IX",DA(1),11.1,"AC",X,DA)
71 ;;^DD("IX",.11402,2.5)
72 ;;=K ^DD("IX",DA(1),11.1,"AC")
73 ;;^DD("IX",.11402,11.1,0)
74 ;;=^.114IA^1^1
75 ;;^DD("IX",.11402,11.1,1,0)
76 ;;=1^F^.114^.5^^1^F
77 ;;^DD("IX",.11403,0)
78 ;;=.11^F^Lets FileMan find the indexes affected when a field changes^R^^R^IR^W^.114^^^^^LS
79 ;;^DD("IX",.11403,.1,0)
80 ;;=^^6^6^2970303^^
81 ;;^DD("IX",.11403,.1,1,0)
82 ;;=The F index, is a whole file compound cross-reference on two fields in the
83 ;;^DD("IX",.11403,.1,2,0)
84 ;;=Cross-Reference Values multiple: File (#2) and Field (#3). It lets FileMan
85 ;;^DD("IX",.11403,.1,3,0)
86 ;;=identify the indexes that might be affected when a field value changes.
87 ;;^DD("IX",.11403,.1,4,0)
88 ;;=The checking of this index is an essential step during field level
89 ;;^DD("IX",.11403,.1,5,0)
90 ;;=transactions in building the list of record level cross-references that
91 ;;^DD("IX",.11403,.1,6,0)
92 ;;=must be fired after user-driven changes to the record are finished.
93 ;;^DD("IX",.11403,1)
94 ;;=S ^DD("IX","F",X(1),X(2),DA(1),DA)=""
95 ;;^DD("IX",.11403,2)
96 ;;=K ^DD("IX","F",X(1),X(2),DA(1),DA)
97 ;;^DD("IX",.11403,2.5)
98 ;;=K ^DD("IX","F")
99 ;;^DD("IX",.11403,11.1,0)
100 ;;=^.114^2^2
101 ;;^DD("IX",.11403,11.1,1,0)
102 ;;=1^F^.114^2^^1
103 ;;^DD("IX",.11403,11.1,2,0)
104 ;;=2^F^.114^3^^2
105 ;;^DD("IX",.3101,0)
106 ;;=.31^BB^The uniqueness index for the Key file^R^^R^IR^I^.31^^^^^LS
107 ;;^DD("IX",.3101,.1,0)
108 ;;=^^3^3^2970314^^^^
109 ;;^DD("IX",.3101,.1,1,0)
110 ;;=The BB index, the uniqueness index for the Key file's key, lets FileMan
111 ;;^DD("IX",.3101,.1,2,0)
112 ;;=test potential key values for uniqueness. It is a regular compound index
113 ;;^DD("IX",.3101,.1,3,0)
114 ;;=with two fields, the .01 (File) and .02 (Key Name).
115 ;;^DD("IX",.3101,1)
116 ;;=S ^DD("KEY","BB",X(1),X(2),DA)=""
117 ;;^DD("IX",.3101,2)
118 ;;=K ^DD("KEY","BB",X(1),X(2),DA)
119 ;;^DD("IX",.3101,2.5)
120 ;;=K ^DD("KEY","BB")
121 ;;^DD("IX",.3101,11.1,0)
122 ;;=^.114^2^2
123 ;;^DD("IX",.3101,11.1,1,0)
124 ;;=1^F^.31^.01^^1
125 ;;^DD("IX",.3101,11.1,2,0)
126 ;;=2^F^.31^.02^^2
127 ;;^DD("IX",.3102,0)
128 ;;=.31^AP^Lets FileMan determine the primary key of a file^R^^R^IR^I^.31^^^^^S
129 ;;^DD("IX",.3102,1)
130 ;;=S ^DD("KEY","AP",X(1),X(2),DA)=""
131 ;;^DD("IX",.3102,1.4)
132 ;;=S X=X(2)="P"
133 ;;^DD("IX",.3102,2)
134 ;;=K ^DD("KEY","AP",X(1),X(2),DA)
135 ;;^DD("IX",.3102,2.4)
136 ;;=S X=X(2)="P"
137 ;;^DD("IX",.3102,2.5)
138 ;;=K ^DD("KEY","AP")
139 ;;^DD("IX",.3102,11.1,0)
140 ;;=^.114I^2^2
141 ;;^DD("IX",.3102,11.1,1,0)
142 ;;=1^F^.31^.01^^1
143 ;;^DD("IX",.3102,11.1,2,0)
144 ;;=2^F^.31^1^^2
145 ;;^DD("IX",.3103,0)
146 ;;=.31^AU^Lets FileMan determine whether an index is a uniqueness index for a key^R^^F^IR^I^.31^^^^^S
147 ;;^DD("IX",.3103,1)
148 ;;=S ^DD("KEY","AU",X,DA)=""
149 ;;^DD("IX",.3103,2)
150 ;;=K ^DD("KEY","AU",X,DA)
151 ;;^DD("IX",.3103,2.5)
152 ;;=K ^DD("KEY","AU")
153 ;;^DD("IX",.3103,11.1,0)
154 ;;=^.114IA^1^1
155 ;;^DD("IX",.3103,11.1,1,0)
156 ;;=1^F^.31^3^^1^F
157 ;;^DD("IX",.31201,0)
158 ;;=.312^BB^The uniqueness index for Field multiple of the Key file.^R^^R^IR^I^.312^^^^^LS
159 ;;^DD("IX",.31201,.1,0)
160 ;;=^^3^3^2970203^^
161 ;;^DD("IX",.31201,.1,1,0)
162 ;;=The BB index, on the key of the Field multiple of the Key file, lets
163 ;;^DD("IX",.31201,.1,2,0)
164 ;;=FileMan test potential key values for uniqueness. It is a regular compound
165 ;;^DD("IX",.31201,.1,3,0)
166 ;;=index with two fields, the .01 (Field) and .02 (File).
167 ;;^DD("IX",.31201,1)
168 ;;=S ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)=""
169 ;;^DD("IX",.31201,2)
170 ;;=K ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)
171 ;;^DD("IX",.31201,2.5)
172 ;;=K ^DD("KEY",DA(1),2,"BB")
173 ;;^DD("IX",.31201,11.1,0)
174 ;;=^.114^2^2
175 ;;^DD("IX",.31201,11.1,1,0)
176 ;;=1^F^.312^.01^^1
177 ;;^DD("IX",.31201,11.1,2,0)
178 ;;=2^F^.312^.02^^2
179 ;;^DD("IX",.31202,0)
180 ;;=.31^F^Lets FileMan find the Keys that include each field^R^^R^IR^W^.312^^^^^LS
181 ;;^DD("IX",.31202,.1,0)
182 ;;=^^4^4^2980911^
183 ;;^DD("IX",.31202,.1,1,0)
184 ;;=The F index, a whole file compound cross-reference on the key of the
185 ;;^DD("IX",.31202,.1,2,0)
186 ;;=Fields multiple of the Key file, lets FileMan determine the keys a field
187 ;;^DD("IX",.31202,.1,3,0)
188 ;;=is part of. This is essential for identifying the key value uniqueness
189 ;;^DD("IX",.31202,.1,4,0)
190 ;;=tests that must be done when a field value changes.
191 ;;^DD("IX",.31202,1)
192 ;;=S ^DD("KEY","F",X(1),X(2),DA(1),DA)=""
193 ;;^DD("IX",.31202,2)
194 ;;=K ^DD("KEY","F",X(1),X(2),DA(1),DA)
195 ;;^DD("IX",.31202,2.5)
196 ;;=K ^DD("KEY","F")
197 ;;^DD("IX",.31202,11.1,0)
198 ;;=^.114^2^2
199 ;;^DD("IX",.31202,11.1,1,0)
200 ;;=1^F^.312^.02^^1
201 ;;^DD("IX",.31202,11.1,2,0)
202 ;;=2^F^.312^.01^^2
Note: See TracBrowser for help on using the repository browser.