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_PUB_W

Source


1 package body okl_cntr_grp_billing_pub_w as
2   /* $Header: OKLUCLBB.pls 120.6 2008/02/21 13:26:26 udhenuko noship $ */
3   procedure calculate_cntgrp_bill_amt(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , x_return_status out nocopy  VARCHAR2
6     , x_msg_count out nocopy  NUMBER
7     , x_msg_data out nocopy  VARCHAR2
8     , p5_a0 JTF_NUMBER_TABLE
9     , p5_a1 JTF_VARCHAR2_TABLE_200
10     , p5_a2 JTF_NUMBER_TABLE
11     , p5_a3 JTF_VARCHAR2_TABLE_100
12     , p5_a4 JTF_VARCHAR2_TABLE_200
13     , p5_a5 JTF_VARCHAR2_TABLE_200
14     , p5_a6 JTF_VARCHAR2_TABLE_100
15     , p5_a7 JTF_VARCHAR2_TABLE_100
16     , p5_a8 JTF_DATE_TABLE
17     , p5_a9 JTF_DATE_TABLE
18     , p5_a10 JTF_NUMBER_TABLE
19     , p5_a11 JTF_DATE_TABLE
20     , p5_a12 JTF_NUMBER_TABLE
21     , p5_a13 JTF_NUMBER_TABLE
22     , p6_a0 out nocopy JTF_NUMBER_TABLE
23     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
24     , p6_a2 out nocopy JTF_NUMBER_TABLE
25     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
26     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
27     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
28     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
29     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
30     , p6_a8 out nocopy JTF_DATE_TABLE
31     , p6_a9 out nocopy JTF_DATE_TABLE
32     , p6_a10 out nocopy JTF_NUMBER_TABLE
33     , p6_a11 out nocopy JTF_DATE_TABLE
34     , p6_a12 out nocopy JTF_NUMBER_TABLE
35     , p6_a13 out nocopy JTF_NUMBER_TABLE
36   )
37 
38   as
39     ddp_cntr_bill_tbl okl_cntr_grp_billing_pub.cntr_bill_tbl_type;
40     ddx_cntr_bill_tbl okl_cntr_grp_billing_pub.cntr_bill_tbl_type;
41     ddindx binary_integer; indx binary_integer;
42   begin
43 
44     -- copy data to the local IN or IN-OUT args, if any
45 
46 
47 
48 
49 
50     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_in_p14(ddp_cntr_bill_tbl, p5_a0
51       , p5_a1
52       , p5_a2
53       , p5_a3
54       , p5_a4
55       , p5_a5
56       , p5_a6
57       , p5_a7
58       , p5_a8
59       , p5_a9
60       , p5_a10
61       , p5_a11
62       , p5_a12
63       , p5_a13
64       );
65 
66 
67     -- here's the delegated call to the old PL/SQL routine
68     okl_cntr_grp_billing_pub.calculate_cntgrp_bill_amt(p_api_version,
69       p_init_msg_list,
70       x_return_status,
71       x_msg_count,
72       x_msg_data,
73       ddp_cntr_bill_tbl,
74       ddx_cntr_bill_tbl);
75 
76     -- copy data back from the local variables to OUT or IN-OUT args, if any
77 
78 
79 
80 
81 
82 
83     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_out_p14(ddx_cntr_bill_tbl, p6_a0
84       , p6_a1
85       , p6_a2
86       , p6_a3
87       , p6_a4
88       , p6_a5
89       , p6_a6
90       , p6_a7
91       , p6_a8
92       , p6_a9
93       , p6_a10
94       , p6_a11
95       , p6_a12
96       , p6_a13
97       );
98   end;
99 
100   procedure calculate_cntgrp_bill_amt(p_api_version  NUMBER
101     , p_init_msg_list  VARCHAR2
102     , x_return_status out nocopy  VARCHAR2
103     , x_msg_count out nocopy  NUMBER
104     , x_msg_data out nocopy  VARCHAR2
105     , p5_a0  NUMBER
106     , p5_a1  VARCHAR2
107     , p5_a2  NUMBER
108     , p5_a3  VARCHAR2
109     , p5_a4  VARCHAR2
110     , p5_a5  VARCHAR2
111     , p5_a6  VARCHAR2
112     , p5_a7  VARCHAR2
113     , p5_a8  DATE
114     , p5_a9  DATE
115     , p5_a10  NUMBER
116     , p5_a11  DATE
117     , p5_a12  NUMBER
118     , p5_a13  NUMBER
119     , p6_a0 out nocopy  NUMBER
120     , p6_a1 out nocopy  VARCHAR2
121     , p6_a2 out nocopy  NUMBER
122     , p6_a3 out nocopy  VARCHAR2
123     , p6_a4 out nocopy  VARCHAR2
124     , p6_a5 out nocopy  VARCHAR2
125     , p6_a6 out nocopy  VARCHAR2
126     , p6_a7 out nocopy  VARCHAR2
127     , p6_a8 out nocopy  DATE
128     , p6_a9 out nocopy  DATE
129     , p6_a10 out nocopy  NUMBER
130     , p6_a11 out nocopy  DATE
131     , p6_a12 out nocopy  NUMBER
132     , p6_a13 out nocopy  NUMBER
133   )
134 
135   as
136     ddp_cntr_bill_rec okl_cntr_grp_billing_pub.cntr_bill_rec_type;
137     ddx_cntr_bill_rec okl_cntr_grp_billing_pub.cntr_bill_rec_type;
138     ddindx binary_integer; indx binary_integer;
139   begin
140 
141     -- copy data to the local IN or IN-OUT args, if any
142 
143 
144 
145 
146 
147     ddp_cntr_bill_rec.clg_id := p5_a0;
148     ddp_cntr_bill_rec.counter_group := p5_a1;
149     ddp_cntr_bill_rec.counter_number := p5_a2;
150     ddp_cntr_bill_rec.counter_name := p5_a3;
151     ddp_cntr_bill_rec.contract_number := p5_a4;
152     ddp_cntr_bill_rec.asset_number := p5_a5;
153     ddp_cntr_bill_rec.asset_serial_number := p5_a6;
154     ddp_cntr_bill_rec.asset_description := p5_a7;
155     ddp_cntr_bill_rec.effective_date_from := p5_a8;
156     ddp_cntr_bill_rec.effective_date_to := p5_a9;
157     ddp_cntr_bill_rec.counter_reading := p5_a10;
158     ddp_cntr_bill_rec.counter_reading_date := p5_a11;
159     ddp_cntr_bill_rec.counter_bill_amount := p5_a12;
160     ddp_cntr_bill_rec.legal_entity_id := p5_a13;
161 
162 
163     -- here's the delegated call to the old PL/SQL routine
164     okl_cntr_grp_billing_pub.calculate_cntgrp_bill_amt(p_api_version,
165       p_init_msg_list,
166       x_return_status,
167       x_msg_count,
168       x_msg_data,
169       ddp_cntr_bill_rec,
170       ddx_cntr_bill_rec);
171 
172     -- copy data back from the local variables to OUT or IN-OUT args, if any
173 
174 
175 
176 
177 
178 
179     p6_a0 := ddx_cntr_bill_rec.clg_id;
180     p6_a1 := ddx_cntr_bill_rec.counter_group;
181     p6_a2 := ddx_cntr_bill_rec.counter_number;
182     p6_a3 := ddx_cntr_bill_rec.counter_name;
183     p6_a4 := ddx_cntr_bill_rec.contract_number;
184     p6_a5 := ddx_cntr_bill_rec.asset_number;
185     p6_a6 := ddx_cntr_bill_rec.asset_serial_number;
186     p6_a7 := ddx_cntr_bill_rec.asset_description;
187     p6_a8 := ddx_cntr_bill_rec.effective_date_from;
188     p6_a9 := ddx_cntr_bill_rec.effective_date_to;
189     p6_a10 := ddx_cntr_bill_rec.counter_reading;
190     p6_a11 := ddx_cntr_bill_rec.counter_reading_date;
191     p6_a12 := ddx_cntr_bill_rec.counter_bill_amount;
192     p6_a13 := ddx_cntr_bill_rec.legal_entity_id;
193   end;
194 
195   procedure insert_cntr_grp_bill(p_api_version  NUMBER
196     , p_init_msg_list  VARCHAR2
197     , x_return_status out nocopy  VARCHAR2
198     , x_msg_count out nocopy  NUMBER
199     , x_msg_data out nocopy  VARCHAR2
200     , p5_a0 JTF_NUMBER_TABLE
201     , p5_a1 JTF_VARCHAR2_TABLE_200
202     , p5_a2 JTF_NUMBER_TABLE
203     , p5_a3 JTF_VARCHAR2_TABLE_100
204     , p5_a4 JTF_VARCHAR2_TABLE_200
205     , p5_a5 JTF_VARCHAR2_TABLE_200
206     , p5_a6 JTF_VARCHAR2_TABLE_100
207     , p5_a7 JTF_VARCHAR2_TABLE_100
208     , p5_a8 JTF_DATE_TABLE
209     , p5_a9 JTF_DATE_TABLE
210     , p5_a10 JTF_NUMBER_TABLE
211     , p5_a11 JTF_DATE_TABLE
212     , p5_a12 JTF_NUMBER_TABLE
213     , p5_a13 JTF_NUMBER_TABLE
214     , p6_a0 out nocopy JTF_NUMBER_TABLE
215     , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
216     , p6_a2 out nocopy JTF_NUMBER_TABLE
217     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
218     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
219     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
220     , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
221     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
222     , p6_a8 out nocopy JTF_DATE_TABLE
223     , p6_a9 out nocopy JTF_DATE_TABLE
224     , p6_a10 out nocopy JTF_NUMBER_TABLE
225     , p6_a11 out nocopy JTF_DATE_TABLE
226     , p6_a12 out nocopy JTF_NUMBER_TABLE
227     , p6_a13 out nocopy JTF_NUMBER_TABLE
228   )
229 
230   as
231     ddp_cntr_bill_tbl okl_cntr_grp_billing_pub.cntr_bill_tbl_type;
232     ddx_cntr_bill_tbl okl_cntr_grp_billing_pub.cntr_bill_tbl_type;
233     ddindx binary_integer; indx binary_integer;
234   begin
235 
236     -- copy data to the local IN or IN-OUT args, if any
237 
238 
239 
240 
241 
242     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_in_p14(ddp_cntr_bill_tbl, p5_a0
243       , p5_a1
244       , p5_a2
245       , p5_a3
246       , p5_a4
247       , p5_a5
248       , p5_a6
249       , p5_a7
250       , p5_a8
251       , p5_a9
252       , p5_a10
253       , p5_a11
254       , p5_a12
255       , p5_a13
256       );
257 
258 
259     -- here's the delegated call to the old PL/SQL routine
260     okl_cntr_grp_billing_pub.insert_cntr_grp_bill(p_api_version,
261       p_init_msg_list,
262       x_return_status,
263       x_msg_count,
264       x_msg_data,
265       ddp_cntr_bill_tbl,
266       ddx_cntr_bill_tbl);
267 
268     -- copy data back from the local variables to OUT or IN-OUT args, if any
269 
270 
271 
272 
273 
274 
275     okl_cntr_grp_billing_pvt_w.rosetta_table_copy_out_p14(ddx_cntr_bill_tbl, p6_a0
276       , p6_a1
277       , p6_a2
278       , p6_a3
279       , p6_a4
280       , p6_a5
281       , p6_a6
282       , p6_a7
283       , p6_a8
284       , p6_a9
285       , p6_a10
286       , p6_a11
287       , p6_a12
288       , p6_a13
289       );
290   end;
291 
292   procedure insert_cntr_grp_bill(p_api_version  NUMBER
293     , p_init_msg_list  VARCHAR2
294     , x_return_status out nocopy  VARCHAR2
295     , x_msg_count out nocopy  NUMBER
296     , x_msg_data out nocopy  VARCHAR2
297     , p5_a0  NUMBER
298     , p5_a1  VARCHAR2
299     , p5_a2  NUMBER
300     , p5_a3  VARCHAR2
301     , p5_a4  VARCHAR2
302     , p5_a5  VARCHAR2
303     , p5_a6  VARCHAR2
304     , p5_a7  VARCHAR2
305     , p5_a8  DATE
306     , p5_a9  DATE
307     , p5_a10  NUMBER
308     , p5_a11  DATE
309     , p5_a12  NUMBER
310     , p5_a13  NUMBER
311     , p6_a0 out nocopy  NUMBER
312     , p6_a1 out nocopy  VARCHAR2
313     , p6_a2 out nocopy  NUMBER
314     , p6_a3 out nocopy  VARCHAR2
315     , p6_a4 out nocopy  VARCHAR2
316     , p6_a5 out nocopy  VARCHAR2
317     , p6_a6 out nocopy  VARCHAR2
318     , p6_a7 out nocopy  VARCHAR2
319     , p6_a8 out nocopy  DATE
320     , p6_a9 out nocopy  DATE
321     , p6_a10 out nocopy  NUMBER
322     , p6_a11 out nocopy  DATE
323     , p6_a12 out nocopy  NUMBER
324     , p6_a13 out nocopy  NUMBER
325   )
326 
327   as
328     ddp_cntr_bill_rec okl_cntr_grp_billing_pub.cntr_bill_rec_type;
329     ddx_cntr_bill_rec okl_cntr_grp_billing_pub.cntr_bill_rec_type;
330     ddindx binary_integer; indx binary_integer;
331   begin
332 
333     -- copy data to the local IN or IN-OUT args, if any
334 
335 
336 
337 
338 
339     ddp_cntr_bill_rec.clg_id := p5_a0;
340     ddp_cntr_bill_rec.counter_group := p5_a1;
341     ddp_cntr_bill_rec.counter_number := p5_a2;
342     ddp_cntr_bill_rec.counter_name := p5_a3;
343     ddp_cntr_bill_rec.contract_number := p5_a4;
344     ddp_cntr_bill_rec.asset_number := p5_a5;
345     ddp_cntr_bill_rec.asset_serial_number := p5_a6;
346     ddp_cntr_bill_rec.asset_description := p5_a7;
347     ddp_cntr_bill_rec.effective_date_from := p5_a8;
348     ddp_cntr_bill_rec.effective_date_to := p5_a9;
349     ddp_cntr_bill_rec.counter_reading := p5_a10;
350     ddp_cntr_bill_rec.counter_reading_date := p5_a11;
351     ddp_cntr_bill_rec.counter_bill_amount := p5_a12;
352     ddp_cntr_bill_rec.legal_entity_id := p5_a13;
353 
354 
355     -- here's the delegated call to the old PL/SQL routine
356     okl_cntr_grp_billing_pub.insert_cntr_grp_bill(p_api_version,
357       p_init_msg_list,
358       x_return_status,
359       x_msg_count,
360       x_msg_data,
361       ddp_cntr_bill_rec,
362       ddx_cntr_bill_rec);
363 
364     -- copy data back from the local variables to OUT or IN-OUT args, if any
365 
366 
367 
368 
369 
370 
371     p6_a0 := ddx_cntr_bill_rec.clg_id;
372     p6_a1 := ddx_cntr_bill_rec.counter_group;
373     p6_a2 := ddx_cntr_bill_rec.counter_number;
374     p6_a3 := ddx_cntr_bill_rec.counter_name;
375     p6_a4 := ddx_cntr_bill_rec.contract_number;
376     p6_a5 := ddx_cntr_bill_rec.asset_number;
377     p6_a6 := ddx_cntr_bill_rec.asset_serial_number;
378     p6_a7 := ddx_cntr_bill_rec.asset_description;
379     p6_a8 := ddx_cntr_bill_rec.effective_date_from;
380     p6_a9 := ddx_cntr_bill_rec.effective_date_to;
381     p6_a10 := ddx_cntr_bill_rec.counter_reading;
382     p6_a11 := ddx_cntr_bill_rec.counter_reading_date;
383     p6_a12 := ddx_cntr_bill_rec.counter_bill_amount;
384     p6_a13 := ddx_cntr_bill_rec.legal_entity_id;
385   end;
386 
387 end okl_cntr_grp_billing_pub_w;