[Home] [Help]
PACKAGE BODY: APPS.CN_SRP_PAYGROUP_PVT_W
Source
1 package body cn_srp_paygroup_pvt_w as
2 /* $Header: cnwsdpgb.pls 120.1 2005/09/14 03:43:19 vensrini noship $ */
3 procedure create_srp_pay_group(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_loading_status out nocopy VARCHAR2
9 , x_msg_count out nocopy NUMBER
10 , x_msg_data out nocopy VARCHAR2
11 , p8_a0 in out nocopy NUMBER
12 , p8_a1 in out nocopy NUMBER
13 , p8_a2 in out nocopy NUMBER
14 , p8_a3 in out nocopy DATE
15 , p8_a4 in out nocopy DATE
16 , p8_a5 in out nocopy VARCHAR2
17 , p8_a6 in out nocopy NUMBER
18 , p8_a7 in out nocopy NUMBER
19 , p8_a8 in out nocopy NUMBER
20 , p8_a9 in out nocopy VARCHAR2
21 , p8_a10 in out nocopy VARCHAR2
22 , p8_a11 in out nocopy VARCHAR2
23 , p8_a12 in out nocopy VARCHAR2
24 , p8_a13 in out nocopy VARCHAR2
25 , p8_a14 in out nocopy VARCHAR2
26 , p8_a15 in out nocopy VARCHAR2
27 , p8_a16 in out nocopy VARCHAR2
28 , p8_a17 in out nocopy VARCHAR2
29 , p8_a18 in out nocopy VARCHAR2
30 , p8_a19 in out nocopy VARCHAR2
31 , p8_a20 in out nocopy VARCHAR2
32 , p8_a21 in out nocopy VARCHAR2
33 , p8_a22 in out nocopy VARCHAR2
34 , p8_a23 in out nocopy VARCHAR2
35 , p8_a24 in out nocopy VARCHAR2
36 )
37
38 as
39 ddp_paygroup_assign_rec cn_srp_paygroup_pvt.paygroup_assign_rec;
40 ddindx binary_integer; indx binary_integer;
41 begin
42
43 -- copy data to the local IN or IN-OUT args, if any
44
45
46
47
48
49
50
51
52 ddp_paygroup_assign_rec.srp_pay_group_id := p8_a0;
53 ddp_paygroup_assign_rec.pay_group_id := p8_a1;
54 ddp_paygroup_assign_rec.salesrep_id := p8_a2;
55 ddp_paygroup_assign_rec.assignment_start_date := p8_a3;
56 ddp_paygroup_assign_rec.assignment_end_date := p8_a4;
57 ddp_paygroup_assign_rec.lock_flag := p8_a5;
58 ddp_paygroup_assign_rec.role_pay_group_id := p8_a6;
59 ddp_paygroup_assign_rec.org_id := p8_a7;
60 ddp_paygroup_assign_rec.object_version_number := p8_a8;
61 ddp_paygroup_assign_rec.attribute_category := p8_a9;
62 ddp_paygroup_assign_rec.attribute1 := p8_a10;
63 ddp_paygroup_assign_rec.attribute2 := p8_a11;
64 ddp_paygroup_assign_rec.attribute3 := p8_a12;
65 ddp_paygroup_assign_rec.attribute4 := p8_a13;
66 ddp_paygroup_assign_rec.attribute5 := p8_a14;
67 ddp_paygroup_assign_rec.attribute6 := p8_a15;
68 ddp_paygroup_assign_rec.attribute7 := p8_a16;
69 ddp_paygroup_assign_rec.attribute8 := p8_a17;
70 ddp_paygroup_assign_rec.attribute9 := p8_a18;
71 ddp_paygroup_assign_rec.attribute10 := p8_a19;
72 ddp_paygroup_assign_rec.attribute11 := p8_a20;
73 ddp_paygroup_assign_rec.attribute12 := p8_a21;
74 ddp_paygroup_assign_rec.attribute13 := p8_a22;
75 ddp_paygroup_assign_rec.attribute14 := p8_a23;
76 ddp_paygroup_assign_rec.attribute15 := p8_a24;
77
78 -- here's the delegated call to the old PL/SQL routine
79 cn_srp_paygroup_pvt.create_srp_pay_group(p_api_version,
80 p_init_msg_list,
81 p_commit,
82 p_validation_level,
83 x_return_status,
84 x_loading_status,
85 x_msg_count,
86 x_msg_data,
87 ddp_paygroup_assign_rec);
88
89 -- copy data back from the local variables to OUT or IN-OUT args, if any
90
91
92
93
94
95
96
97
98 p8_a0 := ddp_paygroup_assign_rec.srp_pay_group_id;
99 p8_a1 := ddp_paygroup_assign_rec.pay_group_id;
100 p8_a2 := ddp_paygroup_assign_rec.salesrep_id;
101 p8_a3 := ddp_paygroup_assign_rec.assignment_start_date;
102 p8_a4 := ddp_paygroup_assign_rec.assignment_end_date;
103 p8_a5 := ddp_paygroup_assign_rec.lock_flag;
104 p8_a6 := ddp_paygroup_assign_rec.role_pay_group_id;
105 p8_a7 := ddp_paygroup_assign_rec.org_id;
106 p8_a8 := ddp_paygroup_assign_rec.object_version_number;
107 p8_a9 := ddp_paygroup_assign_rec.attribute_category;
108 p8_a10 := ddp_paygroup_assign_rec.attribute1;
109 p8_a11 := ddp_paygroup_assign_rec.attribute2;
110 p8_a12 := ddp_paygroup_assign_rec.attribute3;
111 p8_a13 := ddp_paygroup_assign_rec.attribute4;
112 p8_a14 := ddp_paygroup_assign_rec.attribute5;
113 p8_a15 := ddp_paygroup_assign_rec.attribute6;
114 p8_a16 := ddp_paygroup_assign_rec.attribute7;
115 p8_a17 := ddp_paygroup_assign_rec.attribute8;
116 p8_a18 := ddp_paygroup_assign_rec.attribute9;
117 p8_a19 := ddp_paygroup_assign_rec.attribute10;
118 p8_a20 := ddp_paygroup_assign_rec.attribute11;
119 p8_a21 := ddp_paygroup_assign_rec.attribute12;
120 p8_a22 := ddp_paygroup_assign_rec.attribute13;
121 p8_a23 := ddp_paygroup_assign_rec.attribute14;
122 p8_a24 := ddp_paygroup_assign_rec.attribute15;
123 end;
124
125 procedure update_srp_pay_group(p_api_version NUMBER
126 , p_init_msg_list VARCHAR2
127 , p_commit VARCHAR2
128 , p_validation_level NUMBER
129 , x_return_status out nocopy VARCHAR2
130 , x_loading_status out nocopy VARCHAR2
131 , x_msg_count out nocopy NUMBER
132 , x_msg_data out nocopy VARCHAR2
133 , p8_a0 in out nocopy NUMBER
134 , p8_a1 in out nocopy NUMBER
135 , p8_a2 in out nocopy NUMBER
136 , p8_a3 in out nocopy DATE
137 , p8_a4 in out nocopy DATE
138 , p8_a5 in out nocopy VARCHAR2
139 , p8_a6 in out nocopy NUMBER
140 , p8_a7 in out nocopy NUMBER
141 , p8_a8 in out nocopy NUMBER
142 , p8_a9 in out nocopy VARCHAR2
143 , p8_a10 in out nocopy VARCHAR2
144 , p8_a11 in out nocopy VARCHAR2
145 , p8_a12 in out nocopy VARCHAR2
146 , p8_a13 in out nocopy VARCHAR2
147 , p8_a14 in out nocopy VARCHAR2
148 , p8_a15 in out nocopy VARCHAR2
149 , p8_a16 in out nocopy VARCHAR2
150 , p8_a17 in out nocopy VARCHAR2
151 , p8_a18 in out nocopy VARCHAR2
152 , p8_a19 in out nocopy VARCHAR2
153 , p8_a20 in out nocopy VARCHAR2
154 , p8_a21 in out nocopy VARCHAR2
155 , p8_a22 in out nocopy VARCHAR2
156 , p8_a23 in out nocopy VARCHAR2
157 , p8_a24 in out nocopy VARCHAR2
158 )
159
160 as
161 ddp_paygroup_assign_rec cn_srp_paygroup_pvt.paygroup_assign_rec;
162 ddindx binary_integer; indx binary_integer;
163 begin
164
165 -- copy data to the local IN or IN-OUT args, if any
166
167
168
169
170
171
172
173
174 ddp_paygroup_assign_rec.srp_pay_group_id := p8_a0;
175 ddp_paygroup_assign_rec.pay_group_id := p8_a1;
176 ddp_paygroup_assign_rec.salesrep_id := p8_a2;
177 ddp_paygroup_assign_rec.assignment_start_date := p8_a3;
178 ddp_paygroup_assign_rec.assignment_end_date := p8_a4;
179 ddp_paygroup_assign_rec.lock_flag := p8_a5;
180 ddp_paygroup_assign_rec.role_pay_group_id := p8_a6;
181 ddp_paygroup_assign_rec.org_id := p8_a7;
182 ddp_paygroup_assign_rec.object_version_number := p8_a8;
183 ddp_paygroup_assign_rec.attribute_category := p8_a9;
184 ddp_paygroup_assign_rec.attribute1 := p8_a10;
185 ddp_paygroup_assign_rec.attribute2 := p8_a11;
186 ddp_paygroup_assign_rec.attribute3 := p8_a12;
187 ddp_paygroup_assign_rec.attribute4 := p8_a13;
188 ddp_paygroup_assign_rec.attribute5 := p8_a14;
189 ddp_paygroup_assign_rec.attribute6 := p8_a15;
190 ddp_paygroup_assign_rec.attribute7 := p8_a16;
191 ddp_paygroup_assign_rec.attribute8 := p8_a17;
192 ddp_paygroup_assign_rec.attribute9 := p8_a18;
193 ddp_paygroup_assign_rec.attribute10 := p8_a19;
194 ddp_paygroup_assign_rec.attribute11 := p8_a20;
195 ddp_paygroup_assign_rec.attribute12 := p8_a21;
196 ddp_paygroup_assign_rec.attribute13 := p8_a22;
197 ddp_paygroup_assign_rec.attribute14 := p8_a23;
198 ddp_paygroup_assign_rec.attribute15 := p8_a24;
199
200 -- here's the delegated call to the old PL/SQL routine
201 cn_srp_paygroup_pvt.update_srp_pay_group(p_api_version,
202 p_init_msg_list,
203 p_commit,
204 p_validation_level,
205 x_return_status,
206 x_loading_status,
207 x_msg_count,
208 x_msg_data,
209 ddp_paygroup_assign_rec);
210
211 -- copy data back from the local variables to OUT or IN-OUT args, if any
212
213
214
215
216
217
218
219
220 p8_a0 := ddp_paygroup_assign_rec.srp_pay_group_id;
221 p8_a1 := ddp_paygroup_assign_rec.pay_group_id;
222 p8_a2 := ddp_paygroup_assign_rec.salesrep_id;
223 p8_a3 := ddp_paygroup_assign_rec.assignment_start_date;
224 p8_a4 := ddp_paygroup_assign_rec.assignment_end_date;
225 p8_a5 := ddp_paygroup_assign_rec.lock_flag;
226 p8_a6 := ddp_paygroup_assign_rec.role_pay_group_id;
227 p8_a7 := ddp_paygroup_assign_rec.org_id;
228 p8_a8 := ddp_paygroup_assign_rec.object_version_number;
229 p8_a9 := ddp_paygroup_assign_rec.attribute_category;
230 p8_a10 := ddp_paygroup_assign_rec.attribute1;
231 p8_a11 := ddp_paygroup_assign_rec.attribute2;
232 p8_a12 := ddp_paygroup_assign_rec.attribute3;
233 p8_a13 := ddp_paygroup_assign_rec.attribute4;
234 p8_a14 := ddp_paygroup_assign_rec.attribute5;
235 p8_a15 := ddp_paygroup_assign_rec.attribute6;
236 p8_a16 := ddp_paygroup_assign_rec.attribute7;
237 p8_a17 := ddp_paygroup_assign_rec.attribute8;
238 p8_a18 := ddp_paygroup_assign_rec.attribute9;
239 p8_a19 := ddp_paygroup_assign_rec.attribute10;
240 p8_a20 := ddp_paygroup_assign_rec.attribute11;
241 p8_a21 := ddp_paygroup_assign_rec.attribute12;
242 p8_a22 := ddp_paygroup_assign_rec.attribute13;
243 p8_a23 := ddp_paygroup_assign_rec.attribute14;
244 p8_a24 := ddp_paygroup_assign_rec.attribute15;
245 end;
246
247 procedure delete_srp_pay_group(p_api_version NUMBER
248 , p_init_msg_list VARCHAR2
249 , p_commit VARCHAR2
250 , p_validation_level NUMBER
251 , x_return_status out nocopy VARCHAR2
252 , x_loading_status out nocopy VARCHAR2
253 , x_msg_count out nocopy NUMBER
254 , x_msg_data out nocopy VARCHAR2
255 , p8_a0 NUMBER
256 , p8_a1 NUMBER
257 , p8_a2 NUMBER
258 , p8_a3 DATE
259 , p8_a4 DATE
260 , p8_a5 VARCHAR2
261 , p8_a6 NUMBER
262 , p8_a7 NUMBER
263 , p8_a8 NUMBER
264 , p8_a9 VARCHAR2
265 , p8_a10 VARCHAR2
266 , p8_a11 VARCHAR2
267 , p8_a12 VARCHAR2
268 , p8_a13 VARCHAR2
269 , p8_a14 VARCHAR2
270 , p8_a15 VARCHAR2
271 , p8_a16 VARCHAR2
272 , p8_a17 VARCHAR2
273 , p8_a18 VARCHAR2
274 , p8_a19 VARCHAR2
275 , p8_a20 VARCHAR2
276 , p8_a21 VARCHAR2
277 , p8_a22 VARCHAR2
278 , p8_a23 VARCHAR2
279 , p8_a24 VARCHAR2
280 )
281
282 as
283 ddp_paygroup_assign_rec cn_srp_paygroup_pvt.paygroup_assign_rec;
284 ddindx binary_integer; indx binary_integer;
285 begin
286
287 -- copy data to the local IN or IN-OUT args, if any
288
289
290
291
292
293
294
295
296 ddp_paygroup_assign_rec.srp_pay_group_id := p8_a0;
297 ddp_paygroup_assign_rec.pay_group_id := p8_a1;
298 ddp_paygroup_assign_rec.salesrep_id := p8_a2;
299 ddp_paygroup_assign_rec.assignment_start_date := p8_a3;
300 ddp_paygroup_assign_rec.assignment_end_date := p8_a4;
301 ddp_paygroup_assign_rec.lock_flag := p8_a5;
302 ddp_paygroup_assign_rec.role_pay_group_id := p8_a6;
303 ddp_paygroup_assign_rec.org_id := p8_a7;
304 ddp_paygroup_assign_rec.object_version_number := p8_a8;
305 ddp_paygroup_assign_rec.attribute_category := p8_a9;
306 ddp_paygroup_assign_rec.attribute1 := p8_a10;
307 ddp_paygroup_assign_rec.attribute2 := p8_a11;
308 ddp_paygroup_assign_rec.attribute3 := p8_a12;
309 ddp_paygroup_assign_rec.attribute4 := p8_a13;
310 ddp_paygroup_assign_rec.attribute5 := p8_a14;
311 ddp_paygroup_assign_rec.attribute6 := p8_a15;
312 ddp_paygroup_assign_rec.attribute7 := p8_a16;
313 ddp_paygroup_assign_rec.attribute8 := p8_a17;
314 ddp_paygroup_assign_rec.attribute9 := p8_a18;
315 ddp_paygroup_assign_rec.attribute10 := p8_a19;
316 ddp_paygroup_assign_rec.attribute11 := p8_a20;
317 ddp_paygroup_assign_rec.attribute12 := p8_a21;
318 ddp_paygroup_assign_rec.attribute13 := p8_a22;
319 ddp_paygroup_assign_rec.attribute14 := p8_a23;
320 ddp_paygroup_assign_rec.attribute15 := p8_a24;
321
322 -- here's the delegated call to the old PL/SQL routine
323 cn_srp_paygroup_pvt.delete_srp_pay_group(p_api_version,
324 p_init_msg_list,
325 p_commit,
326 p_validation_level,
327 x_return_status,
328 x_loading_status,
329 x_msg_count,
330 x_msg_data,
331 ddp_paygroup_assign_rec);
332
333 -- copy data back from the local variables to OUT or IN-OUT args, if any
334
335
336
337
338
339
340
341
342 end;
343
344 procedure valid_delete_srp_pay_group(p0_a0 NUMBER
345 , p0_a1 NUMBER
346 , p0_a2 NUMBER
347 , p0_a3 DATE
348 , p0_a4 DATE
349 , p0_a5 VARCHAR2
350 , p0_a6 NUMBER
351 , p0_a7 NUMBER
352 , p0_a8 NUMBER
353 , p0_a9 VARCHAR2
354 , p0_a10 VARCHAR2
355 , p0_a11 VARCHAR2
356 , p0_a12 VARCHAR2
357 , p0_a13 VARCHAR2
358 , p0_a14 VARCHAR2
359 , p0_a15 VARCHAR2
360 , p0_a16 VARCHAR2
361 , p0_a17 VARCHAR2
362 , p0_a18 VARCHAR2
363 , p0_a19 VARCHAR2
364 , p0_a20 VARCHAR2
365 , p0_a21 VARCHAR2
366 , p0_a22 VARCHAR2
367 , p0_a23 VARCHAR2
368 , p0_a24 VARCHAR2
369 , p_init_msg_list VARCHAR2
370 , x_loading_status out nocopy VARCHAR2
371 , x_return_status out nocopy VARCHAR2
372 , x_msg_count out nocopy NUMBER
373 , x_msg_data out nocopy VARCHAR2
374 )
375
376 as
377 ddp_paygroup_assign_rec cn_srp_paygroup_pvt.paygroup_assign_rec;
378 ddindx binary_integer; indx binary_integer;
379 begin
380
381 -- copy data to the local IN or IN-OUT args, if any
382 ddp_paygroup_assign_rec.srp_pay_group_id := p0_a0;
383 ddp_paygroup_assign_rec.pay_group_id := p0_a1;
384 ddp_paygroup_assign_rec.salesrep_id := p0_a2;
385 ddp_paygroup_assign_rec.assignment_start_date := p0_a3;
386 ddp_paygroup_assign_rec.assignment_end_date := p0_a4;
387 ddp_paygroup_assign_rec.lock_flag := p0_a5;
388 ddp_paygroup_assign_rec.role_pay_group_id := p0_a6;
389 ddp_paygroup_assign_rec.org_id := p0_a7;
390 ddp_paygroup_assign_rec.object_version_number := p0_a8;
391 ddp_paygroup_assign_rec.attribute_category := p0_a9;
392 ddp_paygroup_assign_rec.attribute1 := p0_a10;
393 ddp_paygroup_assign_rec.attribute2 := p0_a11;
394 ddp_paygroup_assign_rec.attribute3 := p0_a12;
395 ddp_paygroup_assign_rec.attribute4 := p0_a13;
396 ddp_paygroup_assign_rec.attribute5 := p0_a14;
397 ddp_paygroup_assign_rec.attribute6 := p0_a15;
398 ddp_paygroup_assign_rec.attribute7 := p0_a16;
399 ddp_paygroup_assign_rec.attribute8 := p0_a17;
400 ddp_paygroup_assign_rec.attribute9 := p0_a18;
401 ddp_paygroup_assign_rec.attribute10 := p0_a19;
402 ddp_paygroup_assign_rec.attribute11 := p0_a20;
403 ddp_paygroup_assign_rec.attribute12 := p0_a21;
404 ddp_paygroup_assign_rec.attribute13 := p0_a22;
405 ddp_paygroup_assign_rec.attribute14 := p0_a23;
406 ddp_paygroup_assign_rec.attribute15 := p0_a24;
407
408
409
410
411
412
413 -- here's the delegated call to the old PL/SQL routine
414 cn_srp_paygroup_pvt.valid_delete_srp_pay_group(ddp_paygroup_assign_rec,
415 p_init_msg_list,
416 x_loading_status,
417 x_return_status,
418 x_msg_count,
419 x_msg_data);
420
421 -- copy data back from the local variables to OUT or IN-OUT args, if any
422
423
424
425
426
427 end;
428
429 end cn_srp_paygroup_pvt_w;