[Home] [Help]
Skip to content
PACKAGE BODY: APPS.CSP_PARTS_ORDER_W
Source
1 package body csp_parts_order_w as
2 /* $Header: csprqordwb.pls 120.2.12020000.2 2012/07/18 08:02:01 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 process_order(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p3_a0 in out nocopy NUMBER
20 , p3_a1 in out nocopy VARCHAR2
21 , p3_a2 in out nocopy VARCHAR2
22 , p3_a3 in out nocopy NUMBER
23 , p3_a4 in out nocopy NUMBER
24 , p3_a5 in out nocopy NUMBER
25 , p3_a6 in out nocopy VARCHAR2
26 , p3_a7 in out nocopy NUMBER
27 , p3_a8 in out nocopy NUMBER
28 , p3_a9 in out nocopy DATE
29 , p3_a10 in out nocopy NUMBER
30 , p3_a11 in out nocopy VARCHAR2
31 , p3_a12 in out nocopy VARCHAR2
32 , p3_a13 in out nocopy NUMBER
33 , p3_a14 in out nocopy VARCHAR2
34 , p3_a15 in out nocopy VARCHAR2
35 , p3_a16 in out nocopy VARCHAR2
36 , p3_a17 in out nocopy NUMBER
37 , p3_a18 in out nocopy NUMBER
38 , p3_a19 in out nocopy VARCHAR2
39 , p3_a20 in out nocopy VARCHAR2
40 , p3_a21 in out nocopy VARCHAR2
41 , p3_a22 in out nocopy NUMBER
42 , p3_a23 in out nocopy VARCHAR2
43 , p3_a24 in out nocopy VARCHAR2
44 , p3_a25 in out nocopy NUMBER
45 , p3_a26 in out nocopy VARCHAR2
46 , p3_a27 in out nocopy VARCHAR2
47 , p3_a28 in out nocopy VARCHAR2
48 , p3_a29 in out nocopy VARCHAR2
49 , p3_a30 in out nocopy VARCHAR2
50 , p3_a31 in out nocopy VARCHAR2
51 , p3_a32 in out nocopy VARCHAR2
52 , p3_a33 in out nocopy VARCHAR2
53 , p3_a34 in out nocopy VARCHAR2
54 , p3_a35 in out nocopy VARCHAR2
55 , p3_a36 in out nocopy VARCHAR2
56 , p3_a37 in out nocopy VARCHAR2
57 , p3_a38 in out nocopy VARCHAR2
58 , p3_a39 in out nocopy VARCHAR2
59 , p3_a40 in out nocopy VARCHAR2
60 , p3_a41 in out nocopy VARCHAR2
61 , p3_a42 in out nocopy VARCHAR2
62 , p3_a43 in out nocopy NUMBER
63 , p4_a0 in out nocopy JTF_NUMBER_TABLE
64 , p4_a1 in out nocopy JTF_NUMBER_TABLE
65 , p4_a2 in out nocopy JTF_NUMBER_TABLE
66 , p4_a3 in out nocopy JTF_NUMBER_TABLE
67 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
68 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
69 , p4_a6 in out nocopy JTF_NUMBER_TABLE
70 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
71 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
72 , p4_a9 in out nocopy JTF_NUMBER_TABLE
73 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
74 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
75 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
76 , p4_a13 in out nocopy JTF_NUMBER_TABLE
77 , p4_a14 in out nocopy JTF_NUMBER_TABLE
78 , p4_a15 in out nocopy JTF_DATE_TABLE
79 , p4_a16 in out nocopy JTF_DATE_TABLE
80 , p4_a17 in out nocopy JTF_DATE_TABLE
81 , p4_a18 in out nocopy JTF_NUMBER_TABLE
82 , p4_a19 in out nocopy JTF_NUMBER_TABLE
83 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
84 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
85 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
86 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
87 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
88 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
89 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
90 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
91 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
92 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
93 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
94 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
95 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
96 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
97 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
98 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
99 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
100 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
101 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
102 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
103 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
104 , p_process_type VARCHAR2
105 , p_book_order VARCHAR2
106 , x_return_status out nocopy VARCHAR2
107 , x_msg_count out nocopy NUMBER
108 , x_msg_data out nocopy VARCHAR2
109 )
110
111 as
112 ddpx_header_rec csp_parts_requirement.header_rec_type;
113 ddpx_line_table csp_parts_requirement.line_tbl_type;
114 ddindx binary_integer; indx binary_integer;
115 begin
116
117 -- copy data to the local IN or IN-OUT args, if any
118
119
120
121 ddpx_header_rec.requisition_header_id := p3_a0;
122 ddpx_header_rec.requisition_number := p3_a1;
123 ddpx_header_rec.description := p3_a2;
124 ddpx_header_rec.order_header_id := p3_a3;
125 ddpx_header_rec.order_type_id := p3_a4;
126 ddpx_header_rec.ship_to_location_id := p3_a5;
127 ddpx_header_rec.shipping_method_code := p3_a6;
128 ddpx_header_rec.task_id := p3_a7;
129 ddpx_header_rec.task_assignment_id := p3_a8;
130 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
131 ddpx_header_rec.dest_organization_id := p3_a10;
132 ddpx_header_rec.dest_subinventory := p3_a11;
133 ddpx_header_rec.operation := p3_a12;
134 ddpx_header_rec.requirement_header_id := p3_a13;
135 ddpx_header_rec.change_reason := p3_a14;
136 ddpx_header_rec.change_comments := p3_a15;
137 ddpx_header_rec.resource_type := p3_a16;
138 ddpx_header_rec.resource_id := p3_a17;
139 ddpx_header_rec.incident_id := p3_a18;
140 ddpx_header_rec.address_type := p3_a19;
141 ddpx_header_rec.justification := p3_a20;
142 ddpx_header_rec.note_to_buyer := p3_a21;
143 ddpx_header_rec.note1_id := p3_a22;
144 ddpx_header_rec.note1_title := p3_a23;
145 ddpx_header_rec.called_from := p3_a24;
146 ddpx_header_rec.suggested_vendor_id := p3_a25;
147 ddpx_header_rec.suggested_vendor_name := p3_a26;
148 ddpx_header_rec.attribute_category := p3_a27;
149 ddpx_header_rec.attribute1 := p3_a28;
150 ddpx_header_rec.attribute2 := p3_a29;
151 ddpx_header_rec.attribute3 := p3_a30;
152 ddpx_header_rec.attribute4 := p3_a31;
153 ddpx_header_rec.attribute5 := p3_a32;
154 ddpx_header_rec.attribute6 := p3_a33;
155 ddpx_header_rec.attribute7 := p3_a34;
156 ddpx_header_rec.attribute8 := p3_a35;
157 ddpx_header_rec.attribute9 := p3_a36;
158 ddpx_header_rec.attribute10 := p3_a37;
159 ddpx_header_rec.attribute11 := p3_a38;
160 ddpx_header_rec.attribute12 := p3_a39;
161 ddpx_header_rec.attribute13 := p3_a40;
162 ddpx_header_rec.attribute14 := p3_a41;
163 ddpx_header_rec.attribute15 := p3_a42;
164 ddpx_header_rec.ship_to_contact_id := p3_a43;
165
166 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
167 , p4_a1
168 , p4_a2
169 , p4_a3
170 , p4_a4
171 , p4_a5
172 , p4_a6
173 , p4_a7
174 , p4_a8
175 , p4_a9
176 , p4_a10
177 , p4_a11
178 , p4_a12
179 , p4_a13
180 , p4_a14
181 , p4_a15
182 , p4_a16
183 , p4_a17
184 , p4_a18
185 , p4_a19
186 , p4_a20
187 , p4_a21
188 , p4_a22
189 , p4_a23
190 , p4_a24
191 , p4_a25
192 , p4_a26
193 , p4_a27
194 , p4_a28
195 , p4_a29
196 , p4_a30
197 , p4_a31
198 , p4_a32
199 , p4_a33
200 , p4_a34
201 , p4_a35
202 , p4_a36
203 , p4_a37
204 , p4_a38
205 , p4_a39
206 , p4_a40
207 );
208
209
210
211
212
213
214 -- here's the delegated call to the old PL/SQL routine
215 csp_parts_order.process_order(p_api_version,
216 p_init_msg_list,
217 p_commit,
218 ddpx_header_rec,
219 ddpx_line_table,
220 p_process_type,
221 p_book_order,
222 x_return_status,
223 x_msg_count,
224 x_msg_data);
225
226 -- copy data back from the local variables to OUT or IN-OUT args, if any
227
228
229
230 p3_a0 := ddpx_header_rec.requisition_header_id;
231 p3_a1 := ddpx_header_rec.requisition_number;
232 p3_a2 := ddpx_header_rec.description;
233 p3_a3 := ddpx_header_rec.order_header_id;
234 p3_a4 := ddpx_header_rec.order_type_id;
235 p3_a5 := ddpx_header_rec.ship_to_location_id;
236 p3_a6 := ddpx_header_rec.shipping_method_code;
237 p3_a7 := ddpx_header_rec.task_id;
238 p3_a8 := ddpx_header_rec.task_assignment_id;
239 p3_a9 := ddpx_header_rec.need_by_date;
240 p3_a10 := ddpx_header_rec.dest_organization_id;
241 p3_a11 := ddpx_header_rec.dest_subinventory;
242 p3_a12 := ddpx_header_rec.operation;
243 p3_a13 := ddpx_header_rec.requirement_header_id;
244 p3_a14 := ddpx_header_rec.change_reason;
245 p3_a15 := ddpx_header_rec.change_comments;
246 p3_a16 := ddpx_header_rec.resource_type;
247 p3_a17 := ddpx_header_rec.resource_id;
248 p3_a18 := ddpx_header_rec.incident_id;
249 p3_a19 := ddpx_header_rec.address_type;
250 p3_a20 := ddpx_header_rec.justification;
251 p3_a21 := ddpx_header_rec.note_to_buyer;
252 p3_a22 := ddpx_header_rec.note1_id;
253 p3_a23 := ddpx_header_rec.note1_title;
254 p3_a24 := ddpx_header_rec.called_from;
255 p3_a25 := ddpx_header_rec.suggested_vendor_id;
256 p3_a26 := ddpx_header_rec.suggested_vendor_name;
257 p3_a27 := ddpx_header_rec.attribute_category;
258 p3_a28 := ddpx_header_rec.attribute1;
259 p3_a29 := ddpx_header_rec.attribute2;
260 p3_a30 := ddpx_header_rec.attribute3;
261 p3_a31 := ddpx_header_rec.attribute4;
262 p3_a32 := ddpx_header_rec.attribute5;
263 p3_a33 := ddpx_header_rec.attribute6;
264 p3_a34 := ddpx_header_rec.attribute7;
265 p3_a35 := ddpx_header_rec.attribute8;
266 p3_a36 := ddpx_header_rec.attribute9;
267 p3_a37 := ddpx_header_rec.attribute10;
268 p3_a38 := ddpx_header_rec.attribute11;
269 p3_a39 := ddpx_header_rec.attribute12;
270 p3_a40 := ddpx_header_rec.attribute13;
271 p3_a41 := ddpx_header_rec.attribute14;
272 p3_a42 := ddpx_header_rec.attribute15;
273 p3_a43 := ddpx_header_rec.ship_to_contact_id;
274
275 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
276 , p4_a1
277 , p4_a2
278 , p4_a3
279 , p4_a4
280 , p4_a5
281 , p4_a6
282 , p4_a7
283 , p4_a8
284 , p4_a9
285 , p4_a10
286 , p4_a11
287 , p4_a12
288 , p4_a13
289 , p4_a14
290 , p4_a15
291 , p4_a16
292 , p4_a17
293 , p4_a18
294 , p4_a19
295 , p4_a20
296 , p4_a21
297 , p4_a22
298 , p4_a23
299 , p4_a24
300 , p4_a25
301 , p4_a26
302 , p4_a27
303 , p4_a28
304 , p4_a29
305 , p4_a30
306 , p4_a31
307 , p4_a32
308 , p4_a33
309 , p4_a34
310 , p4_a35
311 , p4_a36
312 , p4_a37
313 , p4_a38
314 , p4_a39
315 , p4_a40
316 );
317
318
319
320
321
322 end;
323
324 procedure process_purchase_req(p_api_version NUMBER
325 , p_init_msg_list VARCHAR2
326 , p_commit VARCHAR2
327 , p3_a0 in out nocopy NUMBER
328 , p3_a1 in out nocopy VARCHAR2
329 , p3_a2 in out nocopy VARCHAR2
330 , p3_a3 in out nocopy NUMBER
331 , p3_a4 in out nocopy NUMBER
332 , p3_a5 in out nocopy NUMBER
333 , p3_a6 in out nocopy VARCHAR2
334 , p3_a7 in out nocopy NUMBER
335 , p3_a8 in out nocopy NUMBER
336 , p3_a9 in out nocopy DATE
337 , p3_a10 in out nocopy NUMBER
338 , p3_a11 in out nocopy VARCHAR2
339 , p3_a12 in out nocopy VARCHAR2
340 , p3_a13 in out nocopy NUMBER
341 , p3_a14 in out nocopy VARCHAR2
342 , p3_a15 in out nocopy VARCHAR2
343 , p3_a16 in out nocopy VARCHAR2
344 , p3_a17 in out nocopy NUMBER
345 , p3_a18 in out nocopy NUMBER
349 , p3_a22 in out nocopy NUMBER
346 , p3_a19 in out nocopy VARCHAR2
347 , p3_a20 in out nocopy VARCHAR2
348 , p3_a21 in out nocopy VARCHAR2
350 , p3_a23 in out nocopy VARCHAR2
351 , p3_a24 in out nocopy VARCHAR2
352 , p3_a25 in out nocopy NUMBER
353 , p3_a26 in out nocopy VARCHAR2
354 , p3_a27 in out nocopy VARCHAR2
355 , p3_a28 in out nocopy VARCHAR2
356 , p3_a29 in out nocopy VARCHAR2
357 , p3_a30 in out nocopy VARCHAR2
358 , p3_a31 in out nocopy VARCHAR2
359 , p3_a32 in out nocopy VARCHAR2
360 , p3_a33 in out nocopy VARCHAR2
361 , p3_a34 in out nocopy VARCHAR2
362 , p3_a35 in out nocopy VARCHAR2
363 , p3_a36 in out nocopy VARCHAR2
364 , p3_a37 in out nocopy VARCHAR2
365 , p3_a38 in out nocopy VARCHAR2
366 , p3_a39 in out nocopy VARCHAR2
367 , p3_a40 in out nocopy VARCHAR2
368 , p3_a41 in out nocopy VARCHAR2
369 , p3_a42 in out nocopy VARCHAR2
370 , p3_a43 in out nocopy NUMBER
371 , p4_a0 in out nocopy JTF_NUMBER_TABLE
372 , p4_a1 in out nocopy JTF_NUMBER_TABLE
373 , p4_a2 in out nocopy JTF_NUMBER_TABLE
374 , p4_a3 in out nocopy JTF_NUMBER_TABLE
375 , p4_a4 in out nocopy JTF_VARCHAR2_TABLE_300
376 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
377 , p4_a6 in out nocopy JTF_NUMBER_TABLE
378 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
379 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
380 , p4_a9 in out nocopy JTF_NUMBER_TABLE
381 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
382 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
383 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
384 , p4_a13 in out nocopy JTF_NUMBER_TABLE
385 , p4_a14 in out nocopy JTF_NUMBER_TABLE
386 , p4_a15 in out nocopy JTF_DATE_TABLE
387 , p4_a16 in out nocopy JTF_DATE_TABLE
388 , p4_a17 in out nocopy JTF_DATE_TABLE
389 , p4_a18 in out nocopy JTF_NUMBER_TABLE
390 , p4_a19 in out nocopy JTF_NUMBER_TABLE
391 , p4_a20 in out nocopy JTF_VARCHAR2_TABLE_100
392 , p4_a21 in out nocopy JTF_VARCHAR2_TABLE_100
393 , p4_a22 in out nocopy JTF_VARCHAR2_TABLE_100
394 , p4_a23 in out nocopy JTF_VARCHAR2_TABLE_100
395 , p4_a24 in out nocopy JTF_VARCHAR2_TABLE_100
396 , p4_a25 in out nocopy JTF_VARCHAR2_TABLE_100
397 , p4_a26 in out nocopy JTF_VARCHAR2_TABLE_200
398 , p4_a27 in out nocopy JTF_VARCHAR2_TABLE_200
399 , p4_a28 in out nocopy JTF_VARCHAR2_TABLE_200
400 , p4_a29 in out nocopy JTF_VARCHAR2_TABLE_200
401 , p4_a30 in out nocopy JTF_VARCHAR2_TABLE_200
402 , p4_a31 in out nocopy JTF_VARCHAR2_TABLE_200
403 , p4_a32 in out nocopy JTF_VARCHAR2_TABLE_200
404 , p4_a33 in out nocopy JTF_VARCHAR2_TABLE_200
405 , p4_a34 in out nocopy JTF_VARCHAR2_TABLE_200
406 , p4_a35 in out nocopy JTF_VARCHAR2_TABLE_200
407 , p4_a36 in out nocopy JTF_VARCHAR2_TABLE_200
408 , p4_a37 in out nocopy JTF_VARCHAR2_TABLE_200
409 , p4_a38 in out nocopy JTF_VARCHAR2_TABLE_200
410 , p4_a39 in out nocopy JTF_VARCHAR2_TABLE_200
411 , p4_a40 in out nocopy JTF_VARCHAR2_TABLE_200
412 , x_return_status out nocopy VARCHAR2
413 , x_msg_count out nocopy NUMBER
414 , x_msg_data out nocopy VARCHAR2
415 )
416
417 as
418 ddpx_header_rec csp_parts_requirement.header_rec_type;
419 ddpx_line_table csp_parts_requirement.line_tbl_type;
420 ddindx binary_integer; indx binary_integer;
421 begin
422
423 -- copy data to the local IN or IN-OUT args, if any
424
425
426
427 ddpx_header_rec.requisition_header_id := p3_a0;
428 ddpx_header_rec.requisition_number := p3_a1;
429 ddpx_header_rec.description := p3_a2;
430 ddpx_header_rec.order_header_id := p3_a3;
431 ddpx_header_rec.order_type_id := p3_a4;
432 ddpx_header_rec.ship_to_location_id := p3_a5;
433 ddpx_header_rec.shipping_method_code := p3_a6;
434 ddpx_header_rec.task_id := p3_a7;
435 ddpx_header_rec.task_assignment_id := p3_a8;
436 ddpx_header_rec.need_by_date := rosetta_g_miss_date_in_map(p3_a9);
437 ddpx_header_rec.dest_organization_id := p3_a10;
438 ddpx_header_rec.dest_subinventory := p3_a11;
439 ddpx_header_rec.operation := p3_a12;
440 ddpx_header_rec.requirement_header_id := p3_a13;
441 ddpx_header_rec.change_reason := p3_a14;
442 ddpx_header_rec.change_comments := p3_a15;
443 ddpx_header_rec.resource_type := p3_a16;
444 ddpx_header_rec.resource_id := p3_a17;
445 ddpx_header_rec.incident_id := p3_a18;
446 ddpx_header_rec.address_type := p3_a19;
447 ddpx_header_rec.justification := p3_a20;
448 ddpx_header_rec.note_to_buyer := p3_a21;
449 ddpx_header_rec.note1_id := p3_a22;
450 ddpx_header_rec.note1_title := p3_a23;
451 ddpx_header_rec.called_from := p3_a24;
452 ddpx_header_rec.suggested_vendor_id := p3_a25;
453 ddpx_header_rec.suggested_vendor_name := p3_a26;
454 ddpx_header_rec.attribute_category := p3_a27;
455 ddpx_header_rec.attribute1 := p3_a28;
456 ddpx_header_rec.attribute2 := p3_a29;
457 ddpx_header_rec.attribute3 := p3_a30;
458 ddpx_header_rec.attribute4 := p3_a31;
459 ddpx_header_rec.attribute5 := p3_a32;
460 ddpx_header_rec.attribute6 := p3_a33;
461 ddpx_header_rec.attribute7 := p3_a34;
462 ddpx_header_rec.attribute8 := p3_a35;
463 ddpx_header_rec.attribute9 := p3_a36;
464 ddpx_header_rec.attribute10 := p3_a37;
465 ddpx_header_rec.attribute11 := p3_a38;
466 ddpx_header_rec.attribute12 := p3_a39;
467 ddpx_header_rec.attribute13 := p3_a40;
468 ddpx_header_rec.attribute14 := p3_a41;
469 ddpx_header_rec.attribute15 := p3_a42;
470 ddpx_header_rec.ship_to_contact_id := p3_a43;
471
472 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
473 , p4_a1
474 , p4_a2
478 , p4_a6
475 , p4_a3
476 , p4_a4
477 , p4_a5
479 , p4_a7
480 , p4_a8
481 , p4_a9
482 , p4_a10
483 , p4_a11
484 , p4_a12
485 , p4_a13
486 , p4_a14
487 , p4_a15
488 , p4_a16
489 , p4_a17
490 , p4_a18
491 , p4_a19
492 , p4_a20
493 , p4_a21
494 , p4_a22
495 , p4_a23
496 , p4_a24
497 , p4_a25
498 , p4_a26
499 , p4_a27
500 , p4_a28
501 , p4_a29
502 , p4_a30
503 , p4_a31
504 , p4_a32
505 , p4_a33
506 , p4_a34
507 , p4_a35
508 , p4_a36
509 , p4_a37
510 , p4_a38
511 , p4_a39
512 , p4_a40
513 );
514
515
516
517
518 -- here's the delegated call to the old PL/SQL routine
519 csp_parts_order.process_purchase_req(p_api_version,
520 p_init_msg_list,
521 p_commit,
522 ddpx_header_rec,
523 ddpx_line_table,
524 x_return_status,
525 x_msg_count,
526 x_msg_data);
527
528 -- copy data back from the local variables to OUT or IN-OUT args, if any
529
530
531
532 p3_a0 := ddpx_header_rec.requisition_header_id;
533 p3_a1 := ddpx_header_rec.requisition_number;
534 p3_a2 := ddpx_header_rec.description;
535 p3_a3 := ddpx_header_rec.order_header_id;
536 p3_a4 := ddpx_header_rec.order_type_id;
537 p3_a5 := ddpx_header_rec.ship_to_location_id;
538 p3_a6 := ddpx_header_rec.shipping_method_code;
539 p3_a7 := ddpx_header_rec.task_id;
540 p3_a8 := ddpx_header_rec.task_assignment_id;
541 p3_a9 := ddpx_header_rec.need_by_date;
542 p3_a10 := ddpx_header_rec.dest_organization_id;
543 p3_a11 := ddpx_header_rec.dest_subinventory;
544 p3_a12 := ddpx_header_rec.operation;
545 p3_a13 := ddpx_header_rec.requirement_header_id;
546 p3_a14 := ddpx_header_rec.change_reason;
547 p3_a15 := ddpx_header_rec.change_comments;
548 p3_a16 := ddpx_header_rec.resource_type;
549 p3_a17 := ddpx_header_rec.resource_id;
550 p3_a18 := ddpx_header_rec.incident_id;
551 p3_a19 := ddpx_header_rec.address_type;
552 p3_a20 := ddpx_header_rec.justification;
553 p3_a21 := ddpx_header_rec.note_to_buyer;
554 p3_a22 := ddpx_header_rec.note1_id;
555 p3_a23 := ddpx_header_rec.note1_title;
556 p3_a24 := ddpx_header_rec.called_from;
557 p3_a25 := ddpx_header_rec.suggested_vendor_id;
558 p3_a26 := ddpx_header_rec.suggested_vendor_name;
559 p3_a27 := ddpx_header_rec.attribute_category;
560 p3_a28 := ddpx_header_rec.attribute1;
561 p3_a29 := ddpx_header_rec.attribute2;
562 p3_a30 := ddpx_header_rec.attribute3;
563 p3_a31 := ddpx_header_rec.attribute4;
564 p3_a32 := ddpx_header_rec.attribute5;
565 p3_a33 := ddpx_header_rec.attribute6;
566 p3_a34 := ddpx_header_rec.attribute7;
567 p3_a35 := ddpx_header_rec.attribute8;
568 p3_a36 := ddpx_header_rec.attribute9;
569 p3_a37 := ddpx_header_rec.attribute10;
570 p3_a38 := ddpx_header_rec.attribute11;
571 p3_a39 := ddpx_header_rec.attribute12;
572 p3_a40 := ddpx_header_rec.attribute13;
573 p3_a41 := ddpx_header_rec.attribute14;
574 p3_a42 := ddpx_header_rec.attribute15;
575 p3_a43 := ddpx_header_rec.ship_to_contact_id;
576
577 csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
578 , p4_a1
579 , p4_a2
580 , p4_a3
581 , p4_a4
582 , p4_a5
583 , p4_a6
584 , p4_a7
585 , p4_a8
586 , p4_a9
587 , p4_a10
588 , p4_a11
589 , p4_a12
590 , p4_a13
591 , p4_a14
592 , p4_a15
593 , p4_a16
594 , p4_a17
595 , p4_a18
596 , p4_a19
597 , p4_a20
598 , p4_a21
599 , p4_a22
600 , p4_a23
601 , p4_a24
602 , p4_a25
603 , p4_a26
604 , p4_a27
605 , p4_a28
606 , p4_a29
607 , p4_a30
608 , p4_a31
609 , p4_a32
610 , p4_a33
611 , p4_a34
612 , p4_a35
613 , p4_a36
614 , p4_a37
615 , p4_a38
616 , p4_a39
617 , p4_a40
618 );
619
620
621
622 end;
623
624 procedure cancel_order(p0_a0 NUMBER
625 , p0_a1 VARCHAR2
626 , p0_a2 VARCHAR2
627 , p0_a3 NUMBER
628 , p0_a4 NUMBER
629 , p0_a5 NUMBER
630 , p0_a6 VARCHAR2
631 , p0_a7 NUMBER
632 , p0_a8 NUMBER
633 , p0_a9 DATE
634 , p0_a10 NUMBER
635 , p0_a11 VARCHAR2
636 , p0_a12 VARCHAR2
637 , p0_a13 NUMBER
638 , p0_a14 VARCHAR2
639 , p0_a15 VARCHAR2
640 , p0_a16 VARCHAR2
641 , p0_a17 NUMBER
642 , p0_a18 NUMBER
643 , p0_a19 VARCHAR2
644 , p0_a20 VARCHAR2
645 , p0_a21 VARCHAR2
646 , p0_a22 NUMBER
647 , p0_a23 VARCHAR2
648 , p0_a24 VARCHAR2
649 , p0_a25 NUMBER
650 , p0_a26 VARCHAR2
651 , p0_a27 VARCHAR2
652 , p0_a28 VARCHAR2
653 , p0_a29 VARCHAR2
654 , p0_a30 VARCHAR2
655 , p0_a31 VARCHAR2
656 , p0_a32 VARCHAR2
657 , p0_a33 VARCHAR2
658 , p0_a34 VARCHAR2
659 , p0_a35 VARCHAR2
660 , p0_a36 VARCHAR2
661 , p0_a37 VARCHAR2
662 , p0_a38 VARCHAR2
666 , p0_a42 VARCHAR2
663 , p0_a39 VARCHAR2
664 , p0_a40 VARCHAR2
665 , p0_a41 VARCHAR2
667 , p0_a43 NUMBER
668 , p1_a0 JTF_NUMBER_TABLE
669 , p1_a1 JTF_NUMBER_TABLE
670 , p1_a2 JTF_NUMBER_TABLE
671 , p1_a3 JTF_NUMBER_TABLE
672 , p1_a4 JTF_VARCHAR2_TABLE_300
673 , p1_a5 JTF_VARCHAR2_TABLE_100
674 , p1_a6 JTF_NUMBER_TABLE
675 , p1_a7 JTF_VARCHAR2_TABLE_100
676 , p1_a8 JTF_VARCHAR2_TABLE_100
677 , p1_a9 JTF_NUMBER_TABLE
678 , p1_a10 JTF_VARCHAR2_TABLE_100
679 , p1_a11 JTF_VARCHAR2_TABLE_100
680 , p1_a12 JTF_VARCHAR2_TABLE_100
681 , p1_a13 JTF_NUMBER_TABLE
682 , p1_a14 JTF_NUMBER_TABLE
683 , p1_a15 JTF_DATE_TABLE
684 , p1_a16 JTF_DATE_TABLE
685 , p1_a17 JTF_DATE_TABLE
686 , p1_a18 JTF_NUMBER_TABLE
687 , p1_a19 JTF_NUMBER_TABLE
688 , p1_a20 JTF_VARCHAR2_TABLE_100
689 , p1_a21 JTF_VARCHAR2_TABLE_100
690 , p1_a22 JTF_VARCHAR2_TABLE_100
691 , p1_a23 JTF_VARCHAR2_TABLE_100
692 , p1_a24 JTF_VARCHAR2_TABLE_100
693 , p1_a25 JTF_VARCHAR2_TABLE_100
694 , p1_a26 JTF_VARCHAR2_TABLE_200
695 , p1_a27 JTF_VARCHAR2_TABLE_200
696 , p1_a28 JTF_VARCHAR2_TABLE_200
697 , p1_a29 JTF_VARCHAR2_TABLE_200
698 , p1_a30 JTF_VARCHAR2_TABLE_200
699 , p1_a31 JTF_VARCHAR2_TABLE_200
700 , p1_a32 JTF_VARCHAR2_TABLE_200
701 , p1_a33 JTF_VARCHAR2_TABLE_200
702 , p1_a34 JTF_VARCHAR2_TABLE_200
703 , p1_a35 JTF_VARCHAR2_TABLE_200
704 , p1_a36 JTF_VARCHAR2_TABLE_200
705 , p1_a37 JTF_VARCHAR2_TABLE_200
706 , p1_a38 JTF_VARCHAR2_TABLE_200
707 , p1_a39 JTF_VARCHAR2_TABLE_200
708 , p1_a40 JTF_VARCHAR2_TABLE_200
709 , p_process_type VARCHAR2
710 , x_return_status out nocopy VARCHAR2
711 , x_msg_count out nocopy NUMBER
712 , x_msg_data out nocopy VARCHAR2
713 )
714
715 as
716 ddp_header_rec csp_parts_requirement.header_rec_type;
717 ddp_line_table csp_parts_requirement.line_tbl_type;
718 ddindx binary_integer; indx binary_integer;
719 begin
720
721 -- copy data to the local IN or IN-OUT args, if any
722 ddp_header_rec.requisition_header_id := p0_a0;
723 ddp_header_rec.requisition_number := p0_a1;
724 ddp_header_rec.description := p0_a2;
725 ddp_header_rec.order_header_id := p0_a3;
726 ddp_header_rec.order_type_id := p0_a4;
727 ddp_header_rec.ship_to_location_id := p0_a5;
728 ddp_header_rec.shipping_method_code := p0_a6;
729 ddp_header_rec.task_id := p0_a7;
730 ddp_header_rec.task_assignment_id := p0_a8;
731 ddp_header_rec.need_by_date := rosetta_g_miss_date_in_map(p0_a9);
732 ddp_header_rec.dest_organization_id := p0_a10;
733 ddp_header_rec.dest_subinventory := p0_a11;
734 ddp_header_rec.operation := p0_a12;
735 ddp_header_rec.requirement_header_id := p0_a13;
736 ddp_header_rec.change_reason := p0_a14;
737 ddp_header_rec.change_comments := p0_a15;
738 ddp_header_rec.resource_type := p0_a16;
739 ddp_header_rec.resource_id := p0_a17;
740 ddp_header_rec.incident_id := p0_a18;
741 ddp_header_rec.address_type := p0_a19;
742 ddp_header_rec.justification := p0_a20;
743 ddp_header_rec.note_to_buyer := p0_a21;
744 ddp_header_rec.note1_id := p0_a22;
745 ddp_header_rec.note1_title := p0_a23;
746 ddp_header_rec.called_from := p0_a24;
747 ddp_header_rec.suggested_vendor_id := p0_a25;
748 ddp_header_rec.suggested_vendor_name := p0_a26;
749 ddp_header_rec.attribute_category := p0_a27;
750 ddp_header_rec.attribute1 := p0_a28;
751 ddp_header_rec.attribute2 := p0_a29;
752 ddp_header_rec.attribute3 := p0_a30;
753 ddp_header_rec.attribute4 := p0_a31;
754 ddp_header_rec.attribute5 := p0_a32;
755 ddp_header_rec.attribute6 := p0_a33;
756 ddp_header_rec.attribute7 := p0_a34;
757 ddp_header_rec.attribute8 := p0_a35;
758 ddp_header_rec.attribute9 := p0_a36;
759 ddp_header_rec.attribute10 := p0_a37;
760 ddp_header_rec.attribute11 := p0_a38;
761 ddp_header_rec.attribute12 := p0_a39;
762 ddp_header_rec.attribute13 := p0_a40;
763 ddp_header_rec.attribute14 := p0_a41;
764 ddp_header_rec.attribute15 := p0_a42;
765 ddp_header_rec.ship_to_contact_id := p0_a43;
766
767 csp_parts_requirement_w.rosetta_table_copy_in_p2(ddp_line_table, p1_a0
768 , p1_a1
769 , p1_a2
770 , p1_a3
771 , p1_a4
772 , p1_a5
773 , p1_a6
774 , p1_a7
775 , p1_a8
776 , p1_a9
777 , p1_a10
778 , p1_a11
779 , p1_a12
780 , p1_a13
781 , p1_a14
782 , p1_a15
783 , p1_a16
784 , p1_a17
785 , p1_a18
786 , p1_a19
787 , p1_a20
788 , p1_a21
789 , p1_a22
790 , p1_a23
791 , p1_a24
792 , p1_a25
793 , p1_a26
794 , p1_a27
795 , p1_a28
796 , p1_a29
797 , p1_a30
798 , p1_a31
799 , p1_a32
800 , p1_a33
801 , p1_a34
802 , p1_a35
803 , p1_a36
804 , p1_a37
805 , p1_a38
806 , p1_a39
807 , p1_a40
808 );
809
810
811
812
813
814 -- here's the delegated call to the old PL/SQL routine
815 csp_parts_order.cancel_order(ddp_header_rec,
816 ddp_line_table,
817 p_process_type,
818 x_return_status,
819 x_msg_count,
820 x_msg_data);
821
822 -- copy data back from the local variables to OUT or IN-OUT args, if any
823
824
825
826
830 end csp_parts_order_w;
827
828 end;
829