[Home] [Help]
PACKAGE BODY: APPS.AMS_ACTRESOURCE_PUB_W
Source
1 package body ams_actresource_pub_w as
2 /* $Header: amswrscb.pls 115.8 2002/11/16 01:47:19 dbiswas 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
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_p3(t OUT NOCOPY ams_actresource_pub.act_resource_rec_tbl, a0 JTF_NUMBER_TABLE
23 , a1 JTF_DATE_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_DATE_TABLE
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_4000
39 , a17 JTF_VARCHAR2_TABLE_100
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 , a23 JTF_VARCHAR2_TABLE_200
46 , a24 JTF_VARCHAR2_TABLE_200
47 , a25 JTF_VARCHAR2_TABLE_200
48 , a26 JTF_VARCHAR2_TABLE_200
49 , a27 JTF_VARCHAR2_TABLE_200
50 , a28 JTF_VARCHAR2_TABLE_200
51 , a29 JTF_VARCHAR2_TABLE_200
52 , a30 JTF_VARCHAR2_TABLE_200
53 , a31 JTF_VARCHAR2_TABLE_200
54 , a32 JTF_VARCHAR2_TABLE_200
55 ) as
56 ddindx binary_integer; indx binary_integer;
57 begin
58 if a0 is not null and a0.count > 0 then
59 if a0.count > 0 then
60 indx := a0.first;
61 ddindx := 1;
62 while true loop
63 t(ddindx).activity_resource_id := rosetta_g_miss_num_map(a0(indx));
64 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
65 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
66 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
67 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
68 t(ddindx).last_update_login := rosetta_g_miss_num_map(a5(indx));
69 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
70 t(ddindx).act_resource_used_by_id := rosetta_g_miss_num_map(a7(indx));
71 t(ddindx).arc_act_resource_used_by := a8(indx);
72 t(ddindx).resource_id := rosetta_g_miss_num_map(a9(indx));
73 t(ddindx).role_cd := a10(indx);
74 t(ddindx).user_status_id := rosetta_g_miss_num_map(a11(indx));
75 t(ddindx).system_status_code := a12(indx);
76 t(ddindx).start_date_time := rosetta_g_miss_date_in_map(a13(indx));
77 t(ddindx).end_date_time := rosetta_g_miss_date_in_map(a14(indx));
78 t(ddindx).primary_flag := a15(indx);
79 t(ddindx).description := a16(indx);
80 t(ddindx).attribute_category := a17(indx);
81 t(ddindx).attribute1 := a18(indx);
82 t(ddindx).attribute2 := a19(indx);
83 t(ddindx).attribute3 := a20(indx);
84 t(ddindx).attribute4 := a21(indx);
85 t(ddindx).attribute5 := a22(indx);
86 t(ddindx).attribute6 := a23(indx);
87 t(ddindx).attribute7 := a24(indx);
88 t(ddindx).attribute8 := a25(indx);
89 t(ddindx).attribute9 := a26(indx);
90 t(ddindx).attribute10 := a27(indx);
91 t(ddindx).attribute11 := a28(indx);
92 t(ddindx).attribute12 := a29(indx);
93 t(ddindx).attribute13 := a30(indx);
94 t(ddindx).attribute14 := a31(indx);
95 t(ddindx).attribute15 := a32(indx);
96 ddindx := ddindx+1;
97 if a0.last =indx
98 then exit;
99 end if;
100 indx := a0.next(indx);
101 end loop;
102 end if;
103 end if;
104 end rosetta_table_copy_in_p3;
105 procedure rosetta_table_copy_out_p3(t ams_actresource_pub.act_resource_rec_tbl, a0 OUT NOCOPY JTF_NUMBER_TABLE
106 , a1 OUT NOCOPY JTF_DATE_TABLE
107 , a2 OUT NOCOPY JTF_NUMBER_TABLE
108 , a3 OUT NOCOPY JTF_DATE_TABLE
109 , a4 OUT NOCOPY JTF_NUMBER_TABLE
110 , a5 OUT NOCOPY JTF_NUMBER_TABLE
111 , a6 OUT NOCOPY JTF_NUMBER_TABLE
112 , a7 OUT NOCOPY JTF_NUMBER_TABLE
113 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
114 , a9 OUT NOCOPY JTF_NUMBER_TABLE
115 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
116 , a11 OUT NOCOPY JTF_NUMBER_TABLE
117 , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_100
118 , a13 OUT NOCOPY JTF_DATE_TABLE
119 , a14 OUT NOCOPY JTF_DATE_TABLE
120 , a15 OUT NOCOPY JTF_VARCHAR2_TABLE_100
121 , a16 OUT NOCOPY JTF_VARCHAR2_TABLE_4000
122 , a17 OUT NOCOPY JTF_VARCHAR2_TABLE_100
123 , a18 OUT NOCOPY JTF_VARCHAR2_TABLE_200
124 , a19 OUT NOCOPY JTF_VARCHAR2_TABLE_200
125 , a20 OUT NOCOPY JTF_VARCHAR2_TABLE_200
126 , a21 OUT NOCOPY JTF_VARCHAR2_TABLE_200
127 , a22 OUT NOCOPY JTF_VARCHAR2_TABLE_200
128 , a23 OUT NOCOPY JTF_VARCHAR2_TABLE_200
129 , a24 OUT NOCOPY JTF_VARCHAR2_TABLE_200
130 , a25 OUT NOCOPY JTF_VARCHAR2_TABLE_200
131 , a26 OUT NOCOPY JTF_VARCHAR2_TABLE_200
132 , a27 OUT NOCOPY JTF_VARCHAR2_TABLE_200
133 , a28 OUT NOCOPY JTF_VARCHAR2_TABLE_200
134 , a29 OUT NOCOPY JTF_VARCHAR2_TABLE_200
135 , a30 OUT NOCOPY JTF_VARCHAR2_TABLE_200
136 , a31 OUT NOCOPY JTF_VARCHAR2_TABLE_200
137 , a32 OUT NOCOPY JTF_VARCHAR2_TABLE_200
138 ) as
139 ddindx binary_integer; indx binary_integer;
140 begin
141 if t is null or t.count = 0 then
142 a0 := JTF_NUMBER_TABLE();
143 a1 := JTF_DATE_TABLE();
144 a2 := JTF_NUMBER_TABLE();
145 a3 := JTF_DATE_TABLE();
146 a4 := JTF_NUMBER_TABLE();
147 a5 := JTF_NUMBER_TABLE();
148 a6 := JTF_NUMBER_TABLE();
149 a7 := JTF_NUMBER_TABLE();
150 a8 := JTF_VARCHAR2_TABLE_100();
151 a9 := JTF_NUMBER_TABLE();
152 a10 := JTF_VARCHAR2_TABLE_100();
153 a11 := JTF_NUMBER_TABLE();
154 a12 := JTF_VARCHAR2_TABLE_100();
155 a13 := JTF_DATE_TABLE();
156 a14 := JTF_DATE_TABLE();
157 a15 := JTF_VARCHAR2_TABLE_100();
158 a16 := JTF_VARCHAR2_TABLE_4000();
159 a17 := JTF_VARCHAR2_TABLE_100();
160 a18 := JTF_VARCHAR2_TABLE_200();
161 a19 := JTF_VARCHAR2_TABLE_200();
162 a20 := JTF_VARCHAR2_TABLE_200();
163 a21 := JTF_VARCHAR2_TABLE_200();
164 a22 := JTF_VARCHAR2_TABLE_200();
165 a23 := JTF_VARCHAR2_TABLE_200();
166 a24 := JTF_VARCHAR2_TABLE_200();
167 a25 := JTF_VARCHAR2_TABLE_200();
168 a26 := JTF_VARCHAR2_TABLE_200();
169 a27 := JTF_VARCHAR2_TABLE_200();
170 a28 := JTF_VARCHAR2_TABLE_200();
171 a29 := JTF_VARCHAR2_TABLE_200();
172 a30 := JTF_VARCHAR2_TABLE_200();
173 a31 := JTF_VARCHAR2_TABLE_200();
174 a32 := JTF_VARCHAR2_TABLE_200();
175 else
176 a0 := JTF_NUMBER_TABLE();
177 a1 := JTF_DATE_TABLE();
178 a2 := JTF_NUMBER_TABLE();
179 a3 := JTF_DATE_TABLE();
180 a4 := JTF_NUMBER_TABLE();
181 a5 := JTF_NUMBER_TABLE();
182 a6 := JTF_NUMBER_TABLE();
183 a7 := JTF_NUMBER_TABLE();
184 a8 := JTF_VARCHAR2_TABLE_100();
185 a9 := JTF_NUMBER_TABLE();
186 a10 := JTF_VARCHAR2_TABLE_100();
187 a11 := JTF_NUMBER_TABLE();
188 a12 := JTF_VARCHAR2_TABLE_100();
189 a13 := JTF_DATE_TABLE();
190 a14 := JTF_DATE_TABLE();
191 a15 := JTF_VARCHAR2_TABLE_100();
192 a16 := JTF_VARCHAR2_TABLE_4000();
193 a17 := JTF_VARCHAR2_TABLE_100();
194 a18 := JTF_VARCHAR2_TABLE_200();
195 a19 := JTF_VARCHAR2_TABLE_200();
196 a20 := JTF_VARCHAR2_TABLE_200();
197 a21 := JTF_VARCHAR2_TABLE_200();
198 a22 := JTF_VARCHAR2_TABLE_200();
199 a23 := JTF_VARCHAR2_TABLE_200();
200 a24 := JTF_VARCHAR2_TABLE_200();
201 a25 := JTF_VARCHAR2_TABLE_200();
202 a26 := JTF_VARCHAR2_TABLE_200();
203 a27 := JTF_VARCHAR2_TABLE_200();
204 a28 := JTF_VARCHAR2_TABLE_200();
205 a29 := JTF_VARCHAR2_TABLE_200();
206 a30 := JTF_VARCHAR2_TABLE_200();
207 a31 := JTF_VARCHAR2_TABLE_200();
208 a32 := JTF_VARCHAR2_TABLE_200();
209 if t.count > 0 then
210 a0.extend(t.count);
211 a1.extend(t.count);
212 a2.extend(t.count);
213 a3.extend(t.count);
214 a4.extend(t.count);
215 a5.extend(t.count);
216 a6.extend(t.count);
217 a7.extend(t.count);
218 a8.extend(t.count);
219 a9.extend(t.count);
220 a10.extend(t.count);
221 a11.extend(t.count);
222 a12.extend(t.count);
223 a13.extend(t.count);
224 a14.extend(t.count);
225 a15.extend(t.count);
226 a16.extend(t.count);
227 a17.extend(t.count);
228 a18.extend(t.count);
229 a19.extend(t.count);
230 a20.extend(t.count);
231 a21.extend(t.count);
232 a22.extend(t.count);
233 a23.extend(t.count);
234 a24.extend(t.count);
235 a25.extend(t.count);
236 a26.extend(t.count);
237 a27.extend(t.count);
238 a28.extend(t.count);
239 a29.extend(t.count);
240 a30.extend(t.count);
241 a31.extend(t.count);
242 a32.extend(t.count);
243 ddindx := t.first;
244 indx := 1;
245 while true loop
246 a0(indx) := rosetta_g_miss_num_map(t(ddindx).activity_resource_id);
247 a1(indx) := t(ddindx).last_update_date;
248 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
249 a3(indx) := t(ddindx).creation_date;
250 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
251 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
252 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
253 a7(indx) := rosetta_g_miss_num_map(t(ddindx).act_resource_used_by_id);
254 a8(indx) := t(ddindx).arc_act_resource_used_by;
255 a9(indx) := rosetta_g_miss_num_map(t(ddindx).resource_id);
256 a10(indx) := t(ddindx).role_cd;
257 a11(indx) := rosetta_g_miss_num_map(t(ddindx).user_status_id);
258 a12(indx) := t(ddindx).system_status_code;
259 a13(indx) := t(ddindx).start_date_time;
260 a14(indx) := t(ddindx).end_date_time;
261 a15(indx) := t(ddindx).primary_flag;
262 a16(indx) := t(ddindx).description;
263 a17(indx) := t(ddindx).attribute_category;
264 a18(indx) := t(ddindx).attribute1;
265 a19(indx) := t(ddindx).attribute2;
266 a20(indx) := t(ddindx).attribute3;
267 a21(indx) := t(ddindx).attribute4;
268 a22(indx) := t(ddindx).attribute5;
269 a23(indx) := t(ddindx).attribute6;
270 a24(indx) := t(ddindx).attribute7;
271 a25(indx) := t(ddindx).attribute8;
272 a26(indx) := t(ddindx).attribute9;
273 a27(indx) := t(ddindx).attribute10;
274 a28(indx) := t(ddindx).attribute11;
275 a29(indx) := t(ddindx).attribute12;
276 a30(indx) := t(ddindx).attribute13;
277 a31(indx) := t(ddindx).attribute14;
278 a32(indx) := t(ddindx).attribute15;
279 indx := indx+1;
280 if t.last =ddindx
281 then exit;
282 end if;
283 ddindx := t.next(ddindx);
284 end loop;
285 end if;
286 end if;
287 end rosetta_table_copy_out_p3;
288
289 procedure create_act_resource(p_api_version NUMBER
290 , p_init_msg_list VARCHAR2
291 , p_commit VARCHAR2
292 , p_validation_level NUMBER
293 , x_return_status OUT NOCOPY VARCHAR2
294 , x_msg_count OUT NOCOPY NUMBER
295 , x_msg_data OUT NOCOPY VARCHAR2
296 , x_act_resource_id OUT NOCOPY NUMBER
297 , p7_a0 NUMBER := 0-1962.0724
298 , p7_a1 DATE := fnd_api.g_miss_date
299 , p7_a2 NUMBER := 0-1962.0724
300 , p7_a3 DATE := fnd_api.g_miss_date
301 , p7_a4 NUMBER := 0-1962.0724
302 , p7_a5 NUMBER := 0-1962.0724
303 , p7_a6 NUMBER := 0-1962.0724
304 , p7_a7 NUMBER := 0-1962.0724
305 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
306 , p7_a9 NUMBER := 0-1962.0724
307 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
308 , p7_a11 NUMBER := 0-1962.0724
309 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
310 , p7_a13 DATE := fnd_api.g_miss_date
311 , p7_a14 DATE := fnd_api.g_miss_date
312 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
313 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
314 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
315 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
316 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
317 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
318 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
319 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
320 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
321 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
322 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
323 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
324 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
325 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
326 , p7_a29 VARCHAR2 := fnd_api.g_miss_char
327 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
328 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
329 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
330 )
331 as
332 ddp_act_resource_rec ams_actresource_pub.act_resource_rec_type;
333 ddindx binary_integer; indx binary_integer;
334 begin
335
336 -- copy data to the local IN or IN-OUT args, if any
337
338
339
340
341
342
343
344 ddp_act_resource_rec.activity_resource_id := rosetta_g_miss_num_map(p7_a0);
345 ddp_act_resource_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
346 ddp_act_resource_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
347 ddp_act_resource_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
348 ddp_act_resource_rec.created_by := rosetta_g_miss_num_map(p7_a4);
349 ddp_act_resource_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
350 ddp_act_resource_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
351 ddp_act_resource_rec.act_resource_used_by_id := rosetta_g_miss_num_map(p7_a7);
352 ddp_act_resource_rec.arc_act_resource_used_by := p7_a8;
353 ddp_act_resource_rec.resource_id := rosetta_g_miss_num_map(p7_a9);
354 ddp_act_resource_rec.role_cd := p7_a10;
355 ddp_act_resource_rec.user_status_id := rosetta_g_miss_num_map(p7_a11);
356 ddp_act_resource_rec.system_status_code := p7_a12;
357 ddp_act_resource_rec.start_date_time := rosetta_g_miss_date_in_map(p7_a13);
358 ddp_act_resource_rec.end_date_time := rosetta_g_miss_date_in_map(p7_a14);
359 ddp_act_resource_rec.primary_flag := p7_a15;
360 ddp_act_resource_rec.description := p7_a16;
361 ddp_act_resource_rec.attribute_category := p7_a17;
362 ddp_act_resource_rec.attribute1 := p7_a18;
363 ddp_act_resource_rec.attribute2 := p7_a19;
364 ddp_act_resource_rec.attribute3 := p7_a20;
365 ddp_act_resource_rec.attribute4 := p7_a21;
366 ddp_act_resource_rec.attribute5 := p7_a22;
367 ddp_act_resource_rec.attribute6 := p7_a23;
368 ddp_act_resource_rec.attribute7 := p7_a24;
369 ddp_act_resource_rec.attribute8 := p7_a25;
370 ddp_act_resource_rec.attribute9 := p7_a26;
371 ddp_act_resource_rec.attribute10 := p7_a27;
372 ddp_act_resource_rec.attribute11 := p7_a28;
373 ddp_act_resource_rec.attribute12 := p7_a29;
374 ddp_act_resource_rec.attribute13 := p7_a30;
375 ddp_act_resource_rec.attribute14 := p7_a31;
376 ddp_act_resource_rec.attribute15 := p7_a32;
377
378
379 -- here's the delegated call to the old PL/SQL routine
380 ams_actresource_pub.create_act_resource(p_api_version,
381 p_init_msg_list,
382 p_commit,
383 p_validation_level,
384 x_return_status,
385 x_msg_count,
386 x_msg_data,
387 ddp_act_resource_rec,
388 x_act_resource_id);
389
390 -- copy data back from the local OUT or IN-OUT args, if any
391
392
393
394
395
396
397
398
399 end;
400
401 procedure update_act_resource(p_api_version NUMBER
402 , p_init_msg_list VARCHAR2
403 , p_commit VARCHAR2
404 , p_validation_level NUMBER
405 , x_return_status OUT NOCOPY VARCHAR2
406 , x_msg_count OUT NOCOPY NUMBER
407 , x_msg_data OUT NOCOPY VARCHAR2
408 , p7_a0 NUMBER := 0-1962.0724
409 , p7_a1 DATE := fnd_api.g_miss_date
410 , p7_a2 NUMBER := 0-1962.0724
411 , p7_a3 DATE := fnd_api.g_miss_date
412 , p7_a4 NUMBER := 0-1962.0724
413 , p7_a5 NUMBER := 0-1962.0724
414 , p7_a6 NUMBER := 0-1962.0724
415 , p7_a7 NUMBER := 0-1962.0724
416 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
417 , p7_a9 NUMBER := 0-1962.0724
418 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
419 , p7_a11 NUMBER := 0-1962.0724
420 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
421 , p7_a13 DATE := fnd_api.g_miss_date
422 , p7_a14 DATE := fnd_api.g_miss_date
423 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
424 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
425 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
426 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
427 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
428 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
429 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
430 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
431 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
432 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
433 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
434 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
435 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
436 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
437 , p7_a29 VARCHAR2 := fnd_api.g_miss_char
438 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
439 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
440 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
441 )
442 as
443 ddp_act_resource_rec ams_actresource_pub.act_resource_rec_type;
444 ddindx binary_integer; indx binary_integer;
445 begin
446
447 -- copy data to the local IN or IN-OUT args, if any
448
449
450
451
452
453
454
455 ddp_act_resource_rec.activity_resource_id := rosetta_g_miss_num_map(p7_a0);
456 ddp_act_resource_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
457 ddp_act_resource_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
458 ddp_act_resource_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
459 ddp_act_resource_rec.created_by := rosetta_g_miss_num_map(p7_a4);
460 ddp_act_resource_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
461 ddp_act_resource_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
462 ddp_act_resource_rec.act_resource_used_by_id := rosetta_g_miss_num_map(p7_a7);
463 ddp_act_resource_rec.arc_act_resource_used_by := p7_a8;
464 ddp_act_resource_rec.resource_id := rosetta_g_miss_num_map(p7_a9);
465 ddp_act_resource_rec.role_cd := p7_a10;
466 ddp_act_resource_rec.user_status_id := rosetta_g_miss_num_map(p7_a11);
467 ddp_act_resource_rec.system_status_code := p7_a12;
468 ddp_act_resource_rec.start_date_time := rosetta_g_miss_date_in_map(p7_a13);
469 ddp_act_resource_rec.end_date_time := rosetta_g_miss_date_in_map(p7_a14);
470 ddp_act_resource_rec.primary_flag := p7_a15;
471 ddp_act_resource_rec.description := p7_a16;
472 ddp_act_resource_rec.attribute_category := p7_a17;
473 ddp_act_resource_rec.attribute1 := p7_a18;
474 ddp_act_resource_rec.attribute2 := p7_a19;
475 ddp_act_resource_rec.attribute3 := p7_a20;
476 ddp_act_resource_rec.attribute4 := p7_a21;
477 ddp_act_resource_rec.attribute5 := p7_a22;
478 ddp_act_resource_rec.attribute6 := p7_a23;
479 ddp_act_resource_rec.attribute7 := p7_a24;
480 ddp_act_resource_rec.attribute8 := p7_a25;
481 ddp_act_resource_rec.attribute9 := p7_a26;
482 ddp_act_resource_rec.attribute10 := p7_a27;
483 ddp_act_resource_rec.attribute11 := p7_a28;
484 ddp_act_resource_rec.attribute12 := p7_a29;
485 ddp_act_resource_rec.attribute13 := p7_a30;
486 ddp_act_resource_rec.attribute14 := p7_a31;
487 ddp_act_resource_rec.attribute15 := p7_a32;
488
489 -- here's the delegated call to the old PL/SQL routine
490 ams_actresource_pub.update_act_resource(p_api_version,
491 p_init_msg_list,
492 p_commit,
493 p_validation_level,
494 x_return_status,
495 x_msg_count,
496 x_msg_data,
497 ddp_act_resource_rec);
498
499 -- copy data back from the local OUT or IN-OUT args, if any
500
501
502
503
504
505
506
507 end;
508
509 procedure validate_act_resource(p_api_version NUMBER
510 , p_init_msg_list VARCHAR2
511 , p_validation_level NUMBER
512 , x_return_status OUT NOCOPY VARCHAR2
513 , x_msg_count OUT NOCOPY NUMBER
514 , x_msg_data OUT NOCOPY VARCHAR2
515 , p6_a0 NUMBER := 0-1962.0724
516 , p6_a1 DATE := fnd_api.g_miss_date
517 , p6_a2 NUMBER := 0-1962.0724
518 , p6_a3 DATE := fnd_api.g_miss_date
519 , p6_a4 NUMBER := 0-1962.0724
520 , p6_a5 NUMBER := 0-1962.0724
521 , p6_a6 NUMBER := 0-1962.0724
522 , p6_a7 NUMBER := 0-1962.0724
523 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
524 , p6_a9 NUMBER := 0-1962.0724
525 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
526 , p6_a11 NUMBER := 0-1962.0724
527 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
528 , p6_a13 DATE := fnd_api.g_miss_date
529 , p6_a14 DATE := fnd_api.g_miss_date
530 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
531 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
532 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
533 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
534 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
535 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
536 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
537 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
538 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
539 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
540 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
541 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
542 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
543 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
544 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
545 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
546 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
547 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
548 )
549 as
550 ddp_act_resource_rec ams_actresource_pub.act_resource_rec_type;
551 ddindx binary_integer; indx binary_integer;
552 begin
553
554 -- copy data to the local IN or IN-OUT args, if any
555
556
557
558
559
560
561 ddp_act_resource_rec.activity_resource_id := rosetta_g_miss_num_map(p6_a0);
562 ddp_act_resource_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
563 ddp_act_resource_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
564 ddp_act_resource_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
565 ddp_act_resource_rec.created_by := rosetta_g_miss_num_map(p6_a4);
566 ddp_act_resource_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
567 ddp_act_resource_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
568 ddp_act_resource_rec.act_resource_used_by_id := rosetta_g_miss_num_map(p6_a7);
569 ddp_act_resource_rec.arc_act_resource_used_by := p6_a8;
570 ddp_act_resource_rec.resource_id := rosetta_g_miss_num_map(p6_a9);
571 ddp_act_resource_rec.role_cd := p6_a10;
572 ddp_act_resource_rec.user_status_id := rosetta_g_miss_num_map(p6_a11);
573 ddp_act_resource_rec.system_status_code := p6_a12;
574 ddp_act_resource_rec.start_date_time := rosetta_g_miss_date_in_map(p6_a13);
575 ddp_act_resource_rec.end_date_time := rosetta_g_miss_date_in_map(p6_a14);
576 ddp_act_resource_rec.primary_flag := p6_a15;
577 ddp_act_resource_rec.description := p6_a16;
578 ddp_act_resource_rec.attribute_category := p6_a17;
579 ddp_act_resource_rec.attribute1 := p6_a18;
580 ddp_act_resource_rec.attribute2 := p6_a19;
581 ddp_act_resource_rec.attribute3 := p6_a20;
582 ddp_act_resource_rec.attribute4 := p6_a21;
583 ddp_act_resource_rec.attribute5 := p6_a22;
584 ddp_act_resource_rec.attribute6 := p6_a23;
585 ddp_act_resource_rec.attribute7 := p6_a24;
586 ddp_act_resource_rec.attribute8 := p6_a25;
587 ddp_act_resource_rec.attribute9 := p6_a26;
588 ddp_act_resource_rec.attribute10 := p6_a27;
589 ddp_act_resource_rec.attribute11 := p6_a28;
590 ddp_act_resource_rec.attribute12 := p6_a29;
591 ddp_act_resource_rec.attribute13 := p6_a30;
592 ddp_act_resource_rec.attribute14 := p6_a31;
593 ddp_act_resource_rec.attribute15 := p6_a32;
594
595 -- here's the delegated call to the old PL/SQL routine
596 ams_actresource_pub.validate_act_resource(p_api_version,
597 p_init_msg_list,
598 p_validation_level,
599 x_return_status,
600 x_msg_count,
601 x_msg_data,
602 ddp_act_resource_rec);
603
604 -- copy data back from the local OUT or IN-OUT args, if any
605
606
607
608
609
610
611 end;
612
613 end ams_actresource_pub_w;