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