[Home] [Help]
1773: IF NOT OE_GLOBALS.Equal(p_x_header_rec.cancelled_flag,p_old_header_rec.cancelled_flag)
1774: THEN
1775: IF p_x_header_rec.cancelled_flag = 'Y' THEN
1776:
1777: Oe_Sales_Can_Util.Check_Constraints(p_x_header_rec,
1778: p_old_header_rec,
1779: l_return_status);
1780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7996: l_attr_attach_change boolean := FALSE; --6896311
7997: BEGIN
7998: oe_debug_pub.add('Entering OR_HEADER_UTIL.Pre_Write_Process',1);
7999:
8000: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8001: -- Setting the global for IR ISO Tracking bug 7667702
8002:
8003: /* Start AuditTrail */
8004:
8088: -- G_UPDATE_REQUISITION to call the Purchasing API so as to trigger the
8089: -- requisition header cancellation. For this, we need to log the delayed
8090: -- requests from Pre_Write_Process procedure of OE_Header_Util package.
8091: -- In this procedure, we need to raise this delayed request only after
8092: -- successful execution of OE_Sales_Can_Util.Perform_Cancel_Order API,
8093: -- which is responsible for canceling both order header and all order
8094: -- lines. This code will be triggered in the event of Full Order
8095: -- Cancellation only.
8096: --
8165: -- OM Development > OM GM > 12.1.1 > TDD > IR_ISO_CMS_TDD.doc
8166: --
8167:
8168: IF (p_x_header_rec.order_source_id = 10) THEN
8169: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := TRUE;
8170: IF l_debug_level > 0 THEN
8171: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to TRUE',5);
8172: END IF;
8173: END IF;
8173: END IF;
8174: -- Setting this global to TRUE confirming it to be
8175: -- Order header level full cancellation
8176:
8177: OE_SALES_CAN_UTIL.Perform_cancel_order(p_x_header_rec,
8178: p_old_header_rec,
8179: l_return_status);
8180:
8181: IF (p_x_header_rec.order_source_id = 10) THEN
8178: p_old_header_rec,
8179: l_return_status);
8180:
8181: IF (p_x_header_rec.order_source_id = 10) THEN
8182: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8183: IF l_debug_level > 0 THEN
8184: oe_debug_pub.add(' Setting global Header Cancel for IR ISO to FALSE',5);
8185: END IF;
8186: END IF;
8670: EXCEPTION
8671: -- included to fix bug 1589196 Begin
8672: WHEN FND_API.G_EXC_ERROR THEN
8673:
8674: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8675: -- Adding this for IR ISO Tracking bug 7667702
8676:
8677: RAISE FND_API.G_EXC_ERROR;
8678: -- included to fix bug 1589196 End
8678: -- included to fix bug 1589196 End
8679:
8680: WHEN OTHERS THEN
8681:
8682: OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL := FALSE;
8683: -- Adding this for IR ISO Tracking bug 7667702
8684:
8685: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8686: THEN
8862:
8863: -- Close the order if its a complet cancellation at the line and
8864: -- is indeed a cancellation (by constraints)
8865: IF p_x_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
8866: IF oe_sales_can_util.g_order_cancel AND
8867: p_x_header_rec.cancelled_flag = 'Y' AND (p_old_header_rec.cancelled_flag <> 'Y') THEN --7142748
8868: -- Bug 1895144: set recursion mode so that close does
8869: -- not execute any delayed requests
8870: BEGIN
8917: RAISE;
8918: END;
8919: END IF;
8920: END IF;
8921: oe_sales_can_util.g_order_cancel := FALSE;
8922:
8923:
8924: ----------------------------------------------------------------
8925: -- Update the customer on the order lines if changed on the