[Home] [Help]
326: l_token CTO_MSG_PUB.token_tbl;
327: l_config_item_name varchar2(1000) ;
328: BEGIN
329: IF PG_DEBUG <> 0 THEN
330: oe_debug_pub.add('create_config_item_wf: ' || 'Function Mode: ' || p_funcmode, 1);
331: oe_debug_pub.add('create_config_item_wf: ' || 'Item Key : ' || p_itemkey , 1);
332: oe_debug_pub.add('create_config_item_wf: ' || 'Item Type : ' || p_itemtype , 1);
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
327: l_config_item_name varchar2(1000) ;
328: BEGIN
329: IF PG_DEBUG <> 0 THEN
330: oe_debug_pub.add('create_config_item_wf: ' || 'Function Mode: ' || p_funcmode, 1);
331: oe_debug_pub.add('create_config_item_wf: ' || 'Item Key : ' || p_itemkey , 1);
332: oe_debug_pub.add('create_config_item_wf: ' || 'Item Type : ' || p_itemtype , 1);
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
335: oe_debug_pub.add('create_config_item_wf: ' || 'CTO Activity: Create Config Item', 1);
328: BEGIN
329: IF PG_DEBUG <> 0 THEN
330: oe_debug_pub.add('create_config_item_wf: ' || 'Function Mode: ' || p_funcmode, 1);
331: oe_debug_pub.add('create_config_item_wf: ' || 'Item Key : ' || p_itemkey , 1);
332: oe_debug_pub.add('create_config_item_wf: ' || 'Item Type : ' || p_itemtype , 1);
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
335: oe_debug_pub.add('create_config_item_wf: ' || 'CTO Activity: Create Config Item', 1);
336:
329: IF PG_DEBUG <> 0 THEN
330: oe_debug_pub.add('create_config_item_wf: ' || 'Function Mode: ' || p_funcmode, 1);
331: oe_debug_pub.add('create_config_item_wf: ' || 'Item Key : ' || p_itemkey , 1);
332: oe_debug_pub.add('create_config_item_wf: ' || 'Item Type : ' || p_itemtype , 1);
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
335: oe_debug_pub.add('create_config_item_wf: ' || 'CTO Activity: Create Config Item', 1);
336:
337: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
331: oe_debug_pub.add('create_config_item_wf: ' || 'Item Key : ' || p_itemkey , 1);
332: oe_debug_pub.add('create_config_item_wf: ' || 'Item Type : ' || p_itemtype , 1);
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
335: oe_debug_pub.add('create_config_item_wf: ' || 'CTO Activity: Create Config Item', 1);
336:
337: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
338: END IF;
339:
333: oe_debug_pub.add('create_config_item_wf: ' || 'activity id : ' || p_actid , 1);
334:
335: oe_debug_pub.add('create_config_item_wf: ' || 'CTO Activity: Create Config Item', 1);
336:
337: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
338: END IF;
339:
340:
341: OE_STANDARD_WF.Set_Msg_Context(p_actid);
354: l_stmt_num := 100;
355:
356: IF (config_line_exists(to_number(p_itemkey))) THEN
357: IF PG_DEBUG <> 0 THEN
358: oe_debug_pub.add('create_config_item_wf: ' || 'Configuration Line exists for this model.', 1);
359: END IF;
360: l_stmt_num := 102;
361:
362: -- The exception block for the following select statement is added by Renga Kannan
376: where line_id = to_number(p_itemkey);
377: exception
378: when no_data_found then
379: IF PG_DEBUG <> 0 THEN
380: oe_debug_pub.add('create_config_item_wf: ' || 'The configuration item is created by the link_item process...',1);
381: END IF;
382: -- Set the l_program_id to zero so that the config workflow is moved further...
383: l_program_id := 0;
384: end;
422:
423: l_stmt_num := 110;
424:
425: IF PG_DEBUG <> 0 THEN
426: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
427:
428: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Check Holds.',1);
429: END IF;
430: /* bugfix 4051282: check for activity hold and generic hold */
424:
425: IF PG_DEBUG <> 0 THEN
426: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
427:
428: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Check Holds.',1);
429: END IF;
430: /* bugfix 4051282: check for activity hold and generic hold */
431: OE_HOLDS_PUB.Check_Holds(p_api_version => 1.0,
432: p_line_id => to_number(p_itemkey),
438: x_msg_data => l_x_error_msg);
439:
440: IF (l_x_hold_return_status = FND_API.G_RET_STS_ERROR) THEN
441: IF PG_DEBUG <> 0 THEN
442: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Check Holds with expected error.' ,1);
443: END IF;
444: raise FND_API.G_EXC_ERROR;
445:
446: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
444: raise FND_API.G_EXC_ERROR;
445:
446: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
447: IF PG_DEBUG <> 0 THEN
448: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Check Holds with unexpected error.' ,1);
449: END IF;
450: raise FND_API.G_EXC_UNEXPECTED_ERROR;
451:
452: ELSE
450: raise FND_API.G_EXC_UNEXPECTED_ERROR;
451:
452: ELSE
453: IF PG_DEBUG <> 0 THEN
454: oe_debug_pub.add('create_config_item_wf: ' || 'Success in Check Holds. ' || l_x_hold_return_status,1);
455: END IF;
456: IF (l_x_hold_result_out = FND_API.G_TRUE) THEN
457: IF PG_DEBUG <> 0 THEN
458: oe_debug_pub.add('create_config_item_wf: ' || 'Order Line ID ' || p_itemkey ||
454: oe_debug_pub.add('create_config_item_wf: ' || 'Success in Check Holds. ' || l_x_hold_return_status,1);
455: END IF;
456: IF (l_x_hold_result_out = FND_API.G_TRUE) THEN
457: IF PG_DEBUG <> 0 THEN
458: oe_debug_pub.add('create_config_item_wf: ' || 'Order Line ID ' || p_itemkey ||
459: 'is on HOLD. ' ||l_x_hold_result_out);
460: END IF;
461: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
462: x_result := 'COMPLETE:ON_HOLD';
466: END IF; -- end to check hold return status
467:
468:
469:
470: oe_debug_pub.add('create_config_item_wf: ' || 'Getting Profile Values ' , 1);
471:
472:
473: lPerformPPRollup := nvl( FND_PROFILE.Value('CTO_PERFORM_PURCHASE_PRICE_ROLLUP'), 1 ) ;
474: lPerformCSTRollup := nvl( FND_PROFILE.Value('CTO_PERFORM_COST_ROLLUP') , 1 ) ;
477: lPerformFWCalc := nvl( FND_PROFILE.Value('CTO_PERFORM_FLOW_CALC') , 2 );
478: lPerformLTCalc := nvl( FND_PROFILE.Value('BOM:ATO_PERFORM_LEADTIME_CALC' ) , 1 ) ;
479: lNotifyUsers := nvl( FND_PROFILE.Value('CTO_NOTIFY_USER_FOR_ERRORS'), 1) ;
480:
481: oe_debug_pub.add('create_config_item_wf: ' || 'Done Getting Profile Values ' , 1);
482:
483: IF PG_DEBUG <> 0 THEN
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
480:
481: oe_debug_pub.add('create_config_item_wf: ' || 'Done Getting Profile Values ' , 1);
482:
483: IF PG_DEBUG <> 0 THEN
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
486: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Lead Time Calculations ' || lPerformLTCalc , 1);
487: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Flow Calculations ' || lPerformFWCalc , 1);
488: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Notify User for Errors ' || lNotifyUsers , 1);
481: oe_debug_pub.add('create_config_item_wf: ' || 'Done Getting Profile Values ' , 1);
482:
483: IF PG_DEBUG <> 0 THEN
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
486: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Lead Time Calculations ' || lPerformLTCalc , 1);
487: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Flow Calculations ' || lPerformFWCalc , 1);
488: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Notify User for Errors ' || lNotifyUsers , 1);
489: END IF;
482:
483: IF PG_DEBUG <> 0 THEN
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
486: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Lead Time Calculations ' || lPerformLTCalc , 1);
487: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Flow Calculations ' || lPerformFWCalc , 1);
488: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Notify User for Errors ' || lNotifyUsers , 1);
489: END IF;
490:
483: IF PG_DEBUG <> 0 THEN
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
486: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Lead Time Calculations ' || lPerformLTCalc , 1);
487: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Flow Calculations ' || lPerformFWCalc , 1);
488: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Notify User for Errors ' || lNotifyUsers , 1);
489: END IF;
490:
491:
484: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Purchase Price Rollup ' || lPerformPPRollup , 1);
485: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Cost Rollup ' || lPerformCSTRollup , 1);
486: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Lead Time Calculations ' || lPerformLTCalc , 1);
487: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Perform Flow Calculations ' || lPerformFWCalc , 1);
488: oe_debug_pub.add('create_config_item_wf: ' || 'Profile Notify User for Errors ' || lNotifyUsers , 1);
489: END IF;
490:
491:
492: if( lPerformFWCalc = 1 ) then
490:
491:
492: if( lPerformFWCalc = 1 ) then
493: l_perform_flow_calc := 1;
494: oe_debug_pub.add('create_config_item_wf: ' || 'Flow Calc is 1 ' , 1);
495: else
496: --Begin Bugfix 6737389
497: if( lPerformFWCalc = 2 ) then
498: l_perform_flow_calc := 2;
495: else
496: --Begin Bugfix 6737389
497: if( lPerformFWCalc = 2 ) then
498: l_perform_flow_calc := 2;
499: oe_debug_pub.add('create_config_item_wf: ' || 'Flow Calc is 2 ' , 1);
500: else
501: l_perform_flow_calc := 3;
502: oe_debug_pub.add('create_config_item_wf: ' || 'Flow Calc is 3 ' , 1);
503: end if;
498: l_perform_flow_calc := 2;
499: oe_debug_pub.add('create_config_item_wf: ' || 'Flow Calc is 2 ' , 1);
500: else
501: l_perform_flow_calc := 3;
502: oe_debug_pub.add('create_config_item_wf: ' || 'Flow Calc is 3 ' , 1);
503: end if;
504: --End Bugfix 6737389
505: end if ;
506:
526: from oe_order_lines_all
527: where line_id = to_number(p_itemkey);
528:
529: IF PG_DEBUG <> 0 THEN
530: oe_debug_pub.add('create_config_item_wf: ' || 'lTopATOLineId::'||to_char(lTopAtoLineId));
531: END IF;
532:
533:
534:
539: /* COLLECT DATA for ERROR PROCESSING */
540:
541:
542:
543: oe_debug_pub.add('create_config_item_wf: ' || 'Going to Collect Data for Error Processing ' , 1 );
544:
545:
546:
547: select oeh.order_number , msi.segment1, oel.line_number || '.' || oel.shipment_number
557:
558:
559:
560:
561: oe_debug_pub.add('create_config_item_wf: ' || 'Going to get planner code ' , 1 );
562:
563: CTO_UTILITY_PK.get_planner_code( v_top_model_id, v_ship_from_org_id , v_planner_code ) ;
564:
565:
562:
563: CTO_UTILITY_PK.get_planner_code( v_top_model_id, v_ship_from_org_id , v_planner_code ) ;
564:
565:
566: oe_debug_pub.add('create_config_item_wf: ' || 'planner code is ' || v_planner_code , 1 );
567:
568:
569:
570:
583:
584: l_stmt_num := 120;
585:
586: IF PG_DEBUG <> 0 THEN
587: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
588:
589: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Create and Link Item.', 1);
590: END IF;
591:
585:
586: IF PG_DEBUG <> 0 THEN
587: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
588:
589: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Create and Link Item.', 1);
590: END IF;
591:
592: l_status := CTO_ITEM_PK.create_and_link_item
593: (pTopAtoLineId => to_number(p_itemkey),
595: xMsgCount => l_xMsgCount,
596: xMsgData => l_xMsgData );
597:
598:
599: oe_debug_pub.add('create_config_item_wf: ' || 'done create and link Item .');
600:
601: if (l_status = 0 and l_xReturnStatus = FND_API.G_RET_STS_ERROR ) then
602: IF PG_DEBUG <> 0 THEN
603: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Create and Link Item with expected error.');
599: oe_debug_pub.add('create_config_item_wf: ' || 'done create and link Item .');
600:
601: if (l_status = 0 and l_xReturnStatus = FND_API.G_RET_STS_ERROR ) then
602: IF PG_DEBUG <> 0 THEN
603: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Create and Link Item with expected error.');
604: END IF;
605:
606:
607:
608: /* EXPECTED ERROR PROCESSING */
609:
610: if( lNotifyUsers = 1 ) then
611: IF PG_DEBUG <> 0 THEN
612: oe_debug_pub.add('create_config_item_wf: ' || 'Going to Call CTO_UTILITY_PK.handle_expected_error ..',3);
613: END IF;
614:
615: CTO_UTILITY_PK.handle_expected_error( p_error_type => CTO_UTILITY_PK.EXP_ERROR_AND_ITEM_NOT_CREATED
616: , p_inventory_item_id => v_top_model_id
634: raise FND_API.G_EXC_ERROR;
635:
636: elsif (l_status = 0 and l_xReturnStatus = FND_API.G_RET_STS_UNEXP_ERROR ) then
637: IF PG_DEBUG <> 0 THEN
638: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Create and Link Item with unexpected error.');
639: END IF;
640: raise FND_API.G_EXC_UNEXPECTED_ERROR;
641:
642: else
640: raise FND_API.G_EXC_UNEXPECTED_ERROR;
641:
642: else
643: IF PG_DEBUG <> 0 THEN
644: oe_debug_pub.add('create_config_item_wf: ' || 'Success in Create And Link Item.', 1);
645: END IF;
646: end if;
647:
648:
645: END IF;
646: end if;
647:
648:
649: oe_debug_pub.add('create_config_item_wf: ' || 'going for bom and routing .');
650:
651:
652: /*----------------------------------------------------------+
653: Create BOM and Routing
656: -- rkaza. bug 4524248. bom structure import enhancements. 11/05/05.
657: l_stmt_num := 125;
658:
659: IF PG_DEBUG <> 0 THEN
660: oe_debug_pub.add('create_config_item_wf: About to generate bom batch ID', 5);
661: end if;
662:
663: cto_msutil_pub.set_bom_batch_id(x_return_status => l_xReturnStatus);
664: if l_xReturnStatus <> fnd_api.G_RET_STS_SUCCESS then
662:
663: cto_msutil_pub.set_bom_batch_id(x_return_status => l_xReturnStatus);
664: if l_xReturnStatus <> fnd_api.G_RET_STS_SUCCESS then
665: IF PG_DEBUG <> 0 THEN
666: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in set_bom_batch_id with unexp error.', 1);
667: END IF;
668: raise FND_API.G_EXC_UNEXPECTED_ERROR;
669: end if;
670:
668: raise FND_API.G_EXC_UNEXPECTED_ERROR;
669: end if;
670:
671:
672: oe_debug_pub.add('create_config_item_wf: ' || ' resetting CTO_CONFIG_BOM_PK.g_t_dropped_item_type ' , 1 );
673:
674: CTO_CONFIG_BOM_PK.g_t_dropped_item_type.delete ;
675:
676:
675:
676:
677:
678: IF PG_DEBUG <> 0 THEN
679: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
680:
681: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Create BOM and Routing ', 1);
682: END IF;
683:
677:
678: IF PG_DEBUG <> 0 THEN
679: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
680:
681: oe_debug_pub.add('create_config_item_wf: ' || 'Calling Create BOM and Routing ', 1);
682: END IF;
683:
684:
685:
697:
698:
699:
700: if( CTO_CONFIG_BOM_PK.g_t_dropped_item_type.count > 0 ) then
701: oe_debug_pub.add( 'DROPPED component count > 0 ' , 1 ) ;
702:
703: select oeh.order_number , msi.segment1, oel.line_number || '.' || oel.shipment_number
704: into v_order_number, v_top_model_name, v_top_model_line_num
705: from oe_order_headers_all oeh , oe_order_lines_all oel , mtl_system_items msi
728:
729:
730: IF (l_xReturnStatus = fnd_api.G_RET_STS_ERROR) THEN
731: IF PG_DEBUG <> 0 THEN
732: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Create BOM and Routing with exp error.', 1);
733: END IF;
734:
735:
736: if( CTO_CONFIG_BOM_PK.g_t_dropped_item_type.count > 0 ) then
735:
736: if( CTO_CONFIG_BOM_PK.g_t_dropped_item_type.count > 0 ) then
737:
738: if( lNotifyUsers = 1 ) then
739: oe_debug_pub.add('create_config_item_wf: ' || '********** ******* Will be Sending Notifications .', 1);
740: CTO_UTILITY_PK.send_oid_notification ; /* DROPPED COMPONENTS BOM NOT CREATED NOTIFICATION */
741:
742: else
743: oe_debug_pub.add('create_config_item_wf: ' || '********** ******* Will not be Sending Notifications .', 1);
739: oe_debug_pub.add('create_config_item_wf: ' || '********** ******* Will be Sending Notifications .', 1);
740: CTO_UTILITY_PK.send_oid_notification ; /* DROPPED COMPONENTS BOM NOT CREATED NOTIFICATION */
741:
742: else
743: oe_debug_pub.add('create_config_item_wf: ' || '********** ******* Will not be Sending Notifications .', 1);
744:
745: end if;
746:
747:
760:
761:
762: if( lNotifyUsers = 1 ) then
763: IF PG_DEBUG <> 0 THEN
764: oe_debug_pub.add('create_config_item_wf: ' || 'Going to Call CTO_UTILITY_PK.handle_expected_error ..',3);
765: END IF;
766:
767: CTO_UTILITY_PK.handle_expected_error( p_error_type => CTO_UTILITY_PK.EXP_ERROR_AND_ITEM_NOT_CREATED
768: , p_inventory_item_id => v_top_model_id
788:
789:
790: ELSIF (l_xReturnStatus = fnd_api.G_RET_STS_UNEXP_ERROR) THEN
791: IF PG_DEBUG <> 0 THEN
792: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Create BOM and Routing with unexp error.', 1);
793: END IF;
794: raise FND_API.G_EXC_UNEXPECTED_ERROR;
795: ELSE
796: IF PG_DEBUG <> 0 THEN
793: END IF;
794: raise FND_API.G_EXC_UNEXPECTED_ERROR;
795: ELSE
796: IF PG_DEBUG <> 0 THEN
797: oe_debug_pub.add('create_config_item_wf: ' || 'Success in Create BOM and Routing ', 1);
798: END IF;
799: END IF;
800:
801:
823: --
824:
825: l_stmt_num := 150;
826: IF PG_DEBUG <> 0 THEN
827: oe_debug_pub.add ('create_config_item_wf: ' || 'CALLING LINK_ITEM');
828: END IF;
829:
830: l_status := CTO_CONFIG_ITEM_PK.link_item(
831: pOrgId => l_mfg_org_id,
836: xMsgData => l_xMsgData );
837:
838: if l_status <> 1 then
839: IF PG_DEBUG <> 0 THEN
840: oe_debug_pub.add ('create_config_item_wf: ' || 'Failed in link_item function', 1);
841: END IF;
842:
843:
844: /* EXPECTED ERROR NOTIFICATION */
845:
846:
847: if( lNotifyUsers = 1 ) then
848: IF PG_DEBUG <> 0 THEN
849: oe_debug_pub.add('create_config_item_wf: ' || 'Going to Call CTO_UTILITY_PK.handle_expected_error ..',3);
850: END IF;
851:
852: CTO_UTILITY_PK.handle_expected_error( p_error_type => CTO_UTILITY_PK.EXP_ERROR_AND_ITEM_NOT_CREATED
853: , p_inventory_item_id => v_top_model_id
869: raise FND_API.G_EXC_ERROR;
870: end if;
871:
872: IF PG_DEBUG <> 0 THEN
873: oe_debug_pub.add ('create_config_item_wf: ' || 'Success in link_item function', 1);
874:
875: oe_debug_pub.add ('create_config_item_wf: ' || 'Getting config line id.', 1);
876: END IF;
877:
871:
872: IF PG_DEBUG <> 0 THEN
873: oe_debug_pub.add ('create_config_item_wf: ' || 'Success in link_item function', 1);
874:
875: oe_debug_pub.add ('create_config_item_wf: ' || 'Getting config line id.', 1);
876: END IF;
877:
878: l_stmt_num := 152;
879:
883: where ato_line_id = to_number(p_itemkey)
884: and item_type_code = 'CONFIG';
885:
886: IF PG_DEBUG <> 0 THEN
887: oe_debug_pub.add ('create_config_item_wf: ' || 'Config line id is ' || to_char(l_config_line_id), 1);
888:
889: oe_debug_pub.add('create_config_item_wf: ' || 'header ID: ' || to_char(l_header_id), 1);
890: END IF;
891:
885:
886: IF PG_DEBUG <> 0 THEN
887: oe_debug_pub.add ('create_config_item_wf: ' || 'Config line id is ' || to_char(l_config_line_id), 1);
888:
889: oe_debug_pub.add('create_config_item_wf: ' || 'header ID: ' || to_char(l_header_id), 1);
890: END IF;
891:
892:
893: l_stmt_num := 155;
899: p_activity_name => 'CREATE_CONFIG_BOM_ELIGIBLE',
900: p_activity_status => l_active_activity );
901:
902: IF PG_DEBUG <> 0 THEN
903: oe_debug_pub.add('create_config_item_wf: ' || 'Workflow CREATE_CONFIG_BOM_ELIGIBLE Status is: ' ||
904: l_active_activity, 1);
905:
906: oe_debug_pub.add('create_config_item_wf: ' || ' updating config bom eligible to complete:created ' , 1);
907: END IF;
902: IF PG_DEBUG <> 0 THEN
903: oe_debug_pub.add('create_config_item_wf: ' || 'Workflow CREATE_CONFIG_BOM_ELIGIBLE Status is: ' ||
904: l_active_activity, 1);
905:
906: oe_debug_pub.add('create_config_item_wf: ' || ' updating config bom eligible to complete:created ' , 1);
907: END IF;
908:
909:
910:
936:
937: /*
938: lMatchProfile := FND_PROFILE.Value('BOM:MATCH_CONFIG');
939: IF PG_DEBUG <> 0 THEN
940: oe_debug_pub.add('create_config_item_wf: ' || 'Match Profile is ' || lMatchProfile, 1 );
941: END IF;
942: removed lMatchProfile check as this fix has been made in CTOUTILB.pls
943: */
944:
943: */
944:
945:
946: IF PG_DEBUG <> 0 THEN
947: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
948: END IF;
949:
950:
951:
951:
952:
953:
954: if( CTO_CONFIG_BOM_PK.g_t_dropped_item_type.count > 0 ) then
955: oe_debug_pub.add( 'DROPPED component count > 0 ' , 1 ) ;
956:
957: select msi.segment1, oel.line_number || '.' || oel.shipment_number || '.' || nvl( oel.option_number , '' )
958: || '.' || nvl(component_number , '' )
959: into v_top_config_name, v_top_config_line_num
977: if( lNotifyUsers = 1 ) then
978: CTO_UTILITY_PK.send_oid_notification ; /* DROPPED COMPONENTS ITEM CREATED NOTIFICATION */
979:
980: else
981: oe_debug_pub.add('create_config_item_wf: ' || '********** ******* Will not be Sending Notifications .', 1);
982:
983: end if;
984:
985:
1015:
1016: if( lPerformPPRollup = 1 ) then
1017:
1018: IF PG_DEBUG <> 0 THEN
1019: oe_debug_pub.add('create_config_item_wf: ' || 'Will Perform Purchase Price Rollup as profile is Yes ', 1);
1020: END IF;
1021:
1022: -- Added by Renga Kannan on 03/26/02 to call
1023: -- Create purchase doc code for match case. In the case of
1041:
1042:
1043: IF (x_Return_Status = fnd_api.G_RET_STS_ERROR) THEN
1044: IF PG_DEBUG <> 0 THEN
1045: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Purchase Price ROLLUP .', 1);
1046: END IF;
1047:
1048:
1049: /* EXPECTED ERROR NOTIFICATION */
1050:
1051:
1052: if( lNotifyUsers = 1 ) then
1053: IF PG_DEBUG <> 0 THEN
1054: oe_debug_pub.add('create_config_item_wf: ' || 'Going to Call CTO_UTILITY_PK.handle_expected_error ..',3);
1055: END IF;
1056:
1057: CTO_UTILITY_PK.handle_expected_error( p_error_type => CTO_UTILITY_PK.EXP_ERROR_AND_ITEM_NOT_CREATED
1058: , p_inventory_item_id => v_top_model_id
1082:
1083:
1084: ELSIF ( x_Return_Status = fnd_api.G_RET_STS_UNEXP_ERROR) THEN
1085: IF PG_DEBUG <> 0 THEN
1086: oe_debug_pub.add('create_config_item_wf: ' || 'Failed in Purchase Price ROllup .', 1);
1087: END IF;
1088:
1089: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1090: ELSE
1088:
1089: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1090: ELSE
1091: IF PG_DEBUG <> 0 THEN
1092: oe_debug_pub.add('create_config_item_wf: ' || 'Success in Purchase Price Rollup ', 1);
1093: END IF;
1094: END IF;
1095:
1096:
1099:
1100: else
1101:
1102: IF PG_DEBUG <> 0 THEN
1103: oe_debug_pub.add('create_config_item_wf: ' || 'Will Not Perform Purchase Price Rollup as profile is No ', 1);
1104: END IF;
1105:
1106: end if ;
1107:
1113:
1114: if( lPerformCSTRollup = 1 ) then
1115:
1116: IF PG_DEBUG <> 0 THEN
1117: oe_debug_pub.add('create_config_item_wf: ' || 'Will Perform Cost Rollup as profile is Yes ', 1);
1118: END IF;
1119:
1120:
1121:
1125: x_msg_data => l_xmsgdata);
1126:
1127: if (l_status = 0) then
1128: IF PG_DEBUG <> 0 THEN
1129: oe_debug_pub.add('create_config_item_wf: ' || 'Failure in cost_rollup ', 1);
1130: END IF;
1131: --cto_msg_pub.cto_message('BOM', l_xmsgdata);
1132: raise FND_API.G_EXC_ERROR;
1133:
1133:
1134:
1135: elsif( l_status = -1 ) then
1136: IF PG_DEBUG <> 0 THEN
1137: oe_debug_pub.add('create_config_item_wf: ' || 'Unexpected Failure in cost_rollup ', 1);
1138: END IF;
1139: cto_msg_pub.cto_message('BOM', l_xmsgdata);
1140: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1141:
1140: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1141:
1142: else
1143: IF PG_DEBUG <> 0 THEN
1144: oe_debug_pub.add('create_config_item_wf: ' || 'Success in cost_rollup ', 1);
1145: END IF;
1146: end if;
1147:
1148:
1149:
1150: else
1151:
1152: IF PG_DEBUG <> 0 THEN
1153: oe_debug_pub.add('create_config_item_wf: ' || 'Will Not perform cost_rollup as profile is No ', 1);
1154: END IF;
1155:
1156: end if ;
1157:
1167:
1168: if( lPerformLTCalc = 1 ) then
1169:
1170: IF PG_DEBUG <> 0 THEN
1171: oe_debug_pub.add('create_config_item_wf: ' || 'Will perform Lead Time Calc as profile is Yes ' || lTopAtoLineId , 1);
1172: END IF;
1173:
1174:
1175:
1180: sub_request => false,
1181: argument1 => lTopAtoLineId );
1182:
1183: IF PG_DEBUG <> 0 THEN
1184: oe_debug_pub.add('create_config_item_wf: ' || ' request id ' || l_requestid , 1);
1185: END IF;
1186:
1187: /*
1188: | FUNCTION submit_request (
1201:
1202: else
1203:
1204: IF PG_DEBUG <> 0 THEN
1205: oe_debug_pub.add('create_config_item_wf: ' || 'Will Not perform Lead Time Calc as profile is No ', 1);
1206: END IF;
1207:
1208: end if ;
1209:
1241: if( x_return_status = FND_API.G_RET_STS_SUCCESS ) then
1242:
1243:
1244: IF PG_DEBUG <> 0 THEN
1245: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1246:
1247: oe_debug_pub.add('create_config_item_wf: ' || ' create_reservation status success ' , 1 );
1248:
1249: oe_debug_pub.add('create_config_item_wf: ' || ' reserve status ' || x_reserve_status , 1 );
1243:
1244: IF PG_DEBUG <> 0 THEN
1245: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1246:
1247: oe_debug_pub.add('create_config_item_wf: ' || ' create_reservation status success ' , 1 );
1248:
1249: oe_debug_pub.add('create_config_item_wf: ' || ' reserve status ' || x_reserve_status , 1 );
1250: END IF;
1251:
1245: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1246:
1247: oe_debug_pub.add('create_config_item_wf: ' || ' create_reservation status success ' , 1 );
1248:
1249: oe_debug_pub.add('create_config_item_wf: ' || ' reserve status ' || x_reserve_status , 1 );
1250: END IF;
1251:
1252:
1253: l_stmt_num := 175;
1253: l_stmt_num := 175;
1254:
1255:
1256: IF PG_DEBUG <> 0 THEN
1257: oe_debug_pub.add('create_config_item_wf: ' || 'going to get Workflow Status for config line : ' ||
1258: to_char( l_config_line_id ) , 1 );
1259: END IF;
1260:
1261: CTO_WORKFLOW_API_PK.get_activity_status(
1264: linetype => 'CONFIG',
1265: activity_name => l_active_activity);
1266:
1267: IF PG_DEBUG <> 0 THEN
1268: oe_debug_pub.add('create_config_item_wf: ' || 'Workflow Status is: ' ||
1269: l_active_activity, 1);
1270: END IF;
1271:
1272:
1279: p_activity_name => 'SHIP_LINE',
1280: p_activity_status => l_active_activity );
1281:
1282: IF PG_DEBUG <> 0 THEN
1283: oe_debug_pub.add('create_config_item_wf: ' || 'Workflow SHIP_LINE Status is: ' ||
1284: l_active_activity, 1);
1285: END IF;
1286:
1287:
1288:
1289: else /* create reservation not successful */
1290:
1291: IF PG_DEBUG <> 0 THEN
1292: oe_debug_pub.add('create_config_item_wf: ' || ' create_reservation status failure ' , 1 );
1293: END IF;
1294:
1295:
1296:
1300: elsif v_source_type_code = 'INTERNAL' then /* end if source type code INTERNAL */
1301:
1302: l_stmt_num := 220;
1303: IF PG_DEBUG <> 0 THEN
1304: oe_debug_pub.add('create_config_item_wf: ' || ' No Reservation attempted as match not successful ' , 1 );
1305: END IF;
1306:
1307:
1308:
1308:
1309: elsif v_source_type_code = 'EXTERNAL' then /* end if source type code INTERNAL */
1310:
1311: IF PG_DEBUG <> 0 THEN
1312: oe_debug_pub.add('create_reservation: ' || 'Drop Ship Scenario ' , 1 );
1313: END IF ;
1314:
1315:
1316:
1313: END IF ;
1314:
1315:
1316:
1317: oe_debug_pub.add('create_reservation: ' || 'Drop Ship Scenario perform match ' || l_perform_match , 1 );
1318:
1319:
1320:
1321: if( l_perform_match = 'Y' ) then
1320:
1321: if( l_perform_match = 'Y' ) then
1322:
1323: IF PG_DEBUG <> 0 THEN
1324: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1325:
1326: oe_debug_pub.add('create_reservation: ' || 'DropShip Matched item ' ||
1327: l_config_id, 1 );
1328: END IF;
1322:
1323: IF PG_DEBUG <> 0 THEN
1324: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1325:
1326: oe_debug_pub.add('create_reservation: ' || 'DropShip Matched item ' ||
1327: l_config_id, 1 );
1328: END IF;
1329:
1330:
1337:
1338: l_stmt_num := 235;
1339:
1340: IF PG_DEBUG <> 0 THEN
1341: oe_debug_pub.add('create_reservation: ' || 'CTO_CONFIG_MATCH for item ' || l_config_item_name , 1 );
1342: END IF;
1343:
1344:
1345: l_token(1).token_name := 'CONFIG_ITEM';
1361: end if ; /* v_source_type_code = 'INTERNAL' */
1362:
1363:
1364: IF PG_DEBUG <> 0 THEN
1365: oe_debug_pub.add('create_config_item_wf: ' || 'Time Stamp '
1366: || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' )) ;
1367:
1368:
1369: END IF;
1396: EXCEPTION
1397:
1398: when FND_API.G_EXC_ERROR then
1399: IF PG_DEBUG <> 0 THEN
1400: OE_DEBUG_PUB.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
1401: to_char(l_stmt_num) || ':' ||
1402: l_x_error_msg);
1403: END IF;
1404: fnd_msg_pub.count_and_get(p_data=>x_msg_data,p_count=>x_msg_count);
1408: rollback to savepoint before_item_creation;
1409:
1410: when FND_API.G_EXC_UNEXPECTED_ERROR then
1411: IF PG_DEBUG <> 0 THEN
1412: OE_DEBUG_PUB.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
1413: to_char(l_stmt_num) || ':' ||
1414: l_x_error_msg);
1415: END IF;
1416: OE_STANDARD_WF.Save_Messages;
1421:
1422: when OTHERS then
1423: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1424: IF PG_DEBUG <> 0 THEN
1425: oe_debug_pub.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf' ||
1426: to_char(l_stmt_num) || ':' ||
1427: substrb(sqlerrm, 1, 100));
1428: END IF;
1429: wf_core.context('CTO_WORKFLOW', 'create_config_item_wf',
1533:
1534:
1535:
1536: IF PG_DEBUG <> 0 THEN
1537: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1538:
1539: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1540:
1541: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1535:
1536: IF PG_DEBUG <> 0 THEN
1537: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1538:
1539: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1540:
1541: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1542: ' time fence ' || to_char(l_reservation_time_fence)
1543: , 1 );
1537: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1538:
1539: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1540:
1541: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1542: ' time fence ' || to_char(l_reservation_time_fence)
1543: , 1 );
1544:
1545: oe_debug_pub.add('create_reservation: ' || ' going to check for automatic reservation ' ||
1541: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1542: ' time fence ' || to_char(l_reservation_time_fence)
1543: , 1 );
1544:
1545: oe_debug_pub.add('create_reservation: ' || ' going to check for automatic reservation ' ||
1546: l_automatic_reservation , 1 );
1547: END IF;
1548:
1549: if( l_automatic_reservation = '1' and
1551: )
1552: then
1553:
1554: IF PG_DEBUG <> 0 THEN
1555: oe_debug_pub.add('create_reservation: ' || ' going to attempt reservation ' , 1 );
1556: END IF;
1557:
1558: /*-------------------------------------------------+
1559: Create a quantity tree to get atr for reservation.
1575: , x_tree_id => l_tree_id);
1576:
1577: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1578: IF PG_DEBUG <> 0 THEN
1579: oe_debug_pub.add('create_reservation: ' || 'Failed in create_tree with status: ' ||
1580: l_return_status, 1);
1581: END IF;
1582: raise PROCESS_ERROR;
1583: ELSE
1581: END IF;
1582: raise PROCESS_ERROR;
1583: ELSE
1584: IF PG_DEBUG <> 0 THEN
1585: oe_debug_pub.add('create_reservation: ' || 'Success in create_tree.',1);
1586:
1587: oe_debug_pub.add('create_reservation: ' || 'Tree ID:' || to_char(l_tree_id),1);
1588: END IF;
1589: END IF;
1583: ELSE
1584: IF PG_DEBUG <> 0 THEN
1585: oe_debug_pub.add('create_reservation: ' || 'Success in create_tree.',1);
1586:
1587: oe_debug_pub.add('create_reservation: ' || 'Tree ID:' || to_char(l_tree_id),1);
1588: END IF;
1589: END IF;
1590:
1591: /*-----------------------------------------------------+
1612: x_atr => x_available_qty);
1613:
1614: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1615: IF PG_DEBUG <> 0 THEN
1616: oe_debug_pub.add('create_reservation: ' || 'Failed in create_tree with status: ' ||
1617: l_return_status, 1);
1618: END IF;
1619: raise PROCESS_ERROR;
1620: end if;
1618: END IF;
1619: raise PROCESS_ERROR;
1620: end if;
1621: IF PG_DEBUG <> 0 THEN
1622: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1623:
1624: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1625:
1626: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1620: end if;
1621: IF PG_DEBUG <> 0 THEN
1622: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1623:
1624: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1625:
1626: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1627:
1628: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1622: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1623:
1624: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1625:
1626: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1627:
1628: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1629:
1630: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1624: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1625:
1626: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1627:
1628: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1629:
1630: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1631: ' mfg_org_id ' || to_char( p_mfg_org_id ) , 1);
1632: END IF;
1626: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1627:
1628: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1629:
1630: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1631: ' mfg_org_id ' || to_char( p_mfg_org_id ) , 1);
1632: END IF;
1633:
1634: l_stmt_num := 170;
1639: where msi.inventory_item_id = p_config_id
1640: and msi.organization_id = p_mfg_org_id;
1641:
1642: IF PG_DEBUG <> 0 THEN
1643: oe_debug_pub.add('create_reservation: ' || ' pri uom ' || l_primary_uom_code ||
1644: ' res uom ' || p_reservation_uom_code , 1);
1645: END IF;
1646:
1647:
1671: if (x_available_qty > 0 )
1672: then
1673: l_stmt_num := 180;
1674: IF PG_DEBUG <> 0 THEN
1675: oe_debug_pub.add('create_reservation: ' || 'Entering Create Reservation. ',1);
1676:
1677: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1678: || to_char(l_quantity_to_reserve ),1);
1679:
1673: l_stmt_num := 180;
1674: IF PG_DEBUG <> 0 THEN
1675: oe_debug_pub.add('create_reservation: ' || 'Entering Create Reservation. ',1);
1676:
1677: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1678: || to_char(l_quantity_to_reserve ),1);
1679:
1680: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1681: || to_char(x_available_qty),1);
1676:
1677: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1678: || to_char(l_quantity_to_reserve ),1);
1679:
1680: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1681: || to_char(x_available_qty),1);
1682: END IF;
1683:
1684: if( l_quantity_to_reserve > x_available_qty ) then
1687:
1688: l_partial_reservation := TRUE ;
1689:
1690: IF PG_DEBUG <> 0 THEN
1691: oe_debug_pub.add('create_reservation: ' || 'Going to attempt reservation for' ||
1692: to_char(l_quantity_to_reserve ));
1693: END IF;
1694:
1695:
1697:
1698: l_stmt_num := 185;
1699:
1700: IF PG_DEBUG <> 0 THEN
1701: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1702: END IF;
1703:
1704:
1705: if (CTO_MATCH_AND_RESERVE.create_config_reservation
1711: x_error_msg => l_x_error_msg,
1712: x_error_msg_name => l_x_error_msg_name) = TRUE)
1713: then
1714: IF PG_DEBUG <> 0 THEN
1715: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1716:
1717: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1718:
1719: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1713: then
1714: IF PG_DEBUG <> 0 THEN
1715: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1716:
1717: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1718:
1719: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1720:
1721: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1715: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1716:
1717: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1718:
1719: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1720:
1721: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1722: END IF;
1723:
1717: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1718:
1719: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1720:
1721: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1722: END IF;
1723:
1724:
1725: l_stmt_num := 190;
1764:
1765:
1766:
1767: IF PG_DEBUG <> 0 THEN
1768: oe_debug_pub.add('create_reservation: ' || 'CTO_RESERVATION_SUCCESS for ' ||
1769: to_char(l_quantity_to_reserve) ||
1770: ' units for item ' || l_config_item_name ||
1771: ' in org ' || l_organization_name , 1 );
1772: END IF;
1810: x_message_name := 'CTO_RESERVE';
1811:
1812: else
1813: IF PG_DEBUG <> 0 THEN
1814: oe_debug_pub.add('create_reservation: ' || 'Failed in Create Reservation. ',1);
1815: END IF;
1816: cto_msg_pub.cto_message('BOM', l_x_error_msg ); /* BUGFIX#2342412 */
1817: raise RESERVATION_ERROR;
1818: end if;
1827:
1828: l_stmt_num := 210;
1829:
1830: IF PG_DEBUG <> 0 THEN
1831: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1832:
1833: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1834:
1835: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1829:
1830: IF PG_DEBUG <> 0 THEN
1831: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1832:
1833: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1834:
1835: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1836: || to_char(x_available_qty),1);
1837: END IF;
1831: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1832:
1833: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1834:
1835: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1836: || to_char(x_available_qty),1);
1837: END IF;
1838:
1839: x_message_name := 'CTO_CONFIG_LINKED';
1880:
1881:
1882:
1883: IF PG_DEBUG <> 0 THEN
1884: oe_debug_pub.add('create_reservation: ' || 'CTO_RESERVATION_FAILURE for ' || l_config_item_name ||
1885: ' in org ' || l_organization_name , 1 );
1886: END IF;
1887:
1888: l_stmt_num := 225;
1914:
1915: l_stmt_num := 230;
1916:
1917: IF PG_DEBUG <> 0 THEN
1918: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1919:
1920: oe_debug_pub.add('create_reservation: ' || 'No reservation could be attempted for ' ||
1921: l_config_item_name , 1 );
1922: END IF;
1916:
1917: IF PG_DEBUG <> 0 THEN
1918: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1919:
1920: oe_debug_pub.add('create_reservation: ' || 'No reservation could be attempted for ' ||
1921: l_config_item_name , 1 );
1922: END IF;
1923:
1924:
1931:
1932: l_stmt_num := 235;
1933:
1934: IF PG_DEBUG <> 0 THEN
1935: oe_debug_pub.add('create_reservation: ' || 'CTO_CONFIG_MATCH for item ' || l_config_item_name , 1 );
1936: END IF;
1937:
1938: if( p_mode = 'ONLINE' ) then
1939:
1955: end if ; /* check for full match */
1956:
1957:
1958: IF PG_DEBUG <> 0 THEN
1959: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1960: END IF;
1961:
1962:
1963: EXCEPTION
1963: EXCEPTION
1964: when RESERVATION_ERROR then
1965: --rollback to savepoint before_item_creation;
1966: IF PG_DEBUG <> 0 THEN
1967: OE_DEBUG_PUB.add('create_reservation: ' || 'RESERVATION_ERROR ' , 1 );
1968:
1969: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
1970: END IF;
1971: OE_STANDARD_WF.Save_Messages;
1965: --rollback to savepoint before_item_creation;
1966: IF PG_DEBUG <> 0 THEN
1967: OE_DEBUG_PUB.add('create_reservation: ' || 'RESERVATION_ERROR ' , 1 );
1968:
1969: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
1970: END IF;
1971: OE_STANDARD_WF.Save_Messages;
1972: OE_STANDARD_WF.Clear_Msg_Context;
1973:
1977: when NO_DATA_FOUND then
1978: --rollback to savepoint before_item_creation;
1979: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1980: IF PG_DEBUG <> 0 THEN
1981: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation::ndf::' || to_char(l_stmt_num) );
1982: END IF;
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1984:
1985:
1986: when PROCESS_ERROR then
1987: --rollback to savepoint before_item_creation;
1988:
1989: IF PG_DEBUG <> 0 THEN
1990: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
1991: END IF;
1992:
1993: OE_STANDARD_WF.Save_Messages;
1994: OE_STANDARD_WF.Clear_Msg_Context;
1997:
1998: when FND_API.G_EXC_UNEXPECTED_ERROR then
1999: --rollback to savepoint before_item_creation;
2000: IF PG_DEBUG <> 0 THEN
2001: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' ||
2002: to_char(l_stmt_num) || ':' ||
2003: l_x_error_msg);
2004: END IF;
2005: OE_STANDARD_WF.Save_Messages;
2010: when OTHERS then
2011: --rollback to savepoint before_item_creation;
2012: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2013: IF PG_DEBUG <> 0 THEN
2014: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation' ||
2015: to_char(l_stmt_num) || ':' ||
2016: substrb(sqlerrm, 1, 100));
2017: END IF;
2018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2070: v_aps_version number ;
2071: BEGIN
2072: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2073: IF PG_DEBUG <> 0 THEN
2074: oe_debug_pub.add('rsv_before_booking_wf: ' || 'CTO Activity: Check Reservation before booking activity ', 1);
2075: END IF;
2076:
2077: if (p_funcmode = 'RUN') then
2078:
2102:
2103:
2104: v_aps_version := msc_atp_global.get_aps_version ;
2105:
2106: oe_debug_pub.add('link_config: ' || 'APS version::'|| v_aps_version , 2);
2107:
2108: if( v_aps_version = 10 ) then
2109:
2110:
2107:
2108: if( v_aps_version = 10 ) then
2109:
2110:
2111: oe_debug_pub.add( '*************************CHECKING HOLDS IN CHECK_RESERVATION_BEFORE_BOOKING ACTIVITY************ ' , 1) ;
2112:
2113:
2114:
2115: OE_HOLDS_PUB.Check_Holds (
2125: ,x_msg_data => l_x_error_msg);
2126:
2127: IF (l_x_hold_return_status = FND_API.G_RET_STS_ERROR) THEN
2128: IF PG_DEBUG <> 0 THEN
2129: oe_debug_pub.add('CTOCITMB:Failed in Check Holds with expected error.' ,1);
2130: END IF;
2131: raise FND_API.G_EXC_ERROR;
2132:
2133: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2131: raise FND_API.G_EXC_ERROR;
2132:
2133: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2134: IF PG_DEBUG <> 0 THEN
2135: oe_debug_pub.add('CTOCITMB:Failed in Check Holds with unexpected error.' ,1);
2136: END IF;
2137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2138:
2139: ELSE
2137: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2138:
2139: ELSE
2140: IF PG_DEBUG <> 0 THEN
2141: oe_debug_pub.add('CTOCITMB:Success in Check Holds.' ,1);
2142: END IF;
2143:
2144: if l_x_hold_result_out = FND_API.G_TRUE then
2145: IF PG_DEBUG <> 0 THEN
2142: END IF;
2143:
2144: if l_x_hold_result_out = FND_API.G_TRUE then
2145: IF PG_DEBUG <> 0 THEN
2146: oe_debug_pub.add('CTOCITMB:Create Supply Activity Hold exists on Config Line .' ,1);
2147: END IF;
2148:
2149: l_hold_source_rec.hold_entity_code := 'O';
2150: l_hold_source_rec.hold_id := 61 ;
2168: ,x_msg_data => l_x_error_msg);
2169:
2170: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2171: IF PG_DEBUG <> 0 THEN
2172: oe_debug_pub.add('CTOCITMB:Failed in Release Holds with expected error.' ,1);
2173: END IF;
2174: raise FND_API.G_EXC_ERROR;
2175:
2176: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2174: raise FND_API.G_EXC_ERROR;
2175:
2176: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2177: IF PG_DEBUG <> 0 THEN
2178: oe_debug_pub.add('CTOCITMB:Failed in Release Holds with unexpected error.' ,1);
2179: END IF;
2180: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2180: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2183: IF PG_DEBUG <> 0 THEN
2184: oe_debug_pub.add('CTOCITMB: Hold Released on config line.' ,1);
2185: END IF;
2186:
2187:
2188:
2187:
2188:
2189:
2190: IF PG_DEBUG <> 0 THEN
2191: oe_debug_pub.add('CTOCITMB:Calling OM api to apply hold.' ,1);
2192: END IF;
2193:
2194: l_hold_source_rec.hold_entity_code := 'O';
2195: l_hold_source_rec.hold_id := 55 ;
2205: , x_msg_data => l_msg_data);
2206:
2207: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2208: IF PG_DEBUG <> 0 THEN
2209: oe_debug_pub.add('CTOCITMB:Failed in Apply Holds with expected error.' ,1);
2210: END IF;
2211: raise FND_API.G_EXC_ERROR;
2212:
2213: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2211: raise FND_API.G_EXC_ERROR;
2212:
2213: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2214: IF PG_DEBUG <> 0 THEN
2215: oe_debug_pub.add('CTOCITMB:Failed in Apply Holds with unexpected error.' ,1);
2216: END IF;
2217: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2218: END IF;
2219:
2217: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2218: END IF;
2219:
2220: IF PG_DEBUG <> 0 THEN
2221: oe_debug_pub.add('CTOCITMB: An Exception Hold applied to config line.' ,1);
2222: END IF;
2223:
2224: else
2225:
2224: else
2225:
2226:
2227: IF PG_DEBUG <> 0 THEN
2228: oe_debug_pub.add('CTOCITMB:Create Supply Activity Hold does not exist on Config Line .' ,1);
2229: END IF;
2230:
2231: end if; /* if activity hold exists */
2232:
2273:
2274: if ((l_ResultStatus=TRUE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2275:
2276: IF PG_DEBUG <> 0 THEN
2277: oe_debug_pub.add('rsv_before_booking_wf: ' || 'Reservation exists, completing flow with reserved', 2);
2278: END IF;
2279: x_result :='COMPLETE:RESERVED';
2280:
2281: --
2291: end if;
2292:
2293: elsif ((l_ResultStatus=FALSE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2294: IF PG_DEBUG <> 0 THEN
2295: oe_debug_pub.add('rsv_before_booking_wf: ' || 'Reservation does not exist, completing flow with complete.', 2);
2296: END IF;
2297: x_result :='COMPLETE';
2298:
2299: elsif(l_return_status=FND_API.G_RET_STS_ERROR) then
2297: x_result :='COMPLETE';
2298:
2299: elsif(l_return_status=FND_API.G_RET_STS_ERROR) then
2300: IF PG_DEBUG <> 0 THEN
2301: oe_debug_pub.add('rsv_before_booking_wf: ' || 'returning from check_rsv_exists with expected error.', 2);
2302: END IF;
2303: RAISE FND_API.G_EXC_ERROR;
2304:
2305: elsif(l_return_status=FND_API.G_RET_STS_UNEXP_ERROR) then
2303: RAISE FND_API.G_EXC_ERROR;
2304:
2305: elsif(l_return_status=FND_API.G_RET_STS_UNEXP_ERROR) then
2306: IF PG_DEBUG <> 0 THEN
2307: oe_debug_pub.add('rsv_before_booking_wf: ' || 'returning from check_rsv_exists with unexpected error.', 2);
2308: END IF;
2309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2310:
2311: end if;
2326:
2327: EXCEPTION
2328: when FND_API.G_EXC_ERROR then
2329: IF PG_DEBUG <> 0 THEN
2330: OE_DEBUG_PUB.add('rsv_before_booking_wf: ' || 'CTO_WORKFLOW.rsv_before_booking_wf ' || to_char(l_stmt_num) );
2331: END IF;
2332: OE_STANDARD_WF.Save_Messages;
2333: OE_STANDARD_WF.Clear_Msg_Context;
2334: raise; -- can be re-tried
2341: );
2342: end if;
2343:
2344: IF PG_DEBUG <> 0 THEN
2345: oe_debug_pub.add('rsv_before_booking_wf: ' || 'corresponds to unexpected error at called program check_inv_rsv_exists '||'
2346: l_stmt_num :'|| l_stmt_num ||sqlerrm, 1);
2347: END IF;
2348: OE_STANDARD_WF.Save_Messages;
2349: OE_STANDARD_WF.Clear_Msg_Context;
2357: ,'rsv_before_booking_wf'
2358: );
2359: end if;
2360: IF PG_DEBUG <> 0 THEN
2361: oe_debug_pub.add('rsv_before_booking_wf: ' || 'error at rsv_before_booking_wf ' || to_char(l_stmt_num)|| sqlerrm);
2362: END IF;
2363: /*-------------------------------------------+
2364: Error Information for Notification.
2365: +--------------------------------------------*/
2421: and supply_source_type_id = INV_RESERVATION_GLOBAL.g_source_type_inv
2422: and rownum = 1;
2423:
2424: IF PG_DEBUG <> 0 THEN
2425: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'found that reservation exists before booking', 1);
2426: END IF;
2427: x_ResultStatus := TRUE;
2428: x_return_status := FND_API.G_RET_STS_SUCCESS;
2429:
2432: when no_data_found then
2433: x_ResultStatus := FALSE;
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435: IF PG_DEBUG <> 0 THEN
2436: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'no reservations before booking, this is not an error', 1);
2437: END IF;
2438:
2439: when others then
2440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2438:
2439: when others then
2440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2441: IF PG_DEBUG <> 0 THEN
2442: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'unexpected error in called program check_inv_rsv_exists'|| sqlerrm , 1);
2443: END IF;
2444: if fnd_msg_pub.check_msg_level
2445: (fnd_msg_pub.g_msg_lvl_unexp_error)
2446: then
2520: else
2521: x_ResultStatus := TRUE;
2522: x_return_status := FND_API.G_RET_STS_SUCCESS;
2523: IF PG_DEBUG <> 0 THEN
2524: oe_debug_pub.add ('check_rsv_exists: ' || 'MTL reservation exists before booking', 1);
2525: END IF;
2526: return;
2527: end if;
2528:
2529: if lFloCount > 0 then
2530: x_ResultStatus := TRUE;
2531: x_return_status := FND_API.G_RET_STS_SUCCESS;
2532: IF PG_DEBUG <> 0 THEN
2533: oe_debug_pub.add ('check_rsv_exists: ' || 'FLOW reservation exists before booking', 1);
2534: END IF;
2535: else
2536: x_ResultStatus := FALSE;
2537: x_return_status := FND_API.G_RET_STS_SUCCESS;
2535: else
2536: x_ResultStatus := FALSE;
2537: x_return_status := FND_API.G_RET_STS_SUCCESS;
2538: IF PG_DEBUG <> 0 THEN
2539: oe_debug_pub.add ('check_rsv_exists: ' || 'NO reservations before booking, this is not an error', 1);
2540: END IF;
2541: end if;
2542:
2543: EXCEPTION
2545: when no_data_found then
2546: x_ResultStatus := FALSE;
2547: x_return_status := FND_API.G_RET_STS_SUCCESS;
2548: IF PG_DEBUG <> 0 THEN
2549: oe_debug_pub.add ('check_rsv_exists: ' || 'no reservations before booking, this is not an error', 1);
2550: END IF;
2551:
2552: when others then
2553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2551:
2552: when others then
2553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2554: IF PG_DEBUG <> 0 THEN
2555: oe_debug_pub.add ('check_rsv_exists: ' || 'unexpected error in called program check_inv_rsv_exists'|| sqlerrm , 1);
2556: END IF;
2557: if fnd_msg_pub.check_msg_level
2558: (fnd_msg_pub.g_msg_lvl_unexp_error)
2559: then
2605: UNEXP_ERROR EXCEPTION;
2606: BEGIN
2607: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2608: IF PG_DEBUG <> 0 THEN
2609: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO Activity: Check Reservation', 1);
2610: END IF;
2611:
2612: if (p_funcmode = 'RUN') then
2613:
2634: +------------------------------------*/
2635:
2636: l_stmt_num := 110;
2637: IF PG_DEBUG <> 0 THEN
2638: oe_debug_pub.add('check_reservation_status_wf: ' || 'Check For Config BOM ', 1);
2639: END IF;
2640:
2641: l_status := CTO_CONFIG_BOM_PK.check_bom(pItemId => l_config_item_id,
2642: pOrgId => l_mfg_org_id,
2643: xBillId => l_x_bill_seq_id);
2644:
2645: IF (l_status = 1) THEN
2646: IF PG_DEBUG <> 0 THEN
2647: oe_debug_pub.add('check_reservation_status_wf: ' || 'Config Data Created.', 1);
2648: END IF;
2649: x_result := 'COMPLETE:CREATED';
2650: l_flow_status_code := 'BOM_AND_RTG_CREATED';
2651:
2652: ELSE
2653:
2654: l_stmt_num := 130;
2655: IF PG_DEBUG <> 0 THEN
2656: oe_debug_pub.add('check_reservation_status_wf: ' || 'Config Data Not Created.',1);
2657: END IF;
2658: x_result := 'COMPLETE';
2659: l_flow_status_code := 'ITEM_CREATED';
2660:
2667: --
2668:
2669: l_stmt_num := 140;
2670: IF PG_DEBUG <> 0 THEN
2671: oe_debug_pub.add('check_reservation_status_wf: ' || 'Calling flow status API ',1);
2672: END IF;
2673: OE_Order_WF_Util.Update_Flow_Status_Code(
2674: p_header_id => l_header_id,
2675: p_line_id => to_number(p_itemkey),
2676: p_flow_status_code => l_flow_status_code,
2677: x_return_status => l_return_status);
2678:
2679: IF PG_DEBUG <> 0 THEN
2680: oe_debug_pub.add('check_reservation_status_wf: ' || 'Return from flow status API '
2681: ||l_return_status,1);
2682: END IF;
2683:
2684: end if; /* p_funcmode = 'RUN' */
2688:
2689: EXCEPTION
2690: when NO_DATA_FOUND then
2691: IF PG_DEBUG <> 0 THEN
2692: oe_debug_pub.add('check_reservation_status_wf: ' || 'Configuration Line Not Reserved.', 1);
2693: END IF;
2694: OE_STANDARD_WF.Save_Messages;
2695: OE_STANDARD_WF.Clear_Msg_Context;
2696: x_result := 'COMPLETE';
2696: x_result := 'COMPLETE';
2697:
2698: when PROCESS_ERROR then
2699: IF PG_DEBUG <> 0 THEN
2700: OE_DEBUG_PUB.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2701: to_char(l_stmt_num) || ':' ||
2702: substrb(sqlerrm, 1, 100));
2703: END IF;
2704: OE_STANDARD_WF.Save_Messages;
2705: OE_STANDARD_WF.Clear_Msg_Context;
2706:
2707: when UNEXP_ERROR then
2708: IF PG_DEBUG <> 0 THEN
2709: OE_DEBUG_PUB.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
2710: to_char(l_stmt_num) || ':' ||
2711: l_return_status);
2712: END IF;
2713: OE_STANDARD_WF.Save_Messages;
2718:
2719: when OTHERS then
2720: cto_msg_pub.cto_message('BOM', 'CTO_CHECK_STATUS_ERROR');
2721: IF PG_DEBUG <> 0 THEN
2722: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2723: to_char(l_stmt_num) || ':' ||
2724: substrb(sqlerrm, 1, 100));
2725: END IF;
2726: /*-------------------------------------------+
2756:
2757: BEGIN
2758: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2759: IF PG_DEBUG <> 0 THEN
2760: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO Activity: Calculate Cost Rollup', 1);
2761: END IF;
2762:
2763: if (p_funcmode = 'RUN') then
2764:
2769: from oe_order_lines_all oel
2770: where oel.line_id = to_number(p_itemkey);
2771:
2772: IF PG_DEBUG <> 0 THEN
2773: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Cost rollup::top_ato_line_id::'||to_char(l_top_ato_line_id));
2774: END IF;
2775:
2776: l_stmt_num := 140;
2777: l_status := CTO_CONFIG_COST_PK.cost_rollup_ml(
2780: x_msg_data => l_x_msg_data);
2781:
2782: if (l_status = 0) then
2783: IF PG_DEBUG <> 0 THEN
2784: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Failure in cost_rollup ', 1);
2785: END IF;
2786: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2787: raise UNEXP_ERROR;
2788: else
2786: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2787: raise UNEXP_ERROR;
2788: else
2789: IF PG_DEBUG <> 0 THEN
2790: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Success in cost_rollup ', 1);
2791: END IF;
2792: end if;
2793:
2794: x_result := 'COMPLETE';
2800:
2801: EXCEPTION
2802: when UNEXP_ERROR then
2803: IF PG_DEBUG <> 0 THEN
2804: OE_DEBUG_PUB.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf' ||
2805: to_char(l_stmt_num) || ':' ||
2806: l_x_msg_data);
2807: END IF;
2808: OE_STANDARD_WF.Save_Messages;
2812: raise;
2813:
2814: when NO_DATA_FOUND then
2815: IF PG_DEBUG <> 0 THEN
2816: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2817: to_char(l_stmt_num) || ':' ||
2818: substrb(sqlerrm, 1, 100),1);
2819: END IF;
2820: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2823:
2824: when OTHERS then
2825: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2826: IF PG_DEBUG <> 0 THEN
2827: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2828: to_char(l_stmt_num) || ':' ||
2829: substrb(sqlerrm, 1, 100),1);
2830: END IF;
2831: wf_core.context('CTO_WORKFLOW', 'calculate_cost_rollup_wf',
2882: BEGIN
2883:
2884: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2885: IF PG_DEBUG <> 0 THEN
2886: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO Activity: Set Parameter lead Time', 1);
2887: END IF;
2888:
2889: if (p_funcmode = 'RUN') then
2890:
2911: wf_engine.SetItemAttrText(p_itemtype, p_itemkey,
2912: 'LEAD_TIME_ROLLUP_ORG', to_char(lAtoLineId));
2913:
2914: IF PG_DEBUG <> 0 THEN
2915: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'Line ID: ' || p_itemkey, 1);
2916:
2917: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'ATO Line ID: ' || to_char(lAtoLineId), 1);
2918: END IF;
2919:
2913:
2914: IF PG_DEBUG <> 0 THEN
2915: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'Line ID: ' || p_itemkey, 1);
2916:
2917: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'ATO Line ID: ' || to_char(lAtoLineId), 1);
2918: END IF;
2919:
2920: x_result := 'COMPLETE';
2921: end if; /* p_funcmode = 'RUN' */
2926: EXCEPTION
2927:
2928: when UNEXP_ERROR then
2929: IF PG_DEBUG <> 0 THEN
2930: OE_DEBUG_PUB.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml' ||
2931: to_char(l_stmt_num) || ':' ||
2932: l_x_error_msg);
2933: END IF;
2934: OE_STANDARD_WF.Save_Messages;
2938: raise;
2939:
2940: when NO_DATA_FOUND then
2941: IF PG_DEBUG <> 0 THEN
2942: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2943: || to_char(l_stmt_num) || ':' ||
2944: substrb(sqlerrm, 1, 100),1);
2945: END IF;
2946: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2949:
2950: when OTHERS then
2951: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2952: IF PG_DEBUG <> 0 THEN
2953: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2954: || to_char(l_stmt_num) || ':' ||
2955: substrb(sqlerrm, 1, 100),1);
2956: END IF;
2957: wf_core.context('CTO_WORKFLOW', 'set_parameter_lead_time_wf_ml',
3018: v_x_error_msg VARCHAR2(150);
3019: BEGIN
3020: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3021: IF PG_DEBUG <> 0 THEN
3022: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3023:
3024: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3025:
3026: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3020: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3021: IF PG_DEBUG <> 0 THEN
3022: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3023:
3024: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3025:
3026: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3027: END IF;
3028:
3022: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3023:
3024: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3025:
3026: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3027: END IF;
3028:
3029: if (p_funcmode = 'RUN') then
3030: l_stmt_num := 100;
3039: from oe_order_lines_all
3040: where line_id = to_number(p_itemkey)
3041: and ato_line_id is not null;
3042: IF PG_DEBUG <> 0 THEN
3043: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3044:
3045: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3046:
3047: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3041: and ato_line_id is not null;
3042: IF PG_DEBUG <> 0 THEN
3043: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3044:
3045: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3046:
3047: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3048: END IF;
3049: EXCEPTION
3043: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3044:
3045: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3046:
3047: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3048: END IF;
3049: EXCEPTION
3050: WHEN NO_DATA_FOUND THEN
3051: Null;
3069: x_msg_data => v_x_error_msg);
3070:
3071: IF (v_x_hold_return_status = FND_API.G_RET_STS_ERROR) THEN
3072: IF PG_DEBUG <> 0 THEN
3073: oe_debug_pub.add('Check_supply_type_wf: ' || 'Expected error in Check Hold: ' || v_x_hold_return_status, 1);
3074: END IF;
3075: RAISE FND_API.G_EXC_ERROR;
3076:
3077: ELSIF (v_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3075: RAISE FND_API.G_EXC_ERROR;
3076:
3077: ELSIF (v_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3078: IF PG_DEBUG <> 0 THEN
3079: oe_debug_pub.add('Check_supply_type_wf: ' || 'Unexp error in Check Hold ' || v_x_hold_return_status, 1);
3080: END IF;
3081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3082:
3083: ELSE
3081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3082:
3083: ELSE
3084: IF PG_DEBUG <> 0 THEN
3085: oe_debug_pub.add('Check_supply_type_wf: ' || 'Success in Check Hold ' || v_x_hold_return_status, 5);
3086: END IF;
3087:
3088: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3089: IF PG_DEBUG <> 0 THEN
3086: END IF;
3087:
3088: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3089: IF PG_DEBUG <> 0 THEN
3090: oe_debug_pub.add('Check_supply_type_wf: ' || 'Order Line ID ' || p_itemkey || 'is on HOLD. ' ||v_x_hold_result_out, 1);
3091: END IF;
3092: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
3093: x_result := 'COMPLETE:INCOMPLETE';
3094: return;
3104: IF( l_source_type_code = 'EXTERNAL' )
3105: THEN
3106:
3107: IF PG_DEBUG <> 0 THEN
3108: oe_debug_pub.add('check_supply_type_wf: ' || 'It is Config item Drop Ship case...',1);
3109: END IF;
3110: x_result := 'COMPLETE:DROPSHIP';
3111: OE_STANDARD_WF.Save_Messages;
3112: OE_STANDARD_WF.Clear_Msg_Context;
3140: );
3141:
3142: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3143: IF PG_DEBUG <> 0 THEN
3144: oe_debug_pub.add('check_supply_type_wf: ' ||
3145: 'Expected Error in check_cto_can_create_supply.',1);
3146: END IF;
3147: raise FND_API.G_EXC_ERROR;
3148:
3147: raise FND_API.G_EXC_ERROR;
3148:
3149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3150: IF PG_DEBUG <> 0 THEN
3151: oe_debug_pub.add('check_supply_type_wf: ' ||
3152: 'Unexpected Error in check_cto_can_create_supply.',1);
3153: END IF;
3154: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3155:
3166:
3167: IF l_can_create_supply = 'N' THEN
3168: IF PG_DEBUG <> 0 THEN
3169:
3170: oe_debug_pub.add('check_supply_type_wf: ' ||l_message,1);
3171:
3172: END IF;
3173: x_result := 'COMPLETE:PLANNING';
3174:
3175: l_stmt_num := 220;
3176:
3177: --start bugfix 4556596
3178: IF PG_DEBUG <> 0 THEN
3179: oe_debug_pub.add('check_supply_type_wf: ' ||'calling display_wf_status with status',1);
3180: END IF;
3181:
3182: l_ret_stat :=CTO_WORKFLOW_API_PK.display_wf_status
3183: (p_order_line_id=>p_itemkey
3183: (p_order_line_id=>p_itemkey
3184: );
3185:
3186: IF l_ret_stat = 1 THEN
3187: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status success',1);
3188: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status success.');
3189:
3190: Elsif l_ret_stat = 0 THEN
3191:
3190: Elsif l_ret_stat = 0 THEN
3191:
3192: IF PG_DEBUG <> 0 THEN
3193:
3194: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status failed',1);
3195: oe_debug_pub.add('check_supply_type_wf: ' ||'l_ret_stat=> '||l_ret_stat,1);
3196:
3197: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status failed.');
3198: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'l_ret_stat=> '||l_ret_stat);
3191:
3192: IF PG_DEBUG <> 0 THEN
3193:
3194: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status failed',1);
3195: oe_debug_pub.add('check_supply_type_wf: ' ||'l_ret_stat=> '||l_ret_stat,1);
3196:
3197: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status failed.');
3198: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'l_ret_stat=> '||l_ret_stat);
3199:
3218:
3219: IF p_source_type in (1, 3) THEN /* ATO Buy and IR cases */
3220: IF PG_DEBUG <> 0 THEN
3221: if p_source_type = 3 then
3222: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO Buy case...',1);
3223: else
3224: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO internal transfer case...',1);
3225: end if;
3226: END IF;
3220: IF PG_DEBUG <> 0 THEN
3221: if p_source_type = 3 then
3222: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO Buy case...',1);
3223: else
3224: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO internal transfer case...',1);
3225: end if;
3226: END IF;
3227: x_result := 'COMPLETE:BUY';
3228: OE_STANDARD_WF.Save_Messages;
3246:
3247: if (l_supply_type = 1) then
3248: -- Flow Schedule
3249: IF PG_DEBUG <> 0 THEN
3250: oe_debug_pub.add('check_supply_type_wf: ' || 'Routing Type is Flow Schedule. ' ||
3251: to_char (l_supply_type),1);
3252: END IF;
3253: x_result := 'COMPLETE:FLOW_SCHEDULE';
3254: else
3253: x_result := 'COMPLETE:FLOW_SCHEDULE';
3254: else
3255: -- Discrete Job
3256: IF PG_DEBUG <> 0 THEN
3257: oe_debug_pub.add('check_supply_type_wf: ' || 'Routing Type is Discrete Job or No Routing. ' ||
3258: to_char (l_supply_type),1);
3259: END IF;
3260: x_result := 'COMPLETE:WORK_ORDER';
3261: end if;
3260: x_result := 'COMPLETE:WORK_ORDER';
3261: end if;
3262:
3263: IF PG_DEBUG <> 0 THEN
3264: oe_debug_pub.add('check_supply_type_wf: ' || 'Success in Check Supply Type', 1);
3265: END IF;
3266:
3267: end if; /* end p_funcmode = 'RUN'*/
3268: OE_STANDARD_WF.Save_Messages;
3271: EXCEPTION
3272:
3273: when FND_API.G_EXC_ERROR then
3274: IF PG_DEBUG <> 0 THEN
3275: OE_DEBUG_PUB.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf ' ||
3276: to_char(l_stmt_num));
3277: END IF;
3278: OE_STANDARD_WF.Save_Messages;
3279: OE_STANDARD_WF.Clear_Msg_Context;
3281:
3282:
3283: when FND_API.G_EXC_UNEXPECTED_ERROR then
3284: IF PG_DEBUG <> 0 THEN
3285: OE_DEBUG_PUB.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf ' ||
3286: to_char(l_stmt_num));
3287: END IF;
3288: OE_STANDARD_WF.Save_Messages;
3289: OE_STANDARD_WF.Clear_Msg_Context;
3292: raise;
3293:
3294: when OTHERS then
3295: IF PG_DEBUG <> 0 THEN
3296: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf' ||
3297: to_char(l_stmt_num)||':'||sqlerrm); --bugfix 3136206
3298: END IF;
3299: wf_core.context('CTO_WORKFLOW', 'check_supply_type_wf',
3300: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
3347: SAVEPOINT before_process;
3348:
3349: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3350: IF PG_DEBUG <> 0 THEN
3351: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO Activity: Create Flow Schedule', 1);
3352: END IF;
3353:
3354: if (p_funcmode = 'RUN') then
3355: /*----------------------------------------------------------+
3390: and mr.reservation_quantity > 0);
3391:
3392: if (l_quantity <= 0) then
3393: IF PG_DEBUG <> 0 THEN
3394: oe_debug_pub.add('create_flow_schedule_wf: ' || 'l_quantity <= 0', 1);
3395: END IF;
3396: cto_msg_pub.cto_message('BOM','CTO_CREATE_FLOW_SCHED_ERROR');
3397: raise FND_API.G_EXC_ERROR;
3398: end if;
3414: where line_id = to_number(p_itemkey);
3415:
3416: if (trunc(l_sch_ship_date) < trunc(sysdate)) then
3417: IF PG_DEBUG <> 0 THEN
3418: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Schedule ship date '||
3419: to_char(l_sch_ship_date)||',
3420: is earlier than sysdate');
3421: END IF;
3422: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_SCH_DATE');
3434:
3435:
3436: IF (l_x_return_status = FND_API.G_RET_STS_ERROR) THEN
3437: IF PG_DEBUG <> 0 THEN
3438: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Expected error in cto_fs. ', 1);
3439: END IF;
3440: cto_msg_pub.cto_message('BOM', l_msg_name);
3441: raise FND_API.G_EXC_ERROR;
3442:
3441: raise FND_API.G_EXC_ERROR;
3442:
3443: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3444: IF PG_DEBUG <> 0 THEN
3445: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Unexpected error in Create Flow Schedule for line id ' || p_itemkey, 1);
3446: END IF;
3447: cto_msg_pub.cto_message('BOM', l_msg_name);
3448: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3449:
3462:
3463: x_result := 'COMPLETE';
3464: else
3465: IF PG_DEBUG <> 0 THEN
3466: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Flow schedules not created');
3467: END IF;
3468: cto_msg_pub.cto_message('BOM', 'CTO_NO_FLOW_SCHEDULE');
3469: x_result := 'COMPLETE:INCOMPLETE';
3470: return;
3477: EXCEPTION
3478:
3479: when FND_API.G_EXC_ERROR then
3480: IF PG_DEBUG <> 0 THEN
3481: OE_DEBUG_PUB.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf raised exp error in stmt ' ||
3482: to_char(l_stmt_num) || ':' || l_x_error_msg);
3483: END IF;
3484: OE_STANDARD_WF.Save_Messages;
3485: OE_STANDARD_WF.Clear_Msg_Context;
3488: return;
3489:
3490: when NO_DATA_FOUND then
3491: IF PG_DEBUG <> 0 THEN
3492: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3493: || to_char(l_stmt_num) || ':' ||
3494: substrb(sqlerrm, 1, 100),1);
3495: END IF;
3496: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3501: return;
3502:
3503: when FND_API.G_EXC_UNEXPECTED_ERROR then
3504: IF PG_DEBUG <> 0 THEN
3505: OE_DEBUG_PUB.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf raised unexp error in stmt ' ||
3506: to_char(l_stmt_num) || ':' || l_x_error_msg);
3507: END IF;
3508: OE_STANDARD_WF.Save_Messages;
3509: OE_STANDARD_WF.Clear_Msg_Context;
3511:
3512: when OTHERS then
3513: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3514: IF PG_DEBUG <> 0 THEN
3515: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3516: || to_char(l_stmt_num) || ':' ||
3517: substrb(sqlerrm, 1, 250),1);
3518: END IF;
3519: wf_core.context('CTO_WORKFLOW', 'create_flow_schedule_wf',
3564: AND nvl(oel.program_id, 0) <> -99;
3565:
3566: COMMIT;
3567: IF PG_DEBUG <> 0 THEN
3568: oe_debug_pub.add ('lock_line_id: ' || 'committed program_id with -99');
3569: END IF;
3570:
3571: EXCEPTION
3572: when no_data_found then
3573: null;
3574:
3575: when record_locked then
3576: IF PG_DEBUG <> 0 THEN
3577: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Could not lock line id '|| p_line_id ||' for update.');
3578:
3579: OE_DEBUG_PUB.add ('lock_line_id: ' || 'This line is being processed by another process.');
3580: END IF;
3581: x_result := 'COMPLETE:INCOMPLETE';
3575: when record_locked then
3576: IF PG_DEBUG <> 0 THEN
3577: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Could not lock line id '|| p_line_id ||' for update.');
3578:
3579: OE_DEBUG_PUB.add ('lock_line_id: ' || 'This line is being processed by another process.');
3580: END IF;
3581: x_result := 'COMPLETE:INCOMPLETE';
3582:
3583: when others then
3581: x_result := 'COMPLETE:INCOMPLETE';
3582:
3583: when others then
3584: IF PG_DEBUG <> 0 THEN
3585: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Unexpected Error : '||sqlerrm);
3586: END IF;
3587: x_result := 'COMPLETE:INCOMPLETE';
3588:
3589: END Lock_Line_Id;
3614:
3615: IF (sql%rowcount > 0) THEN
3616: COMMIT;
3617: IF (PG_DEBUG <> 0) THEN
3618: oe_debug_pub.add ('unlock_line_id: ' || 'unlocked line_id '||p_line_id);
3619: END IF;
3620: END IF;
3621:
3622: EXCEPTION
3622: EXCEPTION
3623:
3624: when others then
3625: IF PG_DEBUG <> 0 THEN
3626: OE_DEBUG_PUB.add ('unlock_line_id: error: ' || sqlerrm);
3627:
3628: END IF;
3629: x_result := 'COMPLETE:INCOMPLETE';
3630:
3688:
3689: savepoint before_process;
3690:
3691: IF PG_DEBUG <> 0 THEN
3692: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Function Mode: ' || p_funcmode, 1);
3693:
3694: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO Activity: Set Parameter Work Order', 1);
3695: END IF;
3696: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3690:
3691: IF PG_DEBUG <> 0 THEN
3692: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Function Mode: ' || p_funcmode, 1);
3693:
3694: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO Activity: Set Parameter Work Order', 1);
3695: END IF;
3696: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3697:
3698: if (p_funcmode = 'RUN') then
3788:
3789:
3790: if (l_quantity <= 0) then
3791: IF PG_DEBUG <> 0 THEN
3792: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Ordered quantity is zero.', 1);
3793: END IF;
3794: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3795: raise FND_API.G_EXC_ERROR;
3796: end if;
3802: -- node
3803: -- Removed as part of bug fix 5261330
3804: -- wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3805: -- 'AFAS_ORG_ID',l_mfg_org_id);
3806: -- oe_debug_pub.add('mfg_org_id: ' || to_char(l_mfg_org_id),1);
3807:
3808: wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3809: 'AFAS_LINE_ID', l_afas_line_id);
3810: IF PG_DEBUG <> 0 THEN
3807:
3808: wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3809: 'AFAS_LINE_ID', l_afas_line_id);
3810: IF PG_DEBUG <> 0 THEN
3811: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'order_line_id: ' || p_itemkey,1);
3812:
3813: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'l_afas_line_id: ' || l_afas_line_id);
3814: END IF;
3815:
3809: 'AFAS_LINE_ID', l_afas_line_id);
3810: IF PG_DEBUG <> 0 THEN
3811: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'order_line_id: ' || p_itemkey,1);
3812:
3813: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'l_afas_line_id: ' || l_afas_line_id);
3814: END IF;
3815:
3816: x_result := 'COMPLETE';
3817: end if; /* p_funcmode = 'RUN' */
3827:
3828: when record_locked then
3829: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_LOCKED');
3830: IF PG_DEBUG <> 0 THEN
3831: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3832: p_itemkey ||' for update.');
3833:
3834: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'This line is being processed by another process.');
3835: END IF;
3830: IF PG_DEBUG <> 0 THEN
3831: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3832: p_itemkey ||' for update.');
3833:
3834: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'This line is being processed by another process.');
3835: END IF;
3836:
3837: OE_STANDARD_WF.Save_Messages;
3838: OE_STANDARD_WF.Clear_Msg_Context;
3842:
3843: when FND_API.G_EXC_ERROR then
3844: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3845: IF PG_DEBUG <> 0 THEN
3846: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised exc error. ' ||
3847: to_char(l_stmt_num) );
3848: END IF;
3849: OE_STANDARD_WF.Save_Messages;
3850: OE_STANDARD_WF.Clear_Msg_Context;
3856: when FND_API.G_EXC_UNEXPECTED_ERROR then
3857: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3858: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3859: IF PG_DEBUG <> 0 THEN
3860: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised unexc error. ' ||
3861: to_char(l_stmt_num) );
3862: END IF;
3863: OE_STANDARD_WF.Save_Messages;
3864: OE_STANDARD_WF.Clear_Msg_Context;
3888: IF l_build_in_wip = 'N' THEN
3889: --set the build in wip flag
3890: cto_msg_pub.cto_message('BOM', 'CTO_BUILD_IN_WIP_FLAG');
3891: IF PG_DEBUG <> 0 THEN
3892: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf:'
3893: ||'ERROR : Buld_in_wip_flag needs to be checked',1 );
3894: END IF;
3895:
3896: ELSE--no_data_found is for someother reason
3896: ELSE--no_data_found is for someother reason
3897:
3898: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3899: IF PG_DEBUG <> 0 THEN
3900: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf'
3901: || to_char(l_stmt_num) || ':' ||
3902: substrb(sqlerrm, 1, 100),1);
3903: END IF;
3904: END IF;
3916: when OTHERS then
3917: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3918: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3919: IF PG_DEBUG <> 0 THEN
3920: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: '
3921: || to_char(l_stmt_num) || ':' ||
3922: substrb(sqlerrm, 1, 100));
3923: END IF;
3924: wf_core.context('CTO_WORKFLOW', 'set_parameter_work_order_wf',
3958: BEGIN
3959:
3960: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3961: IF PG_DEBUG <> 0 THEN
3962: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3963: END IF;
3964:
3965: if (p_funcmode = 'RUN') then
3966:
3979: l_req_id := wf_engine.GetItemAttrNumber(p_itemtype, p_itemkey,
3980: 'LEAD_TIME_REQUEST_ID');
3981:
3982: IF PG_DEBUG <> 0 THEN
3983: oe_debug_pub.add('submit_conc_prog_wf: ' || 'Request ID: ' || to_char(l_req_id), 1);
3984: END IF;
3985:
3986: l_token(1).token_name := 'REQUEST_ID';
3987: l_token(1).token_value := l_req_id;
3985:
3986: l_token(1).token_name := 'REQUEST_ID';
3987: l_token(1).token_value := l_req_id;
3988:
3989: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
3990: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
3991:
3992: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
3993: --fnd_message.set_token('REQUEST_ID', l_req_id);
3986: l_token(1).token_name := 'REQUEST_ID';
3987: l_token(1).token_value := l_req_id;
3988:
3989: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
3990: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
3991:
3992: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
3993: --fnd_message.set_token('REQUEST_ID', l_req_id);
3994:
4002: EXCEPTION
4003:
4004: when NO_DATA_FOUND then
4005: IF PG_DEBUG <> 0 THEN
4006: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4007: || to_char(l_stmt_num) || ':' ||
4008: substrb(sqlerrm, 1, 100));
4009: END IF;
4010: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4013: raise;
4014:
4015: when OTHERS then
4016: IF PG_DEBUG <> 0 THEN
4017: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4018: || to_char(l_stmt_num) || ':' ||
4019: substrb(sqlerrm, 1, 100));
4020: END IF;
4021: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4057: BEGIN
4058:
4059: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4060: IF PG_DEBUG <> 0 THEN
4061: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
4062: END IF;
4063:
4064: if (p_funcmode = 'RUN') then
4065:
4071: p_activity_name => 'EXECLEADTIME',
4072: p_activity_status => l_activity_status);
4073:
4074: IF PG_DEBUG <> 0 THEN
4075: oe_debug_pub.add('submit_and_continue_wf: ' || 'EXECLEADTIME activity status:'||l_activity_status,1);
4076: END IF;
4077:
4078: IF l_activity_status = 'ACTIVE' THEN
4079: l_conc_msg := 1;
4077:
4078: IF l_activity_status = 'ACTIVE' THEN
4079: l_conc_msg := 1;
4080: IF PG_DEBUG <> 0 THEN
4081: oe_debug_pub.add('submit_and_continue_wf: ' || 'Show message for Lead Time conc program',1);
4082: END IF;
4083: ELSE
4084: CTO_WORKFLOW_API_PK.query_wf_activity_status(
4085: p_itemtype => p_itemtype,
4087: p_activity_label => 'EXECUTECONCPROGAFAS',
4088: p_activity_name => 'EXECUTECONCPROGAFAS',
4089: p_activity_status => l_activity_status);
4090: IF PG_DEBUG <> 0 THEN
4091: oe_debug_pub.add('submit_and_continue_wf: ' || 'EXECUTECONCPROGAFAS activity status:'||l_activity_status,1);
4092: END IF;
4093: IF l_activity_status = 'ACTIVE' THEN
4094: l_conc_msg := 2;
4095: IF PG_DEBUG <> 0 THEN
4092: END IF;
4093: IF l_activity_status = 'ACTIVE' THEN
4094: l_conc_msg := 2;
4095: IF PG_DEBUG <> 0 THEN
4096: oe_debug_pub.add('submit_and_continue_wf: ' || 'Show message for AFAS conc program',1);
4097: END IF;
4098: ELSE
4099: l_conc_msg := 1;
4100: END IF;
4115: l_req_id := wf_engine.GetItemAttrNumber(p_itemtype, p_itemkey,
4116: 'LEAD_TIME_REQUEST_ID');
4117:
4118: IF PG_DEBUG <> 0 THEN
4119: oe_debug_pub.add('submit_and_continue_wf: ' || 'Request ID: ' || to_char(l_req_id), 1);
4120: END IF;
4121:
4122: l_token(1).token_name := 'REQUEST_ID';
4123: l_token(1).token_value := l_req_id;
4121:
4122: l_token(1).token_name := 'REQUEST_ID';
4123: l_token(1).token_value := l_req_id;
4124:
4125: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4126: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4127: IF l_conc_msg = 2 THEN
4128: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4129: ELSE
4122: l_token(1).token_name := 'REQUEST_ID';
4123: l_token(1).token_value := l_req_id;
4124:
4125: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4126: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4127: IF l_conc_msg = 2 THEN
4128: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4129: ELSE
4130: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4142: EXCEPTION
4143:
4144: when NO_DATA_FOUND then
4145: IF PG_DEBUG <> 0 THEN
4146: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4147: || to_char(l_stmt_num) || ':' ||
4148: substrb(sqlerrm, 1, 100));
4149: END IF;
4150: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4153: raise;
4154:
4155: when OTHERS then
4156: IF PG_DEBUG <> 0 THEN
4157: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4158: || to_char(l_stmt_num) || ':' ||
4159: substrb(sqlerrm, 1, 100));
4160: END IF;
4161: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4464: and oel.inventory_item_id = wfs.primary_item_id
4465: and rownum = 1;
4466:
4467: IF PG_DEBUG <> 0 THEN
4468: oe_debug_pub.add ('flow_sch_exists: ' || 'Flow Schedule Exists!', 1);
4469: END IF;
4470: return TRUE; -- Flow Schedule exists
4471:
4472: exception
4472: exception
4473: when no_data_found then
4474:
4475: IF PG_DEBUG <> 0 THEN
4476: oe_debug_pub.add ('flow_sch_exists: ' || 'Flow Schedules does not exist ', 1);
4477: END IF;
4478: return FALSE; -- Flow Schedule does not exist
4479:
4480: when others then
4503: BEGIN
4504:
4505: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4506: IF PG_DEBUG <> 0 THEN
4507: oe_debug_pub.add('Purchase_price_calc_wf: ' || 'CTO Activity: Purchase Price Calc wf.',1);
4508: END IF;
4509:
4510: select ato_line_id
4511: into l_ato_line_id
4526: x_msg_data => xmsgdata);
4527:
4528: if xreturnstatus = FND_API.G_RET_STS_ERROR then
4529: IF PG_DEBUG <> 0 THEN
4530: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed in Create_purchasing_doc call...',1);
4531: END IF;
4532: -- raise FND_API.G_EXC_ERROR;
4533: elsif xreturnstatus = FND_API.G_RET_STS_UNEXP_ERROR then
4534: IF PG_DEBUG <> 0 THEN
4531: END IF;
4532: -- raise FND_API.G_EXC_ERROR;
4533: elsif xreturnstatus = FND_API.G_RET_STS_UNEXP_ERROR then
4534: IF PG_DEBUG <> 0 THEN
4535: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed in Create_purchasing_doc call...',1);
4536: END IF;
4537: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
4538: end if;
4539: */
4537: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
4538: end if;
4539: */
4540:
4541: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed to call Create_purchasing_doc call...',1);
4542:
4543:
4544: end if;
4545: OE_STANDARD_WF.Save_Messages;
4546: OE_STANDARD_WF.Clear_Msg_Context;
4547:
4548: Exception when OTHERS then
4549: IF PG_DEBUG <> 0 THEN
4550: oe_debug_pub.add('Purchase_price_calc_wf: ' || 'CTO_WORKFLOW.Purchase_Price_calc_wf: '
4551: || to_char(l_stmt_num) || ':' ||
4552: substrb(sqlerrm, 1, 100));
4553: END IF;
4554: wf_core.context('CTO_WORKFLOW', 'Purchase_Price_calc_wf',
4597:
4598: BEGIN
4599: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4600: IF PG_DEBUG <> 0 THEN
4601: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'CTO Activity: Check Reservation after afas activity ', 1);
4602: END IF;
4603:
4604: IF (p_funcmode = 'RUN') then
4605:
4626:
4627: EXCEPTION
4628: when FND_API.G_EXC_ERROR then
4629: IF PG_DEBUG <> 0 THEN
4630: OE_DEBUG_PUB.add('chk_rsv_after_afas_wf: ' || 'CTO_WORKFLOW.chk_rsv_after_afas_wf' || to_char(l_stmt_num) );
4631: END IF;
4632: OE_STANDARD_WF.Save_Messages;
4633: OE_STANDARD_WF.Clear_Msg_Context;
4634: raise; -- can be re-tried
4641: );
4642: end if;
4643:
4644: IF PG_DEBUG <> 0 THEN
4645: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'corresponds to unexpected error at called program chk_rsv_after_afas_wf '||'
4646: l_stmt_num :'|| l_stmt_num ||sqlerrm, 1);
4647: END IF;
4648: OE_STANDARD_WF.Save_Messages;
4649: OE_STANDARD_WF.Clear_Msg_Context;
4657: ,'chk_rsv_after_afas_wf'
4658: );
4659: end if;
4660: IF PG_DEBUG <> 0 THEN
4661: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'error at chk_rsv_after_afas_wf' || to_char(l_stmt_num)|| sqlerrm);
4662: END IF;
4663: /*-------------------------------------------+
4664: Error Information for Notification.
4665: +--------------------------------------------*/
4706: BEGIN
4707:
4708: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4709: IF PG_DEBUG <> 0 THEN
4710: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4711:
4712: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4713:
4714: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4708: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4709: IF PG_DEBUG <> 0 THEN
4710: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4711:
4712: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4713:
4714: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4715: END IF;
4716:
4710: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4711:
4712: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4713:
4714: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4715: END IF;
4716:
4717: IF (p_funcmode = 'RUN') THEN
4718:
4724: from oe_order_lines_all
4725: where line_id = to_number(p_itemkey)
4726: and ato_line_id is not null;
4727: IF PG_DEBUG <> 0 THEN
4728: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4729:
4730: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4731:
4732: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4726: and ato_line_id is not null;
4727: IF PG_DEBUG <> 0 THEN
4728: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4729:
4730: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4731:
4732: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4733:
4734:
4728: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4729:
4730: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4731:
4732: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4733:
4734:
4735: oe_debug_pub.add('check_supply_creation_wf: ' || 'l_source_type_code ='||l_source_type_code,1);
4736: END IF;
4731:
4732: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4733:
4734:
4735: oe_debug_pub.add('check_supply_creation_wf: ' || 'l_source_type_code ='||l_source_type_code,1);
4736: END IF;
4737:
4738: /*
4739:
4743: IF( l_source_type_code = 'EXTERNAL' )
4744: THEN
4745:
4746: IF PG_DEBUG <> 0 THEN
4747: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Drop Ship case...',1);
4748: END IF;
4749: x_result := 'COMPLETE';
4750: OE_STANDARD_WF.Save_Messages;
4751: OE_STANDARD_WF.Clear_Msg_Context;
4760: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
4761:
4762:
4763: IF PG_DEBUG <> 0 THEN
4764: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4765: ||return_value ,5);
4766: END IF;
4767:
4768: if return_value <> 1 then
4766: END IF;
4767:
4768: if return_value <> 1 then
4769: IF PG_DEBUG <> 0 THEN
4770: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4771: ||return_value ,1);
4772: END IF;
4773: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4774: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4799: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4800: IF l_can_create_supply = 'N' THEN
4801:
4802: IF PG_DEBUG <> 0 THEN
4803: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Planning case...',1);
4804: oe_debug_pub.add('check_supply_creation_wf: ' || l_message,1);
4805: END IF;
4806:
4807: l_stmt_num:=40;
4800: IF l_can_create_supply = 'N' THEN
4801:
4802: IF PG_DEBUG <> 0 THEN
4803: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Planning case...',1);
4804: oe_debug_pub.add('check_supply_creation_wf: ' || l_message,1);
4805: END IF;
4806:
4807: l_stmt_num:=40;
4808: x_result := 'COMPLETE:PLANNING';
4807: l_stmt_num:=40;
4808: x_result := 'COMPLETE:PLANNING';
4809:
4810: IF PG_DEBUG <> 0 THEN
4811: oe_debug_pub.add('check_supply_creation_wf: ' || 'wrkflow result code'
4812: ||x_result ,5);
4813: END IF;
4814:
4815:
4819: l_stmt_num:=60;
4820: x_result := 'COMPLETE';
4821:
4822: IF PG_DEBUG <> 0 THEN
4823: oe_debug_pub.add('check_supply_creation_wf: ' || 'wrkflow result code'
4824: ||x_result ,5);
4825: END IF;
4826:
4827: END IF;--l_can_create_supply
4837: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
4838:
4839:
4840: IF PG_DEBUG <> 0 THEN
4841: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4842: ||return_value ,5);
4843: END IF;
4844:
4845: if return_value <> 1 then
4843: END IF;
4844:
4845: if return_value <> 1 then
4846: IF PG_DEBUG <> 0 THEN
4847: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4848: ||return_value ,1);
4849: END IF;
4850: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4851: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4859: EXCEPTION
4860:
4861: when FND_API.G_EXC_ERROR then
4862: IF PG_DEBUG <> 0 THEN
4863: OE_DEBUG_PUB.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf ' ||
4864: to_char(l_stmt_num));
4865: END IF;
4866: OE_STANDARD_WF.Save_Messages;
4867: OE_STANDARD_WF.Clear_Msg_Context;
4872:
4873:
4874: when FND_API.G_EXC_UNEXPECTED_ERROR then
4875: IF PG_DEBUG <> 0 THEN
4876: OE_DEBUG_PUB.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf ' ||
4877: to_char(l_stmt_num));
4878: END IF;
4879: OE_STANDARD_WF.Save_Messages;
4880: OE_STANDARD_WF.Clear_Msg_Context;
4883: raise;
4884:
4885: when OTHERS then
4886: IF PG_DEBUG <> 0 THEN
4887: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf' ||
4888: to_char(l_stmt_num));
4889: oe_debug_pub.add('check_supply_creation_wf: ' || 'errmsg' ||sqlerrm,1);
4890: END IF;
4891: wf_core.context('CTO_WORKFLOW', 'check_supply_creation_wf',
4885: when OTHERS then
4886: IF PG_DEBUG <> 0 THEN
4887: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf' ||
4888: to_char(l_stmt_num));
4889: oe_debug_pub.add('check_supply_creation_wf: ' || 'errmsg' ||sqlerrm,1);
4890: END IF;
4891: wf_core.context('CTO_WORKFLOW', 'check_supply_creation_wf',
4892: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
4893: