source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT2B7.m@ 1618

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

initial load of WorldVistAEHR
File size: 6.2 KB
Line 
1DINIT2B7 ;SFISC/MKO-SQLI FILES ;10:51 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(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 ^DINIT2B8
6Q Q
7 ;;^DIC(1.5215,0,"GL")
8 ;;=^DMSQ("T",
9 ;;^DIC("B","SQLI_TABLE",1.5215)
10 ;;=
11 ;;^DIC(1.5215,"%D",0)
12 ;;=^^6^6^2970806^^^
13 ;;^DIC(1.5215,"%D",1,0)
14 ;;=Descriptor of a set of table elements: Includes name and file no.
15 ;;^DIC(1.5215,"%D",2,0)
16 ;;=(See SQLI_TABLE_ELEMENTS). Each ^DD(DA) represents a table in a relational
17 ;;^DIC(1.5215,"%D",3,0)
18 ;;=model of FileMan. Further, each index represents a table.
19 ;;^DIC(1.5215,"%D",4,0)
20 ;;=
21 ;;^DIC(1.5215,"%D",5,0)
22 ;;=Each schema contains multiple tables. Each table contains just one primary
23 ;;^DIC(1.5215,"%D",6,0)
24 ;;=key, but multiple columns, foreign keys and indicies.
25 ;;^DD(1.5215,0)
26 ;;=FIELD^^8^9
27 ;;^DD(1.5215,0,"DDA")
28 ;;=N
29 ;;^DD(1.5215,0,"DT")
30 ;;=2960913
31 ;;^DD(1.5215,0,"IX","B",1.5215,.01)
32 ;;=
33 ;;^DD(1.5215,0,"IX","C",1.5215,6)
34 ;;=
35 ;;^DD(1.5215,0,"IX","D",1.5215,8)
36 ;;=
37 ;;^DD(1.5215,0,"IX","E",1.5215,3)
38 ;;=
39 ;;^DD(1.5215,0,"NM","SQLI_TABLE")
40 ;;=
41 ;;^DD(1.5215,0,"PT",1.5212,3)
42 ;;=
43 ;;^DD(1.5215,0,"PT",1.5215,3)
44 ;;=
45 ;;^DD(1.5215,0,"PT",1.5216,2)
46 ;;=
47 ;;^DD(1.5215,0,"VRPK")
48 ;;=DI
49 ;;^DD(1.5215,.01,0)
50 ;;=T_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X
51 ;;^DD(1.5215,.01,.1)
52 ;;=Table
53 ;;^DD(1.5215,.01,1,0)
54 ;;=^.1
55 ;;^DD(1.5215,.01,1,1,0)
56 ;;=1.5215^B
57 ;;^DD(1.5215,.01,1,1,1)
58 ;;=S ^DMSQ("T","B",$E(X,1,30),DA)=""
59 ;;^DD(1.5215,.01,1,1,2)
60 ;;=K ^DMSQ("T","B",$E(X,1,30),DA)
61 ;;^DD(1.5215,.01,3)
62 ;;=Answer must be 3-30 characters in length.
63 ;;^DD(1.5215,.01,9)
64 ;;=^
65 ;;^DD(1.5215,.01,21,0)
66 ;;=^^1^1^2960926^
67 ;;^DD(1.5215,.01,21,1,0)
68 ;;=Table name must be a valid SQL identifier, unique by schema
69 ;;^DD(1.5215,.01,"DT")
70 ;;=2960820
71 ;;^DD(1.5215,1,0)
72 ;;=T_SCHEMA^RP1.521^DMSQ("S",^0;2^Q
73 ;;^DD(1.5215,1,.1)
74 ;;=Schema
75 ;;^DD(1.5215,1,9)
76 ;;=^
77 ;;^DD(1.5215,1,21,0)
78 ;;=^^1^1^2960926^^
79 ;;^DD(1.5215,1,21,1,0)
80 ;;=IEN in SQLI_SCHEMA of the schema to which this table belongs.
81 ;;^DD(1.5215,1,"DT")
82 ;;=2960913
83 ;;^DD(1.5215,2,0)
84 ;;=T_COMMENT^F^^0;3^K:$L(X)>70!($L(X)<3) X
85 ;;^DD(1.5215,2,.1)
86 ;;=Description
87 ;;^DD(1.5215,2,3)
88 ;;=Answer must be 3-70 characters in length.
89 ;;^DD(1.5215,2,9)
90 ;;=^
91 ;;^DD(1.5215,2,21,0)
92 ;;=^^1^1^2960926^^
93 ;;^DD(1.5215,2,21,1,0)
94 ;;=A short description of the table
95 ;;^DD(1.5215,2,"DT")
96 ;;=2960913
97 ;;^DD(1.5215,3,0)
98 ;;=T_MASTER_TABLE^P1.5215'^DMSQ("T",^0;4^Q
99 ;;^DD(1.5215,3,.1)
100 ;;=Master Table
101 ;;^DD(1.5215,3,1,0)
102 ;;=^.1
103 ;;^DD(1.5215,3,1,1,0)
104 ;;=1.5215^E
105 ;;^DD(1.5215,3,1,1,1)
106 ;;=S ^DMSQ("T","E",$E(X,1,30),DA)=""
107 ;;^DD(1.5215,3,1,1,2)
108 ;;=K ^DMSQ("T","E",$E(X,1,30),DA)
109 ;;^DD(1.5215,3,1,1,"%D",0)
110 ;;=^^1^1^2960904^
111 ;;^DD(1.5215,3,1,1,"%D",1,0)
112 ;;=Table by master table
113 ;;^DD(1.5215,3,1,1,"DT")
114 ;;=2960904
115 ;;^DD(1.5215,3,3)
116 ;;=Enter only if this table is an index
117 ;;^DD(1.5215,3,9)
118 ;;=^
119 ;;^DD(1.5215,3,21,0)
120 ;;=^^1^1^2960926^^^
121 ;;^DD(1.5215,3,21,1,0)
122 ;;=The table of which this table is an index. (Only index tables)
123 ;;^DD(1.5215,3,23,0)
124 ;;=^^1^1^2960926^^
125 ;;^DD(1.5215,3,23,1,0)
126 ;;=In SQL, and in the relational model, an index is just a table.
127 ;;^DD(1.5215,3,"DT")
128 ;;=2960913
129 ;;^DD(1.5215,4,0)
130 ;;=T_VERSION_FM^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
131 ;;^DD(1.5215,4,.1)
132 ;;=Version
133 ;;^DD(1.5215,4,3)
134 ;;=Type a Number between 1 and 999999999, 0 Decimal Digits
135 ;;^DD(1.5215,4,9)
136 ;;=^
137 ;;^DD(1.5215,4,21,0)
138 ;;=^^1^1^2960926^^
139 ;;^DD(1.5215,4,21,1,0)
140 ;;=The version number is updated by FileMan when ^DD or ^DIC changes.
141 ;;^DD(1.5215,4,"DT")
142 ;;=2960926
143 ;;^DD(1.5215,5,0)
144 ;;=T_ROW_COUNT^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
145 ;;^DD(1.5215,5,.1)
146 ;;=Row Count
147 ;;^DD(1.5215,5,3)
148 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
149 ;;^DD(1.5215,5,9)
150 ;;=^
151 ;;^DD(1.5215,5,21,0)
152 ;;=^^1^1^2960926^^
153 ;;^DD(1.5215,5,21,1,0)
154 ;;=This field should contain an estimate of the number of rows in the table
155 ;;^DD(1.5215,5,"DT")
156 ;;=2960926
157 ;;^DD(1.5215,6,0)
158 ;;=T_FILE^RNJ19,9O^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."10N.N) X
159 ;;^DD(1.5215,6,.1)
160 ;;=Source File
161 ;;^DD(1.5215,6,1,0)
162 ;;=^.1
163 ;;^DD(1.5215,6,1,1,0)
164 ;;=1.5215^C
165 ;;^DD(1.5215,6,1,1,1)
166 ;;=S ^DMSQ("T","C",$E(X,1,30),DA)=""
167 ;;^DD(1.5215,6,1,1,2)
168 ;;=K ^DMSQ("T","C",$E(X,1,30),DA)
169 ;;^DD(1.5215,6,1,1,"%D",0)
170 ;;=^^1^1^2960902^^
171 ;;^DD(1.5215,6,1,1,"%D",1,0)
172 ;;=Table by source file index
173 ;;^DD(1.5215,6,1,1,"DT")
174 ;;=2960822
175 ;;^DD(1.5215,6,2)
176 ;;=S Y(0)=Y S Y=$S('Y:"",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,"NM","")))
177 ;;^DD(1.5215,6,2.1)
178 ;;=S Y=$S('Y:"",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,"NM","")))
179 ;;^DD(1.5215,6,3)
180 ;;=Type a Number between 0 and 999999999, 9 Decimal Digits
181 ;;^DD(1.5215,6,9)
182 ;;=^
183 ;;^DD(1.5215,6,21,0)
184 ;;=^^1^1^2960926^^^
185 ;;^DD(1.5215,6,21,1,0)
186 ;;=FileMan file number from which table is derived.
187 ;;^DD(1.5215,6,23,0)
188 ;;=^^1^1^2960926^^
189 ;;^DD(1.5215,6,23,1,0)
190 ;;=This may be a subfile number
191 ;;^DD(1.5215,6,"DT")
192 ;;=2960908
193 ;;^DD(1.5215,7,0)
194 ;;=T_UPDATE^D^^0;8^S %DT="EX" D ^%DT S X=Y K:Y<1 X
195 ;;^DD(1.5215,7,.1)
196 ;;=Last Updated
197 ;;^DD(1.5215,7,9)
198 ;;=^
199 ;;^DD(1.5215,7,21,0)
200 ;;=^^1^1^2960926^
201 ;;^DD(1.5215,7,21,1,0)
202 ;;=Date last updated.
203 ;;^DD(1.5215,7,"DT")
204 ;;=2960821
205 ;;^DD(1.5215,8,0)
206 ;;=T_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
207 ;;^DD(1.5215,8,.1)
208 ;;=Global Root
209 ;;^DD(1.5215,8,1,0)
210 ;;=^.1
211 ;;^DD(1.5215,8,1,1,0)
212 ;;=1.5215^D
213 ;;^DD(1.5215,8,1,1,1)
214 ;;=S ^DMSQ("T","D",$E(X,1,30),DA)=""
215 ;;^DD(1.5215,8,1,1,2)
216 ;;=K ^DMSQ("T","D",$E(X,1,30),DA)
217 ;;^DD(1.5215,8,1,1,"%D",0)
218 ;;=^^1^1^2960822^
219 ;;^DD(1.5215,8,1,1,"%D",1,0)
220 ;;=Table by global name. Used for structural study.
221 ;;^DD(1.5215,8,1,1,"DT")
222 ;;=2960822
223 ;;^DD(1.5215,8,3)
224 ;;=A valid M global variable name using {K} for subscripts
225 ;;^DD(1.5215,8,9)
226 ;;=^
227 ;;^DD(1.5215,8,21,0)
228 ;;=^^2^2^2960926^^^^
229 ;;^DD(1.5215,8,21,1,0)
230 ;;=Global variable name. {K} stands for a subscript
231 ;;^DD(1.5215,8,21,2,0)
232 ;;=E.g.: ^DIC(9.4,{K},3,{K},4,{K})
233 ;;^DD(1.5215,8,23,0)
234 ;;=^^1^1^2960926^^^
235 ;;^DD(1.5215,8,23,1,0)
236 ;;=Used to piece out global fragments for columns
237 ;;^DD(1.5215,8,"DT")
238 ;;=2960926
Note: See TracBrowser for help on using the repository browser.