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

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

initial load of FOIAVistA 6/30/08 version

File size: 7.1 KB
Line 
1DINIT2A3 ;SFISC/MKO-KEY AND INDEX FILES ;3:21 PM 25 Apr 2002
2 ;;22.0;VA FileMan;**1,20,108**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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
5 G ^DINIT2A4
6Q Q
7 ;;^DD(.111,1,21,6,0)
8 ;;=Index file entry.
9 ;;^DD(.111,1,"DT")
10 ;;=2960124
11 ;;^DD(.112,0)
12 ;;=OVERFLOW KILL LOGIC SUB-FIELD^^2^2
13 ;;^DD(.112,0,"DT")
14 ;;=2960124
15 ;;^DD(.112,0,"NM","OVERFLOW KILL LOGIC")
16 ;;=
17 ;;^DD(.112,0,"UP")
18 ;;=.11
19 ;;^DD(.112,.01,0)
20 ;;=OVERFLOW KILL LOGIC NODE^MNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
21 ;;^DD(.112,.01,3)
22 ;;=Type a Number between 1 and 999999, 0 Decimal Digits. Answer '??' for more help.
23 ;;^DD(.112,.01,21,0)
24 ;;=^^3^3^2980911^
25 ;;^DD(.112,.01,21,1,0)
26 ;;=Answer must be the number of the node under which the additional line of
27 ;;^DD(.112,.01,21,2,0)
28 ;;=Set Logic will be filed. Use the overflow nodes if the kill logic is too
29 ;;^DD(.112,.01,21,3,0)
30 ;;=long to fit in the KILL LOGIC field.
31 ;;^DD(.112,.01,"DT")
32 ;;=2980910
33 ;;^DD(.112,2,0)
34 ;;=OVERFLOW KILL LOGIC^RK^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
35 ;;^DD(.112,2,3)
36 ;;=Answer must be Standard M code. Answer '??' for more help.
37 ;;^DD(.112,2,9)
38 ;;=@
39 ;;^DD(.112,2,21,0)
40 ;;=^^6^6^2980911^
41 ;;^DD(.112,2,21,1,0)
42 ;;=Answer with the M code of the additional kill logic stored at this node.
43 ;;^DD(.112,2,21,2,0)
44 ;;=FileMan will not automatically execute this additional code, so the kill
45 ;;^DD(.112,2,21,3,0)
46 ;;=logic must invoke the additional code stored in this overflow node.
47 ;;^DD(.112,2,21,4,0)
48 ;;=
49 ;;^DD(.112,2,21,5,0)
50 ;;=The M code can assume that DIXR contains the internal entry number of the
51 ;;^DD(.112,2,21,6,0)
52 ;;=Index file entry.
53 ;;^DD(.112,2,"DT")
54 ;;=2960124
55 ;;^DD(.114,0)
56 ;;=CROSS-REFERENCE VALUES SUB-FIELD^^8^12
57 ;;^DD(.114,0,"DT")
58 ;;=2980723
59 ;;^DD(.114,0,"ID",1)
60 ;;=W ""
61 ;;^DD(.114,0,"IX","B",.114,.01)
62 ;;=
63 ;;^DD(.114,0,"NM","CROSS-REFERENCE VALUES")
64 ;;=
65 ;;^DD(.114,0,"UP")
66 ;;=.11
67 ;;^DD(.114,.01,0)
68 ;;=ORDER NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>125)!(X<1)!(X?.E1"."1N.N) X
69 ;;^DD(.114,.01,1,0)
70 ;;=^.1
71 ;;^DD(.114,.01,1,1,0)
72 ;;=.114^B
73 ;;^DD(.114,.01,1,1,1)
74 ;;=S ^DD("IX",DA(1),11.1,"B",$E(X,1,30),DA)=""
75 ;;^DD(.114,.01,1,1,2)
76 ;;=K ^DD("IX",DA(1),11.1,"B",$E(X,1,30),DA)
77 ;;^DD(.114,.01,1,1,"DT")
78 ;;=2970320
79 ;;^DD(.114,.01,3)
80 ;;=Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help.
81 ;;^DD(.114,.01,21,0)
82 ;;=^^6^6^2980911^
83 ;;^DD(.114,.01,21,1,0)
84 ;;=Answer must be the order number of this cross-reference value.
85 ;;^DD(.114,.01,21,2,0)
86 ;;=
87 ;;^DD(.114,.01,21,3,0)
88 ;;=FileMan evaluates cross-reference values by order of "Order Number" and
89 ;;^DD(.114,.01,21,4,0)
90 ;;=places each value in the X(order#) array. The set and kill logic, for
91 ;;^DD(.114,.01,21,5,0)
92 ;;=example, can use X(2) to refer to the cross-reference value with order
93 ;;^DD(.114,.01,21,6,0)
94 ;;=number 2.
95 ;;^DD(.114,.01,"DEL",1,0)
96 ;;=I $P($G(DDS),U,2)="DIKC EDIT" D BLDLOG^DIKCFORM(DA(1)) S DIKCREB=1 I 0
97 ;;^DD(.114,.01,"DT")
98 ;;=3020425
99 ;;^DD(.114,.5,0)
100 ;;=SUBSCRIPT NUMBER^NJ3,0^^0;6^K:+X'=X!(X>125)!(X<1)!(X?.E1"."1N.N) X
101 ;;^DD(.114,.5,1,0)
102 ;;=^.1^^0
103 ;;^DD(.114,.5,3)
104 ;;=Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help.
105 ;;^DD(.114,.5,21,0)
106 ;;=^^3^3^2980911^
107 ;;^DD(.114,.5,21,1,0)
108 ;;=If this cross-reference value is used as a subscript in an index, enter
109 ;;^DD(.114,.5,21,2,0)
110 ;;=the subscript position number. The first subscript to the right of the
111 ;;^DD(.114,.5,21,3,0)
112 ;;=index name is subscript number 1.
113 ;;^DD(.114,.5,"DT")
114 ;;=2980611
115 ;;^DD(.114,1,0)
116 ;;=TYPE OF VALUE^RS^F:FIELD;C:COMPUTED VALUE;^0;2^Q
117 ;;^DD(.114,1,3)
118 ;;=Answer '??' for more help.
119 ;;^DD(.114,1,21,0)
120 ;;=^^4^4^2980911^
121 ;;^DD(.114,1,21,1,0)
122 ;;=Answer 'F' if this cross-reference value is based on the value of a field.
123 ;;^DD(.114,1,21,2,0)
124 ;;=
125 ;;^DD(.114,1,21,3,0)
126 ;;=Answer 'C' if this cross-reference value should be determined by executing
127 ;;^DD(.114,1,21,4,0)
128 ;;=the COMPUTED CODE.
129 ;;^DD(.114,1,"DT")
130 ;;=2960116
131 ;;^DD(.114,2,0)
132 ;;=FILE^NJ20,7^^0;3^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."8N.N) X
133 ;;^DD(.114,2,3)
134 ;;=Answer must be between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help.
135 ;;^DD(.114,2,21,0)
136 ;;=^^2^2^2980910^
137 ;;^DD(.114,2,21,1,0)
138 ;;=If this cross-reference value is a field value, answer with the number of
139 ;;^DD(.114,2,21,2,0)
140 ;;=the file or subfile in which this field is defined.
141 ;;^DD(.114,2,"DT")
142 ;;=2960116
143 ;;^DD(.114,3,0)
144 ;;=FIELD^NJ20,7X^^0;4^D ITFLD^DIKCDD I $D(X) K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."8N.N) X
145 ;;^DD(.114,3,3)
146 ;;=Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help.
147 ;;^DD(.114,3,4)
148 ;;=D EHFLD^DIKCDD
149 ;;^DD(.114,3,21,0)
150 ;;=^^1^1^2980910^^
151 ;;^DD(.114,3,21,1,0)
152 ;;=If this cross-reference value is a field, answer with the field number.
153 ;;^DD(.114,3,"DT")
154 ;;=2970902
155 ;;^DD(.114,4,0)
156 ;;=COMPUTED VALUE^F^^1;1^K:$L(X)>245!($L(X)<1) X
157 ;;^DD(.114,4,3)
158 ;;=Answer must be a valid FileMan computed expression. Answer '??' for more help.
159 ;;^DD(.114,4,21,0)
160 ;;=^^2^2^2960221^
161 ;;^DD(.114,4,21,1,0)
162 ;;=If this cross-reference value is computed, answer with the computed
163 ;;^DD(.114,4,21,2,0)
164 ;;=expression that evaluates to it.
165 ;;^DD(.114,4,"DT")
166 ;;=2960219
167 ;;^DD(.114,4.5,0)
168 ;;=COMPUTED CODE^K^^1.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
169 ;;^DD(.114,4.5,3)
170 ;;=This is Standard MUMPS code. Answer '??' for more help.
171 ;;^DD(.114,4.5,9)
172 ;;=@
173 ;;^DD(.114,4.5,21,0)
174 ;;=^^3^3^2990401^
175 ;;^DD(.114,4.5,21,1,0)
176 ;;=Answer with M code that sets X equal to the cross-reference value. The
177 ;;^DD(.114,4.5,21,2,0)
178 ;;=X(order#) array is available for those cross-reference values with lower
179 ;;^DD(.114,4.5,21,3,0)
180 ;;=Order Numbers, and the DA array describes the IEN of the current record.
181 ;;^DD(.114,4.5,"DT")
182 ;;=2960221
183 ;;^DD(.114,5,0)
184 ;;=TRANSFORM FOR STORAGE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
185 ;;^DD(.114,5,3)
186 ;;=This is Standard M code. Answer '??' for more help.
187 ;;^DD(.114,5,9)
188 ;;=@
189 ;;^DD(.114,5,21,0)
190 ;;=^^14^14^3000106^
191 ;;^DD(.114,5,21,1,0)
192 ;;=Used only when setting or killing an entry in the index.
193 ;;^DD(.114,5,21,2,0)
194 ;;=
195 ;;^DD(.114,5,21,3,0)
196 ;;=Answer should be M code that sets the variable X to a new value. X is the
197 ;;^DD(.114,5,21,4,0)
198 ;;=only input variable that is guaranteed to be defined and is equal to the
199 ;;^DD(.114,5,21,5,0)
200 ;;=internal value of the field.
201 ;;^DD(.114,5,21,6,0)
202 ;;=
203 ;;^DD(.114,5,21,7,0)
204 ;;=TRANSFORM FOR STORAGE can be used on field-type cross-reference values to
205 ;;^DD(.114,5,21,8,0)
206 ;;=transform the internal value of the field before it is stored as a
207 ;;^DD(.114,5,21,9,0)
208 ;;=subscript in the index.
209 ;;^DD(.114,5,21,10,0)
210 ;;=
211 ;;^DD(.114,5,21,11,0)
212 ;;=If a match is made on this index during a lookup, then in order to
213 ;;^DD(.114,5,21,12,0)
214 ;;=properly display the resulting index value to the user, the developer may
215 ;;^DD(.114,5,21,13,0)
216 ;;=need to enter code into the TRANSFORM FOR DISPLAY field to transform the
217 ;;^DD(.114,5,21,14,0)
218 ;;=index value back to a displayable format.
219 ;;^DD(.114,5,"DT")
220 ;;=2980731
Note: See TracBrowser for help on using the repository browser.