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