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_OVERRIDE_TAX_BASIS_PUB_W

Source


1 package body okl_override_tax_basis_pub_w as
2   /* $Header: OKLUOTBB.pls 120.0 2005/08/24 14:33:30 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 override_tax_basis(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  DATE
34     , p6_a7 out nocopy  VARCHAR2
35     , p6_a8 out nocopy  VARCHAR2
36     , p6_a9 out nocopy  VARCHAR2
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  NUMBER
51     , p6_a24 out nocopy  DATE
52     , p6_a25 out nocopy  NUMBER
53     , p6_a26 out nocopy  DATE
54     , p6_a27 out nocopy  NUMBER
55     , p6_a28 out nocopy  NUMBER
56     , p5_a0  NUMBER := 0-1962.0724
57     , p5_a1  NUMBER := 0-1962.0724
58     , p5_a2  NUMBER := 0-1962.0724
59     , p5_a3  NUMBER := 0-1962.0724
60     , p5_a4  NUMBER := 0-1962.0724
61     , p5_a5  NUMBER := 0-1962.0724
62     , p5_a6  DATE := fnd_api.g_miss_date
63     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
64     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
65     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
66     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
67     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
68     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
69     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
70     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
71     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
72     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
73     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
74     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
75     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
76     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
77     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
78     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
79     , p5_a23  NUMBER := 0-1962.0724
80     , p5_a24  DATE := fnd_api.g_miss_date
81     , p5_a25  NUMBER := 0-1962.0724
82     , p5_a26  DATE := fnd_api.g_miss_date
83     , p5_a27  NUMBER := 0-1962.0724
84     , p5_a28  NUMBER := 0-1962.0724
85   )
86 
87   as
88     ddp_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
89     ddx_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
90     ddindx binary_integer; indx binary_integer;
91   begin
92 
93     -- copy data to the local IN or IN-OUT args, if any
94 
95 
96 
97 
98 
99     ddp_tbov_rec.try_id := rosetta_g_miss_num_map(p5_a0);
100     ddp_tbov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
101     ddp_tbov_rec.fma_id := rosetta_g_miss_num_map(p5_a2);
102     ddp_tbov_rec.program_id := rosetta_g_miss_num_map(p5_a3);
103     ddp_tbov_rec.request_id := rosetta_g_miss_num_map(p5_a4);
104     ddp_tbov_rec.program_application_id := rosetta_g_miss_num_map(p5_a5);
105     ddp_tbov_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a6);
106     ddp_tbov_rec.attribute_category := p5_a7;
107     ddp_tbov_rec.attribute1 := p5_a8;
108     ddp_tbov_rec.attribute2 := p5_a9;
109     ddp_tbov_rec.attribute3 := p5_a10;
110     ddp_tbov_rec.attribute4 := p5_a11;
111     ddp_tbov_rec.attribute5 := p5_a12;
112     ddp_tbov_rec.attribute6 := p5_a13;
113     ddp_tbov_rec.attribute7 := p5_a14;
114     ddp_tbov_rec.attribute8 := p5_a15;
115     ddp_tbov_rec.attribute9 := p5_a16;
116     ddp_tbov_rec.attribute10 := p5_a17;
117     ddp_tbov_rec.attribute11 := p5_a18;
118     ddp_tbov_rec.attribute12 := p5_a19;
119     ddp_tbov_rec.attribute13 := p5_a20;
120     ddp_tbov_rec.attribute14 := p5_a21;
121     ddp_tbov_rec.attribute15 := p5_a22;
122     ddp_tbov_rec.created_by := rosetta_g_miss_num_map(p5_a23);
123     ddp_tbov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a24);
124     ddp_tbov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
125     ddp_tbov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a26);
126     ddp_tbov_rec.last_update_login := rosetta_g_miss_num_map(p5_a27);
127     ddp_tbov_rec.object_version_number := rosetta_g_miss_num_map(p5_a28);
128 
129 
130     -- here's the delegated call to the old PL/SQL routine
131     okl_override_tax_basis_pub.override_tax_basis(p_api_version,
132       p_init_msg_list,
133       x_return_status,
134       x_msg_count,
135       x_msg_data,
136       ddp_tbov_rec,
137       ddx_tbov_rec);
138 
139     -- copy data back from the local variables to OUT or IN-OUT args, if any
140 
141 
142 
143 
144 
145 
146     p6_a0 := rosetta_g_miss_num_map(ddx_tbov_rec.try_id);
147     p6_a1 := rosetta_g_miss_num_map(ddx_tbov_rec.org_id);
148     p6_a2 := rosetta_g_miss_num_map(ddx_tbov_rec.fma_id);
149     p6_a3 := rosetta_g_miss_num_map(ddx_tbov_rec.program_id);
150     p6_a4 := rosetta_g_miss_num_map(ddx_tbov_rec.request_id);
151     p6_a5 := rosetta_g_miss_num_map(ddx_tbov_rec.program_application_id);
152     p6_a6 := ddx_tbov_rec.program_update_date;
153     p6_a7 := ddx_tbov_rec.attribute_category;
154     p6_a8 := ddx_tbov_rec.attribute1;
155     p6_a9 := ddx_tbov_rec.attribute2;
156     p6_a10 := ddx_tbov_rec.attribute3;
157     p6_a11 := ddx_tbov_rec.attribute4;
158     p6_a12 := ddx_tbov_rec.attribute5;
159     p6_a13 := ddx_tbov_rec.attribute6;
160     p6_a14 := ddx_tbov_rec.attribute7;
161     p6_a15 := ddx_tbov_rec.attribute8;
162     p6_a16 := ddx_tbov_rec.attribute9;
163     p6_a17 := ddx_tbov_rec.attribute10;
164     p6_a18 := ddx_tbov_rec.attribute11;
165     p6_a19 := ddx_tbov_rec.attribute12;
166     p6_a20 := ddx_tbov_rec.attribute13;
167     p6_a21 := ddx_tbov_rec.attribute14;
168     p6_a22 := ddx_tbov_rec.attribute15;
169     p6_a23 := rosetta_g_miss_num_map(ddx_tbov_rec.created_by);
170     p6_a24 := ddx_tbov_rec.creation_date;
171     p6_a25 := rosetta_g_miss_num_map(ddx_tbov_rec.last_updated_by);
172     p6_a26 := ddx_tbov_rec.last_update_date;
173     p6_a27 := rosetta_g_miss_num_map(ddx_tbov_rec.last_update_login);
174     p6_a28 := rosetta_g_miss_num_map(ddx_tbov_rec.object_version_number);
175   end;
176 
177   procedure override_tax_basis(p_api_version  NUMBER
178     , p_init_msg_list  VARCHAR2
179     , x_return_status out nocopy  VARCHAR2
180     , x_msg_count out nocopy  NUMBER
181     , x_msg_data out nocopy  VARCHAR2
182     , p5_a0 JTF_NUMBER_TABLE
183     , p5_a1 JTF_NUMBER_TABLE
184     , p5_a2 JTF_NUMBER_TABLE
185     , p5_a3 JTF_NUMBER_TABLE
186     , p5_a4 JTF_NUMBER_TABLE
187     , p5_a5 JTF_NUMBER_TABLE
188     , p5_a6 JTF_DATE_TABLE
189     , p5_a7 JTF_VARCHAR2_TABLE_100
190     , p5_a8 JTF_VARCHAR2_TABLE_500
191     , p5_a9 JTF_VARCHAR2_TABLE_500
192     , p5_a10 JTF_VARCHAR2_TABLE_500
193     , p5_a11 JTF_VARCHAR2_TABLE_500
194     , p5_a12 JTF_VARCHAR2_TABLE_500
195     , p5_a13 JTF_VARCHAR2_TABLE_500
196     , p5_a14 JTF_VARCHAR2_TABLE_500
197     , p5_a15 JTF_VARCHAR2_TABLE_500
198     , p5_a16 JTF_VARCHAR2_TABLE_500
199     , p5_a17 JTF_VARCHAR2_TABLE_500
200     , p5_a18 JTF_VARCHAR2_TABLE_500
201     , p5_a19 JTF_VARCHAR2_TABLE_500
202     , p5_a20 JTF_VARCHAR2_TABLE_500
203     , p5_a21 JTF_VARCHAR2_TABLE_500
204     , p5_a22 JTF_VARCHAR2_TABLE_500
205     , p5_a23 JTF_NUMBER_TABLE
206     , p5_a24 JTF_DATE_TABLE
207     , p5_a25 JTF_NUMBER_TABLE
208     , p5_a26 JTF_DATE_TABLE
209     , p5_a27 JTF_NUMBER_TABLE
210     , p5_a28 JTF_NUMBER_TABLE
211     , p6_a0 out nocopy JTF_NUMBER_TABLE
212     , p6_a1 out nocopy JTF_NUMBER_TABLE
213     , p6_a2 out nocopy JTF_NUMBER_TABLE
214     , p6_a3 out nocopy JTF_NUMBER_TABLE
215     , p6_a4 out nocopy JTF_NUMBER_TABLE
216     , p6_a5 out nocopy JTF_NUMBER_TABLE
217     , p6_a6 out nocopy JTF_DATE_TABLE
218     , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
219     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
220     , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
221     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
222     , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
223     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
224     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
225     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
226     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
227     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
228     , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
229     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
230     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
231     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
232     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
233     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
234     , p6_a23 out nocopy JTF_NUMBER_TABLE
235     , p6_a24 out nocopy JTF_DATE_TABLE
236     , p6_a25 out nocopy JTF_NUMBER_TABLE
237     , p6_a26 out nocopy JTF_DATE_TABLE
238     , p6_a27 out nocopy JTF_NUMBER_TABLE
239     , p6_a28 out nocopy JTF_NUMBER_TABLE
240   )
241 
242   as
243     ddp_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
244     ddx_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
245     ddindx binary_integer; indx binary_integer;
246   begin
247 
248     -- copy data to the local IN or IN-OUT args, if any
249 
250 
251 
252 
253 
254     okl_tbo_pvt_w.rosetta_table_copy_in_p2(ddp_tbov_tbl, p5_a0
255       , p5_a1
256       , p5_a2
257       , p5_a3
258       , p5_a4
259       , p5_a5
260       , p5_a6
261       , p5_a7
262       , p5_a8
263       , p5_a9
264       , p5_a10
265       , p5_a11
266       , p5_a12
267       , p5_a13
268       , p5_a14
269       , p5_a15
270       , p5_a16
271       , p5_a17
272       , p5_a18
273       , p5_a19
274       , p5_a20
275       , p5_a21
276       , p5_a22
277       , p5_a23
278       , p5_a24
279       , p5_a25
280       , p5_a26
281       , p5_a27
282       , p5_a28
283       );
284 
285 
286     -- here's the delegated call to the old PL/SQL routine
287     okl_override_tax_basis_pub.override_tax_basis(p_api_version,
288       p_init_msg_list,
289       x_return_status,
290       x_msg_count,
291       x_msg_data,
292       ddp_tbov_tbl,
293       ddx_tbov_tbl);
294 
295     -- copy data back from the local variables to OUT or IN-OUT args, if any
296 
297 
298 
299 
300 
301 
302     okl_tbo_pvt_w.rosetta_table_copy_out_p2(ddx_tbov_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       , p6_a9
312       , p6_a10
313       , p6_a11
314       , p6_a12
315       , p6_a13
316       , p6_a14
317       , p6_a15
318       , p6_a16
319       , p6_a17
320       , p6_a18
321       , p6_a19
322       , p6_a20
323       , p6_a21
324       , p6_a22
325       , p6_a23
326       , p6_a24
327       , p6_a25
328       , p6_a26
329       , p6_a27
330       , p6_a28
331       );
332   end;
333 
334 end okl_override_tax_basis_pub_w;