[Home] [Help]
PACKAGE BODY: APPS.CSD_RO_BULLETINS_PVT_W
Source
1 package body csd_ro_bulletins_pvt_w as
2 /* $Header: csdwrobb.pls 120.0 2008/02/28 04:39:26 rfieldma noship $ */
3 procedure rosetta_table_copy_in_p6(t out nocopy csd_ro_bulletins_pvt.csd_ro_sc_ids_tbl_type, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p6;
21 procedure rosetta_table_copy_out_p6(t csd_ro_bulletins_pvt.csd_ro_sc_ids_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p6;
43
44 procedure rosetta_table_copy_in_p9(t out nocopy csd_ro_bulletins_pvt.ro_bulletin_tbl_type, a0 JTF_NUMBER_TABLE
45 , a1 JTF_NUMBER_TABLE
46 , a2 JTF_NUMBER_TABLE
47 , a3 JTF_DATE_TABLE
48 , a4 JTF_NUMBER_TABLE
49 , a5 JTF_VARCHAR2_TABLE_100
50 , a6 JTF_NUMBER_TABLE
51 , a7 JTF_NUMBER_TABLE
52 , a8 JTF_NUMBER_TABLE
53 , a9 JTF_DATE_TABLE
54 , a10 JTF_NUMBER_TABLE
55 , a11 JTF_DATE_TABLE
56 , a12 JTF_NUMBER_TABLE
57 ) as
58 ddindx binary_integer; indx binary_integer;
59 begin
60 if a0 is not null and a0.count > 0 then
61 if a0.count > 0 then
62 indx := a0.first;
63 ddindx := 1;
64 while true loop
65 t(ddindx).ro_bulletin_id := a0(indx);
66 t(ddindx).repair_line_id := a1(indx);
67 t(ddindx).bulletin_id := a2(indx);
68 t(ddindx).last_viewed_date := a3(indx);
69 t(ddindx).last_viewed_by := a4(indx);
70 t(ddindx).source_type := a5(indx);
71 t(ddindx).source_id := a6(indx);
72 t(ddindx).object_version_number := a7(indx);
73 t(ddindx).created_by := a8(indx);
74 t(ddindx).creation_date := a9(indx);
75 t(ddindx).last_updated_by := a10(indx);
76 t(ddindx).last_update_date := a11(indx);
77 t(ddindx).last_update_login := a12(indx);
78 ddindx := ddindx+1;
79 if a0.last =indx
80 then exit;
81 end if;
82 indx := a0.next(indx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_in_p9;
87 procedure rosetta_table_copy_out_p9(t csd_ro_bulletins_pvt.ro_bulletin_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
88 , a1 out nocopy JTF_NUMBER_TABLE
89 , a2 out nocopy JTF_NUMBER_TABLE
90 , a3 out nocopy JTF_DATE_TABLE
91 , a4 out nocopy JTF_NUMBER_TABLE
92 , a5 out nocopy JTF_VARCHAR2_TABLE_100
93 , a6 out nocopy JTF_NUMBER_TABLE
94 , a7 out nocopy JTF_NUMBER_TABLE
95 , a8 out nocopy JTF_NUMBER_TABLE
96 , a9 out nocopy JTF_DATE_TABLE
97 , a10 out nocopy JTF_NUMBER_TABLE
98 , a11 out nocopy JTF_DATE_TABLE
99 , a12 out nocopy JTF_NUMBER_TABLE
100 ) as
101 ddindx binary_integer; indx binary_integer;
102 begin
103 if t is null or t.count = 0 then
104 a0 := JTF_NUMBER_TABLE();
105 a1 := JTF_NUMBER_TABLE();
106 a2 := JTF_NUMBER_TABLE();
107 a3 := JTF_DATE_TABLE();
108 a4 := JTF_NUMBER_TABLE();
109 a5 := JTF_VARCHAR2_TABLE_100();
110 a6 := JTF_NUMBER_TABLE();
111 a7 := JTF_NUMBER_TABLE();
112 a8 := JTF_NUMBER_TABLE();
113 a9 := JTF_DATE_TABLE();
114 a10 := JTF_NUMBER_TABLE();
115 a11 := JTF_DATE_TABLE();
116 a12 := JTF_NUMBER_TABLE();
117 else
118 a0 := JTF_NUMBER_TABLE();
119 a1 := JTF_NUMBER_TABLE();
120 a2 := JTF_NUMBER_TABLE();
121 a3 := JTF_DATE_TABLE();
122 a4 := JTF_NUMBER_TABLE();
123 a5 := JTF_VARCHAR2_TABLE_100();
124 a6 := JTF_NUMBER_TABLE();
125 a7 := JTF_NUMBER_TABLE();
126 a8 := JTF_NUMBER_TABLE();
127 a9 := JTF_DATE_TABLE();
128 a10 := JTF_NUMBER_TABLE();
129 a11 := JTF_DATE_TABLE();
130 a12 := JTF_NUMBER_TABLE();
131 if t.count > 0 then
132 a0.extend(t.count);
133 a1.extend(t.count);
134 a2.extend(t.count);
135 a3.extend(t.count);
136 a4.extend(t.count);
137 a5.extend(t.count);
138 a6.extend(t.count);
139 a7.extend(t.count);
140 a8.extend(t.count);
141 a9.extend(t.count);
142 a10.extend(t.count);
143 a11.extend(t.count);
144 a12.extend(t.count);
145 ddindx := t.first;
146 indx := 1;
147 while true loop
148 a0(indx) := t(ddindx).ro_bulletin_id;
149 a1(indx) := t(ddindx).repair_line_id;
150 a2(indx) := t(ddindx).bulletin_id;
151 a3(indx) := t(ddindx).last_viewed_date;
152 a4(indx) := t(ddindx).last_viewed_by;
153 a5(indx) := t(ddindx).source_type;
154 a6(indx) := t(ddindx).source_id;
155 a7(indx) := t(ddindx).object_version_number;
156 a8(indx) := t(ddindx).created_by;
157 a9(indx) := t(ddindx).creation_date;
158 a10(indx) := t(ddindx).last_updated_by;
159 a11(indx) := t(ddindx).last_update_date;
160 a12(indx) := t(ddindx).last_update_login;
161 indx := indx+1;
162 if t.last =ddindx
163 then exit;
164 end if;
165 ddindx := t.next(ddindx);
166 end loop;
167 end if;
168 end if;
169 end rosetta_table_copy_out_p9;
170
171 procedure create_ro_bulletin(p_api_version_number NUMBER
172 , p_init_msg_list VARCHAR2
173 , p_commit VARCHAR2
174 , p_validation_level NUMBER
175 , p4_a0 NUMBER
176 , p4_a1 NUMBER
177 , p4_a2 NUMBER
178 , p4_a3 DATE
179 , p4_a4 NUMBER
180 , p4_a5 VARCHAR2
181 , p4_a6 NUMBER
182 , p4_a7 NUMBER
183 , p4_a8 NUMBER
184 , p4_a9 DATE
185 , p4_a10 NUMBER
186 , p4_a11 DATE
187 , p4_a12 NUMBER
188 , x_ro_bulletin_id out nocopy NUMBER
189 , x_return_status out nocopy VARCHAR2
190 , x_msg_count out nocopy NUMBER
191 , x_msg_data out nocopy VARCHAR2
192 )
193
194 as
195 ddp_ro_bulletin_rec csd_ro_bulletins_pvt.ro_bulletin_rec_type;
196 ddindx binary_integer; indx binary_integer;
197 begin
198
199 -- copy data to the local IN or IN-OUT args, if any
200
201
202
203
204 ddp_ro_bulletin_rec.ro_bulletin_id := p4_a0;
205 ddp_ro_bulletin_rec.repair_line_id := p4_a1;
206 ddp_ro_bulletin_rec.bulletin_id := p4_a2;
207 ddp_ro_bulletin_rec.last_viewed_date := p4_a3;
208 ddp_ro_bulletin_rec.last_viewed_by := p4_a4;
209 ddp_ro_bulletin_rec.source_type := p4_a5;
210 ddp_ro_bulletin_rec.source_id := p4_a6;
211 ddp_ro_bulletin_rec.object_version_number := p4_a7;
212 ddp_ro_bulletin_rec.created_by := p4_a8;
213 ddp_ro_bulletin_rec.creation_date := p4_a9;
214 ddp_ro_bulletin_rec.last_updated_by := p4_a10;
215 ddp_ro_bulletin_rec.last_update_date := p4_a11;
216 ddp_ro_bulletin_rec.last_update_login := p4_a12;
217
218
219
220
221
222 -- here's the delegated call to the old PL/SQL routine
223 csd_ro_bulletins_pvt.create_ro_bulletin(p_api_version_number,
224 p_init_msg_list,
225 p_commit,
226 p_validation_level,
227 ddp_ro_bulletin_rec,
228 x_ro_bulletin_id,
229 x_return_status,
230 x_msg_count,
231 x_msg_data);
232
233 -- copy data back from the local variables to OUT or IN-OUT args, if any
234
235
236
237
238
239
240
241
242 end;
243
244 procedure update_ro_bulletin(p_api_version_number NUMBER
245 , p_init_msg_list VARCHAR2
246 , p_commit VARCHAR2
247 , p_validation_level NUMBER
248 , p4_a0 NUMBER
249 , p4_a1 NUMBER
250 , p4_a2 NUMBER
251 , p4_a3 DATE
252 , p4_a4 NUMBER
253 , p4_a5 VARCHAR2
254 , p4_a6 NUMBER
255 , p4_a7 NUMBER
256 , p4_a8 NUMBER
257 , p4_a9 DATE
258 , p4_a10 NUMBER
259 , p4_a11 DATE
260 , p4_a12 NUMBER
261 , x_return_status out nocopy VARCHAR2
262 , x_msg_count out nocopy NUMBER
263 , x_msg_data out nocopy VARCHAR2
264 )
265
266 as
267 ddp_ro_bulletin_rec csd_ro_bulletins_pvt.ro_bulletin_rec_type;
268 ddindx binary_integer; indx binary_integer;
269 begin
270
271 -- copy data to the local IN or IN-OUT args, if any
272
273
274
275
276 ddp_ro_bulletin_rec.ro_bulletin_id := p4_a0;
277 ddp_ro_bulletin_rec.repair_line_id := p4_a1;
278 ddp_ro_bulletin_rec.bulletin_id := p4_a2;
279 ddp_ro_bulletin_rec.last_viewed_date := p4_a3;
280 ddp_ro_bulletin_rec.last_viewed_by := p4_a4;
281 ddp_ro_bulletin_rec.source_type := p4_a5;
282 ddp_ro_bulletin_rec.source_id := p4_a6;
283 ddp_ro_bulletin_rec.object_version_number := p4_a7;
284 ddp_ro_bulletin_rec.created_by := p4_a8;
285 ddp_ro_bulletin_rec.creation_date := p4_a9;
286 ddp_ro_bulletin_rec.last_updated_by := p4_a10;
287 ddp_ro_bulletin_rec.last_update_date := p4_a11;
288 ddp_ro_bulletin_rec.last_update_login := p4_a12;
289
290
291
292
293 -- here's the delegated call to the old PL/SQL routine
294 csd_ro_bulletins_pvt.update_ro_bulletin(p_api_version_number,
295 p_init_msg_list,
296 p_commit,
297 p_validation_level,
298 ddp_ro_bulletin_rec,
299 x_return_status,
300 x_msg_count,
301 x_msg_data);
302
303 -- copy data back from the local variables to OUT or IN-OUT args, if any
304
305
306
307
308
309
310
311 end;
312
313 procedure lock_ro_bulletin(p_api_version_number NUMBER
314 , p_init_msg_list VARCHAR2
315 , p_commit VARCHAR2
316 , p_validation_level NUMBER
317 , p4_a0 NUMBER
318 , p4_a1 NUMBER
319 , p4_a2 NUMBER
320 , p4_a3 DATE
321 , p4_a4 NUMBER
322 , p4_a5 VARCHAR2
323 , p4_a6 NUMBER
324 , p4_a7 NUMBER
325 , p4_a8 NUMBER
326 , p4_a9 DATE
327 , p4_a10 NUMBER
328 , p4_a11 DATE
329 , p4_a12 NUMBER
330 , x_return_status out nocopy VARCHAR2
331 , x_msg_count out nocopy NUMBER
332 , x_msg_data out nocopy VARCHAR2
333 )
334
335 as
336 ddp_ro_bulletin_rec csd_ro_bulletins_pvt.ro_bulletin_rec_type;
337 ddindx binary_integer; indx binary_integer;
338 begin
339
340 -- copy data to the local IN or IN-OUT args, if any
341
342
343
344
345 ddp_ro_bulletin_rec.ro_bulletin_id := p4_a0;
346 ddp_ro_bulletin_rec.repair_line_id := p4_a1;
347 ddp_ro_bulletin_rec.bulletin_id := p4_a2;
348 ddp_ro_bulletin_rec.last_viewed_date := p4_a3;
349 ddp_ro_bulletin_rec.last_viewed_by := p4_a4;
350 ddp_ro_bulletin_rec.source_type := p4_a5;
351 ddp_ro_bulletin_rec.source_id := p4_a6;
352 ddp_ro_bulletin_rec.object_version_number := p4_a7;
353 ddp_ro_bulletin_rec.created_by := p4_a8;
354 ddp_ro_bulletin_rec.creation_date := p4_a9;
355 ddp_ro_bulletin_rec.last_updated_by := p4_a10;
356 ddp_ro_bulletin_rec.last_update_date := p4_a11;
357 ddp_ro_bulletin_rec.last_update_login := p4_a12;
358
359
360
361
362 -- here's the delegated call to the old PL/SQL routine
363 csd_ro_bulletins_pvt.lock_ro_bulletin(p_api_version_number,
364 p_init_msg_list,
365 p_commit,
366 p_validation_level,
367 ddp_ro_bulletin_rec,
368 x_return_status,
369 x_msg_count,
370 x_msg_data);
371
372 -- copy data back from the local variables to OUT or IN-OUT args, if any
373
374
375
376
377
378
379
380 end;
381
382 procedure link_bulletins_to_ro(p_api_version_number NUMBER
383 , p_init_msg_list VARCHAR2
384 , p_commit VARCHAR2
385 , p_validation_level NUMBER
386 , p_repair_line_id NUMBER
387 , px_ro_sc_ids_tbl in out nocopy JTF_NUMBER_TABLE
388 , x_return_status out nocopy VARCHAR2
389 , x_msg_count out nocopy NUMBER
390 , x_msg_data out nocopy VARCHAR2
391 )
392
393 as
394 ddpx_ro_sc_ids_tbl csd_ro_bulletins_pvt.csd_ro_sc_ids_tbl_type;
395 ddindx binary_integer; indx binary_integer;
396 begin
397
398 -- copy data to the local IN or IN-OUT args, if any
399
400
401
402
403
404 csd_ro_bulletins_pvt_w.rosetta_table_copy_in_p6(ddpx_ro_sc_ids_tbl, px_ro_sc_ids_tbl);
405
406
407
408
409 -- here's the delegated call to the old PL/SQL routine
410 csd_ro_bulletins_pvt.link_bulletins_to_ro(p_api_version_number,
411 p_init_msg_list,
412 p_commit,
413 p_validation_level,
414 p_repair_line_id,
415 ddpx_ro_sc_ids_tbl,
416 x_return_status,
417 x_msg_count,
418 x_msg_data);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422
423
424
425
426 csd_ro_bulletins_pvt_w.rosetta_table_copy_out_p6(ddpx_ro_sc_ids_tbl, px_ro_sc_ids_tbl);
427
428
429
430 end;
431
432 procedure create_new_ro_bulletin_link(p_api_version_number NUMBER
433 , p_commit VARCHAR2
434 , p_init_msg_list VARCHAR2
435 , p_validation_level NUMBER
436 , p_repair_line_id NUMBER
437 , p_bulletin_id NUMBER
438 , p_rule_id NUMBER
439 , px_ro_sc_ids_tbl in out nocopy JTF_NUMBER_TABLE
440 , x_return_status out nocopy VARCHAR2
441 , x_msg_count out nocopy NUMBER
442 , x_msg_data out nocopy VARCHAR2
443 )
444
445 as
446 ddpx_ro_sc_ids_tbl csd_ro_bulletins_pvt.csd_ro_sc_ids_tbl_type;
447 ddindx binary_integer; indx binary_integer;
448 begin
449
450 -- copy data to the local IN or IN-OUT args, if any
451
452
453
454
455
456
457
458 csd_ro_bulletins_pvt_w.rosetta_table_copy_in_p6(ddpx_ro_sc_ids_tbl, px_ro_sc_ids_tbl);
459
460
461
462
463 -- here's the delegated call to the old PL/SQL routine
464 csd_ro_bulletins_pvt.create_new_ro_bulletin_link(p_api_version_number,
465 p_commit,
466 p_init_msg_list,
467 p_validation_level,
468 p_repair_line_id,
469 p_bulletin_id,
470 p_rule_id,
471 ddpx_ro_sc_ids_tbl,
472 x_return_status,
473 x_msg_count,
474 x_msg_data);
475
476 -- copy data back from the local variables to OUT or IN-OUT args, if any
477
478
479
480
481
482
483
484 csd_ro_bulletins_pvt_w.rosetta_table_copy_out_p6(ddpx_ro_sc_ids_tbl, px_ro_sc_ids_tbl);
485
486
487
488 end;
489
490 end csd_ro_bulletins_pvt_w;