[Home] [Help]
PACKAGE BODY: APPS.FPA_SCORECARDS_PVT_W
Source
1 package body fpa_scorecards_pvt_w as
2 /* $Header: FPAESCRB.pls 120.2 2005/09/14 11:37:09 appldev noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy fpa_scorecards_pvt.fpa_scorecard_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_2000
6 ) as
7 ddindx binary_integer; indx binary_integer;
8 begin
9 if a0 is not null and a0.count > 0 then
10 if a0.count > 0 then
11 indx := a0.first;
12 ddindx := 1;
13 while true loop
14 t(ddindx).strategic_obj_id := a0(indx);
15 t(ddindx).new_score := a1(indx);
16 t(ddindx).comments := a2(indx);
17 ddindx := ddindx+1;
18 if a0.last =indx
19 then exit;
20 end if;
21 indx := a0.next(indx);
22 end loop;
23 end if;
24 end if;
25 end rosetta_table_copy_in_p2;
26 procedure rosetta_table_copy_out_p2(t fpa_scorecards_pvt.fpa_scorecard_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
27 , a1 out nocopy JTF_NUMBER_TABLE
28 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if t is null or t.count = 0 then
33 a0 := JTF_NUMBER_TABLE();
34 a1 := JTF_NUMBER_TABLE();
35 a2 := JTF_VARCHAR2_TABLE_2000();
36 else
37 a0 := JTF_NUMBER_TABLE();
38 a1 := JTF_NUMBER_TABLE();
39 a2 := JTF_VARCHAR2_TABLE_2000();
40 if t.count > 0 then
41 a0.extend(t.count);
42 a1.extend(t.count);
43 a2.extend(t.count);
44 ddindx := t.first;
45 indx := 1;
46 while true loop
47 a0(indx) := t(ddindx).strategic_obj_id;
48 a1(indx) := t(ddindx).new_score;
49 a2(indx) := t(ddindx).comments;
50 indx := indx+1;
51 if t.last =ddindx
52 then exit;
53 end if;
54 ddindx := t.next(ddindx);
55 end loop;
56 end if;
57 end if;
58 end rosetta_table_copy_out_p2;
59
60 procedure update_calc_pjt_scorecard_aw(p_api_version NUMBER
61 , p_init_msg_list VARCHAR2
62 , p_commit VARCHAR2
63 , p_planning_cycle_id NUMBER
64 , p_project_id NUMBER
65 , p5_a0 JTF_NUMBER_TABLE
66 , p5_a1 JTF_NUMBER_TABLE
67 , p5_a2 JTF_VARCHAR2_TABLE_2000
68 , x_return_status out nocopy VARCHAR2
69 , x_msg_count out nocopy NUMBER
70 , x_msg_data out nocopy VARCHAR2
71 )
72
73 as
74 ddp_scorecard_tbl fpa_scorecards_pvt.fpa_scorecard_tbl_type;
75 ddindx binary_integer; indx binary_integer;
76 begin
77
78 -- copy data to the local IN or IN-OUT args, if any
79
80
81
82
83
84 fpa_scorecards_pvt_w.rosetta_table_copy_in_p2(ddp_scorecard_tbl, p5_a0
85 , p5_a1
86 , p5_a2
87 );
88
89
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 fpa_scorecards_pvt.update_calc_pjt_scorecard_aw(p_api_version,
94 p_init_msg_list,
95 p_commit,
96 p_planning_cycle_id,
97 p_project_id,
98 ddp_scorecard_tbl,
99 x_return_status,
100 x_msg_count,
101 x_msg_data);
102
103 -- copy data back from the local variables to OUT or IN-OUT args, if any
104
105
106
107
108
109
110
111
112 end;
113
114 procedure update_calc_scen_scorecard_aw(p_api_version NUMBER
115 , p_init_msg_list VARCHAR2
116 , p_commit VARCHAR2
117 , p_planning_cycle_id NUMBER
118 , p_scenario_id NUMBER
119 , p_project_id NUMBER
120 , p6_a0 JTF_NUMBER_TABLE
121 , p6_a1 JTF_NUMBER_TABLE
122 , p6_a2 JTF_VARCHAR2_TABLE_2000
123 , x_return_status out nocopy VARCHAR2
124 , x_msg_count out nocopy NUMBER
125 , x_msg_data out nocopy VARCHAR2
126 )
127
128 as
129 ddp_scorecard_tbl fpa_scorecards_pvt.fpa_scorecard_tbl_type;
130 ddindx binary_integer; indx binary_integer;
131 begin
132
133 -- copy data to the local IN or IN-OUT args, if any
134
135
136
137
138
139
140 fpa_scorecards_pvt_w.rosetta_table_copy_in_p2(ddp_scorecard_tbl, p6_a0
141 , p6_a1
142 , p6_a2
143 );
144
145
146
147
148 -- here's the delegated call to the old PL/SQL routine
149 fpa_scorecards_pvt.update_calc_scen_scorecard_aw(p_api_version,
150 p_init_msg_list,
151 p_commit,
152 p_planning_cycle_id,
153 p_scenario_id,
154 p_project_id,
155 ddp_scorecard_tbl,
156 x_return_status,
157 x_msg_count,
158 x_msg_data);
159
160 -- copy data back from the local variables to OUT or IN-OUT args, if any
161
162
163
164
165
166
167
168
169
170 end;
171
172 end fpa_scorecards_pvt_w;