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.JTF_TERR_JSP_REPORTS_W

Source


1 package body jtf_terr_jsp_reports_w as
2   /* $Header: jtfwjrpb.pls 120.0 2005/06/02 18:23:18 appldev ship $ */
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   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure rosetta_table_copy_in_p1(t OUT NOCOPY jtf_terr_jsp_reports.report_out_tbl_type, a0 JTF_VARCHAR2_TABLE_2000
23     , a1 JTF_VARCHAR2_TABLE_2000
24     , a2 JTF_VARCHAR2_TABLE_2000
25     , a3 JTF_VARCHAR2_TABLE_2000
26     , a4 JTF_VARCHAR2_TABLE_2000
27     , a5 JTF_VARCHAR2_TABLE_2000
28     , a6 JTF_VARCHAR2_TABLE_2000
29     , a7 JTF_VARCHAR2_TABLE_2000
30     , a8 JTF_VARCHAR2_TABLE_2000
31     , a9 JTF_VARCHAR2_TABLE_2000
32     , a10 JTF_VARCHAR2_TABLE_2000
33     , a11 JTF_VARCHAR2_TABLE_2000
34     , a12 JTF_VARCHAR2_TABLE_2000
35     , a13 JTF_VARCHAR2_TABLE_2000
36     , a14 JTF_VARCHAR2_TABLE_2000
37     , a15 JTF_VARCHAR2_TABLE_2000
38     , a16 JTF_VARCHAR2_TABLE_2000
39     , a17 JTF_VARCHAR2_TABLE_2000
40     , a18 JTF_VARCHAR2_TABLE_2000
41     , a19 JTF_VARCHAR2_TABLE_2000
42     ) as
43     ddindx binary_integer; indx binary_integer;
44   begin
45   if a0 is not null and a0.count=0 then
46     t := jtf_terr_jsp_reports.report_out_tbl_type();
47   elsif a0 is not null and a0.count > 0 then
48       if a0.count > 0 then
49       t := jtf_terr_jsp_reports.report_out_tbl_type();
50       t.extend(a0.count);
51         indx := a0.first;
52         ddindx := 1;
53         while true loop
54           t(ddindx).column1 := a0(indx);
55           t(ddindx).column2 := a1(indx);
56           t(ddindx).column3 := a2(indx);
57           t(ddindx).column4 := a3(indx);
58           t(ddindx).column5 := a4(indx);
59           t(ddindx).column6 := a5(indx);
60           t(ddindx).column7 := a6(indx);
61           t(ddindx).column8 := a7(indx);
62           t(ddindx).column9 := a8(indx);
63           t(ddindx).column10 := a9(indx);
64           t(ddindx).column11 := a10(indx);
65           t(ddindx).column12 := a11(indx);
66           t(ddindx).column13 := a12(indx);
67           t(ddindx).column14 := a13(indx);
68           t(ddindx).column15 := a14(indx);
69           t(ddindx).column16 := a15(indx);
70           t(ddindx).column17 := a16(indx);
71           t(ddindx).column18 := a17(indx);
72           t(ddindx).column19 := a18(indx);
73           t(ddindx).column20 := a19(indx);
74           ddindx := ddindx+1;
75           if a0.last =indx
76             then exit;
77           end if;
78           indx := a0.next(indx);
79         end loop;
80       end if;
81    end if;
82   end rosetta_table_copy_in_p1;
83   procedure rosetta_table_copy_out_p1(t jtf_terr_jsp_reports.report_out_tbl_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
84     , a1 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
85     , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
86     , a3 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
87     , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
88     , a5 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
89     , a6 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
90     , a7 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
91     , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
92     , a9 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
93     , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
94     , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
95     , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
96     , a13 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
97     , a14 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
98     , a15 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
99     , a16 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
100     , a17 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
101     , a18 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
102     , a19 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
103     ) as
104     ddindx binary_integer; indx binary_integer;
105   begin
106   if t is null then
107     a0 := null;
108     a1 := null;
109     a2 := null;
110     a3 := null;
111     a4 := null;
112     a5 := null;
113     a6 := null;
114     a7 := null;
115     a8 := null;
116     a9 := null;
117     a10 := null;
118     a11 := null;
119     a12 := null;
120     a13 := null;
121     a14 := null;
122     a15 := null;
123     a16 := null;
124     a17 := null;
125     a18 := null;
126     a19 := null;
127   elsif t.count = 0 then
128     a0 := JTF_VARCHAR2_TABLE_2000();
129     a1 := JTF_VARCHAR2_TABLE_2000();
130     a2 := JTF_VARCHAR2_TABLE_2000();
131     a3 := JTF_VARCHAR2_TABLE_2000();
132     a4 := JTF_VARCHAR2_TABLE_2000();
133     a5 := JTF_VARCHAR2_TABLE_2000();
134     a6 := JTF_VARCHAR2_TABLE_2000();
135     a7 := JTF_VARCHAR2_TABLE_2000();
136     a8 := JTF_VARCHAR2_TABLE_2000();
137     a9 := JTF_VARCHAR2_TABLE_2000();
138     a10 := JTF_VARCHAR2_TABLE_2000();
139     a11 := JTF_VARCHAR2_TABLE_2000();
140     a12 := JTF_VARCHAR2_TABLE_2000();
141     a13 := JTF_VARCHAR2_TABLE_2000();
142     a14 := JTF_VARCHAR2_TABLE_2000();
143     a15 := JTF_VARCHAR2_TABLE_2000();
144     a16 := JTF_VARCHAR2_TABLE_2000();
145     a17 := JTF_VARCHAR2_TABLE_2000();
146     a18 := JTF_VARCHAR2_TABLE_2000();
147     a19 := JTF_VARCHAR2_TABLE_2000();
148   else
149       a0 := JTF_VARCHAR2_TABLE_2000();
150       a1 := JTF_VARCHAR2_TABLE_2000();
151       a2 := JTF_VARCHAR2_TABLE_2000();
152       a3 := JTF_VARCHAR2_TABLE_2000();
153       a4 := JTF_VARCHAR2_TABLE_2000();
154       a5 := JTF_VARCHAR2_TABLE_2000();
155       a6 := JTF_VARCHAR2_TABLE_2000();
156       a7 := JTF_VARCHAR2_TABLE_2000();
157       a8 := JTF_VARCHAR2_TABLE_2000();
158       a9 := JTF_VARCHAR2_TABLE_2000();
159       a10 := JTF_VARCHAR2_TABLE_2000();
160       a11 := JTF_VARCHAR2_TABLE_2000();
161       a12 := JTF_VARCHAR2_TABLE_2000();
162       a13 := JTF_VARCHAR2_TABLE_2000();
163       a14 := JTF_VARCHAR2_TABLE_2000();
164       a15 := JTF_VARCHAR2_TABLE_2000();
165       a16 := JTF_VARCHAR2_TABLE_2000();
166       a17 := JTF_VARCHAR2_TABLE_2000();
167       a18 := JTF_VARCHAR2_TABLE_2000();
168       a19 := JTF_VARCHAR2_TABLE_2000();
169       if t.count > 0 then
170         a0.extend(t.count);
171         a1.extend(t.count);
172         a2.extend(t.count);
173         a3.extend(t.count);
174         a4.extend(t.count);
175         a5.extend(t.count);
176         a6.extend(t.count);
177         a7.extend(t.count);
178         a8.extend(t.count);
179         a9.extend(t.count);
180         a10.extend(t.count);
181         a11.extend(t.count);
182         a12.extend(t.count);
183         a13.extend(t.count);
184         a14.extend(t.count);
185         a15.extend(t.count);
186         a16.extend(t.count);
187         a17.extend(t.count);
188         a18.extend(t.count);
189         a19.extend(t.count);
190         ddindx := t.first;
191         indx := 1;
192         while true loop
193           a0(indx) := t(ddindx).column1;
194           a1(indx) := t(ddindx).column2;
195           a2(indx) := t(ddindx).column3;
196           a3(indx) := t(ddindx).column4;
197           a4(indx) := t(ddindx).column5;
198           a5(indx) := t(ddindx).column6;
199           a6(indx) := t(ddindx).column7;
200           a7(indx) := t(ddindx).column8;
201           a8(indx) := t(ddindx).column9;
202           a9(indx) := t(ddindx).column10;
203           a10(indx) := t(ddindx).column11;
204           a11(indx) := t(ddindx).column12;
205           a12(indx) := t(ddindx).column13;
206           a13(indx) := t(ddindx).column14;
207           a14(indx) := t(ddindx).column15;
208           a15(indx) := t(ddindx).column16;
209           a16(indx) := t(ddindx).column17;
210           a17(indx) := t(ddindx).column18;
211           a18(indx) := t(ddindx).column19;
212           a19(indx) := t(ddindx).column20;
213           indx := indx+1;
214           if t.last =ddindx
215             then exit;
216           end if;
217           ddindx := t.next(ddindx);
218         end loop;
219       end if;
220    end if;
221   end rosetta_table_copy_out_p1;
222 
223   procedure report_control(p_report  VARCHAR2
224     , p_param1  VARCHAR2
225     , p_param2  VARCHAR2
226     , p_param3  VARCHAR2
227     , p_param4  VARCHAR2
228     , p_param5  VARCHAR2
229     , p6_a0 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
230     , p6_a1 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
231     , p6_a2 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
232     , p6_a3 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
233     , p6_a4 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
234     , p6_a5 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
235     , p6_a6 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
236     , p6_a7 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
237     , p6_a8 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
238     , p6_a9 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
239     , p6_a10 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
240     , p6_a11 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
241     , p6_a12 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
242     , p6_a13 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
243     , p6_a14 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
244     , p6_a15 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
245     , p6_a16 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
246     , p6_a17 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
247     , p6_a18 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
248     , p6_a19 OUT NOCOPY JTF_VARCHAR2_TABLE_2000
249   )
250   as
251     ddx_result_tbl jtf_terr_jsp_reports.report_out_tbl_type;
252     ddindx binary_integer; indx binary_integer;
253   begin
254 
255     -- copy data to the local IN or IN-OUT args, if any
256 
257 
258 
259 
260 
261 
262 
263     -- here's the delegated call to the old PL/SQL routine
264     jtf_terr_jsp_reports.report_control(p_report,
265       p_param1,
266       p_param2,
267       p_param3,
268       p_param4,
269       p_param5,
270       ddx_result_tbl);
271 
272     -- copy data back from the local OUT or IN-OUT args, if any
273 
274 
275 
276 
277 
278 
279     jtf_terr_jsp_reports_w.rosetta_table_copy_out_p1(ddx_result_tbl, p6_a0
280       , p6_a1
281       , p6_a2
282       , p6_a3
283       , p6_a4
284       , p6_a5
285       , p6_a6
286       , p6_a7
287       , p6_a8
288       , p6_a9
289       , p6_a10
290       , p6_a11
291       , p6_a12
292       , p6_a13
293       , p6_a14
294       , p6_a15
295       , p6_a16
296       , p6_a17
297       , p6_a18
298       , p6_a19
299       );
300   end;
301 
302 end jtf_terr_jsp_reports_w;