[Home] [Help]
301:
302: when others then
303: p_activity_status := 'NULL';
304: IF PG_DEBUG <> 0 THEN
305: oe_debug_pub.add('query_wf_activity_status: ' || 'exception in CTO_WORKFLOW_API_PK.query_wf_activity_status'||sqlerrm, 1);
306: END IF;
307:
308: END query_wf_activity_status;
309:
335: BEGIN
336:
337: if upper(linetype) = 'MODEL' then
338: IF PG_DEBUG <> 0 THEN
339: oe_debug_pub.add('get_activity_status: ' || 'get_act_status::line is model', 4);
340: END IF;
341: query_wf_activity_status(itemtype, itemkey, 'CREATE_CONFIG_ITEM_ELIGIBLE',
342: 'CREATE_CONFIG_ITEM_ELIGIBLE', v_activity_status_code);
343:
348: end if;
349:
350: elsif upper(linetype) = 'CONFIG' then
351: IF PG_DEBUG <> 0 THEN
352: oe_debug_pub.add('get_activity_status: ' || 'get_act_status::line is config');
353: END IF;
354: query_wf_activity_status(itemtype, itemkey, 'CREATE_CONFIG_BOM_ELIGIBLE',
355: 'CREATE_CONFIG_BOM_ELIGIBLE', v_activity_status_code);
356:
372:
373: end if;
374:
375: IF PG_DEBUG <> 0 THEN
376: oe_debug_pub.add('get_activity_status: ' || 'get_act_status::returning activity_name '||activity_name, 4);
377: END IF;
378:
379: EXCEPTION
380:
380:
381: when others then
382: activity_name := 'NULL';
383: IF PG_DEBUG <> 0 THEN
384: oe_debug_pub.add('get_activity_status: ' || 'exception in CTO_WORKFLOW_API_PK.get_activity_status:'||sqlerrm, 1);
385: END IF;
386:
387: END get_activity_status;
388:
433:
434: wf_engine.CompleteActivityInternalName(p_itemtype, p_itemkey,
435: p_activity_name,p_result_code);
436: IF PG_DEBUG <> 0 Then
437: oe_debug_pub.add('Complete_activity : l_change_context_back = '||l_change_context_back,5);
438: End if;
439:
440: If l_change_context_back = 'Y' then
441: CTO_MSUTIL_PUB.Switch_context_back(p_old_mode => l_current_mode,
448: EXCEPTION
449:
450: when others then
451: IF PG_DEBUG <> 0 THEN
452: oe_debug_pub.add('complete_activity: ' || 'exception in CTO_WORKFLOW_API_PK.complete_activity:'||sqlerrm, 1);
453: END IF;
454: return (FALSE);
455:
456: END complete_activity;
507:
508: BEGIN
509:
510: IF PG_DEBUG <> 0 THEN
511: oe_debug_pub.add('display_wf_status: ' || 'Entering display_wf_status', 1);
512: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'Entering Display_wf_status');
513: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'P_order_line_id ='||to_char(p_order_line_id));
514: End if;
515:
559: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_ordered_quantity = '||to_char(v_ordered_quantity));
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_source_type_code = '||v_source_type_code);
561: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
562: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
563: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_source_type_code = '||v_source_type_code);
561: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
562: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
563: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
561: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
562: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
563: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
569: oe_debug_pub.add('display_wf_status: ' || 'shipped quantity = '||v_shipped_qty , 5);
562: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
563: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
569: oe_debug_pub.add('display_wf_status: ' || 'shipped quantity = '||v_shipped_qty , 5);
570: END IF;
563: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
569: oe_debug_pub.add('display_wf_status: ' || 'shipped quantity = '||v_shipped_qty , 5);
570: END IF;
571:
564: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
569: oe_debug_pub.add('display_wf_status: ' || 'shipped quantity = '||v_shipped_qty , 5);
570: END IF;
571:
572: l_stmt_num := 11;
565: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
567: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
568: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
569: oe_debug_pub.add('display_wf_status: ' || 'shipped quantity = '||v_shipped_qty , 5);
570: END IF;
571:
572: l_stmt_num := 11;
573:
573:
574: If l_booked_flag = 'N' Then
575: IF PG_DEBUG <> 0 Then
576: cto_wip_workflow_api_pk.cto_debug('Display_wf_status',' Line is not yet booked. No need to change status');
577: oe_debug_pub.add('Display_wf_status: Line is not yet booked. No need to change status',1);
578: End if;
579: --Bugfix 9826828
580: --elsif nvl(v_shipped_quantity,0) <> 0 then
581: elsif nvl(v_shipped_qty,0) <> 0 then
638:
639:
640:
641: If PG_DEBUG <> 0 Then
642: oe_debug_pub.add('Display_wf_status : New status code = '||l_change_status,1);
643: End if;
644:
645: If l_change_status <> '_' Then
646:
660: x_return_status => x_return_status);
661:
662: if x_return_status = FND_API.G_RET_STS_ERROR then
663: IF PG_DEBUG <> 0 THEN
664: oe_debug_pub.add('display_wf_status: ' || 'change_status_batch raised expected error.', 1);
665: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'change_status_batch raised expected error.');
666: End if;
667: raise FND_API.G_EXC_ERROR;
668: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
666: End if;
667: raise FND_API.G_EXC_ERROR;
668: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
669: IF PG_DEBUG <> 0 THEN
670: oe_debug_pub.add('display_wf_status: ' || 'change_status_batch raised unexpected error.', 1);
671: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'change_status_batch raised unexpected error.');
672: End if;
673: raise FND_API.G_EXC_UNEXPECTED_ERROR;
674: end if; /* x_return_status = FND_API.G_RET_STS_ERROR */
673: raise FND_API.G_EXC_UNEXPECTED_ERROR;
674: end if; /* x_return_status = FND_API.G_RET_STS_ERROR */
675:
676: IF PG_DEBUG <> 0 THEN
677: oe_debug_pub.add('display_wf_status: ' || 'Re-Setting the Org Context to '||l_original_org_id, 5);
678: END IF;
679:
680: End if; /* l_change_status <> '_' */
681:
679:
680: End if; /* l_change_status <> '_' */
681:
682: IF PG_DEBUG <> 0 THEN
683: oe_debug_pub.add('display_wf_status: ' || 'Exiting disp_wf_status', 4);
684: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'Exiting display_wf_Status with return value 1');
685: End if;
686: return 1;
687:
687:
688: EXCEPTION
689: when FND_API.G_EXC_ERROR then
690: IF PG_DEBUG <> 0 THEN
691: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status raised exp error::stmt number '||to_char(l_stmt_num), 1);
692: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
693: 'CTO_WORKFLOW_API_PK.display_wf_status raised exp error::stmt number '|| to_char(l_stmt_num));
694: End if;
695: return 0;--bugfix 4545070
695: return 0;--bugfix 4545070
696:
697: when FND_API.G_EXC_UNEXPECTED_ERROR then
698: IF PG_DEBUG <> 0 THEN
699: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status raised unexp error::stmt number '||
700: to_char(l_stmt_num)||sqlerrm, 1);
701: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
702: 'CTO_WORKFLOW_API_PK.display_wf_status raised unexp error::stmt number '|| to_char(l_stmt_num));
703: End if;
703: End if;
704: return 0;
705: when others then
706: IF PG_DEBUG <> 0 THEN
707: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||to_char(l_stmt_num), 1);
708: oe_debug_pub.add('display_wf_status: ' || sqlerrm, 1);
709: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
710: 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||
711: to_char(l_stmt_num));
704: return 0;
705: when others then
706: IF PG_DEBUG <> 0 THEN
707: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||to_char(l_stmt_num), 1);
708: oe_debug_pub.add('display_wf_status: ' || sqlerrm, 1);
709: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
710: 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||
711: to_char(l_stmt_num));
712: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', sqlerrm);
755: DROPSHIP_EXCEPTION EXCEPTION ;
756:
757: BEGIN
758: IF PG_DEBUG <> 0 THEN
759: oe_debug_pub.add('inventory_reservation_check: ' || 'Entering inventory_reservation_check', 2);
760: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'In inventory_reservation_check');
761: End if;
762:
763: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: If PG_DEBUG <> 0 then
784: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'ATO Line Id = '||v_ato_line_id);
785: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Item Type Code = '||v_item_type_code);
786: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Source Type Code = '||v_source_type_code);
787: oe_debug_pub.add('inventory_reservation_check: ATO Line Id:'|| v_ato_line_id);
788: oe_debug_pub.add('inventory_reservation_check: Item Type Code: '|| v_item_type_code);
789: oe_debug_pub.add('inventory_reservation_check: Source Type Code: '|| v_source_type_code);
790: End if;
791: /*
784: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'ATO Line Id = '||v_ato_line_id);
785: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Item Type Code = '||v_item_type_code);
786: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Source Type Code = '||v_source_type_code);
787: oe_debug_pub.add('inventory_reservation_check: ATO Line Id:'|| v_ato_line_id);
788: oe_debug_pub.add('inventory_reservation_check: Item Type Code: '|| v_item_type_code);
789: oe_debug_pub.add('inventory_reservation_check: Source Type Code: '|| v_source_type_code);
790: End if;
791: /*
792: ** BUG#2234858, BUG#2312701 AND BUG#2358576 Drop Ship changes to disallow reservation
785: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Item Type Code = '||v_item_type_code);
786: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Source Type Code = '||v_source_type_code);
787: oe_debug_pub.add('inventory_reservation_check: ATO Line Id:'|| v_ato_line_id);
788: oe_debug_pub.add('inventory_reservation_check: Item Type Code: '|| v_item_type_code);
789: oe_debug_pub.add('inventory_reservation_check: Source Type Code: '|| v_source_type_code);
790: End if;
791: /*
792: ** BUG#2234858, BUG#2312701 AND BUG#2358576 Drop Ship changes to disallow reservation
793: ** for config items and ato items of external source type
905:
906: end if;
907: If PG_DEBUG <> 0 then
908: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Exiting inventory_reservation_check');
909: oe_debug_pub.add('inventory_reservation_check: ' || 'Exiting inventory_reservation_check', 2);
910: END IF;
911:
912: EXCEPTION
913: when FND_API.G_EXC_ERROR then
911:
912: EXCEPTION
913: when FND_API.G_EXC_ERROR then
914: IF PG_DEBUG <> 0 THEN
915: oe_debug_pub.add('inventory_reservation_check: ' || 'exp error in CTO_WORKFLOW_API_PK.inventory_reservation_check::stmt number '||to_char(l_stmt_num), 1);
916: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no :'|| to_char(l_stmt_num));
917: End if;
918:
919: x_return_status := FND_API.G_RET_STS_ERROR;
922: p_msg_data => x_msg_data
923: );
924: when FND_API.G_EXC_UNEXPECTED_ERROR then
925: IF PG_DEBUG <> 0 THEN
926: oe_debug_pub.add('inventory_reservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_reservation_check::stmt number '||to_char(l_stmt_num), 1);
927: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'|| to_char(l_stmt_num));
928: End if;
929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
930: cto_msg_pub.count_and_get(
933: );
934:
935: when others then
936: IF PG_DEBUG <> 0 THEN
937: oe_debug_pub.add('inventory_reservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_reservation_check::stmt number '||to_char(l_stmt_num), 1);
938:
939: oe_debug_pub.add('inventory_reservation_check: ' || sqlerrm);
940: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'||to_char(l_stmt_num) );
941: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check', sqlerrm);
935: when others then
936: IF PG_DEBUG <> 0 THEN
937: oe_debug_pub.add('inventory_reservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_reservation_check::stmt number '||to_char(l_stmt_num), 1);
938:
939: oe_debug_pub.add('inventory_reservation_check: ' || sqlerrm);
940: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'||to_char(l_stmt_num) );
941: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check', sqlerrm);
942: End if;
943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
996: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Entering wf_update_after_inv_reserv');
997: End if;
998:
999: IF PG_DEBUG <> 0 THEN
1000: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Entering wf_update_after_inv_reserv', 2);
1001: END IF;
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003: l_stmt_num := 10;
1004:
1015: where line_id = p_order_line_id;
1016: If PG_DEBUG <> 0 Then
1017: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'ato_line_id = '||v_ato_line_id);
1018: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'v_item_type_code = '||v_item_type_code);
1019: oe_debug_pub.add('wf_update_after_inv_reserv: ato_line_id:' || v_ato_line_id);
1020: oe_debug_pub.add('wf_update_after_inv_reserv: v_item_type_code:' || v_item_type_code);
1021: oe_debug_pub.add('wf_update_after_inv_reserv: p_order_line_id:' || p_order_line_id);
1022: End if;
1023:
1016: If PG_DEBUG <> 0 Then
1017: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'ato_line_id = '||v_ato_line_id);
1018: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'v_item_type_code = '||v_item_type_code);
1019: oe_debug_pub.add('wf_update_after_inv_reserv: ato_line_id:' || v_ato_line_id);
1020: oe_debug_pub.add('wf_update_after_inv_reserv: v_item_type_code:' || v_item_type_code);
1021: oe_debug_pub.add('wf_update_after_inv_reserv: p_order_line_id:' || p_order_line_id);
1022: End if;
1023:
1024:
1017: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'ato_line_id = '||v_ato_line_id);
1018: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'v_item_type_code = '||v_item_type_code);
1019: oe_debug_pub.add('wf_update_after_inv_reserv: ato_line_id:' || v_ato_line_id);
1020: oe_debug_pub.add('wf_update_after_inv_reserv: v_item_type_code:' || v_item_type_code);
1021: oe_debug_pub.add('wf_update_after_inv_reserv: p_order_line_id:' || p_order_line_id);
1022: End if;
1023:
1024:
1025: IF ( (upper(v_item_type_code) = 'STANDARD') -- Ato item line
1036: l_stmt_num := 20;
1037:
1038: IF PG_DEBUG <> 0 THEN
1039: --SUN ER#9793792: Changed the debug message
1040: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'item_type_code is STANDARD/OPTION/INCLUDED => an ato item', 4);
1041: END IF;--fix for bug#1874380
1042: If PG_DEBUG <> 0 Then
1043: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before querying wf_activity_status..');
1044: End if;
1073: p_activity_name => 'CREATE_SUPPLY_ORDER_ELIGIBLE',
1074: p_result_code => 'RESERVED')) Then
1075:
1076: If PG_DEBUG <> 0 Then
1077: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity is successful',5);
1078: End if;
1079:
1080: Else
1081: if PG_DEBUG <> 0 Then
1078: End if;
1079:
1080: Else
1081: if PG_DEBUG <> 0 Then
1082: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1083: end if;
1084: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1085: End if;
1086:
1089: --start of fix for bug#1895563
1090: If PG_DEBUG <> 0 Then
1091: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before calling display_wf_status..'||
1092: 'from l_stmt_num=>'||l_stmt_num);
1093: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1094: END IF;
1095:
1096: return_value := display_wf_status(p_order_line_id);
1097:
1097:
1098: If PG_DEBUG <> 0 Then
1099: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Return value after display_wf_status'
1100: ||to_char(return_value));
1101: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1102: ||to_char(return_value),1);
1103: END IF;
1104: --end of fix for bug#1895563
1105:
1151: If PG_DEBUG <> 0 Then
1152: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1153: 'Before calling display_wf_status..'||
1154: 'from l_stmt_num=>'||l_stmt_num);
1155: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1156: END IF;
1157:
1158: return_value := display_wf_status(p_order_line_id);
1159:
1161: If PG_DEBUG <> 0 Then
1162: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1163: 'Return value after display_wf_status'
1164: ||to_char(return_value));
1165: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1166: ||to_char(return_value),1);
1167: END IF;
1168: END IF;
1169:
1171:
1172: If PG_DEBUG <> 0 Then
1173: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before calling display_wf_status..'||
1174: 'from l_stmt_num=>'||l_stmt_num);
1175: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1176: END IF;
1177:
1178: return_value := display_wf_status(p_order_line_id);
1179:
1180:
1181: If PG_DEBUG <> 0 Then
1182: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Return value after display_wf_status'
1183: ||to_char(return_value));
1184: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1185: ||to_char(return_value),1);
1186: END IF;
1187: END IF;
1188: --end of fix for bug#1895563
1239: p_itemkey => to_char(p_order_line_id),
1240: p_activity_name => 'CREATE_SUPPLY_ORDER_ELIGIBLE',
1241: p_result_code => 'RESERVED')) Then
1242: If PG_DEBUG <> 0 Then
1243: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: complete_activity is sucessful ',5);
1244: End if;
1245: Else
1246: if PG_DEBUG <> 0 Then
1247: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1243: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: complete_activity is sucessful ',5);
1244: End if;
1245: Else
1246: if PG_DEBUG <> 0 Then
1247: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1248: end if;
1249: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1250: End if;
1251:
1331: If PG_DEBUG <> 0 then
1332: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',' Exiting wf_update_after_inv_reserv');
1333: End if;
1334: IF PG_DEBUG <> 0 THEN
1335: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Exiting wf_update_after_inv_reserv', 2);
1336: END IF;
1337:
1338: EXCEPTION
1339: when FND_API.G_EXC_ERROR then
1337:
1338: EXCEPTION
1339: when FND_API.G_EXC_ERROR then
1340: IF PG_DEBUG <> 0 THEN
1341: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'exp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_reserv::stmt number '||to_char(l_stmt_num), 1);
1342: END IF;
1343:
1344: If PG_DEBUG <> 0 Then
1345: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1354: );
1355:
1356: when FND_API.G_EXC_UNEXPECTED_ERROR then
1357: IF PG_DEBUG <> 0 THEN
1358: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_reserv::stmt number '||to_char(l_stmt_num), 1);
1359: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1360: 'UNExp error in CTO_WORKFLOW_API_PK.wf_update_inv_reserv::
1361: stmt no : '||to_char(l_stmt_num)||'::'||sqlerrm);
1362: End if;
1368: );
1369:
1370: when others then
1371: IF PG_DEBUG <> 0 THEN
1372: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_reserv::stmt number '||to_char(l_stmt_num), 1);
1373:
1374: oe_debug_pub.add('wf_update_after_inv_reserv: ' || sqlerrm, 1);
1375: END IF;
1376: If PG_DEBUG <> 0 Then
1370: when others then
1371: IF PG_DEBUG <> 0 THEN
1372: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_reserv::stmt number '||to_char(l_stmt_num), 1);
1373:
1374: oe_debug_pub.add('wf_update_after_inv_reserv: ' || sqlerrm, 1);
1375: END IF;
1376: If PG_DEBUG <> 0 Then
1377: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'OTHERS excpn: stmt no : '||to_char(l_stmt_num));
1378: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', sqlerrm);
1419: l_stmt_num number;
1420:
1421: BEGIN
1422: IF PG_DEBUG <> 0 THEN
1423: oe_debug_pub.add('inventory_unreservation_check: ' || 'Entering inventory_unreservation_check', 2);
1424: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check','Entering inventory_unreservation_check');
1425: End if;
1426:
1427: x_return_status := FND_API.G_RET_STS_SUCCESS;
1476: if (CTO_UTILITY_PK.check_rsv_quantity (p_order_line_id => p_order_line_id,
1477: p_rsv_quantity => p_rsv_quantity) = FALSE )
1478: then
1479: IF PG_DEBUG <> 0 THEN
1480: oe_debug_pub.add ('inventory_unreservation_check: ' || 'Unreservation of qty '||p_rsv_quantity ||
1481: ' is NOT allowed since part of this has been either ship confirmed, intrasit or closed.', 2);
1482: END IF;
1483:
1484: If PG_DEBUG <> 0 Then
1488: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_ACTIVITY_STATUS');
1489: raise FND_API.G_EXC_ERROR;
1490: else
1491: IF PG_DEBUG <> 0 THEN
1492: oe_debug_pub.add ('inventory_unreservation_check: ' || 'Quantity being unreserved ('||p_rsv_quantity||') is okay.',4);
1493: END IF;
1494: end if;
1495:
1496: --end bugfix 2001824
1496: --end bugfix 2001824
1497: end if;
1498:
1499: IF PG_DEBUG <> 0 THEN
1500: oe_debug_pub.add('inventory_unreservation_check: ' || 'Exiting inventory_unreservation_check', 2);
1501: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check', 'Exiting inventory_unreservation_check');
1502: End if;
1503:
1504: EXCEPTION
1504: EXCEPTION
1505:
1506: when FND_API.G_EXC_ERROR then
1507: IF PG_DEBUG <> 0 THEN
1508: oe_debug_pub.add('inventory_unreservation_check: ' || 'exp error in CTO_WORKFLOW_API_PK.inventory_unreservation_check::stmt number '||to_char(l_stmt_num), 1);
1509: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1510: 'Raised FND_API.G_EXC_ERROR, stmt'||l_stmt_num);
1511: End if;
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1516: );
1517:
1518: when FND_API.G_EXC_UNEXPECTED_ERROR then
1519: IF PG_DEBUG <> 0 THEN
1520: oe_debug_pub.add('inventory_unreservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_unreservation_check::stmt number '||to_char(l_stmt_num), 1);
1521: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1522: 'Raised FND_API.G_EXC_UNEXPECTED_ERROR, stmt'||l_stmt_num);
1523: End if;
1524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: );
1529:
1530: when others then
1531: IF PG_DEBUG <> 0 THEN
1532: oe_debug_pub.add('inventory_unreservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_unreservation_check::stmt number '||to_char(l_stmt_num), 1);
1533:
1534: oe_debug_pub.add('inventory_unreservation_check: ' || sqlerrm, 1);
1535: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1536: 'Raised OTHERS excepn, stmt: '||l_stmt_num);
1530: when others then
1531: IF PG_DEBUG <> 0 THEN
1532: oe_debug_pub.add('inventory_unreservation_check: ' || 'unexp error in CTO_WORKFLOW_API_PK.inventory_unreservation_check::stmt number '||to_char(l_stmt_num), 1);
1533:
1534: oe_debug_pub.add('inventory_unreservation_check: ' || sqlerrm, 1);
1535: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1536: 'Raised OTHERS excepn, stmt: '||l_stmt_num);
1537: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check', sqlerrm);
1538: End if;
1652:
1653: BEGIN
1654: If PG_DEBUG <> 0 Then
1655: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'In wf_update_after_inv_unreserv');
1656: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Entering wf_update_after_inv_unreserv', 2);
1657: END IF;
1658:
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660: l_stmt_num := 10;
1685: If PG_DEBUG <> 0 Then
1686: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'ATO Line Id = '||v_ato_line_id);
1687: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1688: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1689: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1690: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1691: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1692: End if;
1693:
1686: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'ATO Line Id = '||v_ato_line_id);
1687: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1688: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1689: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1690: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1691: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1692: End if;
1693:
1694: if v_open_flag = 'Y' then --Bugfix 7214005
1687: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1688: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1689: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1690: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1691: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1692: End if;
1693:
1694: if v_open_flag = 'Y' then --Bugfix 7214005
1695: l_source_document_type_id := CTO_UTILITY_PK.get_source_document_id ( pLineId => p_order_line_id ); --bugfix 1799874
1725:
1726: IF upper(v_activity_status_code) = 'NOTIFIED' THEN
1727:
1728: IF PG_DEBUG <> 0 THEN
1729: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Ship Line Notified...',1);
1730: END IF;
1731:
1732: --to check if cto or planning has created the supply
1733: CTO_UTILITY_PK.check_cto_can_create_supply (
1743: );
1744:
1745:
1746: IF PG_DEBUG <> 0 THEN
1747: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||'check_cto_can_create_supply'
1748: ||'x_return_status=> ' || x_return_status);
1749:
1750: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||
1751: 'l_can_create_supply is=>'||l_can_create_supply,1);
1746: IF PG_DEBUG <> 0 THEN
1747: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||'check_cto_can_create_supply'
1748: ||'x_return_status=> ' || x_return_status);
1749:
1750: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||
1751: 'l_can_create_supply is=>'||l_can_create_supply,1);
1752:
1753: END IF;
1754:
1886: --
1887:
1888: If l_ship_xfaced_flag = 'Y' Then
1889: IF PG_DEBUG <> 0 THEN
1890: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Calling OE_Shipping_Integration_Pub.Get_Min_Max_Tolerance_Quantity..', 4);
1891: END IF;
1892:
1893: -- rkaza. 04/18/2005 bug 2985672
1894: -- Calling shipping tolerance api as a replacement of OM's api.
1908: IF (v_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1909: IF PG_DEBUG <> 0 THEN
1910: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1911: 'Failed in WSH_Integration_Pub.Get Tolerance');
1912: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'CTO:Failed in WSH_Integration_Pub.Get Tolerance :' || v_x_return_status, 1);
1913: END IF;
1914: OE_MSG_PUB.ADD;
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSE
1914: OE_MSG_PUB.ADD;
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSE
1917: IF PG_DEBUG <> 0 THEN
1918: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1919:
1920: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1921:
1922: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1916: ELSE
1917: IF PG_DEBUG <> 0 THEN
1918: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1919:
1920: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1921:
1922: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1923:
1924: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1918: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1919:
1920: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1921:
1922: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1923:
1924: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1925:
1926: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1920: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1921:
1922: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1923:
1924: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1925:
1926: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1927:
1928: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1922: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1923:
1924: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1925:
1926: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1927:
1928: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1929:
1930: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1924: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1925:
1926: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1927:
1928: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1929:
1930: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1931: END IF;
1932: END IF ;--get min max status if block
1926: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1927:
1928: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1929:
1930: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1931: END IF;
1932: END IF ;--get min max status if block
1933: End If;
1934: -- End bugfix 2109503
1938:
1939: IF PG_DEBUG <> 0 THEN
1940: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'v_x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity);
1941: cto_wip_workflow_api_pk.cto_debug('Wf_update_after_inv_unreserve',' Shipping interfaced flag = '||l_ship_xfaced_flag);
1942: oe_debug_pub.add('Wf_update_after_inv_unreserve: Shipping interfaced flag = '||l_ship_xfaced_flag);
1943: end if;
1944:
1945: -- bugfix 2118864
1946: -- If there is no reservation for this line and if the line is not
1954: then
1955:
1956: IF PG_DEBUG <> 0 Then
1957: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'No Reservations exists... Updating workflow.');
1958: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'No Reservation Exists...',1);
1959: END IF;
1960:
1961: l_stmt_num := 50;
1962:
1978: l_changed_attributes(1).released_status := 'N';
1979: l_changed_attributes(1).action_flag := 'U';
1980:
1981: IF PG_DEBUG <> 0 THEN
1982: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Renga: Updating the shipping attributes..',1);
1983: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1984: 'Renga : CAlling Shipping update attribute api');
1985: End if;
1986: WSH_INTERFACE.Update_Shipping_Attributes
1994:
1995: IF PG_DEBUG <> 0 THEN
1996: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1997: 'WSH_INTERFACE.update_shipping_attributes');
1998: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'CTO:Failed in WSH_INTERFACE.update_shipping_attributes :', 1);
1999: END IF;
2000: OE_MSG_PUB.ADD;
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: ELSE
2000: OE_MSG_PUB.ADD;
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: ELSE
2003: IF PG_DEBUG <> 0 THEN
2004: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || ' Renga: Success in update_shipping attributes..', 2);
2005: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserve',
2006: ' Renga: Success in update_shipping attributes..');
2007:
2008: END IF;
2018: p_activity_name => 'SHIP_LINE',
2019: p_result_code => 'UNRESERVE')) Then
2020:
2021: If PG_DEBUG <> 0 Then
2022: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity is successful',5);
2023: End if;
2024:
2025: Else
2026: if PG_DEBUG <> 0 Then
2023: End if;
2024:
2025: Else
2026: if PG_DEBUG <> 0 Then
2027: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
2028: end if;
2029: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2030: End if;
2031: -- End of bug fix 5357300
2030: End if;
2031: -- End of bug fix 5357300
2032: else
2033: IF PG_DEBUG <> 0 THEN
2034: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Reservation Exists. Will not update workflow status.',1);
2035: END IF;
2036: end if; --v_counter
2037:
2038: END IF; --status of check_cto_can_create_supply
2067: end if; --v_open_flag Bugfix 7214005
2068:
2069: IF PG_DEBUG <> 0 THEN
2070: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Exiting wf_update_after_inv_unreserv');
2071: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Exiting wf_update_after_inv_unreserv', 2);
2072: END IF;
2073:
2074: EXCEPTION
2075: when FND_API.G_EXC_ERROR then
2074: EXCEPTION
2075: when FND_API.G_EXC_ERROR then
2076:
2077: IF PG_DEBUG <> 0 THEN
2078: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'exp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv::stmt number '||to_char(l_stmt_num), 1);
2079: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','exp erro stmt no :'|| to_char(l_stmt_num));
2080:
2081: END IF;
2082: x_return_status := FND_API.G_RET_STS_ERROR;
2087:
2088: when FND_API.G_EXC_UNEXPECTED_ERROR then
2089:
2090: IF PG_DEBUG <> 0 THEN
2091: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv::stmt number '||to_char(l_stmt_num));
2092: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp err stmt no:'|| to_char(l_stmt_num));
2093:
2094: END IF;
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100:
2101: when others then
2102:
2103: IF PG_DEBUG <> 0 THEN
2104: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv::stmt number '||to_char(l_stmt_num), 1);
2105: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || sqlerrm, 1);
2106: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp errr stmt no :'|| to_char(l_stmt_num));
2107: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE',sqlerrm);
2108:
2101: when others then
2102:
2103: IF PG_DEBUG <> 0 THEN
2104: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'unexp error in CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv::stmt number '||to_char(l_stmt_num), 1);
2105: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || sqlerrm, 1);
2106: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp errr stmt no :'|| to_char(l_stmt_num));
2107: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE',sqlerrm);
2108:
2109: END IF;
2159:
2160: BEGIN
2161:
2162: IF PG_DEBUG <> 0 THEN
2163: oe_debug_pub.add('configuration_item_created: ' || 'Entering configuration_item_created', 4);
2164: END IF;
2165: --
2166: -- find the top_model_line_id when given an option line id
2167: --
2194: end if;
2195: end if;
2196:
2197: IF PG_DEBUG <> 0 THEN
2198: oe_debug_pub.add('configuration_item_created: ' || 'Exiting configuration_item_created', 4);
2199: END IF;
2200:
2201: EXCEPTION
2202:
2201: EXCEPTION
2202:
2203: when no_data_found then
2204: IF PG_DEBUG <> 0 THEN
2205: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2206: to_char(l_stmt_num)||'top model line does not exist, constraint condition is false', 1);
2207: END IF;
2208: x_result := 0;
2209:
2208: x_result := 0;
2209:
2210: when OTHERS then
2211: IF PG_DEBUG <> 0 THEN
2212: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2213: to_char(l_stmt_num)||'constraint condition is false', 1);
2214: oe_debug_pub.add('configuration_item_created: ' || sqlerrm, 1);
2215: END IF;
2216: x_result := 0;
2210: when OTHERS then
2211: IF PG_DEBUG <> 0 THEN
2212: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2213: to_char(l_stmt_num)||'constraint condition is false', 1);
2214: oe_debug_pub.add('configuration_item_created: ' || sqlerrm, 1);
2215: END IF;
2216: x_result := 0;
2217:
2218:
2255:
2256:
2257: BEGIN
2258: IF PG_DEBUG <> 0 THEN
2259: oe_debug_pub.add('configuration_created: ' || 'Entering configuration_created', 5);
2260: END IF;
2261: -- Check if the line is not an ATO model, option, option class, or
2262: -- config line
2263:
2279: and ato_line_id = l_ato_line_id
2280: and item_type_code = 'CONFIG';
2281:
2282:
2283: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2284: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2285: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2286: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2287: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2280: and item_type_code = 'CONFIG';
2281:
2282:
2283: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2284: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2285: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2286: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2287: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2288:
2281:
2282:
2283: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2284: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2285: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2286: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2287: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2288:
2289:
2282:
2283: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2284: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2285: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2286: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2287: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2288:
2289:
2290:
2283: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2284: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2285: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2286: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2287: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2288:
2289:
2290:
2291: x_result := 1; /* the condition is true */
2289:
2290:
2291: x_result := 1; /* the condition is true */
2292: IF PG_DEBUG <> 0 THEN
2293: oe_debug_pub.add('configuration_created: ' || 'Exiting configuration_created', 5);
2294: END IF;
2295:
2296:
2297:
2296:
2297:
2298: -- x_result := 0;
2299: /* IF PG_DEBUG <> 0 THEN
2300: oe_debug_pub.add('configuration_created: ' || 'Exiting configuration_created'||
2301: 'Sushant made it return 0 or False purposely', 5);
2302: END IF;*/
2303: EXCEPTION
2304:
2303: EXCEPTION
2304:
2305: when no_data_found then
2306: IF PG_DEBUG <> 0 THEN
2307: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2308: to_char(l_stmt_num)||'top model line does not exist, constraint condition is false', 1);
2309: END IF;
2310: x_result := 0;
2311:
2310: x_result := 0;
2311:
2312: when OTHERS then
2313: IF PG_DEBUG <> 0 THEN
2314: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2315: to_char(l_stmt_num)||'constraint condition is false', 1);
2316: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2317: END IF;
2318: x_result := 0;
2312: when OTHERS then
2313: IF PG_DEBUG <> 0 THEN
2314: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2315: to_char(l_stmt_num)||'constraint condition is false', 1);
2316: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2317: END IF;
2318: x_result := 0;
2319:
2320:
2342: PROCESS_ERROR exception;
2343:
2344: begin
2345: IF PG_DEBUG <> 0 THEN
2346: oe_debug_pub.add('configuration_created: ' || 'Entering start_model_workflow', 5);
2347: END IF;
2348:
2349: l_stmt_num := 10;
2350: get_activity_status('OEOL',
2353: l_active_activity);
2354:
2355: IF (l_active_activity = 'CREATE_CONFIG_ITEM_ELIGIBLE') THEN
2356: IF PG_DEBUG <> 0 THEN
2357: oe_debug_pub.add('configuration_created: ' || 'Workflow Status is: '||l_active_activity, 5);
2358: END IF;
2359: l_stmt_num := 20;
2360:
2361: IF (CTO_WORKFLOW_API_PK.complete_activity(
2364: p_activity_name => l_active_activity,
2365: p_result_code => 'COMPLETE') <> TRUE)
2366: THEN
2367: IF PG_DEBUG <> 0 THEN
2368: oe_debug_pub.add('configuration_created: ' || 'Failed in Complete activity.', 1);
2369: END IF;
2370: raise PROCESS_ERROR;
2371: END IF;
2372:
2370: raise PROCESS_ERROR;
2371: END IF;
2372:
2373: IF PG_DEBUG <> 0 THEN
2374: oe_debug_pub.add('configuration_created: ' || 'Success in Complete activity.', 5);
2375: END IF;
2376: ELSE
2377: IF PG_DEBUG <> 0 THEN
2378: oe_debug_pub.add ('configuration_created: ' || 'Workflow Status is not at Create Config Item Eligible.', 5);
2374: oe_debug_pub.add('configuration_created: ' || 'Success in Complete activity.', 5);
2375: END IF;
2376: ELSE
2377: IF PG_DEBUG <> 0 THEN
2378: oe_debug_pub.add ('configuration_created: ' || 'Workflow Status is not at Create Config Item Eligible.', 5);
2379: END IF;
2380:
2381: END IF;
2382:
2380:
2381: END IF;
2382:
2383: IF PG_DEBUG <> 0 THEN
2384: oe_debug_pub.add('configuration_created: ' || 'Exiting start_model_workflow', 5);
2385: END IF;
2386: return TRUE;
2387:
2388: exception
2388: exception
2389:
2390: when PROCESS_ERROR then
2391: IF PG_DEBUG <> 0 THEN
2392: oe_debug_pub.add('configuration_created: ' || 'exp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2393: END IF;
2394: return FALSE;
2395:
2396: when OTHERS then
2394: return FALSE;
2395:
2396: when OTHERS then
2397: IF PG_DEBUG <> 0 THEN
2398: oe_debug_pub.add('configuration_created: ' || 'unexp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2399: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2400: END IF;
2401: return FALSE;
2402:
2395:
2396: when OTHERS then
2397: IF PG_DEBUG <> 0 THEN
2398: oe_debug_pub.add('configuration_created: ' || 'unexp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2399: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2400: END IF;
2401: return FALSE;
2402:
2403: end start_model_workflow;
2438:
2439:
2440: BEGIN
2441: IF PG_DEBUG <> 0 THEN
2442: oe_debug_pub.add('configuration_created: ' || 'Entering Update_Config_Line', 5);
2443: END IF;
2444:
2445: l_stmt_num := 5;
2446:
2450: where line_id = oe_line_security.g_record.line_id
2451: and item_type_code = 'CONFIG';
2452:
2453: IF PG_DEBUG <> 0 THEN
2454: oe_debug_pub.add('configuration_created: ' || 'This is a config item. Check if update is user or system', 5);
2455: END IF;
2456:
2457: IF (oe_config_util.cascade_changes_flag = 'Y'
2458: OR oe_order_sch_util.oesch_perform_scheduling = 'N') THEN
2457: IF (oe_config_util.cascade_changes_flag = 'Y'
2458: OR oe_order_sch_util.oesch_perform_scheduling = 'N') THEN
2459:
2460: IF PG_DEBUG <> 0 THEN
2461: oe_debug_pub.add('configuration_created: ' || 'Cascading or scheduling change, allow update', 5);
2462: END IF;
2463: x_result := 0;
2464: return;
2465: ELSE
2463: x_result := 0;
2464: return;
2465: ELSE
2466: IF PG_DEBUG <> 0 THEN
2467: oe_debug_pub.add('configuration_created: ' || 'User change, update not allowed', 5);
2468: END IF;
2469: x_result := 1; /* the condition is true */
2470: END IF;
2471: IF PG_DEBUG <> 0 THEN
2468: END IF;
2469: x_result := 1; /* the condition is true */
2470: END IF;
2471: IF PG_DEBUG <> 0 THEN
2472: oe_debug_pub.add('configuration_created: ' || 'Exiting Update_Config_Line', 5);
2473: END IF;
2474:
2475: EXCEPTION
2476:
2475: EXCEPTION
2476:
2477: when no_data_found then
2478: IF PG_DEBUG <> 0 THEN
2479: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'not config item',1);
2480: END IF;
2481: x_result := 0;
2482:
2483: when OTHERS then
2481: x_result := 0;
2482:
2483: when OTHERS then
2484: IF PG_DEBUG <> 0 THEN
2485: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2486:
2487: oe_debug_pub.add('configuration_created: ' || sqlerrm);
2488: END IF;
2489: x_result := 0;
2483: when OTHERS then
2484: IF PG_DEBUG <> 0 THEN
2485: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2486:
2487: oe_debug_pub.add('configuration_created: ' || sqlerrm);
2488: END IF;
2489: x_result := 0;
2490:
2491: END Update_Config_Line;
2532: and item_type_code = 'CONFIG';
2533:
2534: BEGIN
2535: IF PG_DEBUG <> 0 THEN
2536: oe_debug_pub.add('configuration_created_for_pto: ' || 'Entering configuration_created_for_pto',5);
2537: END IF;
2538:
2539: -- Check if the line is not an ATO model, option, option class, or
2540: -- config line
2541:
2542: l_stmt_num := 10;
2543: IF oe_line_security.g_record.ato_line_id IS NOT NULL THEN
2544: IF PG_DEBUG <> 0 THEN
2545: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is not a PTO item, constraint condition is false', 5);
2546: END IF;
2547: x_result := 0;
2548: return;
2549: END IF;
2549: END IF;
2550:
2551: l_stmt_num := 20;
2552: IF PG_DEBUG <> 0 THEN
2553: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is a PTO item', 5);
2554: END IF;
2555: l_pto_line := oe_line_security.g_record.line_id;
2556: IF PG_DEBUG <> 0 THEN
2557: oe_debug_pub.add('configuration_created_for_pto: ' || 'l_pto_line = '||to_char(l_pto_line), 5);
2553: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is a PTO item', 5);
2554: END IF;
2555: l_pto_line := oe_line_security.g_record.line_id;
2556: IF PG_DEBUG <> 0 THEN
2557: oe_debug_pub.add('configuration_created_for_pto: ' || 'l_pto_line = '||to_char(l_pto_line), 5);
2558: END IF;
2559:
2560: l_stmt_num := 30;
2561: select 1
2565: and item_type_code = 'CONFIG'
2566: and rownum = 1;
2567:
2568: IF PG_DEBUG <> 0 THEN
2569: oe_debug_pub.add('configuration_created_for_pto: ' || 'Config item exists somewhere in this configuration', 5);
2570: END IF;
2571:
2572: --
2573: -- For each config item, traverse the BOM starting from the ATO model
2577: FOR v_config_exists in c_config_exists LOOP
2578: l_stmt_num := 40;
2579: l_current_model_line := v_config_exists.ato_line_id;
2580: IF PG_DEBUG <> 0 THEN
2581: oe_debug_pub.add('configuration_created_for_pto: ' || 'ATO model being processed : '||to_char(l_current_model_line), 2);
2582: END IF;
2583:
2584: WHILE TRUE LOOP
2585:
2592: where line_id = l_current_model_line;
2593:
2594: IF l_current_model_line = l_pto_line THEN
2595: IF PG_DEBUG <> 0 THEN
2596: oe_debug_pub.add('configuration_created_for_pto: ' || 'Config item exists under this PTO, constraint condition is true', 5);
2597: END IF;
2598: x_result := 1;
2599: return;
2600: END IF;
2602: EXCEPTION
2603: WHEN NO_DATA_FOUND THEN
2604: l_stmt_num := 60;
2605: IF PG_DEBUG <> 0 THEN
2606: oe_debug_pub.add('configuration_created_for_pto: ' || 'No data found::top model', 5);
2607: END IF;
2608: exit; /* break from loop */
2609:
2610: END;
2613: END LOOP; /*cursor loop*/
2614:
2615: x_result := 0; /* the condition is false */
2616: IF PG_DEBUG <> 0 THEN
2617: oe_debug_pub.add('configuration_created_for_pto: ' || 'Exiting configuration_created_for_pto',5);
2618: END IF;
2619:
2620: EXCEPTION
2621:
2620: EXCEPTION
2621:
2622: when no_data_found then
2623: IF PG_DEBUG <> 0 THEN
2624: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num),1);
2625: oe_debug_pub.add('configuration_created_for_pto: ' || 'config item does not exist, constraint condition is false', 1);
2626: END IF;
2627: x_result := 0;
2628:
2621:
2622: when no_data_found then
2623: IF PG_DEBUG <> 0 THEN
2624: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num),1);
2625: oe_debug_pub.add('configuration_created_for_pto: ' || 'config item does not exist, constraint condition is false', 1);
2626: END IF;
2627: x_result := 0;
2628:
2629: when OTHERS then
2627: x_result := 0;
2628:
2629: when OTHERS then
2630: IF PG_DEBUG <> 0 THEN
2631: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2632: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2633: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2634: END IF;
2635: x_result := 0;
2628:
2629: when OTHERS then
2630: IF PG_DEBUG <> 0 THEN
2631: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2632: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2633: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2634: END IF;
2635: x_result := 0;
2636:
2629: when OTHERS then
2630: IF PG_DEBUG <> 0 THEN
2631: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2632: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2633: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2634: END IF;
2635: x_result := 0;
2636:
2637: END Configuration_Created_For_Pto;
2670:
2671:
2672: BEGIN
2673: IF PG_DEBUG <> 0 THEN
2674: oe_debug_pub.add('Top_Ato_Model: ' || 'Entering top_ato_model', 5);
2675: END IF;
2676:
2677: l_stmt_num := 5;
2678:
2683: and ato_line_id = line_id;
2684:
2685: x_result := 1; /* the condition is true */
2686: IF PG_DEBUG <> 0 THEN
2687: oe_debug_pub.add('Top_Ato_Model: ' || 'Exiting top_ato_model', 5);
2688: END IF;
2689:
2690: EXCEPTION
2691:
2690: EXCEPTION
2691:
2692: when no_data_found then
2693: IF PG_DEBUG <> 0 THEN
2694: oe_debug_pub.add('Top_Ato_Model: ' || 'CTO_WORKFLOW_API_PK.top_ato_model::stmt number '||to_char(l_stmt_num)||'not top ato model',1);
2695: END IF;
2696: x_result := 0;
2697:
2698: when OTHERS then
2696: x_result := 0;
2697:
2698: when OTHERS then
2699: IF PG_DEBUG <> 0 THEN
2700: oe_debug_pub.add('Top_Ato_Model: ' || 'CTO_WORKFLOW_API_PK.top_ato_model::stmt number '||to_char(l_stmt_num)||'others',1);
2701:
2702: oe_debug_pub.add('Top_Ato_Model: ' || sqlerrm);
2703: END IF;
2704: x_result := 0;
2698: when OTHERS then
2699: IF PG_DEBUG <> 0 THEN
2700: oe_debug_pub.add('Top_Ato_Model: ' || 'CTO_WORKFLOW_API_PK.top_ato_model::stmt number '||to_char(l_stmt_num)||'others',1);
2701:
2702: oe_debug_pub.add('Top_Ato_Model: ' || sqlerrm);
2703: END IF;
2704: x_result := 0;
2705:
2706: END Top_Ato_Model;
2741:
2742:
2743: BEGIN
2744: IF PG_DEBUG <> 0 THEN
2745: oe_debug_pub.add('Config_Line: ' || 'Entering Config_Line', 5);
2746: END IF;
2747:
2748: l_stmt_num := 5;
2749:
2753: where line_id = oe_line_security.g_record.line_id
2754: and item_type_code = 'CONFIG';
2755:
2756: IF PG_DEBUG <> 0 THEN
2757: oe_debug_pub.add('Config_Line: ' || 'This is a config item.', 5);
2758: END IF;
2759: x_result := 1; /* the condition is true */
2760: IF PG_DEBUG <> 0 THEN
2761: oe_debug_pub.add('Config_Line: ' || 'Exiting Config_Line', 5);
2757: oe_debug_pub.add('Config_Line: ' || 'This is a config item.', 5);
2758: END IF;
2759: x_result := 1; /* the condition is true */
2760: IF PG_DEBUG <> 0 THEN
2761: oe_debug_pub.add('Config_Line: ' || 'Exiting Config_Line', 5);
2762: END IF;
2763:
2764: EXCEPTION
2765:
2764: EXCEPTION
2765:
2766: when no_data_found then
2767: IF PG_DEBUG <> 0 THEN
2768: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'not config item',1);
2769: END IF;
2770: x_result := 0;
2771:
2772: when OTHERS then
2770: x_result := 0;
2771:
2772: when OTHERS then
2773: IF PG_DEBUG <> 0 THEN
2774: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2775: oe_debug_pub.add('Config_Line: ' || sqlerrm, 1);
2776: END IF;
2777: x_result := 0;
2778:
2771:
2772: when OTHERS then
2773: IF PG_DEBUG <> 0 THEN
2774: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2775: oe_debug_pub.add('Config_Line: ' || sqlerrm, 1);
2776: END IF;
2777: x_result := 0;
2778:
2779: END Config_Line;
2809:
2810: l_stmt_num := 10;
2811: l_message := 'line status is '||p_change_status||', (change_status_batch) at stmt number'||to_char(l_stmt_num);
2812: IF PG_DEBUG <> 0 THEN
2813: oe_debug_pub.add('Change_Status_Batch: ' || l_message, 5);
2814: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2815:
2816: END IF;
2817: -- bugfix 2825486: added select to get the current flow_status_code.
2824:
2825:
2826: IF PG_DEBUG <> 0 THEN
2827: l_message := 'Current flow_status_code = '||lFlowStatusCode;
2828: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,4);
2829: oe_debug_pub.add('Cancelled_flag: ' ||l_cancelled_flag,4);
2830: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2831: END IF;
2832:
2825:
2826: IF PG_DEBUG <> 0 THEN
2827: l_message := 'Current flow_status_code = '||lFlowStatusCode;
2828: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,4);
2829: oe_debug_pub.add('Cancelled_flag: ' ||l_cancelled_flag,4);
2830: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2831: END IF;
2832:
2833: -- bugfix 2825486: Added IF. Only when flow_status is different, we'll call OM api to update the
2839:
2840: -- bugfix 2825486: added dbg stmt
2841: IF PG_DEBUG <> 0 THEN
2842: l_message := 'calling OE_ORDER_WF_UTIL.update_flow_status_code to update flow_status to '||p_change_status;
2843: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,5);
2844: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2845: END IF;
2846:
2847: -- Fixed by Renga Kannan on 04/27/06
2868: if x_return_status = FND_API.G_RET_STS_ERROR THEN
2869: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 5151111
2870: IF PG_DEBUG <> 0 THEN
2871: l_message:= 'Error occurred in updating line status to '||p_change_status||' - Stmt_num'||to_char(l_stmt_num);
2872: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2873: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2874:
2875: --bug#4700053
2876: l_message:= 'Progressing ahead even though line status may be wrong';
2873: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2874:
2875: --bug#4700053
2876: l_message:= 'Progressing ahead even though line status may be wrong';
2877: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2878: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2879:
2880: END IF;
2881: --raise FND_API.G_EXC_ERROR;
2883: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2884: x_return_status := FND_API.G_RET_STS_SUCCESS; --5151111
2885: IF PG_DEBUG <> 0 THEN
2886: l_message:= 'UnExp Error occurred in updating line status to '||p_change_status||' - Stmt_num'||to_char(l_stmt_num);
2887: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2888: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2889:
2890: --bug#4700053
2891: l_message:= 'Progressing ahead even though line status may be wrong';
2888: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2889:
2890: --bug#4700053
2891: l_message:= 'Progressing ahead even though line status may be wrong';
2892: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2893: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2894: END IF;
2895: --raise FND_API.G_EXC_UNEXPECTED_ERROR;
2896:
2895: --raise FND_API.G_EXC_UNEXPECTED_ERROR;
2896:
2897: end if;
2898: IF PG_DEBUG <> 0 Then
2899: oe_debug_pub.add('Complete_activity : l_change_context_back = '||l_change_context_back,5);
2900: End if;
2901: End if;
2902: -- Start of bug fxi 5122923
2903:
2907: End if;
2908:
2909: l_message := 'after updating line status to '||p_change_status||', (change_status_batch) at stmt number'||to_char(l_stmt_num);
2910: IF PG_DEBUG <> 0 THEN
2911: oe_debug_pub.add('Change_Status_Batch: ' || l_message, 5);
2912: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', l_message);
2913:
2914: END IF;
2915: EXCEPTION
2915: EXCEPTION
2916:
2917: WHEN FND_API.G_EXC_ERROR THEN
2918: IF PG_DEBUG <> 0 THEN
2919: oe_debug_pub.add('Change_Status_Batch: ' || 'exp error in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2920: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','exp erro change_status_batch :: '||l_stmt_num||sqlerrm);
2921:
2922: END IF;
2923: x_return_status := FND_API.G_RET_STS_ERROR;
2923: x_return_status := FND_API.G_RET_STS_ERROR;
2924:
2925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2926: IF PG_DEBUG <> 0 THEN
2927: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2928: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2929: End if;
2930:
2931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2932:
2933: WHEN OTHERS THEN
2934: IF PG_DEBUG <> 0 THEN
2935: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error (others) in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2936: oe_debug_pub.add('Change_Status_Batch: ' || sqlerrm, 1);
2937: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2938:
2939: END IF;
2932:
2933: WHEN OTHERS THEN
2934: IF PG_DEBUG <> 0 THEN
2935: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error (others) in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2936: oe_debug_pub.add('Change_Status_Batch: ' || sqlerrm, 1);
2937: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2938:
2939: END IF;
2940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2999: savepoint before_process;
3000:
3001: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3002: IF PG_DEBUG <> 0 THEN
3003: oe_debug_pub.add('auto_create_pur_req: ' || 'CTO WF Activity: auto_create_pur_req', 1);
3004: END IF;
3005:
3006: if (p_funcmode = 'RUN') then
3007:
3041: IF so_line.program_id = p_program_id THEN
3042:
3043: -- log message that the line has been processed by the concurrent_program
3044: IF PG_DEBUG <> 0 THEN
3045: oe_debug_pub.add('auto_create_pur_req: ' || 'This line has already been selected to be processed by the concurrent request :'||to_char(so_line.request_id),1);
3046: END IF;
3047:
3048: ELSE
3049:
3070: p_item_id => so_line.inventory_item_id);
3071:
3072: IF nvl(p_new_order_quantity, 0) = 0 THEN
3073: IF PG_DEBUG <> 0 THEN
3074: oe_debug_pub.add('auto_create_pur_req: ' || 'ERROR GET_NEW_ORDER_QTY:: The new order quantity is zero', 1);
3075: END IF;
3076: raise FND_API.G_EXC_ERROR;
3077: END IF;
3078: end;
3092: x_exp_error_code => l_exp_error_code );
3093:
3094: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3095: IF PG_DEBUG <> 0 THEN
3096: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3097: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3098: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3099: END IF;
3100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3093:
3094: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3095: IF PG_DEBUG <> 0 THEN
3096: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3097: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3098: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3099: END IF;
3100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3101: IF PG_DEBUG <> 0 THEN
3094: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3095: IF PG_DEBUG <> 0 THEN
3096: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3097: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3098: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3099: END IF;
3100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3101: IF PG_DEBUG <> 0 THEN
3102: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error query sourcing org', 5);
3098: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3099: END IF;
3100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3101: IF PG_DEBUG <> 0 THEN
3102: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error query sourcing org', 5);
3103: END IF;
3104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3105: END IF;
3106:
3115: x_return_status => x_return_status);
3116:
3117: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3118: IF PG_DEBUG <> 0 THEN
3119: oe_debug_pub.add('auto_create_pur_req: ' || 'success from get_need_by_date' || ' l_need_by_date=' || l_need_by_date, 5);
3120: END IF;
3121: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3122: IF PG_DEBUG <> 0 THEN
3123: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error in get_need_by_date', 5);
3119: oe_debug_pub.add('auto_create_pur_req: ' || 'success from get_need_by_date' || ' l_need_by_date=' || l_need_by_date, 5);
3120: END IF;
3121: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3122: IF PG_DEBUG <> 0 THEN
3123: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error in get_need_by_date', 5);
3124: END IF;
3125: raise fnd_api.g_exc_unexpected_error;
3126: END IF;
3127:
3164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3165:
3166: ELSE
3167: IF PG_DEBUG <> 0 THEN
3168: oe_debug_pub.add('auto_create_pur_req: ' || 'Insert successful.',5);
3169: END IF;
3170:
3171: l_stmt_num := 40; --bugfix4545070
3172: l_rets := display_wf_status( p_order_line_id=>so_line.line_id);
3173:
3174:
3175: IF l_rets = 0 THEN
3176: IF PG_DEBUG <> 0 THEN
3177: oe_debug_pub.add('auto_create_pur_req: ' || 'UNExp Error occurred in call to display_wf_status at - Stmt_num'||to_char(l_stmt_num),1);
3178: END IF;
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSE
3181: IF PG_DEBUG <> 0 THEN
3178: END IF;
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSE
3181: IF PG_DEBUG <> 0 THEN
3182: oe_debug_pub.add('auto_create_pur_req: ' || 'Order updated to REQ_REQUESTED.', 5);
3183: END IF;
3184: END IF;
3185:
3186: END IF; -- end of returnstatus check
3196:
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: IF PG_DEBUG <> 0 THEN
3200: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::exp error::'||to_char(l_stmt_num),1);
3201: END IF;
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3203: wf_core.context('CTO_WORKFLOW', 'auto_create_pur_req, stmt_num :'||to_char(l_stmt_num),p_itemtype, p_itemkey, to_char(p_actid),p_funcmode, 1);
3204: x_result := 'CTO_INCOMPLETE';
3206: return;
3207:
3208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3209: IF PG_DEBUG <> 0 THEN
3210: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::unexp error::'||to_char(l_stmt_num),1);
3211: END IF;
3212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3213: wf_core.context('CTO_WORKFLOW', 'auto_create_pur_req, stmt_num :'||to_char(l_stmt_num),
3214: p_itemtype, p_itemkey, to_char(p_actid),
3216: raise;
3217:
3218: WHEN OTHERS THEN
3219: IF PG_DEBUG <> 0 THEN
3220: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::other error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
3221: END IF;
3222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3223: wf_core.context('CTO_WORKFLOW', 'auto_create_pur_req, stmt_num :'||to_char(l_stmt_num),
3224: p_itemtype, p_itemkey, to_char(p_actid),
3253: l_ato_line_id Number;
3254:
3255: BEGIN
3256: IF PG_DEBUG <> 0 THEN
3257: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'Entering Chk_buy_ato_item', 5);
3258: END IF;
3259:
3260: l_stmt_num := 5;
3261:
3288: );
3289:
3290: IF nvl(v_source_type,2) = 3 THEN
3291: IF PG_DEBUG <> 0 THEN
3292: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'It is an buy ato item...',5);
3293: END IF;
3294: x_result := 1; /* This is correct condition */
3295: ELSE
3296: IF PG_DEBUG <> 0 THEN
3293: END IF;
3294: x_result := 1; /* This is correct condition */
3295: ELSE
3296: IF PG_DEBUG <> 0 THEN
3297: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'It is a make ato item',5);
3298: END IF;
3299: x_result := 0;
3300: END IF;
3301:
3300: END IF;
3301:
3302: ELSE
3303: IF PG_DEBUG <> 0 THEN
3304: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'Not an ato item...',5);
3305: END IF;
3306: x_result := 0;
3307: END IF;
3308:
3309: EXCEPTION
3310:
3311: when no_data_found then
3312: IF PG_DEBUG <> 0 THEN
3313: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'not config item',1);
3314: END IF;
3315: x_result := 0;
3316:
3317: when OTHERS then
3315: x_result := 0;
3316:
3317: when OTHERS then
3318: IF PG_DEBUG <> 0 THEN
3319: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
3320:
3321: oe_debug_pub.add('chk_Buy_Ato_Item: ' || sqlerrm);
3322: END IF;
3323: x_result := 0;
3317: when OTHERS then
3318: IF PG_DEBUG <> 0 THEN
3319: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
3320:
3321: oe_debug_pub.add('chk_Buy_Ato_Item: ' || sqlerrm);
3322: END IF;
3323: x_result := 0;
3324:
3325: END chk_Buy_Ato_Item;
3366:
3367: v_aps_version := msc_atp_global.get_aps_version ;
3368:
3369: if( v_aps_version <> 10) then
3370: oe_debug_pub.add('reservation_exists: ' || 'APS version::'|| v_aps_version , 2);
3371:
3372: x_result := 1 ;
3373:
3374: return ;
3376: end if;
3377:
3378:
3379: IF PG_DEBUG <> 0 THEN
3380: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3381: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3382: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3383: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3384: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3377:
3378:
3379: IF PG_DEBUG <> 0 THEN
3380: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3381: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3382: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3383: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3384: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3385: END IF;
3378:
3379: IF PG_DEBUG <> 0 THEN
3380: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3381: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3382: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3383: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3384: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3385: END IF;
3386: l_stmt_num := 5;
3379: IF PG_DEBUG <> 0 THEN
3380: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3381: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3382: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3383: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3384: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3385: END IF;
3386: l_stmt_num := 5;
3387: select ato_line_id, header_id , inventory_item_id
3380: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3381: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3382: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3383: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3384: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3385: END IF;
3386: l_stmt_num := 5;
3387: select ato_line_id, header_id , inventory_item_id
3388: into l_ato_line_id, l_header_id , l_cfg_item_id
3407:
3408:
3409: if( oe_line_security.g_record.split_action_code = 'SPLIT' ) then /* bug 3424802 */
3410: IF PG_DEBUG <> 0 THEN
3411: oe_debug_pub.add( 'no need to check for CIB attribute for split scenario ' , 1) ;
3412: END IF;
3413: else
3414: IF PG_DEBUG <> 0 THEN
3415: oe_debug_pub.add( 'need to check for CIB attribute as update warehouse is enabled only for CIB = 3 ' , 1) ;
3411: oe_debug_pub.add( 'no need to check for CIB attribute for split scenario ' , 1) ;
3412: END IF;
3413: else
3414: IF PG_DEBUG <> 0 THEN
3415: oe_debug_pub.add( 'need to check for CIB attribute as update warehouse is enabled only for CIB = 3 ' , 1) ;
3416: END IF;
3417: -- R12 fp bug 4380768
3418: -- Modified by Renga on 06/06/05
3419: -- Added nvl clause for config_orgs
3435:
3436: if( l_config_orgs <> '3') then
3437:
3438: IF PG_DEBUG <> 0 THEN
3439: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3440: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3441: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3442: END IF;
3443: x_result := 1 ;
3436: if( l_config_orgs <> '3') then
3437:
3438: IF PG_DEBUG <> 0 THEN
3439: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3440: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3441: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3442: END IF;
3443: x_result := 1 ;
3444:
3437:
3438: IF PG_DEBUG <> 0 THEN
3439: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3440: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3441: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3442: END IF;
3443: x_result := 1 ;
3444:
3445: return ;
3480: exception
3481: when no_data_found then
3482: x_result := 0 ;
3483: IF PG_DEBUG <> 0 THEN
3484: oe_debug_pub.add('CTO_WORKFLOW_API_PK: ' || 'reservation exists::'|| ' NO DATA FOUND EXCEPTION ' || l_stmt_num , 2);
3485: END IF;
3486: when others then
3487:
3488: x_result := 0 ;
3486: when others then
3487:
3488: x_result := 0 ;
3489: IF PG_DEBUG <> 0 THEN
3490: oe_debug_pub.add('CTO_WORKFLOW_API_PK: ' || 'reservation exists::'|| ' OTHERS EXCEPTION ' || l_stmt_num , 2);
3491: END IF;
3492:
3493: end reservation_exists ;
3494:
3578: );
3579:
3580: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3581: IF PG_DEBUG <> 0 THEN
3582: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3583: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3584: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3585:
3586: END IF;
3579:
3580: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3581: IF PG_DEBUG <> 0 THEN
3582: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3583: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3584: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3585:
3586: END IF;
3587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3580: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3581: IF PG_DEBUG <> 0 THEN
3582: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3583: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3584: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3585:
3586: END IF;
3587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3588: IF PG_DEBUG <> 0 THEN
3585:
3586: END IF;
3587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3588: IF PG_DEBUG <> 0 THEN
3589: oe_debug_pub.add('get_status_tokens: '||'status after after Get_Resv_Qty_and_Code=>'
3590: || FND_API.G_RET_STS_ERROR,1);
3591: END IF;
3592: RAISE fnd_api.g_exc_error;
3593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3592: RAISE fnd_api.g_exc_error;
3593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3594:
3595: IF PG_DEBUG <> 0 THEN
3596: oe_debug_pub.add('status after after Get_Resv_Qty_and_Code=>'
3597: || FND_API.G_RET_STS_UNEXP_ERROR,1 );
3598:
3599: END IF;
3600: RAISE fnd_api.g_exc_unexpected_error;
3646: l_int_req_if_src_id := cto_utility_pk.g_source_type_int_req_if;
3647: --end cross_dock
3648:
3649: IF PG_DEBUG <> 0 THEN
3650: oe_debug_pub.add('get_status_tokens: '||'In IF BLOCK when l_rsv_rec count is > 0 ',5);
3651: END IF;
3652:
3653: IF PG_DEBUG = 5 THEN
3654: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3650: oe_debug_pub.add('get_status_tokens: '||'In IF BLOCK when l_rsv_rec count is > 0 ',5);
3651: END IF;
3652:
3653: IF PG_DEBUG = 5 THEN
3654: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3655: oe_debug_pub.add('get_status_tokens:'||'RSV_SRC_TYP '||'Quantity', 5);
3656:
3657: l_stmt_num := 50;
3658: k := l_rsv_rec.first;
3651: END IF;
3652:
3653: IF PG_DEBUG = 5 THEN
3654: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3655: oe_debug_pub.add('get_status_tokens:'||'RSV_SRC_TYP '||'Quantity', 5);
3656:
3657: l_stmt_num := 50;
3658: k := l_rsv_rec.first;
3659:
3658: k := l_rsv_rec.first;
3659:
3660: WHILE (k is not null)
3661: LOOP
3662: oe_debug_pub.add('get_status_tokens:'||l_rsv_rec(k).supply_source_type_id
3663: ||' => '|| l_rsv_rec(k).primary_reservation_quantity, 5);
3664:
3665: k := l_rsv_rec.next(k);
3666: END LOOP;
3730: if l_rsv_rec.exists(l_ext_req_if_src_id) then
3731: x_token1 := 'EXTERNAL_REQ';
3732:
3733: IF PG_DEBUG <> 0 THEN
3734: oe_debug_pub.add('get_status_tokens: '||'x_token1=> '||x_token1,5);
3735: END IF;
3736:
3737: elsif l_rsv_rec.exists(l_int_req_if_src_id) then
3738: x_token1 := 'INTERNAL_REQ';
3759: EXCEPTION--4752854,fixed as part of code review
3760:
3761: WHEN fnd_api.g_exc_error THEN
3762: IF PG_DEBUG <> 0 THEN
3763: oe_debug_pub.add('get_status_tokens: ' || 'Exception in stmt num: '
3764: || to_char(l_stmt_num), 1);
3765: END IF;
3766: x_return_status := FND_API.G_RET_STS_ERROR;
3767: -- Get message count and data
3770: , p_msg_data => x_msg_data
3771: );
3772: WHEN fnd_api.g_exc_unexpected_error THEN
3773: IF PG_DEBUG <> 0 THEN
3774: oe_debug_pub.add('get_status_tokens: '|| ' Unexpected Exception in stmt num: '
3775: || to_char(l_stmt_num), 1);
3776: END IF;
3777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3778: -- Get message count and data
3783: WHEN OTHERS then
3784:
3785:
3786: IF PG_DEBUG <> 0 THEN
3787: oe_debug_pub.add('get_status_tokens: '||'errmsg'||sqlerrm,1);
3788: oe_debug_pub.add('get_status_tokens: ' || 'Others Exception in stmt num: '
3789: || to_char(l_stmt_num), 1);
3790: END IF;
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3784:
3785:
3786: IF PG_DEBUG <> 0 THEN
3787: oe_debug_pub.add('get_status_tokens: '||'errmsg'||sqlerrm,1);
3788: oe_debug_pub.add('get_status_tokens: ' || 'Others Exception in stmt num: '
3789: || to_char(l_stmt_num), 1);
3790: END IF;
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: -- Get message count and data