[Home] [Help]
PACKAGE BODY: APPS.AMS_FORMULA_PVT_W
Source
1 package body ams_formula_pvt_w as
2 /* $Header: amswfmlb.pls 115.4 2002/11/22 00:44:57 yzhao 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 create_formula(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status out nocopy VARCHAR2
27 , x_msg_count out nocopy NUMBER
28 , x_msg_data out nocopy VARCHAR2
29 , x_formula_id out nocopy NUMBER
30 , p7_a0 NUMBER := 0-1962.0724
31 , p7_a1 NUMBER := 0-1962.0724
32 , p7_a2 NUMBER := 0-1962.0724
33 , p7_a3 NUMBER := 0-1962.0724
34 , p7_a4 DATE := fnd_api.g_miss_date
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 DATE := fnd_api.g_miss_date
37 , p7_a7 NUMBER := 0-1962.0724
38 , p7_a8 NUMBER := 0-1962.0724
39 , p7_a9 NUMBER := 0-1962.0724
40 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
41 )
42
43 as
44 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
45 ddindx binary_integer; indx binary_integer;
46 begin
47
48 -- copy data to the local IN or IN-OUT args, if any
49
50
51
52
53
54
55
56 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p7_a0);
57 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p7_a1);
58 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p7_a2);
59 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p7_a3);
60 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a4);
61 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p7_a5);
62 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
63 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p7_a7);
64 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p7_a8);
65 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p7_a9);
66 ddp_formula_rec.formula_type := p7_a10;
67
68
69 -- here's the delegated call to the old PL/SQL routine
70 ams_formula_pvt.create_formula(p_api_version,
71 p_init_msg_list,
72 p_commit,
73 p_validation_level,
74 x_return_status,
75 x_msg_count,
76 x_msg_data,
77 ddp_formula_rec,
78 x_formula_id);
79
80 -- copy data back from the local variables to OUT or IN-OUT args, if any
81
82
83
84
85
86
87
88
89 end;
90
91 procedure update_formula(p_api_version NUMBER
92 , p_init_msg_list VARCHAR2
93 , p_commit VARCHAR2
94 , p_validation_level NUMBER
95 , x_return_status out nocopy VARCHAR2
96 , x_msg_count out nocopy NUMBER
97 , x_msg_data out nocopy VARCHAR2
98 , p7_a0 NUMBER := 0-1962.0724
99 , p7_a1 NUMBER := 0-1962.0724
100 , p7_a2 NUMBER := 0-1962.0724
101 , p7_a3 NUMBER := 0-1962.0724
102 , p7_a4 DATE := fnd_api.g_miss_date
103 , p7_a5 NUMBER := 0-1962.0724
104 , p7_a6 DATE := fnd_api.g_miss_date
105 , p7_a7 NUMBER := 0-1962.0724
106 , p7_a8 NUMBER := 0-1962.0724
107 , p7_a9 NUMBER := 0-1962.0724
108 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
109 )
110
111 as
112 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122
123
124 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p7_a0);
125 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p7_a1);
126 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p7_a2);
127 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p7_a3);
128 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a4);
129 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p7_a5);
130 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p7_a6);
131 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p7_a7);
132 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p7_a8);
133 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p7_a9);
134 ddp_formula_rec.formula_type := p7_a10;
135
136 -- here's the delegated call to the old PL/SQL routine
137 ams_formula_pvt.update_formula(p_api_version,
138 p_init_msg_list,
139 p_commit,
140 p_validation_level,
141 x_return_status,
142 x_msg_count,
143 x_msg_data,
144 ddp_formula_rec);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150
151
152
153
154 end;
155
156 procedure validate_formula(p_api_version NUMBER
157 , p_init_msg_list VARCHAR2
158 , p_validation_level NUMBER
159 , x_return_status out nocopy VARCHAR2
160 , x_msg_count out nocopy NUMBER
161 , x_msg_data out nocopy VARCHAR2
162 , p6_a0 NUMBER := 0-1962.0724
163 , p6_a1 NUMBER := 0-1962.0724
164 , p6_a2 NUMBER := 0-1962.0724
165 , p6_a3 NUMBER := 0-1962.0724
166 , p6_a4 DATE := fnd_api.g_miss_date
167 , p6_a5 NUMBER := 0-1962.0724
168 , p6_a6 DATE := fnd_api.g_miss_date
169 , p6_a7 NUMBER := 0-1962.0724
170 , p6_a8 NUMBER := 0-1962.0724
171 , p6_a9 NUMBER := 0-1962.0724
172 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
173 )
174
175 as
176 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
177 ddindx binary_integer; indx binary_integer;
178 begin
179
180 -- copy data to the local IN or IN-OUT args, if any
181
182
183
184
185
186
187 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p6_a0);
188 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p6_a1);
189 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p6_a2);
190 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p6_a3);
191 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a4);
192 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p6_a5);
193 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p6_a6);
194 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p6_a7);
195 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p6_a8);
196 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p6_a9);
197 ddp_formula_rec.formula_type := p6_a10;
198
199 -- here's the delegated call to the old PL/SQL routine
200 ams_formula_pvt.validate_formula(p_api_version,
201 p_init_msg_list,
202 p_validation_level,
203 x_return_status,
204 x_msg_count,
205 x_msg_data,
206 ddp_formula_rec);
207
208 -- copy data back from the local variables to OUT or IN-OUT args, if any
209
210
211
212
213
214
215 end;
216
217 procedure validate_formula_items(p_validation_mode VARCHAR2
218 , x_return_status out nocopy VARCHAR2
219 , p0_a0 NUMBER := 0-1962.0724
220 , p0_a1 NUMBER := 0-1962.0724
221 , p0_a2 NUMBER := 0-1962.0724
222 , p0_a3 NUMBER := 0-1962.0724
223 , p0_a4 DATE := fnd_api.g_miss_date
224 , p0_a5 NUMBER := 0-1962.0724
225 , p0_a6 DATE := fnd_api.g_miss_date
226 , p0_a7 NUMBER := 0-1962.0724
227 , p0_a8 NUMBER := 0-1962.0724
228 , p0_a9 NUMBER := 0-1962.0724
229 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
230 )
231
232 as
233 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
234 ddindx binary_integer; indx binary_integer;
235 begin
236
237 -- copy data to the local IN or IN-OUT args, if any
238 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p0_a0);
239 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p0_a1);
240 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p0_a2);
241 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p0_a3);
242 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a4);
243 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p0_a5);
244 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
245 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p0_a7);
246 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p0_a8);
247 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p0_a9);
248 ddp_formula_rec.formula_type := p0_a10;
249
250
251
252 -- here's the delegated call to the old PL/SQL routine
253 ams_formula_pvt.validate_formula_items(ddp_formula_rec,
254 p_validation_mode,
255 x_return_status);
256
257 -- copy data back from the local variables to OUT or IN-OUT args, if any
258
259
260 end;
261
262 procedure validate_formula_rec(x_return_status out nocopy VARCHAR2
263 , p0_a0 NUMBER := 0-1962.0724
264 , p0_a1 NUMBER := 0-1962.0724
265 , p0_a2 NUMBER := 0-1962.0724
266 , p0_a3 NUMBER := 0-1962.0724
267 , p0_a4 DATE := fnd_api.g_miss_date
268 , p0_a5 NUMBER := 0-1962.0724
269 , p0_a6 DATE := fnd_api.g_miss_date
270 , p0_a7 NUMBER := 0-1962.0724
271 , p0_a8 NUMBER := 0-1962.0724
272 , p0_a9 NUMBER := 0-1962.0724
273 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
274 , p1_a0 NUMBER := 0-1962.0724
275 , p1_a1 NUMBER := 0-1962.0724
276 , p1_a2 NUMBER := 0-1962.0724
277 , p1_a3 NUMBER := 0-1962.0724
278 , p1_a4 DATE := fnd_api.g_miss_date
279 , p1_a5 NUMBER := 0-1962.0724
280 , p1_a6 DATE := fnd_api.g_miss_date
281 , p1_a7 NUMBER := 0-1962.0724
282 , p1_a8 NUMBER := 0-1962.0724
283 , p1_a9 NUMBER := 0-1962.0724
284 , p1_a10 VARCHAR2 := fnd_api.g_miss_char
285 )
286
287 as
288 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
289 ddp_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
290 ddindx binary_integer; indx binary_integer;
291 begin
292
293 -- copy data to the local IN or IN-OUT args, if any
294 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p0_a0);
295 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p0_a1);
296 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p0_a2);
297 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p0_a3);
298 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a4);
299 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p0_a5);
300 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
301 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p0_a7);
302 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p0_a8);
303 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p0_a9);
304 ddp_formula_rec.formula_type := p0_a10;
305
306 ddp_complete_formula_rec.formula_id := rosetta_g_miss_num_map(p1_a0);
307 ddp_complete_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p1_a1);
308 ddp_complete_formula_rec.level_depth := rosetta_g_miss_num_map(p1_a2);
309 ddp_complete_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p1_a3);
310 ddp_complete_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a4);
311 ddp_complete_formula_rec.last_updated_by := rosetta_g_miss_num_map(p1_a5);
312 ddp_complete_formula_rec.creation_date := rosetta_g_miss_date_in_map(p1_a6);
313 ddp_complete_formula_rec.created_by := rosetta_g_miss_num_map(p1_a7);
314 ddp_complete_formula_rec.last_update_login := rosetta_g_miss_num_map(p1_a8);
315 ddp_complete_formula_rec.object_version_number := rosetta_g_miss_num_map(p1_a9);
316 ddp_complete_formula_rec.formula_type := p1_a10;
317
318
319 -- here's the delegated call to the old PL/SQL routine
320 ams_formula_pvt.validate_formula_rec(ddp_formula_rec,
321 ddp_complete_formula_rec,
322 x_return_status);
323
324 -- copy data back from the local variables to OUT or IN-OUT args, if any
325
326
327 end;
328
329 procedure complete_formula_rec(p1_a0 out nocopy NUMBER
330 , p1_a1 out nocopy NUMBER
331 , p1_a2 out nocopy NUMBER
332 , p1_a3 out nocopy NUMBER
333 , p1_a4 out nocopy DATE
334 , p1_a5 out nocopy NUMBER
335 , p1_a6 out nocopy DATE
336 , p1_a7 out nocopy NUMBER
337 , p1_a8 out nocopy NUMBER
338 , p1_a9 out nocopy NUMBER
339 , p1_a10 out nocopy VARCHAR2
340 , p0_a0 NUMBER := 0-1962.0724
341 , p0_a1 NUMBER := 0-1962.0724
342 , p0_a2 NUMBER := 0-1962.0724
343 , p0_a3 NUMBER := 0-1962.0724
344 , p0_a4 DATE := fnd_api.g_miss_date
345 , p0_a5 NUMBER := 0-1962.0724
346 , p0_a6 DATE := fnd_api.g_miss_date
347 , p0_a7 NUMBER := 0-1962.0724
348 , p0_a8 NUMBER := 0-1962.0724
349 , p0_a9 NUMBER := 0-1962.0724
350 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
351 )
352
353 as
354 ddp_formula_rec ams_formula_pvt.ams_formula_rec_type;
355 ddx_complete_formula_rec ams_formula_pvt.ams_formula_rec_type;
356 ddindx binary_integer; indx binary_integer;
357 begin
358
359 -- copy data to the local IN or IN-OUT args, if any
360 ddp_formula_rec.formula_id := rosetta_g_miss_num_map(p0_a0);
361 ddp_formula_rec.activity_metric_id := rosetta_g_miss_num_map(p0_a1);
362 ddp_formula_rec.level_depth := rosetta_g_miss_num_map(p0_a2);
363 ddp_formula_rec.parent_formula_id := rosetta_g_miss_num_map(p0_a3);
364 ddp_formula_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a4);
365 ddp_formula_rec.last_updated_by := rosetta_g_miss_num_map(p0_a5);
366 ddp_formula_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
367 ddp_formula_rec.created_by := rosetta_g_miss_num_map(p0_a7);
368 ddp_formula_rec.last_update_login := rosetta_g_miss_num_map(p0_a8);
369 ddp_formula_rec.object_version_number := rosetta_g_miss_num_map(p0_a9);
370 ddp_formula_rec.formula_type := p0_a10;
371
372
373 -- here's the delegated call to the old PL/SQL routine
374 ams_formula_pvt.complete_formula_rec(ddp_formula_rec,
375 ddx_complete_formula_rec);
376
377 -- copy data back from the local variables to OUT or IN-OUT args, if any
378
379 p1_a0 := rosetta_g_miss_num_map(ddx_complete_formula_rec.formula_id);
380 p1_a1 := rosetta_g_miss_num_map(ddx_complete_formula_rec.activity_metric_id);
381 p1_a2 := rosetta_g_miss_num_map(ddx_complete_formula_rec.level_depth);
382 p1_a3 := rosetta_g_miss_num_map(ddx_complete_formula_rec.parent_formula_id);
383 p1_a4 := ddx_complete_formula_rec.last_update_date;
384 p1_a5 := rosetta_g_miss_num_map(ddx_complete_formula_rec.last_updated_by);
385 p1_a6 := ddx_complete_formula_rec.creation_date;
386 p1_a7 := rosetta_g_miss_num_map(ddx_complete_formula_rec.created_by);
387 p1_a8 := rosetta_g_miss_num_map(ddx_complete_formula_rec.last_update_login);
388 p1_a9 := rosetta_g_miss_num_map(ddx_complete_formula_rec.object_version_number);
389 p1_a10 := ddx_complete_formula_rec.formula_type;
390 end;
391
392 procedure create_formula_entry(p_api_version NUMBER
393 , p_init_msg_list VARCHAR2
394 , p_commit VARCHAR2
395 , p_validation_level NUMBER
396 , x_return_status out nocopy VARCHAR2
397 , x_msg_count out nocopy NUMBER
398 , x_msg_data out nocopy VARCHAR2
399 , x_formula_entry_id out nocopy NUMBER
400 , p7_a0 NUMBER := 0-1962.0724
401 , p7_a1 NUMBER := 0-1962.0724
402 , p7_a2 NUMBER := 0-1962.0724
403 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
404 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
405 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
406 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
407 , p7_a7 DATE := fnd_api.g_miss_date
408 , p7_a8 NUMBER := 0-1962.0724
409 , p7_a9 DATE := fnd_api.g_miss_date
410 , p7_a10 NUMBER := 0-1962.0724
411 , p7_a11 NUMBER := 0-1962.0724
412 , p7_a12 NUMBER := 0-1962.0724
413 )
414
415 as
416 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
417 ddindx binary_integer; indx binary_integer;
418 begin
419
420 -- copy data to the local IN or IN-OUT args, if any
421
422
423
424
425
426
427
428 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p7_a0);
429 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p7_a1);
430 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p7_a2);
431 ddp_formula_entry_rec.formula_entry_type := p7_a3;
432 ddp_formula_entry_rec.formula_entry_value := p7_a4;
433 ddp_formula_entry_rec.metric_column_value := p7_a5;
434 ddp_formula_entry_rec.formula_entry_operator := p7_a6;
435 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a7);
436 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p7_a8);
437 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p7_a9);
438 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p7_a10);
439 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p7_a11);
440 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p7_a12);
441
442
443 -- here's the delegated call to the old PL/SQL routine
444 ams_formula_pvt.create_formula_entry(p_api_version,
445 p_init_msg_list,
446 p_commit,
447 p_validation_level,
448 x_return_status,
449 x_msg_count,
450 x_msg_data,
451 ddp_formula_entry_rec,
452 x_formula_entry_id);
453
454 -- copy data back from the local variables to OUT or IN-OUT args, if any
455
456
457
458
459
460
461
462
463 end;
464
465 procedure update_formula_entry(p_api_version NUMBER
466 , p_init_msg_list VARCHAR2
467 , p_commit VARCHAR2
468 , p_validation_level NUMBER
469 , x_return_status out nocopy VARCHAR2
470 , x_msg_count out nocopy NUMBER
471 , x_msg_data out nocopy VARCHAR2
472 , p7_a0 NUMBER := 0-1962.0724
473 , p7_a1 NUMBER := 0-1962.0724
474 , p7_a2 NUMBER := 0-1962.0724
475 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
476 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
477 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
478 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
479 , p7_a7 DATE := fnd_api.g_miss_date
480 , p7_a8 NUMBER := 0-1962.0724
481 , p7_a9 DATE := fnd_api.g_miss_date
482 , p7_a10 NUMBER := 0-1962.0724
483 , p7_a11 NUMBER := 0-1962.0724
484 , p7_a12 NUMBER := 0-1962.0724
485 )
486
487 as
488 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
489 ddindx binary_integer; indx binary_integer;
490 begin
491
492 -- copy data to the local IN or IN-OUT args, if any
493
494
495
496
497
498
499
500 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p7_a0);
501 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p7_a1);
502 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p7_a2);
503 ddp_formula_entry_rec.formula_entry_type := p7_a3;
504 ddp_formula_entry_rec.formula_entry_value := p7_a4;
505 ddp_formula_entry_rec.metric_column_value := p7_a5;
506 ddp_formula_entry_rec.formula_entry_operator := p7_a6;
507 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a7);
508 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p7_a8);
509 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p7_a9);
510 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p7_a10);
511 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p7_a11);
512 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p7_a12);
513
514 -- here's the delegated call to the old PL/SQL routine
515 ams_formula_pvt.update_formula_entry(p_api_version,
516 p_init_msg_list,
517 p_commit,
518 p_validation_level,
519 x_return_status,
520 x_msg_count,
521 x_msg_data,
522 ddp_formula_entry_rec);
523
524 -- copy data back from the local variables to OUT or IN-OUT args, if any
525
526
527
528
529
530
531
532 end;
533
534 procedure validate_formula_entry(p_api_version NUMBER
535 , p_init_msg_list VARCHAR2
536 , p_validation_level NUMBER
537 , x_return_status out nocopy VARCHAR2
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 , p6_a0 NUMBER := 0-1962.0724
541 , p6_a1 NUMBER := 0-1962.0724
542 , p6_a2 NUMBER := 0-1962.0724
543 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
544 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
545 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
546 , p6_a6 VARCHAR2 := fnd_api.g_miss_char
547 , p6_a7 DATE := fnd_api.g_miss_date
548 , p6_a8 NUMBER := 0-1962.0724
549 , p6_a9 DATE := fnd_api.g_miss_date
550 , p6_a10 NUMBER := 0-1962.0724
551 , p6_a11 NUMBER := 0-1962.0724
552 , p6_a12 NUMBER := 0-1962.0724
553 )
554
555 as
556 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
557 ddindx binary_integer; indx binary_integer;
558 begin
559
560 -- copy data to the local IN or IN-OUT args, if any
561
562
563
564
565
566
567 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p6_a0);
568 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p6_a1);
569 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p6_a2);
570 ddp_formula_entry_rec.formula_entry_type := p6_a3;
571 ddp_formula_entry_rec.formula_entry_value := p6_a4;
572 ddp_formula_entry_rec.metric_column_value := p6_a5;
573 ddp_formula_entry_rec.formula_entry_operator := p6_a6;
574 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a7);
575 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p6_a8);
576 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p6_a9);
577 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p6_a10);
578 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
579 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p6_a12);
580
581 -- here's the delegated call to the old PL/SQL routine
582 ams_formula_pvt.validate_formula_entry(p_api_version,
583 p_init_msg_list,
584 p_validation_level,
585 x_return_status,
586 x_msg_count,
587 x_msg_data,
588 ddp_formula_entry_rec);
589
590 -- copy data back from the local variables to OUT or IN-OUT args, if any
591
592
593
594
595
596
597 end;
598
599 procedure validate_form_ent_items(p_validation_mode VARCHAR2
600 , x_return_status out nocopy VARCHAR2
601 , p0_a0 NUMBER := 0-1962.0724
602 , p0_a1 NUMBER := 0-1962.0724
603 , p0_a2 NUMBER := 0-1962.0724
604 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
605 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
606 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
607 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
608 , p0_a7 DATE := fnd_api.g_miss_date
609 , p0_a8 NUMBER := 0-1962.0724
610 , p0_a9 DATE := fnd_api.g_miss_date
611 , p0_a10 NUMBER := 0-1962.0724
612 , p0_a11 NUMBER := 0-1962.0724
613 , p0_a12 NUMBER := 0-1962.0724
614 )
615
616 as
617 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
618 ddindx binary_integer; indx binary_integer;
619 begin
620
621 -- copy data to the local IN or IN-OUT args, if any
622 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p0_a0);
623 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p0_a1);
624 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p0_a2);
625 ddp_formula_entry_rec.formula_entry_type := p0_a3;
626 ddp_formula_entry_rec.formula_entry_value := p0_a4;
627 ddp_formula_entry_rec.metric_column_value := p0_a5;
628 ddp_formula_entry_rec.formula_entry_operator := p0_a6;
629 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a7);
630 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p0_a8);
631 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p0_a9);
632 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p0_a10);
633 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
634 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p0_a12);
635
636
637
638 -- here's the delegated call to the old PL/SQL routine
639 ams_formula_pvt.validate_form_ent_items(ddp_formula_entry_rec,
640 p_validation_mode,
641 x_return_status);
642
643 -- copy data back from the local variables to OUT or IN-OUT args, if any
644
645
646 end;
647
648 procedure validate_form_ent_rec(x_return_status out nocopy VARCHAR2
649 , p0_a0 NUMBER := 0-1962.0724
650 , p0_a1 NUMBER := 0-1962.0724
651 , p0_a2 NUMBER := 0-1962.0724
652 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
653 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
654 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
655 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
656 , p0_a7 DATE := fnd_api.g_miss_date
657 , p0_a8 NUMBER := 0-1962.0724
658 , p0_a9 DATE := fnd_api.g_miss_date
659 , p0_a10 NUMBER := 0-1962.0724
660 , p0_a11 NUMBER := 0-1962.0724
661 , p0_a12 NUMBER := 0-1962.0724
662 , p1_a0 NUMBER := 0-1962.0724
663 , p1_a1 NUMBER := 0-1962.0724
664 , p1_a2 NUMBER := 0-1962.0724
665 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
666 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
667 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
668 , p1_a6 VARCHAR2 := fnd_api.g_miss_char
669 , p1_a7 DATE := fnd_api.g_miss_date
670 , p1_a8 NUMBER := 0-1962.0724
671 , p1_a9 DATE := fnd_api.g_miss_date
672 , p1_a10 NUMBER := 0-1962.0724
673 , p1_a11 NUMBER := 0-1962.0724
674 , p1_a12 NUMBER := 0-1962.0724
675 )
676
677 as
678 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
679 ddp_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
680 ddindx binary_integer; indx binary_integer;
681 begin
682
683 -- copy data to the local IN or IN-OUT args, if any
684 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p0_a0);
685 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p0_a1);
686 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p0_a2);
687 ddp_formula_entry_rec.formula_entry_type := p0_a3;
688 ddp_formula_entry_rec.formula_entry_value := p0_a4;
689 ddp_formula_entry_rec.metric_column_value := p0_a5;
690 ddp_formula_entry_rec.formula_entry_operator := p0_a6;
691 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a7);
692 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p0_a8);
693 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p0_a9);
694 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p0_a10);
695 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
696 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p0_a12);
697
698 ddp_complete_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p1_a0);
699 ddp_complete_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p1_a1);
700 ddp_complete_formula_entry_rec.order_number := rosetta_g_miss_num_map(p1_a2);
701 ddp_complete_formula_entry_rec.formula_entry_type := p1_a3;
702 ddp_complete_formula_entry_rec.formula_entry_value := p1_a4;
703 ddp_complete_formula_entry_rec.metric_column_value := p1_a5;
704 ddp_complete_formula_entry_rec.formula_entry_operator := p1_a6;
705 ddp_complete_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a7);
706 ddp_complete_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p1_a8);
707 ddp_complete_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p1_a9);
708 ddp_complete_formula_entry_rec.created_by := rosetta_g_miss_num_map(p1_a10);
709 ddp_complete_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p1_a11);
710 ddp_complete_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p1_a12);
711
712
713 -- here's the delegated call to the old PL/SQL routine
714 ams_formula_pvt.validate_form_ent_rec(ddp_formula_entry_rec,
715 ddp_complete_formula_entry_rec,
716 x_return_status);
717
718 -- copy data back from the local variables to OUT or IN-OUT args, if any
719
720
721 end;
722
723 procedure complete_form_ent_rec(p1_a0 out nocopy NUMBER
724 , p1_a1 out nocopy NUMBER
725 , p1_a2 out nocopy NUMBER
726 , p1_a3 out nocopy VARCHAR2
727 , p1_a4 out nocopy VARCHAR2
728 , p1_a5 out nocopy VARCHAR2
729 , p1_a6 out nocopy VARCHAR2
730 , p1_a7 out nocopy DATE
731 , p1_a8 out nocopy NUMBER
732 , p1_a9 out nocopy DATE
733 , p1_a10 out nocopy NUMBER
734 , p1_a11 out nocopy NUMBER
735 , p1_a12 out nocopy NUMBER
736 , p0_a0 NUMBER := 0-1962.0724
737 , p0_a1 NUMBER := 0-1962.0724
738 , p0_a2 NUMBER := 0-1962.0724
739 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
740 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
741 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
742 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
743 , p0_a7 DATE := fnd_api.g_miss_date
744 , p0_a8 NUMBER := 0-1962.0724
745 , p0_a9 DATE := fnd_api.g_miss_date
746 , p0_a10 NUMBER := 0-1962.0724
747 , p0_a11 NUMBER := 0-1962.0724
748 , p0_a12 NUMBER := 0-1962.0724
749 )
750
751 as
752 ddp_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
753 ddx_complete_formula_entry_rec ams_formula_pvt.ams_formula_entry_rec_type;
754 ddindx binary_integer; indx binary_integer;
755 begin
756
757 -- copy data to the local IN or IN-OUT args, if any
758 ddp_formula_entry_rec.formula_entry_id := rosetta_g_miss_num_map(p0_a0);
759 ddp_formula_entry_rec.formula_id := rosetta_g_miss_num_map(p0_a1);
760 ddp_formula_entry_rec.order_number := rosetta_g_miss_num_map(p0_a2);
761 ddp_formula_entry_rec.formula_entry_type := p0_a3;
762 ddp_formula_entry_rec.formula_entry_value := p0_a4;
763 ddp_formula_entry_rec.metric_column_value := p0_a5;
764 ddp_formula_entry_rec.formula_entry_operator := p0_a6;
765 ddp_formula_entry_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a7);
766 ddp_formula_entry_rec.last_updated_by := rosetta_g_miss_num_map(p0_a8);
767 ddp_formula_entry_rec.creation_date := rosetta_g_miss_date_in_map(p0_a9);
768 ddp_formula_entry_rec.created_by := rosetta_g_miss_num_map(p0_a10);
769 ddp_formula_entry_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
770 ddp_formula_entry_rec.object_version_number := rosetta_g_miss_num_map(p0_a12);
771
772
773 -- here's the delegated call to the old PL/SQL routine
774 ams_formula_pvt.complete_form_ent_rec(ddp_formula_entry_rec,
775 ddx_complete_formula_entry_rec);
776
777 -- copy data back from the local variables to OUT or IN-OUT args, if any
778
779 p1_a0 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.formula_entry_id);
780 p1_a1 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.formula_id);
781 p1_a2 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.order_number);
782 p1_a3 := ddx_complete_formula_entry_rec.formula_entry_type;
783 p1_a4 := ddx_complete_formula_entry_rec.formula_entry_value;
784 p1_a5 := ddx_complete_formula_entry_rec.metric_column_value;
785 p1_a6 := ddx_complete_formula_entry_rec.formula_entry_operator;
786 p1_a7 := ddx_complete_formula_entry_rec.last_update_date;
787 p1_a8 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.last_updated_by);
788 p1_a9 := ddx_complete_formula_entry_rec.creation_date;
789 p1_a10 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.created_by);
790 p1_a11 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.last_update_login);
791 p1_a12 := rosetta_g_miss_num_map(ddx_complete_formula_entry_rec.object_version_number);
792 end;
793
794 end ams_formula_pvt_w;