[Home] [Help]
PACKAGE BODY: APPS.DPP_UIWRAPPER_PVT_W
Source
1 package body dpp_uiwrapper_pvt_w as
2 /* $Header: dppvuirb.pls 120.7.12010000.5 2010/03/26 11:42:06 rvkondur ship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy dpp_uiwrapper_pvt.search_criteria_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_300
5 ) as
6 ddindx binary_integer; indx binary_integer;
7 begin
8 if a0 is not null and a0.count > 0 then
9 if a0.count > 0 then
10 indx := a0.first;
11 ddindx := 1;
12 while true loop
13 t(ddindx).search_criteria := a0(indx);
14 t(ddindx).search_text := a1(indx);
15 ddindx := ddindx+1;
16 if a0.last =indx
17 then exit;
18 end if;
19 indx := a0.next(indx);
20 end loop;
21 end if;
22 end if;
23 end rosetta_table_copy_in_p5;
24 procedure rosetta_table_copy_out_p5(t dpp_uiwrapper_pvt.search_criteria_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
25 , a1 out nocopy JTF_VARCHAR2_TABLE_300
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if t is null or t.count = 0 then
30 a0 := JTF_VARCHAR2_TABLE_100();
31 a1 := JTF_VARCHAR2_TABLE_300();
32 else
33 a0 := JTF_VARCHAR2_TABLE_100();
34 a1 := JTF_VARCHAR2_TABLE_300();
35 if t.count > 0 then
36 a0.extend(t.count);
37 a1.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx).search_criteria;
42 a1(indx) := t(ddindx).search_text;
43 indx := indx+1;
44 if t.last =ddindx
45 then exit;
46 end if;
47 ddindx := t.next(ddindx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_out_p5;
52
53 procedure rosetta_table_copy_in_p7(t out nocopy dpp_uiwrapper_pvt.vendor_tbl_type, a0 JTF_NUMBER_TABLE
54 , a1 JTF_VARCHAR2_TABLE_100
55 , a2 JTF_VARCHAR2_TABLE_300
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if a0 is not null and a0.count > 0 then
60 if a0.count > 0 then
61 indx := a0.first;
62 ddindx := 1;
63 while true loop
64 t(ddindx).vendor_id := a0(indx);
65 t(ddindx).vendor_number := a1(indx);
66 t(ddindx).vendor_name := a2(indx);
67 ddindx := ddindx+1;
68 if a0.last =indx
69 then exit;
70 end if;
71 indx := a0.next(indx);
72 end loop;
73 end if;
74 end if;
75 end rosetta_table_copy_in_p7;
76 procedure rosetta_table_copy_out_p7(t dpp_uiwrapper_pvt.vendor_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
77 , a1 out nocopy JTF_VARCHAR2_TABLE_100
78 , a2 out nocopy JTF_VARCHAR2_TABLE_300
79 ) as
80 ddindx binary_integer; indx binary_integer;
81 begin
82 if t is null or t.count = 0 then
83 a0 := JTF_NUMBER_TABLE();
84 a1 := JTF_VARCHAR2_TABLE_100();
85 a2 := JTF_VARCHAR2_TABLE_300();
86 else
87 a0 := JTF_NUMBER_TABLE();
88 a1 := JTF_VARCHAR2_TABLE_100();
89 a2 := JTF_VARCHAR2_TABLE_300();
90 if t.count > 0 then
91 a0.extend(t.count);
92 a1.extend(t.count);
93 a2.extend(t.count);
94 ddindx := t.first;
95 indx := 1;
96 while true loop
97 a0(indx) := t(ddindx).vendor_id;
98 a1(indx) := t(ddindx).vendor_number;
99 a2(indx) := t(ddindx).vendor_name;
100 indx := indx+1;
101 if t.last =ddindx
102 then exit;
103 end if;
104 ddindx := t.next(ddindx);
105 end loop;
106 end if;
107 end if;
108 end rosetta_table_copy_out_p7;
109
110 procedure rosetta_table_copy_in_p9(t out nocopy dpp_uiwrapper_pvt.vendor_site_tbl_type, a0 JTF_NUMBER_TABLE
111 , a1 JTF_NUMBER_TABLE
112 , a2 JTF_VARCHAR2_TABLE_100
113 , a3 JTF_VARCHAR2_TABLE_300
114 , a4 JTF_VARCHAR2_TABLE_300
115 , a5 JTF_VARCHAR2_TABLE_300
116 , a6 JTF_VARCHAR2_TABLE_100
117 , a7 JTF_VARCHAR2_TABLE_200
118 , a8 JTF_VARCHAR2_TABLE_100
119 , a9 JTF_VARCHAR2_TABLE_100
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if a0 is not null and a0.count > 0 then
124 if a0.count > 0 then
125 indx := a0.first;
126 ddindx := 1;
127 while true loop
128 t(ddindx).vendor_id := a0(indx);
129 t(ddindx).vendor_site_id := a1(indx);
130 t(ddindx).vendor_site_code := a2(indx);
131 t(ddindx).address_line1 := a3(indx);
132 t(ddindx).address_line2 := a4(indx);
133 t(ddindx).address_line3 := a5(indx);
134 t(ddindx).city := a6(indx);
135 t(ddindx).state := a7(indx);
136 t(ddindx).zip := a8(indx);
137 t(ddindx).country := a9(indx);
138 ddindx := ddindx+1;
139 if a0.last =indx
140 then exit;
141 end if;
142 indx := a0.next(indx);
143 end loop;
144 end if;
145 end if;
146 end rosetta_table_copy_in_p9;
147 procedure rosetta_table_copy_out_p9(t dpp_uiwrapper_pvt.vendor_site_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
148 , a1 out nocopy JTF_NUMBER_TABLE
149 , a2 out nocopy JTF_VARCHAR2_TABLE_100
150 , a3 out nocopy JTF_VARCHAR2_TABLE_300
151 , a4 out nocopy JTF_VARCHAR2_TABLE_300
152 , a5 out nocopy JTF_VARCHAR2_TABLE_300
153 , a6 out nocopy JTF_VARCHAR2_TABLE_100
154 , a7 out nocopy JTF_VARCHAR2_TABLE_200
155 , a8 out nocopy JTF_VARCHAR2_TABLE_100
156 , a9 out nocopy JTF_VARCHAR2_TABLE_100
157 ) as
158 ddindx binary_integer; indx binary_integer;
159 begin
160 if t is null or t.count = 0 then
161 a0 := JTF_NUMBER_TABLE();
162 a1 := JTF_NUMBER_TABLE();
163 a2 := JTF_VARCHAR2_TABLE_100();
164 a3 := JTF_VARCHAR2_TABLE_300();
165 a4 := JTF_VARCHAR2_TABLE_300();
166 a5 := JTF_VARCHAR2_TABLE_300();
167 a6 := JTF_VARCHAR2_TABLE_100();
168 a7 := JTF_VARCHAR2_TABLE_200();
169 a8 := JTF_VARCHAR2_TABLE_100();
170 a9 := JTF_VARCHAR2_TABLE_100();
171 else
172 a0 := JTF_NUMBER_TABLE();
173 a1 := JTF_NUMBER_TABLE();
174 a2 := JTF_VARCHAR2_TABLE_100();
175 a3 := JTF_VARCHAR2_TABLE_300();
176 a4 := JTF_VARCHAR2_TABLE_300();
177 a5 := JTF_VARCHAR2_TABLE_300();
178 a6 := JTF_VARCHAR2_TABLE_100();
179 a7 := JTF_VARCHAR2_TABLE_200();
180 a8 := JTF_VARCHAR2_TABLE_100();
181 a9 := JTF_VARCHAR2_TABLE_100();
182 if t.count > 0 then
183 a0.extend(t.count);
184 a1.extend(t.count);
185 a2.extend(t.count);
186 a3.extend(t.count);
187 a4.extend(t.count);
188 a5.extend(t.count);
189 a6.extend(t.count);
190 a7.extend(t.count);
191 a8.extend(t.count);
192 a9.extend(t.count);
193 ddindx := t.first;
194 indx := 1;
195 while true loop
196 a0(indx) := t(ddindx).vendor_id;
197 a1(indx) := t(ddindx).vendor_site_id;
198 a2(indx) := t(ddindx).vendor_site_code;
199 a3(indx) := t(ddindx).address_line1;
200 a4(indx) := t(ddindx).address_line2;
201 a5(indx) := t(ddindx).address_line3;
202 a6(indx) := t(ddindx).city;
203 a7(indx) := t(ddindx).state;
204 a8(indx) := t(ddindx).zip;
205 a9(indx) := t(ddindx).country;
206 indx := indx+1;
207 if t.last =ddindx
208 then exit;
209 end if;
210 ddindx := t.next(ddindx);
211 end loop;
212 end if;
213 end if;
214 end rosetta_table_copy_out_p9;
215
216 procedure rosetta_table_copy_in_p11(t out nocopy dpp_uiwrapper_pvt.vendor_contact_tbl_type, a0 JTF_NUMBER_TABLE
217 , a1 JTF_NUMBER_TABLE
218 , a2 JTF_VARCHAR2_TABLE_100
219 , a3 JTF_VARCHAR2_TABLE_100
220 , a4 JTF_VARCHAR2_TABLE_100
221 , a5 JTF_VARCHAR2_TABLE_100
222 , a6 JTF_VARCHAR2_TABLE_2000
223 , a7 JTF_VARCHAR2_TABLE_100
224 ) as
225 ddindx binary_integer; indx binary_integer;
226 begin
227 if a0 is not null and a0.count > 0 then
228 if a0.count > 0 then
229 indx := a0.first;
230 ddindx := 1;
231 while true loop
232 t(ddindx).vendor_site_id := a0(indx);
233 t(ddindx).vendor_contact_id := a1(indx);
234 t(ddindx).contact_first_name := a2(indx);
235 t(ddindx).contact_middle_name := a3(indx);
236 t(ddindx).contact_last_name := a4(indx);
237 t(ddindx).contact_phone := a5(indx);
238 t(ddindx).contact_email_address := a6(indx);
239 t(ddindx).contact_fax := a7(indx);
240 ddindx := ddindx+1;
241 if a0.last =indx
242 then exit;
243 end if;
244 indx := a0.next(indx);
245 end loop;
246 end if;
247 end if;
248 end rosetta_table_copy_in_p11;
249 procedure rosetta_table_copy_out_p11(t dpp_uiwrapper_pvt.vendor_contact_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
250 , a1 out nocopy JTF_NUMBER_TABLE
251 , a2 out nocopy JTF_VARCHAR2_TABLE_100
252 , a3 out nocopy JTF_VARCHAR2_TABLE_100
253 , a4 out nocopy JTF_VARCHAR2_TABLE_100
254 , a5 out nocopy JTF_VARCHAR2_TABLE_100
255 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
256 , a7 out nocopy JTF_VARCHAR2_TABLE_100
257 ) as
258 ddindx binary_integer; indx binary_integer;
259 begin
260 if t is null or t.count = 0 then
261 a0 := JTF_NUMBER_TABLE();
262 a1 := JTF_NUMBER_TABLE();
263 a2 := JTF_VARCHAR2_TABLE_100();
264 a3 := JTF_VARCHAR2_TABLE_100();
265 a4 := JTF_VARCHAR2_TABLE_100();
266 a5 := JTF_VARCHAR2_TABLE_100();
267 a6 := JTF_VARCHAR2_TABLE_2000();
268 a7 := JTF_VARCHAR2_TABLE_100();
269 else
270 a0 := JTF_NUMBER_TABLE();
271 a1 := JTF_NUMBER_TABLE();
272 a2 := JTF_VARCHAR2_TABLE_100();
273 a3 := JTF_VARCHAR2_TABLE_100();
274 a4 := JTF_VARCHAR2_TABLE_100();
275 a5 := JTF_VARCHAR2_TABLE_100();
276 a6 := JTF_VARCHAR2_TABLE_2000();
277 a7 := JTF_VARCHAR2_TABLE_100();
278 if t.count > 0 then
279 a0.extend(t.count);
280 a1.extend(t.count);
281 a2.extend(t.count);
282 a3.extend(t.count);
283 a4.extend(t.count);
284 a5.extend(t.count);
285 a6.extend(t.count);
286 a7.extend(t.count);
287 ddindx := t.first;
288 indx := 1;
289 while true loop
290 a0(indx) := t(ddindx).vendor_site_id;
291 a1(indx) := t(ddindx).vendor_contact_id;
292 a2(indx) := t(ddindx).contact_first_name;
293 a3(indx) := t(ddindx).contact_middle_name;
294 a4(indx) := t(ddindx).contact_last_name;
295 a5(indx) := t(ddindx).contact_phone;
296 a6(indx) := t(ddindx).contact_email_address;
297 a7(indx) := t(ddindx).contact_fax;
298 indx := indx+1;
299 if t.last =ddindx
300 then exit;
301 end if;
302 ddindx := t.next(ddindx);
303 end loop;
304 end if;
305 end if;
306 end rosetta_table_copy_out_p11;
307
308 procedure rosetta_table_copy_in_p13(t out nocopy dpp_uiwrapper_pvt.customer_tbl_type, a0 JTF_NUMBER_TABLE
309 , a1 JTF_VARCHAR2_TABLE_100
310 , a2 JTF_VARCHAR2_TABLE_400
311 ) as
312 ddindx binary_integer; indx binary_integer;
313 begin
314 if a0 is not null and a0.count > 0 then
315 if a0.count > 0 then
316 indx := a0.first;
317 ddindx := 1;
318 while true loop
319 t(ddindx).customer_id := a0(indx);
320 t(ddindx).customer_number := a1(indx);
321 t(ddindx).customer_name := a2(indx);
322 ddindx := ddindx+1;
323 if a0.last =indx
324 then exit;
325 end if;
326 indx := a0.next(indx);
327 end loop;
328 end if;
329 end if;
330 end rosetta_table_copy_in_p13;
331 procedure rosetta_table_copy_out_p13(t dpp_uiwrapper_pvt.customer_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
332 , a1 out nocopy JTF_VARCHAR2_TABLE_100
333 , a2 out nocopy JTF_VARCHAR2_TABLE_400
334 ) as
335 ddindx binary_integer; indx binary_integer;
336 begin
337 if t is null or t.count = 0 then
338 a0 := JTF_NUMBER_TABLE();
339 a1 := JTF_VARCHAR2_TABLE_100();
340 a2 := JTF_VARCHAR2_TABLE_400();
341 else
342 a0 := JTF_NUMBER_TABLE();
343 a1 := JTF_VARCHAR2_TABLE_100();
344 a2 := JTF_VARCHAR2_TABLE_400();
345 if t.count > 0 then
346 a0.extend(t.count);
347 a1.extend(t.count);
348 a2.extend(t.count);
349 ddindx := t.first;
350 indx := 1;
351 while true loop
352 a0(indx) := t(ddindx).customer_id;
353 a1(indx) := t(ddindx).customer_number;
354 a2(indx) := t(ddindx).customer_name;
355 indx := indx+1;
356 if t.last =ddindx
357 then exit;
358 end if;
359 ddindx := t.next(ddindx);
360 end loop;
361 end if;
362 end if;
363 end rosetta_table_copy_out_p13;
364
365 procedure rosetta_table_copy_in_p15(t out nocopy dpp_uiwrapper_pvt.item_tbl_type, a0 JTF_NUMBER_TABLE
366 , a1 JTF_VARCHAR2_TABLE_100
367 , a2 JTF_VARCHAR2_TABLE_300
368 ) as
369 ddindx binary_integer; indx binary_integer;
370 begin
371 if a0 is not null and a0.count > 0 then
372 if a0.count > 0 then
373 indx := a0.first;
374 ddindx := 1;
375 while true loop
376 t(ddindx).inventory_item_id := a0(indx);
377 t(ddindx).item_number := a1(indx);
378 t(ddindx).description := a2(indx);
379 ddindx := ddindx+1;
380 if a0.last =indx
381 then exit;
382 end if;
383 indx := a0.next(indx);
384 end loop;
385 end if;
386 end if;
387 end rosetta_table_copy_in_p15;
388 procedure rosetta_table_copy_out_p15(t dpp_uiwrapper_pvt.item_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
389 , a1 out nocopy JTF_VARCHAR2_TABLE_100
390 , a2 out nocopy JTF_VARCHAR2_TABLE_300
391 ) as
392 ddindx binary_integer; indx binary_integer;
393 begin
394 if t is null or t.count = 0 then
395 a0 := JTF_NUMBER_TABLE();
396 a1 := JTF_VARCHAR2_TABLE_100();
397 a2 := JTF_VARCHAR2_TABLE_300();
398 else
399 a0 := JTF_NUMBER_TABLE();
400 a1 := JTF_VARCHAR2_TABLE_100();
401 a2 := JTF_VARCHAR2_TABLE_300();
402 if t.count > 0 then
403 a0.extend(t.count);
404 a1.extend(t.count);
405 a2.extend(t.count);
406 ddindx := t.first;
407 indx := 1;
408 while true loop
409 a0(indx) := t(ddindx).inventory_item_id;
410 a1(indx) := t(ddindx).item_number;
411 a2(indx) := t(ddindx).description;
412 indx := indx+1;
413 if t.last =ddindx
414 then exit;
415 end if;
416 ddindx := t.next(ddindx);
417 end loop;
418 end if;
419 end if;
420 end rosetta_table_copy_out_p15;
421
425 , a3 JTF_VARCHAR2_TABLE_100
422 procedure rosetta_table_copy_in_p17(t out nocopy dpp_uiwrapper_pvt.itemnum_tbl_type, a0 JTF_NUMBER_TABLE
423 , a1 JTF_VARCHAR2_TABLE_100
424 , a2 JTF_VARCHAR2_TABLE_300
426 ) as
427 ddindx binary_integer; indx binary_integer;
428 begin
429 if a0 is not null and a0.count > 0 then
430 if a0.count > 0 then
431 indx := a0.first;
432 ddindx := 1;
433 while true loop
434 t(ddindx).inventory_item_id := a0(indx);
435 t(ddindx).item_number := a1(indx);
436 t(ddindx).description := a2(indx);
437 t(ddindx).vendor_part_no := a3(indx);
438 ddindx := ddindx+1;
439 if a0.last =indx
440 then exit;
441 end if;
442 indx := a0.next(indx);
443 end loop;
444 end if;
445 end if;
446 end rosetta_table_copy_in_p17;
447 procedure rosetta_table_copy_out_p17(t dpp_uiwrapper_pvt.itemnum_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
448 , a1 out nocopy JTF_VARCHAR2_TABLE_300
449 , a2 out nocopy JTF_VARCHAR2_TABLE_300
450 , a3 out nocopy JTF_VARCHAR2_TABLE_300
451 ) as
452 ddindx binary_integer; indx binary_integer;
453 begin
454 if t is null or t.count = 0 then
455 a0 := JTF_NUMBER_TABLE();
456 a1 := JTF_VARCHAR2_TABLE_300();
457 a2 := JTF_VARCHAR2_TABLE_300();
458 a3 := JTF_VARCHAR2_TABLE_300();
459 else
460 a0 := JTF_NUMBER_TABLE();
461 a1 := JTF_VARCHAR2_TABLE_300();
462 a2 := JTF_VARCHAR2_TABLE_300();
463 a3 := JTF_VARCHAR2_TABLE_300();
464 if t.count > 0 then
465 a0.extend(t.count);
466 a1.extend(t.count);
467 a2.extend(t.count);
468 a3.extend(t.count);
469 ddindx := t.first;
470 indx := 1;
471 while true loop
472 a0(indx) := t(ddindx).inventory_item_id;
473 a1(indx) := t(ddindx).item_number;
474 a2(indx) := t(ddindx).description;
475 a3(indx) := t(ddindx).vendor_part_no;
476 indx := indx+1;
477 if t.last =ddindx
478 then exit;
479 end if;
480 ddindx := t.next(ddindx);
481 end loop;
482 end if;
483 end if;
484 end rosetta_table_copy_out_p17;
485
486 procedure rosetta_table_copy_in_p19(t out nocopy dpp_uiwrapper_pvt.warehouse_tbl_type, a0 JTF_NUMBER_TABLE
487 , a1 JTF_VARCHAR2_TABLE_100
488 , a2 JTF_VARCHAR2_TABLE_300
489 ) as
490 ddindx binary_integer; indx binary_integer;
491 begin
492 if a0 is not null and a0.count > 0 then
493 if a0.count > 0 then
494 indx := a0.first;
495 ddindx := 1;
496 while true loop
497 t(ddindx).warehouse_id := a0(indx);
498 t(ddindx).warehouse_code := a1(indx);
499 t(ddindx).warehouse_name := a2(indx);
500 ddindx := ddindx+1;
501 if a0.last =indx
502 then exit;
503 end if;
504 indx := a0.next(indx);
505 end loop;
506 end if;
507 end if;
508 end rosetta_table_copy_in_p19;
509 procedure rosetta_table_copy_out_p19(t dpp_uiwrapper_pvt.warehouse_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
510 , a1 out nocopy JTF_VARCHAR2_TABLE_100
511 , a2 out nocopy JTF_VARCHAR2_TABLE_300
512 ) as
513 ddindx binary_integer; indx binary_integer;
514 begin
515 if t is null or t.count = 0 then
516 a0 := JTF_NUMBER_TABLE();
517 a1 := JTF_VARCHAR2_TABLE_100();
518 a2 := JTF_VARCHAR2_TABLE_300();
519 else
520 a0 := JTF_NUMBER_TABLE();
521 a1 := JTF_VARCHAR2_TABLE_100();
522 a2 := JTF_VARCHAR2_TABLE_300();
523 if t.count > 0 then
524 a0.extend(t.count);
525 a1.extend(t.count);
526 a2.extend(t.count);
527 ddindx := t.first;
528 indx := 1;
529 while true loop
530 a0(indx) := t(ddindx).warehouse_id;
531 a1(indx) := t(ddindx).warehouse_code;
532 a2(indx) := t(ddindx).warehouse_name;
533 indx := indx+1;
534 if t.last =ddindx
535 then exit;
536 end if;
537 ddindx := t.next(ddindx);
538 end loop;
539 end if;
540 end if;
541 end rosetta_table_copy_out_p19;
542
543 procedure rosetta_table_copy_in_p22(t out nocopy dpp_uiwrapper_pvt.dpp_inv_cov_rct_tbl_type, a0 JTF_DATE_TABLE
544 , a1 JTF_NUMBER_TABLE
545 ) as
546 ddindx binary_integer; indx binary_integer;
547 begin
548 if a0 is not null and a0.count > 0 then
549 if a0.count > 0 then
550 indx := a0.first;
551 ddindx := 1;
552 while true loop
553 t(ddindx).date_received := a0(indx);
554 t(ddindx).onhand_quantity := a1(indx);
555 ddindx := ddindx+1;
556 if a0.last =indx
557 then exit;
558 end if;
559 indx := a0.next(indx);
560 end loop;
561 end if;
562 end if;
563 end rosetta_table_copy_in_p22;
567 ddindx binary_integer; indx binary_integer;
564 procedure rosetta_table_copy_out_p22(t dpp_uiwrapper_pvt.dpp_inv_cov_rct_tbl_type, a0 out nocopy JTF_DATE_TABLE
565 , a1 out nocopy JTF_NUMBER_TABLE
566 ) as
568 begin
569 if t is null or t.count = 0 then
570 a0 := JTF_DATE_TABLE();
571 a1 := JTF_NUMBER_TABLE();
572 else
573 a0 := JTF_DATE_TABLE();
574 a1 := JTF_NUMBER_TABLE();
575 if t.count > 0 then
576 a0.extend(t.count);
577 a1.extend(t.count);
578 ddindx := t.first;
579 indx := 1;
580 while true loop
581 a0(indx) := t(ddindx).date_received;
582 a1(indx) := t(ddindx).onhand_quantity;
583 indx := indx+1;
584 if t.last =ddindx
585 then exit;
586 end if;
587 ddindx := t.next(ddindx);
588 end loop;
589 end if;
590 end if;
591 end rosetta_table_copy_out_p22;
592
593 procedure rosetta_table_copy_in_p24(t out nocopy dpp_uiwrapper_pvt.inventorydetails_tbl_type, a0 JTF_NUMBER_TABLE
594 , a1 JTF_NUMBER_TABLE
595 , a2 JTF_VARCHAR2_TABLE_100
596 , a3 JTF_NUMBER_TABLE
597 , a4 JTF_NUMBER_TABLE
598 ) as
599 ddindx binary_integer; indx binary_integer;
600 begin
601 if a0 is not null and a0.count > 0 then
602 if a0.count > 0 then
603 indx := a0.first;
604 ddindx := 1;
605 while true loop
606 t(ddindx).transaction_line_id := a0(indx);
607 t(ddindx).inventory_item_id := a1(indx);
608 t(ddindx).uom_code := a2(indx);
609 t(ddindx).onhand_quantity := a3(indx);
610 t(ddindx).covered_quantity := a4(indx);
611 ddindx := ddindx+1;
612 if a0.last =indx
613 then exit;
614 end if;
615 indx := a0.next(indx);
616 end loop;
617 end if;
618 end if;
619 end rosetta_table_copy_in_p24;
620 procedure rosetta_table_copy_out_p24(t dpp_uiwrapper_pvt.inventorydetails_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
621 , a1 out nocopy JTF_NUMBER_TABLE
622 , a2 out nocopy JTF_VARCHAR2_TABLE_100
623 , a3 out nocopy JTF_NUMBER_TABLE
624 , a4 out nocopy JTF_NUMBER_TABLE
625 ) as
626 ddindx binary_integer; indx binary_integer;
627 begin
628 if t is null or t.count = 0 then
629 a0 := JTF_NUMBER_TABLE();
630 a1 := JTF_NUMBER_TABLE();
631 a2 := JTF_VARCHAR2_TABLE_100();
632 a3 := JTF_NUMBER_TABLE();
633 a4 := JTF_NUMBER_TABLE();
634 else
635 a0 := JTF_NUMBER_TABLE();
636 a1 := JTF_NUMBER_TABLE();
637 a2 := JTF_VARCHAR2_TABLE_100();
638 a3 := JTF_NUMBER_TABLE();
639 a4 := JTF_NUMBER_TABLE();
640 if t.count > 0 then
641 a0.extend(t.count);
642 a1.extend(t.count);
643 a2.extend(t.count);
644 a3.extend(t.count);
645 a4.extend(t.count);
646 ddindx := t.first;
647 indx := 1;
648 while true loop
649 a0(indx) := t(ddindx).transaction_line_id;
650 a1(indx) := t(ddindx).inventory_item_id;
651 a2(indx) := t(ddindx).uom_code;
652 a3(indx) := t(ddindx).onhand_quantity;
653 a4(indx) := t(ddindx).covered_quantity;
654 indx := indx+1;
655 if t.last =ddindx
656 then exit;
657 end if;
658 ddindx := t.next(ddindx);
659 end loop;
660 end if;
661 end if;
662 end rosetta_table_copy_out_p24;
663
664 procedure rosetta_table_copy_in_p26(t out nocopy dpp_uiwrapper_pvt.dpp_cust_inv_tbl_type, a0 JTF_NUMBER_TABLE
665 , a1 JTF_NUMBER_TABLE
666 , a2 JTF_VARCHAR2_TABLE_100
667 , a3 JTF_NUMBER_TABLE
668 ) as
669 ddindx binary_integer; indx binary_integer;
670 begin
671 if a0 is not null and a0.count > 0 then
672 if a0.count > 0 then
673 indx := a0.first;
674 ddindx := 1;
675 while true loop
676 t(ddindx).customer_id := a0(indx);
677 t(ddindx).inventory_item_id := a1(indx);
678 t(ddindx).uom_code := a2(indx);
679 t(ddindx).onhand_quantity := a3(indx);
680 ddindx := ddindx+1;
681 if a0.last =indx
682 then exit;
683 end if;
684 indx := a0.next(indx);
685 end loop;
686 end if;
687 end if;
688 end rosetta_table_copy_in_p26;
689 procedure rosetta_table_copy_out_p26(t dpp_uiwrapper_pvt.dpp_cust_inv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
690 , a1 out nocopy JTF_NUMBER_TABLE
691 , a2 out nocopy JTF_VARCHAR2_TABLE_100
692 , a3 out nocopy JTF_NUMBER_TABLE
693 ) as
694 ddindx binary_integer; indx binary_integer;
695 begin
696 if t is null or t.count = 0 then
697 a0 := JTF_NUMBER_TABLE();
698 a1 := JTF_NUMBER_TABLE();
699 a2 := JTF_VARCHAR2_TABLE_100();
700 a3 := JTF_NUMBER_TABLE();
701 else
702 a0 := JTF_NUMBER_TABLE();
703 a1 := JTF_NUMBER_TABLE();
704 a2 := JTF_VARCHAR2_TABLE_100();
708 a1.extend(t.count);
705 a3 := JTF_NUMBER_TABLE();
706 if t.count > 0 then
707 a0.extend(t.count);
709 a2.extend(t.count);
710 a3.extend(t.count);
711 ddindx := t.first;
712 indx := 1;
713 while true loop
714 a0(indx) := t(ddindx).customer_id;
715 a1(indx) := t(ddindx).inventory_item_id;
716 a2(indx) := t(ddindx).uom_code;
717 a3(indx) := t(ddindx).onhand_quantity;
718 indx := indx+1;
719 if t.last =ddindx
720 then exit;
721 end if;
722 ddindx := t.next(ddindx);
723 end loop;
724 end if;
725 end if;
726 end rosetta_table_copy_out_p26;
727
728 procedure rosetta_table_copy_in_p28(t out nocopy dpp_uiwrapper_pvt.dpp_cust_price_tbl_type, a0 JTF_NUMBER_TABLE
729 , a1 JTF_NUMBER_TABLE
730 , a2 JTF_VARCHAR2_TABLE_100
731 , a3 JTF_NUMBER_TABLE
732 , a4 JTF_VARCHAR2_TABLE_100
733 , a5 JTF_NUMBER_TABLE
734 , a6 JTF_NUMBER_TABLE
735 ) as
736 ddindx binary_integer; indx binary_integer;
737 begin
738 if a0 is not null and a0.count > 0 then
739 if a0.count > 0 then
740 indx := a0.first;
741 ddindx := 1;
742 while true loop
743 t(ddindx).customer_id := a0(indx);
744 t(ddindx).inventory_item_id := a1(indx);
745 t(ddindx).uom_code := a2(indx);
746 t(ddindx).last_price := a3(indx);
747 t(ddindx).invoice_currency_code := a4(indx);
748 t(ddindx).price_change := a5(indx);
749 t(ddindx).converted_price_change := a6(indx);
750 ddindx := ddindx+1;
751 if a0.last =indx
752 then exit;
753 end if;
754 indx := a0.next(indx);
755 end loop;
756 end if;
757 end if;
758 end rosetta_table_copy_in_p28;
759 procedure rosetta_table_copy_out_p28(t dpp_uiwrapper_pvt.dpp_cust_price_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
760 , a1 out nocopy JTF_NUMBER_TABLE
761 , a2 out nocopy JTF_VARCHAR2_TABLE_100
762 , a3 out nocopy JTF_NUMBER_TABLE
763 , a4 out nocopy JTF_VARCHAR2_TABLE_100
764 , a5 out nocopy JTF_NUMBER_TABLE
765 , a6 out nocopy JTF_NUMBER_TABLE
766 ) as
767 ddindx binary_integer; indx binary_integer;
768 begin
769 if t is null or t.count = 0 then
770 a0 := JTF_NUMBER_TABLE();
771 a1 := JTF_NUMBER_TABLE();
772 a2 := JTF_VARCHAR2_TABLE_100();
773 a3 := JTF_NUMBER_TABLE();
774 a4 := JTF_VARCHAR2_TABLE_100();
775 a5 := JTF_NUMBER_TABLE();
776 a6 := JTF_NUMBER_TABLE();
777 else
778 a0 := JTF_NUMBER_TABLE();
779 a1 := JTF_NUMBER_TABLE();
780 a2 := JTF_VARCHAR2_TABLE_100();
781 a3 := JTF_NUMBER_TABLE();
782 a4 := JTF_VARCHAR2_TABLE_100();
783 a5 := JTF_NUMBER_TABLE();
784 a6 := JTF_NUMBER_TABLE();
785 if t.count > 0 then
786 a0.extend(t.count);
787 a1.extend(t.count);
788 a2.extend(t.count);
789 a3.extend(t.count);
790 a4.extend(t.count);
791 a5.extend(t.count);
792 a6.extend(t.count);
793 ddindx := t.first;
794 indx := 1;
795 while true loop
796 a0(indx) := t(ddindx).customer_id;
797 a1(indx) := t(ddindx).inventory_item_id;
798 a2(indx) := t(ddindx).uom_code;
799 a3(indx) := t(ddindx).last_price;
800 a4(indx) := t(ddindx).invoice_currency_code;
801 a5(indx) := t(ddindx).price_change;
802 a6(indx) := t(ddindx).converted_price_change;
803 indx := indx+1;
804 if t.last =ddindx
805 then exit;
806 end if;
807 ddindx := t.next(ddindx);
808 end loop;
809 end if;
810 end if;
811 end rosetta_table_copy_out_p28;
812
813 procedure rosetta_table_copy_in_p30(t out nocopy dpp_uiwrapper_pvt.dpp_list_price_tbl_type, a0 JTF_NUMBER_TABLE
814 , a1 JTF_NUMBER_TABLE
815 ) as
816 ddindx binary_integer; indx binary_integer;
817 begin
818 if a0 is not null and a0.count > 0 then
819 if a0.count > 0 then
820 indx := a0.first;
821 ddindx := 1;
822 while true loop
823 t(ddindx).inventory_item_id := a0(indx);
824 t(ddindx).list_price := a1(indx);
825 ddindx := ddindx+1;
826 if a0.last =indx
827 then exit;
828 end if;
829 indx := a0.next(indx);
830 end loop;
831 end if;
832 end if;
833 end rosetta_table_copy_in_p30;
834 procedure rosetta_table_copy_out_p30(t dpp_uiwrapper_pvt.dpp_list_price_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
835 , a1 out nocopy JTF_NUMBER_TABLE
836 ) as
837 ddindx binary_integer; indx binary_integer;
838 begin
839 if t is null or t.count = 0 then
840 a0 := JTF_NUMBER_TABLE();
841 a1 := JTF_NUMBER_TABLE();
842 else
843 a0 := JTF_NUMBER_TABLE();
844 a1 := JTF_NUMBER_TABLE();
845 if t.count > 0 then
846 a0.extend(t.count);
850 while true loop
847 a1.extend(t.count);
848 ddindx := t.first;
849 indx := 1;
851 a0(indx) := t(ddindx).inventory_item_id;
852 a1(indx) := t(ddindx).list_price;
853 indx := indx+1;
854 if t.last =ddindx
855 then exit;
856 end if;
857 ddindx := t.next(ddindx);
858 end loop;
859 end if;
860 end if;
861 end rosetta_table_copy_out_p30;
862
863 procedure rosetta_table_copy_in_p33(t out nocopy dpp_uiwrapper_pvt.approverstable, a0 JTF_NUMBER_TABLE
864 , a1 JTF_NUMBER_TABLE
865 , a2 JTF_VARCHAR2_TABLE_200
866 , a3 JTF_VARCHAR2_TABLE_200
867 , a4 JTF_VARCHAR2_TABLE_100
868 , a5 JTF_VARCHAR2_TABLE_100
869 , a6 JTF_VARCHAR2_TABLE_100
870 , a7 JTF_NUMBER_TABLE
871 , a8 JTF_NUMBER_TABLE
872 , a9 JTF_NUMBER_TABLE
873 , a10 JTF_VARCHAR2_TABLE_500
874 , a11 JTF_NUMBER_TABLE
875 , a12 JTF_VARCHAR2_TABLE_300
876 , a13 JTF_VARCHAR2_TABLE_100
877 ) as
878 ddindx binary_integer; indx binary_integer;
879 begin
880 if a0 is not null and a0.count > 0 then
881 if a0.count > 0 then
882 indx := a0.first;
883 ddindx := 1;
884 while true loop
885 t(ddindx).user_id := a0(indx);
886 t(ddindx).person_id := a1(indx);
887 t(ddindx).first_name := a2(indx);
888 t(ddindx).last_name := a3(indx);
889 t(ddindx).api_insertion := a4(indx);
890 t(ddindx).authority := a5(indx);
891 t(ddindx).approval_status := a6(indx);
892 t(ddindx).approval_type_id := a7(indx);
893 t(ddindx).group_or_chain_id := a8(indx);
894 t(ddindx).occurrence := a9(indx);
895 t(ddindx).source := a10(indx);
896 t(ddindx).approver_sequence := a11(indx);
897 t(ddindx).approver_email := a12(indx);
898 t(ddindx).approver_group_name := a13(indx);
899 ddindx := ddindx+1;
900 if a0.last =indx
901 then exit;
902 end if;
903 indx := a0.next(indx);
904 end loop;
905 end if;
906 end if;
907 end rosetta_table_copy_in_p33;
908 procedure rosetta_table_copy_out_p33(t dpp_uiwrapper_pvt.approverstable, a0 out nocopy JTF_NUMBER_TABLE
909 , a1 out nocopy JTF_NUMBER_TABLE
910 , a2 out nocopy JTF_VARCHAR2_TABLE_200
911 , a3 out nocopy JTF_VARCHAR2_TABLE_200
912 , a4 out nocopy JTF_VARCHAR2_TABLE_100
913 , a5 out nocopy JTF_VARCHAR2_TABLE_100
914 , a6 out nocopy JTF_VARCHAR2_TABLE_100
915 , a7 out nocopy JTF_NUMBER_TABLE
916 , a8 out nocopy JTF_NUMBER_TABLE
917 , a9 out nocopy JTF_NUMBER_TABLE
918 , a10 out nocopy JTF_VARCHAR2_TABLE_500
919 , a11 out nocopy JTF_NUMBER_TABLE
920 , a12 out nocopy JTF_VARCHAR2_TABLE_300
921 , a13 out nocopy JTF_VARCHAR2_TABLE_100
922 ) as
923 ddindx binary_integer; indx binary_integer;
924 begin
925 if t is null or t.count = 0 then
926 a0 := JTF_NUMBER_TABLE();
927 a1 := JTF_NUMBER_TABLE();
928 a2 := JTF_VARCHAR2_TABLE_200();
929 a3 := JTF_VARCHAR2_TABLE_200();
930 a4 := JTF_VARCHAR2_TABLE_100();
931 a5 := JTF_VARCHAR2_TABLE_100();
932 a6 := JTF_VARCHAR2_TABLE_100();
933 a7 := JTF_NUMBER_TABLE();
934 a8 := JTF_NUMBER_TABLE();
935 a9 := JTF_NUMBER_TABLE();
936 a10 := JTF_VARCHAR2_TABLE_500();
937 a11 := JTF_NUMBER_TABLE();
938 a12 := JTF_VARCHAR2_TABLE_300();
939 a13 := JTF_VARCHAR2_TABLE_100();
940 else
941 a0 := JTF_NUMBER_TABLE();
942 a1 := JTF_NUMBER_TABLE();
943 a2 := JTF_VARCHAR2_TABLE_200();
944 a3 := JTF_VARCHAR2_TABLE_200();
945 a4 := JTF_VARCHAR2_TABLE_100();
946 a5 := JTF_VARCHAR2_TABLE_100();
947 a6 := JTF_VARCHAR2_TABLE_100();
948 a7 := JTF_NUMBER_TABLE();
949 a8 := JTF_NUMBER_TABLE();
950 a9 := JTF_NUMBER_TABLE();
951 a10 := JTF_VARCHAR2_TABLE_500();
952 a11 := JTF_NUMBER_TABLE();
953 a12 := JTF_VARCHAR2_TABLE_300();
954 a13 := JTF_VARCHAR2_TABLE_100();
955 if t.count > 0 then
956 a0.extend(t.count);
957 a1.extend(t.count);
958 a2.extend(t.count);
959 a3.extend(t.count);
960 a4.extend(t.count);
961 a5.extend(t.count);
962 a6.extend(t.count);
963 a7.extend(t.count);
964 a8.extend(t.count);
965 a9.extend(t.count);
966 a10.extend(t.count);
967 a11.extend(t.count);
968 a12.extend(t.count);
969 a13.extend(t.count);
970 ddindx := t.first;
971 indx := 1;
972 while true loop
973 a0(indx) := t(ddindx).user_id;
974 a1(indx) := t(ddindx).person_id;
975 a2(indx) := t(ddindx).first_name;
976 a3(indx) := t(ddindx).last_name;
977 a4(indx) := t(ddindx).api_insertion;
978 a5(indx) := t(ddindx).authority;
979 a6(indx) := t(ddindx).approval_status;
980 a7(indx) := t(ddindx).approval_type_id;
981 a8(indx) := t(ddindx).group_or_chain_id;
982 a9(indx) := t(ddindx).occurrence;
986 a13(indx) := t(ddindx).approver_group_name;
983 a10(indx) := t(ddindx).source;
984 a11(indx) := t(ddindx).approver_sequence;
985 a12(indx) := t(ddindx).approver_email;
987 indx := indx+1;
988 if t.last =ddindx
989 then exit;
990 end if;
991 ddindx := t.next(ddindx);
992 end loop;
993 end if;
994 end if;
995 end rosetta_table_copy_out_p33;
996
997 procedure rosetta_table_copy_in_p35(t out nocopy dpp_uiwrapper_pvt.dpp_txn_line_tbl_type, a0 JTF_NUMBER_TABLE) as
998 ddindx binary_integer; indx binary_integer;
999 begin
1000 if a0 is not null and a0.count > 0 then
1001 if a0.count > 0 then
1002 indx := a0.first;
1003 ddindx := 1;
1004 while true loop
1005 t(ddindx) := a0(indx);
1006 ddindx := ddindx+1;
1007 if a0.last =indx
1008 then exit;
1009 end if;
1010 indx := a0.next(indx);
1011 end loop;
1012 end if;
1013 end if;
1014 end rosetta_table_copy_in_p35;
1015 procedure rosetta_table_copy_out_p35(t dpp_uiwrapper_pvt.dpp_txn_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
1016 ddindx binary_integer; indx binary_integer;
1017 begin
1018 if t is null or t.count = 0 then
1019 a0 := JTF_NUMBER_TABLE();
1020 else
1021 a0 := JTF_NUMBER_TABLE();
1022 if t.count > 0 then
1023 a0.extend(t.count);
1024 ddindx := t.first;
1025 indx := 1;
1026 while true loop
1027 a0(indx) := t(ddindx);
1028 indx := indx+1;
1029 if t.last =ddindx
1030 then exit;
1031 end if;
1032 ddindx := t.next(ddindx);
1033 end loop;
1034 end if;
1035 end if;
1036 end rosetta_table_copy_out_p35;
1037
1038 procedure search_vendors(p0_a0 JTF_VARCHAR2_TABLE_100
1039 , p0_a1 JTF_VARCHAR2_TABLE_300
1040 , p1_a0 out nocopy JTF_NUMBER_TABLE
1041 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1042 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1043 , x_rec_count out nocopy NUMBER
1044 , x_return_status out nocopy VARCHAR2
1045 )
1046
1047 as
1048 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1049 ddx_vendor_tbl dpp_uiwrapper_pvt.vendor_tbl_type;
1050 ddindx binary_integer; indx binary_integer;
1051 begin
1052
1053 -- copy data to the local IN or IN-OUT args, if any
1054 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1055 , p0_a1
1056 );
1057
1058
1059
1060
1061 -- here's the delegated call to the old PL/SQL routine
1062 dpp_uiwrapper_pvt.search_vendors(ddp_search_criteria,
1063 ddx_vendor_tbl,
1064 x_rec_count,
1065 x_return_status);
1066
1067 -- copy data back from the local variables to OUT or IN-OUT args, if any
1068
1069 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p7(ddx_vendor_tbl, p1_a0
1070 , p1_a1
1071 , p1_a2
1072 );
1073
1074
1075 end;
1076
1077 procedure search_vendor_sites(p0_a0 JTF_VARCHAR2_TABLE_100
1078 , p0_a1 JTF_VARCHAR2_TABLE_300
1079 , p1_a0 out nocopy JTF_NUMBER_TABLE
1080 , p1_a1 out nocopy JTF_NUMBER_TABLE
1081 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
1082 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_300
1083 , p1_a4 out nocopy JTF_VARCHAR2_TABLE_300
1084 , p1_a5 out nocopy JTF_VARCHAR2_TABLE_300
1085 , p1_a6 out nocopy JTF_VARCHAR2_TABLE_100
1086 , p1_a7 out nocopy JTF_VARCHAR2_TABLE_200
1087 , p1_a8 out nocopy JTF_VARCHAR2_TABLE_100
1088 , p1_a9 out nocopy JTF_VARCHAR2_TABLE_100
1089 , x_rec_count out nocopy NUMBER
1090 , x_return_status out nocopy VARCHAR2
1091 )
1092
1093 as
1094 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1095 ddx_vendor_site_tbl dpp_uiwrapper_pvt.vendor_site_tbl_type;
1096 ddindx binary_integer; indx binary_integer;
1097 begin
1098
1099 -- copy data to the local IN or IN-OUT args, if any
1100 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1101 , p0_a1
1102 );
1103
1104
1105
1106
1107 -- here's the delegated call to the old PL/SQL routine
1108 dpp_uiwrapper_pvt.search_vendor_sites(ddp_search_criteria,
1109 ddx_vendor_site_tbl,
1110 x_rec_count,
1111 x_return_status);
1112
1113 -- copy data back from the local variables to OUT or IN-OUT args, if any
1114
1115 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p9(ddx_vendor_site_tbl, p1_a0
1116 , p1_a1
1117 , p1_a2
1118 , p1_a3
1119 , p1_a4
1120 , p1_a5
1121 , p1_a6
1122 , p1_a7
1123 , p1_a8
1124 , p1_a9
1125 );
1126
1127
1128 end;
1129
1130 procedure search_vendor_contacts(p0_a0 JTF_VARCHAR2_TABLE_100
1131 , p0_a1 JTF_VARCHAR2_TABLE_300
1132 , p1_a0 out nocopy JTF_NUMBER_TABLE
1133 , p1_a1 out nocopy JTF_NUMBER_TABLE
1134 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
1135 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_100
1139 , p1_a7 out nocopy JTF_VARCHAR2_TABLE_100
1136 , p1_a4 out nocopy JTF_VARCHAR2_TABLE_100
1137 , p1_a5 out nocopy JTF_VARCHAR2_TABLE_100
1138 , p1_a6 out nocopy JTF_VARCHAR2_TABLE_2000
1140 , x_rec_count out nocopy NUMBER
1141 , x_return_status out nocopy VARCHAR2
1142 )
1143
1144 as
1145 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1146 ddx_vendor_contact_tbl dpp_uiwrapper_pvt.vendor_contact_tbl_type;
1147 ddindx binary_integer; indx binary_integer;
1148 begin
1149
1150 -- copy data to the local IN or IN-OUT args, if any
1151 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1152 , p0_a1
1153 );
1154
1155
1156
1157
1158 -- here's the delegated call to the old PL/SQL routine
1159 dpp_uiwrapper_pvt.search_vendor_contacts(ddp_search_criteria,
1160 ddx_vendor_contact_tbl,
1161 x_rec_count,
1162 x_return_status);
1163
1164 -- copy data back from the local variables to OUT or IN-OUT args, if any
1165
1166 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p11(ddx_vendor_contact_tbl, p1_a0
1167 , p1_a1
1168 , p1_a2
1169 , p1_a3
1170 , p1_a4
1171 , p1_a5
1172 , p1_a6
1173 , p1_a7
1174 );
1175
1176
1177 end;
1178
1179 procedure search_items(p0_a0 JTF_VARCHAR2_TABLE_100
1180 , p0_a1 JTF_VARCHAR2_TABLE_300
1181 , p1_a0 out nocopy JTF_NUMBER_TABLE
1182 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_300
1183 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1184 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_300
1185 , x_rec_count out nocopy NUMBER
1186 , x_return_status out nocopy VARCHAR2
1187 )
1188
1189 as
1190 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1191 ddx_item_tbl dpp_uiwrapper_pvt.itemnum_tbl_type;
1192 ddindx binary_integer; indx binary_integer;
1193 begin
1194
1195 -- copy data to the local IN or IN-OUT args, if any
1196 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1197 , p0_a1
1198 );
1199
1200
1201
1202
1203 -- here's the delegated call to the old PL/SQL routine
1204 dpp_uiwrapper_pvt.search_items(ddp_search_criteria,
1205 ddx_item_tbl,
1206 x_rec_count,
1207 x_return_status);
1208
1209 -- copy data back from the local variables to OUT or IN-OUT args, if any
1210
1211 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p17(ddx_item_tbl, p1_a0
1212 , p1_a1
1213 , p1_a2
1214 , p1_a3
1215 );
1216
1217
1218 end;
1219
1220 procedure search_customer_items(p0_a0 JTF_VARCHAR2_TABLE_100
1221 , p0_a1 JTF_VARCHAR2_TABLE_300
1222 , p1_a0 out nocopy JTF_NUMBER_TABLE
1223 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1224 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1225 , x_rec_count out nocopy NUMBER
1226 , x_return_status out nocopy VARCHAR2
1227 )
1228
1229 as
1230 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1231 ddx_customer_item_tbl dpp_uiwrapper_pvt.item_tbl_type;
1232 ddindx binary_integer; indx binary_integer;
1233 begin
1234
1235 -- copy data to the local IN or IN-OUT args, if any
1236 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1237 , p0_a1
1238 );
1239
1240
1241
1242
1243 -- here's the delegated call to the old PL/SQL routine
1244 dpp_uiwrapper_pvt.search_customer_items(ddp_search_criteria,
1245 ddx_customer_item_tbl,
1246 x_rec_count,
1247 x_return_status);
1248
1249 -- copy data back from the local variables to OUT or IN-OUT args, if any
1250
1251 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p15(ddx_customer_item_tbl, p1_a0
1252 , p1_a1
1253 , p1_a2
1254 );
1255
1256
1257 end;
1258
1259
1260 procedure search_customer_items_all(p0_a0 JTF_VARCHAR2_TABLE_100
1261 , p0_a1 JTF_VARCHAR2_TABLE_300
1262 , p1_a0 out nocopy JTF_NUMBER_TABLE
1263 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1264 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1265 , x_rec_count out nocopy NUMBER
1266 , x_return_status out nocopy VARCHAR2
1267 )
1268
1269 as
1270 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1271 ddx_customer_item_tbl dpp_uiwrapper_pvt.item_tbl_type;
1272 ddindx binary_integer; indx binary_integer;
1273 begin
1274
1275 -- copy data to the local IN or IN-OUT args, if any
1276 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1277 , p0_a1
1278 );
1279
1280
1281
1282
1283 -- here's the delegated call to the old PL/SQL routine
1284 dpp_uiwrapper_pvt.search_customer_items_all(ddp_search_criteria,
1285 ddx_customer_item_tbl,
1286 x_rec_count,
1287 x_return_status);
1288
1289 -- copy data back from the local variables to OUT or IN-OUT args, if any
1290
1291 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p15(ddx_customer_item_tbl, p1_a0
1292 , p1_a1
1296
1293 , p1_a2
1294 );
1295
1297 end;
1298
1299 procedure search_warehouses(p0_a0 JTF_VARCHAR2_TABLE_100
1300 , p0_a1 JTF_VARCHAR2_TABLE_300
1301 , p1_a0 out nocopy JTF_NUMBER_TABLE
1302 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1303 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1304 , x_rec_count out nocopy NUMBER
1305 , x_return_status out nocopy VARCHAR2
1306 )
1307
1308 as
1309 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1310 ddx_warehouse_tbl dpp_uiwrapper_pvt.warehouse_tbl_type;
1311 ddindx binary_integer; indx binary_integer;
1312 begin
1313
1314 -- copy data to the local IN or IN-OUT args, if any
1315 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1316 , p0_a1
1317 );
1318
1319
1320
1321
1322 -- here's the delegated call to the old PL/SQL routine
1323 dpp_uiwrapper_pvt.search_warehouses(ddp_search_criteria,
1324 ddx_warehouse_tbl,
1325 x_rec_count,
1326 x_return_status);
1327
1328 -- copy data back from the local variables to OUT or IN-OUT args, if any
1329
1330 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p19(ddx_warehouse_tbl, p1_a0
1331 , p1_a1
1332 , p1_a2
1333 );
1334
1335
1336 end;
1337
1338 procedure get_inventorydetails(p0_a0 NUMBER
1339 , p0_a1 DATE
1340 , p0_a2 DATE
1341 , p0_a3 VARCHAR2
1342 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1343 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1344 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1345 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1346 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1347 , x_rec_count out nocopy NUMBER
1348 , x_return_status out nocopy VARCHAR2
1349 )
1350
1351 as
1352 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1353 ddp_inventorydetails_tbl dpp_uiwrapper_pvt.inventorydetails_tbl_type;
1354 ddindx binary_integer; indx binary_integer;
1355 begin
1356
1357 -- copy data to the local IN or IN-OUT args, if any
1358 ddp_hdr_rec.org_id := p0_a0;
1359 ddp_hdr_rec.effective_start_date := p0_a1;
1360 ddp_hdr_rec.effective_end_date := p0_a2;
1361 ddp_hdr_rec.currency_code := p0_a3;
1362
1363 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p24(ddp_inventorydetails_tbl, p1_a0
1364 , p1_a1
1365 , p1_a2
1366 , p1_a3
1367 , p1_a4
1368 );
1369
1370
1371
1372 -- here's the delegated call to the old PL/SQL routine
1373 dpp_uiwrapper_pvt.get_inventorydetails(ddp_hdr_rec,
1374 ddp_inventorydetails_tbl,
1375 x_rec_count,
1376 x_return_status);
1377
1378 -- copy data back from the local variables to OUT or IN-OUT args, if any
1379
1380 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p24(ddp_inventorydetails_tbl, p1_a0
1381 , p1_a1
1382 , p1_a2
1383 , p1_a3
1384 , p1_a4
1385 );
1386
1387
1388 end;
1389
1390 procedure get_customerinventory(p0_a0 NUMBER
1391 , p0_a1 DATE
1392 , p0_a2 DATE
1393 , p0_a3 VARCHAR2
1394 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1395 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1396 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1397 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1398 , x_rec_count out nocopy NUMBER
1399 , x_return_status out nocopy VARCHAR2
1400 )
1401
1402 as
1403 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1404 ddp_cust_inv_tbl dpp_uiwrapper_pvt.dpp_cust_inv_tbl_type;
1405 ddindx binary_integer; indx binary_integer;
1406 begin
1407
1408 -- copy data to the local IN or IN-OUT args, if any
1409 ddp_hdr_rec.org_id := p0_a0;
1410 ddp_hdr_rec.effective_start_date := p0_a1;
1411 ddp_hdr_rec.effective_end_date := p0_a2;
1412 ddp_hdr_rec.currency_code := p0_a3;
1413
1414 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p26(ddp_cust_inv_tbl, p1_a0
1415 , p1_a1
1416 , p1_a2
1417 , p1_a3
1418 );
1419
1420
1421
1422 -- here's the delegated call to the old PL/SQL routine
1423 dpp_uiwrapper_pvt.get_customerinventory(ddp_hdr_rec,
1424 ddp_cust_inv_tbl,
1425 x_rec_count,
1426 x_return_status);
1427
1428 -- copy data back from the local variables to OUT or IN-OUT args, if any
1429
1430 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p26(ddp_cust_inv_tbl, p1_a0
1431 , p1_a1
1432 , p1_a2
1433 , p1_a3
1434 );
1435
1436
1437 end;
1438
1439 procedure search_customers(p0_a0 JTF_VARCHAR2_TABLE_100
1440 , p0_a1 JTF_VARCHAR2_TABLE_300
1441 , p1_a0 out nocopy JTF_NUMBER_TABLE
1442 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1443 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_400
1444 , x_rec_count out nocopy NUMBER
1445 , x_return_status out nocopy VARCHAR2
1446 )
1447
1448 as
1449 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1450 ddx_customer_tbl dpp_uiwrapper_pvt.customer_tbl_type;
1451 ddindx binary_integer; indx binary_integer;
1455 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1452 begin
1453
1454 -- copy data to the local IN or IN-OUT args, if any
1456 , p0_a1
1457 );
1458
1459
1460
1461
1462 -- here's the delegated call to the old PL/SQL routine
1463 dpp_uiwrapper_pvt.search_customers(ddp_search_criteria,
1464 ddx_customer_tbl,
1465 x_rec_count,
1466 x_return_status);
1467
1468 -- copy data back from the local variables to OUT or IN-OUT args, if any
1469
1470 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p13(ddx_customer_tbl, p1_a0
1471 , p1_a1
1472 , p1_a2
1473 );
1474
1475
1476 end;
1477
1478
1479 procedure search_customers_all(p0_a0 JTF_VARCHAR2_TABLE_100
1480 , p0_a1 JTF_VARCHAR2_TABLE_300
1481 , p1_a0 out nocopy JTF_NUMBER_TABLE
1482 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1483 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_400
1484 , x_rec_count out nocopy NUMBER
1485 , x_return_status out nocopy VARCHAR2
1486 )
1487
1488 as
1489 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1490 ddx_customer_tbl dpp_uiwrapper_pvt.customer_tbl_type;
1491 ddindx binary_integer; indx binary_integer;
1492 begin
1493
1494 -- copy data to the local IN or IN-OUT args, if any
1495 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1496 , p0_a1
1497 );
1498
1499
1500
1501
1502 -- here's the delegated call to the old PL/SQL routine
1503 dpp_uiwrapper_pvt.search_customers_all(ddp_search_criteria,
1504 ddx_customer_tbl,
1505 x_rec_count,
1506 x_return_status);
1507
1508 -- copy data back from the local variables to OUT or IN-OUT args, if any
1509
1510 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p13(ddx_customer_tbl, p1_a0
1511 , p1_a1
1512 , p1_a2
1513 );
1514
1515
1516 end;
1517
1518 procedure get_lastprice(p0_a0 NUMBER
1519 , p0_a1 DATE
1520 , p0_a2 DATE
1521 , p0_a3 VARCHAR2
1522 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1523 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1524 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1525 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1526 , p1_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1527 , p1_a5 in out nocopy JTF_NUMBER_TABLE
1528 , p1_a6 in out nocopy JTF_NUMBER_TABLE
1529 , x_rec_count out nocopy NUMBER
1530 , x_return_status out nocopy VARCHAR2
1531 )
1532
1533 as
1534 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1535 ddp_cust_price_tbl dpp_uiwrapper_pvt.dpp_cust_price_tbl_type;
1536 ddindx binary_integer; indx binary_integer;
1537 begin
1538
1539 -- copy data to the local IN or IN-OUT args, if any
1540 ddp_hdr_rec.org_id := p0_a0;
1541 ddp_hdr_rec.effective_start_date := p0_a1;
1542 ddp_hdr_rec.effective_end_date := p0_a2;
1543 ddp_hdr_rec.currency_code := p0_a3;
1544
1545 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p28(ddp_cust_price_tbl, p1_a0
1546 , p1_a1
1547 , p1_a2
1548 , p1_a3
1549 , p1_a4
1550 , p1_a5
1551 , p1_a6
1552 );
1553
1554
1555
1556 -- here's the delegated call to the old PL/SQL routine
1557 dpp_uiwrapper_pvt.get_lastprice(ddp_hdr_rec,
1558 ddp_cust_price_tbl,
1559 x_rec_count,
1560 x_return_status);
1561
1565 , p1_a1
1562 -- copy data back from the local variables to OUT or IN-OUT args, if any
1563
1564 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p28(ddp_cust_price_tbl, p1_a0
1566 , p1_a2
1567 , p1_a3
1568 , p1_a4
1569 , p1_a5
1570 , p1_a6
1571 );
1572
1573
1574 end;
1575
1576 procedure get_listprice(p0_a0 NUMBER
1577 , p0_a1 DATE
1578 , p0_a2 DATE
1579 , p0_a3 VARCHAR2
1580 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1581 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1582 , x_rec_count out nocopy NUMBER
1583 , x_return_status out nocopy VARCHAR2
1584 )
1585
1586 as
1587 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1588 ddp_listprice_tbl dpp_uiwrapper_pvt.dpp_list_price_tbl_type;
1589 ddindx binary_integer; indx binary_integer;
1590 begin
1591
1592 -- copy data to the local IN or IN-OUT args, if any
1593 ddp_hdr_rec.org_id := p0_a0;
1594 ddp_hdr_rec.effective_start_date := p0_a1;
1595 ddp_hdr_rec.effective_end_date := p0_a2;
1596 ddp_hdr_rec.currency_code := p0_a3;
1597
1598 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p30(ddp_listprice_tbl, p1_a0
1599 , p1_a1
1600 );
1601
1602
1603
1604 -- here's the delegated call to the old PL/SQL routine
1605 dpp_uiwrapper_pvt.get_listprice(ddp_hdr_rec,
1606 ddp_listprice_tbl,
1607 x_rec_count,
1608 x_return_status);
1609
1610 -- copy data back from the local variables to OUT or IN-OUT args, if any
1611
1612 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p30(ddp_listprice_tbl, p1_a0
1613 , p1_a1
1614 );
1615
1616
1617 end;
1618
1619 procedure get_vendor(p0_a0 in out nocopy NUMBER
1620 , p0_a1 in out nocopy VARCHAR2
1621 , p0_a2 in out nocopy VARCHAR2
1622 , x_rec_count out nocopy NUMBER
1623 , x_return_status out nocopy VARCHAR2
1624 )
1625
1626 as
1627 ddp_vendor_rec dpp_uiwrapper_pvt.vendor_rec_type;
1628 ddindx binary_integer; indx binary_integer;
1629 begin
1630
1631 -- copy data to the local IN or IN-OUT args, if any
1632 ddp_vendor_rec.vendor_id := p0_a0;
1633 ddp_vendor_rec.vendor_number := p0_a1;
1634 ddp_vendor_rec.vendor_name := p0_a2;
1635
1636
1637
1638 -- here's the delegated call to the old PL/SQL routine
1639 dpp_uiwrapper_pvt.get_vendor(ddp_vendor_rec,
1640 x_rec_count,
1641 x_return_status);
1642
1643 -- copy data back from the local variables to OUT or IN-OUT args, if any
1644 p0_a0 := ddp_vendor_rec.vendor_id;
1645 p0_a1 := ddp_vendor_rec.vendor_number;
1646 p0_a2 := ddp_vendor_rec.vendor_name;
1647
1648
1649 end;
1650
1651 procedure get_vendor_site(p0_a0 in out nocopy NUMBER
1652 , p0_a1 in out nocopy NUMBER
1653 , p0_a2 in out nocopy VARCHAR2
1654 , p0_a3 in out nocopy VARCHAR2
1658 , p0_a7 in out nocopy VARCHAR2
1655 , p0_a4 in out nocopy VARCHAR2
1656 , p0_a5 in out nocopy VARCHAR2
1657 , p0_a6 in out nocopy VARCHAR2
1659 , p0_a8 in out nocopy VARCHAR2
1660 , p0_a9 in out nocopy VARCHAR2
1661 , x_rec_count out nocopy NUMBER
1662 , x_return_status out nocopy VARCHAR2
1663 )
1664
1665 as
1666 ddp_vendor_site_rec dpp_uiwrapper_pvt.vendor_site_rec_type;
1667 ddindx binary_integer; indx binary_integer;
1668 begin
1669
1670 -- copy data to the local IN or IN-OUT args, if any
1671 ddp_vendor_site_rec.vendor_id := p0_a0;
1672 ddp_vendor_site_rec.vendor_site_id := p0_a1;
1673 ddp_vendor_site_rec.vendor_site_code := p0_a2;
1674 ddp_vendor_site_rec.address_line1 := p0_a3;
1675 ddp_vendor_site_rec.address_line2 := p0_a4;
1676 ddp_vendor_site_rec.address_line3 := p0_a5;
1677 ddp_vendor_site_rec.city := p0_a6;
1678 ddp_vendor_site_rec.state := p0_a7;
1679 ddp_vendor_site_rec.zip := p0_a8;
1680 ddp_vendor_site_rec.country := p0_a9;
1681
1682
1683
1684 -- here's the delegated call to the old PL/SQL routine
1685 dpp_uiwrapper_pvt.get_vendor_site(ddp_vendor_site_rec,
1686 x_rec_count,
1687 x_return_status);
1688
1689 -- copy data back from the local variables to OUT or IN-OUT args, if any
1690 p0_a0 := ddp_vendor_site_rec.vendor_id;
1691 p0_a1 := ddp_vendor_site_rec.vendor_site_id;
1692 p0_a2 := ddp_vendor_site_rec.vendor_site_code;
1693 p0_a3 := ddp_vendor_site_rec.address_line1;
1694 p0_a4 := ddp_vendor_site_rec.address_line2;
1695 p0_a5 := ddp_vendor_site_rec.address_line3;
1696 p0_a6 := ddp_vendor_site_rec.city;
1697 p0_a7 := ddp_vendor_site_rec.state;
1698 p0_a8 := ddp_vendor_site_rec.zip;
1699 p0_a9 := ddp_vendor_site_rec.country;
1700
1701
1702 end;
1703
1704 procedure get_vendor_contact(p0_a0 in out nocopy NUMBER
1705 , p0_a1 in out nocopy NUMBER
1706 , p0_a2 in out nocopy VARCHAR2
1707 , p0_a3 in out nocopy VARCHAR2
1708 , p0_a4 in out nocopy VARCHAR2
1709 , p0_a5 in out nocopy VARCHAR2
1710 , p0_a6 in out nocopy VARCHAR2
1711 , p0_a7 in out nocopy VARCHAR2
1712 , x_rec_count out nocopy NUMBER
1713 , x_return_status out nocopy VARCHAR2
1714 )
1715
1716 as
1717 ddp_vendor_contact_rec dpp_uiwrapper_pvt.vendor_contact_rec_type;
1718 ddindx binary_integer; indx binary_integer;
1719 begin
1720
1721 -- copy data to the local IN or IN-OUT args, if any
1722 ddp_vendor_contact_rec.vendor_site_id := p0_a0;
1723 ddp_vendor_contact_rec.vendor_contact_id := p0_a1;
1724 ddp_vendor_contact_rec.contact_first_name := p0_a2;
1725 ddp_vendor_contact_rec.contact_middle_name := p0_a3;
1726 ddp_vendor_contact_rec.contact_last_name := p0_a4;
1727 ddp_vendor_contact_rec.contact_phone := p0_a5;
1728 ddp_vendor_contact_rec.contact_email_address := p0_a6;
1729 ddp_vendor_contact_rec.contact_fax := p0_a7;
1730
1731
1732
1733 -- here's the delegated call to the old PL/SQL routine
1734 dpp_uiwrapper_pvt.get_vendor_contact(ddp_vendor_contact_rec,
1738 -- copy data back from the local variables to OUT or IN-OUT args, if any
1735 x_rec_count,
1736 x_return_status);
1737
1739 p0_a0 := ddp_vendor_contact_rec.vendor_site_id;
1740 p0_a1 := ddp_vendor_contact_rec.vendor_contact_id;
1741 p0_a2 := ddp_vendor_contact_rec.contact_first_name;
1742 p0_a3 := ddp_vendor_contact_rec.contact_middle_name;
1743 p0_a4 := ddp_vendor_contact_rec.contact_last_name;
1744 p0_a5 := ddp_vendor_contact_rec.contact_phone;
1745 p0_a6 := ddp_vendor_contact_rec.contact_email_address;
1746 p0_a7 := ddp_vendor_contact_rec.contact_fax;
1747
1748
1749 end;
1750
1751 procedure get_warehouse(p0_a0 in out nocopy JTF_NUMBER_TABLE
1752 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1753 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_300
1754 , x_rec_count out nocopy NUMBER
1755 , x_return_status out nocopy VARCHAR2
1756 )
1757
1758 as
1759 ddp_warehouse_tbl dpp_uiwrapper_pvt.warehouse_tbl_type;
1760 ddindx binary_integer; indx binary_integer;
1761 begin
1762
1763 -- copy data to the local IN or IN-OUT args, if any
1764 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p19(ddp_warehouse_tbl, p0_a0
1765 , p0_a1
1766 , p0_a2
1767 );
1768
1769
1770
1771 -- here's the delegated call to the old PL/SQL routine
1772 dpp_uiwrapper_pvt.get_warehouse(ddp_warehouse_tbl,
1773 x_rec_count,
1774 x_return_status);
1775
1776 -- copy data back from the local variables to OUT or IN-OUT args, if any
1777 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p19(ddp_warehouse_tbl, p0_a0
1778 , p0_a1
1779 , p0_a2
1780 );
1781
1782
1783 end;
1784
1785 procedure get_customer(p0_a0 in out nocopy JTF_NUMBER_TABLE
1786 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1787 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_400
1788 , x_rec_count out nocopy NUMBER
1792 as
1789 , x_return_status out nocopy VARCHAR2
1790 )
1791
1793 ddp_customer_tbl dpp_uiwrapper_pvt.customer_tbl_type;
1794 ddindx binary_integer; indx binary_integer;
1795 begin
1796
1797 -- copy data to the local IN or IN-OUT args, if any
1798 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p13(ddp_customer_tbl, p0_a0
1799 , p0_a1
1800 , p0_a2
1801 );
1802
1803
1804
1805 -- here's the delegated call to the old PL/SQL routine
1806 dpp_uiwrapper_pvt.get_customer(ddp_customer_tbl,
1807 x_rec_count,
1808 x_return_status);
1809
1810 -- copy data back from the local variables to OUT or IN-OUT args, if any
1811 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p13(ddp_customer_tbl, p0_a0
1812 , p0_a1
1813 , p0_a2
1814 );
1815
1816
1817 end;
1818
1819 procedure get_product(p0_a0 in out nocopy JTF_NUMBER_TABLE
1820 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1821 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_300
1822 , p_org_id NUMBER
1823 , x_rec_count out nocopy NUMBER
1824 , x_return_status out nocopy VARCHAR2
1825 )
1826
1827 as
1828 ddp_item_tbl dpp_uiwrapper_pvt.item_tbl_type;
1829 ddindx binary_integer; indx binary_integer;
1830 begin
1831
1832 -- copy data to the local IN or IN-OUT args, if any
1833 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p15(ddp_item_tbl, p0_a0
1834 , p0_a1
1835 , p0_a2
1836 );
1837
1838
1839
1840
1841 -- here's the delegated call to the old PL/SQL routine
1842 dpp_uiwrapper_pvt.get_product(ddp_item_tbl,
1843 p_org_id,
1844 x_rec_count,
1845 x_return_status);
1846
1847 -- copy data back from the local variables to OUT or IN-OUT args, if any
1848 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p15(ddp_item_tbl, p0_a0
1849 , p0_a1
1850 , p0_a2
1851 );
1852
1853
1854
1855 end;
1856
1857 procedure get_allapprovers(p_api_version NUMBER
1858 , p_init_msg_list VARCHAR2
1859 , p_validation_level NUMBER
1860 , x_return_status out nocopy VARCHAR2
1861 , x_msg_data out nocopy VARCHAR2
1862 , x_msg_count out nocopy NUMBER
1863 , p6_a0 VARCHAR2
1864 , p6_a1 NUMBER
1865 , p6_a2 VARCHAR2
1866 , p6_a3 VARCHAR2
1867 , p6_a4 NUMBER
1868 , p7_a0 out nocopy JTF_NUMBER_TABLE
1869 , p7_a1 out nocopy JTF_NUMBER_TABLE
1870 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
1871 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
1872 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
1873 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
1874 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
1875 , p7_a7 out nocopy JTF_NUMBER_TABLE
1876 , p7_a8 out nocopy JTF_NUMBER_TABLE
1877 , p7_a9 out nocopy JTF_NUMBER_TABLE
1878 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_500
1879 , p7_a11 out nocopy JTF_NUMBER_TABLE
1880 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_300
1881 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
1882 )
1883
1884 as
1885 ddp_approval_rec dpp_uiwrapper_pvt.approval_rec_type;
1886 ddp_approversout dpp_uiwrapper_pvt.approverstable;
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 ddp_approval_rec.object_type := p6_a0;
1898 ddp_approval_rec.object_id := p6_a1;
1899 ddp_approval_rec.status_code := p6_a2;
1900 ddp_approval_rec.action_code := p6_a3;
1901 ddp_approval_rec.action_performed_by := p6_a4;
1902
1903
1904 -- here's the delegated call to the old PL/SQL routine
1905 dpp_uiwrapper_pvt.get_allapprovers(p_api_version,
1906 p_init_msg_list,
1907 p_validation_level,
1908 x_return_status,
1909 x_msg_data,
1910 x_msg_count,
1911 ddp_approval_rec,
1912 ddp_approversout);
1913
1914 -- copy data back from the local variables to OUT or IN-OUT args, if any
1915
1916
1917
1918
1919
1920
1921
1922 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p33(ddp_approversout, p7_a0
1923 , p7_a1
1924 , p7_a2
1925 , p7_a3
1926 , p7_a4
1927 , p7_a5
1928 , p7_a6
1929 , p7_a7
1930 , p7_a8
1931 , p7_a9
1932 , p7_a10
1933 , p7_a11
1934 , p7_a12
1935 , p7_a13
1936 );
1937 end;
1938
1939 procedure process_user_action(p_api_version NUMBER
1940 , p_init_msg_list VARCHAR2
1941 , p_commit VARCHAR2
1942 , p_validation_level NUMBER
1943 , x_return_status out nocopy VARCHAR2
1944 , x_msg_data out nocopy VARCHAR2
1945 , x_msg_count out nocopy NUMBER
1946 , p7_a0 VARCHAR2
1947 , p7_a1 NUMBER
1948 , p7_a2 VARCHAR2
1949 , p7_a3 VARCHAR2
1950 , p7_a4 NUMBER
1951 , p_approver_id NUMBER
1952 , x_final_approval_flag out nocopy VARCHAR2
1953 )
1954
1955 as
1956 ddp_approval_rec dpp_uiwrapper_pvt.approval_rec_type;
1957 ddindx binary_integer; indx binary_integer;
1958 begin
1959
1960 -- copy data to the local IN or IN-OUT args, if any
1961
1962
1963
1964
1965
1966
1967
1968 ddp_approval_rec.object_type := p7_a0;
1969 ddp_approval_rec.object_id := p7_a1;
1970 ddp_approval_rec.status_code := p7_a2;
1971 ddp_approval_rec.action_code := p7_a3;
1972 ddp_approval_rec.action_performed_by := p7_a4;
1973
1974
1975
1976 -- here's the delegated call to the old PL/SQL routine
1977 dpp_uiwrapper_pvt.process_user_action(p_api_version,
1978 p_init_msg_list,
1979 p_commit,
1980 p_validation_level,
1981 x_return_status,
1982 x_msg_data,
1983 x_msg_count,
1984 ddp_approval_rec,
1985 p_approver_id,
1986 x_final_approval_flag);
1987
1988 -- copy data back from the local variables to OUT or IN-OUT args, if any
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998 end;
1999
2000 procedure raise_business_event(p_api_version NUMBER
2001 , p_init_msg_list VARCHAR2
2002 , p_commit VARCHAR2
2003 , p_validation_level NUMBER
2004 , x_return_status out nocopy VARCHAR2
2005 , x_msg_count out nocopy NUMBER
2006 , x_msg_data out nocopy VARCHAR2
2007 , p7_a0 NUMBER
2008 , p7_a1 VARCHAR2
2009 , p7_a2 VARCHAR2
2010 , p7_a3 NUMBER
2011 , p7_a4 VARCHAR2
2012 , p7_a5 VARCHAR2
2013 , p_txn_line_id JTF_NUMBER_TABLE
2014 )
2015
2016 as
2017 ddp_txn_hdr_rec dpp_uiwrapper_pvt.dpp_txn_hdr_rec_type;
2018 ddp_txn_line_id dpp_uiwrapper_pvt.dpp_txn_line_tbl_type;
2019 ddindx binary_integer; indx binary_integer;
2020 begin
2021
2022 -- copy data to the local IN or IN-OUT args, if any
2023
2024
2025
2026
2027
2028
2029
2030 ddp_txn_hdr_rec.transaction_header_id := p7_a0;
2031 ddp_txn_hdr_rec.transaction_number := p7_a1;
2032 ddp_txn_hdr_rec.process_code := p7_a2;
2033 ddp_txn_hdr_rec.claim_id := p7_a3;
2034 ddp_txn_hdr_rec.claim_type_flag := p7_a4;
2035 ddp_txn_hdr_rec.claim_creation_source := p7_a5;
2036
2037 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p35(ddp_txn_line_id, p_txn_line_id);
2038
2039 -- here's the delegated call to the old PL/SQL routine
2040 dpp_uiwrapper_pvt.raise_business_event(p_api_version,
2041 p_init_msg_list,
2042 p_commit,
2043 p_validation_level,
2044 x_return_status,
2045 x_msg_count,
2046 x_msg_data,
2047 ddp_txn_hdr_rec,
2048 ddp_txn_line_id);
2049
2050 -- copy data back from the local variables to OUT or IN-OUT args, if any
2051
2052
2053
2054
2055
2056
2057
2058
2059 end;
2060
2061 end dpp_uiwrapper_pvt_w;