[Home] [Help]
PACKAGE BODY: APPS.OKL_PERD_STATUS_PVT_W
Source
1 package body okl_perd_status_pvt_w as
2 /* $Header: OKLEPSMB.pls 120.1 2005/07/11 14:19:25 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 rosetta_table_copy_in_p1(t out nocopy okl_perd_status_pvt.period_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_DATE_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_DATE_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_VARCHAR2_TABLE_200
39 , a17 JTF_VARCHAR2_TABLE_200
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_DATE_TABLE
45 , a23 JTF_DATE_TABLE
46 , a24 JTF_NUMBER_TABLE
47 , a25 JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if a0 is not null and a0.count > 0 then
52 if a0.count > 0 then
53 indx := a0.first;
54 ddindx := 1;
55 while true loop
56 t(ddindx).application_id := rosetta_g_miss_num_map(a0(indx));
57 t(ddindx).set_of_books_id := rosetta_g_miss_num_map(a1(indx));
58 t(ddindx).period_name := a2(indx);
59 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a3(indx));
60 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a4(indx));
61 t(ddindx).closing_status := a5(indx);
62 t(ddindx).start_date := rosetta_g_miss_date_in_map(a6(indx));
63 t(ddindx).end_date := rosetta_g_miss_date_in_map(a7(indx));
64 t(ddindx).period_type := a8(indx);
65 t(ddindx).period_year := rosetta_g_miss_num_map(a9(indx));
66 t(ddindx).period_num := rosetta_g_miss_num_map(a10(indx));
67 t(ddindx).quarter_num := rosetta_g_miss_num_map(a11(indx));
68 t(ddindx).adjustment_period_flag := a12(indx);
69 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a13(indx));
70 t(ddindx).created_by := rosetta_g_miss_num_map(a14(indx));
71 t(ddindx).last_update_login := rosetta_g_miss_num_map(a15(indx));
72 t(ddindx).attribute1 := a16(indx);
73 t(ddindx).attribute2 := a17(indx);
74 t(ddindx).attribute3 := a18(indx);
75 t(ddindx).attribute4 := a19(indx);
76 t(ddindx).attribute5 := a20(indx);
77 t(ddindx).context := a21(indx);
78 t(ddindx).year_start_date := rosetta_g_miss_date_in_map(a22(indx));
79 t(ddindx).quarter_start_date := rosetta_g_miss_date_in_map(a23(indx));
80 t(ddindx).effective_period_num := rosetta_g_miss_num_map(a24(indx));
81 t(ddindx).elimination_confirmed_flag := a25(indx);
82 ddindx := ddindx+1;
83 if a0.last =indx
84 then exit;
85 end if;
86 indx := a0.next(indx);
87 end loop;
88 end if;
89 end if;
90 end rosetta_table_copy_in_p1;
91 procedure rosetta_table_copy_out_p1(t okl_perd_status_pvt.period_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
92 , a1 out nocopy JTF_NUMBER_TABLE
93 , a2 out nocopy JTF_VARCHAR2_TABLE_100
94 , a3 out nocopy JTF_DATE_TABLE
95 , a4 out nocopy JTF_NUMBER_TABLE
96 , a5 out nocopy JTF_VARCHAR2_TABLE_100
97 , a6 out nocopy JTF_DATE_TABLE
98 , a7 out nocopy JTF_DATE_TABLE
99 , a8 out nocopy JTF_VARCHAR2_TABLE_100
100 , a9 out nocopy JTF_NUMBER_TABLE
101 , a10 out nocopy JTF_NUMBER_TABLE
102 , a11 out nocopy JTF_NUMBER_TABLE
103 , a12 out nocopy JTF_VARCHAR2_TABLE_100
104 , a13 out nocopy JTF_DATE_TABLE
105 , a14 out nocopy JTF_NUMBER_TABLE
106 , a15 out nocopy JTF_NUMBER_TABLE
107 , a16 out nocopy JTF_VARCHAR2_TABLE_200
108 , a17 out nocopy JTF_VARCHAR2_TABLE_200
109 , a18 out nocopy JTF_VARCHAR2_TABLE_200
110 , a19 out nocopy JTF_VARCHAR2_TABLE_200
111 , a20 out nocopy JTF_VARCHAR2_TABLE_200
112 , a21 out nocopy JTF_VARCHAR2_TABLE_200
113 , a22 out nocopy JTF_DATE_TABLE
114 , a23 out nocopy JTF_DATE_TABLE
115 , a24 out nocopy JTF_NUMBER_TABLE
116 , a25 out nocopy JTF_VARCHAR2_TABLE_100
117 ) as
118 ddindx binary_integer; indx binary_integer;
119 begin
120 if t is null or t.count = 0 then
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_DATE_TABLE();
125 a4 := JTF_NUMBER_TABLE();
126 a5 := JTF_VARCHAR2_TABLE_100();
127 a6 := JTF_DATE_TABLE();
128 a7 := JTF_DATE_TABLE();
129 a8 := JTF_VARCHAR2_TABLE_100();
130 a9 := JTF_NUMBER_TABLE();
131 a10 := JTF_NUMBER_TABLE();
132 a11 := JTF_NUMBER_TABLE();
133 a12 := JTF_VARCHAR2_TABLE_100();
134 a13 := JTF_DATE_TABLE();
135 a14 := JTF_NUMBER_TABLE();
136 a15 := JTF_NUMBER_TABLE();
137 a16 := JTF_VARCHAR2_TABLE_200();
138 a17 := JTF_VARCHAR2_TABLE_200();
139 a18 := JTF_VARCHAR2_TABLE_200();
140 a19 := JTF_VARCHAR2_TABLE_200();
141 a20 := JTF_VARCHAR2_TABLE_200();
142 a21 := JTF_VARCHAR2_TABLE_200();
143 a22 := JTF_DATE_TABLE();
144 a23 := JTF_DATE_TABLE();
145 a24 := JTF_NUMBER_TABLE();
146 a25 := JTF_VARCHAR2_TABLE_100();
147 else
148 a0 := JTF_NUMBER_TABLE();
149 a1 := JTF_NUMBER_TABLE();
150 a2 := JTF_VARCHAR2_TABLE_100();
151 a3 := JTF_DATE_TABLE();
152 a4 := JTF_NUMBER_TABLE();
153 a5 := JTF_VARCHAR2_TABLE_100();
154 a6 := JTF_DATE_TABLE();
155 a7 := JTF_DATE_TABLE();
156 a8 := JTF_VARCHAR2_TABLE_100();
157 a9 := JTF_NUMBER_TABLE();
158 a10 := JTF_NUMBER_TABLE();
159 a11 := JTF_NUMBER_TABLE();
160 a12 := JTF_VARCHAR2_TABLE_100();
161 a13 := JTF_DATE_TABLE();
162 a14 := JTF_NUMBER_TABLE();
163 a15 := JTF_NUMBER_TABLE();
164 a16 := JTF_VARCHAR2_TABLE_200();
165 a17 := JTF_VARCHAR2_TABLE_200();
166 a18 := JTF_VARCHAR2_TABLE_200();
167 a19 := JTF_VARCHAR2_TABLE_200();
168 a20 := JTF_VARCHAR2_TABLE_200();
169 a21 := JTF_VARCHAR2_TABLE_200();
170 a22 := JTF_DATE_TABLE();
171 a23 := JTF_DATE_TABLE();
172 a24 := JTF_NUMBER_TABLE();
173 a25 := JTF_VARCHAR2_TABLE_100();
174 if t.count > 0 then
175 a0.extend(t.count);
176 a1.extend(t.count);
177 a2.extend(t.count);
178 a3.extend(t.count);
179 a4.extend(t.count);
180 a5.extend(t.count);
181 a6.extend(t.count);
182 a7.extend(t.count);
183 a8.extend(t.count);
184 a9.extend(t.count);
185 a10.extend(t.count);
186 a11.extend(t.count);
187 a12.extend(t.count);
188 a13.extend(t.count);
189 a14.extend(t.count);
190 a15.extend(t.count);
191 a16.extend(t.count);
192 a17.extend(t.count);
193 a18.extend(t.count);
194 a19.extend(t.count);
195 a20.extend(t.count);
196 a21.extend(t.count);
197 a22.extend(t.count);
198 a23.extend(t.count);
199 a24.extend(t.count);
200 a25.extend(t.count);
201 ddindx := t.first;
202 indx := 1;
203 while true loop
204 a0(indx) := rosetta_g_miss_num_map(t(ddindx).application_id);
205 a1(indx) := rosetta_g_miss_num_map(t(ddindx).set_of_books_id);
206 a2(indx) := t(ddindx).period_name;
207 a3(indx) := t(ddindx).last_update_date;
208 a4(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
209 a5(indx) := t(ddindx).closing_status;
210 a6(indx) := t(ddindx).start_date;
211 a7(indx) := t(ddindx).end_date;
212 a8(indx) := t(ddindx).period_type;
213 a9(indx) := rosetta_g_miss_num_map(t(ddindx).period_year);
214 a10(indx) := rosetta_g_miss_num_map(t(ddindx).period_num);
215 a11(indx) := rosetta_g_miss_num_map(t(ddindx).quarter_num);
216 a12(indx) := t(ddindx).adjustment_period_flag;
217 a13(indx) := t(ddindx).creation_date;
218 a14(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
219 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
220 a16(indx) := t(ddindx).attribute1;
221 a17(indx) := t(ddindx).attribute2;
222 a18(indx) := t(ddindx).attribute3;
223 a19(indx) := t(ddindx).attribute4;
224 a20(indx) := t(ddindx).attribute5;
225 a21(indx) := t(ddindx).context;
226 a22(indx) := t(ddindx).year_start_date;
227 a23(indx) := t(ddindx).quarter_start_date;
228 a24(indx) := rosetta_g_miss_num_map(t(ddindx).effective_period_num);
229 a25(indx) := t(ddindx).elimination_confirmed_flag;
230 indx := indx+1;
231 if t.last =ddindx
232 then exit;
233 end if;
234 ddindx := t.next(ddindx);
235 end loop;
236 end if;
237 end if;
238 end rosetta_table_copy_out_p1;
239
240 procedure search_period_status(p_api_version NUMBER
241 , p_init_msg_list VARCHAR2
242 , x_return_status out nocopy VARCHAR2
243 , x_msg_count out nocopy NUMBER
244 , x_msg_data out nocopy VARCHAR2
245 , p6_a0 out nocopy JTF_NUMBER_TABLE
246 , p6_a1 out nocopy JTF_NUMBER_TABLE
247 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
248 , p6_a3 out nocopy JTF_DATE_TABLE
249 , p6_a4 out nocopy JTF_NUMBER_TABLE
250 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
251 , p6_a6 out nocopy JTF_DATE_TABLE
252 , p6_a7 out nocopy JTF_DATE_TABLE
253 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
254 , p6_a9 out nocopy JTF_NUMBER_TABLE
255 , p6_a10 out nocopy JTF_NUMBER_TABLE
256 , p6_a11 out nocopy JTF_NUMBER_TABLE
257 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
258 , p6_a13 out nocopy JTF_DATE_TABLE
259 , p6_a14 out nocopy JTF_NUMBER_TABLE
260 , p6_a15 out nocopy JTF_NUMBER_TABLE
261 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_200
262 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_200
263 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
264 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_200
265 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_200
266 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_200
267 , p6_a22 out nocopy JTF_DATE_TABLE
268 , p6_a23 out nocopy JTF_DATE_TABLE
269 , p6_a24 out nocopy JTF_NUMBER_TABLE
270 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
271 , p5_a0 NUMBER := 0-1962.0724
272 , p5_a1 NUMBER := 0-1962.0724
273 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a3 DATE := fnd_api.g_miss_date
275 , p5_a4 NUMBER := 0-1962.0724
276 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a6 DATE := fnd_api.g_miss_date
278 , p5_a7 DATE := fnd_api.g_miss_date
279 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
280 , p5_a9 NUMBER := 0-1962.0724
281 , p5_a10 NUMBER := 0-1962.0724
282 , p5_a11 NUMBER := 0-1962.0724
283 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
284 , p5_a13 DATE := fnd_api.g_miss_date
285 , p5_a14 NUMBER := 0-1962.0724
286 , p5_a15 NUMBER := 0-1962.0724
287 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
288 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
289 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
290 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
291 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
292 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
293 , p5_a22 DATE := fnd_api.g_miss_date
294 , p5_a23 DATE := fnd_api.g_miss_date
295 , p5_a24 NUMBER := 0-1962.0724
296 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
297 )
298
299 as
300 ddp_period_rec okl_perd_status_pvt.period_rec_type;
301 ddx_period_tbl okl_perd_status_pvt.period_tbl_type;
302 ddindx binary_integer; indx binary_integer;
303 begin
304
305 -- copy data to the local IN or IN-OUT args, if any
306
307
308
309
310
311 ddp_period_rec.application_id := rosetta_g_miss_num_map(p5_a0);
312 ddp_period_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a1);
313 ddp_period_rec.period_name := p5_a2;
314 ddp_period_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
315 ddp_period_rec.last_updated_by := rosetta_g_miss_num_map(p5_a4);
316 ddp_period_rec.closing_status := p5_a5;
317 ddp_period_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
318 ddp_period_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
319 ddp_period_rec.period_type := p5_a8;
320 ddp_period_rec.period_year := rosetta_g_miss_num_map(p5_a9);
321 ddp_period_rec.period_num := rosetta_g_miss_num_map(p5_a10);
322 ddp_period_rec.quarter_num := rosetta_g_miss_num_map(p5_a11);
323 ddp_period_rec.adjustment_period_flag := p5_a12;
324 ddp_period_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
325 ddp_period_rec.created_by := rosetta_g_miss_num_map(p5_a14);
326 ddp_period_rec.last_update_login := rosetta_g_miss_num_map(p5_a15);
327 ddp_period_rec.attribute1 := p5_a16;
328 ddp_period_rec.attribute2 := p5_a17;
329 ddp_period_rec.attribute3 := p5_a18;
330 ddp_period_rec.attribute4 := p5_a19;
331 ddp_period_rec.attribute5 := p5_a20;
332 ddp_period_rec.context := p5_a21;
333 ddp_period_rec.year_start_date := rosetta_g_miss_date_in_map(p5_a22);
334 ddp_period_rec.quarter_start_date := rosetta_g_miss_date_in_map(p5_a23);
335 ddp_period_rec.effective_period_num := rosetta_g_miss_num_map(p5_a24);
336 ddp_period_rec.elimination_confirmed_flag := p5_a25;
337
338
339 -- here's the delegated call to the old PL/SQL routine
340 okl_perd_status_pvt.search_period_status(p_api_version,
341 p_init_msg_list,
342 x_return_status,
343 x_msg_count,
344 x_msg_data,
345 ddp_period_rec,
346 ddx_period_tbl);
347
348 -- copy data back from the local variables to OUT or IN-OUT args, if any
349
350
351
352
353
354
355 okl_perd_status_pvt_w.rosetta_table_copy_out_p1(ddx_period_tbl, p6_a0
356 , p6_a1
357 , p6_a2
358 , p6_a3
359 , p6_a4
360 , p6_a5
361 , p6_a6
362 , p6_a7
363 , p6_a8
364 , p6_a9
365 , p6_a10
366 , p6_a11
367 , p6_a12
368 , p6_a13
369 , p6_a14
370 , p6_a15
371 , p6_a16
372 , p6_a17
373 , p6_a18
374 , p6_a19
375 , p6_a20
376 , p6_a21
377 , p6_a22
378 , p6_a23
379 , p6_a24
380 , p6_a25
381 );
382 end;
383
384 procedure update_period_status(p_api_version NUMBER
385 , p_init_msg_list VARCHAR2
386 , x_return_status out nocopy VARCHAR2
387 , x_msg_count out nocopy NUMBER
388 , x_msg_data out nocopy VARCHAR2
389 , p5_a0 JTF_NUMBER_TABLE
390 , p5_a1 JTF_NUMBER_TABLE
391 , p5_a2 JTF_VARCHAR2_TABLE_100
392 , p5_a3 JTF_DATE_TABLE
393 , p5_a4 JTF_NUMBER_TABLE
394 , p5_a5 JTF_VARCHAR2_TABLE_100
395 , p5_a6 JTF_DATE_TABLE
396 , p5_a7 JTF_DATE_TABLE
397 , p5_a8 JTF_VARCHAR2_TABLE_100
398 , p5_a9 JTF_NUMBER_TABLE
399 , p5_a10 JTF_NUMBER_TABLE
400 , p5_a11 JTF_NUMBER_TABLE
401 , p5_a12 JTF_VARCHAR2_TABLE_100
402 , p5_a13 JTF_DATE_TABLE
403 , p5_a14 JTF_NUMBER_TABLE
404 , p5_a15 JTF_NUMBER_TABLE
405 , p5_a16 JTF_VARCHAR2_TABLE_200
406 , p5_a17 JTF_VARCHAR2_TABLE_200
407 , p5_a18 JTF_VARCHAR2_TABLE_200
408 , p5_a19 JTF_VARCHAR2_TABLE_200
409 , p5_a20 JTF_VARCHAR2_TABLE_200
410 , p5_a21 JTF_VARCHAR2_TABLE_200
411 , p5_a22 JTF_DATE_TABLE
412 , p5_a23 JTF_DATE_TABLE
413 , p5_a24 JTF_NUMBER_TABLE
414 , p5_a25 JTF_VARCHAR2_TABLE_100
415 )
416
417 as
418 ddp_period_tbl okl_perd_status_pvt.period_tbl_type;
419 ddindx binary_integer; indx binary_integer;
420 begin
421
422 -- copy data to the local IN or IN-OUT args, if any
423
424
425
426
427
428 okl_perd_status_pvt_w.rosetta_table_copy_in_p1(ddp_period_tbl, p5_a0
429 , p5_a1
430 , p5_a2
431 , p5_a3
432 , p5_a4
433 , p5_a5
434 , p5_a6
435 , p5_a7
436 , p5_a8
437 , p5_a9
438 , p5_a10
439 , p5_a11
440 , p5_a12
441 , p5_a13
442 , p5_a14
443 , p5_a15
444 , p5_a16
445 , p5_a17
446 , p5_a18
447 , p5_a19
448 , p5_a20
449 , p5_a21
450 , p5_a22
451 , p5_a23
452 , p5_a24
453 , p5_a25
454 );
455
456 -- here's the delegated call to the old PL/SQL routine
457 okl_perd_status_pvt.update_period_status(p_api_version,
458 p_init_msg_list,
459 x_return_status,
460 x_msg_count,
461 x_msg_data,
462 ddp_period_tbl);
463
464 -- copy data back from the local variables to OUT or IN-OUT args, if any
465
466
467
468
469
470 end;
471
472 procedure update_perd_row(p_api_version NUMBER
473 , p_init_msg_list VARCHAR2
474 , x_return_status out nocopy VARCHAR2
475 , x_msg_count out nocopy NUMBER
476 , x_msg_data out nocopy VARCHAR2
477 , p5_a0 NUMBER := 0-1962.0724
478 , p5_a1 NUMBER := 0-1962.0724
479 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
480 , p5_a3 DATE := fnd_api.g_miss_date
481 , p5_a4 NUMBER := 0-1962.0724
482 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
483 , p5_a6 DATE := fnd_api.g_miss_date
484 , p5_a7 DATE := fnd_api.g_miss_date
485 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a9 NUMBER := 0-1962.0724
487 , p5_a10 NUMBER := 0-1962.0724
488 , p5_a11 NUMBER := 0-1962.0724
489 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
490 , p5_a13 DATE := fnd_api.g_miss_date
491 , p5_a14 NUMBER := 0-1962.0724
492 , p5_a15 NUMBER := 0-1962.0724
493 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
494 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
495 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
496 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
497 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
498 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
499 , p5_a22 DATE := fnd_api.g_miss_date
500 , p5_a23 DATE := fnd_api.g_miss_date
501 , p5_a24 NUMBER := 0-1962.0724
502 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
503 )
504
505 as
506 ddp_period_rec okl_perd_status_pvt.period_rec_type;
507 ddindx binary_integer; indx binary_integer;
508 begin
509
510 -- copy data to the local IN or IN-OUT args, if any
511
512
513
514
515
516 ddp_period_rec.application_id := rosetta_g_miss_num_map(p5_a0);
517 ddp_period_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a1);
518 ddp_period_rec.period_name := p5_a2;
519 ddp_period_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
520 ddp_period_rec.last_updated_by := rosetta_g_miss_num_map(p5_a4);
521 ddp_period_rec.closing_status := p5_a5;
522 ddp_period_rec.start_date := rosetta_g_miss_date_in_map(p5_a6);
523 ddp_period_rec.end_date := rosetta_g_miss_date_in_map(p5_a7);
524 ddp_period_rec.period_type := p5_a8;
525 ddp_period_rec.period_year := rosetta_g_miss_num_map(p5_a9);
526 ddp_period_rec.period_num := rosetta_g_miss_num_map(p5_a10);
527 ddp_period_rec.quarter_num := rosetta_g_miss_num_map(p5_a11);
528 ddp_period_rec.adjustment_period_flag := p5_a12;
529 ddp_period_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
530 ddp_period_rec.created_by := rosetta_g_miss_num_map(p5_a14);
531 ddp_period_rec.last_update_login := rosetta_g_miss_num_map(p5_a15);
532 ddp_period_rec.attribute1 := p5_a16;
533 ddp_period_rec.attribute2 := p5_a17;
534 ddp_period_rec.attribute3 := p5_a18;
535 ddp_period_rec.attribute4 := p5_a19;
536 ddp_period_rec.attribute5 := p5_a20;
537 ddp_period_rec.context := p5_a21;
538 ddp_period_rec.year_start_date := rosetta_g_miss_date_in_map(p5_a22);
539 ddp_period_rec.quarter_start_date := rosetta_g_miss_date_in_map(p5_a23);
540 ddp_period_rec.effective_period_num := rosetta_g_miss_num_map(p5_a24);
541 ddp_period_rec.elimination_confirmed_flag := p5_a25;
542
543 -- here's the delegated call to the old PL/SQL routine
544 okl_perd_status_pvt.update_perd_row(p_api_version,
545 p_init_msg_list,
546 x_return_status,
547 x_msg_count,
548 x_msg_data,
549 ddp_period_rec);
550
551 -- copy data back from the local variables to OUT or IN-OUT args, if any
552
553
554
555
556
557 end;
558
559 end okl_perd_status_pvt_w;