[Home] [Help]
PACKAGE BODY: APPS.OKL_MISC_TRANS_PVT_W
Source
1 package body okl_misc_trans_pvt_w as
2 /* $Header: OKLEMSCB.pls 120.2 2005/10/30 03:20:25 appldev 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_p14(t out nocopy okl_misc_trans_pvt.jrnl_line_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_2000
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_200
30 , a8 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).khr_id := rosetta_g_miss_num_map(a1(indx));
41 t(ddindx).line_number := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).tcn_id := rosetta_g_miss_num_map(a3(indx));
43 t(ddindx).description := a4(indx);
44 t(ddindx).avl_id := rosetta_g_miss_num_map(a5(indx));
45 t(ddindx).sty_id := rosetta_g_miss_num_map(a6(indx));
46 t(ddindx).currency_code := a7(indx);
47 t(ddindx).amount := rosetta_g_miss_num_map(a8(indx));
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p14;
57 procedure rosetta_table_copy_out_p14(t okl_misc_trans_pvt.jrnl_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_NUMBER_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_NUMBER_TABLE
61 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
62 , a5 out nocopy JTF_NUMBER_TABLE
63 , a6 out nocopy JTF_NUMBER_TABLE
64 , a7 out nocopy JTF_VARCHAR2_TABLE_200
65 , a8 out nocopy JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_NUMBER_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_NUMBER_TABLE();
74 a4 := JTF_VARCHAR2_TABLE_2000();
75 a5 := JTF_NUMBER_TABLE();
76 a6 := JTF_NUMBER_TABLE();
77 a7 := JTF_VARCHAR2_TABLE_200();
78 a8 := JTF_NUMBER_TABLE();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_NUMBER_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_NUMBER_TABLE();
84 a4 := JTF_VARCHAR2_TABLE_2000();
85 a5 := JTF_NUMBER_TABLE();
86 a6 := JTF_NUMBER_TABLE();
87 a7 := JTF_VARCHAR2_TABLE_200();
88 a8 := JTF_NUMBER_TABLE();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
103 a1(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
105 a3(indx) := rosetta_g_miss_num_map(t(ddindx).tcn_id);
106 a4(indx) := t(ddindx).description;
107 a5(indx) := rosetta_g_miss_num_map(t(ddindx).avl_id);
108 a6(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
109 a7(indx) := t(ddindx).currency_code;
110 a8(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p14;
120
121 procedure create_misc_dstr_line(p_api_version NUMBER
122 , p_init_msg_list VARCHAR2
123 , x_return_status out nocopy VARCHAR2
124 , x_msg_count out nocopy NUMBER
125 , x_msg_data out nocopy VARCHAR2
126 , p6_a0 out nocopy NUMBER
127 , p6_a1 out nocopy NUMBER
128 , p6_a2 out nocopy NUMBER
129 , p6_a3 out nocopy NUMBER
130 , p6_a4 out nocopy NUMBER
131 , p6_a5 out nocopy NUMBER
132 , p6_a6 out nocopy NUMBER
133 , p6_a7 out nocopy NUMBER
134 , p6_a8 out nocopy VARCHAR2
135 , p6_a9 out nocopy NUMBER
136 , p6_a10 out nocopy VARCHAR2
137 , p6_a11 out nocopy NUMBER
138 , p6_a12 out nocopy VARCHAR2
139 , p6_a13 out nocopy VARCHAR2
140 , p6_a14 out nocopy VARCHAR2
141 , p6_a15 out nocopy VARCHAR2
142 , p6_a16 out nocopy VARCHAR2
143 , p6_a17 out nocopy VARCHAR2
144 , p6_a18 out nocopy VARCHAR2
145 , p6_a19 out nocopy VARCHAR2
146 , p6_a20 out nocopy VARCHAR2
147 , p6_a21 out nocopy VARCHAR2
148 , p6_a22 out nocopy VARCHAR2
149 , p6_a23 out nocopy VARCHAR2
150 , p6_a24 out nocopy VARCHAR2
151 , p6_a25 out nocopy VARCHAR2
152 , p6_a26 out nocopy VARCHAR2
153 , p6_a27 out nocopy VARCHAR2
154 , p6_a28 out nocopy VARCHAR2
155 , p6_a29 out nocopy VARCHAR2
156 , p6_a30 out nocopy VARCHAR2
157 , p6_a31 out nocopy NUMBER
158 , p6_a32 out nocopy DATE
159 , p6_a33 out nocopy NUMBER
160 , p6_a34 out nocopy DATE
161 , p6_a35 out nocopy NUMBER
162 , p6_a36 out nocopy NUMBER
163 , p6_a37 out nocopy NUMBER
164 , p6_a38 out nocopy NUMBER
165 , p6_a39 out nocopy DATE
166 , p6_a40 out nocopy NUMBER
167 , p6_a41 out nocopy NUMBER
168 , p6_a42 out nocopy NUMBER
169 , p6_a43 out nocopy NUMBER
170 , p6_a44 out nocopy NUMBER
171 , p6_a45 out nocopy VARCHAR2
172 , p5_a0 NUMBER := 0-1962.0724
173 , p5_a1 NUMBER := 0-1962.0724
174 , p5_a2 NUMBER := 0-1962.0724
175 , p5_a3 NUMBER := 0-1962.0724
176 , p5_a4 NUMBER := 0-1962.0724
177 , p5_a5 NUMBER := 0-1962.0724
178 , p5_a6 NUMBER := 0-1962.0724
179 , p5_a7 NUMBER := 0-1962.0724
180 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
181 , p5_a9 NUMBER := 0-1962.0724
182 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
183 , p5_a11 NUMBER := 0-1962.0724
184 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
185 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
186 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
187 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
188 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
189 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
190 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
191 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
192 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
193 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
194 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
195 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
196 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
197 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
198 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
199 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
200 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
201 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
202 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
203 , p5_a31 NUMBER := 0-1962.0724
204 , p5_a32 DATE := fnd_api.g_miss_date
205 , p5_a33 NUMBER := 0-1962.0724
206 , p5_a34 DATE := fnd_api.g_miss_date
207 , p5_a35 NUMBER := 0-1962.0724
208 , p5_a36 NUMBER := 0-1962.0724
209 , p5_a37 NUMBER := 0-1962.0724
210 , p5_a38 NUMBER := 0-1962.0724
211 , p5_a39 DATE := fnd_api.g_miss_date
212 , p5_a40 NUMBER := 0-1962.0724
213 , p5_a41 NUMBER := 0-1962.0724
214 , p5_a42 NUMBER := 0-1962.0724
215 , p5_a43 NUMBER := 0-1962.0724
216 , p5_a44 NUMBER := 0-1962.0724
217 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
218 )
219
220 as
221 ddp_tclv_rec okl_misc_trans_pvt.tclv_rec_type;
222 ddx_tclv_rec okl_misc_trans_pvt.tclv_rec_type;
223 ddindx binary_integer; indx binary_integer;
224 begin
225
226 -- copy data to the local IN or IN-OUT args, if any
227
228
229
230
231
232 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
233 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
234 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
235 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
236 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
237 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
238 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
239 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
240 ddp_tclv_rec.before_transfer_yn := p5_a8;
241 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
242 ddp_tclv_rec.description := p5_a10;
243 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
244 ddp_tclv_rec.currency_code := p5_a12;
245 ddp_tclv_rec.gl_reversal_yn := p5_a13;
246 ddp_tclv_rec.attribute_category := p5_a14;
247 ddp_tclv_rec.attribute1 := p5_a15;
248 ddp_tclv_rec.attribute2 := p5_a16;
249 ddp_tclv_rec.attribute3 := p5_a17;
250 ddp_tclv_rec.attribute4 := p5_a18;
251 ddp_tclv_rec.attribute5 := p5_a19;
252 ddp_tclv_rec.attribute6 := p5_a20;
253 ddp_tclv_rec.attribute7 := p5_a21;
254 ddp_tclv_rec.attribute8 := p5_a22;
255 ddp_tclv_rec.attribute9 := p5_a23;
256 ddp_tclv_rec.attribute10 := p5_a24;
257 ddp_tclv_rec.attribute11 := p5_a25;
258 ddp_tclv_rec.attribute12 := p5_a26;
259 ddp_tclv_rec.attribute13 := p5_a27;
260 ddp_tclv_rec.attribute14 := p5_a28;
261 ddp_tclv_rec.attribute15 := p5_a29;
262 ddp_tclv_rec.tcl_type := p5_a30;
263 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
264 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
265 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
266 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
267 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
268 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
269 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
270 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
271 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
272 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
273 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
274 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
275 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
276 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
277 ddp_tclv_rec.accrual_rule_yn := p5_a45;
278
279
280 -- here's the delegated call to the old PL/SQL routine
281 okl_misc_trans_pvt.create_misc_dstr_line(p_api_version,
282 p_init_msg_list,
283 x_return_status,
284 x_msg_count,
285 x_msg_data,
286 ddp_tclv_rec,
287 ddx_tclv_rec);
288
289 -- copy data back from the local variables to OUT or IN-OUT args, if any
290
291
292
293
294
295
296 p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
297 p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
298 p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
299 p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
300 p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
301 p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
302 p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
303 p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
304 p6_a8 := ddx_tclv_rec.before_transfer_yn;
305 p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
306 p6_a10 := ddx_tclv_rec.description;
307 p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
308 p6_a12 := ddx_tclv_rec.currency_code;
309 p6_a13 := ddx_tclv_rec.gl_reversal_yn;
310 p6_a14 := ddx_tclv_rec.attribute_category;
311 p6_a15 := ddx_tclv_rec.attribute1;
312 p6_a16 := ddx_tclv_rec.attribute2;
313 p6_a17 := ddx_tclv_rec.attribute3;
314 p6_a18 := ddx_tclv_rec.attribute4;
315 p6_a19 := ddx_tclv_rec.attribute5;
316 p6_a20 := ddx_tclv_rec.attribute6;
317 p6_a21 := ddx_tclv_rec.attribute7;
318 p6_a22 := ddx_tclv_rec.attribute8;
319 p6_a23 := ddx_tclv_rec.attribute9;
320 p6_a24 := ddx_tclv_rec.attribute10;
321 p6_a25 := ddx_tclv_rec.attribute11;
322 p6_a26 := ddx_tclv_rec.attribute12;
323 p6_a27 := ddx_tclv_rec.attribute13;
324 p6_a28 := ddx_tclv_rec.attribute14;
325 p6_a29 := ddx_tclv_rec.attribute15;
326 p6_a30 := ddx_tclv_rec.tcl_type;
327 p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
328 p6_a32 := ddx_tclv_rec.creation_date;
329 p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
330 p6_a34 := ddx_tclv_rec.last_update_date;
331 p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
332 p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
333 p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
334 p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
335 p6_a39 := ddx_tclv_rec.program_update_date;
336 p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
337 p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
338 p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
339 p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
340 p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
341 p6_a45 := ddx_tclv_rec.accrual_rule_yn;
342 end;
343
344 procedure create_dist_line(x_return_status out nocopy VARCHAR2
345 , p0_a0 NUMBER := 0-1962.0724
346 , p0_a1 NUMBER := 0-1962.0724
347 , p0_a2 NUMBER := 0-1962.0724
348 , p0_a3 NUMBER := 0-1962.0724
349 , p0_a4 NUMBER := 0-1962.0724
350 , p0_a5 NUMBER := 0-1962.0724
351 , p0_a6 NUMBER := 0-1962.0724
352 , p0_a7 NUMBER := 0-1962.0724
353 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
354 , p0_a9 NUMBER := 0-1962.0724
355 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
356 , p0_a11 NUMBER := 0-1962.0724
357 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
358 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
359 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
360 , p0_a15 VARCHAR2 := fnd_api.g_miss_char
361 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
362 , p0_a17 VARCHAR2 := fnd_api.g_miss_char
363 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
364 , p0_a19 VARCHAR2 := fnd_api.g_miss_char
365 , p0_a20 VARCHAR2 := fnd_api.g_miss_char
366 , p0_a21 VARCHAR2 := fnd_api.g_miss_char
367 , p0_a22 VARCHAR2 := fnd_api.g_miss_char
368 , p0_a23 VARCHAR2 := fnd_api.g_miss_char
369 , p0_a24 VARCHAR2 := fnd_api.g_miss_char
370 , p0_a25 VARCHAR2 := fnd_api.g_miss_char
371 , p0_a26 VARCHAR2 := fnd_api.g_miss_char
372 , p0_a27 VARCHAR2 := fnd_api.g_miss_char
373 , p0_a28 VARCHAR2 := fnd_api.g_miss_char
374 , p0_a29 VARCHAR2 := fnd_api.g_miss_char
375 , p0_a30 VARCHAR2 := fnd_api.g_miss_char
376 , p0_a31 NUMBER := 0-1962.0724
377 , p0_a32 DATE := fnd_api.g_miss_date
378 , p0_a33 NUMBER := 0-1962.0724
379 , p0_a34 DATE := fnd_api.g_miss_date
380 , p0_a35 NUMBER := 0-1962.0724
381 , p0_a36 NUMBER := 0-1962.0724
382 , p0_a37 NUMBER := 0-1962.0724
383 , p0_a38 NUMBER := 0-1962.0724
384 , p0_a39 DATE := fnd_api.g_miss_date
385 , p0_a40 NUMBER := 0-1962.0724
386 , p0_a41 NUMBER := 0-1962.0724
387 , p0_a42 NUMBER := 0-1962.0724
388 , p0_a43 NUMBER := 0-1962.0724
389 , p0_a44 NUMBER := 0-1962.0724
390 , p0_a45 VARCHAR2 := fnd_api.g_miss_char
391 )
392
393 as
394 ddp_tclv_rec okl_misc_trans_pvt.tclv_rec_type;
395 ddindx binary_integer; indx binary_integer;
396 begin
397
398 -- copy data to the local IN or IN-OUT args, if any
399 ddp_tclv_rec.id := rosetta_g_miss_num_map(p0_a0);
400 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
401 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p0_a2);
402 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p0_a3);
403 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p0_a4);
404 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p0_a5);
405 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p0_a6);
406 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p0_a7);
407 ddp_tclv_rec.before_transfer_yn := p0_a8;
408 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p0_a9);
409 ddp_tclv_rec.description := p0_a10;
410 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p0_a11);
411 ddp_tclv_rec.currency_code := p0_a12;
412 ddp_tclv_rec.gl_reversal_yn := p0_a13;
413 ddp_tclv_rec.attribute_category := p0_a14;
414 ddp_tclv_rec.attribute1 := p0_a15;
415 ddp_tclv_rec.attribute2 := p0_a16;
416 ddp_tclv_rec.attribute3 := p0_a17;
417 ddp_tclv_rec.attribute4 := p0_a18;
418 ddp_tclv_rec.attribute5 := p0_a19;
419 ddp_tclv_rec.attribute6 := p0_a20;
420 ddp_tclv_rec.attribute7 := p0_a21;
421 ddp_tclv_rec.attribute8 := p0_a22;
422 ddp_tclv_rec.attribute9 := p0_a23;
423 ddp_tclv_rec.attribute10 := p0_a24;
424 ddp_tclv_rec.attribute11 := p0_a25;
425 ddp_tclv_rec.attribute12 := p0_a26;
426 ddp_tclv_rec.attribute13 := p0_a27;
427 ddp_tclv_rec.attribute14 := p0_a28;
428 ddp_tclv_rec.attribute15 := p0_a29;
429 ddp_tclv_rec.tcl_type := p0_a30;
430 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p0_a31);
431 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a32);
432 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a33);
433 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a34);
434 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p0_a35);
435 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p0_a36);
436 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p0_a37);
437 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p0_a38);
438 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a39);
439 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p0_a40);
440 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p0_a41);
441 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p0_a42);
442 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p0_a43);
443 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p0_a44);
444 ddp_tclv_rec.accrual_rule_yn := p0_a45;
445
446
447 -- here's the delegated call to the old PL/SQL routine
448 okl_misc_trans_pvt.create_dist_line(ddp_tclv_rec,
449 x_return_status);
450
451 -- copy data back from the local variables to OUT or IN-OUT args, if any
452
453 end;
454
455 procedure create_misc_transaction(p_api_version NUMBER
456 , p_init_msg_list VARCHAR2
457 , x_return_status out nocopy VARCHAR2
458 , x_msg_count out nocopy NUMBER
459 , x_msg_data out nocopy VARCHAR2
460 , p6_a0 JTF_NUMBER_TABLE
461 , p6_a1 JTF_NUMBER_TABLE
462 , p6_a2 JTF_NUMBER_TABLE
463 , p6_a3 JTF_NUMBER_TABLE
464 , p6_a4 JTF_VARCHAR2_TABLE_2000
465 , p6_a5 JTF_NUMBER_TABLE
466 , p6_a6 JTF_NUMBER_TABLE
467 , p6_a7 JTF_VARCHAR2_TABLE_200
468 , p6_a8 JTF_NUMBER_TABLE
469 , p7_a0 out nocopy NUMBER
470 , p7_a1 out nocopy NUMBER
471 , p7_a2 out nocopy NUMBER
472 , p7_a3 out nocopy NUMBER
473 , p7_a4 out nocopy VARCHAR2
474 , p7_a5 out nocopy VARCHAR2
475 , p7_a6 out nocopy VARCHAR2
476 , p7_a7 out nocopy VARCHAR2
477 , p7_a8 out nocopy DATE
478 , p5_a0 NUMBER := 0-1962.0724
479 , p5_a1 NUMBER := 0-1962.0724
480 , p5_a2 NUMBER := 0-1962.0724
481 , p5_a3 NUMBER := 0-1962.0724
482 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
483 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
484 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
486 , p5_a8 DATE := fnd_api.g_miss_date
487 )
488
489 as
490 ddp_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
491 ddp_jrnl_line_tbl okl_misc_trans_pvt.jrnl_line_tbl_type;
492 ddx_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
493 ddindx binary_integer; indx binary_integer;
494 begin
495
496 -- copy data to the local IN or IN-OUT args, if any
497
498
499
500
501
502 ddp_jrnl_hdr_rec.id := rosetta_g_miss_num_map(p5_a0);
503 ddp_jrnl_hdr_rec.khr_id := rosetta_g_miss_num_map(p5_a1);
504 ddp_jrnl_hdr_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
505 ddp_jrnl_hdr_rec.amount := rosetta_g_miss_num_map(p5_a3);
506 ddp_jrnl_hdr_rec.tsu_code := p5_a4;
507 ddp_jrnl_hdr_rec.currency_code := p5_a5;
508 ddp_jrnl_hdr_rec.trx_number := p5_a6;
509 ddp_jrnl_hdr_rec.description := p5_a7;
510 ddp_jrnl_hdr_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a8);
511
512 okl_misc_trans_pvt_w.rosetta_table_copy_in_p14(ddp_jrnl_line_tbl, p6_a0
513 , p6_a1
514 , p6_a2
515 , p6_a3
516 , p6_a4
517 , p6_a5
518 , p6_a6
519 , p6_a7
520 , p6_a8
521 );
522
523
524 -- here's the delegated call to the old PL/SQL routine
525 okl_misc_trans_pvt.create_misc_transaction(p_api_version,
526 p_init_msg_list,
527 x_return_status,
528 x_msg_count,
529 x_msg_data,
530 ddp_jrnl_hdr_rec,
531 ddp_jrnl_line_tbl,
532 ddx_jrnl_hdr_rec);
533
534 -- copy data back from the local variables to OUT or IN-OUT args, if any
535
536
537
538
539
540
541
542 p7_a0 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.id);
543 p7_a1 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.khr_id);
544 p7_a2 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.pdt_id);
545 p7_a3 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.amount);
546 p7_a4 := ddx_jrnl_hdr_rec.tsu_code;
547 p7_a5 := ddx_jrnl_hdr_rec.currency_code;
548 p7_a6 := ddx_jrnl_hdr_rec.trx_number;
549 p7_a7 := ddx_jrnl_hdr_rec.description;
550 p7_a8 := ddx_jrnl_hdr_rec.date_transaction_occurred;
551 end;
552
553 procedure update_misc_transaction(p_api_version NUMBER
554 , p_init_msg_list VARCHAR2
555 , x_return_status out nocopy VARCHAR2
556 , x_msg_count out nocopy NUMBER
557 , x_msg_data out nocopy VARCHAR2
558 , p6_a0 JTF_NUMBER_TABLE
559 , p6_a1 JTF_NUMBER_TABLE
560 , p6_a2 JTF_NUMBER_TABLE
561 , p6_a3 JTF_NUMBER_TABLE
562 , p6_a4 JTF_VARCHAR2_TABLE_2000
563 , p6_a5 JTF_NUMBER_TABLE
564 , p6_a6 JTF_NUMBER_TABLE
565 , p6_a7 JTF_VARCHAR2_TABLE_200
566 , p6_a8 JTF_NUMBER_TABLE
567 , p5_a0 NUMBER := 0-1962.0724
568 , p5_a1 NUMBER := 0-1962.0724
569 , p5_a2 NUMBER := 0-1962.0724
570 , p5_a3 NUMBER := 0-1962.0724
571 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
573 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
574 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
575 , p5_a8 DATE := fnd_api.g_miss_date
576 )
577
578 as
579 ddp_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
580 ddp_jrnl_line_tbl okl_misc_trans_pvt.jrnl_line_tbl_type;
581 ddindx binary_integer; indx binary_integer;
582 begin
583
584 -- copy data to the local IN or IN-OUT args, if any
585
586
587
588
589
590 ddp_jrnl_hdr_rec.id := rosetta_g_miss_num_map(p5_a0);
591 ddp_jrnl_hdr_rec.khr_id := rosetta_g_miss_num_map(p5_a1);
592 ddp_jrnl_hdr_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
593 ddp_jrnl_hdr_rec.amount := rosetta_g_miss_num_map(p5_a3);
594 ddp_jrnl_hdr_rec.tsu_code := p5_a4;
595 ddp_jrnl_hdr_rec.currency_code := p5_a5;
596 ddp_jrnl_hdr_rec.trx_number := p5_a6;
597 ddp_jrnl_hdr_rec.description := p5_a7;
598 ddp_jrnl_hdr_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a8);
599
600 okl_misc_trans_pvt_w.rosetta_table_copy_in_p14(ddp_jrnl_line_tbl, p6_a0
601 , p6_a1
602 , p6_a2
603 , p6_a3
604 , p6_a4
605 , p6_a5
606 , p6_a6
607 , p6_a7
608 , p6_a8
609 );
610
611 -- here's the delegated call to the old PL/SQL routine
612 okl_misc_trans_pvt.update_misc_transaction(p_api_version,
613 p_init_msg_list,
614 x_return_status,
615 x_msg_count,
616 x_msg_data,
617 ddp_jrnl_hdr_rec,
618 ddp_jrnl_line_tbl);
619
620 -- copy data back from the local variables to OUT or IN-OUT args, if any
621
622
623
624
625
626
627 end;
628
629 end okl_misc_trans_pvt_w;