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

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

initial load of FOIAVistA 6/30/08 version
File size: 6.6 KB
Line 
1DINIT2B3 ;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 ^DINIT2B4
6Q Q
7 ;;^DIC(1.5212,0,"GL")
8 ;;=^DMSQ("DM",
9 ;;^DIC("B","SQLI_DOMAIN",1.5212)
10 ;;=
11 ;;^DIC(1.5212,"%D",0)
12 ;;=^^11^11^2970806^^
13 ;;^DIC(1.5212,"%D",1,0)
14 ;;=The set from which all objects of that domain must be drawn.
15 ;;^DIC(1.5212,"%D",2,0)
16 ;;=In SQLI, all table elements (SQLI_TABLE_ELEMENT) have a domain which
17 ;;^DIC(1.5212,"%D",3,0)
18 ;;=restricts them to their domain set. For each data type there is a domain
19 ;;^DIC(1.5212,"%D",4,0)
20 ;;=of the same name, representing the same set. Other domains have different
21 ;;^DIC(1.5212,"%D",5,0)
22 ;;=set membership restrictions.
23 ;;^DIC(1.5212,"%D",6,0)
24 ;;=
25 ;;^DIC(1.5212,"%D",7,0)
26 ;;=Each domain has a data type, which determines the rules for comparing
27 ;;^DIC(1.5212,"%D",8,0)
28 ;;=values from different domains, and the operators which may be used on them.
29 ;;^DIC(1.5212,"%D",9,0)
30 ;;=
31 ;;^DIC(1.5212,"%D",10,0)
32 ;;=The PRIMARY_KEY data type and domain is unique to SQLI. It is used to
33 ;;^DIC(1.5212,"%D",11,0)
34 ;;=relate primary keys to foreign keys unambiguously (see SQLI_TABLE_ELEMENT)
35 ;;^DD(1.5212,0)
36 ;;=FIELD^^11^12
37 ;;^DD(1.5212,0,"DDA")
38 ;;=N
39 ;;^DD(1.5212,0,"DT")
40 ;;=2970225
41 ;;^DD(1.5212,0,"IX","B",1.5212,.01)
42 ;;=
43 ;;^DD(1.5212,0,"IX","C",1.5212,3)
44 ;;=
45 ;;^DD(1.5212,0,"IX","D",1.5212,11)
46 ;;=
47 ;;^DD(1.5212,0,"IX","E",1.5212,1)
48 ;;=
49 ;;^DD(1.5212,0,"NM","SQLI_DOMAIN")
50 ;;=
51 ;;^DD(1.5212,0,"PT",1.5216,1)
52 ;;=
53 ;;^DD(1.5212,0,"VRPK")
54 ;;=DI
55 ;;^DD(1.5212,.01,0)
56 ;;=DM_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X
57 ;;^DD(1.5212,.01,.1)
58 ;;=Domain
59 ;;^DD(1.5212,.01,1,0)
60 ;;=^.1
61 ;;^DD(1.5212,.01,1,1,0)
62 ;;=1.5212^B
63 ;;^DD(1.5212,.01,1,1,1)
64 ;;=S ^DMSQ("DM","B",$E(X,1,30),DA)=""
65 ;;^DD(1.5212,.01,1,1,2)
66 ;;=K ^DMSQ("DM","B",$E(X,1,30),DA)
67 ;;^DD(1.5212,.01,3)
68 ;;=Answer must be an SQL identifier 3-30 characters in length.
69 ;;^DD(1.5212,.01,4)
70 ;;=W ?5,"Must be a valid SQL identifier"
71 ;;^DD(1.5212,.01,9)
72 ;;=^
73 ;;^DD(1.5212,.01,21,0)
74 ;;=^^2^2^2970311^^^^
75 ;;^DD(1.5212,.01,21,1,0)
76 ;;=Name of FileMan domain
77 ;;^DD(1.5212,.01,21,2,0)
78 ;;=Includes names of standard SQL data types. Must not be a keyword.
79 ;;^DD(1.5212,.01,"DT")
80 ;;=2960820
81 ;;^DD(1.5212,1,0)
82 ;;=DM_DATA_TYPE^RP1.5211'^DMSQ("DT",^0;2^Q
83 ;;^DD(1.5212,1,.1)
84 ;;=Data Type
85 ;;^DD(1.5212,1,1,0)
86 ;;=^.1
87 ;;^DD(1.5212,1,1,1,0)
88 ;;=1.5212^E
89 ;;^DD(1.5212,1,1,1,1)
90 ;;=S ^DMSQ("DM","E",$E(X,1,30),DA)=""
91 ;;^DD(1.5212,1,1,1,2)
92 ;;=K ^DMSQ("DM","E",$E(X,1,30),DA)
93 ;;^DD(1.5212,1,1,1,"%D",0)
94 ;;=^^1^1^2960909^
95 ;;^DD(1.5212,1,1,1,"%D",1,0)
96 ;;=Domain by data type.
97 ;;^DD(1.5212,1,1,1,"DT")
98 ;;=2960909
99 ;;^DD(1.5212,1,3)
100 ;;=
101 ;;^DD(1.5212,1,9)
102 ;;=^
103 ;;^DD(1.5212,1,21,0)
104 ;;=^^1^1^2960926^
105 ;;^DD(1.5212,1,21,1,0)
106 ;;=IEN of a standard data type in SQLI_DATA_TYPE. Required.
107 ;;^DD(1.5212,1,"DT")
108 ;;=2960909
109 ;;^DD(1.5212,2,0)
110 ;;=DM_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X
111 ;;^DD(1.5212,2,.1)
112 ;;=Comment
113 ;;^DD(1.5212,2,3)
114 ;;=Answer must be 3-60 characters in length.
115 ;;^DD(1.5212,2,9)
116 ;;=^
117 ;;^DD(1.5212,2,21,0)
118 ;;=^^1^1^2960926^
119 ;;^DD(1.5212,2,21,1,0)
120 ;;=A short comment which describes the data type set
121 ;;^DD(1.5212,2,"DT")
122 ;;=2960926
123 ;;^DD(1.5212,3,0)
124 ;;=DM_TABLE^P1.5215'^DMSQ("T",^0;4^Q
125 ;;^DD(1.5212,3,.1)
126 ;;=Table
127 ;;^DD(1.5212,3,1,0)
128 ;;=^.1
129 ;;^DD(1.5212,3,1,1,0)
130 ;;=1.5212^C
131 ;;^DD(1.5212,3,1,1,1)
132 ;;=S ^DMSQ("DM","C",$E(X,1,30),DA)=""
133 ;;^DD(1.5212,3,1,1,2)
134 ;;=K ^DMSQ("DM","C",$E(X,1,30),DA)
135 ;;^DD(1.5212,3,1,1,"%D",0)
136 ;;=^^1^1^2960823^
137 ;;^DD(1.5212,3,1,1,"%D",1,0)
138 ;;=Domain by table id
139 ;;^DD(1.5212,3,1,1,"DT")
140 ;;=2960823
141 ;;^DD(1.5212,3,3)
142 ;;=Enter only if domain is a table-id
143 ;;^DD(1.5212,3,9)
144 ;;=^
145 ;;^DD(1.5212,3,21,0)
146 ;;=^^2^2^2960926^
147 ;;^DD(1.5212,3,21,1,0)
148 ;;=IEN of table in SQLI_TABLE if domain is of type PRIMARY_KEY
149 ;;^DD(1.5212,3,21,2,0)
150 ;;=Only primary and foreign keys have such domains.
151 ;;^DD(1.5212,3,"DT")
152 ;;=2960926
153 ;;^DD(1.5212,4,0)
154 ;;=DM_WIDTH^NJ3,0^^0;5^K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
155 ;;^DD(1.5212,4,.1)
156 ;;=Width
157 ;;^DD(1.5212,4,3)
158 ;;=Type a Number between 1 and 255, 0 Decimal Digits
159 ;;^DD(1.5212,4,9)
160 ;;=^
161 ;;^DD(1.5212,4,21,0)
162 ;;=^^1^1^2960926^
163 ;;^DD(1.5212,4,21,1,0)
164 ;;=Default display width. Overrides data type display width.
165 ;;^DD(1.5212,4,"DT")
166 ;;=2960926
167 ;;^DD(1.5212,5,0)
168 ;;=DM_SCALE^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
169 ;;^DD(1.5212,5,.1)
170 ;;=Scale
171 ;;^DD(1.5212,5,3)
172 ;;=Type a Number between 0 and 9, 0 Decimal Digits
173 ;;^DD(1.5212,5,9)
174 ;;=^
175 ;;^DD(1.5212,5,21,0)
176 ;;=^^1^1^2960926^
177 ;;^DD(1.5212,5,21,1,0)
178 ;;=Default number of decimal places displayed for numbers.
179 ;;^DD(1.5212,5,"DT")
180 ;;=2960926
181 ;;^DD(1.5212,6,0)
182 ;;=DM_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;7^Q
183 ;;^DD(1.5212,6,.1)
184 ;;=Output Format
185 ;;^DD(1.5212,6,3)
186 ;;=
187 ;;^DD(1.5212,6,9)
188 ;;=^
189 ;;^DD(1.5212,6,21,0)
190 ;;=^^2^2^2960926^
191 ;;^DD(1.5212,6,21,1,0)
192 ;;=Default output format for elements of this domain.
193 ;;^DD(1.5212,6,21,2,0)
194 ;;=Used to provide text value of pointer chains, etc.
195 ;;^DD(1.5212,6,"DT")
196 ;;=2960820
197 ;;^DD(1.5212,7,0)
198 ;;=DM_INT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
199 ;;^DD(1.5212,7,.1)
200 ;;=Base to Internal Expression
201 ;;^DD(1.5212,7,3)
202 ;;=This is a Standard M expression to format X for output
203 ;;^DD(1.5212,7,9)
204 ;;=^
205 ;;^DD(1.5212,7,21,0)
206 ;;=^^2^2^2960926^
207 ;;^DD(1.5212,7,21,1,0)
208 ;;=An M expression which returns the internal value of a base value.
209 ;;^DD(1.5212,7,21,2,0)
210 ;;=Expression uses placeholder {B} to represent the base value
211 ;;^DD(1.5212,7,"DT")
212 ;;=2960926
213 ;;^DD(1.5212,8,0)
214 ;;=DM_INT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
215 ;;^DD(1.5212,8,.1)
216 ;;=Base to Internal Execute
217 ;;^DD(1.5212,8,3)
218 ;;=This is Standard MUMPS code to format X for input
219 ;;^DD(1.5212,8,9)
220 ;;=^
221 ;;^DD(1.5212,8,21,0)
222 ;;=^^2^2^2960926^
223 ;;^DD(1.5212,8,21,1,0)
224 ;;=M code line which sets internal value, {I}, to some function of base
225 ;;^DD(1.5212,8,21,2,0)
226 ;;=value, {B}.
227 ;;^DD(1.5212,8,"DT")
228 ;;=2960926
229 ;;^DD(1.5212,9,0)
230 ;;=DM_BASE_EXPR^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
231 ;;^DD(1.5212,9,.1)
232 ;;=Internal to Base Expression
233 ;;^DD(1.5212,9,3)
234 ;;=This is a Standard M expression to format X in internal form.
235 ;;^DD(1.5212,9,9)
236 ;;=^
237 ;;^DD(1.5212,9,21,0)
238 ;;=^^1^1^2960926^
239 ;;^DD(1.5212,9,21,1,0)
240 ;;=An M expression which returns the internal value of base value, {B}.
241 ;;^DD(1.5212,9,"DT")
242 ;;=2960926
243 ;;^DD(1.5212,10,0)
244 ;;=DM_BASE_EXEC^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
245 ;;^DD(1.5212,10,3)
246 ;;=This is Standard MUMPS code.
247 ;;^DD(1.5212,10,9)
248 ;;=^
249 ;;^DD(1.5212,10,21,0)
250 ;;=^^1^1^2960820^
Note: See TracBrowser for help on using the repository browser.