20: --g_ord_lvl_can boolean := FALSE; Commented for bug# 2922468
21: g_par_ord_lvl_can boolean := FALSE; -- Introduced this variable to fix bug 2230777
22: g_ser_cascade boolean := FALSE;
23:
24: Procedure PerformLineCancellation(P_line_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE,
25: p_line_old_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE,
26: x_return_status OUT NOCOPY VARCHAR2);
27:
28:
21: g_par_ord_lvl_can boolean := FALSE; -- Introduced this variable to fix bug 2230777
22: g_ser_cascade boolean := FALSE;
23:
24: Procedure PerformLineCancellation(P_line_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE,
25: p_line_old_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE,
26: x_return_status OUT NOCOPY VARCHAR2);
27:
28:
29: Procedure UpdateLine
38: ,x_msg_data out nocopy Varchar2)
39:
40: Is
41: l_api_name VARCHAR2(30) := 'UPDATELINE';
42: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
43: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
44: l_control_rec OE_GLOBALS.Control_Rec_Type;
45: l_return_status VARCHAR2(1);
46: l_line_rec OE_Order_PUB.Line_Rec_Type;
39:
40: Is
41: l_api_name VARCHAR2(30) := 'UPDATELINE';
42: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
43: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
44: l_control_rec OE_GLOBALS.Control_Rec_Type;
45: l_return_status VARCHAR2(1);
46: l_line_rec OE_Order_PUB.Line_Rec_Type;
47:
42: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
43: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
44: l_control_rec OE_GLOBALS.Control_Rec_Type;
45: l_return_status VARCHAR2(1);
46: l_line_rec OE_Order_PUB.Line_Rec_Type;
47:
48: --
49: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
50: --
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188: END UpdateLine;
189:
190: PROCEDURE perform_line_change
191: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
192: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
193: , x_return_status OUT NOCOPY VARCHAR2
194:
195: )
188: END UpdateLine;
189:
190: PROCEDURE perform_line_change
191: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
192: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
193: , x_return_status OUT NOCOPY VARCHAR2
194:
195: )
196: IS
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: END Perform_Line_change;
676:
677: PROCEDURE check_constraints
678: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
679: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
680: , x_return_status OUT NOCOPY varchar2
681:
682: )
675: END Perform_Line_change;
676:
677: PROCEDURE check_constraints
678: ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
679: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
680: , x_return_status OUT NOCOPY varchar2
681:
682: )
683: IS
681:
682: )
683: IS
684: l_return_status VARCHAR2(30) :=FND_API.G_RET_STS_SUCCESS;
685: --l_line_Rec oe_order_pub.line_rec_type := p_line_Rec;
686: x_result NUMBER := 0 ;
687: x_msg_count NUMBER;
688: x_msg_data VARCHAR2(255);
689: l_api_name VARCHAR2(30):= 'Check_Constraints';
918:
919: END check_constraints;
920:
921: PROCEDURE update_service
922: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
923: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
924: , x_return_status OUT NOCOPY VARCHAR2
925:
926: )
919: END check_constraints;
920:
921: PROCEDURE update_service
922: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
923: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type := OE_Order_PUB.G_MISS_LINE_REC
924: , x_return_status OUT NOCOPY VARCHAR2
925:
926: )
927: IS
1017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1018: end update_service;
1019:
1020: FUNCTION Cal_Cancelled_Qty
1021: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
1022: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
1023: OE_Order_PUB.G_MISS_LINE_REC
1024: )Return Number
1025: IS
1018: end update_service;
1019:
1020: FUNCTION Cal_Cancelled_Qty
1021: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
1022: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
1023: OE_Order_PUB.G_MISS_LINE_REC
1024: )Return Number
1025: IS
1026: l_ordered_quantity number;
1019:
1020: FUNCTION Cal_Cancelled_Qty
1021: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
1022: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
1023: OE_Order_PUB.G_MISS_LINE_REC
1024: )Return Number
1025: IS
1026: l_ordered_quantity number;
1027: l_old_ord_quantity number;
1141:
1142: end Cal_Cancelled_qty;
1143:
1144: PROCEDURE check_constraints
1145: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type
1146: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type:=
1147: OE_Order_PUB.G_MISS_header_REC
1148: , x_return_status OUT NOCOPY VARCHAR2
1149:
1142: end Cal_Cancelled_qty;
1143:
1144: PROCEDURE check_constraints
1145: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type
1146: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type:=
1147: OE_Order_PUB.G_MISS_header_REC
1148: , x_return_status OUT NOCOPY VARCHAR2
1149:
1150: ) IS
1143:
1144: PROCEDURE check_constraints
1145: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type
1146: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type:=
1147: OE_Order_PUB.G_MISS_header_REC
1148: , x_return_status OUT NOCOPY VARCHAR2
1149:
1150: ) IS
1151: l_api_name CONSTANT VARCHAR2(30) := 'Check_Constraints';
1194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1195: end check_constraints;
1196:
1197: PROCEDURE perform_cancel_order
1198: ( p_header_rec IN OE_Order_PUB.header_Rec_Type
1199: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type := OE_Order_PUB.G_MISS_header_REC
1200: , x_return_status OUT NOCOPY VARCHAR2
1201:
1202: )IS
1195: end check_constraints;
1196:
1197: PROCEDURE perform_cancel_order
1198: ( p_header_rec IN OE_Order_PUB.header_Rec_Type
1199: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type := OE_Order_PUB.G_MISS_header_REC
1200: , x_return_status OUT NOCOPY VARCHAR2
1201:
1202: )IS
1203: l_line_tbl OE_Order_PUB.line_tbl_type;
1199: , p_old_header_rec IN OE_Order_PUB.header_Rec_Type := OE_Order_PUB.G_MISS_header_REC
1200: , x_return_status OUT NOCOPY VARCHAR2
1201:
1202: )IS
1203: l_line_tbl OE_Order_PUB.line_tbl_type;
1204: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1205: l_line_rec OE_Order_PUB.line_rec_type;
1206: l_msg_count NUMBER;
1207: l_msg_data VARCHAR2(240);
1200: , x_return_status OUT NOCOPY VARCHAR2
1201:
1202: )IS
1203: l_line_tbl OE_Order_PUB.line_tbl_type;
1204: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1205: l_line_rec OE_Order_PUB.line_rec_type;
1206: l_msg_count NUMBER;
1207: l_msg_data VARCHAR2(240);
1208: l_entity_id NUMBER;
1201:
1202: )IS
1203: l_line_tbl OE_Order_PUB.line_tbl_type;
1204: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1205: l_line_rec OE_Order_PUB.line_rec_type;
1206: l_msg_count NUMBER;
1207: l_msg_data VARCHAR2(240);
1208: l_entity_id NUMBER;
1209: l_result VARCHAR2(30);
1217: l_release_reason_code OE_HOLD_RELEASES.RELEASE_REASON_CODE%TYPE;
1218: l_release_comment OE_HOLD_RELEASES.RELEASE_COMMENT%TYPE;
1219:
1220: l_service_parent_exists VARCHAR2(1) := 'N';
1221: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1222: i NUMBER := 0;
1223: l_prg_line_count NUMBER;
1224:
1225: --
1510:
1511: End Perform_Cancel_order;
1512:
1513: Procedure PerformLineCancellation(
1514: p_line_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE
1515: , p_line_old_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE
1516: , x_return_status OUT NOCOPY VARCHAR2)
1517:
1518: IS
1511: End Perform_Cancel_order;
1512:
1513: Procedure PerformLineCancellation(
1514: p_line_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE
1515: , p_line_old_tbl IN OE_ORDER_PUB.LINE_TBL_TYPE
1516: , x_return_status OUT NOCOPY VARCHAR2)
1517:
1518: IS
1519: l_control_rec OE_GLOBALS.Control_Rec_Type;
1516: , x_return_status OUT NOCOPY VARCHAR2)
1517:
1518: IS
1519: l_control_rec OE_GLOBALS.Control_Rec_Type;
1520: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
1521: l_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
1522: l_api_name CONSTANT VARCHAR2(30) := 'PerformLineCancellation';
1523: x_msg_count NUMBER;
1524: x_msg_data VARCHAR2(30);
1517:
1518: IS
1519: l_control_rec OE_GLOBALS.Control_Rec_Type;
1520: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
1521: l_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
1522: l_api_name CONSTANT VARCHAR2(30) := 'PerformLineCancellation';
1523: x_msg_count NUMBER;
1524: x_msg_data VARCHAR2(30);
1525:
1613: ( p_line_id IN NUMBER :=
1614: FND_API.G_MISS_NUM
1615: , p_header_id IN NUMBER :=
1616: FND_API.G_MISS_NUM
1617: ) RETURN OE_Order_PUB.Line_Tbl_Type
1618: IS
1619: l_line_rec OE_Order_PUB.Line_Rec_Type;
1620: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1621:
1615: , p_header_id IN NUMBER :=
1616: FND_API.G_MISS_NUM
1617: ) RETURN OE_Order_PUB.Line_Tbl_Type
1618: IS
1619: l_line_rec OE_Order_PUB.Line_Rec_Type;
1620: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1621:
1622: --
1623: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1616: FND_API.G_MISS_NUM
1617: ) RETURN OE_Order_PUB.Line_Tbl_Type
1618: IS
1619: l_line_rec OE_Order_PUB.Line_Rec_Type;
1620: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
1621:
1622: --
1623: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1624: --
1818: END IF;
1819: END Call_Process_Fulfillment;
1820:
1821: PROCEDURE Cancel_Remaining_Order
1822: ( p_header_Rec IN OE_Order_PUB.Header_Rec_Type := OE_ORDER_PUB.G_MISS_HEADER_REC,
1823: p_header_id IN NUMBER := FND_API.G_MISS_NUM
1824: , x_return_status OUT NOCOPY VARCHAR2
1825:
1826: )
1824: , x_return_status OUT NOCOPY VARCHAR2
1825:
1826: )
1827: IS
1828: l_line_tbl OE_Order_PUB.line_tbl_type;
1829: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1830: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1831: l_line_rec OE_Order_PUB.line_rec_type;
1832: l_header_rec OE_Order_PUB.header_rec_type;
1825:
1826: )
1827: IS
1828: l_line_tbl OE_Order_PUB.line_tbl_type;
1829: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1830: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1831: l_line_rec OE_Order_PUB.line_rec_type;
1832: l_header_rec OE_Order_PUB.header_rec_type;
1833: l_msg_count NUMBER;
1826: )
1827: IS
1828: l_line_tbl OE_Order_PUB.line_tbl_type;
1829: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1830: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1831: l_line_rec OE_Order_PUB.line_rec_type;
1832: l_header_rec OE_Order_PUB.header_rec_type;
1833: l_msg_count NUMBER;
1834: l_msg_data VARCHAR2(240);
1827: IS
1828: l_line_tbl OE_Order_PUB.line_tbl_type;
1829: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1830: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1831: l_line_rec OE_Order_PUB.line_rec_type;
1832: l_header_rec OE_Order_PUB.header_rec_type;
1833: l_msg_count NUMBER;
1834: l_msg_data VARCHAR2(240);
1835: l_entity_id NUMBER;
1828: l_line_tbl OE_Order_PUB.line_tbl_type;
1829: l_line_old_tbl OE_Order_PUB.line_tbl_type;
1830: l_x_line_old_tbl OE_Order_PUB.line_tbl_type;
1831: l_line_rec OE_Order_PUB.line_rec_type;
1832: l_header_rec OE_Order_PUB.header_rec_type;
1833: l_msg_count NUMBER;
1834: l_msg_data VARCHAR2(240);
1835: l_entity_id NUMBER;
1836: l_result VARCHAR2(30);
1857: x_return_status := FND_API.G_RET_STS_SUCCESS;
1858:
1859: g_par_ord_lvl_can := TRUE; --Fix for bug 2230777
1860:
1861: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1862:
1863: IF (p_header_rec.header_id = FND_API.G_MISS_NUM OR
1864: p_header_rec.header_id = NULL) THEN
1865: l_header_id := p_header_id;
2071:
2072: PROCEDURE Cancel_Wf
2073: (
2074: x_return_status OUT NOCOPY varchar2
2075: , x_request_rec IN OUT NOCOPY OE_Order_PUB.Request_Rec_Type
2076: )
2077: IS
2078: l_Ordered_Quantity number ;
2079: Cursor C1 IS
2174:
2175:
2176: -- INVCONV OPM Inventory convergence
2177: FUNCTION Cal_Cancelled_Qty2
2178: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
2179: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
2180: OE_Order_PUB.G_MISS_LINE_REC
2181: )Return Number
2182: IS
2175:
2176: -- INVCONV OPM Inventory convergence
2177: FUNCTION Cal_Cancelled_Qty2
2178: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
2179: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
2180: OE_Order_PUB.G_MISS_LINE_REC
2181: )Return Number
2182: IS
2183: l_ordered_quantity2 number;
2176: -- INVCONV OPM Inventory convergence
2177: FUNCTION Cal_Cancelled_Qty2
2178: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
2179: , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type :=
2180: OE_Order_PUB.G_MISS_LINE_REC
2181: )Return Number
2182: IS
2183: l_ordered_quantity2 number;
2184: l_old_ord_quantity2 number;