[Home] [Help]
PACKAGE BODY: APPS.AHL_CMP_PVT_W
Source
1 package body ahl_cmp_pvt_w as
2 /* $Header: AHLWCMPB.pls 120.0.12020000.2 2012/12/13 05:15:14 shnatu noship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy ahl_cmp_pvt.ahl_mtlxfr_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_300
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 ) as
18 ddindx binary_integer; indx binary_integer;
19 begin
20 if a0 is not null and a0.count > 0 then
21 if a0.count > 0 then
22 indx := a0.first;
23 ddindx := 1;
24 while true loop
25 t(ddindx).inventory_item_id := a0(indx);
26 t(ddindx).revision := a1(indx);
27 t(ddindx).organization_id := a2(indx);
28 t(ddindx).src_subinv_name := a3(indx);
29 t(ddindx).src_locator_id := a4(indx);
30 t(ddindx).dst_subinv_name := a5(indx);
31 t(ddindx).dst_locator_id := a6(indx);
32 t(ddindx).dst_locator_segments := a7(indx);
33 t(ddindx).quantity := a8(indx);
34 t(ddindx).uom := a9(indx);
35 t(ddindx).transaction_type_id := a10(indx);
36 t(ddindx).transaction_reference := a11(indx);
37 t(ddindx).serial_number := a12(indx);
38 t(ddindx).lot_number := a13(indx);
39 ddindx := ddindx+1;
40 if a0.last =indx
41 then exit;
42 end if;
43 indx := a0.next(indx);
44 end loop;
45 end if;
46 end if;
47 end rosetta_table_copy_in_p4;
48 procedure rosetta_table_copy_out_p4(t ahl_cmp_pvt.ahl_mtlxfr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
49 , a1 out nocopy JTF_VARCHAR2_TABLE_100
50 , a2 out nocopy JTF_NUMBER_TABLE
51 , a3 out nocopy JTF_VARCHAR2_TABLE_100
52 , a4 out nocopy JTF_NUMBER_TABLE
53 , a5 out nocopy JTF_VARCHAR2_TABLE_100
54 , a6 out nocopy JTF_NUMBER_TABLE
55 , a7 out nocopy JTF_VARCHAR2_TABLE_300
56 , a8 out nocopy JTF_NUMBER_TABLE
57 , a9 out nocopy JTF_VARCHAR2_TABLE_100
58 , a10 out nocopy JTF_NUMBER_TABLE
59 , a11 out nocopy JTF_VARCHAR2_TABLE_300
60 , a12 out nocopy JTF_VARCHAR2_TABLE_100
61 , a13 out nocopy JTF_VARCHAR2_TABLE_100
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_NUMBER_TABLE();
67 a1 := JTF_VARCHAR2_TABLE_100();
68 a2 := JTF_NUMBER_TABLE();
69 a3 := JTF_VARCHAR2_TABLE_100();
70 a4 := JTF_NUMBER_TABLE();
71 a5 := JTF_VARCHAR2_TABLE_100();
72 a6 := JTF_NUMBER_TABLE();
73 a7 := JTF_VARCHAR2_TABLE_300();
74 a8 := JTF_NUMBER_TABLE();
75 a9 := JTF_VARCHAR2_TABLE_100();
76 a10 := JTF_NUMBER_TABLE();
77 a11 := JTF_VARCHAR2_TABLE_300();
78 a12 := JTF_VARCHAR2_TABLE_100();
79 a13 := JTF_VARCHAR2_TABLE_100();
80 else
81 a0 := JTF_NUMBER_TABLE();
82 a1 := JTF_VARCHAR2_TABLE_100();
83 a2 := JTF_NUMBER_TABLE();
84 a3 := JTF_VARCHAR2_TABLE_100();
85 a4 := JTF_NUMBER_TABLE();
86 a5 := JTF_VARCHAR2_TABLE_100();
87 a6 := JTF_NUMBER_TABLE();
88 a7 := JTF_VARCHAR2_TABLE_300();
89 a8 := JTF_NUMBER_TABLE();
90 a9 := JTF_VARCHAR2_TABLE_100();
91 a10 := JTF_NUMBER_TABLE();
92 a11 := JTF_VARCHAR2_TABLE_300();
93 a12 := JTF_VARCHAR2_TABLE_100();
94 a13 := JTF_VARCHAR2_TABLE_100();
95 if t.count > 0 then
96 a0.extend(t.count);
97 a1.extend(t.count);
98 a2.extend(t.count);
99 a3.extend(t.count);
100 a4.extend(t.count);
101 a5.extend(t.count);
102 a6.extend(t.count);
103 a7.extend(t.count);
104 a8.extend(t.count);
105 a9.extend(t.count);
106 a10.extend(t.count);
107 a11.extend(t.count);
108 a12.extend(t.count);
109 a13.extend(t.count);
110 ddindx := t.first;
111 indx := 1;
112 while true loop
113 a0(indx) := t(ddindx).inventory_item_id;
114 a1(indx) := t(ddindx).revision;
115 a2(indx) := t(ddindx).organization_id;
116 a3(indx) := t(ddindx).src_subinv_name;
117 a4(indx) := t(ddindx).src_locator_id;
118 a5(indx) := t(ddindx).dst_subinv_name;
119 a6(indx) := t(ddindx).dst_locator_id;
120 a7(indx) := t(ddindx).dst_locator_segments;
121 a8(indx) := t(ddindx).quantity;
122 a9(indx) := t(ddindx).uom;
123 a10(indx) := t(ddindx).transaction_type_id;
124 a11(indx) := t(ddindx).transaction_reference;
125 a12(indx) := t(ddindx).serial_number;
126 a13(indx) := t(ddindx).lot_number;
127 indx := indx+1;
128 if t.last =ddindx
129 then exit;
130 end if;
131 ddindx := t.next(ddindx);
132 end loop;
133 end if;
134 end if;
135 end rosetta_table_copy_out_p4;
136
137 procedure rosetta_table_copy_in_p6(t out nocopy ahl_cmp_pvt.ahl_mtlrtn_tbl_type, a0 JTF_NUMBER_TABLE
138 , a1 JTF_VARCHAR2_TABLE_300
139 , a2 JTF_NUMBER_TABLE
140 , a3 JTF_VARCHAR2_TABLE_100
141 , a4 JTF_NUMBER_TABLE
142 , a5 JTF_VARCHAR2_TABLE_100
143 , a6 JTF_NUMBER_TABLE
144 , a7 JTF_VARCHAR2_TABLE_100
145 , a8 JTF_NUMBER_TABLE
146 , a9 JTF_VARCHAR2_TABLE_300
147 , a10 JTF_NUMBER_TABLE
148 , a11 JTF_NUMBER_TABLE
149 , a12 JTF_VARCHAR2_TABLE_100
150 , a13 JTF_VARCHAR2_TABLE_100
151 , a14 JTF_VARCHAR2_TABLE_100
152 , a15 JTF_NUMBER_TABLE
153 , a16 JTF_NUMBER_TABLE
154 ) as
155 ddindx binary_integer; indx binary_integer;
156 begin
157 if a0 is not null and a0.count > 0 then
158 if a0.count > 0 then
159 indx := a0.first;
160 ddindx := 1;
161 while true loop
162 t(ddindx).repair_batch_id := a0(indx);
163 t(ddindx).repair_batch_name := a1(indx);
164 t(ddindx).inventory_item_id := a2(indx);
165 t(ddindx).revision := a3(indx);
166 t(ddindx).organization_id := a4(indx);
167 t(ddindx).src_subinv_name := a5(indx);
168 t(ddindx).src_locator_id := a6(indx);
169 t(ddindx).dst_subinv_name := a7(indx);
170 t(ddindx).dst_locator_id := a8(indx);
171 t(ddindx).dst_locator_segments := a9(indx);
172 t(ddindx).instance_qty := a10(indx);
173 t(ddindx).return_qty := a11(indx);
174 t(ddindx).uom := a12(indx);
175 t(ddindx).serial_number := a13(indx);
176 t(ddindx).lot_number := a14(indx);
177 t(ddindx).instance_id := a15(indx);
178 t(ddindx).return_condition := a16(indx);
179 ddindx := ddindx+1;
180 if a0.last =indx
181 then exit;
182 end if;
183 indx := a0.next(indx);
184 end loop;
185 end if;
186 end if;
187 end rosetta_table_copy_in_p6;
188 procedure rosetta_table_copy_out_p6(t ahl_cmp_pvt.ahl_mtlrtn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
189 , a1 out nocopy JTF_VARCHAR2_TABLE_300
190 , a2 out nocopy JTF_NUMBER_TABLE
191 , a3 out nocopy JTF_VARCHAR2_TABLE_100
192 , a4 out nocopy JTF_NUMBER_TABLE
193 , a5 out nocopy JTF_VARCHAR2_TABLE_100
194 , a6 out nocopy JTF_NUMBER_TABLE
195 , a7 out nocopy JTF_VARCHAR2_TABLE_100
196 , a8 out nocopy JTF_NUMBER_TABLE
197 , a9 out nocopy JTF_VARCHAR2_TABLE_300
198 , a10 out nocopy JTF_NUMBER_TABLE
199 , a11 out nocopy JTF_NUMBER_TABLE
200 , a12 out nocopy JTF_VARCHAR2_TABLE_100
201 , a13 out nocopy JTF_VARCHAR2_TABLE_100
202 , a14 out nocopy JTF_VARCHAR2_TABLE_100
203 , a15 out nocopy JTF_NUMBER_TABLE
204 , a16 out nocopy JTF_NUMBER_TABLE
205 ) as
206 ddindx binary_integer; indx binary_integer;
207 begin
208 if t is null or t.count = 0 then
209 a0 := JTF_NUMBER_TABLE();
210 a1 := JTF_VARCHAR2_TABLE_300();
211 a2 := JTF_NUMBER_TABLE();
212 a3 := JTF_VARCHAR2_TABLE_100();
213 a4 := JTF_NUMBER_TABLE();
214 a5 := JTF_VARCHAR2_TABLE_100();
215 a6 := JTF_NUMBER_TABLE();
216 a7 := JTF_VARCHAR2_TABLE_100();
217 a8 := JTF_NUMBER_TABLE();
218 a9 := JTF_VARCHAR2_TABLE_300();
219 a10 := JTF_NUMBER_TABLE();
220 a11 := JTF_NUMBER_TABLE();
221 a12 := JTF_VARCHAR2_TABLE_100();
222 a13 := JTF_VARCHAR2_TABLE_100();
223 a14 := JTF_VARCHAR2_TABLE_100();
224 a15 := JTF_NUMBER_TABLE();
225 a16 := JTF_NUMBER_TABLE();
226 else
227 a0 := JTF_NUMBER_TABLE();
228 a1 := JTF_VARCHAR2_TABLE_300();
229 a2 := JTF_NUMBER_TABLE();
230 a3 := JTF_VARCHAR2_TABLE_100();
231 a4 := JTF_NUMBER_TABLE();
232 a5 := JTF_VARCHAR2_TABLE_100();
233 a6 := JTF_NUMBER_TABLE();
234 a7 := JTF_VARCHAR2_TABLE_100();
235 a8 := JTF_NUMBER_TABLE();
236 a9 := JTF_VARCHAR2_TABLE_300();
237 a10 := JTF_NUMBER_TABLE();
238 a11 := JTF_NUMBER_TABLE();
239 a12 := JTF_VARCHAR2_TABLE_100();
240 a13 := JTF_VARCHAR2_TABLE_100();
241 a14 := JTF_VARCHAR2_TABLE_100();
242 a15 := JTF_NUMBER_TABLE();
243 a16 := JTF_NUMBER_TABLE();
244 if t.count > 0 then
245 a0.extend(t.count);
246 a1.extend(t.count);
247 a2.extend(t.count);
248 a3.extend(t.count);
249 a4.extend(t.count);
250 a5.extend(t.count);
251 a6.extend(t.count);
252 a7.extend(t.count);
253 a8.extend(t.count);
254 a9.extend(t.count);
255 a10.extend(t.count);
256 a11.extend(t.count);
257 a12.extend(t.count);
258 a13.extend(t.count);
259 a14.extend(t.count);
260 a15.extend(t.count);
261 a16.extend(t.count);
262 ddindx := t.first;
263 indx := 1;
264 while true loop
265 a0(indx) := t(ddindx).repair_batch_id;
266 a1(indx) := t(ddindx).repair_batch_name;
267 a2(indx) := t(ddindx).inventory_item_id;
268 a3(indx) := t(ddindx).revision;
269 a4(indx) := t(ddindx).organization_id;
270 a5(indx) := t(ddindx).src_subinv_name;
271 a6(indx) := t(ddindx).src_locator_id;
272 a7(indx) := t(ddindx).dst_subinv_name;
273 a8(indx) := t(ddindx).dst_locator_id;
274 a9(indx) := t(ddindx).dst_locator_segments;
275 a10(indx) := t(ddindx).instance_qty;
276 a11(indx) := t(ddindx).return_qty;
277 a12(indx) := t(ddindx).uom;
278 a13(indx) := t(ddindx).serial_number;
279 a14(indx) := t(ddindx).lot_number;
280 a15(indx) := t(ddindx).instance_id;
281 a16(indx) := t(ddindx).return_condition;
282 indx := indx+1;
283 if t.last =ddindx
284 then exit;
285 end if;
286 ddindx := t.next(ddindx);
287 end loop;
288 end if;
289 end if;
290 end rosetta_table_copy_out_p6;
291
292 procedure perform_mtl_xfr(p_api_version NUMBER
293 , p_init_msg_list VARCHAR2
294 , p_commit VARCHAR2
295 , p_validation_level NUMBER
296 , p4_a0 in out nocopy JTF_NUMBER_TABLE
297 , p4_a1 in out nocopy JTF_VARCHAR2_TABLE_100
298 , p4_a2 in out nocopy JTF_NUMBER_TABLE
299 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
300 , p4_a4 in out nocopy JTF_NUMBER_TABLE
301 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
302 , p4_a6 in out nocopy JTF_NUMBER_TABLE
303 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_300
304 , p4_a8 in out nocopy JTF_NUMBER_TABLE
305 , p4_a9 in out nocopy JTF_VARCHAR2_TABLE_100
306 , p4_a10 in out nocopy JTF_NUMBER_TABLE
307 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_300
308 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
309 , p4_a13 in out nocopy JTF_VARCHAR2_TABLE_100
310 , x_return_status out nocopy VARCHAR2
311 , x_msg_count out nocopy NUMBER
312 , x_msg_data out nocopy VARCHAR2
313 )
314
315 as
316 ddp_x_ahl_mtlxfr_tbl ahl_cmp_pvt.ahl_mtlxfr_tbl_type;
317 ddindx binary_integer; indx binary_integer;
318 begin
319
320 -- copy data to the local IN or IN-OUT args, if any
321
322
323
324
325 ahl_cmp_pvt_w.rosetta_table_copy_in_p4(ddp_x_ahl_mtlxfr_tbl, p4_a0
326 , p4_a1
327 , p4_a2
328 , p4_a3
329 , p4_a4
330 , p4_a5
331 , p4_a6
332 , p4_a7
333 , p4_a8
334 , p4_a9
335 , p4_a10
336 , p4_a11
337 , p4_a12
338 , p4_a13
339 );
340
341
342
343
344 -- here's the delegated call to the old PL/SQL routine
345 ahl_cmp_pvt.perform_mtl_xfr(p_api_version,
346 p_init_msg_list,
347 p_commit,
348 p_validation_level,
349 ddp_x_ahl_mtlxfr_tbl,
350 x_return_status,
351 x_msg_count,
352 x_msg_data);
353
354 -- copy data back from the local variables to OUT or IN-OUT args, if any
355
356
357
358
359 ahl_cmp_pvt_w.rosetta_table_copy_out_p4(ddp_x_ahl_mtlxfr_tbl, p4_a0
360 , p4_a1
361 , p4_a2
362 , p4_a3
363 , p4_a4
364 , p4_a5
365 , p4_a6
366 , p4_a7
367 , p4_a8
368 , p4_a9
369 , p4_a10
370 , p4_a11
371 , p4_a12
372 , p4_a13
373 );
374
375
376
377 end;
378
379 procedure perform_return_txn(p_api_version NUMBER
380 , p_init_msg_list VARCHAR2
381 , p_commit VARCHAR2
382 , p_validation_level NUMBER
383 , p4_a0 in out nocopy JTF_NUMBER_TABLE
384 , p4_a1 in out nocopy JTF_VARCHAR2_TABLE_300
385 , p4_a2 in out nocopy JTF_NUMBER_TABLE
386 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
387 , p4_a4 in out nocopy JTF_NUMBER_TABLE
388 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
389 , p4_a6 in out nocopy JTF_NUMBER_TABLE
390 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
391 , p4_a8 in out nocopy JTF_NUMBER_TABLE
392 , p4_a9 in out nocopy JTF_VARCHAR2_TABLE_300
393 , p4_a10 in out nocopy JTF_NUMBER_TABLE
394 , p4_a11 in out nocopy JTF_NUMBER_TABLE
395 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
396 , p4_a13 in out nocopy JTF_VARCHAR2_TABLE_100
397 , p4_a14 in out nocopy JTF_VARCHAR2_TABLE_100
398 , p4_a15 in out nocopy JTF_NUMBER_TABLE
399 , p4_a16 in out nocopy JTF_NUMBER_TABLE
400 , x_return_status out nocopy VARCHAR2
401 , x_msg_count out nocopy NUMBER
402 , x_msg_data out nocopy VARCHAR2
403 )
404
405 as
406 ddp_x_ahl_mtlrtn_tbl ahl_cmp_pvt.ahl_mtlrtn_tbl_type;
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 ahl_cmp_pvt_w.rosetta_table_copy_in_p6(ddp_x_ahl_mtlrtn_tbl, p4_a0
416 , p4_a1
417 , p4_a2
418 , p4_a3
419 , p4_a4
420 , p4_a5
421 , p4_a6
422 , p4_a7
423 , p4_a8
424 , p4_a9
425 , p4_a10
426 , p4_a11
427 , p4_a12
428 , p4_a13
429 , p4_a14
430 , p4_a15
431 , p4_a16
432 );
433
434
435
436
437 -- here's the delegated call to the old PL/SQL routine
438 ahl_cmp_pvt.perform_return_txn(p_api_version,
439 p_init_msg_list,
440 p_commit,
441 p_validation_level,
442 ddp_x_ahl_mtlrtn_tbl,
443 x_return_status,
444 x_msg_count,
445 x_msg_data);
446
447 -- copy data back from the local variables to OUT or IN-OUT args, if any
448
449
450
451
452 ahl_cmp_pvt_w.rosetta_table_copy_out_p6(ddp_x_ahl_mtlrtn_tbl, p4_a0
453 , p4_a1
454 , p4_a2
455 , p4_a3
456 , p4_a4
457 , p4_a5
458 , p4_a6
459 , p4_a7
460 , p4_a8
461 , p4_a9
462 , p4_a10
463 , p4_a11
464 , p4_a12
465 , p4_a13
466 , p4_a14
467 , p4_a15
468 , p4_a16
469 );
470
471
472
473 end;
474
475 end ahl_cmp_pvt_w;