[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;
505:
506: BEGIN
507:
508: IF PG_DEBUG <> 0 THEN
509: oe_debug_pub.add('display_wf_status: ' || 'Entering display_wf_status', 1);
510: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'Entering Display_wf_status');
511: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'P_order_line_id ='||to_char(p_order_line_id));
512: End if;
513:
557: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_ordered_quantity = '||to_char(v_ordered_quantity));
558: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_source_type_code = '||v_source_type_code);
559: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
561: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
558: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'v_source_type_code = '||v_source_type_code);
559: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
561: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
559: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'ato line id = '||l_ato_line_id);
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
561: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
567: END IF;
560: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'top model line id = '||l_top_model_line_id);
561: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
567: END IF;
568:
561: oe_debug_pub.add('display_wf_status: ' || 'v_header_id = '||to_char(v_header_id) , 5);
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
567: END IF;
568:
569: l_stmt_num := 11;
562: oe_debug_pub.add('display_wf_status: ' || 'l_oe_org_id = '||to_char(l_oe_org_id) , 5);
563: oe_debug_pub.add('display_wf_status: ' || 'v_ordered_quantity = '||to_char(v_ordered_quantity) , 5);
564: oe_debug_pub.add('display_wf_status: ' || 'v_source_type_code = '||v_source_type_code , 5);
565: oe_debug_pub.add('display_wf_status: ' || 'ato line id = '||l_ato_line_id , 5);
566: oe_debug_pub.add('display_wf_status: ' || 'top model line id = '||l_top_model_line_id , 5);
567: END IF;
568:
569: l_stmt_num := 11;
570:
570:
571: If l_booked_flag = 'N' Then
572: IF PG_DEBUG <> 0 Then
573: cto_wip_workflow_api_pk.cto_debug('Display_wf_status',' Line is not yet booked. No need to change status');
574: oe_debug_pub.add('Display_wf_status: Line is not yet booked. No need to change status',1);
575: End if;
576: elsif nvl(v_shipped_quantity,0) <> 0 then
577:
578: If PG_DEBUG <> 0 Then
633:
634:
635:
636: If PG_DEBUG <> 0 Then
637: oe_debug_pub.add('Display_wf_status : New status code = '||l_change_status,1);
638: End if;
639:
640: If l_change_status <> '_' Then
641:
655: x_return_status => x_return_status);
656:
657: if x_return_status = FND_API.G_RET_STS_ERROR then
658: IF PG_DEBUG <> 0 THEN
659: oe_debug_pub.add('display_wf_status: ' || 'change_status_batch raised expected error.', 1);
660: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'change_status_batch raised expected error.');
661: End if;
662: raise FND_API.G_EXC_ERROR;
663: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
661: End if;
662: raise FND_API.G_EXC_ERROR;
663: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
664: IF PG_DEBUG <> 0 THEN
665: oe_debug_pub.add('display_wf_status: ' || 'change_status_batch raised unexpected error.', 1);
666: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'change_status_batch raised unexpected error.');
667: End if;
668: raise FND_API.G_EXC_UNEXPECTED_ERROR;
669: end if; /* x_return_status = FND_API.G_RET_STS_ERROR */
668: raise FND_API.G_EXC_UNEXPECTED_ERROR;
669: end if; /* x_return_status = FND_API.G_RET_STS_ERROR */
670:
671: IF PG_DEBUG <> 0 THEN
672: oe_debug_pub.add('display_wf_status: ' || 'Re-Setting the Org Context to '||l_original_org_id, 5);
673: END IF;
674:
675: End if; /* l_change_status <> '_' */
676:
674:
675: End if; /* l_change_status <> '_' */
676:
677: IF PG_DEBUG <> 0 THEN
678: oe_debug_pub.add('display_wf_status: ' || 'Exiting disp_wf_status', 4);
679: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', 'Exiting display_wf_Status with return value 1');
680: End if;
681: return 1;
682:
682:
683: EXCEPTION
684: when FND_API.G_EXC_ERROR then
685: IF PG_DEBUG <> 0 THEN
686: 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);
687: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
688: 'CTO_WORKFLOW_API_PK.display_wf_status raised exp error::stmt number '|| to_char(l_stmt_num));
689: End if;
690: return 0;--bugfix 4545070
690: return 0;--bugfix 4545070
691:
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
693: IF PG_DEBUG <> 0 THEN
694: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status raised unexp error::stmt number '||
695: to_char(l_stmt_num)||sqlerrm, 1);
696: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
697: 'CTO_WORKFLOW_API_PK.display_wf_status raised unexp error::stmt number '|| to_char(l_stmt_num));
698: End if;
698: End if;
699: return 0;
700: when others then
701: IF PG_DEBUG <> 0 THEN
702: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||to_char(l_stmt_num), 1);
703: oe_debug_pub.add('display_wf_status: ' || sqlerrm, 1);
704: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
705: 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||
706: to_char(l_stmt_num));
699: return 0;
700: when others then
701: IF PG_DEBUG <> 0 THEN
702: oe_debug_pub.add('display_wf_status: ' || 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||to_char(l_stmt_num), 1);
703: oe_debug_pub.add('display_wf_status: ' || sqlerrm, 1);
704: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS',
705: 'CTO_WORKFLOW_API_PK.display_wf_status::stmt number '||
706: to_char(l_stmt_num));
707: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', sqlerrm);
750: DROPSHIP_EXCEPTION EXCEPTION ;
751:
752: BEGIN
753: IF PG_DEBUG <> 0 THEN
754: oe_debug_pub.add('inventory_reservation_check: ' || 'Entering inventory_reservation_check', 2);
755: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'In inventory_reservation_check');
756: End if;
757:
758: x_return_status := FND_API.G_RET_STS_SUCCESS;
896:
897: end if;
898: If PG_DEBUG <> 0 then
899: cto_wip_workflow_api_pk.cto_debug('inventory_reservation_check', 'Exiting inventory_reservation_check');
900: oe_debug_pub.add('inventory_reservation_check: ' || 'Exiting inventory_reservation_check', 2);
901: END IF;
902:
903: EXCEPTION
904: when FND_API.G_EXC_ERROR then
902:
903: EXCEPTION
904: when FND_API.G_EXC_ERROR then
905: IF PG_DEBUG <> 0 THEN
906: 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);
907: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no :'|| to_char(l_stmt_num));
908: End if;
909:
910: x_return_status := FND_API.G_RET_STS_ERROR;
913: p_msg_data => x_msg_data
914: );
915: when FND_API.G_EXC_UNEXPECTED_ERROR then
916: IF PG_DEBUG <> 0 THEN
917: 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);
918: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'|| to_char(l_stmt_num));
919: End if;
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: cto_msg_pub.count_and_get(
924: );
925:
926: when others then
927: IF PG_DEBUG <> 0 THEN
928: 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);
929:
930: oe_debug_pub.add('inventory_reservation_check: ' || sqlerrm);
931: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'||to_char(l_stmt_num) );
932: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check', sqlerrm);
926: when others then
927: IF PG_DEBUG <> 0 THEN
928: 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);
929:
930: oe_debug_pub.add('inventory_reservation_check: ' || sqlerrm);
931: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check','Stmt no:'||to_char(l_stmt_num) );
932: cto_wip_workflow_api_pk.cto_debug('Inventory_reservation_check', sqlerrm);
933: End if;
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
987: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Entering wf_update_after_inv_reserv');
988: End if;
989:
990: IF PG_DEBUG <> 0 THEN
991: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Entering wf_update_after_inv_reserv', 2);
992: END IF;
993: x_return_status := FND_API.G_RET_STS_SUCCESS;
994: l_stmt_num := 10;
995:
1020:
1021: l_stmt_num := 20;
1022:
1023: IF PG_DEBUG <> 0 THEN
1024: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'item_type_code is STANDARD OR OPTION => an ato item', 4);
1025: END IF;--fix for bug#1874380
1026: If PG_DEBUG <> 0 Then
1027: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before querying wf_activity_status..');
1028: End if;
1057: p_activity_name => 'CREATE_SUPPLY_ORDER_ELIGIBLE',
1058: p_result_code => 'RESERVED')) Then
1059:
1060: If PG_DEBUG <> 0 Then
1061: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity is successful',5);
1062: End if;
1063:
1064: Else
1065: if PG_DEBUG <> 0 Then
1062: End if;
1063:
1064: Else
1065: if PG_DEBUG <> 0 Then
1066: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1067: end if;
1068: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1069: End if;
1070:
1073: --start of fix for bug#1895563
1074: If PG_DEBUG <> 0 Then
1075: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before calling display_wf_status..'||
1076: 'from l_stmt_num=>'||l_stmt_num);
1077: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1078: END IF;
1079:
1080: return_value := display_wf_status(p_order_line_id);
1081:
1081:
1082: If PG_DEBUG <> 0 Then
1083: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Return value after display_wf_status'
1084: ||to_char(return_value));
1085: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1086: ||to_char(return_value),1);
1087: END IF;
1088: --end of fix for bug#1895563
1089:
1135: If PG_DEBUG <> 0 Then
1136: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1137: 'Before calling display_wf_status..'||
1138: 'from l_stmt_num=>'||l_stmt_num);
1139: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1140: END IF;
1141:
1142: return_value := display_wf_status(p_order_line_id);
1143:
1145: If PG_DEBUG <> 0 Then
1146: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1147: 'Return value after display_wf_status'
1148: ||to_char(return_value));
1149: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1150: ||to_char(return_value),1);
1151: END IF;
1152: END IF;
1153:
1155:
1156: If PG_DEBUG <> 0 Then
1157: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Before calling display_wf_status..'||
1158: 'from l_stmt_num=>'||l_stmt_num);
1159: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Before calling display_wf_status.. from l_stmt_num=>'||l_stmt_num,2);
1160: END IF;
1161:
1162: return_value := display_wf_status(p_order_line_id);
1163:
1164:
1165: If PG_DEBUG <> 0 Then
1166: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV','Return value after display_wf_status'
1167: ||to_char(return_value));
1168: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Return value after display_wf_status at l_stmt_num=>'||l_stmt_num||'is'
1169: ||to_char(return_value),1);
1170: END IF;
1171: END IF;
1172: --end of fix for bug#1895563
1223: p_itemkey => to_char(p_order_line_id),
1224: p_activity_name => 'CREATE_SUPPLY_ORDER_ELIGIBLE',
1225: p_result_code => 'RESERVED')) Then
1226: If PG_DEBUG <> 0 Then
1227: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: complete_activity is sucessful ',5);
1228: End if;
1229: Else
1230: if PG_DEBUG <> 0 Then
1231: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1227: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: complete_activity is sucessful ',5);
1228: End if;
1229: Else
1230: if PG_DEBUG <> 0 Then
1231: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
1232: end if;
1233: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1234: End if;
1235:
1315: If PG_DEBUG <> 0 then
1316: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',' Exiting wf_update_after_inv_reserv');
1317: End if;
1318: IF PG_DEBUG <> 0 THEN
1319: oe_debug_pub.add('wf_update_after_inv_reserv: ' || 'Exiting wf_update_after_inv_reserv', 2);
1320: END IF;
1321:
1322: EXCEPTION
1323: when FND_API.G_EXC_ERROR then
1321:
1322: EXCEPTION
1323: when FND_API.G_EXC_ERROR then
1324: IF PG_DEBUG <> 0 THEN
1325: 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);
1326: END IF;
1327:
1328: If PG_DEBUG <> 0 Then
1329: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1338: );
1339:
1340: when FND_API.G_EXC_UNEXPECTED_ERROR then
1341: IF PG_DEBUG <> 0 THEN
1342: 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);
1343: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV',
1344: 'UNExp error in CTO_WORKFLOW_API_PK.wf_update_inv_reserv::
1345: stmt no : '||to_char(l_stmt_num)||'::'||sqlerrm);
1346: End if;
1352: );
1353:
1354: when others then
1355: IF PG_DEBUG <> 0 THEN
1356: 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);
1357:
1358: oe_debug_pub.add('wf_update_after_inv_reserv: ' || sqlerrm, 1);
1359: END IF;
1360: If PG_DEBUG <> 0 Then
1354: when others then
1355: IF PG_DEBUG <> 0 THEN
1356: 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);
1357:
1358: oe_debug_pub.add('wf_update_after_inv_reserv: ' || sqlerrm, 1);
1359: END IF;
1360: If PG_DEBUG <> 0 Then
1361: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', 'OTHERS excpn: stmt no : '||to_char(l_stmt_num));
1362: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_RESERV', sqlerrm);
1403: l_stmt_num number;
1404:
1405: BEGIN
1406: IF PG_DEBUG <> 0 THEN
1407: oe_debug_pub.add('inventory_unreservation_check: ' || 'Entering inventory_unreservation_check', 2);
1408: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check','Entering inventory_unreservation_check');
1409: End if;
1410:
1411: x_return_status := FND_API.G_RET_STS_SUCCESS;
1455: if (CTO_UTILITY_PK.check_rsv_quantity (p_order_line_id => p_order_line_id,
1456: p_rsv_quantity => p_rsv_quantity) = FALSE )
1457: then
1458: IF PG_DEBUG <> 0 THEN
1459: oe_debug_pub.add ('inventory_unreservation_check: ' || 'Unreservation of qty '||p_rsv_quantity ||
1460: ' is NOT allowed since part of this has been either ship confirmed, intrasit or closed.', 2);
1461: END IF;
1462:
1463: If PG_DEBUG <> 0 Then
1467: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_ACTIVITY_STATUS');
1468: raise FND_API.G_EXC_ERROR;
1469: else
1470: IF PG_DEBUG <> 0 THEN
1471: oe_debug_pub.add ('inventory_unreservation_check: ' || 'Quantity being unreserved ('||p_rsv_quantity||') is okay.',4);
1472: END IF;
1473: end if;
1474:
1475: --end bugfix 2001824
1475: --end bugfix 2001824
1476: end if;
1477:
1478: IF PG_DEBUG <> 0 THEN
1479: oe_debug_pub.add('inventory_unreservation_check: ' || 'Exiting inventory_unreservation_check', 2);
1480: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check', 'Exiting inventory_unreservation_check');
1481: End if;
1482:
1483: EXCEPTION
1483: EXCEPTION
1484:
1485: when FND_API.G_EXC_ERROR then
1486: IF PG_DEBUG <> 0 THEN
1487: 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);
1488: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1489: 'Raised FND_API.G_EXC_ERROR, stmt'||l_stmt_num);
1490: End if;
1491: x_return_status := FND_API.G_RET_STS_ERROR;
1495: );
1496:
1497: when FND_API.G_EXC_UNEXPECTED_ERROR then
1498: IF PG_DEBUG <> 0 THEN
1499: 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);
1500: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1501: 'Raised FND_API.G_EXC_UNEXPECTED_ERROR, stmt'||l_stmt_num);
1502: End if;
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507: );
1508:
1509: when others then
1510: IF PG_DEBUG <> 0 THEN
1511: 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);
1512:
1513: oe_debug_pub.add('inventory_unreservation_check: ' || sqlerrm, 1);
1514: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1515: 'Raised OTHERS excepn, stmt: '||l_stmt_num);
1509: when others then
1510: IF PG_DEBUG <> 0 THEN
1511: 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);
1512:
1513: oe_debug_pub.add('inventory_unreservation_check: ' || sqlerrm, 1);
1514: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check',
1515: 'Raised OTHERS excepn, stmt: '||l_stmt_num);
1516: cto_wip_workflow_api_pk.cto_debug('inventory_unreservation_check', sqlerrm);
1517: End if;
1631:
1632: BEGIN
1633: If PG_DEBUG <> 0 Then
1634: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'In wf_update_after_inv_unreserv');
1635: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Entering wf_update_after_inv_unreserv', 2);
1636: END IF;
1637:
1638: x_return_status := FND_API.G_RET_STS_SUCCESS;
1639: l_stmt_num := 10;
1664: If PG_DEBUG <> 0 Then
1665: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'ATO Line Id = '||v_ato_line_id);
1666: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1667: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1668: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1669: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1670: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1671: End if;
1672:
1665: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'ATO Line Id = '||v_ato_line_id);
1666: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1667: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1668: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1669: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1670: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1671: End if;
1672:
1673: if v_open_flag = 'Y' then --Bugfix 7214005
1666: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Item Type Code = '||v_item_type_code);
1667: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Open Flag = '||v_open_flag);
1668: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'ATO Line Id ='||v_ato_line_id, 1);
1669: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Item Type Code ='||v_item_type_code, 1);
1670: oe_debug_pub.add('wf_update_after_inv_unreserv ' || 'Open Flag ='||v_open_flag, 1);
1671: End if;
1672:
1673: if v_open_flag = 'Y' then --Bugfix 7214005
1674: l_source_document_type_id := CTO_UTILITY_PK.get_source_document_id ( pLineId => p_order_line_id ); --bugfix 1799874
1698:
1699: IF upper(v_activity_status_code) = 'NOTIFIED' THEN
1700:
1701: IF PG_DEBUG <> 0 THEN
1702: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Ship Line Notified...',1);
1703: END IF;
1704:
1705: --to check if cto or planning has created the supply
1706: CTO_UTILITY_PK.check_cto_can_create_supply (
1716: );
1717:
1718:
1719: IF PG_DEBUG <> 0 THEN
1720: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||'check_cto_can_create_supply'
1721: ||'x_return_status=> ' || x_return_status);
1722:
1723: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||
1724: 'l_can_create_supply is=>'||l_can_create_supply,1);
1719: IF PG_DEBUG <> 0 THEN
1720: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||'check_cto_can_create_supply'
1721: ||'x_return_status=> ' || x_return_status);
1722:
1723: oe_debug_pub.add('wf_update_after_inv_unreserv: ' ||
1724: 'l_can_create_supply is=>'||l_can_create_supply,1);
1725:
1726: END IF;
1727:
1859: --
1860:
1861: If l_ship_xfaced_flag = 'Y' Then
1862: IF PG_DEBUG <> 0 THEN
1863: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Calling OE_Shipping_Integration_Pub.Get_Min_Max_Tolerance_Quantity..', 4);
1864: END IF;
1865:
1866: -- rkaza. 04/18/2005 bug 2985672
1867: -- Calling shipping tolerance api as a replacement of OM's api.
1881: IF (v_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1882: IF PG_DEBUG <> 0 THEN
1883: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1884: 'Failed in WSH_Integration_Pub.Get Tolerance');
1885: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'CTO:Failed in WSH_Integration_Pub.Get Tolerance :' || v_x_return_status, 1);
1886: END IF;
1887: OE_MSG_PUB.ADD;
1888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1889: ELSE
1887: OE_MSG_PUB.ADD;
1888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1889: ELSE
1890: IF PG_DEBUG <> 0 THEN
1891: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1892:
1893: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1894:
1895: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1889: ELSE
1890: IF PG_DEBUG <> 0 THEN
1891: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1892:
1893: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1894:
1895: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1896:
1897: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1891: oe_debug_pub.add ('wf_update_after_inv_unreserv: ' || 'CTO: Returned from WSH_Integration_Pub.Get_Min_Max_Tolerance_Quantity.', 4);
1892:
1893: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1894:
1895: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1896:
1897: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1898:
1899: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1893: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter = '|| v_counter, 4);
1894:
1895: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1896:
1897: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1898:
1899: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1900:
1901: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1895: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'v_counter2 = '|| v_counter2, 4);
1896:
1897: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1898:
1899: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1900:
1901: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1902:
1903: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1897: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity, 4);
1898:
1899: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1900:
1901: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1902:
1903: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1904: END IF;
1905: END IF ;--get min max status if block
1899: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity = '|| l_out_attributes.max_remaining_quantity, 4);
1900:
1901: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_min_remaining_quantity2 = '|| l_out_attributes.min_remaining_quantity2, 4);
1902:
1903: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'x_max_remaining_quantity2 = '|| l_out_attributes.max_remaining_quantity2, 4);
1904: END IF;
1905: END IF ;--get min max status if block
1906: End If;
1907: -- End bugfix 2109503
1911:
1912: IF PG_DEBUG <> 0 THEN
1913: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'v_x_min_remaining_quantity = '|| l_out_attributes.min_remaining_quantity);
1914: cto_wip_workflow_api_pk.cto_debug('Wf_update_after_inv_unreserve',' Shipping interfaced flag = '||l_ship_xfaced_flag);
1915: oe_debug_pub.add('Wf_update_after_inv_unreserve: Shipping interfaced flag = '||l_ship_xfaced_flag);
1916: end if;
1917:
1918: -- bugfix 2118864
1919: -- If there is no reservation for this line and if the line is not
1927: then
1928:
1929: IF PG_DEBUG <> 0 Then
1930: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'No Reservations exists... Updating workflow.');
1931: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'No Reservation Exists...',1);
1932: END IF;
1933:
1934: l_stmt_num := 50;
1935:
1951: l_changed_attributes(1).released_status := 'N';
1952: l_changed_attributes(1).action_flag := 'U';
1953:
1954: IF PG_DEBUG <> 0 THEN
1955: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Renga: Updating the shipping attributes..',1);
1956: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1957: 'Renga : CAlling Shipping update attribute api');
1958: End if;
1959: WSH_INTERFACE.Update_Shipping_Attributes
1967:
1968: IF PG_DEBUG <> 0 THEN
1969: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv',
1970: 'WSH_INTERFACE.update_shipping_attributes');
1971: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'CTO:Failed in WSH_INTERFACE.update_shipping_attributes :', 1);
1972: END IF;
1973: OE_MSG_PUB.ADD;
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSE
1973: OE_MSG_PUB.ADD;
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSE
1976: IF PG_DEBUG <> 0 THEN
1977: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || ' Renga: Success in update_shipping attributes..', 2);
1978: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserve',
1979: ' Renga: Success in update_shipping attributes..');
1980:
1981: END IF;
1991: p_activity_name => 'SHIP_LINE',
1992: p_result_code => 'UNRESERVE')) Then
1993:
1994: If PG_DEBUG <> 0 Then
1995: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity is successful',5);
1996: End if;
1997:
1998: Else
1999: if PG_DEBUG <> 0 Then
1996: End if;
1997:
1998: Else
1999: if PG_DEBUG <> 0 Then
2000: oe_debug_pub.add('WF_UPDATE_AFTER_INV_RESERV: Complete_activity function returned error..',5);
2001: end if;
2002: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2003: End if;
2004: -- End of bug fix 5357300
2003: End if;
2004: -- End of bug fix 5357300
2005: else
2006: IF PG_DEBUG <> 0 THEN
2007: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Reservation Exists. Will not update workflow status.',1);
2008: END IF;
2009: end if; --v_counter
2010:
2011: END IF; --status of check_cto_can_create_supply
2040: end if; --v_open_flag Bugfix 7214005
2041:
2042: IF PG_DEBUG <> 0 THEN
2043: cto_wip_workflow_api_pk.cto_debug('wf_update_after_inv_unreserv', 'Exiting wf_update_after_inv_unreserv');
2044: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || 'Exiting wf_update_after_inv_unreserv', 2);
2045: END IF;
2046:
2047: EXCEPTION
2048: when FND_API.G_EXC_ERROR then
2047: EXCEPTION
2048: when FND_API.G_EXC_ERROR then
2049:
2050: IF PG_DEBUG <> 0 THEN
2051: 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);
2052: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','exp erro stmt no :'|| to_char(l_stmt_num));
2053:
2054: END IF;
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2060:
2061: when FND_API.G_EXC_UNEXPECTED_ERROR then
2062:
2063: IF PG_DEBUG <> 0 THEN
2064: 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));
2065: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp err stmt no:'|| to_char(l_stmt_num));
2066:
2067: END IF;
2068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073:
2074: when others then
2075:
2076: IF PG_DEBUG <> 0 THEN
2077: 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);
2078: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || sqlerrm, 1);
2079: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp errr stmt no :'|| to_char(l_stmt_num));
2080: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE',sqlerrm);
2081:
2074: when others then
2075:
2076: IF PG_DEBUG <> 0 THEN
2077: 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);
2078: oe_debug_pub.add('wf_update_after_inv_unreserv: ' || sqlerrm, 1);
2079: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE','Unexp errr stmt no :'|| to_char(l_stmt_num));
2080: cto_wip_workflow_api_pk.cto_debug('WF_UPDATE_AFTER_INV_UNRESERVE',sqlerrm);
2081:
2082: END IF;
2132:
2133: BEGIN
2134:
2135: IF PG_DEBUG <> 0 THEN
2136: oe_debug_pub.add('configuration_item_created: ' || 'Entering configuration_item_created', 4);
2137: END IF;
2138: --
2139: -- find the top_model_line_id when given an option line id
2140: --
2167: end if;
2168: end if;
2169:
2170: IF PG_DEBUG <> 0 THEN
2171: oe_debug_pub.add('configuration_item_created: ' || 'Exiting configuration_item_created', 4);
2172: END IF;
2173:
2174: EXCEPTION
2175:
2174: EXCEPTION
2175:
2176: when no_data_found then
2177: IF PG_DEBUG <> 0 THEN
2178: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2179: to_char(l_stmt_num)||'top model line does not exist, constraint condition is false', 1);
2180: END IF;
2181: x_result := 0;
2182:
2181: x_result := 0;
2182:
2183: when OTHERS then
2184: IF PG_DEBUG <> 0 THEN
2185: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2186: to_char(l_stmt_num)||'constraint condition is false', 1);
2187: oe_debug_pub.add('configuration_item_created: ' || sqlerrm, 1);
2188: END IF;
2189: x_result := 0;
2183: when OTHERS then
2184: IF PG_DEBUG <> 0 THEN
2185: oe_debug_pub.add('configuration_item_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2186: to_char(l_stmt_num)||'constraint condition is false', 1);
2187: oe_debug_pub.add('configuration_item_created: ' || sqlerrm, 1);
2188: END IF;
2189: x_result := 0;
2190:
2191:
2228:
2229:
2230: BEGIN
2231: IF PG_DEBUG <> 0 THEN
2232: oe_debug_pub.add('configuration_created: ' || 'Entering configuration_created', 5);
2233: END IF;
2234: -- Check if the line is not an ATO model, option, option class, or
2235: -- config line
2236:
2252: and ato_line_id = l_ato_line_id
2253: and item_type_code = 'CONFIG';
2254:
2255:
2256: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2257: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2258: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2259: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2260: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2253: and item_type_code = 'CONFIG';
2254:
2255:
2256: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2257: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2258: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2259: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2260: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2261:
2254:
2255:
2256: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2257: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2258: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2259: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2260: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2261:
2262:
2255:
2256: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2257: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2258: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2259: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2260: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2261:
2262:
2263:
2256: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
2257: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
2258: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
2259: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
2260: oe_debug_pub.add( 'LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
2261:
2262:
2263:
2264: x_result := 1; /* the condition is true */
2262:
2263:
2264: x_result := 1; /* the condition is true */
2265: IF PG_DEBUG <> 0 THEN
2266: oe_debug_pub.add('configuration_created: ' || 'Exiting configuration_created', 5);
2267: END IF;
2268:
2269:
2270:
2269:
2270:
2271: -- x_result := 0;
2272: /* IF PG_DEBUG <> 0 THEN
2273: oe_debug_pub.add('configuration_created: ' || 'Exiting configuration_created'||
2274: 'Sushant made it return 0 or False purposely', 5);
2275: END IF;*/
2276: EXCEPTION
2277:
2276: EXCEPTION
2277:
2278: when no_data_found then
2279: IF PG_DEBUG <> 0 THEN
2280: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2281: to_char(l_stmt_num)||'top model line does not exist, constraint condition is false', 1);
2282: END IF;
2283: x_result := 0;
2284:
2283: x_result := 0;
2284:
2285: when OTHERS then
2286: IF PG_DEBUG <> 0 THEN
2287: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2288: to_char(l_stmt_num)||'constraint condition is false', 1);
2289: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2290: END IF;
2291: x_result := 0;
2285: when OTHERS then
2286: IF PG_DEBUG <> 0 THEN
2287: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.configuration_item_created::stmt number '||
2288: to_char(l_stmt_num)||'constraint condition is false', 1);
2289: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2290: END IF;
2291: x_result := 0;
2292:
2293:
2315: PROCESS_ERROR exception;
2316:
2317: begin
2318: IF PG_DEBUG <> 0 THEN
2319: oe_debug_pub.add('configuration_created: ' || 'Entering start_model_workflow', 5);
2320: END IF;
2321:
2322: l_stmt_num := 10;
2323: get_activity_status('OEOL',
2326: l_active_activity);
2327:
2328: IF (l_active_activity = 'CREATE_CONFIG_ITEM_ELIGIBLE') THEN
2329: IF PG_DEBUG <> 0 THEN
2330: oe_debug_pub.add('configuration_created: ' || 'Workflow Status is: '||l_active_activity, 5);
2331: END IF;
2332: l_stmt_num := 20;
2333:
2334: IF (CTO_WORKFLOW_API_PK.complete_activity(
2337: p_activity_name => l_active_activity,
2338: p_result_code => 'COMPLETE') <> TRUE)
2339: THEN
2340: IF PG_DEBUG <> 0 THEN
2341: oe_debug_pub.add('configuration_created: ' || 'Failed in Complete activity.', 1);
2342: END IF;
2343: raise PROCESS_ERROR;
2344: END IF;
2345:
2343: raise PROCESS_ERROR;
2344: END IF;
2345:
2346: IF PG_DEBUG <> 0 THEN
2347: oe_debug_pub.add('configuration_created: ' || 'Success in Complete activity.', 5);
2348: END IF;
2349: ELSE
2350: IF PG_DEBUG <> 0 THEN
2351: oe_debug_pub.add ('configuration_created: ' || 'Workflow Status is not at Create Config Item Eligible.', 5);
2347: oe_debug_pub.add('configuration_created: ' || 'Success in Complete activity.', 5);
2348: END IF;
2349: ELSE
2350: IF PG_DEBUG <> 0 THEN
2351: oe_debug_pub.add ('configuration_created: ' || 'Workflow Status is not at Create Config Item Eligible.', 5);
2352: END IF;
2353:
2354: END IF;
2355:
2353:
2354: END IF;
2355:
2356: IF PG_DEBUG <> 0 THEN
2357: oe_debug_pub.add('configuration_created: ' || 'Exiting start_model_workflow', 5);
2358: END IF;
2359: return TRUE;
2360:
2361: exception
2361: exception
2362:
2363: when PROCESS_ERROR then
2364: IF PG_DEBUG <> 0 THEN
2365: oe_debug_pub.add('configuration_created: ' || 'exp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2366: END IF;
2367: return FALSE;
2368:
2369: when OTHERS then
2367: return FALSE;
2368:
2369: when OTHERS then
2370: IF PG_DEBUG <> 0 THEN
2371: oe_debug_pub.add('configuration_created: ' || 'unexp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2372: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2373: END IF;
2374: return FALSE;
2375:
2368:
2369: when OTHERS then
2370: IF PG_DEBUG <> 0 THEN
2371: oe_debug_pub.add('configuration_created: ' || 'unexp error in CTO_WORKFLOW_API_PK.start_model_workflow::stmt number '||to_char(l_stmt_num), 1);
2372: oe_debug_pub.add('configuration_created: ' || sqlerrm, 1);
2373: END IF;
2374: return FALSE;
2375:
2376: end start_model_workflow;
2411:
2412:
2413: BEGIN
2414: IF PG_DEBUG <> 0 THEN
2415: oe_debug_pub.add('configuration_created: ' || 'Entering Update_Config_Line', 5);
2416: END IF;
2417:
2418: l_stmt_num := 5;
2419:
2423: where line_id = oe_line_security.g_record.line_id
2424: and item_type_code = 'CONFIG';
2425:
2426: IF PG_DEBUG <> 0 THEN
2427: oe_debug_pub.add('configuration_created: ' || 'This is a config item. Check if update is user or system', 5);
2428: END IF;
2429:
2430: IF (oe_config_util.cascade_changes_flag = 'Y'
2431: OR oe_order_sch_util.oesch_perform_scheduling = 'N') THEN
2430: IF (oe_config_util.cascade_changes_flag = 'Y'
2431: OR oe_order_sch_util.oesch_perform_scheduling = 'N') THEN
2432:
2433: IF PG_DEBUG <> 0 THEN
2434: oe_debug_pub.add('configuration_created: ' || 'Cascading or scheduling change, allow update', 5);
2435: END IF;
2436: x_result := 0;
2437: return;
2438: ELSE
2436: x_result := 0;
2437: return;
2438: ELSE
2439: IF PG_DEBUG <> 0 THEN
2440: oe_debug_pub.add('configuration_created: ' || 'User change, update not allowed', 5);
2441: END IF;
2442: x_result := 1; /* the condition is true */
2443: END IF;
2444: IF PG_DEBUG <> 0 THEN
2441: END IF;
2442: x_result := 1; /* the condition is true */
2443: END IF;
2444: IF PG_DEBUG <> 0 THEN
2445: oe_debug_pub.add('configuration_created: ' || 'Exiting Update_Config_Line', 5);
2446: END IF;
2447:
2448: EXCEPTION
2449:
2448: EXCEPTION
2449:
2450: when no_data_found then
2451: IF PG_DEBUG <> 0 THEN
2452: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'not config item',1);
2453: END IF;
2454: x_result := 0;
2455:
2456: when OTHERS then
2454: x_result := 0;
2455:
2456: when OTHERS then
2457: IF PG_DEBUG <> 0 THEN
2458: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2459:
2460: oe_debug_pub.add('configuration_created: ' || sqlerrm);
2461: END IF;
2462: x_result := 0;
2456: when OTHERS then
2457: IF PG_DEBUG <> 0 THEN
2458: oe_debug_pub.add('configuration_created: ' || 'CTO_WORKFLOW_API_PK.Update_Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2459:
2460: oe_debug_pub.add('configuration_created: ' || sqlerrm);
2461: END IF;
2462: x_result := 0;
2463:
2464: END Update_Config_Line;
2505: and item_type_code = 'CONFIG';
2506:
2507: BEGIN
2508: IF PG_DEBUG <> 0 THEN
2509: oe_debug_pub.add('configuration_created_for_pto: ' || 'Entering configuration_created_for_pto',5);
2510: END IF;
2511:
2512: -- Check if the line is not an ATO model, option, option class, or
2513: -- config line
2514:
2515: l_stmt_num := 10;
2516: IF oe_line_security.g_record.ato_line_id IS NOT NULL THEN
2517: IF PG_DEBUG <> 0 THEN
2518: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is not a PTO item, constraint condition is false', 5);
2519: END IF;
2520: x_result := 0;
2521: return;
2522: END IF;
2522: END IF;
2523:
2524: l_stmt_num := 20;
2525: IF PG_DEBUG <> 0 THEN
2526: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is a PTO item', 5);
2527: END IF;
2528: l_pto_line := oe_line_security.g_record.line_id;
2529: IF PG_DEBUG <> 0 THEN
2530: oe_debug_pub.add('configuration_created_for_pto: ' || 'l_pto_line = '||to_char(l_pto_line), 5);
2526: oe_debug_pub.add('configuration_created_for_pto: ' || 'This is a PTO item', 5);
2527: END IF;
2528: l_pto_line := oe_line_security.g_record.line_id;
2529: IF PG_DEBUG <> 0 THEN
2530: oe_debug_pub.add('configuration_created_for_pto: ' || 'l_pto_line = '||to_char(l_pto_line), 5);
2531: END IF;
2532:
2533: l_stmt_num := 30;
2534: select 1
2538: and item_type_code = 'CONFIG'
2539: and rownum = 1;
2540:
2541: IF PG_DEBUG <> 0 THEN
2542: oe_debug_pub.add('configuration_created_for_pto: ' || 'Config item exists somewhere in this configuration', 5);
2543: END IF;
2544:
2545: --
2546: -- For each config item, traverse the BOM starting from the ATO model
2550: FOR v_config_exists in c_config_exists LOOP
2551: l_stmt_num := 40;
2552: l_current_model_line := v_config_exists.ato_line_id;
2553: IF PG_DEBUG <> 0 THEN
2554: oe_debug_pub.add('configuration_created_for_pto: ' || 'ATO model being processed : '||to_char(l_current_model_line), 2);
2555: END IF;
2556:
2557: WHILE TRUE LOOP
2558:
2565: where line_id = l_current_model_line;
2566:
2567: IF l_current_model_line = l_pto_line THEN
2568: IF PG_DEBUG <> 0 THEN
2569: oe_debug_pub.add('configuration_created_for_pto: ' || 'Config item exists under this PTO, constraint condition is true', 5);
2570: END IF;
2571: x_result := 1;
2572: return;
2573: END IF;
2575: EXCEPTION
2576: WHEN NO_DATA_FOUND THEN
2577: l_stmt_num := 60;
2578: IF PG_DEBUG <> 0 THEN
2579: oe_debug_pub.add('configuration_created_for_pto: ' || 'No data found::top model', 5);
2580: END IF;
2581: exit; /* break from loop */
2582:
2583: END;
2586: END LOOP; /*cursor loop*/
2587:
2588: x_result := 0; /* the condition is false */
2589: IF PG_DEBUG <> 0 THEN
2590: oe_debug_pub.add('configuration_created_for_pto: ' || 'Exiting configuration_created_for_pto',5);
2591: END IF;
2592:
2593: EXCEPTION
2594:
2593: EXCEPTION
2594:
2595: when no_data_found then
2596: IF PG_DEBUG <> 0 THEN
2597: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num),1);
2598: oe_debug_pub.add('configuration_created_for_pto: ' || 'config item does not exist, constraint condition is false', 1);
2599: END IF;
2600: x_result := 0;
2601:
2594:
2595: when no_data_found then
2596: IF PG_DEBUG <> 0 THEN
2597: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num),1);
2598: oe_debug_pub.add('configuration_created_for_pto: ' || 'config item does not exist, constraint condition is false', 1);
2599: END IF;
2600: x_result := 0;
2601:
2602: when OTHERS then
2600: x_result := 0;
2601:
2602: when OTHERS then
2603: IF PG_DEBUG <> 0 THEN
2604: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2605: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2606: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2607: END IF;
2608: x_result := 0;
2601:
2602: when OTHERS then
2603: IF PG_DEBUG <> 0 THEN
2604: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2605: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2606: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2607: END IF;
2608: x_result := 0;
2609:
2602: when OTHERS then
2603: IF PG_DEBUG <> 0 THEN
2604: oe_debug_pub.add('configuration_created_for_pto: ' || 'CTO_WORKFLOW_API_PK.configuration_created_for_pto::stmt number '||to_char(l_stmt_num), 1);
2605: oe_debug_pub.add('configuration_created_for_pto: ' || 'constraint condition is false', 1);
2606: oe_debug_pub.add('configuration_created_for_pto: ' || sqlerrm, 1);
2607: END IF;
2608: x_result := 0;
2609:
2610: END Configuration_Created_For_Pto;
2643:
2644:
2645: BEGIN
2646: IF PG_DEBUG <> 0 THEN
2647: oe_debug_pub.add('Top_Ato_Model: ' || 'Entering top_ato_model', 5);
2648: END IF;
2649:
2650: l_stmt_num := 5;
2651:
2656: and ato_line_id = line_id;
2657:
2658: x_result := 1; /* the condition is true */
2659: IF PG_DEBUG <> 0 THEN
2660: oe_debug_pub.add('Top_Ato_Model: ' || 'Exiting top_ato_model', 5);
2661: END IF;
2662:
2663: EXCEPTION
2664:
2663: EXCEPTION
2664:
2665: when no_data_found then
2666: IF PG_DEBUG <> 0 THEN
2667: 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);
2668: END IF;
2669: x_result := 0;
2670:
2671: when OTHERS then
2669: x_result := 0;
2670:
2671: when OTHERS then
2672: IF PG_DEBUG <> 0 THEN
2673: oe_debug_pub.add('Top_Ato_Model: ' || 'CTO_WORKFLOW_API_PK.top_ato_model::stmt number '||to_char(l_stmt_num)||'others',1);
2674:
2675: oe_debug_pub.add('Top_Ato_Model: ' || sqlerrm);
2676: END IF;
2677: x_result := 0;
2671: when OTHERS then
2672: IF PG_DEBUG <> 0 THEN
2673: oe_debug_pub.add('Top_Ato_Model: ' || 'CTO_WORKFLOW_API_PK.top_ato_model::stmt number '||to_char(l_stmt_num)||'others',1);
2674:
2675: oe_debug_pub.add('Top_Ato_Model: ' || sqlerrm);
2676: END IF;
2677: x_result := 0;
2678:
2679: END Top_Ato_Model;
2714:
2715:
2716: BEGIN
2717: IF PG_DEBUG <> 0 THEN
2718: oe_debug_pub.add('Config_Line: ' || 'Entering Config_Line', 5);
2719: END IF;
2720:
2721: l_stmt_num := 5;
2722:
2726: where line_id = oe_line_security.g_record.line_id
2727: and item_type_code = 'CONFIG';
2728:
2729: IF PG_DEBUG <> 0 THEN
2730: oe_debug_pub.add('Config_Line: ' || 'This is a config item.', 5);
2731: END IF;
2732: x_result := 1; /* the condition is true */
2733: IF PG_DEBUG <> 0 THEN
2734: oe_debug_pub.add('Config_Line: ' || 'Exiting Config_Line', 5);
2730: oe_debug_pub.add('Config_Line: ' || 'This is a config item.', 5);
2731: END IF;
2732: x_result := 1; /* the condition is true */
2733: IF PG_DEBUG <> 0 THEN
2734: oe_debug_pub.add('Config_Line: ' || 'Exiting Config_Line', 5);
2735: END IF;
2736:
2737: EXCEPTION
2738:
2737: EXCEPTION
2738:
2739: when no_data_found then
2740: IF PG_DEBUG <> 0 THEN
2741: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'not config item',1);
2742: END IF;
2743: x_result := 0;
2744:
2745: when OTHERS then
2743: x_result := 0;
2744:
2745: when OTHERS then
2746: IF PG_DEBUG <> 0 THEN
2747: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2748: oe_debug_pub.add('Config_Line: ' || sqlerrm, 1);
2749: END IF;
2750: x_result := 0;
2751:
2744:
2745: when OTHERS then
2746: IF PG_DEBUG <> 0 THEN
2747: oe_debug_pub.add('Config_Line: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
2748: oe_debug_pub.add('Config_Line: ' || sqlerrm, 1);
2749: END IF;
2750: x_result := 0;
2751:
2752: END Config_Line;
2781:
2782: l_stmt_num := 10;
2783: l_message := 'line status is '||p_change_status||', (change_status_batch) at stmt number'||to_char(l_stmt_num);
2784: IF PG_DEBUG <> 0 THEN
2785: oe_debug_pub.add('Change_Status_Batch: ' || l_message, 5);
2786: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2787:
2788: END IF;
2789: -- bugfix 2825486: added select to get the current flow_status_code.
2796:
2797:
2798: IF PG_DEBUG <> 0 THEN
2799: l_message := 'Current flow_status_code = '||lFlowStatusCode;
2800: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,4);
2801: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2802: END IF;
2803:
2804: -- bugfix 2825486: Added IF. Only when flow_status is different, we'll call OM api to update the
2809:
2810: -- bugfix 2825486: added dbg stmt
2811: IF PG_DEBUG <> 0 THEN
2812: l_message := 'calling OE_ORDER_WF_UTIL.update_flow_status_code to update flow_status to '||p_change_status;
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: END IF;
2816:
2817: -- Fixed by Renga Kannan on 04/27/06
2838: if x_return_status = FND_API.G_RET_STS_ERROR THEN
2839: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 5151111
2840: IF PG_DEBUG <> 0 THEN
2841: l_message:= 'Error occurred in updating line status to '||p_change_status||' - Stmt_num'||to_char(l_stmt_num);
2842: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2843: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2844:
2845: --bug#4700053
2846: l_message:= 'Progressing ahead even though line status may be wrong';
2843: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2844:
2845: --bug#4700053
2846: l_message:= 'Progressing ahead even though line status may be wrong';
2847: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2848: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2849:
2850: END IF;
2851: --raise FND_API.G_EXC_ERROR;
2853: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: x_return_status := FND_API.G_RET_STS_SUCCESS; --5151111
2855: IF PG_DEBUG <> 0 THEN
2856: l_message:= 'UnExp Error occurred in updating line status to '||p_change_status||' - Stmt_num'||to_char(l_stmt_num);
2857: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2858: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2859:
2860: --bug#4700053
2861: l_message:= 'Progressing ahead even though line status may be wrong';
2858: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2859:
2860: --bug#4700053
2861: l_message:= 'Progressing ahead even though line status may be wrong';
2862: oe_debug_pub.add('Change_Status_Batch: ' ||l_message,1);
2863: cto_wip_workflow_api_pk.cto_debug('change_status_batch', l_message);
2864: END IF;
2865: --raise FND_API.G_EXC_UNEXPECTED_ERROR;
2866:
2865: --raise FND_API.G_EXC_UNEXPECTED_ERROR;
2866:
2867: end if;
2868: IF PG_DEBUG <> 0 Then
2869: oe_debug_pub.add('Complete_activity : l_change_context_back = '||l_change_context_back,5);
2870: End if;
2871: End if;
2872: -- Start of bug fxi 5122923
2873:
2877: End if;
2878:
2879: l_message := 'after updating line status to '||p_change_status||', (change_status_batch) at stmt number'||to_char(l_stmt_num);
2880: IF PG_DEBUG <> 0 THEN
2881: oe_debug_pub.add('Change_Status_Batch: ' || l_message, 5);
2882: cto_wip_workflow_api_pk.cto_debug('DISPLAY_WF_STATUS', l_message);
2883:
2884: END IF;
2885: EXCEPTION
2885: EXCEPTION
2886:
2887: WHEN FND_API.G_EXC_ERROR THEN
2888: IF PG_DEBUG <> 0 THEN
2889: oe_debug_pub.add('Change_Status_Batch: ' || 'exp error in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2890: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','exp erro change_status_batch :: '||l_stmt_num||sqlerrm);
2891:
2892: END IF;
2893: x_return_status := FND_API.G_RET_STS_ERROR;
2893: x_return_status := FND_API.G_RET_STS_ERROR;
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2896: IF PG_DEBUG <> 0 THEN
2897: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2898: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2899: End if;
2900:
2901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2902:
2903: WHEN OTHERS THEN
2904: IF PG_DEBUG <> 0 THEN
2905: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error (others) in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2906: oe_debug_pub.add('Change_Status_Batch: ' || sqlerrm, 1);
2907: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2908:
2909: END IF;
2902:
2903: WHEN OTHERS THEN
2904: IF PG_DEBUG <> 0 THEN
2905: oe_debug_pub.add('Change_Status_Batch: ' || 'unexp error (others) in CTO_WORKFLOW_API_PK.change_status_batch::'||l_stmt_num, 1);
2906: oe_debug_pub.add('Change_Status_Batch: ' || sqlerrm, 1);
2907: cto_wip_workflow_api_pk.cto_debug('CHANGE_STATUS_BATCH','Unexp err change_status_batch :: '||l_stmt_num||sqlerrm);
2908:
2909: END IF;
2910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2969: savepoint before_process;
2970:
2971: OE_STANDARD_WF.Set_Msg_Context(p_actid);
2972: IF PG_DEBUG <> 0 THEN
2973: oe_debug_pub.add('auto_create_pur_req: ' || 'CTO WF Activity: auto_create_pur_req', 1);
2974: END IF;
2975:
2976: if (p_funcmode = 'RUN') then
2977:
3011: IF so_line.program_id = p_program_id THEN
3012:
3013: -- log message that the line has been processed by the concurrent_program
3014: IF PG_DEBUG <> 0 THEN
3015: 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);
3016: END IF;
3017:
3018: ELSE
3019:
3040: p_item_id => so_line.inventory_item_id);
3041:
3042: IF nvl(p_new_order_quantity, 0) = 0 THEN
3043: IF PG_DEBUG <> 0 THEN
3044: oe_debug_pub.add('auto_create_pur_req: ' || 'ERROR GET_NEW_ORDER_QTY:: The new order quantity is zero', 1);
3045: END IF;
3046: raise FND_API.G_EXC_ERROR;
3047: END IF;
3048: end;
3062: x_exp_error_code => l_exp_error_code );
3063:
3064: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3065: IF PG_DEBUG <> 0 THEN
3066: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3067: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3068: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3069: END IF;
3070: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3063:
3064: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3065: IF PG_DEBUG <> 0 THEN
3066: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3067: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3068: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3069: END IF;
3070: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3071: IF PG_DEBUG <> 0 THEN
3064: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3065: IF PG_DEBUG <> 0 THEN
3066: oe_debug_pub.add('auto_create_pur_req: ' || 'success from query sourcing org', 5);
3067: oe_debug_pub.add('auto_create_pur_req: ' || 'source_type = ' || l_req_input_data.source_type, 5);
3068: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3069: END IF;
3070: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3071: IF PG_DEBUG <> 0 THEN
3072: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error query sourcing org', 5);
3068: oe_debug_pub.add('auto_create_pur_req: ' || 'sourcing_org = ' || l_req_input_data.sourcing_org, 5);
3069: END IF;
3070: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3071: IF PG_DEBUG <> 0 THEN
3072: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error query sourcing org', 5);
3073: END IF;
3074: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3075: END IF;
3076:
3085: x_return_status => x_return_status);
3086:
3087: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3088: IF PG_DEBUG <> 0 THEN
3089: oe_debug_pub.add('auto_create_pur_req: ' || 'success from get_need_by_date' || ' l_need_by_date=' || l_need_by_date, 5);
3090: END IF;
3091: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3092: IF PG_DEBUG <> 0 THEN
3093: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error in get_need_by_date', 5);
3089: oe_debug_pub.add('auto_create_pur_req: ' || 'success from get_need_by_date' || ' l_need_by_date=' || l_need_by_date, 5);
3090: END IF;
3091: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3092: IF PG_DEBUG <> 0 THEN
3093: oe_debug_pub.add('auto_create_pur_req: ' || 'unexpected error in get_need_by_date', 5);
3094: END IF;
3095: raise fnd_api.g_exc_unexpected_error;
3096: END IF;
3097:
3134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3135:
3136: ELSE
3137: IF PG_DEBUG <> 0 THEN
3138: oe_debug_pub.add('auto_create_pur_req: ' || 'Insert successful.',5);
3139: END IF;
3140:
3141: l_stmt_num := 40; --bugfix4545070
3142: l_rets := display_wf_status( p_order_line_id=>so_line.line_id);
3143:
3144:
3145: IF l_rets = 0 THEN
3146: IF PG_DEBUG <> 0 THEN
3147: 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);
3148: END IF;
3149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3150: ELSE
3151: IF PG_DEBUG <> 0 THEN
3148: END IF;
3149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3150: ELSE
3151: IF PG_DEBUG <> 0 THEN
3152: oe_debug_pub.add('auto_create_pur_req: ' || 'Order updated to REQ_REQUESTED.', 5);
3153: END IF;
3154: END IF;
3155:
3156: END IF; -- end of returnstatus check
3166:
3167: EXCEPTION
3168: WHEN FND_API.G_EXC_ERROR THEN
3169: IF PG_DEBUG <> 0 THEN
3170: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::exp error::'||to_char(l_stmt_num),1);
3171: END IF;
3172: x_return_status := FND_API.G_RET_STS_ERROR;
3173: 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);
3174: x_result := 'CTO_INCOMPLETE';
3176: return;
3177:
3178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3179: IF PG_DEBUG <> 0 THEN
3180: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::unexp error::'||to_char(l_stmt_num),1);
3181: END IF;
3182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3183: wf_core.context('CTO_WORKFLOW', 'auto_create_pur_req, stmt_num :'||to_char(l_stmt_num),
3184: p_itemtype, p_itemkey, to_char(p_actid),
3186: raise;
3187:
3188: WHEN OTHERS THEN
3189: IF PG_DEBUG <> 0 THEN
3190: oe_debug_pub.add('auto_create_pur_req: ' || 'AUTO_CREATE_PUR_REQ::other error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
3191: END IF;
3192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3193: wf_core.context('CTO_WORKFLOW', 'auto_create_pur_req, stmt_num :'||to_char(l_stmt_num),
3194: p_itemtype, p_itemkey, to_char(p_actid),
3223: l_ato_line_id Number;
3224:
3225: BEGIN
3226: IF PG_DEBUG <> 0 THEN
3227: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'Entering Chk_buy_ato_item', 5);
3228: END IF;
3229:
3230: l_stmt_num := 5;
3231:
3256: );
3257:
3258: IF nvl(v_source_type,2) = 3 THEN
3259: IF PG_DEBUG <> 0 THEN
3260: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'It is an buy ato item...',5);
3261: END IF;
3262: x_result := 1; /* This is correct condition */
3263: ELSE
3264: IF PG_DEBUG <> 0 THEN
3261: END IF;
3262: x_result := 1; /* This is correct condition */
3263: ELSE
3264: IF PG_DEBUG <> 0 THEN
3265: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'It is a make ato item',5);
3266: END IF;
3267: x_result := 0;
3268: END IF;
3269:
3268: END IF;
3269:
3270: ELSE
3271: IF PG_DEBUG <> 0 THEN
3272: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'Not an ato item...',5);
3273: END IF;
3274: x_result := 0;
3275: END IF;
3276:
3277: EXCEPTION
3278:
3279: when no_data_found then
3280: IF PG_DEBUG <> 0 THEN
3281: 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);
3282: END IF;
3283: x_result := 0;
3284:
3285: when OTHERS then
3283: x_result := 0;
3284:
3285: when OTHERS then
3286: IF PG_DEBUG <> 0 THEN
3287: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
3288:
3289: oe_debug_pub.add('chk_Buy_Ato_Item: ' || sqlerrm);
3290: END IF;
3291: x_result := 0;
3285: when OTHERS then
3286: IF PG_DEBUG <> 0 THEN
3287: oe_debug_pub.add('chk_Buy_Ato_Item: ' || 'CTO_WORKFLOW_API_PK.Config_Line::stmt number '||to_char(l_stmt_num)||'others',1);
3288:
3289: oe_debug_pub.add('chk_Buy_Ato_Item: ' || sqlerrm);
3290: END IF;
3291: x_result := 0;
3292:
3293: END chk_Buy_Ato_Item;
3334:
3335: v_aps_version := msc_atp_global.get_aps_version ;
3336:
3337: if( v_aps_version <> 10) then
3338: oe_debug_pub.add('reservation_exists: ' || 'APS version::'|| v_aps_version , 2);
3339:
3340: x_result := 1 ;
3341:
3342: return ;
3344: end if;
3345:
3346:
3347: IF PG_DEBUG <> 0 THEN
3348: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3349: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3350: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3351: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3352: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3345:
3346:
3347: IF PG_DEBUG <> 0 THEN
3348: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3349: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3350: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3351: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3352: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3353: END IF;
3346:
3347: IF PG_DEBUG <> 0 THEN
3348: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3349: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3350: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3351: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3352: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3353: END IF;
3354: l_stmt_num := 5;
3347: IF PG_DEBUG <> 0 THEN
3348: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3349: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3350: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3351: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3352: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3353: END IF;
3354: l_stmt_num := 5;
3355: select ato_line_id, header_id , inventory_item_id
3348: oe_debug_pub.add( 'ACTION CODE: ' || oe_line_security.g_record.split_action_code , 1 ) ;
3349: oe_debug_pub.add( 'OPERATION: ' || oe_line_security.g_record.operation , 1 ) ;
3350: oe_debug_pub.add( 'ATTRIBUTE 1: ' || oe_line_security.g_record.attribute1 , 1 ) ;
3351: oe_debug_pub.add( 'SPLIT FROM LINE ID: ' || oe_line_security.g_record.split_from_line_id , 1 ) ;
3352: oe_debug_pub.add( ' LINE ID: ' || oe_line_security.g_record.line_id , 1 ) ;
3353: END IF;
3354: l_stmt_num := 5;
3355: select ato_line_id, header_id , inventory_item_id
3356: into l_ato_line_id, l_header_id , l_cfg_item_id
3375:
3376:
3377: if( oe_line_security.g_record.split_action_code = 'SPLIT' ) then /* bug 3424802 */
3378: IF PG_DEBUG <> 0 THEN
3379: oe_debug_pub.add( 'no need to check for CIB attribute for split scenario ' , 1) ;
3380: END IF;
3381: else
3382: IF PG_DEBUG <> 0 THEN
3383: oe_debug_pub.add( 'need to check for CIB attribute as update warehouse is enabled only for CIB = 3 ' , 1) ;
3379: oe_debug_pub.add( 'no need to check for CIB attribute for split scenario ' , 1) ;
3380: END IF;
3381: else
3382: IF PG_DEBUG <> 0 THEN
3383: oe_debug_pub.add( 'need to check for CIB attribute as update warehouse is enabled only for CIB = 3 ' , 1) ;
3384: END IF;
3385: -- R12 fp bug 4380768
3386: -- Modified by Renga on 06/06/05
3387: -- Added nvl clause for config_orgs
3403:
3404: if( l_config_orgs <> '3') then
3405:
3406: IF PG_DEBUG <> 0 THEN
3407: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3408: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3409: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3410: END IF;
3411: x_result := 1 ;
3404: if( l_config_orgs <> '3') then
3405:
3406: IF PG_DEBUG <> 0 THEN
3407: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3408: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3409: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3410: END IF;
3411: x_result := 1 ;
3412:
3405:
3406: IF PG_DEBUG <> 0 THEN
3407: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> 3 ::'|| l_config_orgs , 2);
3408: oe_debug_pub.add('reservation_exists: ' || 'l_config_orgs <> Based on Model ::'|| l_config_orgs , 2);
3409: oe_debug_pub.add('reservation_exists: ' || 'l_cfg_item_id ::'|| to_char(l_cfg_item_id) , 2);
3410: END IF;
3411: x_result := 1 ;
3412:
3413: return ;
3448: exception
3449: when no_data_found then
3450: x_result := 0 ;
3451: IF PG_DEBUG <> 0 THEN
3452: oe_debug_pub.add('CTO_WORKFLOW_API_PK: ' || 'reservation exists::'|| ' NO DATA FOUND EXCEPTION ' || l_stmt_num , 2);
3453: END IF;
3454: when others then
3455:
3456: x_result := 0 ;
3454: when others then
3455:
3456: x_result := 0 ;
3457: IF PG_DEBUG <> 0 THEN
3458: oe_debug_pub.add('CTO_WORKFLOW_API_PK: ' || 'reservation exists::'|| ' OTHERS EXCEPTION ' || l_stmt_num , 2);
3459: END IF;
3460:
3461: end reservation_exists ;
3462:
3546: );
3547:
3548: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3549: IF PG_DEBUG <> 0 THEN
3550: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3551: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3552: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3553:
3554: END IF;
3547:
3548: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3549: IF PG_DEBUG <> 0 THEN
3550: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3551: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3552: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3553:
3554: END IF;
3555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3548: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3549: IF PG_DEBUG <> 0 THEN
3550: oe_debug_pub.add('get_status_tokens: '||'SUCCESS after Get_Resv_Qty',1);
3551: oe_debug_pub.add('get_status_tokens: '||'Sum of resv qty=>'||l_sum_rsv_qty,1);
3552: oe_debug_pub.add('get_status_tokens: '||'resv record count=>'||l_rsv_rec.count,1);
3553:
3554: END IF;
3555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3556: IF PG_DEBUG <> 0 THEN
3553:
3554: END IF;
3555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3556: IF PG_DEBUG <> 0 THEN
3557: oe_debug_pub.add('get_status_tokens: '||'status after after Get_Resv_Qty_and_Code=>'
3558: || FND_API.G_RET_STS_ERROR,1);
3559: END IF;
3560: RAISE fnd_api.g_exc_error;
3561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3560: RAISE fnd_api.g_exc_error;
3561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3562:
3563: IF PG_DEBUG <> 0 THEN
3564: oe_debug_pub.add('status after after Get_Resv_Qty_and_Code=>'
3565: || FND_API.G_RET_STS_UNEXP_ERROR,1 );
3566:
3567: END IF;
3568: RAISE fnd_api.g_exc_unexpected_error;
3614: l_int_req_if_src_id := cto_utility_pk.g_source_type_int_req_if;
3615: --end cross_dock
3616:
3617: IF PG_DEBUG <> 0 THEN
3618: oe_debug_pub.add('get_status_tokens: '||'In IF BLOCK when l_rsv_rec count is > 0 ',5);
3619: END IF;
3620:
3621: IF PG_DEBUG = 5 THEN
3622: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3618: oe_debug_pub.add('get_status_tokens: '||'In IF BLOCK when l_rsv_rec count is > 0 ',5);
3619: END IF;
3620:
3621: IF PG_DEBUG = 5 THEN
3622: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3623: oe_debug_pub.add('get_status_tokens:'||'RSV_SRC_TYP '||'Quantity', 5);
3624:
3625: l_stmt_num := 50;
3626: k := l_rsv_rec.first;
3619: END IF;
3620:
3621: IF PG_DEBUG = 5 THEN
3622: oe_debug_pub.add('get_status_tokens:'||'printing rsv source type and qty in loop', 5);
3623: oe_debug_pub.add('get_status_tokens:'||'RSV_SRC_TYP '||'Quantity', 5);
3624:
3625: l_stmt_num := 50;
3626: k := l_rsv_rec.first;
3627:
3626: k := l_rsv_rec.first;
3627:
3628: WHILE (k is not null)
3629: LOOP
3630: oe_debug_pub.add('get_status_tokens:'||l_rsv_rec(k).supply_source_type_id
3631: ||' => '|| l_rsv_rec(k).primary_reservation_quantity, 5);
3632:
3633: k := l_rsv_rec.next(k);
3634: END LOOP;
3698: if l_rsv_rec.exists(l_ext_req_if_src_id) then
3699: x_token1 := 'EXTERNAL_REQ';
3700:
3701: IF PG_DEBUG <> 0 THEN
3702: oe_debug_pub.add('get_status_tokens: '||'x_token1=> '||x_token1,5);
3703: END IF;
3704:
3705: elsif l_rsv_rec.exists(l_int_req_if_src_id) then
3706: x_token1 := 'INTERNAL_REQ';
3727: EXCEPTION--4752854,fixed as part of code review
3728:
3729: WHEN fnd_api.g_exc_error THEN
3730: IF PG_DEBUG <> 0 THEN
3731: oe_debug_pub.add('get_status_tokens: ' || 'Exception in stmt num: '
3732: || to_char(l_stmt_num), 1);
3733: END IF;
3734: x_return_status := FND_API.G_RET_STS_ERROR;
3735: -- Get message count and data
3738: , p_msg_data => x_msg_data
3739: );
3740: WHEN fnd_api.g_exc_unexpected_error THEN
3741: IF PG_DEBUG <> 0 THEN
3742: oe_debug_pub.add('get_status_tokens: '|| ' Unexpected Exception in stmt num: '
3743: || to_char(l_stmt_num), 1);
3744: END IF;
3745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3746: -- Get message count and data
3751: WHEN OTHERS then
3752:
3753:
3754: IF PG_DEBUG <> 0 THEN
3755: oe_debug_pub.add('get_status_tokens: '||'errmsg'||sqlerrm,1);
3756: oe_debug_pub.add('get_status_tokens: ' || 'Others Exception in stmt num: '
3757: || to_char(l_stmt_num), 1);
3758: END IF;
3759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3752:
3753:
3754: IF PG_DEBUG <> 0 THEN
3755: oe_debug_pub.add('get_status_tokens: '||'errmsg'||sqlerrm,1);
3756: oe_debug_pub.add('get_status_tokens: ' || 'Others Exception in stmt num: '
3757: || to_char(l_stmt_num), 1);
3758: END IF;
3759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3760: -- Get message count and data