[Home] [Help]
PACKAGE BODY: APPS.DPP_UIWRAPPER_PVT_W
Source
1 package body dpp_uiwrapper_pvt_w as
2 /* $Header: dppvuirb.pls 120.7 2008/05/19 09:17:02 cthour noship $ */
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
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
425 , a3 JTF_VARCHAR2_TABLE_100
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_100
449 , a2 out nocopy JTF_VARCHAR2_TABLE_300
450 , a3 out nocopy JTF_VARCHAR2_TABLE_100
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_100();
457 a2 := JTF_VARCHAR2_TABLE_300();
458 a3 := JTF_VARCHAR2_TABLE_100();
459 else
460 a0 := JTF_NUMBER_TABLE();
461 a1 := JTF_VARCHAR2_TABLE_100();
462 a2 := JTF_VARCHAR2_TABLE_300();
463 a3 := JTF_VARCHAR2_TABLE_100();
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;
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
567 ddindx binary_integer; indx binary_integer;
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
602 if a0.count > 0 then
599 ddindx binary_integer; indx binary_integer;
600 begin
601 if a0 is not null and 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();
705 a3 := JTF_NUMBER_TABLE();
706 if t.count > 0 then
707 a0.extend(t.count);
708 a1.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;
757 end if;
754 indx := a0.next(indx);
755 end loop;
756 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);
847 a1.extend(t.count);
848 ddindx := t.first;
849 indx := 1;
850 while true loop
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;
911 , a3 out nocopy JTF_VARCHAR2_TABLE_200
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
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;
983 a10(indx) := t(ddindx).source;
984 a11(indx) := t(ddindx).approver_sequence;
985 a12(indx) := t(ddindx).approver_email;
986 a13(indx) := t(ddindx).approver_group_name;
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
1065 x_return_status);
1062 dpp_uiwrapper_pvt.search_vendors(ddp_search_criteria,
1063 ddx_vendor_tbl,
1064 x_rec_count,
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
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
1139 , p1_a7 out nocopy JTF_VARCHAR2_TABLE_100
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_100
1183 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1184 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_100
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;
1235 -- copy data to the local IN or IN-OUT args, if any
1232 ddindx binary_integer; indx binary_integer;
1233 begin
1234
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 procedure search_warehouses(p0_a0 JTF_VARCHAR2_TABLE_100
1260 , p0_a1 JTF_VARCHAR2_TABLE_300
1261 , p1_a0 out nocopy JTF_NUMBER_TABLE
1262 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1263 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_300
1264 , x_rec_count out nocopy NUMBER
1265 , x_return_status out nocopy VARCHAR2
1266 )
1267
1268 as
1269 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1270 ddx_warehouse_tbl dpp_uiwrapper_pvt.warehouse_tbl_type;
1271 ddindx binary_integer; indx binary_integer;
1272 begin
1273
1274 -- copy data to the local IN or IN-OUT args, if any
1275 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1276 , p0_a1
1277 );
1278
1279
1280
1281
1282 -- here's the delegated call to the old PL/SQL routine
1283 dpp_uiwrapper_pvt.search_warehouses(ddp_search_criteria,
1284 ddx_warehouse_tbl,
1285 x_rec_count,
1286 x_return_status);
1287
1288 -- copy data back from the local variables to OUT or IN-OUT args, if any
1289
1290 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p19(ddx_warehouse_tbl, p1_a0
1291 , p1_a1
1292 , p1_a2
1293 );
1294
1295
1296 end;
1297
1298 procedure get_inventorydetails(p0_a0 NUMBER
1299 , p0_a1 DATE
1300 , p0_a2 DATE
1301 , p0_a3 VARCHAR2
1302 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1303 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1304 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1305 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1306 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1307 , x_rec_count out nocopy NUMBER
1308 , x_return_status out nocopy VARCHAR2
1309 )
1310
1311 as
1312 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1313 ddp_inventorydetails_tbl dpp_uiwrapper_pvt.inventorydetails_tbl_type;
1314 ddindx binary_integer; indx binary_integer;
1315 begin
1316
1317 -- copy data to the local IN or IN-OUT args, if any
1318 ddp_hdr_rec.org_id := p0_a0;
1319 ddp_hdr_rec.effective_start_date := p0_a1;
1320 ddp_hdr_rec.effective_end_date := p0_a2;
1321 ddp_hdr_rec.currency_code := p0_a3;
1322
1323 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p24(ddp_inventorydetails_tbl, p1_a0
1324 , p1_a1
1325 , p1_a2
1326 , p1_a3
1327 , p1_a4
1328 );
1329
1330
1331
1332 -- here's the delegated call to the old PL/SQL routine
1333 dpp_uiwrapper_pvt.get_inventorydetails(ddp_hdr_rec,
1334 ddp_inventorydetails_tbl,
1335 x_rec_count,
1336 x_return_status);
1337
1338 -- copy data back from the local variables to OUT or IN-OUT args, if any
1339
1340 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p24(ddp_inventorydetails_tbl, p1_a0
1341 , p1_a1
1342 , p1_a2
1343 , p1_a3
1344 , p1_a4
1345 );
1346
1347
1348 end;
1349
1350 procedure get_customerinventory(p0_a0 NUMBER
1351 , p0_a1 DATE
1352 , p0_a2 DATE
1353 , p0_a3 VARCHAR2
1354 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1355 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1356 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1357 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1358 , x_rec_count out nocopy NUMBER
1359 , x_return_status out nocopy VARCHAR2
1360 )
1361
1362 as
1363 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1364 ddp_cust_inv_tbl dpp_uiwrapper_pvt.dpp_cust_inv_tbl_type;
1365 ddindx binary_integer; indx binary_integer;
1366 begin
1367
1368 -- copy data to the local IN or IN-OUT args, if any
1369 ddp_hdr_rec.org_id := p0_a0;
1370 ddp_hdr_rec.effective_start_date := p0_a1;
1371 ddp_hdr_rec.effective_end_date := p0_a2;
1372 ddp_hdr_rec.currency_code := p0_a3;
1373
1374 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p26(ddp_cust_inv_tbl, p1_a0
1375 , p1_a1
1376 , p1_a2
1377 , p1_a3
1378 );
1379
1380
1381
1382 -- here's the delegated call to the old PL/SQL routine
1383 dpp_uiwrapper_pvt.get_customerinventory(ddp_hdr_rec,
1384 ddp_cust_inv_tbl,
1385 x_rec_count,
1386 x_return_status);
1387
1388 -- copy data back from the local variables to OUT or IN-OUT args, if any
1389
1390 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p26(ddp_cust_inv_tbl, p1_a0
1391 , p1_a1
1392 , p1_a2
1393 , p1_a3
1394 );
1395
1396
1397 end;
1398
1399 procedure search_customers(p0_a0 JTF_VARCHAR2_TABLE_100
1400 , p0_a1 JTF_VARCHAR2_TABLE_300
1401 , p1_a0 out nocopy JTF_NUMBER_TABLE
1402 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1403 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_400
1404 , x_rec_count out nocopy NUMBER
1405 , x_return_status out nocopy VARCHAR2
1409 ddp_search_criteria dpp_uiwrapper_pvt.search_criteria_tbl_type;
1406 )
1407
1408 as
1410 ddx_customer_tbl dpp_uiwrapper_pvt.customer_tbl_type;
1411 ddindx binary_integer; indx binary_integer;
1412 begin
1413
1414 -- copy data to the local IN or IN-OUT args, if any
1415 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p5(ddp_search_criteria, p0_a0
1416 , p0_a1
1417 );
1418
1419
1420
1421
1422 -- here's the delegated call to the old PL/SQL routine
1423 dpp_uiwrapper_pvt.search_customers(ddp_search_criteria,
1424 ddx_customer_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_p13(ddx_customer_tbl, p1_a0
1431 , p1_a1
1432 , p1_a2
1433 );
1434
1435
1436 end;
1437
1438 procedure get_lastprice(p0_a0 NUMBER
1439 , p0_a1 DATE
1440 , p0_a2 DATE
1441 , p0_a3 VARCHAR2
1442 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1443 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1444 , p1_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1445 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1446 , p1_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1447 , p1_a5 in out nocopy JTF_NUMBER_TABLE
1448 , p1_a6 in out nocopy JTF_NUMBER_TABLE
1449 , x_rec_count out nocopy NUMBER
1450 , x_return_status out nocopy VARCHAR2
1451 )
1452
1453 as
1454 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1455 ddp_cust_price_tbl dpp_uiwrapper_pvt.dpp_cust_price_tbl_type;
1456 ddindx binary_integer; indx binary_integer;
1457 begin
1458
1459 -- copy data to the local IN or IN-OUT args, if any
1460 ddp_hdr_rec.org_id := p0_a0;
1461 ddp_hdr_rec.effective_start_date := p0_a1;
1462 ddp_hdr_rec.effective_end_date := p0_a2;
1463 ddp_hdr_rec.currency_code := p0_a3;
1464
1465 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p28(ddp_cust_price_tbl, p1_a0
1466 , p1_a1
1467 , p1_a2
1468 , p1_a3
1469 , p1_a4
1470 , p1_a5
1471 , p1_a6
1472 );
1473
1474
1475
1476 -- here's the delegated call to the old PL/SQL routine
1477 dpp_uiwrapper_pvt.get_lastprice(ddp_hdr_rec,
1478 ddp_cust_price_tbl,
1479 x_rec_count,
1480 x_return_status);
1481
1482 -- copy data back from the local variables to OUT or IN-OUT args, if any
1483
1484 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p28(ddp_cust_price_tbl, p1_a0
1485 , p1_a1
1486 , p1_a2
1487 , p1_a3
1488 , p1_a4
1489 , p1_a5
1490 , p1_a6
1491 );
1492
1493
1494 end;
1495
1496 procedure get_listprice(p0_a0 NUMBER
1497 , p0_a1 DATE
1498 , p0_a2 DATE
1499 , p0_a3 VARCHAR2
1500 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1501 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1502 , x_rec_count out nocopy NUMBER
1503 , x_return_status out nocopy VARCHAR2
1504 )
1505
1506 as
1507 ddp_hdr_rec dpp_uiwrapper_pvt.dpp_inv_hdr_rec_type;
1508 ddp_listprice_tbl dpp_uiwrapper_pvt.dpp_list_price_tbl_type;
1509 ddindx binary_integer; indx binary_integer;
1510 begin
1511
1512 -- copy data to the local IN or IN-OUT args, if any
1513 ddp_hdr_rec.org_id := p0_a0;
1514 ddp_hdr_rec.effective_start_date := p0_a1;
1515 ddp_hdr_rec.effective_end_date := p0_a2;
1516 ddp_hdr_rec.currency_code := p0_a3;
1517
1518 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p30(ddp_listprice_tbl, p1_a0
1519 , p1_a1
1520 );
1521
1522
1523
1524 -- here's the delegated call to the old PL/SQL routine
1525 dpp_uiwrapper_pvt.get_listprice(ddp_hdr_rec,
1526 ddp_listprice_tbl,
1527 x_rec_count,
1528 x_return_status);
1529
1530 -- copy data back from the local variables to OUT or IN-OUT args, if any
1531
1532 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p30(ddp_listprice_tbl, p1_a0
1533 , p1_a1
1534 );
1535
1536
1537 end;
1538
1539 procedure get_vendor(p0_a0 in out nocopy NUMBER
1540 , p0_a1 in out nocopy VARCHAR2
1541 , p0_a2 in out nocopy VARCHAR2
1542 , x_rec_count out nocopy NUMBER
1543 , x_return_status out nocopy VARCHAR2
1544 )
1545
1546 as
1547 ddp_vendor_rec dpp_uiwrapper_pvt.vendor_rec_type;
1548 ddindx binary_integer; indx binary_integer;
1549 begin
1550
1551 -- copy data to the local IN or IN-OUT args, if any
1552 ddp_vendor_rec.vendor_id := p0_a0;
1553 ddp_vendor_rec.vendor_number := p0_a1;
1554 ddp_vendor_rec.vendor_name := p0_a2;
1555
1556
1557
1558 -- here's the delegated call to the old PL/SQL routine
1559 dpp_uiwrapper_pvt.get_vendor(ddp_vendor_rec,
1560 x_rec_count,
1561 x_return_status);
1562
1563 -- copy data back from the local variables to OUT or IN-OUT args, if any
1564 p0_a0 := ddp_vendor_rec.vendor_id;
1565 p0_a1 := ddp_vendor_rec.vendor_number;
1566 p0_a2 := ddp_vendor_rec.vendor_name;
1567
1568
1569 end;
1570
1571 procedure get_vendor_site(p0_a0 in out nocopy NUMBER
1572 , p0_a1 in out nocopy NUMBER
1573 , p0_a2 in out nocopy VARCHAR2
1574 , p0_a3 in out nocopy VARCHAR2
1575 , p0_a4 in out nocopy VARCHAR2
1576 , p0_a5 in out nocopy VARCHAR2
1577 , p0_a6 in out nocopy VARCHAR2
1578 , p0_a7 in out nocopy VARCHAR2
1579 , p0_a8 in out nocopy VARCHAR2
1580 , p0_a9 in out nocopy VARCHAR2
1584
1581 , x_rec_count out nocopy NUMBER
1582 , x_return_status out nocopy VARCHAR2
1583 )
1585 as
1586 ddp_vendor_site_rec dpp_uiwrapper_pvt.vendor_site_rec_type;
1587 ddindx binary_integer; indx binary_integer;
1588 begin
1589
1590 -- copy data to the local IN or IN-OUT args, if any
1591 ddp_vendor_site_rec.vendor_id := p0_a0;
1592 ddp_vendor_site_rec.vendor_site_id := p0_a1;
1593 ddp_vendor_site_rec.vendor_site_code := p0_a2;
1594 ddp_vendor_site_rec.address_line1 := p0_a3;
1595 ddp_vendor_site_rec.address_line2 := p0_a4;
1596 ddp_vendor_site_rec.address_line3 := p0_a5;
1597 ddp_vendor_site_rec.city := p0_a6;
1598 ddp_vendor_site_rec.state := p0_a7;
1599 ddp_vendor_site_rec.zip := p0_a8;
1600 ddp_vendor_site_rec.country := p0_a9;
1601
1602
1603
1604 -- here's the delegated call to the old PL/SQL routine
1605 dpp_uiwrapper_pvt.get_vendor_site(ddp_vendor_site_rec,
1606 x_rec_count,
1607 x_return_status);
1608
1609 -- copy data back from the local variables to OUT or IN-OUT args, if any
1610 p0_a0 := ddp_vendor_site_rec.vendor_id;
1611 p0_a1 := ddp_vendor_site_rec.vendor_site_id;
1612 p0_a2 := ddp_vendor_site_rec.vendor_site_code;
1613 p0_a3 := ddp_vendor_site_rec.address_line1;
1614 p0_a4 := ddp_vendor_site_rec.address_line2;
1615 p0_a5 := ddp_vendor_site_rec.address_line3;
1616 p0_a6 := ddp_vendor_site_rec.city;
1617 p0_a7 := ddp_vendor_site_rec.state;
1618 p0_a8 := ddp_vendor_site_rec.zip;
1619 p0_a9 := ddp_vendor_site_rec.country;
1620
1621
1622 end;
1623
1624 procedure get_vendor_contact(p0_a0 in out nocopy NUMBER
1625 , p0_a1 in out nocopy NUMBER
1626 , p0_a2 in out nocopy VARCHAR2
1627 , p0_a3 in out nocopy VARCHAR2
1628 , p0_a4 in out nocopy VARCHAR2
1629 , p0_a5 in out nocopy VARCHAR2
1630 , p0_a6 in out nocopy VARCHAR2
1631 , p0_a7 in out nocopy VARCHAR2
1632 , x_rec_count out nocopy NUMBER
1633 , x_return_status out nocopy VARCHAR2
1634 )
1635
1636 as
1637 ddp_vendor_contact_rec dpp_uiwrapper_pvt.vendor_contact_rec_type;
1638 ddindx binary_integer; indx binary_integer;
1639 begin
1640
1641 -- copy data to the local IN or IN-OUT args, if any
1642 ddp_vendor_contact_rec.vendor_site_id := p0_a0;
1643 ddp_vendor_contact_rec.vendor_contact_id := p0_a1;
1644 ddp_vendor_contact_rec.contact_first_name := p0_a2;
1645 ddp_vendor_contact_rec.contact_middle_name := p0_a3;
1646 ddp_vendor_contact_rec.contact_last_name := p0_a4;
1647 ddp_vendor_contact_rec.contact_phone := p0_a5;
1648 ddp_vendor_contact_rec.contact_email_address := p0_a6;
1649 ddp_vendor_contact_rec.contact_fax := p0_a7;
1650
1651
1652
1653 -- here's the delegated call to the old PL/SQL routine
1654 dpp_uiwrapper_pvt.get_vendor_contact(ddp_vendor_contact_rec,
1655 x_rec_count,
1656 x_return_status);
1657
1658 -- copy data back from the local variables to OUT or IN-OUT args, if any
1659 p0_a0 := ddp_vendor_contact_rec.vendor_site_id;
1660 p0_a1 := ddp_vendor_contact_rec.vendor_contact_id;
1661 p0_a2 := ddp_vendor_contact_rec.contact_first_name;
1662 p0_a3 := ddp_vendor_contact_rec.contact_middle_name;
1663 p0_a4 := ddp_vendor_contact_rec.contact_last_name;
1664 p0_a5 := ddp_vendor_contact_rec.contact_phone;
1665 p0_a6 := ddp_vendor_contact_rec.contact_email_address;
1666 p0_a7 := ddp_vendor_contact_rec.contact_fax;
1667
1668
1669 end;
1670
1671 procedure get_warehouse(p0_a0 in out nocopy JTF_NUMBER_TABLE
1672 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1673 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_300
1674 , x_rec_count out nocopy NUMBER
1675 , x_return_status out nocopy VARCHAR2
1676 )
1677
1678 as
1679 ddp_warehouse_tbl dpp_uiwrapper_pvt.warehouse_tbl_type;
1680 ddindx binary_integer; indx binary_integer;
1681 begin
1682
1683 -- copy data to the local IN or IN-OUT args, if any
1684 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p19(ddp_warehouse_tbl, p0_a0
1685 , p0_a1
1686 , p0_a2
1687 );
1688
1689
1690
1691 -- here's the delegated call to the old PL/SQL routine
1692 dpp_uiwrapper_pvt.get_warehouse(ddp_warehouse_tbl,
1693 x_rec_count,
1694 x_return_status);
1695
1696 -- copy data back from the local variables to OUT or IN-OUT args, if any
1697 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p19(ddp_warehouse_tbl, p0_a0
1698 , p0_a1
1699 , p0_a2
1700 );
1701
1702
1703 end;
1704
1705 procedure get_customer(p0_a0 in out nocopy JTF_NUMBER_TABLE
1706 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1707 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_400
1708 , x_rec_count out nocopy NUMBER
1709 , x_return_status out nocopy VARCHAR2
1710 )
1711
1712 as
1713 ddp_customer_tbl dpp_uiwrapper_pvt.customer_tbl_type;
1714 ddindx binary_integer; indx binary_integer;
1715 begin
1716
1717 -- copy data to the local IN or IN-OUT args, if any
1718 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p13(ddp_customer_tbl, p0_a0
1719 , p0_a1
1720 , p0_a2
1721 );
1722
1723
1724
1725 -- here's the delegated call to the old PL/SQL routine
1726 dpp_uiwrapper_pvt.get_customer(ddp_customer_tbl,
1727 x_rec_count,
1728 x_return_status);
1729
1730 -- copy data back from the local variables to OUT or IN-OUT args, if any
1731 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p13(ddp_customer_tbl, p0_a0
1732 , p0_a1
1733 , p0_a2
1734 );
1735
1736
1737 end;
1738
1742 , p_org_id NUMBER
1739 procedure get_product(p0_a0 in out nocopy JTF_NUMBER_TABLE
1740 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1741 , p0_a2 in out nocopy JTF_VARCHAR2_TABLE_300
1743 , x_rec_count out nocopy NUMBER
1744 , x_return_status out nocopy VARCHAR2
1745 )
1746
1747 as
1748 ddp_item_tbl dpp_uiwrapper_pvt.item_tbl_type;
1749 ddindx binary_integer; indx binary_integer;
1750 begin
1751
1752 -- copy data to the local IN or IN-OUT args, if any
1753 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p15(ddp_item_tbl, p0_a0
1754 , p0_a1
1755 , p0_a2
1756 );
1757
1758
1759
1760
1761 -- here's the delegated call to the old PL/SQL routine
1762 dpp_uiwrapper_pvt.get_product(ddp_item_tbl,
1763 p_org_id,
1764 x_rec_count,
1765 x_return_status);
1766
1767 -- copy data back from the local variables to OUT or IN-OUT args, if any
1768 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p15(ddp_item_tbl, p0_a0
1769 , p0_a1
1770 , p0_a2
1771 );
1772
1773
1774
1775 end;
1776
1777 procedure get_allapprovers(p_api_version NUMBER
1778 , p_init_msg_list VARCHAR2
1779 , p_validation_level NUMBER
1780 , x_return_status out nocopy VARCHAR2
1781 , x_msg_data out nocopy VARCHAR2
1782 , x_msg_count out nocopy NUMBER
1783 , p6_a0 VARCHAR2
1784 , p6_a1 NUMBER
1785 , p6_a2 VARCHAR2
1786 , p6_a3 VARCHAR2
1787 , p6_a4 NUMBER
1788 , p7_a0 out nocopy JTF_NUMBER_TABLE
1789 , p7_a1 out nocopy JTF_NUMBER_TABLE
1790 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_200
1791 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
1792 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
1793 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
1794 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
1795 , p7_a7 out nocopy JTF_NUMBER_TABLE
1796 , p7_a8 out nocopy JTF_NUMBER_TABLE
1797 , p7_a9 out nocopy JTF_NUMBER_TABLE
1798 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_500
1799 , p7_a11 out nocopy JTF_NUMBER_TABLE
1800 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_300
1801 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
1802 )
1803
1804 as
1805 ddp_approval_rec dpp_uiwrapper_pvt.approval_rec_type;
1806 ddp_approversout dpp_uiwrapper_pvt.approverstable;
1807 ddindx binary_integer; indx binary_integer;
1808 begin
1809
1810 -- copy data to the local IN or IN-OUT args, if any
1811
1812
1813
1814
1815
1816
1817 ddp_approval_rec.object_type := p6_a0;
1818 ddp_approval_rec.object_id := p6_a1;
1819 ddp_approval_rec.status_code := p6_a2;
1820 ddp_approval_rec.action_code := p6_a3;
1821 ddp_approval_rec.action_performed_by := p6_a4;
1822
1823
1824 -- here's the delegated call to the old PL/SQL routine
1825 dpp_uiwrapper_pvt.get_allapprovers(p_api_version,
1826 p_init_msg_list,
1827 p_validation_level,
1828 x_return_status,
1829 x_msg_data,
1830 x_msg_count,
1831 ddp_approval_rec,
1832 ddp_approversout);
1833
1834 -- copy data back from the local variables to OUT or IN-OUT args, if any
1835
1836
1837
1838
1839
1840
1841
1842 dpp_uiwrapper_pvt_w.rosetta_table_copy_out_p33(ddp_approversout, p7_a0
1843 , p7_a1
1844 , p7_a2
1845 , p7_a3
1846 , p7_a4
1847 , p7_a5
1848 , p7_a6
1849 , p7_a7
1850 , p7_a8
1851 , p7_a9
1852 , p7_a10
1853 , p7_a11
1854 , p7_a12
1855 , p7_a13
1856 );
1857 end;
1858
1859 procedure process_user_action(p_api_version NUMBER
1860 , p_init_msg_list VARCHAR2
1861 , p_commit VARCHAR2
1862 , p_validation_level NUMBER
1863 , x_return_status out nocopy VARCHAR2
1864 , x_msg_data out nocopy VARCHAR2
1865 , x_msg_count out nocopy NUMBER
1866 , p7_a0 VARCHAR2
1867 , p7_a1 NUMBER
1868 , p7_a2 VARCHAR2
1869 , p7_a3 VARCHAR2
1870 , p7_a4 NUMBER
1871 , p_approver_id NUMBER
1872 , x_final_approval_flag out nocopy VARCHAR2
1873 )
1874
1875 as
1876 ddp_approval_rec dpp_uiwrapper_pvt.approval_rec_type;
1877 ddindx binary_integer; indx binary_integer;
1878 begin
1879
1880 -- copy data to the local IN or IN-OUT args, if any
1881
1882
1883
1884
1885
1886
1887
1888 ddp_approval_rec.object_type := p7_a0;
1889 ddp_approval_rec.object_id := p7_a1;
1890 ddp_approval_rec.status_code := p7_a2;
1891 ddp_approval_rec.action_code := p7_a3;
1892 ddp_approval_rec.action_performed_by := p7_a4;
1893
1894
1895
1896 -- here's the delegated call to the old PL/SQL routine
1897 dpp_uiwrapper_pvt.process_user_action(p_api_version,
1898 p_init_msg_list,
1899 p_commit,
1900 p_validation_level,
1901 x_return_status,
1902 x_msg_data,
1903 x_msg_count,
1904 ddp_approval_rec,
1905 p_approver_id,
1906 x_final_approval_flag);
1907
1908 -- copy data back from the local variables to OUT or IN-OUT args, if any
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918 end;
1919
1920 procedure raise_business_event(p_api_version NUMBER
1921 , p_init_msg_list VARCHAR2
1922 , p_commit VARCHAR2
1923 , p_validation_level NUMBER
1924 , x_return_status out nocopy VARCHAR2
1925 , x_msg_count out nocopy NUMBER
1926 , x_msg_data out nocopy VARCHAR2
1927 , p7_a0 NUMBER
1928 , p7_a1 VARCHAR2
1929 , p7_a2 VARCHAR2
1930 , p7_a3 NUMBER
1931 , p7_a4 VARCHAR2
1932 , p7_a5 VARCHAR2
1933 , p_txn_line_id JTF_NUMBER_TABLE
1934 )
1935
1936 as
1937 ddp_txn_hdr_rec dpp_uiwrapper_pvt.dpp_txn_hdr_rec_type;
1938 ddp_txn_line_id dpp_uiwrapper_pvt.dpp_txn_line_tbl_type;
1939 ddindx binary_integer; indx binary_integer;
1940 begin
1941
1942 -- copy data to the local IN or IN-OUT args, if any
1943
1944
1945
1946
1947
1948
1949
1950 ddp_txn_hdr_rec.transaction_header_id := p7_a0;
1951 ddp_txn_hdr_rec.transaction_number := p7_a1;
1952 ddp_txn_hdr_rec.process_code := p7_a2;
1953 ddp_txn_hdr_rec.claim_id := p7_a3;
1954 ddp_txn_hdr_rec.claim_type_flag := p7_a4;
1955 ddp_txn_hdr_rec.claim_creation_source := p7_a5;
1956
1957 dpp_uiwrapper_pvt_w.rosetta_table_copy_in_p35(ddp_txn_line_id, p_txn_line_id);
1958
1959 -- here's the delegated call to the old PL/SQL routine
1960 dpp_uiwrapper_pvt.raise_business_event(p_api_version,
1961 p_init_msg_list,
1962 p_commit,
1963 p_validation_level,
1964 x_return_status,
1965 x_msg_count,
1966 x_msg_data,
1967 ddp_txn_hdr_rec,
1968 ddp_txn_line_id);
1969
1970 -- copy data back from the local variables to OUT or IN-OUT args, if any
1971
1972
1973
1974
1975
1976
1977
1978
1979 end;
1980
1981 end dpp_uiwrapper_pvt_w;