[Home] [Help]
PACKAGE BODY: APPS.CN_SYS_TABLES_PVT_W
Source
1 package body cn_sys_tables_pvt_w as
2 /* $Header: cnwsytbb.pls 120.3 2005/09/14 03:44:02 vensrini noship $ */
3 procedure create_table(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , p4_a0 in out nocopy NUMBER
8 , p4_a1 in out nocopy VARCHAR2
9 , p4_a2 in out nocopy VARCHAR2
10 , p4_a3 in out nocopy VARCHAR2
11 , p4_a4 in out nocopy NUMBER
12 , p4_a5 in out nocopy VARCHAR2
13 , p4_a6 in out nocopy VARCHAR2
14 , p4_a7 in out nocopy VARCHAR2
15 , p4_a8 in out nocopy VARCHAR2
16 , p4_a9 in out nocopy VARCHAR2
17 , p4_a10 in out nocopy VARCHAR2
18 , p4_a11 in out nocopy VARCHAR2
19 , p4_a12 in out nocopy NUMBER
20 , p4_a13 in out nocopy NUMBER
21 , x_return_status out nocopy VARCHAR2
22 , x_msg_count out nocopy NUMBER
23 , x_msg_data out nocopy VARCHAR2
24 )
25
26 as
27 ddp_table_rec cn_sys_tables_pvt.table_rec_type;
28 ddindx binary_integer; indx binary_integer;
29 begin
30
31 -- copy data to the local IN or IN-OUT args, if any
32
33
34
35
36 ddp_table_rec.object_id := p4_a0;
37 ddp_table_rec.name := p4_a1;
38 ddp_table_rec.description := p4_a2;
39 ddp_table_rec.status := p4_a3;
40 ddp_table_rec.repository_id := p4_a4;
41 ddp_table_rec.alias := p4_a5;
42 ddp_table_rec.table_level := p4_a6;
43 ddp_table_rec.table_type := p4_a7;
44 ddp_table_rec.object_type := p4_a8;
45 ddp_table_rec.schema := p4_a9;
46 ddp_table_rec.calc_eligible_flag := p4_a10;
47 ddp_table_rec.user_name := p4_a11;
48 ddp_table_rec.org_id := p4_a12;
49 ddp_table_rec.object_version_number := p4_a13;
50
51
52
53
54 -- here's the delegated call to the old PL/SQL routine
55 cn_sys_tables_pvt.create_table(p_api_version,
56 p_init_msg_list,
57 p_commit,
58 p_validation_level,
59 ddp_table_rec,
60 x_return_status,
61 x_msg_count,
62 x_msg_data);
63
64 -- copy data back from the local variables to OUT or IN-OUT args, if any
65
66
67
68
69 p4_a0 := ddp_table_rec.object_id;
70 p4_a1 := ddp_table_rec.name;
71 p4_a2 := ddp_table_rec.description;
72 p4_a3 := ddp_table_rec.status;
73 p4_a4 := ddp_table_rec.repository_id;
74 p4_a5 := ddp_table_rec.alias;
75 p4_a6 := ddp_table_rec.table_level;
76 p4_a7 := ddp_table_rec.table_type;
77 p4_a8 := ddp_table_rec.object_type;
78 p4_a9 := ddp_table_rec.schema;
79 p4_a10 := ddp_table_rec.calc_eligible_flag;
80 p4_a11 := ddp_table_rec.user_name;
81 p4_a12 := ddp_table_rec.org_id;
82 p4_a13 := ddp_table_rec.object_version_number;
83
84
85
86 end;
87
88 procedure update_table(p_api_version NUMBER
89 , p_init_msg_list VARCHAR2
90 , p_commit VARCHAR2
91 , p_validation_level NUMBER
92 , p4_a0 in out nocopy NUMBER
93 , p4_a1 in out nocopy VARCHAR2
94 , p4_a2 in out nocopy VARCHAR2
95 , p4_a3 in out nocopy VARCHAR2
96 , p4_a4 in out nocopy NUMBER
97 , p4_a5 in out nocopy VARCHAR2
98 , p4_a6 in out nocopy VARCHAR2
99 , p4_a7 in out nocopy VARCHAR2
100 , p4_a8 in out nocopy VARCHAR2
101 , p4_a9 in out nocopy VARCHAR2
102 , p4_a10 in out nocopy VARCHAR2
103 , p4_a11 in out nocopy VARCHAR2
104 , p4_a12 in out nocopy NUMBER
105 , p4_a13 in out nocopy NUMBER
106 , x_return_status out nocopy VARCHAR2
107 , x_msg_count out nocopy NUMBER
108 , x_msg_data out nocopy VARCHAR2
109 )
110
111 as
112 ddp_table_rec cn_sys_tables_pvt.table_rec_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121 ddp_table_rec.object_id := p4_a0;
122 ddp_table_rec.name := p4_a1;
123 ddp_table_rec.description := p4_a2;
124 ddp_table_rec.status := p4_a3;
125 ddp_table_rec.repository_id := p4_a4;
126 ddp_table_rec.alias := p4_a5;
127 ddp_table_rec.table_level := p4_a6;
128 ddp_table_rec.table_type := p4_a7;
129 ddp_table_rec.object_type := p4_a8;
130 ddp_table_rec.schema := p4_a9;
131 ddp_table_rec.calc_eligible_flag := p4_a10;
132 ddp_table_rec.user_name := p4_a11;
133 ddp_table_rec.org_id := p4_a12;
134 ddp_table_rec.object_version_number := p4_a13;
135
136
137
138
139 -- here's the delegated call to the old PL/SQL routine
140 cn_sys_tables_pvt.update_table(p_api_version,
141 p_init_msg_list,
142 p_commit,
143 p_validation_level,
144 ddp_table_rec,
145 x_return_status,
146 x_msg_count,
147 x_msg_data);
148
149 -- copy data back from the local variables to OUT or IN-OUT args, if any
150
151
152
153
154 p4_a0 := ddp_table_rec.object_id;
155 p4_a1 := ddp_table_rec.name;
156 p4_a2 := ddp_table_rec.description;
157 p4_a3 := ddp_table_rec.status;
158 p4_a4 := ddp_table_rec.repository_id;
159 p4_a5 := ddp_table_rec.alias;
160 p4_a6 := ddp_table_rec.table_level;
161 p4_a7 := ddp_table_rec.table_type;
162 p4_a8 := ddp_table_rec.object_type;
163 p4_a9 := ddp_table_rec.schema;
164 p4_a10 := ddp_table_rec.calc_eligible_flag;
165 p4_a11 := ddp_table_rec.user_name;
166 p4_a12 := ddp_table_rec.org_id;
167 p4_a13 := ddp_table_rec.object_version_number;
168
169
170
171 end;
172
173 procedure delete_table(p_api_version NUMBER
174 , p_init_msg_list VARCHAR2
175 , p_commit VARCHAR2
176 , p_validation_level NUMBER
177 , p4_a0 NUMBER
178 , p4_a1 VARCHAR2
179 , p4_a2 VARCHAR2
180 , p4_a3 VARCHAR2
181 , p4_a4 NUMBER
182 , p4_a5 VARCHAR2
183 , p4_a6 VARCHAR2
184 , p4_a7 VARCHAR2
185 , p4_a8 VARCHAR2
186 , p4_a9 VARCHAR2
187 , p4_a10 VARCHAR2
188 , p4_a11 VARCHAR2
189 , p4_a12 NUMBER
190 , p4_a13 NUMBER
191 , x_return_status out nocopy VARCHAR2
192 , x_msg_count out nocopy NUMBER
193 , x_msg_data out nocopy VARCHAR2
194 )
195
196 as
197 ddp_table_rec cn_sys_tables_pvt.table_rec_type;
198 ddindx binary_integer; indx binary_integer;
199 begin
200
201 -- copy data to the local IN or IN-OUT args, if any
202
203
204
205
206 ddp_table_rec.object_id := p4_a0;
207 ddp_table_rec.name := p4_a1;
208 ddp_table_rec.description := p4_a2;
209 ddp_table_rec.status := p4_a3;
210 ddp_table_rec.repository_id := p4_a4;
211 ddp_table_rec.alias := p4_a5;
212 ddp_table_rec.table_level := p4_a6;
213 ddp_table_rec.table_type := p4_a7;
214 ddp_table_rec.object_type := p4_a8;
215 ddp_table_rec.schema := p4_a9;
216 ddp_table_rec.calc_eligible_flag := p4_a10;
217 ddp_table_rec.user_name := p4_a11;
218 ddp_table_rec.org_id := p4_a12;
219 ddp_table_rec.object_version_number := p4_a13;
220
221
222
223
224 -- here's the delegated call to the old PL/SQL routine
225 cn_sys_tables_pvt.delete_table(p_api_version,
226 p_init_msg_list,
227 p_commit,
228 p_validation_level,
229 ddp_table_rec,
230 x_return_status,
231 x_msg_count,
232 x_msg_data);
233
234 -- copy data back from the local variables to OUT or IN-OUT args, if any
235
236
237
238
239
240
241
242 end;
243
244 procedure update_column(p_api_version NUMBER
245 , p_init_msg_list VARCHAR2
246 , p_commit VARCHAR2
247 , p_validation_level NUMBER
248 , p4_a0 NUMBER
249 , p4_a1 VARCHAR2
250 , p4_a2 VARCHAR2
251 , p4_a3 VARCHAR2
252 , p4_a4 NUMBER
253 , p4_a5 VARCHAR2
254 , p4_a6 VARCHAR2
255 , p4_a7 VARCHAR2
256 , p4_a8 NUMBER
257 , p4_a9 VARCHAR2
258 , p4_a10 NUMBER
259 , p4_a11 VARCHAR2
260 , p4_a12 NUMBER
261 , p4_a13 NUMBER
262 , x_return_status out nocopy VARCHAR2
263 , x_msg_count out nocopy NUMBER
264 , x_msg_data out nocopy VARCHAR2
265 )
266
267 as
268 ddp_column_rec cn_sys_tables_pvt.column_rec_type;
269 ddindx binary_integer; indx binary_integer;
270 begin
271
272 -- copy data to the local IN or IN-OUT args, if any
273
274
275
276
277 ddp_column_rec.object_id := p4_a0;
278 ddp_column_rec.user_name := p4_a1;
279 ddp_column_rec.usage := p4_a2;
280 ddp_column_rec.foreign_key := p4_a3;
281 ddp_column_rec.dimension_id := p4_a4;
282 ddp_column_rec.user_column_name := p4_a5;
283 ddp_column_rec.classification_column := p4_a6;
284 ddp_column_rec.column_datatype := p4_a7;
285 ddp_column_rec.value_set_id := p4_a8;
286 ddp_column_rec.primary_key := p4_a9;
287 ddp_column_rec.position := p4_a10;
288 ddp_column_rec.custom_call := p4_a11;
289 ddp_column_rec.org_id := p4_a12;
290 ddp_column_rec.object_version_number := p4_a13;
291
292
293
294
295 -- here's the delegated call to the old PL/SQL routine
296 cn_sys_tables_pvt.update_column(p_api_version,
297 p_init_msg_list,
298 p_commit,
299 p_validation_level,
300 ddp_column_rec,
301 x_return_status,
302 x_msg_count,
303 x_msg_data);
304
305 -- copy data back from the local variables to OUT or IN-OUT args, if any
306
307
308
309
310
311
312
313 end;
314
315 procedure insert_column(p_api_version NUMBER
316 , p_init_msg_list VARCHAR2
317 , p_commit VARCHAR2
318 , p_validation_level NUMBER
319 , p_schema_name VARCHAR2
320 , p_table_name VARCHAR2
321 , p_column_name VARCHAR2
322 , p7_a0 NUMBER
323 , p7_a1 VARCHAR2
324 , p7_a2 VARCHAR2
325 , p7_a3 VARCHAR2
326 , p7_a4 NUMBER
327 , p7_a5 VARCHAR2
328 , p7_a6 VARCHAR2
329 , p7_a7 VARCHAR2
330 , p7_a8 NUMBER
331 , p7_a9 VARCHAR2
332 , p7_a10 NUMBER
333 , p7_a11 VARCHAR2
334 , p7_a12 NUMBER
335 , p7_a13 NUMBER
336 , x_return_status out nocopy VARCHAR2
337 , x_msg_count out nocopy NUMBER
338 , x_msg_data out nocopy VARCHAR2
339 )
340
341 as
342 ddp_column_rec cn_sys_tables_pvt.column_rec_type;
343 ddindx binary_integer; indx binary_integer;
344 begin
345
346 -- copy data to the local IN or IN-OUT args, if any
347
348
349
350
351
352
353
354 ddp_column_rec.object_id := p7_a0;
355 ddp_column_rec.user_name := p7_a1;
356 ddp_column_rec.usage := p7_a2;
357 ddp_column_rec.foreign_key := p7_a3;
358 ddp_column_rec.dimension_id := p7_a4;
359 ddp_column_rec.user_column_name := p7_a5;
360 ddp_column_rec.classification_column := p7_a6;
361 ddp_column_rec.column_datatype := p7_a7;
362 ddp_column_rec.value_set_id := p7_a8;
363 ddp_column_rec.primary_key := p7_a9;
364 ddp_column_rec.position := p7_a10;
365 ddp_column_rec.custom_call := p7_a11;
366 ddp_column_rec.org_id := p7_a12;
367 ddp_column_rec.object_version_number := p7_a13;
368
369
370
371
372 -- here's the delegated call to the old PL/SQL routine
373 cn_sys_tables_pvt.insert_column(p_api_version,
374 p_init_msg_list,
375 p_commit,
376 p_validation_level,
377 p_schema_name,
378 p_table_name,
379 p_column_name,
380 ddp_column_rec,
381 x_return_status,
382 x_msg_count,
383 x_msg_data);
384
385 -- copy data back from the local variables to OUT or IN-OUT args, if any
386
387
388
389
390
391
392
393
394
395
396 end;
397
398 end cn_sys_tables_pvt_w;