[Home] [Help]
PACKAGE BODY: APPS.OKL_TRANS_ACCT_OPT_PUB_W
Source
1 package body okl_trans_acct_opt_pub_w as
2 /* $Header: OKLUTACB.pls 120.1 2005/07/20 10:11:39 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_trx_acct_opt(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 NUMBER
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
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 NUMBER
54 , p6_a27 out nocopy NUMBER
55 , p6_a28 out nocopy DATE
56 , p6_a29 out nocopy NUMBER
57 , p6_a30 out nocopy DATE
58 , p6_a31 out nocopy NUMBER
59 , p6_a32 out nocopy VARCHAR2
60 , p5_a0 NUMBER := 0-1962.0724
61 , p5_a1 NUMBER := 0-1962.0724
62 , p5_a2 NUMBER := 0-1962.0724
63 , p5_a3 NUMBER := 0-1962.0724
64 , p5_a4 NUMBER := 0-1962.0724
65 , p5_a5 NUMBER := 0-1962.0724
66 , p5_a6 NUMBER := 0-1962.0724
67 , p5_a7 NUMBER := 0-1962.0724
68 , p5_a8 NUMBER := 0-1962.0724
69 , p5_a9 NUMBER := 0-1962.0724
70 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
71 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
72 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
73 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
74 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
76 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
77 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
78 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
79 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
80 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
81 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
82 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
83 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
85 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
86 , p5_a26 NUMBER := 0-1962.0724
87 , p5_a27 NUMBER := 0-1962.0724
88 , p5_a28 DATE := fnd_api.g_miss_date
89 , p5_a29 NUMBER := 0-1962.0724
90 , p5_a30 DATE := fnd_api.g_miss_date
91 , p5_a31 NUMBER := 0-1962.0724
92 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
93 )
94
95 as
96 ddp_taov_rec okl_trans_acct_opt_pub.taov_rec_type;
97 ddx_taov_rec okl_trans_acct_opt_pub.taov_rec_type;
98 ddindx binary_integer; indx binary_integer;
99 begin
100
101 -- copy data to the local IN or IN-OUT args, if any
102
103
104
105
106
107 ddp_taov_rec.id := rosetta_g_miss_num_map(p5_a0);
108 ddp_taov_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
109 ddp_taov_rec.try_id := rosetta_g_miss_num_map(p5_a2);
110 ddp_taov_rec.unearned_ccid := rosetta_g_miss_num_map(p5_a3);
111 ddp_taov_rec.rev_ccid := rosetta_g_miss_num_map(p5_a4);
112 ddp_taov_rec.freight_ccid := rosetta_g_miss_num_map(p5_a5);
113 ddp_taov_rec.rec_ccid := rosetta_g_miss_num_map(p5_a6);
114 ddp_taov_rec.clearing_ccid := rosetta_g_miss_num_map(p5_a7);
115 ddp_taov_rec.tax_ccid := rosetta_g_miss_num_map(p5_a8);
116 ddp_taov_rec.unbilled_ccid := rosetta_g_miss_num_map(p5_a9);
117 ddp_taov_rec.attribute_category := p5_a10;
118 ddp_taov_rec.attribute1 := p5_a11;
119 ddp_taov_rec.attribute2 := p5_a12;
120 ddp_taov_rec.attribute3 := p5_a13;
121 ddp_taov_rec.attribute4 := p5_a14;
122 ddp_taov_rec.attribute5 := p5_a15;
123 ddp_taov_rec.attribute6 := p5_a16;
124 ddp_taov_rec.attribute7 := p5_a17;
125 ddp_taov_rec.attribute8 := p5_a18;
126 ddp_taov_rec.attribute9 := p5_a19;
127 ddp_taov_rec.attribute10 := p5_a20;
128 ddp_taov_rec.attribute11 := p5_a21;
129 ddp_taov_rec.attribute12 := p5_a22;
130 ddp_taov_rec.attribute13 := p5_a23;
131 ddp_taov_rec.attribute14 := p5_a24;
132 ddp_taov_rec.attribute15 := p5_a25;
133 ddp_taov_rec.org_id := rosetta_g_miss_num_map(p5_a26);
134 ddp_taov_rec.created_by := rosetta_g_miss_num_map(p5_a27);
135 ddp_taov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
136 ddp_taov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
137 ddp_taov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
138 ddp_taov_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
139 ddp_taov_rec.post_to_gl_yn := p5_a32;
140
141
142 -- here's the delegated call to the old PL/SQL routine
143 okl_trans_acct_opt_pub.get_trx_acct_opt(p_api_version,
144 p_init_msg_list,
145 x_return_status,
146 x_msg_count,
147 x_msg_data,
148 ddp_taov_rec,
149 ddx_taov_rec);
150
151 -- copy data back from the local variables to OUT or IN-OUT args, if any
152
153
154
155
156
157
158 p6_a0 := rosetta_g_miss_num_map(ddx_taov_rec.id);
159 p6_a1 := rosetta_g_miss_num_map(ddx_taov_rec.object_version_number);
160 p6_a2 := rosetta_g_miss_num_map(ddx_taov_rec.try_id);
161 p6_a3 := rosetta_g_miss_num_map(ddx_taov_rec.unearned_ccid);
162 p6_a4 := rosetta_g_miss_num_map(ddx_taov_rec.rev_ccid);
163 p6_a5 := rosetta_g_miss_num_map(ddx_taov_rec.freight_ccid);
164 p6_a6 := rosetta_g_miss_num_map(ddx_taov_rec.rec_ccid);
165 p6_a7 := rosetta_g_miss_num_map(ddx_taov_rec.clearing_ccid);
166 p6_a8 := rosetta_g_miss_num_map(ddx_taov_rec.tax_ccid);
167 p6_a9 := rosetta_g_miss_num_map(ddx_taov_rec.unbilled_ccid);
168 p6_a10 := ddx_taov_rec.attribute_category;
169 p6_a11 := ddx_taov_rec.attribute1;
170 p6_a12 := ddx_taov_rec.attribute2;
171 p6_a13 := ddx_taov_rec.attribute3;
172 p6_a14 := ddx_taov_rec.attribute4;
173 p6_a15 := ddx_taov_rec.attribute5;
174 p6_a16 := ddx_taov_rec.attribute6;
175 p6_a17 := ddx_taov_rec.attribute7;
176 p6_a18 := ddx_taov_rec.attribute8;
177 p6_a19 := ddx_taov_rec.attribute9;
178 p6_a20 := ddx_taov_rec.attribute10;
179 p6_a21 := ddx_taov_rec.attribute11;
180 p6_a22 := ddx_taov_rec.attribute12;
181 p6_a23 := ddx_taov_rec.attribute13;
182 p6_a24 := ddx_taov_rec.attribute14;
183 p6_a25 := ddx_taov_rec.attribute15;
184 p6_a26 := rosetta_g_miss_num_map(ddx_taov_rec.org_id);
185 p6_a27 := rosetta_g_miss_num_map(ddx_taov_rec.created_by);
186 p6_a28 := ddx_taov_rec.creation_date;
187 p6_a29 := rosetta_g_miss_num_map(ddx_taov_rec.last_updated_by);
188 p6_a30 := ddx_taov_rec.last_update_date;
189 p6_a31 := rosetta_g_miss_num_map(ddx_taov_rec.last_update_login);
190 p6_a32 := ddx_taov_rec.post_to_gl_yn;
191 end;
192
193 procedure updt_trx_acct_opt(p_api_version NUMBER
194 , p_init_msg_list VARCHAR2
195 , x_return_status out nocopy VARCHAR2
196 , x_msg_count out nocopy NUMBER
197 , x_msg_data out nocopy VARCHAR2
198 , p6_a0 out nocopy NUMBER
199 , p6_a1 out nocopy NUMBER
200 , p6_a2 out nocopy NUMBER
201 , p6_a3 out nocopy NUMBER
202 , p6_a4 out nocopy NUMBER
203 , p6_a5 out nocopy NUMBER
204 , p6_a6 out nocopy NUMBER
205 , p6_a7 out nocopy NUMBER
206 , p6_a8 out nocopy NUMBER
207 , p6_a9 out nocopy NUMBER
208 , p6_a10 out nocopy VARCHAR2
209 , p6_a11 out nocopy VARCHAR2
210 , p6_a12 out nocopy VARCHAR2
211 , p6_a13 out nocopy VARCHAR2
212 , p6_a14 out nocopy VARCHAR2
213 , p6_a15 out nocopy VARCHAR2
214 , p6_a16 out nocopy VARCHAR2
215 , p6_a17 out nocopy VARCHAR2
216 , p6_a18 out nocopy VARCHAR2
217 , p6_a19 out nocopy VARCHAR2
218 , p6_a20 out nocopy VARCHAR2
219 , p6_a21 out nocopy VARCHAR2
220 , p6_a22 out nocopy VARCHAR2
221 , p6_a23 out nocopy VARCHAR2
222 , p6_a24 out nocopy VARCHAR2
223 , p6_a25 out nocopy VARCHAR2
224 , p6_a26 out nocopy NUMBER
225 , p6_a27 out nocopy NUMBER
226 , p6_a28 out nocopy DATE
227 , p6_a29 out nocopy NUMBER
228 , p6_a30 out nocopy DATE
229 , p6_a31 out nocopy NUMBER
230 , p6_a32 out nocopy VARCHAR2
231 , p5_a0 NUMBER := 0-1962.0724
232 , p5_a1 NUMBER := 0-1962.0724
233 , p5_a2 NUMBER := 0-1962.0724
234 , p5_a3 NUMBER := 0-1962.0724
235 , p5_a4 NUMBER := 0-1962.0724
236 , p5_a5 NUMBER := 0-1962.0724
237 , p5_a6 NUMBER := 0-1962.0724
238 , p5_a7 NUMBER := 0-1962.0724
239 , p5_a8 NUMBER := 0-1962.0724
240 , p5_a9 NUMBER := 0-1962.0724
241 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
242 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
243 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
244 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
245 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
246 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
247 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
248 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
249 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
250 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
251 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
252 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
253 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
254 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
255 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
256 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
257 , p5_a26 NUMBER := 0-1962.0724
258 , p5_a27 NUMBER := 0-1962.0724
259 , p5_a28 DATE := fnd_api.g_miss_date
260 , p5_a29 NUMBER := 0-1962.0724
261 , p5_a30 DATE := fnd_api.g_miss_date
262 , p5_a31 NUMBER := 0-1962.0724
263 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
264 )
265
266 as
267 ddp_taov_rec okl_trans_acct_opt_pub.taov_rec_type;
268 ddx_taov_rec okl_trans_acct_opt_pub.taov_rec_type;
269 ddindx binary_integer; indx binary_integer;
270 begin
271
272 -- copy data to the local IN or IN-OUT args, if any
273
274
275
276
277
278 ddp_taov_rec.id := rosetta_g_miss_num_map(p5_a0);
279 ddp_taov_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
280 ddp_taov_rec.try_id := rosetta_g_miss_num_map(p5_a2);
281 ddp_taov_rec.unearned_ccid := rosetta_g_miss_num_map(p5_a3);
282 ddp_taov_rec.rev_ccid := rosetta_g_miss_num_map(p5_a4);
283 ddp_taov_rec.freight_ccid := rosetta_g_miss_num_map(p5_a5);
284 ddp_taov_rec.rec_ccid := rosetta_g_miss_num_map(p5_a6);
285 ddp_taov_rec.clearing_ccid := rosetta_g_miss_num_map(p5_a7);
286 ddp_taov_rec.tax_ccid := rosetta_g_miss_num_map(p5_a8);
287 ddp_taov_rec.unbilled_ccid := rosetta_g_miss_num_map(p5_a9);
288 ddp_taov_rec.attribute_category := p5_a10;
289 ddp_taov_rec.attribute1 := p5_a11;
290 ddp_taov_rec.attribute2 := p5_a12;
291 ddp_taov_rec.attribute3 := p5_a13;
292 ddp_taov_rec.attribute4 := p5_a14;
293 ddp_taov_rec.attribute5 := p5_a15;
294 ddp_taov_rec.attribute6 := p5_a16;
295 ddp_taov_rec.attribute7 := p5_a17;
296 ddp_taov_rec.attribute8 := p5_a18;
297 ddp_taov_rec.attribute9 := p5_a19;
298 ddp_taov_rec.attribute10 := p5_a20;
299 ddp_taov_rec.attribute11 := p5_a21;
300 ddp_taov_rec.attribute12 := p5_a22;
301 ddp_taov_rec.attribute13 := p5_a23;
302 ddp_taov_rec.attribute14 := p5_a24;
303 ddp_taov_rec.attribute15 := p5_a25;
304 ddp_taov_rec.org_id := rosetta_g_miss_num_map(p5_a26);
305 ddp_taov_rec.created_by := rosetta_g_miss_num_map(p5_a27);
306 ddp_taov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
307 ddp_taov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
308 ddp_taov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
309 ddp_taov_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
310 ddp_taov_rec.post_to_gl_yn := p5_a32;
311
312
313 -- here's the delegated call to the old PL/SQL routine
314 okl_trans_acct_opt_pub.updt_trx_acct_opt(p_api_version,
315 p_init_msg_list,
316 x_return_status,
317 x_msg_count,
318 x_msg_data,
319 ddp_taov_rec,
320 ddx_taov_rec);
321
322 -- copy data back from the local variables to OUT or IN-OUT args, if any
323
324
325
326
327
328
329 p6_a0 := rosetta_g_miss_num_map(ddx_taov_rec.id);
330 p6_a1 := rosetta_g_miss_num_map(ddx_taov_rec.object_version_number);
331 p6_a2 := rosetta_g_miss_num_map(ddx_taov_rec.try_id);
332 p6_a3 := rosetta_g_miss_num_map(ddx_taov_rec.unearned_ccid);
333 p6_a4 := rosetta_g_miss_num_map(ddx_taov_rec.rev_ccid);
334 p6_a5 := rosetta_g_miss_num_map(ddx_taov_rec.freight_ccid);
335 p6_a6 := rosetta_g_miss_num_map(ddx_taov_rec.rec_ccid);
336 p6_a7 := rosetta_g_miss_num_map(ddx_taov_rec.clearing_ccid);
337 p6_a8 := rosetta_g_miss_num_map(ddx_taov_rec.tax_ccid);
338 p6_a9 := rosetta_g_miss_num_map(ddx_taov_rec.unbilled_ccid);
339 p6_a10 := ddx_taov_rec.attribute_category;
340 p6_a11 := ddx_taov_rec.attribute1;
341 p6_a12 := ddx_taov_rec.attribute2;
342 p6_a13 := ddx_taov_rec.attribute3;
343 p6_a14 := ddx_taov_rec.attribute4;
344 p6_a15 := ddx_taov_rec.attribute5;
345 p6_a16 := ddx_taov_rec.attribute6;
346 p6_a17 := ddx_taov_rec.attribute7;
347 p6_a18 := ddx_taov_rec.attribute8;
348 p6_a19 := ddx_taov_rec.attribute9;
349 p6_a20 := ddx_taov_rec.attribute10;
350 p6_a21 := ddx_taov_rec.attribute11;
351 p6_a22 := ddx_taov_rec.attribute12;
352 p6_a23 := ddx_taov_rec.attribute13;
353 p6_a24 := ddx_taov_rec.attribute14;
354 p6_a25 := ddx_taov_rec.attribute15;
355 p6_a26 := rosetta_g_miss_num_map(ddx_taov_rec.org_id);
356 p6_a27 := rosetta_g_miss_num_map(ddx_taov_rec.created_by);
357 p6_a28 := ddx_taov_rec.creation_date;
358 p6_a29 := rosetta_g_miss_num_map(ddx_taov_rec.last_updated_by);
359 p6_a30 := ddx_taov_rec.last_update_date;
360 p6_a31 := rosetta_g_miss_num_map(ddx_taov_rec.last_update_login);
361 p6_a32 := ddx_taov_rec.post_to_gl_yn;
362 end;
363
364 end okl_trans_acct_opt_pub_w;