eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_SETUPFMACONSTRAINTS_PUB_W

Source


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