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_DEAL_TERMS_PVT_W

Source


4     , p_init_msg_list  VARCHAR2
1 package body okl_deal_terms_pvt_w as
2   /* $Header: OKLEDTRB.pls 120.0 2007/03/28 13:43:39 udhenuko noship $ */
3   procedure process_billing_setup(p_api_version  NUMBER
5     , x_return_status out nocopy  VARCHAR2
6     , x_msg_count out nocopy  NUMBER
7     , x_msg_data out nocopy  VARCHAR2
8     , p5_a0  NUMBER
9     , p5_a1  NUMBER
10     , p5_a2  VARCHAR2
11     , p5_a3  VARCHAR2
12     , p5_a4  NUMBER
13     , p5_a5  NUMBER
14     , p5_a6  VARCHAR2
15     , p5_a7  NUMBER
16     , p5_a8  NUMBER
17     , p5_a9  NUMBER
18     , p5_a10  NUMBER
19     , p5_a11  NUMBER
20     , p5_a12  NUMBER
21     , p5_a13  NUMBER
22     , p5_a14  NUMBER
23     , p5_a15  VARCHAR2
24     , p5_a16  VARCHAR2
25     , p5_a17  VARCHAR2
26     , p5_a18  VARCHAR2
27     , p5_a19  VARCHAR2
28     , p5_a20  VARCHAR2
29     , p5_a21  VARCHAR2
30     , p5_a22  VARCHAR2
31     , p5_a23  VARCHAR2
32     , p5_a24  VARCHAR2
33     , p5_a25  VARCHAR2
34     , p5_a26  VARCHAR2
35     , p5_a27  VARCHAR2
36     , p5_a28  VARCHAR2
37     , p5_a29  VARCHAR2
38     , p5_a30  VARCHAR2
39     , p6_a0 out nocopy  NUMBER
40     , p6_a1 out nocopy  NUMBER
41     , p6_a2 out nocopy  VARCHAR2
42     , p6_a3 out nocopy  VARCHAR2
43     , p6_a4 out nocopy  NUMBER
44     , p6_a5 out nocopy  NUMBER
45     , p6_a6 out nocopy  VARCHAR2
46     , p6_a7 out nocopy  NUMBER
47     , p6_a8 out nocopy  NUMBER
48     , p6_a9 out nocopy  NUMBER
49     , p6_a10 out nocopy  NUMBER
50     , p6_a11 out nocopy  NUMBER
51     , p6_a12 out nocopy  NUMBER
52     , p6_a13 out nocopy  NUMBER
53     , p6_a14 out nocopy  NUMBER
54     , p6_a15 out nocopy  VARCHAR2
55     , p6_a16 out nocopy  VARCHAR2
56     , p6_a17 out nocopy  VARCHAR2
57     , p6_a18 out nocopy  VARCHAR2
58     , p6_a19 out nocopy  VARCHAR2
59     , p6_a20 out nocopy  VARCHAR2
60     , p6_a21 out nocopy  VARCHAR2
61     , p6_a22 out nocopy  VARCHAR2
62     , p6_a23 out nocopy  VARCHAR2
63     , p6_a24 out nocopy  VARCHAR2
64     , p6_a25 out nocopy  VARCHAR2
65     , p6_a26 out nocopy  VARCHAR2
66     , p6_a27 out nocopy  VARCHAR2
67     , p6_a28 out nocopy  VARCHAR2
68     , p6_a29 out nocopy  VARCHAR2
69     , p6_a30 out nocopy  VARCHAR2
70   )
71 
72   as
73     ddp_rgpv_rec okl_deal_terms_pvt.billing_setup_rec_type;
74     ddx_rgpv_rec okl_deal_terms_pvt.billing_setup_rec_type;
75     ddindx binary_integer; indx binary_integer;
76   begin
77 
78     -- copy data to the local IN or IN-OUT args, if any
79 
80 
81 
82 
83 
84     ddp_rgpv_rec.chr_id := p5_a0;
85     ddp_rgpv_rec.cle_id := p5_a1;
86     ddp_rgpv_rec.asset_number := p5_a2;
87     ddp_rgpv_rec.item_description := p5_a3;
88     ddp_rgpv_rec.rgp_id := p5_a4;
89     ddp_rgpv_rec.bill_to_site_use_id := p5_a5;
90     ddp_rgpv_rec.bill_to_site_name := p5_a6;
91     ddp_rgpv_rec.rgp_labill_lapmth_id := p5_a7;
92     ddp_rgpv_rec.rgp_labill_labacc_id := p5_a8;
93     ddp_rgpv_rec.rgp_labill_lainvd_id := p5_a9;
94     ddp_rgpv_rec.rgp_labill_lainpr_id := p5_a10;
95     ddp_rgpv_rec.rul_lapmth_id := p5_a11;
96     ddp_rgpv_rec.rul_labacc_id := p5_a12;
97     ddp_rgpv_rec.rul_lainvd_id := p5_a13;
98     ddp_rgpv_rec.rul_lainpr_id := p5_a14;
99     ddp_rgpv_rec.rul_lapmth_object1_id1 := p5_a15;
100     ddp_rgpv_rec.rul_lapmth_object1_id2 := p5_a16;
101     ddp_rgpv_rec.rul_lapmth_name := p5_a17;
102     ddp_rgpv_rec.rul_labacc_object1_id1 := p5_a18;
103     ddp_rgpv_rec.rul_labacc_object1_id2 := p5_a19;
104     ddp_rgpv_rec.rul_labacc_name := p5_a20;
105     ddp_rgpv_rec.rul_labacc_bank_name := p5_a21;
106     ddp_rgpv_rec.lainvd_invoice_format_meaning := p5_a22;
107     ddp_rgpv_rec.lainvd_rule_information1 := p5_a23;
108     ddp_rgpv_rec.lainvd_rule_information3 := p5_a24;
109     ddp_rgpv_rec.lainvd_rule_information4 := p5_a25;
110     ddp_rgpv_rec.rul_lainvd_object1_id1 := p5_a26;
111     ddp_rgpv_rec.rul_lainvd_object1_id2 := p5_a27;
112     ddp_rgpv_rec.rul_lainvd_name := p5_a28;
113     ddp_rgpv_rec.lainpr_rule_information1 := p5_a29;
114     ddp_rgpv_rec.lainpr_rule_information2 := p5_a30;
115 
116 
117     -- here's the delegated call to the old PL/SQL routine
118     okl_deal_terms_pvt.process_billing_setup(p_api_version,
119       p_init_msg_list,
120       x_return_status,
121       x_msg_count,
122       x_msg_data,
123       ddp_rgpv_rec,
124       ddx_rgpv_rec);
125 
126     -- copy data back from the local variables to OUT or IN-OUT args, if any
127 
128 
129 
130 
131 
132 
133     p6_a0 := ddx_rgpv_rec.chr_id;
134     p6_a1 := ddx_rgpv_rec.cle_id;
135     p6_a2 := ddx_rgpv_rec.asset_number;
136     p6_a3 := ddx_rgpv_rec.item_description;
137     p6_a4 := ddx_rgpv_rec.rgp_id;
138     p6_a5 := ddx_rgpv_rec.bill_to_site_use_id;
139     p6_a6 := ddx_rgpv_rec.bill_to_site_name;
140     p6_a7 := ddx_rgpv_rec.rgp_labill_lapmth_id;
141     p6_a8 := ddx_rgpv_rec.rgp_labill_labacc_id;
142     p6_a9 := ddx_rgpv_rec.rgp_labill_lainvd_id;
143     p6_a10 := ddx_rgpv_rec.rgp_labill_lainpr_id;
144     p6_a11 := ddx_rgpv_rec.rul_lapmth_id;
145     p6_a12 := ddx_rgpv_rec.rul_labacc_id;
146     p6_a13 := ddx_rgpv_rec.rul_lainvd_id;
147     p6_a14 := ddx_rgpv_rec.rul_lainpr_id;
148     p6_a15 := ddx_rgpv_rec.rul_lapmth_object1_id1;
149     p6_a16 := ddx_rgpv_rec.rul_lapmth_object1_id2;
153     p6_a20 := ddx_rgpv_rec.rul_labacc_name;
150     p6_a17 := ddx_rgpv_rec.rul_lapmth_name;
151     p6_a18 := ddx_rgpv_rec.rul_labacc_object1_id1;
152     p6_a19 := ddx_rgpv_rec.rul_labacc_object1_id2;
154     p6_a21 := ddx_rgpv_rec.rul_labacc_bank_name;
155     p6_a22 := ddx_rgpv_rec.lainvd_invoice_format_meaning;
156     p6_a23 := ddx_rgpv_rec.lainvd_rule_information1;
157     p6_a24 := ddx_rgpv_rec.lainvd_rule_information3;
158     p6_a25 := ddx_rgpv_rec.lainvd_rule_information4;
159     p6_a26 := ddx_rgpv_rec.rul_lainvd_object1_id1;
160     p6_a27 := ddx_rgpv_rec.rul_lainvd_object1_id2;
161     p6_a28 := ddx_rgpv_rec.rul_lainvd_name;
162     p6_a29 := ddx_rgpv_rec.lainpr_rule_information1;
163     p6_a30 := ddx_rgpv_rec.lainpr_rule_information2;
164   end;
165 
166   procedure process_rvi(p_api_version  NUMBER
167     , p_init_msg_list  VARCHAR2
168     , x_return_status out nocopy  VARCHAR2
169     , x_msg_count out nocopy  NUMBER
170     , x_msg_data out nocopy  VARCHAR2
171     , p5_a0  NUMBER
172     , p5_a1  NUMBER
173     , p5_a2  VARCHAR2
174     , p5_a3  NUMBER
175     , p5_a4  VARCHAR2
176     , p5_a5  NUMBER
177     , p5_a6  NUMBER
178     , p5_a7  NUMBER
179     , p5_a8  VARCHAR2
180     , p5_a9  NUMBER
181     , p5_a10  VARCHAR2
182     , p5_a11  VARCHAR2
183     , p5_a12  VARCHAR2
184     , p5_a13  NUMBER
185     , p5_a14  VARCHAR2
186     , p6_a0 out nocopy  NUMBER
187     , p6_a1 out nocopy  NUMBER
188     , p6_a2 out nocopy  VARCHAR2
189     , p6_a3 out nocopy  NUMBER
190     , p6_a4 out nocopy  VARCHAR2
191     , p6_a5 out nocopy  NUMBER
192     , p6_a6 out nocopy  NUMBER
193     , p6_a7 out nocopy  NUMBER
194     , p6_a8 out nocopy  VARCHAR2
195     , p6_a9 out nocopy  NUMBER
196     , p6_a10 out nocopy  VARCHAR2
197     , p6_a11 out nocopy  VARCHAR2
198     , p6_a12 out nocopy  VARCHAR2
199     , p6_a13 out nocopy  NUMBER
200     , p6_a14 out nocopy  VARCHAR2
201   )
202 
203   as
204     ddp_rgpv_rec okl_deal_terms_pvt.rvi_rec_type;
205     ddx_rgpv_rec okl_deal_terms_pvt.rvi_rec_type;
206     ddindx binary_integer; indx binary_integer;
207   begin
208 
209     -- copy data to the local IN or IN-OUT args, if any
210 
211 
212 
213 
214 
215     ddp_rgpv_rec.line_id := p5_a0;
216     ddp_rgpv_rec.chr_id := p5_a1;
217     ddp_rgpv_rec.fee_type := p5_a2;
218     ddp_rgpv_rec.rgp_id := p5_a3;
219     ddp_rgpv_rec.rgd_code := p5_a4;
220     ddp_rgpv_rec.rgp_larvin_larvau_id := p5_a5;
221     ddp_rgpv_rec.rgp_larvin_larvam_id := p5_a6;
222     ddp_rgpv_rec.rul_larvau_id := p5_a7;
223     ddp_rgpv_rec.larvau_rule_info_cat := p5_a8;
224     ddp_rgpv_rec.rul_larvam_id := p5_a9;
225     ddp_rgpv_rec.larvam_rule_info_cat := p5_a10;
226     ddp_rgpv_rec.larvau_rule_information1 := p5_a11;
227     ddp_rgpv_rec.larvam_rule_information4 := p5_a12;
228     ddp_rgpv_rec.item_id1 := p5_a13;
229     ddp_rgpv_rec.item_name := p5_a14;
230 
231 
232     -- here's the delegated call to the old PL/SQL routine
233     okl_deal_terms_pvt.process_rvi(p_api_version,
234       p_init_msg_list,
235       x_return_status,
236       x_msg_count,
237       x_msg_data,
238       ddp_rgpv_rec,
239       ddx_rgpv_rec);
240 
241     -- copy data back from the local variables to OUT or IN-OUT args, if any
242 
243 
244 
245 
246 
247 
248     p6_a0 := ddx_rgpv_rec.line_id;
249     p6_a1 := ddx_rgpv_rec.chr_id;
250     p6_a2 := ddx_rgpv_rec.fee_type;
251     p6_a3 := ddx_rgpv_rec.rgp_id;
252     p6_a4 := ddx_rgpv_rec.rgd_code;
253     p6_a5 := ddx_rgpv_rec.rgp_larvin_larvau_id;
254     p6_a6 := ddx_rgpv_rec.rgp_larvin_larvam_id;
255     p6_a7 := ddx_rgpv_rec.rul_larvau_id;
256     p6_a8 := ddx_rgpv_rec.larvau_rule_info_cat;
257     p6_a9 := ddx_rgpv_rec.rul_larvam_id;
258     p6_a10 := ddx_rgpv_rec.larvam_rule_info_cat;
259     p6_a11 := ddx_rgpv_rec.larvau_rule_information1;
260     p6_a12 := ddx_rgpv_rec.larvam_rule_information4;
261     p6_a13 := ddx_rgpv_rec.item_id1;
262     p6_a14 := ddx_rgpv_rec.item_name;
263   end;
264 
265   procedure load_billing_setup(p_api_version  NUMBER
266     , p_init_msg_list  VARCHAR2
267     , x_return_status out nocopy  VARCHAR2
268     , x_msg_count out nocopy  NUMBER
269     , x_msg_data out nocopy  VARCHAR2
270     , p_chr_id  NUMBER
271     , p6_a0 out nocopy  NUMBER
272     , p6_a1 out nocopy  NUMBER
273     , p6_a2 out nocopy  VARCHAR2
274     , p6_a3 out nocopy  VARCHAR2
275     , p6_a4 out nocopy  NUMBER
276     , p6_a5 out nocopy  NUMBER
277     , p6_a6 out nocopy  VARCHAR2
278     , p6_a7 out nocopy  NUMBER
279     , p6_a8 out nocopy  NUMBER
280     , p6_a9 out nocopy  NUMBER
281     , p6_a10 out nocopy  NUMBER
282     , p6_a11 out nocopy  NUMBER
283     , p6_a12 out nocopy  NUMBER
284     , p6_a13 out nocopy  NUMBER
285     , p6_a14 out nocopy  NUMBER
286     , p6_a15 out nocopy  VARCHAR2
287     , p6_a16 out nocopy  VARCHAR2
288     , p6_a17 out nocopy  VARCHAR2
289     , p6_a18 out nocopy  VARCHAR2
290     , p6_a19 out nocopy  VARCHAR2
291     , p6_a20 out nocopy  VARCHAR2
292     , p6_a21 out nocopy  VARCHAR2
293     , p6_a22 out nocopy  VARCHAR2
294     , p6_a23 out nocopy  VARCHAR2
295     , p6_a24 out nocopy  VARCHAR2
296     , p6_a25 out nocopy  VARCHAR2
297     , p6_a26 out nocopy  VARCHAR2
298     , p6_a27 out nocopy  VARCHAR2
299     , p6_a28 out nocopy  VARCHAR2
300     , p6_a29 out nocopy  VARCHAR2
301     , p6_a30 out nocopy  VARCHAR2
302   )
303 
304   as
305     ddx_billing_setup_rec okl_deal_terms_pvt.billing_setup_rec_type;
306     ddindx binary_integer; indx binary_integer;
307   begin
308 
309     -- copy data to the local IN or IN-OUT args, if any
310 
311 
312 
313 
314 
315 
316 
317     -- here's the delegated call to the old PL/SQL routine
318     okl_deal_terms_pvt.load_billing_setup(p_api_version,
319       p_init_msg_list,
320       x_return_status,
321       x_msg_count,
322       x_msg_data,
323       p_chr_id,
324       ddx_billing_setup_rec);
325 
326     -- copy data back from the local variables to OUT or IN-OUT args, if any
327 
328 
329 
330 
331 
332 
333     p6_a0 := ddx_billing_setup_rec.chr_id;
334     p6_a1 := ddx_billing_setup_rec.cle_id;
335     p6_a2 := ddx_billing_setup_rec.asset_number;
336     p6_a3 := ddx_billing_setup_rec.item_description;
337     p6_a4 := ddx_billing_setup_rec.rgp_id;
338     p6_a5 := ddx_billing_setup_rec.bill_to_site_use_id;
339     p6_a6 := ddx_billing_setup_rec.bill_to_site_name;
340     p6_a7 := ddx_billing_setup_rec.rgp_labill_lapmth_id;
341     p6_a8 := ddx_billing_setup_rec.rgp_labill_labacc_id;
342     p6_a9 := ddx_billing_setup_rec.rgp_labill_lainvd_id;
343     p6_a10 := ddx_billing_setup_rec.rgp_labill_lainpr_id;
344     p6_a11 := ddx_billing_setup_rec.rul_lapmth_id;
345     p6_a12 := ddx_billing_setup_rec.rul_labacc_id;
346     p6_a13 := ddx_billing_setup_rec.rul_lainvd_id;
347     p6_a14 := ddx_billing_setup_rec.rul_lainpr_id;
348     p6_a15 := ddx_billing_setup_rec.rul_lapmth_object1_id1;
349     p6_a16 := ddx_billing_setup_rec.rul_lapmth_object1_id2;
350     p6_a17 := ddx_billing_setup_rec.rul_lapmth_name;
351     p6_a18 := ddx_billing_setup_rec.rul_labacc_object1_id1;
352     p6_a19 := ddx_billing_setup_rec.rul_labacc_object1_id2;
353     p6_a20 := ddx_billing_setup_rec.rul_labacc_name;
354     p6_a21 := ddx_billing_setup_rec.rul_labacc_bank_name;
355     p6_a22 := ddx_billing_setup_rec.lainvd_invoice_format_meaning;
356     p6_a23 := ddx_billing_setup_rec.lainvd_rule_information1;
357     p6_a24 := ddx_billing_setup_rec.lainvd_rule_information3;
358     p6_a25 := ddx_billing_setup_rec.lainvd_rule_information4;
359     p6_a26 := ddx_billing_setup_rec.rul_lainvd_object1_id1;
360     p6_a27 := ddx_billing_setup_rec.rul_lainvd_object1_id2;
361     p6_a28 := ddx_billing_setup_rec.rul_lainvd_name;
362     p6_a29 := ddx_billing_setup_rec.lainpr_rule_information1;
363     p6_a30 := ddx_billing_setup_rec.lainpr_rule_information2;
364   end;
365 
366   procedure load_rvi(p_api_version  NUMBER
367     , p_init_msg_list  VARCHAR2
368     , x_return_status out nocopy  VARCHAR2
369     , x_msg_count out nocopy  NUMBER
370     , x_msg_data out nocopy  VARCHAR2
371     , p_chr_id  NUMBER
372     , p6_a0 out nocopy  NUMBER
373     , p6_a1 out nocopy  NUMBER
374     , p6_a2 out nocopy  VARCHAR2
375     , p6_a3 out nocopy  NUMBER
376     , p6_a4 out nocopy  VARCHAR2
377     , p6_a5 out nocopy  NUMBER
378     , p6_a6 out nocopy  NUMBER
379     , p6_a7 out nocopy  NUMBER
380     , p6_a8 out nocopy  VARCHAR2
381     , p6_a9 out nocopy  NUMBER
382     , p6_a10 out nocopy  VARCHAR2
383     , p6_a11 out nocopy  VARCHAR2
384     , p6_a12 out nocopy  VARCHAR2
385     , p6_a13 out nocopy  NUMBER
386     , p6_a14 out nocopy  VARCHAR2
387   )
388 
389   as
390     ddx_rvi_rec okl_deal_terms_pvt.rvi_rec_type;
391     ddindx binary_integer; indx binary_integer;
392   begin
393 
394     -- copy data to the local IN or IN-OUT args, if any
395 
396 
397 
398 
399 
400 
401 
402     -- here's the delegated call to the old PL/SQL routine
403     okl_deal_terms_pvt.load_rvi(p_api_version,
404       p_init_msg_list,
405       x_return_status,
406       x_msg_count,
407       x_msg_data,
408       p_chr_id,
409       ddx_rvi_rec);
410 
411     -- copy data back from the local variables to OUT or IN-OUT args, if any
412 
413 
414 
415 
416 
417 
418     p6_a0 := ddx_rvi_rec.line_id;
419     p6_a1 := ddx_rvi_rec.chr_id;
420     p6_a2 := ddx_rvi_rec.fee_type;
421     p6_a3 := ddx_rvi_rec.rgp_id;
422     p6_a4 := ddx_rvi_rec.rgd_code;
423     p6_a5 := ddx_rvi_rec.rgp_larvin_larvau_id;
424     p6_a6 := ddx_rvi_rec.rgp_larvin_larvam_id;
425     p6_a7 := ddx_rvi_rec.rul_larvau_id;
426     p6_a8 := ddx_rvi_rec.larvau_rule_info_cat;
427     p6_a9 := ddx_rvi_rec.rul_larvam_id;
428     p6_a10 := ddx_rvi_rec.larvam_rule_info_cat;
429     p6_a11 := ddx_rvi_rec.larvau_rule_information1;
430     p6_a12 := ddx_rvi_rec.larvam_rule_information4;
431     p6_a13 := ddx_rvi_rec.item_id1;
432     p6_a14 := ddx_rvi_rec.item_name;
433   end;
434 
435 end okl_deal_terms_pvt_w;