[Home] [Help]
PACKAGE BODY: APPS.IBE_DISPLAYCONTEXT_GRP_W
Source
1 package body ibe_displaycontext_grp_w as
2 /* $Header: IBEGRCXB.pls 115.4 2002/12/18 07:07:38 schak 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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t out nocopy ibe_displaycontext_grp.display_context_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).context_delete := a0(indx);
40 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
41 t(ddindx).context_id := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).access_name := a3(indx);
43 t(ddindx).display_name := a4(indx);
44 t(ddindx).description := a5(indx);
45 t(ddindx).context_type := a6(indx);
46 t(ddindx).component_type_code := a7(indx);
47 t(ddindx).default_deliverable_id := rosetta_g_miss_num_map(a8(indx));
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p3;
57 procedure rosetta_table_copy_out_p3(t ibe_displaycontext_grp.display_context_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
58 , a1 out nocopy JTF_NUMBER_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_VARCHAR2_TABLE_100
61 , a4 out nocopy JTF_VARCHAR2_TABLE_100
62 , a5 out nocopy JTF_VARCHAR2_TABLE_300
63 , a6 out nocopy JTF_VARCHAR2_TABLE_100
64 , a7 out nocopy JTF_VARCHAR2_TABLE_100
65 , a8 out nocopy JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_VARCHAR2_TABLE_100();
71 a1 := JTF_NUMBER_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_VARCHAR2_TABLE_100();
74 a4 := JTF_VARCHAR2_TABLE_100();
75 a5 := JTF_VARCHAR2_TABLE_300();
76 a6 := JTF_VARCHAR2_TABLE_100();
77 a7 := JTF_VARCHAR2_TABLE_100();
78 a8 := JTF_NUMBER_TABLE();
79 else
80 a0 := JTF_VARCHAR2_TABLE_100();
81 a1 := JTF_NUMBER_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_VARCHAR2_TABLE_100();
84 a4 := JTF_VARCHAR2_TABLE_100();
85 a5 := JTF_VARCHAR2_TABLE_300();
86 a6 := JTF_VARCHAR2_TABLE_100();
87 a7 := JTF_VARCHAR2_TABLE_100();
88 a8 := JTF_NUMBER_TABLE();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := t(ddindx).context_delete;
103 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).context_id);
105 a3(indx) := t(ddindx).access_name;
106 a4(indx) := t(ddindx).display_name;
107 a5(indx) := t(ddindx).description;
108 a6(indx) := t(ddindx).context_type;
109 a7(indx) := t(ddindx).component_type_code;
110 a8(indx) := rosetta_g_miss_num_map(t(ddindx).default_deliverable_id);
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p3;
120
121 procedure save_display_context(p_api_version NUMBER
122 , p_init_msg_list VARCHAR2
123 , p_commit VARCHAR2
124 , x_return_status out nocopy VARCHAR2
125 , x_msg_count out nocopy NUMBER
126 , x_msg_data out nocopy VARCHAR2
127 , p6_a0 in out nocopy VARCHAR2
128 , p6_a1 in out nocopy NUMBER
129 , p6_a2 in out nocopy NUMBER
130 , p6_a3 in out nocopy VARCHAR2
131 , p6_a4 in out nocopy VARCHAR2
132 , p6_a5 in out nocopy VARCHAR2
133 , p6_a6 in out nocopy VARCHAR2
134 , p6_a7 in out nocopy VARCHAR2
135 , p6_a8 in out nocopy NUMBER
136 )
137
138 as
139 ddp_display_context_rec ibe_displaycontext_grp.display_context_rec_type;
140 ddindx binary_integer; indx binary_integer;
141 begin
142
143 -- copy data to the local IN or IN-OUT args, if any
144
145
146
147
148
149
150 ddp_display_context_rec.context_delete := p6_a0;
151 ddp_display_context_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
152 ddp_display_context_rec.context_id := rosetta_g_miss_num_map(p6_a2);
153 ddp_display_context_rec.access_name := p6_a3;
154 ddp_display_context_rec.display_name := p6_a4;
155 ddp_display_context_rec.description := p6_a5;
156 ddp_display_context_rec.context_type := p6_a6;
157 ddp_display_context_rec.component_type_code := p6_a7;
158 ddp_display_context_rec.default_deliverable_id := rosetta_g_miss_num_map(p6_a8);
159
160 -- here's the delegated call to the old PL/SQL routine
161 ibe_displaycontext_grp.save_display_context(p_api_version,
162 p_init_msg_list,
163 p_commit,
164 x_return_status,
165 x_msg_count,
166 x_msg_data,
167 ddp_display_context_rec);
168
169 -- copy data back from the local variables to OUT or IN-OUT args, if any
170
171
172
173
174
175
176 p6_a0 := ddp_display_context_rec.context_delete;
177 p6_a1 := rosetta_g_miss_num_map(ddp_display_context_rec.object_version_number);
178 p6_a2 := rosetta_g_miss_num_map(ddp_display_context_rec.context_id);
179 p6_a3 := ddp_display_context_rec.access_name;
180 p6_a4 := ddp_display_context_rec.display_name;
181 p6_a5 := ddp_display_context_rec.description;
182 p6_a6 := ddp_display_context_rec.context_type;
183 p6_a7 := ddp_display_context_rec.component_type_code;
184 p6_a8 := rosetta_g_miss_num_map(ddp_display_context_rec.default_deliverable_id);
185 end;
186
187 procedure save_delete_display_context(p_api_version NUMBER
188 , p_init_msg_list VARCHAR2
189 , p_commit VARCHAR2
190 , x_return_status out nocopy VARCHAR2
191 , x_msg_count out nocopy NUMBER
192 , x_msg_data out nocopy VARCHAR2
193 , p6_a0 in out nocopy JTF_VARCHAR2_TABLE_100
194 , p6_a1 in out nocopy JTF_NUMBER_TABLE
195 , p6_a2 in out nocopy JTF_NUMBER_TABLE
196 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_100
197 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
198 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_300
199 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
200 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
201 , p6_a8 in out nocopy JTF_NUMBER_TABLE
202 )
203
204 as
205 ddp_display_context_tbl ibe_displaycontext_grp.display_context_tbl_type;
206 ddindx binary_integer; indx binary_integer;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213
214
215
216 ibe_displaycontext_grp_w.rosetta_table_copy_in_p3(ddp_display_context_tbl, p6_a0
217 , p6_a1
218 , p6_a2
219 , p6_a3
220 , p6_a4
221 , p6_a5
222 , p6_a6
223 , p6_a7
224 , p6_a8
225 );
226
227 -- here's the delegated call to the old PL/SQL routine
228 ibe_displaycontext_grp.save_delete_display_context(p_api_version,
229 p_init_msg_list,
230 p_commit,
231 x_return_status,
232 x_msg_count,
233 x_msg_data,
234 ddp_display_context_tbl);
235
236 -- copy data back from the local variables to OUT or IN-OUT args, if any
237
238
239
240
241
242
243 ibe_displaycontext_grp_w.rosetta_table_copy_out_p3(ddp_display_context_tbl, p6_a0
244 , p6_a1
245 , p6_a2
246 , p6_a3
247 , p6_a4
248 , p6_a5
249 , p6_a6
250 , p6_a7
251 , p6_a8
252 );
253 end;
254
255 procedure delete_display_context(p_api_version NUMBER
256 , p_init_msg_list VARCHAR2
257 , p_commit VARCHAR2
258 , x_return_status out nocopy VARCHAR2
259 , x_msg_count out nocopy NUMBER
260 , x_msg_data out nocopy VARCHAR2
261 , p6_a0 in out nocopy VARCHAR2
262 , p6_a1 in out nocopy NUMBER
263 , p6_a2 in out nocopy NUMBER
264 , p6_a3 in out nocopy VARCHAR2
265 , p6_a4 in out nocopy VARCHAR2
266 , p6_a5 in out nocopy VARCHAR2
267 , p6_a6 in out nocopy VARCHAR2
268 , p6_a7 in out nocopy VARCHAR2
269 , p6_a8 in out nocopy NUMBER
270 )
271
272 as
273 ddp_display_context_rec ibe_displaycontext_grp.display_context_rec_type;
274 ddindx binary_integer; indx binary_integer;
275 begin
276
277 -- copy data to the local IN or IN-OUT args, if any
278
279
280
281
282
283
284 ddp_display_context_rec.context_delete := p6_a0;
285 ddp_display_context_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
286 ddp_display_context_rec.context_id := rosetta_g_miss_num_map(p6_a2);
287 ddp_display_context_rec.access_name := p6_a3;
288 ddp_display_context_rec.display_name := p6_a4;
289 ddp_display_context_rec.description := p6_a5;
290 ddp_display_context_rec.context_type := p6_a6;
291 ddp_display_context_rec.component_type_code := p6_a7;
292 ddp_display_context_rec.default_deliverable_id := rosetta_g_miss_num_map(p6_a8);
293
294 -- here's the delegated call to the old PL/SQL routine
295 ibe_displaycontext_grp.delete_display_context(p_api_version,
296 p_init_msg_list,
297 p_commit,
298 x_return_status,
299 x_msg_count,
300 x_msg_data,
301 ddp_display_context_rec);
302
303 -- copy data back from the local variables to OUT or IN-OUT args, if any
304
305
306
307
308
309
310 p6_a0 := ddp_display_context_rec.context_delete;
311 p6_a1 := rosetta_g_miss_num_map(ddp_display_context_rec.object_version_number);
312 p6_a2 := rosetta_g_miss_num_map(ddp_display_context_rec.context_id);
313 p6_a3 := ddp_display_context_rec.access_name;
314 p6_a4 := ddp_display_context_rec.display_name;
315 p6_a5 := ddp_display_context_rec.description;
316 p6_a6 := ddp_display_context_rec.context_type;
317 p6_a7 := ddp_display_context_rec.component_type_code;
318 p6_a8 := rosetta_g_miss_num_map(ddp_display_context_rec.default_deliverable_id);
319 end;
320
321 procedure insert_row(x_rowid in out nocopy VARCHAR2
322 , x_context_id NUMBER
323 , x_object_version_number NUMBER
324 , x_access_name VARCHAR2
325 , x_context_type_code VARCHAR2
326 , x_item_id NUMBER
327 , x_name VARCHAR2
328 , x_description VARCHAR2
329 , x_creation_date date
330 , x_created_by NUMBER
331 , x_last_update_date date
332 , x_last_updated_by NUMBER
333 , x_last_update_login NUMBER
334 , x_component_type_code VARCHAR2
335 )
336
337 as
338 ddx_creation_date date;
339 ddx_last_update_date date;
340 ddindx binary_integer; indx binary_integer;
341 begin
342
343 -- copy data to the local IN or IN-OUT args, if any
344
345
346
347
348
349
350
351
352 ddx_creation_date := rosetta_g_miss_date_in_map(x_creation_date);
353
354
355 ddx_last_update_date := rosetta_g_miss_date_in_map(x_last_update_date);
356
357
358
359
360 -- here's the delegated call to the old PL/SQL routine
361 ibe_displaycontext_grp.insert_row(x_rowid,
362 x_context_id,
363 x_object_version_number,
364 x_access_name,
365 x_context_type_code,
366 x_item_id,
367 x_name,
368 x_description,
369 ddx_creation_date,
370 x_created_by,
371 ddx_last_update_date,
372 x_last_updated_by,
373 x_last_update_login,
374 x_component_type_code);
375
376 -- copy data back from the local variables to OUT or IN-OUT args, if any
377
378
379
380
381
382
383
384
385
386
387
388
389
390 end;
391
392 procedure update_row(x_context_id NUMBER
393 , x_object_version_number NUMBER
394 , x_access_name VARCHAR2
395 , x_context_type_code VARCHAR2
396 , x_item_id NUMBER
397 , x_name VARCHAR2
398 , x_description VARCHAR2
399 , x_last_update_date date
400 , x_last_updated_by NUMBER
401 , x_last_update_login NUMBER
402 , x_component_type_code VARCHAR2
403 )
404
405 as
406 ddx_last_update_date date;
407 ddindx binary_integer; indx binary_integer;
408 begin
409
410 -- copy data to the local IN or IN-OUT args, if any
411
412
413
414
415
416
417
418 ddx_last_update_date := rosetta_g_miss_date_in_map(x_last_update_date);
419
420
421
422
423 -- here's the delegated call to the old PL/SQL routine
424 ibe_displaycontext_grp.update_row(x_context_id,
425 x_object_version_number,
426 x_access_name,
427 x_context_type_code,
428 x_item_id,
429 x_name,
430 x_description,
431 ddx_last_update_date,
432 x_last_updated_by,
433 x_last_update_login,
434 x_component_type_code);
435
436 -- copy data back from the local variables to OUT or IN-OUT args, if any
437
438
439
440
441
442
443
444
445
446
447 end;
448
449 end ibe_displaycontext_grp_w;