[Home] [Help]
PACKAGE BODY: APPS.AHL_UMP_SMRINSTANCE_PVT_W
Source
4 , a1 JTF_VARCHAR2_TABLE_100
1 package body ahl_ump_smrinstance_pvt_w as
2 /* $Header: AHLSMRWB.pls 120.4.12020000.2 2012/12/10 16:42:47 prakkum ship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy ahl_ump_smrinstance_pvt.results_mrinstance_tbl_type, a0 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_DATE_TABLE
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_VARCHAR2_TABLE_100
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_VARCHAR2_TABLE_4000
30 , a27 JTF_VARCHAR2_TABLE_100
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_NUMBER_TABLE
33 , a30 JTF_NUMBER_TABLE
34 , a31 JTF_VARCHAR2_TABLE_100
35 , a32 JTF_VARCHAR2_TABLE_100
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_VARCHAR2_TABLE_100
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_VARCHAR2_TABLE_100
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_NUMBER_TABLE
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if a0 is not null and a0.count > 0 then
46 if a0.count > 0 then
47 indx := a0.first;
48 ddindx := 1;
49 while true loop
50 t(ddindx).program_type_meaning := a0(indx);
51 t(ddindx).mr_title := a1(indx);
52 t(ddindx).part_number := a2(indx);
53 t(ddindx).serial_number := a3(indx);
54 t(ddindx).uom_remain := a4(indx);
55 t(ddindx).counter_name := a5(indx);
56 t(ddindx).earliest_due_date := a6(indx);
57 t(ddindx).due_date := a7(indx);
58 t(ddindx).latest_due_date := a8(indx);
59 t(ddindx).tolerance_flag := a9(indx);
60 t(ddindx).umr_status_code := a10(indx);
61 t(ddindx).umr_status_meaning := a11(indx);
62 t(ddindx).scheduled_date := a12(indx);
63 t(ddindx).visit_number := a13(indx);
64 t(ddindx).visit_status := a14(indx);
65 t(ddindx).assign_status := a15(indx);
66 t(ddindx).service_req_id := a16(indx);
67 t(ddindx).service_req_num := a17(indx);
68 t(ddindx).service_req_date := a18(indx);
69 t(ddindx).originator_title := a19(indx);
70 t(ddindx).dependant_title := a20(indx);
71 t(ddindx).unit_effectivity_id := a21(indx);
72 t(ddindx).mr_id := a22(indx);
73 t(ddindx).csi_item_instance_id := a23(indx);
74 t(ddindx).instance_number := a24(indx);
75 t(ddindx).mr_interval_id := a25(indx);
76 t(ddindx).unit_name := a26(indx);
77 t(ddindx).program_title := a27(indx);
78 t(ddindx).contract_number := a28(indx);
79 t(ddindx).defer_from_ue_id := a29(indx);
80 t(ddindx).defer_to_ue_id := a30(indx);
81 t(ddindx).unit_effectivity_type := a31(indx);
82 t(ddindx).object_type := a32(indx);
83 t(ddindx).manually_planned_flag := a33(indx);
84 t(ddindx).manually_planned_desc := a34(indx);
85 t(ddindx).visit_id := a35(indx);
89 ddindx := ddindx+1;
86 t(ddindx).version_number := a36(indx);
87 t(ddindx).acc_trig_reln_type := a37(indx);
88 t(ddindx).build_goal_percent := a38(indx);
90 if a0.last =indx
91 then exit;
92 end if;
93 indx := a0.next(indx);
94 end loop;
95 end if;
96 end if;
97 end rosetta_table_copy_in_p3;
98 procedure rosetta_table_copy_out_p3(t ahl_ump_smrinstance_pvt.results_mrinstance_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
99 , a1 out nocopy JTF_VARCHAR2_TABLE_100
100 , a2 out nocopy JTF_VARCHAR2_TABLE_100
101 , a3 out nocopy JTF_VARCHAR2_TABLE_100
102 , a4 out nocopy JTF_NUMBER_TABLE
103 , a5 out nocopy JTF_VARCHAR2_TABLE_100
104 , a6 out nocopy JTF_DATE_TABLE
105 , a7 out nocopy JTF_DATE_TABLE
106 , a8 out nocopy JTF_DATE_TABLE
107 , a9 out nocopy JTF_VARCHAR2_TABLE_100
108 , a10 out nocopy JTF_VARCHAR2_TABLE_100
109 , a11 out nocopy JTF_VARCHAR2_TABLE_100
110 , a12 out nocopy JTF_DATE_TABLE
111 , a13 out nocopy JTF_VARCHAR2_TABLE_100
112 , a14 out nocopy JTF_VARCHAR2_TABLE_100
113 , a15 out nocopy JTF_VARCHAR2_TABLE_100
114 , a16 out nocopy JTF_NUMBER_TABLE
115 , a17 out nocopy JTF_VARCHAR2_TABLE_100
116 , a18 out nocopy JTF_DATE_TABLE
117 , a19 out nocopy JTF_VARCHAR2_TABLE_100
118 , a20 out nocopy JTF_VARCHAR2_TABLE_100
119 , a21 out nocopy JTF_NUMBER_TABLE
120 , a22 out nocopy JTF_NUMBER_TABLE
121 , a23 out nocopy JTF_NUMBER_TABLE
122 , a24 out nocopy JTF_VARCHAR2_TABLE_100
123 , a25 out nocopy JTF_NUMBER_TABLE
124 , a26 out nocopy JTF_VARCHAR2_TABLE_4000
125 , a27 out nocopy JTF_VARCHAR2_TABLE_100
126 , a28 out nocopy JTF_VARCHAR2_TABLE_200
127 , a29 out nocopy JTF_NUMBER_TABLE
128 , a30 out nocopy JTF_NUMBER_TABLE
129 , a31 out nocopy JTF_VARCHAR2_TABLE_100
130 , a32 out nocopy JTF_VARCHAR2_TABLE_100
131 , a33 out nocopy JTF_VARCHAR2_TABLE_100
132 , a34 out nocopy JTF_VARCHAR2_TABLE_100
133 , a35 out nocopy JTF_NUMBER_TABLE
134 , a36 out nocopy JTF_VARCHAR2_TABLE_100
135 , a37 out nocopy JTF_VARCHAR2_TABLE_100
136 , a38 out nocopy JTF_NUMBER_TABLE
137 ) as
138 ddindx binary_integer; indx binary_integer;
139 begin
140 if t is null or t.count = 0 then
141 a0 := JTF_VARCHAR2_TABLE_100();
142 a1 := JTF_VARCHAR2_TABLE_100();
143 a2 := JTF_VARCHAR2_TABLE_100();
144 a3 := JTF_VARCHAR2_TABLE_100();
145 a4 := JTF_NUMBER_TABLE();
146 a5 := JTF_VARCHAR2_TABLE_100();
147 a6 := JTF_DATE_TABLE();
148 a7 := JTF_DATE_TABLE();
149 a8 := JTF_DATE_TABLE();
150 a9 := JTF_VARCHAR2_TABLE_100();
151 a10 := JTF_VARCHAR2_TABLE_100();
152 a11 := JTF_VARCHAR2_TABLE_100();
153 a12 := JTF_DATE_TABLE();
154 a13 := JTF_VARCHAR2_TABLE_100();
155 a14 := JTF_VARCHAR2_TABLE_100();
156 a15 := JTF_VARCHAR2_TABLE_100();
157 a16 := JTF_NUMBER_TABLE();
158 a17 := JTF_VARCHAR2_TABLE_100();
159 a18 := JTF_DATE_TABLE();
163 a22 := JTF_NUMBER_TABLE();
160 a19 := JTF_VARCHAR2_TABLE_100();
161 a20 := JTF_VARCHAR2_TABLE_100();
162 a21 := JTF_NUMBER_TABLE();
164 a23 := JTF_NUMBER_TABLE();
165 a24 := JTF_VARCHAR2_TABLE_100();
166 a25 := JTF_NUMBER_TABLE();
167 a26 := JTF_VARCHAR2_TABLE_4000();
168 a27 := JTF_VARCHAR2_TABLE_100();
169 a28 := JTF_VARCHAR2_TABLE_200();
170 a29 := JTF_NUMBER_TABLE();
171 a30 := JTF_NUMBER_TABLE();
172 a31 := JTF_VARCHAR2_TABLE_100();
173 a32 := JTF_VARCHAR2_TABLE_100();
174 a33 := JTF_VARCHAR2_TABLE_100();
175 a34 := JTF_VARCHAR2_TABLE_100();
176 a35 := JTF_NUMBER_TABLE();
177 a36 := JTF_VARCHAR2_TABLE_100();
178 a37 := JTF_VARCHAR2_TABLE_100();
179 a38 := JTF_NUMBER_TABLE();
180 else
181 a0 := JTF_VARCHAR2_TABLE_100();
182 a1 := JTF_VARCHAR2_TABLE_100();
183 a2 := JTF_VARCHAR2_TABLE_100();
184 a3 := JTF_VARCHAR2_TABLE_100();
185 a4 := JTF_NUMBER_TABLE();
186 a5 := JTF_VARCHAR2_TABLE_100();
187 a6 := JTF_DATE_TABLE();
188 a7 := JTF_DATE_TABLE();
189 a8 := JTF_DATE_TABLE();
190 a9 := JTF_VARCHAR2_TABLE_100();
191 a10 := JTF_VARCHAR2_TABLE_100();
192 a11 := JTF_VARCHAR2_TABLE_100();
193 a12 := JTF_DATE_TABLE();
194 a13 := JTF_VARCHAR2_TABLE_100();
195 a14 := JTF_VARCHAR2_TABLE_100();
196 a15 := JTF_VARCHAR2_TABLE_100();
197 a16 := JTF_NUMBER_TABLE();
201 a20 := JTF_VARCHAR2_TABLE_100();
198 a17 := JTF_VARCHAR2_TABLE_100();
199 a18 := JTF_DATE_TABLE();
200 a19 := JTF_VARCHAR2_TABLE_100();
202 a21 := JTF_NUMBER_TABLE();
203 a22 := JTF_NUMBER_TABLE();
204 a23 := JTF_NUMBER_TABLE();
205 a24 := JTF_VARCHAR2_TABLE_100();
206 a25 := JTF_NUMBER_TABLE();
207 a26 := JTF_VARCHAR2_TABLE_4000();
208 a27 := JTF_VARCHAR2_TABLE_100();
209 a28 := JTF_VARCHAR2_TABLE_200();
210 a29 := JTF_NUMBER_TABLE();
211 a30 := JTF_NUMBER_TABLE();
212 a31 := JTF_VARCHAR2_TABLE_100();
213 a32 := JTF_VARCHAR2_TABLE_100();
214 a33 := JTF_VARCHAR2_TABLE_100();
215 a34 := JTF_VARCHAR2_TABLE_100();
216 a35 := JTF_NUMBER_TABLE();
217 a36 := JTF_VARCHAR2_TABLE_100();
218 a37 := JTF_VARCHAR2_TABLE_100();
219 a38 := JTF_NUMBER_TABLE();
220 if t.count > 0 then
221 a0.extend(t.count);
222 a1.extend(t.count);
223 a2.extend(t.count);
224 a3.extend(t.count);
225 a4.extend(t.count);
226 a5.extend(t.count);
227 a6.extend(t.count);
228 a7.extend(t.count);
229 a8.extend(t.count);
230 a9.extend(t.count);
231 a10.extend(t.count);
232 a11.extend(t.count);
233 a12.extend(t.count);
234 a13.extend(t.count);
235 a14.extend(t.count);
236 a15.extend(t.count);
237 a16.extend(t.count);
238 a17.extend(t.count);
239 a18.extend(t.count);
240 a19.extend(t.count);
241 a20.extend(t.count);
242 a21.extend(t.count);
243 a22.extend(t.count);
244 a23.extend(t.count);
245 a24.extend(t.count);
246 a25.extend(t.count);
247 a26.extend(t.count);
248 a27.extend(t.count);
249 a28.extend(t.count);
250 a29.extend(t.count);
251 a30.extend(t.count);
252 a31.extend(t.count);
253 a32.extend(t.count);
254 a33.extend(t.count);
255 a34.extend(t.count);
256 a35.extend(t.count);
257 a36.extend(t.count);
258 a37.extend(t.count);
259 a38.extend(t.count);
260 ddindx := t.first;
261 indx := 1;
262 while true loop
263 a0(indx) := t(ddindx).program_type_meaning;
264 a1(indx) := t(ddindx).mr_title;
265 a2(indx) := t(ddindx).part_number;
266 a3(indx) := t(ddindx).serial_number;
267 a4(indx) := t(ddindx).uom_remain;
268 a5(indx) := t(ddindx).counter_name;
269 a6(indx) := t(ddindx).earliest_due_date;
270 a7(indx) := t(ddindx).due_date;
271 a8(indx) := t(ddindx).latest_due_date;
272 a9(indx) := t(ddindx).tolerance_flag;
273 a10(indx) := t(ddindx).umr_status_code;
274 a11(indx) := t(ddindx).umr_status_meaning;
275 a12(indx) := t(ddindx).scheduled_date;
276 a13(indx) := t(ddindx).visit_number;
277 a14(indx) := t(ddindx).visit_status;
278 a15(indx) := t(ddindx).assign_status;
279 a16(indx) := t(ddindx).service_req_id;
280 a17(indx) := t(ddindx).service_req_num;
281 a18(indx) := t(ddindx).service_req_date;
282 a19(indx) := t(ddindx).originator_title;
283 a20(indx) := t(ddindx).dependant_title;
284 a21(indx) := t(ddindx).unit_effectivity_id;
285 a22(indx) := t(ddindx).mr_id;
286 a23(indx) := t(ddindx).csi_item_instance_id;
287 a24(indx) := t(ddindx).instance_number;
288 a25(indx) := t(ddindx).mr_interval_id;
289 a26(indx) := t(ddindx).unit_name;
290 a27(indx) := t(ddindx).program_title;
291 a28(indx) := t(ddindx).contract_number;
292 a29(indx) := t(ddindx).defer_from_ue_id;
293 a30(indx) := t(ddindx).defer_to_ue_id;
294 a31(indx) := t(ddindx).unit_effectivity_type;
295 a32(indx) := t(ddindx).object_type;
296 a33(indx) := t(ddindx).manually_planned_flag;
297 a34(indx) := t(ddindx).manually_planned_desc;
298 a35(indx) := t(ddindx).visit_id;
299 a36(indx) := t(ddindx).version_number;
300 a37(indx) := t(ddindx).acc_trig_reln_type;
301 a38(indx) := t(ddindx).build_goal_percent;
302 indx := indx+1;
303 if t.last =ddindx
304 then exit;
305 end if;
306 ddindx := t.next(ddindx);
307 end loop;
308 end if;
309 end if;
310 end rosetta_table_copy_out_p3;
311
312 procedure rosetta_table_copy_in_p7(t out nocopy ahl_ump_smrinstance_pvt.ump_bind_param_tbl_type, a0 JTF_VARCHAR2_TABLE_400
313 ) as
314 ddindx binary_integer; indx binary_integer;
315 begin
316 if a0 is not null and a0.count > 0 then
317 if a0.count > 0 then
318 indx := a0.first;
319 ddindx := 1;
320 while true loop
321 t(ddindx).bind_param := a0(indx);
322 ddindx := ddindx+1;
323 if a0.last =indx
324 then exit;
325 end if;
326 indx := a0.next(indx);
327 end loop;
328 end if;
334 begin
329 end if;
330 end rosetta_table_copy_in_p7;
331 procedure rosetta_table_copy_out_p7(t ahl_ump_smrinstance_pvt.ump_bind_param_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_400
332 ) as
333 ddindx binary_integer; indx binary_integer;
335 if t is null or t.count = 0 then
336 a0 := JTF_VARCHAR2_TABLE_400();
337 else
338 a0 := JTF_VARCHAR2_TABLE_400();
339 if t.count > 0 then
340 a0.extend(t.count);
341 ddindx := t.first;
342 indx := 1;
343 while true loop
344 a0(indx) := t(ddindx).bind_param;
345 indx := indx+1;
346 if t.last =ddindx
347 then exit;
348 end if;
349 ddindx := t.next(ddindx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_out_p7;
354
355 procedure search_mr_instances(p_api_version NUMBER
356 , p_init_msg_list VARCHAR2
357 , p_commit VARCHAR2
358 , p_validation_level NUMBER
359 , p_default VARCHAR2
360 , p_module_type VARCHAR2
361 , p_start_row NUMBER
362 , p_rows_per_page NUMBER
363 , p8_a0 VARCHAR2
364 , p8_a1 VARCHAR2
365 , p8_a2 VARCHAR2
366 , p8_a3 VARCHAR2
367 , p8_a4 VARCHAR2
368 , p8_a5 VARCHAR2
369 , p8_a6 VARCHAR2
370 , p8_a7 DATE
371 , p8_a8 DATE
372 , p8_a9 VARCHAR2
373 , p8_a10 VARCHAR2
374 , p8_a11 VARCHAR2
375 , p8_a12 VARCHAR2
376 , p8_a13 VARCHAR2
377 , p8_a14 NUMBER
378 , p8_a15 VARCHAR2
379 , p8_a16 NUMBER
380 , p8_a17 VARCHAR2
381 , p8_a18 VARCHAR2
382 , p8_a19 VARCHAR2
383 , p8_a20 VARCHAR2
384 , p8_a21 VARCHAR2
385 , p8_a22 VARCHAR2
386 , p8_a23 VARCHAR2
387 , p8_a24 NUMBER
388 , p8_a25 VARCHAR2
389 , p8_a26 VARCHAR2
390 , p8_a27 VARCHAR2
391 , p8_a28 VARCHAR2
392 , p8_a29 VARCHAR2
393 , p8_a30 VARCHAR2
394 , p8_a31 NUMBER
395 , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
396 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
397 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
398 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
399 , p9_a4 out nocopy JTF_NUMBER_TABLE
400 , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
401 , p9_a6 out nocopy JTF_DATE_TABLE
402 , p9_a7 out nocopy JTF_DATE_TABLE
403 , p9_a8 out nocopy JTF_DATE_TABLE
404 , p9_a9 out nocopy JTF_VARCHAR2_TABLE_100
405 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
406 , p9_a11 out nocopy JTF_VARCHAR2_TABLE_100
407 , p9_a12 out nocopy JTF_DATE_TABLE
408 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
409 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
410 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
411 , p9_a16 out nocopy JTF_NUMBER_TABLE
412 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
413 , p9_a18 out nocopy JTF_DATE_TABLE
414 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_100
415 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_100
416 , p9_a21 out nocopy JTF_NUMBER_TABLE
417 , p9_a22 out nocopy JTF_NUMBER_TABLE
418 , p9_a23 out nocopy JTF_NUMBER_TABLE
419 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_100
420 , p9_a25 out nocopy JTF_NUMBER_TABLE
421 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_4000
422 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
423 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_200
424 , p9_a29 out nocopy JTF_NUMBER_TABLE
425 , p9_a30 out nocopy JTF_NUMBER_TABLE
426 , p9_a31 out nocopy JTF_VARCHAR2_TABLE_100
427 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_100
428 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_100
429 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_100
430 , p9_a35 out nocopy JTF_NUMBER_TABLE
431 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
432 , p9_a37 out nocopy JTF_VARCHAR2_TABLE_100
433 , p9_a38 out nocopy JTF_NUMBER_TABLE
434 , x_results_count out nocopy NUMBER
435 , x_return_status out nocopy VARCHAR2
436 , x_msg_count out nocopy NUMBER
437 , x_msg_data out nocopy VARCHAR2
438 )
439
440 as
441 ddp_search_mr_instance_rec ahl_ump_smrinstance_pvt.search_mrinstance_rec_type;
442 ddx_results_mr_instance_tbl ahl_ump_smrinstance_pvt.results_mrinstance_tbl_type;
443 ddindx binary_integer; indx binary_integer;
444 begin
445
446 -- copy data to the local IN or IN-OUT args, if any
447
448
449
450
451
452
453
454
455 ddp_search_mr_instance_rec.unit_name := p8_a0;
456 ddp_search_mr_instance_rec.part_number := p8_a1;
457 ddp_search_mr_instance_rec.serial_number := p8_a2;
458 ddp_search_mr_instance_rec.sort_by := p8_a3;
459 ddp_search_mr_instance_rec.mr_status := p8_a4;
460 ddp_search_mr_instance_rec.mr_title := p8_a5;
461 ddp_search_mr_instance_rec.program_type := p8_a6;
462 ddp_search_mr_instance_rec.due_from := p8_a7;
463 ddp_search_mr_instance_rec.due_to := p8_a8;
467 ddp_search_mr_instance_rec.contract_number := p8_a12;
464 ddp_search_mr_instance_rec.show_tolerance := p8_a9;
465 ddp_search_mr_instance_rec.components_flag := p8_a10;
466 ddp_search_mr_instance_rec.repetitive_flag := p8_a11;
468 ddp_search_mr_instance_rec.contract_modifier := p8_a13;
469 ddp_search_mr_instance_rec.service_line_id := p8_a14;
470 ddp_search_mr_instance_rec.service_line_num := p8_a15;
471 ddp_search_mr_instance_rec.program_id := p8_a16;
472 ddp_search_mr_instance_rec.program_title := p8_a17;
473 ddp_search_mr_instance_rec.show_groupmr := p8_a18;
474 ddp_search_mr_instance_rec.object_type := p8_a19;
475 ddp_search_mr_instance_rec.search_for_type := p8_a20;
476 ddp_search_mr_instance_rec.visit_number := p8_a21;
477 ddp_search_mr_instance_rec.visit_org_name := p8_a22;
478 ddp_search_mr_instance_rec.visit_dept_name := p8_a23;
479 ddp_search_mr_instance_rec.incident_type_id := p8_a24;
480 ddp_search_mr_instance_rec.service_req_num := p8_a25;
481 ddp_search_mr_instance_rec.item_grp_name := p8_a26;
482 ddp_search_mr_instance_rec.on_wing := p8_a27;
483 ddp_search_mr_instance_rec.mr_implement_status := p8_a28;
484 ddp_search_mr_instance_rec.service_category := p8_a29;
485 ddp_search_mr_instance_rec.is_vwp_navg := p8_a30;
486 ddp_search_mr_instance_rec.vwp_visit_id := p8_a31;
487
488
489
490
491
492 -- here's the delegated call to the old PL/SQL routine
493 ahl_ump_smrinstance_pvt.search_mr_instances(p_api_version,
494 p_init_msg_list,
495 p_commit,
496 p_validation_level,
497 p_default,
498 p_module_type,
499 p_start_row,
503 x_results_count,
500 p_rows_per_page,
501 ddp_search_mr_instance_rec,
502 ddx_results_mr_instance_tbl,
504 x_return_status,
505 x_msg_count,
506 x_msg_data);
507
508 -- copy data back from the local variables to OUT or IN-OUT args, if any
509
510
511
512
513
514
515
516
517
518 ahl_ump_smrinstance_pvt_w.rosetta_table_copy_out_p3(ddx_results_mr_instance_tbl, p9_a0
519 , p9_a1
520 , p9_a2
521 , p9_a3
522 , p9_a4
523 , p9_a5
524 , p9_a6
525 , p9_a7
526 , p9_a8
527 , p9_a9
528 , p9_a10
529 , p9_a11
530 , p9_a12
531 , p9_a13
532 , p9_a14
533 , p9_a15
534 , p9_a16
535 , p9_a17
536 , p9_a18
537 , p9_a19
538 , p9_a20
539 , p9_a21
540 , p9_a22
541 , p9_a23
542 , p9_a24
543 , p9_a25
544 , p9_a26
545 , p9_a27
546 , p9_a28
547 , p9_a29
548 , p9_a30
549 , p9_a31
550 , p9_a32
551 , p9_a33
552 , p9_a34
553 , p9_a35
554 , p9_a36
555 , p9_a37
556 , p9_a38
557 );
558
559
560
561
562 end;
563
564 procedure build_ump_search_query(p_api_version NUMBER
565 , p_init_msg_list VARCHAR2
566 , p_commit VARCHAR2
567 , p_validation_level NUMBER
568 , p_default VARCHAR2
569 , p_module_type VARCHAR2
570 , p6_a0 VARCHAR2
571 , p6_a1 VARCHAR2
572 , p6_a2 VARCHAR2
573 , p6_a3 VARCHAR2
574 , p6_a4 VARCHAR2
575 , p6_a5 VARCHAR2
576 , p6_a6 DATE
577 , p6_a7 DATE
578 , p6_a8 VARCHAR2
579 , p6_a9 VARCHAR2
580 , p6_a10 VARCHAR2
581 , p6_a11 NUMBER
582 , p6_a12 VARCHAR2
583 , p6_a13 VARCHAR2
584 , p6_a14 VARCHAR2
585 , p6_a15 VARCHAR2
586 , p6_a16 VARCHAR2
587 , p6_a17 VARCHAR2
588 , p6_a18 VARCHAR2
589 , p6_a19 VARCHAR2
590 , p6_a20 VARCHAR2
591 , p6_a21 VARCHAR2
592 , p6_a22 VARCHAR2
593 , p6_a23 NUMBER
594 , p6_a24 VARCHAR2
595 , p6_a25 NUMBER
596 , p6_a26 NUMBER
597 , p6_a27 VARCHAR2
598 , p6_a28 VARCHAR2
599 , p6_a29 VARCHAR2
600 , p7_a0 out nocopy VARCHAR2
601 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_400
602 , x_return_status out nocopy VARCHAR2
603 , x_msg_count out nocopy NUMBER
604 , x_msg_data out nocopy VARCHAR2
605 )
606
607 as
608 ddp_search_ump_rec ahl_ump_smrinstance_pvt.search_ump_rec_type;
609 ddx_ump_search_query ahl_ump_smrinstance_pvt.ump_search_query_type;
610 ddx_ump_bind_params ahl_ump_smrinstance_pvt.ump_bind_param_tbl_type;
611 ddindx binary_integer; indx binary_integer;
612 begin
613
617
614 -- copy data to the local IN or IN-OUT args, if any
615
616
618
619
620
621 ddp_search_ump_rec.unit_name := p6_a0;
622 ddp_search_ump_rec.fleet := p6_a1;
623 ddp_search_ump_rec.item := p6_a2;
624 ddp_search_ump_rec.item_serial_number := p6_a3;
625 ddp_search_ump_rec.mr_title := p6_a4;
626 ddp_search_ump_rec.mr_scheduled_status := p6_a5;
627 ddp_search_ump_rec.due_from := p6_a6;
628 ddp_search_ump_rec.due_to := p6_a7;
629 ddp_search_ump_rec.show_tolerance := p6_a8;
630 ddp_search_ump_rec.program_type := p6_a9;
631 ddp_search_ump_rec.program_sub_type := p6_a10;
632 ddp_search_ump_rec.due_within := p6_a11;
633 ddp_search_ump_rec.due_within_uom := p6_a12;
634 ddp_search_ump_rec.mr_implement_status := p6_a13;
635 ddp_search_ump_rec.arrival_org := p6_a14;
636 ddp_search_ump_rec.nr_type := p6_a15;
637 ddp_search_ump_rec.show_dependent_requirements := p6_a16;
638 ddp_search_ump_rec.operating_org := p6_a17;
639 ddp_search_ump_rec.engineering_org := p6_a18;
640 ddp_search_ump_rec.primary_visit_type := p6_a19;
641 ddp_search_ump_rec.scheduled_visit_type := p6_a20;
642 ddp_search_ump_rec.visit_number := p6_a21;
643 ddp_search_ump_rec.visit_org_name := p6_a22;
644 ddp_search_ump_rec.max_duration := p6_a23;
645 ddp_search_ump_rec.max_duration_uom := p6_a24;
646 ddp_search_ump_rec.service_category := p6_a25;
647 ddp_search_ump_rec.service_yield := p6_a26;
648 ddp_search_ump_rec.show_only_nr_req_flag := p6_a27;
649 ddp_search_ump_rec.show_visit_date_violations := p6_a28;
650 ddp_search_ump_rec.mr_service_type := p6_a29;
651
652
653
654
655
656
657 -- here's the delegated call to the old PL/SQL routine
658 ahl_ump_smrinstance_pvt.build_ump_search_query(p_api_version,
659 p_init_msg_list,
660 p_commit,
661 p_validation_level,
662 p_default,
663 p_module_type,
664 ddp_search_ump_rec,
665 ddx_ump_search_query,
666 ddx_ump_bind_params,
667 x_return_status,
668 x_msg_count,
669 x_msg_data);
670
671 -- copy data back from the local variables to OUT or IN-OUT args, if any
672
673
674
675
676
677
678
679 p7_a0 := ddx_ump_search_query.ump_search_query_str;
680
681 ahl_ump_smrinstance_pvt_w.rosetta_table_copy_out_p7(ddx_ump_bind_params, p8_a0
682 );
683
684
685
686 end;
687
688 end ahl_ump_smrinstance_pvt_w;