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