[Home] [Help]
1816: IF NOT OE_GLOBALS.Equal(p_x_header_rec.cancelled_flag,p_old_header_rec.cancelled_flag)
1817: THEN
1818: IF p_x_header_rec.cancelled_flag = 'Y' THEN
1819:
1820: Oe_Sales_Can_Util.Check_Constraints(p_x_header_rec,
1821: p_old_header_rec,
1822: l_return_status);
1823: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1824: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8181:
8182: BEGIN
8183: oe_debug_pub.add('Entering OR_HEADER_UTIL.Pre_Write_Process',1);
8184:
8185: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8186: -- Setting the global for IR ISO Tracking bug 7667702
8187:
8188: /* Start AuditTrail */
8189:
8274: -- G_UPDATE_REQUISITION to call the Purchasing API so as to trigger the
8275: -- requisition header cancellation. For this, we need to log the delayed
8276: -- requests from Pre_Write_Process procedure of OE_Header_Util package.
8277: -- In this procedure, we need to raise this delayed request only after
8278: -- successful execution of OE_Sales_Can_Util.Perform_Cancel_Order API,
8279: -- which is responsible for canceling both order header and all order
8280: -- lines. This code will be triggered in the event of Full Order
8281: -- Cancellation only.
8282: --
8351: -- OM Development > OM GM > 12.1.1 > TDD > IR_ISO_CMS_TDD.doc
8352: --
8353:
8354: IF (p_x_header_rec.order_source_id = 10) THEN
8355: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := TRUE;
8356: IF l_debug_level > 0 THEN
8357: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to TRUE',5);
8358: END IF;
8359: END IF;
8359: END IF;
8360: -- Setting this global to TRUE confirming it to be
8361: -- Order header level full cancellation
8362:
8363: OE_SALES_CAN_UTIL.Perform_cancel_order(p_x_header_rec,
8364: p_old_header_rec,
8365: l_return_status);
8366:
8367: IF (p_x_header_rec.order_source_id = 10) THEN
8364: p_old_header_rec,
8365: l_return_status);
8366:
8367: IF (p_x_header_rec.order_source_id = 10) THEN
8368: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8369: IF l_debug_level > 0 THEN
8370: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to FALSE',5);
8371: END IF;
8372: END IF;
8863: EXCEPTION
8864: -- included to fix bug 1589196 Begin
8865: WHEN FND_API.G_EXC_ERROR THEN
8866:
8867: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8868: -- Adding this for IR ISO Tracking bug 7667702
8869:
8870: RAISE FND_API.G_EXC_ERROR;
8871: -- included to fix bug 1589196 End
8871: -- included to fix bug 1589196 End
8872:
8873: WHEN OTHERS THEN
8874:
8875: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8876: -- Adding this for IR ISO Tracking bug 7667702
8877:
8878: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8879: THEN
9055:
9056: -- Close the order if its a complet cancellation at the line and
9057: -- is indeed a cancellation (by constraints)
9058: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
9059: IF oe_sales_can_util.g_order_cancel AND
9060: p_x_header_rec.cancelled_flag = 'Y' AND -- (p_old_header_rec.cancelled_flag <> 'Y') --7142748
9061: p_x_header_rec.cancelled_flag <> NVL(p_old_header_rec.cancelled_flag,'N') THEN -- Bug 9241924
9062: -- Bug 1895144: set recursion mode so that close does
9063: -- not execute any delayed requests
9111: RAISE;
9112: END;
9113: END IF;
9114: END IF;
9115: oe_sales_can_util.g_order_cancel := FALSE;
9116:
9117:
9118: ----------------------------------------------------------------
9119: -- Update the customer on the order lines if changed on the