1: package body okc_xprt_xrule_values_pvt_w as
2: /* $Header: OKCWXXRULVB.pls 120.3 2005/12/14 16:11 arsundar noship $ */
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_p4(t out nocopy okc_xprt_xrule_values_pvt.sys_var_value_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_2500
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p4;
43: procedure rosetta_table_copy_out_p4(t okc_xprt_xrule_values_pvt.sys_var_value_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
44: , a1 out nocopy JTF_VARCHAR2_TABLE_2500
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
68: end if;
69: end if;
70: end rosetta_table_copy_out_p4;
71:
72: procedure rosetta_table_copy_in_p5(t out nocopy okc_xprt_xrule_values_pvt.category_tbl_type, a0 JTF_VARCHAR2_TABLE_2000
73: ) as
74: ddindx binary_integer; indx binary_integer;
75: begin
76: if a0 is not null and a0.count > 0 then
87: end loop;
88: end if;
89: end if;
90: end rosetta_table_copy_in_p5;
91: procedure rosetta_table_copy_out_p5(t okc_xprt_xrule_values_pvt.category_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_2000
92: ) as
93: ddindx binary_integer; indx binary_integer;
94: begin
95: if t is null or t.count = 0 then
111: end if;
112: end if;
113: end rosetta_table_copy_out_p5;
114:
115: procedure rosetta_table_copy_in_p6(t out nocopy okc_xprt_xrule_values_pvt.item_tbl_type, a0 JTF_VARCHAR2_TABLE_2000
116: ) as
117: ddindx binary_integer; indx binary_integer;
118: begin
119: if a0 is not null and a0.count > 0 then
130: end loop;
131: end if;
132: end if;
133: end rosetta_table_copy_in_p6;
134: procedure rosetta_table_copy_out_p6(t okc_xprt_xrule_values_pvt.item_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_2000
135: ) as
136: ddindx binary_integer; indx binary_integer;
137: begin
138: if t is null or t.count = 0 then
154: end if;
155: end if;
156: end rosetta_table_copy_out_p6;
157:
158: procedure rosetta_table_copy_in_p7(t out nocopy okc_xprt_xrule_values_pvt.constant_tbl_type, a0 JTF_VARCHAR2_TABLE_100
159: , a1 JTF_VARCHAR2_TABLE_100
160: ) as
161: ddindx binary_integer; indx binary_integer;
162: begin
175: end loop;
176: end if;
177: end if;
178: end rosetta_table_copy_in_p7;
179: procedure rosetta_table_copy_out_p7(t okc_xprt_xrule_values_pvt.constant_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
180: , a1 out nocopy JTF_VARCHAR2_TABLE_100
181: ) as
182: ddindx binary_integer; indx binary_integer;
183: begin
204: end if;
205: end if;
206: end rosetta_table_copy_out_p7;
207:
208: procedure rosetta_table_copy_in_p9(t out nocopy okc_xprt_xrule_values_pvt.line_sys_var_value_tbl_type, a0 JTF_VARCHAR2_TABLE_300
209: , a1 JTF_VARCHAR2_TABLE_100
210: , a2 JTF_VARCHAR2_TABLE_2500
211: , a3 JTF_NUMBER_TABLE
212: , a4 JTF_NUMBER_TABLE
231: end loop;
232: end if;
233: end if;
234: end rosetta_table_copy_in_p9;
235: procedure rosetta_table_copy_out_p9(t okc_xprt_xrule_values_pvt.line_sys_var_value_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
236: , a1 out nocopy JTF_VARCHAR2_TABLE_100
237: , a2 out nocopy JTF_VARCHAR2_TABLE_2500
238: , a3 out nocopy JTF_NUMBER_TABLE
239: , a4 out nocopy JTF_NUMBER_TABLE
275: end if;
276: end if;
277: end rosetta_table_copy_out_p9;
278:
279: procedure rosetta_table_copy_in_p10(t out nocopy okc_xprt_xrule_values_pvt.udf_var_value_tbl_type, a0 JTF_VARCHAR2_TABLE_100
280: , a1 JTF_VARCHAR2_TABLE_2500
281: ) as
282: ddindx binary_integer; indx binary_integer;
283: begin
296: end loop;
297: end if;
298: end if;
299: end rosetta_table_copy_in_p10;
300: procedure rosetta_table_copy_out_p10(t okc_xprt_xrule_values_pvt.udf_var_value_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
301: , a1 out nocopy JTF_VARCHAR2_TABLE_2500
302: ) as
303: ddindx binary_integer; indx binary_integer;
304: begin
325: end if;
326: end if;
327: end rosetta_table_copy_out_p10;
328:
329: procedure rosetta_table_copy_in_p11(t out nocopy okc_xprt_xrule_values_pvt.var_value_tbl_type, a0 JTF_VARCHAR2_TABLE_100
330: , a1 JTF_VARCHAR2_TABLE_2500
331: ) as
332: ddindx binary_integer; indx binary_integer;
333: begin
346: end loop;
347: end if;
348: end if;
349: end rosetta_table_copy_in_p11;
350: procedure rosetta_table_copy_out_p11(t okc_xprt_xrule_values_pvt.var_value_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
351: , a1 out nocopy JTF_VARCHAR2_TABLE_2500
352: ) as
353: ddindx binary_integer; indx binary_integer;
354: begin
388: , p8_a1 out nocopy JTF_VARCHAR2_TABLE_2500
389: )
390:
391: as
392: ddx_sys_var_value_tbl okc_xprt_xrule_values_pvt.var_value_tbl_type;
393: ddindx binary_integer; indx binary_integer;
394: begin
395:
396: -- copy data to the local IN or IN-OUT args, if any
403:
404:
405:
406: -- here's the delegated call to the old PL/SQL routine
407: okc_xprt_xrule_values_pvt.get_system_variables(p_api_version,
408: p_init_msg_list,
409: x_return_status,
410: x_msg_data,
411: x_msg_count,
422:
423:
424:
425:
426: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p11(ddx_sys_var_value_tbl, p8_a0
427: , p8_a1
428: );
429: end;
430:
438: , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
439: )
440:
441: as
442: ddx_constant_tbl okc_xprt_xrule_values_pvt.constant_tbl_type;
443: ddindx binary_integer; indx binary_integer;
444: begin
445:
446: -- copy data to the local IN or IN-OUT args, if any
451:
452:
453:
454: -- here's the delegated call to the old PL/SQL routine
455: okc_xprt_xrule_values_pvt.get_constant_values(p_api_version,
456: p_init_msg_list,
457: p_intent,
458: x_return_status,
459: x_msg_data,
466:
467:
468:
469:
470: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p7(ddx_constant_tbl, p6_a0
471: , p6_a1
472: );
473: end;
474:
489: , x_line_variables_count out nocopy NUMBER
490: )
491:
492: as
493: ddx_line_sys_var_value_tbl okc_xprt_xrule_values_pvt.line_sys_var_value_tbl_type;
494: ddindx binary_integer; indx binary_integer;
495: begin
496:
497: -- copy data to the local IN or IN-OUT args, if any
506:
507:
508:
509: -- here's the delegated call to the old PL/SQL routine
510: okc_xprt_xrule_values_pvt.get_line_system_variables(p_api_version,
511: p_init_msg_list,
512: p_doc_type,
513: p_doc_id,
514: p_org_id,
527:
528:
529:
530:
531: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p9(ddx_line_sys_var_value_tbl, p8_a0
532: , p8_a1
533: , p8_a2
534: , p8_a3
535: , p8_a4
551: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_2500
552: )
553:
554: as
555: ddx_udf_var_value_tbl okc_xprt_xrule_values_pvt.udf_var_value_tbl_type;
556: ddindx binary_integer; indx binary_integer;
557: begin
558:
559: -- copy data to the local IN or IN-OUT args, if any
567:
568:
569:
570: -- here's the delegated call to the old PL/SQL routine
571: okc_xprt_xrule_values_pvt.get_user_defined_variables(p_api_version,
572: p_init_msg_list,
573: p_doc_type,
574: p_doc_id,
575: p_org_id,
588:
589:
590:
591:
592: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p10(ddx_udf_var_value_tbl, p9_a0
593: , p9_a1
594: );
595: end;
596:
614: , x_org_id out nocopy NUMBER
615: )
616:
617: as
618: ddx_hdr_var_value_tbl okc_xprt_xrule_values_pvt.var_value_tbl_type;
619: ddx_line_sysvar_value_tbl okc_xprt_xrule_values_pvt.line_sys_var_value_tbl_type;
620: ddindx binary_integer; indx binary_integer;
621: begin
622:
615: )
616:
617: as
618: ddx_hdr_var_value_tbl okc_xprt_xrule_values_pvt.var_value_tbl_type;
619: ddx_line_sysvar_value_tbl okc_xprt_xrule_values_pvt.line_sys_var_value_tbl_type;
620: ddindx binary_integer; indx binary_integer;
621: begin
622:
623: -- copy data to the local IN or IN-OUT args, if any
634:
635:
636:
637: -- here's the delegated call to the old PL/SQL routine
638: okc_xprt_xrule_values_pvt.get_document_values(p_api_version,
639: p_init_msg_list,
640: p_doc_type,
641: p_doc_id,
642: x_return_status,
656:
657:
658:
659:
660: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p11(ddx_hdr_var_value_tbl, p7_a0
661: , p7_a1
662: );
663:
664: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p9(ddx_line_sysvar_value_tbl, p8_a0
660: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p11(ddx_hdr_var_value_tbl, p7_a0
661: , p7_a1
662: );
663:
664: okc_xprt_xrule_values_pvt_w.rosetta_table_copy_out_p9(ddx_line_sysvar_value_tbl, p8_a0
665: , p8_a1
666: , p8_a2
667: , p8_a3
668: , p8_a4
672:
673:
674: end;
675:
676: end okc_xprt_xrule_values_pvt_w;