[Home] [Help]
PACKAGE BODY: APPS.CSI_ASSET_PVT_W
Source
1 package body csi_asset_pvt_w as
2 /* $Header: csivaswb.pls 120.10 2008/01/15 03:36:11 devijay 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p1(t out nocopy csi_asset_pvt.lookup_tbl, a0 JTF_VARCHAR2_TABLE_100
26 , a1 JTF_VARCHAR2_TABLE_100
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).lookup_code := a0(indx);
36 t(ddindx).valid_flag := a1(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p1;
46 procedure rosetta_table_copy_out_p1(t csi_asset_pvt.lookup_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
47 , a1 out nocopy JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if t is null or t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_100();
53 a1 := JTF_VARCHAR2_TABLE_100();
54 else
55 a0 := JTF_VARCHAR2_TABLE_100();
56 a1 := JTF_VARCHAR2_TABLE_100();
57 if t.count > 0 then
58 a0.extend(t.count);
59 a1.extend(t.count);
60 ddindx := t.first;
61 indx := 1;
62 while true loop
63 a0(indx) := t(ddindx).lookup_code;
64 a1(indx) := t(ddindx).valid_flag;
65 indx := indx+1;
66 if t.last =ddindx
67 then exit;
68 end if;
69 ddindx := t.next(ddindx);
70 end loop;
71 end if;
72 end if;
73 end rosetta_table_copy_out_p1;
74
75 procedure rosetta_table_copy_in_p4(t out nocopy csi_asset_pvt.asset_id_tbl, a0 JTF_NUMBER_TABLE
76 , a1 JTF_VARCHAR2_TABLE_100
77 , a2 JTF_VARCHAR2_TABLE_100
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if a0 is not null and a0.count > 0 then
82 if a0.count > 0 then
83 indx := a0.first;
84 ddindx := 1;
85 while true loop
86 t(ddindx).asset_id := rosetta_g_miss_num_map(a0(indx));
87 t(ddindx).asset_book_type := a1(indx);
88 t(ddindx).valid_flag := a2(indx);
89 ddindx := ddindx+1;
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_p4;
98 procedure rosetta_table_copy_out_p4(t csi_asset_pvt.asset_id_tbl, a0 out nocopy JTF_NUMBER_TABLE
99 , a1 out nocopy JTF_VARCHAR2_TABLE_100
100 , a2 out nocopy JTF_VARCHAR2_TABLE_100
101 ) as
102 ddindx binary_integer; indx binary_integer;
103 begin
104 if t is null or t.count = 0 then
105 a0 := JTF_NUMBER_TABLE();
106 a1 := JTF_VARCHAR2_TABLE_100();
107 a2 := JTF_VARCHAR2_TABLE_100();
108 else
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_VARCHAR2_TABLE_100();
111 a2 := JTF_VARCHAR2_TABLE_100();
112 if t.count > 0 then
113 a0.extend(t.count);
114 a1.extend(t.count);
115 a2.extend(t.count);
116 ddindx := t.first;
117 indx := 1;
118 while true loop
119 a0(indx) := rosetta_g_miss_num_map(t(ddindx).asset_id);
120 a1(indx) := t(ddindx).asset_book_type;
121 a2(indx) := t(ddindx).valid_flag;
122 indx := indx+1;
123 if t.last =ddindx
124 then exit;
125 end if;
126 ddindx := t.next(ddindx);
127 end loop;
128 end if;
129 end if;
130 end rosetta_table_copy_out_p4;
131
132 procedure rosetta_table_copy_in_p6(t out nocopy csi_asset_pvt.asset_loc_tbl, a0 JTF_NUMBER_TABLE
133 , a1 JTF_VARCHAR2_TABLE_100
134 ) as
135 ddindx binary_integer; indx binary_integer;
136 begin
137 if a0 is not null and a0.count > 0 then
138 if a0.count > 0 then
139 indx := a0.first;
140 ddindx := 1;
141 while true loop
142 t(ddindx).asset_loc_id := rosetta_g_miss_num_map(a0(indx));
143 t(ddindx).valid_flag := a1(indx);
144 ddindx := ddindx+1;
145 if a0.last =indx
146 then exit;
147 end if;
148 indx := a0.next(indx);
149 end loop;
150 end if;
151 end if;
152 end rosetta_table_copy_in_p6;
153 procedure rosetta_table_copy_out_p6(t csi_asset_pvt.asset_loc_tbl, a0 out nocopy JTF_NUMBER_TABLE
154 , a1 out nocopy JTF_VARCHAR2_TABLE_100
155 ) as
156 ddindx binary_integer; indx binary_integer;
157 begin
158 if t is null or t.count = 0 then
159 a0 := JTF_NUMBER_TABLE();
160 a1 := JTF_VARCHAR2_TABLE_100();
161 else
162 a0 := JTF_NUMBER_TABLE();
163 a1 := JTF_VARCHAR2_TABLE_100();
164 if t.count > 0 then
165 a0.extend(t.count);
166 a1.extend(t.count);
167 ddindx := t.first;
168 indx := 1;
169 while true loop
170 a0(indx) := rosetta_g_miss_num_map(t(ddindx).asset_loc_id);
171 a1(indx) := t(ddindx).valid_flag;
172 indx := indx+1;
173 if t.last =ddindx
174 then exit;
175 end if;
176 ddindx := t.next(ddindx);
177 end loop;
178 end if;
179 end if;
180 end rosetta_table_copy_out_p6;
181
182 procedure rosetta_table_copy_in_p8(t out nocopy csi_asset_pvt.instance_asset_sync_tbl, a0 JTF_NUMBER_TABLE
183 , a1 JTF_NUMBER_TABLE
184 , a2 JTF_NUMBER_TABLE
185 , a3 JTF_NUMBER_TABLE
186 , a4 JTF_NUMBER_TABLE
187 ) as
188 ddindx binary_integer; indx binary_integer;
189 begin
190 if a0 is not null and a0.count > 0 then
191 if a0.count > 0 then
192 indx := a0.first;
193 ddindx := 1;
194 while true loop
195 t(ddindx).instance_id := rosetta_g_miss_num_map(a0(indx));
196 t(ddindx).inst_interface_id := rosetta_g_miss_num_map(a1(indx));
197 t(ddindx).fa_asset_id := rosetta_g_miss_num_map(a2(indx));
198 t(ddindx).fa_location_id := rosetta_g_miss_num_map(a3(indx));
199 t(ddindx).inst_asset_quantity := rosetta_g_miss_num_map(a4(indx));
200 ddindx := ddindx+1;
201 if a0.last =indx
202 then exit;
203 end if;
204 indx := a0.next(indx);
205 end loop;
206 end if;
207 end if;
208 end rosetta_table_copy_in_p8;
209 procedure rosetta_table_copy_out_p8(t csi_asset_pvt.instance_asset_sync_tbl, a0 out nocopy JTF_NUMBER_TABLE
210 , a1 out nocopy JTF_NUMBER_TABLE
211 , a2 out nocopy JTF_NUMBER_TABLE
212 , a3 out nocopy JTF_NUMBER_TABLE
213 , a4 out nocopy JTF_NUMBER_TABLE
214 ) as
215 ddindx binary_integer; indx binary_integer;
216 begin
217 if t is null or t.count = 0 then
218 a0 := JTF_NUMBER_TABLE();
219 a1 := JTF_NUMBER_TABLE();
220 a2 := JTF_NUMBER_TABLE();
221 a3 := JTF_NUMBER_TABLE();
222 a4 := JTF_NUMBER_TABLE();
223 else
224 a0 := JTF_NUMBER_TABLE();
225 a1 := JTF_NUMBER_TABLE();
226 a2 := JTF_NUMBER_TABLE();
227 a3 := JTF_NUMBER_TABLE();
228 a4 := JTF_NUMBER_TABLE();
229 if t.count > 0 then
230 a0.extend(t.count);
231 a1.extend(t.count);
232 a2.extend(t.count);
233 a3.extend(t.count);
234 a4.extend(t.count);
235 ddindx := t.first;
236 indx := 1;
237 while true loop
238 a0(indx) := rosetta_g_miss_num_map(t(ddindx).instance_id);
239 a1(indx) := rosetta_g_miss_num_map(t(ddindx).inst_interface_id);
240 a2(indx) := rosetta_g_miss_num_map(t(ddindx).fa_asset_id);
241 a3(indx) := rosetta_g_miss_num_map(t(ddindx).fa_location_id);
242 a4(indx) := rosetta_g_miss_num_map(t(ddindx).inst_asset_quantity);
243 indx := indx+1;
244 if t.last =ddindx
245 then exit;
246 end if;
247 ddindx := t.next(ddindx);
248 end loop;
249 end if;
250 end if;
251 end rosetta_table_copy_out_p8;
252
253 procedure rosetta_table_copy_in_p10(t out nocopy csi_asset_pvt.fa_asset_sync_tbl, a0 JTF_NUMBER_TABLE
254 , a1 JTF_NUMBER_TABLE
255 , a2 JTF_NUMBER_TABLE
256 , a3 JTF_NUMBER_TABLE
257 ) as
258 ddindx binary_integer; indx binary_integer;
259 begin
260 if a0 is not null and a0.count > 0 then
261 if a0.count > 0 then
262 indx := a0.first;
263 ddindx := 1;
264 while true loop
265 t(ddindx).fa_asset_id := rosetta_g_miss_num_map(a0(indx));
266 t(ddindx).fa_location_id := rosetta_g_miss_num_map(a1(indx));
267 t(ddindx).fa_asset_quantity := rosetta_g_miss_num_map(a2(indx));
268 t(ddindx).sync_up_quantity := rosetta_g_miss_num_map(a3(indx));
269 ddindx := ddindx+1;
270 if a0.last =indx
271 then exit;
272 end if;
273 indx := a0.next(indx);
274 end loop;
275 end if;
276 end if;
277 end rosetta_table_copy_in_p10;
278 procedure rosetta_table_copy_out_p10(t csi_asset_pvt.fa_asset_sync_tbl, a0 out nocopy JTF_NUMBER_TABLE
279 , a1 out nocopy JTF_NUMBER_TABLE
280 , a2 out nocopy JTF_NUMBER_TABLE
281 , a3 out nocopy JTF_NUMBER_TABLE
282 ) as
283 ddindx binary_integer; indx binary_integer;
284 begin
285 if t is null or t.count = 0 then
286 a0 := JTF_NUMBER_TABLE();
287 a1 := JTF_NUMBER_TABLE();
288 a2 := JTF_NUMBER_TABLE();
289 a3 := JTF_NUMBER_TABLE();
290 else
291 a0 := JTF_NUMBER_TABLE();
292 a1 := JTF_NUMBER_TABLE();
293 a2 := JTF_NUMBER_TABLE();
294 a3 := JTF_NUMBER_TABLE();
295 if t.count > 0 then
296 a0.extend(t.count);
297 a1.extend(t.count);
298 a2.extend(t.count);
299 a3.extend(t.count);
300 ddindx := t.first;
301 indx := 1;
302 while true loop
303 a0(indx) := rosetta_g_miss_num_map(t(ddindx).fa_asset_id);
304 a1(indx) := rosetta_g_miss_num_map(t(ddindx).fa_location_id);
305 a2(indx) := rosetta_g_miss_num_map(t(ddindx).fa_asset_quantity);
306 a3(indx) := rosetta_g_miss_num_map(t(ddindx).sync_up_quantity);
307 indx := indx+1;
308 if t.last =ddindx
309 then exit;
310 end if;
311 ddindx := t.next(ddindx);
312 end loop;
313 end if;
314 end if;
315 end rosetta_table_copy_out_p10;
316
317 procedure rosetta_table_copy_in_p12(t out nocopy csi_asset_pvt.instance_sync_tbl, a0 JTF_NUMBER_TABLE
318 , a1 JTF_NUMBER_TABLE
319 , a2 JTF_NUMBER_TABLE
320 , a3 JTF_NUMBER_TABLE
321 , a4 JTF_VARCHAR2_TABLE_100
322 , a5 JTF_NUMBER_TABLE
323 , a6 JTF_NUMBER_TABLE
324 , a7 JTF_VARCHAR2_TABLE_100
325 ) as
326 ddindx binary_integer; indx binary_integer;
327 begin
328 if a0 is not null and a0.count > 0 then
329 if a0.count > 0 then
330 indx := a0.first;
331 ddindx := 1;
332 while true loop
333 t(ddindx).instance_id := rosetta_g_miss_num_map(a0(indx));
334 t(ddindx).inst_interface_id := rosetta_g_miss_num_map(a1(indx));
335 t(ddindx).instance_quantity := rosetta_g_miss_num_map(a2(indx));
336 t(ddindx).sync_up_quantity := rosetta_g_miss_num_map(a3(indx));
337 t(ddindx).vld_status := a4(indx);
338 t(ddindx).hop := rosetta_g_miss_num_map(a5(indx));
339 t(ddindx).location_id := rosetta_g_miss_num_map(a6(indx));
340 t(ddindx).location_type_code := a7(indx);
341 ddindx := ddindx+1;
342 if a0.last =indx
343 then exit;
344 end if;
345 indx := a0.next(indx);
346 end loop;
347 end if;
348 end if;
349 end rosetta_table_copy_in_p12;
350 procedure rosetta_table_copy_out_p12(t csi_asset_pvt.instance_sync_tbl, a0 out nocopy JTF_NUMBER_TABLE
351 , a1 out nocopy JTF_NUMBER_TABLE
352 , a2 out nocopy JTF_NUMBER_TABLE
353 , a3 out nocopy JTF_NUMBER_TABLE
354 , a4 out nocopy JTF_VARCHAR2_TABLE_100
355 , a5 out nocopy JTF_NUMBER_TABLE
356 , a6 out nocopy JTF_NUMBER_TABLE
357 , a7 out nocopy JTF_VARCHAR2_TABLE_100
358 ) as
359 ddindx binary_integer; indx binary_integer;
360 begin
361 if t is null or t.count = 0 then
362 a0 := JTF_NUMBER_TABLE();
363 a1 := JTF_NUMBER_TABLE();
364 a2 := JTF_NUMBER_TABLE();
365 a3 := JTF_NUMBER_TABLE();
366 a4 := JTF_VARCHAR2_TABLE_100();
367 a5 := JTF_NUMBER_TABLE();
368 a6 := JTF_NUMBER_TABLE();
369 a7 := JTF_VARCHAR2_TABLE_100();
370 else
371 a0 := JTF_NUMBER_TABLE();
372 a1 := JTF_NUMBER_TABLE();
373 a2 := JTF_NUMBER_TABLE();
374 a3 := JTF_NUMBER_TABLE();
375 a4 := JTF_VARCHAR2_TABLE_100();
376 a5 := JTF_NUMBER_TABLE();
377 a6 := JTF_NUMBER_TABLE();
378 a7 := JTF_VARCHAR2_TABLE_100();
379 if t.count > 0 then
380 a0.extend(t.count);
381 a1.extend(t.count);
382 a2.extend(t.count);
383 a3.extend(t.count);
384 a4.extend(t.count);
385 a5.extend(t.count);
386 a6.extend(t.count);
387 a7.extend(t.count);
388 ddindx := t.first;
389 indx := 1;
390 while true loop
391 a0(indx) := rosetta_g_miss_num_map(t(ddindx).instance_id);
392 a1(indx) := rosetta_g_miss_num_map(t(ddindx).inst_interface_id);
393 a2(indx) := rosetta_g_miss_num_map(t(ddindx).instance_quantity);
394 a3(indx) := rosetta_g_miss_num_map(t(ddindx).sync_up_quantity);
395 a4(indx) := t(ddindx).vld_status;
396 a5(indx) := rosetta_g_miss_num_map(t(ddindx).hop);
397 a6(indx) := rosetta_g_miss_num_map(t(ddindx).location_id);
398 a7(indx) := t(ddindx).location_type_code;
399 indx := indx+1;
400 if t.last =ddindx
401 then exit;
402 end if;
403 ddindx := t.next(ddindx);
404 end loop;
405 end if;
406 end if;
407 end rosetta_table_copy_out_p12;
408
409 procedure initialize_asset_rec(p0_a0 in out nocopy NUMBER
410 , p0_a1 in out nocopy NUMBER
411 , p0_a2 in out nocopy NUMBER
412 , p0_a3 in out nocopy VARCHAR2
413 , p0_a4 in out nocopy NUMBER
414 , p0_a5 in out nocopy NUMBER
415 , p0_a6 in out nocopy VARCHAR2
416 , p0_a7 in out nocopy DATE
417 , p0_a8 in out nocopy DATE
418 , p0_a9 in out nocopy NUMBER
419 , p0_a10 in out nocopy VARCHAR2
420 , p0_a11 in out nocopy VARCHAR2
421 , p0_a12 in out nocopy VARCHAR2
422 , p0_a13 in out nocopy VARCHAR2
423 , p0_a14 in out nocopy VARCHAR2
424 , p0_a15 in out nocopy VARCHAR2
425 , p0_a16 in out nocopy VARCHAR2
426 , p0_a17 in out nocopy VARCHAR2
427 , p0_a18 in out nocopy VARCHAR2
428 , p0_a19 in out nocopy VARCHAR2
429 , p0_a20 in out nocopy VARCHAR2
430 , p0_a21 in out nocopy DATE
431 , p0_a22 in out nocopy VARCHAR2
432 , p0_a23 in out nocopy VARCHAR2
433 , p0_a24 in out nocopy VARCHAR2
434 , p0_a25 in out nocopy NUMBER
435 , p0_a26 in out nocopy VARCHAR2
436 , p_inst_asset_hist_id NUMBER
437 , x_nearest_full_dump in out nocopy date
438 )
439
440 as
441 ddx_instance_asset_rec csi_datastructures_pub.instance_asset_header_rec;
442 ddx_nearest_full_dump date;
443 ddindx binary_integer; indx binary_integer;
444 begin
445
446 -- copy data to the local IN or IN-OUT args, if any
447 ddx_instance_asset_rec.instance_asset_id := rosetta_g_miss_num_map(p0_a0);
448 ddx_instance_asset_rec.instance_id := rosetta_g_miss_num_map(p0_a1);
449 ddx_instance_asset_rec.fa_asset_id := rosetta_g_miss_num_map(p0_a2);
450 ddx_instance_asset_rec.fa_book_type_code := p0_a3;
451 ddx_instance_asset_rec.fa_location_id := rosetta_g_miss_num_map(p0_a4);
452 ddx_instance_asset_rec.asset_quantity := rosetta_g_miss_num_map(p0_a5);
453 ddx_instance_asset_rec.update_status := p0_a6;
454 ddx_instance_asset_rec.active_start_date := rosetta_g_miss_date_in_map(p0_a7);
455 ddx_instance_asset_rec.active_end_date := rosetta_g_miss_date_in_map(p0_a8);
456 ddx_instance_asset_rec.object_version_number := rosetta_g_miss_num_map(p0_a9);
457 ddx_instance_asset_rec.asset_number := p0_a10;
458 ddx_instance_asset_rec.serial_number := p0_a11;
459 ddx_instance_asset_rec.tag_number := p0_a12;
460 ddx_instance_asset_rec.category := p0_a13;
461 ddx_instance_asset_rec.fa_location_segment1 := p0_a14;
462 ddx_instance_asset_rec.fa_location_segment2 := p0_a15;
463 ddx_instance_asset_rec.fa_location_segment3 := p0_a16;
464 ddx_instance_asset_rec.fa_location_segment4 := p0_a17;
465 ddx_instance_asset_rec.fa_location_segment5 := p0_a18;
466 ddx_instance_asset_rec.fa_location_segment6 := p0_a19;
467 ddx_instance_asset_rec.fa_location_segment7 := p0_a20;
468 ddx_instance_asset_rec.date_placed_in_service := rosetta_g_miss_date_in_map(p0_a21);
469 ddx_instance_asset_rec.description := p0_a22;
470 ddx_instance_asset_rec.employee_name := p0_a23;
471 ddx_instance_asset_rec.expense_account_number := p0_a24;
472 ddx_instance_asset_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p0_a25);
473 ddx_instance_asset_rec.creation_complete_flag := p0_a26;
474
475
476 ddx_nearest_full_dump := rosetta_g_miss_date_in_map(x_nearest_full_dump);
477
478 -- here's the delegated call to the old PL/SQL routine
479 csi_asset_pvt.initialize_asset_rec(ddx_instance_asset_rec,
480 p_inst_asset_hist_id,
481 ddx_nearest_full_dump);
482
483 -- copy data back from the local variables to OUT or IN-OUT args, if any
484 p0_a0 := rosetta_g_miss_num_map(ddx_instance_asset_rec.instance_asset_id);
485 p0_a1 := rosetta_g_miss_num_map(ddx_instance_asset_rec.instance_id);
486 p0_a2 := rosetta_g_miss_num_map(ddx_instance_asset_rec.fa_asset_id);
487 p0_a3 := ddx_instance_asset_rec.fa_book_type_code;
488 p0_a4 := rosetta_g_miss_num_map(ddx_instance_asset_rec.fa_location_id);
489 p0_a5 := rosetta_g_miss_num_map(ddx_instance_asset_rec.asset_quantity);
490 p0_a6 := ddx_instance_asset_rec.update_status;
491 p0_a7 := ddx_instance_asset_rec.active_start_date;
492 p0_a8 := ddx_instance_asset_rec.active_end_date;
493 p0_a9 := rosetta_g_miss_num_map(ddx_instance_asset_rec.object_version_number);
494 p0_a10 := ddx_instance_asset_rec.asset_number;
495 p0_a11 := ddx_instance_asset_rec.serial_number;
496 p0_a12 := ddx_instance_asset_rec.tag_number;
497 p0_a13 := ddx_instance_asset_rec.category;
498 p0_a14 := ddx_instance_asset_rec.fa_location_segment1;
499 p0_a15 := ddx_instance_asset_rec.fa_location_segment2;
500 p0_a16 := ddx_instance_asset_rec.fa_location_segment3;
501 p0_a17 := ddx_instance_asset_rec.fa_location_segment4;
502 p0_a18 := ddx_instance_asset_rec.fa_location_segment5;
503 p0_a19 := ddx_instance_asset_rec.fa_location_segment6;
504 p0_a20 := ddx_instance_asset_rec.fa_location_segment7;
505 p0_a21 := ddx_instance_asset_rec.date_placed_in_service;
506 p0_a22 := ddx_instance_asset_rec.description;
507 p0_a23 := ddx_instance_asset_rec.employee_name;
508 p0_a24 := ddx_instance_asset_rec.expense_account_number;
509 p0_a25 := rosetta_g_miss_num_map(ddx_instance_asset_rec.fa_mass_addition_id);
510 p0_a26 := ddx_instance_asset_rec.creation_complete_flag;
511
512
513 x_nearest_full_dump := ddx_nearest_full_dump;
514 end;
515
516 procedure construct_asset_from_hist(p0_a0 in out nocopy JTF_NUMBER_TABLE
517 , p0_a1 in out nocopy JTF_NUMBER_TABLE
518 , p0_a2 in out nocopy JTF_NUMBER_TABLE
519 , p0_a3 in out nocopy JTF_VARCHAR2_TABLE_100
520 , p0_a4 in out nocopy JTF_NUMBER_TABLE
521 , p0_a5 in out nocopy JTF_NUMBER_TABLE
522 , p0_a6 in out nocopy JTF_VARCHAR2_TABLE_100
523 , p0_a7 in out nocopy JTF_DATE_TABLE
524 , p0_a8 in out nocopy JTF_DATE_TABLE
525 , p0_a9 in out nocopy JTF_NUMBER_TABLE
526 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
527 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
528 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
529 , p0_a13 in out nocopy JTF_VARCHAR2_TABLE_100
530 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
531 , p0_a15 in out nocopy JTF_VARCHAR2_TABLE_100
532 , p0_a16 in out nocopy JTF_VARCHAR2_TABLE_100
533 , p0_a17 in out nocopy JTF_VARCHAR2_TABLE_100
534 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_100
535 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
536 , p0_a20 in out nocopy JTF_VARCHAR2_TABLE_100
537 , p0_a21 in out nocopy JTF_DATE_TABLE
538 , p0_a22 in out nocopy JTF_VARCHAR2_TABLE_100
539 , p0_a23 in out nocopy JTF_VARCHAR2_TABLE_300
540 , p0_a24 in out nocopy JTF_VARCHAR2_TABLE_100
541 , p0_a25 in out nocopy JTF_NUMBER_TABLE
542 , p0_a26 in out nocopy JTF_VARCHAR2_TABLE_100
543 , p_time_stamp date
544 )
545
546 as
547 ddx_instance_asset_tbl csi_datastructures_pub.instance_asset_header_tbl;
548 ddp_time_stamp date;
549 ddindx binary_integer; indx binary_integer;
550 begin
551
552 -- copy data to the local IN or IN-OUT args, if any
553 csi_datastructures_pub_w.rosetta_table_copy_in_p59(ddx_instance_asset_tbl, p0_a0
554 , p0_a1
555 , p0_a2
556 , p0_a3
557 , p0_a4
558 , p0_a5
559 , p0_a6
560 , p0_a7
561 , p0_a8
562 , p0_a9
563 , p0_a10
564 , p0_a11
565 , p0_a12
566 , p0_a13
567 , p0_a14
568 , p0_a15
569 , p0_a16
570 , p0_a17
571 , p0_a18
572 , p0_a19
573 , p0_a20
574 , p0_a21
575 , p0_a22
576 , p0_a23
577 , p0_a24
578 , p0_a25
579 , p0_a26
580 );
581
582 ddp_time_stamp := rosetta_g_miss_date_in_map(p_time_stamp);
583
584 -- here's the delegated call to the old PL/SQL routine
585 csi_asset_pvt.construct_asset_from_hist(ddx_instance_asset_tbl,
586 ddp_time_stamp);
587
588 -- copy data back from the local variables to OUT or IN-OUT args, if any
589 csi_datastructures_pub_w.rosetta_table_copy_out_p59(ddx_instance_asset_tbl, p0_a0
590 , p0_a1
591 , p0_a2
592 , p0_a3
593 , p0_a4
594 , p0_a5
595 , p0_a6
596 , p0_a7
597 , p0_a8
598 , p0_a9
599 , p0_a10
600 , p0_a11
601 , p0_a12
602 , p0_a13
603 , p0_a14
604 , p0_a15
605 , p0_a16
606 , p0_a17
607 , p0_a18
608 , p0_a19
609 , p0_a20
610 , p0_a21
611 , p0_a22
612 , p0_a23
613 , p0_a24
614 , p0_a25
615 , p0_a26
616 );
617
618 end;
619
620 procedure get_asset_column_values(p_get_asset_cursor_id NUMBER
621 , p1_a0 out nocopy NUMBER
622 , p1_a1 out nocopy NUMBER
623 , p1_a2 out nocopy NUMBER
624 , p1_a3 out nocopy VARCHAR2
625 , p1_a4 out nocopy NUMBER
626 , p1_a5 out nocopy NUMBER
627 , p1_a6 out nocopy VARCHAR2
628 , p1_a7 out nocopy DATE
629 , p1_a8 out nocopy DATE
630 , p1_a9 out nocopy NUMBER
631 , p1_a10 out nocopy VARCHAR2
632 , p1_a11 out nocopy VARCHAR2
633 , p1_a12 out nocopy VARCHAR2
634 , p1_a13 out nocopy VARCHAR2
635 , p1_a14 out nocopy VARCHAR2
636 , p1_a15 out nocopy VARCHAR2
637 , p1_a16 out nocopy VARCHAR2
638 , p1_a17 out nocopy VARCHAR2
639 , p1_a18 out nocopy VARCHAR2
640 , p1_a19 out nocopy VARCHAR2
641 , p1_a20 out nocopy VARCHAR2
642 , p1_a21 out nocopy DATE
643 , p1_a22 out nocopy VARCHAR2
644 , p1_a23 out nocopy VARCHAR2
645 , p1_a24 out nocopy VARCHAR2
646 , p1_a25 out nocopy NUMBER
647 , p1_a26 out nocopy VARCHAR2
648 )
649
650 as
651 ddx_inst_asset_rec csi_datastructures_pub.instance_asset_header_rec;
652 ddindx binary_integer; indx binary_integer;
653 begin
654
655 -- copy data to the local IN or IN-OUT args, if any
656
657
658 -- here's the delegated call to the old PL/SQL routine
659 csi_asset_pvt.get_asset_column_values(p_get_asset_cursor_id,
660 ddx_inst_asset_rec);
661
662 -- copy data back from the local variables to OUT or IN-OUT args, if any
663
664 p1_a0 := rosetta_g_miss_num_map(ddx_inst_asset_rec.instance_asset_id);
665 p1_a1 := rosetta_g_miss_num_map(ddx_inst_asset_rec.instance_id);
666 p1_a2 := rosetta_g_miss_num_map(ddx_inst_asset_rec.fa_asset_id);
667 p1_a3 := ddx_inst_asset_rec.fa_book_type_code;
668 p1_a4 := rosetta_g_miss_num_map(ddx_inst_asset_rec.fa_location_id);
669 p1_a5 := rosetta_g_miss_num_map(ddx_inst_asset_rec.asset_quantity);
670 p1_a6 := ddx_inst_asset_rec.update_status;
671 p1_a7 := ddx_inst_asset_rec.active_start_date;
672 p1_a8 := ddx_inst_asset_rec.active_end_date;
673 p1_a9 := rosetta_g_miss_num_map(ddx_inst_asset_rec.object_version_number);
674 p1_a10 := ddx_inst_asset_rec.asset_number;
675 p1_a11 := ddx_inst_asset_rec.serial_number;
676 p1_a12 := ddx_inst_asset_rec.tag_number;
677 p1_a13 := ddx_inst_asset_rec.category;
678 p1_a14 := ddx_inst_asset_rec.fa_location_segment1;
679 p1_a15 := ddx_inst_asset_rec.fa_location_segment2;
680 p1_a16 := ddx_inst_asset_rec.fa_location_segment3;
681 p1_a17 := ddx_inst_asset_rec.fa_location_segment4;
682 p1_a18 := ddx_inst_asset_rec.fa_location_segment5;
683 p1_a19 := ddx_inst_asset_rec.fa_location_segment6;
684 p1_a20 := ddx_inst_asset_rec.fa_location_segment7;
685 p1_a21 := ddx_inst_asset_rec.date_placed_in_service;
686 p1_a22 := ddx_inst_asset_rec.description;
687 p1_a23 := ddx_inst_asset_rec.employee_name;
688 p1_a24 := ddx_inst_asset_rec.expense_account_number;
689 p1_a25 := rosetta_g_miss_num_map(ddx_inst_asset_rec.fa_mass_addition_id);
690 p1_a26 := ddx_inst_asset_rec.creation_complete_flag;
691 end;
692
693 procedure bind_asset_variable(p_get_asset_cursor_id NUMBER
694 , p0_a0 NUMBER := 0-1962.0724
695 , p0_a1 NUMBER := 0-1962.0724
696 , p0_a2 NUMBER := 0-1962.0724
697 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
698 , p0_a4 NUMBER := 0-1962.0724
699 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
700 , p0_a6 NUMBER := 0-1962.0724
701 )
702
703 as
704 ddp_inst_asset_query_rec csi_datastructures_pub.instance_asset_query_rec;
705 ddindx binary_integer; indx binary_integer;
706 begin
707
708 -- copy data to the local IN or IN-OUT args, if any
709 ddp_inst_asset_query_rec.instance_asset_id := rosetta_g_miss_num_map(p0_a0);
710 ddp_inst_asset_query_rec.instance_id := rosetta_g_miss_num_map(p0_a1);
711 ddp_inst_asset_query_rec.fa_asset_id := rosetta_g_miss_num_map(p0_a2);
712 ddp_inst_asset_query_rec.fa_book_type_code := p0_a3;
713 ddp_inst_asset_query_rec.fa_location_id := rosetta_g_miss_num_map(p0_a4);
714 ddp_inst_asset_query_rec.update_status := p0_a5;
715 ddp_inst_asset_query_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p0_a6);
716
717
718 -- here's the delegated call to the old PL/SQL routine
719 csi_asset_pvt.bind_asset_variable(ddp_inst_asset_query_rec,
720 p_get_asset_cursor_id);
721
722 -- copy data back from the local variables to OUT or IN-OUT args, if any
723
724 end;
725
726 procedure resolve_id_columns(p0_a0 in out nocopy JTF_NUMBER_TABLE
727 , p0_a1 in out nocopy JTF_NUMBER_TABLE
728 , p0_a2 in out nocopy JTF_NUMBER_TABLE
729 , p0_a3 in out nocopy JTF_VARCHAR2_TABLE_100
730 , p0_a4 in out nocopy JTF_NUMBER_TABLE
731 , p0_a5 in out nocopy JTF_NUMBER_TABLE
732 , p0_a6 in out nocopy JTF_VARCHAR2_TABLE_100
733 , p0_a7 in out nocopy JTF_DATE_TABLE
734 , p0_a8 in out nocopy JTF_DATE_TABLE
735 , p0_a9 in out nocopy JTF_NUMBER_TABLE
736 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
737 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
738 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
739 , p0_a13 in out nocopy JTF_VARCHAR2_TABLE_100
740 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
741 , p0_a15 in out nocopy JTF_VARCHAR2_TABLE_100
742 , p0_a16 in out nocopy JTF_VARCHAR2_TABLE_100
743 , p0_a17 in out nocopy JTF_VARCHAR2_TABLE_100
744 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_100
745 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
746 , p0_a20 in out nocopy JTF_VARCHAR2_TABLE_100
747 , p0_a21 in out nocopy JTF_DATE_TABLE
748 , p0_a22 in out nocopy JTF_VARCHAR2_TABLE_100
749 , p0_a23 in out nocopy JTF_VARCHAR2_TABLE_300
750 , p0_a24 in out nocopy JTF_VARCHAR2_TABLE_100
751 , p0_a25 in out nocopy JTF_NUMBER_TABLE
752 , p0_a26 in out nocopy JTF_VARCHAR2_TABLE_100
753 )
754
755 as
756 ddp_asset_header_tbl csi_datastructures_pub.instance_asset_header_tbl;
757 ddindx binary_integer; indx binary_integer;
758 begin
759
760 -- copy data to the local IN or IN-OUT args, if any
761 csi_datastructures_pub_w.rosetta_table_copy_in_p59(ddp_asset_header_tbl, p0_a0
762 , p0_a1
763 , p0_a2
764 , p0_a3
765 , p0_a4
766 , p0_a5
767 , p0_a6
768 , p0_a7
769 , p0_a8
770 , p0_a9
771 , p0_a10
772 , p0_a11
773 , p0_a12
774 , p0_a13
775 , p0_a14
776 , p0_a15
777 , p0_a16
778 , p0_a17
779 , p0_a18
780 , p0_a19
781 , p0_a20
782 , p0_a21
783 , p0_a22
784 , p0_a23
785 , p0_a24
786 , p0_a25
787 , p0_a26
788 );
789
790 -- here's the delegated call to the old PL/SQL routine
791 csi_asset_pvt.resolve_id_columns(ddp_asset_header_tbl);
792
793 -- copy data back from the local variables to OUT or IN-OUT args, if any
794 csi_datastructures_pub_w.rosetta_table_copy_out_p59(ddp_asset_header_tbl, p0_a0
795 , p0_a1
796 , p0_a2
797 , p0_a3
798 , p0_a4
799 , p0_a5
800 , p0_a6
801 , p0_a7
802 , p0_a8
803 , p0_a9
804 , p0_a10
805 , p0_a11
806 , p0_a12
807 , p0_a13
808 , p0_a14
809 , p0_a15
810 , p0_a16
811 , p0_a17
812 , p0_a18
813 , p0_a19
814 , p0_a20
815 , p0_a21
816 , p0_a22
817 , p0_a23
818 , p0_a24
819 , p0_a25
820 , p0_a26
821 );
822 end;
823
824 procedure gen_asset_where_clause(x_where_clause out nocopy VARCHAR2
825 , p0_a0 NUMBER := 0-1962.0724
826 , p0_a1 NUMBER := 0-1962.0724
827 , p0_a2 NUMBER := 0-1962.0724
828 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
829 , p0_a4 NUMBER := 0-1962.0724
830 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
831 , p0_a6 NUMBER := 0-1962.0724
832 )
833
834 as
835 ddp_inst_asset_query_rec csi_datastructures_pub.instance_asset_query_rec;
836 ddindx binary_integer; indx binary_integer;
837 begin
838
839 -- copy data to the local IN or IN-OUT args, if any
840 ddp_inst_asset_query_rec.instance_asset_id := rosetta_g_miss_num_map(p0_a0);
841 ddp_inst_asset_query_rec.instance_id := rosetta_g_miss_num_map(p0_a1);
842 ddp_inst_asset_query_rec.fa_asset_id := rosetta_g_miss_num_map(p0_a2);
843 ddp_inst_asset_query_rec.fa_book_type_code := p0_a3;
844 ddp_inst_asset_query_rec.fa_location_id := rosetta_g_miss_num_map(p0_a4);
845 ddp_inst_asset_query_rec.update_status := p0_a5;
846 ddp_inst_asset_query_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p0_a6);
847
848
849 -- here's the delegated call to the old PL/SQL routine
850 csi_asset_pvt.gen_asset_where_clause(ddp_inst_asset_query_rec,
851 x_where_clause);
852
853 -- copy data back from the local variables to OUT or IN-OUT args, if any
854
855 end;
856
857 procedure get_instance_assets(p_api_version NUMBER
858 , p_commit VARCHAR2
859 , p_init_msg_list VARCHAR2
860 , p_validation_level NUMBER
861 , p_resolve_id_columns VARCHAR2
862 , p_time_stamp date
863 , p7_a0 out nocopy JTF_NUMBER_TABLE
864 , p7_a1 out nocopy JTF_NUMBER_TABLE
865 , p7_a2 out nocopy JTF_NUMBER_TABLE
866 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
867 , p7_a4 out nocopy JTF_NUMBER_TABLE
868 , p7_a5 out nocopy JTF_NUMBER_TABLE
869 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
870 , p7_a7 out nocopy JTF_DATE_TABLE
871 , p7_a8 out nocopy JTF_DATE_TABLE
872 , p7_a9 out nocopy JTF_NUMBER_TABLE
873 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
874 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
875 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_100
876 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
877 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
878 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_100
879 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
880 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
881 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_100
882 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_100
883 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_100
884 , p7_a21 out nocopy JTF_DATE_TABLE
885 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
886 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_300
887 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
888 , p7_a25 out nocopy JTF_NUMBER_TABLE
889 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
890 , x_return_status out nocopy VARCHAR2
891 , x_msg_count out nocopy NUMBER
892 , x_msg_data out nocopy VARCHAR2
893 , p4_a0 NUMBER := 0-1962.0724
894 , p4_a1 NUMBER := 0-1962.0724
895 , p4_a2 NUMBER := 0-1962.0724
896 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
897 , p4_a4 NUMBER := 0-1962.0724
898 , p4_a5 VARCHAR2 := fnd_api.g_miss_char
899 , p4_a6 NUMBER := 0-1962.0724
900 )
901
902 as
903 ddp_instance_asset_query_rec csi_datastructures_pub.instance_asset_query_rec;
904 ddp_time_stamp date;
905 ddx_instance_asset_tbl csi_datastructures_pub.instance_asset_header_tbl;
906 ddindx binary_integer; indx binary_integer;
907 begin
908
909 -- copy data to the local IN or IN-OUT args, if any
910
911
912
913
914 ddp_instance_asset_query_rec.instance_asset_id := rosetta_g_miss_num_map(p4_a0);
915 ddp_instance_asset_query_rec.instance_id := rosetta_g_miss_num_map(p4_a1);
916 ddp_instance_asset_query_rec.fa_asset_id := rosetta_g_miss_num_map(p4_a2);
917 ddp_instance_asset_query_rec.fa_book_type_code := p4_a3;
918 ddp_instance_asset_query_rec.fa_location_id := rosetta_g_miss_num_map(p4_a4);
919 ddp_instance_asset_query_rec.update_status := p4_a5;
920 ddp_instance_asset_query_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p4_a6);
921
922
923 ddp_time_stamp := rosetta_g_miss_date_in_map(p_time_stamp);
924
925
926
927
928
929 -- here's the delegated call to the old PL/SQL routine
930 csi_asset_pvt.get_instance_assets(p_api_version,
931 p_commit,
932 p_init_msg_list,
933 p_validation_level,
934 ddp_instance_asset_query_rec,
935 p_resolve_id_columns,
936 ddp_time_stamp,
937 ddx_instance_asset_tbl,
938 x_return_status,
939 x_msg_count,
940 x_msg_data);
941
942 -- copy data back from the local variables to OUT or IN-OUT args, if any
943
944
945
946
947
948
949
950 csi_datastructures_pub_w.rosetta_table_copy_out_p59(ddx_instance_asset_tbl, p7_a0
951 , p7_a1
952 , p7_a2
953 , p7_a3
954 , p7_a4
955 , p7_a5
956 , p7_a6
957 , p7_a7
958 , p7_a8
959 , p7_a9
960 , p7_a10
961 , p7_a11
962 , p7_a12
963 , p7_a13
964 , p7_a14
965 , p7_a15
966 , p7_a16
967 , p7_a17
968 , p7_a18
969 , p7_a19
970 , p7_a20
971 , p7_a21
972 , p7_a22
973 , p7_a23
974 , p7_a24
975 , p7_a25
976 , p7_a26
977 );
978
979
980
981 end;
982
983 procedure create_instance_asset(p_api_version NUMBER
984 , p_commit VARCHAR2
985 , p_init_msg_list VARCHAR2
986 , p_validation_level NUMBER
987 , p4_a0 in out nocopy NUMBER
988 , p4_a1 in out nocopy NUMBER
989 , p4_a2 in out nocopy NUMBER
990 , p4_a3 in out nocopy VARCHAR2
991 , p4_a4 in out nocopy NUMBER
992 , p4_a5 in out nocopy NUMBER
993 , p4_a6 in out nocopy VARCHAR2
994 , p4_a7 in out nocopy DATE
995 , p4_a8 in out nocopy DATE
996 , p4_a9 in out nocopy NUMBER
997 , p4_a10 in out nocopy VARCHAR2
998 , p4_a11 in out nocopy NUMBER
999 , p4_a12 in out nocopy VARCHAR2
1000 , p4_a13 in out nocopy NUMBER
1001 , p4_a14 in out nocopy VARCHAR2
1002 , p4_a15 in out nocopy VARCHAR2
1003 , p5_a0 in out nocopy NUMBER
1004 , p5_a1 in out nocopy DATE
1005 , p5_a2 in out nocopy DATE
1006 , p5_a3 in out nocopy NUMBER
1007 , p5_a4 in out nocopy NUMBER
1008 , p5_a5 in out nocopy NUMBER
1009 , p5_a6 in out nocopy VARCHAR2
1010 , p5_a7 in out nocopy NUMBER
1011 , p5_a8 in out nocopy VARCHAR2
1012 , p5_a9 in out nocopy NUMBER
1013 , p5_a10 in out nocopy VARCHAR2
1014 , p5_a11 in out nocopy NUMBER
1015 , p5_a12 in out nocopy NUMBER
1016 , p5_a13 in out nocopy NUMBER
1017 , p5_a14 in out nocopy NUMBER
1018 , p5_a15 in out nocopy VARCHAR2
1019 , p5_a16 in out nocopy NUMBER
1020 , p5_a17 in out nocopy VARCHAR2
1021 , p5_a18 in out nocopy VARCHAR2
1022 , p5_a19 in out nocopy NUMBER
1023 , p5_a20 in out nocopy VARCHAR2
1024 , p5_a21 in out nocopy VARCHAR2
1025 , p5_a22 in out nocopy VARCHAR2
1026 , p5_a23 in out nocopy VARCHAR2
1027 , p5_a24 in out nocopy VARCHAR2
1028 , p5_a25 in out nocopy VARCHAR2
1029 , p5_a26 in out nocopy VARCHAR2
1030 , p5_a27 in out nocopy VARCHAR2
1031 , p5_a28 in out nocopy VARCHAR2
1032 , p5_a29 in out nocopy VARCHAR2
1033 , p5_a30 in out nocopy VARCHAR2
1034 , p5_a31 in out nocopy VARCHAR2
1035 , p5_a32 in out nocopy VARCHAR2
1036 , p5_a33 in out nocopy VARCHAR2
1037 , p5_a34 in out nocopy VARCHAR2
1038 , p5_a35 in out nocopy VARCHAR2
1039 , p5_a36 in out nocopy NUMBER
1040 , p5_a37 in out nocopy VARCHAR2
1041 , p5_a38 in out nocopy DATE
1042 , p5_a39 in out nocopy NUMBER
1043 , x_return_status out nocopy VARCHAR2
1044 , x_msg_count out nocopy NUMBER
1045 , x_msg_data out nocopy VARCHAR2
1046 , p9_a0 in out nocopy JTF_VARCHAR2_TABLE_100
1047 , p9_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1048 , p10_a0 in out nocopy NUMBER
1049 , p10_a1 in out nocopy NUMBER
1050 , p10_a2 in out nocopy NUMBER
1051 , p11_a0 in out nocopy JTF_NUMBER_TABLE
1052 , p11_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1053 , p11_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1054 , p12_a0 in out nocopy JTF_NUMBER_TABLE
1055 , p12_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1056 , p_called_from_grp VARCHAR2
1057 )
1058
1059 as
1060 ddp_instance_asset_rec csi_datastructures_pub.instance_asset_rec;
1061 ddp_txn_rec csi_datastructures_pub.transaction_rec;
1062 ddp_lookup_tbl csi_asset_pvt.lookup_tbl;
1063 ddp_asset_count_rec csi_asset_pvt.asset_count_rec;
1064 ddp_asset_id_tbl csi_asset_pvt.asset_id_tbl;
1065 ddp_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
1066 ddindx binary_integer; indx binary_integer;
1067 begin
1068
1069 -- copy data to the local IN or IN-OUT args, if any
1070
1071
1072
1073
1074 ddp_instance_asset_rec.instance_asset_id := rosetta_g_miss_num_map(p4_a0);
1075 ddp_instance_asset_rec.instance_id := rosetta_g_miss_num_map(p4_a1);
1076 ddp_instance_asset_rec.fa_asset_id := rosetta_g_miss_num_map(p4_a2);
1077 ddp_instance_asset_rec.fa_book_type_code := p4_a3;
1078 ddp_instance_asset_rec.fa_location_id := rosetta_g_miss_num_map(p4_a4);
1079 ddp_instance_asset_rec.asset_quantity := rosetta_g_miss_num_map(p4_a5);
1080 ddp_instance_asset_rec.update_status := p4_a6;
1081 ddp_instance_asset_rec.active_start_date := rosetta_g_miss_date_in_map(p4_a7);
1082 ddp_instance_asset_rec.active_end_date := rosetta_g_miss_date_in_map(p4_a8);
1083 ddp_instance_asset_rec.object_version_number := rosetta_g_miss_num_map(p4_a9);
1084 ddp_instance_asset_rec.check_for_instance_expiry := p4_a10;
1085 ddp_instance_asset_rec.parent_tbl_index := rosetta_g_miss_num_map(p4_a11);
1086 ddp_instance_asset_rec.fa_sync_flag := p4_a12;
1087 ddp_instance_asset_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p4_a13);
1088 ddp_instance_asset_rec.creation_complete_flag := p4_a14;
1089 ddp_instance_asset_rec.fa_sync_validation_reqd := p4_a15;
1090
1091 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
1092 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
1093 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
1094 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
1095 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
1096 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
1097 ddp_txn_rec.source_group_ref := p5_a6;
1098 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
1099 ddp_txn_rec.source_header_ref := p5_a8;
1100 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
1101 ddp_txn_rec.source_line_ref := p5_a10;
1102 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
1103 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
1104 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
1105 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
1106 ddp_txn_rec.transaction_uom_code := p5_a15;
1107 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
1108 ddp_txn_rec.transaction_status_code := p5_a17;
1109 ddp_txn_rec.transaction_action_code := p5_a18;
1110 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
1111 ddp_txn_rec.context := p5_a20;
1112 ddp_txn_rec.attribute1 := p5_a21;
1113 ddp_txn_rec.attribute2 := p5_a22;
1114 ddp_txn_rec.attribute3 := p5_a23;
1115 ddp_txn_rec.attribute4 := p5_a24;
1116 ddp_txn_rec.attribute5 := p5_a25;
1117 ddp_txn_rec.attribute6 := p5_a26;
1118 ddp_txn_rec.attribute7 := p5_a27;
1119 ddp_txn_rec.attribute8 := p5_a28;
1120 ddp_txn_rec.attribute9 := p5_a29;
1121 ddp_txn_rec.attribute10 := p5_a30;
1122 ddp_txn_rec.attribute11 := p5_a31;
1123 ddp_txn_rec.attribute12 := p5_a32;
1124 ddp_txn_rec.attribute13 := p5_a33;
1125 ddp_txn_rec.attribute14 := p5_a34;
1126 ddp_txn_rec.attribute15 := p5_a35;
1127 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
1128 ddp_txn_rec.split_reason_code := p5_a37;
1129 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
1130 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
1131
1132
1133
1134
1135 csi_asset_pvt_w.rosetta_table_copy_in_p1(ddp_lookup_tbl, p9_a0
1136 , p9_a1
1137 );
1138
1139 ddp_asset_count_rec.asset_count := rosetta_g_miss_num_map(p10_a0);
1140 ddp_asset_count_rec.lookup_count := rosetta_g_miss_num_map(p10_a1);
1141 ddp_asset_count_rec.loc_count := rosetta_g_miss_num_map(p10_a2);
1142
1143 csi_asset_pvt_w.rosetta_table_copy_in_p4(ddp_asset_id_tbl, p11_a0
1144 , p11_a1
1145 , p11_a2
1146 );
1147
1148 csi_asset_pvt_w.rosetta_table_copy_in_p6(ddp_asset_loc_tbl, p12_a0
1149 , p12_a1
1150 );
1151
1152
1153 -- here's the delegated call to the old PL/SQL routine
1154 csi_asset_pvt.create_instance_asset(p_api_version,
1155 p_commit,
1156 p_init_msg_list,
1157 p_validation_level,
1158 ddp_instance_asset_rec,
1159 ddp_txn_rec,
1160 x_return_status,
1161 x_msg_count,
1162 x_msg_data,
1163 ddp_lookup_tbl,
1164 ddp_asset_count_rec,
1165 ddp_asset_id_tbl,
1166 ddp_asset_loc_tbl,
1167 p_called_from_grp);
1168
1169 -- copy data back from the local variables to OUT or IN-OUT args, if any
1170
1171
1172
1173
1174 p4_a0 := rosetta_g_miss_num_map(ddp_instance_asset_rec.instance_asset_id);
1175 p4_a1 := rosetta_g_miss_num_map(ddp_instance_asset_rec.instance_id);
1176 p4_a2 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_asset_id);
1177 p4_a3 := ddp_instance_asset_rec.fa_book_type_code;
1178 p4_a4 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_location_id);
1179 p4_a5 := rosetta_g_miss_num_map(ddp_instance_asset_rec.asset_quantity);
1180 p4_a6 := ddp_instance_asset_rec.update_status;
1181 p4_a7 := ddp_instance_asset_rec.active_start_date;
1182 p4_a8 := ddp_instance_asset_rec.active_end_date;
1183 p4_a9 := rosetta_g_miss_num_map(ddp_instance_asset_rec.object_version_number);
1184 p4_a10 := ddp_instance_asset_rec.check_for_instance_expiry;
1185 p4_a11 := rosetta_g_miss_num_map(ddp_instance_asset_rec.parent_tbl_index);
1186 p4_a12 := ddp_instance_asset_rec.fa_sync_flag;
1187 p4_a13 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_mass_addition_id);
1188 p4_a14 := ddp_instance_asset_rec.creation_complete_flag;
1189 p4_a15 := ddp_instance_asset_rec.fa_sync_validation_reqd;
1190
1191 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
1192 p5_a1 := ddp_txn_rec.transaction_date;
1193 p5_a2 := ddp_txn_rec.source_transaction_date;
1194 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
1195 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
1196 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
1197 p5_a6 := ddp_txn_rec.source_group_ref;
1198 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
1199 p5_a8 := ddp_txn_rec.source_header_ref;
1200 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
1201 p5_a10 := ddp_txn_rec.source_line_ref;
1202 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
1203 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
1204 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
1205 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
1206 p5_a15 := ddp_txn_rec.transaction_uom_code;
1207 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
1208 p5_a17 := ddp_txn_rec.transaction_status_code;
1209 p5_a18 := ddp_txn_rec.transaction_action_code;
1210 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
1211 p5_a20 := ddp_txn_rec.context;
1212 p5_a21 := ddp_txn_rec.attribute1;
1213 p5_a22 := ddp_txn_rec.attribute2;
1214 p5_a23 := ddp_txn_rec.attribute3;
1215 p5_a24 := ddp_txn_rec.attribute4;
1216 p5_a25 := ddp_txn_rec.attribute5;
1217 p5_a26 := ddp_txn_rec.attribute6;
1218 p5_a27 := ddp_txn_rec.attribute7;
1219 p5_a28 := ddp_txn_rec.attribute8;
1220 p5_a29 := ddp_txn_rec.attribute9;
1221 p5_a30 := ddp_txn_rec.attribute10;
1222 p5_a31 := ddp_txn_rec.attribute11;
1223 p5_a32 := ddp_txn_rec.attribute12;
1224 p5_a33 := ddp_txn_rec.attribute13;
1225 p5_a34 := ddp_txn_rec.attribute14;
1226 p5_a35 := ddp_txn_rec.attribute15;
1227 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
1228 p5_a37 := ddp_txn_rec.split_reason_code;
1229 p5_a38 := ddp_txn_rec.src_txn_creation_date;
1230 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
1231
1232
1233
1234
1235 csi_asset_pvt_w.rosetta_table_copy_out_p1(ddp_lookup_tbl, p9_a0
1236 , p9_a1
1237 );
1238
1239 p10_a0 := rosetta_g_miss_num_map(ddp_asset_count_rec.asset_count);
1240 p10_a1 := rosetta_g_miss_num_map(ddp_asset_count_rec.lookup_count);
1241 p10_a2 := rosetta_g_miss_num_map(ddp_asset_count_rec.loc_count);
1242
1243 csi_asset_pvt_w.rosetta_table_copy_out_p4(ddp_asset_id_tbl, p11_a0
1244 , p11_a1
1245 , p11_a2
1246 );
1247
1248 csi_asset_pvt_w.rosetta_table_copy_out_p6(ddp_asset_loc_tbl, p12_a0
1249 , p12_a1
1250 );
1251
1252 end;
1253
1254 procedure update_instance_asset(p_api_version NUMBER
1255 , p_commit VARCHAR2
1256 , p_init_msg_list VARCHAR2
1257 , p_validation_level NUMBER
1258 , p4_a0 in out nocopy NUMBER
1259 , p4_a1 in out nocopy NUMBER
1260 , p4_a2 in out nocopy NUMBER
1261 , p4_a3 in out nocopy VARCHAR2
1262 , p4_a4 in out nocopy NUMBER
1263 , p4_a5 in out nocopy NUMBER
1264 , p4_a6 in out nocopy VARCHAR2
1265 , p4_a7 in out nocopy DATE
1266 , p4_a8 in out nocopy DATE
1267 , p4_a9 in out nocopy NUMBER
1268 , p4_a10 in out nocopy VARCHAR2
1269 , p4_a11 in out nocopy NUMBER
1270 , p4_a12 in out nocopy VARCHAR2
1271 , p4_a13 in out nocopy NUMBER
1272 , p4_a14 in out nocopy VARCHAR2
1273 , p4_a15 in out nocopy VARCHAR2
1274 , p5_a0 in out nocopy NUMBER
1275 , p5_a1 in out nocopy DATE
1276 , p5_a2 in out nocopy DATE
1277 , p5_a3 in out nocopy NUMBER
1278 , p5_a4 in out nocopy NUMBER
1279 , p5_a5 in out nocopy NUMBER
1280 , p5_a6 in out nocopy VARCHAR2
1281 , p5_a7 in out nocopy NUMBER
1282 , p5_a8 in out nocopy VARCHAR2
1283 , p5_a9 in out nocopy NUMBER
1284 , p5_a10 in out nocopy VARCHAR2
1285 , p5_a11 in out nocopy NUMBER
1286 , p5_a12 in out nocopy NUMBER
1287 , p5_a13 in out nocopy NUMBER
1288 , p5_a14 in out nocopy NUMBER
1289 , p5_a15 in out nocopy VARCHAR2
1290 , p5_a16 in out nocopy NUMBER
1291 , p5_a17 in out nocopy VARCHAR2
1292 , p5_a18 in out nocopy VARCHAR2
1293 , p5_a19 in out nocopy NUMBER
1294 , p5_a20 in out nocopy VARCHAR2
1295 , p5_a21 in out nocopy VARCHAR2
1296 , p5_a22 in out nocopy VARCHAR2
1297 , p5_a23 in out nocopy VARCHAR2
1298 , p5_a24 in out nocopy VARCHAR2
1299 , p5_a25 in out nocopy VARCHAR2
1300 , p5_a26 in out nocopy VARCHAR2
1301 , p5_a27 in out nocopy VARCHAR2
1302 , p5_a28 in out nocopy VARCHAR2
1303 , p5_a29 in out nocopy VARCHAR2
1304 , p5_a30 in out nocopy VARCHAR2
1305 , p5_a31 in out nocopy VARCHAR2
1306 , p5_a32 in out nocopy VARCHAR2
1307 , p5_a33 in out nocopy VARCHAR2
1308 , p5_a34 in out nocopy VARCHAR2
1309 , p5_a35 in out nocopy VARCHAR2
1310 , p5_a36 in out nocopy NUMBER
1311 , p5_a37 in out nocopy VARCHAR2
1312 , p5_a38 in out nocopy DATE
1313 , p5_a39 in out nocopy NUMBER
1314 , x_return_status out nocopy VARCHAR2
1315 , x_msg_count out nocopy NUMBER
1316 , x_msg_data out nocopy VARCHAR2
1317 , p9_a0 in out nocopy JTF_VARCHAR2_TABLE_100
1318 , p9_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1319 , p10_a0 in out nocopy NUMBER
1320 , p10_a1 in out nocopy NUMBER
1321 , p10_a2 in out nocopy NUMBER
1322 , p11_a0 in out nocopy JTF_NUMBER_TABLE
1323 , p11_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1324 , p11_a2 in out nocopy JTF_VARCHAR2_TABLE_100
1325 , p12_a0 in out nocopy JTF_NUMBER_TABLE
1326 , p12_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1327 )
1328
1329 as
1330 ddp_instance_asset_rec csi_datastructures_pub.instance_asset_rec;
1331 ddp_txn_rec csi_datastructures_pub.transaction_rec;
1332 ddp_lookup_tbl csi_asset_pvt.lookup_tbl;
1333 ddp_asset_count_rec csi_asset_pvt.asset_count_rec;
1334 ddp_asset_id_tbl csi_asset_pvt.asset_id_tbl;
1335 ddp_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
1336 ddindx binary_integer; indx binary_integer;
1337 begin
1338
1339 -- copy data to the local IN or IN-OUT args, if any
1340
1341
1342
1343
1344 ddp_instance_asset_rec.instance_asset_id := rosetta_g_miss_num_map(p4_a0);
1345 ddp_instance_asset_rec.instance_id := rosetta_g_miss_num_map(p4_a1);
1346 ddp_instance_asset_rec.fa_asset_id := rosetta_g_miss_num_map(p4_a2);
1347 ddp_instance_asset_rec.fa_book_type_code := p4_a3;
1348 ddp_instance_asset_rec.fa_location_id := rosetta_g_miss_num_map(p4_a4);
1349 ddp_instance_asset_rec.asset_quantity := rosetta_g_miss_num_map(p4_a5);
1350 ddp_instance_asset_rec.update_status := p4_a6;
1351 ddp_instance_asset_rec.active_start_date := rosetta_g_miss_date_in_map(p4_a7);
1352 ddp_instance_asset_rec.active_end_date := rosetta_g_miss_date_in_map(p4_a8);
1353 ddp_instance_asset_rec.object_version_number := rosetta_g_miss_num_map(p4_a9);
1354 ddp_instance_asset_rec.check_for_instance_expiry := p4_a10;
1355 ddp_instance_asset_rec.parent_tbl_index := rosetta_g_miss_num_map(p4_a11);
1356 ddp_instance_asset_rec.fa_sync_flag := p4_a12;
1357 ddp_instance_asset_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p4_a13);
1358 ddp_instance_asset_rec.creation_complete_flag := p4_a14;
1359 ddp_instance_asset_rec.fa_sync_validation_reqd := p4_a15;
1360
1361 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
1362 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
1363 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
1364 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
1365 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
1366 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
1367 ddp_txn_rec.source_group_ref := p5_a6;
1368 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
1369 ddp_txn_rec.source_header_ref := p5_a8;
1370 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
1371 ddp_txn_rec.source_line_ref := p5_a10;
1372 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
1373 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
1374 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
1375 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
1376 ddp_txn_rec.transaction_uom_code := p5_a15;
1377 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
1378 ddp_txn_rec.transaction_status_code := p5_a17;
1379 ddp_txn_rec.transaction_action_code := p5_a18;
1380 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
1381 ddp_txn_rec.context := p5_a20;
1382 ddp_txn_rec.attribute1 := p5_a21;
1383 ddp_txn_rec.attribute2 := p5_a22;
1384 ddp_txn_rec.attribute3 := p5_a23;
1385 ddp_txn_rec.attribute4 := p5_a24;
1386 ddp_txn_rec.attribute5 := p5_a25;
1387 ddp_txn_rec.attribute6 := p5_a26;
1388 ddp_txn_rec.attribute7 := p5_a27;
1389 ddp_txn_rec.attribute8 := p5_a28;
1390 ddp_txn_rec.attribute9 := p5_a29;
1391 ddp_txn_rec.attribute10 := p5_a30;
1392 ddp_txn_rec.attribute11 := p5_a31;
1393 ddp_txn_rec.attribute12 := p5_a32;
1394 ddp_txn_rec.attribute13 := p5_a33;
1395 ddp_txn_rec.attribute14 := p5_a34;
1396 ddp_txn_rec.attribute15 := p5_a35;
1397 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
1398 ddp_txn_rec.split_reason_code := p5_a37;
1399 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
1400 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
1401
1402
1403
1404
1405 csi_asset_pvt_w.rosetta_table_copy_in_p1(ddp_lookup_tbl, p9_a0
1406 , p9_a1
1407 );
1408
1409 ddp_asset_count_rec.asset_count := rosetta_g_miss_num_map(p10_a0);
1410 ddp_asset_count_rec.lookup_count := rosetta_g_miss_num_map(p10_a1);
1411 ddp_asset_count_rec.loc_count := rosetta_g_miss_num_map(p10_a2);
1412
1413 csi_asset_pvt_w.rosetta_table_copy_in_p4(ddp_asset_id_tbl, p11_a0
1414 , p11_a1
1415 , p11_a2
1416 );
1417
1418 csi_asset_pvt_w.rosetta_table_copy_in_p6(ddp_asset_loc_tbl, p12_a0
1419 , p12_a1
1420 );
1421
1422 -- here's the delegated call to the old PL/SQL routine
1423 csi_asset_pvt.update_instance_asset(p_api_version,
1424 p_commit,
1425 p_init_msg_list,
1426 p_validation_level,
1427 ddp_instance_asset_rec,
1428 ddp_txn_rec,
1429 x_return_status,
1430 x_msg_count,
1431 x_msg_data,
1432 ddp_lookup_tbl,
1433 ddp_asset_count_rec,
1434 ddp_asset_id_tbl,
1435 ddp_asset_loc_tbl);
1436
1437 -- copy data back from the local variables to OUT or IN-OUT args, if any
1438
1439
1440
1441
1442 p4_a0 := rosetta_g_miss_num_map(ddp_instance_asset_rec.instance_asset_id);
1443 p4_a1 := rosetta_g_miss_num_map(ddp_instance_asset_rec.instance_id);
1444 p4_a2 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_asset_id);
1445 p4_a3 := ddp_instance_asset_rec.fa_book_type_code;
1446 p4_a4 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_location_id);
1447 p4_a5 := rosetta_g_miss_num_map(ddp_instance_asset_rec.asset_quantity);
1448 p4_a6 := ddp_instance_asset_rec.update_status;
1449 p4_a7 := ddp_instance_asset_rec.active_start_date;
1450 p4_a8 := ddp_instance_asset_rec.active_end_date;
1451 p4_a9 := rosetta_g_miss_num_map(ddp_instance_asset_rec.object_version_number);
1452 p4_a10 := ddp_instance_asset_rec.check_for_instance_expiry;
1453 p4_a11 := rosetta_g_miss_num_map(ddp_instance_asset_rec.parent_tbl_index);
1454 p4_a12 := ddp_instance_asset_rec.fa_sync_flag;
1455 p4_a13 := rosetta_g_miss_num_map(ddp_instance_asset_rec.fa_mass_addition_id);
1456 p4_a14 := ddp_instance_asset_rec.creation_complete_flag;
1457 p4_a15 := ddp_instance_asset_rec.fa_sync_validation_reqd;
1458
1459 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
1460 p5_a1 := ddp_txn_rec.transaction_date;
1461 p5_a2 := ddp_txn_rec.source_transaction_date;
1462 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
1463 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
1464 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
1465 p5_a6 := ddp_txn_rec.source_group_ref;
1466 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
1467 p5_a8 := ddp_txn_rec.source_header_ref;
1468 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
1469 p5_a10 := ddp_txn_rec.source_line_ref;
1470 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
1471 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
1472 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
1473 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
1474 p5_a15 := ddp_txn_rec.transaction_uom_code;
1475 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
1476 p5_a17 := ddp_txn_rec.transaction_status_code;
1477 p5_a18 := ddp_txn_rec.transaction_action_code;
1478 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
1479 p5_a20 := ddp_txn_rec.context;
1480 p5_a21 := ddp_txn_rec.attribute1;
1481 p5_a22 := ddp_txn_rec.attribute2;
1482 p5_a23 := ddp_txn_rec.attribute3;
1483 p5_a24 := ddp_txn_rec.attribute4;
1484 p5_a25 := ddp_txn_rec.attribute5;
1485 p5_a26 := ddp_txn_rec.attribute6;
1486 p5_a27 := ddp_txn_rec.attribute7;
1487 p5_a28 := ddp_txn_rec.attribute8;
1488 p5_a29 := ddp_txn_rec.attribute9;
1489 p5_a30 := ddp_txn_rec.attribute10;
1490 p5_a31 := ddp_txn_rec.attribute11;
1491 p5_a32 := ddp_txn_rec.attribute12;
1492 p5_a33 := ddp_txn_rec.attribute13;
1493 p5_a34 := ddp_txn_rec.attribute14;
1494 p5_a35 := ddp_txn_rec.attribute15;
1495 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
1496 p5_a37 := ddp_txn_rec.split_reason_code;
1497 p5_a38 := ddp_txn_rec.src_txn_creation_date;
1498 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
1499
1500
1501
1502
1503 csi_asset_pvt_w.rosetta_table_copy_out_p1(ddp_lookup_tbl, p9_a0
1504 , p9_a1
1505 );
1506
1507 p10_a0 := rosetta_g_miss_num_map(ddp_asset_count_rec.asset_count);
1508 p10_a1 := rosetta_g_miss_num_map(ddp_asset_count_rec.lookup_count);
1509 p10_a2 := rosetta_g_miss_num_map(ddp_asset_count_rec.loc_count);
1510
1511 csi_asset_pvt_w.rosetta_table_copy_out_p4(ddp_asset_id_tbl, p11_a0
1512 , p11_a1
1513 , p11_a2
1514 );
1515
1516 csi_asset_pvt_w.rosetta_table_copy_out_p6(ddp_asset_loc_tbl, p12_a0
1517 , p12_a1
1518 );
1519 end;
1520
1521 procedure get_instance_asset_hist(p_api_version NUMBER
1522 , p_commit VARCHAR2
1523 , p_init_msg_list VARCHAR2
1524 , p_validation_level NUMBER
1525 , p_transaction_id NUMBER
1526 , p5_a0 out nocopy JTF_NUMBER_TABLE
1527 , p5_a1 out nocopy JTF_NUMBER_TABLE
1528 , p5_a2 out nocopy JTF_NUMBER_TABLE
1529 , p5_a3 out nocopy JTF_NUMBER_TABLE
1530 , p5_a4 out nocopy JTF_NUMBER_TABLE
1531 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
1532 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
1533 , p5_a7 out nocopy JTF_NUMBER_TABLE
1534 , p5_a8 out nocopy JTF_NUMBER_TABLE
1535 , p5_a9 out nocopy JTF_NUMBER_TABLE
1536 , p5_a10 out nocopy JTF_NUMBER_TABLE
1537 , p5_a11 out nocopy JTF_VARCHAR2_TABLE_100
1538 , p5_a12 out nocopy JTF_VARCHAR2_TABLE_100
1539 , p5_a13 out nocopy JTF_DATE_TABLE
1540 , p5_a14 out nocopy JTF_DATE_TABLE
1541 , p5_a15 out nocopy JTF_DATE_TABLE
1542 , p5_a16 out nocopy JTF_DATE_TABLE
1543 , p5_a17 out nocopy JTF_VARCHAR2_TABLE_100
1544 , p5_a18 out nocopy JTF_VARCHAR2_TABLE_100
1545 , p5_a19 out nocopy JTF_VARCHAR2_TABLE_100
1546 , p5_a20 out nocopy JTF_VARCHAR2_TABLE_100
1547 , p5_a21 out nocopy JTF_VARCHAR2_TABLE_100
1548 , p5_a22 out nocopy JTF_VARCHAR2_TABLE_100
1549 , p5_a23 out nocopy JTF_VARCHAR2_TABLE_100
1550 , p5_a24 out nocopy JTF_VARCHAR2_TABLE_100
1551 , p5_a25 out nocopy JTF_VARCHAR2_TABLE_100
1552 , p5_a26 out nocopy JTF_VARCHAR2_TABLE_100
1553 , p5_a27 out nocopy JTF_VARCHAR2_TABLE_100
1554 , p5_a28 out nocopy JTF_VARCHAR2_TABLE_100
1555 , p5_a29 out nocopy JTF_VARCHAR2_TABLE_100
1556 , p5_a30 out nocopy JTF_VARCHAR2_TABLE_100
1557 , p5_a31 out nocopy JTF_VARCHAR2_TABLE_100
1558 , p5_a32 out nocopy JTF_VARCHAR2_TABLE_100
1559 , p5_a33 out nocopy JTF_VARCHAR2_TABLE_100
1560 , p5_a34 out nocopy JTF_VARCHAR2_TABLE_100
1561 , p5_a35 out nocopy JTF_VARCHAR2_TABLE_100
1562 , p5_a36 out nocopy JTF_VARCHAR2_TABLE_100
1563 , p5_a37 out nocopy JTF_VARCHAR2_TABLE_100
1564 , p5_a38 out nocopy JTF_VARCHAR2_TABLE_100
1565 , p5_a39 out nocopy JTF_DATE_TABLE
1566 , p5_a40 out nocopy JTF_DATE_TABLE
1567 , p5_a41 out nocopy JTF_VARCHAR2_TABLE_100
1568 , p5_a42 out nocopy JTF_VARCHAR2_TABLE_100
1569 , p5_a43 out nocopy JTF_VARCHAR2_TABLE_300
1570 , p5_a44 out nocopy JTF_VARCHAR2_TABLE_300
1571 , p5_a45 out nocopy JTF_VARCHAR2_TABLE_100
1572 , p5_a46 out nocopy JTF_VARCHAR2_TABLE_100
1573 , p5_a47 out nocopy JTF_NUMBER_TABLE
1574 , p5_a48 out nocopy JTF_NUMBER_TABLE
1575 , p5_a49 out nocopy JTF_NUMBER_TABLE
1576 , p5_a50 out nocopy JTF_VARCHAR2_TABLE_100
1577 , p5_a51 out nocopy JTF_VARCHAR2_TABLE_100
1578 , p5_a52 out nocopy JTF_NUMBER_TABLE
1579 , p5_a53 out nocopy JTF_NUMBER_TABLE
1580 , p5_a54 out nocopy JTF_VARCHAR2_TABLE_100
1581 , p5_a55 out nocopy JTF_VARCHAR2_TABLE_100
1582 , x_return_status out nocopy VARCHAR2
1583 , x_msg_count out nocopy NUMBER
1584 , x_msg_data out nocopy VARCHAR2
1585 )
1586
1587 as
1588 ddx_ins_asset_hist_tbl csi_datastructures_pub.ins_asset_history_tbl;
1589 ddindx binary_integer; indx binary_integer;
1590 begin
1591
1592 -- copy data to the local IN or IN-OUT args, if any
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602 -- here's the delegated call to the old PL/SQL routine
1603 csi_asset_pvt.get_instance_asset_hist(p_api_version,
1604 p_commit,
1605 p_init_msg_list,
1606 p_validation_level,
1607 p_transaction_id,
1608 ddx_ins_asset_hist_tbl,
1609 x_return_status,
1610 x_msg_count,
1611 x_msg_data);
1612
1613 -- copy data back from the local variables to OUT or IN-OUT args, if any
1614
1615
1616
1617
1618
1619 csi_datastructures_pub_w.rosetta_table_copy_out_p63(ddx_ins_asset_hist_tbl, p5_a0
1620 , p5_a1
1621 , p5_a2
1622 , p5_a3
1623 , p5_a4
1624 , p5_a5
1625 , p5_a6
1626 , p5_a7
1627 , p5_a8
1628 , p5_a9
1629 , p5_a10
1630 , p5_a11
1631 , p5_a12
1632 , p5_a13
1633 , p5_a14
1634 , p5_a15
1635 , p5_a16
1636 , p5_a17
1637 , p5_a18
1638 , p5_a19
1639 , p5_a20
1640 , p5_a21
1641 , p5_a22
1642 , p5_a23
1643 , p5_a24
1644 , p5_a25
1645 , p5_a26
1646 , p5_a27
1647 , p5_a28
1648 , p5_a29
1649 , p5_a30
1650 , p5_a31
1651 , p5_a32
1652 , p5_a33
1653 , p5_a34
1654 , p5_a35
1655 , p5_a36
1656 , p5_a37
1657 , p5_a38
1658 , p5_a39
1659 , p5_a40
1660 , p5_a41
1661 , p5_a42
1662 , p5_a43
1663 , p5_a44
1664 , p5_a45
1665 , p5_a46
1666 , p5_a47
1667 , p5_a48
1668 , p5_a49
1669 , p5_a50
1670 , p5_a51
1671 , p5_a52
1672 , p5_a53
1673 , p5_a54
1674 , p5_a55
1675 );
1676
1677
1678
1679 end;
1680
1681 procedure asset_syncup_validation(p0_a0 in out nocopy JTF_NUMBER_TABLE
1682 , p0_a1 in out nocopy JTF_NUMBER_TABLE
1683 , p0_a2 in out nocopy JTF_NUMBER_TABLE
1684 , p0_a3 in out nocopy JTF_NUMBER_TABLE
1685 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1686 , p0_a5 in out nocopy JTF_NUMBER_TABLE
1687 , p0_a6 in out nocopy JTF_NUMBER_TABLE
1688 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1689 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1690 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1691 , p1_a2 in out nocopy JTF_NUMBER_TABLE
1692 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1693 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1694 , p2_a0 in out nocopy JTF_NUMBER_TABLE
1695 , p2_a1 in out nocopy JTF_NUMBER_TABLE
1696 , p2_a2 in out nocopy JTF_NUMBER_TABLE
1697 , p2_a3 in out nocopy JTF_NUMBER_TABLE
1698 , x_error_msg out nocopy VARCHAR2
1699 , x_return_status out nocopy VARCHAR2
1700 )
1701
1702 as
1703 ddpx_instance_sync_tbl csi_asset_pvt.instance_sync_tbl;
1704 ddpx_instance_asset_sync_tbl csi_asset_pvt.instance_asset_sync_tbl;
1705 ddpx_fa_asset_sync_tbl csi_asset_pvt.fa_asset_sync_tbl;
1706 ddindx binary_integer; indx binary_integer;
1707 begin
1708
1709 -- copy data to the local IN or IN-OUT args, if any
1710 csi_asset_pvt_w.rosetta_table_copy_in_p12(ddpx_instance_sync_tbl, p0_a0
1711 , p0_a1
1712 , p0_a2
1713 , p0_a3
1714 , p0_a4
1715 , p0_a5
1716 , p0_a6
1717 , p0_a7
1718 );
1719
1720 csi_asset_pvt_w.rosetta_table_copy_in_p8(ddpx_instance_asset_sync_tbl, p1_a0
1721 , p1_a1
1722 , p1_a2
1723 , p1_a3
1724 , p1_a4
1725 );
1726
1727 csi_asset_pvt_w.rosetta_table_copy_in_p10(ddpx_fa_asset_sync_tbl, p2_a0
1728 , p2_a1
1729 , p2_a2
1730 , p2_a3
1731 );
1732
1733
1734
1735 -- here's the delegated call to the old PL/SQL routine
1736 csi_asset_pvt.asset_syncup_validation(ddpx_instance_sync_tbl,
1737 ddpx_instance_asset_sync_tbl,
1738 ddpx_fa_asset_sync_tbl,
1739 x_error_msg,
1740 x_return_status);
1741
1742 -- copy data back from the local variables to OUT or IN-OUT args, if any
1743 csi_asset_pvt_w.rosetta_table_copy_out_p12(ddpx_instance_sync_tbl, p0_a0
1744 , p0_a1
1745 , p0_a2
1746 , p0_a3
1747 , p0_a4
1748 , p0_a5
1749 , p0_a6
1750 , p0_a7
1751 );
1752
1753 csi_asset_pvt_w.rosetta_table_copy_out_p8(ddpx_instance_asset_sync_tbl, p1_a0
1754 , p1_a1
1755 , p1_a2
1756 , p1_a3
1757 , p1_a4
1758 );
1759
1760 csi_asset_pvt_w.rosetta_table_copy_out_p10(ddpx_fa_asset_sync_tbl, p2_a0
1761 , p2_a1
1762 , p2_a2
1763 , p2_a3
1764 );
1765
1766
1767 end;
1768
1769 procedure get_attached_item_instances(p_api_version NUMBER
1770 , p_init_msg_list VARCHAR2
1771 , p2_a0 JTF_NUMBER_TABLE
1772 , p2_a1 JTF_NUMBER_TABLE
1773 , p2_a2 JTF_NUMBER_TABLE
1774 , p2_a3 JTF_NUMBER_TABLE
1775 , p2_a4 JTF_NUMBER_TABLE
1776 , p3_a0 out nocopy JTF_NUMBER_TABLE
1777 , p3_a1 out nocopy JTF_NUMBER_TABLE
1778 , p3_a2 out nocopy JTF_NUMBER_TABLE
1779 , p3_a3 out nocopy JTF_NUMBER_TABLE
1780 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_100
1781 , p3_a5 out nocopy JTF_NUMBER_TABLE
1782 , p3_a6 out nocopy JTF_NUMBER_TABLE
1783 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_100
1784 , x_return_status out nocopy VARCHAR2
1785 , x_msg_count out nocopy NUMBER
1786 , x_msg_data out nocopy VARCHAR2
1787 , p_source_system_name VARCHAR2
1788 , p_called_from_grp VARCHAR2
1789 )
1790
1791 as
1792 ddp_instance_asset_sync_tbl csi_asset_pvt.instance_asset_sync_tbl;
1793 ddx_instance_sync_tbl csi_asset_pvt.instance_sync_tbl;
1794 ddindx binary_integer; indx binary_integer;
1795 begin
1796
1797 -- copy data to the local IN or IN-OUT args, if any
1798
1799
1800 csi_asset_pvt_w.rosetta_table_copy_in_p8(ddp_instance_asset_sync_tbl, p2_a0
1801 , p2_a1
1802 , p2_a2
1803 , p2_a3
1804 , p2_a4
1805 );
1806
1807
1808
1809
1810
1811
1812
1813 -- here's the delegated call to the old PL/SQL routine
1814 csi_asset_pvt.get_attached_item_instances(p_api_version,
1815 p_init_msg_list,
1816 ddp_instance_asset_sync_tbl,
1817 ddx_instance_sync_tbl,
1818 x_return_status,
1819 x_msg_count,
1820 x_msg_data,
1821 p_source_system_name,
1822 p_called_from_grp);
1823
1824 -- copy data back from the local variables to OUT or IN-OUT args, if any
1825
1826
1827
1828 csi_asset_pvt_w.rosetta_table_copy_out_p12(ddx_instance_sync_tbl, p3_a0
1829 , p3_a1
1830 , p3_a2
1831 , p3_a3
1832 , p3_a4
1833 , p3_a5
1834 , p3_a6
1835 , p3_a7
1836 );
1837
1838
1839
1840
1841
1842 end;
1843
1844 procedure get_attached_asset_links(p_api_version NUMBER
1845 , p_init_msg_list VARCHAR2
1846 , p2_a0 JTF_NUMBER_TABLE
1847 , p2_a1 JTF_NUMBER_TABLE
1848 , p2_a2 JTF_NUMBER_TABLE
1849 , p2_a3 JTF_NUMBER_TABLE
1850 , p2_a4 JTF_VARCHAR2_TABLE_100
1851 , p2_a5 JTF_NUMBER_TABLE
1852 , p2_a6 JTF_NUMBER_TABLE
1853 , p2_a7 JTF_VARCHAR2_TABLE_100
1854 , p3_a0 out nocopy JTF_NUMBER_TABLE
1855 , p3_a1 out nocopy JTF_NUMBER_TABLE
1856 , p3_a2 out nocopy JTF_NUMBER_TABLE
1857 , p3_a3 out nocopy JTF_NUMBER_TABLE
1858 , p3_a4 out nocopy JTF_NUMBER_TABLE
1859 , x_return_status out nocopy VARCHAR2
1860 , x_msg_count out nocopy NUMBER
1861 , x_msg_data out nocopy VARCHAR2
1862 , p_source_system_name VARCHAR2
1863 , p_called_from_grp VARCHAR2
1864 )
1865
1866 as
1867 ddp_instance_sync_tbl csi_asset_pvt.instance_sync_tbl;
1868 ddx_instance_asset_sync_tbl csi_asset_pvt.instance_asset_sync_tbl;
1869 ddindx binary_integer; indx binary_integer;
1870 begin
1871
1872 -- copy data to the local IN or IN-OUT args, if any
1873
1874
1875 csi_asset_pvt_w.rosetta_table_copy_in_p12(ddp_instance_sync_tbl, p2_a0
1876 , p2_a1
1877 , p2_a2
1878 , p2_a3
1879 , p2_a4
1880 , p2_a5
1881 , p2_a6
1882 , p2_a7
1883 );
1884
1885
1886
1887
1888
1889
1890
1891 -- here's the delegated call to the old PL/SQL routine
1892 csi_asset_pvt.get_attached_asset_links(p_api_version,
1893 p_init_msg_list,
1894 ddp_instance_sync_tbl,
1895 ddx_instance_asset_sync_tbl,
1896 x_return_status,
1897 x_msg_count,
1898 x_msg_data,
1899 p_source_system_name,
1900 p_called_from_grp);
1901
1902 -- copy data back from the local variables to OUT or IN-OUT args, if any
1903
1904
1905
1906 csi_asset_pvt_w.rosetta_table_copy_out_p8(ddx_instance_asset_sync_tbl, p3_a0
1907 , p3_a1
1908 , p3_a2
1909 , p3_a3
1910 , p3_a4
1911 );
1912
1913
1914
1915
1916
1917 end;
1918
1919 procedure get_fa_asset_details(p_api_version NUMBER
1920 , p_init_msg_list VARCHAR2
1921 , p2_a0 JTF_NUMBER_TABLE
1922 , p2_a1 JTF_NUMBER_TABLE
1923 , p2_a2 JTF_NUMBER_TABLE
1924 , p2_a3 JTF_NUMBER_TABLE
1925 , p2_a4 JTF_NUMBER_TABLE
1926 , p3_a0 out nocopy JTF_NUMBER_TABLE
1927 , p3_a1 out nocopy JTF_NUMBER_TABLE
1928 , p3_a2 out nocopy JTF_NUMBER_TABLE
1929 , p3_a3 out nocopy JTF_NUMBER_TABLE
1930 , x_return_status out nocopy VARCHAR2
1931 , x_msg_count out nocopy NUMBER
1932 , x_msg_data out nocopy VARCHAR2
1933 , p_source_system_name VARCHAR2
1934 , p_called_from_grp VARCHAR2
1935 )
1936
1937 as
1938 ddp_instance_asset_sync_tbl csi_asset_pvt.instance_asset_sync_tbl;
1939 ddx_fa_asset_sync_tab csi_asset_pvt.fa_asset_sync_tbl;
1940 ddindx binary_integer; indx binary_integer;
1941 begin
1942
1943 -- copy data to the local IN or IN-OUT args, if any
1944
1945
1946 csi_asset_pvt_w.rosetta_table_copy_in_p8(ddp_instance_asset_sync_tbl, p2_a0
1947 , p2_a1
1948 , p2_a2
1949 , p2_a3
1950 , p2_a4
1951 );
1952
1953
1954
1955
1956
1957
1958
1959 -- here's the delegated call to the old PL/SQL routine
1960 csi_asset_pvt.get_fa_asset_details(p_api_version,
1961 p_init_msg_list,
1962 ddp_instance_asset_sync_tbl,
1963 ddx_fa_asset_sync_tab,
1964 x_return_status,
1965 x_msg_count,
1966 x_msg_data,
1967 p_source_system_name,
1968 p_called_from_grp);
1969
1970 -- copy data back from the local variables to OUT or IN-OUT args, if any
1971
1972
1973
1974 csi_asset_pvt_w.rosetta_table_copy_out_p10(ddx_fa_asset_sync_tab, p3_a0
1975 , p3_a1
1976 , p3_a2
1977 , p3_a3
1978 );
1979
1980
1981
1982
1983
1984 end;
1985
1986 procedure get_syncup_tree(p0_a0 in out nocopy JTF_NUMBER_TABLE
1987 , p0_a1 in out nocopy JTF_NUMBER_TABLE
1988 , p0_a2 in out nocopy JTF_NUMBER_TABLE
1989 , p0_a3 in out nocopy JTF_NUMBER_TABLE
1990 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1991 , p0_a5 in out nocopy JTF_NUMBER_TABLE
1992 , p0_a6 in out nocopy JTF_NUMBER_TABLE
1993 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1994 , p1_a0 in out nocopy JTF_NUMBER_TABLE
1995 , p1_a1 in out nocopy JTF_NUMBER_TABLE
1996 , p1_a2 in out nocopy JTF_NUMBER_TABLE
1997 , p1_a3 in out nocopy JTF_NUMBER_TABLE
1998 , p1_a4 in out nocopy JTF_NUMBER_TABLE
1999 , p2_a0 in out nocopy JTF_NUMBER_TABLE
2000 , p2_a1 in out nocopy JTF_NUMBER_TABLE
2001 , p2_a2 in out nocopy JTF_NUMBER_TABLE
2002 , p2_a3 in out nocopy JTF_NUMBER_TABLE
2003 , x_return_status out nocopy VARCHAR2
2004 , x_error_msg out nocopy VARCHAR2
2005 , p_source_system_name VARCHAR2
2006 , p_called_from_grp VARCHAR2
2007 )
2008
2009 as
2010 ddpx_instance_sync_tbl csi_asset_pvt.instance_sync_tbl;
2011 ddpx_instance_asset_sync_tbl csi_asset_pvt.instance_asset_sync_tbl;
2012 ddx_fa_asset_sync_tbl csi_asset_pvt.fa_asset_sync_tbl;
2013 ddindx binary_integer; indx binary_integer;
2014 begin
2015
2016 -- copy data to the local IN or IN-OUT args, if any
2017 csi_asset_pvt_w.rosetta_table_copy_in_p12(ddpx_instance_sync_tbl, p0_a0
2018 , p0_a1
2019 , p0_a2
2020 , p0_a3
2021 , p0_a4
2022 , p0_a5
2023 , p0_a6
2024 , p0_a7
2025 );
2026
2027 csi_asset_pvt_w.rosetta_table_copy_in_p8(ddpx_instance_asset_sync_tbl, p1_a0
2028 , p1_a1
2029 , p1_a2
2030 , p1_a3
2031 , p1_a4
2032 );
2033
2034 csi_asset_pvt_w.rosetta_table_copy_in_p10(ddx_fa_asset_sync_tbl, p2_a0
2035 , p2_a1
2036 , p2_a2
2037 , p2_a3
2038 );
2039
2040
2041
2042
2043
2044 -- here's the delegated call to the old PL/SQL routine
2045 csi_asset_pvt.get_syncup_tree(ddpx_instance_sync_tbl,
2046 ddpx_instance_asset_sync_tbl,
2047 ddx_fa_asset_sync_tbl,
2048 x_return_status,
2049 x_error_msg,
2050 p_source_system_name,
2051 p_called_from_grp);
2052
2053 -- copy data back from the local variables to OUT or IN-OUT args, if any
2054 csi_asset_pvt_w.rosetta_table_copy_out_p12(ddpx_instance_sync_tbl, p0_a0
2055 , p0_a1
2056 , p0_a2
2057 , p0_a3
2058 , p0_a4
2059 , p0_a5
2060 , p0_a6
2061 , p0_a7
2062 );
2063
2064 csi_asset_pvt_w.rosetta_table_copy_out_p8(ddpx_instance_asset_sync_tbl, p1_a0
2065 , p1_a1
2066 , p1_a2
2067 , p1_a3
2068 , p1_a4
2069 );
2070
2071 csi_asset_pvt_w.rosetta_table_copy_out_p10(ddx_fa_asset_sync_tbl, p2_a0
2072 , p2_a1
2073 , p2_a2
2074 , p2_a3
2075 );
2076
2077
2078
2079
2080 end;
2081
2082 procedure create_instance_assets(p_api_version NUMBER
2083 , p_commit VARCHAR2
2084 , p_init_msg_list VARCHAR2
2085 , p_validation_level NUMBER
2086 , p4_a0 in out nocopy JTF_NUMBER_TABLE
2087 , p4_a1 in out nocopy JTF_NUMBER_TABLE
2088 , p4_a2 in out nocopy JTF_NUMBER_TABLE
2089 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
2090 , p4_a4 in out nocopy JTF_NUMBER_TABLE
2091 , p4_a5 in out nocopy JTF_NUMBER_TABLE
2092 , p4_a6 in out nocopy JTF_VARCHAR2_TABLE_100
2093 , p4_a7 in out nocopy JTF_DATE_TABLE
2094 , p4_a8 in out nocopy JTF_DATE_TABLE
2095 , p4_a9 in out nocopy JTF_NUMBER_TABLE
2096 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
2097 , p4_a11 in out nocopy JTF_NUMBER_TABLE
2098 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
2099 , p4_a13 in out nocopy JTF_NUMBER_TABLE
2100 , p4_a14 in out nocopy JTF_VARCHAR2_TABLE_100
2101 , p4_a15 in out nocopy JTF_VARCHAR2_TABLE_100
2102 , p5_a0 in out nocopy NUMBER
2103 , p5_a1 in out nocopy DATE
2104 , p5_a2 in out nocopy DATE
2105 , p5_a3 in out nocopy NUMBER
2106 , p5_a4 in out nocopy NUMBER
2107 , p5_a5 in out nocopy NUMBER
2108 , p5_a6 in out nocopy VARCHAR2
2109 , p5_a7 in out nocopy NUMBER
2110 , p5_a8 in out nocopy VARCHAR2
2111 , p5_a9 in out nocopy NUMBER
2112 , p5_a10 in out nocopy VARCHAR2
2113 , p5_a11 in out nocopy NUMBER
2114 , p5_a12 in out nocopy NUMBER
2115 , p5_a13 in out nocopy NUMBER
2116 , p5_a14 in out nocopy NUMBER
2117 , p5_a15 in out nocopy VARCHAR2
2118 , p5_a16 in out nocopy NUMBER
2119 , p5_a17 in out nocopy VARCHAR2
2120 , p5_a18 in out nocopy VARCHAR2
2121 , p5_a19 in out nocopy NUMBER
2122 , p5_a20 in out nocopy VARCHAR2
2123 , p5_a21 in out nocopy VARCHAR2
2124 , p5_a22 in out nocopy VARCHAR2
2125 , p5_a23 in out nocopy VARCHAR2
2126 , p5_a24 in out nocopy VARCHAR2
2127 , p5_a25 in out nocopy VARCHAR2
2128 , p5_a26 in out nocopy VARCHAR2
2129 , p5_a27 in out nocopy VARCHAR2
2130 , p5_a28 in out nocopy VARCHAR2
2131 , p5_a29 in out nocopy VARCHAR2
2132 , p5_a30 in out nocopy VARCHAR2
2133 , p5_a31 in out nocopy VARCHAR2
2134 , p5_a32 in out nocopy VARCHAR2
2135 , p5_a33 in out nocopy VARCHAR2
2136 , p5_a34 in out nocopy VARCHAR2
2137 , p5_a35 in out nocopy VARCHAR2
2138 , p5_a36 in out nocopy NUMBER
2139 , p5_a37 in out nocopy VARCHAR2
2140 , p5_a38 in out nocopy DATE
2141 , p5_a39 in out nocopy NUMBER
2142 , p6_a0 in out nocopy JTF_VARCHAR2_TABLE_100
2143 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2144 , p7_a0 in out nocopy NUMBER
2145 , p7_a1 in out nocopy NUMBER
2146 , p7_a2 in out nocopy NUMBER
2147 , p8_a0 in out nocopy JTF_NUMBER_TABLE
2148 , p8_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2149 , p8_a2 in out nocopy JTF_VARCHAR2_TABLE_100
2150 , p9_a0 in out nocopy JTF_NUMBER_TABLE
2151 , p9_a1 in out nocopy JTF_VARCHAR2_TABLE_100
2152 , x_return_status out nocopy VARCHAR2
2153 , x_msg_count out nocopy NUMBER
2154 , x_msg_data out nocopy VARCHAR2
2155 )
2156
2157 as
2158 ddp_instance_asset_tbl csi_datastructures_pub.instance_asset_tbl;
2159 ddp_txn_rec csi_datastructures_pub.transaction_rec;
2160 ddp_lookup_tbl csi_asset_pvt.lookup_tbl;
2161 ddp_asset_count_rec csi_asset_pvt.asset_count_rec;
2162 ddp_asset_id_tbl csi_asset_pvt.asset_id_tbl;
2163 ddp_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
2164 ddindx binary_integer; indx binary_integer;
2165 begin
2166
2167 -- copy data to the local IN or IN-OUT args, if any
2168
2169
2170
2171
2172 csi_datastructures_pub_w.rosetta_table_copy_in_p52(ddp_instance_asset_tbl, p4_a0
2173 , p4_a1
2174 , p4_a2
2175 , p4_a3
2176 , p4_a4
2177 , p4_a5
2178 , p4_a6
2179 , p4_a7
2180 , p4_a8
2181 , p4_a9
2182 , p4_a10
2183 , p4_a11
2184 , p4_a12
2185 , p4_a13
2186 , p4_a14
2187 , p4_a15
2188 );
2189
2190 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
2191 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
2192 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
2193 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
2194 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
2195 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
2196 ddp_txn_rec.source_group_ref := p5_a6;
2197 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
2198 ddp_txn_rec.source_header_ref := p5_a8;
2199 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
2200 ddp_txn_rec.source_line_ref := p5_a10;
2201 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
2202 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
2203 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
2204 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
2205 ddp_txn_rec.transaction_uom_code := p5_a15;
2206 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
2207 ddp_txn_rec.transaction_status_code := p5_a17;
2208 ddp_txn_rec.transaction_action_code := p5_a18;
2209 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
2210 ddp_txn_rec.context := p5_a20;
2211 ddp_txn_rec.attribute1 := p5_a21;
2212 ddp_txn_rec.attribute2 := p5_a22;
2213 ddp_txn_rec.attribute3 := p5_a23;
2214 ddp_txn_rec.attribute4 := p5_a24;
2215 ddp_txn_rec.attribute5 := p5_a25;
2216 ddp_txn_rec.attribute6 := p5_a26;
2217 ddp_txn_rec.attribute7 := p5_a27;
2218 ddp_txn_rec.attribute8 := p5_a28;
2219 ddp_txn_rec.attribute9 := p5_a29;
2220 ddp_txn_rec.attribute10 := p5_a30;
2221 ddp_txn_rec.attribute11 := p5_a31;
2222 ddp_txn_rec.attribute12 := p5_a32;
2223 ddp_txn_rec.attribute13 := p5_a33;
2224 ddp_txn_rec.attribute14 := p5_a34;
2225 ddp_txn_rec.attribute15 := p5_a35;
2226 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
2227 ddp_txn_rec.split_reason_code := p5_a37;
2228 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
2229 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
2230
2231 csi_asset_pvt_w.rosetta_table_copy_in_p1(ddp_lookup_tbl, p6_a0
2232 , p6_a1
2233 );
2234
2235 ddp_asset_count_rec.asset_count := rosetta_g_miss_num_map(p7_a0);
2236 ddp_asset_count_rec.lookup_count := rosetta_g_miss_num_map(p7_a1);
2237 ddp_asset_count_rec.loc_count := rosetta_g_miss_num_map(p7_a2);
2238
2239 csi_asset_pvt_w.rosetta_table_copy_in_p4(ddp_asset_id_tbl, p8_a0
2240 , p8_a1
2241 , p8_a2
2242 );
2243
2244 csi_asset_pvt_w.rosetta_table_copy_in_p6(ddp_asset_loc_tbl, p9_a0
2245 , p9_a1
2246 );
2247
2248
2249
2250
2251 -- here's the delegated call to the old PL/SQL routine
2252 csi_asset_pvt.create_instance_assets(p_api_version,
2253 p_commit,
2254 p_init_msg_list,
2255 p_validation_level,
2256 ddp_instance_asset_tbl,
2257 ddp_txn_rec,
2258 ddp_lookup_tbl,
2259 ddp_asset_count_rec,
2260 ddp_asset_id_tbl,
2261 ddp_asset_loc_tbl,
2262 x_return_status,
2263 x_msg_count,
2264 x_msg_data);
2265
2266 -- copy data back from the local variables to OUT or IN-OUT args, if any
2267
2268
2269
2270
2271 csi_datastructures_pub_w.rosetta_table_copy_out_p52(ddp_instance_asset_tbl, p4_a0
2272 , p4_a1
2273 , p4_a2
2274 , p4_a3
2275 , p4_a4
2276 , p4_a5
2277 , p4_a6
2278 , p4_a7
2279 , p4_a8
2280 , p4_a9
2281 , p4_a10
2282 , p4_a11
2283 , p4_a12
2284 , p4_a13
2285 , p4_a14
2286 , p4_a15
2287 );
2288
2289 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
2290 p5_a1 := ddp_txn_rec.transaction_date;
2291 p5_a2 := ddp_txn_rec.source_transaction_date;
2292 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
2293 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
2294 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
2295 p5_a6 := ddp_txn_rec.source_group_ref;
2296 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
2297 p5_a8 := ddp_txn_rec.source_header_ref;
2298 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
2299 p5_a10 := ddp_txn_rec.source_line_ref;
2300 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
2301 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
2302 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
2303 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
2304 p5_a15 := ddp_txn_rec.transaction_uom_code;
2305 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
2306 p5_a17 := ddp_txn_rec.transaction_status_code;
2307 p5_a18 := ddp_txn_rec.transaction_action_code;
2308 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
2309 p5_a20 := ddp_txn_rec.context;
2310 p5_a21 := ddp_txn_rec.attribute1;
2311 p5_a22 := ddp_txn_rec.attribute2;
2312 p5_a23 := ddp_txn_rec.attribute3;
2313 p5_a24 := ddp_txn_rec.attribute4;
2314 p5_a25 := ddp_txn_rec.attribute5;
2315 p5_a26 := ddp_txn_rec.attribute6;
2316 p5_a27 := ddp_txn_rec.attribute7;
2317 p5_a28 := ddp_txn_rec.attribute8;
2318 p5_a29 := ddp_txn_rec.attribute9;
2319 p5_a30 := ddp_txn_rec.attribute10;
2320 p5_a31 := ddp_txn_rec.attribute11;
2321 p5_a32 := ddp_txn_rec.attribute12;
2322 p5_a33 := ddp_txn_rec.attribute13;
2323 p5_a34 := ddp_txn_rec.attribute14;
2324 p5_a35 := ddp_txn_rec.attribute15;
2325 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
2326 p5_a37 := ddp_txn_rec.split_reason_code;
2327 p5_a38 := ddp_txn_rec.src_txn_creation_date;
2328 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
2329
2330 csi_asset_pvt_w.rosetta_table_copy_out_p1(ddp_lookup_tbl, p6_a0
2331 , p6_a1
2332 );
2333
2334 p7_a0 := rosetta_g_miss_num_map(ddp_asset_count_rec.asset_count);
2335 p7_a1 := rosetta_g_miss_num_map(ddp_asset_count_rec.lookup_count);
2336 p7_a2 := rosetta_g_miss_num_map(ddp_asset_count_rec.loc_count);
2337
2338 csi_asset_pvt_w.rosetta_table_copy_out_p4(ddp_asset_id_tbl, p8_a0
2339 , p8_a1
2340 , p8_a2
2341 );
2342
2343 csi_asset_pvt_w.rosetta_table_copy_out_p6(ddp_asset_loc_tbl, p9_a0
2344 , p9_a1
2345 );
2346
2347
2348
2349 end;
2350
2351 procedure set_fa_sync_flag(p0_a0 in out nocopy NUMBER
2352 , p0_a1 in out nocopy NUMBER
2353 , p0_a2 in out nocopy NUMBER
2354 , p0_a3 in out nocopy VARCHAR2
2355 , p0_a4 in out nocopy NUMBER
2356 , p0_a5 in out nocopy NUMBER
2357 , p0_a6 in out nocopy VARCHAR2
2358 , p0_a7 in out nocopy DATE
2359 , p0_a8 in out nocopy DATE
2360 , p0_a9 in out nocopy NUMBER
2361 , p0_a10 in out nocopy VARCHAR2
2362 , p0_a11 in out nocopy NUMBER
2363 , p0_a12 in out nocopy VARCHAR2
2364 , p0_a13 in out nocopy NUMBER
2365 , p0_a14 in out nocopy VARCHAR2
2366 , p0_a15 in out nocopy VARCHAR2
2367 , p_location_id NUMBER
2368 , x_return_status out nocopy VARCHAR2
2369 , x_error_msg out nocopy VARCHAR2
2370 )
2371
2372 as
2373 ddpx_instance_asset_rec csi_datastructures_pub.instance_asset_rec;
2374 ddindx binary_integer; indx binary_integer;
2375 begin
2376
2377 -- copy data to the local IN or IN-OUT args, if any
2378 ddpx_instance_asset_rec.instance_asset_id := rosetta_g_miss_num_map(p0_a0);
2379 ddpx_instance_asset_rec.instance_id := rosetta_g_miss_num_map(p0_a1);
2380 ddpx_instance_asset_rec.fa_asset_id := rosetta_g_miss_num_map(p0_a2);
2381 ddpx_instance_asset_rec.fa_book_type_code := p0_a3;
2382 ddpx_instance_asset_rec.fa_location_id := rosetta_g_miss_num_map(p0_a4);
2383 ddpx_instance_asset_rec.asset_quantity := rosetta_g_miss_num_map(p0_a5);
2384 ddpx_instance_asset_rec.update_status := p0_a6;
2385 ddpx_instance_asset_rec.active_start_date := rosetta_g_miss_date_in_map(p0_a7);
2386 ddpx_instance_asset_rec.active_end_date := rosetta_g_miss_date_in_map(p0_a8);
2387 ddpx_instance_asset_rec.object_version_number := rosetta_g_miss_num_map(p0_a9);
2388 ddpx_instance_asset_rec.check_for_instance_expiry := p0_a10;
2389 ddpx_instance_asset_rec.parent_tbl_index := rosetta_g_miss_num_map(p0_a11);
2390 ddpx_instance_asset_rec.fa_sync_flag := p0_a12;
2391 ddpx_instance_asset_rec.fa_mass_addition_id := rosetta_g_miss_num_map(p0_a13);
2392 ddpx_instance_asset_rec.creation_complete_flag := p0_a14;
2393 ddpx_instance_asset_rec.fa_sync_validation_reqd := p0_a15;
2394
2395
2396
2397
2398 -- here's the delegated call to the old PL/SQL routine
2399 csi_asset_pvt.set_fa_sync_flag(ddpx_instance_asset_rec,
2400 p_location_id,
2401 x_return_status,
2402 x_error_msg);
2403
2404 -- copy data back from the local variables to OUT or IN-OUT args, if any
2405 p0_a0 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.instance_asset_id);
2406 p0_a1 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.instance_id);
2407 p0_a2 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.fa_asset_id);
2408 p0_a3 := ddpx_instance_asset_rec.fa_book_type_code;
2409 p0_a4 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.fa_location_id);
2410 p0_a5 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.asset_quantity);
2411 p0_a6 := ddpx_instance_asset_rec.update_status;
2412 p0_a7 := ddpx_instance_asset_rec.active_start_date;
2413 p0_a8 := ddpx_instance_asset_rec.active_end_date;
2414 p0_a9 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.object_version_number);
2415 p0_a10 := ddpx_instance_asset_rec.check_for_instance_expiry;
2416 p0_a11 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.parent_tbl_index);
2417 p0_a12 := ddpx_instance_asset_rec.fa_sync_flag;
2418 p0_a13 := rosetta_g_miss_num_map(ddpx_instance_asset_rec.fa_mass_addition_id);
2419 p0_a14 := ddpx_instance_asset_rec.creation_complete_flag;
2420 p0_a15 := ddpx_instance_asset_rec.fa_sync_validation_reqd;
2421
2422
2423
2424 end;
2425
2426 end csi_asset_pvt_w;