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

Source


4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
1 package body cn_wksht_get_pub_w as
2   /* $Header: cnwwkgtb.pls 115.16 2003/06/27 20:36:01 achung ship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', '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   procedure rosetta_table_copy_in_p1(t out nocopy cn_wksht_get_pub.wksht_tbl, a0 JTF_NUMBER_TABLE
14     , a1 JTF_NUMBER_TABLE
15     , a2 JTF_VARCHAR2_TABLE_300
16     , a3 JTF_NUMBER_TABLE
17     , a4 JTF_VARCHAR2_TABLE_100
18     , a5 JTF_NUMBER_TABLE
19     , a6 JTF_NUMBER_TABLE
20     , a7 JTF_NUMBER_TABLE
21     , a8 JTF_NUMBER_TABLE
22     , a9 JTF_NUMBER_TABLE
23     , a10 JTF_NUMBER_TABLE
24     , a11 JTF_NUMBER_TABLE
25     , a12 JTF_VARCHAR2_TABLE_100
26     , a13 JTF_VARCHAR2_TABLE_100
27     , a14 JTF_VARCHAR2_TABLE_100
28     , a15 JTF_NUMBER_TABLE
29     , a16 JTF_VARCHAR2_TABLE_100
30     , a17 JTF_VARCHAR2_TABLE_100
31     , a18 JTF_VARCHAR2_TABLE_100
32     , a19 JTF_VARCHAR2_TABLE_100
33     , a20 JTF_VARCHAR2_TABLE_100
34     , a21 JTF_VARCHAR2_TABLE_100
35     ) as
36     ddindx binary_integer; indx binary_integer;
37   begin
38   if a0 is not null and a0.count > 0 then
39       if a0.count > 0 then
40         indx := a0.first;
41         ddindx := 1;
42         while true loop
43           t(ddindx).payment_worksheet_id := a0(indx);
44           t(ddindx).salesrep_id := a1(indx);
45           t(ddindx).salesrep_name := a2(indx);
46           t(ddindx).resource_id := a3(indx);
47           t(ddindx).employee_number := a4(indx);
48           t(ddindx).current_earnings := a5(indx);
49           t(ddindx).pmt_amount_earnings := a6(indx);
50           t(ddindx).pmt_amount_diff := a7(indx);
51           t(ddindx).pmt_amount_adj := a8(indx);
52           t(ddindx).pmt_amount_adj_rec := a9(indx);
53           t(ddindx).pmt_amount_total := a10(indx);
54           t(ddindx).held_amount := a11(indx);
55           t(ddindx).worksheet_status := a12(indx);
56           t(ddindx).worksheet_status_code := a13(indx);
57           t(ddindx).analyst_name := a14(indx);
58           t(ddindx).object_version_number := a15(indx);
59           t(ddindx).view_notes := a16(indx);
60           t(ddindx).view_ced := a17(indx);
61           t(ddindx).status_by := a18(indx);
62           t(ddindx).cost_center := a19(indx);
63           t(ddindx).charge_to_cost_center := a20(indx);
64           t(ddindx).notes := a21(indx);
65           ddindx := ddindx+1;
66           if a0.last =indx
67             then exit;
68           end if;
69           indx := a0.next(indx);
70         end loop;
71       end if;
72    end if;
73   end rosetta_table_copy_in_p1;
74   procedure rosetta_table_copy_out_p1(t cn_wksht_get_pub.wksht_tbl, a0 out nocopy JTF_NUMBER_TABLE
75     , a1 out nocopy JTF_NUMBER_TABLE
76     , a2 out nocopy JTF_VARCHAR2_TABLE_300
77     , a3 out nocopy JTF_NUMBER_TABLE
78     , a4 out nocopy JTF_VARCHAR2_TABLE_100
79     , a5 out nocopy JTF_NUMBER_TABLE
80     , a6 out nocopy JTF_NUMBER_TABLE
81     , a7 out nocopy JTF_NUMBER_TABLE
82     , a8 out nocopy JTF_NUMBER_TABLE
83     , a9 out nocopy JTF_NUMBER_TABLE
84     , a10 out nocopy JTF_NUMBER_TABLE
85     , a11 out nocopy JTF_NUMBER_TABLE
86     , a12 out nocopy JTF_VARCHAR2_TABLE_100
87     , a13 out nocopy JTF_VARCHAR2_TABLE_100
88     , a14 out nocopy JTF_VARCHAR2_TABLE_100
89     , a15 out nocopy JTF_NUMBER_TABLE
90     , a16 out nocopy JTF_VARCHAR2_TABLE_100
91     , a17 out nocopy JTF_VARCHAR2_TABLE_100
92     , a18 out nocopy JTF_VARCHAR2_TABLE_100
93     , a19 out nocopy JTF_VARCHAR2_TABLE_100
94     , a20 out nocopy JTF_VARCHAR2_TABLE_100
95     , a21 out nocopy JTF_VARCHAR2_TABLE_100
96     ) as
97     ddindx binary_integer; indx binary_integer;
98   begin
99   if t is null or t.count = 0 then
100     a0 := JTF_NUMBER_TABLE();
101     a1 := JTF_NUMBER_TABLE();
102     a2 := JTF_VARCHAR2_TABLE_300();
103     a3 := JTF_NUMBER_TABLE();
104     a4 := JTF_VARCHAR2_TABLE_100();
105     a5 := JTF_NUMBER_TABLE();
106     a6 := JTF_NUMBER_TABLE();
110     a10 := JTF_NUMBER_TABLE();
107     a7 := JTF_NUMBER_TABLE();
108     a8 := JTF_NUMBER_TABLE();
109     a9 := JTF_NUMBER_TABLE();
111     a11 := JTF_NUMBER_TABLE();
112     a12 := JTF_VARCHAR2_TABLE_100();
113     a13 := JTF_VARCHAR2_TABLE_100();
114     a14 := JTF_VARCHAR2_TABLE_100();
115     a15 := JTF_NUMBER_TABLE();
116     a16 := JTF_VARCHAR2_TABLE_100();
117     a17 := JTF_VARCHAR2_TABLE_100();
118     a18 := JTF_VARCHAR2_TABLE_100();
119     a19 := JTF_VARCHAR2_TABLE_100();
120     a20 := JTF_VARCHAR2_TABLE_100();
121     a21 := JTF_VARCHAR2_TABLE_100();
122   else
123       a0 := JTF_NUMBER_TABLE();
124       a1 := JTF_NUMBER_TABLE();
125       a2 := JTF_VARCHAR2_TABLE_300();
126       a3 := JTF_NUMBER_TABLE();
127       a4 := JTF_VARCHAR2_TABLE_100();
128       a5 := JTF_NUMBER_TABLE();
129       a6 := JTF_NUMBER_TABLE();
130       a7 := JTF_NUMBER_TABLE();
131       a8 := JTF_NUMBER_TABLE();
132       a9 := JTF_NUMBER_TABLE();
133       a10 := JTF_NUMBER_TABLE();
134       a11 := JTF_NUMBER_TABLE();
135       a12 := JTF_VARCHAR2_TABLE_100();
136       a13 := JTF_VARCHAR2_TABLE_100();
137       a14 := JTF_VARCHAR2_TABLE_100();
138       a15 := JTF_NUMBER_TABLE();
139       a16 := JTF_VARCHAR2_TABLE_100();
140       a17 := JTF_VARCHAR2_TABLE_100();
141       a18 := JTF_VARCHAR2_TABLE_100();
142       a19 := JTF_VARCHAR2_TABLE_100();
143       a20 := JTF_VARCHAR2_TABLE_100();
144       a21 := JTF_VARCHAR2_TABLE_100();
145       if t.count > 0 then
146         a0.extend(t.count);
147         a1.extend(t.count);
148         a2.extend(t.count);
149         a3.extend(t.count);
150         a4.extend(t.count);
151         a5.extend(t.count);
152         a6.extend(t.count);
153         a7.extend(t.count);
154         a8.extend(t.count);
155         a9.extend(t.count);
156         a10.extend(t.count);
157         a11.extend(t.count);
158         a12.extend(t.count);
159         a13.extend(t.count);
160         a14.extend(t.count);
161         a15.extend(t.count);
162         a16.extend(t.count);
163         a17.extend(t.count);
164         a18.extend(t.count);
165         a19.extend(t.count);
166         a20.extend(t.count);
167         a21.extend(t.count);
168         ddindx := t.first;
169         indx := 1;
170         while true loop
171           a0(indx) := t(ddindx).payment_worksheet_id;
172           a1(indx) := t(ddindx).salesrep_id;
173           a2(indx) := t(ddindx).salesrep_name;
174           a3(indx) := t(ddindx).resource_id;
175           a4(indx) := t(ddindx).employee_number;
176           a5(indx) := t(ddindx).current_earnings;
177           a6(indx) := t(ddindx).pmt_amount_earnings;
178           a7(indx) := t(ddindx).pmt_amount_diff;
179           a8(indx) := t(ddindx).pmt_amount_adj;
180           a9(indx) := t(ddindx).pmt_amount_adj_rec;
181           a10(indx) := t(ddindx).pmt_amount_total;
182           a11(indx) := t(ddindx).held_amount;
183           a12(indx) := t(ddindx).worksheet_status;
184           a13(indx) := t(ddindx).worksheet_status_code;
185           a14(indx) := t(ddindx).analyst_name;
186           a15(indx) := t(ddindx).object_version_number;
187           a16(indx) := t(ddindx).view_notes;
188           a17(indx) := t(ddindx).view_ced;
189           a18(indx) := t(ddindx).status_by;
190           a19(indx) := t(ddindx).cost_center;
191           a20(indx) := t(ddindx).charge_to_cost_center;
192           a21(indx) := t(ddindx).notes;
193           indx := indx+1;
194           if t.last =ddindx
195             then exit;
196           end if;
197           ddindx := t.next(ddindx);
198         end loop;
199       end if;
200    end if;
201   end rosetta_table_copy_out_p1;
202 
203   procedure get_srp_wksht(p_api_version  NUMBER
204     , p_init_msg_list  VARCHAR2
205     , p_commit  VARCHAR2
206     , p_validation_level  NUMBER
207     , x_return_status out nocopy  VARCHAR2
208     , x_msg_count out nocopy  NUMBER
209     , x_msg_data out nocopy  VARCHAR2
210     , p_start_record  NUMBER
211     , p_increment_count  NUMBER
212     , p_payrun_id  NUMBER
213     , p_salesrep_name  VARCHAR2
214     , p_employee_number  VARCHAR2
215     , p_analyst_name  VARCHAR2
216     , p_my_analyst  VARCHAR2
217     , p_unassigned  VARCHAR2
218     , p_worksheet_status  VARCHAR2
219     , p_currency_code  VARCHAR2
220     , p_order_by  VARCHAR2
221     , p18_a0 out nocopy JTF_NUMBER_TABLE
222     , p18_a1 out nocopy JTF_NUMBER_TABLE
223     , p18_a2 out nocopy JTF_VARCHAR2_TABLE_300
224     , p18_a3 out nocopy JTF_NUMBER_TABLE
225     , p18_a4 out nocopy JTF_VARCHAR2_TABLE_100
226     , p18_a5 out nocopy JTF_NUMBER_TABLE
227     , p18_a6 out nocopy JTF_NUMBER_TABLE
228     , p18_a7 out nocopy JTF_NUMBER_TABLE
229     , p18_a8 out nocopy JTF_NUMBER_TABLE
230     , p18_a9 out nocopy JTF_NUMBER_TABLE
231     , p18_a10 out nocopy JTF_NUMBER_TABLE
232     , p18_a11 out nocopy JTF_NUMBER_TABLE
233     , p18_a12 out nocopy JTF_VARCHAR2_TABLE_100
234     , p18_a13 out nocopy JTF_VARCHAR2_TABLE_100
235     , p18_a14 out nocopy JTF_VARCHAR2_TABLE_100
236     , p18_a15 out nocopy JTF_NUMBER_TABLE
237     , p18_a16 out nocopy JTF_VARCHAR2_TABLE_100
238     , p18_a17 out nocopy JTF_VARCHAR2_TABLE_100
239     , p18_a18 out nocopy JTF_VARCHAR2_TABLE_100
240     , p18_a19 out nocopy JTF_VARCHAR2_TABLE_100
241     , p18_a20 out nocopy JTF_VARCHAR2_TABLE_100
242     , p18_a21 out nocopy JTF_VARCHAR2_TABLE_100
243     , x_tot_amount_earnings out nocopy  NUMBER
244     , x_tot_amount_adj out nocopy  NUMBER
245     , x_tot_amount_adj_rec out nocopy  NUMBER
249     , x_tot_earn_diff out nocopy  NUMBER
246     , x_tot_amount_total out nocopy  NUMBER
247     , x_tot_held_amount out nocopy  NUMBER
248     , x_tot_ced out nocopy  NUMBER
250     , x_total_records out nocopy  NUMBER
251   )
252 
253   as
254     ddx_wksht_tbl cn_wksht_get_pub.wksht_tbl;
255     ddindx binary_integer; indx binary_integer;
256   begin
257 
258     -- copy data to the local IN or IN-OUT args, if any
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286     -- here's the delegated call to the old PL/SQL routine
287     cn_wksht_get_pub.get_srp_wksht(p_api_version,
288       p_init_msg_list,
289       p_commit,
290       p_validation_level,
291       x_return_status,
292       x_msg_count,
293       x_msg_data,
294       p_start_record,
295       p_increment_count,
296       p_payrun_id,
297       p_salesrep_name,
298       p_employee_number,
299       p_analyst_name,
300       p_my_analyst,
301       p_unassigned,
302       p_worksheet_status,
303       p_currency_code,
304       p_order_by,
305       ddx_wksht_tbl,
306       x_tot_amount_earnings,
307       x_tot_amount_adj,
308       x_tot_amount_adj_rec,
309       x_tot_amount_total,
310       x_tot_held_amount,
311       x_tot_ced,
312       x_tot_earn_diff,
313       x_total_records);
314 
315     -- copy data back from the local variables to OUT or IN-OUT args, if any
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334     cn_wksht_get_pub_w.rosetta_table_copy_out_p1(ddx_wksht_tbl, p18_a0
335       , p18_a1
336       , p18_a2
337       , p18_a3
338       , p18_a4
339       , p18_a5
340       , p18_a6
341       , p18_a7
342       , p18_a8
343       , p18_a9
344       , p18_a10
345       , p18_a11
346       , p18_a12
347       , p18_a13
348       , p18_a14
349       , p18_a15
350       , p18_a16
351       , p18_a17
352       , p18_a18
353       , p18_a19
354       , p18_a20
355       , p18_a21
356       );
357 
358 
359 
360 
361 
362 
363 
364 
365   end;
366 
367 end cn_wksht_get_pub_w;