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

Source


1 package body ahl_repair_categories_pvt_w as
2   /* $Header: AHLWRCTB.pls 120.0 2005/07/04 03:59 tamdas noship $ */
3   procedure rosetta_table_copy_in_p3(t out nocopy ahl_repair_categories_pvt.repair_category_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_NUMBER_TABLE
8     , a5 JTF_VARCHAR2_TABLE_100
9     , a6 JTF_VARCHAR2_TABLE_200
10     , a7 JTF_VARCHAR2_TABLE_200
11     , a8 JTF_VARCHAR2_TABLE_200
12     , a9 JTF_VARCHAR2_TABLE_200
13     , a10 JTF_VARCHAR2_TABLE_200
14     , a11 JTF_VARCHAR2_TABLE_200
15     , a12 JTF_VARCHAR2_TABLE_200
16     , a13 JTF_VARCHAR2_TABLE_200
17     , a14 JTF_VARCHAR2_TABLE_200
18     , a15 JTF_VARCHAR2_TABLE_200
19     , a16 JTF_VARCHAR2_TABLE_200
20     , a17 JTF_VARCHAR2_TABLE_200
21     , a18 JTF_VARCHAR2_TABLE_200
22     , a19 JTF_VARCHAR2_TABLE_200
23     , a20 JTF_VARCHAR2_TABLE_200
24     , a21 JTF_VARCHAR2_TABLE_100
25     ) as
26     ddindx binary_integer; indx binary_integer;
27   begin
28   if a0 is not null and a0.count > 0 then
29       if a0.count > 0 then
30         indx := a0.first;
31         ddindx := 1;
32         while true loop
33           t(ddindx).repair_category_id := a0(indx);
34           t(ddindx).object_version_number := a1(indx);
35           t(ddindx).incident_urgency_id := a2(indx);
36           t(ddindx).incident_urgency_name := a3(indx);
37           t(ddindx).repair_time := a4(indx);
38           t(ddindx).attribute_category := a5(indx);
39           t(ddindx).attribute1 := a6(indx);
40           t(ddindx).attribute2 := a7(indx);
41           t(ddindx).attribute3 := a8(indx);
42           t(ddindx).attribute4 := a9(indx);
43           t(ddindx).attribute5 := a10(indx);
44           t(ddindx).attribute6 := a11(indx);
45           t(ddindx).attribute7 := a12(indx);
46           t(ddindx).attribute8 := a13(indx);
47           t(ddindx).attribute9 := a14(indx);
48           t(ddindx).attribute10 := a15(indx);
49           t(ddindx).attribute11 := a16(indx);
50           t(ddindx).attribute12 := a17(indx);
51           t(ddindx).attribute13 := a18(indx);
52           t(ddindx).attribute14 := a19(indx);
53           t(ddindx).attribute15 := a20(indx);
54           t(ddindx).dml_operation := a21(indx);
55           ddindx := ddindx+1;
56           if a0.last =indx
57             then exit;
58           end if;
59           indx := a0.next(indx);
60         end loop;
61       end if;
62    end if;
63   end rosetta_table_copy_in_p3;
64   procedure rosetta_table_copy_out_p3(t ahl_repair_categories_pvt.repair_category_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
65     , a1 out nocopy JTF_NUMBER_TABLE
66     , a2 out nocopy JTF_NUMBER_TABLE
67     , a3 out nocopy JTF_VARCHAR2_TABLE_100
68     , a4 out nocopy JTF_NUMBER_TABLE
69     , a5 out nocopy JTF_VARCHAR2_TABLE_100
70     , a6 out nocopy JTF_VARCHAR2_TABLE_200
71     , a7 out nocopy JTF_VARCHAR2_TABLE_200
72     , a8 out nocopy JTF_VARCHAR2_TABLE_200
73     , a9 out nocopy JTF_VARCHAR2_TABLE_200
74     , a10 out nocopy JTF_VARCHAR2_TABLE_200
75     , a11 out nocopy JTF_VARCHAR2_TABLE_200
76     , a12 out nocopy JTF_VARCHAR2_TABLE_200
77     , a13 out nocopy JTF_VARCHAR2_TABLE_200
78     , a14 out nocopy JTF_VARCHAR2_TABLE_200
79     , a15 out nocopy JTF_VARCHAR2_TABLE_200
80     , a16 out nocopy JTF_VARCHAR2_TABLE_200
81     , a17 out nocopy JTF_VARCHAR2_TABLE_200
82     , a18 out nocopy JTF_VARCHAR2_TABLE_200
83     , a19 out nocopy JTF_VARCHAR2_TABLE_200
84     , a20 out nocopy JTF_VARCHAR2_TABLE_200
85     , a21 out nocopy JTF_VARCHAR2_TABLE_100
86     ) as
87     ddindx binary_integer; indx binary_integer;
88   begin
89   if t is null or t.count = 0 then
90     a0 := JTF_NUMBER_TABLE();
91     a1 := JTF_NUMBER_TABLE();
92     a2 := JTF_NUMBER_TABLE();
93     a3 := JTF_VARCHAR2_TABLE_100();
94     a4 := JTF_NUMBER_TABLE();
95     a5 := JTF_VARCHAR2_TABLE_100();
96     a6 := JTF_VARCHAR2_TABLE_200();
97     a7 := JTF_VARCHAR2_TABLE_200();
98     a8 := JTF_VARCHAR2_TABLE_200();
99     a9 := JTF_VARCHAR2_TABLE_200();
100     a10 := JTF_VARCHAR2_TABLE_200();
101     a11 := JTF_VARCHAR2_TABLE_200();
102     a12 := JTF_VARCHAR2_TABLE_200();
103     a13 := JTF_VARCHAR2_TABLE_200();
104     a14 := JTF_VARCHAR2_TABLE_200();
105     a15 := JTF_VARCHAR2_TABLE_200();
106     a16 := JTF_VARCHAR2_TABLE_200();
107     a17 := JTF_VARCHAR2_TABLE_200();
108     a18 := JTF_VARCHAR2_TABLE_200();
109     a19 := JTF_VARCHAR2_TABLE_200();
110     a20 := JTF_VARCHAR2_TABLE_200();
111     a21 := JTF_VARCHAR2_TABLE_100();
112   else
113       a0 := JTF_NUMBER_TABLE();
114       a1 := JTF_NUMBER_TABLE();
115       a2 := JTF_NUMBER_TABLE();
116       a3 := JTF_VARCHAR2_TABLE_100();
117       a4 := JTF_NUMBER_TABLE();
118       a5 := JTF_VARCHAR2_TABLE_100();
119       a6 := JTF_VARCHAR2_TABLE_200();
120       a7 := JTF_VARCHAR2_TABLE_200();
121       a8 := JTF_VARCHAR2_TABLE_200();
122       a9 := JTF_VARCHAR2_TABLE_200();
123       a10 := JTF_VARCHAR2_TABLE_200();
124       a11 := JTF_VARCHAR2_TABLE_200();
125       a12 := JTF_VARCHAR2_TABLE_200();
126       a13 := JTF_VARCHAR2_TABLE_200();
127       a14 := JTF_VARCHAR2_TABLE_200();
128       a15 := JTF_VARCHAR2_TABLE_200();
129       a16 := JTF_VARCHAR2_TABLE_200();
130       a17 := JTF_VARCHAR2_TABLE_200();
131       a18 := JTF_VARCHAR2_TABLE_200();
132       a19 := JTF_VARCHAR2_TABLE_200();
133       a20 := JTF_VARCHAR2_TABLE_200();
134       a21 := JTF_VARCHAR2_TABLE_100();
135       if t.count > 0 then
136         a0.extend(t.count);
137         a1.extend(t.count);
138         a2.extend(t.count);
139         a3.extend(t.count);
140         a4.extend(t.count);
141         a5.extend(t.count);
142         a6.extend(t.count);
143         a7.extend(t.count);
144         a8.extend(t.count);
145         a9.extend(t.count);
146         a10.extend(t.count);
147         a11.extend(t.count);
148         a12.extend(t.count);
149         a13.extend(t.count);
150         a14.extend(t.count);
151         a15.extend(t.count);
152         a16.extend(t.count);
153         a17.extend(t.count);
154         a18.extend(t.count);
155         a19.extend(t.count);
156         a20.extend(t.count);
157         a21.extend(t.count);
158         ddindx := t.first;
159         indx := 1;
160         while true loop
161           a0(indx) := t(ddindx).repair_category_id;
162           a1(indx) := t(ddindx).object_version_number;
163           a2(indx) := t(ddindx).incident_urgency_id;
164           a3(indx) := t(ddindx).incident_urgency_name;
165           a4(indx) := t(ddindx).repair_time;
166           a5(indx) := t(ddindx).attribute_category;
167           a6(indx) := t(ddindx).attribute1;
168           a7(indx) := t(ddindx).attribute2;
169           a8(indx) := t(ddindx).attribute3;
170           a9(indx) := t(ddindx).attribute4;
171           a10(indx) := t(ddindx).attribute5;
172           a11(indx) := t(ddindx).attribute6;
173           a12(indx) := t(ddindx).attribute7;
174           a13(indx) := t(ddindx).attribute8;
175           a14(indx) := t(ddindx).attribute9;
176           a15(indx) := t(ddindx).attribute10;
177           a16(indx) := t(ddindx).attribute11;
178           a17(indx) := t(ddindx).attribute12;
179           a18(indx) := t(ddindx).attribute13;
180           a19(indx) := t(ddindx).attribute14;
181           a20(indx) := t(ddindx).attribute15;
182           a21(indx) := t(ddindx).dml_operation;
183           indx := indx+1;
184           if t.last =ddindx
185             then exit;
186           end if;
187           ddindx := t.next(ddindx);
188         end loop;
189       end if;
190    end if;
191   end rosetta_table_copy_out_p3;
192 
193   procedure process_repair_categories(p_api_version  NUMBER
194     , p_init_msg_list  VARCHAR2
195     , p_commit  VARCHAR2
196     , p_validation_level  NUMBER
197     , p_default  VARCHAR2
198     , p_module_type  VARCHAR2
199     , x_return_status out nocopy  VARCHAR2
200     , x_msg_count out nocopy  NUMBER
201     , x_msg_data out nocopy  VARCHAR2
202     , p9_a0 in out nocopy JTF_NUMBER_TABLE
203     , p9_a1 in out nocopy JTF_NUMBER_TABLE
204     , p9_a2 in out nocopy JTF_NUMBER_TABLE
205     , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
206     , p9_a4 in out nocopy JTF_NUMBER_TABLE
207     , p9_a5 in out nocopy JTF_VARCHAR2_TABLE_100
208     , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_200
209     , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_200
210     , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_200
211     , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_200
212     , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
213     , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
214     , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
215     , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
216     , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
217     , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
218     , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
219     , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
220     , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
221     , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
222     , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
223     , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_100
224   )
225 
226   as
227     ddp_x_repair_category_tbl ahl_repair_categories_pvt.repair_category_tbl_type;
228     ddindx binary_integer; indx binary_integer;
229   begin
230 
231     -- copy data to the local IN or IN-OUT args, if any
232 
233 
234 
235 
236 
237 
238 
239 
240 
241     ahl_repair_categories_pvt_w.rosetta_table_copy_in_p3(ddp_x_repair_category_tbl, p9_a0
242       , p9_a1
243       , p9_a2
244       , p9_a3
245       , p9_a4
246       , p9_a5
247       , p9_a6
248       , p9_a7
249       , p9_a8
250       , p9_a9
251       , p9_a10
252       , p9_a11
253       , p9_a12
254       , p9_a13
255       , p9_a14
256       , p9_a15
257       , p9_a16
258       , p9_a17
259       , p9_a18
260       , p9_a19
261       , p9_a20
262       , p9_a21
263       );
264 
265     -- here's the delegated call to the old PL/SQL routine
266     ahl_repair_categories_pvt.process_repair_categories(p_api_version,
267       p_init_msg_list,
268       p_commit,
269       p_validation_level,
270       p_default,
271       p_module_type,
272       x_return_status,
273       x_msg_count,
274       x_msg_data,
275       ddp_x_repair_category_tbl);
276 
277     -- copy data back from the local variables to OUT or IN-OUT args, if any
278 
279 
280 
281 
282 
283 
284 
285 
286 
287     ahl_repair_categories_pvt_w.rosetta_table_copy_out_p3(ddp_x_repair_category_tbl, p9_a0
288       , p9_a1
289       , p9_a2
290       , p9_a3
291       , p9_a4
292       , p9_a5
293       , p9_a6
294       , p9_a7
295       , p9_a8
296       , p9_a9
297       , p9_a10
298       , p9_a11
299       , p9_a12
300       , p9_a13
301       , p9_a14
302       , p9_a15
303       , p9_a16
304       , p9_a17
305       , p9_a18
306       , p9_a19
307       , p9_a20
308       , p9_a21
309       );
310   end;
311 
312 end ahl_repair_categories_pvt_w;