PACKAGE BODY: APPS.PA_CI_IMPACT_TYPE_USAGE_PVT_W

Source

1 package body pa_ci_impact_type_usage_pvt_w as
2   /* $Header: PACIIMUB.pls 120.0.12010000.1 2009/06/08 18:58:03 cklee noship $ */
3   procedure rosetta_table_copy_in_p9(t out nocopy pa_ci_impact_type_usage_pvt.impact_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4     ) as
5     ddindx binary_integer; indx binary_integer;
6   begin
7   if a0 is not null and a0.count > 0 then
8       if a0.count > 0 then
9         indx := a0.first;
10         ddindx := 1;
11         while true loop
12           t(ddindx).impact_type_code := a0(indx);
13           ddindx := ddindx+1;
14           if a0.last =indx
15             then exit;
16           end if;
17           indx := a0.next(indx);
18         end loop;
19       end if;
20    end if;
21   end rosetta_table_copy_in_p9;
22   procedure rosetta_table_copy_out_p9(t pa_ci_impact_type_usage_pvt.impact_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
23     ) as
24     ddindx binary_integer; indx binary_integer;
25   begin
26   if t is null or t.count = 0 then
27     a0 := JTF_VARCHAR2_TABLE_100();
28   else
29       a0 := JTF_VARCHAR2_TABLE_100();
30       if t.count > 0 then
31         a0.extend(t.count);
32         ddindx := t.first;
33         indx := 1;
34         while true loop
35           a0(indx) := t(ddindx).impact_type_code;
36           indx := indx+1;
37           if t.last =ddindx
38             then exit;
39           end if;
40           ddindx := t.next(ddindx);
41         end loop;
42       end if;
43    end if;
44   end rosetta_table_copy_out_p9;
45 
46   procedure apply_ci_impact_type_usage(p_api_version  NUMBER
47     , p_init_msg_list  VARCHAR2
48     , p_commit  VARCHAR2
49     , p_validate_only  VARCHAR2
50     , p_max_msg_count  NUMBER
51     , p_ui_mode  VARCHAR2
52     , p_ci_class_code  VARCHAR2
53     , p_ci_type_id  NUMBER
54     , p8_a0 JTF_VARCHAR2_TABLE_100
55     , x_return_status out nocopy  VARCHAR2
56     , x_msg_count out nocopy  NUMBER
57     , x_msg_data out nocopy  VARCHAR2
58   )
59 
60   as
61     ddp_impact_tbl pa_ci_impact_type_usage_pvt.impact_tbl_type;
62     ddindx binary_integer; indx binary_integer;
63   begin
64 
65     -- copy data to the local IN or IN-OUT args, if any
66 
67 
68 
69 
70 
71 
72 
73 
74     pa_ci_impact_type_usage_pvt_w.rosetta_table_copy_in_p9(ddp_impact_tbl, p8_a0
75       );
76 
77 
78 
79 
80     -- here's the delegated call to the old PL/SQL routine
81     pa_ci_impact_type_usage_pvt.apply_ci_impact_type_usage(p_api_version,
82       p_init_msg_list,
83       p_commit,
84       p_validate_only,
85       p_max_msg_count,
86       p_ui_mode,
87       p_ci_class_code,
88       p_ci_type_id,
89       ddp_impact_tbl,
90       x_return_status,
91       x_msg_count,
92       x_msg_data);
93 
94     -- copy data back from the local variables to OUT or IN-OUT args, if any
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106   end;
107 
108 end pa_ci_impact_type_usage_pvt_w;