[Home] [Help]
PACKAGE BODY: APPS.CN_RULE_PVT_W
Source
1 package body cn_rule_pvt_w as
2 /* $Header: cnwrruleb.pls 120.2 2005/06/17 04:10 appldev $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy cn_rule_pvt.rule_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_VARCHAR2_TABLE_2000
8 , a5 JTF_VARCHAR2_TABLE_2000
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 ) as
18 ddindx binary_integer; indx binary_integer;
19 begin
20 if a0 is not null and a0.count > 0 then
21 if a0.count > 0 then
22 indx := a0.first;
23 ddindx := 1;
24 while true loop
25 t(ddindx).ruleset_id := a0(indx);
26 t(ddindx).ruleset_name := a1(indx);
27 t(ddindx).rule_id := a2(indx);
28 t(ddindx).rule_name := a3(indx);
29 t(ddindx).expense_desc := a4(indx);
30 t(ddindx).liability_desc := a5(indx);
31 t(ddindx).revenue_class_name := a6(indx);
32 t(ddindx).parent_rule_id := a7(indx);
33 t(ddindx).revenue_class_id := a8(indx);
34 t(ddindx).expense_ccid := a9(indx);
35 t(ddindx).liability_ccid := a10(indx);
36 t(ddindx).sequence_number := a11(indx);
37 t(ddindx).org_id := a12(indx);
38 t(ddindx).object_version_no := a13(indx);
39 ddindx := ddindx+1;
40 if a0.last =indx
41 then exit;
42 end if;
43 indx := a0.next(indx);
44 end loop;
45 end if;
46 end if;
47 end rosetta_table_copy_in_p2;
48 procedure rosetta_table_copy_out_p2(t cn_rule_pvt.rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
49 , a1 out nocopy JTF_VARCHAR2_TABLE_100
50 , a2 out nocopy JTF_NUMBER_TABLE
51 , a3 out nocopy JTF_VARCHAR2_TABLE_100
52 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
53 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
54 , a6 out nocopy JTF_VARCHAR2_TABLE_100
55 , a7 out nocopy JTF_NUMBER_TABLE
56 , a8 out nocopy JTF_NUMBER_TABLE
57 , a9 out nocopy JTF_NUMBER_TABLE
58 , a10 out nocopy JTF_NUMBER_TABLE
59 , a11 out nocopy JTF_NUMBER_TABLE
60 , a12 out nocopy JTF_NUMBER_TABLE
61 , a13 out nocopy JTF_NUMBER_TABLE
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_NUMBER_TABLE();
67 a1 := JTF_VARCHAR2_TABLE_100();
68 a2 := JTF_NUMBER_TABLE();
69 a3 := JTF_VARCHAR2_TABLE_100();
70 a4 := JTF_VARCHAR2_TABLE_2000();
71 a5 := JTF_VARCHAR2_TABLE_2000();
72 a6 := JTF_VARCHAR2_TABLE_100();
73 a7 := JTF_NUMBER_TABLE();
74 a8 := JTF_NUMBER_TABLE();
75 a9 := JTF_NUMBER_TABLE();
76 a10 := JTF_NUMBER_TABLE();
77 a11 := JTF_NUMBER_TABLE();
78 a12 := JTF_NUMBER_TABLE();
79 a13 := JTF_NUMBER_TABLE();
80 else
81 a0 := JTF_NUMBER_TABLE();
82 a1 := JTF_VARCHAR2_TABLE_100();
83 a2 := JTF_NUMBER_TABLE();
84 a3 := JTF_VARCHAR2_TABLE_100();
85 a4 := JTF_VARCHAR2_TABLE_2000();
86 a5 := JTF_VARCHAR2_TABLE_2000();
87 a6 := JTF_VARCHAR2_TABLE_100();
88 a7 := JTF_NUMBER_TABLE();
89 a8 := JTF_NUMBER_TABLE();
90 a9 := JTF_NUMBER_TABLE();
91 a10 := JTF_NUMBER_TABLE();
92 a11 := JTF_NUMBER_TABLE();
93 a12 := JTF_NUMBER_TABLE();
94 a13 := JTF_NUMBER_TABLE();
95 if t.count > 0 then
96 a0.extend(t.count);
97 a1.extend(t.count);
98 a2.extend(t.count);
99 a3.extend(t.count);
100 a4.extend(t.count);
101 a5.extend(t.count);
102 a6.extend(t.count);
103 a7.extend(t.count);
104 a8.extend(t.count);
105 a9.extend(t.count);
106 a10.extend(t.count);
107 a11.extend(t.count);
108 a12.extend(t.count);
109 a13.extend(t.count);
110 ddindx := t.first;
111 indx := 1;
112 while true loop
113 a0(indx) := t(ddindx).ruleset_id;
114 a1(indx) := t(ddindx).ruleset_name;
115 a2(indx) := t(ddindx).rule_id;
116 a3(indx) := t(ddindx).rule_name;
117 a4(indx) := t(ddindx).expense_desc;
118 a5(indx) := t(ddindx).liability_desc;
119 a6(indx) := t(ddindx).revenue_class_name;
120 a7(indx) := t(ddindx).parent_rule_id;
121 a8(indx) := t(ddindx).revenue_class_id;
122 a9(indx) := t(ddindx).expense_ccid;
123 a10(indx) := t(ddindx).liability_ccid;
124 a11(indx) := t(ddindx).sequence_number;
125 a12(indx) := t(ddindx).org_id;
126 a13(indx) := t(ddindx).object_version_no;
127 indx := indx+1;
128 if t.last =ddindx
129 then exit;
130 end if;
131 ddindx := t.next(ddindx);
132 end loop;
133 end if;
134 end if;
135 end rosetta_table_copy_out_p2;
136
137 procedure create_rule(p_api_version NUMBER
138 , p_init_msg_list VARCHAR2
139 , p_commit VARCHAR2
140 , p_validation_level NUMBER
141 , x_return_status out nocopy VARCHAR2
142 , x_msg_count out nocopy NUMBER
143 , x_msg_data out nocopy VARCHAR2
144 , x_loading_status out nocopy VARCHAR2
145 , p8_a0 NUMBER
146 , p8_a1 NUMBER
147 , p8_a2 VARCHAR2
148 , p8_a3 NUMBER
149 , p8_a4 NUMBER
150 , p8_a5 NUMBER
151 , p8_a6 NUMBER
152 , p8_a7 NUMBER
153 , p8_a8 NUMBER
154 , p8_a9 NUMBER
155 , x_rule_id out nocopy NUMBER
156 )
157
158 as
159 ddp_rule_rec cn_rule_pvt.rule_rec_type;
160 ddindx binary_integer; indx binary_integer;
161 begin
162
163 -- copy data to the local IN or IN-OUT args, if any
164
165
166
167
168
169
170
171
172 ddp_rule_rec.ruleset_id := p8_a0;
173 ddp_rule_rec.rule_id := p8_a1;
174 ddp_rule_rec.rule_name := p8_a2;
175 ddp_rule_rec.parent_rule_id := p8_a3;
176 ddp_rule_rec.revenue_class_id := p8_a4;
177 ddp_rule_rec.expense_ccid := p8_a5;
178 ddp_rule_rec.liability_ccid := p8_a6;
179 ddp_rule_rec.sequence_number := p8_a7;
180 ddp_rule_rec.org_id := p8_a8;
181 ddp_rule_rec.object_version_no := p8_a9;
182
183
184 -- here's the delegated call to the old PL/SQL routine
185 cn_rule_pvt.create_rule(p_api_version,
186 p_init_msg_list,
187 p_commit,
188 p_validation_level,
189 x_return_status,
190 x_msg_count,
191 x_msg_data,
192 x_loading_status,
193 ddp_rule_rec,
194 x_rule_id);
195
196 -- copy data back from the local variables to OUT or IN-OUT args, if any
197
198
199
200
201
202
203
204
205
206 end;
207
208 procedure update_rule(p_api_version NUMBER
209 , p_init_msg_list VARCHAR2
210 , p_commit VARCHAR2
211 , p_validation_level NUMBER
212 , x_return_status out nocopy VARCHAR2
213 , x_msg_count out nocopy NUMBER
214 , x_msg_data out nocopy VARCHAR2
215 , x_loading_status out nocopy VARCHAR2
216 , p8_a0 NUMBER
217 , p8_a1 NUMBER
218 , p8_a2 VARCHAR2
219 , p8_a3 NUMBER
220 , p8_a4 NUMBER
221 , p8_a5 NUMBER
222 , p8_a6 NUMBER
223 , p8_a7 NUMBER
224 , p8_a8 NUMBER
225 , p8_a9 NUMBER
226 , p9_a0 NUMBER
227 , p9_a1 NUMBER
228 , p9_a2 VARCHAR2
229 , p9_a3 NUMBER
230 , p9_a4 NUMBER
231 , p9_a5 NUMBER
232 , p9_a6 NUMBER
233 , p9_a7 NUMBER
234 , p9_a8 NUMBER
235 , p9_a9 NUMBER
236 )
237
238 as
239 ddp_old_rule_rec cn_rule_pvt.rule_rec_type;
240 ddp_rule_rec cn_rule_pvt.rule_rec_type;
241 ddindx binary_integer; indx binary_integer;
242 begin
243
244 -- copy data to the local IN or IN-OUT args, if any
245
246
247
248
249
250
251
252
253 ddp_old_rule_rec.ruleset_id := p8_a0;
254 ddp_old_rule_rec.rule_id := p8_a1;
255 ddp_old_rule_rec.rule_name := p8_a2;
256 ddp_old_rule_rec.parent_rule_id := p8_a3;
257 ddp_old_rule_rec.revenue_class_id := p8_a4;
258 ddp_old_rule_rec.expense_ccid := p8_a5;
259 ddp_old_rule_rec.liability_ccid := p8_a6;
260 ddp_old_rule_rec.sequence_number := p8_a7;
261 ddp_old_rule_rec.org_id := p8_a8;
262 ddp_old_rule_rec.object_version_no := p8_a9;
263
264 ddp_rule_rec.ruleset_id := p9_a0;
265 ddp_rule_rec.rule_id := p9_a1;
266 ddp_rule_rec.rule_name := p9_a2;
267 ddp_rule_rec.parent_rule_id := p9_a3;
268 ddp_rule_rec.revenue_class_id := p9_a4;
269 ddp_rule_rec.expense_ccid := p9_a5;
270 ddp_rule_rec.liability_ccid := p9_a6;
271 ddp_rule_rec.sequence_number := p9_a7;
272 ddp_rule_rec.org_id := p9_a8;
273 ddp_rule_rec.object_version_no := p9_a9;
274
275 -- here's the delegated call to the old PL/SQL routine
276 cn_rule_pvt.update_rule(p_api_version,
277 p_init_msg_list,
278 p_commit,
279 p_validation_level,
280 x_return_status,
281 x_msg_count,
282 x_msg_data,
283 x_loading_status,
284 ddp_old_rule_rec,
285 ddp_rule_rec);
286
287 -- copy data back from the local variables to OUT or IN-OUT args, if any
288
289
290
291
292
293
294
295
296
297 end;
298
299 procedure get_rules(p_api_version NUMBER
300 , p_init_msg_list VARCHAR2
301 , p_commit VARCHAR2
302 , p_validation_level NUMBER
303 , x_return_status out nocopy VARCHAR2
304 , x_msg_count out nocopy NUMBER
305 , x_msg_data out nocopy VARCHAR2
306 , p_ruleset_name VARCHAR2
307 , p_start_record NUMBER
308 , p_increment_count NUMBER
309 , p_order_by VARCHAR2
310 , p11_a0 out nocopy JTF_NUMBER_TABLE
311 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_100
312 , p11_a2 out nocopy JTF_NUMBER_TABLE
313 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_100
314 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_2000
315 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_2000
316 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
317 , p11_a7 out nocopy JTF_NUMBER_TABLE
318 , p11_a8 out nocopy JTF_NUMBER_TABLE
319 , p11_a9 out nocopy JTF_NUMBER_TABLE
320 , p11_a10 out nocopy JTF_NUMBER_TABLE
321 , p11_a11 out nocopy JTF_NUMBER_TABLE
322 , p11_a12 out nocopy JTF_NUMBER_TABLE
323 , p11_a13 out nocopy JTF_NUMBER_TABLE
324 , x_total_records out nocopy NUMBER
325 , x_status out nocopy VARCHAR2
326 , x_loading_status out nocopy VARCHAR2
327 , p_org_id NUMBER
328 )
329
330 as
331 ddx_rule_tbl cn_rule_pvt.rule_tbl_type;
332 ddindx binary_integer; indx binary_integer;
333 begin
334
335 -- copy data to the local IN or IN-OUT args, if any
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352 -- here's the delegated call to the old PL/SQL routine
353 cn_rule_pvt.get_rules(p_api_version,
354 p_init_msg_list,
355 p_commit,
356 p_validation_level,
357 x_return_status,
358 x_msg_count,
359 x_msg_data,
360 p_ruleset_name,
361 p_start_record,
362 p_increment_count,
363 p_order_by,
364 ddx_rule_tbl,
365 x_total_records,
366 x_status,
367 x_loading_status,
368 p_org_id);
369
370 -- copy data back from the local variables to OUT or IN-OUT args, if any
371
372
373
374
375
376
377
378
379
380
381
382 cn_rule_pvt_w.rosetta_table_copy_out_p2(ddx_rule_tbl, p11_a0
383 , p11_a1
384 , p11_a2
385 , p11_a3
386 , p11_a4
387 , p11_a5
388 , p11_a6
389 , p11_a7
390 , p11_a8
391 , p11_a9
392 , p11_a10
393 , p11_a11
394 , p11_a12
395 , p11_a13
396 );
397
398
399
400
401 end;
402
403 end cn_rule_pvt_w;