[Home] [Help]
PACKAGE BODY: APPS.AMV_SEARCH_GRP_W
Source
1 package body amv_search_grp_w as
2 /* $Header: amvwsrgb.pls 120.2 2005/06/30 08:44 appldev 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 find_repositories(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_validation_level NUMBER
25 , x_return_status out nocopy VARCHAR2
26 , x_msg_count out nocopy NUMBER
27 , x_msg_data out nocopy VARCHAR2
28 , p_check_login_user VARCHAR2
29 , p_object_version_number NUMBER
30 , p_repository_id NUMBER
31 , p_repository_code VARCHAR2
32 , p_repository_name VARCHAR2
33 , p_status VARCHAR2
34 , p12_a0 out nocopy JTF_NUMBER_TABLE
35 , p12_a1 out nocopy JTF_VARCHAR2_TABLE_100
36 , p12_a2 out nocopy JTF_VARCHAR2_TABLE_100
37 , p12_a3 out nocopy JTF_VARCHAR2_TABLE_100
38 , p12_a4 out nocopy JTF_NUMBER_TABLE
39 )
40
41 as
42 ddx_searchrep_array amv_search_pvt.amv_searchrep_varray_type;
43 ddindx binary_integer; indx binary_integer;
44 begin
45
46 -- copy data to the local IN or IN-OUT args, if any
47
48
49
50
51
52
53
54
55
56
57
58
59
60 -- here's the delegated call to the old PL/SQL routine
61 amv_search_grp.find_repositories(p_api_version,
62 p_init_msg_list,
63 p_validation_level,
64 x_return_status,
65 x_msg_count,
66 x_msg_data,
67 p_check_login_user,
68 p_object_version_number,
69 p_repository_id,
70 p_repository_code,
71 p_repository_name,
72 p_status,
73 ddx_searchrep_array);
74
75 -- copy data back from the local variables to OUT or IN-OUT args, if any
76
77
78
79
80
81
82
83
84
85
86
87
88 amv_search_pvt_w.rosetta_table_copy_out_p7(ddx_searchrep_array, p12_a0
89 , p12_a1
90 , p12_a2
91 , p12_a3
92 , p12_a4
93 );
94 end;
95
96 procedure find_repository_areas(p_api_version NUMBER
97 , p_init_msg_list VARCHAR2
98 , p_validation_level NUMBER
99 , x_return_status out nocopy VARCHAR2
100 , x_msg_count out nocopy NUMBER
101 , x_msg_data out nocopy VARCHAR2
102 , p_check_login_user VARCHAR2
103 , p8_a0 out nocopy JTF_NUMBER_TABLE
104 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
105 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
106 , p8_a3 out nocopy JTF_NUMBER_TABLE
107 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
108 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
109 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
110 , p8_a7 out nocopy JTF_NUMBER_TABLE
111 , p7_a0 NUMBER := 0-1962.0724
112 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
113 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
114 , p7_a3 NUMBER := 0-1962.0724
115 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
116 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
117 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
118 , p7_a7 NUMBER := 0-1962.0724
119 )
120
121 as
122 ddp_searcharea_obj amv_search_pvt.amv_searchara_obj_type;
123 ddx_searcharea_array amv_search_pvt.amv_searchara_varray_type;
124 ddindx binary_integer; indx binary_integer;
125 begin
126
127 -- copy data to the local IN or IN-OUT args, if any
128
129
130
131
132
133
134
135 ddp_searcharea_obj.repository_id := rosetta_g_miss_num_map(p7_a0);
136 ddp_searcharea_obj.repository_code := p7_a1;
137 ddp_searcharea_obj.area_indicator := p7_a2;
138 ddp_searcharea_obj.area_id := rosetta_g_miss_num_map(p7_a3);
139 ddp_searcharea_obj.area_code := p7_a4;
140 ddp_searcharea_obj.area_name := p7_a5;
141 ddp_searcharea_obj.status := p7_a6;
142 ddp_searcharea_obj.object_version_number := rosetta_g_miss_num_map(p7_a7);
143
144
145 -- here's the delegated call to the old PL/SQL routine
146 amv_search_grp.find_repository_areas(p_api_version,
147 p_init_msg_list,
148 p_validation_level,
149 x_return_status,
150 x_msg_count,
151 x_msg_data,
152 p_check_login_user,
153 ddp_searcharea_obj,
154 ddx_searcharea_array);
155
156 -- copy data back from the local variables to OUT or IN-OUT args, if any
157
158
159
160
161
162
163
164
165 amv_search_pvt_w.rosetta_table_copy_out_p9(ddx_searcharea_array, p8_a0
166 , p8_a1
167 , p8_a2
168 , p8_a3
169 , p8_a4
170 , p8_a5
171 , p8_a6
172 , p8_a7
173 );
174 end;
175
176 procedure content_search(p_api_version NUMBER
177 , p_init_msg_list VARCHAR2
178 , p_validation_level NUMBER
179 , x_return_status out nocopy VARCHAR2
180 , x_msg_count out nocopy NUMBER
181 , x_msg_data out nocopy VARCHAR2
182 , p_check_login_user VARCHAR2
183 , p_application_id NUMBER
184 , p_area_array JTF_VARCHAR2_TABLE_4000
185 , p_content_array JTF_VARCHAR2_TABLE_4000
186 , p10_a0 JTF_VARCHAR2_TABLE_100
187 , p10_a1 JTF_VARCHAR2_TABLE_400
188 , p_imt_string VARCHAR2
189 , p_days NUMBER
190 , p_user_id NUMBER
191 , p_category_id JTF_NUMBER_TABLE
192 , p_include_subcats VARCHAR2
193 , p_external_contents VARCHAR2
194 , p18_a0 out nocopy NUMBER
195 , p18_a1 out nocopy NUMBER
196 , p18_a2 out nocopy NUMBER
197 , p19_a0 out nocopy JTF_VARCHAR2_TABLE_300
198 , p19_a1 out nocopy JTF_VARCHAR2_TABLE_2000
199 , p19_a2 out nocopy JTF_VARCHAR2_TABLE_4000
200 , p19_a3 out nocopy JTF_NUMBER_TABLE
201 , p19_a4 out nocopy JTF_NUMBER_TABLE
202 , p19_a5 out nocopy JTF_VARCHAR2_TABLE_100
203 , p19_a6 out nocopy JTF_VARCHAR2_TABLE_300
204 , p19_a7 out nocopy JTF_VARCHAR2_TABLE_300
205 , p19_a8 out nocopy JTF_VARCHAR2_TABLE_300
206 , p17_a0 NUMBER := 0-1962.0724
207 , p17_a1 NUMBER := 0-1962.0724
208 , p17_a2 VARCHAR2 := fnd_api.g_miss_char
209 )
210
211 as
212 ddp_area_array amv_search_pvt.amv_char_varray_type;
213 ddp_content_array amv_search_pvt.amv_char_varray_type;
214 ddp_param_array amv_search_pvt.amv_searchpar_varray_type;
215 ddp_category_id amv_search_pvt.amv_number_varray_type;
216 ddp_request_obj amv_search_pvt.amv_request_obj_type;
217 ddx_return_obj amv_search_pvt.amv_return_obj_type;
218 ddx_searchres_array amv_search_pvt.amv_searchres_varray_type;
219 ddindx binary_integer; indx binary_integer;
220 begin
221
222 -- copy data to the local IN or IN-OUT args, if any
223
224
225
226
227
228
229
230
231 amv_search_pvt_w.rosetta_table_copy_in_p0(ddp_area_array, p_area_array);
232
233 amv_search_pvt_w.rosetta_table_copy_in_p0(ddp_content_array, p_content_array);
234
235 amv_search_pvt_w.rosetta_table_copy_in_p11(ddp_param_array, p10_a0
236 , p10_a1
237 );
238
239
240
241
242 amv_search_pvt_w.rosetta_table_copy_in_p1(ddp_category_id, p_category_id);
243
244
245
246 ddp_request_obj.records_requested := rosetta_g_miss_num_map(p17_a0);
247 ddp_request_obj.start_record_position := rosetta_g_miss_num_map(p17_a1);
248 ddp_request_obj.return_total_count_flag := p17_a2;
249
250
251
252 -- here's the delegated call to the old PL/SQL routine
253 amv_search_grp.content_search(p_api_version,
254 p_init_msg_list,
255 p_validation_level,
256 x_return_status,
257 x_msg_count,
258 x_msg_data,
259 p_check_login_user,
260 p_application_id,
261 ddp_area_array,
262 ddp_content_array,
263 ddp_param_array,
264 p_imt_string,
265 p_days,
266 p_user_id,
267 ddp_category_id,
268 p_include_subcats,
269 p_external_contents,
270 ddp_request_obj,
271 ddx_return_obj,
272 ddx_searchres_array);
273
274 -- copy data back from the local variables to OUT or IN-OUT args, if any
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293 p18_a0 := rosetta_g_miss_num_map(ddx_return_obj.returned_record_count);
294 p18_a1 := rosetta_g_miss_num_map(ddx_return_obj.next_record_position);
295 p18_a2 := rosetta_g_miss_num_map(ddx_return_obj.total_record_count);
296
297 amv_search_pvt_w.rosetta_table_copy_out_p13(ddx_searchres_array, p19_a0
298 , p19_a1
299 , p19_a2
300 , p19_a3
301 , p19_a4
302 , p19_a5
303 , p19_a6
304 , p19_a7
305 , p19_a8
306 );
307 end;
308
309 end amv_search_grp_w;