[Home] [Help]
PACKAGE BODY: APPS.CSP_REQUIREMENT_HEADERS_PVT_W
Source
1 package body csp_requirement_headers_pvt_w as
2 /* $Header: csprqhpvtwb.pls 120.1.12020000.2 2012/07/18 07:58: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_p3(t out nocopy csp_requirement_headers_pvt.requirement_header_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_VARCHAR2_TABLE_300
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_DATE_TABLE
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_200
32 , a16 JTF_VARCHAR2_TABLE_200
33 , a17 JTF_VARCHAR2_TABLE_200
34 , a18 JTF_VARCHAR2_TABLE_200
35 , a19 JTF_VARCHAR2_TABLE_200
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_NUMBER_TABLE
47 , a31 JTF_VARCHAR2_TABLE_100
48 , a32 JTF_NUMBER_TABLE
49 , a33 JTF_VARCHAR2_TABLE_100
50 , a34 JTF_NUMBER_TABLE
51 , a35 JTF_VARCHAR2_TABLE_100
52 , a36 JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx).requirement_header_id := a0(indx);
62 t(ddindx).created_by := a1(indx);
63 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a2(indx));
64 t(ddindx).last_updated_by := a3(indx);
65 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
66 t(ddindx).last_update_login := a5(indx);
67 t(ddindx).open_requirement := a6(indx);
68 t(ddindx).ship_to_location_id := a7(indx);
69 t(ddindx).task_id := a8(indx);
70 t(ddindx).task_assignment_id := a9(indx);
71 t(ddindx).shipping_method_code := a10(indx);
72 t(ddindx).need_by_date := rosetta_g_miss_date_in_map(a11(indx));
73 t(ddindx).destination_organization_id := a12(indx);
74 t(ddindx).parts_defined := a13(indx);
75 t(ddindx).attribute_category := a14(indx);
76 t(ddindx).attribute1 := a15(indx);
77 t(ddindx).attribute2 := a16(indx);
78 t(ddindx).attribute3 := a17(indx);
79 t(ddindx).attribute4 := a18(indx);
80 t(ddindx).attribute5 := a19(indx);
81 t(ddindx).attribute6 := a20(indx);
82 t(ddindx).attribute7 := a21(indx);
83 t(ddindx).attribute8 := a22(indx);
84 t(ddindx).attribute9 := a23(indx);
85 t(ddindx).attribute10 := a24(indx);
86 t(ddindx).attribute11 := a25(indx);
87 t(ddindx).attribute12 := a26(indx);
88 t(ddindx).attribute13 := a27(indx);
89 t(ddindx).attribute14 := a28(indx);
90 t(ddindx).attribute15 := a29(indx);
91 t(ddindx).order_type_id := a30(indx);
92 t(ddindx).address_type := a31(indx);
93 t(ddindx).resource_id := a32(indx);
94 t(ddindx).resource_type := a33(indx);
95 t(ddindx).timezone_id := a34(indx);
96 t(ddindx).destination_subinventory := a35(indx);
97 t(ddindx).ship_to_contact_id := a36(indx);
98 ddindx := ddindx+1;
99 if a0.last =indx
100 then exit;
101 end if;
102 indx := a0.next(indx);
103 end loop;
104 end if;
105 end if;
106 end rosetta_table_copy_in_p3;
107 procedure rosetta_table_copy_out_p3(t csp_requirement_headers_pvt.requirement_header_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
108 , a1 out nocopy JTF_NUMBER_TABLE
109 , a2 out nocopy JTF_DATE_TABLE
110 , a3 out nocopy JTF_NUMBER_TABLE
111 , a4 out nocopy JTF_DATE_TABLE
112 , a5 out nocopy JTF_NUMBER_TABLE
113 , a6 out nocopy JTF_VARCHAR2_TABLE_300
114 , a7 out nocopy JTF_NUMBER_TABLE
115 , a8 out nocopy JTF_NUMBER_TABLE
116 , a9 out nocopy JTF_NUMBER_TABLE
117 , a10 out nocopy JTF_VARCHAR2_TABLE_100
118 , a11 out nocopy JTF_DATE_TABLE
119 , a12 out nocopy JTF_NUMBER_TABLE
120 , a13 out nocopy JTF_VARCHAR2_TABLE_100
121 , a14 out nocopy JTF_VARCHAR2_TABLE_100
122 , a15 out nocopy JTF_VARCHAR2_TABLE_200
123 , a16 out nocopy JTF_VARCHAR2_TABLE_200
124 , a17 out nocopy JTF_VARCHAR2_TABLE_200
125 , a18 out nocopy JTF_VARCHAR2_TABLE_200
126 , a19 out nocopy JTF_VARCHAR2_TABLE_200
127 , a20 out nocopy JTF_VARCHAR2_TABLE_200
128 , a21 out nocopy JTF_VARCHAR2_TABLE_200
129 , a22 out nocopy JTF_VARCHAR2_TABLE_200
130 , a23 out nocopy JTF_VARCHAR2_TABLE_200
131 , a24 out nocopy JTF_VARCHAR2_TABLE_200
132 , a25 out nocopy JTF_VARCHAR2_TABLE_200
133 , a26 out nocopy JTF_VARCHAR2_TABLE_200
134 , a27 out nocopy JTF_VARCHAR2_TABLE_200
135 , a28 out nocopy JTF_VARCHAR2_TABLE_200
136 , a29 out nocopy JTF_VARCHAR2_TABLE_200
137 , a30 out nocopy JTF_NUMBER_TABLE
138 , a31 out nocopy JTF_VARCHAR2_TABLE_100
139 , a32 out nocopy JTF_NUMBER_TABLE
140 , a33 out nocopy JTF_VARCHAR2_TABLE_100
141 , a34 out nocopy JTF_NUMBER_TABLE
142 , a35 out nocopy JTF_VARCHAR2_TABLE_100
143 , a36 out nocopy JTF_NUMBER_TABLE
144 ) as
145 ddindx binary_integer; indx binary_integer;
146 begin
147 if t is null or t.count = 0 then
148 a0 := JTF_NUMBER_TABLE();
149 a1 := JTF_NUMBER_TABLE();
150 a2 := JTF_DATE_TABLE();
151 a3 := JTF_NUMBER_TABLE();
152 a4 := JTF_DATE_TABLE();
153 a5 := JTF_NUMBER_TABLE();
154 a6 := JTF_VARCHAR2_TABLE_300();
155 a7 := JTF_NUMBER_TABLE();
156 a8 := JTF_NUMBER_TABLE();
157 a9 := JTF_NUMBER_TABLE();
158 a10 := JTF_VARCHAR2_TABLE_100();
159 a11 := JTF_DATE_TABLE();
160 a12 := JTF_NUMBER_TABLE();
161 a13 := JTF_VARCHAR2_TABLE_100();
162 a14 := JTF_VARCHAR2_TABLE_100();
163 a15 := JTF_VARCHAR2_TABLE_200();
164 a16 := JTF_VARCHAR2_TABLE_200();
165 a17 := JTF_VARCHAR2_TABLE_200();
166 a18 := JTF_VARCHAR2_TABLE_200();
167 a19 := JTF_VARCHAR2_TABLE_200();
168 a20 := JTF_VARCHAR2_TABLE_200();
169 a21 := JTF_VARCHAR2_TABLE_200();
170 a22 := JTF_VARCHAR2_TABLE_200();
171 a23 := JTF_VARCHAR2_TABLE_200();
172 a24 := JTF_VARCHAR2_TABLE_200();
173 a25 := JTF_VARCHAR2_TABLE_200();
174 a26 := JTF_VARCHAR2_TABLE_200();
175 a27 := JTF_VARCHAR2_TABLE_200();
176 a28 := JTF_VARCHAR2_TABLE_200();
177 a29 := JTF_VARCHAR2_TABLE_200();
178 a30 := JTF_NUMBER_TABLE();
179 a31 := JTF_VARCHAR2_TABLE_100();
180 a32 := JTF_NUMBER_TABLE();
181 a33 := JTF_VARCHAR2_TABLE_100();
182 a34 := JTF_NUMBER_TABLE();
183 a35 := JTF_VARCHAR2_TABLE_100();
184 a36 := JTF_NUMBER_TABLE();
185 else
186 a0 := JTF_NUMBER_TABLE();
187 a1 := JTF_NUMBER_TABLE();
188 a2 := JTF_DATE_TABLE();
189 a3 := JTF_NUMBER_TABLE();
190 a4 := JTF_DATE_TABLE();
191 a5 := JTF_NUMBER_TABLE();
192 a6 := JTF_VARCHAR2_TABLE_300();
193 a7 := JTF_NUMBER_TABLE();
194 a8 := JTF_NUMBER_TABLE();
195 a9 := JTF_NUMBER_TABLE();
196 a10 := JTF_VARCHAR2_TABLE_100();
197 a11 := JTF_DATE_TABLE();
198 a12 := JTF_NUMBER_TABLE();
199 a13 := JTF_VARCHAR2_TABLE_100();
200 a14 := JTF_VARCHAR2_TABLE_100();
201 a15 := JTF_VARCHAR2_TABLE_200();
202 a16 := JTF_VARCHAR2_TABLE_200();
203 a17 := JTF_VARCHAR2_TABLE_200();
204 a18 := JTF_VARCHAR2_TABLE_200();
205 a19 := JTF_VARCHAR2_TABLE_200();
206 a20 := JTF_VARCHAR2_TABLE_200();
207 a21 := JTF_VARCHAR2_TABLE_200();
208 a22 := JTF_VARCHAR2_TABLE_200();
209 a23 := JTF_VARCHAR2_TABLE_200();
210 a24 := JTF_VARCHAR2_TABLE_200();
211 a25 := JTF_VARCHAR2_TABLE_200();
212 a26 := JTF_VARCHAR2_TABLE_200();
213 a27 := JTF_VARCHAR2_TABLE_200();
214 a28 := JTF_VARCHAR2_TABLE_200();
215 a29 := JTF_VARCHAR2_TABLE_200();
216 a30 := JTF_NUMBER_TABLE();
217 a31 := JTF_VARCHAR2_TABLE_100();
218 a32 := JTF_NUMBER_TABLE();
219 a33 := JTF_VARCHAR2_TABLE_100();
220 a34 := JTF_NUMBER_TABLE();
221 a35 := JTF_VARCHAR2_TABLE_100();
222 a36 := JTF_NUMBER_TABLE();
223 if t.count > 0 then
224 a0.extend(t.count);
225 a1.extend(t.count);
226 a2.extend(t.count);
227 a3.extend(t.count);
228 a4.extend(t.count);
229 a5.extend(t.count);
230 a6.extend(t.count);
231 a7.extend(t.count);
232 a8.extend(t.count);
233 a9.extend(t.count);
234 a10.extend(t.count);
235 a11.extend(t.count);
236 a12.extend(t.count);
237 a13.extend(t.count);
238 a14.extend(t.count);
239 a15.extend(t.count);
240 a16.extend(t.count);
241 a17.extend(t.count);
242 a18.extend(t.count);
243 a19.extend(t.count);
244 a20.extend(t.count);
245 a21.extend(t.count);
246 a22.extend(t.count);
247 a23.extend(t.count);
248 a24.extend(t.count);
249 a25.extend(t.count);
250 a26.extend(t.count);
251 a27.extend(t.count);
252 a28.extend(t.count);
253 a29.extend(t.count);
254 a30.extend(t.count);
255 a31.extend(t.count);
256 a32.extend(t.count);
257 a33.extend(t.count);
258 a34.extend(t.count);
259 a35.extend(t.count);
260 a36.extend(t.count);
261 ddindx := t.first;
262 indx := 1;
263 while true loop
264 a0(indx) := t(ddindx).requirement_header_id;
265 a1(indx) := t(ddindx).created_by;
266 a2(indx) := t(ddindx).creation_date;
267 a3(indx) := t(ddindx).last_updated_by;
268 a4(indx) := t(ddindx).last_update_date;
269 a5(indx) := t(ddindx).last_update_login;
270 a6(indx) := t(ddindx).open_requirement;
271 a7(indx) := t(ddindx).ship_to_location_id;
272 a8(indx) := t(ddindx).task_id;
273 a9(indx) := t(ddindx).task_assignment_id;
274 a10(indx) := t(ddindx).shipping_method_code;
275 a11(indx) := t(ddindx).need_by_date;
276 a12(indx) := t(ddindx).destination_organization_id;
277 a13(indx) := t(ddindx).parts_defined;
278 a14(indx) := t(ddindx).attribute_category;
279 a15(indx) := t(ddindx).attribute1;
283 a19(indx) := t(ddindx).attribute5;
280 a16(indx) := t(ddindx).attribute2;
281 a17(indx) := t(ddindx).attribute3;
282 a18(indx) := t(ddindx).attribute4;
284 a20(indx) := t(ddindx).attribute6;
285 a21(indx) := t(ddindx).attribute7;
286 a22(indx) := t(ddindx).attribute8;
287 a23(indx) := t(ddindx).attribute9;
288 a24(indx) := t(ddindx).attribute10;
289 a25(indx) := t(ddindx).attribute11;
290 a26(indx) := t(ddindx).attribute12;
291 a27(indx) := t(ddindx).attribute13;
292 a28(indx) := t(ddindx).attribute14;
293 a29(indx) := t(ddindx).attribute15;
294 a30(indx) := t(ddindx).order_type_id;
295 a31(indx) := t(ddindx).address_type;
296 a32(indx) := t(ddindx).resource_id;
297 a33(indx) := t(ddindx).resource_type;
298 a34(indx) := t(ddindx).timezone_id;
299 a35(indx) := t(ddindx).destination_subinventory;
300 a36(indx) := t(ddindx).ship_to_contact_id;
301 indx := indx+1;
302 if t.last =ddindx
303 then exit;
304 end if;
305 ddindx := t.next(ddindx);
306 end loop;
307 end if;
308 end if;
309 end rosetta_table_copy_out_p3;
310
311 procedure create_requirement_headers(p_api_version_number NUMBER
312 , p_init_msg_list VARCHAR2
313 , p_commit VARCHAR2
314 , p_validation_level NUMBER
315 , p4_a0 NUMBER
316 , p4_a1 NUMBER
317 , p4_a2 DATE
318 , p4_a3 NUMBER
319 , p4_a4 DATE
320 , p4_a5 NUMBER
321 , p4_a6 VARCHAR2
322 , p4_a7 NUMBER
323 , p4_a8 NUMBER
324 , p4_a9 NUMBER
325 , p4_a10 VARCHAR2
326 , p4_a11 DATE
327 , p4_a12 NUMBER
328 , p4_a13 VARCHAR2
329 , p4_a14 VARCHAR2
330 , p4_a15 VARCHAR2
331 , p4_a16 VARCHAR2
332 , p4_a17 VARCHAR2
333 , p4_a18 VARCHAR2
334 , p4_a19 VARCHAR2
335 , p4_a20 VARCHAR2
336 , p4_a21 VARCHAR2
337 , p4_a22 VARCHAR2
338 , p4_a23 VARCHAR2
339 , p4_a24 VARCHAR2
340 , p4_a25 VARCHAR2
341 , p4_a26 VARCHAR2
342 , p4_a27 VARCHAR2
343 , p4_a28 VARCHAR2
344 , p4_a29 VARCHAR2
345 , p4_a30 NUMBER
346 , p4_a31 VARCHAR2
347 , p4_a32 NUMBER
348 , p4_a33 VARCHAR2
349 , p4_a34 NUMBER
350 , p4_a35 VARCHAR2
351 , p4_a36 NUMBER
352 , x_requirement_header_id out nocopy NUMBER
353 , x_return_status out nocopy VARCHAR2
354 , x_msg_count out nocopy NUMBER
355 , x_msg_data out nocopy VARCHAR2
356 )
357
358 as
359 ddp_requirement_header_rec csp_requirement_headers_pvt.requirement_header_rec_type;
360 ddindx binary_integer; indx binary_integer;
361 begin
362
363 -- copy data to the local IN or IN-OUT args, if any
364
365
366
367
368 ddp_requirement_header_rec.requirement_header_id := p4_a0;
369 ddp_requirement_header_rec.created_by := p4_a1;
370 ddp_requirement_header_rec.creation_date := rosetta_g_miss_date_in_map(p4_a2);
371 ddp_requirement_header_rec.last_updated_by := p4_a3;
372 ddp_requirement_header_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a4);
373 ddp_requirement_header_rec.last_update_login := p4_a5;
374 ddp_requirement_header_rec.open_requirement := p4_a6;
375 ddp_requirement_header_rec.ship_to_location_id := p4_a7;
376 ddp_requirement_header_rec.task_id := p4_a8;
377 ddp_requirement_header_rec.task_assignment_id := p4_a9;
378 ddp_requirement_header_rec.shipping_method_code := p4_a10;
379 ddp_requirement_header_rec.need_by_date := rosetta_g_miss_date_in_map(p4_a11);
380 ddp_requirement_header_rec.destination_organization_id := p4_a12;
381 ddp_requirement_header_rec.parts_defined := p4_a13;
382 ddp_requirement_header_rec.attribute_category := p4_a14;
383 ddp_requirement_header_rec.attribute1 := p4_a15;
384 ddp_requirement_header_rec.attribute2 := p4_a16;
385 ddp_requirement_header_rec.attribute3 := p4_a17;
386 ddp_requirement_header_rec.attribute4 := p4_a18;
387 ddp_requirement_header_rec.attribute5 := p4_a19;
388 ddp_requirement_header_rec.attribute6 := p4_a20;
389 ddp_requirement_header_rec.attribute7 := p4_a21;
390 ddp_requirement_header_rec.attribute8 := p4_a22;
391 ddp_requirement_header_rec.attribute9 := p4_a23;
392 ddp_requirement_header_rec.attribute10 := p4_a24;
393 ddp_requirement_header_rec.attribute11 := p4_a25;
394 ddp_requirement_header_rec.attribute12 := p4_a26;
395 ddp_requirement_header_rec.attribute13 := p4_a27;
396 ddp_requirement_header_rec.attribute14 := p4_a28;
397 ddp_requirement_header_rec.attribute15 := p4_a29;
398 ddp_requirement_header_rec.order_type_id := p4_a30;
399 ddp_requirement_header_rec.address_type := p4_a31;
400 ddp_requirement_header_rec.resource_id := p4_a32;
401 ddp_requirement_header_rec.resource_type := p4_a33;
402 ddp_requirement_header_rec.timezone_id := p4_a34;
403 ddp_requirement_header_rec.destination_subinventory := p4_a35;
404 ddp_requirement_header_rec.ship_to_contact_id := p4_a36;
405
406
407
408
409
410 -- here's the delegated call to the old PL/SQL routine
411 csp_requirement_headers_pvt.create_requirement_headers(p_api_version_number,
412 p_init_msg_list,
413 p_commit,
414 p_validation_level,
415 ddp_requirement_header_rec,
416 x_requirement_header_id,
417 x_return_status,
418 x_msg_count,
419 x_msg_data);
420
421 -- copy data back from the local variables to OUT or IN-OUT args, if any
422
423
424
428
425
426
427
429
430 end;
431
432 procedure update_requirement_headers(p_api_version_number NUMBER
433 , p_init_msg_list VARCHAR2
434 , p_commit VARCHAR2
435 , p_validation_level NUMBER
436 , p4_a0 NUMBER
437 , p4_a1 NUMBER
438 , p4_a2 DATE
439 , p4_a3 NUMBER
440 , p4_a4 DATE
441 , p4_a5 NUMBER
442 , p4_a6 VARCHAR2
443 , p4_a7 NUMBER
444 , p4_a8 NUMBER
445 , p4_a9 NUMBER
446 , p4_a10 VARCHAR2
447 , p4_a11 DATE
448 , p4_a12 NUMBER
449 , p4_a13 VARCHAR2
450 , p4_a14 VARCHAR2
451 , p4_a15 VARCHAR2
452 , p4_a16 VARCHAR2
453 , p4_a17 VARCHAR2
454 , p4_a18 VARCHAR2
455 , p4_a19 VARCHAR2
456 , p4_a20 VARCHAR2
457 , p4_a21 VARCHAR2
458 , p4_a22 VARCHAR2
459 , p4_a23 VARCHAR2
460 , p4_a24 VARCHAR2
461 , p4_a25 VARCHAR2
462 , p4_a26 VARCHAR2
463 , p4_a27 VARCHAR2
464 , p4_a28 VARCHAR2
465 , p4_a29 VARCHAR2
466 , p4_a30 NUMBER
467 , p4_a31 VARCHAR2
468 , p4_a32 NUMBER
469 , p4_a33 VARCHAR2
470 , p4_a34 NUMBER
471 , p4_a35 VARCHAR2
472 , p4_a36 NUMBER
473 , x_return_status out nocopy VARCHAR2
474 , x_msg_count out nocopy NUMBER
475 , x_msg_data out nocopy VARCHAR2
476 )
477
478 as
479 ddp_requirement_header_rec csp_requirement_headers_pvt.requirement_header_rec_type;
480 ddindx binary_integer; indx binary_integer;
481 begin
482
483 -- copy data to the local IN or IN-OUT args, if any
484
485
486
487
488 ddp_requirement_header_rec.requirement_header_id := p4_a0;
489 ddp_requirement_header_rec.created_by := p4_a1;
490 ddp_requirement_header_rec.creation_date := rosetta_g_miss_date_in_map(p4_a2);
491 ddp_requirement_header_rec.last_updated_by := p4_a3;
492 ddp_requirement_header_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a4);
493 ddp_requirement_header_rec.last_update_login := p4_a5;
494 ddp_requirement_header_rec.open_requirement := p4_a6;
495 ddp_requirement_header_rec.ship_to_location_id := p4_a7;
496 ddp_requirement_header_rec.task_id := p4_a8;
497 ddp_requirement_header_rec.task_assignment_id := p4_a9;
498 ddp_requirement_header_rec.shipping_method_code := p4_a10;
499 ddp_requirement_header_rec.need_by_date := rosetta_g_miss_date_in_map(p4_a11);
500 ddp_requirement_header_rec.destination_organization_id := p4_a12;
501 ddp_requirement_header_rec.parts_defined := p4_a13;
502 ddp_requirement_header_rec.attribute_category := p4_a14;
503 ddp_requirement_header_rec.attribute1 := p4_a15;
504 ddp_requirement_header_rec.attribute2 := p4_a16;
505 ddp_requirement_header_rec.attribute3 := p4_a17;
506 ddp_requirement_header_rec.attribute4 := p4_a18;
507 ddp_requirement_header_rec.attribute5 := p4_a19;
508 ddp_requirement_header_rec.attribute6 := p4_a20;
509 ddp_requirement_header_rec.attribute7 := p4_a21;
510 ddp_requirement_header_rec.attribute8 := p4_a22;
511 ddp_requirement_header_rec.attribute9 := p4_a23;
512 ddp_requirement_header_rec.attribute10 := p4_a24;
513 ddp_requirement_header_rec.attribute11 := p4_a25;
514 ddp_requirement_header_rec.attribute12 := p4_a26;
515 ddp_requirement_header_rec.attribute13 := p4_a27;
516 ddp_requirement_header_rec.attribute14 := p4_a28;
517 ddp_requirement_header_rec.attribute15 := p4_a29;
518 ddp_requirement_header_rec.order_type_id := p4_a30;
519 ddp_requirement_header_rec.address_type := p4_a31;
520 ddp_requirement_header_rec.resource_id := p4_a32;
521 ddp_requirement_header_rec.resource_type := p4_a33;
522 ddp_requirement_header_rec.timezone_id := p4_a34;
523 ddp_requirement_header_rec.destination_subinventory := p4_a35;
524 ddp_requirement_header_rec.ship_to_contact_id := p4_a36;
525
526
527
528
529 -- here's the delegated call to the old PL/SQL routine
530 csp_requirement_headers_pvt.update_requirement_headers(p_api_version_number,
531 p_init_msg_list,
532 p_commit,
533 p_validation_level,
534 ddp_requirement_header_rec,
535 x_return_status,
536 x_msg_count,
537 x_msg_data);
538
539 -- copy data back from the local variables to OUT or IN-OUT args, if any
540
541
542
543
544
545
546
547 end;
548
549 procedure delete_requirement_headers(p_api_version_number NUMBER
550 , p_init_msg_list VARCHAR2
551 , p_commit VARCHAR2
552 , p_validation_level NUMBER
553 , p4_a0 NUMBER
554 , p4_a1 NUMBER
555 , p4_a2 DATE
556 , p4_a3 NUMBER
557 , p4_a4 DATE
558 , p4_a5 NUMBER
559 , p4_a6 VARCHAR2
560 , p4_a7 NUMBER
561 , p4_a8 NUMBER
562 , p4_a9 NUMBER
563 , p4_a10 VARCHAR2
564 , p4_a11 DATE
565 , p4_a12 NUMBER
566 , p4_a13 VARCHAR2
567 , p4_a14 VARCHAR2
568 , p4_a15 VARCHAR2
569 , p4_a16 VARCHAR2
570 , p4_a17 VARCHAR2
571 , p4_a18 VARCHAR2
572 , p4_a19 VARCHAR2
573 , p4_a20 VARCHAR2
574 , p4_a21 VARCHAR2
575 , p4_a22 VARCHAR2
576 , p4_a23 VARCHAR2
577 , p4_a24 VARCHAR2
578 , p4_a25 VARCHAR2
579 , p4_a26 VARCHAR2
580 , p4_a27 VARCHAR2
581 , p4_a28 VARCHAR2
582 , p4_a29 VARCHAR2
583 , p4_a30 NUMBER
584 , p4_a31 VARCHAR2
585 , p4_a32 NUMBER
586 , p4_a33 VARCHAR2
587 , p4_a34 NUMBER
588 , p4_a35 VARCHAR2
589 , p4_a36 NUMBER
590 , x_return_status out nocopy VARCHAR2
591 , x_msg_count out nocopy NUMBER
592 , x_msg_data out nocopy VARCHAR2
593 )
594
595 as
596 ddp_requirement_header_rec csp_requirement_headers_pvt.requirement_header_rec_type;
597 ddindx binary_integer; indx binary_integer;
598 begin
599
600 -- copy data to the local IN or IN-OUT args, if any
601
602
603
604
605 ddp_requirement_header_rec.requirement_header_id := p4_a0;
606 ddp_requirement_header_rec.created_by := p4_a1;
607 ddp_requirement_header_rec.creation_date := rosetta_g_miss_date_in_map(p4_a2);
608 ddp_requirement_header_rec.last_updated_by := p4_a3;
609 ddp_requirement_header_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a4);
610 ddp_requirement_header_rec.last_update_login := p4_a5;
611 ddp_requirement_header_rec.open_requirement := p4_a6;
612 ddp_requirement_header_rec.ship_to_location_id := p4_a7;
613 ddp_requirement_header_rec.task_id := p4_a8;
614 ddp_requirement_header_rec.task_assignment_id := p4_a9;
615 ddp_requirement_header_rec.shipping_method_code := p4_a10;
616 ddp_requirement_header_rec.need_by_date := rosetta_g_miss_date_in_map(p4_a11);
617 ddp_requirement_header_rec.destination_organization_id := p4_a12;
618 ddp_requirement_header_rec.parts_defined := p4_a13;
619 ddp_requirement_header_rec.attribute_category := p4_a14;
620 ddp_requirement_header_rec.attribute1 := p4_a15;
621 ddp_requirement_header_rec.attribute2 := p4_a16;
622 ddp_requirement_header_rec.attribute3 := p4_a17;
623 ddp_requirement_header_rec.attribute4 := p4_a18;
624 ddp_requirement_header_rec.attribute5 := p4_a19;
625 ddp_requirement_header_rec.attribute6 := p4_a20;
626 ddp_requirement_header_rec.attribute7 := p4_a21;
627 ddp_requirement_header_rec.attribute8 := p4_a22;
628 ddp_requirement_header_rec.attribute9 := p4_a23;
629 ddp_requirement_header_rec.attribute10 := p4_a24;
630 ddp_requirement_header_rec.attribute11 := p4_a25;
631 ddp_requirement_header_rec.attribute12 := p4_a26;
632 ddp_requirement_header_rec.attribute13 := p4_a27;
633 ddp_requirement_header_rec.attribute14 := p4_a28;
634 ddp_requirement_header_rec.attribute15 := p4_a29;
635 ddp_requirement_header_rec.order_type_id := p4_a30;
636 ddp_requirement_header_rec.address_type := p4_a31;
637 ddp_requirement_header_rec.resource_id := p4_a32;
638 ddp_requirement_header_rec.resource_type := p4_a33;
639 ddp_requirement_header_rec.timezone_id := p4_a34;
640 ddp_requirement_header_rec.destination_subinventory := p4_a35;
641 ddp_requirement_header_rec.ship_to_contact_id := p4_a36;
642
643
644
645
646 -- here's the delegated call to the old PL/SQL routine
647 csp_requirement_headers_pvt.delete_requirement_headers(p_api_version_number,
648 p_init_msg_list,
649 p_commit,
650 p_validation_level,
651 ddp_requirement_header_rec,
652 x_return_status,
653 x_msg_count,
654 x_msg_data);
655
656 -- copy data back from the local variables to OUT or IN-OUT args, if any
657
658
659
660
661
662
663
664 end;
665
666 end csp_requirement_headers_pvt_w;