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