[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;