[Home] [Help]
PACKAGE BODY: APPS.PV_PG_INVITE_HEADERS_PVT_W
Source
1 package body pv_pg_invite_headers_pvt_w as
2 /* $Header: pvxwpihb.pls 120.1 2005/08/29 14:19 appldev ship $ */
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 rosetta_table_copy_in_p2(t out nocopy pv_pg_invite_headers_pvt.invite_headers_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_NUMBER_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_DATE_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_DATE_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_DATE_TABLE
25 , a12 JTF_NUMBER_TABLE
26 , a13 JTF_NUMBER_TABLE
27 , a14 JTF_NUMBER_TABLE
28 , a15 JTF_VARCHAR2_TABLE_4000
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if a0 is not null and a0.count > 0 then
33 if a0.count > 0 then
34 indx := a0.first;
35 ddindx := 1;
36 while true loop
37 t(ddindx).invite_header_id := a0(indx);
38 t(ddindx).object_version_number := a1(indx);
39 t(ddindx).qp_list_header_id := a2(indx);
40 t(ddindx).invite_type_code := a3(indx);
41 t(ddindx).invite_for_program_id := a4(indx);
42 t(ddindx).created_by := a5(indx);
43 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
44 t(ddindx).last_updated_by := a7(indx);
45 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
46 t(ddindx).last_update_login := a9(indx);
47 t(ddindx).partner_id := a10(indx);
48 t(ddindx).invite_end_date := rosetta_g_miss_date_in_map(a11(indx));
49 t(ddindx).order_header_id := a12(indx);
50 t(ddindx).invited_by_partner_id := a13(indx);
51 t(ddindx).trxn_extension_id := a14(indx);
52 t(ddindx).email_content := a15(indx);
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p2;
62 procedure rosetta_table_copy_out_p2(t pv_pg_invite_headers_pvt.invite_headers_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
63 , a1 out nocopy JTF_NUMBER_TABLE
64 , a2 out nocopy JTF_VARCHAR2_TABLE_100
65 , a3 out nocopy JTF_VARCHAR2_TABLE_100
66 , a4 out nocopy JTF_NUMBER_TABLE
67 , a5 out nocopy JTF_NUMBER_TABLE
68 , a6 out nocopy JTF_DATE_TABLE
69 , a7 out nocopy JTF_NUMBER_TABLE
70 , a8 out nocopy JTF_DATE_TABLE
71 , a9 out nocopy JTF_NUMBER_TABLE
72 , a10 out nocopy JTF_NUMBER_TABLE
73 , a11 out nocopy JTF_DATE_TABLE
74 , a12 out nocopy JTF_NUMBER_TABLE
75 , a13 out nocopy JTF_NUMBER_TABLE
76 , a14 out nocopy JTF_NUMBER_TABLE
77 , a15 out nocopy JTF_VARCHAR2_TABLE_4000
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if t is null or t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 a1 := JTF_NUMBER_TABLE();
84 a2 := JTF_VARCHAR2_TABLE_100();
85 a3 := JTF_VARCHAR2_TABLE_100();
86 a4 := JTF_NUMBER_TABLE();
87 a5 := JTF_NUMBER_TABLE();
88 a6 := JTF_DATE_TABLE();
89 a7 := JTF_NUMBER_TABLE();
90 a8 := JTF_DATE_TABLE();
91 a9 := JTF_NUMBER_TABLE();
92 a10 := JTF_NUMBER_TABLE();
93 a11 := JTF_DATE_TABLE();
94 a12 := JTF_NUMBER_TABLE();
95 a13 := JTF_NUMBER_TABLE();
96 a14 := JTF_NUMBER_TABLE();
97 a15 := JTF_VARCHAR2_TABLE_4000();
98 else
99 a0 := JTF_NUMBER_TABLE();
100 a1 := JTF_NUMBER_TABLE();
101 a2 := JTF_VARCHAR2_TABLE_100();
102 a3 := JTF_VARCHAR2_TABLE_100();
103 a4 := JTF_NUMBER_TABLE();
104 a5 := JTF_NUMBER_TABLE();
105 a6 := JTF_DATE_TABLE();
106 a7 := JTF_NUMBER_TABLE();
107 a8 := JTF_DATE_TABLE();
108 a9 := JTF_NUMBER_TABLE();
109 a10 := JTF_NUMBER_TABLE();
110 a11 := JTF_DATE_TABLE();
111 a12 := JTF_NUMBER_TABLE();
112 a13 := JTF_NUMBER_TABLE();
113 a14 := JTF_NUMBER_TABLE();
114 a15 := JTF_VARCHAR2_TABLE_4000();
115 if t.count > 0 then
116 a0.extend(t.count);
117 a1.extend(t.count);
118 a2.extend(t.count);
119 a3.extend(t.count);
120 a4.extend(t.count);
121 a5.extend(t.count);
122 a6.extend(t.count);
123 a7.extend(t.count);
124 a8.extend(t.count);
125 a9.extend(t.count);
126 a10.extend(t.count);
127 a11.extend(t.count);
128 a12.extend(t.count);
129 a13.extend(t.count);
130 a14.extend(t.count);
131 a15.extend(t.count);
132 ddindx := t.first;
133 indx := 1;
134 while true loop
135 a0(indx) := t(ddindx).invite_header_id;
136 a1(indx) := t(ddindx).object_version_number;
137 a2(indx) := t(ddindx).qp_list_header_id;
138 a3(indx) := t(ddindx).invite_type_code;
139 a4(indx) := t(ddindx).invite_for_program_id;
140 a5(indx) := t(ddindx).created_by;
141 a6(indx) := t(ddindx).creation_date;
142 a7(indx) := t(ddindx).last_updated_by;
143 a8(indx) := t(ddindx).last_update_date;
144 a9(indx) := t(ddindx).last_update_login;
145 a10(indx) := t(ddindx).partner_id;
146 a11(indx) := t(ddindx).invite_end_date;
147 a12(indx) := t(ddindx).order_header_id;
148 a13(indx) := t(ddindx).invited_by_partner_id;
149 a14(indx) := t(ddindx).trxn_extension_id;
150 a15(indx) := t(ddindx).email_content;
151 indx := indx+1;
152 if t.last =ddindx
153 then exit;
154 end if;
155 ddindx := t.next(ddindx);
156 end loop;
157 end if;
158 end if;
159 end rosetta_table_copy_out_p2;
160
161 procedure create_invite_headers(p_api_version_number NUMBER
162 , p_init_msg_list VARCHAR2
163 , p_commit VARCHAR2
164 , p_validation_level NUMBER
165 , x_return_status out nocopy VARCHAR2
166 , x_msg_count out nocopy NUMBER
167 , x_msg_data out nocopy VARCHAR2
168 , p7_a0 NUMBER
169 , p7_a1 NUMBER
170 , p7_a2 VARCHAR2
171 , p7_a3 VARCHAR2
172 , p7_a4 NUMBER
173 , p7_a5 NUMBER
174 , p7_a6 DATE
175 , p7_a7 NUMBER
176 , p7_a8 DATE
177 , p7_a9 NUMBER
178 , p7_a10 NUMBER
179 , p7_a11 DATE
180 , p7_a12 NUMBER
181 , p7_a13 NUMBER
182 , p7_a14 NUMBER
183 , p7_a15 VARCHAR2
184 , x_invite_header_id out nocopy NUMBER
185 )
186
187 as
188 ddp_invite_headers_rec pv_pg_invite_headers_pvt.invite_headers_rec_type;
189 ddindx binary_integer; indx binary_integer;
190 begin
191
192 -- copy data to the local IN or IN-OUT args, if any
193
194
195
196
197
198
199
200 ddp_invite_headers_rec.invite_header_id := p7_a0;
201 ddp_invite_headers_rec.object_version_number := p7_a1;
202 ddp_invite_headers_rec.qp_list_header_id := p7_a2;
203 ddp_invite_headers_rec.invite_type_code := p7_a3;
204 ddp_invite_headers_rec.invite_for_program_id := p7_a4;
205 ddp_invite_headers_rec.created_by := p7_a5;
206 ddp_invite_headers_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
207 ddp_invite_headers_rec.last_updated_by := p7_a7;
208 ddp_invite_headers_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
209 ddp_invite_headers_rec.last_update_login := p7_a9;
210 ddp_invite_headers_rec.partner_id := p7_a10;
211 ddp_invite_headers_rec.invite_end_date := rosetta_g_miss_date_in_map(p7_a11);
212 ddp_invite_headers_rec.order_header_id := p7_a12;
213 ddp_invite_headers_rec.invited_by_partner_id := p7_a13;
214 ddp_invite_headers_rec.trxn_extension_id := p7_a14;
215 ddp_invite_headers_rec.email_content := p7_a15;
216
217
218 -- here's the delegated call to the old PL/SQL routine
219 pv_pg_invite_headers_pvt.create_invite_headers(p_api_version_number,
220 p_init_msg_list,
221 p_commit,
222 p_validation_level,
223 x_return_status,
224 x_msg_count,
225 x_msg_data,
226 ddp_invite_headers_rec,
227 x_invite_header_id);
228
229 -- copy data back from the local variables to OUT or IN-OUT args, if any
230
231
232
233
234
235
236
237
238 end;
239
240 procedure update_invite_headers(p_api_version_number NUMBER
241 , p_init_msg_list VARCHAR2
242 , p_commit VARCHAR2
243 , p_validation_level NUMBER
244 , x_return_status out nocopy VARCHAR2
245 , x_msg_count out nocopy NUMBER
246 , x_msg_data out nocopy VARCHAR2
247 , p7_a0 NUMBER
248 , p7_a1 NUMBER
249 , p7_a2 VARCHAR2
250 , p7_a3 VARCHAR2
251 , p7_a4 NUMBER
252 , p7_a5 NUMBER
253 , p7_a6 DATE
254 , p7_a7 NUMBER
255 , p7_a8 DATE
256 , p7_a9 NUMBER
257 , p7_a10 NUMBER
258 , p7_a11 DATE
259 , p7_a12 NUMBER
260 , p7_a13 NUMBER
261 , p7_a14 NUMBER
262 , p7_a15 VARCHAR2
263 )
264
265 as
266 ddp_invite_headers_rec pv_pg_invite_headers_pvt.invite_headers_rec_type;
267 ddindx binary_integer; indx binary_integer;
268 begin
269
270 -- copy data to the local IN or IN-OUT args, if any
271
272
273
274
275
276
277
278 ddp_invite_headers_rec.invite_header_id := p7_a0;
279 ddp_invite_headers_rec.object_version_number := p7_a1;
280 ddp_invite_headers_rec.qp_list_header_id := p7_a2;
281 ddp_invite_headers_rec.invite_type_code := p7_a3;
282 ddp_invite_headers_rec.invite_for_program_id := p7_a4;
283 ddp_invite_headers_rec.created_by := p7_a5;
284 ddp_invite_headers_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
285 ddp_invite_headers_rec.last_updated_by := p7_a7;
286 ddp_invite_headers_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
287 ddp_invite_headers_rec.last_update_login := p7_a9;
288 ddp_invite_headers_rec.partner_id := p7_a10;
289 ddp_invite_headers_rec.invite_end_date := rosetta_g_miss_date_in_map(p7_a11);
290 ddp_invite_headers_rec.order_header_id := p7_a12;
291 ddp_invite_headers_rec.invited_by_partner_id := p7_a13;
292 ddp_invite_headers_rec.trxn_extension_id := p7_a14;
293 ddp_invite_headers_rec.email_content := p7_a15;
294
295 -- here's the delegated call to the old PL/SQL routine
296 pv_pg_invite_headers_pvt.update_invite_headers(p_api_version_number,
297 p_init_msg_list,
298 p_commit,
299 p_validation_level,
300 x_return_status,
301 x_msg_count,
302 x_msg_data,
303 ddp_invite_headers_rec);
304
305 -- copy data back from the local variables to OUT or IN-OUT args, if any
306
307
308
309
310
311
312
313 end;
314
315 procedure validate_invite_headers(p_api_version_number NUMBER
316 , p_init_msg_list VARCHAR2
317 , p_validation_level NUMBER
318 , p3_a0 NUMBER
319 , p3_a1 NUMBER
320 , p3_a2 VARCHAR2
321 , p3_a3 VARCHAR2
322 , p3_a4 NUMBER
323 , p3_a5 NUMBER
324 , p3_a6 DATE
325 , p3_a7 NUMBER
326 , p3_a8 DATE
327 , p3_a9 NUMBER
328 , p3_a10 NUMBER
329 , p3_a11 DATE
330 , p3_a12 NUMBER
331 , p3_a13 NUMBER
332 , p3_a14 NUMBER
333 , p3_a15 VARCHAR2
334 , p_validation_mode VARCHAR2
335 , x_return_status out nocopy VARCHAR2
336 , x_msg_count out nocopy NUMBER
337 , x_msg_data out nocopy VARCHAR2
338 )
339
340 as
341 ddp_invite_headers_rec pv_pg_invite_headers_pvt.invite_headers_rec_type;
342 ddindx binary_integer; indx binary_integer;
343 begin
344
345 -- copy data to the local IN or IN-OUT args, if any
346
347
348
349 ddp_invite_headers_rec.invite_header_id := p3_a0;
350 ddp_invite_headers_rec.object_version_number := p3_a1;
351 ddp_invite_headers_rec.qp_list_header_id := p3_a2;
352 ddp_invite_headers_rec.invite_type_code := p3_a3;
353 ddp_invite_headers_rec.invite_for_program_id := p3_a4;
354 ddp_invite_headers_rec.created_by := p3_a5;
355 ddp_invite_headers_rec.creation_date := rosetta_g_miss_date_in_map(p3_a6);
356 ddp_invite_headers_rec.last_updated_by := p3_a7;
357 ddp_invite_headers_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a8);
358 ddp_invite_headers_rec.last_update_login := p3_a9;
359 ddp_invite_headers_rec.partner_id := p3_a10;
360 ddp_invite_headers_rec.invite_end_date := rosetta_g_miss_date_in_map(p3_a11);
361 ddp_invite_headers_rec.order_header_id := p3_a12;
362 ddp_invite_headers_rec.invited_by_partner_id := p3_a13;
363 ddp_invite_headers_rec.trxn_extension_id := p3_a14;
364 ddp_invite_headers_rec.email_content := p3_a15;
365
366
367
368
369
370 -- here's the delegated call to the old PL/SQL routine
371 pv_pg_invite_headers_pvt.validate_invite_headers(p_api_version_number,
372 p_init_msg_list,
373 p_validation_level,
374 ddp_invite_headers_rec,
375 p_validation_mode,
376 x_return_status,
377 x_msg_count,
378 x_msg_data);
379
380 -- copy data back from the local variables to OUT or IN-OUT args, if any
381
382
383
384
385
386
387
388 end;
389
390 procedure check_invite_headers_items(p0_a0 NUMBER
391 , p0_a1 NUMBER
392 , p0_a2 VARCHAR2
393 , p0_a3 VARCHAR2
394 , p0_a4 NUMBER
395 , p0_a5 NUMBER
396 , p0_a6 DATE
397 , p0_a7 NUMBER
398 , p0_a8 DATE
399 , p0_a9 NUMBER
400 , p0_a10 NUMBER
401 , p0_a11 DATE
402 , p0_a12 NUMBER
403 , p0_a13 NUMBER
404 , p0_a14 NUMBER
405 , p0_a15 VARCHAR2
406 , p_validation_mode VARCHAR2
407 , x_return_status out nocopy VARCHAR2
408 )
409
410 as
411 ddp_invite_headers_rec pv_pg_invite_headers_pvt.invite_headers_rec_type;
412 ddindx binary_integer; indx binary_integer;
413 begin
414
415 -- copy data to the local IN or IN-OUT args, if any
416 ddp_invite_headers_rec.invite_header_id := p0_a0;
417 ddp_invite_headers_rec.object_version_number := p0_a1;
418 ddp_invite_headers_rec.qp_list_header_id := p0_a2;
419 ddp_invite_headers_rec.invite_type_code := p0_a3;
420 ddp_invite_headers_rec.invite_for_program_id := p0_a4;
421 ddp_invite_headers_rec.created_by := p0_a5;
422 ddp_invite_headers_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
423 ddp_invite_headers_rec.last_updated_by := p0_a7;
424 ddp_invite_headers_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
425 ddp_invite_headers_rec.last_update_login := p0_a9;
426 ddp_invite_headers_rec.partner_id := p0_a10;
427 ddp_invite_headers_rec.invite_end_date := rosetta_g_miss_date_in_map(p0_a11);
428 ddp_invite_headers_rec.order_header_id := p0_a12;
429 ddp_invite_headers_rec.invited_by_partner_id := p0_a13;
430 ddp_invite_headers_rec.trxn_extension_id := p0_a14;
431 ddp_invite_headers_rec.email_content := p0_a15;
432
433
434
435 -- here's the delegated call to the old PL/SQL routine
436 pv_pg_invite_headers_pvt.check_invite_headers_items(ddp_invite_headers_rec,
437 p_validation_mode,
438 x_return_status);
439
440 -- copy data back from the local variables to OUT or IN-OUT args, if any
441
442
443 end;
444
445 procedure validate_invite_headers_rec(p_api_version_number NUMBER
446 , p_init_msg_list VARCHAR2
447 , x_return_status out nocopy VARCHAR2
448 , x_msg_count out nocopy NUMBER
449 , x_msg_data out nocopy VARCHAR2
450 , p5_a0 NUMBER
451 , p5_a1 NUMBER
452 , p5_a2 VARCHAR2
453 , p5_a3 VARCHAR2
454 , p5_a4 NUMBER
455 , p5_a5 NUMBER
456 , p5_a6 DATE
457 , p5_a7 NUMBER
458 , p5_a8 DATE
459 , p5_a9 NUMBER
460 , p5_a10 NUMBER
461 , p5_a11 DATE
462 , p5_a12 NUMBER
463 , p5_a13 NUMBER
464 , p5_a14 NUMBER
465 , p5_a15 VARCHAR2
466 )
467
468 as
469 ddp_invite_headers_rec pv_pg_invite_headers_pvt.invite_headers_rec_type;
470 ddindx binary_integer; indx binary_integer;
471 begin
472
473 -- copy data to the local IN or IN-OUT args, if any
474
475
476
477
478
479 ddp_invite_headers_rec.invite_header_id := p5_a0;
480 ddp_invite_headers_rec.object_version_number := p5_a1;
481 ddp_invite_headers_rec.qp_list_header_id := p5_a2;
482 ddp_invite_headers_rec.invite_type_code := p5_a3;
483 ddp_invite_headers_rec.invite_for_program_id := p5_a4;
484 ddp_invite_headers_rec.created_by := p5_a5;
485 ddp_invite_headers_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
486 ddp_invite_headers_rec.last_updated_by := p5_a7;
487 ddp_invite_headers_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
488 ddp_invite_headers_rec.last_update_login := p5_a9;
489 ddp_invite_headers_rec.partner_id := p5_a10;
490 ddp_invite_headers_rec.invite_end_date := rosetta_g_miss_date_in_map(p5_a11);
491 ddp_invite_headers_rec.order_header_id := p5_a12;
492 ddp_invite_headers_rec.invited_by_partner_id := p5_a13;
493 ddp_invite_headers_rec.trxn_extension_id := p5_a14;
494 ddp_invite_headers_rec.email_content := p5_a15;
495
496 -- here's the delegated call to the old PL/SQL routine
497 pv_pg_invite_headers_pvt.validate_invite_headers_rec(p_api_version_number,
498 p_init_msg_list,
499 x_return_status,
500 x_msg_count,
501 x_msg_data,
502 ddp_invite_headers_rec);
503
504 -- copy data back from the local variables to OUT or IN-OUT args, if any
505
506
507
508
509
510 end;
511
512 end pv_pg_invite_headers_pvt_w;