404: IS
405: lv_id number;
406: BEGIN
407:
408: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
409: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
410: dbg_msg := (' Being Cancel Order for Order Number : '||p_order_number||' Order Version : '||p_order_version);
411: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
405: lv_id number;
406: BEGIN
407:
408: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
409: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
410: dbg_msg := (' Being Cancel Order for Order Number : '||p_order_number||' Order Version : '||p_order_version);
411: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
413: END IF;
407:
408: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
409: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
410: dbg_msg := (' Being Cancel Order for Order Number : '||p_order_number||' Order Version : '||p_order_version);
411: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
413: END IF;
414: END IF;
415: END IF;
408: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
409: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
410: dbg_msg := (' Being Cancel Order for Order Number : '||p_order_number||' Order Version : '||p_order_version);
411: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
412: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
413: END IF;
414: END IF;
415: END IF;
416:
429: WHERE external_order_number = (p_order_number) and
430: external_order_version IS NULL;
431: END IF;
432:
433: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
434: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
435: dbg_msg := ('Order Number is: '||p_order_number||' Order Version is : '||p_order_version||' Order Id is : '||lv_id);
436: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
430: external_order_version IS NULL;
431: END IF;
432:
433: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
434: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
435: dbg_msg := ('Order Number is: '||p_order_number||' Order Version is : '||p_order_version||' Order Id is : '||lv_id);
436: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
438: END IF;
432:
433: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
434: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
435: dbg_msg := ('Order Number is: '||p_order_number||' Order Version is : '||p_order_version||' Order Id is : '||lv_id);
436: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
438: END IF;
439: END IF;
440: END IF;
433: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
434: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
435: dbg_msg := ('Order Number is: '||p_order_number||' Order Version is : '||p_order_version||' Order Id is : '||lv_id);
436: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
437: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
438: END IF;
439: END IF;
440: END IF;
441:
512: --End of fix:5453523
513:
514: BEGIN
515:
516: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
517: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
518: dbg_msg := (' Being Overloaded Cancel Order for Order Id : '||P_SDP_ORDER_ID);
519: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
513:
514: BEGIN
515:
516: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
517: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
518: dbg_msg := (' Being Overloaded Cancel Order for Order Id : '||P_SDP_ORDER_ID);
519: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
521: END IF;
515:
516: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
517: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
518: dbg_msg := (' Being Overloaded Cancel Order for Order Id : '||P_SDP_ORDER_ID);
519: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
521: END IF;
522: END IF;
523: END IF;
516: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
517: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
518: dbg_msg := (' Being Overloaded Cancel Order for Order Id : '||P_SDP_ORDER_ID);
519: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
521: END IF;
522: END IF;
523: END IF;
524:
527: ELSE
528: lv_user := p_caller_name;
529: END IF;
530:
531: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
532: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
533: dbg_msg := ('Calling CANCELORDER');
534: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
528: lv_user := p_caller_name;
529: END IF;
530:
531: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
532: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
533: dbg_msg := ('Calling CANCELORDER');
534: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
536: END IF;
530:
531: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
532: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
533: dbg_msg := ('Calling CANCELORDER');
534: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
536: END IF;
537: END IF;
538: END IF;
531: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
532: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
533: dbg_msg := ('Calling CANCELORDER');
534: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
536: END IF;
537: END IF;
538: END IF;
539:
572: We should also clean upo the timer events.
573: Once the timer API is ready, put the following code:
574: **/
575:
576: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
577: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
578: dbg_msg := ('Completed Order Cancelation deregistering timers');
579: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
573: Once the timer API is ready, put the following code:
574: **/
575:
576: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
577: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
578: dbg_msg := ('Completed Order Cancelation deregistering timers');
579: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
581: END IF;
575:
576: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
577: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
578: dbg_msg := ('Completed Order Cancelation deregistering timers');
579: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
581: END IF;
582: END IF;
583: END IF;
576: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
577: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
578: dbg_msg := ('Completed Order Cancelation deregistering timers');
579: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
581: END IF;
582: END IF;
583: END IF;
584:
591: ' the order has been canceled. '||lv_timer_err;
592: END IF;
593:
594:
595: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
596: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
597: dbg_msg := ('Deregistering Events ');
598: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
592: END IF;
593:
594:
595: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
596: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
597: dbg_msg := ('Deregistering Events ');
598: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
600: END IF;
594:
595: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
596: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
597: dbg_msg := ('Deregistering Events ');
598: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
600: END IF;
601: END IF;
602: END IF;
595: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
596: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
597: dbg_msg := ('Deregistering Events ');
598: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
600: END IF;
601: END IF;
602: END IF;
603:
622: /**
623: ** Mark massages for the order in xnp_msgs table to 'CANCELED'
624: **/
625:
626: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
627: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
628: dbg_msg := ('Canceling Messages ');
629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
623: ** Mark massages for the order in xnp_msgs table to 'CANCELED'
624: **/
625:
626: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
627: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
628: dbg_msg := ('Canceling Messages ');
629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
631: END IF;
625:
626: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
627: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
628: dbg_msg := ('Canceling Messages ');
629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
631: END IF;
632: END IF;
633: END IF;
626: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
627: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
628: dbg_msg := ('Canceling Messages ');
629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
631: END IF;
632: END IF;
633: END IF;
634:
649: /* Date: 09-AUG-06. Author: DPUTHIYE Bug#:5453523
650: ** Change Description: For orders that originate from Order Management, the SFM-OM Interface flows
651: ** must be cancelled.
652: */
653: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
654: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
655: dbg_msg := ('Cancelling SFM-OM Interface flows ');
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
657: END IF;
650: ** Change Description: For orders that originate from Order Management, the SFM-OM Interface flows
651: ** must be cancelled.
652: */
653: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
654: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
655: dbg_msg := ('Cancelling SFM-OM Interface flows ');
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
657: END IF;
658: END IF;
652: */
653: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
654: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
655: dbg_msg := ('Cancelling SFM-OM Interface flows ');
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
657: END IF;
658: END IF;
659:
660: -- SFM-OM Interface flows have item_key = 'XDPOMINT' and item_key =
701: e_order_type_not_reg EXCEPTION;
702:
703: BEGIN
704:
705: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
706: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
707: dbg_msg := ('Procedure XDP_INTERFACES.CANCELORDER begins.');
708: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
702:
703: BEGIN
704:
705: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
706: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
707: dbg_msg := ('Procedure XDP_INTERFACES.CANCELORDER begins.');
708: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
710: END IF;
704:
705: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
706: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
707: dbg_msg := ('Procedure XDP_INTERFACES.CANCELORDER begins.');
708: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
710: END IF;
711: END IF;
712: END IF;
705: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
706: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
707: dbg_msg := ('Procedure XDP_INTERFACES.CANCELORDER begins.');
708: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
710: END IF;
711: END IF;
712: END IF;
713:
739:
740:
741: IF lv_state IN ('CANCELED','ABORTED') THEN
742:
743: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
744: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
745: dbg_msg := ('Order Status is : '||lv_state);
746: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
740:
741: IF lv_state IN ('CANCELED','ABORTED') THEN
742:
743: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
744: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
745: dbg_msg := ('Order Status is : '||lv_state);
746: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
748: END IF;
742:
743: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
744: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
745: dbg_msg := ('Order Status is : '||lv_state);
746: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
748: END IF;
749: END IF;
750: END IF;
743: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
744: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
745: dbg_msg := ('Order Status is : '||lv_state);
746: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
748: END IF;
749: END IF;
750: END IF;
751:
756: return;
757:
758: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
759:
760: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
761: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
762: dbg_msg := ('Order Status is : '||lv_state);
763: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
757:
758: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
759:
760: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
761: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
762: dbg_msg := ('Order Status is : '||lv_state);
763: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
765: END IF;
759:
760: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
761: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
762: dbg_msg := ('Order Status is : '||lv_state);
763: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
765: END IF;
766: END IF;
767: END IF;
760: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
761: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
762: dbg_msg := ('Order Status is : '||lv_state);
763: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
765: END IF;
766: END IF;
767: END IF;
768:
773: return;
774:
775: ELSIF lv_state = 'STANDBY' THEN
776:
777: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
778: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
779: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_STANDBY_ORDER ');
780: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
774:
775: ELSIF lv_state = 'STANDBY' THEN
776:
777: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
778: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
779: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_STANDBY_ORDER ');
780: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
782: END IF;
776:
777: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
778: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
779: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_STANDBY_ORDER ');
780: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
782: END IF;
783: END IF;
784: END IF;
777: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
778: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
779: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_STANDBY_ORDER ');
780: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
781: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
782: END IF;
783: END IF;
784: END IF;
785:
791: rollback to lv_order_tag;
792: return;
793: END IF;
794:
795: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
796: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
797: dbg_msg := ('Completed CANCEL_STANDBY_ORDER ');
798: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
792: return;
793: END IF;
794:
795: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
796: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
797: dbg_msg := ('Completed CANCEL_STANDBY_ORDER ');
798: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
800: END IF;
794:
795: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
796: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
797: dbg_msg := ('Completed CANCEL_STANDBY_ORDER ');
798: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
800: END IF;
801: END IF;
802: END IF;
795: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
796: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
797: dbg_msg := ('Completed CANCEL_STANDBY_ORDER ');
798: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
800: END IF;
801: END IF;
802: END IF;
803:
802: END IF;
803:
804: ELSIF lv_state = 'READY' THEN
805:
806: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
807: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
808: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_READY_ORDER ');
809: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
803:
804: ELSIF lv_state = 'READY' THEN
805:
806: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
807: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
808: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_READY_ORDER ');
809: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
811: END IF;
805:
806: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
807: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
808: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_READY_ORDER ');
809: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
811: END IF;
812: END IF;
813: END IF;
806: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
807: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
808: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_READY_ORDER ');
809: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
810: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
811: END IF;
812: END IF;
813: END IF;
814:
824: return;
825: END IF;
826:
827:
828: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
829: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
830: dbg_msg := ('Completed CANCEL_READY_ORDER ');
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
825: END IF;
826:
827:
828: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
829: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
830: dbg_msg := ('Completed CANCEL_READY_ORDER ');
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
833: END IF;
827:
828: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
829: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
830: dbg_msg := ('Completed CANCEL_READY_ORDER ');
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
833: END IF;
834: END IF;
835: END IF;
828: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
829: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
830: dbg_msg := ('Completed CANCEL_READY_ORDER ');
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
833: END IF;
834: END IF;
835: END IF;
836:
835: END IF;
836:
837: ELSIF lv_state IN ('ERROR','IN PROGRESS') THEN
838:
839: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
840: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
841: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_INPROGRESS_ORDER ');
842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
836:
837: ELSIF lv_state IN ('ERROR','IN PROGRESS') THEN
838:
839: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
840: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
841: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_INPROGRESS_ORDER ');
842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
844: END IF;
838:
839: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
840: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
841: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_INPROGRESS_ORDER ');
842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
844: END IF;
845: END IF;
846: END IF;
839: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
840: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
841: dbg_msg := ('Order Status is : '||lv_state||' Calling CANCEL_INPROGRESS_ORDER ');
842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
844: END IF;
845: END IF;
846: END IF;
847:
856: rollback to lv_order_tag;
857: return;
858: END IF;
859:
860: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
861: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
862: dbg_msg := ('Completed CANCEL_INPROGRESS_ORDER ');
863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
857: return;
858: END IF;
859:
860: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
861: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
862: dbg_msg := ('Completed CANCEL_INPROGRESS_ORDER ');
863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
865: END IF;
859:
860: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
861: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
862: dbg_msg := ('Completed CANCEL_INPROGRESS_ORDER ');
863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
865: END IF;
866: END IF;
867: END IF;
860: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
861: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
862: dbg_msg := ('Completed CANCEL_INPROGRESS_ORDER ');
863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
865: END IF;
866: END IF;
867: END IF;
868:
867: END IF;
868:
869: ELSE
870:
871: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
872: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
873: dbg_msg := ('Unknown Order Status ');
874: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
875: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
868:
869: ELSE
870:
871: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
872: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
873: dbg_msg := ('Unknown Order Status ');
874: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
875: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
876: END IF;
870:
871: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
872: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
873: dbg_msg := ('Unknown Order Status ');
874: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
875: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
876: END IF;
877: END IF;
878: END IF;
871: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
872: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER')) THEN
873: dbg_msg := ('Unknown Order Status ');
874: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
875: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCELORDER', dbg_msg);
876: END IF;
877: END IF;
878: END IF;
879:
921: l_status_code VARCHAR2(40);
922:
923: BEGIN
924:
925: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
926: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
927: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_STANDBY_ORDER begins. ');
928: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
922:
923: BEGIN
924:
925: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
926: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
927: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_STANDBY_ORDER begins. ');
928: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
930: END IF;
924:
925: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
926: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
927: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_STANDBY_ORDER begins. ');
928: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
930: END IF;
931: END IF;
932: END IF;
925: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
926: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
927: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_STANDBY_ORDER begins. ');
928: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
930: END IF;
931: END IF;
932: END IF;
933:
936: FROM xdp_order_headers
937: WHERE order_id = p_order_id
938: FOR UPDATE NOWAIT ;
939:
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
941: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
942: dbg_msg := ('Aquired Lock on XDP_ORDER_HEADERS Calling UPDATE_XDP_ORDER_STATUS ');
943: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
937: WHERE order_id = p_order_id
938: FOR UPDATE NOWAIT ;
939:
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
941: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
942: dbg_msg := ('Aquired Lock on XDP_ORDER_HEADERS Calling UPDATE_XDP_ORDER_STATUS ');
943: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
945: END IF;
939:
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
941: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
942: dbg_msg := ('Aquired Lock on XDP_ORDER_HEADERS Calling UPDATE_XDP_ORDER_STATUS ');
943: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
945: END IF;
946: END IF;
947: END IF;
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
941: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
942: dbg_msg := ('Aquired Lock on XDP_ORDER_HEADERS Calling UPDATE_XDP_ORDER_STATUS ');
943: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
945: END IF;
946: END IF;
947: END IF;
948:
959: return;
960: END IF;
961:
962:
963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
964: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
965: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
966: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
960: END IF;
961:
962:
963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
964: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
965: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
966: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
968: END IF;
962:
963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
964: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
965: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
966: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
968: END IF;
969: END IF;
970: END IF;
963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
964: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
965: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
966: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
968: END IF;
969: END IF;
970: END IF;
971:
984: END IF;
985:
986:
987:
988: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
989: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
990: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
991: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
985:
986:
987:
988: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
989: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
990: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
991: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
993: END IF;
987:
988: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
989: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
990: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
991: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
993: END IF;
994: END IF;
995: END IF;
988: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
989: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
990: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
991: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
993: END IF;
994: END IF;
995: END IF;
996:
1009: return;
1010: END IF;
1011:
1012:
1013: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1014: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
1015: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
1010: END IF;
1011:
1012:
1013: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1014: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
1015: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
1018: END IF;
1012:
1013: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1014: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
1015: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
1018: END IF;
1019: END IF;
1020: END IF;
1013: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1014: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
1015: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1016: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1017: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
1018: END IF;
1019: END IF;
1020: END IF;
1021:
1066: --End of Fix: Bug#:5453523
1067:
1068: BEGIN
1069:
1070: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1071: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1072: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_ORDER begins.');
1073: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1067:
1068: BEGIN
1069:
1070: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1071: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1072: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_ORDER begins.');
1073: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1075: END IF;
1069:
1070: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1071: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1072: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_ORDER begins.');
1073: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1075: END IF;
1076: END IF;
1077: END IF;
1070: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1071: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1072: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_ORDER begins.');
1073: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1075: END IF;
1076: END IF;
1077: END IF;
1078:
1086: x_error => lv_error);
1087:
1088: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
1089:
1090: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1091: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1092: dbg_msg := ('Aquired Lock on XDP_ORDER_PROC_QUEUE Calling UPDATE_XDP_ORDER_STATUS ');
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1087:
1088: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
1089:
1090: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1091: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1092: dbg_msg := ('Aquired Lock on XDP_ORDER_PROC_QUEUE Calling UPDATE_XDP_ORDER_STATUS ');
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1095: END IF;
1089:
1090: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1091: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1092: dbg_msg := ('Aquired Lock on XDP_ORDER_PROC_QUEUE Calling UPDATE_XDP_ORDER_STATUS ');
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1095: END IF;
1096: END IF;
1097: END IF;
1090: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1091: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1092: dbg_msg := ('Aquired Lock on XDP_ORDER_PROC_QUEUE Calling UPDATE_XDP_ORDER_STATUS ');
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1095: END IF;
1096: END IF;
1097: END IF;
1098:
1107: return;
1108: END IF;
1109:
1110:
1111: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1112: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1113: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
1114: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1108: END IF;
1109:
1110:
1111: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1112: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1113: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
1114: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1116: END IF;
1110:
1111: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1112: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1113: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
1114: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1116: END IF;
1117: END IF;
1118: END IF;
1111: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1112: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1113: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
1114: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1116: END IF;
1117: END IF;
1118: END IF;
1119:
1129: return;
1130: END IF;
1131:
1132:
1133: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1134: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1135: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
1136: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1130: END IF;
1131:
1132:
1133: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1134: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1135: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
1136: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1138: END IF;
1132:
1133: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1134: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1135: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
1136: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1138: END IF;
1139: END IF;
1140: END IF;
1133: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1134: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1135: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
1136: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1138: END IF;
1139: END IF;
1140: END IF;
1141:
1155: ** Change Description: Cancel also the %MAIN% workflow process (XDPPROV) for the READY ORDER
1156: ** The wf_item_type and wf_item_key are available from the order header.
1157: ** A no_data_found is not expected here.
1158: */
1159: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1160: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1161: dbg_msg := ('Cancelling the MAIN order workflow process');
1162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1163: END IF;
1156: ** The wf_item_type and wf_item_key are available from the order header.
1157: ** A no_data_found is not expected here.
1158: */
1159: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1160: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1161: dbg_msg := ('Cancelling the MAIN order workflow process');
1162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1163: END IF;
1164: END IF;
1158: */
1159: IF((FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1160: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1161: dbg_msg := ('Cancelling the MAIN order workflow process');
1162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1163: END IF;
1164: END IF;
1165:
1166: SELECT wf_item_type, wf_item_key
1179: END;
1180: END IF;
1181: --End of Fix: Bug#:5453523
1182:
1183: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1184: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1185: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1186: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1180: END IF;
1181: --End of Fix: Bug#:5453523
1182:
1183: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1184: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1185: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1186: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1188: END IF;
1182:
1183: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1184: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1185: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1186: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1188: END IF;
1189: END IF;
1190: END IF;
1183: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1184: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1185: dbg_msg := ('Completed UPDATE_XDP_WI_INSTANCE_STATUS ');
1186: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1188: END IF;
1189: END IF;
1190: END IF;
1191:
1192: return;
1193:
1194: ELSIF lv_lock_status = G_LOCK_MSG_FAIL THEN
1195:
1196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1198: dbg_msg := ('Colud not Aquire Lock Calling CANCEL_INPROGRESS_ORDER ');
1199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1193:
1194: ELSIF lv_lock_status = G_LOCK_MSG_FAIL THEN
1195:
1196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1198: dbg_msg := ('Colud not Aquire Lock Calling CANCEL_INPROGRESS_ORDER ');
1199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1201: END IF;
1195:
1196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1198: dbg_msg := ('Colud not Aquire Lock Calling CANCEL_INPROGRESS_ORDER ');
1199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1201: END IF;
1202: END IF;
1203: END IF;
1196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1198: dbg_msg := ('Colud not Aquire Lock Calling CANCEL_INPROGRESS_ORDER ');
1199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1201: END IF;
1202: END IF;
1203: END IF;
1204:
1289: ORDER By is_package_flag;
1290:
1291: BEGIN
1292:
1293: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1294: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1295: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_INPROGRESS_ORDER begins.');
1296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1290:
1291: BEGIN
1292:
1293: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1294: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1295: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_INPROGRESS_ORDER begins.');
1296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1298: END IF;
1292:
1293: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1294: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1295: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_INPROGRESS_ORDER begins.');
1296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1298: END IF;
1299: END IF;
1300: END IF;
1293: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1294: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1295: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_INPROGRESS_ORDER begins.');
1296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1298: END IF;
1299: END IF;
1300: END IF;
1301:
1319:
1320: -- Order has already been canceled
1321: IF lv_state IN ('CANCELED','ABORTED') THEN
1322:
1323: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1324: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1325: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1326: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1320: -- Order has already been canceled
1321: IF lv_state IN ('CANCELED','ABORTED') THEN
1322:
1323: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1324: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1325: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1326: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1328: END IF;
1322:
1323: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1324: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1325: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1326: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1328: END IF;
1329: END IF;
1330: END IF;
1323: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1324: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1325: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1326: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1328: END IF;
1329: END IF;
1330: END IF;
1331: raise e_xdp_order_state_cancel ;
1333: -- Order has already been completed
1334:
1335: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1336:
1337: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1338: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1339: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1340: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1334:
1335: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1336:
1337: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1338: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1339: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1340: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1342: END IF;
1336:
1337: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1338: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1339: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1340: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1342: END IF;
1343: END IF;
1344: END IF;
1337: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1338: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1339: dbg_msg := ('Order Status is : '||lv_state ||' Can not cancel Order ');
1340: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1342: END IF;
1343: END IF;
1344: END IF;
1345: raise e_xdp_order_state_process ;
1347: -- Order has already been started
1348: ELSIF lv_state = 'IN PROGRESS' THEN
1349: lv_abort_wf := TRUE;
1350:
1351: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1352: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1353: dbg_msg := ('Order Status is : '||lv_state );
1354: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1348: ELSIF lv_state = 'IN PROGRESS' THEN
1349: lv_abort_wf := TRUE;
1350:
1351: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1352: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1353: dbg_msg := ('Order Status is : '||lv_state );
1354: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1356: END IF;
1350:
1351: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1352: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1353: dbg_msg := ('Order Status is : '||lv_state );
1354: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1356: END IF;
1357: END IF;
1358: END IF;
1351: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1352: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1353: dbg_msg := ('Order Status is : '||lv_state );
1354: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1355: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1356: END IF;
1357: END IF;
1358: END IF;
1359:
1369: -- activities within this order to be CANCELED
1370:
1371: IF ARE_ALL_FAS_READY_FOR_CANCEL(p_sdp_order_id ) THEN
1372:
1373: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1375: dbg_msg := ('FAs Are ready for Cancel Starting with FA ');
1376: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1370:
1371: IF ARE_ALL_FAS_READY_FOR_CANCEL(p_sdp_order_id ) THEN
1372:
1373: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1375: dbg_msg := ('FAs Are ready for Cancel Starting with FA ');
1376: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1378: END IF;
1372:
1373: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1375: dbg_msg := ('FAs Are ready for Cancel Starting with FA ');
1376: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1378: END IF;
1379: END IF;
1380: END IF;
1373: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1375: dbg_msg := ('FAs Are ready for Cancel Starting with FA ');
1376: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1378: END IF;
1379: END IF;
1380: END IF;
1381:
1389: FOR UPDATE OF fr.status_code NOWAIT;
1390:
1391: IF lv_state IN ('CANCELED','ABORTED') THEN
1392:
1393: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1394: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1395: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1396: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1390:
1391: IF lv_state IN ('CANCELED','ABORTED') THEN
1392:
1393: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1394: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1395: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1396: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1398: END IF;
1392:
1393: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1394: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1395: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1396: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1398: END IF;
1399: END IF;
1400: END IF;
1393: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1394: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1395: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1396: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1398: END IF;
1399: END IF;
1400: END IF;
1401: NULL;
1401: NULL;
1402:
1403: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1404:
1405: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1406: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1407: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1408: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1402:
1403: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1404:
1405: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1406: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1407: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1408: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1410: END IF;
1404:
1405: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1406: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1407: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1408: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1410: END IF;
1411: END IF;
1412: END IF;
1405: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1406: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1407: dbg_msg := ('Status Of FA : '||c_fa_rec.fa_instance_id||' is '||lv_state);
1408: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1410: END IF;
1411: END IF;
1412: END IF;
1413: NULL;
1413: NULL;
1414: ELSIF lv_state = 'IN PROGRESS' THEN
1415: l_fa_instance_id := c_fa_rec.fa_instance_id ;
1416:
1417: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1418: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1419: dbg_msg := ('FA : '||c_fa_rec.fa_instance_id||' is INPROGRESS Can not cancel Order');
1420: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1414: ELSIF lv_state = 'IN PROGRESS' THEN
1415: l_fa_instance_id := c_fa_rec.fa_instance_id ;
1416:
1417: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1418: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1419: dbg_msg := ('FA : '||c_fa_rec.fa_instance_id||' is INPROGRESS Can not cancel Order');
1420: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1422: END IF;
1416:
1417: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1418: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1419: dbg_msg := ('FA : '||c_fa_rec.fa_instance_id||' is INPROGRESS Can not cancel Order');
1420: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1422: END IF;
1423: END IF;
1424: END IF;
1417: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1418: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1419: dbg_msg := ('FA : '||c_fa_rec.fa_instance_id||' is INPROGRESS Can not cancel Order');
1420: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1422: END IF;
1423: END IF;
1424: END IF;
1425: raise e_xdp_fa_state_inprogress;
1424: END IF;
1425: raise e_xdp_fa_state_inprogress;
1426: -- raise can not cancel order fa in progress try again
1427: ELSE
1428: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1429: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1430: dbg_msg := ('Calling CANCEL_FA for FA : '||c_fa_rec.fa_instance_id);
1431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1425: raise e_xdp_fa_state_inprogress;
1426: -- raise can not cancel order fa in progress try again
1427: ELSE
1428: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1429: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1430: dbg_msg := ('Calling CANCEL_FA for FA : '||c_fa_rec.fa_instance_id);
1431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1433: END IF;
1427: ELSE
1428: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1429: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1430: dbg_msg := ('Calling CANCEL_FA for FA : '||c_fa_rec.fa_instance_id);
1431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1433: END IF;
1434: END IF;
1435: END IF;
1428: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1429: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1430: dbg_msg := ('Calling CANCEL_FA for FA : '||c_fa_rec.fa_instance_id);
1431: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1433: END IF;
1434: END IF;
1435: END IF;
1436:
1460: FOR UPDATE OF fw.status_code NOWAIT;
1461:
1462: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1463:
1464: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1465: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1466: dbg_msg := ('Status Of WI : '||c_wi_rec.workitem_instance_id||' is '||lv_state);
1467: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1461:
1462: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1463:
1464: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1465: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1466: dbg_msg := ('Status Of WI : '||c_wi_rec.workitem_instance_id||' is '||lv_state);
1467: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1469: END IF;
1463:
1464: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1465: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1466: dbg_msg := ('Status Of WI : '||c_wi_rec.workitem_instance_id||' is '||lv_state);
1467: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1469: END IF;
1470: END IF;
1471: END IF;
1464: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1465: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1466: dbg_msg := ('Status Of WI : '||c_wi_rec.workitem_instance_id||' is '||lv_state);
1467: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1468: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1469: END IF;
1470: END IF;
1471: END IF;
1472: null;
1471: END IF;
1472: null;
1473: ELSE
1474:
1475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1477: dbg_msg := ('Calling CANCEL_WORKITEM for WI : ' ||c_wi_rec.workitem_instance_id);
1478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1472: null;
1473: ELSE
1474:
1475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1477: dbg_msg := ('Calling CANCEL_WORKITEM for WI : ' ||c_wi_rec.workitem_instance_id);
1478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1480: END IF;
1474:
1475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1477: dbg_msg := ('Calling CANCEL_WORKITEM for WI : ' ||c_wi_rec.workitem_instance_id);
1478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1480: END IF;
1481: END IF;
1482: END IF;
1475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1477: dbg_msg := ('Calling CANCEL_WORKITEM for WI : ' ||c_wi_rec.workitem_instance_id);
1478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1480: END IF;
1481: END IF;
1482: END IF;
1483:
1508: WHERE line_item_id = c_line_rec.line_item_id
1509: FOR UPDATE OF STATUS_CODE NOWAIT;
1510:
1511: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1512: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1513: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1514: dbg_msg := ('Status Of Line : '||c_line_rec.line_item_id||' is '||lv_state);
1515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1509: FOR UPDATE OF STATUS_CODE NOWAIT;
1510:
1511: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1512: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1513: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1514: dbg_msg := ('Status Of Line : '||c_line_rec.line_item_id||' is '||lv_state);
1515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1517: END IF;
1511: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1512: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1513: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1514: dbg_msg := ('Status Of Line : '||c_line_rec.line_item_id||' is '||lv_state);
1515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1517: END IF;
1518: END IF;
1519: END IF;
1512: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1513: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1514: dbg_msg := ('Status Of Line : '||c_line_rec.line_item_id||' is '||lv_state);
1515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1517: END IF;
1518: END IF;
1519: END IF;
1520: NULL ;
1518: END IF;
1519: END IF;
1520: NULL ;
1521: ELSE
1522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1523: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1524: dbg_msg := ('Calling UPDATE_XDP_ORDER_LINE_STATUS for Line : '||c_line_rec.line_item_id);
1525: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1519: END IF;
1520: NULL ;
1521: ELSE
1522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1523: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1524: dbg_msg := ('Calling UPDATE_XDP_ORDER_LINE_STATUS for Line : '||c_line_rec.line_item_id);
1525: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1527: END IF;
1521: ELSE
1522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1523: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1524: dbg_msg := ('Calling UPDATE_XDP_ORDER_LINE_STATUS for Line : '||c_line_rec.line_item_id);
1525: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1527: END IF;
1528: END IF;
1529: END IF;
1522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1523: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1524: dbg_msg := ('Calling UPDATE_XDP_ORDER_LINE_STATUS for Line : '||c_line_rec.line_item_id);
1525: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1527: END IF;
1528: END IF;
1529: END IF;
1530:
1552: raise e_xdp_order_state_cancel ;
1553: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1554: raise e_xdp_order_state_process ;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1553: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1554: raise e_xdp_order_state_process ;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1561: END IF;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1561: END IF;
1562: END IF;
1563: END IF;
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1561: END IF;
1562: END IF;
1563: END IF;
1564:
1573: IF return_code <> 0 THEN
1574: return;
1575: END IF;
1576:
1577: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1578: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1579: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling ABORT_ORDER_WORKFLOWS' );
1580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1574: return;
1575: END IF;
1576:
1577: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1578: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1579: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling ABORT_ORDER_WORKFLOWS' );
1580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1582: END IF;
1576:
1577: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1578: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1579: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling ABORT_ORDER_WORKFLOWS' );
1580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1582: END IF;
1583: END IF;
1584: END IF;
1577: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1578: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1579: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling ABORT_ORDER_WORKFLOWS' );
1580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1582: END IF;
1583: END IF;
1584: END IF;
1585:
3474: e_xdp_fa_state_inprogress EXCEPTION ;
3475:
3476: BEGIN
3477:
3478: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3479: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3480: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_FA begins for FA instance : ' ||p_fa_instance_id);
3481: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3475:
3476: BEGIN
3477:
3478: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3479: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3480: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_FA begins for FA instance : ' ||p_fa_instance_id);
3481: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3483: END IF;
3477:
3478: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3479: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3480: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_FA begins for FA instance : ' ||p_fa_instance_id);
3481: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3483: END IF;
3484: END IF;
3485: END IF;
3478: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3479: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3480: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_FA begins for FA instance : ' ||p_fa_instance_id);
3481: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3483: END IF;
3484: END IF;
3485: END IF;
3486:
3495: AND wf_item_type = p_fa_wf_item_type
3496: AND wf_item_key = p_fa_wf_item_key
3497: FOR UPDATE NOWAIT;
3498:
3499: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3500: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3501: dbg_msg := ('Aquired Lock Deleting From XDP_ADAPTER_JOB_QUEUE ');
3502: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3503: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3496: AND wf_item_key = p_fa_wf_item_key
3497: FOR UPDATE NOWAIT;
3498:
3499: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3500: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3501: dbg_msg := ('Aquired Lock Deleting From XDP_ADAPTER_JOB_QUEUE ');
3502: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3503: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3504: END IF;
3498:
3499: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3500: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3501: dbg_msg := ('Aquired Lock Deleting From XDP_ADAPTER_JOB_QUEUE ');
3502: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3503: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3504: END IF;
3505: END IF;
3506: END IF;
3499: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3500: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3501: dbg_msg := ('Aquired Lock Deleting From XDP_ADAPTER_JOB_QUEUE ');
3502: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3503: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3504: END IF;
3505: END IF;
3506: END IF;
3507:
3509: WHERE fa_instance_id = p_fa_instance_id
3510: AND wf_item_type = p_fa_wf_item_type
3511: AND wf_item_key = p_fa_wf_item_key;
3512:
3513: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3514: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3515: dbg_msg := ('Deleted From XDP_ADAPTER_JOB_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3516: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3510: AND wf_item_type = p_fa_wf_item_type
3511: AND wf_item_key = p_fa_wf_item_key;
3512:
3513: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3514: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3515: dbg_msg := ('Deleted From XDP_ADAPTER_JOB_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3516: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3518: END IF;
3512:
3513: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3514: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3515: dbg_msg := ('Deleted From XDP_ADAPTER_JOB_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3516: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3518: END IF;
3519: END IF;
3520: END IF;
3513: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3514: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3515: dbg_msg := ('Deleted From XDP_ADAPTER_JOB_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3516: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3518: END IF;
3519: END IF;
3520: END IF;
3521:
3548: x_error => lv_error);
3549:
3550: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3551:
3552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3553: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3554: dbg_msg := ('Aquired Lock on XDP_WF_CHANNEL_Q Calling UPDATE_XDP_FA_INSTANCE_STATUS');
3555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3549:
3550: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3551:
3552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3553: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3554: dbg_msg := ('Aquired Lock on XDP_WF_CHANNEL_Q Calling UPDATE_XDP_FA_INSTANCE_STATUS');
3555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3557: END IF;
3551:
3552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3553: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3554: dbg_msg := ('Aquired Lock on XDP_WF_CHANNEL_Q Calling UPDATE_XDP_FA_INSTANCE_STATUS');
3555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3557: END IF;
3558: END IF;
3559: END IF;
3552: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3553: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3554: dbg_msg := ('Aquired Lock on XDP_WF_CHANNEL_Q Calling UPDATE_XDP_FA_INSTANCE_STATUS');
3555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3556: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3557: END IF;
3558: END IF;
3559: END IF;
3560:
3571:
3572:
3573: ELSE
3574:
3575: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3576: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3577: dbg_msg := ('Colud Not Aquire Lock on XDP_WF_CHANNEL_Q FA is IN PROGRESS');
3578: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3572:
3573: ELSE
3574:
3575: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3576: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3577: dbg_msg := ('Colud Not Aquire Lock on XDP_WF_CHANNEL_Q FA is IN PROGRESS');
3578: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3580: END IF;
3574:
3575: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3576: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3577: dbg_msg := ('Colud Not Aquire Lock on XDP_WF_CHANNEL_Q FA is IN PROGRESS');
3578: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3580: END IF;
3581: END IF;
3582: END IF;
3575: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3576: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3577: dbg_msg := ('Colud Not Aquire Lock on XDP_WF_CHANNEL_Q FA is IN PROGRESS');
3578: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3579: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3580: END IF;
3581: END IF;
3582: END IF;
3583:
3594: x_error => lv_error);
3595:
3596: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3597:
3598: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3599: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3600: dbg_msg := ('Aquired Lock on XDP_FA_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3601: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3602: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3595:
3596: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3597:
3598: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3599: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3600: dbg_msg := ('Aquired Lock on XDP_FA_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3601: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3602: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3603: END IF;
3597:
3598: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3599: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3600: dbg_msg := ('Aquired Lock on XDP_FA_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3601: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3602: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3603: END IF;
3604: END IF;
3605: END IF;
3598: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3599: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3600: dbg_msg := ('Aquired Lock on XDP_FA_QUEUE Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3601: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3602: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3603: END IF;
3604: END IF;
3605: END IF;
3606:
3615: return ;
3616: END IF ;
3617:
3618:
3619: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3620: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3621: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3616: END IF ;
3617:
3618:
3619: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3620: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3621: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3624: END IF;
3618:
3619: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3620: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3621: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3624: END IF;
3625: END IF;
3626: END IF;
3619: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3620: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3621: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3624: END IF;
3625: END IF;
3626: END IF;
3627:
3626: END IF;
3627:
3628:
3629: ELSE
3630: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3631: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3632: dbg_msg := ('Colud Not Aquire Lock on XDP_FA_QUEUE FA is IN PROGRESS');
3633: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3634: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3627:
3628:
3629: ELSE
3630: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3631: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3632: dbg_msg := ('Colud Not Aquire Lock on XDP_FA_QUEUE FA is IN PROGRESS');
3633: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3634: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3635: END IF;
3629: ELSE
3630: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3631: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3632: dbg_msg := ('Colud Not Aquire Lock on XDP_FA_QUEUE FA is IN PROGRESS');
3633: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3634: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3635: END IF;
3636: END IF;
3637: END IF;
3630: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3631: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3632: dbg_msg := ('Colud Not Aquire Lock on XDP_FA_QUEUE FA is IN PROGRESS');
3633: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3634: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3635: END IF;
3636: END IF;
3637: END IF;
3638:
3641: END IF;
3642:
3643: ELSIF p_status IN ('ERROR','STANDBY') THEN
3644:
3645: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3646: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3647: dbg_msg := ('FA Status is '||p_status||' Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3642:
3643: ELSIF p_status IN ('ERROR','STANDBY') THEN
3644:
3645: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3646: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3647: dbg_msg := ('FA Status is '||p_status||' Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3650: END IF;
3644:
3645: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3646: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3647: dbg_msg := ('FA Status is '||p_status||' Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3650: END IF;
3651: END IF;
3652: END IF;
3645: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3646: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3647: dbg_msg := ('FA Status is '||p_status||' Calling UPDATE_XDP_FA_INSTANCE_STATUS ');
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3650: END IF;
3651: END IF;
3652: END IF;
3653:
3662: return ;
3663: END IF ;
3664:
3665:
3666: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3667: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3668: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3669: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3663: END IF ;
3664:
3665:
3666: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3667: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3668: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3669: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3671: END IF;
3665:
3666: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3667: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3668: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3669: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3671: END IF;
3672: END IF;
3673: END IF;
3666: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3667: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA')) THEN
3668: dbg_msg := ('Completed UPDATE_XDP_FA_INSTANCE_STATUS ');
3669: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_FA', dbg_msg);
3671: END IF;
3672: END IF;
3673: END IF;
3674:
3719: e_xdp_wi_state_inprogress EXCEPTION;
3720:
3721: BEGIN
3722:
3723: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3724: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3725: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_WORKITEM begins for WI Instance : '||p_wi_instance_id);
3726: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3727: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3720:
3721: BEGIN
3722:
3723: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3724: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3725: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_WORKITEM begins for WI Instance : '||p_wi_instance_id);
3726: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3727: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3728: END IF;
3722:
3723: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3724: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3725: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_WORKITEM begins for WI Instance : '||p_wi_instance_id);
3726: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3727: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3728: END IF;
3729: END IF;
3730: END IF;
3723: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3724: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3725: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_WORKITEM begins for WI Instance : '||p_wi_instance_id);
3726: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3727: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3728: END IF;
3729: END IF;
3730: END IF;
3731: return_code := 0;
3730: END IF;
3731: return_code := 0;
3732: IF p_status IN ('STANDBY','ERROR','IN PROGRESS') THEN
3733:
3734: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3735: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3736: dbg_msg := ('Workitem Status is :' ||p_status||' Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3737: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3731: return_code := 0;
3732: IF p_status IN ('STANDBY','ERROR','IN PROGRESS') THEN
3733:
3734: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3735: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3736: dbg_msg := ('Workitem Status is :' ||p_status||' Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3737: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3739: END IF;
3733:
3734: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3735: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3736: dbg_msg := ('Workitem Status is :' ||p_status||' Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3737: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3739: END IF;
3740: END IF;
3741: END IF;
3734: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3735: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3736: dbg_msg := ('Workitem Status is :' ||p_status||' Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3737: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3739: END IF;
3740: END IF;
3741: END IF;
3742:
3753: END IF ;
3754:
3755: ELSIF p_status = 'READY' THEN
3756:
3757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3759: dbg_msg := ('Workitem Status is :' ||p_status||' Removing From XDP_WORKITEM_QUEUE ');
3760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3754:
3755: ELSIF p_status = 'READY' THEN
3756:
3757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3759: dbg_msg := ('Workitem Status is :' ||p_status||' Removing From XDP_WORKITEM_QUEUE ');
3760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3762: END IF;
3756:
3757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3759: dbg_msg := ('Workitem Status is :' ||p_status||' Removing From XDP_WORKITEM_QUEUE ');
3760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3762: END IF;
3763: END IF;
3764: END IF;
3757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3759: dbg_msg := ('Workitem Status is :' ||p_status||' Removing From XDP_WORKITEM_QUEUE ');
3760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3762: END IF;
3763: END IF;
3764: END IF;
3765:
3772:
3773:
3774: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3775:
3776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3778: dbg_msg := ('Workitem Removed From XDP_WORKITEM_QUEUE Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3773:
3774: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
3775:
3776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3778: dbg_msg := ('Workitem Removed From XDP_WORKITEM_QUEUE Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3781: END IF;
3775:
3776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3778: dbg_msg := ('Workitem Removed From XDP_WORKITEM_QUEUE Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3781: END IF;
3782: END IF;
3783: END IF;
3776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM')) THEN
3778: dbg_msg := ('Workitem Removed From XDP_WORKITEM_QUEUE Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
3779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_WORKITEM', dbg_msg);
3781: END IF;
3782: END IF;
3783: END IF;
3784:
3829: error_description OUT NOCOPY VARCHAR2) IS
3830:
3831: BEGIN
3832:
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3830:
3831: BEGIN
3832:
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3832:
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3839: END IF;
3840: END IF;
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3839: END IF;
3840: END IF;
3841:
3875: error_description OUT NOCOPY VARCHAR2) IS
3876:
3877: BEGIN
3878:
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3876:
3877: BEGIN
3878:
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3878:
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3885: END IF;
3886: END IF;
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3885: END IF;
3886: END IF;
3887:
3918: error_description OUT NOCOPY VARCHAR2) IS
3919:
3920: BEGIN
3921:
3922: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3923: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS')) THEN
3924: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS begins.');
3925: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS', dbg_msg);
3919:
3920: BEGIN
3921:
3922: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3923: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS')) THEN
3924: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS begins.');
3925: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS', dbg_msg);
3927: END IF;
3921:
3922: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3923: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS')) THEN
3924: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS begins.');
3925: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS', dbg_msg);
3927: END IF;
3928: END IF;
3929: END IF;
3922: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3923: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS')) THEN
3924: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS begins.');
3925: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_WI_INSTANCE_STATUS', dbg_msg);
3927: END IF;
3928: END IF;
3929: END IF;
3930: UPDATE xdp_fulfill_worklist
3959: error_description OUT NOCOPY VARCHAR2) IS
3960:
3961: BEGIN
3962:
3963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3964: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS')) THEN
3965: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS begins.');
3966: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS', dbg_msg);
3960:
3961: BEGIN
3962:
3963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3964: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS')) THEN
3965: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS begins.');
3966: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS', dbg_msg);
3968: END IF;
3962:
3963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3964: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS')) THEN
3965: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS begins.');
3966: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS', dbg_msg);
3968: END IF;
3969: END IF;
3970: END IF;
3963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3964: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS')) THEN
3965: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS begins.');
3966: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_FA_INSTANCE_STATUS', dbg_msg);
3968: END IF;
3969: END IF;
3970: END IF;
3971: UPDATE xdp_fa_runtime_list
3995: x_error_message OUT NOCOPY VARCHAR2) is
3996:
3997: BEGIN
3998:
3999: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4000: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS')) THEN
4001: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_MSGS begins.');
4002: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS', dbg_msg);
3996:
3997: BEGIN
3998:
3999: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4000: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS')) THEN
4001: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_MSGS begins.');
4002: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS', dbg_msg);
4004: END IF;
3998:
3999: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4000: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS')) THEN
4001: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_MSGS begins.');
4002: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS', dbg_msg);
4004: END IF;
4005: END IF;
4006: END IF;
3999: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4000: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS')) THEN
4001: dbg_msg := ('Procedure XDP_INTERFACES.CANCEL_READY_MSGS begins.');
4002: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_MSGS', dbg_msg);
4004: END IF;
4005: END IF;
4006: END IF;
4007: