1: package body okc_xprt_qa_pvt_w as
2: /* $Header: OKCWXRULQAB.pls 120.0 2005/05/25 22:55:47 appldev noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy okc_xprt_qa_pvt.ruleidlist, a0 JTF_NUMBER_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is not null and a0.count > 0 then
7: if a0.count > 0 then
17: end loop;
18: end if;
19: end if;
20: end rosetta_table_copy_in_p0;
21: procedure rosetta_table_copy_out_p0(t okc_xprt_qa_pvt.ruleidlist, a0 out nocopy JTF_NUMBER_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_NUMBER_TABLE();
21: procedure rosetta_table_copy_out_p0(t okc_xprt_qa_pvt.ruleidlist, a0 out nocopy JTF_NUMBER_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_NUMBER_TABLE();
26: else
27: a0 := JTF_NUMBER_TABLE();
28: if t.count > 0 then
29: a0.extend(t.count);
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_NUMBER_TABLE();
26: else
27: a0 := JTF_NUMBER_TABLE();
28: if t.count > 0 then
29: a0.extend(t.count);
30: ddindx := t.first;
31: indx := 1;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure qa_rules(p_qa_mode VARCHAR2
45: , p_ruleid_tbl JTF_NUMBER_TABLE
46: , x_sequence_id out nocopy NUMBER
47: , x_qa_status out nocopy VARCHAR2
48: , x_return_status out nocopy VARCHAR2
49: , x_msg_count out nocopy NUMBER
83: end;
84:
85: procedure sync_rules(p_sync_mode VARCHAR2
86: , p_org_id NUMBER
87: , p_ruleid_tbl JTF_NUMBER_TABLE
88: , x_request_id out nocopy NUMBER
89: , x_return_status out nocopy VARCHAR2
90: , x_msg_count out nocopy NUMBER
91: , x_msg_data out nocopy VARCHAR2