[Home] [Help]
PACKAGE BODY: APPS.AMS_PS_STRATS_PVT_W
Source
1 package body ams_ps_strats_pvt_w as
2 /* $Header: amswstrb.pls 120.0 2005/05/31 18:31:10 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 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_ps_strats_pvt.ps_strats_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_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_1000
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_VARCHAR2_TABLE_1000
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).created_by := rosetta_g_miss_num_map(a0(indx));
45 t(ddindx).creation_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).last_update_date := rosetta_g_miss_date_in_map(a3(indx));
48 t(ddindx).last_update_login := rosetta_g_miss_num_map(a4(indx));
49 t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
50 t(ddindx).strategy_id := rosetta_g_miss_num_map(a6(indx));
51 t(ddindx).max_returned := rosetta_g_miss_num_map(a7(indx));
52 t(ddindx).strategy_type := a8(indx);
53 t(ddindx).content_type := a9(indx);
54 t(ddindx).strategy_ref_code := a10(indx);
55 t(ddindx).selector_class := a11(indx);
56 t(ddindx).strategy_name := a12(indx);
57 t(ddindx).strategy_description := 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_ps_strats_pvt.ps_strats_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_NUMBER_TABLE
75 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
76 , a9 OUT NOCOPY JTF_VARCHAR2_TABLE_100
77 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
78 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_1000
79 , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_100
80 , a13 OUT NOCOPY JTF_VARCHAR2_TABLE_1000
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_NUMBER_TABLE();
93 a8 := JTF_VARCHAR2_TABLE_100();
94 a9 := JTF_VARCHAR2_TABLE_100();
95 a10 := JTF_VARCHAR2_TABLE_100();
96 a11 := JTF_VARCHAR2_TABLE_1000();
97 a12 := JTF_VARCHAR2_TABLE_100();
98 a13 := JTF_VARCHAR2_TABLE_1000();
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_NUMBER_TABLE();
108 a8 := JTF_VARCHAR2_TABLE_100();
109 a9 := JTF_VARCHAR2_TABLE_100();
110 a10 := JTF_VARCHAR2_TABLE_100();
111 a11 := JTF_VARCHAR2_TABLE_1000();
112 a12 := JTF_VARCHAR2_TABLE_100();
113 a13 := JTF_VARCHAR2_TABLE_1000();
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).created_by);
133 a1(indx) := t(ddindx).creation_date;
134 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
135 a3(indx) := t(ddindx).last_update_date;
136 a4(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
137 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
138 a6(indx) := rosetta_g_miss_num_map(t(ddindx).strategy_id);
139 a7(indx) := rosetta_g_miss_num_map(t(ddindx).max_returned);
140 a8(indx) := t(ddindx).strategy_type;
141 a9(indx) := t(ddindx).content_type;
142 a10(indx) := t(ddindx).strategy_ref_code;
143 a11(indx) := t(ddindx).selector_class;
144 a12(indx) := t(ddindx).strategy_name;
145 a13(indx) := t(ddindx).strategy_description;
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_ps_strats(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_strategy_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 NUMBER := 0-1962.0724
172 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
173 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
174 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
175 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
176 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
177 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
178 )
179 as
180 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
181 ddindx binary_integer; indx binary_integer;
182 begin
183
184 -- copy data to the local IN or IN-OUT args, if any
185
186
187
188
189
190
191
192 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p7_a0);
193 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p7_a1);
194 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
195 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
196 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
197 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
198 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p7_a6);
199 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p7_a7);
200 ddp_ps_strats_rec.strategy_type := p7_a8;
201 ddp_ps_strats_rec.content_type := p7_a9;
202 ddp_ps_strats_rec.strategy_ref_code := p7_a10;
203 ddp_ps_strats_rec.selector_class := p7_a11;
204 ddp_ps_strats_rec.strategy_name := p7_a12;
205 ddp_ps_strats_rec.strategy_description := p7_a13;
206
207
208 -- here's the delegated call to the old PL/SQL routine
209 ams_ps_strats_pvt.create_ps_strats(p_api_version_number,
210 p_init_msg_list,
211 p_commit,
212 p_validation_level,
213 x_return_status,
214 x_msg_count,
215 x_msg_data,
216 ddp_ps_strats_rec,
217 x_strategy_id);
218
219 -- copy data back from the local OUT or IN-OUT args, if any
220
221
222
223
224
225
226
227
228 end;
229
230 procedure update_ps_strats(p_api_version_number NUMBER
231 , p_init_msg_list VARCHAR2
232 , p_commit VARCHAR2
233 , p_validation_level NUMBER
234 , x_return_status OUT NOCOPY VARCHAR2
235 , x_msg_count OUT NOCOPY NUMBER
236 , x_msg_data OUT NOCOPY VARCHAR2
237 , x_object_version_number OUT NOCOPY NUMBER
238 , p7_a0 NUMBER := 0-1962.0724
239 , p7_a1 DATE := fnd_api.g_miss_date
240 , p7_a2 NUMBER := 0-1962.0724
241 , p7_a3 DATE := fnd_api.g_miss_date
242 , p7_a4 NUMBER := 0-1962.0724
243 , p7_a5 NUMBER := 0-1962.0724
244 , p7_a6 NUMBER := 0-1962.0724
245 , p7_a7 NUMBER := 0-1962.0724
246 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
247 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
248 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
249 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
250 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
251 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
252 )
253 as
254 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
255 ddindx binary_integer; indx binary_integer;
256 begin
257
258 -- copy data to the local IN or IN-OUT args, if any
259
260
261
262
263
264
265
266 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p7_a0);
267 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p7_a1);
268 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
269 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
270 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
271 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
272 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p7_a6);
273 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p7_a7);
274 ddp_ps_strats_rec.strategy_type := p7_a8;
275 ddp_ps_strats_rec.content_type := p7_a9;
276 ddp_ps_strats_rec.strategy_ref_code := p7_a10;
277 ddp_ps_strats_rec.selector_class := p7_a11;
278 ddp_ps_strats_rec.strategy_name := p7_a12;
279 ddp_ps_strats_rec.strategy_description := p7_a13;
280
281
282 -- here's the delegated call to the old PL/SQL routine
283 ams_ps_strats_pvt.update_ps_strats(p_api_version_number,
284 p_init_msg_list,
285 p_commit,
286 p_validation_level,
287 x_return_status,
288 x_msg_count,
289 x_msg_data,
290 ddp_ps_strats_rec,
291 x_object_version_number);
292
293 -- copy data back from the local OUT or IN-OUT args, if any
294
295
296
297
298
299
300
301
302 end;
303
304 procedure update_ps_strats_seg(p_api_version_number NUMBER
305 , p_init_msg_list VARCHAR2
306 , p_commit VARCHAR2
307 , p_validation_level NUMBER
308 , x_return_status OUT NOCOPY VARCHAR2
309 , x_msg_count OUT NOCOPY NUMBER
310 , x_msg_data OUT NOCOPY VARCHAR2
311 , x_object_version_number OUT NOCOPY NUMBER
312 , p_strat_type VARCHAR2
313 , p7_a0 NUMBER := 0-1962.0724
314 , p7_a1 DATE := fnd_api.g_miss_date
315 , p7_a2 NUMBER := 0-1962.0724
316 , p7_a3 DATE := fnd_api.g_miss_date
317 , p7_a4 NUMBER := 0-1962.0724
318 , p7_a5 NUMBER := 0-1962.0724
319 , p7_a6 NUMBER := 0-1962.0724
320 , p7_a7 NUMBER := 0-1962.0724
321 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
322 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
323 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
324 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
325 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
326 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
327 )
328 as
329 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
330 ddindx binary_integer; indx binary_integer;
331 begin
332
333 -- copy data to the local IN or IN-OUT args, if any
334
335
336
337
338
339
340
341 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p7_a0);
342 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p7_a1);
343 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
344 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
345 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
346 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
347 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p7_a6);
348 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p7_a7);
349 ddp_ps_strats_rec.strategy_type := p7_a8;
350 ddp_ps_strats_rec.content_type := p7_a9;
351 ddp_ps_strats_rec.strategy_ref_code := p7_a10;
352 ddp_ps_strats_rec.selector_class := p7_a11;
353 ddp_ps_strats_rec.strategy_name := p7_a12;
354 ddp_ps_strats_rec.strategy_description := p7_a13;
355
356
357
358 -- here's the delegated call to the old PL/SQL routine
359 ams_ps_strats_pvt.update_ps_strats_seg(p_api_version_number,
360 p_init_msg_list,
361 p_commit,
362 p_validation_level,
363 x_return_status,
364 x_msg_count,
365 x_msg_data,
366 ddp_ps_strats_rec,
367 x_object_version_number,
368 p_strat_type);
369
370 -- copy data back from the local OUT or IN-OUT args, if any
371
372
373
374
375
376
377
378
379
380 end;
381
382 procedure validate_ps_strats(p_api_version_number NUMBER
383 , p_init_msg_list VARCHAR2
384 , p_validation_level NUMBER
385 , x_return_status OUT NOCOPY VARCHAR2
386 , x_msg_count OUT NOCOPY NUMBER
387 , x_msg_data OUT NOCOPY VARCHAR2
388 , p3_a0 NUMBER := 0-1962.0724
389 , p3_a1 DATE := fnd_api.g_miss_date
390 , p3_a2 NUMBER := 0-1962.0724
391 , p3_a3 DATE := fnd_api.g_miss_date
392 , p3_a4 NUMBER := 0-1962.0724
393 , p3_a5 NUMBER := 0-1962.0724
394 , p3_a6 NUMBER := 0-1962.0724
395 , p3_a7 NUMBER := 0-1962.0724
396 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
397 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
398 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
399 , p3_a11 VARCHAR2 := fnd_api.g_miss_char
400 , p3_a12 VARCHAR2 := fnd_api.g_miss_char
401 , p3_a13 VARCHAR2 := fnd_api.g_miss_char
402 )
403 as
404 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
405 ddindx binary_integer; indx binary_integer;
406 begin
407
408 -- copy data to the local IN or IN-OUT args, if any
409
410
411
412 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p3_a0);
413 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p3_a1);
414 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p3_a2);
415 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a3);
416 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p3_a4);
417 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p3_a5);
418 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p3_a6);
419 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p3_a7);
420 ddp_ps_strats_rec.strategy_type := p3_a8;
421 ddp_ps_strats_rec.content_type := p3_a9;
422 ddp_ps_strats_rec.strategy_ref_code := p3_a10;
423 ddp_ps_strats_rec.selector_class := p3_a11;
424 ddp_ps_strats_rec.strategy_name := p3_a12;
425 ddp_ps_strats_rec.strategy_description := p3_a13;
426
427
428
429
430 -- here's the delegated call to the old PL/SQL routine
431 ams_ps_strats_pvt.validate_ps_strats(p_api_version_number,
432 p_init_msg_list,
433 p_validation_level,
434 ddp_ps_strats_rec,
435 x_return_status,
436 x_msg_count,
437 x_msg_data);
438
439 -- copy data back from the local OUT or IN-OUT args, if any
440
441
442
443
444
445
446 end;
447
448 procedure check_ps_strats_items(p_validation_mode VARCHAR2
449 , x_return_status OUT NOCOPY VARCHAR2
450 , p0_a0 NUMBER := 0-1962.0724
451 , p0_a1 DATE := fnd_api.g_miss_date
452 , p0_a2 NUMBER := 0-1962.0724
453 , p0_a3 DATE := fnd_api.g_miss_date
454 , p0_a4 NUMBER := 0-1962.0724
455 , p0_a5 NUMBER := 0-1962.0724
456 , p0_a6 NUMBER := 0-1962.0724
457 , p0_a7 NUMBER := 0-1962.0724
458 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
459 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
460 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
461 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
462 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
463 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
464 )
465 as
466 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
467 ddindx binary_integer; indx binary_integer;
468 begin
469
470 -- copy data to the local IN or IN-OUT args, if any
471 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p0_a0);
472 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p0_a1);
473 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
474 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
475 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p0_a4);
476 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
477 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p0_a6);
478 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p0_a7);
479 ddp_ps_strats_rec.strategy_type := p0_a8;
480 ddp_ps_strats_rec.content_type := p0_a9;
481 ddp_ps_strats_rec.strategy_ref_code := p0_a10;
482 ddp_ps_strats_rec.selector_class := p0_a11;
483 ddp_ps_strats_rec.strategy_name := p0_a12;
484 ddp_ps_strats_rec.strategy_description := p0_a13;
485
486
487
488 -- here's the delegated call to the old PL/SQL routine
489 ams_ps_strats_pvt.check_ps_strats_items(ddp_ps_strats_rec,
490 p_validation_mode,
491 x_return_status);
492
493 -- copy data back from the local OUT or IN-OUT args, if any
494
495
496 end;
497
498 procedure validate_ps_strats_rec(p_api_version_number NUMBER
499 , p_init_msg_list VARCHAR2
500 , x_return_status OUT NOCOPY VARCHAR2
501 , x_msg_count OUT NOCOPY NUMBER
502 , x_msg_data OUT NOCOPY VARCHAR2
503 , p5_a0 NUMBER := 0-1962.0724
504 , p5_a1 DATE := fnd_api.g_miss_date
505 , p5_a2 NUMBER := 0-1962.0724
506 , p5_a3 DATE := fnd_api.g_miss_date
507 , p5_a4 NUMBER := 0-1962.0724
508 , p5_a5 NUMBER := 0-1962.0724
509 , p5_a6 NUMBER := 0-1962.0724
510 , p5_a7 NUMBER := 0-1962.0724
511 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
512 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
513 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
514 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
515 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
516 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
517 )
518 as
519 ddp_ps_strats_rec ams_ps_strats_pvt.ps_strats_rec_type;
520 ddindx binary_integer; indx binary_integer;
521 begin
522
523 -- copy data to the local IN or IN-OUT args, if any
524
525
526
527
528
529 ddp_ps_strats_rec.created_by := rosetta_g_miss_num_map(p5_a0);
530 ddp_ps_strats_rec.creation_date := rosetta_g_miss_date_in_map(p5_a1);
531 ddp_ps_strats_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
532 ddp_ps_strats_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
533 ddp_ps_strats_rec.last_update_login := rosetta_g_miss_num_map(p5_a4);
534 ddp_ps_strats_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
535 ddp_ps_strats_rec.strategy_id := rosetta_g_miss_num_map(p5_a6);
536 ddp_ps_strats_rec.max_returned := rosetta_g_miss_num_map(p5_a7);
537 ddp_ps_strats_rec.strategy_type := p5_a8;
538 ddp_ps_strats_rec.content_type := p5_a9;
539 ddp_ps_strats_rec.strategy_ref_code := p5_a10;
540 ddp_ps_strats_rec.selector_class := p5_a11;
541 ddp_ps_strats_rec.strategy_name := p5_a12;
542 ddp_ps_strats_rec.strategy_description := p5_a13;
543
544 -- here's the delegated call to the old PL/SQL routine
545 ams_ps_strats_pvt.validate_ps_strats_rec(p_api_version_number,
546 p_init_msg_list,
547 x_return_status,
548 x_msg_count,
549 x_msg_data,
550 ddp_ps_strats_rec);
551
552 -- copy data back from the local OUT or IN-OUT args, if any
553
554
555
556
557
558 end;
559
560 end ams_ps_strats_pvt_w;