[Home] [Help]
PACKAGE BODY: APPS.JTF_DISPLAYCONTEXT_GRP_W
Source
1 package body jtf_displaycontext_grp_w as
2 /* $Header: JTFGRCXB.pls 115.6 2004/07/09 18:50:29 applrt 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t out jtf_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_200
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 ) as
31 ddindx binary_integer; indx binary_integer;
32 begin
33 if a0 is not null and a0.count > 0 then
34 if a0.count > 0 then
35 indx := a0.first;
36 ddindx := 1;
37 while true loop
38 t(ddindx).context_delete := a0(indx);
39 t(ddindx).object_version_number := a1(indx);
40 t(ddindx).context_id := a2(indx);
41 t(ddindx).access_name := a3(indx);
42 t(ddindx).display_name := a4(indx);
43 t(ddindx).description := a5(indx);
44 t(ddindx).context_type := a6(indx);
45 t(ddindx).default_deliverable_id := a7(indx);
46 ddindx := ddindx+1;
47 if a0.last =indx
48 then exit;
49 end if;
50 indx := a0.next(indx);
51 end loop;
52 end if;
53 end if;
54 end rosetta_table_copy_in_p3;
55 procedure rosetta_table_copy_out_p3(t jtf_displaycontext_grp.display_context_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
56 , a1 out JTF_NUMBER_TABLE
57 , a2 out JTF_NUMBER_TABLE
58 , a3 out JTF_VARCHAR2_TABLE_100
59 , a4 out JTF_VARCHAR2_TABLE_100
60 , a5 out JTF_VARCHAR2_TABLE_200
61 , a6 out JTF_VARCHAR2_TABLE_100
62 , a7 out JTF_NUMBER_TABLE
63 ) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if t is null or t.count = 0 then
67 a0 := JTF_VARCHAR2_TABLE_100();
68 a1 := JTF_NUMBER_TABLE();
69 a2 := JTF_NUMBER_TABLE();
70 a3 := JTF_VARCHAR2_TABLE_100();
71 a4 := JTF_VARCHAR2_TABLE_100();
72 a5 := JTF_VARCHAR2_TABLE_200();
73 a6 := JTF_VARCHAR2_TABLE_100();
74 a7 := JTF_NUMBER_TABLE();
75 else
76 a0 := JTF_VARCHAR2_TABLE_100();
77 a1 := JTF_NUMBER_TABLE();
78 a2 := JTF_NUMBER_TABLE();
79 a3 := JTF_VARCHAR2_TABLE_100();
80 a4 := JTF_VARCHAR2_TABLE_100();
81 a5 := JTF_VARCHAR2_TABLE_200();
82 a6 := JTF_VARCHAR2_TABLE_100();
83 a7 := JTF_NUMBER_TABLE();
84 if t.count > 0 then
85 a0.extend(t.count);
86 a1.extend(t.count);
87 a2.extend(t.count);
88 a3.extend(t.count);
89 a4.extend(t.count);
90 a5.extend(t.count);
91 a6.extend(t.count);
92 a7.extend(t.count);
93 ddindx := t.first;
94 indx := 1;
95 while true loop
96 a0(indx) := t(ddindx).context_delete;
97 a1(indx) := t(ddindx).object_version_number;
98 a2(indx) := t(ddindx).context_id;
99 a3(indx) := t(ddindx).access_name;
100 a4(indx) := t(ddindx).display_name;
101 a5(indx) := t(ddindx).description;
102 a6(indx) := t(ddindx).context_type;
103 a7(indx) := t(ddindx).default_deliverable_id;
104 indx := indx+1;
105 if t.last =ddindx
106 then exit;
107 end if;
108 ddindx := t.next(ddindx);
109 end loop;
110 end if;
111 end if;
112 end rosetta_table_copy_out_p3;
113
114 procedure save_display_context(p_api_version NUMBER
115 , p_init_msg_list VARCHAR2
116 , p_commit VARCHAR2
117 , x_return_status out VARCHAR2
118 , x_msg_count out NUMBER
119 , x_msg_data out VARCHAR2
120 , p6_a0 in out VARCHAR2
121 , p6_a1 in out NUMBER
122 , p6_a2 in out NUMBER
123 , p6_a3 in out VARCHAR2
124 , p6_a4 in out VARCHAR2
125 , p6_a5 in out VARCHAR2
126 , p6_a6 in out VARCHAR2
127 , p6_a7 in out NUMBER
128 )
129 as
130 ddp_display_context_rec jtf_displaycontext_grp.display_context_rec_type;
131 ddindx binary_integer; indx binary_integer;
132 begin
133
134 -- copy data to the local IN or IN-OUT args, if any
135
136
137
138
139
140
141 ddp_display_context_rec.context_delete := p6_a0;
142 ddp_display_context_rec.object_version_number := p6_a1;
143 ddp_display_context_rec.context_id := p6_a2;
144 ddp_display_context_rec.access_name := p6_a3;
145 ddp_display_context_rec.display_name := p6_a4;
146 ddp_display_context_rec.description := p6_a5;
147 ddp_display_context_rec.context_type := p6_a6;
148 ddp_display_context_rec.default_deliverable_id := p6_a7;
149
150 -- here's the delegated call to the old PL/SQL routine
151 jtf_displaycontext_grp.save_display_context(p_api_version,
152 p_init_msg_list,
153 p_commit,
154 x_return_status,
155 x_msg_count,
156 x_msg_data,
157 ddp_display_context_rec);
158
159 -- copy data back from the local OUT or IN-OUT args, if any
160
161
162
163
164
165
166 p6_a0 := ddp_display_context_rec.context_delete;
167 p6_a1 := ddp_display_context_rec.object_version_number;
168 p6_a2 := ddp_display_context_rec.context_id;
169 p6_a3 := ddp_display_context_rec.access_name;
170 p6_a4 := ddp_display_context_rec.display_name;
171 p6_a5 := ddp_display_context_rec.description;
172 p6_a6 := ddp_display_context_rec.context_type;
173 p6_a7 := ddp_display_context_rec.default_deliverable_id;
174 end;
175
176 procedure save_delete_display_context(p_api_version NUMBER
177 , p_init_msg_list VARCHAR2
178 , p_commit VARCHAR2
179 , x_return_status out VARCHAR2
180 , x_msg_count out NUMBER
181 , x_msg_data out VARCHAR2
182 , p6_a0 in out JTF_VARCHAR2_TABLE_100
183 , p6_a1 in out JTF_NUMBER_TABLE
184 , p6_a2 in out JTF_NUMBER_TABLE
185 , p6_a3 in out JTF_VARCHAR2_TABLE_100
186 , p6_a4 in out JTF_VARCHAR2_TABLE_100
187 , p6_a5 in out JTF_VARCHAR2_TABLE_200
188 , p6_a6 in out JTF_VARCHAR2_TABLE_100
189 , p6_a7 in out JTF_NUMBER_TABLE
190 )
191 as
192 ddp_display_context_tbl jtf_displaycontext_grp.display_context_tbl_type;
193 ddindx binary_integer; indx binary_integer;
194 begin
195
196 -- copy data to the local IN or IN-OUT args, if any
197
198
199
200
201
202
203 jtf_displaycontext_grp_w.rosetta_table_copy_in_p3(ddp_display_context_tbl, p6_a0
204 , p6_a1
205 , p6_a2
206 , p6_a3
207 , p6_a4
208 , p6_a5
209 , p6_a6
210 , p6_a7
211 );
212
213 -- here's the delegated call to the old PL/SQL routine
214 jtf_displaycontext_grp.save_delete_display_context(p_api_version,
215 p_init_msg_list,
216 p_commit,
217 x_return_status,
218 x_msg_count,
219 x_msg_data,
220 ddp_display_context_tbl);
221
222 -- copy data back from the local OUT or IN-OUT args, if any
223
224
225
226
227
228
229 jtf_displaycontext_grp_w.rosetta_table_copy_out_p3(ddp_display_context_tbl, p6_a0
230 , p6_a1
231 , p6_a2
232 , p6_a3
233 , p6_a4
234 , p6_a5
235 , p6_a6
236 , p6_a7
237 );
238 end;
239
240 procedure delete_display_context(p_api_version NUMBER
241 , p_init_msg_list VARCHAR2
242 , p_commit VARCHAR2
243 , x_return_status out VARCHAR2
244 , x_msg_count out NUMBER
245 , x_msg_data out VARCHAR2
246 , p6_a0 in out VARCHAR2
247 , p6_a1 in out NUMBER
248 , p6_a2 in out NUMBER
249 , p6_a3 in out VARCHAR2
250 , p6_a4 in out VARCHAR2
251 , p6_a5 in out VARCHAR2
252 , p6_a6 in out VARCHAR2
253 , p6_a7 in out NUMBER
254 )
255 as
256 ddp_display_context_rec jtf_displaycontext_grp.display_context_rec_type;
257 ddindx binary_integer; indx binary_integer;
258 begin
259
260 -- copy data to the local IN or IN-OUT args, if any
261
262
263
264
265
266
267 ddp_display_context_rec.context_delete := p6_a0;
268 ddp_display_context_rec.object_version_number := p6_a1;
269 ddp_display_context_rec.context_id := p6_a2;
270 ddp_display_context_rec.access_name := p6_a3;
271 ddp_display_context_rec.display_name := p6_a4;
272 ddp_display_context_rec.description := p6_a5;
273 ddp_display_context_rec.context_type := p6_a6;
274 ddp_display_context_rec.default_deliverable_id := p6_a7;
275
276 -- here's the delegated call to the old PL/SQL routine
277 jtf_displaycontext_grp.delete_display_context(p_api_version,
278 p_init_msg_list,
279 p_commit,
280 x_return_status,
281 x_msg_count,
282 x_msg_data,
283 ddp_display_context_rec);
284
285 -- copy data back from the local OUT or IN-OUT args, if any
286
287
288
289
290
291
292 p6_a0 := ddp_display_context_rec.context_delete;
293 p6_a1 := ddp_display_context_rec.object_version_number;
294 p6_a2 := ddp_display_context_rec.context_id;
295 p6_a3 := ddp_display_context_rec.access_name;
296 p6_a4 := ddp_display_context_rec.display_name;
297 p6_a5 := ddp_display_context_rec.description;
298 p6_a6 := ddp_display_context_rec.context_type;
299 p6_a7 := ddp_display_context_rec.default_deliverable_id;
300 end;
301
302 end jtf_displaycontext_grp_w;