[Home] [Help]
PACKAGE BODY: APPS.CSP_REQUIREMENT_LINES_PVT_W
Source
1 package body csp_requirement_lines_pvt_w as
2 /* $Header: csprqlpvtwb.pls 120.1 2010/12/07 06:21:36 hhaugeru noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p3(t out nocopy csp_requirement_lines_pvt.requirement_line_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_DATE_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_VARCHAR2_TABLE_200
37 , a21 JTF_VARCHAR2_TABLE_200
38 , a22 JTF_VARCHAR2_TABLE_200
39 , a23 JTF_VARCHAR2_TABLE_200
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_200
45 , a29 JTF_VARCHAR2_TABLE_200
46 , a30 JTF_VARCHAR2_TABLE_200
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_DATE_TABLE
52 , a36 JTF_VARCHAR2_TABLE_300
53 , a37 JTF_VARCHAR2_TABLE_100
54 , a38 JTF_NUMBER_TABLE
55 , a39 JTF_VARCHAR2_TABLE_100
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if a0 is not null and a0.count > 0 then
60 if a0.count > 0 then
61 indx := a0.first;
62 ddindx := 1;
63 while true loop
64 t(ddindx).requirement_line_id := a0(indx);
65 t(ddindx).created_by := a1(indx);
66 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a2(indx));
67 t(ddindx).last_updated_by := a3(indx);
68 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
69 t(ddindx).last_update_login := a5(indx);
70 t(ddindx).requirement_header_id := a6(indx);
71 t(ddindx).inventory_item_id := a7(indx);
72 t(ddindx).uom_code := a8(indx);
73 t(ddindx).required_quantity := a9(indx);
74 t(ddindx).ship_complete_flag := a10(indx);
75 t(ddindx).likelihood := a11(indx);
76 t(ddindx).revision := a12(indx);
77 t(ddindx).source_organization_id := a13(indx);
78 t(ddindx).source_subinventory := a14(indx);
79 t(ddindx).ordered_quantity := a15(indx);
80 t(ddindx).order_line_id := a16(indx);
81 t(ddindx).reservation_id := a17(indx);
82 t(ddindx).order_by_date := rosetta_g_miss_date_in_map(a18(indx));
83 t(ddindx).attribute_category := a19(indx);
84 t(ddindx).attribute1 := a20(indx);
85 t(ddindx).attribute2 := a21(indx);
86 t(ddindx).attribute3 := a22(indx);
87 t(ddindx).attribute4 := a23(indx);
88 t(ddindx).attribute5 := a24(indx);
89 t(ddindx).attribute6 := a25(indx);
90 t(ddindx).attribute7 := a26(indx);
91 t(ddindx).attribute8 := a27(indx);
92 t(ddindx).attribute9 := a28(indx);
93 t(ddindx).attribute10 := a29(indx);
94 t(ddindx).attribute11 := a30(indx);
95 t(ddindx).attribute12 := a31(indx);
96 t(ddindx).attribute13 := a32(indx);
97 t(ddindx).attribute14 := a33(indx);
98 t(ddindx).attribute15 := a34(indx);
99 t(ddindx).arrival_date := rosetta_g_miss_date_in_map(a35(indx));
100 t(ddindx).item_scratchpad := a36(indx);
101 t(ddindx).shipping_method_code := a37(indx);
102 t(ddindx).local_reservation_id := a38(indx);
103 t(ddindx).sourced_from := a39(indx);
104 ddindx := ddindx+1;
105 if a0.last =indx
106 then exit;
107 end if;
108 indx := a0.next(indx);
109 end loop;
110 end if;
111 end if;
112 end rosetta_table_copy_in_p3;
113 procedure rosetta_table_copy_out_p3(t csp_requirement_lines_pvt.requirement_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
114 , a1 out nocopy JTF_NUMBER_TABLE
115 , a2 out nocopy JTF_DATE_TABLE
116 , a3 out nocopy JTF_NUMBER_TABLE
117 , a4 out nocopy JTF_DATE_TABLE
118 , a5 out nocopy JTF_NUMBER_TABLE
119 , a6 out nocopy JTF_NUMBER_TABLE
120 , a7 out nocopy JTF_NUMBER_TABLE
121 , a8 out nocopy JTF_VARCHAR2_TABLE_100
122 , a9 out nocopy JTF_NUMBER_TABLE
123 , a10 out nocopy JTF_VARCHAR2_TABLE_100
124 , a11 out nocopy JTF_NUMBER_TABLE
125 , a12 out nocopy JTF_VARCHAR2_TABLE_100
126 , a13 out nocopy JTF_NUMBER_TABLE
127 , a14 out nocopy JTF_VARCHAR2_TABLE_100
128 , a15 out nocopy JTF_NUMBER_TABLE
129 , a16 out nocopy JTF_NUMBER_TABLE
130 , a17 out nocopy JTF_NUMBER_TABLE
131 , a18 out nocopy JTF_DATE_TABLE
132 , a19 out nocopy JTF_VARCHAR2_TABLE_100
133 , a20 out nocopy JTF_VARCHAR2_TABLE_200
134 , a21 out nocopy JTF_VARCHAR2_TABLE_200
135 , a22 out nocopy JTF_VARCHAR2_TABLE_200
136 , a23 out nocopy JTF_VARCHAR2_TABLE_200
137 , a24 out nocopy JTF_VARCHAR2_TABLE_200
138 , a25 out nocopy JTF_VARCHAR2_TABLE_200
139 , a26 out nocopy JTF_VARCHAR2_TABLE_200
140 , a27 out nocopy JTF_VARCHAR2_TABLE_200
141 , a28 out nocopy JTF_VARCHAR2_TABLE_200
142 , a29 out nocopy JTF_VARCHAR2_TABLE_200
143 , a30 out nocopy JTF_VARCHAR2_TABLE_200
144 , a31 out nocopy JTF_VARCHAR2_TABLE_200
145 , a32 out nocopy JTF_VARCHAR2_TABLE_200
146 , a33 out nocopy JTF_VARCHAR2_TABLE_200
147 , a34 out nocopy JTF_VARCHAR2_TABLE_200
148 , a35 out nocopy JTF_DATE_TABLE
149 , a36 out nocopy JTF_VARCHAR2_TABLE_300
150 , a37 out nocopy JTF_VARCHAR2_TABLE_100
151 , a38 out nocopy JTF_NUMBER_TABLE
152 , a39 out nocopy JTF_VARCHAR2_TABLE_100
153 ) as
154 ddindx binary_integer; indx binary_integer;
155 begin
156 if t is null or t.count = 0 then
157 a0 := JTF_NUMBER_TABLE();
158 a1 := JTF_NUMBER_TABLE();
159 a2 := JTF_DATE_TABLE();
160 a3 := JTF_NUMBER_TABLE();
161 a4 := JTF_DATE_TABLE();
162 a5 := JTF_NUMBER_TABLE();
163 a6 := JTF_NUMBER_TABLE();
164 a7 := JTF_NUMBER_TABLE();
165 a8 := JTF_VARCHAR2_TABLE_100();
166 a9 := JTF_NUMBER_TABLE();
167 a10 := JTF_VARCHAR2_TABLE_100();
168 a11 := JTF_NUMBER_TABLE();
169 a12 := JTF_VARCHAR2_TABLE_100();
170 a13 := JTF_NUMBER_TABLE();
171 a14 := JTF_VARCHAR2_TABLE_100();
172 a15 := JTF_NUMBER_TABLE();
173 a16 := JTF_NUMBER_TABLE();
174 a17 := JTF_NUMBER_TABLE();
175 a18 := JTF_DATE_TABLE();
176 a19 := JTF_VARCHAR2_TABLE_100();
177 a20 := JTF_VARCHAR2_TABLE_200();
178 a21 := JTF_VARCHAR2_TABLE_200();
179 a22 := JTF_VARCHAR2_TABLE_200();
180 a23 := JTF_VARCHAR2_TABLE_200();
181 a24 := JTF_VARCHAR2_TABLE_200();
182 a25 := JTF_VARCHAR2_TABLE_200();
183 a26 := JTF_VARCHAR2_TABLE_200();
184 a27 := JTF_VARCHAR2_TABLE_200();
185 a28 := JTF_VARCHAR2_TABLE_200();
186 a29 := JTF_VARCHAR2_TABLE_200();
187 a30 := JTF_VARCHAR2_TABLE_200();
188 a31 := JTF_VARCHAR2_TABLE_200();
189 a32 := JTF_VARCHAR2_TABLE_200();
190 a33 := JTF_VARCHAR2_TABLE_200();
191 a34 := JTF_VARCHAR2_TABLE_200();
192 a35 := JTF_DATE_TABLE();
193 a36 := JTF_VARCHAR2_TABLE_300();
194 a37 := JTF_VARCHAR2_TABLE_100();
195 a38 := JTF_NUMBER_TABLE();
196 a39 := JTF_VARCHAR2_TABLE_100();
197 else
198 a0 := JTF_NUMBER_TABLE();
199 a1 := JTF_NUMBER_TABLE();
200 a2 := JTF_DATE_TABLE();
201 a3 := JTF_NUMBER_TABLE();
202 a4 := JTF_DATE_TABLE();
203 a5 := JTF_NUMBER_TABLE();
204 a6 := JTF_NUMBER_TABLE();
205 a7 := JTF_NUMBER_TABLE();
206 a8 := JTF_VARCHAR2_TABLE_100();
207 a9 := JTF_NUMBER_TABLE();
208 a10 := JTF_VARCHAR2_TABLE_100();
209 a11 := JTF_NUMBER_TABLE();
210 a12 := JTF_VARCHAR2_TABLE_100();
211 a13 := JTF_NUMBER_TABLE();
212 a14 := JTF_VARCHAR2_TABLE_100();
213 a15 := JTF_NUMBER_TABLE();
214 a16 := JTF_NUMBER_TABLE();
215 a17 := JTF_NUMBER_TABLE();
216 a18 := JTF_DATE_TABLE();
217 a19 := JTF_VARCHAR2_TABLE_100();
218 a20 := JTF_VARCHAR2_TABLE_200();
219 a21 := JTF_VARCHAR2_TABLE_200();
220 a22 := JTF_VARCHAR2_TABLE_200();
221 a23 := JTF_VARCHAR2_TABLE_200();
222 a24 := JTF_VARCHAR2_TABLE_200();
223 a25 := JTF_VARCHAR2_TABLE_200();
224 a26 := JTF_VARCHAR2_TABLE_200();
225 a27 := JTF_VARCHAR2_TABLE_200();
226 a28 := JTF_VARCHAR2_TABLE_200();
227 a29 := JTF_VARCHAR2_TABLE_200();
228 a30 := JTF_VARCHAR2_TABLE_200();
229 a31 := JTF_VARCHAR2_TABLE_200();
230 a32 := JTF_VARCHAR2_TABLE_200();
231 a33 := JTF_VARCHAR2_TABLE_200();
232 a34 := JTF_VARCHAR2_TABLE_200();
233 a35 := JTF_DATE_TABLE();
234 a36 := JTF_VARCHAR2_TABLE_300();
235 a37 := JTF_VARCHAR2_TABLE_100();
236 a38 := JTF_NUMBER_TABLE();
237 a39 := JTF_VARCHAR2_TABLE_100();
238 if t.count > 0 then
239 a0.extend(t.count);
240 a1.extend(t.count);
241 a2.extend(t.count);
242 a3.extend(t.count);
243 a4.extend(t.count);
244 a5.extend(t.count);
245 a6.extend(t.count);
246 a7.extend(t.count);
247 a8.extend(t.count);
248 a9.extend(t.count);
249 a10.extend(t.count);
250 a11.extend(t.count);
251 a12.extend(t.count);
252 a13.extend(t.count);
253 a14.extend(t.count);
254 a15.extend(t.count);
255 a16.extend(t.count);
256 a17.extend(t.count);
257 a18.extend(t.count);
258 a19.extend(t.count);
259 a20.extend(t.count);
260 a21.extend(t.count);
261 a22.extend(t.count);
262 a23.extend(t.count);
263 a24.extend(t.count);
264 a25.extend(t.count);
265 a26.extend(t.count);
266 a27.extend(t.count);
267 a28.extend(t.count);
268 a29.extend(t.count);
269 a30.extend(t.count);
270 a31.extend(t.count);
271 a32.extend(t.count);
272 a33.extend(t.count);
273 a34.extend(t.count);
274 a35.extend(t.count);
275 a36.extend(t.count);
276 a37.extend(t.count);
277 a38.extend(t.count);
278 a39.extend(t.count);
279 ddindx := t.first;
280 indx := 1;
281 while true loop
282 a0(indx) := t(ddindx).requirement_line_id;
283 a1(indx) := t(ddindx).created_by;
284 a2(indx) := t(ddindx).creation_date;
285 a3(indx) := t(ddindx).last_updated_by;
286 a4(indx) := t(ddindx).last_update_date;
287 a5(indx) := t(ddindx).last_update_login;
288 a6(indx) := t(ddindx).requirement_header_id;
289 a7(indx) := t(ddindx).inventory_item_id;
290 a8(indx) := t(ddindx).uom_code;
291 a9(indx) := t(ddindx).required_quantity;
292 a10(indx) := t(ddindx).ship_complete_flag;
293 a11(indx) := t(ddindx).likelihood;
294 a12(indx) := t(ddindx).revision;
295 a13(indx) := t(ddindx).source_organization_id;
296 a14(indx) := t(ddindx).source_subinventory;
297 a15(indx) := t(ddindx).ordered_quantity;
298 a16(indx) := t(ddindx).order_line_id;
299 a17(indx) := t(ddindx).reservation_id;
300 a18(indx) := t(ddindx).order_by_date;
301 a19(indx) := t(ddindx).attribute_category;
302 a20(indx) := t(ddindx).attribute1;
303 a21(indx) := t(ddindx).attribute2;
304 a22(indx) := t(ddindx).attribute3;
305 a23(indx) := t(ddindx).attribute4;
306 a24(indx) := t(ddindx).attribute5;
307 a25(indx) := t(ddindx).attribute6;
308 a26(indx) := t(ddindx).attribute7;
309 a27(indx) := t(ddindx).attribute8;
310 a28(indx) := t(ddindx).attribute9;
311 a29(indx) := t(ddindx).attribute10;
312 a30(indx) := t(ddindx).attribute11;
313 a31(indx) := t(ddindx).attribute12;
314 a32(indx) := t(ddindx).attribute13;
315 a33(indx) := t(ddindx).attribute14;
316 a34(indx) := t(ddindx).attribute15;
317 a35(indx) := t(ddindx).arrival_date;
318 a36(indx) := t(ddindx).item_scratchpad;
319 a37(indx) := t(ddindx).shipping_method_code;
320 a38(indx) := t(ddindx).local_reservation_id;
321 a39(indx) := t(ddindx).sourced_from;
322 indx := indx+1;
323 if t.last =ddindx
324 then exit;
325 end if;
326 ddindx := t.next(ddindx);
327 end loop;
328 end if;
329 end if;
330 end rosetta_table_copy_out_p3;
331
332 procedure create_requirement_lines(p_api_version_number NUMBER
333 , p_init_msg_list VARCHAR2
334 , p_commit VARCHAR2
335 , p_validation_level NUMBER
336 , p4_a0 JTF_NUMBER_TABLE
337 , p4_a1 JTF_NUMBER_TABLE
338 , p4_a2 JTF_DATE_TABLE
339 , p4_a3 JTF_NUMBER_TABLE
340 , p4_a4 JTF_DATE_TABLE
341 , p4_a5 JTF_NUMBER_TABLE
342 , p4_a6 JTF_NUMBER_TABLE
343 , p4_a7 JTF_NUMBER_TABLE
344 , p4_a8 JTF_VARCHAR2_TABLE_100
345 , p4_a9 JTF_NUMBER_TABLE
346 , p4_a10 JTF_VARCHAR2_TABLE_100
347 , p4_a11 JTF_NUMBER_TABLE
348 , p4_a12 JTF_VARCHAR2_TABLE_100
349 , p4_a13 JTF_NUMBER_TABLE
350 , p4_a14 JTF_VARCHAR2_TABLE_100
351 , p4_a15 JTF_NUMBER_TABLE
352 , p4_a16 JTF_NUMBER_TABLE
353 , p4_a17 JTF_NUMBER_TABLE
354 , p4_a18 JTF_DATE_TABLE
355 , p4_a19 JTF_VARCHAR2_TABLE_100
356 , p4_a20 JTF_VARCHAR2_TABLE_200
357 , p4_a21 JTF_VARCHAR2_TABLE_200
358 , p4_a22 JTF_VARCHAR2_TABLE_200
359 , p4_a23 JTF_VARCHAR2_TABLE_200
360 , p4_a24 JTF_VARCHAR2_TABLE_200
361 , p4_a25 JTF_VARCHAR2_TABLE_200
362 , p4_a26 JTF_VARCHAR2_TABLE_200
363 , p4_a27 JTF_VARCHAR2_TABLE_200
364 , p4_a28 JTF_VARCHAR2_TABLE_200
365 , p4_a29 JTF_VARCHAR2_TABLE_200
366 , p4_a30 JTF_VARCHAR2_TABLE_200
367 , p4_a31 JTF_VARCHAR2_TABLE_200
368 , p4_a32 JTF_VARCHAR2_TABLE_200
369 , p4_a33 JTF_VARCHAR2_TABLE_200
370 , p4_a34 JTF_VARCHAR2_TABLE_200
371 , p4_a35 JTF_DATE_TABLE
372 , p4_a36 JTF_VARCHAR2_TABLE_300
373 , p4_a37 JTF_VARCHAR2_TABLE_100
374 , p4_a38 JTF_NUMBER_TABLE
375 , p4_a39 JTF_VARCHAR2_TABLE_100
376 , p5_a0 out nocopy JTF_NUMBER_TABLE
377 , p5_a1 out nocopy JTF_NUMBER_TABLE
378 , p5_a2 out nocopy JTF_DATE_TABLE
379 , p5_a3 out nocopy JTF_NUMBER_TABLE
380 , p5_a4 out nocopy JTF_DATE_TABLE
381 , p5_a5 out nocopy JTF_NUMBER_TABLE
382 , p5_a6 out nocopy JTF_NUMBER_TABLE
383 , p5_a7 out nocopy JTF_NUMBER_TABLE
384 , p5_a8 out nocopy JTF_VARCHAR2_TABLE_100
385 , p5_a9 out nocopy JTF_NUMBER_TABLE
386 , p5_a10 out nocopy JTF_VARCHAR2_TABLE_100
387 , p5_a11 out nocopy JTF_NUMBER_TABLE
388 , p5_a12 out nocopy JTF_VARCHAR2_TABLE_100
389 , p5_a13 out nocopy JTF_NUMBER_TABLE
390 , p5_a14 out nocopy JTF_VARCHAR2_TABLE_100
391 , p5_a15 out nocopy JTF_NUMBER_TABLE
392 , p5_a16 out nocopy JTF_NUMBER_TABLE
393 , p5_a17 out nocopy JTF_NUMBER_TABLE
394 , p5_a18 out nocopy JTF_DATE_TABLE
395 , p5_a19 out nocopy JTF_VARCHAR2_TABLE_100
396 , p5_a20 out nocopy JTF_VARCHAR2_TABLE_200
397 , p5_a21 out nocopy JTF_VARCHAR2_TABLE_200
398 , p5_a22 out nocopy JTF_VARCHAR2_TABLE_200
399 , p5_a23 out nocopy JTF_VARCHAR2_TABLE_200
400 , p5_a24 out nocopy JTF_VARCHAR2_TABLE_200
401 , p5_a25 out nocopy JTF_VARCHAR2_TABLE_200
402 , p5_a26 out nocopy JTF_VARCHAR2_TABLE_200
403 , p5_a27 out nocopy JTF_VARCHAR2_TABLE_200
404 , p5_a28 out nocopy JTF_VARCHAR2_TABLE_200
405 , p5_a29 out nocopy JTF_VARCHAR2_TABLE_200
406 , p5_a30 out nocopy JTF_VARCHAR2_TABLE_200
407 , p5_a31 out nocopy JTF_VARCHAR2_TABLE_200
408 , p5_a32 out nocopy JTF_VARCHAR2_TABLE_200
409 , p5_a33 out nocopy JTF_VARCHAR2_TABLE_200
410 , p5_a34 out nocopy JTF_VARCHAR2_TABLE_200
411 , p5_a35 out nocopy JTF_DATE_TABLE
412 , p5_a36 out nocopy JTF_VARCHAR2_TABLE_300
413 , p5_a37 out nocopy JTF_VARCHAR2_TABLE_100
414 , p5_a38 out nocopy JTF_NUMBER_TABLE
415 , p5_a39 out nocopy JTF_VARCHAR2_TABLE_100
416 , x_return_status out nocopy VARCHAR2
417 , x_msg_count out nocopy NUMBER
418 , x_msg_data out nocopy VARCHAR2
419 )
420
421 as
422 ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
423 ddx_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
424 ddindx binary_integer; indx binary_integer;
425 begin
426
427 -- copy data to the local IN or IN-OUT args, if any
428
429
430
431
432 csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
433 , p4_a1
434 , p4_a2
435 , p4_a3
436 , p4_a4
437 , p4_a5
438 , p4_a6
439 , p4_a7
440 , p4_a8
441 , p4_a9
442 , p4_a10
443 , p4_a11
444 , p4_a12
445 , p4_a13
446 , p4_a14
447 , p4_a15
448 , p4_a16
449 , p4_a17
450 , p4_a18
451 , p4_a19
452 , p4_a20
453 , p4_a21
454 , p4_a22
455 , p4_a23
456 , p4_a24
457 , p4_a25
458 , p4_a26
459 , p4_a27
460 , p4_a28
461 , p4_a29
462 , p4_a30
463 , p4_a31
464 , p4_a32
465 , p4_a33
466 , p4_a34
467 , p4_a35
468 , p4_a36
469 , p4_a37
470 , p4_a38
471 , p4_a39
472 );
473
474
475
476
477
478 -- here's the delegated call to the old PL/SQL routine
479 csp_requirement_lines_pvt.create_requirement_lines(p_api_version_number,
480 p_init_msg_list,
481 p_commit,
482 p_validation_level,
483 ddp_requirement_line_tbl,
484 ddx_requirement_line_tbl,
485 x_return_status,
486 x_msg_count,
487 x_msg_data);
488
489 -- copy data back from the local variables to OUT or IN-OUT args, if any
490
491
492
493
494
495 csp_requirement_lines_pvt_w.rosetta_table_copy_out_p3(ddx_requirement_line_tbl, p5_a0
496 , p5_a1
497 , p5_a2
498 , p5_a3
499 , p5_a4
500 , p5_a5
501 , p5_a6
502 , p5_a7
503 , p5_a8
504 , p5_a9
505 , p5_a10
506 , p5_a11
507 , p5_a12
508 , p5_a13
509 , p5_a14
510 , p5_a15
511 , p5_a16
512 , p5_a17
513 , p5_a18
514 , p5_a19
515 , p5_a20
516 , p5_a21
517 , p5_a22
518 , p5_a23
519 , p5_a24
520 , p5_a25
521 , p5_a26
522 , p5_a27
523 , p5_a28
524 , p5_a29
525 , p5_a30
526 , p5_a31
527 , p5_a32
528 , p5_a33
529 , p5_a34
530 , p5_a35
531 , p5_a36
532 , p5_a37
533 , p5_a38
534 , p5_a39
535 );
536
537
538
539 end;
540
541 procedure update_requirement_lines(p_api_version_number NUMBER
542 , p_init_msg_list VARCHAR2
543 , p_commit VARCHAR2
544 , p_validation_level NUMBER
545 , p4_a0 JTF_NUMBER_TABLE
546 , p4_a1 JTF_NUMBER_TABLE
547 , p4_a2 JTF_DATE_TABLE
548 , p4_a3 JTF_NUMBER_TABLE
549 , p4_a4 JTF_DATE_TABLE
550 , p4_a5 JTF_NUMBER_TABLE
551 , p4_a6 JTF_NUMBER_TABLE
552 , p4_a7 JTF_NUMBER_TABLE
553 , p4_a8 JTF_VARCHAR2_TABLE_100
554 , p4_a9 JTF_NUMBER_TABLE
555 , p4_a10 JTF_VARCHAR2_TABLE_100
556 , p4_a11 JTF_NUMBER_TABLE
557 , p4_a12 JTF_VARCHAR2_TABLE_100
558 , p4_a13 JTF_NUMBER_TABLE
559 , p4_a14 JTF_VARCHAR2_TABLE_100
560 , p4_a15 JTF_NUMBER_TABLE
561 , p4_a16 JTF_NUMBER_TABLE
562 , p4_a17 JTF_NUMBER_TABLE
563 , p4_a18 JTF_DATE_TABLE
564 , p4_a19 JTF_VARCHAR2_TABLE_100
565 , p4_a20 JTF_VARCHAR2_TABLE_200
566 , p4_a21 JTF_VARCHAR2_TABLE_200
567 , p4_a22 JTF_VARCHAR2_TABLE_200
568 , p4_a23 JTF_VARCHAR2_TABLE_200
569 , p4_a24 JTF_VARCHAR2_TABLE_200
570 , p4_a25 JTF_VARCHAR2_TABLE_200
571 , p4_a26 JTF_VARCHAR2_TABLE_200
572 , p4_a27 JTF_VARCHAR2_TABLE_200
573 , p4_a28 JTF_VARCHAR2_TABLE_200
574 , p4_a29 JTF_VARCHAR2_TABLE_200
575 , p4_a30 JTF_VARCHAR2_TABLE_200
576 , p4_a31 JTF_VARCHAR2_TABLE_200
577 , p4_a32 JTF_VARCHAR2_TABLE_200
578 , p4_a33 JTF_VARCHAR2_TABLE_200
579 , p4_a34 JTF_VARCHAR2_TABLE_200
580 , p4_a35 JTF_DATE_TABLE
581 , p4_a36 JTF_VARCHAR2_TABLE_300
582 , p4_a37 JTF_VARCHAR2_TABLE_100
583 , p4_a38 JTF_NUMBER_TABLE
584 , p4_a39 JTF_VARCHAR2_TABLE_100
585 , x_return_status out nocopy VARCHAR2
586 , x_msg_count out nocopy NUMBER
587 , x_msg_data out nocopy VARCHAR2
588 )
589
590 as
591 ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
592 ddindx binary_integer; indx binary_integer;
593 begin
594
595 -- copy data to the local IN or IN-OUT args, if any
596
597
598
599
600 csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
601 , p4_a1
602 , p4_a2
603 , p4_a3
604 , p4_a4
605 , p4_a5
606 , p4_a6
607 , p4_a7
608 , p4_a8
609 , p4_a9
610 , p4_a10
611 , p4_a11
612 , p4_a12
613 , p4_a13
614 , p4_a14
615 , p4_a15
616 , p4_a16
617 , p4_a17
618 , p4_a18
619 , p4_a19
620 , p4_a20
621 , p4_a21
622 , p4_a22
623 , p4_a23
624 , p4_a24
625 , p4_a25
626 , p4_a26
627 , p4_a27
628 , p4_a28
629 , p4_a29
630 , p4_a30
631 , p4_a31
632 , p4_a32
633 , p4_a33
634 , p4_a34
635 , p4_a35
636 , p4_a36
637 , p4_a37
638 , p4_a38
639 , p4_a39
640 );
641
642
643
644
645 -- here's the delegated call to the old PL/SQL routine
646 csp_requirement_lines_pvt.update_requirement_lines(p_api_version_number,
647 p_init_msg_list,
648 p_commit,
649 p_validation_level,
650 ddp_requirement_line_tbl,
651 x_return_status,
652 x_msg_count,
653 x_msg_data);
654
655 -- copy data back from the local variables to OUT or IN-OUT args, if any
656
657
658
659
660
661
662
663 end;
664
665 procedure delete_requirement_lines(p_api_version_number NUMBER
666 , p_init_msg_list VARCHAR2
667 , p_commit VARCHAR2
668 , p_validation_level NUMBER
669 , p4_a0 JTF_NUMBER_TABLE
670 , p4_a1 JTF_NUMBER_TABLE
671 , p4_a2 JTF_DATE_TABLE
672 , p4_a3 JTF_NUMBER_TABLE
673 , p4_a4 JTF_DATE_TABLE
674 , p4_a5 JTF_NUMBER_TABLE
675 , p4_a6 JTF_NUMBER_TABLE
676 , p4_a7 JTF_NUMBER_TABLE
677 , p4_a8 JTF_VARCHAR2_TABLE_100
678 , p4_a9 JTF_NUMBER_TABLE
679 , p4_a10 JTF_VARCHAR2_TABLE_100
680 , p4_a11 JTF_NUMBER_TABLE
681 , p4_a12 JTF_VARCHAR2_TABLE_100
682 , p4_a13 JTF_NUMBER_TABLE
683 , p4_a14 JTF_VARCHAR2_TABLE_100
684 , p4_a15 JTF_NUMBER_TABLE
685 , p4_a16 JTF_NUMBER_TABLE
686 , p4_a17 JTF_NUMBER_TABLE
687 , p4_a18 JTF_DATE_TABLE
688 , p4_a19 JTF_VARCHAR2_TABLE_100
689 , p4_a20 JTF_VARCHAR2_TABLE_200
690 , p4_a21 JTF_VARCHAR2_TABLE_200
691 , p4_a22 JTF_VARCHAR2_TABLE_200
692 , p4_a23 JTF_VARCHAR2_TABLE_200
693 , p4_a24 JTF_VARCHAR2_TABLE_200
694 , p4_a25 JTF_VARCHAR2_TABLE_200
695 , p4_a26 JTF_VARCHAR2_TABLE_200
696 , p4_a27 JTF_VARCHAR2_TABLE_200
697 , p4_a28 JTF_VARCHAR2_TABLE_200
698 , p4_a29 JTF_VARCHAR2_TABLE_200
699 , p4_a30 JTF_VARCHAR2_TABLE_200
700 , p4_a31 JTF_VARCHAR2_TABLE_200
701 , p4_a32 JTF_VARCHAR2_TABLE_200
702 , p4_a33 JTF_VARCHAR2_TABLE_200
703 , p4_a34 JTF_VARCHAR2_TABLE_200
704 , p4_a35 JTF_DATE_TABLE
705 , p4_a36 JTF_VARCHAR2_TABLE_300
706 , p4_a37 JTF_VARCHAR2_TABLE_100
707 , p4_a38 JTF_NUMBER_TABLE
708 , p4_a39 JTF_VARCHAR2_TABLE_100
709 , x_return_status out nocopy VARCHAR2
710 , x_msg_count out nocopy NUMBER
711 , x_msg_data out nocopy VARCHAR2
712 )
713
714 as
715 ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
716 ddindx binary_integer; indx binary_integer;
717 begin
718
719 -- copy data to the local IN or IN-OUT args, if any
720
721
722
723
724 csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
725 , p4_a1
726 , p4_a2
727 , p4_a3
728 , p4_a4
729 , p4_a5
730 , p4_a6
731 , p4_a7
732 , p4_a8
733 , p4_a9
734 , p4_a10
735 , p4_a11
736 , p4_a12
737 , p4_a13
738 , p4_a14
739 , p4_a15
740 , p4_a16
741 , p4_a17
742 , p4_a18
743 , p4_a19
744 , p4_a20
745 , p4_a21
746 , p4_a22
747 , p4_a23
748 , p4_a24
749 , p4_a25
750 , p4_a26
751 , p4_a27
752 , p4_a28
753 , p4_a29
754 , p4_a30
755 , p4_a31
756 , p4_a32
757 , p4_a33
758 , p4_a34
759 , p4_a35
760 , p4_a36
761 , p4_a37
762 , p4_a38
763 , p4_a39
764 );
765
766
767
768
769 -- here's the delegated call to the old PL/SQL routine
770 csp_requirement_lines_pvt.delete_requirement_lines(p_api_version_number,
771 p_init_msg_list,
772 p_commit,
773 p_validation_level,
774 ddp_requirement_line_tbl,
775 x_return_status,
776 x_msg_count,
777 x_msg_data);
778
779 -- copy data back from the local variables to OUT or IN-OUT args, if any
780
781
782
783
784
785
786
787 end;
788
789 end csp_requirement_lines_pvt_w;