[Home] [Help]
PACKAGE BODY: APPS.OKL_MISC_TRANS_PUB_W
Source
1 package body okl_misc_trans_pub_w as
2 /* $Header: OKLUMSCB.pls 120.2 2005/10/30 04:48:52 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 create_misc_dstr_line(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy NUMBER
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy NUMBER
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy NUMBER
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy NUMBER
39 , p6_a12 out nocopy VARCHAR2
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy VARCHAR2
42 , p6_a15 out nocopy VARCHAR2
43 , p6_a16 out nocopy VARCHAR2
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy VARCHAR2
51 , p6_a24 out nocopy VARCHAR2
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy VARCHAR2
55 , p6_a28 out nocopy VARCHAR2
56 , p6_a29 out nocopy VARCHAR2
57 , p6_a30 out nocopy VARCHAR2
58 , p6_a31 out nocopy NUMBER
59 , p6_a32 out nocopy DATE
60 , p6_a33 out nocopy NUMBER
61 , p6_a34 out nocopy DATE
62 , p6_a35 out nocopy NUMBER
63 , p6_a36 out nocopy NUMBER
64 , p6_a37 out nocopy NUMBER
65 , p6_a38 out nocopy NUMBER
66 , p6_a39 out nocopy DATE
67 , p6_a40 out nocopy NUMBER
68 , p6_a41 out nocopy NUMBER
69 , p6_a42 out nocopy NUMBER
70 , p6_a43 out nocopy NUMBER
71 , p6_a44 out nocopy NUMBER
72 , p6_a45 out nocopy VARCHAR2
73 , p5_a0 NUMBER := 0-1962.0724
74 , p5_a1 NUMBER := 0-1962.0724
75 , p5_a2 NUMBER := 0-1962.0724
76 , p5_a3 NUMBER := 0-1962.0724
77 , p5_a4 NUMBER := 0-1962.0724
78 , p5_a5 NUMBER := 0-1962.0724
79 , p5_a6 NUMBER := 0-1962.0724
80 , p5_a7 NUMBER := 0-1962.0724
81 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
82 , p5_a9 NUMBER := 0-1962.0724
83 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a11 NUMBER := 0-1962.0724
85 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
86 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
87 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
88 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
89 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
90 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
91 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
92 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
94 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
95 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
96 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
97 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
98 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
99 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
103 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
104 , p5_a31 NUMBER := 0-1962.0724
105 , p5_a32 DATE := fnd_api.g_miss_date
106 , p5_a33 NUMBER := 0-1962.0724
107 , p5_a34 DATE := fnd_api.g_miss_date
108 , p5_a35 NUMBER := 0-1962.0724
109 , p5_a36 NUMBER := 0-1962.0724
110 , p5_a37 NUMBER := 0-1962.0724
111 , p5_a38 NUMBER := 0-1962.0724
112 , p5_a39 DATE := fnd_api.g_miss_date
113 , p5_a40 NUMBER := 0-1962.0724
114 , p5_a41 NUMBER := 0-1962.0724
115 , p5_a42 NUMBER := 0-1962.0724
116 , p5_a43 NUMBER := 0-1962.0724
117 , p5_a44 NUMBER := 0-1962.0724
118 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
119 )
120
121 as
122 ddp_tclv_rec okl_misc_trans_pub.tclv_rec_type;
123 ddx_tclv_rec okl_misc_trans_pub.tclv_rec_type;
124 ddindx binary_integer; indx binary_integer;
125 begin
126
127 -- copy data to the local IN or IN-OUT args, if any
128
129
130
131
132
133 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
134 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
135 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
136 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
137 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
138 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
139 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
140 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
141 ddp_tclv_rec.before_transfer_yn := p5_a8;
142 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
143 ddp_tclv_rec.description := p5_a10;
144 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
145 ddp_tclv_rec.currency_code := p5_a12;
146 ddp_tclv_rec.gl_reversal_yn := p5_a13;
147 ddp_tclv_rec.attribute_category := p5_a14;
148 ddp_tclv_rec.attribute1 := p5_a15;
149 ddp_tclv_rec.attribute2 := p5_a16;
150 ddp_tclv_rec.attribute3 := p5_a17;
151 ddp_tclv_rec.attribute4 := p5_a18;
152 ddp_tclv_rec.attribute5 := p5_a19;
153 ddp_tclv_rec.attribute6 := p5_a20;
154 ddp_tclv_rec.attribute7 := p5_a21;
155 ddp_tclv_rec.attribute8 := p5_a22;
156 ddp_tclv_rec.attribute9 := p5_a23;
157 ddp_tclv_rec.attribute10 := p5_a24;
158 ddp_tclv_rec.attribute11 := p5_a25;
159 ddp_tclv_rec.attribute12 := p5_a26;
160 ddp_tclv_rec.attribute13 := p5_a27;
161 ddp_tclv_rec.attribute14 := p5_a28;
162 ddp_tclv_rec.attribute15 := p5_a29;
163 ddp_tclv_rec.tcl_type := p5_a30;
164 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
165 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
166 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
167 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
168 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
169 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
170 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
171 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
172 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
173 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
174 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
175 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
176 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
177 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
178 ddp_tclv_rec.accrual_rule_yn := p5_a45;
179
180
181 -- here's the delegated call to the old PL/SQL routine
182 okl_misc_trans_pub.create_misc_dstr_line(p_api_version,
183 p_init_msg_list,
184 x_return_status,
185 x_msg_count,
186 x_msg_data,
187 ddp_tclv_rec,
188 ddx_tclv_rec);
189
190 -- copy data back from the local variables to OUT or IN-OUT args, if any
191
192
193
194
195
196
197 p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
198 p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
199 p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
200 p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
201 p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
202 p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
203 p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
204 p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
205 p6_a8 := ddx_tclv_rec.before_transfer_yn;
206 p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
207 p6_a10 := ddx_tclv_rec.description;
208 p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
209 p6_a12 := ddx_tclv_rec.currency_code;
210 p6_a13 := ddx_tclv_rec.gl_reversal_yn;
211 p6_a14 := ddx_tclv_rec.attribute_category;
212 p6_a15 := ddx_tclv_rec.attribute1;
213 p6_a16 := ddx_tclv_rec.attribute2;
214 p6_a17 := ddx_tclv_rec.attribute3;
215 p6_a18 := ddx_tclv_rec.attribute4;
216 p6_a19 := ddx_tclv_rec.attribute5;
217 p6_a20 := ddx_tclv_rec.attribute6;
218 p6_a21 := ddx_tclv_rec.attribute7;
219 p6_a22 := ddx_tclv_rec.attribute8;
220 p6_a23 := ddx_tclv_rec.attribute9;
221 p6_a24 := ddx_tclv_rec.attribute10;
222 p6_a25 := ddx_tclv_rec.attribute11;
223 p6_a26 := ddx_tclv_rec.attribute12;
224 p6_a27 := ddx_tclv_rec.attribute13;
225 p6_a28 := ddx_tclv_rec.attribute14;
226 p6_a29 := ddx_tclv_rec.attribute15;
227 p6_a30 := ddx_tclv_rec.tcl_type;
228 p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
229 p6_a32 := ddx_tclv_rec.creation_date;
230 p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
231 p6_a34 := ddx_tclv_rec.last_update_date;
232 p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
233 p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
234 p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
235 p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
236 p6_a39 := ddx_tclv_rec.program_update_date;
237 p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
238 p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
239 p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
240 p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
241 p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
242 p6_a45 := ddx_tclv_rec.accrual_rule_yn;
243 end;
244
245 procedure create_misc_transaction(p_api_version NUMBER
246 , p_init_msg_list VARCHAR2
247 , x_return_status out nocopy VARCHAR2
248 , x_msg_count out nocopy NUMBER
249 , x_msg_data out nocopy VARCHAR2
250 , p6_a0 JTF_NUMBER_TABLE
251 , p6_a1 JTF_NUMBER_TABLE
252 , p6_a2 JTF_NUMBER_TABLE
253 , p6_a3 JTF_NUMBER_TABLE
254 , p6_a4 JTF_VARCHAR2_TABLE_2000
255 , p6_a5 JTF_NUMBER_TABLE
256 , p6_a6 JTF_NUMBER_TABLE
257 , p6_a7 JTF_VARCHAR2_TABLE_200
258 , p6_a8 JTF_NUMBER_TABLE
259 , p7_a0 out nocopy NUMBER
260 , p7_a1 out nocopy NUMBER
261 , p7_a2 out nocopy NUMBER
262 , p7_a3 out nocopy NUMBER
263 , p7_a4 out nocopy VARCHAR2
264 , p7_a5 out nocopy VARCHAR2
265 , p7_a6 out nocopy VARCHAR2
266 , p7_a7 out nocopy VARCHAR2
267 , p7_a8 out nocopy DATE
268 , p5_a0 NUMBER := 0-1962.0724
269 , p5_a1 NUMBER := 0-1962.0724
270 , p5_a2 NUMBER := 0-1962.0724
271 , p5_a3 NUMBER := 0-1962.0724
272 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
273 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
275 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a8 DATE := fnd_api.g_miss_date
277 )
278
279 as
280 ddp_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
281 ddp_jrnl_line_tbl okl_misc_trans_pvt.jrnl_line_tbl_type;
282 ddx_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
283 ddindx binary_integer; indx binary_integer;
284 begin
285
286 -- copy data to the local IN or IN-OUT args, if any
287
288
289
290
291
292 ddp_jrnl_hdr_rec.id := rosetta_g_miss_num_map(p5_a0);
293 ddp_jrnl_hdr_rec.khr_id := rosetta_g_miss_num_map(p5_a1);
294 ddp_jrnl_hdr_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
295 ddp_jrnl_hdr_rec.amount := rosetta_g_miss_num_map(p5_a3);
296 ddp_jrnl_hdr_rec.tsu_code := p5_a4;
297 ddp_jrnl_hdr_rec.currency_code := p5_a5;
298 ddp_jrnl_hdr_rec.trx_number := p5_a6;
299 ddp_jrnl_hdr_rec.description := p5_a7;
300 ddp_jrnl_hdr_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a8);
301
302 okl_misc_trans_pvt_w.rosetta_table_copy_in_p14(ddp_jrnl_line_tbl, p6_a0
303 , p6_a1
304 , p6_a2
305 , p6_a3
306 , p6_a4
307 , p6_a5
308 , p6_a6
309 , p6_a7
310 , p6_a8
311 );
312
313
314 -- here's the delegated call to the old PL/SQL routine
315 okl_misc_trans_pub.create_misc_transaction(p_api_version,
316 p_init_msg_list,
317 x_return_status,
318 x_msg_count,
319 x_msg_data,
320 ddp_jrnl_hdr_rec,
321 ddp_jrnl_line_tbl,
322 ddx_jrnl_hdr_rec);
323
324 -- copy data back from the local variables to OUT or IN-OUT args, if any
325
326
327
328
329
330
331
332 p7_a0 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.id);
333 p7_a1 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.khr_id);
334 p7_a2 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.pdt_id);
335 p7_a3 := rosetta_g_miss_num_map(ddx_jrnl_hdr_rec.amount);
336 p7_a4 := ddx_jrnl_hdr_rec.tsu_code;
337 p7_a5 := ddx_jrnl_hdr_rec.currency_code;
338 p7_a6 := ddx_jrnl_hdr_rec.trx_number;
339 p7_a7 := ddx_jrnl_hdr_rec.description;
340 p7_a8 := ddx_jrnl_hdr_rec.date_transaction_occurred;
341 end;
342
343 procedure update_misc_transaction(p_api_version NUMBER
344 , p_init_msg_list VARCHAR2
345 , x_return_status out nocopy VARCHAR2
346 , x_msg_count out nocopy NUMBER
347 , x_msg_data out nocopy VARCHAR2
348 , p6_a0 JTF_NUMBER_TABLE
349 , p6_a1 JTF_NUMBER_TABLE
350 , p6_a2 JTF_NUMBER_TABLE
351 , p6_a3 JTF_NUMBER_TABLE
352 , p6_a4 JTF_VARCHAR2_TABLE_2000
353 , p6_a5 JTF_NUMBER_TABLE
354 , p6_a6 JTF_NUMBER_TABLE
355 , p6_a7 JTF_VARCHAR2_TABLE_200
356 , p6_a8 JTF_NUMBER_TABLE
357 , p5_a0 NUMBER := 0-1962.0724
358 , p5_a1 NUMBER := 0-1962.0724
359 , p5_a2 NUMBER := 0-1962.0724
360 , p5_a3 NUMBER := 0-1962.0724
361 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
362 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
363 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
364 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
365 , p5_a8 DATE := fnd_api.g_miss_date
366 )
367
368 as
369 ddp_jrnl_hdr_rec okl_misc_trans_pvt.jrnl_hdr_rec_type;
370 ddp_jrnl_line_tbl okl_misc_trans_pvt.jrnl_line_tbl_type;
371 ddindx binary_integer; indx binary_integer;
372 begin
373
374 -- copy data to the local IN or IN-OUT args, if any
375
376
377
378
379
380 ddp_jrnl_hdr_rec.id := rosetta_g_miss_num_map(p5_a0);
381 ddp_jrnl_hdr_rec.khr_id := rosetta_g_miss_num_map(p5_a1);
382 ddp_jrnl_hdr_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
383 ddp_jrnl_hdr_rec.amount := rosetta_g_miss_num_map(p5_a3);
384 ddp_jrnl_hdr_rec.tsu_code := p5_a4;
385 ddp_jrnl_hdr_rec.currency_code := p5_a5;
386 ddp_jrnl_hdr_rec.trx_number := p5_a6;
387 ddp_jrnl_hdr_rec.description := p5_a7;
388 ddp_jrnl_hdr_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a8);
389
390 okl_misc_trans_pvt_w.rosetta_table_copy_in_p14(ddp_jrnl_line_tbl, p6_a0
391 , p6_a1
392 , p6_a2
393 , p6_a3
394 , p6_a4
395 , p6_a5
396 , p6_a6
397 , p6_a7
398 , p6_a8
399 );
400
401 -- here's the delegated call to the old PL/SQL routine
402 okl_misc_trans_pub.update_misc_transaction(p_api_version,
403 p_init_msg_list,
404 x_return_status,
405 x_msg_count,
406 x_msg_data,
407 ddp_jrnl_hdr_rec,
408 ddp_jrnl_line_tbl);
409
410 -- copy data back from the local variables to OUT or IN-OUT args, if any
411
412
413
414
415
416
417 end;
418
419 end okl_misc_trans_pub_w;