[Home] [Help]
PACKAGE BODY: APPS.AMS_DM_TARGET_SOURCES_PVT_W
Source
1 package body ams_dm_target_sources_pvt_w as
2 /* $Header: amswdtsb.pls 115.1 2004/06/16 12:27:38 rosharma 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 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_p2(t out nocopy ams_dm_target_sources_pvt.target_source_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_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).target_source_id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
41 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
43 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
44 t(ddindx).last_update_login := rosetta_g_miss_num_map(a5(indx));
45 t(ddindx).object_version_number := rosetta_g_miss_num_map(a6(indx));
46 t(ddindx).target_id := rosetta_g_miss_num_map(a7(indx));
47 t(ddindx).data_source_id := rosetta_g_miss_num_map(a8(indx));
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p2;
57 procedure rosetta_table_copy_out_p2(t ams_dm_target_sources_pvt.target_source_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_DATE_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_DATE_TABLE
61 , a4 out nocopy JTF_NUMBER_TABLE
62 , a5 out nocopy JTF_NUMBER_TABLE
63 , a6 out nocopy JTF_NUMBER_TABLE
64 , a7 out nocopy JTF_NUMBER_TABLE
65 , a8 out nocopy JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_DATE_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_DATE_TABLE();
74 a4 := JTF_NUMBER_TABLE();
75 a5 := JTF_NUMBER_TABLE();
76 a6 := JTF_NUMBER_TABLE();
77 a7 := JTF_NUMBER_TABLE();
78 a8 := JTF_NUMBER_TABLE();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_DATE_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_DATE_TABLE();
84 a4 := JTF_NUMBER_TABLE();
85 a5 := JTF_NUMBER_TABLE();
86 a6 := JTF_NUMBER_TABLE();
87 a7 := JTF_NUMBER_TABLE();
88 a8 := JTF_NUMBER_TABLE();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).target_source_id);
103 a1(indx) := t(ddindx).last_update_date;
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
105 a3(indx) := t(ddindx).creation_date;
106 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
107 a5(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
108 a6(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
109 a7(indx) := rosetta_g_miss_num_map(t(ddindx).target_id);
110 a8(indx) := rosetta_g_miss_num_map(t(ddindx).data_source_id);
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p2;
120
121 procedure create_dm_target_sources(p_api_version_number NUMBER
122 , p_init_msg_list VARCHAR2
123 , p_commit VARCHAR2
124 , p_validation_level NUMBER
125 , x_return_status out nocopy VARCHAR2
126 , x_msg_count out nocopy NUMBER
127 , x_msg_data out nocopy VARCHAR2
128 , x_target_source_id out nocopy NUMBER
129 , p7_a0 NUMBER := 0-1962.0724
130 , p7_a1 DATE := fnd_api.g_miss_date
131 , p7_a2 NUMBER := 0-1962.0724
132 , p7_a3 DATE := fnd_api.g_miss_date
133 , p7_a4 NUMBER := 0-1962.0724
134 , p7_a5 NUMBER := 0-1962.0724
135 , p7_a6 NUMBER := 0-1962.0724
136 , p7_a7 NUMBER := 0-1962.0724
137 , p7_a8 NUMBER := 0-1962.0724
138 )
139
140 as
141 ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151
152
153 ddp_target_source_rec_type_rec.target_source_id := rosetta_g_miss_num_map(p7_a0);
154 ddp_target_source_rec_type_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
155 ddp_target_source_rec_type_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
156 ddp_target_source_rec_type_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
157 ddp_target_source_rec_type_rec.created_by := rosetta_g_miss_num_map(p7_a4);
158 ddp_target_source_rec_type_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
159 ddp_target_source_rec_type_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
160 ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p7_a7);
161 ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p7_a8);
162
163
164 -- here's the delegated call to the old PL/SQL routine
165 ams_dm_target_sources_pvt.create_dm_target_sources(p_api_version_number,
166 p_init_msg_list,
167 p_commit,
168 p_validation_level,
169 x_return_status,
170 x_msg_count,
171 x_msg_data,
172 ddp_target_source_rec_type_rec,
173 x_target_source_id);
174
175 -- copy data back from the local variables to OUT or IN-OUT args, if any
176
177
178
179
180
181
182
183
184 end;
185
186 procedure update_dm_target_sources(p_api_version_number NUMBER
187 , p_init_msg_list VARCHAR2
188 , p_commit VARCHAR2
189 , p_validation_level NUMBER
190 , x_return_status out nocopy VARCHAR2
191 , x_msg_count out nocopy NUMBER
192 , x_msg_data out nocopy VARCHAR2
193 , p7_a0 NUMBER := 0-1962.0724
194 , p7_a1 DATE := fnd_api.g_miss_date
195 , p7_a2 NUMBER := 0-1962.0724
196 , p7_a3 DATE := fnd_api.g_miss_date
197 , p7_a4 NUMBER := 0-1962.0724
198 , p7_a5 NUMBER := 0-1962.0724
199 , p7_a6 NUMBER := 0-1962.0724
200 , p7_a7 NUMBER := 0-1962.0724
201 , p7_a8 NUMBER := 0-1962.0724
202 )
203
204 as
205 ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
206 ddindx binary_integer; indx binary_integer;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213
214
215
216
217 ddp_target_source_rec_type_rec.target_source_id := rosetta_g_miss_num_map(p7_a0);
218 ddp_target_source_rec_type_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
219 ddp_target_source_rec_type_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
220 ddp_target_source_rec_type_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
221 ddp_target_source_rec_type_rec.created_by := rosetta_g_miss_num_map(p7_a4);
222 ddp_target_source_rec_type_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
223 ddp_target_source_rec_type_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
224 ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p7_a7);
225 ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p7_a8);
226
227 -- here's the delegated call to the old PL/SQL routine
228 ams_dm_target_sources_pvt.update_dm_target_sources(p_api_version_number,
229 p_init_msg_list,
230 p_commit,
231 p_validation_level,
232 x_return_status,
233 x_msg_count,
234 x_msg_data,
235 ddp_target_source_rec_type_rec);
236
237 -- copy data back from the local variables to OUT or IN-OUT args, if any
238
239
240
241
242
243
244
245 end;
246
247 procedure validate_dm_target_sources(p_api_version_number NUMBER
248 , p_init_msg_list VARCHAR2
249 , p_validation_level NUMBER
250 , p_validation_mode VARCHAR2
251 , x_return_status out nocopy VARCHAR2
252 , x_msg_count out nocopy NUMBER
253 , x_msg_data out nocopy VARCHAR2
254 , p3_a0 NUMBER := 0-1962.0724
255 , p3_a1 DATE := fnd_api.g_miss_date
256 , p3_a2 NUMBER := 0-1962.0724
257 , p3_a3 DATE := fnd_api.g_miss_date
258 , p3_a4 NUMBER := 0-1962.0724
259 , p3_a5 NUMBER := 0-1962.0724
260 , p3_a6 NUMBER := 0-1962.0724
261 , p3_a7 NUMBER := 0-1962.0724
262 , p3_a8 NUMBER := 0-1962.0724
263 )
264
265 as
266 ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_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 ddp_target_source_rec_type_rec.target_source_id := rosetta_g_miss_num_map(p3_a0);
275 ddp_target_source_rec_type_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a1);
276 ddp_target_source_rec_type_rec.last_updated_by := rosetta_g_miss_num_map(p3_a2);
277 ddp_target_source_rec_type_rec.creation_date := rosetta_g_miss_date_in_map(p3_a3);
278 ddp_target_source_rec_type_rec.created_by := rosetta_g_miss_num_map(p3_a4);
279 ddp_target_source_rec_type_rec.last_update_login := rosetta_g_miss_num_map(p3_a5);
280 ddp_target_source_rec_type_rec.object_version_number := rosetta_g_miss_num_map(p3_a6);
281 ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p3_a7);
282 ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p3_a8);
283
284
285
286
287
288 -- here's the delegated call to the old PL/SQL routine
289 ams_dm_target_sources_pvt.validate_dm_target_sources(p_api_version_number,
290 p_init_msg_list,
291 p_validation_level,
292 ddp_target_source_rec_type_rec,
293 p_validation_mode,
294 x_return_status,
295 x_msg_count,
296 x_msg_data);
297
298 -- copy data back from the local variables to OUT or IN-OUT args, if any
299
300
301
302
303
304
305
306 end;
307
308 procedure check_target_source_items(p_validation_mode VARCHAR2
309 , x_return_status out nocopy VARCHAR2
310 , p0_a0 NUMBER := 0-1962.0724
311 , p0_a1 DATE := fnd_api.g_miss_date
312 , p0_a2 NUMBER := 0-1962.0724
313 , p0_a3 DATE := fnd_api.g_miss_date
314 , p0_a4 NUMBER := 0-1962.0724
315 , p0_a5 NUMBER := 0-1962.0724
316 , p0_a6 NUMBER := 0-1962.0724
317 , p0_a7 NUMBER := 0-1962.0724
318 , p0_a8 NUMBER := 0-1962.0724
319 )
320
321 as
322 ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
323 ddindx binary_integer; indx binary_integer;
324 begin
325
326 -- copy data to the local IN or IN-OUT args, if any
327 ddp_target_source_rec_type_rec.target_source_id := rosetta_g_miss_num_map(p0_a0);
328 ddp_target_source_rec_type_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
329 ddp_target_source_rec_type_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
330 ddp_target_source_rec_type_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
331 ddp_target_source_rec_type_rec.created_by := rosetta_g_miss_num_map(p0_a4);
332 ddp_target_source_rec_type_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
333 ddp_target_source_rec_type_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
334 ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p0_a7);
335 ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p0_a8);
336
337
338
339 -- here's the delegated call to the old PL/SQL routine
340 ams_dm_target_sources_pvt.check_target_source_items(ddp_target_source_rec_type_rec,
341 p_validation_mode,
342 x_return_status);
343
344 -- copy data back from the local variables to OUT or IN-OUT args, if any
345
346
347 end;
348
349 procedure validate_target_source_rec(p_api_version_number NUMBER
350 , p_init_msg_list VARCHAR2
351 , p_validation_mode VARCHAR2
352 , x_return_status out nocopy VARCHAR2
353 , x_msg_count out nocopy NUMBER
354 , x_msg_data out nocopy VARCHAR2
355 , p5_a0 NUMBER := 0-1962.0724
356 , p5_a1 DATE := fnd_api.g_miss_date
357 , p5_a2 NUMBER := 0-1962.0724
358 , p5_a3 DATE := fnd_api.g_miss_date
359 , p5_a4 NUMBER := 0-1962.0724
360 , p5_a5 NUMBER := 0-1962.0724
361 , p5_a6 NUMBER := 0-1962.0724
362 , p5_a7 NUMBER := 0-1962.0724
363 , p5_a8 NUMBER := 0-1962.0724
364 )
365
366 as
367 ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
368 ddindx binary_integer; indx binary_integer;
369 begin
370
371 -- copy data to the local IN or IN-OUT args, if any
372
373
374
375
376
377 ddp_target_source_rec_type_rec.target_source_id := rosetta_g_miss_num_map(p5_a0);
378 ddp_target_source_rec_type_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
379 ddp_target_source_rec_type_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
380 ddp_target_source_rec_type_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
381 ddp_target_source_rec_type_rec.created_by := rosetta_g_miss_num_map(p5_a4);
382 ddp_target_source_rec_type_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
383 ddp_target_source_rec_type_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
384 ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p5_a7);
385 ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p5_a8);
386
387 -- here's the delegated call to the old PL/SQL routine
388 ams_dm_target_sources_pvt.validate_target_source_rec(p_api_version_number,
389 p_init_msg_list,
390 p_validation_mode,
391 x_return_status,
392 x_msg_count,
393 x_msg_data,
394 ddp_target_source_rec_type_rec);
395
396 -- copy data back from the local variables to OUT or IN-OUT args, if any
397
398
399
400
401
402 end;
403
404 end ams_dm_target_sources_pvt_w;