[Home] [Help]
PACKAGE BODY: APPS.CSF_DEBRIEF_PUB_W
Source
1 package body csf_debrief_pub_w as
2 /* $Header: csfrwdbb.pls 120.0 2005/05/24 18:28:05 appldev noship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy csf_debrief_pub.debrief_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_DATE_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_VARCHAR2_TABLE_200
14 , a11 JTF_VARCHAR2_TABLE_200
15 , a12 JTF_VARCHAR2_TABLE_200
16 , a13 JTF_VARCHAR2_TABLE_200
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_VARCHAR2_TABLE_200
19 , a16 JTF_VARCHAR2_TABLE_200
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_100
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if a0 is not null and a0.count > 0 then
33 if a0.count > 0 then
34 indx := a0.first;
35 ddindx := 1;
36 while true loop
37 t(ddindx).debrief_header_id := a0(indx);
38 t(ddindx).debrief_number := a1(indx);
39 t(ddindx).debrief_date := a2(indx);
40 t(ddindx).debrief_status_id := a3(indx);
41 t(ddindx).task_assignment_id := a4(indx);
42 t(ddindx).created_by := a5(indx);
43 t(ddindx).creation_date := a6(indx);
44 t(ddindx).last_updated_by := a7(indx);
45 t(ddindx).last_update_date := a8(indx);
46 t(ddindx).last_update_login := a9(indx);
47 t(ddindx).attribute1 := a10(indx);
48 t(ddindx).attribute2 := a11(indx);
49 t(ddindx).attribute3 := a12(indx);
50 t(ddindx).attribute4 := a13(indx);
51 t(ddindx).attribute5 := a14(indx);
52 t(ddindx).attribute6 := a15(indx);
53 t(ddindx).attribute7 := a16(indx);
54 t(ddindx).attribute8 := a17(indx);
55 t(ddindx).attribute9 := a18(indx);
56 t(ddindx).attribute10 := a19(indx);
57 t(ddindx).attribute11 := a20(indx);
58 t(ddindx).attribute12 := a21(indx);
59 t(ddindx).attribute13 := a22(indx);
60 t(ddindx).attribute14 := a23(indx);
61 t(ddindx).attribute15 := a24(indx);
62 t(ddindx).attribute_category := a25(indx);
63 ddindx := ddindx+1;
64 if a0.last =indx
65 then exit;
66 end if;
67 indx := a0.next(indx);
68 end loop;
69 end if;
70 end if;
71 end rosetta_table_copy_in_p5;
72 procedure rosetta_table_copy_out_p5(t csf_debrief_pub.debrief_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
73 , a1 out nocopy JTF_VARCHAR2_TABLE_100
74 , a2 out nocopy JTF_DATE_TABLE
75 , a3 out nocopy JTF_NUMBER_TABLE
76 , a4 out nocopy JTF_NUMBER_TABLE
77 , a5 out nocopy JTF_NUMBER_TABLE
78 , a6 out nocopy JTF_DATE_TABLE
79 , a7 out nocopy JTF_NUMBER_TABLE
80 , a8 out nocopy JTF_DATE_TABLE
81 , a9 out nocopy JTF_NUMBER_TABLE
82 , a10 out nocopy JTF_VARCHAR2_TABLE_200
83 , a11 out nocopy JTF_VARCHAR2_TABLE_200
84 , a12 out nocopy JTF_VARCHAR2_TABLE_200
85 , a13 out nocopy JTF_VARCHAR2_TABLE_200
86 , a14 out nocopy JTF_VARCHAR2_TABLE_200
87 , a15 out nocopy JTF_VARCHAR2_TABLE_200
88 , a16 out nocopy JTF_VARCHAR2_TABLE_200
89 , a17 out nocopy JTF_VARCHAR2_TABLE_200
90 , a18 out nocopy JTF_VARCHAR2_TABLE_200
91 , a19 out nocopy JTF_VARCHAR2_TABLE_200
92 , a20 out nocopy JTF_VARCHAR2_TABLE_200
93 , a21 out nocopy JTF_VARCHAR2_TABLE_200
94 , a22 out nocopy JTF_VARCHAR2_TABLE_200
95 , a23 out nocopy JTF_VARCHAR2_TABLE_200
96 , a24 out nocopy JTF_VARCHAR2_TABLE_200
97 , a25 out nocopy JTF_VARCHAR2_TABLE_100
98 ) as
99 ddindx binary_integer; indx binary_integer;
100 begin
101 if t is null or t.count = 0 then
102 a0 := JTF_NUMBER_TABLE();
103 a1 := JTF_VARCHAR2_TABLE_100();
104 a2 := JTF_DATE_TABLE();
105 a3 := JTF_NUMBER_TABLE();
106 a4 := JTF_NUMBER_TABLE();
107 a5 := JTF_NUMBER_TABLE();
108 a6 := JTF_DATE_TABLE();
109 a7 := JTF_NUMBER_TABLE();
110 a8 := JTF_DATE_TABLE();
111 a9 := JTF_NUMBER_TABLE();
112 a10 := JTF_VARCHAR2_TABLE_200();
113 a11 := JTF_VARCHAR2_TABLE_200();
114 a12 := JTF_VARCHAR2_TABLE_200();
115 a13 := JTF_VARCHAR2_TABLE_200();
116 a14 := JTF_VARCHAR2_TABLE_200();
117 a15 := JTF_VARCHAR2_TABLE_200();
118 a16 := JTF_VARCHAR2_TABLE_200();
119 a17 := JTF_VARCHAR2_TABLE_200();
120 a18 := JTF_VARCHAR2_TABLE_200();
121 a19 := JTF_VARCHAR2_TABLE_200();
122 a20 := JTF_VARCHAR2_TABLE_200();
123 a21 := JTF_VARCHAR2_TABLE_200();
124 a22 := JTF_VARCHAR2_TABLE_200();
125 a23 := JTF_VARCHAR2_TABLE_200();
126 a24 := JTF_VARCHAR2_TABLE_200();
127 a25 := JTF_VARCHAR2_TABLE_100();
128 else
129 a0 := JTF_NUMBER_TABLE();
130 a1 := JTF_VARCHAR2_TABLE_100();
131 a2 := JTF_DATE_TABLE();
132 a3 := JTF_NUMBER_TABLE();
133 a4 := JTF_NUMBER_TABLE();
134 a5 := JTF_NUMBER_TABLE();
135 a6 := JTF_DATE_TABLE();
136 a7 := JTF_NUMBER_TABLE();
137 a8 := JTF_DATE_TABLE();
138 a9 := JTF_NUMBER_TABLE();
139 a10 := JTF_VARCHAR2_TABLE_200();
140 a11 := JTF_VARCHAR2_TABLE_200();
141 a12 := JTF_VARCHAR2_TABLE_200();
142 a13 := JTF_VARCHAR2_TABLE_200();
143 a14 := JTF_VARCHAR2_TABLE_200();
144 a15 := JTF_VARCHAR2_TABLE_200();
145 a16 := JTF_VARCHAR2_TABLE_200();
146 a17 := JTF_VARCHAR2_TABLE_200();
147 a18 := JTF_VARCHAR2_TABLE_200();
148 a19 := JTF_VARCHAR2_TABLE_200();
149 a20 := JTF_VARCHAR2_TABLE_200();
150 a21 := JTF_VARCHAR2_TABLE_200();
151 a22 := JTF_VARCHAR2_TABLE_200();
152 a23 := JTF_VARCHAR2_TABLE_200();
153 a24 := JTF_VARCHAR2_TABLE_200();
154 a25 := JTF_VARCHAR2_TABLE_100();
155 if t.count > 0 then
156 a0.extend(t.count);
157 a1.extend(t.count);
158 a2.extend(t.count);
159 a3.extend(t.count);
160 a4.extend(t.count);
161 a5.extend(t.count);
162 a6.extend(t.count);
163 a7.extend(t.count);
164 a8.extend(t.count);
165 a9.extend(t.count);
166 a10.extend(t.count);
167 a11.extend(t.count);
168 a12.extend(t.count);
169 a13.extend(t.count);
170 a14.extend(t.count);
171 a15.extend(t.count);
172 a16.extend(t.count);
173 a17.extend(t.count);
174 a18.extend(t.count);
175 a19.extend(t.count);
176 a20.extend(t.count);
177 a21.extend(t.count);
178 a22.extend(t.count);
179 a23.extend(t.count);
180 a24.extend(t.count);
181 a25.extend(t.count);
182 ddindx := t.first;
183 indx := 1;
184 while true loop
185 a0(indx) := t(ddindx).debrief_header_id;
186 a1(indx) := t(ddindx).debrief_number;
187 a2(indx) := t(ddindx).debrief_date;
188 a3(indx) := t(ddindx).debrief_status_id;
189 a4(indx) := t(ddindx).task_assignment_id;
190 a5(indx) := t(ddindx).created_by;
191 a6(indx) := t(ddindx).creation_date;
192 a7(indx) := t(ddindx).last_updated_by;
193 a8(indx) := t(ddindx).last_update_date;
194 a9(indx) := t(ddindx).last_update_login;
195 a10(indx) := t(ddindx).attribute1;
196 a11(indx) := t(ddindx).attribute2;
197 a12(indx) := t(ddindx).attribute3;
198 a13(indx) := t(ddindx).attribute4;
199 a14(indx) := t(ddindx).attribute5;
200 a15(indx) := t(ddindx).attribute6;
201 a16(indx) := t(ddindx).attribute7;
202 a17(indx) := t(ddindx).attribute8;
203 a18(indx) := t(ddindx).attribute9;
204 a19(indx) := t(ddindx).attribute10;
205 a20(indx) := t(ddindx).attribute11;
206 a21(indx) := t(ddindx).attribute12;
207 a22(indx) := t(ddindx).attribute13;
208 a23(indx) := t(ddindx).attribute14;
209 a24(indx) := t(ddindx).attribute15;
210 a25(indx) := t(ddindx).attribute_category;
211 indx := indx+1;
212 if t.last =ddindx
213 then exit;
214 end if;
215 ddindx := t.next(ddindx);
216 end loop;
217 end if;
218 end if;
219 end rosetta_table_copy_out_p5;
220
221 procedure rosetta_table_copy_in_p10(t out nocopy csf_debrief_pub.debrief_line_tbl_type, a0 JTF_NUMBER_TABLE
222 , a1 JTF_NUMBER_TABLE
223 , a2 JTF_NUMBER_TABLE
224 , a3 JTF_DATE_TABLE
225 , a4 JTF_NUMBER_TABLE
226 , a5 JTF_NUMBER_TABLE
227 , a6 JTF_NUMBER_TABLE
228 , a7 JTF_NUMBER_TABLE
229 , a8 JTF_NUMBER_TABLE
230 , a9 JTF_NUMBER_TABLE
231 , a10 JTF_VARCHAR2_TABLE_100
232 , a11 JTF_VARCHAR2_TABLE_100
233 , a12 JTF_NUMBER_TABLE
234 , a13 JTF_NUMBER_TABLE
235 , a14 JTF_NUMBER_TABLE
236 , a15 JTF_NUMBER_TABLE
237 , a16 JTF_VARCHAR2_TABLE_100
238 , a17 JTF_VARCHAR2_TABLE_100
239 , a18 JTF_VARCHAR2_TABLE_100
240 , a19 JTF_VARCHAR2_TABLE_100
241 , a20 JTF_VARCHAR2_TABLE_100
242 , a21 JTF_NUMBER_TABLE
243 , a22 JTF_NUMBER_TABLE
244 , a23 JTF_VARCHAR2_TABLE_100
245 , a24 JTF_VARCHAR2_TABLE_100
246 , a25 JTF_VARCHAR2_TABLE_100
247 , a26 JTF_VARCHAR2_TABLE_100
248 , a27 JTF_DATE_TABLE
249 , a28 JTF_DATE_TABLE
250 , a29 JTF_NUMBER_TABLE
251 , a30 JTF_NUMBER_TABLE
252 , a31 JTF_NUMBER_TABLE
253 , a32 JTF_VARCHAR2_TABLE_100
254 , a33 JTF_NUMBER_TABLE
255 , a34 JTF_VARCHAR2_TABLE_100
256 , a35 JTF_VARCHAR2_TABLE_100
257 , a36 JTF_VARCHAR2_TABLE_100
258 , a37 JTF_VARCHAR2_TABLE_300
259 , a38 JTF_VARCHAR2_TABLE_100
260 , a39 JTF_VARCHAR2_TABLE_100
261 , a40 JTF_VARCHAR2_TABLE_300
262 , a41 JTF_VARCHAR2_TABLE_100
263 , a42 JTF_VARCHAR2_TABLE_100
264 , a43 JTF_VARCHAR2_TABLE_300
265 , a44 JTF_NUMBER_TABLE
266 , a45 JTF_DATE_TABLE
267 , a46 JTF_NUMBER_TABLE
268 , a47 JTF_DATE_TABLE
269 , a48 JTF_NUMBER_TABLE
270 , a49 JTF_VARCHAR2_TABLE_200
271 , a50 JTF_VARCHAR2_TABLE_200
272 , a51 JTF_VARCHAR2_TABLE_200
273 , a52 JTF_VARCHAR2_TABLE_200
274 , a53 JTF_VARCHAR2_TABLE_200
275 , a54 JTF_VARCHAR2_TABLE_200
276 , a55 JTF_VARCHAR2_TABLE_200
277 , a56 JTF_VARCHAR2_TABLE_200
278 , a57 JTF_VARCHAR2_TABLE_200
279 , a58 JTF_VARCHAR2_TABLE_200
280 , a59 JTF_VARCHAR2_TABLE_200
281 , a60 JTF_VARCHAR2_TABLE_200
282 , a61 JTF_VARCHAR2_TABLE_200
283 , a62 JTF_VARCHAR2_TABLE_200
284 , a63 JTF_VARCHAR2_TABLE_200
285 , a64 JTF_VARCHAR2_TABLE_100
286 , a65 JTF_VARCHAR2_TABLE_100
287 , a66 JTF_NUMBER_TABLE
288 , a67 JTF_DATE_TABLE
289 ) as
290 ddindx binary_integer; indx binary_integer;
291 begin
292 if a0 is not null and a0.count > 0 then
293 if a0.count > 0 then
294 indx := a0.first;
295 ddindx := 1;
296 while true loop
297 t(ddindx).debrief_line_id := a0(indx);
298 t(ddindx).debrief_header_id := a1(indx);
299 t(ddindx).debrief_line_number := a2(indx);
300 t(ddindx).service_date := a3(indx);
301 t(ddindx).business_process_id := a4(indx);
302 t(ddindx).txn_billing_type_id := a5(indx);
303 t(ddindx).inventory_item_id := a6(indx);
304 t(ddindx).instance_id := a7(indx);
305 t(ddindx).issuing_inventory_org_id := a8(indx);
306 t(ddindx).receiving_inventory_org_id := a9(indx);
307 t(ddindx).issuing_sub_inventory_code := a10(indx);
308 t(ddindx).receiving_sub_inventory_code := a11(indx);
309 t(ddindx).issuing_locator_id := a12(indx);
310 t(ddindx).receiving_locator_id := a13(indx);
311 t(ddindx).parent_product_id := a14(indx);
312 t(ddindx).removed_product_id := a15(indx);
313 t(ddindx).status_of_received_part := a16(indx);
314 t(ddindx).item_serial_number := a17(indx);
315 t(ddindx).item_revision := a18(indx);
316 t(ddindx).item_lotnumber := a19(indx);
317 t(ddindx).uom_code := a20(indx);
318 t(ddindx).quantity := a21(indx);
319 t(ddindx).rma_header_id := a22(indx);
320 t(ddindx).disposition_code := a23(indx);
321 t(ddindx).material_reason_code := a24(indx);
322 t(ddindx).labor_reason_code := a25(indx);
323 t(ddindx).expense_reason_code := a26(indx);
324 t(ddindx).labor_start_date := a27(indx);
325 t(ddindx).labor_end_date := a28(indx);
326 t(ddindx).starting_mileage := a29(indx);
327 t(ddindx).ending_mileage := a30(indx);
328 t(ddindx).expense_amount := a31(indx);
329 t(ddindx).currency_code := a32(indx);
330 t(ddindx).debrief_line_status_id := a33(indx);
331 t(ddindx).channel_code := a34(indx);
332 t(ddindx).charge_upload_status := a35(indx);
333 t(ddindx).charge_upload_msg_code := a36(indx);
334 t(ddindx).charge_upload_message := a37(indx);
335 t(ddindx).ib_update_status := a38(indx);
336 t(ddindx).ib_update_msg_code := a39(indx);
337 t(ddindx).ib_update_message := a40(indx);
338 t(ddindx).spare_update_status := a41(indx);
339 t(ddindx).spare_update_msg_code := a42(indx);
340 t(ddindx).spare_update_message := a43(indx);
341 t(ddindx).created_by := a44(indx);
342 t(ddindx).creation_date := a45(indx);
343 t(ddindx).last_updated_by := a46(indx);
344 t(ddindx).last_update_date := a47(indx);
345 t(ddindx).last_update_login := a48(indx);
346 t(ddindx).attribute1 := a49(indx);
347 t(ddindx).attribute2 := a50(indx);
348 t(ddindx).attribute3 := a51(indx);
349 t(ddindx).attribute4 := a52(indx);
350 t(ddindx).attribute5 := a53(indx);
351 t(ddindx).attribute6 := a54(indx);
352 t(ddindx).attribute7 := a55(indx);
353 t(ddindx).attribute8 := a56(indx);
354 t(ddindx).attribute9 := a57(indx);
355 t(ddindx).attribute10 := a58(indx);
356 t(ddindx).attribute11 := a59(indx);
357 t(ddindx).attribute12 := a60(indx);
358 t(ddindx).attribute13 := a61(indx);
359 t(ddindx).attribute14 := a62(indx);
360 t(ddindx).attribute15 := a63(indx);
361 t(ddindx).attribute_category := a64(indx);
362 t(ddindx).return_reason_code := a65(indx);
363 t(ddindx).transaction_type_id := a66(indx);
364 t(ddindx).return_date := a67(indx);
365 ddindx := ddindx+1;
366 if a0.last =indx
367 then exit;
368 end if;
369 indx := a0.next(indx);
370 end loop;
371 end if;
372 end if;
376 , a2 out nocopy JTF_NUMBER_TABLE
373 end rosetta_table_copy_in_p10;
374 procedure rosetta_table_copy_out_p10(t csf_debrief_pub.debrief_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
375 , a1 out nocopy JTF_NUMBER_TABLE
377 , a3 out nocopy JTF_DATE_TABLE
378 , a4 out nocopy JTF_NUMBER_TABLE
379 , a5 out nocopy JTF_NUMBER_TABLE
380 , a6 out nocopy JTF_NUMBER_TABLE
381 , a7 out nocopy JTF_NUMBER_TABLE
382 , a8 out nocopy JTF_NUMBER_TABLE
383 , a9 out nocopy JTF_NUMBER_TABLE
384 , a10 out nocopy JTF_VARCHAR2_TABLE_100
385 , a11 out nocopy JTF_VARCHAR2_TABLE_100
386 , a12 out nocopy JTF_NUMBER_TABLE
387 , a13 out nocopy JTF_NUMBER_TABLE
388 , a14 out nocopy JTF_NUMBER_TABLE
389 , a15 out nocopy JTF_NUMBER_TABLE
390 , a16 out nocopy JTF_VARCHAR2_TABLE_100
391 , a17 out nocopy JTF_VARCHAR2_TABLE_100
392 , a18 out nocopy JTF_VARCHAR2_TABLE_100
393 , a19 out nocopy JTF_VARCHAR2_TABLE_100
394 , a20 out nocopy JTF_VARCHAR2_TABLE_100
395 , a21 out nocopy JTF_NUMBER_TABLE
396 , a22 out nocopy JTF_NUMBER_TABLE
397 , a23 out nocopy JTF_VARCHAR2_TABLE_100
398 , a24 out nocopy JTF_VARCHAR2_TABLE_100
399 , a25 out nocopy JTF_VARCHAR2_TABLE_100
400 , a26 out nocopy JTF_VARCHAR2_TABLE_100
401 , a27 out nocopy JTF_DATE_TABLE
402 , a28 out nocopy JTF_DATE_TABLE
403 , a29 out nocopy JTF_NUMBER_TABLE
404 , a30 out nocopy JTF_NUMBER_TABLE
405 , a31 out nocopy JTF_NUMBER_TABLE
406 , a32 out nocopy JTF_VARCHAR2_TABLE_100
407 , a33 out nocopy JTF_NUMBER_TABLE
408 , a34 out nocopy JTF_VARCHAR2_TABLE_100
409 , a35 out nocopy JTF_VARCHAR2_TABLE_100
410 , a36 out nocopy JTF_VARCHAR2_TABLE_100
411 , a37 out nocopy JTF_VARCHAR2_TABLE_300
412 , a38 out nocopy JTF_VARCHAR2_TABLE_100
413 , a39 out nocopy JTF_VARCHAR2_TABLE_100
414 , a40 out nocopy JTF_VARCHAR2_TABLE_300
415 , a41 out nocopy JTF_VARCHAR2_TABLE_100
416 , a42 out nocopy JTF_VARCHAR2_TABLE_100
417 , a43 out nocopy JTF_VARCHAR2_TABLE_300
418 , a44 out nocopy JTF_NUMBER_TABLE
419 , a45 out nocopy JTF_DATE_TABLE
420 , a46 out nocopy JTF_NUMBER_TABLE
421 , a47 out nocopy JTF_DATE_TABLE
422 , a48 out nocopy JTF_NUMBER_TABLE
423 , a49 out nocopy JTF_VARCHAR2_TABLE_200
424 , a50 out nocopy JTF_VARCHAR2_TABLE_200
425 , a51 out nocopy JTF_VARCHAR2_TABLE_200
426 , a52 out nocopy JTF_VARCHAR2_TABLE_200
427 , a53 out nocopy JTF_VARCHAR2_TABLE_200
428 , a54 out nocopy JTF_VARCHAR2_TABLE_200
429 , a55 out nocopy JTF_VARCHAR2_TABLE_200
430 , a56 out nocopy JTF_VARCHAR2_TABLE_200
431 , a57 out nocopy JTF_VARCHAR2_TABLE_200
432 , a58 out nocopy JTF_VARCHAR2_TABLE_200
433 , a59 out nocopy JTF_VARCHAR2_TABLE_200
434 , a60 out nocopy JTF_VARCHAR2_TABLE_200
435 , a61 out nocopy JTF_VARCHAR2_TABLE_200
436 , a62 out nocopy JTF_VARCHAR2_TABLE_200
437 , a63 out nocopy JTF_VARCHAR2_TABLE_200
438 , a64 out nocopy JTF_VARCHAR2_TABLE_100
439 , a65 out nocopy JTF_VARCHAR2_TABLE_100
440 , a66 out nocopy JTF_NUMBER_TABLE
441 , a67 out nocopy JTF_DATE_TABLE
442 ) as
443 ddindx binary_integer; indx binary_integer;
444 begin
445 if t is null or t.count = 0 then
446 a0 := JTF_NUMBER_TABLE();
447 a1 := JTF_NUMBER_TABLE();
448 a2 := JTF_NUMBER_TABLE();
449 a3 := JTF_DATE_TABLE();
450 a4 := JTF_NUMBER_TABLE();
451 a5 := JTF_NUMBER_TABLE();
452 a6 := JTF_NUMBER_TABLE();
453 a7 := JTF_NUMBER_TABLE();
454 a8 := JTF_NUMBER_TABLE();
455 a9 := JTF_NUMBER_TABLE();
456 a10 := JTF_VARCHAR2_TABLE_100();
457 a11 := JTF_VARCHAR2_TABLE_100();
458 a12 := JTF_NUMBER_TABLE();
459 a13 := JTF_NUMBER_TABLE();
460 a14 := JTF_NUMBER_TABLE();
461 a15 := JTF_NUMBER_TABLE();
462 a16 := JTF_VARCHAR2_TABLE_100();
463 a17 := JTF_VARCHAR2_TABLE_100();
464 a18 := JTF_VARCHAR2_TABLE_100();
465 a19 := JTF_VARCHAR2_TABLE_100();
466 a20 := JTF_VARCHAR2_TABLE_100();
467 a21 := JTF_NUMBER_TABLE();
468 a22 := JTF_NUMBER_TABLE();
469 a23 := JTF_VARCHAR2_TABLE_100();
470 a24 := JTF_VARCHAR2_TABLE_100();
471 a25 := JTF_VARCHAR2_TABLE_100();
472 a26 := JTF_VARCHAR2_TABLE_100();
473 a27 := JTF_DATE_TABLE();
474 a28 := JTF_DATE_TABLE();
475 a29 := JTF_NUMBER_TABLE();
476 a30 := JTF_NUMBER_TABLE();
477 a31 := JTF_NUMBER_TABLE();
478 a32 := JTF_VARCHAR2_TABLE_100();
479 a33 := JTF_NUMBER_TABLE();
480 a34 := JTF_VARCHAR2_TABLE_100();
481 a35 := JTF_VARCHAR2_TABLE_100();
482 a36 := JTF_VARCHAR2_TABLE_100();
483 a37 := JTF_VARCHAR2_TABLE_300();
484 a38 := JTF_VARCHAR2_TABLE_100();
485 a39 := JTF_VARCHAR2_TABLE_100();
486 a40 := JTF_VARCHAR2_TABLE_300();
487 a41 := JTF_VARCHAR2_TABLE_100();
488 a42 := JTF_VARCHAR2_TABLE_100();
489 a43 := JTF_VARCHAR2_TABLE_300();
490 a44 := JTF_NUMBER_TABLE();
491 a45 := JTF_DATE_TABLE();
492 a46 := JTF_NUMBER_TABLE();
493 a47 := JTF_DATE_TABLE();
494 a48 := JTF_NUMBER_TABLE();
495 a49 := JTF_VARCHAR2_TABLE_200();
496 a50 := JTF_VARCHAR2_TABLE_200();
497 a51 := JTF_VARCHAR2_TABLE_200();
498 a52 := JTF_VARCHAR2_TABLE_200();
499 a53 := JTF_VARCHAR2_TABLE_200();
500 a54 := JTF_VARCHAR2_TABLE_200();
501 a55 := JTF_VARCHAR2_TABLE_200();
502 a56 := JTF_VARCHAR2_TABLE_200();
503 a57 := JTF_VARCHAR2_TABLE_200();
504 a58 := JTF_VARCHAR2_TABLE_200();
505 a59 := JTF_VARCHAR2_TABLE_200();
506 a60 := JTF_VARCHAR2_TABLE_200();
510 a64 := JTF_VARCHAR2_TABLE_100();
507 a61 := JTF_VARCHAR2_TABLE_200();
508 a62 := JTF_VARCHAR2_TABLE_200();
509 a63 := JTF_VARCHAR2_TABLE_200();
511 a65 := JTF_VARCHAR2_TABLE_100();
512 a66 := JTF_NUMBER_TABLE();
513 a67 := JTF_DATE_TABLE();
514 else
515 a0 := JTF_NUMBER_TABLE();
516 a1 := JTF_NUMBER_TABLE();
517 a2 := JTF_NUMBER_TABLE();
518 a3 := JTF_DATE_TABLE();
519 a4 := JTF_NUMBER_TABLE();
520 a5 := JTF_NUMBER_TABLE();
521 a6 := JTF_NUMBER_TABLE();
522 a7 := JTF_NUMBER_TABLE();
523 a8 := JTF_NUMBER_TABLE();
524 a9 := JTF_NUMBER_TABLE();
525 a10 := JTF_VARCHAR2_TABLE_100();
526 a11 := JTF_VARCHAR2_TABLE_100();
527 a12 := JTF_NUMBER_TABLE();
528 a13 := JTF_NUMBER_TABLE();
529 a14 := JTF_NUMBER_TABLE();
530 a15 := JTF_NUMBER_TABLE();
531 a16 := JTF_VARCHAR2_TABLE_100();
532 a17 := JTF_VARCHAR2_TABLE_100();
533 a18 := JTF_VARCHAR2_TABLE_100();
534 a19 := JTF_VARCHAR2_TABLE_100();
535 a20 := JTF_VARCHAR2_TABLE_100();
536 a21 := JTF_NUMBER_TABLE();
537 a22 := JTF_NUMBER_TABLE();
538 a23 := JTF_VARCHAR2_TABLE_100();
539 a24 := JTF_VARCHAR2_TABLE_100();
540 a25 := JTF_VARCHAR2_TABLE_100();
541 a26 := JTF_VARCHAR2_TABLE_100();
542 a27 := JTF_DATE_TABLE();
543 a28 := JTF_DATE_TABLE();
544 a29 := JTF_NUMBER_TABLE();
545 a30 := JTF_NUMBER_TABLE();
546 a31 := JTF_NUMBER_TABLE();
547 a32 := JTF_VARCHAR2_TABLE_100();
548 a33 := JTF_NUMBER_TABLE();
549 a34 := JTF_VARCHAR2_TABLE_100();
550 a35 := JTF_VARCHAR2_TABLE_100();
551 a36 := JTF_VARCHAR2_TABLE_100();
552 a37 := JTF_VARCHAR2_TABLE_300();
553 a38 := JTF_VARCHAR2_TABLE_100();
554 a39 := JTF_VARCHAR2_TABLE_100();
555 a40 := JTF_VARCHAR2_TABLE_300();
556 a41 := JTF_VARCHAR2_TABLE_100();
557 a42 := JTF_VARCHAR2_TABLE_100();
558 a43 := JTF_VARCHAR2_TABLE_300();
559 a44 := JTF_NUMBER_TABLE();
560 a45 := JTF_DATE_TABLE();
561 a46 := JTF_NUMBER_TABLE();
562 a47 := JTF_DATE_TABLE();
563 a48 := JTF_NUMBER_TABLE();
564 a49 := JTF_VARCHAR2_TABLE_200();
565 a50 := JTF_VARCHAR2_TABLE_200();
566 a51 := JTF_VARCHAR2_TABLE_200();
567 a52 := JTF_VARCHAR2_TABLE_200();
568 a53 := JTF_VARCHAR2_TABLE_200();
569 a54 := JTF_VARCHAR2_TABLE_200();
570 a55 := JTF_VARCHAR2_TABLE_200();
571 a56 := JTF_VARCHAR2_TABLE_200();
572 a57 := JTF_VARCHAR2_TABLE_200();
573 a58 := JTF_VARCHAR2_TABLE_200();
574 a59 := JTF_VARCHAR2_TABLE_200();
575 a60 := JTF_VARCHAR2_TABLE_200();
576 a61 := JTF_VARCHAR2_TABLE_200();
577 a62 := JTF_VARCHAR2_TABLE_200();
578 a63 := JTF_VARCHAR2_TABLE_200();
579 a64 := JTF_VARCHAR2_TABLE_100();
580 a65 := JTF_VARCHAR2_TABLE_100();
581 a66 := JTF_NUMBER_TABLE();
582 a67 := JTF_DATE_TABLE();
583 if t.count > 0 then
584 a0.extend(t.count);
585 a1.extend(t.count);
586 a2.extend(t.count);
587 a3.extend(t.count);
588 a4.extend(t.count);
589 a5.extend(t.count);
590 a6.extend(t.count);
591 a7.extend(t.count);
592 a8.extend(t.count);
593 a9.extend(t.count);
594 a10.extend(t.count);
595 a11.extend(t.count);
596 a12.extend(t.count);
597 a13.extend(t.count);
598 a14.extend(t.count);
599 a15.extend(t.count);
600 a16.extend(t.count);
601 a17.extend(t.count);
602 a18.extend(t.count);
603 a19.extend(t.count);
604 a20.extend(t.count);
605 a21.extend(t.count);
606 a22.extend(t.count);
607 a23.extend(t.count);
608 a24.extend(t.count);
609 a25.extend(t.count);
610 a26.extend(t.count);
611 a27.extend(t.count);
612 a28.extend(t.count);
613 a29.extend(t.count);
614 a30.extend(t.count);
615 a31.extend(t.count);
616 a32.extend(t.count);
617 a33.extend(t.count);
618 a34.extend(t.count);
619 a35.extend(t.count);
620 a36.extend(t.count);
621 a37.extend(t.count);
622 a38.extend(t.count);
623 a39.extend(t.count);
624 a40.extend(t.count);
625 a41.extend(t.count);
626 a42.extend(t.count);
627 a43.extend(t.count);
628 a44.extend(t.count);
629 a45.extend(t.count);
630 a46.extend(t.count);
631 a47.extend(t.count);
632 a48.extend(t.count);
633 a49.extend(t.count);
634 a50.extend(t.count);
635 a51.extend(t.count);
636 a52.extend(t.count);
637 a53.extend(t.count);
638 a54.extend(t.count);
639 a55.extend(t.count);
640 a56.extend(t.count);
641 a57.extend(t.count);
642 a58.extend(t.count);
643 a59.extend(t.count);
644 a60.extend(t.count);
645 a61.extend(t.count);
646 a62.extend(t.count);
647 a63.extend(t.count);
648 a64.extend(t.count);
649 a65.extend(t.count);
650 a66.extend(t.count);
651 a67.extend(t.count);
652 ddindx := t.first;
653 indx := 1;
654 while true loop
655 a0(indx) := t(ddindx).debrief_line_id;
659 a4(indx) := t(ddindx).business_process_id;
656 a1(indx) := t(ddindx).debrief_header_id;
657 a2(indx) := t(ddindx).debrief_line_number;
658 a3(indx) := t(ddindx).service_date;
660 a5(indx) := t(ddindx).txn_billing_type_id;
661 a6(indx) := t(ddindx).inventory_item_id;
662 a7(indx) := t(ddindx).instance_id;
663 a8(indx) := t(ddindx).issuing_inventory_org_id;
664 a9(indx) := t(ddindx).receiving_inventory_org_id;
665 a10(indx) := t(ddindx).issuing_sub_inventory_code;
666 a11(indx) := t(ddindx).receiving_sub_inventory_code;
667 a12(indx) := t(ddindx).issuing_locator_id;
668 a13(indx) := t(ddindx).receiving_locator_id;
669 a14(indx) := t(ddindx).parent_product_id;
670 a15(indx) := t(ddindx).removed_product_id;
671 a16(indx) := t(ddindx).status_of_received_part;
672 a17(indx) := t(ddindx).item_serial_number;
673 a18(indx) := t(ddindx).item_revision;
674 a19(indx) := t(ddindx).item_lotnumber;
675 a20(indx) := t(ddindx).uom_code;
676 a21(indx) := t(ddindx).quantity;
677 a22(indx) := t(ddindx).rma_header_id;
678 a23(indx) := t(ddindx).disposition_code;
679 a24(indx) := t(ddindx).material_reason_code;
680 a25(indx) := t(ddindx).labor_reason_code;
681 a26(indx) := t(ddindx).expense_reason_code;
682 a27(indx) := t(ddindx).labor_start_date;
683 a28(indx) := t(ddindx).labor_end_date;
684 a29(indx) := t(ddindx).starting_mileage;
685 a30(indx) := t(ddindx).ending_mileage;
686 a31(indx) := t(ddindx).expense_amount;
687 a32(indx) := t(ddindx).currency_code;
688 a33(indx) := t(ddindx).debrief_line_status_id;
689 a34(indx) := t(ddindx).channel_code;
690 a35(indx) := t(ddindx).charge_upload_status;
691 a36(indx) := t(ddindx).charge_upload_msg_code;
692 a37(indx) := t(ddindx).charge_upload_message;
693 a38(indx) := t(ddindx).ib_update_status;
694 a39(indx) := t(ddindx).ib_update_msg_code;
695 a40(indx) := t(ddindx).ib_update_message;
696 a41(indx) := t(ddindx).spare_update_status;
697 a42(indx) := t(ddindx).spare_update_msg_code;
698 a43(indx) := t(ddindx).spare_update_message;
699 a44(indx) := t(ddindx).created_by;
700 a45(indx) := t(ddindx).creation_date;
701 a46(indx) := t(ddindx).last_updated_by;
702 a47(indx) := t(ddindx).last_update_date;
703 a48(indx) := t(ddindx).last_update_login;
704 a49(indx) := t(ddindx).attribute1;
705 a50(indx) := t(ddindx).attribute2;
706 a51(indx) := t(ddindx).attribute3;
707 a52(indx) := t(ddindx).attribute4;
708 a53(indx) := t(ddindx).attribute5;
709 a54(indx) := t(ddindx).attribute6;
710 a55(indx) := t(ddindx).attribute7;
711 a56(indx) := t(ddindx).attribute8;
712 a57(indx) := t(ddindx).attribute9;
713 a58(indx) := t(ddindx).attribute10;
714 a59(indx) := t(ddindx).attribute11;
715 a60(indx) := t(ddindx).attribute12;
716 a61(indx) := t(ddindx).attribute13;
717 a62(indx) := t(ddindx).attribute14;
718 a63(indx) := t(ddindx).attribute15;
719 a64(indx) := t(ddindx).attribute_category;
720 a65(indx) := t(ddindx).return_reason_code;
721 a66(indx) := t(ddindx).transaction_type_id;
722 a67(indx) := t(ddindx).return_date;
723 indx := indx+1;
724 if t.last =ddindx
725 then exit;
726 end if;
727 ddindx := t.next(ddindx);
728 end loop;
729 end if;
730 end if;
731 end rosetta_table_copy_out_p10;
732
733 procedure create_debrief(p_api_version_number NUMBER
734 , p_init_msg_list VARCHAR2
735 , p_commit VARCHAR2
736 , p3_a0 NUMBER
737 , p3_a1 VARCHAR2
738 , p3_a2 DATE
739 , p3_a3 NUMBER
740 , p3_a4 NUMBER
741 , p3_a5 NUMBER
742 , p3_a6 DATE
743 , p3_a7 NUMBER
744 , p3_a8 DATE
745 , p3_a9 NUMBER
746 , p3_a10 VARCHAR2
747 , p3_a11 VARCHAR2
748 , p3_a12 VARCHAR2
749 , p3_a13 VARCHAR2
750 , p3_a14 VARCHAR2
751 , p3_a15 VARCHAR2
752 , p3_a16 VARCHAR2
753 , p3_a17 VARCHAR2
754 , p3_a18 VARCHAR2
755 , p3_a19 VARCHAR2
756 , p3_a20 VARCHAR2
757 , p3_a21 VARCHAR2
758 , p3_a22 VARCHAR2
759 , p3_a23 VARCHAR2
760 , p3_a24 VARCHAR2
761 , p3_a25 VARCHAR2
762 , p4_a0 JTF_NUMBER_TABLE
763 , p4_a1 JTF_NUMBER_TABLE
764 , p4_a2 JTF_NUMBER_TABLE
765 , p4_a3 JTF_DATE_TABLE
766 , p4_a4 JTF_NUMBER_TABLE
767 , p4_a5 JTF_NUMBER_TABLE
768 , p4_a6 JTF_NUMBER_TABLE
769 , p4_a7 JTF_NUMBER_TABLE
770 , p4_a8 JTF_NUMBER_TABLE
771 , p4_a9 JTF_NUMBER_TABLE
772 , p4_a10 JTF_VARCHAR2_TABLE_100
773 , p4_a11 JTF_VARCHAR2_TABLE_100
774 , p4_a12 JTF_NUMBER_TABLE
775 , p4_a13 JTF_NUMBER_TABLE
776 , p4_a14 JTF_NUMBER_TABLE
777 , p4_a15 JTF_NUMBER_TABLE
778 , p4_a16 JTF_VARCHAR2_TABLE_100
779 , p4_a17 JTF_VARCHAR2_TABLE_100
780 , p4_a18 JTF_VARCHAR2_TABLE_100
781 , p4_a19 JTF_VARCHAR2_TABLE_100
782 , p4_a20 JTF_VARCHAR2_TABLE_100
783 , p4_a21 JTF_NUMBER_TABLE
784 , p4_a22 JTF_NUMBER_TABLE
785 , p4_a23 JTF_VARCHAR2_TABLE_100
786 , p4_a24 JTF_VARCHAR2_TABLE_100
787 , p4_a25 JTF_VARCHAR2_TABLE_100
788 , p4_a26 JTF_VARCHAR2_TABLE_100
789 , p4_a27 JTF_DATE_TABLE
790 , p4_a28 JTF_DATE_TABLE
791 , p4_a29 JTF_NUMBER_TABLE
795 , p4_a33 JTF_NUMBER_TABLE
792 , p4_a30 JTF_NUMBER_TABLE
793 , p4_a31 JTF_NUMBER_TABLE
794 , p4_a32 JTF_VARCHAR2_TABLE_100
796 , p4_a34 JTF_VARCHAR2_TABLE_100
797 , p4_a35 JTF_VARCHAR2_TABLE_100
798 , p4_a36 JTF_VARCHAR2_TABLE_100
799 , p4_a37 JTF_VARCHAR2_TABLE_300
800 , p4_a38 JTF_VARCHAR2_TABLE_100
801 , p4_a39 JTF_VARCHAR2_TABLE_100
802 , p4_a40 JTF_VARCHAR2_TABLE_300
803 , p4_a41 JTF_VARCHAR2_TABLE_100
804 , p4_a42 JTF_VARCHAR2_TABLE_100
805 , p4_a43 JTF_VARCHAR2_TABLE_300
806 , p4_a44 JTF_NUMBER_TABLE
807 , p4_a45 JTF_DATE_TABLE
808 , p4_a46 JTF_NUMBER_TABLE
809 , p4_a47 JTF_DATE_TABLE
810 , p4_a48 JTF_NUMBER_TABLE
811 , p4_a49 JTF_VARCHAR2_TABLE_200
812 , p4_a50 JTF_VARCHAR2_TABLE_200
813 , p4_a51 JTF_VARCHAR2_TABLE_200
814 , p4_a52 JTF_VARCHAR2_TABLE_200
815 , p4_a53 JTF_VARCHAR2_TABLE_200
816 , p4_a54 JTF_VARCHAR2_TABLE_200
817 , p4_a55 JTF_VARCHAR2_TABLE_200
818 , p4_a56 JTF_VARCHAR2_TABLE_200
819 , p4_a57 JTF_VARCHAR2_TABLE_200
820 , p4_a58 JTF_VARCHAR2_TABLE_200
821 , p4_a59 JTF_VARCHAR2_TABLE_200
822 , p4_a60 JTF_VARCHAR2_TABLE_200
823 , p4_a61 JTF_VARCHAR2_TABLE_200
824 , p4_a62 JTF_VARCHAR2_TABLE_200
825 , p4_a63 JTF_VARCHAR2_TABLE_200
826 , p4_a64 JTF_VARCHAR2_TABLE_100
827 , p4_a65 JTF_VARCHAR2_TABLE_100
828 , p4_a66 JTF_NUMBER_TABLE
829 , p4_a67 JTF_DATE_TABLE
830 , x_debrief_header_id out nocopy NUMBER
831 , x_return_status out nocopy VARCHAR2
832 , x_msg_count out nocopy NUMBER
833 , x_msg_data out nocopy VARCHAR2
834 )
835
836 as
837 ddp_debrief_rec csf_debrief_pub.debrief_rec_type;
838 ddp_debrief_line_tbl csf_debrief_pub.debrief_line_tbl_type;
839 ddindx binary_integer; indx binary_integer;
840 begin
841
842 -- copy data to the local IN or IN-OUT args, if any
843
844
845
846 ddp_debrief_rec.debrief_header_id := p3_a0;
847 ddp_debrief_rec.debrief_number := p3_a1;
848 ddp_debrief_rec.debrief_date := p3_a2;
849 ddp_debrief_rec.debrief_status_id := p3_a3;
850 ddp_debrief_rec.task_assignment_id := p3_a4;
851 ddp_debrief_rec.created_by := p3_a5;
852 ddp_debrief_rec.creation_date := p3_a6;
853 ddp_debrief_rec.last_updated_by := p3_a7;
854 ddp_debrief_rec.last_update_date := p3_a8;
855 ddp_debrief_rec.last_update_login := p3_a9;
856 ddp_debrief_rec.attribute1 := p3_a10;
857 ddp_debrief_rec.attribute2 := p3_a11;
858 ddp_debrief_rec.attribute3 := p3_a12;
859 ddp_debrief_rec.attribute4 := p3_a13;
860 ddp_debrief_rec.attribute5 := p3_a14;
861 ddp_debrief_rec.attribute6 := p3_a15;
862 ddp_debrief_rec.attribute7 := p3_a16;
863 ddp_debrief_rec.attribute8 := p3_a17;
864 ddp_debrief_rec.attribute9 := p3_a18;
865 ddp_debrief_rec.attribute10 := p3_a19;
866 ddp_debrief_rec.attribute11 := p3_a20;
867 ddp_debrief_rec.attribute12 := p3_a21;
868 ddp_debrief_rec.attribute13 := p3_a22;
869 ddp_debrief_rec.attribute14 := p3_a23;
870 ddp_debrief_rec.attribute15 := p3_a24;
871 ddp_debrief_rec.attribute_category := p3_a25;
872
873 csf_debrief_pub_w.rosetta_table_copy_in_p10(ddp_debrief_line_tbl, p4_a0
874 , p4_a1
875 , p4_a2
876 , p4_a3
877 , p4_a4
878 , p4_a5
879 , p4_a6
880 , p4_a7
881 , p4_a8
882 , p4_a9
883 , p4_a10
884 , p4_a11
885 , p4_a12
886 , p4_a13
887 , p4_a14
888 , p4_a15
889 , p4_a16
890 , p4_a17
891 , p4_a18
892 , p4_a19
893 , p4_a20
894 , p4_a21
895 , p4_a22
896 , p4_a23
897 , p4_a24
898 , p4_a25
899 , p4_a26
900 , p4_a27
901 , p4_a28
902 , p4_a29
903 , p4_a30
904 , p4_a31
905 , p4_a32
906 , p4_a33
907 , p4_a34
908 , p4_a35
909 , p4_a36
910 , p4_a37
911 , p4_a38
912 , p4_a39
913 , p4_a40
914 , p4_a41
915 , p4_a42
916 , p4_a43
917 , p4_a44
918 , p4_a45
919 , p4_a46
920 , p4_a47
921 , p4_a48
922 , p4_a49
923 , p4_a50
924 , p4_a51
925 , p4_a52
926 , p4_a53
927 , p4_a54
928 , p4_a55
929 , p4_a56
930 , p4_a57
931 , p4_a58
932 , p4_a59
933 , p4_a60
934 , p4_a61
935 , p4_a62
936 , p4_a63
937 , p4_a64
938 , p4_a65
939 , p4_a66
940 , p4_a67
941 );
942
943
944
945
946
947 -- here's the delegated call to the old PL/SQL routine
948 csf_debrief_pub.create_debrief(p_api_version_number,
949 p_init_msg_list,
950 p_commit,
951 ddp_debrief_rec,
952 ddp_debrief_line_tbl,
953 x_debrief_header_id,
954 x_return_status,
955 x_msg_count,
956 x_msg_data);
957
958 -- copy data back from the local variables to OUT or IN-OUT args, if any
959
960
961
962
963
964
965
966
967 end;
968
969 procedure update_debrief(p_api_version_number NUMBER
970 , p_init_msg_list VARCHAR2
971 , p_commit VARCHAR2
972 , p3_a0 NUMBER
973 , p3_a1 VARCHAR2
974 , p3_a2 DATE
975 , p3_a3 NUMBER
979 , p3_a7 NUMBER
976 , p3_a4 NUMBER
977 , p3_a5 NUMBER
978 , p3_a6 DATE
980 , p3_a8 DATE
981 , p3_a9 NUMBER
982 , p3_a10 VARCHAR2
983 , p3_a11 VARCHAR2
984 , p3_a12 VARCHAR2
985 , p3_a13 VARCHAR2
986 , p3_a14 VARCHAR2
987 , p3_a15 VARCHAR2
988 , p3_a16 VARCHAR2
989 , p3_a17 VARCHAR2
990 , p3_a18 VARCHAR2
991 , p3_a19 VARCHAR2
992 , p3_a20 VARCHAR2
993 , p3_a21 VARCHAR2
994 , p3_a22 VARCHAR2
995 , p3_a23 VARCHAR2
996 , p3_a24 VARCHAR2
997 , p3_a25 VARCHAR2
998 , x_return_status out nocopy VARCHAR2
999 , x_msg_count out nocopy NUMBER
1000 , x_msg_data out nocopy VARCHAR2
1001 )
1002
1003 as
1004 ddp_debrief_rec csf_debrief_pub.debrief_rec_type;
1005 ddindx binary_integer; indx binary_integer;
1006 begin
1007
1008 -- copy data to the local IN or IN-OUT args, if any
1009
1010
1011
1012 ddp_debrief_rec.debrief_header_id := p3_a0;
1013 ddp_debrief_rec.debrief_number := p3_a1;
1014 ddp_debrief_rec.debrief_date := p3_a2;
1015 ddp_debrief_rec.debrief_status_id := p3_a3;
1016 ddp_debrief_rec.task_assignment_id := p3_a4;
1017 ddp_debrief_rec.created_by := p3_a5;
1018 ddp_debrief_rec.creation_date := p3_a6;
1019 ddp_debrief_rec.last_updated_by := p3_a7;
1020 ddp_debrief_rec.last_update_date := p3_a8;
1021 ddp_debrief_rec.last_update_login := p3_a9;
1022 ddp_debrief_rec.attribute1 := p3_a10;
1023 ddp_debrief_rec.attribute2 := p3_a11;
1024 ddp_debrief_rec.attribute3 := p3_a12;
1025 ddp_debrief_rec.attribute4 := p3_a13;
1026 ddp_debrief_rec.attribute5 := p3_a14;
1027 ddp_debrief_rec.attribute6 := p3_a15;
1028 ddp_debrief_rec.attribute7 := p3_a16;
1029 ddp_debrief_rec.attribute8 := p3_a17;
1030 ddp_debrief_rec.attribute9 := p3_a18;
1031 ddp_debrief_rec.attribute10 := p3_a19;
1032 ddp_debrief_rec.attribute11 := p3_a20;
1033 ddp_debrief_rec.attribute12 := p3_a21;
1034 ddp_debrief_rec.attribute13 := p3_a22;
1035 ddp_debrief_rec.attribute14 := p3_a23;
1036 ddp_debrief_rec.attribute15 := p3_a24;
1037 ddp_debrief_rec.attribute_category := p3_a25;
1038
1039
1040
1041
1042 -- here's the delegated call to the old PL/SQL routine
1043 csf_debrief_pub.update_debrief(p_api_version_number,
1044 p_init_msg_list,
1045 p_commit,
1046 ddp_debrief_rec,
1047 x_return_status,
1048 x_msg_count,
1049 x_msg_data);
1050
1051 -- copy data back from the local variables to OUT or IN-OUT args, if any
1052
1053
1054
1055
1056
1057
1058 end;
1059
1060 procedure create_debrief_lines(p_api_version_number NUMBER
1061 , p_init_msg_list VARCHAR2
1062 , p_commit VARCHAR2
1063 , p_upd_tskassgnstatus VARCHAR2
1064 , p_task_assignment_status VARCHAR2
1065 , p5_a0 JTF_NUMBER_TABLE
1066 , p5_a1 JTF_NUMBER_TABLE
1067 , p5_a2 JTF_NUMBER_TABLE
1068 , p5_a3 JTF_DATE_TABLE
1069 , p5_a4 JTF_NUMBER_TABLE
1070 , p5_a5 JTF_NUMBER_TABLE
1071 , p5_a6 JTF_NUMBER_TABLE
1072 , p5_a7 JTF_NUMBER_TABLE
1073 , p5_a8 JTF_NUMBER_TABLE
1074 , p5_a9 JTF_NUMBER_TABLE
1075 , p5_a10 JTF_VARCHAR2_TABLE_100
1076 , p5_a11 JTF_VARCHAR2_TABLE_100
1077 , p5_a12 JTF_NUMBER_TABLE
1078 , p5_a13 JTF_NUMBER_TABLE
1079 , p5_a14 JTF_NUMBER_TABLE
1080 , p5_a15 JTF_NUMBER_TABLE
1081 , p5_a16 JTF_VARCHAR2_TABLE_100
1082 , p5_a17 JTF_VARCHAR2_TABLE_100
1083 , p5_a18 JTF_VARCHAR2_TABLE_100
1084 , p5_a19 JTF_VARCHAR2_TABLE_100
1085 , p5_a20 JTF_VARCHAR2_TABLE_100
1086 , p5_a21 JTF_NUMBER_TABLE
1087 , p5_a22 JTF_NUMBER_TABLE
1088 , p5_a23 JTF_VARCHAR2_TABLE_100
1089 , p5_a24 JTF_VARCHAR2_TABLE_100
1090 , p5_a25 JTF_VARCHAR2_TABLE_100
1091 , p5_a26 JTF_VARCHAR2_TABLE_100
1092 , p5_a27 JTF_DATE_TABLE
1093 , p5_a28 JTF_DATE_TABLE
1094 , p5_a29 JTF_NUMBER_TABLE
1095 , p5_a30 JTF_NUMBER_TABLE
1096 , p5_a31 JTF_NUMBER_TABLE
1097 , p5_a32 JTF_VARCHAR2_TABLE_100
1098 , p5_a33 JTF_NUMBER_TABLE
1099 , p5_a34 JTF_VARCHAR2_TABLE_100
1100 , p5_a35 JTF_VARCHAR2_TABLE_100
1101 , p5_a36 JTF_VARCHAR2_TABLE_100
1102 , p5_a37 JTF_VARCHAR2_TABLE_300
1103 , p5_a38 JTF_VARCHAR2_TABLE_100
1104 , p5_a39 JTF_VARCHAR2_TABLE_100
1105 , p5_a40 JTF_VARCHAR2_TABLE_300
1106 , p5_a41 JTF_VARCHAR2_TABLE_100
1107 , p5_a42 JTF_VARCHAR2_TABLE_100
1108 , p5_a43 JTF_VARCHAR2_TABLE_300
1109 , p5_a44 JTF_NUMBER_TABLE
1110 , p5_a45 JTF_DATE_TABLE
1111 , p5_a46 JTF_NUMBER_TABLE
1112 , p5_a47 JTF_DATE_TABLE
1113 , p5_a48 JTF_NUMBER_TABLE
1114 , p5_a49 JTF_VARCHAR2_TABLE_200
1115 , p5_a50 JTF_VARCHAR2_TABLE_200
1116 , p5_a51 JTF_VARCHAR2_TABLE_200
1117 , p5_a52 JTF_VARCHAR2_TABLE_200
1118 , p5_a53 JTF_VARCHAR2_TABLE_200
1119 , p5_a54 JTF_VARCHAR2_TABLE_200
1120 , p5_a55 JTF_VARCHAR2_TABLE_200
1121 , p5_a56 JTF_VARCHAR2_TABLE_200
1122 , p5_a57 JTF_VARCHAR2_TABLE_200
1123 , p5_a58 JTF_VARCHAR2_TABLE_200
1124 , p5_a59 JTF_VARCHAR2_TABLE_200
1125 , p5_a60 JTF_VARCHAR2_TABLE_200
1126 , p5_a61 JTF_VARCHAR2_TABLE_200
1127 , p5_a62 JTF_VARCHAR2_TABLE_200
1128 , p5_a63 JTF_VARCHAR2_TABLE_200
1129 , p5_a64 JTF_VARCHAR2_TABLE_100
1130 , p5_a65 JTF_VARCHAR2_TABLE_100
1131 , p5_a66 JTF_NUMBER_TABLE
1132 , p5_a67 JTF_DATE_TABLE
1133 , p_debrief_header_id NUMBER
1134 , p_source_object_type_code VARCHAR2
1135 , x_return_status out nocopy VARCHAR2
1139
1136 , x_msg_count out nocopy NUMBER
1137 , x_msg_data out nocopy VARCHAR2
1138 )
1140 as
1141 ddp_debrief_line_tbl csf_debrief_pub.debrief_line_tbl_type;
1142 ddindx binary_integer; indx binary_integer;
1143 begin
1144
1145 -- copy data to the local IN or IN-OUT args, if any
1146
1147
1148
1149
1150
1151 csf_debrief_pub_w.rosetta_table_copy_in_p10(ddp_debrief_line_tbl, p5_a0
1152 , p5_a1
1153 , p5_a2
1154 , p5_a3
1155 , p5_a4
1156 , p5_a5
1157 , p5_a6
1158 , p5_a7
1159 , p5_a8
1160 , p5_a9
1161 , p5_a10
1162 , p5_a11
1163 , p5_a12
1164 , p5_a13
1165 , p5_a14
1166 , p5_a15
1167 , p5_a16
1168 , p5_a17
1169 , p5_a18
1170 , p5_a19
1171 , p5_a20
1172 , p5_a21
1173 , p5_a22
1174 , p5_a23
1175 , p5_a24
1176 , p5_a25
1177 , p5_a26
1178 , p5_a27
1179 , p5_a28
1180 , p5_a29
1181 , p5_a30
1182 , p5_a31
1183 , p5_a32
1184 , p5_a33
1185 , p5_a34
1186 , p5_a35
1187 , p5_a36
1188 , p5_a37
1189 , p5_a38
1190 , p5_a39
1191 , p5_a40
1192 , p5_a41
1193 , p5_a42
1194 , p5_a43
1195 , p5_a44
1196 , p5_a45
1197 , p5_a46
1198 , p5_a47
1199 , p5_a48
1200 , p5_a49
1201 , p5_a50
1202 , p5_a51
1203 , p5_a52
1204 , p5_a53
1205 , p5_a54
1206 , p5_a55
1207 , p5_a56
1208 , p5_a57
1209 , p5_a58
1210 , p5_a59
1211 , p5_a60
1212 , p5_a61
1213 , p5_a62
1214 , p5_a63
1215 , p5_a64
1216 , p5_a65
1217 , p5_a66
1218 , p5_a67
1219 );
1220
1221
1222
1223
1224
1225
1226 -- here's the delegated call to the old PL/SQL routine
1227 csf_debrief_pub.create_debrief_lines(p_api_version_number,
1228 p_init_msg_list,
1229 p_commit,
1230 p_upd_tskassgnstatus,
1231 p_task_assignment_status,
1232 ddp_debrief_line_tbl,
1233 p_debrief_header_id,
1234 p_source_object_type_code,
1235 x_return_status,
1236 x_msg_count,
1237 x_msg_data);
1238
1239 -- copy data back from the local variables to OUT or IN-OUT args, if any
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250 end;
1251
1252 procedure update_debrief_line(p_api_version_number NUMBER
1253 , p_init_msg_list VARCHAR2
1254 , p_commit VARCHAR2
1255 , p_upd_tskassgnstatus VARCHAR2
1256 , p_task_assignment_status VARCHAR2
1257 , p5_a0 NUMBER
1258 , p5_a1 NUMBER
1259 , p5_a2 NUMBER
1260 , p5_a3 DATE
1261 , p5_a4 NUMBER
1262 , p5_a5 NUMBER
1263 , p5_a6 NUMBER
1264 , p5_a7 NUMBER
1265 , p5_a8 NUMBER
1266 , p5_a9 NUMBER
1267 , p5_a10 VARCHAR2
1268 , p5_a11 VARCHAR2
1269 , p5_a12 NUMBER
1270 , p5_a13 NUMBER
1271 , p5_a14 NUMBER
1272 , p5_a15 NUMBER
1273 , p5_a16 VARCHAR2
1274 , p5_a17 VARCHAR2
1275 , p5_a18 VARCHAR2
1276 , p5_a19 VARCHAR2
1277 , p5_a20 VARCHAR2
1278 , p5_a21 NUMBER
1279 , p5_a22 NUMBER
1280 , p5_a23 VARCHAR2
1281 , p5_a24 VARCHAR2
1282 , p5_a25 VARCHAR2
1283 , p5_a26 VARCHAR2
1284 , p5_a27 DATE
1285 , p5_a28 DATE
1286 , p5_a29 NUMBER
1287 , p5_a30 NUMBER
1288 , p5_a31 NUMBER
1289 , p5_a32 VARCHAR2
1290 , p5_a33 NUMBER
1291 , p5_a34 VARCHAR2
1292 , p5_a35 VARCHAR2
1293 , p5_a36 VARCHAR2
1294 , p5_a37 VARCHAR2
1295 , p5_a38 VARCHAR2
1296 , p5_a39 VARCHAR2
1297 , p5_a40 VARCHAR2
1298 , p5_a41 VARCHAR2
1299 , p5_a42 VARCHAR2
1300 , p5_a43 VARCHAR2
1301 , p5_a44 NUMBER
1302 , p5_a45 DATE
1303 , p5_a46 NUMBER
1304 , p5_a47 DATE
1305 , p5_a48 NUMBER
1306 , p5_a49 VARCHAR2
1307 , p5_a50 VARCHAR2
1308 , p5_a51 VARCHAR2
1309 , p5_a52 VARCHAR2
1310 , p5_a53 VARCHAR2
1311 , p5_a54 VARCHAR2
1312 , p5_a55 VARCHAR2
1313 , p5_a56 VARCHAR2
1314 , p5_a57 VARCHAR2
1315 , p5_a58 VARCHAR2
1316 , p5_a59 VARCHAR2
1317 , p5_a60 VARCHAR2
1318 , p5_a61 VARCHAR2
1319 , p5_a62 VARCHAR2
1320 , p5_a63 VARCHAR2
1321 , p5_a64 VARCHAR2
1322 , p5_a65 VARCHAR2
1323 , p5_a66 NUMBER
1324 , p5_a67 DATE
1325 , x_return_status out nocopy VARCHAR2
1326 , x_msg_count out nocopy NUMBER
1327 , x_msg_data out nocopy VARCHAR2
1328 )
1329
1330 as
1331 ddp_debrief_line_rec csf_debrief_pub.debrief_line_rec_type;
1332 ddindx binary_integer; indx binary_integer;
1333 begin
1334
1335 -- copy data to the local IN or IN-OUT args, if any
1336
1337
1338
1339
1340
1341 ddp_debrief_line_rec.debrief_line_id := p5_a0;
1342 ddp_debrief_line_rec.debrief_header_id := p5_a1;
1343 ddp_debrief_line_rec.debrief_line_number := p5_a2;
1347 ddp_debrief_line_rec.inventory_item_id := p5_a6;
1344 ddp_debrief_line_rec.service_date := p5_a3;
1345 ddp_debrief_line_rec.business_process_id := p5_a4;
1346 ddp_debrief_line_rec.txn_billing_type_id := p5_a5;
1348 ddp_debrief_line_rec.instance_id := p5_a7;
1349 ddp_debrief_line_rec.issuing_inventory_org_id := p5_a8;
1350 ddp_debrief_line_rec.receiving_inventory_org_id := p5_a9;
1351 ddp_debrief_line_rec.issuing_sub_inventory_code := p5_a10;
1352 ddp_debrief_line_rec.receiving_sub_inventory_code := p5_a11;
1353 ddp_debrief_line_rec.issuing_locator_id := p5_a12;
1354 ddp_debrief_line_rec.receiving_locator_id := p5_a13;
1355 ddp_debrief_line_rec.parent_product_id := p5_a14;
1356 ddp_debrief_line_rec.removed_product_id := p5_a15;
1357 ddp_debrief_line_rec.status_of_received_part := p5_a16;
1358 ddp_debrief_line_rec.item_serial_number := p5_a17;
1359 ddp_debrief_line_rec.item_revision := p5_a18;
1360 ddp_debrief_line_rec.item_lotnumber := p5_a19;
1361 ddp_debrief_line_rec.uom_code := p5_a20;
1362 ddp_debrief_line_rec.quantity := p5_a21;
1363 ddp_debrief_line_rec.rma_header_id := p5_a22;
1364 ddp_debrief_line_rec.disposition_code := p5_a23;
1365 ddp_debrief_line_rec.material_reason_code := p5_a24;
1366 ddp_debrief_line_rec.labor_reason_code := p5_a25;
1367 ddp_debrief_line_rec.expense_reason_code := p5_a26;
1368 ddp_debrief_line_rec.labor_start_date := p5_a27;
1369 ddp_debrief_line_rec.labor_end_date := p5_a28;
1370 ddp_debrief_line_rec.starting_mileage := p5_a29;
1371 ddp_debrief_line_rec.ending_mileage := p5_a30;
1372 ddp_debrief_line_rec.expense_amount := p5_a31;
1373 ddp_debrief_line_rec.currency_code := p5_a32;
1374 ddp_debrief_line_rec.debrief_line_status_id := p5_a33;
1375 ddp_debrief_line_rec.channel_code := p5_a34;
1376 ddp_debrief_line_rec.charge_upload_status := p5_a35;
1377 ddp_debrief_line_rec.charge_upload_msg_code := p5_a36;
1378 ddp_debrief_line_rec.charge_upload_message := p5_a37;
1379 ddp_debrief_line_rec.ib_update_status := p5_a38;
1380 ddp_debrief_line_rec.ib_update_msg_code := p5_a39;
1381 ddp_debrief_line_rec.ib_update_message := p5_a40;
1382 ddp_debrief_line_rec.spare_update_status := p5_a41;
1383 ddp_debrief_line_rec.spare_update_msg_code := p5_a42;
1384 ddp_debrief_line_rec.spare_update_message := p5_a43;
1385 ddp_debrief_line_rec.created_by := p5_a44;
1386 ddp_debrief_line_rec.creation_date := p5_a45;
1387 ddp_debrief_line_rec.last_updated_by := p5_a46;
1388 ddp_debrief_line_rec.last_update_date := p5_a47;
1389 ddp_debrief_line_rec.last_update_login := p5_a48;
1390 ddp_debrief_line_rec.attribute1 := p5_a49;
1391 ddp_debrief_line_rec.attribute2 := p5_a50;
1392 ddp_debrief_line_rec.attribute3 := p5_a51;
1393 ddp_debrief_line_rec.attribute4 := p5_a52;
1394 ddp_debrief_line_rec.attribute5 := p5_a53;
1395 ddp_debrief_line_rec.attribute6 := p5_a54;
1396 ddp_debrief_line_rec.attribute7 := p5_a55;
1397 ddp_debrief_line_rec.attribute8 := p5_a56;
1398 ddp_debrief_line_rec.attribute9 := p5_a57;
1399 ddp_debrief_line_rec.attribute10 := p5_a58;
1400 ddp_debrief_line_rec.attribute11 := p5_a59;
1401 ddp_debrief_line_rec.attribute12 := p5_a60;
1402 ddp_debrief_line_rec.attribute13 := p5_a61;
1403 ddp_debrief_line_rec.attribute14 := p5_a62;
1404 ddp_debrief_line_rec.attribute15 := p5_a63;
1405 ddp_debrief_line_rec.attribute_category := p5_a64;
1406 ddp_debrief_line_rec.return_reason_code := p5_a65;
1407 ddp_debrief_line_rec.transaction_type_id := p5_a66;
1408 ddp_debrief_line_rec.return_date := p5_a67;
1409
1410
1411
1412
1413 -- here's the delegated call to the old PL/SQL routine
1414 csf_debrief_pub.update_debrief_line(p_api_version_number,
1415 p_init_msg_list,
1416 p_commit,
1417 p_upd_tskassgnstatus,
1418 p_task_assignment_status,
1419 ddp_debrief_line_rec,
1420 x_return_status,
1421 x_msg_count,
1422 x_msg_data);
1423
1424 -- copy data back from the local variables to OUT or IN-OUT args, if any
1425
1426
1427
1428
1429
1430
1431
1432
1433 end;
1434
1435 end csf_debrief_pub_w;