[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;
1400: EXCEPTION
1401:
1402: when FND_API.G_EXC_ERROR then
1403: IF PG_DEBUG <> 0 THEN
1404: OE_DEBUG_PUB.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
1405: to_char(l_stmt_num) || ':' ||
1406: l_x_error_msg);
1407: END IF;
1408: fnd_msg_pub.count_and_get(p_data=>x_msg_data,p_count=>x_msg_count);
1412: rollback to savepoint before_item_creation;
1413:
1414: when FND_API.G_EXC_UNEXPECTED_ERROR then
1415: IF PG_DEBUG <> 0 THEN
1416: OE_DEBUG_PUB.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
1417: to_char(l_stmt_num) || ':' ||
1418: l_x_error_msg);
1419: END IF;
1420: OE_STANDARD_WF.Save_Messages;
1425:
1426: when OTHERS then
1427: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1428: IF PG_DEBUG <> 0 THEN
1429: oe_debug_pub.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf' ||
1430: to_char(l_stmt_num) || ':' ||
1431: substrb(sqlerrm, 1, 100));
1432: END IF;
1433: wf_core.context('CTO_WORKFLOW', 'create_config_item_wf',
1547:
1548:
1549:
1550: IF PG_DEBUG <> 0 THEN
1551: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1552:
1553: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1554:
1555: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1549:
1550: IF PG_DEBUG <> 0 THEN
1551: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1552:
1553: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1554:
1555: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1556: ' time fence ' || to_char(l_reservation_time_fence)
1557: , 1 );
1551: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1552:
1553: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' , 1 );
1554:
1555: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1556: ' time fence ' || to_char(l_reservation_time_fence)
1557: , 1 );
1558:
1559: oe_debug_pub.add('create_reservation: ' || ' going to check for automatic reservation ' ||
1555: oe_debug_pub.add('create_reservation: ' || ' going to check for reservation ' || to_char(l_diff_days) ||
1556: ' time fence ' || to_char(l_reservation_time_fence)
1557: , 1 );
1558:
1559: oe_debug_pub.add('create_reservation: ' || ' going to check for automatic reservation ' ||
1560: l_automatic_reservation , 1 );
1561: END IF;
1562:
1563: if( l_automatic_reservation = '1' and
1565: )
1566: then
1567:
1568: IF PG_DEBUG <> 0 THEN
1569: oe_debug_pub.add('create_reservation: ' || ' going to attempt reservation ' , 1 );
1570: END IF;
1571:
1572: /*-------------------------------------------------+
1573: Create a quantity tree to get atr for reservation.
1589: , x_tree_id => l_tree_id);
1590:
1591: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1592: IF PG_DEBUG <> 0 THEN
1593: oe_debug_pub.add('create_reservation: ' || 'Failed in create_tree with status: ' ||
1594: l_return_status, 1);
1595: END IF;
1596: raise PROCESS_ERROR;
1597: ELSE
1595: END IF;
1596: raise PROCESS_ERROR;
1597: ELSE
1598: IF PG_DEBUG <> 0 THEN
1599: oe_debug_pub.add('create_reservation: ' || 'Success in create_tree.',1);
1600:
1601: oe_debug_pub.add('create_reservation: ' || 'Tree ID:' || to_char(l_tree_id),1);
1602: END IF;
1603: END IF;
1597: ELSE
1598: IF PG_DEBUG <> 0 THEN
1599: oe_debug_pub.add('create_reservation: ' || 'Success in create_tree.',1);
1600:
1601: oe_debug_pub.add('create_reservation: ' || 'Tree ID:' || to_char(l_tree_id),1);
1602: END IF;
1603: END IF;
1604:
1605: /*-----------------------------------------------------+
1614: fetch c_subinv into l_subinventory_code;
1615: close c_subinv;
1616:
1617: IF PG_DEBUG <> 0 THEN
1618: oe_debug_pub.add('create_reservation: ' || 'Subinventory Code:' || l_subinventory_code,1);
1619: END IF;
1620:
1621: l_stmt_num := 165;
1622: INV_QUANTITY_TREE_GRP.query_tree
1639: x_atr => x_available_qty);
1640:
1641: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1642: IF PG_DEBUG <> 0 THEN
1643: oe_debug_pub.add('create_reservation: ' || 'Failed in create_tree with status: ' ||
1644: l_return_status, 1);
1645: END IF;
1646: raise PROCESS_ERROR;
1647: end if;
1645: END IF;
1646: raise PROCESS_ERROR;
1647: end if;
1648: IF PG_DEBUG <> 0 THEN
1649: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1650:
1651: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1652:
1653: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1647: end if;
1648: IF PG_DEBUG <> 0 THEN
1649: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1650:
1651: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1652:
1653: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1654:
1655: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1649: oe_debug_pub.add('create_reservation: ' || 'Success in query_tree.', 1);
1650:
1651: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1652:
1653: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1654:
1655: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1656:
1657: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1651: oe_debug_pub.add('create_reservation: ' || 'l_x_qoh: ' || to_char(l_x_qoh));
1652:
1653: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1654:
1655: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1656:
1657: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1658: ' mfg_org_id ' || to_char( p_mfg_org_id ) , 1);
1659: END IF;
1653: oe_debug_pub.add('create_reservation: ' || 'l_x_rqoh: ' || to_char(l_x_rqoh));
1654:
1655: oe_debug_pub.add('create_reservation: ' || 'x_available_qty: ' || to_char(x_available_qty));
1656:
1657: oe_debug_pub.add('create_reservation: ' || ' config id ' || to_char(p_config_id ) ||
1658: ' mfg_org_id ' || to_char( p_mfg_org_id ) , 1);
1659: END IF;
1660:
1661: l_stmt_num := 170;
1666: where msi.inventory_item_id = p_config_id
1667: and msi.organization_id = p_mfg_org_id;
1668:
1669: IF PG_DEBUG <> 0 THEN
1670: oe_debug_pub.add('create_reservation: ' || ' pri uom ' || l_primary_uom_code ||
1671: ' res uom ' || p_reservation_uom_code , 1);
1672: END IF;
1673:
1674:
1698: if (x_available_qty > 0 )
1699: then
1700: l_stmt_num := 180;
1701: IF PG_DEBUG <> 0 THEN
1702: oe_debug_pub.add('create_reservation: ' || 'Entering Create Reservation. ',1);
1703:
1704: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1705: || to_char(l_quantity_to_reserve ),1);
1706:
1700: l_stmt_num := 180;
1701: IF PG_DEBUG <> 0 THEN
1702: oe_debug_pub.add('create_reservation: ' || 'Entering Create Reservation. ',1);
1703:
1704: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1705: || to_char(l_quantity_to_reserve ),1);
1706:
1707: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1708: || to_char(x_available_qty),1);
1703:
1704: oe_debug_pub.add('create_reservation: ' || 'Quantity to Rsrv: '
1705: || to_char(l_quantity_to_reserve ),1);
1706:
1707: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1708: || to_char(x_available_qty),1);
1709: END IF;
1710:
1711: if( l_quantity_to_reserve > x_available_qty ) then
1714:
1715: l_partial_reservation := TRUE ;
1716:
1717: IF PG_DEBUG <> 0 THEN
1718: oe_debug_pub.add('create_reservation: ' || 'Going to attempt reservation for' ||
1719: to_char(l_quantity_to_reserve ));
1720: END IF;
1721:
1722:
1724:
1725: l_stmt_num := 185;
1726:
1727: IF PG_DEBUG <> 0 THEN
1728: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1729: END IF;
1730:
1731:
1732: if (CTO_MATCH_AND_RESERVE.create_config_reservation
1740: x_error_msg => l_x_error_msg,
1741: x_error_msg_name => l_x_error_msg_name) = TRUE)
1742: then
1743: IF PG_DEBUG <> 0 THEN
1744: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1745:
1746: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1747:
1748: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1742: then
1743: IF PG_DEBUG <> 0 THEN
1744: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1745:
1746: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1747:
1748: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1749:
1750: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1744: oe_debug_pub.add('create_reservation: ' || 'Success in Create Reservation. ',1);
1745:
1746: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1747:
1748: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1749:
1750: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1751: END IF;
1752:
1746: oe_debug_pub.add('create_reservation: ' || 'Matching Config Item: ' || to_char(p_config_id),1 );
1747:
1748: oe_debug_pub.add ('create_reservation: ' || 'Quantity On-Hand: ' || to_char(x_available_qty),1);
1749:
1750: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1751: END IF;
1752:
1753:
1754: l_stmt_num := 190;
1793:
1794:
1795:
1796: IF PG_DEBUG <> 0 THEN
1797: oe_debug_pub.add('create_reservation: ' || 'CTO_RESERVATION_SUCCESS for ' ||
1798: to_char(l_quantity_to_reserve) ||
1799: ' units for item ' || l_config_item_name ||
1800: ' in org ' || l_organization_name , 1 );
1801: END IF;
1839: x_message_name := 'CTO_RESERVE';
1840:
1841: else
1842: IF PG_DEBUG <> 0 THEN
1843: oe_debug_pub.add('create_reservation: ' || 'Failed in Create Reservation. ',1);
1844: END IF;
1845: cto_msg_pub.cto_message('BOM', l_x_error_msg ); /* BUGFIX#2342412 */
1846: raise RESERVATION_ERROR;
1847: end if;
1856:
1857: l_stmt_num := 210;
1858:
1859: IF PG_DEBUG <> 0 THEN
1860: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1861:
1862: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1863:
1864: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1858:
1859: IF PG_DEBUG <> 0 THEN
1860: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1861:
1862: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1863:
1864: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1865: || to_char(x_available_qty),1);
1866: END IF;
1860: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1861:
1862: oe_debug_pub.add('create_reservation: ' || 'Not Enough Qty to reserve. ',1);
1863:
1864: oe_debug_pub.add('create_reservation: ' || 'Quantity Available to Rsrv: '
1865: || to_char(x_available_qty),1);
1866: END IF;
1867:
1868: x_message_name := 'CTO_CONFIG_LINKED';
1909:
1910:
1911:
1912: IF PG_DEBUG <> 0 THEN
1913: oe_debug_pub.add('create_reservation: ' || 'CTO_RESERVATION_FAILURE for ' || l_config_item_name ||
1914: ' in org ' || l_organization_name , 1 );
1915: END IF;
1916:
1917: l_stmt_num := 225;
1943:
1944: l_stmt_num := 230;
1945:
1946: IF PG_DEBUG <> 0 THEN
1947: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1948:
1949: oe_debug_pub.add('create_reservation: ' || 'No reservation could be attempted for ' ||
1950: l_config_item_name , 1 );
1951: END IF;
1945:
1946: IF PG_DEBUG <> 0 THEN
1947: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1948:
1949: oe_debug_pub.add('create_reservation: ' || 'No reservation could be attempted for ' ||
1950: l_config_item_name , 1 );
1951: END IF;
1952:
1953:
1960:
1961: l_stmt_num := 235;
1962:
1963: IF PG_DEBUG <> 0 THEN
1964: oe_debug_pub.add('create_reservation: ' || 'CTO_CONFIG_MATCH for item ' || l_config_item_name , 1 );
1965: END IF;
1966:
1967: if( p_mode = 'ONLINE' ) then
1968:
1984: end if ; /* check for full match */
1985:
1986:
1987: IF PG_DEBUG <> 0 THEN
1988: oe_debug_pub.add('create_reservation: ' || 'Time Stamp ' || to_char( sysdate , 'dd-mon-yyyy hh24:mi:ss' ));
1989: END IF;
1990:
1991:
1992: EXCEPTION
1992: EXCEPTION
1993: when RESERVATION_ERROR then
1994: --rollback to savepoint before_item_creation;
1995: IF PG_DEBUG <> 0 THEN
1996: OE_DEBUG_PUB.add('create_reservation: ' || 'RESERVATION_ERROR ' , 1 );
1997:
1998: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
1999: END IF;
2000: OE_STANDARD_WF.Save_Messages;
1994: --rollback to savepoint before_item_creation;
1995: IF PG_DEBUG <> 0 THEN
1996: OE_DEBUG_PUB.add('create_reservation: ' || 'RESERVATION_ERROR ' , 1 );
1997:
1998: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
1999: END IF;
2000: OE_STANDARD_WF.Save_Messages;
2001: OE_STANDARD_WF.Clear_Msg_Context;
2002:
2006: when NO_DATA_FOUND then
2007: --rollback to savepoint before_item_creation;
2008: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2009: IF PG_DEBUG <> 0 THEN
2010: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation::ndf::' || to_char(l_stmt_num) );
2011: END IF;
2012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2013:
2014:
2015: when PROCESS_ERROR then
2016: --rollback to savepoint before_item_creation;
2017:
2018: IF PG_DEBUG <> 0 THEN
2019: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' || to_char(l_stmt_num) );
2020: END IF;
2021:
2022: OE_STANDARD_WF.Save_Messages;
2023: OE_STANDARD_WF.Clear_Msg_Context;
2026:
2027: when FND_API.G_EXC_UNEXPECTED_ERROR then
2028: --rollback to savepoint before_item_creation;
2029: IF PG_DEBUG <> 0 THEN
2030: OE_DEBUG_PUB.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation ' ||
2031: to_char(l_stmt_num) || ':' ||
2032: l_x_error_msg);
2033: END IF;
2034: OE_STANDARD_WF.Save_Messages;
2039: when OTHERS then
2040: --rollback to savepoint before_item_creation;
2041: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2042: IF PG_DEBUG <> 0 THEN
2043: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation' ||
2044: to_char(l_stmt_num) || ':' ||
2045: substrb(sqlerrm, 1, 100));
2046: END IF;
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2099: v_aps_version number ;
2100: BEGIN
2101: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2102: IF PG_DEBUG <> 0 THEN
2103: oe_debug_pub.add('rsv_before_booking_wf: ' || 'CTO Activity: Check Reservation before booking activity ', 1);
2104: END IF;
2105:
2106: if (p_funcmode = 'RUN') then
2107:
2131:
2132:
2133: v_aps_version := msc_atp_global.get_aps_version ;
2134:
2135: oe_debug_pub.add('link_config: ' || 'APS version::'|| v_aps_version , 2);
2136:
2137: if( v_aps_version = 10 ) then
2138:
2139:
2136:
2137: if( v_aps_version = 10 ) then
2138:
2139:
2140: oe_debug_pub.add( '*************************CHECKING HOLDS IN CHECK_RESERVATION_BEFORE_BOOKING ACTIVITY************ ' , 1) ;
2141:
2142:
2143:
2144: OE_HOLDS_PUB.Check_Holds (
2154: ,x_msg_data => l_x_error_msg);
2155:
2156: IF (l_x_hold_return_status = FND_API.G_RET_STS_ERROR) THEN
2157: IF PG_DEBUG <> 0 THEN
2158: oe_debug_pub.add('CTOCITMB:Failed in Check Holds with expected error.' ,1);
2159: END IF;
2160: raise FND_API.G_EXC_ERROR;
2161:
2162: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2160: raise FND_API.G_EXC_ERROR;
2161:
2162: ELSIF (l_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2163: IF PG_DEBUG <> 0 THEN
2164: oe_debug_pub.add('CTOCITMB:Failed in Check Holds with unexpected error.' ,1);
2165: END IF;
2166: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2167:
2168: ELSE
2166: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2167:
2168: ELSE
2169: IF PG_DEBUG <> 0 THEN
2170: oe_debug_pub.add('CTOCITMB:Success in Check Holds.' ,1);
2171: END IF;
2172:
2173: if l_x_hold_result_out = FND_API.G_TRUE then
2174: IF PG_DEBUG <> 0 THEN
2171: END IF;
2172:
2173: if l_x_hold_result_out = FND_API.G_TRUE then
2174: IF PG_DEBUG <> 0 THEN
2175: oe_debug_pub.add('CTOCITMB:Create Supply Activity Hold exists on Config Line .' ,1);
2176: END IF;
2177:
2178: l_hold_source_rec.hold_entity_code := 'O';
2179: l_hold_source_rec.hold_id := 61 ;
2197: ,x_msg_data => l_x_error_msg);
2198:
2199: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2200: IF PG_DEBUG <> 0 THEN
2201: oe_debug_pub.add('CTOCITMB:Failed in Release Holds with expected error.' ,1);
2202: END IF;
2203: raise FND_API.G_EXC_ERROR;
2204:
2205: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2203: raise FND_API.G_EXC_ERROR;
2204:
2205: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2206: IF PG_DEBUG <> 0 THEN
2207: oe_debug_pub.add('CTOCITMB:Failed in Release Holds with unexpected error.' ,1);
2208: END IF;
2209: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2210: END IF;
2211:
2209: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2210: END IF;
2211:
2212: IF PG_DEBUG <> 0 THEN
2213: oe_debug_pub.add('CTOCITMB: Hold Released on config line.' ,1);
2214: END IF;
2215:
2216:
2217:
2216:
2217:
2218:
2219: IF PG_DEBUG <> 0 THEN
2220: oe_debug_pub.add('CTOCITMB:Calling OM api to apply hold.' ,1);
2221: END IF;
2222:
2223: l_hold_source_rec.hold_entity_code := 'O';
2224: l_hold_source_rec.hold_id := 55 ;
2234: , x_msg_data => l_msg_data);
2235:
2236: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2237: IF PG_DEBUG <> 0 THEN
2238: oe_debug_pub.add('CTOCITMB:Failed in Apply Holds with expected error.' ,1);
2239: END IF;
2240: raise FND_API.G_EXC_ERROR;
2241:
2242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2240: raise FND_API.G_EXC_ERROR;
2241:
2242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2243: IF PG_DEBUG <> 0 THEN
2244: oe_debug_pub.add('CTOCITMB:Failed in Apply Holds with unexpected error.' ,1);
2245: END IF;
2246: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2247: END IF;
2248:
2246: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2247: END IF;
2248:
2249: IF PG_DEBUG <> 0 THEN
2250: oe_debug_pub.add('CTOCITMB: An Exception Hold applied to config line.' ,1);
2251: END IF;
2252:
2253: else
2254:
2253: else
2254:
2255:
2256: IF PG_DEBUG <> 0 THEN
2257: oe_debug_pub.add('CTOCITMB:Create Supply Activity Hold does not exist on Config Line .' ,1);
2258: END IF;
2259:
2260: end if; /* if activity hold exists */
2261:
2306:
2307: if ((l_ResultStatus=TRUE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2308:
2309: IF PG_DEBUG <> 0 THEN
2310: oe_debug_pub.add('rsv_before_booking_wf: ' || 'Reservation exists, completing flow with reserved', 2);
2311: END IF;
2312: x_result :='COMPLETE:RESERVED';
2313:
2314: --
2324: end if;
2325:
2326: elsif ((l_ResultStatus=FALSE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2327: IF PG_DEBUG <> 0 THEN
2328: oe_debug_pub.add('rsv_before_booking_wf: ' || 'Reservation does not exist, completing flow with complete.', 2);
2329: END IF;
2330: x_result :='COMPLETE';
2331:
2332: elsif(l_return_status=FND_API.G_RET_STS_ERROR) then
2330: x_result :='COMPLETE';
2331:
2332: elsif(l_return_status=FND_API.G_RET_STS_ERROR) then
2333: IF PG_DEBUG <> 0 THEN
2334: oe_debug_pub.add('rsv_before_booking_wf: ' || 'returning from check_rsv_exists with expected error.', 2);
2335: END IF;
2336: RAISE FND_API.G_EXC_ERROR;
2337:
2338: elsif(l_return_status=FND_API.G_RET_STS_UNEXP_ERROR) then
2336: RAISE FND_API.G_EXC_ERROR;
2337:
2338: elsif(l_return_status=FND_API.G_RET_STS_UNEXP_ERROR) then
2339: IF PG_DEBUG <> 0 THEN
2340: oe_debug_pub.add('rsv_before_booking_wf: ' || 'returning from check_rsv_exists with unexpected error.', 2);
2341: END IF;
2342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2343:
2344: end if;
2359:
2360: EXCEPTION
2361: when FND_API.G_EXC_ERROR then
2362: IF PG_DEBUG <> 0 THEN
2363: OE_DEBUG_PUB.add('rsv_before_booking_wf: ' || 'CTO_WORKFLOW.rsv_before_booking_wf ' || to_char(l_stmt_num) );
2364: END IF;
2365: OE_STANDARD_WF.Save_Messages;
2366: OE_STANDARD_WF.Clear_Msg_Context;
2367: raise; -- can be re-tried
2374: );
2375: end if;
2376:
2377: IF PG_DEBUG <> 0 THEN
2378: oe_debug_pub.add('rsv_before_booking_wf: ' || 'corresponds to unexpected error at called program check_inv_rsv_exists '||'
2379: l_stmt_num :'|| l_stmt_num ||sqlerrm, 1);
2380: END IF;
2381: OE_STANDARD_WF.Save_Messages;
2382: OE_STANDARD_WF.Clear_Msg_Context;
2390: ,'rsv_before_booking_wf'
2391: );
2392: end if;
2393: IF PG_DEBUG <> 0 THEN
2394: oe_debug_pub.add('rsv_before_booking_wf: ' || 'error at rsv_before_booking_wf ' || to_char(l_stmt_num)|| sqlerrm);
2395: END IF;
2396: /*-------------------------------------------+
2397: Error Information for Notification.
2398: +--------------------------------------------*/
2454: and supply_source_type_id = INV_RESERVATION_GLOBAL.g_source_type_inv
2455: and rownum = 1;
2456:
2457: IF PG_DEBUG <> 0 THEN
2458: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'found that reservation exists before booking', 1);
2459: END IF;
2460: x_ResultStatus := TRUE;
2461: x_return_status := FND_API.G_RET_STS_SUCCESS;
2462:
2465: when no_data_found then
2466: x_ResultStatus := FALSE;
2467: x_return_status := FND_API.G_RET_STS_SUCCESS;
2468: IF PG_DEBUG <> 0 THEN
2469: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'no reservations before booking, this is not an error', 1);
2470: END IF;
2471:
2472: when others then
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2471:
2472: when others then
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474: IF PG_DEBUG <> 0 THEN
2475: oe_debug_pub.add ('check_inv_rsv_exists: ' || 'unexpected error in called program check_inv_rsv_exists'|| sqlerrm , 1);
2476: END IF;
2477: if fnd_msg_pub.check_msg_level
2478: (fnd_msg_pub.g_msg_lvl_unexp_error)
2479: then
2553: else
2554: x_ResultStatus := TRUE;
2555: x_return_status := FND_API.G_RET_STS_SUCCESS;
2556: IF PG_DEBUG <> 0 THEN
2557: oe_debug_pub.add ('check_rsv_exists: ' || 'MTL reservation exists before booking', 1);
2558: END IF;
2559: return;
2560: end if;
2561:
2562: if lFloCount > 0 then
2563: x_ResultStatus := TRUE;
2564: x_return_status := FND_API.G_RET_STS_SUCCESS;
2565: IF PG_DEBUG <> 0 THEN
2566: oe_debug_pub.add ('check_rsv_exists: ' || 'FLOW reservation exists before booking', 1);
2567: END IF;
2568: else
2569: x_ResultStatus := FALSE;
2570: x_return_status := FND_API.G_RET_STS_SUCCESS;
2568: else
2569: x_ResultStatus := FALSE;
2570: x_return_status := FND_API.G_RET_STS_SUCCESS;
2571: IF PG_DEBUG <> 0 THEN
2572: oe_debug_pub.add ('check_rsv_exists: ' || 'NO reservations before booking, this is not an error', 1);
2573: END IF;
2574: end if;
2575:
2576: EXCEPTION
2578: when no_data_found then
2579: x_ResultStatus := FALSE;
2580: x_return_status := FND_API.G_RET_STS_SUCCESS;
2581: IF PG_DEBUG <> 0 THEN
2582: oe_debug_pub.add ('check_rsv_exists: ' || 'no reservations before booking, this is not an error', 1);
2583: END IF;
2584:
2585: when others then
2586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584:
2585: when others then
2586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2587: IF PG_DEBUG <> 0 THEN
2588: oe_debug_pub.add ('check_rsv_exists: ' || 'unexpected error in called program check_inv_rsv_exists'|| sqlerrm , 1);
2589: END IF;
2590: if fnd_msg_pub.check_msg_level
2591: (fnd_msg_pub.g_msg_lvl_unexp_error)
2592: then
2638: UNEXP_ERROR EXCEPTION;
2639: BEGIN
2640: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2641: IF PG_DEBUG <> 0 THEN
2642: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO Activity: Check Reservation', 1);
2643: END IF;
2644:
2645: if (p_funcmode = 'RUN') then
2646:
2667: +------------------------------------*/
2668:
2669: l_stmt_num := 110;
2670: IF PG_DEBUG <> 0 THEN
2671: oe_debug_pub.add('check_reservation_status_wf: ' || 'Check For Config BOM ', 1);
2672: END IF;
2673:
2674: l_status := CTO_CONFIG_BOM_PK.check_bom(pItemId => l_config_item_id,
2675: pOrgId => l_mfg_org_id,
2676: xBillId => l_x_bill_seq_id);
2677:
2678: IF (l_status = 1) THEN
2679: IF PG_DEBUG <> 0 THEN
2680: oe_debug_pub.add('check_reservation_status_wf: ' || 'Config Data Created.', 1);
2681: END IF;
2682: x_result := 'COMPLETE:CREATED';
2683: l_flow_status_code := 'BOM_AND_RTG_CREATED';
2684:
2685: ELSE
2686:
2687: l_stmt_num := 130;
2688: IF PG_DEBUG <> 0 THEN
2689: oe_debug_pub.add('check_reservation_status_wf: ' || 'Config Data Not Created.',1);
2690: END IF;
2691: x_result := 'COMPLETE';
2692: l_flow_status_code := 'ITEM_CREATED';
2693:
2700: --
2701:
2702: l_stmt_num := 140;
2703: IF PG_DEBUG <> 0 THEN
2704: oe_debug_pub.add('check_reservation_status_wf: ' || 'Calling flow status API ',1);
2705: END IF;
2706: OE_Order_WF_Util.Update_Flow_Status_Code(
2707: p_header_id => l_header_id,
2708: p_line_id => to_number(p_itemkey),
2709: p_flow_status_code => l_flow_status_code,
2710: x_return_status => l_return_status);
2711:
2712: IF PG_DEBUG <> 0 THEN
2713: oe_debug_pub.add('check_reservation_status_wf: ' || 'Return from flow status API '
2714: ||l_return_status,1);
2715: END IF;
2716:
2717: end if; /* p_funcmode = 'RUN' */
2721:
2722: EXCEPTION
2723: when NO_DATA_FOUND then
2724: IF PG_DEBUG <> 0 THEN
2725: oe_debug_pub.add('check_reservation_status_wf: ' || 'Configuration Line Not Reserved.', 1);
2726: END IF;
2727: OE_STANDARD_WF.Save_Messages;
2728: OE_STANDARD_WF.Clear_Msg_Context;
2729: x_result := 'COMPLETE';
2729: x_result := 'COMPLETE';
2730:
2731: when PROCESS_ERROR then
2732: IF PG_DEBUG <> 0 THEN
2733: OE_DEBUG_PUB.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2734: to_char(l_stmt_num) || ':' ||
2735: substrb(sqlerrm, 1, 100));
2736: END IF;
2737: OE_STANDARD_WF.Save_Messages;
2738: OE_STANDARD_WF.Clear_Msg_Context;
2739:
2740: when UNEXP_ERROR then
2741: IF PG_DEBUG <> 0 THEN
2742: OE_DEBUG_PUB.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.create_config_item_wf ' ||
2743: to_char(l_stmt_num) || ':' ||
2744: l_return_status);
2745: END IF;
2746: OE_STANDARD_WF.Save_Messages;
2751:
2752: when OTHERS then
2753: cto_msg_pub.cto_message('BOM', 'CTO_CHECK_STATUS_ERROR');
2754: IF PG_DEBUG <> 0 THEN
2755: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2756: to_char(l_stmt_num) || ':' ||
2757: substrb(sqlerrm, 1, 100));
2758: END IF;
2759: /*-------------------------------------------+
2789:
2790: BEGIN
2791: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2792: IF PG_DEBUG <> 0 THEN
2793: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO Activity: Calculate Cost Rollup', 1);
2794: END IF;
2795:
2796: if (p_funcmode = 'RUN') then
2797:
2802: from oe_order_lines_all oel
2803: where oel.line_id = to_number(p_itemkey);
2804:
2805: IF PG_DEBUG <> 0 THEN
2806: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Cost rollup::top_ato_line_id::'||to_char(l_top_ato_line_id));
2807: END IF;
2808:
2809: l_stmt_num := 140;
2810: l_status := CTO_CONFIG_COST_PK.cost_rollup_ml(
2813: x_msg_data => l_x_msg_data);
2814:
2815: if (l_status = 0) then
2816: IF PG_DEBUG <> 0 THEN
2817: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Failure in cost_rollup ', 1);
2818: END IF;
2819: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2820: raise UNEXP_ERROR;
2821: else
2819: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2820: raise UNEXP_ERROR;
2821: else
2822: IF PG_DEBUG <> 0 THEN
2823: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Success in cost_rollup ', 1);
2824: END IF;
2825: end if;
2826:
2827: x_result := 'COMPLETE';
2833:
2834: EXCEPTION
2835: when UNEXP_ERROR then
2836: IF PG_DEBUG <> 0 THEN
2837: OE_DEBUG_PUB.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf' ||
2838: to_char(l_stmt_num) || ':' ||
2839: l_x_msg_data);
2840: END IF;
2841: OE_STANDARD_WF.Save_Messages;
2845: raise;
2846:
2847: when NO_DATA_FOUND then
2848: IF PG_DEBUG <> 0 THEN
2849: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2850: to_char(l_stmt_num) || ':' ||
2851: substrb(sqlerrm, 1, 100),1);
2852: END IF;
2853: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2856:
2857: when OTHERS then
2858: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2859: IF PG_DEBUG <> 0 THEN
2860: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2861: to_char(l_stmt_num) || ':' ||
2862: substrb(sqlerrm, 1, 100),1);
2863: END IF;
2864: wf_core.context('CTO_WORKFLOW', 'calculate_cost_rollup_wf',
2915: BEGIN
2916:
2917: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2918: IF PG_DEBUG <> 0 THEN
2919: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO Activity: Set Parameter lead Time', 1);
2920: END IF;
2921:
2922: if (p_funcmode = 'RUN') then
2923:
2944: wf_engine.SetItemAttrText(p_itemtype, p_itemkey,
2945: 'LEAD_TIME_ROLLUP_ORG', to_char(lAtoLineId));
2946:
2947: IF PG_DEBUG <> 0 THEN
2948: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'Line ID: ' || p_itemkey, 1);
2949:
2950: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'ATO Line ID: ' || to_char(lAtoLineId), 1);
2951: END IF;
2952:
2946:
2947: IF PG_DEBUG <> 0 THEN
2948: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'Line ID: ' || p_itemkey, 1);
2949:
2950: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'ATO Line ID: ' || to_char(lAtoLineId), 1);
2951: END IF;
2952:
2953: x_result := 'COMPLETE';
2954: end if; /* p_funcmode = 'RUN' */
2959: EXCEPTION
2960:
2961: when UNEXP_ERROR then
2962: IF PG_DEBUG <> 0 THEN
2963: OE_DEBUG_PUB.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml' ||
2964: to_char(l_stmt_num) || ':' ||
2965: l_x_error_msg);
2966: END IF;
2967: OE_STANDARD_WF.Save_Messages;
2971: raise;
2972:
2973: when NO_DATA_FOUND then
2974: IF PG_DEBUG <> 0 THEN
2975: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2976: || to_char(l_stmt_num) || ':' ||
2977: substrb(sqlerrm, 1, 100),1);
2978: END IF;
2979: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2982:
2983: when OTHERS then
2984: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2985: IF PG_DEBUG <> 0 THEN
2986: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2987: || to_char(l_stmt_num) || ':' ||
2988: substrb(sqlerrm, 1, 100),1);
2989: END IF;
2990: wf_core.context('CTO_WORKFLOW', 'set_parameter_lead_time_wf_ml',
3051: v_x_error_msg VARCHAR2(150);
3052: BEGIN
3053: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3054: IF PG_DEBUG <> 0 THEN
3055: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3056:
3057: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3058:
3059: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3053: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3054: IF PG_DEBUG <> 0 THEN
3055: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3056:
3057: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3058:
3059: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3060: END IF;
3061:
3055: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO Activity: Check Supply Type', 1);
3056:
3057: oe_debug_pub.add('check_supply_type_wf: ' || 'Item key = '||p_itemkey,1);
3058:
3059: oe_debug_pub.add('check_supply_type_wf: ' || 'Func Mode ='||p_funcmode,1);
3060: END IF;
3061:
3062: if (p_funcmode = 'RUN') then
3063: l_stmt_num := 100;
3072: from oe_order_lines_all
3073: where line_id = to_number(p_itemkey)
3074: and ato_line_id is not null;
3075: IF PG_DEBUG <> 0 THEN
3076: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3077:
3078: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3079:
3080: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3074: and ato_line_id is not null;
3075: IF PG_DEBUG <> 0 THEN
3076: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3077:
3078: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3079:
3080: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3081: END IF;
3082: EXCEPTION
3076: oe_debug_pub.add('check_supply_type_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
3077:
3078: oe_debug_pub.add('check_supply_type_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
3079:
3080: oe_debug_pub.add('check_supply_type_wf: ' || 'Item type code ='||l_item_type_code,1);
3081: END IF;
3082: EXCEPTION
3083: WHEN NO_DATA_FOUND THEN
3084: Null;
3102: x_msg_data => v_x_error_msg);
3103:
3104: IF (v_x_hold_return_status = FND_API.G_RET_STS_ERROR) THEN
3105: IF PG_DEBUG <> 0 THEN
3106: oe_debug_pub.add('Check_supply_type_wf: ' || 'Expected error in Check Hold: ' || v_x_hold_return_status, 1);
3107: END IF;
3108: RAISE FND_API.G_EXC_ERROR;
3109:
3110: ELSIF (v_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3108: RAISE FND_API.G_EXC_ERROR;
3109:
3110: ELSIF (v_x_hold_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3111: IF PG_DEBUG <> 0 THEN
3112: oe_debug_pub.add('Check_supply_type_wf: ' || 'Unexp error in Check Hold ' || v_x_hold_return_status, 1);
3113: END IF;
3114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3115:
3116: ELSE
3114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3115:
3116: ELSE
3117: IF PG_DEBUG <> 0 THEN
3118: oe_debug_pub.add('Check_supply_type_wf: ' || 'Success in Check Hold ' || v_x_hold_return_status, 5);
3119: END IF;
3120:
3121: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3122: IF PG_DEBUG <> 0 THEN
3119: END IF;
3120:
3121: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3122: IF PG_DEBUG <> 0 THEN
3123: oe_debug_pub.add('Check_supply_type_wf: ' || 'Order Line ID ' || p_itemkey || 'is on HOLD. ' ||v_x_hold_result_out, 1);
3124: END IF;
3125: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
3126: x_result := 'COMPLETE:INCOMPLETE';
3127: return;
3137: IF( l_source_type_code = 'EXTERNAL' )
3138: THEN
3139:
3140: IF PG_DEBUG <> 0 THEN
3141: oe_debug_pub.add('check_supply_type_wf: ' || 'It is Config item Drop Ship case...',1);
3142: END IF;
3143: x_result := 'COMPLETE:DROPSHIP';
3144: OE_STANDARD_WF.Save_Messages;
3145: OE_STANDARD_WF.Clear_Msg_Context;
3173: );
3174:
3175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3176: IF PG_DEBUG <> 0 THEN
3177: oe_debug_pub.add('check_supply_type_wf: ' ||
3178: 'Expected Error in check_cto_can_create_supply.',1);
3179: END IF;
3180: raise FND_API.G_EXC_ERROR;
3181:
3180: raise FND_API.G_EXC_ERROR;
3181:
3182: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3183: IF PG_DEBUG <> 0 THEN
3184: oe_debug_pub.add('check_supply_type_wf: ' ||
3185: 'Unexpected Error in check_cto_can_create_supply.',1);
3186: END IF;
3187: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3188:
3199:
3200: IF l_can_create_supply = 'N' THEN
3201: IF PG_DEBUG <> 0 THEN
3202:
3203: oe_debug_pub.add('check_supply_type_wf: ' ||l_message,1);
3204:
3205: END IF;
3206: x_result := 'COMPLETE:PLANNING';
3207:
3208: l_stmt_num := 220;
3209:
3210: --start bugfix 4556596
3211: IF PG_DEBUG <> 0 THEN
3212: oe_debug_pub.add('check_supply_type_wf: ' ||'calling display_wf_status with status',1);
3213: END IF;
3214:
3215: l_ret_stat :=CTO_WORKFLOW_API_PK.display_wf_status
3216: (p_order_line_id=>p_itemkey
3216: (p_order_line_id=>p_itemkey
3217: );
3218:
3219: IF l_ret_stat = 1 THEN
3220: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status success',1);
3221: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status success.');
3222:
3223: Elsif l_ret_stat = 0 THEN
3224:
3223: Elsif l_ret_stat = 0 THEN
3224:
3225: IF PG_DEBUG <> 0 THEN
3226:
3227: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status failed',1);
3228: oe_debug_pub.add('check_supply_type_wf: ' ||'l_ret_stat=> '||l_ret_stat,1);
3229:
3230: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status failed.');
3231: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'l_ret_stat=> '||l_ret_stat);
3224:
3225: IF PG_DEBUG <> 0 THEN
3226:
3227: oe_debug_pub.add('check_supply_type_wf: ' ||'call to display_wf_status failed',1);
3228: oe_debug_pub.add('check_supply_type_wf: ' ||'l_ret_stat=> '||l_ret_stat,1);
3229:
3230: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'call to display_wf_status failed.');
3231: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'l_ret_stat=> '||l_ret_stat);
3232:
3251:
3252: IF p_source_type in (1, 3) THEN /* ATO Buy and IR cases */
3253: IF PG_DEBUG <> 0 THEN
3254: if p_source_type = 3 then
3255: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO Buy case...',1);
3256: else
3257: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO internal transfer case...',1);
3258: end if;
3259: END IF;
3253: IF PG_DEBUG <> 0 THEN
3254: if p_source_type = 3 then
3255: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO Buy case...',1);
3256: else
3257: oe_debug_pub.add('check_supply_type_wf: ' || 'It is ATO internal transfer case...',1);
3258: end if;
3259: END IF;
3260: x_result := 'COMPLETE:BUY';
3261: OE_STANDARD_WF.Save_Messages;
3279:
3280: if (l_supply_type = 1) then
3281: -- Flow Schedule
3282: IF PG_DEBUG <> 0 THEN
3283: oe_debug_pub.add('check_supply_type_wf: ' || 'Routing Type is Flow Schedule. ' ||
3284: to_char (l_supply_type),1);
3285: END IF;
3286: x_result := 'COMPLETE:FLOW_SCHEDULE';
3287: else
3286: x_result := 'COMPLETE:FLOW_SCHEDULE';
3287: else
3288: -- Discrete Job
3289: IF PG_DEBUG <> 0 THEN
3290: oe_debug_pub.add('check_supply_type_wf: ' || 'Routing Type is Discrete Job or No Routing. ' ||
3291: to_char (l_supply_type),1);
3292: END IF;
3293: x_result := 'COMPLETE:WORK_ORDER';
3294: end if;
3293: x_result := 'COMPLETE:WORK_ORDER';
3294: end if;
3295:
3296: IF PG_DEBUG <> 0 THEN
3297: oe_debug_pub.add('check_supply_type_wf: ' || 'Success in Check Supply Type', 1);
3298: END IF;
3299:
3300: end if; /* end p_funcmode = 'RUN'*/
3301: OE_STANDARD_WF.Save_Messages;
3304: EXCEPTION
3305:
3306: when FND_API.G_EXC_ERROR then
3307: IF PG_DEBUG <> 0 THEN
3308: OE_DEBUG_PUB.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf ' ||
3309: to_char(l_stmt_num));
3310: END IF;
3311: OE_STANDARD_WF.Save_Messages;
3312: OE_STANDARD_WF.Clear_Msg_Context;
3314:
3315:
3316: when FND_API.G_EXC_UNEXPECTED_ERROR then
3317: IF PG_DEBUG <> 0 THEN
3318: OE_DEBUG_PUB.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf ' ||
3319: to_char(l_stmt_num));
3320: END IF;
3321: OE_STANDARD_WF.Save_Messages;
3322: OE_STANDARD_WF.Clear_Msg_Context;
3325: raise;
3326:
3327: when OTHERS then
3328: IF PG_DEBUG <> 0 THEN
3329: oe_debug_pub.add('check_supply_type_wf: ' || 'CTO_WORKFLOW.check_supply_type_wf' ||
3330: to_char(l_stmt_num)||':'||sqlerrm); --bugfix 3136206
3331: END IF;
3332: wf_core.context('CTO_WORKFLOW', 'check_supply_type_wf',
3333: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
3380: SAVEPOINT before_process;
3381:
3382: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3383: IF PG_DEBUG <> 0 THEN
3384: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO Activity: Create Flow Schedule', 1);
3385: END IF;
3386:
3387: if (p_funcmode = 'RUN') then
3388: /*----------------------------------------------------------+
3423: and mr.reservation_quantity > 0);
3424:
3425: if (l_quantity <= 0) then
3426: IF PG_DEBUG <> 0 THEN
3427: oe_debug_pub.add('create_flow_schedule_wf: ' || 'l_quantity <= 0', 1);
3428: END IF;
3429: cto_msg_pub.cto_message('BOM','CTO_CREATE_FLOW_SCHED_ERROR');
3430: raise FND_API.G_EXC_ERROR;
3431: end if;
3447: where line_id = to_number(p_itemkey);
3448:
3449: if (trunc(l_sch_ship_date) < trunc(sysdate)) then
3450: IF PG_DEBUG <> 0 THEN
3451: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Schedule ship date '||
3452: to_char(l_sch_ship_date)||',
3453: is earlier than sysdate');
3454: END IF;
3455: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_SCH_DATE');
3467:
3468:
3469: IF (l_x_return_status = FND_API.G_RET_STS_ERROR) THEN
3470: IF PG_DEBUG <> 0 THEN
3471: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Expected error in cto_fs. ', 1);
3472: END IF;
3473: cto_msg_pub.cto_message('BOM', l_msg_name);
3474: raise FND_API.G_EXC_ERROR;
3475:
3474: raise FND_API.G_EXC_ERROR;
3475:
3476: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3477: IF PG_DEBUG <> 0 THEN
3478: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Unexpected error in Create Flow Schedule for line id ' || p_itemkey, 1);
3479: END IF;
3480: cto_msg_pub.cto_message('BOM', l_msg_name);
3481: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3482:
3495:
3496: x_result := 'COMPLETE';
3497: else
3498: IF PG_DEBUG <> 0 THEN
3499: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Flow schedules not created');
3500: END IF;
3501: cto_msg_pub.cto_message('BOM', 'CTO_NO_FLOW_SCHEDULE');
3502: x_result := 'COMPLETE:INCOMPLETE';
3503: return;
3510: EXCEPTION
3511:
3512: when FND_API.G_EXC_ERROR then
3513: IF PG_DEBUG <> 0 THEN
3514: OE_DEBUG_PUB.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf raised exp error in stmt ' ||
3515: to_char(l_stmt_num) || ':' || l_x_error_msg);
3516: END IF;
3517: OE_STANDARD_WF.Save_Messages;
3518: OE_STANDARD_WF.Clear_Msg_Context;
3521: return;
3522:
3523: when NO_DATA_FOUND then
3524: IF PG_DEBUG <> 0 THEN
3525: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3526: || to_char(l_stmt_num) || ':' ||
3527: substrb(sqlerrm, 1, 100),1);
3528: END IF;
3529: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3534: return;
3535:
3536: when FND_API.G_EXC_UNEXPECTED_ERROR then
3537: IF PG_DEBUG <> 0 THEN
3538: OE_DEBUG_PUB.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf raised unexp error in stmt ' ||
3539: to_char(l_stmt_num) || ':' || l_x_error_msg);
3540: END IF;
3541: OE_STANDARD_WF.Save_Messages;
3542: OE_STANDARD_WF.Clear_Msg_Context;
3544:
3545: when OTHERS then
3546: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3547: IF PG_DEBUG <> 0 THEN
3548: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3549: || to_char(l_stmt_num) || ':' ||
3550: substrb(sqlerrm, 1, 250),1);
3551: END IF;
3552: wf_core.context('CTO_WORKFLOW', 'create_flow_schedule_wf',
3597: AND nvl(oel.program_id, 0) <> -99;
3598:
3599: COMMIT;
3600: IF PG_DEBUG <> 0 THEN
3601: oe_debug_pub.add ('lock_line_id: ' || 'committed program_id with -99');
3602: END IF;
3603:
3604: EXCEPTION
3605: when no_data_found then
3606: null;
3607:
3608: when record_locked then
3609: IF PG_DEBUG <> 0 THEN
3610: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Could not lock line id '|| p_line_id ||' for update.');
3611:
3612: OE_DEBUG_PUB.add ('lock_line_id: ' || 'This line is being processed by another process.');
3613: END IF;
3614: x_result := 'COMPLETE:INCOMPLETE';
3608: when record_locked then
3609: IF PG_DEBUG <> 0 THEN
3610: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Could not lock line id '|| p_line_id ||' for update.');
3611:
3612: OE_DEBUG_PUB.add ('lock_line_id: ' || 'This line is being processed by another process.');
3613: END IF;
3614: x_result := 'COMPLETE:INCOMPLETE';
3615:
3616: when others then
3614: x_result := 'COMPLETE:INCOMPLETE';
3615:
3616: when others then
3617: IF PG_DEBUG <> 0 THEN
3618: OE_DEBUG_PUB.add ('lock_line_id: ' || 'CTO_WORKFLOW.Lock_Line_Id: Unexpected Error : '||sqlerrm);
3619: END IF;
3620: x_result := 'COMPLETE:INCOMPLETE';
3621:
3622: END Lock_Line_Id;
3647:
3648: IF (sql%rowcount > 0) THEN
3649: COMMIT;
3650: IF (PG_DEBUG <> 0) THEN
3651: oe_debug_pub.add ('unlock_line_id: ' || 'unlocked line_id '||p_line_id);
3652: END IF;
3653: END IF;
3654:
3655: EXCEPTION
3655: EXCEPTION
3656:
3657: when others then
3658: IF PG_DEBUG <> 0 THEN
3659: OE_DEBUG_PUB.add ('unlock_line_id: error: ' || sqlerrm);
3660:
3661: END IF;
3662: x_result := 'COMPLETE:INCOMPLETE';
3663:
3721:
3722: savepoint before_process;
3723:
3724: IF PG_DEBUG <> 0 THEN
3725: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Function Mode: ' || p_funcmode, 1);
3726:
3727: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO Activity: Set Parameter Work Order', 1);
3728: END IF;
3729: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3723:
3724: IF PG_DEBUG <> 0 THEN
3725: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Function Mode: ' || p_funcmode, 1);
3726:
3727: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO Activity: Set Parameter Work Order', 1);
3728: END IF;
3729: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3730:
3731: if (p_funcmode = 'RUN') then
3821:
3822:
3823: if (l_quantity <= 0) then
3824: IF PG_DEBUG <> 0 THEN
3825: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Ordered quantity is zero.', 1);
3826: END IF;
3827: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3828: raise FND_API.G_EXC_ERROR;
3829: end if;
3835: -- node
3836: -- Removed as part of bug fix 5261330
3837: -- wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3838: -- 'AFAS_ORG_ID',l_mfg_org_id);
3839: -- oe_debug_pub.add('mfg_org_id: ' || to_char(l_mfg_org_id),1);
3840:
3841: wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3842: 'AFAS_LINE_ID', l_afas_line_id);
3843: IF PG_DEBUG <> 0 THEN
3840:
3841: wf_engine.SetItemAttrNumber(p_itemtype, p_itemkey,
3842: 'AFAS_LINE_ID', l_afas_line_id);
3843: IF PG_DEBUG <> 0 THEN
3844: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'order_line_id: ' || p_itemkey,1);
3845:
3846: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'l_afas_line_id: ' || l_afas_line_id);
3847: END IF;
3848:
3842: 'AFAS_LINE_ID', l_afas_line_id);
3843: IF PG_DEBUG <> 0 THEN
3844: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'order_line_id: ' || p_itemkey,1);
3845:
3846: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'l_afas_line_id: ' || l_afas_line_id);
3847: END IF;
3848:
3849: x_result := 'COMPLETE';
3850: end if; /* p_funcmode = 'RUN' */
3860:
3861: when record_locked then
3862: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_LOCKED');
3863: IF PG_DEBUG <> 0 THEN
3864: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3865: p_itemkey ||' for update.');
3866:
3867: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'This line is being processed by another process.');
3868: END IF;
3863: IF PG_DEBUG <> 0 THEN
3864: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3865: p_itemkey ||' for update.');
3866:
3867: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'This line is being processed by another process.');
3868: END IF;
3869:
3870: OE_STANDARD_WF.Save_Messages;
3871: OE_STANDARD_WF.Clear_Msg_Context;
3875:
3876: when FND_API.G_EXC_ERROR then
3877: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3878: IF PG_DEBUG <> 0 THEN
3879: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised exc error. ' ||
3880: to_char(l_stmt_num) );
3881: END IF;
3882: OE_STANDARD_WF.Save_Messages;
3883: OE_STANDARD_WF.Clear_Msg_Context;
3889: when FND_API.G_EXC_UNEXPECTED_ERROR then
3890: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3891: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3892: IF PG_DEBUG <> 0 THEN
3893: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised unexc error. ' ||
3894: to_char(l_stmt_num) );
3895: END IF;
3896: OE_STANDARD_WF.Save_Messages;
3897: OE_STANDARD_WF.Clear_Msg_Context;
3921: IF l_build_in_wip = 'N' THEN
3922: --set the build in wip flag
3923: cto_msg_pub.cto_message('BOM', 'CTO_BUILD_IN_WIP_FLAG');
3924: IF PG_DEBUG <> 0 THEN
3925: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf:'
3926: ||'ERROR : Buld_in_wip_flag needs to be checked',1 );
3927: END IF;
3928:
3929: ELSE--no_data_found is for someother reason
3929: ELSE--no_data_found is for someother reason
3930:
3931: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3932: IF PG_DEBUG <> 0 THEN
3933: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf'
3934: || to_char(l_stmt_num) || ':' ||
3935: substrb(sqlerrm, 1, 100),1);
3936: END IF;
3937: END IF;
3949: when OTHERS then
3950: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3951: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3952: IF PG_DEBUG <> 0 THEN
3953: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: '
3954: || to_char(l_stmt_num) || ':' ||
3955: substrb(sqlerrm, 1, 100));
3956: END IF;
3957: wf_core.context('CTO_WORKFLOW', 'set_parameter_work_order_wf',
3992: BEGIN
3993:
3994: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3995: IF PG_DEBUG <> 0 THEN
3996: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3997: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_item_type: ' || p_itemtype, 1);
3998: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_itemkey: ' || p_itemkey, 1);
3999: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_actid: ' || p_actid, 1);
4000: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_funcmode: ' || p_funcmode, 1);
3993:
3994: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3995: IF PG_DEBUG <> 0 THEN
3996: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3997: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_item_type: ' || p_itemtype, 1);
3998: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_itemkey: ' || p_itemkey, 1);
3999: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_actid: ' || p_actid, 1);
4000: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_funcmode: ' || p_funcmode, 1);
4001: END IF;
3994: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3995: IF PG_DEBUG <> 0 THEN
3996: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3997: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_item_type: ' || p_itemtype, 1);
3998: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_itemkey: ' || p_itemkey, 1);
3999: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_actid: ' || p_actid, 1);
4000: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_funcmode: ' || p_funcmode, 1);
4001: END IF;
4002:
3995: IF PG_DEBUG <> 0 THEN
3996: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3997: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_item_type: ' || p_itemtype, 1);
3998: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_itemkey: ' || p_itemkey, 1);
3999: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_actid: ' || p_actid, 1);
4000: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_funcmode: ' || p_funcmode, 1);
4001: END IF;
4002:
4003: -- Bugfix 9288692
3996: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
3997: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_item_type: ' || p_itemtype, 1);
3998: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_itemkey: ' || p_itemkey, 1);
3999: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_actid: ' || p_actid, 1);
4000: oe_debug_pub.add('submit_conc_prog_wf: ' || 'p_funcmode: ' || p_funcmode, 1);
4001: END IF;
4002:
4003: -- Bugfix 9288692
4004: -- An update is needed again in case of retry activity. During the first run of AFAS, if there is
4011: AND NVL(program_id, 0) <> -99;
4012:
4013: IF PG_DEBUG <> 0 THEN
4014: if sql%rowcount > 0 then
4015: oe_debug_pub.add ('submit_conc_prog_wf: ' || 'updated program_id to -99');
4016: end if;
4017: END IF;
4018:
4019: --
4030:
4031: l_cnt := sql%rowcount;
4032: IF PG_DEBUG <> 0 THEN
4033: if sql%rowcount > 0 then
4034: oe_debug_pub.add ('submit_conc_prog_wf: ' || 'Rows deleted from wie:' || l_cnt);
4035: end if;
4036: END IF;
4037:
4038: DELETE FROM WIP_JOB_SCHEDULE_INTERFACE I
4042:
4043: l_cnt := sql%rowcount;
4044: IF PG_DEBUG <> 0 THEN
4045: if sql%rowcount > 0 then
4046: oe_debug_pub.add ('submit_conc_prog_wf: ' || 'Rows deleted from wjsi:' || l_cnt);
4047: end if;
4048: END IF;
4049:
4050:
4065: l_req_id := wf_engine.GetItemAttrNumber(p_itemtype, p_itemkey,
4066: 'LEAD_TIME_REQUEST_ID');
4067:
4068: IF PG_DEBUG <> 0 THEN
4069: oe_debug_pub.add('submit_conc_prog_wf: ' || 'Request ID: ' || to_char(l_req_id), 1);
4070: END IF;
4071:
4072: l_token(1).token_name := 'REQUEST_ID';
4073: l_token(1).token_value := l_req_id;
4071:
4072: l_token(1).token_name := 'REQUEST_ID';
4073: l_token(1).token_value := l_req_id;
4074:
4075: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
4076: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
4077:
4078: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
4079: --fnd_message.set_token('REQUEST_ID', l_req_id);
4072: l_token(1).token_name := 'REQUEST_ID';
4073: l_token(1).token_value := l_req_id;
4074:
4075: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
4076: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
4077:
4078: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
4079: --fnd_message.set_token('REQUEST_ID', l_req_id);
4080:
4088: EXCEPTION
4089:
4090: when NO_DATA_FOUND then
4091: IF PG_DEBUG <> 0 THEN
4092: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4093: || to_char(l_stmt_num) || ':' ||
4094: substrb(sqlerrm, 1, 100));
4095: END IF;
4096: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4099: raise;
4100:
4101: when OTHERS then
4102: IF PG_DEBUG <> 0 THEN
4103: oe_debug_pub.add('submit_conc_prog_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4104: || to_char(l_stmt_num) || ':' ||
4105: substrb(sqlerrm, 1, 100));
4106: END IF;
4107: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4143: BEGIN
4144:
4145: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4146: IF PG_DEBUG <> 0 THEN
4147: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO Activity: submit_conc_prog_wf.',1);
4148: END IF;
4149:
4150: if (p_funcmode = 'RUN') then
4151:
4157: p_activity_name => 'EXECLEADTIME',
4158: p_activity_status => l_activity_status);
4159:
4160: IF PG_DEBUG <> 0 THEN
4161: oe_debug_pub.add('submit_and_continue_wf: ' || 'EXECLEADTIME activity status:'||l_activity_status,1);
4162: END IF;
4163:
4164: IF l_activity_status = 'ACTIVE' THEN
4165: l_conc_msg := 1;
4163:
4164: IF l_activity_status = 'ACTIVE' THEN
4165: l_conc_msg := 1;
4166: IF PG_DEBUG <> 0 THEN
4167: oe_debug_pub.add('submit_and_continue_wf: ' || 'Show message for Lead Time conc program',1);
4168: END IF;
4169: ELSE
4170: CTO_WORKFLOW_API_PK.query_wf_activity_status(
4171: p_itemtype => p_itemtype,
4173: p_activity_label => 'EXECUTECONCPROGAFAS',
4174: p_activity_name => 'EXECUTECONCPROGAFAS',
4175: p_activity_status => l_activity_status);
4176: IF PG_DEBUG <> 0 THEN
4177: oe_debug_pub.add('submit_and_continue_wf: ' || 'EXECUTECONCPROGAFAS activity status:'||l_activity_status,1);
4178: END IF;
4179: IF l_activity_status = 'ACTIVE' THEN
4180: l_conc_msg := 2;
4181: IF PG_DEBUG <> 0 THEN
4178: END IF;
4179: IF l_activity_status = 'ACTIVE' THEN
4180: l_conc_msg := 2;
4181: IF PG_DEBUG <> 0 THEN
4182: oe_debug_pub.add('submit_and_continue_wf: ' || 'Show message for AFAS conc program',1);
4183: END IF;
4184: ELSE
4185: l_conc_msg := 1;
4186: END IF;
4201: l_req_id := wf_engine.GetItemAttrNumber(p_itemtype, p_itemkey,
4202: 'LEAD_TIME_REQUEST_ID');
4203:
4204: IF PG_DEBUG <> 0 THEN
4205: oe_debug_pub.add('submit_and_continue_wf: ' || 'Request ID: ' || to_char(l_req_id), 1);
4206: END IF;
4207:
4208: l_token(1).token_name := 'REQUEST_ID';
4209: l_token(1).token_value := l_req_id;
4207:
4208: l_token(1).token_name := 'REQUEST_ID';
4209: l_token(1).token_value := l_req_id;
4210:
4211: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4212: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4213: IF l_conc_msg = 2 THEN
4214: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4215: ELSE
4208: l_token(1).token_name := 'REQUEST_ID';
4209: l_token(1).token_value := l_req_id;
4210:
4211: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4212: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4213: IF l_conc_msg = 2 THEN
4214: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4215: ELSE
4216: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4228: EXCEPTION
4229:
4230: when NO_DATA_FOUND then
4231: IF PG_DEBUG <> 0 THEN
4232: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4233: || to_char(l_stmt_num) || ':' ||
4234: substrb(sqlerrm, 1, 100));
4235: END IF;
4236: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4239: raise;
4240:
4241: when OTHERS then
4242: IF PG_DEBUG <> 0 THEN
4243: oe_debug_pub.add('submit_and_continue_wf: ' || 'CTO_WORKFLOW.submit_conc_prog_wf: '
4244: || to_char(l_stmt_num) || ':' ||
4245: substrb(sqlerrm, 1, 100));
4246: END IF;
4247: wf_core.context('CTO_WORKFLOW', 'submit_conc_prog_wf',
4563: and oel.inventory_item_id = wfs.primary_item_id
4564: and rownum = 1;
4565:
4566: IF PG_DEBUG <> 0 THEN
4567: oe_debug_pub.add ('flow_sch_exists: ' || 'Flow Schedule Exists!', 1);
4568: END IF;
4569: return TRUE; -- Flow Schedule exists
4570:
4571: exception
4571: exception
4572: when no_data_found then
4573:
4574: IF PG_DEBUG <> 0 THEN
4575: oe_debug_pub.add ('flow_sch_exists: ' || 'Flow Schedules does not exist ', 1);
4576: END IF;
4577: return FALSE; -- Flow Schedule does not exist
4578:
4579: when others then
4602: BEGIN
4603:
4604: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4605: IF PG_DEBUG <> 0 THEN
4606: oe_debug_pub.add('Purchase_price_calc_wf: ' || 'CTO Activity: Purchase Price Calc wf.',1);
4607: END IF;
4608:
4609: select ato_line_id
4610: into l_ato_line_id
4625: x_msg_data => xmsgdata);
4626:
4627: if xreturnstatus = FND_API.G_RET_STS_ERROR then
4628: IF PG_DEBUG <> 0 THEN
4629: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed in Create_purchasing_doc call...',1);
4630: END IF;
4631: -- raise FND_API.G_EXC_ERROR;
4632: elsif xreturnstatus = FND_API.G_RET_STS_UNEXP_ERROR then
4633: IF PG_DEBUG <> 0 THEN
4630: END IF;
4631: -- raise FND_API.G_EXC_ERROR;
4632: elsif xreturnstatus = FND_API.G_RET_STS_UNEXP_ERROR then
4633: IF PG_DEBUG <> 0 THEN
4634: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed in Create_purchasing_doc call...',1);
4635: END IF;
4636: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
4637: end if;
4638: */
4636: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
4637: end if;
4638: */
4639:
4640: oe_debug_pub.add('Purchase_price_calc_wf: ' || ' Failed to call Create_purchasing_doc call...',1);
4641:
4642:
4643: end if;
4644: OE_STANDARD_WF.Save_Messages;
4645: OE_STANDARD_WF.Clear_Msg_Context;
4646:
4647: Exception when OTHERS then
4648: IF PG_DEBUG <> 0 THEN
4649: oe_debug_pub.add('Purchase_price_calc_wf: ' || 'CTO_WORKFLOW.Purchase_Price_calc_wf: '
4650: || to_char(l_stmt_num) || ':' ||
4651: substrb(sqlerrm, 1, 100));
4652: END IF;
4653: wf_core.context('CTO_WORKFLOW', 'Purchase_Price_calc_wf',
4696:
4697: BEGIN
4698: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4699: IF PG_DEBUG <> 0 THEN
4700: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'CTO Activity: Check Reservation after afas activity ', 1);
4701: END IF;
4702:
4703: IF (p_funcmode = 'RUN') then
4704:
4725:
4726: EXCEPTION
4727: when FND_API.G_EXC_ERROR then
4728: IF PG_DEBUG <> 0 THEN
4729: OE_DEBUG_PUB.add('chk_rsv_after_afas_wf: ' || 'CTO_WORKFLOW.chk_rsv_after_afas_wf' || to_char(l_stmt_num) );
4730: END IF;
4731: OE_STANDARD_WF.Save_Messages;
4732: OE_STANDARD_WF.Clear_Msg_Context;
4733: raise; -- can be re-tried
4740: );
4741: end if;
4742:
4743: IF PG_DEBUG <> 0 THEN
4744: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'corresponds to unexpected error at called program chk_rsv_after_afas_wf '||'
4745: l_stmt_num :'|| l_stmt_num ||sqlerrm, 1);
4746: END IF;
4747: OE_STANDARD_WF.Save_Messages;
4748: OE_STANDARD_WF.Clear_Msg_Context;
4756: ,'chk_rsv_after_afas_wf'
4757: );
4758: end if;
4759: IF PG_DEBUG <> 0 THEN
4760: oe_debug_pub.add('chk_rsv_after_afas_wf: ' || 'error at chk_rsv_after_afas_wf' || to_char(l_stmt_num)|| sqlerrm);
4761: END IF;
4762: /*-------------------------------------------+
4763: Error Information for Notification.
4764: +--------------------------------------------*/
4805: BEGIN
4806:
4807: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4808: IF PG_DEBUG <> 0 THEN
4809: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4810:
4811: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4812:
4813: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4807: OE_STANDARD_WF.Set_Msg_Context(p_actid);
4808: IF PG_DEBUG <> 0 THEN
4809: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4810:
4811: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4812:
4813: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4814: END IF;
4815:
4809: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO Activity: Check Supply Type', 1);
4810:
4811: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item key = '||p_itemkey,1);
4812:
4813: oe_debug_pub.add('check_supply_creation_wf: ' || 'Func Mode ='||p_funcmode,1);
4814: END IF;
4815:
4816: IF (p_funcmode = 'RUN') THEN
4817:
4823: from oe_order_lines_all
4824: where line_id = to_number(p_itemkey)
4825: and ato_line_id is not null;
4826: IF PG_DEBUG <> 0 THEN
4827: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4828:
4829: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4830:
4831: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4825: and ato_line_id is not null;
4826: IF PG_DEBUG <> 0 THEN
4827: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4828:
4829: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4830:
4831: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4832:
4833:
4827: oe_debug_pub.add('check_supply_creation_wf: ' || 'Inventory_item_id ='||to_char(l_inventory_item_id),1);
4828:
4829: oe_debug_pub.add('check_supply_creation_wf: ' || 'Ship from org id ='||to_char(l_ship_from_org_id),1);
4830:
4831: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4832:
4833:
4834: oe_debug_pub.add('check_supply_creation_wf: ' || 'l_source_type_code ='||l_source_type_code,1);
4835: END IF;
4830:
4831: oe_debug_pub.add('check_supply_creation_wf: ' || 'Item type code ='||l_item_type_code,1);
4832:
4833:
4834: oe_debug_pub.add('check_supply_creation_wf: ' || 'l_source_type_code ='||l_source_type_code,1);
4835: END IF;
4836:
4837: /*
4838:
4842: IF( l_source_type_code = 'EXTERNAL' )
4843: THEN
4844:
4845: IF PG_DEBUG <> 0 THEN
4846: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Drop Ship case...',1);
4847: END IF;
4848: x_result := 'COMPLETE';
4849: OE_STANDARD_WF.Save_Messages;
4850: OE_STANDARD_WF.Clear_Msg_Context;
4859: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
4860:
4861:
4862: IF PG_DEBUG <> 0 THEN
4863: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4864: ||return_value ,5);
4865: END IF;
4866:
4867: if return_value <> 1 then
4865: END IF;
4866:
4867: if return_value <> 1 then
4868: IF PG_DEBUG <> 0 THEN
4869: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4870: ||return_value ,1);
4871: END IF;
4872: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4873: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4898: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4899: IF l_can_create_supply = 'N' THEN
4900:
4901: IF PG_DEBUG <> 0 THEN
4902: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Planning case...',1);
4903: oe_debug_pub.add('check_supply_creation_wf: ' || l_message,1);
4904: END IF;
4905:
4906: l_stmt_num:=40;
4899: IF l_can_create_supply = 'N' THEN
4900:
4901: IF PG_DEBUG <> 0 THEN
4902: oe_debug_pub.add('check_supply_creation_wf: ' || 'It is Config item Planning case...',1);
4903: oe_debug_pub.add('check_supply_creation_wf: ' || l_message,1);
4904: END IF;
4905:
4906: l_stmt_num:=40;
4907: x_result := 'COMPLETE:PLANNING';
4906: l_stmt_num:=40;
4907: x_result := 'COMPLETE:PLANNING';
4908:
4909: IF PG_DEBUG <> 0 THEN
4910: oe_debug_pub.add('check_supply_creation_wf: ' || 'wrkflow result code'
4911: ||x_result ,5);
4912: END IF;
4913:
4914:
4918: l_stmt_num:=60;
4919: x_result := 'COMPLETE';
4920:
4921: IF PG_DEBUG <> 0 THEN
4922: oe_debug_pub.add('check_supply_creation_wf: ' || 'wrkflow result code'
4923: ||x_result ,5);
4924: END IF;
4925:
4926: END IF;--l_can_create_supply
4936: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
4937:
4938:
4939: IF PG_DEBUG <> 0 THEN
4940: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4941: ||return_value ,5);
4942: END IF;
4943:
4944: if return_value <> 1 then
4942: END IF;
4943:
4944: if return_value <> 1 then
4945: IF PG_DEBUG <> 0 THEN
4946: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4947: ||return_value ,1);
4948: END IF;
4949: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4958: EXCEPTION
4959:
4960: when FND_API.G_EXC_ERROR then
4961: IF PG_DEBUG <> 0 THEN
4962: OE_DEBUG_PUB.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf ' ||
4963: to_char(l_stmt_num));
4964: END IF;
4965: OE_STANDARD_WF.Save_Messages;
4966: OE_STANDARD_WF.Clear_Msg_Context;
4971:
4972:
4973: when FND_API.G_EXC_UNEXPECTED_ERROR then
4974: IF PG_DEBUG <> 0 THEN
4975: OE_DEBUG_PUB.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf ' ||
4976: to_char(l_stmt_num));
4977: END IF;
4978: OE_STANDARD_WF.Save_Messages;
4979: OE_STANDARD_WF.Clear_Msg_Context;
4982: raise;
4983:
4984: when OTHERS then
4985: IF PG_DEBUG <> 0 THEN
4986: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf' ||
4987: to_char(l_stmt_num));
4988: oe_debug_pub.add('check_supply_creation_wf: ' || 'errmsg' ||sqlerrm,1);
4989: END IF;
4990: wf_core.context('CTO_WORKFLOW', 'check_supply_creation_wf',
4984: when OTHERS then
4985: IF PG_DEBUG <> 0 THEN
4986: oe_debug_pub.add('check_supply_creation_wf: ' || 'CTO_WORKFLOW.check_supply_creation_wf' ||
4987: to_char(l_stmt_num));
4988: oe_debug_pub.add('check_supply_creation_wf: ' || 'errmsg' ||sqlerrm,1);
4989: END IF;
4990: wf_core.context('CTO_WORKFLOW', 'check_supply_creation_wf',
4991: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
4992: