eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
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;