[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPFMACONSTRAINTS_PVT_W
Source
1 package body okl_setupfmaconstraints_pvt_w as
2 /* $Header: OKLESFCB.pls 120.1 2005/07/12 09:09:21 dkagrawa 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 get_rec(x_return_status out nocopy VARCHAR2
23 , x_no_data_found out nocopy number
24 , p3_a0 out nocopy NUMBER
25 , p3_a1 out nocopy NUMBER
26 , p3_a2 out nocopy NUMBER
27 , p3_a3 out nocopy NUMBER
28 , p3_a4 out nocopy VARCHAR2
29 , p3_a5 out nocopy NUMBER
30 , p3_a6 out nocopy DATE
31 , p3_a7 out nocopy NUMBER
32 , p3_a8 out nocopy DATE
33 , p3_a9 out nocopy NUMBER
34 , p0_a0 NUMBER := 0-1962.0724
35 , p0_a1 NUMBER := 0-1962.0724
36 , p0_a2 NUMBER := 0-1962.0724
37 , p0_a3 NUMBER := 0-1962.0724
38 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
39 , p0_a5 NUMBER := 0-1962.0724
40 , p0_a6 DATE := fnd_api.g_miss_date
41 , p0_a7 NUMBER := 0-1962.0724
42 , p0_a8 DATE := fnd_api.g_miss_date
43 , p0_a9 NUMBER := 0-1962.0724
44 )
45
46 as
47 ddp_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
48 ddx_no_data_found boolean;
49 ddx_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
50 ddindx binary_integer; indx binary_integer;
51 begin
52
53 -- copy data to the local IN or IN-OUT args, if any
54 ddp_fodv_rec.id := rosetta_g_miss_num_map(p0_a0);
55 ddp_fodv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
56 ddp_fodv_rec.opd_id := rosetta_g_miss_num_map(p0_a2);
57 ddp_fodv_rec.fma_id := rosetta_g_miss_num_map(p0_a3);
58 ddp_fodv_rec.label := p0_a4;
59 ddp_fodv_rec.created_by := rosetta_g_miss_num_map(p0_a5);
60 ddp_fodv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a6);
61 ddp_fodv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a7);
62 ddp_fodv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
63 ddp_fodv_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
64
65
66
67
68 -- here's the delegated call to the old PL/SQL routine
69 okl_setupfmaconstraints_pvt.get_rec(ddp_fodv_rec,
70 x_return_status,
71 ddx_no_data_found,
72 ddx_fodv_rec);
73
74 -- copy data back from the local variables to OUT or IN-OUT args, if any
75
76
77 if ddx_no_data_found is null
78 then x_no_data_found := null;
79 elsif ddx_no_data_found
80 then x_no_data_found := 1;
81 else x_no_data_found := 0;
82 end if;
83
84 p3_a0 := rosetta_g_miss_num_map(ddx_fodv_rec.id);
85 p3_a1 := rosetta_g_miss_num_map(ddx_fodv_rec.object_version_number);
86 p3_a2 := rosetta_g_miss_num_map(ddx_fodv_rec.opd_id);
87 p3_a3 := rosetta_g_miss_num_map(ddx_fodv_rec.fma_id);
88 p3_a4 := ddx_fodv_rec.label;
89 p3_a5 := rosetta_g_miss_num_map(ddx_fodv_rec.created_by);
90 p3_a6 := ddx_fodv_rec.creation_date;
91 p3_a7 := rosetta_g_miss_num_map(ddx_fodv_rec.last_updated_by);
92 p3_a8 := ddx_fodv_rec.last_update_date;
93 p3_a9 := rosetta_g_miss_num_map(ddx_fodv_rec.last_update_login);
94 end;
95
96 procedure insert_fmaconstraints(p_api_version NUMBER
97 , p_init_msg_list VARCHAR2
98 , x_return_status out nocopy VARCHAR2
99 , x_msg_count out nocopy NUMBER
100 , x_msg_data out nocopy VARCHAR2
101 , p7_a0 out nocopy NUMBER
102 , p7_a1 out nocopy NUMBER
103 , p7_a2 out nocopy NUMBER
104 , p7_a3 out nocopy NUMBER
105 , p7_a4 out nocopy VARCHAR2
106 , p7_a5 out nocopy NUMBER
107 , p7_a6 out nocopy DATE
108 , p7_a7 out nocopy NUMBER
109 , p7_a8 out nocopy DATE
110 , p7_a9 out nocopy NUMBER
111 , p5_a0 NUMBER := 0-1962.0724
112 , p5_a1 NUMBER := 0-1962.0724
113 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
114 , p5_a3 NUMBER := 0-1962.0724
115 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
117 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
118 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
120 , p5_a9 DATE := fnd_api.g_miss_date
121 , p5_a10 DATE := fnd_api.g_miss_date
122 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
123 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
124 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
126 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
127 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
128 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
129 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
130 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
131 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
132 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
133 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
134 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
135 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
136 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
137 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
138 , p5_a27 NUMBER := 0-1962.0724
139 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a29 NUMBER := 0-1962.0724
141 , p5_a30 DATE := fnd_api.g_miss_date
142 , p5_a31 NUMBER := 0-1962.0724
143 , p5_a32 DATE := fnd_api.g_miss_date
144 , p5_a33 NUMBER := 0-1962.0724
145 , p6_a0 NUMBER := 0-1962.0724
146 , p6_a1 NUMBER := 0-1962.0724
147 , p6_a2 NUMBER := 0-1962.0724
148 , p6_a3 NUMBER := 0-1962.0724
149 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
150 , p6_a5 NUMBER := 0-1962.0724
151 , p6_a6 DATE := fnd_api.g_miss_date
152 , p6_a7 NUMBER := 0-1962.0724
153 , p6_a8 DATE := fnd_api.g_miss_date
154 , p6_a9 NUMBER := 0-1962.0724
155 )
156
157 as
158 ddp_fmav_rec okl_setupfmaconstraints_pvt.fmav_rec_type;
159 ddp_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
160 ddx_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
161 ddindx binary_integer; indx binary_integer;
162 begin
163
164 -- copy data to the local IN or IN-OUT args, if any
165
166
167
168
169
170 ddp_fmav_rec.id := rosetta_g_miss_num_map(p5_a0);
171 ddp_fmav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
172 ddp_fmav_rec.sfwt_flag := p5_a2;
173 ddp_fmav_rec.cgr_id := rosetta_g_miss_num_map(p5_a3);
174 ddp_fmav_rec.fyp_code := p5_a4;
175 ddp_fmav_rec.name := p5_a5;
176 ddp_fmav_rec.formula_string := p5_a6;
177 ddp_fmav_rec.description := p5_a7;
178 ddp_fmav_rec.version := p5_a8;
179 ddp_fmav_rec.start_date := rosetta_g_miss_date_in_map(p5_a9);
180 ddp_fmav_rec.end_date := rosetta_g_miss_date_in_map(p5_a10);
181 ddp_fmav_rec.attribute_category := p5_a11;
182 ddp_fmav_rec.attribute1 := p5_a12;
183 ddp_fmav_rec.attribute2 := p5_a13;
184 ddp_fmav_rec.attribute3 := p5_a14;
185 ddp_fmav_rec.attribute4 := p5_a15;
186 ddp_fmav_rec.attribute5 := p5_a16;
187 ddp_fmav_rec.attribute6 := p5_a17;
188 ddp_fmav_rec.attribute7 := p5_a18;
189 ddp_fmav_rec.attribute8 := p5_a19;
190 ddp_fmav_rec.attribute9 := p5_a20;
191 ddp_fmav_rec.attribute10 := p5_a21;
192 ddp_fmav_rec.attribute11 := p5_a22;
193 ddp_fmav_rec.attribute12 := p5_a23;
194 ddp_fmav_rec.attribute13 := p5_a24;
195 ddp_fmav_rec.attribute14 := p5_a25;
196 ddp_fmav_rec.attribute15 := p5_a26;
197 ddp_fmav_rec.org_id := rosetta_g_miss_num_map(p5_a27);
198 ddp_fmav_rec.there_can_be_only_one_yn := p5_a28;
199 ddp_fmav_rec.created_by := rosetta_g_miss_num_map(p5_a29);
200 ddp_fmav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
201 ddp_fmav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
202 ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
203 ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
204
205 ddp_fodv_rec.id := rosetta_g_miss_num_map(p6_a0);
206 ddp_fodv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
207 ddp_fodv_rec.opd_id := rosetta_g_miss_num_map(p6_a2);
208 ddp_fodv_rec.fma_id := rosetta_g_miss_num_map(p6_a3);
209 ddp_fodv_rec.label := p6_a4;
210 ddp_fodv_rec.created_by := rosetta_g_miss_num_map(p6_a5);
211 ddp_fodv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a6);
212 ddp_fodv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a7);
213 ddp_fodv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a8);
214 ddp_fodv_rec.last_update_login := rosetta_g_miss_num_map(p6_a9);
215
216
217 -- here's the delegated call to the old PL/SQL routine
218 okl_setupfmaconstraints_pvt.insert_fmaconstraints(p_api_version,
219 p_init_msg_list,
220 x_return_status,
221 x_msg_count,
222 x_msg_data,
223 ddp_fmav_rec,
224 ddp_fodv_rec,
225 ddx_fodv_rec);
226
227 -- copy data back from the local variables to OUT or IN-OUT args, if any
228
229
230
231
232
233
234
235 p7_a0 := rosetta_g_miss_num_map(ddx_fodv_rec.id);
236 p7_a1 := rosetta_g_miss_num_map(ddx_fodv_rec.object_version_number);
237 p7_a2 := rosetta_g_miss_num_map(ddx_fodv_rec.opd_id);
238 p7_a3 := rosetta_g_miss_num_map(ddx_fodv_rec.fma_id);
239 p7_a4 := ddx_fodv_rec.label;
240 p7_a5 := rosetta_g_miss_num_map(ddx_fodv_rec.created_by);
241 p7_a6 := ddx_fodv_rec.creation_date;
242 p7_a7 := rosetta_g_miss_num_map(ddx_fodv_rec.last_updated_by);
243 p7_a8 := ddx_fodv_rec.last_update_date;
244 p7_a9 := rosetta_g_miss_num_map(ddx_fodv_rec.last_update_login);
245 end;
246
247 procedure update_fmaconstraints(p_api_version NUMBER
248 , p_init_msg_list VARCHAR2
249 , x_return_status out nocopy VARCHAR2
250 , x_msg_count out nocopy NUMBER
251 , x_msg_data out nocopy VARCHAR2
252 , p7_a0 out nocopy NUMBER
253 , p7_a1 out nocopy NUMBER
254 , p7_a2 out nocopy NUMBER
255 , p7_a3 out nocopy NUMBER
256 , p7_a4 out nocopy VARCHAR2
257 , p7_a5 out nocopy NUMBER
258 , p7_a6 out nocopy DATE
259 , p7_a7 out nocopy NUMBER
260 , p7_a8 out nocopy DATE
261 , p7_a9 out nocopy NUMBER
262 , p5_a0 NUMBER := 0-1962.0724
263 , p5_a1 NUMBER := 0-1962.0724
264 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
265 , p5_a3 NUMBER := 0-1962.0724
266 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
267 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
268 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
269 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
270 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
271 , p5_a9 DATE := fnd_api.g_miss_date
272 , p5_a10 DATE := fnd_api.g_miss_date
273 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
275 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
278 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
279 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
280 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
281 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
282 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
283 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
284 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
285 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
286 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
287 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
288 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
289 , p5_a27 NUMBER := 0-1962.0724
290 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
291 , p5_a29 NUMBER := 0-1962.0724
292 , p5_a30 DATE := fnd_api.g_miss_date
293 , p5_a31 NUMBER := 0-1962.0724
294 , p5_a32 DATE := fnd_api.g_miss_date
295 , p5_a33 NUMBER := 0-1962.0724
296 , p6_a0 NUMBER := 0-1962.0724
297 , p6_a1 NUMBER := 0-1962.0724
298 , p6_a2 NUMBER := 0-1962.0724
299 , p6_a3 NUMBER := 0-1962.0724
300 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
301 , p6_a5 NUMBER := 0-1962.0724
302 , p6_a6 DATE := fnd_api.g_miss_date
303 , p6_a7 NUMBER := 0-1962.0724
304 , p6_a8 DATE := fnd_api.g_miss_date
305 , p6_a9 NUMBER := 0-1962.0724
306 )
307
308 as
309 ddp_fmav_rec okl_setupfmaconstraints_pvt.fmav_rec_type;
310 ddp_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
311 ddx_fodv_rec okl_setupfmaconstraints_pvt.fodv_rec_type;
312 ddindx binary_integer; indx binary_integer;
313 begin
314
315 -- copy data to the local IN or IN-OUT args, if any
316
317
318
319
320
321 ddp_fmav_rec.id := rosetta_g_miss_num_map(p5_a0);
322 ddp_fmav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
323 ddp_fmav_rec.sfwt_flag := p5_a2;
324 ddp_fmav_rec.cgr_id := rosetta_g_miss_num_map(p5_a3);
325 ddp_fmav_rec.fyp_code := p5_a4;
326 ddp_fmav_rec.name := p5_a5;
327 ddp_fmav_rec.formula_string := p5_a6;
328 ddp_fmav_rec.description := p5_a7;
329 ddp_fmav_rec.version := p5_a8;
330 ddp_fmav_rec.start_date := rosetta_g_miss_date_in_map(p5_a9);
331 ddp_fmav_rec.end_date := rosetta_g_miss_date_in_map(p5_a10);
332 ddp_fmav_rec.attribute_category := p5_a11;
333 ddp_fmav_rec.attribute1 := p5_a12;
334 ddp_fmav_rec.attribute2 := p5_a13;
335 ddp_fmav_rec.attribute3 := p5_a14;
336 ddp_fmav_rec.attribute4 := p5_a15;
337 ddp_fmav_rec.attribute5 := p5_a16;
338 ddp_fmav_rec.attribute6 := p5_a17;
339 ddp_fmav_rec.attribute7 := p5_a18;
340 ddp_fmav_rec.attribute8 := p5_a19;
341 ddp_fmav_rec.attribute9 := p5_a20;
342 ddp_fmav_rec.attribute10 := p5_a21;
343 ddp_fmav_rec.attribute11 := p5_a22;
344 ddp_fmav_rec.attribute12 := p5_a23;
345 ddp_fmav_rec.attribute13 := p5_a24;
346 ddp_fmav_rec.attribute14 := p5_a25;
347 ddp_fmav_rec.attribute15 := p5_a26;
348 ddp_fmav_rec.org_id := rosetta_g_miss_num_map(p5_a27);
349 ddp_fmav_rec.there_can_be_only_one_yn := p5_a28;
350 ddp_fmav_rec.created_by := rosetta_g_miss_num_map(p5_a29);
351 ddp_fmav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
352 ddp_fmav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
353 ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
354 ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
355
356 ddp_fodv_rec.id := rosetta_g_miss_num_map(p6_a0);
357 ddp_fodv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
358 ddp_fodv_rec.opd_id := rosetta_g_miss_num_map(p6_a2);
359 ddp_fodv_rec.fma_id := rosetta_g_miss_num_map(p6_a3);
360 ddp_fodv_rec.label := p6_a4;
361 ddp_fodv_rec.created_by := rosetta_g_miss_num_map(p6_a5);
362 ddp_fodv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a6);
363 ddp_fodv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a7);
364 ddp_fodv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a8);
365 ddp_fodv_rec.last_update_login := rosetta_g_miss_num_map(p6_a9);
366
367
368 -- here's the delegated call to the old PL/SQL routine
369 okl_setupfmaconstraints_pvt.update_fmaconstraints(p_api_version,
370 p_init_msg_list,
371 x_return_status,
372 x_msg_count,
373 x_msg_data,
374 ddp_fmav_rec,
375 ddp_fodv_rec,
376 ddx_fodv_rec);
377
378 -- copy data back from the local variables to OUT or IN-OUT args, if any
379
380
381
382
383
384
385
386 p7_a0 := rosetta_g_miss_num_map(ddx_fodv_rec.id);
387 p7_a1 := rosetta_g_miss_num_map(ddx_fodv_rec.object_version_number);
388 p7_a2 := rosetta_g_miss_num_map(ddx_fodv_rec.opd_id);
389 p7_a3 := rosetta_g_miss_num_map(ddx_fodv_rec.fma_id);
390 p7_a4 := ddx_fodv_rec.label;
391 p7_a5 := rosetta_g_miss_num_map(ddx_fodv_rec.created_by);
392 p7_a6 := ddx_fodv_rec.creation_date;
393 p7_a7 := rosetta_g_miss_num_map(ddx_fodv_rec.last_updated_by);
394 p7_a8 := ddx_fodv_rec.last_update_date;
395 p7_a9 := rosetta_g_miss_num_map(ddx_fodv_rec.last_update_login);
396 end;
397
398 procedure delete_fmaconstraints(p_api_version NUMBER
399 , p_init_msg_list VARCHAR2
400 , x_return_status out nocopy VARCHAR2
401 , x_msg_count out nocopy NUMBER
402 , x_msg_data out nocopy VARCHAR2
403 , p5_a0 JTF_NUMBER_TABLE
404 , p5_a1 JTF_NUMBER_TABLE
405 , p5_a2 JTF_NUMBER_TABLE
406 , p5_a3 JTF_NUMBER_TABLE
407 , p5_a4 JTF_VARCHAR2_TABLE_800
408 , p5_a5 JTF_NUMBER_TABLE
409 , p5_a6 JTF_DATE_TABLE
410 , p5_a7 JTF_NUMBER_TABLE
411 , p5_a8 JTF_DATE_TABLE
412 , p5_a9 JTF_NUMBER_TABLE
413 )
414
415 as
416 ddp_fodv_tbl okl_setupfmaconstraints_pvt.fodv_tbl_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 okl_fod_pvt_w.rosetta_table_copy_in_p5(ddp_fodv_tbl, p5_a0
427 , p5_a1
428 , p5_a2
429 , p5_a3
430 , p5_a4
431 , p5_a5
432 , p5_a6
433 , p5_a7
434 , p5_a8
435 , p5_a9
436 );
437
438 -- here's the delegated call to the old PL/SQL routine
439 okl_setupfmaconstraints_pvt.delete_fmaconstraints(p_api_version,
440 p_init_msg_list,
441 x_return_status,
442 x_msg_count,
443 x_msg_data,
444 ddp_fodv_tbl);
445
446 -- copy data back from the local variables to OUT or IN-OUT args, if any
447
448
449
450
451
452 end;
453
454 procedure insert_fmaconstraints(p_api_version NUMBER
455 , p_init_msg_list VARCHAR2
456 , x_return_status out nocopy VARCHAR2
457 , x_msg_count out nocopy NUMBER
458 , x_msg_data out nocopy VARCHAR2
459 , p6_a0 JTF_NUMBER_TABLE
460 , p6_a1 JTF_NUMBER_TABLE
461 , p6_a2 JTF_NUMBER_TABLE
462 , p6_a3 JTF_NUMBER_TABLE
463 , p6_a4 JTF_VARCHAR2_TABLE_800
464 , p6_a5 JTF_NUMBER_TABLE
465 , p6_a6 JTF_DATE_TABLE
466 , p6_a7 JTF_NUMBER_TABLE
467 , p6_a8 JTF_DATE_TABLE
468 , p6_a9 JTF_NUMBER_TABLE
469 , p7_a0 out nocopy JTF_NUMBER_TABLE
470 , p7_a1 out nocopy JTF_NUMBER_TABLE
471 , p7_a2 out nocopy JTF_NUMBER_TABLE
472 , p7_a3 out nocopy JTF_NUMBER_TABLE
473 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_800
474 , p7_a5 out nocopy JTF_NUMBER_TABLE
475 , p7_a6 out nocopy JTF_DATE_TABLE
476 , p7_a7 out nocopy JTF_NUMBER_TABLE
477 , p7_a8 out nocopy JTF_DATE_TABLE
478 , p7_a9 out nocopy JTF_NUMBER_TABLE
479 , p5_a0 NUMBER := 0-1962.0724
480 , p5_a1 NUMBER := 0-1962.0724
481 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
482 , p5_a3 NUMBER := 0-1962.0724
483 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
484 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
487 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
488 , p5_a9 DATE := fnd_api.g_miss_date
489 , p5_a10 DATE := fnd_api.g_miss_date
490 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
491 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
492 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
493 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
494 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
495 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
496 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
497 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
498 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
499 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
501 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
502 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
503 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
504 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
506 , p5_a27 NUMBER := 0-1962.0724
507 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
508 , p5_a29 NUMBER := 0-1962.0724
509 , p5_a30 DATE := fnd_api.g_miss_date
510 , p5_a31 NUMBER := 0-1962.0724
511 , p5_a32 DATE := fnd_api.g_miss_date
512 , p5_a33 NUMBER := 0-1962.0724
513 )
514
515 as
516 ddp_fmav_rec okl_setupfmaconstraints_pvt.fmav_rec_type;
517 ddp_fodv_tbl okl_setupfmaconstraints_pvt.fodv_tbl_type;
518 ddx_fodv_tbl okl_setupfmaconstraints_pvt.fodv_tbl_type;
519 ddindx binary_integer; indx binary_integer;
520 begin
521
522 -- copy data to the local IN or IN-OUT args, if any
523
524
525
526
527
528 ddp_fmav_rec.id := rosetta_g_miss_num_map(p5_a0);
529 ddp_fmav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
530 ddp_fmav_rec.sfwt_flag := p5_a2;
531 ddp_fmav_rec.cgr_id := rosetta_g_miss_num_map(p5_a3);
532 ddp_fmav_rec.fyp_code := p5_a4;
533 ddp_fmav_rec.name := p5_a5;
534 ddp_fmav_rec.formula_string := p5_a6;
535 ddp_fmav_rec.description := p5_a7;
536 ddp_fmav_rec.version := p5_a8;
537 ddp_fmav_rec.start_date := rosetta_g_miss_date_in_map(p5_a9);
538 ddp_fmav_rec.end_date := rosetta_g_miss_date_in_map(p5_a10);
539 ddp_fmav_rec.attribute_category := p5_a11;
540 ddp_fmav_rec.attribute1 := p5_a12;
541 ddp_fmav_rec.attribute2 := p5_a13;
542 ddp_fmav_rec.attribute3 := p5_a14;
543 ddp_fmav_rec.attribute4 := p5_a15;
544 ddp_fmav_rec.attribute5 := p5_a16;
545 ddp_fmav_rec.attribute6 := p5_a17;
546 ddp_fmav_rec.attribute7 := p5_a18;
547 ddp_fmav_rec.attribute8 := p5_a19;
548 ddp_fmav_rec.attribute9 := p5_a20;
549 ddp_fmav_rec.attribute10 := p5_a21;
550 ddp_fmav_rec.attribute11 := p5_a22;
551 ddp_fmav_rec.attribute12 := p5_a23;
552 ddp_fmav_rec.attribute13 := p5_a24;
553 ddp_fmav_rec.attribute14 := p5_a25;
554 ddp_fmav_rec.attribute15 := p5_a26;
555 ddp_fmav_rec.org_id := rosetta_g_miss_num_map(p5_a27);
556 ddp_fmav_rec.there_can_be_only_one_yn := p5_a28;
557 ddp_fmav_rec.created_by := rosetta_g_miss_num_map(p5_a29);
558 ddp_fmav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
559 ddp_fmav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
560 ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
561 ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
562
563 okl_fod_pvt_w.rosetta_table_copy_in_p5(ddp_fodv_tbl, p6_a0
564 , p6_a1
565 , p6_a2
566 , p6_a3
567 , p6_a4
568 , p6_a5
569 , p6_a6
570 , p6_a7
571 , p6_a8
572 , p6_a9
573 );
574
575
576 -- here's the delegated call to the old PL/SQL routine
577 okl_setupfmaconstraints_pvt.insert_fmaconstraints(p_api_version,
578 p_init_msg_list,
579 x_return_status,
580 x_msg_count,
581 x_msg_data,
582 ddp_fmav_rec,
583 ddp_fodv_tbl,
584 ddx_fodv_tbl);
585
586 -- copy data back from the local variables to OUT or IN-OUT args, if any
587
588
589
590
591
592
593
594 okl_fod_pvt_w.rosetta_table_copy_out_p5(ddx_fodv_tbl, p7_a0
595 , p7_a1
596 , p7_a2
597 , p7_a3
598 , p7_a4
599 , p7_a5
600 , p7_a6
601 , p7_a7
602 , p7_a8
603 , p7_a9
604 );
605 end;
606
607 procedure update_fmaconstraints(p_api_version NUMBER
608 , p_init_msg_list VARCHAR2
609 , x_return_status out nocopy VARCHAR2
610 , x_msg_count out nocopy NUMBER
611 , x_msg_data out nocopy VARCHAR2
612 , p6_a0 JTF_NUMBER_TABLE
613 , p6_a1 JTF_NUMBER_TABLE
614 , p6_a2 JTF_NUMBER_TABLE
615 , p6_a3 JTF_NUMBER_TABLE
616 , p6_a4 JTF_VARCHAR2_TABLE_800
617 , p6_a5 JTF_NUMBER_TABLE
618 , p6_a6 JTF_DATE_TABLE
619 , p6_a7 JTF_NUMBER_TABLE
620 , p6_a8 JTF_DATE_TABLE
621 , p6_a9 JTF_NUMBER_TABLE
622 , p7_a0 out nocopy JTF_NUMBER_TABLE
623 , p7_a1 out nocopy JTF_NUMBER_TABLE
624 , p7_a2 out nocopy JTF_NUMBER_TABLE
625 , p7_a3 out nocopy JTF_NUMBER_TABLE
626 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_800
627 , p7_a5 out nocopy JTF_NUMBER_TABLE
628 , p7_a6 out nocopy JTF_DATE_TABLE
629 , p7_a7 out nocopy JTF_NUMBER_TABLE
630 , p7_a8 out nocopy JTF_DATE_TABLE
631 , p7_a9 out nocopy JTF_NUMBER_TABLE
632 , p5_a0 NUMBER := 0-1962.0724
633 , p5_a1 NUMBER := 0-1962.0724
634 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
635 , p5_a3 NUMBER := 0-1962.0724
636 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
637 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
638 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
639 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
640 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
641 , p5_a9 DATE := fnd_api.g_miss_date
642 , p5_a10 DATE := fnd_api.g_miss_date
643 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
644 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
645 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
646 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
647 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
648 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
649 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
650 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
651 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
652 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
653 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
654 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
655 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
656 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
657 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
658 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
659 , p5_a27 NUMBER := 0-1962.0724
660 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
661 , p5_a29 NUMBER := 0-1962.0724
662 , p5_a30 DATE := fnd_api.g_miss_date
663 , p5_a31 NUMBER := 0-1962.0724
664 , p5_a32 DATE := fnd_api.g_miss_date
665 , p5_a33 NUMBER := 0-1962.0724
666 )
667
668 as
669 ddp_fmav_rec okl_setupfmaconstraints_pvt.fmav_rec_type;
670 ddp_fodv_tbl okl_setupfmaconstraints_pvt.fodv_tbl_type;
671 ddx_fodv_tbl okl_setupfmaconstraints_pvt.fodv_tbl_type;
672 ddindx binary_integer; indx binary_integer;
673 begin
674
675 -- copy data to the local IN or IN-OUT args, if any
676
677
678
679
680
681 ddp_fmav_rec.id := rosetta_g_miss_num_map(p5_a0);
682 ddp_fmav_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
683 ddp_fmav_rec.sfwt_flag := p5_a2;
684 ddp_fmav_rec.cgr_id := rosetta_g_miss_num_map(p5_a3);
685 ddp_fmav_rec.fyp_code := p5_a4;
686 ddp_fmav_rec.name := p5_a5;
687 ddp_fmav_rec.formula_string := p5_a6;
688 ddp_fmav_rec.description := p5_a7;
689 ddp_fmav_rec.version := p5_a8;
690 ddp_fmav_rec.start_date := rosetta_g_miss_date_in_map(p5_a9);
691 ddp_fmav_rec.end_date := rosetta_g_miss_date_in_map(p5_a10);
692 ddp_fmav_rec.attribute_category := p5_a11;
693 ddp_fmav_rec.attribute1 := p5_a12;
694 ddp_fmav_rec.attribute2 := p5_a13;
695 ddp_fmav_rec.attribute3 := p5_a14;
696 ddp_fmav_rec.attribute4 := p5_a15;
697 ddp_fmav_rec.attribute5 := p5_a16;
698 ddp_fmav_rec.attribute6 := p5_a17;
699 ddp_fmav_rec.attribute7 := p5_a18;
700 ddp_fmav_rec.attribute8 := p5_a19;
701 ddp_fmav_rec.attribute9 := p5_a20;
702 ddp_fmav_rec.attribute10 := p5_a21;
703 ddp_fmav_rec.attribute11 := p5_a22;
704 ddp_fmav_rec.attribute12 := p5_a23;
705 ddp_fmav_rec.attribute13 := p5_a24;
706 ddp_fmav_rec.attribute14 := p5_a25;
707 ddp_fmav_rec.attribute15 := p5_a26;
708 ddp_fmav_rec.org_id := rosetta_g_miss_num_map(p5_a27);
709 ddp_fmav_rec.there_can_be_only_one_yn := p5_a28;
710 ddp_fmav_rec.created_by := rosetta_g_miss_num_map(p5_a29);
711 ddp_fmav_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
712 ddp_fmav_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
713 ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
714 ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
715
716 okl_fod_pvt_w.rosetta_table_copy_in_p5(ddp_fodv_tbl, p6_a0
717 , p6_a1
718 , p6_a2
719 , p6_a3
720 , p6_a4
721 , p6_a5
722 , p6_a6
723 , p6_a7
724 , p6_a8
725 , p6_a9
726 );
727
728
729 -- here's the delegated call to the old PL/SQL routine
730 okl_setupfmaconstraints_pvt.update_fmaconstraints(p_api_version,
731 p_init_msg_list,
732 x_return_status,
733 x_msg_count,
734 x_msg_data,
735 ddp_fmav_rec,
736 ddp_fodv_tbl,
737 ddx_fodv_tbl);
738
739 -- copy data back from the local variables to OUT or IN-OUT args, if any
740
741
742
743
744
745
746
747 okl_fod_pvt_w.rosetta_table_copy_out_p5(ddx_fodv_tbl, p7_a0
748 , p7_a1
749 , p7_a2
750 , p7_a3
751 , p7_a4
752 , p7_a5
753 , p7_a6
754 , p7_a7
755 , p7_a8
756 , p7_a9
757 );
758 end;
759
760 end okl_setupfmaconstraints_pvt_w;