1: package body eam_workorder_util_pkg_w as
2: /* $Header: EAMVWUPB.pls 120.0.12020000.2 2012/11/07 13:03:35 rsandepo ship $ */
3: procedure rosetta_table_copy_in_p4(t out nocopy eam_workorder_util_pkg.t_bom_table, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body eam_workorder_util_pkg_w as
2: /* $Header: EAMVWUPB.pls 120.0.12020000.2 2012/11/07 13:03:35 rsandepo ship $ */
3: procedure rosetta_table_copy_in_p4(t out nocopy eam_workorder_util_pkg.t_bom_table, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_300
7: , a4 JTF_NUMBER_TABLE
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p4;
40: procedure rosetta_table_copy_out_p4(t eam_workorder_util_pkg.t_bom_table, a0 out nocopy JTF_NUMBER_TABLE
41: , a1 out nocopy JTF_NUMBER_TABLE
42: , a2 out nocopy JTF_VARCHAR2_TABLE_100
43: , a3 out nocopy JTF_VARCHAR2_TABLE_300
44: , a4 out nocopy JTF_NUMBER_TABLE
105: end if;
106: end if;
107: end rosetta_table_copy_out_p4;
108:
109: procedure rosetta_table_copy_in_p5(t out nocopy eam_workorder_util_pkg.t_component_table, a0 JTF_VARCHAR2_TABLE_100
110: , a1 JTF_NUMBER_TABLE
111: , a2 JTF_DATE_TABLE
112: , a3 JTF_NUMBER_TABLE
113: , a4 JTF_NUMBER_TABLE
140: end loop;
141: end if;
142: end if;
143: end rosetta_table_copy_in_p5;
144: procedure rosetta_table_copy_out_p5(t eam_workorder_util_pkg.t_component_table, a0 out nocopy JTF_VARCHAR2_TABLE_100
145: , a1 out nocopy JTF_NUMBER_TABLE
146: , a2 out nocopy JTF_DATE_TABLE
147: , a3 out nocopy JTF_NUMBER_TABLE
148: , a4 out nocopy JTF_NUMBER_TABLE
204: end if;
205: end if;
206: end rosetta_table_copy_out_p5;
207:
208: procedure rosetta_table_copy_in_p6(t out nocopy eam_workorder_util_pkg.t_optime_table, a0 JTF_NUMBER_TABLE
209: , a1 JTF_NUMBER_TABLE
210: ) as
211: ddindx binary_integer; indx binary_integer;
212: begin
225: end loop;
226: end if;
227: end if;
228: end rosetta_table_copy_in_p6;
229: procedure rosetta_table_copy_out_p6(t eam_workorder_util_pkg.t_optime_table, a0 out nocopy JTF_NUMBER_TABLE
230: , a1 out nocopy JTF_NUMBER_TABLE
231: ) as
232: ddindx binary_integer; indx binary_integer;
233: begin
254: end if;
255: end if;
256: end rosetta_table_copy_out_p6;
257:
258: procedure rosetta_table_copy_in_p7(t out nocopy eam_workorder_util_pkg.t_workflow_table, a0 JTF_NUMBER_TABLE
259: , a1 JTF_VARCHAR2_TABLE_400
260: , a2 JTF_VARCHAR2_TABLE_100
261: , a3 JTF_DATE_TABLE
262: , a4 JTF_VARCHAR2_TABLE_300
285: end loop;
286: end if;
287: end if;
288: end rosetta_table_copy_in_p7;
289: procedure rosetta_table_copy_out_p7(t eam_workorder_util_pkg.t_workflow_table, a0 out nocopy JTF_NUMBER_TABLE
290: , a1 out nocopy JTF_VARCHAR2_TABLE_400
291: , a2 out nocopy JTF_VARCHAR2_TABLE_100
292: , a3 out nocopy JTF_DATE_TABLE
293: , a4 out nocopy JTF_VARCHAR2_TABLE_300
339: end if;
340: end if;
341: end rosetta_table_copy_out_p7;
342:
343: procedure rosetta_table_copy_in_p30(t out nocopy eam_workorder_util_pkg.replace_rebuild_tbl_type, a0 JTF_NUMBER_TABLE
344: ) as
345: ddindx binary_integer; indx binary_integer;
346: begin
347: if a0 is not null and a0.count > 0 then
358: end loop;
359: end if;
360: end if;
361: end rosetta_table_copy_in_p30;
362: procedure rosetta_table_copy_out_p30(t eam_workorder_util_pkg.replace_rebuild_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
363: ) as
364: ddindx binary_integer; indx binary_integer;
365: begin
366: if t is null or t.count = 0 then
400: , o_error_code out nocopy NUMBER
401: )
402:
403: as
404: ddo_bom_table eam_workorder_util_pkg.t_bom_table;
405: ddindx binary_integer; indx binary_integer;
406: begin
407:
408: -- copy data to the local IN or IN-OUT args, if any
412:
413:
414:
415: -- here's the delegated call to the old PL/SQL routine
416: eam_workorder_util_pkg.retrieve_asset_bom(i_organization_id,
417: i_asset_number,
418: i_asset_group_id,
419: p_context,
420: ddo_bom_table,
424:
425:
426:
427:
428: eam_workorder_util_pkg_w.rosetta_table_copy_out_p4(ddo_bom_table, p4_a0
429: , p4_a1
430: , p4_a2
431: , p4_a3
432: , p4_a4
455: , o_error_code out nocopy NUMBER
456: )
457:
458: as
459: ddi_component_table eam_workorder_util_pkg.t_component_table;
460: ddindx binary_integer; indx binary_integer;
461: begin
462:
463: -- copy data to the local IN or IN-OUT args, if any
464:
465:
466:
467:
468: eam_workorder_util_pkg_w.rosetta_table_copy_in_p5(ddi_component_table, p4_a0
469: , p4_a1
470: , p4_a2
471: , p4_a3
472: , p4_a4
477: );
478:
479:
480: -- here's the delegated call to the old PL/SQL routine
481: eam_workorder_util_pkg.copy_to_bom(i_organization_id,
482: i_organization_code,
483: i_asset_number,
484: i_asset_group_id,
485: ddi_component_table,
498: , p1_a1 JTF_NUMBER_TABLE
499: )
500:
501: as
502: ddi_operation_table eam_workorder_util_pkg.t_optime_table;
503: ddindx binary_integer; indx binary_integer;
504: begin
505:
506: -- copy data to the local IN or IN-OUT args, if any
504: begin
505:
506: -- copy data to the local IN or IN-OUT args, if any
507:
508: eam_workorder_util_pkg_w.rosetta_table_copy_in_p6(ddi_operation_table, p1_a0
509: , p1_a1
510: );
511:
512: -- here's the delegated call to the old PL/SQL routine
509: , p1_a1
510: );
511:
512: -- here's the delegated call to the old PL/SQL routine
513: eam_workorder_util_pkg.adjust_operations(i_wip_entity_id,
514: ddi_operation_table);
515:
516: -- copy data back from the local variables to OUT or IN-OUT args, if any
517:
528:
529: -- copy data to the local IN or IN-OUT args, if any
530:
531: -- here's the delegated call to the old PL/SQL routine
532: ddrosetta_retval := eam_workorder_util_pkg.dependency_violated(i_wip_entity_id);
533:
534: -- copy data back from the local variables to OUT or IN-OUT args, if any
535: if ddrosetta_retval is null
536: then ddrosetta_retval_bool := null;
551: , p2_a6 out nocopy JTF_VARCHAR2_TABLE_4000
552: )
553:
554: as
555: ddx_workflow_table eam_workorder_util_pkg.t_workflow_table;
556: ddindx binary_integer; indx binary_integer;
557: begin
558:
559: -- copy data to the local IN or IN-OUT args, if any
560:
561:
562:
563: -- here's the delegated call to the old PL/SQL routine
564: eam_workorder_util_pkg.get_workflow_details(p_item_type,
565: p_item_key,
566: ddx_workflow_table);
567:
568: -- copy data back from the local variables to OUT or IN-OUT args, if any
567:
568: -- copy data back from the local variables to OUT or IN-OUT args, if any
569:
570:
571: eam_workorder_util_pkg_w.rosetta_table_copy_out_p7(ddx_workflow_table, p2_a0
572: , p2_a1
573: , p2_a2
574: , p2_a3
575: , p2_a4
585: , x_error_message out nocopy VARCHAR2
586: )
587:
588: as
589: ddx_replaced_rebuild_tbl eam_workorder_util_pkg.replace_rebuild_tbl_type;
590: ddindx binary_integer; indx binary_integer;
591: begin
592:
593: -- copy data to the local IN or IN-OUT args, if any
596:
597:
598:
599: -- here's the delegated call to the old PL/SQL routine
600: eam_workorder_util_pkg.get_replaced_rebuilds(p_wip_entity_id,
601: p_organization_id,
602: ddx_replaced_rebuild_tbl,
603: x_return_status,
604: x_error_message);
605:
606: -- copy data back from the local variables to OUT or IN-OUT args, if any
607:
608:
609: eam_workorder_util_pkg_w.rosetta_table_copy_out_p30(ddx_replaced_rebuild_tbl, p2_a0
610: );
611:
612:
613: end;
611:
612:
613: end;
614:
615: end eam_workorder_util_pkg_w;