[Home] [Help]
PACKAGE BODY: APPS.FTE_SERVICES_UI_WRAPPER_W
Source
1 package body fte_services_ui_wrapper_w as
2 /* $Header: FTESEWPB.pls 120.0 2005/06/29 18:58 jishen noship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy fte_services_ui_wrapper.lane_table, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_100
14 ) as
15 ddindx binary_integer; indx binary_integer;
16 begin
17 if a0 is not null and a0.count > 0 then
18 if a0.count > 0 then
19 indx := a0.first;
20 ddindx := 1;
21 while true loop
22 t(ddindx).lane_id := a0(indx);
23 t(ddindx).service_number := a1(indx);
24 t(ddindx).rate_chart_type := a2(indx);
25 t(ddindx).transport_mode := a3(indx);
26 t(ddindx).start_date_active := a4(indx);
27 t(ddindx).end_date_active := a5(indx);
28 t(ddindx).carrier_id := a6(indx);
29 t(ddindx).service_type_code := a7(indx);
30 t(ddindx).origin_id := a8(indx);
31 t(ddindx).destination_id := a9(indx);
32 t(ddindx).lane_type := a10(indx);
33 ddindx := ddindx+1;
34 if a0.last =indx
35 then exit;
36 end if;
37 indx := a0.next(indx);
38 end loop;
39 end if;
40 end if;
41 end rosetta_table_copy_in_p4;
42 procedure rosetta_table_copy_out_p4(t fte_services_ui_wrapper.lane_table, a0 out nocopy JTF_NUMBER_TABLE
43 , a1 out nocopy JTF_VARCHAR2_TABLE_100
44 , a2 out nocopy JTF_VARCHAR2_TABLE_100
45 , a3 out nocopy JTF_VARCHAR2_TABLE_100
46 , a4 out nocopy JTF_DATE_TABLE
47 , a5 out nocopy JTF_DATE_TABLE
48 , a6 out nocopy JTF_NUMBER_TABLE
49 , a7 out nocopy JTF_VARCHAR2_TABLE_100
50 , a8 out nocopy JTF_NUMBER_TABLE
51 , a9 out nocopy JTF_NUMBER_TABLE
52 , a10 out nocopy JTF_VARCHAR2_TABLE_100
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if t is null or t.count = 0 then
57 a0 := JTF_NUMBER_TABLE();
58 a1 := JTF_VARCHAR2_TABLE_100();
59 a2 := JTF_VARCHAR2_TABLE_100();
60 a3 := JTF_VARCHAR2_TABLE_100();
61 a4 := JTF_DATE_TABLE();
62 a5 := JTF_DATE_TABLE();
63 a6 := JTF_NUMBER_TABLE();
64 a7 := JTF_VARCHAR2_TABLE_100();
65 a8 := JTF_NUMBER_TABLE();
66 a9 := JTF_NUMBER_TABLE();
67 a10 := JTF_VARCHAR2_TABLE_100();
68 else
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_VARCHAR2_TABLE_100();
71 a2 := JTF_VARCHAR2_TABLE_100();
72 a3 := JTF_VARCHAR2_TABLE_100();
73 a4 := JTF_DATE_TABLE();
74 a5 := JTF_DATE_TABLE();
75 a6 := JTF_NUMBER_TABLE();
76 a7 := JTF_VARCHAR2_TABLE_100();
77 a8 := JTF_NUMBER_TABLE();
78 a9 := JTF_NUMBER_TABLE();
79 a10 := JTF_VARCHAR2_TABLE_100();
80 if t.count > 0 then
81 a0.extend(t.count);
82 a1.extend(t.count);
83 a2.extend(t.count);
84 a3.extend(t.count);
85 a4.extend(t.count);
86 a5.extend(t.count);
87 a6.extend(t.count);
88 a7.extend(t.count);
89 a8.extend(t.count);
90 a9.extend(t.count);
91 a10.extend(t.count);
92 ddindx := t.first;
93 indx := 1;
94 while true loop
95 a0(indx) := t(ddindx).lane_id;
96 a1(indx) := t(ddindx).service_number;
97 a2(indx) := t(ddindx).rate_chart_type;
98 a3(indx) := t(ddindx).transport_mode;
99 a4(indx) := t(ddindx).start_date_active;
100 a5(indx) := t(ddindx).end_date_active;
101 a6(indx) := t(ddindx).carrier_id;
102 a7(indx) := t(ddindx).service_type_code;
103 a8(indx) := t(ddindx).origin_id;
104 a9(indx) := t(ddindx).destination_id;
105 a10(indx) := t(ddindx).lane_type;
106 indx := indx+1;
107 if t.last =ddindx
108 then exit;
109 end if;
110 ddindx := t.next(ddindx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_out_p4;
115
116 procedure rosetta_table_copy_in_p6(t out nocopy fte_services_ui_wrapper.rate_chart_header_table, a0 JTF_VARCHAR2_TABLE_100
117 , a1 JTF_VARCHAR2_TABLE_100
118 , a2 JTF_NUMBER_TABLE
119 , a3 JTF_VARCHAR2_TABLE_100
120 , a4 JTF_NUMBER_TABLE
121 , a5 JTF_DATE_TABLE
122 , a6 JTF_DATE_TABLE
123 , a7 JTF_VARCHAR2_TABLE_2000
124 ) as
125 ddindx binary_integer; indx binary_integer;
126 begin
127 if a0 is not null and a0.count > 0 then
128 if a0.count > 0 then
129 indx := a0.first;
130 ddindx := 1;
131 while true loop
132 t(ddindx).chart_name := a0(indx);
133 t(ddindx).currency_code := a1(indx);
134 t(ddindx).carrier_id := a2(indx);
135 t(ddindx).service_level := a3(indx);
136 t(ddindx).list_header_id := a4(indx);
137 t(ddindx).start_date_active := a5(indx);
138 t(ddindx).end_date_active := a6(indx);
139 t(ddindx).description := a7(indx);
140 ddindx := ddindx+1;
141 if a0.last =indx
142 then exit;
143 end if;
144 indx := a0.next(indx);
145 end loop;
146 end if;
147 end if;
148 end rosetta_table_copy_in_p6;
149 procedure rosetta_table_copy_out_p6(t fte_services_ui_wrapper.rate_chart_header_table, a0 out nocopy JTF_VARCHAR2_TABLE_100
150 , a1 out nocopy JTF_VARCHAR2_TABLE_100
151 , a2 out nocopy JTF_NUMBER_TABLE
152 , a3 out nocopy JTF_VARCHAR2_TABLE_100
153 , a4 out nocopy JTF_NUMBER_TABLE
154 , a5 out nocopy JTF_DATE_TABLE
155 , a6 out nocopy JTF_DATE_TABLE
156 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
157 ) as
158 ddindx binary_integer; indx binary_integer;
159 begin
160 if t is null or t.count = 0 then
161 a0 := JTF_VARCHAR2_TABLE_100();
162 a1 := JTF_VARCHAR2_TABLE_100();
163 a2 := JTF_NUMBER_TABLE();
164 a3 := JTF_VARCHAR2_TABLE_100();
165 a4 := JTF_NUMBER_TABLE();
166 a5 := JTF_DATE_TABLE();
167 a6 := JTF_DATE_TABLE();
168 a7 := JTF_VARCHAR2_TABLE_2000();
169 else
170 a0 := JTF_VARCHAR2_TABLE_100();
171 a1 := JTF_VARCHAR2_TABLE_100();
172 a2 := JTF_NUMBER_TABLE();
173 a3 := JTF_VARCHAR2_TABLE_100();
174 a4 := JTF_NUMBER_TABLE();
175 a5 := JTF_DATE_TABLE();
176 a6 := JTF_DATE_TABLE();
177 a7 := JTF_VARCHAR2_TABLE_2000();
178 if t.count > 0 then
179 a0.extend(t.count);
180 a1.extend(t.count);
181 a2.extend(t.count);
182 a3.extend(t.count);
183 a4.extend(t.count);
184 a5.extend(t.count);
185 a6.extend(t.count);
186 a7.extend(t.count);
187 ddindx := t.first;
188 indx := 1;
189 while true loop
190 a0(indx) := t(ddindx).chart_name;
191 a1(indx) := t(ddindx).currency_code;
192 a2(indx) := t(ddindx).carrier_id;
193 a3(indx) := t(ddindx).service_level;
194 a4(indx) := t(ddindx).list_header_id;
195 a5(indx) := t(ddindx).start_date_active;
196 a6(indx) := t(ddindx).end_date_active;
197 a7(indx) := t(ddindx).description;
198 indx := indx+1;
199 if t.last =ddindx
200 then exit;
201 end if;
202 ddindx := t.next(ddindx);
203 end loop;
204 end if;
205 end if;
206 end rosetta_table_copy_out_p6;
207
208 procedure rosetta_table_copy_in_p9(t out nocopy fte_services_ui_wrapper.rate_chart_line_table, a0 JTF_NUMBER_TABLE
209 , a1 JTF_VARCHAR2_TABLE_100
210 , a2 JTF_VARCHAR2_TABLE_100
211 , a3 JTF_VARCHAR2_TABLE_100
212 , a4 JTF_VARCHAR2_TABLE_100
213 , a5 JTF_NUMBER_TABLE
214 , a6 JTF_NUMBER_TABLE
215 , a7 JTF_NUMBER_TABLE
216 , a8 JTF_VARCHAR2_TABLE_100
217 , a9 JTF_VARCHAR2_TABLE_100
218 , a10 JTF_VARCHAR2_TABLE_100
219 , a11 JTF_VARCHAR2_TABLE_100
220 , a12 JTF_VARCHAR2_TABLE_100
221 , a13 JTF_NUMBER_TABLE
222 , a14 JTF_NUMBER_TABLE
223 , a15 JTF_NUMBER_TABLE
224 , a16 JTF_DATE_TABLE
225 , a17 JTF_DATE_TABLE
226 , a18 JTF_VARCHAR2_TABLE_200
227 ) as
228 ddindx binary_integer; indx binary_integer;
229 begin
230 if a0 is not null and a0.count > 0 then
231 if a0.count > 0 then
232 indx := a0.first;
233 ddindx := 1;
234 while true loop
235 t(ddindx).line_num := a0(indx);
236 t(ddindx).type := a1(indx);
237 t(ddindx).subtype := a2(indx);
238 t(ddindx).rate_type := a3(indx);
239 t(ddindx).break_type := a4(indx);
240 t(ddindx).origin_id := a5(indx);
241 t(ddindx).dest_id := a6(indx);
242 t(ddindx).catg_id := a7(indx);
243 t(ddindx).service_code := a8(indx);
244 t(ddindx).multi_flag := a9(indx);
245 t(ddindx).rate_basis := a10(indx);
246 t(ddindx).rate_basis_uom := a11(indx);
247 t(ddindx).dist_type := a12(indx);
248 t(ddindx).vehicle_type := a13(indx);
249 t(ddindx).rate := a14(indx);
250 t(ddindx).min_charge := a15(indx);
251 t(ddindx).start_date := a16(indx);
252 t(ddindx).end_date := a17(indx);
253 t(ddindx).description := a18(indx);
254 ddindx := ddindx+1;
255 if a0.last =indx
256 then exit;
257 end if;
258 indx := a0.next(indx);
259 end loop;
260 end if;
261 end if;
262 end rosetta_table_copy_in_p9;
263 procedure rosetta_table_copy_out_p9(t fte_services_ui_wrapper.rate_chart_line_table, a0 out nocopy JTF_NUMBER_TABLE
264 , a1 out nocopy JTF_VARCHAR2_TABLE_100
265 , a2 out nocopy JTF_VARCHAR2_TABLE_100
266 , a3 out nocopy JTF_VARCHAR2_TABLE_100
267 , a4 out nocopy JTF_VARCHAR2_TABLE_100
268 , a5 out nocopy JTF_NUMBER_TABLE
269 , a6 out nocopy JTF_NUMBER_TABLE
270 , a7 out nocopy JTF_NUMBER_TABLE
271 , a8 out nocopy JTF_VARCHAR2_TABLE_100
272 , a9 out nocopy JTF_VARCHAR2_TABLE_100
273 , a10 out nocopy JTF_VARCHAR2_TABLE_100
274 , a11 out nocopy JTF_VARCHAR2_TABLE_100
275 , a12 out nocopy JTF_VARCHAR2_TABLE_100
276 , a13 out nocopy JTF_NUMBER_TABLE
277 , a14 out nocopy JTF_NUMBER_TABLE
278 , a15 out nocopy JTF_NUMBER_TABLE
279 , a16 out nocopy JTF_DATE_TABLE
280 , a17 out nocopy JTF_DATE_TABLE
281 , a18 out nocopy JTF_VARCHAR2_TABLE_200
282 ) as
283 ddindx binary_integer; indx binary_integer;
284 begin
285 if t is null or t.count = 0 then
286 a0 := JTF_NUMBER_TABLE();
287 a1 := JTF_VARCHAR2_TABLE_100();
288 a2 := JTF_VARCHAR2_TABLE_100();
289 a3 := JTF_VARCHAR2_TABLE_100();
290 a4 := JTF_VARCHAR2_TABLE_100();
291 a5 := JTF_NUMBER_TABLE();
292 a6 := JTF_NUMBER_TABLE();
293 a7 := JTF_NUMBER_TABLE();
294 a8 := JTF_VARCHAR2_TABLE_100();
295 a9 := JTF_VARCHAR2_TABLE_100();
296 a10 := JTF_VARCHAR2_TABLE_100();
297 a11 := JTF_VARCHAR2_TABLE_100();
298 a12 := JTF_VARCHAR2_TABLE_100();
299 a13 := JTF_NUMBER_TABLE();
300 a14 := JTF_NUMBER_TABLE();
301 a15 := JTF_NUMBER_TABLE();
302 a16 := JTF_DATE_TABLE();
303 a17 := JTF_DATE_TABLE();
304 a18 := JTF_VARCHAR2_TABLE_200();
305 else
306 a0 := JTF_NUMBER_TABLE();
307 a1 := JTF_VARCHAR2_TABLE_100();
308 a2 := JTF_VARCHAR2_TABLE_100();
309 a3 := JTF_VARCHAR2_TABLE_100();
310 a4 := JTF_VARCHAR2_TABLE_100();
311 a5 := JTF_NUMBER_TABLE();
312 a6 := JTF_NUMBER_TABLE();
313 a7 := JTF_NUMBER_TABLE();
314 a8 := JTF_VARCHAR2_TABLE_100();
315 a9 := JTF_VARCHAR2_TABLE_100();
316 a10 := JTF_VARCHAR2_TABLE_100();
317 a11 := JTF_VARCHAR2_TABLE_100();
318 a12 := JTF_VARCHAR2_TABLE_100();
319 a13 := JTF_NUMBER_TABLE();
320 a14 := JTF_NUMBER_TABLE();
321 a15 := JTF_NUMBER_TABLE();
322 a16 := JTF_DATE_TABLE();
323 a17 := JTF_DATE_TABLE();
324 a18 := JTF_VARCHAR2_TABLE_200();
325 if t.count > 0 then
326 a0.extend(t.count);
327 a1.extend(t.count);
328 a2.extend(t.count);
329 a3.extend(t.count);
330 a4.extend(t.count);
331 a5.extend(t.count);
332 a6.extend(t.count);
333 a7.extend(t.count);
334 a8.extend(t.count);
335 a9.extend(t.count);
336 a10.extend(t.count);
337 a11.extend(t.count);
338 a12.extend(t.count);
339 a13.extend(t.count);
340 a14.extend(t.count);
341 a15.extend(t.count);
342 a16.extend(t.count);
343 a17.extend(t.count);
344 a18.extend(t.count);
345 ddindx := t.first;
346 indx := 1;
347 while true loop
348 a0(indx) := t(ddindx).line_num;
349 a1(indx) := t(ddindx).type;
350 a2(indx) := t(ddindx).subtype;
351 a3(indx) := t(ddindx).rate_type;
352 a4(indx) := t(ddindx).break_type;
353 a5(indx) := t(ddindx).origin_id;
354 a6(indx) := t(ddindx).dest_id;
355 a7(indx) := t(ddindx).catg_id;
356 a8(indx) := t(ddindx).service_code;
357 a9(indx) := t(ddindx).multi_flag;
358 a10(indx) := t(ddindx).rate_basis;
359 a11(indx) := t(ddindx).rate_basis_uom;
360 a12(indx) := t(ddindx).dist_type;
361 a13(indx) := t(ddindx).vehicle_type;
362 a14(indx) := t(ddindx).rate;
363 a15(indx) := t(ddindx).min_charge;
364 a16(indx) := t(ddindx).start_date;
365 a17(indx) := t(ddindx).end_date;
366 a18(indx) := t(ddindx).description;
367 indx := indx+1;
368 if t.last =ddindx
369 then exit;
370 end if;
371 ddindx := t.next(ddindx);
372 end loop;
373 end if;
374 end if;
375 end rosetta_table_copy_out_p9;
376
377 procedure rosetta_table_copy_in_p11(t out nocopy fte_services_ui_wrapper.rate_chart_break_table, a0 JTF_NUMBER_TABLE
378 , a1 JTF_NUMBER_TABLE
379 , a2 JTF_NUMBER_TABLE
380 , a3 JTF_VARCHAR2_TABLE_100
381 , a4 JTF_NUMBER_TABLE
382 ) as
383 ddindx binary_integer; indx binary_integer;
384 begin
385 if a0 is not null and a0.count > 0 then
386 if a0.count > 0 then
387 indx := a0.first;
388 ddindx := 1;
389 while true loop
390 t(ddindx).break_header_index := a0(indx);
391 t(ddindx).lower := a1(indx);
392 t(ddindx).upper := a2(indx);
393 t(ddindx).rate_type := a3(indx);
394 t(ddindx).rate := a4(indx);
395 ddindx := ddindx+1;
396 if a0.last =indx
397 then exit;
398 end if;
399 indx := a0.next(indx);
400 end loop;
401 end if;
402 end if;
403 end rosetta_table_copy_in_p11;
404 procedure rosetta_table_copy_out_p11(t fte_services_ui_wrapper.rate_chart_break_table, a0 out nocopy JTF_NUMBER_TABLE
405 , a1 out nocopy JTF_NUMBER_TABLE
406 , a2 out nocopy JTF_NUMBER_TABLE
407 , a3 out nocopy JTF_VARCHAR2_TABLE_100
408 , a4 out nocopy JTF_NUMBER_TABLE
409 ) as
410 ddindx binary_integer; indx binary_integer;
411 begin
412 if t is null or t.count = 0 then
413 a0 := JTF_NUMBER_TABLE();
414 a1 := JTF_NUMBER_TABLE();
415 a2 := JTF_NUMBER_TABLE();
416 a3 := JTF_VARCHAR2_TABLE_100();
417 a4 := JTF_NUMBER_TABLE();
418 else
419 a0 := JTF_NUMBER_TABLE();
420 a1 := JTF_NUMBER_TABLE();
421 a2 := JTF_NUMBER_TABLE();
422 a3 := JTF_VARCHAR2_TABLE_100();
423 a4 := JTF_NUMBER_TABLE();
424 if t.count > 0 then
425 a0.extend(t.count);
426 a1.extend(t.count);
427 a2.extend(t.count);
428 a3.extend(t.count);
429 a4.extend(t.count);
430 ddindx := t.first;
431 indx := 1;
432 while true loop
433 a0(indx) := t(ddindx).break_header_index;
434 a1(indx) := t(ddindx).lower;
435 a2(indx) := t(ddindx).upper;
436 a3(indx) := t(ddindx).rate_type;
437 a4(indx) := t(ddindx).rate;
438 indx := indx+1;
439 if t.last =ddindx
440 then exit;
441 end if;
442 ddindx := t.next(ddindx);
443 end loop;
444 end if;
445 end if;
446 end rosetta_table_copy_out_p11;
447
448 procedure rosetta_table_copy_in_p13(t out nocopy fte_services_ui_wrapper.tl_line_table, a0 JTF_NUMBER_TABLE
449 , a1 JTF_VARCHAR2_TABLE_100
450 , a2 JTF_NUMBER_TABLE
451 , a3 JTF_VARCHAR2_TABLE_100
452 , a4 JTF_VARCHAR2_TABLE_100
453 , a5 JTF_NUMBER_TABLE
454 , a6 JTF_NUMBER_TABLE
455 , a7 JTF_DATE_TABLE
456 , a8 JTF_DATE_TABLE
457 , a9 JTF_NUMBER_TABLE
458 , a10 JTF_NUMBER_TABLE
459 , a11 JTF_NUMBER_TABLE
460 , a12 JTF_NUMBER_TABLE
461 , a13 JTF_NUMBER_TABLE
462 , a14 JTF_NUMBER_TABLE
463 , a15 JTF_NUMBER_TABLE
464 ) as
465 ddindx binary_integer; indx binary_integer;
466 begin
467 if a0 is not null and a0.count > 0 then
468 if a0.count > 0 then
469 indx := a0.first;
470 ddindx := 1;
471 while true loop
472 t(ddindx).line_num := a0(indx);
473 t(ddindx).type := a1(indx);
474 t(ddindx).region_code := a2(indx);
475 t(ddindx).basis := a3(indx);
476 t(ddindx).basis_uom_code := a4(indx);
477 t(ddindx).charge := a5(indx);
478 t(ddindx).min_charge := a6(indx);
479 t(ddindx).start_date := a7(indx);
480 t(ddindx).end_date := a8(indx);
481 t(ddindx).free_stops := a9(indx);
482 t(ddindx).first_stop := a10(indx);
483 t(ddindx).second_stop := a11(indx);
484 t(ddindx).third_stop := a12(indx);
485 t(ddindx).fourth_stop := a13(indx);
486 t(ddindx).fifth_stop := a14(indx);
487 t(ddindx).add_stops := a15(indx);
488 ddindx := ddindx+1;
489 if a0.last =indx
490 then exit;
491 end if;
492 indx := a0.next(indx);
493 end loop;
494 end if;
495 end if;
496 end rosetta_table_copy_in_p13;
497 procedure rosetta_table_copy_out_p13(t fte_services_ui_wrapper.tl_line_table, a0 out nocopy JTF_NUMBER_TABLE
498 , a1 out nocopy JTF_VARCHAR2_TABLE_100
499 , a2 out nocopy JTF_NUMBER_TABLE
500 , a3 out nocopy JTF_VARCHAR2_TABLE_100
501 , a4 out nocopy JTF_VARCHAR2_TABLE_100
502 , a5 out nocopy JTF_NUMBER_TABLE
503 , a6 out nocopy JTF_NUMBER_TABLE
504 , a7 out nocopy JTF_DATE_TABLE
505 , a8 out nocopy JTF_DATE_TABLE
506 , a9 out nocopy JTF_NUMBER_TABLE
507 , a10 out nocopy JTF_NUMBER_TABLE
508 , a11 out nocopy JTF_NUMBER_TABLE
509 , a12 out nocopy JTF_NUMBER_TABLE
510 , a13 out nocopy JTF_NUMBER_TABLE
511 , a14 out nocopy JTF_NUMBER_TABLE
512 , a15 out nocopy JTF_NUMBER_TABLE
513 ) as
514 ddindx binary_integer; indx binary_integer;
515 begin
516 if t is null or t.count = 0 then
517 a0 := JTF_NUMBER_TABLE();
518 a1 := JTF_VARCHAR2_TABLE_100();
519 a2 := JTF_NUMBER_TABLE();
520 a3 := JTF_VARCHAR2_TABLE_100();
521 a4 := JTF_VARCHAR2_TABLE_100();
522 a5 := JTF_NUMBER_TABLE();
523 a6 := JTF_NUMBER_TABLE();
524 a7 := JTF_DATE_TABLE();
525 a8 := JTF_DATE_TABLE();
526 a9 := JTF_NUMBER_TABLE();
527 a10 := JTF_NUMBER_TABLE();
528 a11 := JTF_NUMBER_TABLE();
529 a12 := JTF_NUMBER_TABLE();
530 a13 := JTF_NUMBER_TABLE();
531 a14 := JTF_NUMBER_TABLE();
532 a15 := JTF_NUMBER_TABLE();
533 else
534 a0 := JTF_NUMBER_TABLE();
535 a1 := JTF_VARCHAR2_TABLE_100();
536 a2 := JTF_NUMBER_TABLE();
537 a3 := JTF_VARCHAR2_TABLE_100();
538 a4 := JTF_VARCHAR2_TABLE_100();
539 a5 := JTF_NUMBER_TABLE();
540 a6 := JTF_NUMBER_TABLE();
541 a7 := JTF_DATE_TABLE();
542 a8 := JTF_DATE_TABLE();
543 a9 := JTF_NUMBER_TABLE();
544 a10 := JTF_NUMBER_TABLE();
545 a11 := JTF_NUMBER_TABLE();
546 a12 := JTF_NUMBER_TABLE();
547 a13 := JTF_NUMBER_TABLE();
548 a14 := JTF_NUMBER_TABLE();
549 a15 := JTF_NUMBER_TABLE();
550 if t.count > 0 then
551 a0.extend(t.count);
552 a1.extend(t.count);
553 a2.extend(t.count);
554 a3.extend(t.count);
555 a4.extend(t.count);
556 a5.extend(t.count);
557 a6.extend(t.count);
558 a7.extend(t.count);
559 a8.extend(t.count);
560 a9.extend(t.count);
561 a10.extend(t.count);
562 a11.extend(t.count);
563 a12.extend(t.count);
564 a13.extend(t.count);
565 a14.extend(t.count);
566 a15.extend(t.count);
567 ddindx := t.first;
568 indx := 1;
569 while true loop
570 a0(indx) := t(ddindx).line_num;
571 a1(indx) := t(ddindx).type;
572 a2(indx) := t(ddindx).region_code;
573 a3(indx) := t(ddindx).basis;
574 a4(indx) := t(ddindx).basis_uom_code;
575 a5(indx) := t(ddindx).charge;
576 a6(indx) := t(ddindx).min_charge;
577 a7(indx) := t(ddindx).start_date;
578 a8(indx) := t(ddindx).end_date;
579 a9(indx) := t(ddindx).free_stops;
580 a10(indx) := t(ddindx).first_stop;
581 a11(indx) := t(ddindx).second_stop;
582 a12(indx) := t(ddindx).third_stop;
583 a13(indx) := t(ddindx).fourth_stop;
584 a14(indx) := t(ddindx).fifth_stop;
585 a15(indx) := t(ddindx).add_stops;
586 indx := indx+1;
587 if t.last =ddindx
588 then exit;
589 end if;
590 ddindx := t.next(ddindx);
591 end loop;
592 end if;
593 end if;
594 end rosetta_table_copy_out_p13;
595
596 procedure edit_tl_services(p_init_msg_list VARCHAR2
597 , p_transaction_type VARCHAR2
598 , p2_a0 JTF_NUMBER_TABLE
599 , p2_a1 JTF_VARCHAR2_TABLE_100
600 , p2_a2 JTF_VARCHAR2_TABLE_100
601 , p2_a3 JTF_VARCHAR2_TABLE_100
602 , p2_a4 JTF_DATE_TABLE
603 , p2_a5 JTF_DATE_TABLE
604 , p2_a6 JTF_NUMBER_TABLE
605 , p2_a7 JTF_VARCHAR2_TABLE_100
606 , p2_a8 JTF_NUMBER_TABLE
607 , p2_a9 JTF_NUMBER_TABLE
608 , p2_a10 JTF_VARCHAR2_TABLE_100
609 , p3_a0 JTF_VARCHAR2_TABLE_100
610 , p3_a1 JTF_VARCHAR2_TABLE_100
611 , p3_a2 JTF_NUMBER_TABLE
612 , p3_a3 JTF_VARCHAR2_TABLE_100
613 , p3_a4 JTF_NUMBER_TABLE
614 , p3_a5 JTF_DATE_TABLE
615 , p3_a6 JTF_DATE_TABLE
616 , p3_a7 JTF_VARCHAR2_TABLE_2000
617 , p4_a0 JTF_NUMBER_TABLE
618 , p4_a1 JTF_VARCHAR2_TABLE_100
619 , p4_a2 JTF_VARCHAR2_TABLE_100
620 , p4_a3 JTF_VARCHAR2_TABLE_100
621 , p4_a4 JTF_VARCHAR2_TABLE_100
622 , p4_a5 JTF_NUMBER_TABLE
623 , p4_a6 JTF_NUMBER_TABLE
624 , p4_a7 JTF_NUMBER_TABLE
625 , p4_a8 JTF_VARCHAR2_TABLE_100
626 , p4_a9 JTF_VARCHAR2_TABLE_100
627 , p4_a10 JTF_VARCHAR2_TABLE_100
628 , p4_a11 JTF_VARCHAR2_TABLE_100
629 , p4_a12 JTF_VARCHAR2_TABLE_100
630 , p4_a13 JTF_NUMBER_TABLE
631 , p4_a14 JTF_NUMBER_TABLE
632 , p4_a15 JTF_NUMBER_TABLE
633 , p4_a16 JTF_DATE_TABLE
634 , p4_a17 JTF_DATE_TABLE
635 , p4_a18 JTF_VARCHAR2_TABLE_200
636 , x_status out nocopy NUMBER
637 , x_error_msg out nocopy VARCHAR2
638 )
639
640 as
641 ddp_lane_table fte_services_ui_wrapper.lane_table;
642 ddp_rate_chart_header_table fte_services_ui_wrapper.rate_chart_header_table;
643 ddp_rate_chart_line_table fte_services_ui_wrapper.rate_chart_line_table;
644 ddindx binary_integer; indx binary_integer;
645 begin
646
647 -- copy data to the local IN or IN-OUT args, if any
648
649
650 fte_services_ui_wrapper_w.rosetta_table_copy_in_p4(ddp_lane_table, p2_a0
651 , p2_a1
652 , p2_a2
653 , p2_a3
654 , p2_a4
655 , p2_a5
656 , p2_a6
657 , p2_a7
658 , p2_a8
659 , p2_a9
660 , p2_a10
661 );
662
663 fte_services_ui_wrapper_w.rosetta_table_copy_in_p6(ddp_rate_chart_header_table, p3_a0
664 , p3_a1
665 , p3_a2
666 , p3_a3
667 , p3_a4
668 , p3_a5
669 , p3_a6
670 , p3_a7
671 );
672
673 fte_services_ui_wrapper_w.rosetta_table_copy_in_p9(ddp_rate_chart_line_table, p4_a0
674 , p4_a1
675 , p4_a2
676 , p4_a3
677 , p4_a4
678 , p4_a5
679 , p4_a6
680 , p4_a7
681 , p4_a8
682 , p4_a9
683 , p4_a10
684 , p4_a11
685 , p4_a12
686 , p4_a13
687 , p4_a14
688 , p4_a15
689 , p4_a16
690 , p4_a17
691 , p4_a18
692 );
693
694
695
696 -- here's the delegated call to the old PL/SQL routine
697 fte_services_ui_wrapper.edit_tl_services(p_init_msg_list,
698 p_transaction_type,
699 ddp_lane_table,
700 ddp_rate_chart_header_table,
701 ddp_rate_chart_line_table,
702 x_status,
703 x_error_msg);
704
705 -- copy data back from the local variables to OUT or IN-OUT args, if any
706
707
708
709
710
711
712 end;
713
714 procedure rate_chart_wrapper(p0_a0 JTF_VARCHAR2_TABLE_100
715 , p0_a1 JTF_VARCHAR2_TABLE_100
716 , p0_a2 JTF_NUMBER_TABLE
717 , p0_a3 JTF_VARCHAR2_TABLE_100
718 , p0_a4 JTF_NUMBER_TABLE
719 , p0_a5 JTF_DATE_TABLE
720 , p0_a6 JTF_DATE_TABLE
721 , p0_a7 JTF_VARCHAR2_TABLE_2000
722 , p1_a0 JTF_NUMBER_TABLE
723 , p1_a1 JTF_VARCHAR2_TABLE_100
724 , p1_a2 JTF_VARCHAR2_TABLE_100
725 , p1_a3 JTF_VARCHAR2_TABLE_100
726 , p1_a4 JTF_VARCHAR2_TABLE_100
727 , p1_a5 JTF_NUMBER_TABLE
728 , p1_a6 JTF_NUMBER_TABLE
729 , p1_a7 JTF_NUMBER_TABLE
730 , p1_a8 JTF_VARCHAR2_TABLE_100
731 , p1_a9 JTF_VARCHAR2_TABLE_100
732 , p1_a10 JTF_VARCHAR2_TABLE_100
733 , p1_a11 JTF_VARCHAR2_TABLE_100
734 , p1_a12 JTF_VARCHAR2_TABLE_100
735 , p1_a13 JTF_NUMBER_TABLE
736 , p1_a14 JTF_NUMBER_TABLE
737 , p1_a15 JTF_NUMBER_TABLE
738 , p1_a16 JTF_DATE_TABLE
739 , p1_a17 JTF_DATE_TABLE
740 , p1_a18 JTF_VARCHAR2_TABLE_200
741 , p2_a0 JTF_NUMBER_TABLE
742 , p2_a1 JTF_NUMBER_TABLE
743 , p2_a2 JTF_NUMBER_TABLE
744 , p2_a3 JTF_VARCHAR2_TABLE_100
745 , p2_a4 JTF_NUMBER_TABLE
746 , p_chart_type VARCHAR2
747 , x_status out nocopy NUMBER
748 , x_error_msg out nocopy VARCHAR2
749 )
750
751 as
752 ddp_header_table fte_services_ui_wrapper.rate_chart_header_table;
753 ddp_line_table fte_services_ui_wrapper.rate_chart_line_table;
754 ddp_break_table fte_services_ui_wrapper.rate_chart_break_table;
755 ddindx binary_integer; indx binary_integer;
756 begin
757
758 -- copy data to the local IN or IN-OUT args, if any
759 fte_services_ui_wrapper_w.rosetta_table_copy_in_p6(ddp_header_table, p0_a0
760 , p0_a1
761 , p0_a2
762 , p0_a3
763 , p0_a4
764 , p0_a5
765 , p0_a6
766 , p0_a7
767 );
768
769 fte_services_ui_wrapper_w.rosetta_table_copy_in_p9(ddp_line_table, p1_a0
770 , p1_a1
771 , p1_a2
772 , p1_a3
773 , p1_a4
774 , p1_a5
775 , p1_a6
776 , p1_a7
777 , p1_a8
778 , p1_a9
779 , p1_a10
780 , p1_a11
781 , p1_a12
782 , p1_a13
783 , p1_a14
784 , p1_a15
785 , p1_a16
786 , p1_a17
787 , p1_a18
788 );
789
790 fte_services_ui_wrapper_w.rosetta_table_copy_in_p11(ddp_break_table, p2_a0
791 , p2_a1
792 , p2_a2
793 , p2_a3
794 , p2_a4
795 );
796
797
798
799
800 -- here's the delegated call to the old PL/SQL routine
801 fte_services_ui_wrapper.rate_chart_wrapper(ddp_header_table,
802 ddp_line_table,
803 ddp_break_table,
804 p_chart_type,
805 x_status,
806 x_error_msg);
807
808 -- copy data back from the local variables to OUT or IN-OUT args, if any
809
810
811
812
813
814 end;
815
816 procedure tl_surcharge_wrapper(p0_a0 JTF_VARCHAR2_TABLE_100
817 , p0_a1 JTF_VARCHAR2_TABLE_100
818 , p0_a2 JTF_NUMBER_TABLE
819 , p0_a3 JTF_VARCHAR2_TABLE_100
820 , p0_a4 JTF_NUMBER_TABLE
821 , p0_a5 JTF_DATE_TABLE
822 , p0_a6 JTF_DATE_TABLE
823 , p0_a7 JTF_VARCHAR2_TABLE_2000
824 , p1_a0 JTF_NUMBER_TABLE
825 , p1_a1 JTF_VARCHAR2_TABLE_100
826 , p1_a2 JTF_NUMBER_TABLE
827 , p1_a3 JTF_VARCHAR2_TABLE_100
828 , p1_a4 JTF_VARCHAR2_TABLE_100
829 , p1_a5 JTF_NUMBER_TABLE
830 , p1_a6 JTF_NUMBER_TABLE
831 , p1_a7 JTF_DATE_TABLE
832 , p1_a8 JTF_DATE_TABLE
833 , p1_a9 JTF_NUMBER_TABLE
834 , p1_a10 JTF_NUMBER_TABLE
835 , p1_a11 JTF_NUMBER_TABLE
836 , p1_a12 JTF_NUMBER_TABLE
837 , p1_a13 JTF_NUMBER_TABLE
838 , p1_a14 JTF_NUMBER_TABLE
839 , p1_a15 JTF_NUMBER_TABLE
840 , p2_a0 JTF_NUMBER_TABLE
841 , p2_a1 JTF_NUMBER_TABLE
842 , p2_a2 JTF_NUMBER_TABLE
843 , p2_a3 JTF_VARCHAR2_TABLE_100
844 , p2_a4 JTF_NUMBER_TABLE
845 , p_action VARCHAR2
846 , x_status out nocopy NUMBER
847 , x_error_msg out nocopy VARCHAR2
848 )
849
850 as
851 ddp_header_table fte_services_ui_wrapper.rate_chart_header_table;
852 ddp_tl_line_table fte_services_ui_wrapper.tl_line_table;
853 ddp_break_table fte_services_ui_wrapper.rate_chart_break_table;
854 ddindx binary_integer; indx binary_integer;
855 begin
856
857 -- copy data to the local IN or IN-OUT args, if any
858 fte_services_ui_wrapper_w.rosetta_table_copy_in_p6(ddp_header_table, p0_a0
859 , p0_a1
860 , p0_a2
861 , p0_a3
862 , p0_a4
863 , p0_a5
864 , p0_a6
865 , p0_a7
866 );
867
868 fte_services_ui_wrapper_w.rosetta_table_copy_in_p13(ddp_tl_line_table, p1_a0
869 , p1_a1
870 , p1_a2
871 , p1_a3
872 , p1_a4
873 , p1_a5
874 , p1_a6
875 , p1_a7
876 , p1_a8
877 , p1_a9
878 , p1_a10
879 , p1_a11
880 , p1_a12
881 , p1_a13
882 , p1_a14
883 , p1_a15
884 );
885
886 fte_services_ui_wrapper_w.rosetta_table_copy_in_p11(ddp_break_table, p2_a0
887 , p2_a1
888 , p2_a2
889 , p2_a3
890 , p2_a4
891 );
892
893
894
895
896 -- here's the delegated call to the old PL/SQL routine
897 fte_services_ui_wrapper.tl_surcharge_wrapper(ddp_header_table,
898 ddp_tl_line_table,
899 ddp_break_table,
900 p_action,
901 x_status,
902 x_error_msg);
903
904 -- copy data back from the local variables to OUT or IN-OUT args, if any
905
906
907
908
909
910 end;
911
912 end fte_services_ui_wrapper_w;