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.17.12020000.2 2012/07/05 09:36:31 ntungare ship $ */
3:
4: /******************************************************************************************
5: | Copyright (C) 1993 Oracle Corporation Belmont, California, USA |

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 1046: l_user_name := CTO_CHANGE_ORDER_PK.get_user_name(

1042: IF PG_DEBUG <> 0 THEN
1043: oe_debug_pub.add('Change_Notify: ' || 'Before calling get_user_name....',3);
1044: END IF;
1045: -- calling get_user_name before delink_item to get buyer information.
1046: l_user_name := CTO_CHANGE_ORDER_PK.get_user_name(
1047: pConfigId => lconfig_id,
1048: pline_no => lconfig_line_id, -- passing the config line id
1049: xErrorMessage => x_err_number,
1050: xMessageName => x_err_name,

Line 1065: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 1;

1061: -- Added by Renga Kannan
1062: -- The Following Pkg varibale is sest to 1 to notify the delink pkg that the call is coming
1063: -- from change order pkg.
1064:
1065: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 1;
1066:
1067: IF CTO_CONFIG_ITEM_PK.delink_item(
1068: pModelLineId => plineid,
1069: pConfigId => lconfig_id,

Line 1076: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;

1072: xTableName => x_tbl_name) = 0
1073: THEN
1074: -- Re-initialize the pkg variable
1075:
1076: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;
1077: IF PG_DEBUG <> 0 THEN
1078: oe_debug_pub.add('Change_Notify: ' || 'Delink failed....',5);
1079: END IF;
1080:

Line 1087: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;

1083:
1084: END IF;
1085:
1086: -- Re-initialize the Pkg Variable
1087: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;
1088:
1089:
1090: END IF; /* For delink Action */
1091:

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

1910: --check for cancel has been moved up from the below LOOP
1911: i := pchgtype.FIRST;
1912: LOOP
1913: IF (pchgtype.exists(i)) then
1914: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE
1915: and
1916: to_number(pchgtype(i).new_value) = 0 then
1917:
1918: l_aname(i) := 'CANCEL_FLAG';

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

1928:
1929:
1930: exit;
1931: --OPM project
1932: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE then
1933: l_old_ord_uom2 := pchgtype(i).old_value;
1934: l_ord_uom2 := pchgtype(i).new_value;
1935:
1936:

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

1934: l_ord_uom2 := pchgtype(i).new_value;
1935:
1936:
1937: --opm
1938: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE then
1939: l_old_ord_uom := pchgtype(i).old_value;
1940: l_ord_uom := pchgtype(i).new_value;
1941:
1942: --opm

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

1939: l_old_ord_uom := pchgtype(i).old_value;
1940: l_ord_uom := pchgtype(i).new_value;
1941:
1942: --opm
1943: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE then
1944: l_old_ord_qty := to_number(pchgtype(i).old_value);
1945: lord_qty := to_number (pchgtype(i).new_value);
1946:
1947: --opm

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

1944: l_old_ord_qty := to_number(pchgtype(i).old_value);
1945: lord_qty := to_number (pchgtype(i).new_value);
1946:
1947: --opm
1948: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_CHANGE then
1949: l_old_ord_qty2 := to_number(pchgtype(i).old_value);
1950: lord_qty2 := to_number(pchgtype(i).new_value);
1951:
1952:

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

1966: oe_debug_pub.add('start_work_flow: ' || 'Change type value...'||to_char(pchgtype(i).change_type),1);
1967: END IF;
1968: IF (pchgtype.exists(i)) then
1969:
1970: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)
1971: OR
1972: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE
1973: then
1974:

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

1968: IF (pchgtype.exists(i)) then
1969:
1970: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)
1971: OR
1972: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE
1973: then
1974:
1975: --OPM
1976: --this check is to make sure that we set the chnage order attribute

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

1987: END IF; --l_qty_set
1988:
1989: --opm just the IF. Logic is carried over from earlier release
1990:
1991: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN
1992: if( pSplitDtls.count > 0 ) then
1993:
1994: oe_debug_pub.add('start_work_flow: ' || 'Adding Split Data ' ,1);
1995:

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

2034: end if;
2035: END IF;--QTY_CHANGE
2036:
2037: --05/27/05following elsif is added for OPM project
2038: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.QTY2_CHANGE
2039: OR
2040: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE
2041: then
2042:

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

2036:
2037: --05/27/05following elsif is added for OPM project
2038: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.QTY2_CHANGE
2039: OR
2040: pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE
2041: then
2042:
2043: --OPM
2044: --this check is to make sure that we set the chnage order attribute

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

2052: l_atxtvalue(i) := to_char(l_old_ord_qty2) || ' ' || l_old_ord_uom2 || ' TO ' ||
2053: to_char(lord_qty2) || ' ' || l_ord_uom2;
2054: END IF;--l_qty2_set
2055:
2056: ELSIF pchgtype(i).change_type =CTO_CHANGE_ORDER_PK.RD_CHANGE then
2057: l_aname(i) := 'RD_DATE';
2058: l_atxtvalue(i) := pchgtype(i).old_value||' TO '||nvl(pchgtype(i).new_value,'NULL');
2059:
2060: IF PG_DEBUG <> 0 THEN

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

2061: oe_debug_pub.add('start_work_flow: ' || 'VALUE of i for RD change=>'||i,1);
2062: END IF;
2063:
2064:
2065: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE then
2066:
2067: l_aname(i) := 'SSD_DATE';
2068:
2069: IF l_cancel_flag = 'Y' THEN --3651068

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

2075:
2076:
2077:
2078:
2079: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SAD_CHANGE then
2080:
2081: l_aname(i) := 'SAD_DATE';
2082:
2083: IF l_cancel_flag = 'Y' THEN --3651068

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

2089:
2090:
2091:
2092:
2093: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE then
2094: l_aname(i) := 'CONFIG_FLAG';
2095: l_atxtvalue(i) := ' YES';
2096:
2097:

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

2096:
2097:
2098:
2099:
2100: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.DELINK_ACTION then
2101: l_aname(i) := 'DLINK_FLAG';
2102: l_atxtvalue(i) := ' YES';
2103:
2104:

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

2102: l_atxtvalue(i) := ' YES';
2103:
2104:
2105:
2106: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE then
2107: l_aname(i) := 'SHIP_ORG';
2108: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || nvl( pchgtype(i).old_value , 'NULL' )
2109: || ' new ' || nvl(pchgtype(i).new_value , 'NULL') ) ;
2110: -- l_atxtvalue(i) := pchgtype(i).old_value||' TO '||pchgtype(i).new_value;

Line 2599: l_chgtype CTO_CHANGE_ORDER_PK.change_table_type;

2595: X_Msg_count OUT NOCOPY Number,
2596: X_Msg_data OUT NOCOPY Varchar2) IS
2597:
2598: TYPE PROCESS_SET IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;
2599: l_chgtype CTO_CHANGE_ORDER_PK.change_table_type;
2600: l_ato_line_id OE_ORDER_LINES_ALL.ATO_LINE_ID%TYPE;
2601: l_process_set PROCESS_SET;
2602: l_Stmt_no Number ;
2603: i Number;

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

2657:
2658: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Calling main procedure Change_Notify...',5);
2659: END IF;
2660:
2661: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
2662: l_stmt_no := 30;
2663: CTO_CHANGE_ORDER_PK.change_notify(
2664: PLineid => l_ato_line_id,
2665: Pchgtype => l_chgtype,

Line 2663: CTO_CHANGE_ORDER_PK.change_notify(

2659: END IF;
2660:
2661: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
2662: l_stmt_no := 30;
2663: CTO_CHANGE_ORDER_PK.change_notify(
2664: PLineid => l_ato_line_id,
2665: Pchgtype => l_chgtype,
2666: X_return_status => X_return_status,
2667: X_Msg_count => X_Msg_Count,

Line 3411: END CTO_CHANGE_ORDER_PK;

3407:
3408: END GET_USER_NAME;
3409:
3410:
3411: END CTO_CHANGE_ORDER_PK;