eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
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;