[Home] [Help]
PACKAGE BODY: APPS.CSP_PARTS_REQUIREMENT_W
Source
1 package body csp_parts_requirement_w as
2 /* $Header: cspwprqb.pls 120.1.12020000.2 2012/07/18 08:11:12 kgambhir ship $ */
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_p2(t out nocopy csp_parts_requirement.line_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_VARCHAR2_TABLE_300
21 , a5 JTF_VARCHAR2_TABLE_100
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_DATE_TABLE
32 , a16 JTF_DATE_TABLE
33 , a17 JTF_DATE_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_VARCHAR2_TABLE_100
41 , a25 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_200
54 , a38 JTF_VARCHAR2_TABLE_200
55 , a39 JTF_VARCHAR2_TABLE_200
56 , a40 JTF_VARCHAR2_TABLE_200
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).requisition_line_id := a0(indx);
66 t(ddindx).order_line_id := a1(indx);
67 t(ddindx).line_num := a2(indx);
68 t(ddindx).inventory_item_id := a3(indx);
69 t(ddindx).item_description := a4(indx);
70 t(ddindx).revision := a5(indx);
71 t(ddindx).quantity := a6(indx);
72 t(ddindx).unit_of_measure := a7(indx);
73 t(ddindx).dest_subinventory := a8(indx);
74 t(ddindx).source_organization_id := a9(indx);
75 t(ddindx).source_subinventory := a10(indx);
76 t(ddindx).ship_complete := a11(indx);
77 t(ddindx).shipping_method_code := a12(indx);
78 t(ddindx).likelihood := a13(indx);
79 t(ddindx).ordered_quantity := a14(indx);
80 t(ddindx).order_by_date := rosetta_g_miss_date_in_map(a15(indx));
81 t(ddindx).arrival_date := rosetta_g_miss_date_in_map(a16(indx));
82 t(ddindx).need_by_date := rosetta_g_miss_date_in_map(a17(indx));
83 t(ddindx).reservation_id := a18(indx);
84 t(ddindx).requirement_line_id := a19(indx);
85 t(ddindx).change_reason := a20(indx);
86 t(ddindx).change_comments := a21(indx);
87 t(ddindx).booked_flag := a22(indx);
88 t(ddindx).sourced_from := a23(indx);
89 t(ddindx).available_by_need_date := a24(indx);
90 t(ddindx).attribute_category := a25(indx);
91 t(ddindx).attribute1 := a26(indx);
92 t(ddindx).attribute2 := a27(indx);
93 t(ddindx).attribute3 := a28(indx);
94 t(ddindx).attribute4 := a29(indx);
95 t(ddindx).attribute5 := a30(indx);
96 t(ddindx).attribute6 := a31(indx);
97 t(ddindx).attribute7 := a32(indx);
98 t(ddindx).attribute8 := a33(indx);
99 t(ddindx).attribute9 := a34(indx);
100 t(ddindx).attribute10 := a35(indx);
101 t(ddindx).attribute11 := a36(indx);
102 t(ddindx).attribute12 := a37(indx);
103 t(ddindx).attribute13 := a38(indx);
104 t(ddindx).attribute14 := a39(indx);
105 t(ddindx).attribute15 := a40(indx);
106 ddindx := ddindx+1;
107 if a0.last =indx
108 then exit;
109 end if;
110 indx := a0.next(indx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_in_p2;
115 procedure rosetta_table_copy_out_p2(t csp_parts_requirement.line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
116 , a1 out nocopy JTF_NUMBER_TABLE
117 , a2 out nocopy JTF_NUMBER_TABLE
118 , a3 out nocopy JTF_NUMBER_TABLE
119 , a4 out nocopy JTF_VARCHAR2_TABLE_300
120 , a5 out nocopy JTF_VARCHAR2_TABLE_100
121 , a6 out nocopy JTF_NUMBER_TABLE
122 , a7 out nocopy JTF_VARCHAR2_TABLE_100
123 , a8 out nocopy JTF_VARCHAR2_TABLE_100
124 , a9 out nocopy JTF_NUMBER_TABLE
125 , a10 out nocopy JTF_VARCHAR2_TABLE_100
126 , a11 out nocopy JTF_VARCHAR2_TABLE_100
127 , a12 out nocopy JTF_VARCHAR2_TABLE_100
128 , a13 out nocopy JTF_NUMBER_TABLE
129 , a14 out nocopy JTF_NUMBER_TABLE
130 , a15 out nocopy JTF_DATE_TABLE
131 , a16 out nocopy JTF_DATE_TABLE
132 , a17 out nocopy JTF_DATE_TABLE
133 , a18 out nocopy JTF_NUMBER_TABLE
134 , a19 out nocopy JTF_NUMBER_TABLE
135 , a20 out nocopy JTF_VARCHAR2_TABLE_100
136 , a21 out nocopy JTF_VARCHAR2_TABLE_100
137 , a22 out nocopy JTF_VARCHAR2_TABLE_100
138 , a23 out nocopy JTF_VARCHAR2_TABLE_100
139 , a24 out nocopy JTF_VARCHAR2_TABLE_100
140 , a25 out nocopy JTF_VARCHAR2_TABLE_100
141 , a26 out nocopy JTF_VARCHAR2_TABLE_200
142 , a27 out nocopy JTF_VARCHAR2_TABLE_200
143 , a28 out nocopy JTF_VARCHAR2_TABLE_200
144 , a29 out nocopy JTF_VARCHAR2_TABLE_200
145 , a30 out nocopy JTF_VARCHAR2_TABLE_200
146 , a31 out nocopy JTF_VARCHAR2_TABLE_200
147 , a32 out nocopy JTF_VARCHAR2_TABLE_200
148 , a33 out nocopy JTF_VARCHAR2_TABLE_200
149 , a34 out nocopy JTF_VARCHAR2_TABLE_200
150 , a35 out nocopy JTF_VARCHAR2_TABLE_200
151 , a36 out nocopy JTF_VARCHAR2_TABLE_200
152 , a37 out nocopy JTF_VARCHAR2_TABLE_200
153 , a38 out nocopy JTF_VARCHAR2_TABLE_200
154 , a39 out nocopy JTF_VARCHAR2_TABLE_200
155 , a40 out nocopy JTF_VARCHAR2_TABLE_200
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null or t.count = 0 then
160 a0 := JTF_NUMBER_TABLE();
161 a1 := JTF_NUMBER_TABLE();
162 a2 := JTF_NUMBER_TABLE();
163 a3 := JTF_NUMBER_TABLE();
164 a4 := JTF_VARCHAR2_TABLE_300();
165 a5 := JTF_VARCHAR2_TABLE_100();
166 a6 := JTF_NUMBER_TABLE();
167 a7 := JTF_VARCHAR2_TABLE_100();
168 a8 := JTF_VARCHAR2_TABLE_100();
169 a9 := JTF_NUMBER_TABLE();
170 a10 := JTF_VARCHAR2_TABLE_100();
171 a11 := JTF_VARCHAR2_TABLE_100();
172 a12 := JTF_VARCHAR2_TABLE_100();
173 a13 := JTF_NUMBER_TABLE();
174 a14 := JTF_NUMBER_TABLE();
175 a15 := JTF_DATE_TABLE();
176 a16 := JTF_DATE_TABLE();
177 a17 := JTF_DATE_TABLE();
178 a18 := JTF_NUMBER_TABLE();
179 a19 := JTF_NUMBER_TABLE();
180 a20 := JTF_VARCHAR2_TABLE_100();
181 a21 := JTF_VARCHAR2_TABLE_100();
182 a22 := JTF_VARCHAR2_TABLE_100();
183 a23 := JTF_VARCHAR2_TABLE_100();
184 a24 := JTF_VARCHAR2_TABLE_100();
185 a25 := JTF_VARCHAR2_TABLE_100();
186 a26 := JTF_VARCHAR2_TABLE_200();
187 a27 := JTF_VARCHAR2_TABLE_200();
188 a28 := JTF_VARCHAR2_TABLE_200();
189 a29 := JTF_VARCHAR2_TABLE_200();
190 a30 := JTF_VARCHAR2_TABLE_200();
191 a31 := JTF_VARCHAR2_TABLE_200();
192 a32 := JTF_VARCHAR2_TABLE_200();
193 a33 := JTF_VARCHAR2_TABLE_200();
194 a34 := JTF_VARCHAR2_TABLE_200();
195 a35 := JTF_VARCHAR2_TABLE_200();
196 a36 := JTF_VARCHAR2_TABLE_200();
197 a37 := JTF_VARCHAR2_TABLE_200();
198 a38 := JTF_VARCHAR2_TABLE_200();
199 a39 := JTF_VARCHAR2_TABLE_200();
200 a40 := JTF_VARCHAR2_TABLE_200();
201 else
202 a0 := JTF_NUMBER_TABLE();
203 a1 := JTF_NUMBER_TABLE();
204 a2 := JTF_NUMBER_TABLE();
205 a3 := JTF_NUMBER_TABLE();
206 a4 := JTF_VARCHAR2_TABLE_300();
207 a5 := JTF_VARCHAR2_TABLE_100();
208 a6 := JTF_NUMBER_TABLE();
209 a7 := JTF_VARCHAR2_TABLE_100();
210 a8 := JTF_VARCHAR2_TABLE_100();
211 a9 := JTF_NUMBER_TABLE();
212 a10 := JTF_VARCHAR2_TABLE_100();
213 a11 := JTF_VARCHAR2_TABLE_100();
214 a12 := JTF_VARCHAR2_TABLE_100();
215 a13 := JTF_NUMBER_TABLE();
216 a14 := JTF_NUMBER_TABLE();
217 a15 := JTF_DATE_TABLE();
218 a16 := JTF_DATE_TABLE();
219 a17 := JTF_DATE_TABLE();
220 a18 := JTF_NUMBER_TABLE();
221 a19 := JTF_NUMBER_TABLE();
222 a20 := JTF_VARCHAR2_TABLE_100();
223 a21 := JTF_VARCHAR2_TABLE_100();
224 a22 := JTF_VARCHAR2_TABLE_100();
225 a23 := JTF_VARCHAR2_TABLE_100();
226 a24 := JTF_VARCHAR2_TABLE_100();
227 a25 := JTF_VARCHAR2_TABLE_100();
228 a26 := JTF_VARCHAR2_TABLE_200();
229 a27 := JTF_VARCHAR2_TABLE_200();
230 a28 := JTF_VARCHAR2_TABLE_200();
231 a29 := JTF_VARCHAR2_TABLE_200();
232 a30 := JTF_VARCHAR2_TABLE_200();
233 a31 := JTF_VARCHAR2_TABLE_200();
234 a32 := JTF_VARCHAR2_TABLE_200();
235 a33 := JTF_VARCHAR2_TABLE_200();
236 a34 := JTF_VARCHAR2_TABLE_200();
237 a35 := JTF_VARCHAR2_TABLE_200();
238 a36 := JTF_VARCHAR2_TABLE_200();
239 a37 := JTF_VARCHAR2_TABLE_200();
240 a38 := JTF_VARCHAR2_TABLE_200();
241 a39 := JTF_VARCHAR2_TABLE_200();
242 a40 := JTF_VARCHAR2_TABLE_200();
243 if t.count > 0 then
244 a0.extend(t.count);
245 a1.extend(t.count);
246 a2.extend(t.count);
247 a3.extend(t.count);
248 a4.extend(t.count);
249 a5.extend(t.count);
250 a6.extend(t.count);
251 a7.extend(t.count);
252 a8.extend(t.count);
253 a9.extend(t.count);
254 a10.extend(t.count);
255 a11.extend(t.count);
256 a12.extend(t.count);
257 a13.extend(t.count);
258 a14.extend(t.count);
259 a15.extend(t.count);
260 a16.extend(t.count);
261 a17.extend(t.count);
262 a18.extend(t.count);
263 a19.extend(t.count);
264 a20.extend(t.count);
265 a21.extend(t.count);
266 a22.extend(t.count);
267 a23.extend(t.count);
268 a24.extend(t.count);
269 a25.extend(t.count);
270 a26.extend(t.count);
271 a27.extend(t.count);
272 a28.extend(t.count);
273 a29.extend(t.count);
274 a30.extend(t.count);
275 a31.extend(t.count);
276 a32.extend(t.count);
277 a33.extend(t.count);
278 a34.extend(t.count);
279 a35.extend(t.count);
280 a36.extend(t.count);
281 a37.extend(t.count);
282 a38.extend(t.count);
283 a39.extend(t.count);
284 a40.extend(t.count);
285 ddindx := t.first;
286 indx := 1;
287 while true loop
288 a0(indx) := t(ddindx).requisition_line_id;
289 a1(indx) := t(ddindx).order_line_id;
290 a2(indx) := t(ddindx).line_num;
291 a3(indx) := t(ddindx).inventory_item_id;
292 a4(indx) := t(ddindx).item_description;
293 a5(indx) := t(ddindx).revision;
294 a6(indx) := t(ddindx).quantity;
295 a7(indx) := t(ddindx).unit_of_measure;
296 a8(indx) := t(ddindx).dest_subinventory;
297 a9(indx) := t(ddindx).source_organization_id;
298 a10(indx) := t(ddindx).source_subinventory;
299 a11(indx) := t(ddindx).ship_complete;
300 a12(indx) := t(ddindx).shipping_method_code;
301 a13(indx) := t(ddindx).likelihood;
302 a14(indx) := t(ddindx).ordered_quantity;
303 a15(indx) := t(ddindx).order_by_date;
304 a16(indx) := t(ddindx).arrival_date;
305 a17(indx) := t(ddindx).need_by_date;
306 a18(indx) := t(ddindx).reservation_id;
307 a19(indx) := t(ddindx).requirement_line_id;
308 a20(indx) := t(ddindx).change_reason;
309 a21(indx) := t(ddindx).change_comments;
310 a22(indx) := t(ddindx).booked_flag;
311 a23(indx) := t(ddindx).sourced_from;
312 a24(indx) := t(ddindx).available_by_need_date;
313 a25(indx) := t(ddindx).attribute_category;
314 a26(indx) := t(ddindx).attribute1;
315 a27(indx) := t(ddindx).attribute2;
316 a28(indx) := t(ddindx).attribute3;
317 a29(indx) := t(ddindx).attribute4;
318 a30(indx) := t(ddindx).attribute5;
319 a31(indx) := t(ddindx).attribute6;
320 a32(indx) := t(ddindx).attribute7;
321 a33(indx) := t(ddindx).attribute8;
322 a34(indx) := t(ddindx).attribute9;
323 a35(indx) := t(ddindx).attribute10;
324 a36(indx) := t(ddindx).attribute11;
325 a37(indx) := t(ddindx).attribute12;
326 a38(indx) := t(ddindx).attribute13;
327 a39(indx) := t(ddindx).attribute14;
328 a40(indx) := t(ddindx).attribute15;
329 indx := indx+1;
330 if t.last =ddindx
331 then exit;
332 end if;
333 ddindx := t.next(ddindx);
334 end loop;
335 end if;
336 end if;
337 end rosetta_table_copy_out_p2;
338
339 procedure rosetta_table_copy_in_p4(t out nocopy csp_parts_requirement.line_detail_tbl_type, a0 JTF_NUMBER_TABLE
340 , a1 JTF_NUMBER_TABLE
341 , a2 JTF_VARCHAR2_TABLE_100
342 , a3 JTF_NUMBER_TABLE
343 ) as
344 ddindx binary_integer; indx binary_integer;
345 begin
346 if a0 is not null and a0.count > 0 then
347 if a0.count > 0 then
348 indx := a0.first;
349 ddindx := 1;
350 while true loop
351 t(ddindx).req_line_detail_id := a0(indx);
352 t(ddindx).req_line_id := a1(indx);
353 t(ddindx).source_type := a2(indx);
354 t(ddindx).source_id := a3(indx);
355 ddindx := ddindx+1;
356 if a0.last =indx
357 then exit;
358 end if;
359 indx := a0.next(indx);
360 end loop;
361 end if;
362 end if;
363 end rosetta_table_copy_in_p4;
364 procedure rosetta_table_copy_out_p4(t csp_parts_requirement.line_detail_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
365 , a1 out nocopy JTF_NUMBER_TABLE
366 , a2 out nocopy JTF_VARCHAR2_TABLE_100
367 , a3 out nocopy JTF_NUMBER_TABLE
368 ) as
369 ddindx binary_integer; indx binary_integer;
370 begin
371 if t is null or t.count = 0 then
372 a0 := JTF_NUMBER_TABLE();
373 a1 := JTF_NUMBER_TABLE();
374 a2 := JTF_VARCHAR2_TABLE_100();
375 a3 := JTF_NUMBER_TABLE();
376 else
377 a0 := JTF_NUMBER_TABLE();
378 a1 := JTF_NUMBER_TABLE();
379 a2 := JTF_VARCHAR2_TABLE_100();
380 a3 := JTF_NUMBER_TABLE();
381 if t.count > 0 then
382 a0.extend(t.count);
383 a1.extend(t.count);
384 a2.extend(t.count);
385 a3.extend(t.count);
386 ddindx := t.first;
387 indx := 1;
388 while true loop
389 a0(indx) := t(ddindx).req_line_detail_id;
390 a1(indx) := t(ddindx).req_line_id;
391 a2(indx) := t(ddindx).source_type;
392 a3(indx) := t(ddindx).source_id;
393 indx := indx+1;
394 if t.last =ddindx
395 then exit;
396 end if;
397 ddindx := t.next(ddindx);
398 end loop;
399 end if;
400 end if;
401 end rosetta_table_copy_out_p4;
402
403 procedure rosetta_table_copy_in_p6(t out nocopy csp_parts_requirement.rqmt_line_tbl_type, a0 JTF_NUMBER_TABLE
404 ) as
405 ddindx binary_integer; indx binary_integer;
406 begin
407 if a0 is not null and a0.count > 0 then
408 if a0.count > 0 then
409 indx := a0.first;
410 ddindx := 1;
411 while true loop
412 t(ddindx).requirement_line_id := a0(indx);
413 ddindx := ddindx+1;
414 if a0.last =indx
415 then exit;
416 end if;
417 indx := a0.next(indx);
418 end loop;
419 end if;
420 end if;
421 end rosetta_table_copy_in_p6;
422 procedure rosetta_table_copy_out_p6(t csp_parts_requirement.rqmt_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
423 ) as
427 a0 := JTF_NUMBER_TABLE();
424 ddindx binary_integer; indx binary_integer;
425 begin
426 if t is null or t.count = 0 then
428 else
429 a0 := JTF_NUMBER_TABLE();
430 if t.count > 0 then
431 a0.extend(t.count);
432 ddindx := t.first;
433 indx := 1;
434 while true loop
435 a0(indx) := t(ddindx).requirement_line_id;
436 indx := indx+1;
437 if t.last =ddindx
438 then exit;
439 end if;
440 ddindx := t.next(ddindx);
441 end loop;
442 end if;
443 end if;
444 end rosetta_table_copy_out_p6;
445
446 procedure rosetta_table_copy_in_p8(t out nocopy csp_parts_requirement.order_tbl_type, a0 JTF_VARCHAR2_TABLE_100
447 , a1 JTF_NUMBER_TABLE
448 ) as
449 ddindx binary_integer; indx binary_integer;
450 begin
451 if a0 is not null and a0.count > 0 then
452 if a0.count > 0 then
453 indx := a0.first;
454 ddindx := 1;
455 while true loop
456 t(ddindx).source_type := a0(indx);
457 t(ddindx).order_number := a1(indx);
458 ddindx := ddindx+1;
459 if a0.last =indx
460 then exit;
461 end if;
462 indx := a0.next(indx);
463 end loop;
464 end if;
465 end if;
466 end rosetta_table_copy_in_p8;
467 procedure rosetta_table_copy_out_p8(t csp_parts_requirement.order_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
468 , a1 out nocopy JTF_NUMBER_TABLE
469 ) as
470 ddindx binary_integer; indx binary_integer;
471 begin
472 if t is null or t.count = 0 then
473 a0 := JTF_VARCHAR2_TABLE_100();
474 a1 := JTF_NUMBER_TABLE();
475 else
476 a0 := JTF_VARCHAR2_TABLE_100();
477 a1 := JTF_NUMBER_TABLE();
478 if t.count > 0 then
479 a0.extend(t.count);
480 a1.extend(t.count);
481 ddindx := t.first;
482 indx := 1;
483 while true loop
484 a0(indx) := t(ddindx).source_type;
485 a1(indx) := t(ddindx).order_number;
486 indx := indx+1;
487 if t.last =ddindx
488 then exit;
489 end if;
490 ddindx := t.next(ddindx);
491 end loop;
492 end if;
493 end if;
494 end rosetta_table_copy_out_p8;
495
496 procedure process_requirement(p_api_version NUMBER
497 , p_init_msg_list VARCHAR2
498 , p_commit VARCHAR2
499 , p3_a0 in out nocopy NUMBER
500 , p3_a1 in out nocopy VARCHAR2
501 , p3_a2 in out nocopy VARCHAR2
502 , p3_a3 in out nocopy NUMBER
503 , p3_a4 in out nocopy NUMBER
504 , p3_a5 in out nocopy NUMBER
505 , p3_a6 in out nocopy VARCHAR2
506 , p3_a7 in out nocopy NUMBER
507 , p3_a8 in out nocopy NUMBER
508 , p3_a9 in out nocopy DATE
509 , p3_a10 in out nocopy NUMBER
510 , p3_a11 in out nocopy VARCHAR2
511 , p3_a12 in out nocopy VARCHAR2
512 , p3_a13 in out nocopy NUMBER
513 , p3_a14 in out nocopy VARCHAR2
514 , p3_a15 in out nocopy VARCHAR2
515 , p3_a16 in out nocopy VARCHAR2
516 , p3_a17 in out nocopy NUMBER
517 , p3_a18 in out nocopy NUMBER
518 , p3_a19 in out nocopy VARCHAR2
519 , p3_a20 in out nocopy VARCHAR2
520 , p3_a21 in out nocopy VARCHAR2
521 , p3_a22 in out nocopy NUMBER
522 , p3_a23 in out nocopy VARCHAR2
523 , p3_a24 in out nocopy VARCHAR2
524 , p3_a25 in out nocopy NUMBER
525 , p3_a26 in out nocopy VARCHAR2
526 , p3_a27 in out nocopy VARCHAR2
527 , p3_a28 in out nocopy VARCHAR2
528 , p3_a29 in out nocopy VARCHAR2
529 , p3_a30 in out nocopy VARCHAR2
530 , p3_a31 in out nocopy VARCHAR2
531 , p3_a32 in out nocopy VARCHAR2
532 , p3_a33 in out nocopy VARCHAR2
533 , p3_a34 in out nocopy VARCHAR2
534 , p3_a35 in out nocopy VARCHAR2
535 , p3_a36 in out nocopy VARCHAR2
536 , p3_a37 in out nocopy VARCHAR2
537 , p3_a38 in out nocopy VARCHAR2
538 , p3_a39 in out nocopy VARCHAR2
539 , p3_a40 in out nocopy VARCHAR2
540 , p3_a41 in out nocopy VARCHAR2
541 , p3_a42 in out nocopy VARCHAR2
542 , p3_a43 in out nocopy NUMBER
543 , p4_a0 in out nocopy JTF_NUMBER_TABLE
544 , p4_a1 in out nocopy JTF_NUMBER_TABLE
545 , p4_a2 in out nocopy JTF_NUMBER_TABLE
546 , p4_a3 in out nocopy JTF_NUMBER_TABLE
547 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
548 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
549 , p4_a6 in out nocopy JTF_NUMBER_TABLE
550 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
551 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
552 , p4_a9 in out nocopy JTF_NUMBER_TABLE
553 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
554 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
555 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
556 , p4_a13 in out nocopy JTF_NUMBER_TABLE
557 , p4_a14 in out nocopy JTF_NUMBER_TABLE
558 , p4_a15 in out nocopy JTF_DATE_TABLE
559 , p4_a16 in out nocopy JTF_DATE_TABLE
560 , p4_a17 in out nocopy JTF_DATE_TABLE
561 , p4_a18 in out nocopy JTF_NUMBER_TABLE
562 , p4_a19 in out nocopy JTF_NUMBER_TABLE
563 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
564 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
565 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
566 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
567 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
568 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
569 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
570 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
574 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
571 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
572 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
573 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
575 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
576 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
577 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
578 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
579 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
580 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
581 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
582 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
583 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
584 , p_create_order_flag VARCHAR2
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 ddpx_header_rec csp_parts_requirement.header_rec_type;
592 ddpx_line_table csp_parts_requirement.line_tbl_type;
593 ddindx binary_integer; indx binary_integer;
594 begin
595
596 -- copy data to the local IN or IN-OUT args, if any
597
598
599
600 ddpx_header_rec.requisition_header_id := p3_a0;
601 ddpx_header_rec.requisition_number := p3_a1;
602 ddpx_header_rec.description := p3_a2;
603 ddpx_header_rec.order_header_id := p3_a3;
604 ddpx_header_rec.order_type_id := p3_a4;
605 ddpx_header_rec.ship_to_location_id := p3_a5;
606 ddpx_header_rec.shipping_method_code := p3_a6;
607 ddpx_header_rec.task_id := p3_a7;
608 ddpx_header_rec.task_assignment_id := p3_a8;
609 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
610 ddpx_header_rec.dest_organization_id := p3_a10;
611 ddpx_header_rec.dest_subinventory := p3_a11;
612 ddpx_header_rec.operation := p3_a12;
613 ddpx_header_rec.requirement_header_id := p3_a13;
614 ddpx_header_rec.change_reason := p3_a14;
615 ddpx_header_rec.change_comments := p3_a15;
616 ddpx_header_rec.resource_type := p3_a16;
617 ddpx_header_rec.resource_id := p3_a17;
618 ddpx_header_rec.incident_id := p3_a18;
619 ddpx_header_rec.address_type := p3_a19;
620 ddpx_header_rec.justification := p3_a20;
621 ddpx_header_rec.note_to_buyer := p3_a21;
622 ddpx_header_rec.note1_id := p3_a22;
623 ddpx_header_rec.note1_title := p3_a23;
624 ddpx_header_rec.called_from := p3_a24;
625 ddpx_header_rec.suggested_vendor_id := p3_a25;
626 ddpx_header_rec.suggested_vendor_name := p3_a26;
627 ddpx_header_rec.attribute_category := p3_a27;
628 ddpx_header_rec.attribute1 := p3_a28;
629 ddpx_header_rec.attribute2 := p3_a29;
630 ddpx_header_rec.attribute3 := p3_a30;
631 ddpx_header_rec.attribute4 := p3_a31;
632 ddpx_header_rec.attribute5 := p3_a32;
633 ddpx_header_rec.attribute6 := p3_a33;
634 ddpx_header_rec.attribute7 := p3_a34;
635 ddpx_header_rec.attribute8 := p3_a35;
636 ddpx_header_rec.attribute9 := p3_a36;
637 ddpx_header_rec.attribute10 := p3_a37;
638 ddpx_header_rec.attribute11 := p3_a38;
639 ddpx_header_rec.attribute12 := p3_a39;
640 ddpx_header_rec.attribute13 := p3_a40;
641 ddpx_header_rec.attribute14 := p3_a41;
642 ddpx_header_rec.attribute15 := p3_a42;
643 ddpx_header_rec.ship_to_contact_id := p3_a43;
644
645 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
646 , p4_a1
647 , p4_a2
648 , p4_a3
649 , p4_a4
650 , p4_a5
651 , p4_a6
652 , p4_a7
653 , p4_a8
654 , p4_a9
655 , p4_a10
656 , p4_a11
657 , p4_a12
658 , p4_a13
659 , p4_a14
660 , p4_a15
661 , p4_a16
662 , p4_a17
663 , p4_a18
664 , p4_a19
665 , p4_a20
666 , p4_a21
667 , p4_a22
668 , p4_a23
669 , p4_a24
670 , p4_a25
671 , p4_a26
672 , p4_a27
673 , p4_a28
674 , p4_a29
675 , p4_a30
676 , p4_a31
677 , p4_a32
678 , p4_a33
679 , p4_a34
680 , p4_a35
681 , p4_a36
682 , p4_a37
683 , p4_a38
684 , p4_a39
685 , p4_a40
686 );
687
688
689
690
691
692 -- here's the delegated call to the old PL/SQL routine
693 csp_parts_requirement.process_requirement(p_api_version,
694 p_init_msg_list,
695 p_commit,
696 ddpx_header_rec,
697 ddpx_line_table,
698 p_create_order_flag,
699 x_return_status,
700 x_msg_count,
701 x_msg_data);
702
703 -- copy data back from the local variables to OUT or IN-OUT args, if any
704
705
706
707 p3_a0 := ddpx_header_rec.requisition_header_id;
708 p3_a1 := ddpx_header_rec.requisition_number;
709 p3_a2 := ddpx_header_rec.description;
710 p3_a3 := ddpx_header_rec.order_header_id;
711 p3_a4 := ddpx_header_rec.order_type_id;
712 p3_a5 := ddpx_header_rec.ship_to_location_id;
713 p3_a6 := ddpx_header_rec.shipping_method_code;
714 p3_a7 := ddpx_header_rec.task_id;
715 p3_a8 := ddpx_header_rec.task_assignment_id;
716 p3_a9 := ddpx_header_rec.need_by_date;
717 p3_a10 := ddpx_header_rec.dest_organization_id;
718 p3_a11 := ddpx_header_rec.dest_subinventory;
719 p3_a12 := ddpx_header_rec.operation;
720 p3_a13 := ddpx_header_rec.requirement_header_id;
721 p3_a14 := ddpx_header_rec.change_reason;
722 p3_a15 := ddpx_header_rec.change_comments;
723 p3_a16 := ddpx_header_rec.resource_type;
724 p3_a17 := ddpx_header_rec.resource_id;
728 p3_a21 := ddpx_header_rec.note_to_buyer;
725 p3_a18 := ddpx_header_rec.incident_id;
726 p3_a19 := ddpx_header_rec.address_type;
727 p3_a20 := ddpx_header_rec.justification;
729 p3_a22 := ddpx_header_rec.note1_id;
730 p3_a23 := ddpx_header_rec.note1_title;
731 p3_a24 := ddpx_header_rec.called_from;
732 p3_a25 := ddpx_header_rec.suggested_vendor_id;
733 p3_a26 := ddpx_header_rec.suggested_vendor_name;
734 p3_a27 := ddpx_header_rec.attribute_category;
735 p3_a28 := ddpx_header_rec.attribute1;
736 p3_a29 := ddpx_header_rec.attribute2;
737 p3_a30 := ddpx_header_rec.attribute3;
738 p3_a31 := ddpx_header_rec.attribute4;
739 p3_a32 := ddpx_header_rec.attribute5;
740 p3_a33 := ddpx_header_rec.attribute6;
741 p3_a34 := ddpx_header_rec.attribute7;
742 p3_a35 := ddpx_header_rec.attribute8;
743 p3_a36 := ddpx_header_rec.attribute9;
744 p3_a37 := ddpx_header_rec.attribute10;
745 p3_a38 := ddpx_header_rec.attribute11;
746 p3_a39 := ddpx_header_rec.attribute12;
747 p3_a40 := ddpx_header_rec.attribute13;
748 p3_a41 := ddpx_header_rec.attribute14;
749 p3_a42 := ddpx_header_rec.attribute15;
750 p3_a43 := ddpx_header_rec.ship_to_contact_id;
751
752 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
753 , p4_a1
754 , p4_a2
755 , p4_a3
756 , p4_a4
757 , p4_a5
758 , p4_a6
759 , p4_a7
760 , p4_a8
761 , p4_a9
762 , p4_a10
763 , p4_a11
764 , p4_a12
765 , p4_a13
766 , p4_a14
767 , p4_a15
768 , p4_a16
769 , p4_a17
770 , p4_a18
771 , p4_a19
772 , p4_a20
773 , p4_a21
774 , p4_a22
775 , p4_a23
776 , p4_a24
777 , p4_a25
778 , p4_a26
779 , p4_a27
780 , p4_a28
781 , p4_a29
782 , p4_a30
783 , p4_a31
784 , p4_a32
785 , p4_a33
786 , p4_a34
787 , p4_a35
788 , p4_a36
789 , p4_a37
790 , p4_a38
791 , p4_a39
792 , p4_a40
793 );
794
795
796
797
798 end;
799
800 procedure csptrreq_fm_order(p_api_version NUMBER
801 , p_init_msg_list VARCHAR2
802 , p_commit VARCHAR2
803 , p3_a0 in out nocopy NUMBER
804 , p3_a1 in out nocopy VARCHAR2
805 , p3_a2 in out nocopy VARCHAR2
806 , p3_a3 in out nocopy NUMBER
807 , p3_a4 in out nocopy NUMBER
808 , p3_a5 in out nocopy NUMBER
809 , p3_a6 in out nocopy VARCHAR2
810 , p3_a7 in out nocopy NUMBER
811 , p3_a8 in out nocopy NUMBER
812 , p3_a9 in out nocopy DATE
813 , p3_a10 in out nocopy NUMBER
814 , p3_a11 in out nocopy VARCHAR2
815 , p3_a12 in out nocopy VARCHAR2
816 , p3_a13 in out nocopy NUMBER
817 , p3_a14 in out nocopy VARCHAR2
818 , p3_a15 in out nocopy VARCHAR2
819 , p3_a16 in out nocopy VARCHAR2
820 , p3_a17 in out nocopy NUMBER
821 , p3_a18 in out nocopy NUMBER
822 , p3_a19 in out nocopy VARCHAR2
823 , p3_a20 in out nocopy VARCHAR2
824 , p3_a21 in out nocopy VARCHAR2
825 , p3_a22 in out nocopy NUMBER
826 , p3_a23 in out nocopy VARCHAR2
827 , p3_a24 in out nocopy VARCHAR2
828 , p3_a25 in out nocopy NUMBER
829 , p3_a26 in out nocopy VARCHAR2
830 , p3_a27 in out nocopy VARCHAR2
831 , p3_a28 in out nocopy VARCHAR2
832 , p3_a29 in out nocopy VARCHAR2
833 , p3_a30 in out nocopy VARCHAR2
834 , p3_a31 in out nocopy VARCHAR2
835 , p3_a32 in out nocopy VARCHAR2
836 , p3_a33 in out nocopy VARCHAR2
837 , p3_a34 in out nocopy VARCHAR2
838 , p3_a35 in out nocopy VARCHAR2
839 , p3_a36 in out nocopy VARCHAR2
840 , p3_a37 in out nocopy VARCHAR2
841 , p3_a38 in out nocopy VARCHAR2
842 , p3_a39 in out nocopy VARCHAR2
843 , p3_a40 in out nocopy VARCHAR2
844 , p3_a41 in out nocopy VARCHAR2
845 , p3_a42 in out nocopy VARCHAR2
846 , p3_a43 in out nocopy NUMBER
847 , p4_a0 in out nocopy JTF_NUMBER_TABLE
848 , p4_a1 in out nocopy JTF_NUMBER_TABLE
849 , p4_a2 in out nocopy JTF_NUMBER_TABLE
850 , p4_a3 in out nocopy JTF_NUMBER_TABLE
851 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
852 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
853 , p4_a6 in out nocopy JTF_NUMBER_TABLE
854 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
855 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
856 , p4_a9 in out nocopy JTF_NUMBER_TABLE
857 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
858 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
859 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
860 , p4_a13 in out nocopy JTF_NUMBER_TABLE
861 , p4_a14 in out nocopy JTF_NUMBER_TABLE
862 , p4_a15 in out nocopy JTF_DATE_TABLE
863 , p4_a16 in out nocopy JTF_DATE_TABLE
864 , p4_a17 in out nocopy JTF_DATE_TABLE
865 , p4_a18 in out nocopy JTF_NUMBER_TABLE
866 , p4_a19 in out nocopy JTF_NUMBER_TABLE
867 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
868 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
869 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
870 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
871 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
872 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
873 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
874 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
875 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
876 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
877 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
881 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
878 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
879 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
880 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
882 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
883 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
884 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
885 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
886 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
887 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
888 , x_return_status out nocopy VARCHAR2
889 , x_msg_count out nocopy NUMBER
890 , x_msg_data out nocopy VARCHAR2
891 )
892
893 as
894 ddpx_header_rec csp_parts_requirement.header_rec_type;
895 ddpx_line_table csp_parts_requirement.line_tbl_type;
896 ddindx binary_integer; indx binary_integer;
897 begin
898
899 -- copy data to the local IN or IN-OUT args, if any
900
901
902
903 ddpx_header_rec.requisition_header_id := p3_a0;
904 ddpx_header_rec.requisition_number := p3_a1;
905 ddpx_header_rec.description := p3_a2;
906 ddpx_header_rec.order_header_id := p3_a3;
907 ddpx_header_rec.order_type_id := p3_a4;
908 ddpx_header_rec.ship_to_location_id := p3_a5;
909 ddpx_header_rec.shipping_method_code := p3_a6;
910 ddpx_header_rec.task_id := p3_a7;
911 ddpx_header_rec.task_assignment_id := p3_a8;
912 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
913 ddpx_header_rec.dest_organization_id := p3_a10;
914 ddpx_header_rec.dest_subinventory := p3_a11;
915 ddpx_header_rec.operation := p3_a12;
916 ddpx_header_rec.requirement_header_id := p3_a13;
917 ddpx_header_rec.change_reason := p3_a14;
918 ddpx_header_rec.change_comments := p3_a15;
919 ddpx_header_rec.resource_type := p3_a16;
920 ddpx_header_rec.resource_id := p3_a17;
921 ddpx_header_rec.incident_id := p3_a18;
922 ddpx_header_rec.address_type := p3_a19;
923 ddpx_header_rec.justification := p3_a20;
924 ddpx_header_rec.note_to_buyer := p3_a21;
925 ddpx_header_rec.note1_id := p3_a22;
926 ddpx_header_rec.note1_title := p3_a23;
927 ddpx_header_rec.called_from := p3_a24;
928 ddpx_header_rec.suggested_vendor_id := p3_a25;
929 ddpx_header_rec.suggested_vendor_name := p3_a26;
930 ddpx_header_rec.attribute_category := p3_a27;
931 ddpx_header_rec.attribute1 := p3_a28;
932 ddpx_header_rec.attribute2 := p3_a29;
933 ddpx_header_rec.attribute3 := p3_a30;
934 ddpx_header_rec.attribute4 := p3_a31;
935 ddpx_header_rec.attribute5 := p3_a32;
936 ddpx_header_rec.attribute6 := p3_a33;
937 ddpx_header_rec.attribute7 := p3_a34;
938 ddpx_header_rec.attribute8 := p3_a35;
939 ddpx_header_rec.attribute9 := p3_a36;
940 ddpx_header_rec.attribute10 := p3_a37;
941 ddpx_header_rec.attribute11 := p3_a38;
942 ddpx_header_rec.attribute12 := p3_a39;
943 ddpx_header_rec.attribute13 := p3_a40;
944 ddpx_header_rec.attribute14 := p3_a41;
945 ddpx_header_rec.attribute15 := p3_a42;
946 ddpx_header_rec.ship_to_contact_id := p3_a43;
947
948 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
949 , p4_a1
950 , p4_a2
951 , p4_a3
952 , p4_a4
953 , p4_a5
954 , p4_a6
955 , p4_a7
956 , p4_a8
957 , p4_a9
958 , p4_a10
959 , p4_a11
960 , p4_a12
961 , p4_a13
962 , p4_a14
963 , p4_a15
964 , p4_a16
965 , p4_a17
966 , p4_a18
967 , p4_a19
968 , p4_a20
969 , p4_a21
970 , p4_a22
971 , p4_a23
972 , p4_a24
973 , p4_a25
974 , p4_a26
975 , p4_a27
976 , p4_a28
977 , p4_a29
978 , p4_a30
979 , p4_a31
980 , p4_a32
981 , p4_a33
982 , p4_a34
983 , p4_a35
984 , p4_a36
985 , p4_a37
986 , p4_a38
987 , p4_a39
988 , p4_a40
989 );
990
991
992
993
994 -- here's the delegated call to the old PL/SQL routine
995 csp_parts_requirement.csptrreq_fm_order(p_api_version,
996 p_init_msg_list,
997 p_commit,
998 ddpx_header_rec,
999 ddpx_line_table,
1000 x_return_status,
1001 x_msg_count,
1002 x_msg_data);
1003
1004 -- copy data back from the local variables to OUT or IN-OUT args, if any
1005
1006
1007
1008 p3_a0 := ddpx_header_rec.requisition_header_id;
1009 p3_a1 := ddpx_header_rec.requisition_number;
1010 p3_a2 := ddpx_header_rec.description;
1011 p3_a3 := ddpx_header_rec.order_header_id;
1012 p3_a4 := ddpx_header_rec.order_type_id;
1013 p3_a5 := ddpx_header_rec.ship_to_location_id;
1014 p3_a6 := ddpx_header_rec.shipping_method_code;
1015 p3_a7 := ddpx_header_rec.task_id;
1016 p3_a8 := ddpx_header_rec.task_assignment_id;
1017 p3_a9 := ddpx_header_rec.need_by_date;
1018 p3_a10 := ddpx_header_rec.dest_organization_id;
1019 p3_a11 := ddpx_header_rec.dest_subinventory;
1020 p3_a12 := ddpx_header_rec.operation;
1021 p3_a13 := ddpx_header_rec.requirement_header_id;
1022 p3_a14 := ddpx_header_rec.change_reason;
1023 p3_a15 := ddpx_header_rec.change_comments;
1024 p3_a16 := ddpx_header_rec.resource_type;
1025 p3_a17 := ddpx_header_rec.resource_id;
1026 p3_a18 := ddpx_header_rec.incident_id;
1027 p3_a19 := ddpx_header_rec.address_type;
1028 p3_a20 := ddpx_header_rec.justification;
1029 p3_a21 := ddpx_header_rec.note_to_buyer;
1030 p3_a22 := ddpx_header_rec.note1_id;
1034 p3_a26 := ddpx_header_rec.suggested_vendor_name;
1031 p3_a23 := ddpx_header_rec.note1_title;
1032 p3_a24 := ddpx_header_rec.called_from;
1033 p3_a25 := ddpx_header_rec.suggested_vendor_id;
1035 p3_a27 := ddpx_header_rec.attribute_category;
1036 p3_a28 := ddpx_header_rec.attribute1;
1037 p3_a29 := ddpx_header_rec.attribute2;
1038 p3_a30 := ddpx_header_rec.attribute3;
1039 p3_a31 := ddpx_header_rec.attribute4;
1040 p3_a32 := ddpx_header_rec.attribute5;
1041 p3_a33 := ddpx_header_rec.attribute6;
1042 p3_a34 := ddpx_header_rec.attribute7;
1043 p3_a35 := ddpx_header_rec.attribute8;
1044 p3_a36 := ddpx_header_rec.attribute9;
1045 p3_a37 := ddpx_header_rec.attribute10;
1046 p3_a38 := ddpx_header_rec.attribute11;
1047 p3_a39 := ddpx_header_rec.attribute12;
1048 p3_a40 := ddpx_header_rec.attribute13;
1049 p3_a41 := ddpx_header_rec.attribute14;
1050 p3_a42 := ddpx_header_rec.attribute15;
1051 p3_a43 := ddpx_header_rec.ship_to_contact_id;
1052
1053 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
1054 , p4_a1
1055 , p4_a2
1056 , p4_a3
1057 , p4_a4
1058 , p4_a5
1059 , p4_a6
1060 , p4_a7
1061 , p4_a8
1062 , p4_a9
1063 , p4_a10
1064 , p4_a11
1065 , p4_a12
1066 , p4_a13
1067 , p4_a14
1068 , p4_a15
1069 , p4_a16
1070 , p4_a17
1071 , p4_a18
1072 , p4_a19
1073 , p4_a20
1074 , p4_a21
1075 , p4_a22
1076 , p4_a23
1077 , p4_a24
1078 , p4_a25
1079 , p4_a26
1080 , p4_a27
1081 , p4_a28
1082 , p4_a29
1083 , p4_a30
1084 , p4_a31
1085 , p4_a32
1086 , p4_a33
1087 , p4_a34
1088 , p4_a35
1089 , p4_a36
1090 , p4_a37
1091 , p4_a38
1092 , p4_a39
1093 , p4_a40
1094 );
1095
1096
1097
1098 end;
1099
1100 procedure csptrreq_order_res(p_api_version NUMBER
1101 , p_init_msg_list VARCHAR2
1102 , p_commit VARCHAR2
1103 , p3_a0 in out nocopy NUMBER
1104 , p3_a1 in out nocopy VARCHAR2
1105 , p3_a2 in out nocopy VARCHAR2
1106 , p3_a3 in out nocopy NUMBER
1107 , p3_a4 in out nocopy NUMBER
1108 , p3_a5 in out nocopy NUMBER
1109 , p3_a6 in out nocopy VARCHAR2
1110 , p3_a7 in out nocopy NUMBER
1111 , p3_a8 in out nocopy NUMBER
1112 , p3_a9 in out nocopy DATE
1113 , p3_a10 in out nocopy NUMBER
1114 , p3_a11 in out nocopy VARCHAR2
1115 , p3_a12 in out nocopy VARCHAR2
1116 , p3_a13 in out nocopy NUMBER
1117 , p3_a14 in out nocopy VARCHAR2
1118 , p3_a15 in out nocopy VARCHAR2
1119 , p3_a16 in out nocopy VARCHAR2
1120 , p3_a17 in out nocopy NUMBER
1121 , p3_a18 in out nocopy NUMBER
1122 , p3_a19 in out nocopy VARCHAR2
1123 , p3_a20 in out nocopy VARCHAR2
1124 , p3_a21 in out nocopy VARCHAR2
1125 , p3_a22 in out nocopy NUMBER
1126 , p3_a23 in out nocopy VARCHAR2
1127 , p3_a24 in out nocopy VARCHAR2
1128 , p3_a25 in out nocopy NUMBER
1129 , p3_a26 in out nocopy VARCHAR2
1130 , p3_a27 in out nocopy VARCHAR2
1131 , p3_a28 in out nocopy VARCHAR2
1132 , p3_a29 in out nocopy VARCHAR2
1133 , p3_a30 in out nocopy VARCHAR2
1134 , p3_a31 in out nocopy VARCHAR2
1135 , p3_a32 in out nocopy VARCHAR2
1136 , p3_a33 in out nocopy VARCHAR2
1137 , p3_a34 in out nocopy VARCHAR2
1138 , p3_a35 in out nocopy VARCHAR2
1139 , p3_a36 in out nocopy VARCHAR2
1140 , p3_a37 in out nocopy VARCHAR2
1141 , p3_a38 in out nocopy VARCHAR2
1142 , p3_a39 in out nocopy VARCHAR2
1143 , p3_a40 in out nocopy VARCHAR2
1144 , p3_a41 in out nocopy VARCHAR2
1145 , p3_a42 in out nocopy VARCHAR2
1146 , p3_a43 in out nocopy NUMBER
1147 , p4_a0 in out nocopy JTF_NUMBER_TABLE
1148 , p4_a1 in out nocopy JTF_NUMBER_TABLE
1149 , p4_a2 in out nocopy JTF_NUMBER_TABLE
1150 , p4_a3 in out nocopy JTF_NUMBER_TABLE
1151 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
1152 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1153 , p4_a6 in out nocopy JTF_NUMBER_TABLE
1154 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1155 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
1156 , p4_a9 in out nocopy JTF_NUMBER_TABLE
1157 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1158 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1159 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1160 , p4_a13 in out nocopy JTF_NUMBER_TABLE
1161 , p4_a14 in out nocopy JTF_NUMBER_TABLE
1162 , p4_a15 in out nocopy JTF_DATE_TABLE
1163 , p4_a16 in out nocopy JTF_DATE_TABLE
1164 , p4_a17 in out nocopy JTF_DATE_TABLE
1165 , p4_a18 in out nocopy JTF_NUMBER_TABLE
1166 , p4_a19 in out nocopy JTF_NUMBER_TABLE
1167 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
1168 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1169 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
1170 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
1171 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
1172 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
1173 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
1174 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
1175 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
1176 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
1177 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
1178 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
1179 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
1180 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
1181 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
1185 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
1182 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
1183 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
1184 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
1186 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
1187 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
1188 , x_return_status out nocopy VARCHAR2
1189 , x_msg_count out nocopy NUMBER
1190 , x_msg_data out nocopy VARCHAR2
1191 )
1192
1193 as
1194 ddpx_header_rec csp_parts_requirement.header_rec_type;
1195 ddpx_line_table csp_parts_requirement.line_tbl_type;
1196 ddindx binary_integer; indx binary_integer;
1197 begin
1198
1199 -- copy data to the local IN or IN-OUT args, if any
1200
1201
1202
1203 ddpx_header_rec.requisition_header_id := p3_a0;
1204 ddpx_header_rec.requisition_number := p3_a1;
1205 ddpx_header_rec.description := p3_a2;
1206 ddpx_header_rec.order_header_id := p3_a3;
1207 ddpx_header_rec.order_type_id := p3_a4;
1208 ddpx_header_rec.ship_to_location_id := p3_a5;
1209 ddpx_header_rec.shipping_method_code := p3_a6;
1210 ddpx_header_rec.task_id := p3_a7;
1211 ddpx_header_rec.task_assignment_id := p3_a8;
1212 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
1213 ddpx_header_rec.dest_organization_id := p3_a10;
1214 ddpx_header_rec.dest_subinventory := p3_a11;
1215 ddpx_header_rec.operation := p3_a12;
1216 ddpx_header_rec.requirement_header_id := p3_a13;
1217 ddpx_header_rec.change_reason := p3_a14;
1218 ddpx_header_rec.change_comments := p3_a15;
1219 ddpx_header_rec.resource_type := p3_a16;
1220 ddpx_header_rec.resource_id := p3_a17;
1221 ddpx_header_rec.incident_id := p3_a18;
1222 ddpx_header_rec.address_type := p3_a19;
1223 ddpx_header_rec.justification := p3_a20;
1224 ddpx_header_rec.note_to_buyer := p3_a21;
1225 ddpx_header_rec.note1_id := p3_a22;
1226 ddpx_header_rec.note1_title := p3_a23;
1227 ddpx_header_rec.called_from := p3_a24;
1228 ddpx_header_rec.suggested_vendor_id := p3_a25;
1229 ddpx_header_rec.suggested_vendor_name := p3_a26;
1230 ddpx_header_rec.attribute_category := p3_a27;
1231 ddpx_header_rec.attribute1 := p3_a28;
1232 ddpx_header_rec.attribute2 := p3_a29;
1233 ddpx_header_rec.attribute3 := p3_a30;
1234 ddpx_header_rec.attribute4 := p3_a31;
1235 ddpx_header_rec.attribute5 := p3_a32;
1236 ddpx_header_rec.attribute6 := p3_a33;
1237 ddpx_header_rec.attribute7 := p3_a34;
1238 ddpx_header_rec.attribute8 := p3_a35;
1239 ddpx_header_rec.attribute9 := p3_a36;
1240 ddpx_header_rec.attribute10 := p3_a37;
1241 ddpx_header_rec.attribute11 := p3_a38;
1242 ddpx_header_rec.attribute12 := p3_a39;
1243 ddpx_header_rec.attribute13 := p3_a40;
1244 ddpx_header_rec.attribute14 := p3_a41;
1245 ddpx_header_rec.attribute15 := p3_a42;
1246 ddpx_header_rec.ship_to_contact_id := p3_a43;
1247
1248 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
1249 , p4_a1
1250 , p4_a2
1251 , p4_a3
1252 , p4_a4
1253 , p4_a5
1254 , p4_a6
1255 , p4_a7
1256 , p4_a8
1257 , p4_a9
1258 , p4_a10
1259 , p4_a11
1260 , p4_a12
1261 , p4_a13
1262 , p4_a14
1263 , p4_a15
1264 , p4_a16
1265 , p4_a17
1266 , p4_a18
1267 , p4_a19
1268 , p4_a20
1269 , p4_a21
1270 , p4_a22
1271 , p4_a23
1272 , p4_a24
1273 , p4_a25
1274 , p4_a26
1275 , p4_a27
1276 , p4_a28
1277 , p4_a29
1278 , p4_a30
1279 , p4_a31
1280 , p4_a32
1281 , p4_a33
1282 , p4_a34
1283 , p4_a35
1284 , p4_a36
1285 , p4_a37
1286 , p4_a38
1287 , p4_a39
1288 , p4_a40
1289 );
1290
1291
1292
1293
1294 -- here's the delegated call to the old PL/SQL routine
1295 csp_parts_requirement.csptrreq_order_res(p_api_version,
1296 p_init_msg_list,
1297 p_commit,
1298 ddpx_header_rec,
1299 ddpx_line_table,
1300 x_return_status,
1301 x_msg_count,
1302 x_msg_data);
1303
1304 -- copy data back from the local variables to OUT or IN-OUT args, if any
1305
1306
1307
1308 p3_a0 := ddpx_header_rec.requisition_header_id;
1309 p3_a1 := ddpx_header_rec.requisition_number;
1310 p3_a2 := ddpx_header_rec.description;
1311 p3_a3 := ddpx_header_rec.order_header_id;
1312 p3_a4 := ddpx_header_rec.order_type_id;
1313 p3_a5 := ddpx_header_rec.ship_to_location_id;
1314 p3_a6 := ddpx_header_rec.shipping_method_code;
1315 p3_a7 := ddpx_header_rec.task_id;
1316 p3_a8 := ddpx_header_rec.task_assignment_id;
1317 p3_a9 := ddpx_header_rec.need_by_date;
1318 p3_a10 := ddpx_header_rec.dest_organization_id;
1319 p3_a11 := ddpx_header_rec.dest_subinventory;
1320 p3_a12 := ddpx_header_rec.operation;
1321 p3_a13 := ddpx_header_rec.requirement_header_id;
1322 p3_a14 := ddpx_header_rec.change_reason;
1323 p3_a15 := ddpx_header_rec.change_comments;
1324 p3_a16 := ddpx_header_rec.resource_type;
1325 p3_a17 := ddpx_header_rec.resource_id;
1326 p3_a18 := ddpx_header_rec.incident_id;
1327 p3_a19 := ddpx_header_rec.address_type;
1328 p3_a20 := ddpx_header_rec.justification;
1329 p3_a21 := ddpx_header_rec.note_to_buyer;
1330 p3_a22 := ddpx_header_rec.note1_id;
1331 p3_a23 := ddpx_header_rec.note1_title;
1332 p3_a24 := ddpx_header_rec.called_from;
1333 p3_a25 := ddpx_header_rec.suggested_vendor_id;
1334 p3_a26 := ddpx_header_rec.suggested_vendor_name;
1338 p3_a30 := ddpx_header_rec.attribute3;
1335 p3_a27 := ddpx_header_rec.attribute_category;
1336 p3_a28 := ddpx_header_rec.attribute1;
1337 p3_a29 := ddpx_header_rec.attribute2;
1339 p3_a31 := ddpx_header_rec.attribute4;
1340 p3_a32 := ddpx_header_rec.attribute5;
1341 p3_a33 := ddpx_header_rec.attribute6;
1342 p3_a34 := ddpx_header_rec.attribute7;
1343 p3_a35 := ddpx_header_rec.attribute8;
1344 p3_a36 := ddpx_header_rec.attribute9;
1345 p3_a37 := ddpx_header_rec.attribute10;
1346 p3_a38 := ddpx_header_rec.attribute11;
1347 p3_a39 := ddpx_header_rec.attribute12;
1348 p3_a40 := ddpx_header_rec.attribute13;
1349 p3_a41 := ddpx_header_rec.attribute14;
1350 p3_a42 := ddpx_header_rec.attribute15;
1351 p3_a43 := ddpx_header_rec.ship_to_contact_id;
1352
1353 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
1354 , p4_a1
1355 , p4_a2
1356 , p4_a3
1357 , p4_a4
1358 , p4_a5
1359 , p4_a6
1360 , p4_a7
1361 , p4_a8
1362 , p4_a9
1363 , p4_a10
1364 , p4_a11
1365 , p4_a12
1366 , p4_a13
1367 , p4_a14
1368 , p4_a15
1369 , p4_a16
1370 , p4_a17
1371 , p4_a18
1372 , p4_a19
1373 , p4_a20
1374 , p4_a21
1375 , p4_a22
1376 , p4_a23
1377 , p4_a24
1378 , p4_a25
1379 , p4_a26
1380 , p4_a27
1381 , p4_a28
1382 , p4_a29
1383 , p4_a30
1384 , p4_a31
1385 , p4_a32
1386 , p4_a33
1387 , p4_a34
1388 , p4_a35
1389 , p4_a36
1390 , p4_a37
1391 , p4_a38
1392 , p4_a39
1393 , p4_a40
1394 );
1395
1396
1397
1398 end;
1399
1400 procedure save_rqmt_line(p_api_version NUMBER
1401 , p_init_msg_list VARCHAR2
1402 , p_commit VARCHAR2
1403 , p3_a0 in out nocopy NUMBER
1404 , p3_a1 in out nocopy VARCHAR2
1405 , p3_a2 in out nocopy VARCHAR2
1406 , p3_a3 in out nocopy NUMBER
1407 , p3_a4 in out nocopy NUMBER
1408 , p3_a5 in out nocopy NUMBER
1409 , p3_a6 in out nocopy VARCHAR2
1410 , p3_a7 in out nocopy NUMBER
1411 , p3_a8 in out nocopy NUMBER
1412 , p3_a9 in out nocopy DATE
1413 , p3_a10 in out nocopy NUMBER
1414 , p3_a11 in out nocopy VARCHAR2
1415 , p3_a12 in out nocopy VARCHAR2
1416 , p3_a13 in out nocopy NUMBER
1417 , p3_a14 in out nocopy VARCHAR2
1418 , p3_a15 in out nocopy VARCHAR2
1419 , p3_a16 in out nocopy VARCHAR2
1420 , p3_a17 in out nocopy NUMBER
1421 , p3_a18 in out nocopy NUMBER
1422 , p3_a19 in out nocopy VARCHAR2
1423 , p3_a20 in out nocopy VARCHAR2
1424 , p3_a21 in out nocopy VARCHAR2
1425 , p3_a22 in out nocopy NUMBER
1426 , p3_a23 in out nocopy VARCHAR2
1427 , p3_a24 in out nocopy VARCHAR2
1428 , p3_a25 in out nocopy NUMBER
1429 , p3_a26 in out nocopy VARCHAR2
1430 , p3_a27 in out nocopy VARCHAR2
1431 , p3_a28 in out nocopy VARCHAR2
1432 , p3_a29 in out nocopy VARCHAR2
1433 , p3_a30 in out nocopy VARCHAR2
1434 , p3_a31 in out nocopy VARCHAR2
1435 , p3_a32 in out nocopy VARCHAR2
1436 , p3_a33 in out nocopy VARCHAR2
1437 , p3_a34 in out nocopy VARCHAR2
1438 , p3_a35 in out nocopy VARCHAR2
1439 , p3_a36 in out nocopy VARCHAR2
1440 , p3_a37 in out nocopy VARCHAR2
1441 , p3_a38 in out nocopy VARCHAR2
1442 , p3_a39 in out nocopy VARCHAR2
1443 , p3_a40 in out nocopy VARCHAR2
1444 , p3_a41 in out nocopy VARCHAR2
1445 , p3_a42 in out nocopy VARCHAR2
1446 , p3_a43 in out nocopy NUMBER
1447 , p4_a0 in out nocopy JTF_NUMBER_TABLE
1448 , p4_a1 in out nocopy JTF_NUMBER_TABLE
1449 , p4_a2 in out nocopy JTF_NUMBER_TABLE
1450 , p4_a3 in out nocopy JTF_NUMBER_TABLE
1451 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
1452 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1453 , p4_a6 in out nocopy JTF_NUMBER_TABLE
1454 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1455 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
1456 , p4_a9 in out nocopy JTF_NUMBER_TABLE
1457 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1458 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1459 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1460 , p4_a13 in out nocopy JTF_NUMBER_TABLE
1461 , p4_a14 in out nocopy JTF_NUMBER_TABLE
1462 , p4_a15 in out nocopy JTF_DATE_TABLE
1463 , p4_a16 in out nocopy JTF_DATE_TABLE
1464 , p4_a17 in out nocopy JTF_DATE_TABLE
1465 , p4_a18 in out nocopy JTF_NUMBER_TABLE
1466 , p4_a19 in out nocopy JTF_NUMBER_TABLE
1467 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
1468 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1469 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
1470 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
1471 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
1472 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
1473 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
1474 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
1475 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
1476 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
1477 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
1478 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
1479 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
1480 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
1481 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
1482 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
1483 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
1484 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
1485 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
1489 , x_msg_count out nocopy NUMBER
1486 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
1487 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
1488 , x_return_status out nocopy VARCHAR2
1490 , x_msg_data out nocopy VARCHAR2
1491 )
1492
1493 as
1494 ddpx_header_rec csp_parts_requirement.header_rec_type;
1495 ddpx_line_tbl csp_parts_requirement.line_tbl_type;
1496 ddindx binary_integer; indx binary_integer;
1497 begin
1498
1499 -- copy data to the local IN or IN-OUT args, if any
1500
1501
1502
1503 ddpx_header_rec.requisition_header_id := p3_a0;
1504 ddpx_header_rec.requisition_number := p3_a1;
1505 ddpx_header_rec.description := p3_a2;
1506 ddpx_header_rec.order_header_id := p3_a3;
1507 ddpx_header_rec.order_type_id := p3_a4;
1508 ddpx_header_rec.ship_to_location_id := p3_a5;
1509 ddpx_header_rec.shipping_method_code := p3_a6;
1510 ddpx_header_rec.task_id := p3_a7;
1511 ddpx_header_rec.task_assignment_id := p3_a8;
1512 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
1513 ddpx_header_rec.dest_organization_id := p3_a10;
1514 ddpx_header_rec.dest_subinventory := p3_a11;
1515 ddpx_header_rec.operation := p3_a12;
1516 ddpx_header_rec.requirement_header_id := p3_a13;
1517 ddpx_header_rec.change_reason := p3_a14;
1518 ddpx_header_rec.change_comments := p3_a15;
1519 ddpx_header_rec.resource_type := p3_a16;
1520 ddpx_header_rec.resource_id := p3_a17;
1521 ddpx_header_rec.incident_id := p3_a18;
1522 ddpx_header_rec.address_type := p3_a19;
1523 ddpx_header_rec.justification := p3_a20;
1524 ddpx_header_rec.note_to_buyer := p3_a21;
1525 ddpx_header_rec.note1_id := p3_a22;
1526 ddpx_header_rec.note1_title := p3_a23;
1527 ddpx_header_rec.called_from := p3_a24;
1528 ddpx_header_rec.suggested_vendor_id := p3_a25;
1529 ddpx_header_rec.suggested_vendor_name := p3_a26;
1530 ddpx_header_rec.attribute_category := p3_a27;
1531 ddpx_header_rec.attribute1 := p3_a28;
1532 ddpx_header_rec.attribute2 := p3_a29;
1533 ddpx_header_rec.attribute3 := p3_a30;
1534 ddpx_header_rec.attribute4 := p3_a31;
1535 ddpx_header_rec.attribute5 := p3_a32;
1536 ddpx_header_rec.attribute6 := p3_a33;
1537 ddpx_header_rec.attribute7 := p3_a34;
1538 ddpx_header_rec.attribute8 := p3_a35;
1539 ddpx_header_rec.attribute9 := p3_a36;
1540 ddpx_header_rec.attribute10 := p3_a37;
1541 ddpx_header_rec.attribute11 := p3_a38;
1542 ddpx_header_rec.attribute12 := p3_a39;
1543 ddpx_header_rec.attribute13 := p3_a40;
1544 ddpx_header_rec.attribute14 := p3_a41;
1545 ddpx_header_rec.attribute15 := p3_a42;
1546 ddpx_header_rec.ship_to_contact_id := p3_a43;
1547
1548 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_tbl, p4_a0
1549 , p4_a1
1550 , p4_a2
1551 , p4_a3
1552 , p4_a4
1553 , p4_a5
1554 , p4_a6
1555 , p4_a7
1556 , p4_a8
1557 , p4_a9
1558 , p4_a10
1559 , p4_a11
1560 , p4_a12
1561 , p4_a13
1562 , p4_a14
1563 , p4_a15
1564 , p4_a16
1565 , p4_a17
1566 , p4_a18
1567 , p4_a19
1568 , p4_a20
1569 , p4_a21
1570 , p4_a22
1571 , p4_a23
1572 , p4_a24
1573 , p4_a25
1574 , p4_a26
1575 , p4_a27
1576 , p4_a28
1577 , p4_a29
1578 , p4_a30
1579 , p4_a31
1580 , p4_a32
1581 , p4_a33
1582 , p4_a34
1583 , p4_a35
1584 , p4_a36
1585 , p4_a37
1586 , p4_a38
1587 , p4_a39
1588 , p4_a40
1589 );
1590
1591
1592
1593
1594 -- here's the delegated call to the old PL/SQL routine
1595 csp_parts_requirement.save_rqmt_line(p_api_version,
1596 p_init_msg_list,
1597 p_commit,
1598 ddpx_header_rec,
1599 ddpx_line_tbl,
1600 x_return_status,
1601 x_msg_count,
1602 x_msg_data);
1603
1604 -- copy data back from the local variables to OUT or IN-OUT args, if any
1605
1606
1607
1608 p3_a0 := ddpx_header_rec.requisition_header_id;
1609 p3_a1 := ddpx_header_rec.requisition_number;
1610 p3_a2 := ddpx_header_rec.description;
1611 p3_a3 := ddpx_header_rec.order_header_id;
1612 p3_a4 := ddpx_header_rec.order_type_id;
1613 p3_a5 := ddpx_header_rec.ship_to_location_id;
1614 p3_a6 := ddpx_header_rec.shipping_method_code;
1615 p3_a7 := ddpx_header_rec.task_id;
1616 p3_a8 := ddpx_header_rec.task_assignment_id;
1617 p3_a9 := ddpx_header_rec.need_by_date;
1618 p3_a10 := ddpx_header_rec.dest_organization_id;
1619 p3_a11 := ddpx_header_rec.dest_subinventory;
1620 p3_a12 := ddpx_header_rec.operation;
1621 p3_a13 := ddpx_header_rec.requirement_header_id;
1622 p3_a14 := ddpx_header_rec.change_reason;
1623 p3_a15 := ddpx_header_rec.change_comments;
1624 p3_a16 := ddpx_header_rec.resource_type;
1625 p3_a17 := ddpx_header_rec.resource_id;
1626 p3_a18 := ddpx_header_rec.incident_id;
1627 p3_a19 := ddpx_header_rec.address_type;
1628 p3_a20 := ddpx_header_rec.justification;
1629 p3_a21 := ddpx_header_rec.note_to_buyer;
1630 p3_a22 := ddpx_header_rec.note1_id;
1631 p3_a23 := ddpx_header_rec.note1_title;
1632 p3_a24 := ddpx_header_rec.called_from;
1633 p3_a25 := ddpx_header_rec.suggested_vendor_id;
1634 p3_a26 := ddpx_header_rec.suggested_vendor_name;
1635 p3_a27 := ddpx_header_rec.attribute_category;
1636 p3_a28 := ddpx_header_rec.attribute1;
1637 p3_a29 := ddpx_header_rec.attribute2;
1638 p3_a30 := ddpx_header_rec.attribute3;
1639 p3_a31 := ddpx_header_rec.attribute4;
1643 p3_a35 := ddpx_header_rec.attribute8;
1640 p3_a32 := ddpx_header_rec.attribute5;
1641 p3_a33 := ddpx_header_rec.attribute6;
1642 p3_a34 := ddpx_header_rec.attribute7;
1644 p3_a36 := ddpx_header_rec.attribute9;
1645 p3_a37 := ddpx_header_rec.attribute10;
1646 p3_a38 := ddpx_header_rec.attribute11;
1647 p3_a39 := ddpx_header_rec.attribute12;
1648 p3_a40 := ddpx_header_rec.attribute13;
1649 p3_a41 := ddpx_header_rec.attribute14;
1650 p3_a42 := ddpx_header_rec.attribute15;
1651 p3_a43 := ddpx_header_rec.ship_to_contact_id;
1652
1653 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_tbl, p4_a0
1654 , p4_a1
1655 , p4_a2
1656 , p4_a3
1657 , p4_a4
1658 , p4_a5
1659 , p4_a6
1660 , p4_a7
1661 , p4_a8
1662 , p4_a9
1663 , p4_a10
1664 , p4_a11
1665 , p4_a12
1666 , p4_a13
1667 , p4_a14
1668 , p4_a15
1669 , p4_a16
1670 , p4_a17
1671 , p4_a18
1672 , p4_a19
1673 , p4_a20
1674 , p4_a21
1675 , p4_a22
1676 , p4_a23
1677 , p4_a24
1678 , p4_a25
1679 , p4_a26
1680 , p4_a27
1681 , p4_a28
1682 , p4_a29
1683 , p4_a30
1684 , p4_a31
1685 , p4_a32
1686 , p4_a33
1687 , p4_a34
1688 , p4_a35
1689 , p4_a36
1690 , p4_a37
1691 , p4_a38
1692 , p4_a39
1693 , p4_a40
1694 );
1695
1696
1697
1698 end;
1699
1700 procedure delete_rqmt_line(p_api_version NUMBER
1701 , p_init_msg_list VARCHAR2
1702 , p_commit VARCHAR2
1703 , p3_a0 in out nocopy JTF_NUMBER_TABLE
1704 , x_return_status out nocopy VARCHAR2
1705 , x_msg_count out nocopy NUMBER
1706 , x_msg_data out nocopy VARCHAR2
1707 )
1708
1709 as
1710 ddp_line_tbl csp_parts_requirement.rqmt_line_tbl_type;
1711 ddindx binary_integer; indx binary_integer;
1712 begin
1713
1714 -- copy data to the local IN or IN-OUT args, if any
1715
1716
1717
1718 csp_parts_requirement_w.rosetta_table_copy_in_p6(ddp_line_tbl, p3_a0
1719 );
1720
1721
1722
1723
1724 -- here's the delegated call to the old PL/SQL routine
1725 csp_parts_requirement.delete_rqmt_line(p_api_version,
1726 p_init_msg_list,
1727 p_commit,
1728 ddp_line_tbl,
1729 x_return_status,
1730 x_msg_count,
1731 x_msg_data);
1732
1733 -- copy data back from the local variables to OUT or IN-OUT args, if any
1734
1735
1736
1737 csp_parts_requirement_w.rosetta_table_copy_out_p6(ddp_line_tbl, p3_a0
1738 );
1739
1740
1741
1742 end;
1743
1744 procedure check_availability(p_api_version NUMBER
1745 , p_init_msg_list VARCHAR2
1746 , p_commit VARCHAR2
1747 , p_header_id NUMBER
1748 , p4_a0 out nocopy JTF_NUMBER_TABLE
1749 , p4_a1 out nocopy JTF_NUMBER_TABLE
1750 , p4_a2 out nocopy JTF_NUMBER_TABLE
1751 , p4_a3 out nocopy JTF_NUMBER_TABLE
1752 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_300
1753 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
1754 , p4_a6 out nocopy JTF_NUMBER_TABLE
1755 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_100
1756 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_100
1757 , p4_a9 out nocopy JTF_NUMBER_TABLE
1758 , p4_a10 out nocopy JTF_VARCHAR2_TABLE_100
1759 , p4_a11 out nocopy JTF_VARCHAR2_TABLE_100
1760 , p4_a12 out nocopy JTF_VARCHAR2_TABLE_100
1761 , p4_a13 out nocopy JTF_NUMBER_TABLE
1762 , p4_a14 out nocopy JTF_NUMBER_TABLE
1763 , p4_a15 out nocopy JTF_DATE_TABLE
1764 , p4_a16 out nocopy JTF_DATE_TABLE
1765 , p4_a17 out nocopy JTF_DATE_TABLE
1766 , p4_a18 out nocopy JTF_NUMBER_TABLE
1767 , p4_a19 out nocopy JTF_NUMBER_TABLE
1768 , p4_a20 out nocopy JTF_VARCHAR2_TABLE_100
1769 , p4_a21 out nocopy JTF_VARCHAR2_TABLE_100
1770 , p4_a22 out nocopy JTF_VARCHAR2_TABLE_100
1771 , p4_a23 out nocopy JTF_VARCHAR2_TABLE_100
1772 , p4_a24 out nocopy JTF_VARCHAR2_TABLE_100
1773 , p4_a25 out nocopy JTF_VARCHAR2_TABLE_100
1774 , p4_a26 out nocopy JTF_VARCHAR2_TABLE_200
1775 , p4_a27 out nocopy JTF_VARCHAR2_TABLE_200
1776 , p4_a28 out nocopy JTF_VARCHAR2_TABLE_200
1777 , p4_a29 out nocopy JTF_VARCHAR2_TABLE_200
1778 , p4_a30 out nocopy JTF_VARCHAR2_TABLE_200
1779 , p4_a31 out nocopy JTF_VARCHAR2_TABLE_200
1780 , p4_a32 out nocopy JTF_VARCHAR2_TABLE_200
1781 , p4_a33 out nocopy JTF_VARCHAR2_TABLE_200
1782 , p4_a34 out nocopy JTF_VARCHAR2_TABLE_200
1783 , p4_a35 out nocopy JTF_VARCHAR2_TABLE_200
1784 , p4_a36 out nocopy JTF_VARCHAR2_TABLE_200
1785 , p4_a37 out nocopy JTF_VARCHAR2_TABLE_200
1786 , p4_a38 out nocopy JTF_VARCHAR2_TABLE_200
1787 , p4_a39 out nocopy JTF_VARCHAR2_TABLE_200
1788 , p4_a40 out nocopy JTF_VARCHAR2_TABLE_200
1789 , x_avail_flag out nocopy VARCHAR2
1790 , x_return_status out nocopy VARCHAR2
1791 , x_msg_count out nocopy NUMBER
1792 , x_msg_data out nocopy VARCHAR2
1793 )
1794
1795 as
1796 ddx_line_tbl csp_parts_requirement.line_tbl_type;
1797 ddindx binary_integer; indx binary_integer;
1798 begin
1799
1800 -- copy data to the local IN or IN-OUT args, if any
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810 -- here's the delegated call to the old PL/SQL routine
1811 csp_parts_requirement.check_availability(p_api_version,
1812 p_init_msg_list,
1813 p_commit,
1814 p_header_id,
1818 x_msg_count,
1815 ddx_line_tbl,
1816 x_avail_flag,
1817 x_return_status,
1819 x_msg_data);
1820
1821 -- copy data back from the local variables to OUT or IN-OUT args, if any
1822
1823
1824
1825
1826 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddx_line_tbl, p4_a0
1827 , p4_a1
1828 , p4_a2
1829 , p4_a3
1830 , p4_a4
1831 , p4_a5
1832 , p4_a6
1833 , p4_a7
1834 , p4_a8
1835 , p4_a9
1836 , p4_a10
1837 , p4_a11
1838 , p4_a12
1839 , p4_a13
1840 , p4_a14
1841 , p4_a15
1842 , p4_a16
1843 , p4_a17
1844 , p4_a18
1845 , p4_a19
1846 , p4_a20
1847 , p4_a21
1848 , p4_a22
1849 , p4_a23
1850 , p4_a24
1851 , p4_a25
1852 , p4_a26
1853 , p4_a27
1854 , p4_a28
1855 , p4_a29
1856 , p4_a30
1857 , p4_a31
1858 , p4_a32
1859 , p4_a33
1860 , p4_a34
1861 , p4_a35
1862 , p4_a36
1863 , p4_a37
1864 , p4_a38
1865 , p4_a39
1866 , p4_a40
1867 );
1868
1869
1870
1871
1872 end;
1873
1874 procedure create_order(p_api_version NUMBER
1875 , p_init_msg_list VARCHAR2
1876 , p_commit VARCHAR2
1877 , p_header_id NUMBER
1878 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
1879 , p4_a1 out nocopy JTF_NUMBER_TABLE
1880 , x_return_status out nocopy VARCHAR2
1881 , x_msg_count out nocopy NUMBER
1882 , x_msg_data out nocopy VARCHAR2
1883 )
1884
1885 as
1886 ddx_order_tbl csp_parts_requirement.order_tbl_type;
1887 ddindx binary_integer; indx binary_integer;
1888 begin
1889
1890 -- copy data to the local IN or IN-OUT args, if any
1891
1892
1893
1894
1895
1896
1897
1898
1899 -- here's the delegated call to the old PL/SQL routine
1900 csp_parts_requirement.create_order(p_api_version,
1901 p_init_msg_list,
1902 p_commit,
1903 p_header_id,
1904 ddx_order_tbl,
1905 x_return_status,
1906 x_msg_count,
1907 x_msg_data);
1908
1909 -- copy data back from the local variables to OUT or IN-OUT args, if any
1910
1911
1912
1913
1914 csp_parts_requirement_w.rosetta_table_copy_out_p8(ddx_order_tbl, p4_a0
1915 , p4_a1
1916 );
1917
1918
1919
1920 end;
1921
1922 end csp_parts_requirement_w;