[Home] [Help]
PACKAGE BODY: APPS.CN_WKSHT_CT_UP_PUB_W
Source
1 package body cn_wksht_ct_up_pub_w as
2 /* $Header: cnwwkcdb.pls 120.0 2005/09/26 15:09:28 fmburu noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure apply_payment_plan_upd(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_validation_level NUMBER
17 , x_return_status out nocopy VARCHAR2
18 , x_msg_count out nocopy NUMBER
19 , x_msg_data out nocopy VARCHAR2
20 , p_salesrep_id NUMBER
21 , p_srp_pmt_asgn_id NUMBER
22 , p_payrun_id NUMBER
23 , p10_a0 VARCHAR2
24 , p10_a1 VARCHAR2
25 , p10_a2 VARCHAR2
26 , p10_a3 DATE
27 , p10_a4 DATE
28 , p10_a5 NUMBER
29 , p10_a6 NUMBER
30 , p10_a7 NUMBER
31 , p10_a8 VARCHAR2
32 , p10_a9 VARCHAR2
33 , p10_a10 VARCHAR2
34 , p10_a11 VARCHAR2
35 , p10_a12 VARCHAR2
36 , p10_a13 VARCHAR2
37 , p10_a14 VARCHAR2
38 , p10_a15 VARCHAR2
39 , p10_a16 VARCHAR2
40 , p10_a17 VARCHAR2
41 , p10_a18 VARCHAR2
42 , p10_a19 VARCHAR2
43 , p10_a20 VARCHAR2
44 , p10_a21 VARCHAR2
45 , p10_a22 VARCHAR2
46 , p10_a23 VARCHAR2
47 , p11_a0 VARCHAR2
48 , p11_a1 VARCHAR2
49 , p11_a2 VARCHAR2
50 , p11_a3 DATE
51 , p11_a4 DATE
52 , p11_a5 NUMBER
53 , p11_a6 NUMBER
54 , p11_a7 NUMBER
55 , p11_a8 VARCHAR2
56 , p11_a9 VARCHAR2
57 , p11_a10 VARCHAR2
58 , p11_a11 VARCHAR2
59 , p11_a12 VARCHAR2
60 , p11_a13 VARCHAR2
61 , p11_a14 VARCHAR2
62 , p11_a15 VARCHAR2
63 , p11_a16 VARCHAR2
64 , p11_a17 VARCHAR2
65 , p11_a18 VARCHAR2
66 , p11_a19 VARCHAR2
67 , p11_a20 VARCHAR2
68 , p11_a21 VARCHAR2
69 , p11_a22 VARCHAR2
70 , p11_a23 VARCHAR2
71 , x_status out nocopy VARCHAR2
72 , x_loading_status out nocopy VARCHAR2
73 )
74
75 as
76 ddp_old_srp_pmt_plans_rec cn_wksht_ct_up_pub.srp_pmt_plans_rec_type;
77 ddp_srp_pmt_plans_rec cn_wksht_ct_up_pub.srp_pmt_plans_rec_type;
78 ddindx binary_integer; indx binary_integer;
79 begin
80
81 -- copy data to the local IN or IN-OUT args, if any
82
83
84
85
86
87
88
89
90
91
92 ddp_old_srp_pmt_plans_rec.pmt_plan_name := p10_a0;
93 ddp_old_srp_pmt_plans_rec.salesrep_type := p10_a1;
94 ddp_old_srp_pmt_plans_rec.emp_num := p10_a2;
95 ddp_old_srp_pmt_plans_rec.start_date := rosetta_g_miss_date_in_map(p10_a3);
96 ddp_old_srp_pmt_plans_rec.end_date := rosetta_g_miss_date_in_map(p10_a4);
97 ddp_old_srp_pmt_plans_rec.minimum_amount := p10_a5;
98 ddp_old_srp_pmt_plans_rec.maximum_amount := p10_a6;
99 ddp_old_srp_pmt_plans_rec.max_recovery_amount := p10_a7;
100 ddp_old_srp_pmt_plans_rec.attribute_category := p10_a8;
101 ddp_old_srp_pmt_plans_rec.attribute1 := p10_a9;
102 ddp_old_srp_pmt_plans_rec.attribute2 := p10_a10;
103 ddp_old_srp_pmt_plans_rec.attribute3 := p10_a11;
104 ddp_old_srp_pmt_plans_rec.attribute4 := p10_a12;
105 ddp_old_srp_pmt_plans_rec.attribute5 := p10_a13;
106 ddp_old_srp_pmt_plans_rec.attribute6 := p10_a14;
107 ddp_old_srp_pmt_plans_rec.attribute7 := p10_a15;
108 ddp_old_srp_pmt_plans_rec.attribute8 := p10_a16;
109 ddp_old_srp_pmt_plans_rec.attribute9 := p10_a17;
110 ddp_old_srp_pmt_plans_rec.attribute10 := p10_a18;
111 ddp_old_srp_pmt_plans_rec.attribute11 := p10_a19;
112 ddp_old_srp_pmt_plans_rec.attribute12 := p10_a20;
113 ddp_old_srp_pmt_plans_rec.attribute13 := p10_a21;
114 ddp_old_srp_pmt_plans_rec.attribute14 := p10_a22;
115 ddp_old_srp_pmt_plans_rec.attribute15 := p10_a23;
116
117 ddp_srp_pmt_plans_rec.pmt_plan_name := p11_a0;
118 ddp_srp_pmt_plans_rec.salesrep_type := p11_a1;
119 ddp_srp_pmt_plans_rec.emp_num := p11_a2;
120 ddp_srp_pmt_plans_rec.start_date := rosetta_g_miss_date_in_map(p11_a3);
121 ddp_srp_pmt_plans_rec.end_date := rosetta_g_miss_date_in_map(p11_a4);
122 ddp_srp_pmt_plans_rec.minimum_amount := p11_a5;
123 ddp_srp_pmt_plans_rec.maximum_amount := p11_a6;
124 ddp_srp_pmt_plans_rec.max_recovery_amount := p11_a7;
125 ddp_srp_pmt_plans_rec.attribute_category := p11_a8;
126 ddp_srp_pmt_plans_rec.attribute1 := p11_a9;
127 ddp_srp_pmt_plans_rec.attribute2 := p11_a10;
128 ddp_srp_pmt_plans_rec.attribute3 := p11_a11;
129 ddp_srp_pmt_plans_rec.attribute4 := p11_a12;
130 ddp_srp_pmt_plans_rec.attribute5 := p11_a13;
131 ddp_srp_pmt_plans_rec.attribute6 := p11_a14;
132 ddp_srp_pmt_plans_rec.attribute7 := p11_a15;
133 ddp_srp_pmt_plans_rec.attribute8 := p11_a16;
134 ddp_srp_pmt_plans_rec.attribute9 := p11_a17;
135 ddp_srp_pmt_plans_rec.attribute10 := p11_a18;
136 ddp_srp_pmt_plans_rec.attribute11 := p11_a19;
137 ddp_srp_pmt_plans_rec.attribute12 := p11_a20;
138 ddp_srp_pmt_plans_rec.attribute13 := p11_a21;
139 ddp_srp_pmt_plans_rec.attribute14 := p11_a22;
140 ddp_srp_pmt_plans_rec.attribute15 := p11_a23;
141
142
143
144 -- here's the delegated call to the old PL/SQL routine
145 cn_wksht_ct_up_pub.apply_payment_plan_upd(p_api_version,
146 p_init_msg_list,
147 p_commit,
148 p_validation_level,
149 x_return_status,
150 x_msg_count,
151 x_msg_data,
152 p_salesrep_id,
153 p_srp_pmt_asgn_id,
154 p_payrun_id,
155 ddp_old_srp_pmt_plans_rec,
156 ddp_srp_pmt_plans_rec,
157 x_status,
158 x_loading_status);
159
160 -- copy data back from the local variables to OUT or IN-OUT args, if any
161
162
163
164
165
166
167
168
169
170
171
172
173
174 end;
175
176 procedure apply_payment_plan_cre(p_api_version NUMBER
177 , p_init_msg_list VARCHAR2
178 , p_commit VARCHAR2
179 , p_validation_level NUMBER
180 , x_return_status out nocopy VARCHAR2
181 , x_msg_count out nocopy NUMBER
182 , x_msg_data out nocopy VARCHAR2
183 , p_salesrep_id NUMBER
184 , p_srp_pmt_asgn_id NUMBER
185 , p_payrun_id NUMBER
186 , p10_a0 VARCHAR2
187 , p10_a1 VARCHAR2
188 , p10_a2 VARCHAR2
189 , p10_a3 DATE
190 , p10_a4 DATE
191 , p10_a5 NUMBER
192 , p10_a6 NUMBER
193 , p10_a7 NUMBER
194 , p10_a8 VARCHAR2
195 , p10_a9 VARCHAR2
196 , p10_a10 VARCHAR2
197 , p10_a11 VARCHAR2
198 , p10_a12 VARCHAR2
199 , p10_a13 VARCHAR2
200 , p10_a14 VARCHAR2
201 , p10_a15 VARCHAR2
202 , p10_a16 VARCHAR2
203 , p10_a17 VARCHAR2
204 , p10_a18 VARCHAR2
205 , p10_a19 VARCHAR2
206 , p10_a20 VARCHAR2
207 , p10_a21 VARCHAR2
208 , p10_a22 VARCHAR2
209 , p10_a23 VARCHAR2
210 , x_status out nocopy VARCHAR2
211 , x_loading_status out nocopy VARCHAR2
212 )
213
214 as
215 ddp_srp_pmt_plans_rec cn_wksht_ct_up_pub.srp_pmt_plans_rec_type;
216 ddindx binary_integer; indx binary_integer;
217 begin
218
219 -- copy data to the local IN or IN-OUT args, if any
220
221
222
223
224
225
226
227
228
229
230 ddp_srp_pmt_plans_rec.pmt_plan_name := p10_a0;
231 ddp_srp_pmt_plans_rec.salesrep_type := p10_a1;
232 ddp_srp_pmt_plans_rec.emp_num := p10_a2;
233 ddp_srp_pmt_plans_rec.start_date := rosetta_g_miss_date_in_map(p10_a3);
234 ddp_srp_pmt_plans_rec.end_date := rosetta_g_miss_date_in_map(p10_a4);
235 ddp_srp_pmt_plans_rec.minimum_amount := p10_a5;
236 ddp_srp_pmt_plans_rec.maximum_amount := p10_a6;
237 ddp_srp_pmt_plans_rec.max_recovery_amount := p10_a7;
238 ddp_srp_pmt_plans_rec.attribute_category := p10_a8;
239 ddp_srp_pmt_plans_rec.attribute1 := p10_a9;
240 ddp_srp_pmt_plans_rec.attribute2 := p10_a10;
241 ddp_srp_pmt_plans_rec.attribute3 := p10_a11;
242 ddp_srp_pmt_plans_rec.attribute4 := p10_a12;
243 ddp_srp_pmt_plans_rec.attribute5 := p10_a13;
244 ddp_srp_pmt_plans_rec.attribute6 := p10_a14;
245 ddp_srp_pmt_plans_rec.attribute7 := p10_a15;
246 ddp_srp_pmt_plans_rec.attribute8 := p10_a16;
247 ddp_srp_pmt_plans_rec.attribute9 := p10_a17;
248 ddp_srp_pmt_plans_rec.attribute10 := p10_a18;
249 ddp_srp_pmt_plans_rec.attribute11 := p10_a19;
250 ddp_srp_pmt_plans_rec.attribute12 := p10_a20;
251 ddp_srp_pmt_plans_rec.attribute13 := p10_a21;
252 ddp_srp_pmt_plans_rec.attribute14 := p10_a22;
253 ddp_srp_pmt_plans_rec.attribute15 := p10_a23;
254
255
256
257 -- here's the delegated call to the old PL/SQL routine
258 cn_wksht_ct_up_pub.apply_payment_plan_cre(p_api_version,
259 p_init_msg_list,
260 p_commit,
261 p_validation_level,
262 x_return_status,
263 x_msg_count,
264 x_msg_data,
265 p_salesrep_id,
266 p_srp_pmt_asgn_id,
267 p_payrun_id,
268 ddp_srp_pmt_plans_rec,
269 x_status,
270 x_loading_status);
271
272 -- copy data back from the local variables to OUT or IN-OUT args, if any
273
274
275
276
277
278
279
280
281
282
283
284
285 end;
286
287 procedure apply_payment_plan_del(p_api_version NUMBER
288 , p_init_msg_list VARCHAR2
289 , p_commit VARCHAR2
290 , p_validation_level NUMBER
291 , x_return_status out nocopy VARCHAR2
292 , x_msg_count out nocopy NUMBER
293 , x_msg_data out nocopy VARCHAR2
294 , p_salesrep_id NUMBER
295 , p_srp_pmt_asgn_id NUMBER
296 , p_payrun_id NUMBER
297 , p10_a0 VARCHAR2
298 , p10_a1 VARCHAR2
299 , p10_a2 VARCHAR2
300 , p10_a3 DATE
301 , p10_a4 DATE
302 , p10_a5 NUMBER
303 , p10_a6 NUMBER
304 , p10_a7 NUMBER
305 , p10_a8 VARCHAR2
306 , p10_a9 VARCHAR2
307 , p10_a10 VARCHAR2
308 , p10_a11 VARCHAR2
309 , p10_a12 VARCHAR2
310 , p10_a13 VARCHAR2
311 , p10_a14 VARCHAR2
312 , p10_a15 VARCHAR2
313 , p10_a16 VARCHAR2
314 , p10_a17 VARCHAR2
315 , p10_a18 VARCHAR2
316 , p10_a19 VARCHAR2
317 , p10_a20 VARCHAR2
318 , p10_a21 VARCHAR2
319 , p10_a22 VARCHAR2
320 , p10_a23 VARCHAR2
321 , x_status out nocopy VARCHAR2
322 , x_loading_status out nocopy VARCHAR2
323 )
324
325 as
326 ddp_srp_pmt_plans_rec cn_wksht_ct_up_pub.srp_pmt_plans_rec_type;
327 ddindx binary_integer; indx binary_integer;
328 begin
329
330 -- copy data to the local IN or IN-OUT args, if any
331
332
333
334
335
336
337
338
339
340
341 ddp_srp_pmt_plans_rec.pmt_plan_name := p10_a0;
342 ddp_srp_pmt_plans_rec.salesrep_type := p10_a1;
343 ddp_srp_pmt_plans_rec.emp_num := p10_a2;
344 ddp_srp_pmt_plans_rec.start_date := rosetta_g_miss_date_in_map(p10_a3);
345 ddp_srp_pmt_plans_rec.end_date := rosetta_g_miss_date_in_map(p10_a4);
346 ddp_srp_pmt_plans_rec.minimum_amount := p10_a5;
347 ddp_srp_pmt_plans_rec.maximum_amount := p10_a6;
348 ddp_srp_pmt_plans_rec.max_recovery_amount := p10_a7;
349 ddp_srp_pmt_plans_rec.attribute_category := p10_a8;
350 ddp_srp_pmt_plans_rec.attribute1 := p10_a9;
351 ddp_srp_pmt_plans_rec.attribute2 := p10_a10;
352 ddp_srp_pmt_plans_rec.attribute3 := p10_a11;
353 ddp_srp_pmt_plans_rec.attribute4 := p10_a12;
354 ddp_srp_pmt_plans_rec.attribute5 := p10_a13;
355 ddp_srp_pmt_plans_rec.attribute6 := p10_a14;
356 ddp_srp_pmt_plans_rec.attribute7 := p10_a15;
357 ddp_srp_pmt_plans_rec.attribute8 := p10_a16;
358 ddp_srp_pmt_plans_rec.attribute9 := p10_a17;
359 ddp_srp_pmt_plans_rec.attribute10 := p10_a18;
360 ddp_srp_pmt_plans_rec.attribute11 := p10_a19;
361 ddp_srp_pmt_plans_rec.attribute12 := p10_a20;
362 ddp_srp_pmt_plans_rec.attribute13 := p10_a21;
363 ddp_srp_pmt_plans_rec.attribute14 := p10_a22;
364 ddp_srp_pmt_plans_rec.attribute15 := p10_a23;
365
366
367
368 -- here's the delegated call to the old PL/SQL routine
369 cn_wksht_ct_up_pub.apply_payment_plan_del(p_api_version,
370 p_init_msg_list,
371 p_commit,
372 p_validation_level,
373 x_return_status,
374 x_msg_count,
375 x_msg_data,
376 p_salesrep_id,
377 p_srp_pmt_asgn_id,
378 p_payrun_id,
379 ddp_srp_pmt_plans_rec,
380 x_status,
381 x_loading_status);
382
383 -- copy data back from the local variables to OUT or IN-OUT args, if any
384
385
386
387
388
389
390
391
392
393
394
395
396 end;
397
398 end cn_wksht_ct_up_pub_w;