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.OKL_CNTR_GRP_BILLING_PVT_W

Source


1 package body okl_cntr_grp_billing_pvt_w as
2   /* $Header: OKLICLBB.pls 120.3 2008/02/21 13:25:14 udhenuko noship $ */
3   procedure rosetta_table_copy_in_p14(t out nocopy okl_cntr_grp_billing_pvt.cntr_bill_tbl_type, a0 JTF_NUMBER_TABLE
4     , a1 JTF_VARCHAR2_TABLE_200
5     , a2 JTF_NUMBER_TABLE
6     , a3 JTF_VARCHAR2_TABLE_100
7     , a4 JTF_VARCHAR2_TABLE_200
8     , a5 JTF_VARCHAR2_TABLE_200
9     , a6 JTF_VARCHAR2_TABLE_100
10     , a7 JTF_VARCHAR2_TABLE_100
11     , a8 JTF_DATE_TABLE
12     , a9 JTF_DATE_TABLE
13     , a10 JTF_NUMBER_TABLE
14     , a11 JTF_DATE_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).clg_id := a0(indx);
26           t(ddindx).counter_group := a1(indx);
27           t(ddindx).counter_number := a2(indx);
28           t(ddindx).counter_name := a3(indx);
29           t(ddindx).contract_number := a4(indx);
30           t(ddindx).asset_number := a5(indx);
31           t(ddindx).asset_serial_number := a6(indx);
32           t(ddindx).asset_description := a7(indx);
33           t(ddindx).effective_date_from := a8(indx);
34           t(ddindx).effective_date_to := a9(indx);
35           t(ddindx).counter_reading := a10(indx);
36           t(ddindx).counter_reading_date := a11(indx);
37           t(ddindx).counter_bill_amount := a12(indx);
38           t(ddindx).legal_entity_id := 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_p14;
48   procedure rosetta_table_copy_out_p14(t okl_cntr_grp_billing_pvt.cntr_bill_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
49     , a1 out nocopy JTF_VARCHAR2_TABLE_200
50     , a2 out nocopy JTF_NUMBER_TABLE
51     , a3 out nocopy JTF_VARCHAR2_TABLE_100
52     , a4 out nocopy JTF_VARCHAR2_TABLE_200
53     , a5 out nocopy JTF_VARCHAR2_TABLE_200
54     , a6 out nocopy JTF_VARCHAR2_TABLE_100
55     , a7 out nocopy JTF_VARCHAR2_TABLE_100
56     , a8 out nocopy JTF_DATE_TABLE
57     , a9 out nocopy JTF_DATE_TABLE
58     , a10 out nocopy JTF_NUMBER_TABLE
59     , a11 out nocopy JTF_DATE_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_200();
68     a2 := JTF_NUMBER_TABLE();
69     a3 := JTF_VARCHAR2_TABLE_100();
70     a4 := JTF_VARCHAR2_TABLE_200();
71     a5 := JTF_VARCHAR2_TABLE_200();
72     a6 := JTF_VARCHAR2_TABLE_100();
73     a7 := JTF_VARCHAR2_TABLE_100();
74     a8 := JTF_DATE_TABLE();
75     a9 := JTF_DATE_TABLE();
76     a10 := JTF_NUMBER_TABLE();
77     a11 := JTF_DATE_TABLE();
78     a12 := JTF_NUMBER_TABLE();
79     a13 := JTF_NUMBER_TABLE();
80   else
81       a0 := JTF_NUMBER_TABLE();
82       a1 := JTF_VARCHAR2_TABLE_200();
83       a2 := JTF_NUMBER_TABLE();
84       a3 := JTF_VARCHAR2_TABLE_100();
85       a4 := JTF_VARCHAR2_TABLE_200();
86       a5 := JTF_VARCHAR2_TABLE_200();
87       a6 := JTF_VARCHAR2_TABLE_100();
88       a7 := JTF_VARCHAR2_TABLE_100();
89       a8 := JTF_DATE_TABLE();
90       a9 := JTF_DATE_TABLE();
91       a10 := JTF_NUMBER_TABLE();
92       a11 := JTF_DATE_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).clg_id;
114           a1(indx) := t(ddindx).counter_group;
115           a2(indx) := t(ddindx).counter_number;
116           a3(indx) := t(ddindx).counter_name;
117           a4(indx) := t(ddindx).contract_number;
118           a5(indx) := t(ddindx).asset_number;
119           a6(indx) := t(ddindx).asset_serial_number;
120           a7(indx) := t(ddindx).asset_description;
121           a8(indx) := t(ddindx).effective_date_from;
122           a9(indx) := t(ddindx).effective_date_to;
123           a10(indx) := t(ddindx).counter_reading;
124           a11(indx) := t(ddindx).counter_reading_date;
125           a12(indx) := t(ddindx).counter_bill_amount;
126           a13(indx) := t(ddindx).legal_entity_id;
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_p14;
136 
137   procedure counter_grp_billing_calc(p_api_version  NUMBER
138     , p_init_msg_list  VARCHAR2
139     , x_return_status out nocopy  VARCHAR2
140     , x_msg_count out nocopy  NUMBER
141     , x_msg_data out nocopy  VARCHAR2
142     , p5_a0  NUMBER
143     , p5_a1  VARCHAR2
144     , p5_a2  NUMBER
145     , p5_a3  VARCHAR2
146     , p5_a4  VARCHAR2
147     , p5_a5  VARCHAR2
148     , p5_a6  VARCHAR2
149     , p5_a7  VARCHAR2
150     , p5_a8  DATE
151     , p5_a9  DATE
152     , p5_a10  NUMBER
153     , p5_a11  DATE
154     , p5_a12  NUMBER
155     , p5_a13  NUMBER
156     , p6_a0 out nocopy  NUMBER
157     , p6_a1 out nocopy  VARCHAR2
158     , p6_a2 out nocopy  NUMBER
159     , p6_a3 out nocopy  VARCHAR2
160     , p6_a4 out nocopy  VARCHAR2
161     , p6_a5 out nocopy  VARCHAR2
162     , p6_a6 out nocopy  VARCHAR2
163     , p6_a7 out nocopy  VARCHAR2
164     , p6_a8 out nocopy  DATE
165     , p6_a9 out nocopy  DATE
166     , p6_a10 out nocopy  NUMBER
167     , p6_a11 out nocopy  DATE
168     , p6_a12 out nocopy  NUMBER
169     , p6_a13 out nocopy  NUMBER
170   )
171 
172   as
173     ddp_cntr_bill_rec okl_cntr_grp_billing_pvt.cntr_bill_rec_type;
174     ddx_cntr_bill_rec okl_cntr_grp_billing_pvt.cntr_bill_rec_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     ddp_cntr_bill_rec.clg_id := p5_a0;
185     ddp_cntr_bill_rec.counter_group := p5_a1;
186     ddp_cntr_bill_rec.counter_number := p5_a2;
187     ddp_cntr_bill_rec.counter_name := p5_a3;
188     ddp_cntr_bill_rec.contract_number := p5_a4;
189     ddp_cntr_bill_rec.asset_number := p5_a5;
190     ddp_cntr_bill_rec.asset_serial_number := p5_a6;
191     ddp_cntr_bill_rec.asset_description := p5_a7;
192     ddp_cntr_bill_rec.effective_date_from := p5_a8;
193     ddp_cntr_bill_rec.effective_date_to := p5_a9;
194     ddp_cntr_bill_rec.counter_reading := p5_a10;
195     ddp_cntr_bill_rec.counter_reading_date := p5_a11;
196     ddp_cntr_bill_rec.counter_bill_amount := p5_a12;
197     ddp_cntr_bill_rec.legal_entity_id := p5_a13;
198 
199 
200     -- here's the delegated call to the old PL/SQL routine
201     okl_cntr_grp_billing_pvt.counter_grp_billing_calc(p_api_version,
202       p_init_msg_list,
203       x_return_status,
204       x_msg_count,
205       x_msg_data,
206       ddp_cntr_bill_rec,
207       ddx_cntr_bill_rec);
208 
209     -- copy data back from the local variables to OUT or IN-OUT args, if any
210 
211 
212 
213 
214 
215 
216     p6_a0 := ddx_cntr_bill_rec.clg_id;
217     p6_a1 := ddx_cntr_bill_rec.counter_group;
218     p6_a2 := ddx_cntr_bill_rec.counter_number;
219     p6_a3 := ddx_cntr_bill_rec.counter_name;
220     p6_a4 := ddx_cntr_bill_rec.contract_number;
221     p6_a5 := ddx_cntr_bill_rec.asset_number;
222     p6_a6 := ddx_cntr_bill_rec.asset_serial_number;
223     p6_a7 := ddx_cntr_bill_rec.asset_description;
224     p6_a8 := ddx_cntr_bill_rec.effective_date_from;
225     p6_a9 := ddx_cntr_bill_rec.effective_date_to;
226     p6_a10 := ddx_cntr_bill_rec.counter_reading;
227     p6_a11 := ddx_cntr_bill_rec.counter_reading_date;
228     p6_a12 := ddx_cntr_bill_rec.counter_bill_amount;
229     p6_a13 := ddx_cntr_bill_rec.legal_entity_id;
230   end;
231 
232   procedure counter_grp_billing_calc(p_api_version  NUMBER
233     , p_init_msg_list  VARCHAR2
234     , x_return_status out nocopy  VARCHAR2
235     , x_msg_count out nocopy  NUMBER
236     , x_msg_data out nocopy  VARCHAR2
237     , p5_a0 JTF_NUMBER_TABLE
238     , p5_a1 JTF_VARCHAR2_TABLE_200
239     , p5_a2 JTF_NUMBER_TABLE
240     , p5_a3 JTF_VARCHAR2_TABLE_100
241     , p5_a4 JTF_VARCHAR2_TABLE_200
242     , p5_a5 JTF_VARCHAR2_TABLE_200
243     , p5_a6 JTF_VARCHAR2_TABLE_100
244     , p5_a7 JTF_VARCHAR2_TABLE_100
245     , p5_a8 JTF_DATE_TABLE
246     , p5_a9 JTF_DATE_TABLE
247     , p5_a10 JTF_NUMBER_TABLE
248     , p5_a11 JTF_DATE_TABLE
249     , p5_a12 JTF_NUMBER_TABLE
250     , p5_a13 JTF_NUMBER_TABLE
251     , p6_a0 out nocopy JTF_NUMBER_TABLE
252     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
253     , p6_a2 out nocopy JTF_NUMBER_TABLE
254     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
255     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
256     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
257     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
258     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
259     , p6_a8 out nocopy JTF_DATE_TABLE
260     , p6_a9 out nocopy JTF_DATE_TABLE
261     , p6_a10 out nocopy JTF_NUMBER_TABLE
262     , p6_a11 out nocopy JTF_DATE_TABLE
263     , p6_a12 out nocopy JTF_NUMBER_TABLE
264     , p6_a13 out nocopy JTF_NUMBER_TABLE
265   )
266 
267   as
268     ddp_cntr_bill_tbl okl_cntr_grp_billing_pvt.cntr_bill_tbl_type;
269     ddx_cntr_bill_tbl okl_cntr_grp_billing_pvt.cntr_bill_tbl_type;
270     ddindx binary_integer; indx binary_integer;
271   begin
272 
273     -- copy data to the local IN or IN-OUT args, if any
274 
275 
276 
277 
278 
279     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_in_p14(ddp_cntr_bill_tbl, p5_a0
280       , p5_a1
281       , p5_a2
282       , p5_a3
283       , p5_a4
284       , p5_a5
285       , p5_a6
286       , p5_a7
287       , p5_a8
288       , p5_a9
289       , p5_a10
290       , p5_a11
291       , p5_a12
292       , p5_a13
293       );
294 
295 
296     -- here's the delegated call to the old PL/SQL routine
297     okl_cntr_grp_billing_pvt.counter_grp_billing_calc(p_api_version,
298       p_init_msg_list,
299       x_return_status,
300       x_msg_count,
301       x_msg_data,
302       ddp_cntr_bill_tbl,
303       ddx_cntr_bill_tbl);
304 
305     -- copy data back from the local variables to OUT or IN-OUT args, if any
306 
307 
308 
309 
310 
311 
312     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_out_p14(ddx_cntr_bill_tbl, p6_a0
313       , p6_a1
314       , p6_a2
315       , p6_a3
316       , p6_a4
317       , p6_a5
318       , p6_a6
319       , p6_a7
320       , p6_a8
321       , p6_a9
322       , p6_a10
323       , p6_a11
324       , p6_a12
325       , p6_a13
326       );
327   end;
328 
329   procedure counter_grp_billing_insert(p_api_version  NUMBER
330     , p_init_msg_list  VARCHAR2
331     , x_return_status out nocopy  VARCHAR2
332     , x_msg_count out nocopy  NUMBER
333     , x_msg_data out nocopy  VARCHAR2
334     , p5_a0  NUMBER
335     , p5_a1  VARCHAR2
336     , p5_a2  NUMBER
337     , p5_a3  VARCHAR2
338     , p5_a4  VARCHAR2
339     , p5_a5  VARCHAR2
340     , p5_a6  VARCHAR2
341     , p5_a7  VARCHAR2
342     , p5_a8  DATE
343     , p5_a9  DATE
344     , p5_a10  NUMBER
345     , p5_a11  DATE
346     , p5_a12  NUMBER
347     , p5_a13  NUMBER
348     , p6_a0 out nocopy  NUMBER
349     , p6_a1 out nocopy  VARCHAR2
350     , p6_a2 out nocopy  NUMBER
351     , p6_a3 out nocopy  VARCHAR2
352     , p6_a4 out nocopy  VARCHAR2
353     , p6_a5 out nocopy  VARCHAR2
354     , p6_a6 out nocopy  VARCHAR2
355     , p6_a7 out nocopy  VARCHAR2
356     , p6_a8 out nocopy  DATE
357     , p6_a9 out nocopy  DATE
358     , p6_a10 out nocopy  NUMBER
359     , p6_a11 out nocopy  DATE
360     , p6_a12 out nocopy  NUMBER
361     , p6_a13 out nocopy  NUMBER
362   )
363 
364   as
365     ddp_cntr_bill_rec okl_cntr_grp_billing_pvt.cntr_bill_rec_type;
366     ddx_cntr_bill_rec okl_cntr_grp_billing_pvt.cntr_bill_rec_type;
367     ddindx binary_integer; indx binary_integer;
368   begin
369 
370     -- copy data to the local IN or IN-OUT args, if any
371 
372 
373 
374 
375 
376     ddp_cntr_bill_rec.clg_id := p5_a0;
377     ddp_cntr_bill_rec.counter_group := p5_a1;
378     ddp_cntr_bill_rec.counter_number := p5_a2;
379     ddp_cntr_bill_rec.counter_name := p5_a3;
380     ddp_cntr_bill_rec.contract_number := p5_a4;
381     ddp_cntr_bill_rec.asset_number := p5_a5;
382     ddp_cntr_bill_rec.asset_serial_number := p5_a6;
383     ddp_cntr_bill_rec.asset_description := p5_a7;
384     ddp_cntr_bill_rec.effective_date_from := p5_a8;
385     ddp_cntr_bill_rec.effective_date_to := p5_a9;
386     ddp_cntr_bill_rec.counter_reading := p5_a10;
387     ddp_cntr_bill_rec.counter_reading_date := p5_a11;
388     ddp_cntr_bill_rec.counter_bill_amount := p5_a12;
389     ddp_cntr_bill_rec.legal_entity_id := p5_a13;
390 
391 
392     -- here's the delegated call to the old PL/SQL routine
393     okl_cntr_grp_billing_pvt.counter_grp_billing_insert(p_api_version,
394       p_init_msg_list,
395       x_return_status,
396       x_msg_count,
397       x_msg_data,
398       ddp_cntr_bill_rec,
399       ddx_cntr_bill_rec);
400 
401     -- copy data back from the local variables to OUT or IN-OUT args, if any
402 
403 
404 
405 
406 
407 
408     p6_a0 := ddx_cntr_bill_rec.clg_id;
409     p6_a1 := ddx_cntr_bill_rec.counter_group;
410     p6_a2 := ddx_cntr_bill_rec.counter_number;
411     p6_a3 := ddx_cntr_bill_rec.counter_name;
412     p6_a4 := ddx_cntr_bill_rec.contract_number;
413     p6_a5 := ddx_cntr_bill_rec.asset_number;
414     p6_a6 := ddx_cntr_bill_rec.asset_serial_number;
415     p6_a7 := ddx_cntr_bill_rec.asset_description;
416     p6_a8 := ddx_cntr_bill_rec.effective_date_from;
417     p6_a9 := ddx_cntr_bill_rec.effective_date_to;
418     p6_a10 := ddx_cntr_bill_rec.counter_reading;
419     p6_a11 := ddx_cntr_bill_rec.counter_reading_date;
420     p6_a12 := ddx_cntr_bill_rec.counter_bill_amount;
421     p6_a13 := ddx_cntr_bill_rec.legal_entity_id;
422   end;
423 
424   procedure counter_grp_billing_insert(p_api_version  NUMBER
425     , p_init_msg_list  VARCHAR2
426     , x_return_status out nocopy  VARCHAR2
427     , x_msg_count out nocopy  NUMBER
428     , x_msg_data out nocopy  VARCHAR2
429     , p5_a0 JTF_NUMBER_TABLE
430     , p5_a1 JTF_VARCHAR2_TABLE_200
431     , p5_a2 JTF_NUMBER_TABLE
432     , p5_a3 JTF_VARCHAR2_TABLE_100
433     , p5_a4 JTF_VARCHAR2_TABLE_200
434     , p5_a5 JTF_VARCHAR2_TABLE_200
435     , p5_a6 JTF_VARCHAR2_TABLE_100
436     , p5_a7 JTF_VARCHAR2_TABLE_100
437     , p5_a8 JTF_DATE_TABLE
438     , p5_a9 JTF_DATE_TABLE
439     , p5_a10 JTF_NUMBER_TABLE
440     , p5_a11 JTF_DATE_TABLE
441     , p5_a12 JTF_NUMBER_TABLE
442     , p5_a13 JTF_NUMBER_TABLE
443     , p6_a0 out nocopy JTF_NUMBER_TABLE
444     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
445     , p6_a2 out nocopy JTF_NUMBER_TABLE
446     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
447     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
448     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
449     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
450     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
451     , p6_a8 out nocopy JTF_DATE_TABLE
452     , p6_a9 out nocopy JTF_DATE_TABLE
453     , p6_a10 out nocopy JTF_NUMBER_TABLE
454     , p6_a11 out nocopy JTF_DATE_TABLE
455     , p6_a12 out nocopy JTF_NUMBER_TABLE
456     , p6_a13 out nocopy JTF_NUMBER_TABLE
457   )
458 
459   as
460     ddp_cntr_bill_tbl okl_cntr_grp_billing_pvt.cntr_bill_tbl_type;
461     ddx_cntr_bill_tbl okl_cntr_grp_billing_pvt.cntr_bill_tbl_type;
462     ddindx binary_integer; indx binary_integer;
463   begin
464 
465     -- copy data to the local IN or IN-OUT args, if any
466 
467 
468 
469 
470 
471     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_in_p14(ddp_cntr_bill_tbl, p5_a0
472       , p5_a1
473       , p5_a2
474       , p5_a3
475       , p5_a4
476       , p5_a5
477       , p5_a6
478       , p5_a7
479       , p5_a8
480       , p5_a9
481       , p5_a10
482       , p5_a11
483       , p5_a12
484       , p5_a13
485       );
486 
487 
488     -- here's the delegated call to the old PL/SQL routine
489     okl_cntr_grp_billing_pvt.counter_grp_billing_insert(p_api_version,
490       p_init_msg_list,
491       x_return_status,
492       x_msg_count,
493       x_msg_data,
494       ddp_cntr_bill_tbl,
495       ddx_cntr_bill_tbl);
496 
497     -- copy data back from the local variables to OUT or IN-OUT args, if any
498 
499 
500 
501 
502 
503 
504     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_out_p14(ddx_cntr_bill_tbl, p6_a0
505       , p6_a1
506       , p6_a2
507       , p6_a3
508       , p6_a4
509       , p6_a5
510       , p6_a6
511       , p6_a7
512       , p6_a8
513       , p6_a9
514       , p6_a10
515       , p6_a11
516       , p6_a12
517       , p6_a13
518       );
519   end;
520 
521 end okl_cntr_grp_billing_pvt_w;