1: package body jtf_um_subscription_info_w as
2: /* $Header: JTFWSBIB.pls 120.2 2005/09/02 18:36:12 applrt ship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy jtf_um_subscription_info.subscription_info_table, a0 JTF_VARCHAR2_TABLE_1000
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_2000
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
65: end loop;
66: end if;
67: end if;
68: end rosetta_table_copy_in_p2;
69: procedure rosetta_table_copy_out_p2(t jtf_um_subscription_info.subscription_info_table, a0 out nocopy JTF_VARCHAR2_TABLE_1000
70: , a1 out nocopy JTF_VARCHAR2_TABLE_100
71: , a2 out nocopy JTF_VARCHAR2_TABLE_2000
72: , a3 out nocopy JTF_NUMBER_TABLE
73: , a4 out nocopy JTF_VARCHAR2_TABLE_100
159: end if;
160: end if;
161: end rosetta_table_copy_out_p2;
162:
163: procedure rosetta_table_copy_in_p3(t out nocopy jtf_um_subscription_info.subscription_list, a0 JTF_NUMBER_TABLE
164: ) as
165: ddindx binary_integer; indx binary_integer;
166: begin
167: if a0 is not null and a0.count > 0 then
178: end loop;
179: end if;
180: end if;
181: end rosetta_table_copy_in_p3;
182: procedure rosetta_table_copy_out_p3(t jtf_um_subscription_info.subscription_list, a0 out nocopy JTF_NUMBER_TABLE
183: ) as
184: ddindx binary_integer; indx binary_integer;
185: begin
186: if t is null or t.count = 0 then
223: , p3_a14 out nocopy JTF_VARCHAR2_TABLE_300
224: )
225:
226: as
227: ddx_result jtf_um_subscription_info.subscription_info_table;
228: ddindx binary_integer; indx binary_integer;
229: begin
230:
231: -- copy data to the local IN or IN-OUT args, if any
233:
234:
235:
236: -- here's the delegated call to the old PL/SQL routine
237: jtf_um_subscription_info.get_usertype_sub_info(p_usertype_id,
238: p_user_id,
239: p_is_admin,
240: ddx_result);
241:
242: -- copy data back from the local variables to OUT or IN-OUT args, if any
243:
244:
245:
246: jtf_um_subscription_info_w.rosetta_table_copy_out_p2(ddx_result, p3_a0
247: , p3_a1
248: , p3_a2
249: , p3_a3
250: , p3_a4
283: , p5_a14 out nocopy JTF_VARCHAR2_TABLE_300
284: )
285:
286: as
287: ddx_result jtf_um_subscription_info.subscription_info_table;
288: ddindx binary_integer; indx binary_integer;
289: begin
290:
291: -- copy data to the local IN or IN-OUT args, if any
295:
296:
297:
298: -- here's the delegated call to the old PL/SQL routine
299: jtf_um_subscription_info.get_user_sub_info(p_user_id,
300: p_is_admin,
301: p_logged_in_user_id,
302: p_administrator,
303: p_sub_status,
308:
309:
310:
311:
312: jtf_um_subscription_info_w.rosetta_table_copy_out_p2(ddx_result, p5_a0
313: , p5_a1
314: , p5_a2
315: , p5_a3
316: , p5_a4
350: , p6_a14 out nocopy JTF_VARCHAR2_TABLE_300
351: )
352:
353: as
354: ddp_sub_list jtf_um_subscription_info.subscription_list;
355: ddx_result jtf_um_subscription_info.subscription_info_table;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
351: )
352:
353: as
354: ddp_sub_list jtf_um_subscription_info.subscription_list;
355: ddx_result jtf_um_subscription_info.subscription_info_table;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
359: -- copy data to the local IN or IN-OUT args, if any
361:
362:
363:
364:
365: jtf_um_subscription_info_w.rosetta_table_copy_in_p3(ddp_sub_list, p5_a0
366: );
367:
368:
369: -- here's the delegated call to the old PL/SQL routine
366: );
367:
368:
369: -- here's the delegated call to the old PL/SQL routine
370: jtf_um_subscription_info.get_conf_sub_info(p_user_id,
371: p_usertype_id,
372: p_is_admin,
373: p_admin_id,
374: p_administrator,
381:
382:
383:
384:
385: jtf_um_subscription_info_w.rosetta_table_copy_out_p2(ddx_result, p6_a0
386: , p6_a1
387: , p6_a2
388: , p6_a3
389: , p6_a4
422: , p5_a14 out nocopy JTF_VARCHAR2_TABLE_300
423: )
424:
425: as
426: ddp_sub_list jtf_um_subscription_info.subscription_list;
427: ddx_result jtf_um_subscription_info.subscription_info_table;
428: ddindx binary_integer; indx binary_integer;
429: begin
430:
423: )
424:
425: as
426: ddp_sub_list jtf_um_subscription_info.subscription_list;
427: ddx_result jtf_um_subscription_info.subscription_info_table;
428: ddindx binary_integer; indx binary_integer;
429: begin
430:
431: -- copy data to the local IN or IN-OUT args, if any
432:
433:
434:
435:
436: jtf_um_subscription_info_w.rosetta_table_copy_in_p3(ddp_sub_list, p4_a0
437: );
438:
439:
440: -- here's the delegated call to the old PL/SQL routine
437: );
438:
439:
440: -- here's the delegated call to the old PL/SQL routine
441: jtf_um_subscription_info.get_usertype_sub(p_usertype_id,
442: p_user_id,
443: p_is_admin,
444: p_admin_id,
445: ddp_sub_list,
450:
451:
452:
453:
454: jtf_um_subscription_info_w.rosetta_table_copy_out_p2(ddx_result, p5_a0
455: , p5_a1
456: , p5_a2
457: , p5_a3
458: , p5_a4
468: , p5_a14
469: );
470: end;
471:
472: end jtf_um_subscription_info_w;