1: package body qa_audit_pkg_w as
2: /* $Header: qaaudwrb.pls 120.0 2005/06/09 09:41 srhariha noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy qa_audit_pkg.summaryparamarray, a0 JTF_VARCHAR2_TABLE_200
4: ) is
5: ddindx binary_integer; indx binary_integer;
6: begin
7: if a0 is not null and a0.count > 0 then
18: end loop;
19: end if;
20: end if;
21: end rosetta_table_copy_in_p2;
22: procedure rosetta_table_copy_out_p2(t qa_audit_pkg.summaryparamarray, a0 out nocopy JTF_VARCHAR2_TABLE_200
23: ) is
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if t is null or t.count = 0 then
23: ) is
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if t is null or t.count = 0 then
27: a0 := JTF_VARCHAR2_TABLE_200();
28: else
29: a0 := JTF_VARCHAR2_TABLE_200();
30: if t.count > 0 then
31: a0.extend(t.count);
25: begin
26: if t is null or t.count = 0 then
27: a0 := JTF_VARCHAR2_TABLE_200();
28: else
29: a0 := JTF_VARCHAR2_TABLE_200();
30: if t.count > 0 then
31: a0.extend(t.count);
32: ddindx := t.first;
33: indx := 1;
42: end if;
43: end if;
44: end rosetta_table_copy_out_p2;
45:
46: procedure rosetta_table_copy_in_p3(t out nocopy qa_audit_pkg.catsummaryparamarray, a0 JTF_VARCHAR2_TABLE_200
47: , a1 JTF_VARCHAR2_TABLE_200
48: , a2 JTF_VARCHAR2_TABLE_200
49: , a3 JTF_VARCHAR2_TABLE_200
50: ) is
43: end if;
44: end rosetta_table_copy_out_p2;
45:
46: procedure rosetta_table_copy_in_p3(t out nocopy qa_audit_pkg.catsummaryparamarray, a0 JTF_VARCHAR2_TABLE_200
47: , a1 JTF_VARCHAR2_TABLE_200
48: , a2 JTF_VARCHAR2_TABLE_200
49: , a3 JTF_VARCHAR2_TABLE_200
50: ) is
51: ddindx binary_integer; indx binary_integer;
44: end rosetta_table_copy_out_p2;
45:
46: procedure rosetta_table_copy_in_p3(t out nocopy qa_audit_pkg.catsummaryparamarray, a0 JTF_VARCHAR2_TABLE_200
47: , a1 JTF_VARCHAR2_TABLE_200
48: , a2 JTF_VARCHAR2_TABLE_200
49: , a3 JTF_VARCHAR2_TABLE_200
50: ) is
51: ddindx binary_integer; indx binary_integer;
52: begin
45:
46: procedure rosetta_table_copy_in_p3(t out nocopy qa_audit_pkg.catsummaryparamarray, a0 JTF_VARCHAR2_TABLE_200
47: , a1 JTF_VARCHAR2_TABLE_200
48: , a2 JTF_VARCHAR2_TABLE_200
49: , a3 JTF_VARCHAR2_TABLE_200
50: ) is
51: ddindx binary_integer; indx binary_integer;
52: begin
53: if a0 is not null and a0.count > 0 then
67: end loop;
68: end if;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t qa_audit_pkg.catsummaryparamarray, a0 out nocopy JTF_VARCHAR2_TABLE_200
72: , a1 out nocopy JTF_VARCHAR2_TABLE_200
73: , a2 out nocopy JTF_VARCHAR2_TABLE_200
74: , a3 out nocopy JTF_VARCHAR2_TABLE_200
75: ) is
68: end if;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t qa_audit_pkg.catsummaryparamarray, a0 out nocopy JTF_VARCHAR2_TABLE_200
72: , a1 out nocopy JTF_VARCHAR2_TABLE_200
73: , a2 out nocopy JTF_VARCHAR2_TABLE_200
74: , a3 out nocopy JTF_VARCHAR2_TABLE_200
75: ) is
76: ddindx binary_integer; indx binary_integer;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t qa_audit_pkg.catsummaryparamarray, a0 out nocopy JTF_VARCHAR2_TABLE_200
72: , a1 out nocopy JTF_VARCHAR2_TABLE_200
73: , a2 out nocopy JTF_VARCHAR2_TABLE_200
74: , a3 out nocopy JTF_VARCHAR2_TABLE_200
75: ) is
76: ddindx binary_integer; indx binary_integer;
77: begin
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t qa_audit_pkg.catsummaryparamarray, a0 out nocopy JTF_VARCHAR2_TABLE_200
72: , a1 out nocopy JTF_VARCHAR2_TABLE_200
73: , a2 out nocopy JTF_VARCHAR2_TABLE_200
74: , a3 out nocopy JTF_VARCHAR2_TABLE_200
75: ) is
76: ddindx binary_integer; indx binary_integer;
77: begin
78: if t is null or t.count = 0 then
75: ) is
76: ddindx binary_integer; indx binary_integer;
77: begin
78: if t is null or t.count = 0 then
79: a0 := JTF_VARCHAR2_TABLE_200();
80: a1 := JTF_VARCHAR2_TABLE_200();
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
76: ddindx binary_integer; indx binary_integer;
77: begin
78: if t is null or t.count = 0 then
79: a0 := JTF_VARCHAR2_TABLE_200();
80: a1 := JTF_VARCHAR2_TABLE_200();
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
77: begin
78: if t is null or t.count = 0 then
79: a0 := JTF_VARCHAR2_TABLE_200();
80: a1 := JTF_VARCHAR2_TABLE_200();
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
78: if t is null or t.count = 0 then
79: a0 := JTF_VARCHAR2_TABLE_200();
80: a1 := JTF_VARCHAR2_TABLE_200();
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
86: a2 := JTF_VARCHAR2_TABLE_200();
80: a1 := JTF_VARCHAR2_TABLE_200();
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
86: a2 := JTF_VARCHAR2_TABLE_200();
87: a3 := JTF_VARCHAR2_TABLE_200();
88: if t.count > 0 then
81: a2 := JTF_VARCHAR2_TABLE_200();
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
86: a2 := JTF_VARCHAR2_TABLE_200();
87: a3 := JTF_VARCHAR2_TABLE_200();
88: if t.count > 0 then
89: a0.extend(t.count);
82: a3 := JTF_VARCHAR2_TABLE_200();
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
86: a2 := JTF_VARCHAR2_TABLE_200();
87: a3 := JTF_VARCHAR2_TABLE_200();
88: if t.count > 0 then
89: a0.extend(t.count);
90: a1.extend(t.count);
83: else
84: a0 := JTF_VARCHAR2_TABLE_200();
85: a1 := JTF_VARCHAR2_TABLE_200();
86: a2 := JTF_VARCHAR2_TABLE_200();
87: a3 := JTF_VARCHAR2_TABLE_200();
88: if t.count > 0 then
89: a0.extend(t.count);
90: a1.extend(t.count);
91: a2.extend(t.count);
108: end rosetta_table_copy_out_p3;
109:
110: procedure copy_questions(p_audit_bank_plan_id NUMBER
111: , p_audit_bank_org_id NUMBER
112: , p2_a0 JTF_VARCHAR2_TABLE_200
113: , p3_a0 JTF_VARCHAR2_TABLE_200
114: , p3_a1 JTF_VARCHAR2_TABLE_200
115: , p3_a2 JTF_VARCHAR2_TABLE_200
116: , p3_a3 JTF_VARCHAR2_TABLE_200
109:
110: procedure copy_questions(p_audit_bank_plan_id NUMBER
111: , p_audit_bank_org_id NUMBER
112: , p2_a0 JTF_VARCHAR2_TABLE_200
113: , p3_a0 JTF_VARCHAR2_TABLE_200
114: , p3_a1 JTF_VARCHAR2_TABLE_200
115: , p3_a2 JTF_VARCHAR2_TABLE_200
116: , p3_a3 JTF_VARCHAR2_TABLE_200
117: , p_audit_question_plan_id NUMBER
110: procedure copy_questions(p_audit_bank_plan_id NUMBER
111: , p_audit_bank_org_id NUMBER
112: , p2_a0 JTF_VARCHAR2_TABLE_200
113: , p3_a0 JTF_VARCHAR2_TABLE_200
114: , p3_a1 JTF_VARCHAR2_TABLE_200
115: , p3_a2 JTF_VARCHAR2_TABLE_200
116: , p3_a3 JTF_VARCHAR2_TABLE_200
117: , p_audit_question_plan_id NUMBER
118: , p_audit_question_org_id NUMBER
111: , p_audit_bank_org_id NUMBER
112: , p2_a0 JTF_VARCHAR2_TABLE_200
113: , p3_a0 JTF_VARCHAR2_TABLE_200
114: , p3_a1 JTF_VARCHAR2_TABLE_200
115: , p3_a2 JTF_VARCHAR2_TABLE_200
116: , p3_a3 JTF_VARCHAR2_TABLE_200
117: , p_audit_question_plan_id NUMBER
118: , p_audit_question_org_id NUMBER
119: , p_audit_num VARCHAR2
112: , p2_a0 JTF_VARCHAR2_TABLE_200
113: , p3_a0 JTF_VARCHAR2_TABLE_200
114: , p3_a1 JTF_VARCHAR2_TABLE_200
115: , p3_a2 JTF_VARCHAR2_TABLE_200
116: , p3_a3 JTF_VARCHAR2_TABLE_200
117: , p_audit_question_plan_id NUMBER
118: , p_audit_question_org_id NUMBER
119: , p_audit_num VARCHAR2
120: , x_count out nocopy NUMBER