[Home] [Help]
PACKAGE BODY: APPS.CN_QUOTA_CATEGORIES_PUB_W
Source
1 package body cn_quota_categories_pub_w as
2 /* $Header: cnwqcatb.pls 115.8 2002/11/25 22:26:17 nkodkani 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 -- 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_quota_categories_pub.quota_categories_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_100
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_NUMBER_TABLE
23 ) as
24 ddindx binary_integer; indx binary_integer;
25 begin
26 if a0 is not null and a0.count > 0 then
27 if a0.count > 0 then
28 indx := a0.first;
29 ddindx := 1;
30 while true loop
31 t(ddindx).quota_category_id := a0(indx);
32 t(ddindx).name := a1(indx);
33 t(ddindx).description := a2(indx);
34 t(ddindx).type := a3(indx);
35 t(ddindx).type_meaning := a4(indx);
36 t(ddindx).compute_flag := a5(indx);
37 t(ddindx).computed := a6(indx);
38 t(ddindx).interval_type_id := a7(indx);
39 t(ddindx).quota_unit_code := a8(indx);
40 t(ddindx).object_version_number := a9(indx);
41 ddindx := ddindx+1;
42 if a0.last =indx
43 then exit;
44 end if;
45 indx := a0.next(indx);
46 end loop;
47 end if;
48 end if;
49 end rosetta_table_copy_in_p1;
50 procedure rosetta_table_copy_out_p1(t cn_quota_categories_pub.quota_categories_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
51 , a1 out nocopy JTF_VARCHAR2_TABLE_100
52 , a2 out nocopy JTF_VARCHAR2_TABLE_100
53 , a3 out nocopy JTF_VARCHAR2_TABLE_100
54 , a4 out nocopy JTF_VARCHAR2_TABLE_100
55 , a5 out nocopy JTF_VARCHAR2_TABLE_100
56 , a6 out nocopy JTF_VARCHAR2_TABLE_100
57 , a7 out nocopy JTF_NUMBER_TABLE
58 , a8 out nocopy JTF_VARCHAR2_TABLE_100
59 , a9 out nocopy JTF_NUMBER_TABLE
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if t is null or t.count = 0 then
64 a0 := JTF_NUMBER_TABLE();
65 a1 := JTF_VARCHAR2_TABLE_100();
66 a2 := JTF_VARCHAR2_TABLE_100();
67 a3 := JTF_VARCHAR2_TABLE_100();
68 a4 := JTF_VARCHAR2_TABLE_100();
69 a5 := JTF_VARCHAR2_TABLE_100();
70 a6 := JTF_VARCHAR2_TABLE_100();
71 a7 := JTF_NUMBER_TABLE();
72 a8 := JTF_VARCHAR2_TABLE_100();
73 a9 := JTF_NUMBER_TABLE();
74 else
75 a0 := JTF_NUMBER_TABLE();
76 a1 := JTF_VARCHAR2_TABLE_100();
77 a2 := JTF_VARCHAR2_TABLE_100();
78 a3 := JTF_VARCHAR2_TABLE_100();
79 a4 := JTF_VARCHAR2_TABLE_100();
80 a5 := JTF_VARCHAR2_TABLE_100();
81 a6 := JTF_VARCHAR2_TABLE_100();
82 a7 := JTF_NUMBER_TABLE();
83 a8 := JTF_VARCHAR2_TABLE_100();
84 a9 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 a1.extend(t.count);
88 a2.extend(t.count);
89 a3.extend(t.count);
90 a4.extend(t.count);
91 a5.extend(t.count);
92 a6.extend(t.count);
93 a7.extend(t.count);
94 a8.extend(t.count);
95 a9.extend(t.count);
96 ddindx := t.first;
97 indx := 1;
98 while true loop
99 a0(indx) := t(ddindx).quota_category_id;
100 a1(indx) := t(ddindx).name;
101 a2(indx) := t(ddindx).description;
102 a3(indx) := t(ddindx).type;
103 a4(indx) := t(ddindx).type_meaning;
104 a5(indx) := t(ddindx).compute_flag;
105 a6(indx) := t(ddindx).computed;
106 a7(indx) := t(ddindx).interval_type_id;
107 a8(indx) := t(ddindx).quota_unit_code;
108 a9(indx) := t(ddindx).object_version_number;
109 indx := indx+1;
110 if t.last =ddindx
111 then exit;
112 end if;
113 ddindx := t.next(ddindx);
114 end loop;
115 end if;
116 end if;
117 end rosetta_table_copy_out_p1;
118
119 procedure create_quota_category(p_api_version NUMBER
120 , p_init_msg_list VARCHAR2
121 , p_commit VARCHAR2
122 , p_validation_level NUMBER
123 , p4_a0 NUMBER
124 , p4_a1 VARCHAR2
125 , p4_a2 VARCHAR2
126 , p4_a3 VARCHAR2
127 , p4_a4 VARCHAR2
128 , p4_a5 VARCHAR2
129 , p4_a6 VARCHAR2
130 , p4_a7 NUMBER
131 , p4_a8 VARCHAR2
132 , p4_a9 NUMBER
133 , x_return_status out nocopy VARCHAR2
134 , x_msg_count out nocopy NUMBER
135 , x_msg_data out nocopy VARCHAR2
136 , x_quota_category_id out nocopy NUMBER
137 )
138
139 as
140 ddp_rec cn_quota_categories_pub.quota_category_rec_type;
141 ddindx binary_integer; indx binary_integer;
142 begin
143
144 -- copy data to the local IN or IN-OUT args, if any
145
146
147
148
149 ddp_rec.quota_category_id := p4_a0;
150 ddp_rec.name := p4_a1;
151 ddp_rec.description := p4_a2;
152 ddp_rec.type := p4_a3;
153 ddp_rec.type_meaning := p4_a4;
154 ddp_rec.compute_flag := p4_a5;
155 ddp_rec.computed := p4_a6;
156 ddp_rec.interval_type_id := p4_a7;
157 ddp_rec.quota_unit_code := p4_a8;
158 ddp_rec.object_version_number := p4_a9;
159
160
161
162
163
164 -- here's the delegated call to the old PL/SQL routine
165 cn_quota_categories_pub.create_quota_category(p_api_version,
166 p_init_msg_list,
167 p_commit,
168 p_validation_level,
169 ddp_rec,
170 x_return_status,
171 x_msg_count,
172 x_msg_data,
173 x_quota_category_id);
174
175 -- copy data back from the local variables to OUT or IN-OUT args, if any
176
177
178
179
180
181
182
183
184 end;
185
186 procedure update_quota_category(p_api_version NUMBER
187 , p_init_msg_list VARCHAR2
188 , p_commit VARCHAR2
189 , p_validation_level NUMBER
190 , p4_a0 NUMBER
191 , p4_a1 VARCHAR2
192 , p4_a2 VARCHAR2
193 , p4_a3 VARCHAR2
194 , p4_a4 VARCHAR2
195 , p4_a5 VARCHAR2
196 , p4_a6 VARCHAR2
197 , p4_a7 NUMBER
198 , p4_a8 VARCHAR2
199 , p4_a9 NUMBER
200 , x_return_status out nocopy VARCHAR2
201 , x_msg_count out nocopy NUMBER
202 , x_msg_data out nocopy VARCHAR2
203 )
204
205 as
206 ddp_rec cn_quota_categories_pub.quota_category_rec_type;
207 ddindx binary_integer; indx binary_integer;
208 begin
209
210 -- copy data to the local IN or IN-OUT args, if any
211
212
213
214
215 ddp_rec.quota_category_id := p4_a0;
216 ddp_rec.name := p4_a1;
217 ddp_rec.description := p4_a2;
218 ddp_rec.type := p4_a3;
219 ddp_rec.type_meaning := p4_a4;
220 ddp_rec.compute_flag := p4_a5;
221 ddp_rec.computed := p4_a6;
222 ddp_rec.interval_type_id := p4_a7;
223 ddp_rec.quota_unit_code := p4_a8;
224 ddp_rec.object_version_number := p4_a9;
225
226
227
228
229 -- here's the delegated call to the old PL/SQL routine
230 cn_quota_categories_pub.update_quota_category(p_api_version,
231 p_init_msg_list,
232 p_commit,
233 p_validation_level,
234 ddp_rec,
235 x_return_status,
236 x_msg_count,
237 x_msg_data);
238
239 -- copy data back from the local variables to OUT or IN-OUT args, if any
240
241
242
243
244
245
246
247 end;
248
249 procedure get_quota_category_details(p_api_version NUMBER
250 , p_init_msg_list VARCHAR2
251 , p_validation_level NUMBER
252 , x_return_status out nocopy VARCHAR2
253 , x_msg_count out nocopy NUMBER
254 , x_msg_data out nocopy VARCHAR2
255 , p_start_record NUMBER
256 , p_increment_count NUMBER
257 , p_search_name VARCHAR2
258 , p_search_type VARCHAR2
259 , p_search_unit VARCHAR2
260 , p11_a0 out nocopy JTF_NUMBER_TABLE
261 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_100
262 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_100
263 , p11_a3 out nocopy JTF_VARCHAR2_TABLE_100
264 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_100
265 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_100
266 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
267 , p11_a7 out nocopy JTF_NUMBER_TABLE
268 , p11_a8 out nocopy JTF_VARCHAR2_TABLE_100
269 , p11_a9 out nocopy JTF_NUMBER_TABLE
270 , x_total_records out nocopy NUMBER
271 )
272
273 as
274 ddx_quota_categories_tbl cn_quota_categories_pub.quota_categories_tbl_type;
275 ddindx binary_integer; indx binary_integer;
276 begin
277
278 -- copy data to the local IN or IN-OUT args, if any
279
280
281
282
283
284
285
286
287
288
289
290
291
292 -- here's the delegated call to the old PL/SQL routine
293 cn_quota_categories_pub.get_quota_category_details(p_api_version,
294 p_init_msg_list,
295 p_validation_level,
296 x_return_status,
297 x_msg_count,
298 x_msg_data,
299 p_start_record,
300 p_increment_count,
301 p_search_name,
302 p_search_type,
303 p_search_unit,
304 ddx_quota_categories_tbl,
305 x_total_records);
306
307 -- copy data back from the local variables to OUT or IN-OUT args, if any
308
309
310
311
312
313
314
315
316
317
318
319 cn_quota_categories_pub_w.rosetta_table_copy_out_p1(ddx_quota_categories_tbl, p11_a0
320 , p11_a1
321 , p11_a2
322 , p11_a3
323 , p11_a4
324 , p11_a5
325 , p11_a6
326 , p11_a7
327 , p11_a8
328 , p11_a9
329 );
330
331 end;
332
333 end cn_quota_categories_pub_w;