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_QUOTA_ASSIGN_PVT_W

Source


1 package body cn_quota_assign_pvt_w as
2   /* $Header: cnwpnagb.pls 120.4 2006/05/11 06:06 kjayapau noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy cn_quota_assign_pvt.quota_assign_tbl_type, a0 JTF_NUMBER_TABLE
4     , a1 JTF_NUMBER_TABLE
5     , a2 JTF_NUMBER_TABLE
6     , a3 JTF_VARCHAR2_TABLE_100
7     , a4 JTF_VARCHAR2_TABLE_1900
8     , a5 JTF_DATE_TABLE
9     , a6 JTF_DATE_TABLE
10     , a7 JTF_NUMBER_TABLE
11     , a8 JTF_NUMBER_TABLE
12     , a9 JTF_NUMBER_TABLE
13     , a10 JTF_VARCHAR2_TABLE_100
14     ) as
15     ddindx binary_integer; indx binary_integer;
16   begin
17   if a0 is not null and a0.count > 0 then
18       if a0.count > 0 then
19         indx := a0.first;
20         ddindx := 1;
21         while true loop
22           t(ddindx).quota_assign_id := a0(indx);
23           t(ddindx).quota_id := a1(indx);
24           t(ddindx).comp_plan_id := a2(indx);
25           t(ddindx).name := a3(indx);
26           t(ddindx).description := a4(indx);
27           t(ddindx).start_date := a5(indx);
28           t(ddindx).end_date := a6(indx);
29           t(ddindx).quota_sequence := a7(indx);
30           t(ddindx).object_version_number := a8(indx);
31           t(ddindx).org_id := a9(indx);
32           t(ddindx).idq_flag := a10(indx);
33           ddindx := ddindx+1;
34           if a0.last =indx
35             then exit;
36           end if;
37           indx := a0.next(indx);
38         end loop;
39       end if;
40    end if;
41   end rosetta_table_copy_in_p1;
42   procedure rosetta_table_copy_out_p1(t cn_quota_assign_pvt.quota_assign_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
43     , a1 out nocopy JTF_NUMBER_TABLE
44     , a2 out nocopy JTF_NUMBER_TABLE
45     , a3 out nocopy JTF_VARCHAR2_TABLE_100
46     , a4 out nocopy JTF_VARCHAR2_TABLE_1900
47     , a5 out nocopy JTF_DATE_TABLE
48     , a6 out nocopy JTF_DATE_TABLE
49     , a7 out nocopy JTF_NUMBER_TABLE
50     , a8 out nocopy JTF_NUMBER_TABLE
51     , a9 out nocopy JTF_NUMBER_TABLE
52     , a10 out nocopy JTF_VARCHAR2_TABLE_100
53     ) as
54     ddindx binary_integer; indx binary_integer;
55   begin
56   if t is null or t.count = 0 then
57     a0 := JTF_NUMBER_TABLE();
58     a1 := JTF_NUMBER_TABLE();
59     a2 := JTF_NUMBER_TABLE();
60     a3 := JTF_VARCHAR2_TABLE_100();
61     a4 := JTF_VARCHAR2_TABLE_1900();
62     a5 := JTF_DATE_TABLE();
63     a6 := JTF_DATE_TABLE();
64     a7 := JTF_NUMBER_TABLE();
65     a8 := JTF_NUMBER_TABLE();
66     a9 := JTF_NUMBER_TABLE();
67     a10 := JTF_VARCHAR2_TABLE_100();
68   else
69       a0 := JTF_NUMBER_TABLE();
70       a1 := JTF_NUMBER_TABLE();
71       a2 := JTF_NUMBER_TABLE();
72       a3 := JTF_VARCHAR2_TABLE_100();
73       a4 := JTF_VARCHAR2_TABLE_1900();
74       a5 := JTF_DATE_TABLE();
75       a6 := JTF_DATE_TABLE();
76       a7 := JTF_NUMBER_TABLE();
77       a8 := JTF_NUMBER_TABLE();
78       a9 := JTF_NUMBER_TABLE();
79       a10 := JTF_VARCHAR2_TABLE_100();
80       if t.count > 0 then
81         a0.extend(t.count);
82         a1.extend(t.count);
83         a2.extend(t.count);
84         a3.extend(t.count);
85         a4.extend(t.count);
86         a5.extend(t.count);
87         a6.extend(t.count);
88         a7.extend(t.count);
89         a8.extend(t.count);
90         a9.extend(t.count);
91         a10.extend(t.count);
92         ddindx := t.first;
93         indx := 1;
94         while true loop
95           a0(indx) := t(ddindx).quota_assign_id;
96           a1(indx) := t(ddindx).quota_id;
97           a2(indx) := t(ddindx).comp_plan_id;
98           a3(indx) := t(ddindx).name;
99           a4(indx) := t(ddindx).description;
100           a5(indx) := t(ddindx).start_date;
101           a6(indx) := t(ddindx).end_date;
102           a7(indx) := t(ddindx).quota_sequence;
103           a8(indx) := t(ddindx).object_version_number;
104           a9(indx) := t(ddindx).org_id;
105           a10(indx) := t(ddindx).idq_flag;
106           indx := indx+1;
107           if t.last =ddindx
108             then exit;
109           end if;
110           ddindx := t.next(ddindx);
111         end loop;
112       end if;
113    end if;
114   end rosetta_table_copy_out_p1;
115 
116   procedure create_quota_assign(p_api_version  NUMBER
117     , p_init_msg_list  VARCHAR2
118     , p_commit  VARCHAR2
119     , p_validation_level  NUMBER
120     , p4_a0 in out nocopy  NUMBER
121     , p4_a1 in out nocopy  NUMBER
122     , p4_a2 in out nocopy  NUMBER
123     , p4_a3 in out nocopy  VARCHAR2
124     , p4_a4 in out nocopy  VARCHAR2
125     , p4_a5 in out nocopy  DATE
126     , p4_a6 in out nocopy  DATE
127     , p4_a7 in out nocopy  NUMBER
128     , p4_a8 in out nocopy  NUMBER
129     , p4_a9 in out nocopy  NUMBER
130     , p4_a10 in out nocopy  VARCHAR
131     , x_return_status out nocopy  VARCHAR2
132     , x_msg_count out nocopy  NUMBER
133     , x_msg_data out nocopy  VARCHAR2
134   )
135 
136   as
137     ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
138     ddindx binary_integer; indx binary_integer;
139   begin
140 
141     -- copy data to the local IN or IN-OUT args, if any
142 
143 
144 
145 
146     ddp_quota_assign.quota_assign_id := p4_a0;
147     ddp_quota_assign.quota_id := p4_a1;
148     ddp_quota_assign.comp_plan_id := p4_a2;
149     ddp_quota_assign.name := p4_a3;
150     ddp_quota_assign.description := p4_a4;
151     ddp_quota_assign.start_date := p4_a5;
152     ddp_quota_assign.end_date := p4_a6;
153     ddp_quota_assign.quota_sequence := p4_a7;
154     ddp_quota_assign.object_version_number := p4_a8;
155     ddp_quota_assign.org_id := p4_a9;
156     ddp_quota_assign.idq_flag := p4_a10;
157 
158 
159 
160 
161     -- here's the delegated call to the old PL/SQL routine
162     cn_quota_assign_pvt.create_quota_assign(p_api_version,
163       p_init_msg_list,
164       p_commit,
165       p_validation_level,
166       ddp_quota_assign,
167       x_return_status,
168       x_msg_count,
169       x_msg_data);
170 
171     -- copy data back from the local variables to OUT or IN-OUT args, if any
172 
173 
174 
175 
176     p4_a0 := ddp_quota_assign.quota_assign_id;
177     p4_a1 := ddp_quota_assign.quota_id;
178     p4_a2 := ddp_quota_assign.comp_plan_id;
179     p4_a3 := ddp_quota_assign.name;
180     p4_a4 := ddp_quota_assign.description;
181     p4_a5 := ddp_quota_assign.start_date;
182     p4_a6 := ddp_quota_assign.end_date;
183     p4_a7 := ddp_quota_assign.quota_sequence;
184     p4_a8 := ddp_quota_assign.object_version_number;
185     p4_a9 := ddp_quota_assign.org_id;
186     p4_a10 := ddp_quota_assign.idq_flag;
187 
188 
189 
190   end;
191 
192   procedure update_quota_assign(p_api_version  NUMBER
193     , p_init_msg_list  VARCHAR2
194     , p_commit  VARCHAR2
195     , p_validation_level  NUMBER
196     , p4_a0 in out nocopy  NUMBER
197     , p4_a1 in out nocopy  NUMBER
198     , p4_a2 in out nocopy  NUMBER
199     , p4_a3 in out nocopy  VARCHAR2
200     , p4_a4 in out nocopy  VARCHAR2
201     , p4_a5 in out nocopy  DATE
202     , p4_a6 in out nocopy  DATE
203     , p4_a7 in out nocopy  NUMBER
204     , p4_a8 in out nocopy  NUMBER
205     , p4_a9 in out nocopy  NUMBER
206     , p4_a10 in out nocopy  VARCHAR
207     , x_return_status out nocopy  VARCHAR2
208     , x_msg_count out nocopy  NUMBER
209     , x_msg_data out nocopy  VARCHAR2
210   )
211 
212   as
213     ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
214     ddindx binary_integer; indx binary_integer;
215   begin
216 
217     -- copy data to the local IN or IN-OUT args, if any
218 
219 
220 
221 
222     ddp_quota_assign.quota_assign_id := p4_a0;
223     ddp_quota_assign.quota_id := p4_a1;
224     ddp_quota_assign.comp_plan_id := p4_a2;
225     ddp_quota_assign.name := p4_a3;
226     ddp_quota_assign.description := p4_a4;
227     ddp_quota_assign.start_date := p4_a5;
228     ddp_quota_assign.end_date := p4_a6;
229     ddp_quota_assign.quota_sequence := p4_a7;
230     ddp_quota_assign.object_version_number := p4_a8;
231     ddp_quota_assign.org_id := p4_a9;
232     ddp_quota_assign.idq_flag := p4_a10;
233 
234 
235 
236 
237     -- here's the delegated call to the old PL/SQL routine
238     cn_quota_assign_pvt.update_quota_assign(p_api_version,
239       p_init_msg_list,
240       p_commit,
241       p_validation_level,
242       ddp_quota_assign,
243       x_return_status,
244       x_msg_count,
245       x_msg_data);
246 
247     -- copy data back from the local variables to OUT or IN-OUT args, if any
248 
249 
250 
251 
252     p4_a0 := ddp_quota_assign.quota_assign_id;
253     p4_a1 := ddp_quota_assign.quota_id;
254     p4_a2 := ddp_quota_assign.comp_plan_id;
255     p4_a3 := ddp_quota_assign.name;
256     p4_a4 := ddp_quota_assign.description;
257     p4_a5 := ddp_quota_assign.start_date;
258     p4_a6 := ddp_quota_assign.end_date;
259     p4_a7 := ddp_quota_assign.quota_sequence;
260     p4_a8 := ddp_quota_assign.object_version_number;
261     p4_a9 := ddp_quota_assign.org_id;
262     p4_a10 := ddp_quota_assign.idq_flag;
263 
264 
265 
266   end;
267 
268   procedure delete_quota_assign(p_api_version  NUMBER
269     , p_init_msg_list  VARCHAR2
270     , p_commit  VARCHAR2
271     , p_validation_level  NUMBER
272     , p4_a0  NUMBER
273     , p4_a1  NUMBER
274     , p4_a2  NUMBER
275     , p4_a3  VARCHAR2
276     , p4_a4  VARCHAR2
277     , p4_a5  DATE
278     , p4_a6  DATE
279     , p4_a7  NUMBER
280     , p4_a8  NUMBER
281     , p4_a9  NUMBER
282     , p4_a10  VARCHAR
283     , x_return_status out nocopy  VARCHAR2
284     , x_msg_count out nocopy  NUMBER
285     , x_msg_data out nocopy  VARCHAR2
286   )
287 
288   as
289     ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
290     ddindx binary_integer; indx binary_integer;
291   begin
292 
293     -- copy data to the local IN or IN-OUT args, if any
294 
295 
296 
297 
298     ddp_quota_assign.quota_assign_id := p4_a0;
299     ddp_quota_assign.quota_id := p4_a1;
300     ddp_quota_assign.comp_plan_id := p4_a2;
301     ddp_quota_assign.name := p4_a3;
302     ddp_quota_assign.description := p4_a4;
303     ddp_quota_assign.start_date := p4_a5;
304     ddp_quota_assign.end_date := p4_a6;
305     ddp_quota_assign.quota_sequence := p4_a7;
306     ddp_quota_assign.object_version_number := p4_a8;
307     ddp_quota_assign.org_id := p4_a9;
308     ddp_quota_assign.idq_flag := p4_a10;
309 
310 
311 
312 
313     -- here's the delegated call to the old PL/SQL routine
314     cn_quota_assign_pvt.delete_quota_assign(p_api_version,
315       p_init_msg_list,
316       p_commit,
317       p_validation_level,
318       ddp_quota_assign,
319       x_return_status,
320       x_msg_count,
321       x_msg_data);
322 
323     -- copy data back from the local variables to OUT or IN-OUT args, if any
324 
325 
326 
327 
328 
329 
330 
331   end;
332 
333   procedure get_quota_assign(p_api_version  NUMBER
334     , p_init_msg_list  VARCHAR2
335     , p_commit  VARCHAR2
336     , p_validation_level  NUMBER
337     , p_comp_plan_id  NUMBER
338     , p5_a0 out nocopy JTF_NUMBER_TABLE
339     , p5_a1 out nocopy JTF_NUMBER_TABLE
340     , p5_a2 out nocopy JTF_NUMBER_TABLE
341     , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
342     , p5_a4 out nocopy JTF_VARCHAR2_TABLE_1900
343     , p5_a5 out nocopy JTF_DATE_TABLE
344     , p5_a6 out nocopy JTF_DATE_TABLE
345     , p5_a7 out nocopy JTF_NUMBER_TABLE
346     , p5_a8 out nocopy JTF_NUMBER_TABLE
347     , p5_a9 out nocopy JTF_NUMBER_TABLE
348     , p5_a10 out nocopy JTF_VARCHAR2_TABLE_100
349     , x_return_status out nocopy  VARCHAR2
350     , x_msg_count out nocopy  NUMBER
351     , x_msg_data out nocopy  VARCHAR2
352   )
353 
354   as
355     ddx_quota_assign cn_quota_assign_pvt.quota_assign_tbl_type;
356     ddindx binary_integer; indx binary_integer;
357   begin
358 
359     -- copy data to the local IN or IN-OUT args, if any
360 
361 
362 
363 
364 
365 
366 
367 
368 
369     -- here's the delegated call to the old PL/SQL routine
370     cn_quota_assign_pvt.get_quota_assign(p_api_version,
371       p_init_msg_list,
372       p_commit,
373       p_validation_level,
374       p_comp_plan_id,
375       ddx_quota_assign,
376       x_return_status,
377       x_msg_count,
378       x_msg_data);
379 
380     -- copy data back from the local variables to OUT or IN-OUT args, if any
381 
382 
383 
384 
385 
386     cn_quota_assign_pvt_w.rosetta_table_copy_out_p1(ddx_quota_assign, p5_a0
387       , p5_a1
388       , p5_a2
389       , p5_a3
390       , p5_a4
391       , p5_a5
392       , p5_a6
393       , p5_a7
394       , p5_a8
395       , p5_a9
396       , p5_a10
397       );
398 
399 
400 
401   end;
402 
403 end cn_quota_assign_pvt_w;