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