DBA Data[Home] [Help]

APPS.CTO_CHANGE_ORDER_PK dependencies on CTO_CHANGE_ORDER_PK

Line 1: PACKAGE BODY CTO_CHANGE_ORDER_PK as

1: PACKAGE BODY CTO_CHANGE_ORDER_PK as
2: /* $Header: CTOCHODB.pls 120.13.12010000.4 2008/10/27 05:24:46 ntungare ship $ */
3:
4: /******************************************************************************************
5: | Copyright (C) 1993 Oracle Corporation Belmont, California, USA |

Line 495: pchgtype(pchgtype.first).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE AND

491:
492: lStmtNumber := 3;
493:
494: IF pLineid is NULL AND
495: pchgtype(pchgtype.first).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE AND
496: pchgtype(pchgtype.first).new_value = 'PTO_ATO_CREATE'
497: THEN
498:
499: -- If the above conditions are satisfied meand this call is for

Line 680: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE THEN

676:
677: oe_debug_pub.add('Change_Notify: ' || 'New Value = '||pchgtype(i).new_value,3);
678: END IF;
679:
680: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE THEN
681:
682: if( pchgtype(i).new_value is null ) then
683: oe_debug_pub.add('Change_Notify: ' || 'Unschedule case ' ,3);
684: l_unschedule_action := TRUE ;

Line 703: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE THEN

699:
700: END IF ;
701:
702:
703: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE THEN
704:
705: if( pchgtype(i).new_value is not null ) then
706:
707: oe_debug_pub.add('Change_Notify: ' || 'Warehouse change ' ,3);

Line 772: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE THEN

768:
769:
770:
771:
772: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE THEN
773: IF PG_DEBUG <> 0 THEN
774: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..',3);
775: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..' || poptionchgdtls.count ,3);
776: END IF;

Line 847: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) = 0 THEN

843:
844:
845:
846:
847: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) = 0 THEN
848: lcancel_line := TRUE;
849: l_req_change_details.cancel_line_flag := TRUE;
850: IF PG_DEBUG <> 0 THEN
851: oe_debug_pub.add('Change_Notify: ' || 'Line is cancelled..',3);

Line 854: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN

850: IF PG_DEBUG <> 0 THEN
851: oe_debug_pub.add('Change_Notify: ' || 'Line is cancelled..',3);
852: END IF;
853:
854: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN
855: lqty_change := TRUE;
856: l_req_change_details.qty_change_flag := TRUE;
857: l_req_change_details.new_order_qty := to_number(pchgtype(i).new_value);
858: IF PG_DEBUG <> 0 THEN

Line 916: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_CHANGE THEN

912:
913: end if ; /* check for split line info */
914:
915: --this elseif block is for OPM change
916: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_CHANGE THEN
917: lqty2_change := TRUE;
918:
919: l_req_change_details.qty2_change_flag := TRUE;
920: l_req_change_details.new_order_qty2 := to_number(pchgtype(i).new_value);

Line 1047: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 1;

1043: -- Added by Renga Kannan
1044: -- The Following Pkg varibale is sest to 1 to notify the delink pkg that the call is coming
1045: -- from change order pkg.
1046:
1047: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 1;
1048:
1049: IF CTO_CONFIG_ITEM_PK.delink_item(
1050: pModelLineId => plineid,
1051: pConfigId => lconfig_id,

Line 1058: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;

1054: xTableName => x_tbl_name) = 0
1055: THEN
1056: -- Re-initialize the pkg variable
1057:
1058: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;
1059: IF PG_DEBUG <> 0 THEN
1060: oe_debug_pub.add('Change_Notify: ' || 'Delink failed....',5);
1061: END IF;
1062:

Line 1069: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;

1065:
1066: END IF;
1067:
1068: -- Re-initialize the Pkg Variable
1069: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;
1070:
1071:
1072: END IF; /* For delink Action */
1073:

Line 1713: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE

1709: --check for cancel has been moved up from the below LOOP
1710: i := pchgtype.FIRST;
1711: LOOP
1712: IF (pchgtype.exists(i)) then
1713: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE
1714: and
1715: to_number(pchgtype(i).new_value) = 0 then
1716:
1717: l_aname(i) := 'CANCEL_FLAG';

Line 1731: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE then

1727:
1728:
1729: exit;
1730: --OPM project
1731: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE then
1732: l_old_ord_uom2 := pchgtype(i).old_value;
1733: l_ord_uom2 := pchgtype(i).new_value;
1734:
1735:

Line 1737: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE then

1733: l_ord_uom2 := pchgtype(i).new_value;
1734:
1735:
1736: --opm
1737: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE then
1738: l_old_ord_uom := pchgtype(i).old_value;
1739: l_ord_uom := pchgtype(i).new_value;
1740:
1741: --opm

Line 1742: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE then

1738: l_old_ord_uom := pchgtype(i).old_value;
1739: l_ord_uom := pchgtype(i).new_value;
1740:
1741: --opm
1742: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE then
1743: l_old_ord_qty := to_number(pchgtype(i).old_value);
1744: lord_qty := to_number (pchgtype(i).new_value);
1745:
1746: --opm

Line 1747: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_CHANGE then

1743: l_old_ord_qty := to_number(pchgtype(i).old_value);
1744: lord_qty := to_number (pchgtype(i).new_value);
1745:
1746: --opm
1747: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_CHANGE then
1748: l_old_ord_qty2 := to_number(pchgtype(i).old_value);
1749: lord_qty2 := to_number(pchgtype(i).new_value);
1750:
1751:

Line 1769: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)

1765: oe_debug_pub.add('start_work_flow: ' || 'Change type value...'||to_char(pchgtype(i).change_type),1);
1766: END IF;
1767: IF (pchgtype.exists(i)) then
1768:
1769: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)
1770: OR
1771: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE
1772: then
1773:

Line 1771: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE

1767: IF (pchgtype.exists(i)) then
1768:
1769: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)
1770: OR
1771: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE
1772: then
1773:
1774: --OPM
1775: --this check is to make sure that we set the chnage order attribute

Line 1790: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN

1786: END IF; --l_qty_set
1787:
1788: --opm just the IF. Logic is carried over from earlier release
1789:
1790: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN
1791: if( pSplitDtls.count > 0 ) then
1792:
1793: oe_debug_pub.add('start_work_flow: ' || 'Adding Split Data ' ,1);
1794:

Line 1837: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.QTY2_CHANGE

1833: end if;
1834: END IF;--QTY_CHANGE
1835:
1836: --05/27/05following elsif is added for OPM project
1837: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.QTY2_CHANGE
1838: OR
1839: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE
1840: then
1841:

Line 1839: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE

1835:
1836: --05/27/05following elsif is added for OPM project
1837: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.QTY2_CHANGE
1838: OR
1839: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE
1840: then
1841:
1842: --OPM
1843: --this check is to make sure that we set the chnage order attribute

Line 1855: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.RD_CHANGE then

1851: l_atxtvalue(i) := to_char(l_old_ord_qty2) || ' ' || l_old_ord_uom2 || ' TO ' ||
1852: to_char(lord_qty2) || ' ' || l_ord_uom2;
1853: END IF;--l_qty2_set
1854:
1855: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.RD_CHANGE then
1856: l_aname(i) := 'RD_DATE';
1857: l_atxtvalue(i) := pchgtype(i).old_value||' TO '||nvl(pchgtype(i).new_value,'NULL');
1858:
1859: IF PG_DEBUG <> 0 THEN

Line 1864: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE then

1860: oe_debug_pub.add('start_work_flow: ' || 'VALUE of i for RD change=>'||i,1);
1861: END IF;
1862:
1863:
1864: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE then
1865:
1866: l_aname(i) := 'SSD_DATE';
1867:
1868: IF l_cancel_flag = 'Y' THEN --3651068

Line 1878: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SAD_CHANGE then

1874:
1875:
1876:
1877:
1878: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SAD_CHANGE then
1879:
1880: l_aname(i) := 'SAD_DATE';
1881:
1882: IF l_cancel_flag = 'Y' THEN --3651068

Line 1892: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE then

1888:
1889:
1890:
1891:
1892: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE then
1893: l_aname(i) := 'CONFIG_FLAG';
1894: l_atxtvalue(i) := ' YES';
1895:
1896:

Line 1899: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.DELINK_ACTION then

1895:
1896:
1897:
1898:
1899: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.DELINK_ACTION then
1900: l_aname(i) := 'DLINK_FLAG';
1901: l_atxtvalue(i) := ' YES';
1902:
1903:

Line 1905: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE then

1901: l_atxtvalue(i) := ' YES';
1902:
1903:
1904:
1905: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE then
1906: l_aname(i) := 'SHIP_ORG';
1907: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || nvl( pchgtype(i).old_value , 'NULL' )
1908: || ' new ' || nvl(pchgtype(i).new_value , 'NULL') ) ;
1909: -- l_atxtvalue(i) := pchgtype(i).old_value||' TO '||pchgtype(i).new_value;

Line 2362: l_chgtype CTO_CHANGE_ORDER_PK.change_table_type;

2358: X_Msg_count OUT NOCOPY Number,
2359: X_Msg_data OUT NOCOPY Varchar2) IS
2360:
2361: TYPE PROCESS_SET IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;
2362: l_chgtype CTO_CHANGE_ORDER_PK.change_table_type;
2363: l_ato_line_id OE_ORDER_LINES_ALL.ATO_LINE_ID%TYPE;
2364: l_process_set PROCESS_SET;
2365: l_Stmt_no Number ;
2366: i Number;

Line 2421: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;

2417:
2418: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Calling main procedure Change_Notify...',5);
2419: END IF;
2420:
2421: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
2422: l_stmt_no := 30;
2423: CTO_CHANGE_ORDER_PK.change_notify(
2424: PLineid => l_ato_line_id,
2425: Pchgtype => l_chgtype,

Line 2423: CTO_CHANGE_ORDER_PK.change_notify(

2419: END IF;
2420:
2421: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
2422: l_stmt_no := 30;
2423: CTO_CHANGE_ORDER_PK.change_notify(
2424: PLineid => l_ato_line_id,
2425: Pchgtype => l_chgtype,
2426: X_return_status => X_return_status,
2427: X_Msg_count => X_Msg_Count,

Line 3025: END CTO_CHANGE_ORDER_PK;

3021:
3022:
3023:
3024:
3025: END CTO_CHANGE_ORDER_PK;