[Home] [Help]
PACKAGE BODY: APPS.OZF_OA_ACT_OFFERS_PVT_W
Source
1 package body ozf_oa_act_offers_pvt_w as
2 /* $Header: ozfaoffb.pls 115.0 2003/10/23 04:22:51 musman noship $ */
3 procedure create_act_offer(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 NUMBER
11 , p7_a1 DATE
12 , p7_a2 NUMBER
13 , p7_a3 DATE
14 , p7_a4 NUMBER
15 , p7_a5 NUMBER
16 , p7_a6 NUMBER
17 , p7_a7 NUMBER
18 , p7_a8 VARCHAR2
19 , p7_a9 VARCHAR2
20 , p7_a10 VARCHAR2
21 , p7_a11 VARCHAR2
22 , p7_a12 NUMBER
23 , p7_a13 NUMBER
24 , x_act_offer_id out nocopy NUMBER
25 )
26
27 as
28 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
29 ddindx binary_integer; indx binary_integer;
30 begin
31
32 -- copy data to the local IN or IN-OUT args, if any
33
34
35
36
37
38
39
40 ddp_act_offer_rec.activity_offer_id := p7_a0;
41 ddp_act_offer_rec.last_update_date := p7_a1;
42 ddp_act_offer_rec.last_updated_by := p7_a2;
43 ddp_act_offer_rec.creation_date := p7_a3;
44 ddp_act_offer_rec.created_by := p7_a4;
45 ddp_act_offer_rec.last_update_login := p7_a5;
46 ddp_act_offer_rec.object_version_number := p7_a6;
47 ddp_act_offer_rec.act_offer_used_by_id := p7_a7;
48 ddp_act_offer_rec.arc_act_offer_used_by := p7_a8;
49 ddp_act_offer_rec.primary_offer_flag := p7_a9;
50 ddp_act_offer_rec.active_period_set := p7_a10;
51 ddp_act_offer_rec.active_period := p7_a11;
52 ddp_act_offer_rec.qp_list_header_id := p7_a12;
53 ddp_act_offer_rec.security_group_id := p7_a13;
54
55
56 -- here's the delegated call to the old PL/SQL routine
57 ozf_act_offers_pvt.create_act_offer(p_api_version,
58 p_init_msg_list,
59 p_commit,
60 p_validation_level,
61 x_return_status,
62 x_msg_count,
63 x_msg_data,
64 ddp_act_offer_rec,
65 x_act_offer_id);
66
67 -- copy data back from the local variables to OUT or IN-OUT args, if any
68
69
70
71
72
73
74
75
76 end;
77
78 procedure update_act_offer(p_api_version NUMBER
79 , p_init_msg_list VARCHAR2
80 , p_commit VARCHAR2
81 , p_validation_level NUMBER
82 , x_return_status out nocopy VARCHAR2
83 , x_msg_count out nocopy NUMBER
84 , x_msg_data out nocopy VARCHAR2
85 , p7_a0 NUMBER
86 , p7_a1 DATE
87 , p7_a2 NUMBER
88 , p7_a3 DATE
89 , p7_a4 NUMBER
90 , p7_a5 NUMBER
91 , p7_a6 NUMBER
92 , p7_a7 NUMBER
93 , p7_a8 VARCHAR2
94 , p7_a9 VARCHAR2
95 , p7_a10 VARCHAR2
96 , p7_a11 VARCHAR2
97 , p7_a12 NUMBER
98 , p7_a13 NUMBER
99 )
100
101 as
102 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
103 ddindx binary_integer; indx binary_integer;
104 begin
105
106 -- copy data to the local IN or IN-OUT args, if any
107
108
109
110
111
112
113
114 ddp_act_offer_rec.activity_offer_id := p7_a0;
115 ddp_act_offer_rec.last_update_date := p7_a1;
116 ddp_act_offer_rec.last_updated_by := p7_a2;
117 ddp_act_offer_rec.creation_date := p7_a3;
118 ddp_act_offer_rec.created_by := p7_a4;
119 ddp_act_offer_rec.last_update_login := p7_a5;
120 ddp_act_offer_rec.object_version_number := p7_a6;
121 ddp_act_offer_rec.act_offer_used_by_id := p7_a7;
122 ddp_act_offer_rec.arc_act_offer_used_by := p7_a8;
123 ddp_act_offer_rec.primary_offer_flag := p7_a9;
124 ddp_act_offer_rec.active_period_set := p7_a10;
125 ddp_act_offer_rec.active_period := p7_a11;
126 ddp_act_offer_rec.qp_list_header_id := p7_a12;
127 ddp_act_offer_rec.security_group_id := p7_a13;
128
129 -- here's the delegated call to the old PL/SQL routine
130 ozf_act_offers_pvt.update_act_offer(p_api_version,
131 p_init_msg_list,
132 p_commit,
133 p_validation_level,
134 x_return_status,
135 x_msg_count,
136 x_msg_data,
137 ddp_act_offer_rec);
138
139 -- copy data back from the local variables to OUT or IN-OUT args, if any
140
141
142
143
144
145
146
147 end;
148
149 procedure validate_act_offer(p_api_version NUMBER
150 , p_init_msg_list VARCHAR2
151 , p_validation_level NUMBER
152 , x_return_status out nocopy VARCHAR2
153 , x_msg_count out nocopy NUMBER
154 , x_msg_data out nocopy VARCHAR2
155 , p6_a0 NUMBER
156 , p6_a1 DATE
157 , p6_a2 NUMBER
158 , p6_a3 DATE
159 , p6_a4 NUMBER
160 , p6_a5 NUMBER
161 , p6_a6 NUMBER
162 , p6_a7 NUMBER
163 , p6_a8 VARCHAR2
164 , p6_a9 VARCHAR2
165 , p6_a10 VARCHAR2
166 , p6_a11 VARCHAR2
167 , p6_a12 NUMBER
168 , p6_a13 NUMBER
169 )
170
171 as
172 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
173 ddindx binary_integer; indx binary_integer;
174 begin
175
176 -- copy data to the local IN or IN-OUT args, if any
177
178
179
180
181
182
183 ddp_act_offer_rec.activity_offer_id := p6_a0;
184 ddp_act_offer_rec.last_update_date := p6_a1;
185 ddp_act_offer_rec.last_updated_by := p6_a2;
186 ddp_act_offer_rec.creation_date := p6_a3;
187 ddp_act_offer_rec.created_by := p6_a4;
188 ddp_act_offer_rec.last_update_login := p6_a5;
189 ddp_act_offer_rec.object_version_number := p6_a6;
190 ddp_act_offer_rec.act_offer_used_by_id := p6_a7;
191 ddp_act_offer_rec.arc_act_offer_used_by := p6_a8;
192 ddp_act_offer_rec.primary_offer_flag := p6_a9;
193 ddp_act_offer_rec.active_period_set := p6_a10;
194 ddp_act_offer_rec.active_period := p6_a11;
195 ddp_act_offer_rec.qp_list_header_id := p6_a12;
196 ddp_act_offer_rec.security_group_id := p6_a13;
197
198 -- here's the delegated call to the old PL/SQL routine
199 ozf_act_offers_pvt.validate_act_offer(p_api_version,
200 p_init_msg_list,
201 p_validation_level,
202 x_return_status,
203 x_msg_count,
204 x_msg_data,
205 ddp_act_offer_rec);
206
207 -- copy data back from the local variables to OUT or IN-OUT args, if any
208
209
210
211
212
213
214 end;
215
216 procedure check_items(p_validation_mode VARCHAR2
217 , x_return_status out nocopy VARCHAR2
218 , p2_a0 NUMBER
219 , p2_a1 DATE
220 , p2_a2 NUMBER
221 , p2_a3 DATE
222 , p2_a4 NUMBER
223 , p2_a5 NUMBER
224 , p2_a6 NUMBER
225 , p2_a7 NUMBER
226 , p2_a8 VARCHAR2
227 , p2_a9 VARCHAR2
228 , p2_a10 VARCHAR2
229 , p2_a11 VARCHAR2
230 , p2_a12 NUMBER
231 , p2_a13 NUMBER
232 )
233
234 as
235 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
236 ddindx binary_integer; indx binary_integer;
237 begin
238
239 -- copy data to the local IN or IN-OUT args, if any
240
241
242 ddp_act_offer_rec.activity_offer_id := p2_a0;
243 ddp_act_offer_rec.last_update_date := p2_a1;
244 ddp_act_offer_rec.last_updated_by := p2_a2;
245 ddp_act_offer_rec.creation_date := p2_a3;
246 ddp_act_offer_rec.created_by := p2_a4;
247 ddp_act_offer_rec.last_update_login := p2_a5;
248 ddp_act_offer_rec.object_version_number := p2_a6;
249 ddp_act_offer_rec.act_offer_used_by_id := p2_a7;
250 ddp_act_offer_rec.arc_act_offer_used_by := p2_a8;
251 ddp_act_offer_rec.primary_offer_flag := p2_a9;
252 ddp_act_offer_rec.active_period_set := p2_a10;
253 ddp_act_offer_rec.active_period := p2_a11;
254 ddp_act_offer_rec.qp_list_header_id := p2_a12;
255 ddp_act_offer_rec.security_group_id := p2_a13;
256
257 -- here's the delegated call to the old PL/SQL routine
258 ozf_act_offers_pvt.check_items(p_validation_mode,
259 x_return_status,
260 ddp_act_offer_rec);
261
262 -- copy data back from the local variables to OUT or IN-OUT args, if any
263
264
265 end;
266
267 procedure check_record(p0_a0 NUMBER
268 , p0_a1 DATE
269 , p0_a2 NUMBER
270 , p0_a3 DATE
271 , p0_a4 NUMBER
272 , p0_a5 NUMBER
273 , p0_a6 NUMBER
274 , p0_a7 NUMBER
275 , p0_a8 VARCHAR2
276 , p0_a9 VARCHAR2
277 , p0_a10 VARCHAR2
278 , p0_a11 VARCHAR2
279 , p0_a12 NUMBER
280 , p0_a13 NUMBER
281 , p1_a0 NUMBER
282 , p1_a1 DATE
283 , p1_a2 NUMBER
284 , p1_a3 DATE
285 , p1_a4 NUMBER
286 , p1_a5 NUMBER
287 , p1_a6 NUMBER
288 , p1_a7 NUMBER
289 , p1_a8 VARCHAR2
290 , p1_a9 VARCHAR2
291 , p1_a10 VARCHAR2
292 , p1_a11 VARCHAR2
293 , p1_a12 NUMBER
294 , p1_a13 NUMBER
295 , x_return_status out nocopy VARCHAR2
296 )
297
298 as
299 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
300 ddp_complete_rec ozf_act_offers_pvt.act_offer_rec_type;
301 ddindx binary_integer; indx binary_integer;
302 begin
303
304 -- copy data to the local IN or IN-OUT args, if any
305 ddp_act_offer_rec.activity_offer_id := p0_a0;
306 ddp_act_offer_rec.last_update_date := p0_a1;
307 ddp_act_offer_rec.last_updated_by := p0_a2;
308 ddp_act_offer_rec.creation_date := p0_a3;
309 ddp_act_offer_rec.created_by := p0_a4;
310 ddp_act_offer_rec.last_update_login := p0_a5;
311 ddp_act_offer_rec.object_version_number := p0_a6;
312 ddp_act_offer_rec.act_offer_used_by_id := p0_a7;
313 ddp_act_offer_rec.arc_act_offer_used_by := p0_a8;
314 ddp_act_offer_rec.primary_offer_flag := p0_a9;
315 ddp_act_offer_rec.active_period_set := p0_a10;
316 ddp_act_offer_rec.active_period := p0_a11;
317 ddp_act_offer_rec.qp_list_header_id := p0_a12;
318 ddp_act_offer_rec.security_group_id := p0_a13;
319
320 ddp_complete_rec.activity_offer_id := p1_a0;
321 ddp_complete_rec.last_update_date := p1_a1;
322 ddp_complete_rec.last_updated_by := p1_a2;
323 ddp_complete_rec.creation_date := p1_a3;
324 ddp_complete_rec.created_by := p1_a4;
325 ddp_complete_rec.last_update_login := p1_a5;
326 ddp_complete_rec.object_version_number := p1_a6;
327 ddp_complete_rec.act_offer_used_by_id := p1_a7;
328 ddp_complete_rec.arc_act_offer_used_by := p1_a8;
329 ddp_complete_rec.primary_offer_flag := p1_a9;
330 ddp_complete_rec.active_period_set := p1_a10;
331 ddp_complete_rec.active_period := p1_a11;
332 ddp_complete_rec.qp_list_header_id := p1_a12;
333 ddp_complete_rec.security_group_id := p1_a13;
334
335
336 -- here's the delegated call to the old PL/SQL routine
337 ozf_act_offers_pvt.check_record(ddp_act_offer_rec,
338 ddp_complete_rec,
339 x_return_status);
340
341 -- copy data back from the local variables to OUT or IN-OUT args, if any
342
343
344 end;
345
346 procedure complete_rec(p0_a0 NUMBER
347 , p0_a1 DATE
348 , p0_a2 NUMBER
349 , p0_a3 DATE
350 , p0_a4 NUMBER
351 , p0_a5 NUMBER
352 , p0_a6 NUMBER
353 , p0_a7 NUMBER
354 , p0_a8 VARCHAR2
355 , p0_a9 VARCHAR2
356 , p0_a10 VARCHAR2
357 , p0_a11 VARCHAR2
358 , p0_a12 NUMBER
359 , p0_a13 NUMBER
360 , p1_a0 out nocopy NUMBER
361 , p1_a1 out nocopy DATE
362 , p1_a2 out nocopy NUMBER
363 , p1_a3 out nocopy DATE
364 , p1_a4 out nocopy NUMBER
365 , p1_a5 out nocopy NUMBER
366 , p1_a6 out nocopy NUMBER
367 , p1_a7 out nocopy NUMBER
368 , p1_a8 out nocopy VARCHAR2
369 , p1_a9 out nocopy VARCHAR2
370 , p1_a10 out nocopy VARCHAR2
371 , p1_a11 out nocopy VARCHAR2
372 , p1_a12 out nocopy NUMBER
373 , p1_a13 out nocopy NUMBER
374 )
375
376 as
377 ddp_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
378 ddx_complete_rec ozf_act_offers_pvt.act_offer_rec_type;
379 ddindx binary_integer; indx binary_integer;
380 begin
381
382 -- copy data to the local IN or IN-OUT args, if any
383 ddp_act_offer_rec.activity_offer_id := p0_a0;
384 ddp_act_offer_rec.last_update_date := p0_a1;
385 ddp_act_offer_rec.last_updated_by := p0_a2;
386 ddp_act_offer_rec.creation_date := p0_a3;
387 ddp_act_offer_rec.created_by := p0_a4;
388 ddp_act_offer_rec.last_update_login := p0_a5;
389 ddp_act_offer_rec.object_version_number := p0_a6;
390 ddp_act_offer_rec.act_offer_used_by_id := p0_a7;
391 ddp_act_offer_rec.arc_act_offer_used_by := p0_a8;
392 ddp_act_offer_rec.primary_offer_flag := p0_a9;
393 ddp_act_offer_rec.active_period_set := p0_a10;
394 ddp_act_offer_rec.active_period := p0_a11;
395 ddp_act_offer_rec.qp_list_header_id := p0_a12;
396 ddp_act_offer_rec.security_group_id := p0_a13;
397
398
399 -- here's the delegated call to the old PL/SQL routine
400 ozf_act_offers_pvt.complete_rec(ddp_act_offer_rec,
401 ddx_complete_rec);
402
403 -- copy data back from the local variables to OUT or IN-OUT args, if any
404
405 p1_a0 := ddx_complete_rec.activity_offer_id;
406 p1_a1 := ddx_complete_rec.last_update_date;
407 p1_a2 := ddx_complete_rec.last_updated_by;
408 p1_a3 := ddx_complete_rec.creation_date;
409 p1_a4 := ddx_complete_rec.created_by;
410 p1_a5 := ddx_complete_rec.last_update_login;
411 p1_a6 := ddx_complete_rec.object_version_number;
412 p1_a7 := ddx_complete_rec.act_offer_used_by_id;
413 p1_a8 := ddx_complete_rec.arc_act_offer_used_by;
414 p1_a9 := ddx_complete_rec.primary_offer_flag;
415 p1_a10 := ddx_complete_rec.active_period_set;
416 p1_a11 := ddx_complete_rec.active_period;
417 p1_a12 := ddx_complete_rec.qp_list_header_id;
418 p1_a13 := ddx_complete_rec.security_group_id;
419 end;
420
421 procedure init_rec(p0_a0 out nocopy NUMBER
422 , p0_a1 out nocopy DATE
423 , p0_a2 out nocopy NUMBER
424 , p0_a3 out nocopy DATE
425 , p0_a4 out nocopy NUMBER
426 , p0_a5 out nocopy NUMBER
427 , p0_a6 out nocopy NUMBER
428 , p0_a7 out nocopy NUMBER
429 , p0_a8 out nocopy VARCHAR2
430 , p0_a9 out nocopy VARCHAR2
431 , p0_a10 out nocopy VARCHAR2
432 , p0_a11 out nocopy VARCHAR2
433 , p0_a12 out nocopy NUMBER
434 , p0_a13 out nocopy NUMBER
435 )
436
437 as
438 ddx_act_offer_rec ozf_act_offers_pvt.act_offer_rec_type;
439 ddindx binary_integer; indx binary_integer;
440 begin
441
442 -- copy data to the local IN or IN-OUT args, if any
443
444 -- here's the delegated call to the old PL/SQL routine
445 ozf_act_offers_pvt.init_rec(ddx_act_offer_rec);
446
447 -- copy data back from the local variables to OUT or IN-OUT args, if any
448 p0_a0 := ddx_act_offer_rec.activity_offer_id;
449 p0_a1 := ddx_act_offer_rec.last_update_date;
450 p0_a2 := ddx_act_offer_rec.last_updated_by;
451 p0_a3 := ddx_act_offer_rec.creation_date;
452 p0_a4 := ddx_act_offer_rec.created_by;
453 p0_a5 := ddx_act_offer_rec.last_update_login;
454 p0_a6 := ddx_act_offer_rec.object_version_number;
455 p0_a7 := ddx_act_offer_rec.act_offer_used_by_id;
456 p0_a8 := ddx_act_offer_rec.arc_act_offer_used_by;
457 p0_a9 := ddx_act_offer_rec.primary_offer_flag;
458 p0_a10 := ddx_act_offer_rec.active_period_set;
459 p0_a11 := ddx_act_offer_rec.active_period;
460 p0_a12 := ddx_act_offer_rec.qp_list_header_id;
461 p0_a13 := ddx_act_offer_rec.security_group_id;
462 end;
463
464 end ozf_oa_act_offers_pvt_w;