[Home] [Help]
PACKAGE BODY: APPS.AHL_LTP_MTL_REQ_PVT_W
Source
1 package body ahl_ltp_mtl_req_pvt_w as
2 /* $Header: AHLWLMRB.pls 120.0.12020000.2 2012/12/14 09:49:05 shnatu noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_ltp_mtl_req_pvt.route_mtl_req_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 ) as
16 ddindx binary_integer; indx binary_integer;
17 begin
18 if a0 is not null and a0.count > 0 then
19 if a0.count > 0 then
20 indx := a0.first;
21 ddindx := 1;
22 while true loop
23 t(ddindx).route_operation_id := a0(indx);
24 t(ddindx).inventory_item_id := a1(indx);
25 t(ddindx).inv_master_org_id := a2(indx);
26 t(ddindx).item_group_id := a3(indx);
27 t(ddindx).quantity := a4(indx);
28 t(ddindx).uom_code := a5(indx);
29 t(ddindx).rt_oper_material_id := a6(indx);
30 t(ddindx).position_path_id := a7(indx);
31 t(ddindx).relationship_id := a8(indx);
32 t(ddindx).item_comp_detail_id := a9(indx);
33 t(ddindx).mc_header_id := a10(indx);
34 t(ddindx).position_key := a11(indx);
35 ddindx := ddindx+1;
36 if a0.last =indx
37 then exit;
38 end if;
39 indx := a0.next(indx);
40 end loop;
41 end if;
42 end if;
43 end rosetta_table_copy_in_p1;
44 procedure rosetta_table_copy_out_p1(t ahl_ltp_mtl_req_pvt.route_mtl_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45 , a1 out nocopy JTF_NUMBER_TABLE
46 , a2 out nocopy JTF_NUMBER_TABLE
47 , a3 out nocopy JTF_NUMBER_TABLE
48 , a4 out nocopy JTF_NUMBER_TABLE
49 , a5 out nocopy JTF_VARCHAR2_TABLE_100
50 , a6 out nocopy JTF_NUMBER_TABLE
51 , a7 out nocopy JTF_NUMBER_TABLE
52 , a8 out nocopy JTF_NUMBER_TABLE
53 , a9 out nocopy JTF_NUMBER_TABLE
54 , a10 out nocopy JTF_NUMBER_TABLE
55 , a11 out nocopy JTF_NUMBER_TABLE
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if t is null or t.count = 0 then
60 a0 := JTF_NUMBER_TABLE();
61 a1 := JTF_NUMBER_TABLE();
62 a2 := JTF_NUMBER_TABLE();
63 a3 := JTF_NUMBER_TABLE();
64 a4 := JTF_NUMBER_TABLE();
65 a5 := JTF_VARCHAR2_TABLE_100();
66 a6 := JTF_NUMBER_TABLE();
67 a7 := JTF_NUMBER_TABLE();
68 a8 := JTF_NUMBER_TABLE();
69 a9 := JTF_NUMBER_TABLE();
70 a10 := JTF_NUMBER_TABLE();
71 a11 := JTF_NUMBER_TABLE();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_NUMBER_TABLE();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_NUMBER_TABLE();
78 a5 := JTF_VARCHAR2_TABLE_100();
79 a6 := JTF_NUMBER_TABLE();
80 a7 := JTF_NUMBER_TABLE();
81 a8 := JTF_NUMBER_TABLE();
82 a9 := JTF_NUMBER_TABLE();
83 a10 := JTF_NUMBER_TABLE();
84 a11 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 a1.extend(t.count);
88 a2.extend(t.count);
89 a3.extend(t.count);
90 a4.extend(t.count);
91 a5.extend(t.count);
92 a6.extend(t.count);
93 a7.extend(t.count);
94 a8.extend(t.count);
95 a9.extend(t.count);
96 a10.extend(t.count);
97 a11.extend(t.count);
98 ddindx := t.first;
99 indx := 1;
100 while true loop
101 a0(indx) := t(ddindx).route_operation_id;
102 a1(indx) := t(ddindx).inventory_item_id;
103 a2(indx) := t(ddindx).inv_master_org_id;
104 a3(indx) := t(ddindx).item_group_id;
105 a4(indx) := t(ddindx).quantity;
106 a5(indx) := t(ddindx).uom_code;
107 a6(indx) := t(ddindx).rt_oper_material_id;
108 a7(indx) := t(ddindx).position_path_id;
109 a8(indx) := t(ddindx).relationship_id;
110 a9(indx) := t(ddindx).item_comp_detail_id;
111 a10(indx) := t(ddindx).mc_header_id;
112 a11(indx) := t(ddindx).position_key;
113 indx := indx+1;
114 if t.last =ddindx
115 then exit;
116 end if;
117 ddindx := t.next(ddindx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_out_p1;
122
123 procedure rosetta_table_copy_in_p2(t out nocopy ahl_ltp_mtl_req_pvt.alt_items_tbl_type, a0 JTF_NUMBER_TABLE) as
124 ddindx binary_integer; indx binary_integer;
125 begin
126 if a0 is not null and a0.count > 0 then
127 if a0.count > 0 then
128 indx := a0.first;
129 ddindx := 1;
130 while true loop
131 t(ddindx) := a0(indx);
132 ddindx := ddindx+1;
133 if a0.last =indx
134 then exit;
135 end if;
136 indx := a0.next(indx);
137 end loop;
138 end if;
139 end if;
140 end rosetta_table_copy_in_p2;
141 procedure rosetta_table_copy_out_p2(t ahl_ltp_mtl_req_pvt.alt_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
142 ddindx binary_integer; indx binary_integer;
143 begin
144 if t is null or t.count = 0 then
145 a0 := JTF_NUMBER_TABLE();
146 else
147 a0 := JTF_NUMBER_TABLE();
148 if t.count > 0 then
149 a0.extend(t.count);
150 ddindx := t.first;
151 indx := 1;
152 while true loop
153 a0(indx) := t(ddindx);
154 indx := indx+1;
155 if t.last =ddindx
156 then exit;
157 end if;
158 ddindx := t.next(ddindx);
159 end loop;
160 end if;
161 end if;
162 end rosetta_table_copy_out_p2;
163
164 procedure get_route_mtl_req(p_api_version NUMBER
165 , p_init_msg_list VARCHAR2
166 , p_validation_level NUMBER
167 , x_return_status out nocopy VARCHAR2
168 , x_msg_count out nocopy NUMBER
169 , x_msg_data out nocopy VARCHAR2
170 , p_route_id NUMBER
171 , p_mr_route_id NUMBER
172 , p_item_instance_id NUMBER
173 , p_visit_id NUMBER
174 , p_requirement_date DATE
175 , p_request_type VARCHAR2
176 , p12_a0 out nocopy JTF_NUMBER_TABLE
177 , p12_a1 out nocopy JTF_NUMBER_TABLE
178 , p12_a2 out nocopy JTF_NUMBER_TABLE
179 , p12_a3 out nocopy JTF_NUMBER_TABLE
180 , p12_a4 out nocopy JTF_NUMBER_TABLE
181 , p12_a5 out nocopy JTF_VARCHAR2_TABLE_100
182 , p12_a6 out nocopy JTF_NUMBER_TABLE
183 , p12_a7 out nocopy JTF_NUMBER_TABLE
184 , p12_a8 out nocopy JTF_NUMBER_TABLE
185 , p12_a9 out nocopy JTF_NUMBER_TABLE
186 , p12_a10 out nocopy JTF_NUMBER_TABLE
187 , p12_a11 out nocopy JTF_NUMBER_TABLE
188 )
189
190 as
191 ddx_route_mtl_req_tbl ahl_ltp_mtl_req_pvt.route_mtl_req_tbl_type;
192 ddindx binary_integer; indx binary_integer;
193 begin
194
195 -- copy data to the local IN or IN-OUT args, if any
196
197
198
199
200
201
202
203
204
205
206
207
208
209 -- here's the delegated call to the old PL/SQL routine
210 ahl_ltp_mtl_req_pvt.get_route_mtl_req(p_api_version,
211 p_init_msg_list,
212 p_validation_level,
213 x_return_status,
214 x_msg_count,
215 x_msg_data,
216 p_route_id,
217 p_mr_route_id,
218 p_item_instance_id,
219 p_visit_id,
220 p_requirement_date,
221 p_request_type,
222 ddx_route_mtl_req_tbl);
223
224 -- copy data back from the local variables to OUT or IN-OUT args, if any
225
226
227
228
229
230
231
232
233
234
235
236
237 ahl_ltp_mtl_req_pvt_w.rosetta_table_copy_out_p1(ddx_route_mtl_req_tbl, p12_a0
238 , p12_a1
239 , p12_a2
240 , p12_a3
241 , p12_a4
242 , p12_a5
243 , p12_a6
244 , p12_a7
245 , p12_a8
246 , p12_a9
247 , p12_a10
248 , p12_a11
249 );
250 end;
251
252 procedure get_material_req_for_pos(p_api_version NUMBER
253 , p_init_msg_list VARCHAR2
254 , p_validation_level NUMBER
255 , x_return_status out nocopy VARCHAR2
256 , x_msg_count out nocopy NUMBER
257 , x_msg_data out nocopy VARCHAR2
258 , p_uc_header_id NUMBER
259 , p_visit_id NUMBER
260 , p_quantity NUMBER
261 , p_uom_code VARCHAR2
262 , p_x_index in out nocopy NUMBER
263 , p11_a0 in out nocopy JTF_NUMBER_TABLE
264 , p11_a1 in out nocopy JTF_NUMBER_TABLE
265 , p11_a2 in out nocopy JTF_NUMBER_TABLE
266 , p11_a3 in out nocopy JTF_NUMBER_TABLE
267 , p11_a4 in out nocopy JTF_NUMBER_TABLE
268 , p11_a5 in out nocopy JTF_VARCHAR2_TABLE_100
269 , p11_a6 in out nocopy JTF_NUMBER_TABLE
270 , p11_a7 in out nocopy JTF_NUMBER_TABLE
271 , p11_a8 in out nocopy JTF_NUMBER_TABLE
272 , p11_a9 in out nocopy JTF_NUMBER_TABLE
273 , p11_a10 in out nocopy JTF_NUMBER_TABLE
274 , p11_a11 in out nocopy JTF_NUMBER_TABLE
275 )
276
277 as
278 ddp_x_route_mtl_reqs ahl_ltp_mtl_req_pvt.route_mtl_req_tbl_type;
279 ddindx binary_integer; indx binary_integer;
280 begin
281
282 -- copy data to the local IN or IN-OUT args, if any
283
284
285
286
287
288
289
290
291
292
293
294 ahl_ltp_mtl_req_pvt_w.rosetta_table_copy_in_p1(ddp_x_route_mtl_reqs, p11_a0
295 , p11_a1
296 , p11_a2
297 , p11_a3
298 , p11_a4
299 , p11_a5
300 , p11_a6
301 , p11_a7
302 , p11_a8
303 , p11_a9
304 , p11_a10
305 , p11_a11
306 );
307
308 -- here's the delegated call to the old PL/SQL routine
309 ahl_ltp_mtl_req_pvt.get_material_req_for_pos(p_api_version,
310 p_init_msg_list,
311 p_validation_level,
312 x_return_status,
313 x_msg_count,
314 x_msg_data,
315 p_uc_header_id,
316 p_visit_id,
317 p_quantity,
318 p_uom_code,
319 p_x_index,
320 ddp_x_route_mtl_reqs);
321
322 -- copy data back from the local variables to OUT or IN-OUT args, if any
323
324
325
326
327
328
329
330
331
332
333
334 ahl_ltp_mtl_req_pvt_w.rosetta_table_copy_out_p1(ddp_x_route_mtl_reqs, p11_a0
335 , p11_a1
336 , p11_a2
337 , p11_a3
338 , p11_a4
339 , p11_a5
340 , p11_a6
341 , p11_a7
342 , p11_a8
343 , p11_a9
344 , p11_a10
345 , p11_a11
346 );
347 end;
348
349 procedure get_alternate_items(p_api_version NUMBER
350 , p_init_msg_list VARCHAR2
351 , p_validation_level NUMBER
352 , p_schedule_material_id NUMBER
353 , p_curr_item_flag VARCHAR2
354 , x_alt_items out nocopy JTF_NUMBER_TABLE
355 , x_return_status out nocopy VARCHAR2
356 , x_msg_count out nocopy NUMBER
357 , x_msg_data out nocopy VARCHAR2
358 )
359
360 as
361 ddx_alt_items ahl_ltp_mtl_req_pvt.alt_items_tbl_type;
362 ddindx binary_integer; indx binary_integer;
363 begin
364
365 -- copy data to the local IN or IN-OUT args, if any
366
367
368
369
370
371
372
373
374
375 -- here's the delegated call to the old PL/SQL routine
376 ahl_ltp_mtl_req_pvt.get_alternate_items(p_api_version,
377 p_init_msg_list,
378 p_validation_level,
379 p_schedule_material_id,
380 p_curr_item_flag,
381 ddx_alt_items,
382 x_return_status,
383 x_msg_count,
384 x_msg_data);
385
386 -- copy data back from the local variables to OUT or IN-OUT args, if any
387
388
389
390
391
392 ahl_ltp_mtl_req_pvt_w.rosetta_table_copy_out_p2(ddx_alt_items, x_alt_items);
393
394
395
396 end;
397
398 end ahl_ltp_mtl_req_pvt_w;