[Home] [Help]
PACKAGE BODY: APPS.CN_ACC_PERIODS_PVT_W
Source
1 package body cn_acc_periods_pvt_w as
2 /* $Header: cnwsyprb.pls 120.1 2005/09/14 03:43 vensrini noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_acc_periods_pvt.acc_period_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_DATE_TABLE
6 , a3 JTF_DATE_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_NUMBER_TABLE
11 ) as
12 ddindx binary_integer; indx binary_integer;
13 begin
14 if a0 is not null and a0.count > 0 then
15 if a0.count > 0 then
16 indx := a0.first;
17 ddindx := 1;
18 while true loop
19 t(ddindx).period_name := a0(indx);
20 t(ddindx).period_year := a1(indx);
21 t(ddindx).start_date := a2(indx);
22 t(ddindx).end_date := a3(indx);
23 t(ddindx).closing_status_meaning := a4(indx);
24 t(ddindx).prosessing_status := a5(indx);
25 t(ddindx).freeze_flag := a6(indx);
26 t(ddindx).object_version_number := a7(indx);
27 ddindx := ddindx+1;
28 if a0.last =indx
29 then exit;
30 end if;
31 indx := a0.next(indx);
32 end loop;
33 end if;
34 end if;
35 end rosetta_table_copy_in_p1;
36 procedure rosetta_table_copy_out_p1(t cn_acc_periods_pvt.acc_period_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
37 , a1 out nocopy JTF_NUMBER_TABLE
38 , a2 out nocopy JTF_DATE_TABLE
39 , a3 out nocopy JTF_DATE_TABLE
40 , a4 out nocopy JTF_VARCHAR2_TABLE_100
44 ) as
41 , a5 out nocopy JTF_VARCHAR2_TABLE_100
42 , a6 out nocopy JTF_VARCHAR2_TABLE_100
43 , a7 out nocopy JTF_NUMBER_TABLE
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if t is null or t.count = 0 then
48 a0 := JTF_VARCHAR2_TABLE_100();
49 a1 := JTF_NUMBER_TABLE();
50 a2 := JTF_DATE_TABLE();
51 a3 := JTF_DATE_TABLE();
52 a4 := JTF_VARCHAR2_TABLE_100();
53 a5 := JTF_VARCHAR2_TABLE_100();
54 a6 := JTF_VARCHAR2_TABLE_100();
55 a7 := JTF_NUMBER_TABLE();
56 else
57 a0 := JTF_VARCHAR2_TABLE_100();
58 a1 := JTF_NUMBER_TABLE();
59 a2 := JTF_DATE_TABLE();
60 a3 := JTF_DATE_TABLE();
61 a4 := JTF_VARCHAR2_TABLE_100();
62 a5 := JTF_VARCHAR2_TABLE_100();
63 a6 := JTF_VARCHAR2_TABLE_100();
64 a7 := JTF_NUMBER_TABLE();
65 if t.count > 0 then
66 a0.extend(t.count);
67 a1.extend(t.count);
68 a2.extend(t.count);
69 a3.extend(t.count);
70 a4.extend(t.count);
71 a5.extend(t.count);
72 a6.extend(t.count);
73 a7.extend(t.count);
74 ddindx := t.first;
75 indx := 1;
76 while true loop
77 a0(indx) := t(ddindx).period_name;
78 a1(indx) := t(ddindx).period_year;
79 a2(indx) := t(ddindx).start_date;
80 a3(indx) := t(ddindx).end_date;
81 a4(indx) := t(ddindx).closing_status_meaning;
82 a5(indx) := t(ddindx).prosessing_status;
83 a6(indx) := t(ddindx).freeze_flag;
84 a7(indx) := t(ddindx).object_version_number;
85 indx := indx+1;
86 if t.last =ddindx
87 then exit;
88 end if;
89 ddindx := t.next(ddindx);
90 end loop;
91 end if;
92 end if;
93 end rosetta_table_copy_out_p1;
94
95 procedure update_acc_periods(p_api_version NUMBER
96 , p_init_msg_list VARCHAR2
97 , p_commit VARCHAR2
98 , p_validation_level NUMBER
99 , p4_a0 JTF_VARCHAR2_TABLE_100
100 , p4_a1 JTF_NUMBER_TABLE
101 , p4_a2 JTF_DATE_TABLE
102 , p4_a3 JTF_DATE_TABLE
103 , p4_a4 JTF_VARCHAR2_TABLE_100
104 , p4_a5 JTF_VARCHAR2_TABLE_100
105 , p4_a6 JTF_VARCHAR2_TABLE_100
106 , p4_a7 JTF_NUMBER_TABLE
107 , p_org_id NUMBER
108 , x_return_status out nocopy VARCHAR2
109 , x_msg_count out nocopy NUMBER
110 , x_msg_data out nocopy VARCHAR2
111 )
112
113 as
114 ddp_acc_period_tbl cn_acc_periods_pvt.acc_period_tbl_type;
115 ddindx binary_integer; indx binary_integer;
116 begin
117
118 -- copy data to the local IN or IN-OUT args, if any
119
120
121
122
123 cn_acc_periods_pvt_w.rosetta_table_copy_in_p1(ddp_acc_period_tbl, p4_a0
124 , p4_a1
125 , p4_a2
126 , p4_a3
127 , p4_a4
128 , p4_a5
129 , p4_a6
130 , p4_a7
131 );
132
133
134
135
136
137 -- here's the delegated call to the old PL/SQL routine
138 cn_acc_periods_pvt.update_acc_periods(p_api_version,
139 p_init_msg_list,
140 p_commit,
141 p_validation_level,
142 ddp_acc_period_tbl,
143 p_org_id,
144 x_return_status,
145 x_msg_count,
146 x_msg_data);
147
148 -- copy data back from the local variables to OUT or IN-OUT args, if any
149
150
151
152
153
154
155
156
157 end;
158
159 procedure get_acc_periods(p_year NUMBER
160 , x_system_status out nocopy VARCHAR2
161 , x_calendar out nocopy VARCHAR2
162 , x_period_type out nocopy VARCHAR2
163 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
164 , p4_a1 out nocopy JTF_NUMBER_TABLE
165 , p4_a2 out nocopy JTF_DATE_TABLE
166 , p4_a3 out nocopy JTF_DATE_TABLE
167 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
168 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
169 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
170 , p4_a7 out nocopy JTF_NUMBER_TABLE
171 )
172
173 as
174 ddx_acc_period_tbl cn_acc_periods_pvt.acc_period_tbl_type;
175 ddindx binary_integer; indx binary_integer;
176 begin
177
178 -- copy data to the local IN or IN-OUT args, if any
179
180
181
182
183
184 -- here's the delegated call to the old PL/SQL routine
185 cn_acc_periods_pvt.get_acc_periods(p_year,
186 x_system_status,
187 x_calendar,
188 x_period_type,
189 ddx_acc_period_tbl);
190
191 -- copy data back from the local variables to OUT or IN-OUT args, if any
192
193
194
195
196 cn_acc_periods_pvt_w.rosetta_table_copy_out_p1(ddx_acc_period_tbl, p4_a0
197 , p4_a1
198 , p4_a2
199 , p4_a3
200 , p4_a4
201 , p4_a5
202 , p4_a6
203 , p4_a7
204 );
205 end;
206
207 end cn_acc_periods_pvt_w;