DBA Data[Home] [Help]

PACKAGE BODY: APPS.CN_PMTPLAN_PVT_W

Source


1 package body cn_pmtplan_pvt_w as
2   /* $Header: cnwpplnb.pls 120.3 2005/09/14 03:40:35 vensrini noship $ */
3   procedure create_pmtplan(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , x_return_status out nocopy  VARCHAR2
8     , x_msg_count out nocopy  NUMBER
9     , x_msg_data out nocopy  VARCHAR2
10     , p7_a0 in out nocopy  NUMBER
11     , p7_a1 in out nocopy  NUMBER
12     , p7_a2 in out nocopy  VARCHAR2
13     , p7_a3 in out nocopy  NUMBER
14     , p7_a4 in out nocopy  NUMBER
15     , p7_a5 in out nocopy  VARCHAR2
16     , p7_a6 in out nocopy  VARCHAR2
17     , p7_a7 in out nocopy  NUMBER
18     , p7_a8 in out nocopy  VARCHAR2
19     , p7_a9 in out nocopy  VARCHAR2
20     , p7_a10 in out nocopy  DATE
21     , p7_a11 in out nocopy  DATE
22     , p7_a12 in out nocopy  NUMBER
23     , p7_a13 in out nocopy  VARCHAR2
24     , p7_a14 in out nocopy  VARCHAR2
25     , p7_a15 in out nocopy  VARCHAR2
26     , p7_a16 in out nocopy  VARCHAR2
27     , p7_a17 in out nocopy  VARCHAR2
28     , p7_a18 in out nocopy  VARCHAR2
29     , p7_a19 in out nocopy  VARCHAR2
30     , p7_a20 in out nocopy  VARCHAR2
31     , p7_a21 in out nocopy  VARCHAR2
32     , p7_a22 in out nocopy  VARCHAR2
33     , p7_a23 in out nocopy  VARCHAR2
34     , p7_a24 in out nocopy  VARCHAR2
35     , p7_a25 in out nocopy  VARCHAR2
36     , p7_a26 in out nocopy  VARCHAR2
37     , p7_a27 in out nocopy  VARCHAR2
38     , p7_a28 in out nocopy  VARCHAR2
39     , p7_a29 in out nocopy  VARCHAR2
40     , p7_a30 in out nocopy  VARCHAR2
41     , p7_a31 in out nocopy  VARCHAR2
42     , p7_a32 in out nocopy  VARCHAR2
43     , x_loading_status out nocopy  VARCHAR2
44     , x_status out nocopy  VARCHAR2
45   )
46 
47   as
48     ddp_pmtplan_rec cn_pmtplan_pvt.pmtplan_rec_type;
49     ddindx binary_integer; indx binary_integer;
50   begin
51 
52     -- copy data to the local IN or IN-OUT args, if any
53 
54 
55 
56 
57 
58 
59 
60     ddp_pmtplan_rec.org_id := p7_a0;
61     ddp_pmtplan_rec.pmt_plan_id := p7_a1;
62     ddp_pmtplan_rec.name := p7_a2;
63     ddp_pmtplan_rec.minimum_amount := p7_a3;
64     ddp_pmtplan_rec.maximum_amount := p7_a4;
65     ddp_pmtplan_rec.min_rec_flag := p7_a5;
66     ddp_pmtplan_rec.max_rec_flag := p7_a6;
67     ddp_pmtplan_rec.max_recovery_amount := p7_a7;
68     ddp_pmtplan_rec.credit_type_name := p7_a8;
69     ddp_pmtplan_rec.pay_interval_type_name := p7_a9;
70     ddp_pmtplan_rec.start_date := p7_a10;
71     ddp_pmtplan_rec.end_date := p7_a11;
72     ddp_pmtplan_rec.object_version_number := p7_a12;
73     ddp_pmtplan_rec.recoverable_interval_type := p7_a13;
74     ddp_pmtplan_rec.pay_against_commission := p7_a14;
75     ddp_pmtplan_rec.attribute_category := p7_a15;
76     ddp_pmtplan_rec.attribute1 := p7_a16;
77     ddp_pmtplan_rec.attribute2 := p7_a17;
78     ddp_pmtplan_rec.attribute3 := p7_a18;
79     ddp_pmtplan_rec.attribute4 := p7_a19;
80     ddp_pmtplan_rec.attribute5 := p7_a20;
81     ddp_pmtplan_rec.attribute6 := p7_a21;
82     ddp_pmtplan_rec.attribute7 := p7_a22;
83     ddp_pmtplan_rec.attribute8 := p7_a23;
84     ddp_pmtplan_rec.attribute9 := p7_a24;
85     ddp_pmtplan_rec.attribute10 := p7_a25;
86     ddp_pmtplan_rec.attribute11 := p7_a26;
87     ddp_pmtplan_rec.attribute12 := p7_a27;
88     ddp_pmtplan_rec.attribute13 := p7_a28;
89     ddp_pmtplan_rec.attribute14 := p7_a29;
90     ddp_pmtplan_rec.attribute15 := p7_a30;
91     ddp_pmtplan_rec.payment_group_code := p7_a31;
92     ddp_pmtplan_rec.operation_mode := p7_a32;
93 
94 
95 
96     -- here's the delegated call to the old PL/SQL routine
97     cn_pmtplan_pvt.create_pmtplan(p_api_version,
98       p_init_msg_list,
99       p_commit,
100       p_validation_level,
101       x_return_status,
102       x_msg_count,
103       x_msg_data,
104       ddp_pmtplan_rec,
105       x_loading_status,
106       x_status);
107 
108     -- copy data back from the local variables to OUT or IN-OUT args, if any
109 
110 
111 
112 
113 
114 
115 
116     p7_a0 := ddp_pmtplan_rec.org_id;
117     p7_a1 := ddp_pmtplan_rec.pmt_plan_id;
118     p7_a2 := ddp_pmtplan_rec.name;
119     p7_a3 := ddp_pmtplan_rec.minimum_amount;
120     p7_a4 := ddp_pmtplan_rec.maximum_amount;
121     p7_a5 := ddp_pmtplan_rec.min_rec_flag;
122     p7_a6 := ddp_pmtplan_rec.max_rec_flag;
123     p7_a7 := ddp_pmtplan_rec.max_recovery_amount;
124     p7_a8 := ddp_pmtplan_rec.credit_type_name;
125     p7_a9 := ddp_pmtplan_rec.pay_interval_type_name;
126     p7_a10 := ddp_pmtplan_rec.start_date;
127     p7_a11 := ddp_pmtplan_rec.end_date;
128     p7_a12 := ddp_pmtplan_rec.object_version_number;
129     p7_a13 := ddp_pmtplan_rec.recoverable_interval_type;
130     p7_a14 := ddp_pmtplan_rec.pay_against_commission;
131     p7_a15 := ddp_pmtplan_rec.attribute_category;
132     p7_a16 := ddp_pmtplan_rec.attribute1;
133     p7_a17 := ddp_pmtplan_rec.attribute2;
134     p7_a18 := ddp_pmtplan_rec.attribute3;
135     p7_a19 := ddp_pmtplan_rec.attribute4;
136     p7_a20 := ddp_pmtplan_rec.attribute5;
137     p7_a21 := ddp_pmtplan_rec.attribute6;
138     p7_a22 := ddp_pmtplan_rec.attribute7;
139     p7_a23 := ddp_pmtplan_rec.attribute8;
140     p7_a24 := ddp_pmtplan_rec.attribute9;
141     p7_a25 := ddp_pmtplan_rec.attribute10;
142     p7_a26 := ddp_pmtplan_rec.attribute11;
143     p7_a27 := ddp_pmtplan_rec.attribute12;
144     p7_a28 := ddp_pmtplan_rec.attribute13;
145     p7_a29 := ddp_pmtplan_rec.attribute14;
146     p7_a30 := ddp_pmtplan_rec.attribute15;
147     p7_a31 := ddp_pmtplan_rec.payment_group_code;
148     p7_a32 := ddp_pmtplan_rec.operation_mode;
149 
150 
151   end;
152 
153   procedure update_pmtplan(p_api_version  NUMBER
154     , p_init_msg_list  VARCHAR2
155     , p_commit  VARCHAR2
156     , p_validation_level  NUMBER
157     , x_return_status out nocopy  VARCHAR2
158     , x_msg_count out nocopy  NUMBER
159     , x_msg_data out nocopy  VARCHAR2
160     , p7_a0  NUMBER
161     , p7_a1  NUMBER
162     , p7_a2  VARCHAR2
163     , p7_a3  NUMBER
164     , p7_a4  NUMBER
165     , p7_a5  VARCHAR2
166     , p7_a6  VARCHAR2
167     , p7_a7  NUMBER
168     , p7_a8  VARCHAR2
169     , p7_a9  VARCHAR2
170     , p7_a10  DATE
171     , p7_a11  DATE
172     , p7_a12  NUMBER
173     , p7_a13  VARCHAR2
174     , p7_a14  VARCHAR2
175     , p7_a15  VARCHAR2
176     , p7_a16  VARCHAR2
177     , p7_a17  VARCHAR2
178     , p7_a18  VARCHAR2
179     , p7_a19  VARCHAR2
180     , p7_a20  VARCHAR2
181     , p7_a21  VARCHAR2
182     , p7_a22  VARCHAR2
183     , p7_a23  VARCHAR2
184     , p7_a24  VARCHAR2
185     , p7_a25  VARCHAR2
186     , p7_a26  VARCHAR2
187     , p7_a27  VARCHAR2
188     , p7_a28  VARCHAR2
189     , p7_a29  VARCHAR2
190     , p7_a30  VARCHAR2
191     , p7_a31  VARCHAR2
192     , p7_a32  VARCHAR2
193     , p8_a0 in out nocopy  NUMBER
194     , p8_a1 in out nocopy  NUMBER
195     , p8_a2 in out nocopy  VARCHAR2
196     , p8_a3 in out nocopy  NUMBER
197     , p8_a4 in out nocopy  NUMBER
198     , p8_a5 in out nocopy  VARCHAR2
199     , p8_a6 in out nocopy  VARCHAR2
200     , p8_a7 in out nocopy  NUMBER
201     , p8_a8 in out nocopy  VARCHAR2
202     , p8_a9 in out nocopy  VARCHAR2
203     , p8_a10 in out nocopy  DATE
204     , p8_a11 in out nocopy  DATE
205     , p8_a12 in out nocopy  NUMBER
206     , p8_a13 in out nocopy  VARCHAR2
207     , p8_a14 in out nocopy  VARCHAR2
208     , p8_a15 in out nocopy  VARCHAR2
209     , p8_a16 in out nocopy  VARCHAR2
210     , p8_a17 in out nocopy  VARCHAR2
211     , p8_a18 in out nocopy  VARCHAR2
212     , p8_a19 in out nocopy  VARCHAR2
213     , p8_a20 in out nocopy  VARCHAR2
214     , p8_a21 in out nocopy  VARCHAR2
215     , p8_a22 in out nocopy  VARCHAR2
216     , p8_a23 in out nocopy  VARCHAR2
217     , p8_a24 in out nocopy  VARCHAR2
218     , p8_a25 in out nocopy  VARCHAR2
219     , p8_a26 in out nocopy  VARCHAR2
220     , p8_a27 in out nocopy  VARCHAR2
221     , p8_a28 in out nocopy  VARCHAR2
222     , p8_a29 in out nocopy  VARCHAR2
223     , p8_a30 in out nocopy  VARCHAR2
224     , p8_a31 in out nocopy  VARCHAR2
225     , p8_a32 in out nocopy  VARCHAR2
226     , x_status out nocopy  VARCHAR2
227     , x_loading_status out nocopy  VARCHAR2
228   )
229 
230   as
231     ddp_old_pmtplan_rec cn_pmtplan_pvt.pmtplan_rec_type;
232     ddp_pmtplan_rec cn_pmtplan_pvt.pmtplan_rec_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 
243 
244     ddp_old_pmtplan_rec.org_id := p7_a0;
245     ddp_old_pmtplan_rec.pmt_plan_id := p7_a1;
246     ddp_old_pmtplan_rec.name := p7_a2;
247     ddp_old_pmtplan_rec.minimum_amount := p7_a3;
248     ddp_old_pmtplan_rec.maximum_amount := p7_a4;
249     ddp_old_pmtplan_rec.min_rec_flag := p7_a5;
250     ddp_old_pmtplan_rec.max_rec_flag := p7_a6;
251     ddp_old_pmtplan_rec.max_recovery_amount := p7_a7;
252     ddp_old_pmtplan_rec.credit_type_name := p7_a8;
253     ddp_old_pmtplan_rec.pay_interval_type_name := p7_a9;
254     ddp_old_pmtplan_rec.start_date := p7_a10;
255     ddp_old_pmtplan_rec.end_date := p7_a11;
256     ddp_old_pmtplan_rec.object_version_number := p7_a12;
257     ddp_old_pmtplan_rec.recoverable_interval_type := p7_a13;
258     ddp_old_pmtplan_rec.pay_against_commission := p7_a14;
259     ddp_old_pmtplan_rec.attribute_category := p7_a15;
260     ddp_old_pmtplan_rec.attribute1 := p7_a16;
261     ddp_old_pmtplan_rec.attribute2 := p7_a17;
262     ddp_old_pmtplan_rec.attribute3 := p7_a18;
263     ddp_old_pmtplan_rec.attribute4 := p7_a19;
264     ddp_old_pmtplan_rec.attribute5 := p7_a20;
265     ddp_old_pmtplan_rec.attribute6 := p7_a21;
266     ddp_old_pmtplan_rec.attribute7 := p7_a22;
267     ddp_old_pmtplan_rec.attribute8 := p7_a23;
268     ddp_old_pmtplan_rec.attribute9 := p7_a24;
269     ddp_old_pmtplan_rec.attribute10 := p7_a25;
270     ddp_old_pmtplan_rec.attribute11 := p7_a26;
271     ddp_old_pmtplan_rec.attribute12 := p7_a27;
272     ddp_old_pmtplan_rec.attribute13 := p7_a28;
273     ddp_old_pmtplan_rec.attribute14 := p7_a29;
274     ddp_old_pmtplan_rec.attribute15 := p7_a30;
275     ddp_old_pmtplan_rec.payment_group_code := p7_a31;
276     ddp_old_pmtplan_rec.operation_mode := p7_a32;
277 
278     ddp_pmtplan_rec.org_id := p8_a0;
279     ddp_pmtplan_rec.pmt_plan_id := p8_a1;
280     ddp_pmtplan_rec.name := p8_a2;
281     ddp_pmtplan_rec.minimum_amount := p8_a3;
282     ddp_pmtplan_rec.maximum_amount := p8_a4;
283     ddp_pmtplan_rec.min_rec_flag := p8_a5;
284     ddp_pmtplan_rec.max_rec_flag := p8_a6;
285     ddp_pmtplan_rec.max_recovery_amount := p8_a7;
286     ddp_pmtplan_rec.credit_type_name := p8_a8;
287     ddp_pmtplan_rec.pay_interval_type_name := p8_a9;
288     ddp_pmtplan_rec.start_date := p8_a10;
289     ddp_pmtplan_rec.end_date := p8_a11;
290     ddp_pmtplan_rec.object_version_number := p8_a12;
291     ddp_pmtplan_rec.recoverable_interval_type := p8_a13;
292     ddp_pmtplan_rec.pay_against_commission := p8_a14;
293     ddp_pmtplan_rec.attribute_category := p8_a15;
294     ddp_pmtplan_rec.attribute1 := p8_a16;
295     ddp_pmtplan_rec.attribute2 := p8_a17;
296     ddp_pmtplan_rec.attribute3 := p8_a18;
297     ddp_pmtplan_rec.attribute4 := p8_a19;
298     ddp_pmtplan_rec.attribute5 := p8_a20;
299     ddp_pmtplan_rec.attribute6 := p8_a21;
300     ddp_pmtplan_rec.attribute7 := p8_a22;
301     ddp_pmtplan_rec.attribute8 := p8_a23;
302     ddp_pmtplan_rec.attribute9 := p8_a24;
303     ddp_pmtplan_rec.attribute10 := p8_a25;
304     ddp_pmtplan_rec.attribute11 := p8_a26;
305     ddp_pmtplan_rec.attribute12 := p8_a27;
306     ddp_pmtplan_rec.attribute13 := p8_a28;
307     ddp_pmtplan_rec.attribute14 := p8_a29;
308     ddp_pmtplan_rec.attribute15 := p8_a30;
309     ddp_pmtplan_rec.payment_group_code := p8_a31;
310     ddp_pmtplan_rec.operation_mode := p8_a32;
311 
312 
313 
314     -- here's the delegated call to the old PL/SQL routine
315     cn_pmtplan_pvt.update_pmtplan(p_api_version,
316       p_init_msg_list,
317       p_commit,
318       p_validation_level,
319       x_return_status,
320       x_msg_count,
321       x_msg_data,
322       ddp_old_pmtplan_rec,
323       ddp_pmtplan_rec,
324       x_status,
325       x_loading_status);
326 
327     -- copy data back from the local variables to OUT or IN-OUT args, if any
328 
329 
330 
331 
332 
333 
334 
335 
336     p8_a0 := ddp_pmtplan_rec.org_id;
337     p8_a1 := ddp_pmtplan_rec.pmt_plan_id;
338     p8_a2 := ddp_pmtplan_rec.name;
339     p8_a3 := ddp_pmtplan_rec.minimum_amount;
340     p8_a4 := ddp_pmtplan_rec.maximum_amount;
341     p8_a5 := ddp_pmtplan_rec.min_rec_flag;
342     p8_a6 := ddp_pmtplan_rec.max_rec_flag;
343     p8_a7 := ddp_pmtplan_rec.max_recovery_amount;
344     p8_a8 := ddp_pmtplan_rec.credit_type_name;
345     p8_a9 := ddp_pmtplan_rec.pay_interval_type_name;
346     p8_a10 := ddp_pmtplan_rec.start_date;
347     p8_a11 := ddp_pmtplan_rec.end_date;
348     p8_a12 := ddp_pmtplan_rec.object_version_number;
349     p8_a13 := ddp_pmtplan_rec.recoverable_interval_type;
350     p8_a14 := ddp_pmtplan_rec.pay_against_commission;
351     p8_a15 := ddp_pmtplan_rec.attribute_category;
352     p8_a16 := ddp_pmtplan_rec.attribute1;
353     p8_a17 := ddp_pmtplan_rec.attribute2;
354     p8_a18 := ddp_pmtplan_rec.attribute3;
355     p8_a19 := ddp_pmtplan_rec.attribute4;
356     p8_a20 := ddp_pmtplan_rec.attribute5;
357     p8_a21 := ddp_pmtplan_rec.attribute6;
358     p8_a22 := ddp_pmtplan_rec.attribute7;
359     p8_a23 := ddp_pmtplan_rec.attribute8;
360     p8_a24 := ddp_pmtplan_rec.attribute9;
361     p8_a25 := ddp_pmtplan_rec.attribute10;
362     p8_a26 := ddp_pmtplan_rec.attribute11;
363     p8_a27 := ddp_pmtplan_rec.attribute12;
364     p8_a28 := ddp_pmtplan_rec.attribute13;
365     p8_a29 := ddp_pmtplan_rec.attribute14;
366     p8_a30 := ddp_pmtplan_rec.attribute15;
367     p8_a31 := ddp_pmtplan_rec.payment_group_code;
368     p8_a32 := ddp_pmtplan_rec.operation_mode;
369 
370 
371   end;
372 
373   procedure delete_pmtplan(p_api_version  NUMBER
374     , p_init_msg_list  VARCHAR2
375     , p_commit  VARCHAR2
376     , p_validation_level  NUMBER
377     , x_return_status out nocopy  VARCHAR2
378     , x_msg_count out nocopy  NUMBER
379     , x_msg_data out nocopy  VARCHAR2
380     , p7_a0  NUMBER
381     , p7_a1  NUMBER
382     , p7_a2  VARCHAR2
383     , p7_a3  NUMBER
384     , p7_a4  NUMBER
385     , p7_a5  VARCHAR2
386     , p7_a6  VARCHAR2
387     , p7_a7  NUMBER
388     , p7_a8  VARCHAR2
389     , p7_a9  VARCHAR2
390     , p7_a10  DATE
391     , p7_a11  DATE
392     , p7_a12  NUMBER
393     , p7_a13  VARCHAR2
394     , p7_a14  VARCHAR2
395     , p7_a15  VARCHAR2
396     , p7_a16  VARCHAR2
397     , p7_a17  VARCHAR2
398     , p7_a18  VARCHAR2
399     , p7_a19  VARCHAR2
400     , p7_a20  VARCHAR2
401     , p7_a21  VARCHAR2
402     , p7_a22  VARCHAR2
403     , p7_a23  VARCHAR2
404     , p7_a24  VARCHAR2
405     , p7_a25  VARCHAR2
406     , p7_a26  VARCHAR2
407     , p7_a27  VARCHAR2
408     , p7_a28  VARCHAR2
409     , p7_a29  VARCHAR2
410     , p7_a30  VARCHAR2
411     , p7_a31  VARCHAR2
412     , p7_a32  VARCHAR2
413     , x_status out nocopy  VARCHAR2
414     , x_loading_status out nocopy  VARCHAR2
415   )
416 
417   as
418     ddp_pmtplan_rec cn_pmtplan_pvt.pmtplan_rec_type;
419     ddindx binary_integer; indx binary_integer;
420   begin
421 
422     -- copy data to the local IN or IN-OUT args, if any
423 
424 
425 
426 
427 
428 
429 
430     ddp_pmtplan_rec.org_id := p7_a0;
431     ddp_pmtplan_rec.pmt_plan_id := p7_a1;
432     ddp_pmtplan_rec.name := p7_a2;
433     ddp_pmtplan_rec.minimum_amount := p7_a3;
434     ddp_pmtplan_rec.maximum_amount := p7_a4;
435     ddp_pmtplan_rec.min_rec_flag := p7_a5;
436     ddp_pmtplan_rec.max_rec_flag := p7_a6;
437     ddp_pmtplan_rec.max_recovery_amount := p7_a7;
438     ddp_pmtplan_rec.credit_type_name := p7_a8;
439     ddp_pmtplan_rec.pay_interval_type_name := p7_a9;
440     ddp_pmtplan_rec.start_date := p7_a10;
441     ddp_pmtplan_rec.end_date := p7_a11;
442     ddp_pmtplan_rec.object_version_number := p7_a12;
443     ddp_pmtplan_rec.recoverable_interval_type := p7_a13;
444     ddp_pmtplan_rec.pay_against_commission := p7_a14;
445     ddp_pmtplan_rec.attribute_category := p7_a15;
446     ddp_pmtplan_rec.attribute1 := p7_a16;
447     ddp_pmtplan_rec.attribute2 := p7_a17;
448     ddp_pmtplan_rec.attribute3 := p7_a18;
449     ddp_pmtplan_rec.attribute4 := p7_a19;
450     ddp_pmtplan_rec.attribute5 := p7_a20;
451     ddp_pmtplan_rec.attribute6 := p7_a21;
452     ddp_pmtplan_rec.attribute7 := p7_a22;
453     ddp_pmtplan_rec.attribute8 := p7_a23;
454     ddp_pmtplan_rec.attribute9 := p7_a24;
455     ddp_pmtplan_rec.attribute10 := p7_a25;
456     ddp_pmtplan_rec.attribute11 := p7_a26;
457     ddp_pmtplan_rec.attribute12 := p7_a27;
458     ddp_pmtplan_rec.attribute13 := p7_a28;
459     ddp_pmtplan_rec.attribute14 := p7_a29;
460     ddp_pmtplan_rec.attribute15 := p7_a30;
461     ddp_pmtplan_rec.payment_group_code := p7_a31;
462     ddp_pmtplan_rec.operation_mode := p7_a32;
463 
464 
465 
466     -- here's the delegated call to the old PL/SQL routine
467     cn_pmtplan_pvt.delete_pmtplan(p_api_version,
468       p_init_msg_list,
469       p_commit,
470       p_validation_level,
471       x_return_status,
472       x_msg_count,
473       x_msg_data,
474       ddp_pmtplan_rec,
475       x_status,
476       x_loading_status);
477 
478     -- copy data back from the local variables to OUT or IN-OUT args, if any
479 
480 
481 
482 
483 
484 
485 
486 
487 
488   end;
489 
490 end cn_pmtplan_pvt_w;