[Home] [Help]
423:
424: x_return_status := FND_API.G_RET_STS_SUCCESS ;
425:
426: IF PG_DEBUG <> 0 THEN
427: oe_debug_pub.add('***get_atp_bom: ' || ' Entered get_atp_bom' , 1);
428: oe_debug_pub.add('get_atp_bom: ' || ' identifier ' || p_shipset.identifier.count || ' inventory ' || p_shipset.inventory_item_id.count || ' ship_set_name ' || p_shipset.ship_set_name.count, 3);
429:
430: l_stmt_num := 40 ;
431: print_shipset_capacity( p_shipset ) ;
424: x_return_status := FND_API.G_RET_STS_SUCCESS ;
425:
426: IF PG_DEBUG <> 0 THEN
427: oe_debug_pub.add('***get_atp_bom: ' || ' Entered get_atp_bom' , 1);
428: oe_debug_pub.add('get_atp_bom: ' || ' identifier ' || p_shipset.identifier.count || ' inventory ' || p_shipset.inventory_item_id.count || ' ship_set_name ' || p_shipset.ship_set_name.count, 3);
429:
430: l_stmt_num := 40 ;
431: print_shipset_capacity( p_shipset ) ;
432: print_shipset( p_shipset ) ;
461: IF ( p_shipset.ship_set_name(v_init ) is null
462: AND p_shipset.arrival_set_name(v_init ) is null) THEN
463:
464: IF PG_DEBUG <> 0 THEN
465: oe_debug_pub.add('get_atp_bom: ' || 'Both ship set and arrival set are null', 2);
466: END IF;
467:
468: p_shipset.ship_set_name(v_init) := p_shipset.identifier(v_init) ;
469:
473: ELSIF ( p_shipset.ship_set_name(v_init ) is null
474: AND p_shipset.arrival_set_name(v_init ) is not null) THEN
475:
476: IF PG_DEBUG <> 0 THEN
477: oe_debug_pub.add('get_atp_bom: ' || 'Arrival set is not null', 2);
478: END IF;
479:
480: p_shipset.ship_set_name(v_init) := p_shipset.arrival_set_name(v_init) ;
481:
486:
487: END LOOP ;
488:
489: IF PG_DEBUG <> 0 THEN
490: oe_debug_pub.add('get_atp_bom: ' || 'Printing p_shipset after populating set name' , 2 );
491: print_shipset( p_shipset ) ;
492: END IF;
493:
494: IF PG_DEBUG <> 0 THEN
491: print_shipset( p_shipset ) ;
492: END IF;
493:
494: IF PG_DEBUG <> 0 THEN
495: oe_debug_pub.add('get_atp_bom: ' || 'Going to print g_auto_generated_shipset ' || g_auto_generated_shipset.count , 2 );
496: END IF;
497:
498: FOR auto_gen_count IN 1..g_auto_generated_shipset.count
499: LOOP
497:
498: FOR auto_gen_count IN 1..g_auto_generated_shipset.count
499: LOOP
500: IF PG_DEBUG <> 0 THEN
501: oe_debug_pub.add('get_atp_bom: ' || 'Shipset name::'||g_auto_generated_shipset(auto_gen_count).set_name, 2);
502: END IF;
503: IF g_auto_generated_shipset(auto_gen_count).process_demand THEN
504: IF PG_DEBUG <> 0 THEN
505: oe_debug_pub.add('get_atp_bom: ' || 'Process Demand flag::TRUE', 2);
501: oe_debug_pub.add('get_atp_bom: ' || 'Shipset name::'||g_auto_generated_shipset(auto_gen_count).set_name, 2);
502: END IF;
503: IF g_auto_generated_shipset(auto_gen_count).process_demand THEN
504: IF PG_DEBUG <> 0 THEN
505: oe_debug_pub.add('get_atp_bom: ' || 'Process Demand flag::TRUE', 2);
506: END IF;
507: ELSE
508: IF PG_DEBUG <> 0 THEN
509: oe_debug_pub.add('get_atp_bom: ' || 'Process Demand flag::FALSE', 2);
505: oe_debug_pub.add('get_atp_bom: ' || 'Process Demand flag::TRUE', 2);
506: END IF;
507: ELSE
508: IF PG_DEBUG <> 0 THEN
509: oe_debug_pub.add('get_atp_bom: ' || 'Process Demand flag::FALSE', 2);
510: END IF;
511: END IF;
512: END LOOP ;
513:
519: v_shipset_line_processed := 0;
520: v_start_location:= 1;
521:
522: IF PG_DEBUG <> 0 THEN
523: oe_debug_pub.add('get_atp_bom: ' || 'Iterate through each shipset element and evaluate shipset on change of shipset name ' , 1);
524: END IF;
525:
526: l_stmt_num := 120 ;
527:
549:
550: ELSE
551:
552: IF PG_DEBUG <> 0 THEN
553: oe_debug_pub.add('get_atp_bom: ' || 'Shipset name ' || v_ship_set_name , 1 );
554: oe_debug_pub.add('get_atp_bom: ' || 'Previous shipset name ' || v_prev_ship_set_name , 1 );
555: END IF;
556:
557: /*
550: ELSE
551:
552: IF PG_DEBUG <> 0 THEN
553: oe_debug_pub.add('get_atp_bom: ' || 'Shipset name ' || v_ship_set_name , 1 );
554: oe_debug_pub.add('get_atp_bom: ' || 'Previous shipset name ' || v_prev_ship_set_name , 1 );
555: END IF;
556:
557: /*
558: ** call evaluate shipset for accumulated components
558: ** call evaluate shipset for accumulated components
559: */
560:
561: IF PG_DEBUG <> 0 THEN
562: oe_debug_pub.add('get_atp_bom: ' || 'Going to evaluate shipset ' ,1);
563: END IF;
564:
565: l_stmt_num := 180 ;
566:
574: v_auto_gen,
575: v_process_demand);
576:
577: IF PG_DEBUG <> 0 THEN
578: oe_debug_pub.add('get_atp_bom: ' || 'isAutoGeneratedShipset returned following values for shipset::'||v_shipset.ship_set_name( v_shipset.ship_set_name.first), 3);
579: END IF;
580: IF v_auto_gen THEN
581: IF PG_DEBUG <> 0 THEN
582: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::TRUE', 3);
578: oe_debug_pub.add('get_atp_bom: ' || 'isAutoGeneratedShipset returned following values for shipset::'||v_shipset.ship_set_name( v_shipset.ship_set_name.first), 3);
579: END IF;
580: IF v_auto_gen THEN
581: IF PG_DEBUG <> 0 THEN
582: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::TRUE', 3);
583: END IF;
584: ELSE
585: IF PG_DEBUG <> 0 THEN
586: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::FALSE', 3);
582: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::TRUE', 3);
583: END IF;
584: ELSE
585: IF PG_DEBUG <> 0 THEN
586: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::FALSE', 3);
587: END IF;
588: END IF;
589: IF v_process_demand THEN
590: IF PG_DEBUG <> 0 THEN
587: END IF;
588: END IF;
589: IF v_process_demand THEN
590: IF PG_DEBUG <> 0 THEN
591: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::TRUE', 3);
592: END IF;
593: ELSE
594: IF PG_DEBUG <> 0 THEN
595: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::FALSE', 3);
591: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::TRUE', 3);
592: END IF;
593: ELSE
594: IF PG_DEBUG <> 0 THEN
595: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::FALSE', 3);
596: END IF;
597: END IF;
598:
599: g_shipset_status_tbl(g_shipset_status_tbl.count).auto_generated := v_auto_gen;
612: , l_return_status
613: ) ;
614:
615: IF PG_DEBUG <> 0 THEN
616: oe_debug_pub.add('get_atp_bom: ' || 'Evaluate shipset returned ' || l_return_status ,1);
617: END IF;
618:
619:
620: /*
783: v_auto_gen,
784: v_process_demand);
785:
786: IF PG_DEBUG <> 0 THEN
787: oe_debug_pub.add('get_atp_bom: ' || 'isAutoGeneratedShipset returned following values for shipset::'||v_shipset.ship_set_name( v_shipset.ship_set_name.first), 3);
788: END IF;
789:
790: IF v_auto_gen THEN
791: IF PG_DEBUG <> 0 THEN
788: END IF;
789:
790: IF v_auto_gen THEN
791: IF PG_DEBUG <> 0 THEN
792: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::TRUE', 3);
793: END IF;
794: ELSE
795: IF PG_DEBUG <> 0 THEN
796: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::FALSE', 3);
792: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::TRUE', 3);
793: END IF;
794: ELSE
795: IF PG_DEBUG <> 0 THEN
796: oe_debug_pub.add('get_atp_bom: ' || 'v_auto_gen::FALSE', 3);
797: END IF;
798: END IF;
799: IF v_process_demand THEN
800: IF PG_DEBUG <> 0 THEN
797: END IF;
798: END IF;
799: IF v_process_demand THEN
800: IF PG_DEBUG <> 0 THEN
801: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::TRUE', 3);
802: END IF;
803: ELSE
804: IF PG_DEBUG <> 0 THEN
805: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::FALSE', 3);
801: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::TRUE', 3);
802: END IF;
803: ELSE
804: IF PG_DEBUG <> 0 THEN
805: oe_debug_pub.add('get_atp_bom: ' || 'v_process_demand::FALSE', 3);
806: END IF;
807: END IF;
808:
809: g_shipset_status_tbl(g_shipset_status_tbl.count).auto_generated := v_auto_gen;
822: , l_return_status
823: ) ;
824:
825: IF PG_DEBUG <> 0 THEN
826: oe_debug_pub.add('get_atp_bom: ' || 'Evaluate shipset returned ' || l_return_status ,1);
827: END IF;
828:
829: IF( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
830:
856: END LOOP ;
857:
858: IF PG_DEBUG <> 0 THEN
859: print_shipset( p_shipset ) ;
860: oe_debug_pub.add('get_atp_bom: ' || ' going to raise expected error ' , 1 );
861: END IF;
862:
863: RAISE FND_API.G_EXC_ERROR ;
864:
886: /*
887: ** copy atp_bom_rec into p_atp_bom_rec
888: */
889: IF PG_DEBUG <> 0 THEN
890: oe_debug_pub.add('get_atp_bom: ' || ' Copy atp_bom_rec into p_atp_bom_rec ' || v_atp_bom_rec.assembly_identIFier.count , 2);
891: END IF;
892:
893: l_stmt_num := 500 ;
894:
912: /*
913: ** copy transformed v_shipset into v_reduced_shipset
914: */
915: IF PG_DEBUG <> 0 THEN
916: oe_debug_pub.add('get_atp_bom: ' || 'Copy transformed v_shipset into v_reduced_shipset ' , 2 );
917: END IF;
918:
919: l_stmt_num := 540 ;
920:
941:
942: l_stmt_num := 580 ;
943:
944: IF PG_DEBUG <> 0 THEN
945: oe_debug_pub.add('get_atp_bom: ' || 'v_reduced_shipset count ' || v_reduced_shipset.ship_set_name.count , 1 );
946: END IF;
947:
948: FOR k IN v_reduced_shipset.ship_set_name.first..v_reduced_shipset.ship_set_name.last
949: LOOP
959: -- we null them out before sending the reduced shipset to ATP. We will
960: -- re-generate them in the post-ATP call (bug 2598745)
961: --
962: IF PG_DEBUG <> 0 THEN
963: oe_debug_pub.add('get_atp_bom: ' || 'Going to null out auto-generated shipset names in pre-ATP call ' ,2 );
964: END IF;
965:
966: FOR v_auto_shipset IN p_shipset.ship_set_name.first..p_shipset.ship_set_name.last
967: LOOP
972: v_process_demand);
973:
974: IF v_auto_gen THEN
975: IF PG_DEBUG <> 0 THEN
976: oe_debug_pub.add('get_atp_bom: ' || 'Nulled out shipset name '||p_shipset.ship_set_name(v_auto_shipset) ,3 );
977: END IF;
978: p_shipset.ship_set_name(v_auto_shipset) := null ;
979: END IF ;
980:
999: */
1000: l_stmt_num := 640 ;
1001:
1002: IF PG_DEBUG <> 0 THEN
1003: oe_debug_pub.add('get_atp_bom: ' || 'Printing g_final_cto_shipset ' , 2 );
1004: l_stmt_num := 660 ;
1005: show_contents(g_final_cto_shipset) ;
1006: END IF;
1007:
1008: g_cto_shipset.delete ;
1009: g_cto_sparse_shipset.delete ;
1010:
1011: IF PG_DEBUG <> 0 THEN
1012: oe_debug_pub.add('get_atp_bom: ' || ' Printing shipset before finishing get_atp_bom ' , 2 );
1013: l_stmt_num := 680 ;
1014: print_shipset( p_shipset ) ;
1015: END IF;
1016:
1016:
1017: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1018:
1019: IF PG_DEBUG <> 0 THEN
1020: oe_debug_pub.add('get_atp_bom: ' || ' Done get atp bom' , 1 );
1021: END IF;
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: IF PG_DEBUG <> 0 THEN
1026: oe_debug_pub.add('get_atp_bom: ' || 'GET_ATP_BOM_PUB::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
1027: oe_debug_pub.add('get_atp_bom: ' || ' Printing shipset to show exp error ' , 2 );
1028: END IF;
1029: x_return_status := FND_API.G_RET_STS_ERROR;
1030:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: IF PG_DEBUG <> 0 THEN
1026: oe_debug_pub.add('get_atp_bom: ' || 'GET_ATP_BOM_PUB::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
1027: oe_debug_pub.add('get_atp_bom: ' || ' Printing shipset to show exp error ' , 2 );
1028: END IF;
1029: x_return_status := FND_API.G_RET_STS_ERROR;
1030:
1031: print_shipset( p_shipset ) ;
1036: );
1037:
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: IF PG_DEBUG <> 0 THEN
1040: oe_debug_pub.add('get_atp_bom: ' || 'GET_ATP_BOM_PUB::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
1041: END IF;
1042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1043: FND_MSG_PUB.Count_And_Get(
1044: p_count => x_msg_count
1046: );
1047:
1048: WHEN OTHERS THEN
1049: IF PG_DEBUG <> 0 THEN
1050: oe_debug_pub.add('get_atp_bom: ' || 'GET_ATP_BOM_PUB::others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1053: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1054: FND_MSG_PUB.Add_Exc_Msg(
1161: */
1162: l_stmt_num := 40 ;
1163:
1164: IF PG_DEBUG <> 0 THEN
1165: oe_debug_pub.add('evaluate_shipset: ' || 'Calling module is:: '|| to_char( p_shipset.calling_module.first ) , 2 );
1166: oe_debug_pub.add('evaluate_shipset: ' || 'Shipset count is::' || to_char( p_shipset.calling_module.count ) , 4 );
1167: print_shipset(p_shipset) ;
1168: END IF;
1169:
1162: l_stmt_num := 40 ;
1163:
1164: IF PG_DEBUG <> 0 THEN
1165: oe_debug_pub.add('evaluate_shipset: ' || 'Calling module is:: '|| to_char( p_shipset.calling_module.first ) , 2 );
1166: oe_debug_pub.add('evaluate_shipset: ' || 'Shipset count is::' || to_char( p_shipset.calling_module.count ) , 4 );
1167: print_shipset(p_shipset) ;
1168: END IF;
1169:
1170:
1189: v_action := 120 ;
1190: END IF;
1191:
1192: IF PG_DEBUG <> 0 THEN
1193: oe_debug_pub.add('evaluate_shipset: ' || 'Action is:: ' || v_action_code , 2 );
1194: END IF;
1195:
1196: /*
1197: ** populate om or cz shipset
1199: l_stmt_num := 80 ;
1200: IF( v_call_from = 'OM' )
1201: THEN
1202: IF PG_DEBUG <> 0 THEN
1203: oe_debug_pub.add ('evaluate_shipset: ' || 'Calling populate_om_shipset ' , 2 );
1204: END IF;
1205:
1206: l_stmt_num := 100 ;
1207: populate_om_shipset(
1211: , x_return_status
1212: );
1213:
1214: IF PG_DEBUG <> 0 THEN
1215: oe_debug_pub.add('evaluate_shipset: ' || 'Returned from populate om shipset::'||x_return_status, 4);
1216: END IF;
1217:
1218: l_stmt_num := 120 ;
1219:
1224: END IF ;
1225:
1226: ELSIF ( v_call_from = 'CZ' ) THEN
1227: IF PG_DEBUG <> 0 THEN
1228: oe_debug_pub.add ('evaluate_shipset: ' || 'Calling populate_cz_shipset ' , 2 );
1229: END IF;
1230:
1231: l_stmt_num := 160 ;
1232: populate_cz_shipset(
1236: , x_return_status
1237: );
1238:
1239: IF PG_DEBUG <> 0 THEN
1240: oe_debug_pub.add('evaluate_shipset: ' || 'Returned from populate cz shipset:: '||x_return_status, 4);
1241: END IF;
1242: l_stmt_num := 180 ;
1243:
1244: IF( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1274: ** before reducing shipset populate the error codes encountered
1275: */
1276:
1277: IF PG_DEBUG <> 0 THEN
1278: oe_debug_pub.add('evaluate_shipset: ' || 'No models in shipset, going to populate error ' , 2 );
1279: END IF;
1280:
1281: l_stmt_num := 220 ;
1282:
1285: /*
1286: ** copy the shipset to global shipset
1287: */
1288: IF PG_DEBUG <> 0 THEN
1289: oe_debug_pub.add('evaluate_shipset: ' || 'Going to save shipset into global shipset ' , 2 );
1290: END IF;
1291:
1292: l_stmt_num := 240 ;
1293: save_shipset( p_shipset , x_return_status ) ;
1303:
1304: FOR j IN v_orig_shipset_tracker.first..v_orig_shipset_tracker.last
1305: LOOP
1306: IF PG_DEBUG <> 0 THEN
1307: oe_debug_pub.add ('evaluate_shipset: ' || v_orig_shipset_tracker(j).line_id || ' IT ' ||
1308: v_orig_shipset_tracker(j).bom_item_type || ' ID ' ||
1309: v_orig_shipset_tracker(j).base_item_id || ' WF ' ||
1310: v_orig_shipset_tracker(j).build_in_wip_flag || ' RF ' ||
1311: v_orig_shipset_tracker(j).replenish_to_order_flag , 5 );
1341: /*
1342: ** populate_plan_level for the ship set
1343: */
1344: IF PG_DEBUG <> 0 THEN
1345: oe_debug_pub.add ('evaluate_shipset: ' || 'Going to call populate plan level, shipset count is ' ||v_raw_shipset_tracker.count , 2 );
1346: END IF;
1347: l_stmt_num := 320 ;
1348:
1349: populate_plan_level(
1359: /*
1360: ** populate_parent_ato for the ship set
1361: */
1362: IF PG_DEBUG <> 0 THEN
1363: oe_debug_pub.add('evaluate_shipset: ' || 'Going to call populate parent ato ', 2 );
1364: END IF;
1365:
1366: l_stmt_num := 360 ;
1367:
1368: populate_parent_ato(
1369: v_raw_shipset_tracker
1370: , null ) ;
1371: IF PG_DEBUG <> 0 THEN
1372: oe_debug_pub.add('evaluate_shipset: ' || 'Populated parent ato ' , 4 );
1373: END IF;
1374:
1375: l_stmt_num := 380 ;
1376:
1405: END LOOP ;
1406:
1407: IF( v_multilevel_shipset ) THEN /* BUG#1874380 */
1408: IF PG_DEBUG <> 0 THEN
1409: oe_debug_pub.add('evaluate_shipset: ' || '*** Shipset Has atleast one Multilevel Model ' , 1 );
1410: END IF;
1411: ELSE
1412: IF PG_DEBUG <> 0 THEN
1413: oe_debug_pub.add('evaluate_shipset: ' || '*** Shipset does not have Multilevel Model ' , 1 );
1409: oe_debug_pub.add('evaluate_shipset: ' || '*** Shipset Has atleast one Multilevel Model ' , 1 );
1410: END IF;
1411: ELSE
1412: IF PG_DEBUG <> 0 THEN
1413: oe_debug_pub.add('evaluate_shipset: ' || '*** Shipset does not have Multilevel Model ' , 1 );
1414: END IF;
1415: END IF ;
1416:
1417:
1415: END IF ;
1416:
1417:
1418: IF PG_DEBUG <> 0 THEN
1419: oe_debug_pub.add ('evaluate_shipset: ' || ' ** Bubble Sort logic for aligning ship set' , 4 );
1420: END IF;
1421:
1422: /*
1423: ** Bubble Sort logic for aligning ship set ( replace this with quick sort later!! )
1453: END LOOP ;
1454:
1455:
1456: IF PG_DEBUG <> 0 THEN
1457: oe_debug_pub.add ('evaluate_shipset: ' || 'Going to process sourcing, shipset count is ' || local_cto_shipset.count , 2 );
1458: END IF;
1459: /*
1460: ** Check for each top model line whether multi-org and identify sources
1461: ** Also calculate model quantity per
1504: local_cto_shipset(i).ordered_quantity := 0 ;
1505: END IF ;
1506:
1507: IF PG_DEBUG <> 0 THEN
1508: oe_debug_pub.add('evaluate_shipset: ' || 'Going to call process_sourcing_chain ' , 2 );
1509: END IF;
1510:
1511: l_stmt_num := 520 ;
1512: process_sourcing_chain(
1533: END IF ;
1534:
1535: l_stmt_num := 555 ;
1536: IF PG_DEBUG <> 0 THEN
1537: oe_debug_pub.add('evaluate_shipset: ' || 'Going to call register error with error code::' || to_char( g_expected_error_code ) , 1 );
1538: END IF;
1539:
1540: register_error ( local_cto_shipset(i).ship_set_name ,
1541: local_cto_shipset(i).line_id,
1562:
1563: l_stmt_num := 560 ;
1564: IF( p_model_sourced ) THEN
1565: IF PG_DEBUG <> 0 THEN
1566: oe_debug_pub.add('evaluate_shipset: ' || '***Model is sourced in this shipset ' , 1 );
1567: END IF;
1568: ELSE
1569: IF PG_DEBUG <> 0 THEN
1570: oe_debug_pub.add('evaluate_shipset: ' || '***Model is not sourced in this shipset ' , 1 );
1566: oe_debug_pub.add('evaluate_shipset: ' || '***Model is sourced in this shipset ' , 1 );
1567: END IF;
1568: ELSE
1569: IF PG_DEBUG <> 0 THEN
1570: oe_debug_pub.add('evaluate_shipset: ' || '***Model is not sourced in this shipset ' , 1 );
1571: END IF;
1572: END IF ;
1573:
1574: IF PG_DEBUG <> 0 THEN
1571: END IF;
1572: END IF ;
1573:
1574: IF PG_DEBUG <> 0 THEN
1575: oe_debug_pub.add('evaluate_shipset: ' || 'Done sourcing, status is::' || x_return_status , 2 );
1576: oe_debug_pub.add('evaluate_shipset: ' || 'Done sourcing, shipset count is:: ' || local_cto_shipset.count , 1 );
1577: END IF;
1578:
1579: l_stmt_num := 580 ;
1572: END IF ;
1573:
1574: IF PG_DEBUG <> 0 THEN
1575: oe_debug_pub.add('evaluate_shipset: ' || 'Done sourcing, status is::' || x_return_status , 2 );
1576: oe_debug_pub.add('evaluate_shipset: ' || 'Done sourcing, shipset count is:: ' || local_cto_shipset.count , 1 );
1577: END IF;
1578:
1579: l_stmt_num := 580 ;
1580: show_contents(
1587: for i in local_cto_shipset.first..local_cto_shipset.last
1588: loop
1589: if( local_cto_shipset.exists(i) )
1590: then
1591: oe_debug_pub.add( ' Shipset exist i' , 1 ) ; -- debug
1592: if(( ( local_cto_shipset(i).line_id <> nvl( local_cto_shipset(i).parent_ato_line_id , local_cto_shipset(i).line_id ))
1593: AND ( local_cto_shipset(i).bom_item_type = 1)
1594: AND ( nvl(local_cto_shipset(i).wip_supply_type, 1) <> 6)
1595: )
1604: d_bom_item_type := local_cto_shipset(i).bom_item_type; -- debug
1605: d_wip_supply_type := local_cto_shipset(i).wip_supply_type; -- debug
1606: -- d_sourced_components := to_char(local_cto_shipset(i).sourced_components); -- debug
1607: d_ato_line_id := local_cto_shipset(i).ato_line_id; -- debug
1608: oe_debug_pub.add( ' Lid '||d_line_id||' p_ato_lid '||d_parent_ato_line_id, 1 ) ; -- debug
1609: oe_debug_pub.add( ' IT '||d_bom_item_type||' WS '||d_wip_supply_type,1); -- debug
1610:
1611:
1612: v_mlmo_ato_line_id :=local_cto_shipset(i).ato_line_id;
1605: d_wip_supply_type := local_cto_shipset(i).wip_supply_type; -- debug
1606: -- d_sourced_components := to_char(local_cto_shipset(i).sourced_components); -- debug
1607: d_ato_line_id := local_cto_shipset(i).ato_line_id; -- debug
1608: oe_debug_pub.add( ' Lid '||d_line_id||' p_ato_lid '||d_parent_ato_line_id, 1 ) ; -- debug
1609: oe_debug_pub.add( ' IT '||d_bom_item_type||' WS '||d_wip_supply_type,1); -- debug
1610:
1611:
1612: v_mlmo_ato_line_id :=local_cto_shipset(i).ato_line_id;
1613:
1610:
1611:
1612: v_mlmo_ato_line_id :=local_cto_shipset(i).ato_line_id;
1613:
1614: oe_debug_pub.add( ' atoLid '||d_ato_line_id||' mlmo_ato_lid '||v_mlmo_ato_line_id, 1 ) ; -- debug
1615:
1616: for j in local_cto_shipset.first..local_cto_shipset.last
1617: loop
1618: if( local_cto_shipset.exists(j) )
1617: loop
1618: if( local_cto_shipset.exists(j) )
1619: then
1620:
1621: oe_debug_pub.add( ' Shipset exist j' , 1 ) ; -- debug
1622:
1623: if ( local_cto_shipset(j).ato_line_id = v_mlmo_ato_line_id )
1624: then
1625:
1624: then
1625:
1626: dj_ato_line_id := local_cto_shipset(j).ato_line_id; -- debug
1627: dj_line_id := local_cto_shipset(j).line_id; -- debug
1628: oe_debug_pub.add( ' line id '||dj_line_id||' atoLid '||dj_ato_line_id||' mlmo_ato_lid '||v_mlmo_ato_line_id, 1 ) ; -- debug
1629:
1630: local_cto_shipset(j).mlmo_flag := 'Y';
1631:
1632: dj_mlmo_flag := local_cto_shipset(j).mlmo_flag; -- debug
1629:
1630: local_cto_shipset(j).mlmo_flag := 'Y';
1631:
1632: dj_mlmo_flag := local_cto_shipset(j).mlmo_flag; -- debug
1633: oe_debug_pub.add( ' mlmo_flag after settin to Y '||dj_mlmo_flag, 1 ) ; -- debug
1634:
1635: end if;
1636: end if;
1637: end loop;
1646: */
1647: l_stmt_num := 600 ;
1648:
1649: IF PG_DEBUG <> 0 THEN
1650: oe_debug_pub.add('evaluate_shipset: ' || ' ** Filter, prepare structure for calling BOM API ', 2 );
1651: oe_debug_pub.add('evaluate_shipset: ' || ' ** Remove pto and its pto components from pto-ato models ' , 2 );
1652: oe_debug_pub.add('evaluate_shipset: ' || ' ** Before filtering components ' || local_cto_shipset.count , 2 );
1653: END IF;
1654:
1647: l_stmt_num := 600 ;
1648:
1649: IF PG_DEBUG <> 0 THEN
1650: oe_debug_pub.add('evaluate_shipset: ' || ' ** Filter, prepare structure for calling BOM API ', 2 );
1651: oe_debug_pub.add('evaluate_shipset: ' || ' ** Remove pto and its pto components from pto-ato models ' , 2 );
1652: oe_debug_pub.add('evaluate_shipset: ' || ' ** Before filtering components ' || local_cto_shipset.count , 2 );
1653: END IF;
1654:
1655: l_stmt_num := 602 ;
1648:
1649: IF PG_DEBUG <> 0 THEN
1650: oe_debug_pub.add('evaluate_shipset: ' || ' ** Filter, prepare structure for calling BOM API ', 2 );
1651: oe_debug_pub.add('evaluate_shipset: ' || ' ** Remove pto and its pto components from pto-ato models ' , 2 );
1652: oe_debug_pub.add('evaluate_shipset: ' || ' ** Before filtering components ' || local_cto_shipset.count , 2 );
1653: END IF;
1654:
1655: l_stmt_num := 602 ;
1656:
1661: THEN
1662: IF( local_cto_shipset(i).top_model_line_id = local_cto_shipset(i).line_id )
1663: THEN
1664: IF PG_DEBUG <> 0 THEN
1665: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, i is '|| i , 5 );
1666: END IF;
1667: /* remove single source ATO , PTO */
1668: IF( local_Cto_shipset(i).sourced_components = FALSE )
1669: THEN
1667: /* remove single source ATO , PTO */
1668: IF( local_Cto_shipset(i).sourced_components = FALSE )
1669: THEN
1670: IF PG_DEBUG <> 0 THEN
1671: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, no sourced components ' , 2 );
1672: END IF;
1673: v_top_model_line_id := local_cto_shipset(i).line_id ;
1674:
1675: l_stmt_num := 640 ;
1682: IF( local_cto_shipset.exists(j) ) THEN
1683: IF( local_cto_shipset(j).top_model_line_id = v_top_model_line_id )
1684: THEN
1685: IF PG_DEBUG <> 0 THEN
1686: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, j is '|| j , 5 );
1687: END IF;
1688: /* remove only pto and its components before ato */
1689: IF( local_cto_shipset(j).ato_line_id is null OR
1690: ( local_cto_shipset(j).ato_line_id = local_cto_shipset(j).line_id AND
1691: local_cto_shipset(j).item_type_code in ( 'OPTION' , 'INCLUDED' )
1692: ) /* special processing for ato items under PTO Models per BUG#1874380 */
1693: ) THEN
1694: IF PG_DEBUG <> 0 THEN
1695: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, deleted comp for line_id:: ' || local_cto_shipset(j).line_id, 2 );
1696: END IF;
1697: local_cto_shipset.delete(j) ;
1698: END IF ;
1699:
1703: END IF;
1704:
1705: ELSIF( local_cto_shipset(i).sourced_components = TRUE ) THEN
1706: IF PG_DEBUG <> 0 THEN
1707: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, sourced components ' , 2 );
1708: END IF;
1709:
1710: /* remove PTO and PTO components from sourced PTO */
1711: v_top_model_line_id := local_cto_shipset(i).line_id ;
1720: IF( local_cto_shipset.exists(j) ) THEN
1721: IF( local_cto_shipset(j).top_model_line_id = v_top_model_line_id )
1722: THEN
1723: IF PG_DEBUG <> 0 THEN
1724: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, j is '|| j , 5 );
1725: END IF;
1726: /* remove only pto and its components before ato */
1727: IF( local_cto_shipset(j).ato_line_id is null OR
1728: ( local_cto_shipset(j).ato_line_id = local_cto_shipset(j).line_id AND
1730: ) /* special processing for ato items under PTO Models per BUG#1874380 */
1731: )
1732: THEN
1733: IF PG_DEBUG <> 0 THEN
1734: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, deleted comp for line_id::' || local_cto_shipset(j).line_id , 2 );
1735: END IF;
1736: local_cto_shipset.delete(j) ;
1737: /* set the top level ato to sourced components of top level model */
1738: ELSIF( local_cto_shipset(j).ato_line_id = local_cto_shipset(j).line_id ) THEN
1745: END IF;
1746:
1747: ELSE
1748: IF PG_DEBUG <> 0 THEN
1749: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, null sourced components ', 2 );
1750: END IF;
1751: END IF ;
1752:
1753: ELSIF( local_cto_shipset(i).top_model_line_id is null AND
1755: THEN
1756: /* remove standard items and ato items */
1757:
1758: IF PG_DEBUG <> 0 THEN
1759: oe_debug_pub.add('evaluate_shipset: ' || 'Filtering PTO, removing standard item for line_id::' || local_cto_shipset(i).line_id , 2 );
1760: END IF;
1761:
1762: local_cto_shipset.delete(i) ;
1763:
1784: l_stmt_num := 720 ;
1785:
1786: /* populate shipset for reference */
1787: IF PG_DEBUG <> 0 THEN
1788: oe_debug_pub.add('evaluate_shipset: ' || 'g_cto_shipset count ='||to_char(g_cto_shipset.count),2);
1789: END IF;
1790: g_cto_shipset(g_cto_shipset.count + 1 ) := local_cto_shipset(i) ;
1791:
1792: IF PG_DEBUG <> 0 THEN
1789: END IF;
1790: g_cto_shipset(g_cto_shipset.count + 1 ) := local_cto_shipset(i) ;
1791:
1792: IF PG_DEBUG <> 0 THEN
1793: oe_debug_pub.add('evaluate_shipset: ' || 'Before creating sparse_shipset',4);
1794: oe_debug_pub.add('evaluate_shipset: ' || 'Ading line Id '
1795: ||to_char(local_cto_shipset(i).line_id) || ' to sparse shipset' ,2);
1796: END IF;
1797: /* sparse array creation */
1790: g_cto_shipset(g_cto_shipset.count + 1 ) := local_cto_shipset(i) ;
1791:
1792: IF PG_DEBUG <> 0 THEN
1793: oe_debug_pub.add('evaluate_shipset: ' || 'Before creating sparse_shipset',4);
1794: oe_debug_pub.add('evaluate_shipset: ' || 'Ading line Id '
1795: ||to_char(local_cto_shipset(i).line_id) || ' to sparse shipset' ,2);
1796: END IF;
1797: /* sparse array creation */
1798: g_cto_sparse_shipset(local_cto_shipset(i).line_id) := local_cto_shipset(i) ;
1803:
1804: IF( g_cto_shipset.count = 1 ) THEN
1805:
1806: IF PG_DEBUG <> 0 THEN
1807: oe_debug_pub.add('evaluate_shipset: ' || 'Populating g_cto_shipset for shipset name ' || g_cto_shipset(1).ship_set_name , 2 );
1808: END IF;
1809:
1810: l_stmt_num := 760 ;
1811: v_shipset_index := get_shipset_success_index( g_cto_shipset(1).ship_set_name ) ;
1818: -- populate slso_shipset from local_cto_shipset
1819: slso_shipset(local_cto_shipset(i).ato_line_id).ship_set_name := local_cto_shipset(i).ship_set_name;
1820: slso_shipset(local_cto_shipset(i).ato_line_id).ato_line_id := local_cto_shipset(i).ato_line_id;
1821:
1822: oe_debug_pub.add( ' SLSO shipset name ' || slso_shipset(local_cto_shipset(i).ato_line_id).ship_set_name , 1 ) ;
1823: oe_debug_pub.add( ' SLSO ato line id ' || slso_shipset(local_cto_shipset(i).ato_line_id).ato_line_id , 1 ) ;
1824: end if;
1825: -- 2723674 end fix
1826: END IF;
1819: slso_shipset(local_cto_shipset(i).ato_line_id).ship_set_name := local_cto_shipset(i).ship_set_name;
1820: slso_shipset(local_cto_shipset(i).ato_line_id).ato_line_id := local_cto_shipset(i).ato_line_id;
1821:
1822: oe_debug_pub.add( ' SLSO shipset name ' || slso_shipset(local_cto_shipset(i).ato_line_id).ship_set_name , 1 ) ;
1823: oe_debug_pub.add( ' SLSO ato line id ' || slso_shipset(local_cto_shipset(i).ato_line_id).ato_line_id , 1 ) ;
1824: end if;
1825: -- 2723674 end fix
1826: END IF;
1827: END LOOP ;
1842: ** before reducing shipset populate the error codes encountered
1843: */
1844:
1845: IF PG_DEBUG <> 0 THEN
1846: oe_debug_pub.add('evaluate_shipset: ' || 'Returning as none of the models are sourced ' , 2 );
1847: END IF;
1848:
1849: l_stmt_num := 800 ;
1850: populate_error( p_shipset , l_return_status ) ;
1862: THEN
1863: /* added this statement as multilevel single org should work as multiorg*/
1864: p_model_sourced := TRUE ;
1865: IF PG_DEBUG <> 0 THEN
1866: oe_debug_pub.add('evaluate_shipset: ' || ' Model is multilevel single org, it should behave as multiorg ' , 2 );
1867: END IF;
1868: END IF ;
1869:
1870: /*
1871: ** CALL BOM API
1872: ** make the structure contiguous before calling
1873: */
1874: IF PG_DEBUG <> 0 THEN
1875: oe_debug_pub.add ('evaluate_shipset: ' || ' Before Create ATP BOM ' , 1 );
1876: END IF;
1877: l_stmt_num := 840 ;
1878:
1879: show_contents( g_cto_shipset ) ;
1878:
1879: show_contents( g_cto_shipset ) ;
1880:
1881: IF PG_DEBUG <> 0 THEN
1882: oe_debug_pub.add ('evaluate_shipset: ' || ' Display shipset contents before Create ATP BOM ' , 2 );
1883: show_contents( g_cto_sparse_shipset ) ;
1884: END IF;
1885:
1886: l_stmt_num := 860 ;
1899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1900: END IF ;
1901:
1902: IF PG_DEBUG <> 0 THEN
1903: oe_debug_pub.add('evaluate_shipset: ' || ' Create ATP BOM information ' , 4 );
1904: END IF;
1905:
1906: l_stmt_num := 900 ;
1907: FOR k IN p_atp_bom_rec.assembly_identifier.first..p_atp_bom_rec.assembly_identifier.last
1908: LOOP
1909: IF( p_atp_bom_rec.assembly_identifier.exists(k) ) THEN
1910:
1911: IF PG_DEBUG <> 0 THEN
1912: oe_debug_pub.add('evaluate_shipset: ' || ' Aident ' || p_atp_bom_rec.assembly_identifier(k) ||
1913: ' Aitem ' || p_atp_bom_rec.assembly_item_id(k) ||
1914: ' Cident ' || p_atp_bom_rec.component_identifier(k) ||
1915: ' Citem ' || p_atp_bom_rec.component_item_id(k) ||
1916: ' quant ' || p_atp_bom_rec.quantity(k) ||
1935: l_stmt_num := 940 ;
1936: g_final_cto_shipset(l).wip_supply_type := -1 ;
1937: p_atp_bom_rec.wip_supply_type(k) := -1 ;
1938: IF PG_DEBUG <> 0 THEN
1939: oe_debug_pub.add('evaluate_shipset: ' || ' Changed wip to -1 for ' ||
1940: g_final_cto_shipset(l).line_id || ' iid ' ||
1941: g_final_cto_shipset(l).inventory_item_id ||
1942: ' as it matched ' || p_atp_bom_rec.component_identifier(k) ||
1943: ' item ' || p_atp_bom_rec.component_item_id(k) , 5 );
1946: ELSE
1947: l_stmt_num := 960 ;
1948: g_final_cto_shipset(l).wip_supply_type := 6 ;
1949: IF PG_DEBUG <> 0 THEN
1950: oe_debug_pub.add('evaluate_shipset: ' || ' Changed wip to 6 for ' || g_final_cto_shipset(l).line_id || ' iid ' || g_final_cto_shipset(l).inventory_item_id , 5 );
1951: END IF;
1952: END IF ;
1953: END IF ;
1954: END IF ;
1957: END IF ;
1958: END LOOP ;
1959:
1960: IF PG_DEBUG <> 0 THEN
1961: oe_debug_pub.add ('evaluate_shipset: ' || ' **Prepare ship set for ATP ' || g_cto_sparse_shipset.count ,2 );
1962: END IF;
1963: /*
1964: ** prepare ship set for ATP
1965: ** Identify and flag components in ship set that need to be inactivated
2011: FOR i IN v_cto_shipset_flag.first..v_cto_shipset_flag.last
2012: LOOP
2013: IF( v_cto_shipset_flag(i) ) THEN
2014: IF PG_DEBUG <> 0 THEN
2015: oe_debug_pub.add ('evaluate_shipset: ' || 'Line id ' || p_shipset.identifier(i) || ' is part of reduced shipset ', 2 );
2016: END IF;
2017: l_stmt_num := 1060 ;
2018: MRP_ATP_PVT.assign_atp_input_rec(p_shipset,
2019: i,
2019: i,
2020: v_shipset,
2021: x_return_status );
2022: IF PG_DEBUG <> 0 THEN
2023: oe_debug_pub.add('evaluate_shipset: ' || 'MRP API returns with '|| x_return_status , 5 );
2024: END IF;
2025: ELSE
2026: IF PG_DEBUG <> 0 THEN
2027: oe_debug_pub.add('evaluate_shipset: ' || 'Line id ' || p_shipset.identifier(i) || ' is removed from reduced shipset ', 2 );
2023: oe_debug_pub.add('evaluate_shipset: ' || 'MRP API returns with '|| x_return_status , 5 );
2024: END IF;
2025: ELSE
2026: IF PG_DEBUG <> 0 THEN
2027: oe_debug_pub.add('evaluate_shipset: ' || 'Line id ' || p_shipset.identifier(i) || ' is removed from reduced shipset ', 2 );
2028: END IF;
2029: END IF ;
2030: END LOOP ;
2031:
2029: END IF ;
2030: END LOOP ;
2031:
2032: IF PG_DEBUG <> 0 THEN
2033: oe_debug_pub.add('evaluate_shipset: ' || '***Contents of reduced shipset are ' ,1 );
2034: END IF;
2035:
2036: l_stmt_num := 1080 ;
2037: FOR i IN v_shipset.identifier.first..v_shipset.identifier.last
2037: FOR i IN v_shipset.identifier.first..v_shipset.identifier.last
2038: LOOP
2039: IF( v_shipset.identifier.exists(i) ) THEN
2040: IF PG_DEBUG <> 0 THEN
2041: oe_debug_pub.add('evaluate_shipset: ' || '++++Line id:: ' || v_shipset.identifier(i) , 1 );
2042: END IF;
2043: END IF ;
2044: END LOOP ;
2045:
2050:
2051: EXCEPTION
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: IF PG_DEBUG <> 0 THEN
2054: oe_debug_pub.add('evaluate_shipset: ' || ':exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2055: END IF;
2056: x_return_status := FND_API.G_RET_STS_ERROR;
2057: FND_MSG_PUB.Count_And_Get(
2058: p_count => x_msg_count
2059: , p_data => x_msg_data
2060: );
2061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2062: IF PG_DEBUG <> 0 THEN
2063: oe_debug_pub.add('evaluate_shipset: ' || ':unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2064: END IF;
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: FND_MSG_PUB.Count_And_Get(
2067: p_count => x_msg_count
2068: , p_data => x_msg_data
2069: );
2070: WHEN OTHERS THEN
2071: IF PG_DEBUG <> 0 THEN
2072: oe_debug_pub.add('evaluate_shipset: ' || ':others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2073: END IF;
2074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2075: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2076: FND_MSG_PUB.Add_Exc_Msg(
2135: p_shipset_contains_model := FALSE ;
2136: g_requests_tab.delete ;
2137:
2138: IF PG_DEBUG <> 0 THEN
2139: oe_debug_pub.add('populate_cz_shipset: ' || 'Entered populate cz shipset ' , 1 );
2140: END IF;
2141:
2142: l_stmt_num := 4 ;
2143: FOR v_location IN p_shipset.ship_set_name.first..p_shipset.ship_set_name.last
2179: l_stmt_num := 10 ;
2180: g_requests_tab(v_index).inv_org_id := p_shipset.source_organization_id(v_location ) ;
2181:
2182: IF PG_DEBUG <> 0 THEN
2183: oe_debug_pub.add('populate_cz_shipset: ' || 'Ship from org is ' || g_requests_tab(v_index).inv_org_id , 2 );
2184: END IF;
2185:
2186: g_requests_tab(v_index).location := v_location ;
2187: g_requests_tab(v_index).ship_set_name := p_shipset.ship_set_name(v_location ) ;
2204: FOR j IN 1..g_requests_tab.count
2205: LOOP
2206:
2207: IF PG_DEBUG <> 0 THEN
2208: oe_debug_pub.add('populate_cz_shipset: ' || 'Line_id ' || g_requests_tab(j).line_id
2209: || ' inventory id ' || g_requests_tab(j).inventory_item_id
2210: || ' self ' || g_requests_tab(j).config_item_id
2211: || ' parent ' || g_requests_tab(j).parent_config_item_id , 5 );
2212: END IF;
2213:
2214: END LOOP ;
2215:
2216: IF PG_DEBUG <> 0 THEN
2217: oe_debug_pub.add('populate_cz_shipset: ' || 'Fetched cz information ' , 3 );
2218: END IF;
2219:
2220: l_validation_org := cz_atp_callback_util.validation_org_for_cfg_model( g_requests_tab(g_requests_tab.first).configurator_session_key ) ;
2221:
2219:
2220: l_validation_org := cz_atp_callback_util.validation_org_for_cfg_model( g_requests_tab(g_requests_tab.first).configurator_session_key ) ;
2221:
2222: IF PG_DEBUG <> 0 THEN
2223: oe_debug_pub.add('populate_cz_shipset: ' || 'Validation org is ' || l_validation_org , 3 );
2224: END IF;
2225:
2226: l_stmt_num := 24 ;
2227: IF( l_validation_org is null ) THEN
2279: END LOOP ;
2280: END LOOP ;
2281:
2282: IF PG_DEBUG <> 0 THEN
2283: oe_debug_pub.add('populate_cz_shipset: ' || 'Done populating link_to_line_id ' , 4 );
2284: END IF;
2285:
2286: l_stmt_num := 34 ;
2287: FOR j IN 1..g_requests_tab.count
2287: FOR j IN 1..g_requests_tab.count
2288: LOOP
2289: g_requests_tab(j).top_model_line_id := v_top_model_line_id ;
2290: IF PG_DEBUG <> 0 THEN
2291: oe_debug_pub.add('populate_cz_shipset: ' || 'Line_id ' || g_requests_tab(j).line_id
2292: || ' inventory id ' || g_requests_tab(j).inventory_item_id
2293: || ' self ' || g_requests_tab(j).config_item_id
2294: || ' parent ' || g_requests_tab(j).parent_config_item_id
2295: || ' link ' || g_requests_tab(j).link_to_line_id
2298: END IF;
2299: END LOOP ;
2300:
2301: IF PG_DEBUG <> 0 THEN
2302: oe_debug_pub.add('populate_cz_shipset: ' || 'Done populating top_model_line_id ' , 4 );
2303: END IF;
2304:
2305: l_stmt_num := 38 ;
2306: FOR j IN 1..g_requests_tab.count
2305: l_stmt_num := 38 ;
2306: FOR j IN 1..g_requests_tab.count
2307: LOOP
2308: IF PG_DEBUG <> 0 THEN
2309: oe_debug_pub.add('populate_cz_shipset: ' || 'Going to query msyi with iid ' || g_requests_tab(j).inventory_item_id || ' org ' || l_validation_org , 5 );
2310: END IF;
2311:
2312: l_stmt_num := 40 ;
2313: select MSYI.bom_item_type
2332: ** find bill sequence id for parent item
2333: */
2334:
2335: IF PG_DEBUG <> 0 THEN
2336: oe_debug_pub.add('populate_cz_shipset: ' || 'Done msyi ' ,5 );
2337:
2338: oe_debug_pub.add('populate_cz_shipset: ' || 'Going to find bill_sequence_id with assemblyid ' || g_requests_tab(nvl( g_requests_tab(j).parent_location , j ) ).inventory_item_id || ' and org ' || l_validation_org , 5 );
2339: END IF;
2340:
2334:
2335: IF PG_DEBUG <> 0 THEN
2336: oe_debug_pub.add('populate_cz_shipset: ' || 'Done msyi ' ,5 );
2337:
2338: oe_debug_pub.add('populate_cz_shipset: ' || 'Going to find bill_sequence_id with assemblyid ' || g_requests_tab(nvl( g_requests_tab(j).parent_location , j ) ).inventory_item_id || ' and org ' || l_validation_org , 5 );
2339: END IF;
2340:
2341: BEGIN
2342:
2349:
2350: EXCEPTION
2351: WHEN no_data_found THEN
2352: IF PG_DEBUG <> 0 THEN
2353: oe_debug_pub.add('populate_cz_shipset: ' || 'No data found for bill sequence id ' , 2 );
2354: END IF;
2355: v_bill_sequence_id := null ;
2356: WHEN others THEN
2357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2363: ** find wip supply type using parent bill sequence id and self inventory item id and
2364: ** item validation org
2365: */
2366: IF PG_DEBUG <> 0 THEN
2367: oe_debug_pub.add('populate_cz_shipset: ' || 'Going for wipsupplytype with billsequenceid ' || v_bill_sequence_id || ' componentid ' || g_requests_tab(j).inventory_item_id , 5 );
2368: END IF;
2369:
2370: BEGIN
2371: l_stmt_num := 48 ;
2378:
2379: EXCEPTION
2380: WHEN no_data_found THEN
2381: IF PG_DEBUG <> 0 THEN
2382: oe_debug_pub.add('populate_cz_shipset: ' || 'No data for wip supply ',2 );
2383: END IF;
2384:
2385: WHEN others THEN
2386: IF PG_DEBUG <> 0 THEN
2383: END IF;
2384:
2385: WHEN others THEN
2386: IF PG_DEBUG <> 0 THEN
2387: oe_debug_pub.add('populate_cz_shipset: ' || ' other error raise ' || SQLCODE ,2 );
2388: oe_debug_pub.add('populate_cz_shipset: ' || ' other error raise ' || SQLERRM ,2 );
2389: END IF;
2390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2391: END ;
2384:
2385: WHEN others THEN
2386: IF PG_DEBUG <> 0 THEN
2387: oe_debug_pub.add('populate_cz_shipset: ' || ' other error raise ' || SQLCODE ,2 );
2388: oe_debug_pub.add('populate_cz_shipset: ' || ' other error raise ' || SQLERRM ,2 );
2389: END IF;
2390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2391: END ;
2392:
2393: END IF ;
2394: END LOOP ;
2395:
2396: IF PG_DEBUG <> 0 THEN
2397: oe_debug_pub.add('populate_cz_shipset: ' || 'Done fetching msyi and bic information ' , 2 );
2398: END IF;
2399:
2400: /*
2401: ** propagate ato line id to all descendents
2400: /*
2401: ** propagate ato line id to all descendents
2402: */
2403: IF PG_DEBUG <> 0 THEN
2404: oe_debug_pub.add('populate_cz_shipset: ' || ' ** propagate ato line id to all descendents ' ,2 );
2405: END IF;
2406:
2407: l_stmt_num := 52 ;
2408: FOR j IN 1..g_requests_tab.count
2407: l_stmt_num := 52 ;
2408: FOR j IN 1..g_requests_tab.count
2409: LOOP
2410: IF PG_DEBUG <> 0 THEN
2411: oe_debug_pub.add('populate_cz_shipset: ' || ' loc ' || j || ' -> ' || g_requests_tab(j).line_id || ' alid '
2412: || g_requests_tab(j).ato_line_id || ' link ' || g_requests_tab(j).link_to_line_id || ' top ' || g_Requests_Tab(j).top_model_line_id , 5 );
2413: END IF;
2414: END LOOP ;
2415:
2413: END IF;
2414: END LOOP ;
2415:
2416: IF PG_DEBUG <> 0 THEN
2417: oe_debug_pub.add('populate_cz_shipset: ' || ' ** calling propagate ato line id to all descendents ' ,2 );
2418: END IF;
2419: propagate_ato_line_id( g_requests_tab.first ) ;
2420:
2421: IF PG_DEBUG <> 0 THEN
2418: END IF;
2419: propagate_ato_line_id( g_requests_tab.first ) ;
2420:
2421: IF PG_DEBUG <> 0 THEN
2422: oe_debug_pub.add('populate_cz_shipset: ' || ' ** copying information to shipset tracker ' ,2 );
2423: END IF;
2424:
2425: l_stmt_num := 56 ;
2426: FOR j IN 1..g_requests_tab.count
2490: l_stmt_num := 64 ;
2491: show_contents( p_orig_shipset_tracker ) ;
2492:
2493: IF PG_DEBUG <> 0 THEN
2494: oe_debug_pub.add('populate_cz_shipset: ' || 'Done populate cz shipset ' ,1 );
2495: END IF;
2496:
2497:
2498: EXCEPTION
2497:
2498: EXCEPTION
2499: WHEN FND_API.G_EXC_ERROR THEN
2500: IF PG_DEBUG <> 0 THEN
2501: oe_debug_pub.add('populate_cz_shipset: ' || 'POPULATE_CZ_SHIPSET::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2502: END IF;
2503: x_return_status := FND_API.G_RET_STS_ERROR;
2504: FND_MSG_PUB.Count_And_Get(
2505: p_count => x_msg_count
2506: , p_data => x_msg_data
2507: );
2508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2509: IF PG_DEBUG <> 0 THEN
2510: oe_debug_pub.add('populate_cz_shipset: ' || 'POPULATE_CZ_SHIPSET::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2511: END IF;
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: FND_MSG_PUB.Count_And_Get(
2514: p_count => x_msg_count
2515: , p_data => x_msg_data
2516: );
2517: WHEN OTHERS THEN
2518: IF PG_DEBUG <> 0 THEN
2519: oe_debug_pub.add('populate_cz_shipset: ' || 'POPULATE_CZ_SHIPSET::others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2520: END IF;
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2522: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2523: FND_MSG_PUB.Add_Exc_Msg(
2546: BEGIN
2547:
2548: l_stmt_num := 1 ;
2549: IF PG_DEBUG <> 0 THEN
2550: oe_debug_pub.add('populate_om_shipset: ' || ' In populate om shipset ' , 1 );
2551: END IF;
2552: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2553: p_shipset_contains_model := FALSE ;
2554:
2654:
2655: EXCEPTION
2656: WHEN others THEN
2657: IF PG_DEBUG <> 0 THEN
2658: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLCODE , 1 );
2659: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLERRM , 1 );
2660: oe_debug_pub.add('populate_om_shipset: ' || ' query ' || p_shipset.identifier(j) || ' ' ||
2661: p_shipset.demand_source_header_id(j) || ' ' || l_validation_org , 2 );
2662: END IF;
2655: EXCEPTION
2656: WHEN others THEN
2657: IF PG_DEBUG <> 0 THEN
2658: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLCODE , 1 );
2659: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLERRM , 1 );
2660: oe_debug_pub.add('populate_om_shipset: ' || ' query ' || p_shipset.identifier(j) || ' ' ||
2661: p_shipset.demand_source_header_id(j) || ' ' || l_validation_org , 2 );
2662: END IF;
2663: END ;
2656: WHEN others THEN
2657: IF PG_DEBUG <> 0 THEN
2658: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLCODE , 1 );
2659: oe_debug_pub.add('populate_om_shipset: ' || 'Error ' || SQLERRM , 1 );
2660: oe_debug_pub.add('populate_om_shipset: ' || ' query ' || p_shipset.identifier(j) || ' ' ||
2661: p_shipset.demand_source_header_id(j) || ' ' || l_validation_org , 2 );
2662: END IF;
2663: END ;
2664:
2695: END LOOP ;
2696:
2697: l_stmt_num := 14 ;
2698: IF PG_DEBUG <> 0 THEN
2699: oe_debug_pub.add('populate_om_shipset: ' || 'Displaying contents after populate_om_shipset ' , 3 );
2700: show_contents( p_orig_shipset_tracker ) ;
2701: END IF;
2702:
2703: EXCEPTION
2702:
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: IF PG_DEBUG <> 0 THEN
2706: oe_debug_pub.add('populate_om_shipset: ' || 'POPULATE_OM_SHIPSET::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2707: END IF;
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2709: FND_MSG_PUB.Count_And_Get(
2710: p_count => x_msg_count
2711: , p_data => x_msg_data
2712: );
2713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2714: IF PG_DEBUG <> 0 THEN
2715: oe_debug_pub.add('populate_om_shipset: ' || 'POPULATE_OM_SHIPSET::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2716: END IF;
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: FND_MSG_PUB.Count_And_Get(
2719: p_count => x_msg_count
2720: , p_data => x_msg_data
2721: );
2722: WHEN OTHERS THEN
2723: IF PG_DEBUG <> 0 THEN
2724: oe_debug_pub.add('populate_om_shipset: ' || 'POPULATE_OM_SHIPSET::others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2725: END IF;
2726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2727: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2728: FND_MSG_PUB.Add_Exc_Msg(
2763: x_exp_error_code Number ;
2764: BEGIN
2765:
2766: IF PG_DEBUG <> 0 THEN
2767: oe_debug_pub.add('process_sourcing_chain: ' || 'Entered process sourcing chain ' , 1 );
2768: END IF;
2769:
2770: l_stmt_num := 1 ;
2771: v_new_org := p_org ;
2772: v_model_line_id := local_cto_shipset(p_location).line_id ;
2773: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2774:
2775: IF PG_DEBUG <> 0 THEN
2776: oe_debug_pub.add('process_sourcing_chain: ' || ' p_top_location is '|| to_char(p_top_location) , 5 );
2777: oe_debug_pub.add('process_sourcing_chain: ' || ' p_location is '|| to_char(p_location) , 5 );
2778: END IF;
2779:
2780: IF PG_DEBUG <> 0 THEN
2773: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2774:
2775: IF PG_DEBUG <> 0 THEN
2776: oe_debug_pub.add('process_sourcing_chain: ' || ' p_top_location is '|| to_char(p_top_location) , 5 );
2777: oe_debug_pub.add('process_sourcing_chain: ' || ' p_location is '|| to_char(p_location) , 5 );
2778: END IF;
2779:
2780: IF PG_DEBUG <> 0 THEN
2781: oe_debug_pub.add('process_sourcing_chain: ' || ' processing sourcing chain ' || p_location || ' bom it ' || local_cto_shipset(p_location).bom_item_type || ' line id ' || local_cto_shipset(p_location).line_id , 5 );
2777: oe_debug_pub.add('process_sourcing_chain: ' || ' p_location is '|| to_char(p_location) , 5 );
2778: END IF;
2779:
2780: IF PG_DEBUG <> 0 THEN
2781: oe_debug_pub.add('process_sourcing_chain: ' || ' processing sourcing chain ' || p_location || ' bom it ' || local_cto_shipset(p_location).bom_item_type || ' line id ' || local_cto_shipset(p_location).line_id , 5 );
2782: END IF;
2783:
2784: l_stmt_num := 10 ;
2785: IF( NOT p_isPhantom AND NOT p_isProcured )
2808: , local_cto_shipset(p_location).ship_set_name
2809: ) ;
2810:
2811: IF PG_DEBUG <> 0 THEN
2812: oe_debug_pub.add('process_sourcing_chain: ' || ' after get model source status ' || x_return_status , 4 );
2813: END IF;
2814:
2815: -- The expected error code from get_model_sourcing_org
2816: -- needs to be copied into g_expected_error_code for further processing
2826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2827: END IF;
2828: ELSE /* assignment set is null */
2829: IF PG_DEBUG <> 0 THEN
2830: oe_debug_pub.add('process_sourcing_chain: ' || '***$$$ Going to check Planning type attribute as assignment set is null ' , 3 );
2831: END IF;
2832:
2833: --- When there is no sourcing rule defined we need to look at the
2834: --- Planning_make_buy_code to determine the source_type
2933: END LOOP ;
2934: EXCEPTION
2935: WHEN FND_API.G_EXC_ERROR THEN
2936: IF PG_DEBUG <> 0 THEN
2937: oe_debug_pub.add('process_sourcing_chain: ' || 'PROCESS_SOURCING_CHAIN::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2938: END IF;
2939: x_return_status := FND_API.G_RET_STS_ERROR;
2940: FND_MSG_PUB.Count_And_Get(
2941: p_count => x_msg_count
2942: , p_data => x_msg_data
2943: );
2944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2945: IF PG_DEBUG <> 0 THEN
2946: oe_debug_pub.add('process_sourcing_chain: ' || 'PROCESS_SOURCING_CHAIN::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2947: END IF;
2948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2949: FND_MSG_PUB.Count_And_Get(
2950: p_count => x_msg_count
2951: , p_data => x_msg_data
2952: );
2953: WHEN OTHERS THEN
2954: IF PG_DEBUG <> 0 THEN
2955: oe_debug_pub.add('process_sourcing_chain: ' || 'PROCESS_SOURCING_CHAIN::others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
2956: END IF;
2957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2958: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2959: FND_MSG_PUB.Add_Exc_Msg(
3074: IF( v_circular_sourcing )
3075: THEN
3076: g_expected_error_code := 66 ;
3077: IF PG_DEBUG <> 0 THEN
3078: oe_debug_pub.add('get_model_sourcing_org: ' || '***Circular sourcing error ' , 1 );
3079: END IF;
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF ;
3082:
3081: END IF ;
3082:
3083: p_sourcing_org := v_organization_id ;
3084: IF PG_DEBUG <> 0 THEN
3085: oe_debug_pub.add('get_model_sourcing_org: ' || 'Sourcing org is ' || p_sourcing_org || ' lead time ' || to_char( p_transit_lead_time ) , 2 );
3086: END IF;
3087:
3088: EXCEPTION
3089: WHEN FND_API.G_EXC_ERROR THEN
3087:
3088: EXCEPTION
3089: WHEN FND_API.G_EXC_ERROR THEN
3090: IF PG_DEBUG <> 0 THEN
3091: oe_debug_pub.add('get_model_sourcing_org: ' || 'GET_MODEL_SOURCING_ORG::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
3092: END IF;
3093: x_return_status := FND_API.G_RET_STS_ERROR;
3094:
3095: FND_MSG_PUB.Count_And_Get(
3098: );
3099:
3100: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3101: IF PG_DEBUG <> 0 THEN
3102: oe_debug_pub.add('get_model_sourcing_org: ' || 'GET_MODEL_SOURCING_ORG::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
3103: END IF;
3104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3105:
3106: FND_MSG_PUB.Count_And_Get(
3109: );
3110:
3111: WHEN OTHERS THEN
3112: IF PG_DEBUG <> 0 THEN
3113: oe_debug_pub.add('get_model_sourcing_org: ' || 'GET_MODEL_SOURCING_ORG::others::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
3114: END IF;
3115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3116:
3117: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3197: IF( v_source_type = 1 ) THEN
3198: p_sourcing_rule_exists := FND_API.G_TRUE ;
3199: ELSIF v_source_type = 3 THEN
3200: IF PG_DEBUG <> 0 THEN
3201: oe_debug_pub.add('query_sourcing_org: ' || 'Buy Sourcing rule exists...',4);
3202: END IF;
3203: END IF ;
3204:
3205: IF PG_DEBUG <> 0 THEN
3202: END IF;
3203: END IF ;
3204:
3205: IF PG_DEBUG <> 0 THEN
3206: oe_debug_pub.add('query_sourcing_org: ' || '****$$$$ IID ' || p_inventory_item_id || ' in org ' ||
3207: p_organization_id || ' is sourced from org ' || p_sourcing_org ||
3208: ' type ' || v_source_type || ' $$$$****' , 5 );
3209: END IF;
3210:
3210:
3211: EXCEPTION
3212: WHEN NO_DATA_FOUND THEN
3213: IF PG_DEBUG <> 0 THEN
3214: oe_debug_pub.add('query_sourcing_org: ' || ' came into no data when finding source ' || to_char(l_stmt_num ) , 1 );
3215: END IF;
3216: /* removed no sourcing flag as cascading of sourcing rules will
3217: ** be continued till no more sourcing rules can be cascaded
3218: ** add check for buy attribute for model
3234: END IF;
3235:
3236: WHEN TOO_MANY_ROWS THEN
3237: IF PG_DEBUG <> 0 THEN
3238: oe_debug_pub.add('query_sourcing_org: ' || ' came into too_many when finding source ' || to_char(l_stmt_num) , 1 );
3239: END IF;
3240: select count(*)
3241: into v_sourcing_rule_count
3242: from mrp_sources_v msv
3255: END IF ;
3256:
3257: WHEN OTHERS THEN
3258: IF PG_DEBUG <> 0 THEN
3259: oe_debug_pub.add('query_sourcing_org: ' || 'QUERY_SOURCING_ORG::others:: ' ||
3260: to_char(l_stmt_num) || '::' ||
3261: ' came into others when finding source ' , 1 );
3262: oe_debug_pub.add('query_sourcing_org: ' || ' SQLCODE ' || SQLCODE , 1 );
3263: oe_debug_pub.add('query_sourcing_org: ' || ' SQLERRM ' || SQLERRM , 1 );
3258: IF PG_DEBUG <> 0 THEN
3259: oe_debug_pub.add('query_sourcing_org: ' || 'QUERY_SOURCING_ORG::others:: ' ||
3260: to_char(l_stmt_num) || '::' ||
3261: ' came into others when finding source ' , 1 );
3262: oe_debug_pub.add('query_sourcing_org: ' || ' SQLCODE ' || SQLCODE , 1 );
3263: oe_debug_pub.add('query_sourcing_org: ' || ' SQLERRM ' || SQLERRM , 1 );
3264: oe_debug_pub.add('query_sourcing_org: ' || ' came into others when finding source ' , 1 );
3265: END IF;
3266:
3259: oe_debug_pub.add('query_sourcing_org: ' || 'QUERY_SOURCING_ORG::others:: ' ||
3260: to_char(l_stmt_num) || '::' ||
3261: ' came into others when finding source ' , 1 );
3262: oe_debug_pub.add('query_sourcing_org: ' || ' SQLCODE ' || SQLCODE , 1 );
3263: oe_debug_pub.add('query_sourcing_org: ' || ' SQLERRM ' || SQLERRM , 1 );
3264: oe_debug_pub.add('query_sourcing_org: ' || ' came into others when finding source ' , 1 );
3265: END IF;
3266:
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: to_char(l_stmt_num) || '::' ||
3261: ' came into others when finding source ' , 1 );
3262: oe_debug_pub.add('query_sourcing_org: ' || ' SQLCODE ' || SQLCODE , 1 );
3263: oe_debug_pub.add('query_sourcing_org: ' || ' SQLERRM ' || SQLERRM , 1 );
3264: oe_debug_pub.add('query_sourcing_org: ' || ' came into others when finding source ' , 1 );
3265: END IF;
3266:
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3268: END ;
3305: */
3306: WHILE( p_t_bcol(v_src_point).plan_level is null )
3307: LOOP
3308: IF PG_DEBUG <> 0 THEN
3309: oe_debug_pub.add('populate_plan_level: ' || ' v_src_point ' || v_src_point , 5 );
3310: END IF;
3311:
3312: v_raw_line_id(v_raw_line_id.count + 1 ) := v_src_point ;
3313:
3347:
3348: EXCEPTION
3349: WHEN others THEN
3350: IF PG_DEBUG <> 0 THEN
3351: oe_debug_pub.add('populate_plan_level: ' || ' error ' || SQLCODE , 1 );
3352:
3353: oe_debug_pub.add('populate_plan_level: ' || ' error ' || SQLERRM , 1 );
3354: END IF;
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3349: WHEN others THEN
3350: IF PG_DEBUG <> 0 THEN
3351: oe_debug_pub.add('populate_plan_level: ' || ' error ' || SQLCODE , 1 );
3352:
3353: oe_debug_pub.add('populate_plan_level: ' || ' error ' || SQLERRM , 1 );
3354: END IF;
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3356: END populate_plan_level ;
3357:
3392:
3393: IF( p_t_bcol(v_src_point).ato_line_id is not null ) THEN
3394: /* please note, here it stores the index which is the same as line_id due to sparse array*/
3395: IF PG_DEBUG <> 0 THEN
3396: oe_debug_pub.add('populate_parent_ato: ' || ' processing ' || to_char( v_src_point ) , 4 );
3397: END IF;
3398: /*
3399: ** resolve parent ato line id for item.
3400: */
3413: v_prev_src_point := v_src_point ;
3414: v_src_point := p_t_bcol(v_src_point).link_to_line_id ;
3415:
3416: IF PG_DEBUG <> 0 THEN
3417: oe_debug_pub.add('populate_parent_ato: ' || 'prev point ' || to_char( v_prev_src_point ) || ' bcol ' || to_char( p_bcol_line_id ) , 5 );
3418: END IF;
3419:
3420: IF( v_src_point is null ) THEN
3421: v_src_point := v_prev_src_point ;
3469: is
3470: v_model_line_id number ;
3471: BEGIN
3472: IF PG_DEBUG <> 0 THEN
3473: oe_debug_pub.add('propagate_ato_line_id: ' || 'Entered propagate_ato_line_id p_location ' || p_location , 2 );
3474: END IF;
3475:
3476: IF( p_location is null ) THEN
3477: return ;
3544:
3545: l_stmt_num := 1 ;
3546:
3547: IF PG_DEBUG <> 0 THEN
3548: oe_debug_pub.add('reconstruct_shipset: ' || 'Before reconstruct shipset ' , 1 );
3549: print_shipset( p_shipset ) ;
3550: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing before reconstruct shipset ' , 4 );
3551: oe_debug_pub.add('reconstruct_shipset: ' || 'Printing p_success_flag_tbl sent by ATP', 4);
3552: END IF;
3546:
3547: IF PG_DEBUG <> 0 THEN
3548: oe_debug_pub.add('reconstruct_shipset: ' || 'Before reconstruct shipset ' , 1 );
3549: print_shipset( p_shipset ) ;
3550: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing before reconstruct shipset ' , 4 );
3551: oe_debug_pub.add('reconstruct_shipset: ' || 'Printing p_success_flag_tbl sent by ATP', 4);
3552: END IF;
3553:
3554: /* removed stmt FOR j IN g_shipset_status_tbl.first..g_shipset_status_tbl.last */
3547: IF PG_DEBUG <> 0 THEN
3548: oe_debug_pub.add('reconstruct_shipset: ' || 'Before reconstruct shipset ' , 1 );
3549: print_shipset( p_shipset ) ;
3550: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing before reconstruct shipset ' , 4 );
3551: oe_debug_pub.add('reconstruct_shipset: ' || 'Printing p_success_flag_tbl sent by ATP', 4);
3552: END IF;
3553:
3554: /* removed stmt FOR j IN g_shipset_status_tbl.first..g_shipset_status_tbl.last */
3555:
3555:
3556: FOR j IN p_success_flag_tbl.ship_set_name.first..p_success_flag_tbl.ship_set_name.last
3557: LOOP
3558: IF PG_DEBUG <> 0 THEN
3559: oe_debug_pub.add('reconstruct_shipset: ' || 'Contents of shipset status table::', 3);
3560: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.ship_set_name(j), 3);
3561: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.status(j), 3);
3562: END IF;
3563: END LOOP;
3556: FOR j IN p_success_flag_tbl.ship_set_name.first..p_success_flag_tbl.ship_set_name.last
3557: LOOP
3558: IF PG_DEBUG <> 0 THEN
3559: oe_debug_pub.add('reconstruct_shipset: ' || 'Contents of shipset status table::', 3);
3560: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.ship_set_name(j), 3);
3561: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.status(j), 3);
3562: END IF;
3563: END LOOP;
3564: IF PG_DEBUG <> 0 THEN
3557: LOOP
3558: IF PG_DEBUG <> 0 THEN
3559: oe_debug_pub.add('reconstruct_shipset: ' || 'Contents of shipset status table::', 3);
3560: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.ship_set_name(j), 3);
3561: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.status(j), 3);
3562: END IF;
3563: END LOOP;
3564: IF PG_DEBUG <> 0 THEN
3565: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing p_success_flag_tbl sent by ATP', 3);
3561: oe_debug_pub.add('reconstruct_shipset: ' || p_success_flag_tbl.status(j), 3);
3562: END IF;
3563: END LOOP;
3564: IF PG_DEBUG <> 0 THEN
3565: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing p_success_flag_tbl sent by ATP', 3);
3566: END IF;
3567:
3568:
3569:
3569:
3570: FOR j IN g_shipset_status_tbl.first..g_shipset_status_tbl.last
3571: LOOP
3572: IF PG_DEBUG <> 0 THEN
3573: oe_debug_pub.add('reconstruct_shipset: ' || 'Contents of g_shipset_status table::', 3);
3574: oe_debug_pub.add('reconstruct_shipset: ' || g_shipset_status_tbl(j).ship_set_name, 3);
3575: END IF;
3576: END LOOP;
3577: IF PG_DEBUG <> 0 THEN
3570: FOR j IN g_shipset_status_tbl.first..g_shipset_status_tbl.last
3571: LOOP
3572: IF PG_DEBUG <> 0 THEN
3573: oe_debug_pub.add('reconstruct_shipset: ' || 'Contents of g_shipset_status table::', 3);
3574: oe_debug_pub.add('reconstruct_shipset: ' || g_shipset_status_tbl(j).ship_set_name, 3);
3575: END IF;
3576: END LOOP;
3577: IF PG_DEBUG <> 0 THEN
3578: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing g_shipset_status_tbl sent by ATP', 3);
3574: oe_debug_pub.add('reconstruct_shipset: ' || g_shipset_status_tbl(j).ship_set_name, 3);
3575: END IF;
3576: END LOOP;
3577: IF PG_DEBUG <> 0 THEN
3578: oe_debug_pub.add('reconstruct_shipset: ' || 'Done printing g_shipset_status_tbl sent by ATP', 3);
3579: END IF;
3580:
3581:
3582:
3591: l_stmt_num := 20 ;
3592: FOR j IN g_shipset_status_tbl.first..g_shipset_status_tbl.last
3593: LOOP
3594: IF PG_DEBUG <> 0 THEN
3595: oe_debug_pub.add('reconstruct_shipset: ' || 'Processing shipset ' || g_shipset_status_tbl(j).ship_set_name , 2 );
3596: END IF;
3597:
3598: l_stmt_num := 30 ;
3599: FOR m IN p_success_flag_tbl.ship_set_name.first..p_success_flag_tbl.ship_set_name.last
3618: l_stmt_num := 70 ;
3619: if( p_shipset.ship_set_name(i) is null ) then
3620: p_shipset.ship_set_name(i) := p_shipset.identifier(i) ;
3621:
3622: oe_debug_pub.add( ' initialized' || p_shipset.identifier(i), 5 ) ;
3623: end if ;
3624:
3625: oe_debug_pub.add( 'reconstruct_shipset: comparing ' || p_shipset.ship_set_name(i) || ' -> '
3626: || g_shipset_status_tbl(j).ship_set_name , 5 ) ;
3621:
3622: oe_debug_pub.add( ' initialized' || p_shipset.identifier(i), 5 ) ;
3623: end if ;
3624:
3625: oe_debug_pub.add( 'reconstruct_shipset: comparing ' || p_shipset.ship_set_name(i) || ' -> '
3626: || g_shipset_status_tbl(j).ship_set_name , 5 ) ;
3627: IF( p_shipset.ship_set_name(i) = g_shipset_status_tbl(j).ship_set_name ) THEN
3628: MRP_ATP_PVT.assign_atp_input_rec(
3629: p_shipset,
3630: i,
3631: v_reduced_shipset,
3632: x_return_status );
3633:
3634: oe_debug_pub.add( ' copied ' || x_return_status , 5 ) ;
3635: END IF ;
3636: END LOOP ;
3637:
3638: l_stmt_num := 80 ;
3638: l_stmt_num := 80 ;
3639:
3640: g_shipset := v_shipset_init ;
3641: IF PG_DEBUG <> 0 THEN
3642: oe_debug_pub.add('reconstruct_shipset: ' || 'Copying final shipset, sount is:: ' || g_final_shipset.ship_set_name.count ,5 );
3643: oe_debug_pub.add('reconstruct_shipset: ' || 'v_reduced_shipset count is:: ' || v_reduced_shipset.ship_set_name.count ,5 );
3644: END IF;
3645:
3646: FOR i IN g_final_shipset.ship_set_name.first..g_final_shipset.ship_set_name.last
3639:
3640: g_shipset := v_shipset_init ;
3641: IF PG_DEBUG <> 0 THEN
3642: oe_debug_pub.add('reconstruct_shipset: ' || 'Copying final shipset, sount is:: ' || g_final_shipset.ship_set_name.count ,5 );
3643: oe_debug_pub.add('reconstruct_shipset: ' || 'v_reduced_shipset count is:: ' || v_reduced_shipset.ship_set_name.count ,5 );
3644: END IF;
3645:
3646: FOR i IN g_final_shipset.ship_set_name.first..g_final_shipset.ship_set_name.last
3647: LOOP
3666: IF( g_final_cto_shipset(i).ship_set_name = g_shipset_status_tbl(j).ship_set_name ) THEN
3667: g_cto_shipset(g_cto_shipset.count ) := g_final_cto_shipset(i) ;
3668: g_cto_sparse_shipset(g_final_cto_shipset(i).line_id ) := g_final_cto_shipset(i) ;
3669: IF PG_DEBUG <> 0 THEN
3670: oe_debug_pub.add('reconstruct_shipset: ' || 'Added line_id' || g_final_cto_shipset(i).line_id || ' to g_cto_shipset and g_final_cto_shipset', 1 );
3671: END IF;
3672: END IF ;
3673: END LOOP ;
3674:
3672: END IF ;
3673: END LOOP ;
3674:
3675: IF PG_DEBUG <> 0 THEN
3676: oe_debug_pub.add('reconstruct_shipset: ' || ' CALLING RESURRECT shipset ' , 1 );
3677: END IF;
3678:
3679: l_stmt_num := 120 ;
3680: resurrect_shipset(
3702: ** copy the enhanced shipset data back to final shipset
3703: */
3704: l_stmt_num := 130 ;
3705: IF PG_DEBUG <> 0 THEN
3706: oe_debug_pub.add('reconstruct_shipset: ' || 'Redecued shipset name count = '||v_reduced_shipset.ship_set_name.count,2);
3707: END IF;
3708:
3709: FOR i IN v_reduced_shipset.ship_set_name.first..v_reduced_shipset.ship_set_name.last
3710: LOOP
3713: k := k+1;
3714: v_shipset_loc := k + g_shipset_status_tbl(j).start_location - 1;
3715:
3716: IF PG_DEBUG <> 0 THEN
3717: oe_debug_pub.add('reconstruct_shipset: ' || 'start =' || g_shipset_status_tbl(j).start_location || ' loc =' || v_shipset_loc || ' k = ' || k , 5 );
3718: END IF;
3719:
3720: g_final_shipset.Available_Quantity(v_shipset_loc) := v_reduced_shipset.available_quantity(k) ;
3721: g_final_shipset.Requested_Date_Quantity(v_shipset_loc) := v_reduced_shipset.requested_date_quantity(k) ;
3737:
3738: END LOOP ;
3739:
3740: IF PG_DEBUG <> 0 THEN
3741: oe_debug_pub.add('reconstruct_shipset: ' || 'Done reconstruct shipset ' ,1 );
3742: END IF;
3743:
3744: print_shipset( g_final_shipset ) ;
3745:
3774: END LOOP ;
3775:
3776:
3777: IF PG_DEBUG <> 0 THEN
3778: oe_debug_pub.add('reconstruct_shipset: ' || 'Going to null out shipset names ' ,3 );
3779: END IF;
3780: /* null out the auto generated shipset names */
3781:
3782: FOR v_auto_shipset IN g_final_shipset.ship_set_name.first..g_final_shipset.ship_set_name.last
3805: --remove_elements_from_atp_rec( v_reduced_shipset ) ;
3806: v_reduced_shipset := v_null_atp_rec;
3807:
3808: IF PG_DEBUG <> 0 THEN
3809: oe_debug_pub.add('reconstruct_shipset: ' || ' Done null shipset copy ' ,4 );
3810: END IF;
3811:
3812: print_shipset( p_shipset ) ;
3813:
3813:
3814: EXCEPTION
3815: WHEN others THEN
3816: IF PG_DEBUG <> 0 THEN
3817: oe_debug_pub.add('reconstruct_shipset: ' || ' error encountered in reconstruct_shipset at line ' || to_char(l_stmt_num ) , 1 );
3818: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLCODE , 1 );
3819: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLERRM , 1 );
3820: END IF;
3821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3814: EXCEPTION
3815: WHEN others THEN
3816: IF PG_DEBUG <> 0 THEN
3817: oe_debug_pub.add('reconstruct_shipset: ' || ' error encountered in reconstruct_shipset at line ' || to_char(l_stmt_num ) , 1 );
3818: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLCODE , 1 );
3819: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLERRM , 1 );
3820: END IF;
3821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3822:
3815: WHEN others THEN
3816: IF PG_DEBUG <> 0 THEN
3817: oe_debug_pub.add('reconstruct_shipset: ' || ' error encountered in reconstruct_shipset at line ' || to_char(l_stmt_num ) , 1 );
3818: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLCODE , 1 );
3819: oe_debug_pub.add('reconstruct_shipset: ' || ' error ' || SQLERRM , 1 );
3820: END IF;
3821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3822:
3823: END reconstruct_shipset ;
3857: BEGIN
3858:
3859: l_stmt_num := 1 ;
3860: IF PG_DEBUG <> 0 THEN
3861: oe_debug_pub.add('resurrect_shipset: ' || ' printing reduced shipset before resurrection ' , 2 );
3862: print_shipset( p_shipset ) ;
3863: END IF;
3864: v_action := p_shipset.action(p_shipset.action.first) ;
3865:
3864: v_action := p_shipset.action(p_shipset.action.first) ;
3865:
3866: IF( p_success_flag ) THEN
3867: IF PG_DEBUG <> 0 THEN
3868: oe_debug_pub.add('resurrect_shipset: ' || ' p_success_flag is true ' , 2 );
3869: END IF;
3870: ELSE
3871: IF PG_DEBUG <> 0 THEN
3872: oe_debug_pub.add('resurrect_shipset: ' || ' p_success_flag is false ' , 2 );
3868: oe_debug_pub.add('resurrect_shipset: ' || ' p_success_flag is true ' , 2 );
3869: END IF;
3870: ELSE
3871: IF PG_DEBUG <> 0 THEN
3872: oe_debug_pub.add('resurrect_shipset: ' || ' p_success_flag is false ' , 2 );
3873: END IF;
3874: END IF ;
3875:
3876:
4020: /* this code will be executed for standard items part of shipset */
4021: /* Changes to support product substitution */
4022:
4023: IF PG_DEBUG <> 0 THEN
4024: oe_debug_pub.add('resurrect_shipset: ' || ' shipset line does not exist ' || p_shipset.identifier(i) , 5);
4025: END IF;
4026:
4027: l_stmt_num := 130 ;
4028: FOR j IN g_shipset.identifier.first..g_shipset.identifier.last
4060:
4061: l_stmt_num := 170 ;
4062:
4063: IF PG_DEBUG <> 0 THEN
4064: oe_debug_pub.add('resurrect_shipset: ' || 'After resurrect shipset ' , 1 );
4065: END IF;
4066:
4067: l_stmt_num := 180 ;
4068: print_shipset( p_shipset ) ;
4069:
4070: EXCEPTION
4071: WHEN others THEN
4072: IF PG_DEBUG <> 0 THEN
4073: oe_debug_pub.add('resurrect_shipset: ' || ' error encountered in resurrect_shipset at line ' || to_char(l_stmt_num ) , 1 );
4074: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLCODE , 1 );
4075: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLERRM , 1 );
4076: END IF;
4077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4070: EXCEPTION
4071: WHEN others THEN
4072: IF PG_DEBUG <> 0 THEN
4073: oe_debug_pub.add('resurrect_shipset: ' || ' error encountered in resurrect_shipset at line ' || to_char(l_stmt_num ) , 1 );
4074: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLCODE , 1 );
4075: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLERRM , 1 );
4076: END IF;
4077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4078: END resurrect_shipset;
4071: WHEN others THEN
4072: IF PG_DEBUG <> 0 THEN
4073: oe_debug_pub.add('resurrect_shipset: ' || ' error encountered in resurrect_shipset at line ' || to_char(l_stmt_num ) , 1 );
4074: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLCODE , 1 );
4075: oe_debug_pub.add('resurrect_shipset: ' || ' error ' || SQLERRM , 1 );
4076: END IF;
4077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4078: END resurrect_shipset;
4079:
4089: l_stmt_num number ;
4090: BEGIN
4091:
4092: IF PG_DEBUG <> 0 THEN
4093: oe_debug_pub.add('populate_configuration_status: ' || 'Populating Configuration Status ..',4);
4094: END IF;
4095: l_stmt_num := 1 ;
4096:
4097: IF( g_cto_shipset.count > 0 ) THEN
4117:
4118: l_stmt_num := 40 ;
4119: IF( v_config_exists ) THEN
4120: IF PG_DEBUG <> 0 THEN
4121: oe_debug_pub.add('populate_configuration_status: ' || 'Config item exists for this ato line id :: '||to_char(g_cto_shipset(i).ato_line_id),4);
4122: END IF;
4123: g_cto_shipset(i).configuration_exists := 'Y' ;
4124: t_top_model_tab(g_cto_shipset(i).ato_line_id) := 1 ;
4125: ELSE
4123: g_cto_shipset(i).configuration_exists := 'Y' ;
4124: t_top_model_tab(g_cto_shipset(i).ato_line_id) := 1 ;
4125: ELSE
4126: IF PG_DEBUG <> 0 THEN
4127: oe_debug_pub.add('populate_configuration_status: ' || 'Config item DOES NOT exist for this ato line id :: '||to_char(g_cto_shipset(i).ato_line_id),4);
4128: END IF;
4129: g_cto_shipset(i).configuration_exists := 'N' ;
4130: t_top_model_tab(g_cto_shipset(i).ato_line_id) := 0 ;
4131: END IF ;
4138:
4139: EXCEPTION
4140: WHEN others THEN
4141: IF PG_DEBUG <> 0 THEN
4142: oe_debug_pub.add('populate_configuration_status: ' || ' error encountered in populate_configuration_status at line ' || to_char(l_stmt_num ) , 1 );
4143: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLCODE , 1 );
4144: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLERRM , 1 );
4145: END IF;
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4139: EXCEPTION
4140: WHEN others THEN
4141: IF PG_DEBUG <> 0 THEN
4142: oe_debug_pub.add('populate_configuration_status: ' || ' error encountered in populate_configuration_status at line ' || to_char(l_stmt_num ) , 1 );
4143: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLCODE , 1 );
4144: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLERRM , 1 );
4145: END IF;
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4147: END populate_configuration_status ;
4140: WHEN others THEN
4141: IF PG_DEBUG <> 0 THEN
4142: oe_debug_pub.add('populate_configuration_status: ' || ' error encountered in populate_configuration_status at line ' || to_char(l_stmt_num ) , 1 );
4143: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLCODE , 1 );
4144: oe_debug_pub.add('populate_configuration_status: ' || ' error ' || SQLERRM , 1 );
4145: END IF;
4146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4147: END populate_configuration_status ;
4148:
4160:
4161: BEGIN
4162:
4163: IF PG_DEBUG <> 0 THEN
4164: oe_debug_pub.add('populate_visible_demand: ' || 'Populating Visible demand Flag value..',4);
4165: END IF;
4166: l_stmt_num := 1 ;
4167:
4168: IF( g_cto_shipset.count > 0 ) THEN
4177: IF( g_cto_shipset(i).configuration_exists = 'N' ) THEN
4178:
4179: l_stmt_num := 20 ;
4180: IF PG_DEBUG <> 0 THEN
4181: oe_debug_pub.add('populate_visible_demand: ' || 'Location ='||to_char(g_cto_shipset(i).location),5);
4182: END IF;
4183:
4184: IF ( g_cto_shipset(i).buy_model = 'Y' ) THEN
4185:
4185:
4186: l_stmt_num := 30 ;
4187: p_shipset.attribute_05(g_cto_shipset(i).location) := 'N' ;
4188: IF PG_DEBUG <> 0 THEN
4189: oe_debug_pub.add('populate_visible_demand: ' || 'Visible demand flag set to Y for line_id = '||to_char(g_cto_shipset(i).line_id),4);
4190: END IF;
4191:
4192: ELSE
4193: l_stmt_num := 40 ;
4211:
4212: EXCEPTION
4213: WHEN others THEN
4214: IF PG_DEBUG <> 0 THEN
4215: oe_debug_pub.add('populate_visible_demand: ' || ' error encountered in Populate_visible_demand at line ' || to_char(l_stmt_num ) , 1 );
4216: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLCODE , 1 );
4217: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLERRM , 1 );
4218: END IF;
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4212: EXCEPTION
4213: WHEN others THEN
4214: IF PG_DEBUG <> 0 THEN
4215: oe_debug_pub.add('populate_visible_demand: ' || ' error encountered in Populate_visible_demand at line ' || to_char(l_stmt_num ) , 1 );
4216: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLCODE , 1 );
4217: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLERRM , 1 );
4218: END IF;
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4220: END populate_visible_demand;
4213: WHEN others THEN
4214: IF PG_DEBUG <> 0 THEN
4215: oe_debug_pub.add('populate_visible_demand: ' || ' error encountered in Populate_visible_demand at line ' || to_char(l_stmt_num ) , 1 );
4216: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLCODE , 1 );
4217: oe_debug_pub.add('populate_visible_demand: ' || ' error ' || SQLERRM , 1 );
4218: END IF;
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4220: END populate_visible_demand;
4221:
4311: LOOP
4312:
4313: IF(p_ship_set_name = g_auto_generated_shipset(i).set_name ) THEN
4314: IF PG_DEBUG <> 0 THEN
4315: oe_debug_pub.add('isAutoGeneratedShipset: ' || 'Shipset '||p_ship_set_name|| 'is an auto-generated shipset ' ,3 );
4316: END IF;
4317: x_auto_gen := TRUE;
4318: x_process_demand := g_auto_generated_shipset(i).process_demand;
4319: exit;
4321:
4322: END LOOP ;
4323:
4324: IF PG_DEBUG <> 0 THEN
4325: oe_debug_pub.add('isAutoGeneratedShipset: ' || 'Shipset '||p_ship_set_name|| 'is NOT an auto-generated shipset ' ,3 );
4326: END IF;
4327: END IF ;
4328:
4329: END isAutoGeneratedShipset;
4380:
4381: IF( g_cto_shipset(i).line_id = p_line_id ) THEN
4382:
4383: IF PG_DEBUG <> 0 THEN
4384: oe_debug_pub.add('register_error: ' || ' line id ' || p_line_id || ' found in g_cto_shipset ' , 5 );
4385: END IF;
4386:
4387: v_ato_line_id := g_cto_shipset(i).ato_line_id ;
4388: v_pto_line_id := g_cto_shipset(i).top_model_line_id ;
4395: IF( g_cto_shipset(j).line_id = v_ato_line_id ) THEN
4396: g_cto_shipset(j).error_code := p_error_code ;
4397:
4398: IF PG_DEBUG <> 0 THEN
4399: oe_debug_pub.add('register_error: ' || 'Registered ato error ' || to_char( p_error_code )|| 'for line_id' || g_cto_shipset(j).line_id , 2 );
4400: END IF;
4401: ELSIF( g_cto_shipset(j).ato_line_id = v_ato_line_id ) THEN
4402:
4403: /* Changes made for scheduling errors due to bug 2428252 */
4405: IF( nvl(p_action , 100) <> 100 and p_status = false ) THEN
4406: g_cto_shipset(j).error_code := v_sched_group_error_code ;
4407:
4408: IF PG_DEBUG <> 0 THEN
4409: oe_debug_pub.add('register_error: ' || 'Registered group error ' || v_sched_group_error_code , 2 );
4410: END IF;
4411: ELSE
4412: g_cto_shipset(j).error_code := v_atp_group_error_code ;
4413:
4411: ELSE
4412: g_cto_shipset(j).error_code := v_atp_group_error_code ;
4413:
4414: IF PG_DEBUG <> 0 THEN
4415: oe_debug_pub.add('register_error: ' || 'Registered group error ' || v_atp_group_error_code , 2 );
4416: END IF;
4417:
4418: END IF;
4419: END IF;
4427: END LOOP ;
4428: ELSE
4429:
4430: IF PG_DEBUG <> 0 THEN
4431: oe_debug_pub.add('register_error: ' || 'Register_error did not record anything ' , 2 );
4432: END IF;
4433: END IF ;
4434:
4435: END register_error ;
4453:
4454: IF( g_cto_shipset(i).error_code is not null ) THEN
4455:
4456: IF PG_DEBUG <> 0 THEN
4457: oe_debug_pub.add('populate_error: ' || 'Populating error code ' || g_cto_shipset(i).error_code || ' at ' || i || ' for line id ' || g_cto_shipset(i).line_id || ' at location ' || g_cto_shipset(i).location , 2 );
4458: END IF;
4459:
4460: p_shipset.error_code(g_cto_shipset(i).location) := g_cto_shipset(i).error_code ;
4461: END IF;
4462:
4463: END LOOP ;
4464: ELSE
4465: IF PG_DEBUG <> 0 THEN
4466: oe_debug_pub.add('populate_error: ' || 'No errors to populate as g_cto_shipset count is ' || g_cto_shipset.count, 1 );
4467: END IF;
4468:
4469: END IF ;
4470:
4481: FOR i IN p_shipset.identifier.first..p_shipset.identifier.last
4482: LOOP
4483: IF( p_shipset.identifier.exists(i) ) THEN
4484: IF PG_DEBUG <> 0 THEN
4485: oe_debug_pub.add('save_shipset: ' || ' +++++ident ' || p_shipset.identifier(i) || ' is part of reduced shipset ' , 2 );
4486: END IF;
4487: MRP_ATP_PVT.assign_atp_input_rec(p_shipset,
4488: i,
4489: g_final_shipset,
4497: is
4498: BEGIN
4499:
4500: IF( p_shipset_tracker.count > 0 ) THEN
4501: oe_debug_pub.add('show_contents: ' ||'Show contents of shipset:', 2);
4502: FOR i IN p_shipset_tracker.first..p_shipset_tracker.last
4503: LOOP
4504: IF( p_shipset_tracker.exists(i) ) THEN
4505: IF PG_DEBUG <> 0 THEN
4502: FOR i IN p_shipset_tracker.first..p_shipset_tracker.last
4503: LOOP
4504: IF( p_shipset_tracker.exists(i) ) THEN
4505: IF PG_DEBUG <> 0 THEN
4506: oe_debug_pub.add('**i:'||to_char(i), 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4503: LOOP
4504: IF( p_shipset_tracker.exists(i) ) THEN
4505: IF PG_DEBUG <> 0 THEN
4506: oe_debug_pub.add('**i:'||to_char(i), 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4504: IF( p_shipset_tracker.exists(i) ) THEN
4505: IF PG_DEBUG <> 0 THEN
4506: oe_debug_pub.add('**i:'||to_char(i), 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4505: IF PG_DEBUG <> 0 THEN
4506: oe_debug_pub.add('**i:'||to_char(i), 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4506: oe_debug_pub.add('**i:'||to_char(i), 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4507: oe_debug_pub.add('+++header_id:: ' || p_shipset_tracker(i).header_id, 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4508: oe_debug_pub.add('+++line_id:: ' || p_shipset_tracker(i).line_id , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4509: oe_debug_pub.add('+++plan_level:: ' || p_shipset_tracker(i).plan_level, 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4510: oe_debug_pub.add('+++ato_line_id:: ' || p_shipset_tracker(i).ato_line_id, 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4511: oe_debug_pub.add('+++parent_ato_line_id:: ' || p_shipset_tracker(i).parent_ato_line_id , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4512: oe_debug_pub.add('+++top_model_line_id:: ' || p_shipset_tracker(i).top_model_line_id , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4513: oe_debug_pub.add('+++link_to_line_id:: ' || p_shipset_tracker(i).link_to_line_id , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4514: oe_debug_pub.add('+++srcorg:: ' || p_shipset_tracker(i).sourcing_org , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4515: oe_debug_pub.add('+++wip_supply_type:: ' || p_shipset_tracker(i).wip_supply_type , 2);
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4523: END IF;
4516: oe_debug_pub.add('+++ordered_qty:: ' || p_shipset_tracker(i).ordered_quantity , 2);
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4523: END IF;
4524: IF( p_shipset_tracker(i).auto_generated ) THEN
4517: oe_debug_pub.add('+++ss_name:: ' || p_shipset_tracker(i).ship_set_name , 2);
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4523: END IF;
4524: IF( p_shipset_tracker(i).auto_generated ) THEN
4525: IF PG_DEBUG <> 0 THEN
4518: oe_debug_pub.add('+++Buy Flag:: '||p_shipset_tracker(i).buy_model , 2);
4519: oe_debug_pub.add('+++location:: '||p_shipset_tracker(i).location , 2);
4520: oe_debug_pub.add('+++atp_flag:: '||p_shipset_tracker(i).atp_flag , 2);
4521: oe_debug_pub.add('+++atp_components_flag:: '||p_shipset_tracker(i).atp_components_flag , 2);
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4523: END IF;
4524: IF( p_shipset_tracker(i).auto_generated ) THEN
4525: IF PG_DEBUG <> 0 THEN
4526: oe_debug_pub.add('+++auto_generated::TRUE' , 1 );
4522: oe_debug_pub.add('+++stored_atp_flag:: '||p_shipset_tracker(i).stored_atp_flag , 2);
4523: END IF;
4524: IF( p_shipset_tracker(i).auto_generated ) THEN
4525: IF PG_DEBUG <> 0 THEN
4526: oe_debug_pub.add('+++auto_generated::TRUE' , 1 );
4527: END IF;
4528: ELSE
4529: IF PG_DEBUG <> 0 THEN
4530: oe_debug_pub.add('+++auto_generated::FALSE' , 1 );
4526: oe_debug_pub.add('+++auto_generated::TRUE' , 1 );
4527: END IF;
4528: ELSE
4529: IF PG_DEBUG <> 0 THEN
4530: oe_debug_pub.add('+++auto_generated::FALSE' , 1 );
4531: END IF;
4532: END IF ;
4533: IF( p_shipset_tracker(i).process_demand ) THEN
4534: IF PG_DEBUG <> 0 THEN
4531: END IF;
4532: END IF ;
4533: IF( p_shipset_tracker(i).process_demand ) THEN
4534: IF PG_DEBUG <> 0 THEN
4535: oe_debug_pub.add('+++process_demand::TRUE' , 1 );
4536: END IF;
4537: ELSE
4538: IF PG_DEBUG <> 0 THEN
4539: oe_debug_pub.add('+++process_demand::FALSE' , 1 );
4535: oe_debug_pub.add('+++process_demand::TRUE' , 1 );
4536: END IF;
4537: ELSE
4538: IF PG_DEBUG <> 0 THEN
4539: oe_debug_pub.add('+++process_demand::FALSE' , 1 );
4540: END IF;
4541: END IF ;
4542: IF( p_shipset_tracker(i).sourced_components ) THEN
4543: IF PG_DEBUG <> 0 THEN
4540: END IF;
4541: END IF ;
4542: IF( p_shipset_tracker(i).sourced_components ) THEN
4543: IF PG_DEBUG <> 0 THEN
4544: oe_debug_pub.add('+++sourced_components::TRUE' , 1 );
4545: END IF;
4546: ELSE
4547: IF PG_DEBUG <> 0 THEN
4548: oe_debug_pub.add('+++sourced_components::FALSE' , 1 );
4544: oe_debug_pub.add('+++sourced_components::TRUE' , 1 );
4545: END IF;
4546: ELSE
4547: IF PG_DEBUG <> 0 THEN
4548: oe_debug_pub.add('+++sourced_components::FALSE' , 1 );
4549: END IF;
4550: END IF ;
4551: END IF ;
4552: END LOOP ;
4551: END IF ;
4552: END LOOP ;
4553: ELSE
4554: IF PG_DEBUG <> 0 THEN
4555: oe_debug_pub.add ('show_contents: ' || ' shipset tracker contents ' || p_shipset_tracker.count , 2 );
4556: END IF;
4557: END IF ;
4558:
4559: IF PG_DEBUG <> 0 THEN
4556: END IF;
4557: END IF ;
4558:
4559: IF PG_DEBUG <> 0 THEN
4560: oe_debug_pub.add('show_contents: ' || ' Show contents of g_shipset_status_tbl ', 2 );
4561: END IF;
4562: IF( g_shipset_status_tbl.count > 0 ) THEN
4563: for i in g_shipset_status_tbl.first..g_shipset_status_tbl.last
4564: LOOP
4562: IF( g_shipset_status_tbl.count > 0 ) THEN
4563: for i in g_shipset_status_tbl.first..g_shipset_status_tbl.last
4564: LOOP
4565: IF PG_DEBUG <> 0 THEN
4566: oe_debug_pub.add('+++i:: '||to_char(i) || 'ss_name ' || g_shipset_status_tbl(i).ship_set_name , 2 );
4567: END IF;
4568: END LOOP ;
4569: END IF ;
4570:
4582: END IF ;
4583: END LOOP ;
4584: ELSE
4585: IF PG_DEBUG <> 0 THEN
4586: oe_debug_pub.add('default_ship_set_name: ' || ' identIFier column of shipset is of count ' || p_shipset.identifier.count , 4);
4587: END IF;
4588:
4589: END IF ;
4590:
4597: is
4598: BEGIN
4599:
4600: IF PG_DEBUG <> 0 THEN
4601: oe_debug_pub.add('***print_shipset: ' || 'Going to print shipset:: ' , 2);
4602:
4603: END IF;
4604:
4605: IF( p_shipset.ship_set_name.count > 0 )
4609: LOOP
4610:
4611: IF( p_shipset.ship_set_name.exists(j) ) THEN
4612: IF PG_DEBUG <> 0 THEN
4613: oe_debug_pub.add('**Shipset Name ' || p_shipset.ship_set_name(j), 2 );
4614: END IF;
4615: END IF ;
4616:
4617: IF( p_shipset.inventory_item_id.exists(j) ) THEN
4615: END IF ;
4616:
4617: IF( p_shipset.inventory_item_id.exists(j) ) THEN
4618: IF PG_DEBUG <> 0 THEN
4619: oe_debug_pub.add('+++Inventory_Item_Id:: ' || p_shipset.inventory_item_id(j) , 2 );
4620: oe_debug_pub.add('+++Source_Organization_Id:: ' || p_shipset.source_organization_id(j) , 2 );
4621: oe_debug_pub.add('+++Identifier:: ' || p_shipset.identifier(j), 2 );
4622: END IF;
4623: IF( p_shipset.error_code.count > 0 ) THEN
4616:
4617: IF( p_shipset.inventory_item_id.exists(j) ) THEN
4618: IF PG_DEBUG <> 0 THEN
4619: oe_debug_pub.add('+++Inventory_Item_Id:: ' || p_shipset.inventory_item_id(j) , 2 );
4620: oe_debug_pub.add('+++Source_Organization_Id:: ' || p_shipset.source_organization_id(j) , 2 );
4621: oe_debug_pub.add('+++Identifier:: ' || p_shipset.identifier(j), 2 );
4622: END IF;
4623: IF( p_shipset.error_code.count > 0 ) THEN
4624: IF( p_shipset.error_code.exists(j) ) THEN
4617: IF( p_shipset.inventory_item_id.exists(j) ) THEN
4618: IF PG_DEBUG <> 0 THEN
4619: oe_debug_pub.add('+++Inventory_Item_Id:: ' || p_shipset.inventory_item_id(j) , 2 );
4620: oe_debug_pub.add('+++Source_Organization_Id:: ' || p_shipset.source_organization_id(j) , 2 );
4621: oe_debug_pub.add('+++Identifier:: ' || p_shipset.identifier(j), 2 );
4622: END IF;
4623: IF( p_shipset.error_code.count > 0 ) THEN
4624: IF( p_shipset.error_code.exists(j) ) THEN
4625: IF PG_DEBUG <> 0 THEN
4622: END IF;
4623: IF( p_shipset.error_code.count > 0 ) THEN
4624: IF( p_shipset.error_code.exists(j) ) THEN
4625: IF PG_DEBUG <> 0 THEN
4626: oe_debug_pub.add('+++Error Code:: ' || p_shipset.error_code(j) , 2 );
4627: END IF;
4628: END IF ;
4629: END IF ;
4630: IF( p_shipset.group_ship_date.count > 0 ) THEN
4629: END IF ;
4630: IF( p_shipset.group_ship_date.count > 0 ) THEN
4631: IF( p_shipset.group_ship_date.exists(j) ) THEN
4632: IF PG_DEBUG <> 0 THEN
4633: oe_debug_pub.add('+++Group Ship Date:: ' || p_shipset.group_ship_date(j) , 2 );
4634: END IF;
4635: END IF ;
4636: END IF ;
4637: IF( p_shipset.ship_date.count > 0 ) THEN
4636: END IF ;
4637: IF( p_shipset.ship_date.count > 0 ) THEN
4638: IF( p_shipset.ship_date.exists(j) ) THEN
4639: IF PG_DEBUG <> 0 THEN
4640: oe_debug_pub.add('+++Ship Date:: ' || p_shipset.ship_date(j) , 2 );
4641: END IF;
4642: END IF ;
4643: END IF ;
4644: IF( p_shipset.group_arrival_date.count > 0 ) THEN
4643: END IF ;
4644: IF( p_shipset.group_arrival_date.count > 0 ) THEN
4645: IF( p_shipset.group_arrival_date.exists(j) ) THEN
4646: IF PG_DEBUG <> 0 THEN
4647: oe_debug_pub.add('+++Group Arrival Date:: ' || p_shipset.group_arrival_date(j) , 2 );
4648: END IF;
4649: END IF ;
4650: END IF ;
4651: IF( p_shipset.attribute_05.count > 0 ) THEN
4650: END IF ;
4651: IF( p_shipset.attribute_05.count > 0 ) THEN
4652: IF( p_shipset.attribute_05.exists(j) ) THEN
4653: IF PG_DEBUG <> 0 THEN
4654: oe_debug_pub.add('+++Attribute_05:: ' || p_shipset.attribute_05(j) , 2 );
4655: END IF;
4656: END IF ;
4657: END IF ;
4658: IF( p_shipset.attribute_06.count > 0 ) THEN
4657: END IF ;
4658: IF( p_shipset.attribute_06.count > 0 ) THEN
4659: IF( p_shipset.attribute_06.exists(j) ) THEN
4660: IF PG_DEBUG <> 0 THEN
4661: oe_debug_pub.add('+++Attribute_06:: ' || p_shipset.attribute_06(j) , 2 );
4662: END IF;
4663: END IF ;
4664: END IF ;
4665: IF( p_shipset.ato_delete_flag.count > 0 ) then
4664: END IF ;
4665: IF( p_shipset.ato_delete_flag.count > 0 ) then
4666: if( p_shipset.ato_delete_flag.exists(j) ) then
4667: IF PG_DEBUG <> 0 THEN
4668: oe_debug_pub.add( '+++Ato delete flag:: ' || p_shipset.ato_delete_flag(j) , 2 ) ;
4669: END IF;
4670: END IF;
4671: END IF;
4672: IF( p_shipset.action.count > 0 ) then
4671: END IF;
4672: IF( p_shipset.action.count > 0 ) then
4673: if( p_shipset.action.exists(j) ) then
4674: IF PG_DEBUG <> 0 THEN
4675: oe_debug_pub.add( '+++Action:: ' || p_shipset.action(j) , 2 ) ;
4676: END IF;
4677: END IF;
4678: END IF;
4679: END IF ;
4680: END LOOP ;
4681:
4682: ELSE
4683: IF PG_DEBUG <> 0 THEN
4684: oe_debug_pub.add('print_shipset: ' || 'Ship set name table of shipset record is ' || p_shipset.ship_set_name.count , 2 );
4685: END IF;
4686: END IF ;
4687:
4688: IF PG_DEBUG <> 0 THEN
4685: END IF;
4686: END IF ;
4687:
4688: IF PG_DEBUG <> 0 THEN
4689: oe_debug_pub.add('***print_shipset: ' || 'Done printing shipset ' , 2 );
4690: END IF;
4691:
4692: END print_shipset ;
4693:
4696: is
4697: BEGIN
4698:
4699: IF PG_DEBUG <> 0 THEN
4700: oe_debug_pub.add('***print_shipset_capacity: ' || 'Going to print shipset capacity ' , 5 );
4701: END IF;
4702:
4703: IF( p_shipset.ship_set_name.count > 0 ) THEN
4704: IF PG_DEBUG <> 0 THEN
4701: END IF;
4702:
4703: IF( p_shipset.ship_set_name.count > 0 ) THEN
4704: IF PG_DEBUG <> 0 THEN
4705: oe_debug_pub.add('print_shipset_capacity: ' || ' record count ...'||to_char(p_shipset.ship_set_name.count),5);
4706:
4707: oe_debug_pub.add('print_shipset_capacity: ' || ' Row_Id ' || p_shipset.row_id.count ||
4708: ' Instance_Id ' || p_shipset.instance_id.count ||
4709: ' Inventory_Item_Id ' || p_shipset.inventory_item_id.count ||
4703: IF( p_shipset.ship_set_name.count > 0 ) THEN
4704: IF PG_DEBUG <> 0 THEN
4705: oe_debug_pub.add('print_shipset_capacity: ' || ' record count ...'||to_char(p_shipset.ship_set_name.count),5);
4706:
4707: oe_debug_pub.add('print_shipset_capacity: ' || ' Row_Id ' || p_shipset.row_id.count ||
4708: ' Instance_Id ' || p_shipset.instance_id.count ||
4709: ' Inventory_Item_Id ' || p_shipset.inventory_item_id.count ||
4710: ' Inventory_Item_Name ' || p_shipset.inventory_item_name.count ||
4711: ' Source_Organization_Id ' || p_shipset.source_organization_id.count ||
4710: ' Inventory_Item_Name ' || p_shipset.inventory_item_name.count ||
4711: ' Source_Organization_Id ' || p_shipset.source_organization_id.count ||
4712: ' Source_Organization_Code ' || p_shipset.source_organization_code.count , 5);
4713:
4714: oe_debug_pub.add('print_shipset_capacity: ' || ' Organization_Id ' || p_shipset.organization_id.count ||
4715: ' Identifier ' || p_shipset.identifier.count ||
4716: ' Demand_Source_Header_Id ' || p_shipset.demand_source_header_id.count ||
4717: ' Demand_Source_Delivery ' || p_shipset.demand_source_delivery.count ||
4718: ' Demand_Source_Type ' || p_shipset.demand_source_type.count ||
4717: ' Demand_Source_Delivery ' || p_shipset.demand_source_delivery.count ||
4718: ' Demand_Source_Type ' || p_shipset.demand_source_type.count ||
4719: ' Scenario_Id ' || p_shipset.scenario_id.count , 5 );
4720:
4721: oe_debug_pub.add('print_shipset_capacity: ' || ' Calling_Module ' || p_shipset.calling_module.count ||
4722: ' Customer_Id ' || p_shipset.customer_id.count ||
4723: ' Customer_Site_Id ' || p_shipset.customer_site_id.count ||
4724: ' Destination_Time_Zone ' || p_shipset.destination_time_zone.count ||
4725: ' Quantity_Ordered ' || p_shipset.quantity_ordered.count ||
4724: ' Destination_Time_Zone ' || p_shipset.destination_time_zone.count ||
4725: ' Quantity_Ordered ' || p_shipset.quantity_ordered.count ||
4726: ' Quantity_UOM ' || p_shipset.quantity_uom.count , 5 );
4727:
4728: oe_debug_pub.add('print_shipset_capacity: ' || ' Requested_Ship_Date ' || p_shipset.requested_ship_date.count ||
4729: ' Requested_Arrival_Date ' || p_shipset.requested_arrival_date.count ||
4730: ' Earliest_Acceptable_Date ' || p_shipset.earliest_acceptable_date.count ||
4731: ' Latest_Acceptable_Date ' || p_shipset.latest_acceptable_date.count ||
4732: ' Delivery_Lead_Time ' || p_shipset.delivery_lead_time.count ||
4731: ' Latest_Acceptable_Date ' || p_shipset.latest_acceptable_date.count ||
4732: ' Delivery_Lead_Time ' || p_shipset.delivery_lead_time.count ||
4733: ' Freight_Carrier ' || p_shipset.freight_carrier.count , 5 );
4734:
4735: oe_debug_pub.add('print_shipset_capacity: ' || ' Ship_Method ' || p_shipset.ship_method.count ||
4736: ' Demand_Class ' || p_shipset.demand_class.count ||
4737: ' Ship_Set_Name ' || p_shipset.ship_set_name.count ||
4738: ' Arrival_Set_Name ' || p_shipset.arrival_set_name.count ||
4739: ' Override_Flag ' || p_shipset.override_flag.count ||
4738: ' Arrival_Set_Name ' || p_shipset.arrival_set_name.count ||
4739: ' Override_Flag ' || p_shipset.override_flag.count ||
4740: ' Action ' || p_shipset.action.count , 5 );
4741:
4742: oe_debug_pub.add('print_shipset_capacity: ' || ' Ship_Date ' || p_shipset.ship_date.count ||
4743: ' Available_Quantity ' || p_shipset.available_quantity.count ||
4744: ' Requested_Date_Quantity ' || p_shipset.requested_date_quantity.count ||
4745: ' Group_Ship_Date ' || p_shipset.group_ship_date.count ||
4746: ' Group_Arrival_Date ' || p_shipset.group_arrival_date.count ||
4745: ' Group_Ship_Date ' || p_shipset.group_ship_date.count ||
4746: ' Group_Arrival_Date ' || p_shipset.group_arrival_date.count ||
4747: ' Vendor_Id ' || p_shipset.vendor_id.count , 5 );
4748:
4749: oe_debug_pub.add('print_shipset_capacity: ' || ' Vendor_Name ' || p_shipset.vendor_name.count ||
4750: ' Vendor_Site_Id ' || p_shipset.vendor_site_id.count ||
4751: ' Vendor_Site_Name ' || p_shipset.vendor_site_name.count ||
4752: ' Insert_Flag ' || p_shipset.insert_flag.count ||
4753: ' OE_Flag ' || p_shipset.oe_flag.count ||
4751: ' Vendor_Site_Name ' || p_shipset.vendor_site_name.count ||
4752: ' Insert_Flag ' || p_shipset.insert_flag.count ||
4753: ' OE_Flag ' || p_shipset.oe_flag.count ||
4754: ' Atp_Lead_Time ' || p_shipset.atp_lead_time.count , 5 );
4755: oe_debug_pub.add('print_shipset_capacity: ' || ' Error_Code ' || p_shipset.error_code.count ||
4756: ' Message ' || p_shipset.message.count ||
4757: ' End_Pegging_Id ' || p_shipset.end_pegging_id.count ||
4758: ' Order_Number ' || p_shipset.order_number.count ||
4759: ' Old_Source_Organization_Id ' || p_shipset.old_source_organization_id.count ||
4762: END IF;
4763:
4764: ELSE
4765: IF PG_DEBUG <> 0 THEN
4766: oe_debug_pub.add('print_shipset_capacity: ' || ' ship set name table of shipset record is ' || p_shipset.ship_set_name.count , 5 );
4767: END IF;
4768: END IF ;
4769:
4770: IF PG_DEBUG <> 0 THEN
4767: END IF;
4768: END IF ;
4769:
4770: IF PG_DEBUG <> 0 THEN
4771: oe_debug_pub.add('***print_shipset_capacity: ' || ' done printing shipset capacity ' , 5 );
4772: END IF;
4773:
4774: END print_shipset_capacity ;
4775:
4807: l_bom_item_type mtl_system_items.bom_item_type%type ;
4808:
4809: BEGIN
4810: IF PG_DEBUG <> 0 THEN
4811: oe_debug_pub.add('create_atp_bom: ' || 'Begin BOM creation', 2);
4812:
4813: oe_debug_pub.add('create_atp_bom: ' || 'G_Cto_Sparse_Shipset.COUNT :: '||to_char(G_Cto_Sparse_Shipset.COUNT), 2);
4814: END IF;
4815: lStmtNum := 10;
4809: BEGIN
4810: IF PG_DEBUG <> 0 THEN
4811: oe_debug_pub.add('create_atp_bom: ' || 'Begin BOM creation', 2);
4812:
4813: oe_debug_pub.add('create_atp_bom: ' || 'G_Cto_Sparse_Shipset.COUNT :: '||to_char(G_Cto_Sparse_Shipset.COUNT), 2);
4814: END IF;
4815: lStmtNum := 10;
4816: x_return_status := FND_API.G_RET_STS_SUCCESS;
4817:
4815: lStmtNum := 10;
4816: x_return_status := FND_API.G_RET_STS_SUCCESS;
4817:
4818: IF PG_DEBUG <> 0 THEN
4819: oe_debug_pub.add('create_atp_bom: ' || 'Getting eff and dis date for optional comps', 4);
4820: END IF;
4821: lStmtNum := 20;
4822: --
4823: -- Optional comps are made effective from today to calendar_end_date
4839: and mp.calendar_exception_set_id = cal.exception_set_id;
4840:
4841:
4842: IF PG_DEBUG <> 0 THEN
4843: oe_debug_pub.add('create_atp_bom: ' || 'l_eff_date :: '||to_char(l_eff_date), 4);
4844:
4845: oe_debug_pub.add('create_atp_bom: ' || 'l_disable_date :: '||to_char(l_disable_date), 4);
4846: END IF;
4847:
4841:
4842: IF PG_DEBUG <> 0 THEN
4843: oe_debug_pub.add('create_atp_bom: ' || 'l_eff_date :: '||to_char(l_eff_date), 4);
4844:
4845: oe_debug_pub.add('create_atp_bom: ' || 'l_disable_date :: '||to_char(l_disable_date), 4);
4846: END IF;
4847:
4848: IF G_Cto_Sparse_Shipset.COUNT > 0 THEN
4849: --
4855: --
4856: -- Insert all items into BOM structure except top level ATO models
4857: --
4858: IF PG_DEBUG <> 0 THEN
4859: oe_debug_pub.add('create_atp_bom: ' || 'Processing line_id '||to_char(l_index), 2);
4860: END IF;
4861: lStmtNum := 30;
4862: IF (g_cto_sparse_shipset.EXISTS(l_index)) THEN
4863: IF (g_cto_sparse_shipset(l_index).mlmo_flag = 'Y') THEN --2723674
4864: l_parent_id := g_cto_sparse_shipset(l_index).Parent_Ato_Line_Id;
4865: l_link_id := g_cto_sparse_shipset(l_index).Link_To_Line_Id;
4866: l_buy_flag := g_cto_sparse_shipset(l_index).Buy_Model;
4867: IF PG_DEBUG <> 0 THEN
4868: oe_debug_pub.add('**create_atp_bom: ' || 'l_parent_id is '||to_char(l_parent_id), 4);
4869:
4870: oe_debug_pub.add('**create_atp_bom: ' || 'l_link_id is '||to_char(l_link_id), 4);
4871:
4872: oe_debug_pub.add('**create_atp_bom: ' || 'l_buy_flag is '||l_buy_flag, 4);
4866: l_buy_flag := g_cto_sparse_shipset(l_index).Buy_Model;
4867: IF PG_DEBUG <> 0 THEN
4868: oe_debug_pub.add('**create_atp_bom: ' || 'l_parent_id is '||to_char(l_parent_id), 4);
4869:
4870: oe_debug_pub.add('**create_atp_bom: ' || 'l_link_id is '||to_char(l_link_id), 4);
4871:
4872: oe_debug_pub.add('**create_atp_bom: ' || 'l_buy_flag is '||l_buy_flag, 4);
4873: END IF;
4874:
4868: oe_debug_pub.add('**create_atp_bom: ' || 'l_parent_id is '||to_char(l_parent_id), 4);
4869:
4870: oe_debug_pub.add('**create_atp_bom: ' || 'l_link_id is '||to_char(l_link_id), 4);
4871:
4872: oe_debug_pub.add('**create_atp_bom: ' || 'l_buy_flag is '||l_buy_flag, 4);
4873: END IF;
4874:
4875: /* 'Make' components and top 'Buy' model */
4876: IF ((g_cto_sparse_shipset(l_index).Ato_Line_Id <> g_cto_sparse_shipset(l_index).Line_Id) AND (nvl(l_buy_flag, 'N') <> 'Y')) THEN
4875: /* 'Make' components and top 'Buy' model */
4876: IF ((g_cto_sparse_shipset(l_index).Ato_Line_Id <> g_cto_sparse_shipset(l_index).Line_Id) AND (nvl(l_buy_flag, 'N') <> 'Y')) THEN
4877:
4878: IF PG_DEBUG <> 0 THEN
4879: oe_debug_pub.add('**create_atp_bom: ' || 'Not top ato model and not buy item, so insert into BOM', 2);
4880: END IF;
4881: i := p_atp_bom.assembly_identifier.count+1;
4882: lStmtNum := 40;
4883: IF PG_DEBUG <> 0 THEN
4880: END IF;
4881: i := p_atp_bom.assembly_identifier.count+1;
4882: lStmtNum := 40;
4883: IF PG_DEBUG <> 0 THEN
4884: oe_debug_pub.add('**create_atp_bom: ' || 'Insert record # '||to_char(i), 2);
4885: END IF;
4886: Extend_Atp_Bom(p_atp_bom,
4887: x_Return_Status,
4888: x_Msg_Count,
4888: x_Msg_Count,
4889: x_Msg_Data);
4890: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4891: IF PG_DEBUG <> 0 THEN
4892: oe_debug_pub.add('**create_atp_bom: ' || 'Unexp error in Extend_ATP_BOM::'||sqlerrm,1);
4893: END IF;
4894: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: IF PG_DEBUG <> 0 THEN
4893: END IF;
4894: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: IF PG_DEBUG <> 0 THEN
4897: oe_debug_pub.add('**create_atp_bom: ' || 'After extend_atp', 5);
4898: END IF;
4899:
4900: lStmtNum := 50;
4901: /*Populate this item's information*/
4921: from mtl_system_items
4922: where inventory_item_id = g_cto_sparse_shipset(l_parent_id).Inventory_Item_Id
4923: and organization_id = g_cto_sparse_shipset(l_parent_id).Sourcing_Org;
4924: IF PG_DEBUG <> 0 THEN
4925: oe_debug_pub.add('**create_atp_bom: ' || 'After getting LT', 5);
4926: END IF;
4927: p_atp_bom.Fixed_LT(i) := l_fixed_lt;
4928: p_atp_bom.Variable_LT(i) := l_variable_lt;
4929: p_atp_bom.Pre_Process_LT(i) := l_preproc_lt;
4935: from mtl_system_items
4936: where inventory_item_id = g_cto_sparse_shipset(l_index).Inventory_Item_Id
4937: and organization_id = g_cto_sparse_shipset(l_index).Sourcing_Org;
4938: IF PG_DEBUG <> 0 THEN
4939: oe_debug_pub.add('**create_atp_bom: ' || 'After getting atp flags', 5);
4940: END IF;
4941: /* Sushant added this on 01-14-2003 for atp issues of option classes */
4942:
4943: IF (l_atp_flag <> 'N' OR l_atp_comps_flag <> 'N' ) THEN
4979: /* Top ato model is buy model, create dummy BOM */
4980: ELSIF ((g_cto_sparse_shipset(l_index).Ato_Line_Id = g_cto_sparse_shipset(l_index).Line_Id) AND (nvl(l_buy_flag, 'N') = 'B')) THEN
4981:
4982: IF PG_DEBUG <> 0 THEN
4983: oe_debug_pub.add('**create_atp_bom: ' || 'Top ato model is buy model, so insert dummy row in BOM', 2);
4984: END IF;
4985: i := p_atp_bom.assembly_identifier.count+1;
4986: lStmtNum := 86;
4987: IF PG_DEBUG <> 0 THEN
4984: END IF;
4985: i := p_atp_bom.assembly_identifier.count+1;
4986: lStmtNum := 86;
4987: IF PG_DEBUG <> 0 THEN
4988: oe_debug_pub.add('**create_atp_bom: ' || 'Insert record# '||to_char(i), 2);
4989: END IF;
4990: Extend_Atp_Bom(p_atp_bom,
4991: x_Return_Status,
4992: x_Msg_Count,
4992: x_Msg_Count,
4993: x_Msg_Data);
4994: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: IF PG_DEBUG <> 0 THEN
4996: oe_debug_pub.add('**create_atp_bom: ' || 'Unexp error in Extend_ATP_BOM::'||sqlerrm,1);
4997: END IF;
4998: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4999: END IF;
5000: IF PG_DEBUG <> 0 THEN
4997: END IF;
4998: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4999: END IF;
5000: IF PG_DEBUG <> 0 THEN
5001: oe_debug_pub.add('**create_atp_bom: ' || 'After extend_atp', 5);
5002: END IF;
5003:
5004: lStmtNum := 87;
5005: /*Populate dummy information. ATP will not use this
5020: its sourcing information and populate
5021: mandatory components from that org*/
5022: IF ((g_cto_sparse_shipset(l_index).Bom_Item_Type IN (1,2)) AND (nvl(l_buy_flag, 'N') = 'N')) THEN
5023: IF PG_DEBUG <> 0 THEN
5024: oe_debug_pub.add('**create_atp_bom: ' || 'Item is Make model or OC, get mand comps', 2);
5025: END IF;
5026: lStmtNum := 100;
5027: Populate_Mandatory_Components(p_atp_bom,
5028: l_index,
5030: x_Msg_Count,
5031: x_Msg_Data);
5032: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5033: IF PG_DEBUG <> 0 THEN
5034: oe_debug_pub.add('**create_atp_bom: ' || 'Unexp error in Populate_Mandatory_Components::'||sqlerrm,1);
5035: END IF;
5036: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5037: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5038: IF PG_DEBUG <> 0 THEN
5035: END IF;
5036: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5037: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5038: IF PG_DEBUG <> 0 THEN
5039: oe_debug_pub.add('**create_atp_bom: ' || 'Exp error in Populate_Mandatory_Components::'||sqlerrm,1);
5040: END IF;
5041: raise FND_API.G_EXC_ERROR;
5042: END IF;
5043: IF PG_DEBUG <> 0 THEN
5040: END IF;
5041: raise FND_API.G_EXC_ERROR;
5042: END IF;
5043: IF PG_DEBUG <> 0 THEN
5044: oe_debug_pub.add('**create_atp_bom: ' || 'After Populate_Mandatory_Components', 5);
5045: END IF;
5046: END IF; /* 'Make' model or OC */
5047: END IF; --2723674
5048: EXIT WHEN l_index = G_Cto_Sparse_Shipset.LAST;
5053: --
5054: -- writing BOM to debug file
5055: --
5056: IF PG_DEBUG <> 0 THEN
5057: oe_debug_pub.add('create_atp_bom: ' || 'BOM STRUCTURE::', 2);
5058: END IF;
5059: FOR i IN p_atp_bom.assembly_identifier.first..p_atp_bom.assembly_identifier.last
5060: LOOP
5061: lStmtNum := 120;
5059: FOR i IN p_atp_bom.assembly_identifier.first..p_atp_bom.assembly_identifier.last
5060: LOOP
5061: lStmtNum := 120;
5062: IF PG_DEBUG <> 0 THEN
5063: oe_debug_pub.add('create_atp_bom: ' || to_char(p_atp_bom.Assembly_Identifier(i))||' '||
5064: to_char(p_atp_bom.Assembly_Item_Id(i))||' '||
5065: to_char(p_atp_bom.Component_Identifier(i))||' '||
5066: to_char(p_atp_bom.Component_Item_Id(i))||' '||
5067: to_char(p_atp_bom.Quantity(i))||' '||
5080:
5081: EXCEPTION
5082: WHEN FND_API.G_EXC_ERROR THEN
5083: IF PG_DEBUG <> 0 THEN
5084: oe_debug_pub.add('create_atp_bom: ' || 'Create_Atp_Bom::exp error::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5085: END IF;
5086: x_return_status := FND_API.G_RET_STS_ERROR;
5087: FND_MSG_PUB.Count_And_Get
5088: (p_count => x_msg_count
5089: ,p_data => x_msg_data
5090: );
5091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5092: IF PG_DEBUG <> 0 THEN
5093: oe_debug_pub.add('create_atp_bom: ' || 'Create_Atp_Bom::unexp error::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5094: END IF;
5095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5096: FND_MSG_PUB.Count_And_Get
5097: (p_count => x_msg_count
5098: ,p_data => x_msg_data
5099: );
5100: WHEN OTHERS THEN
5101: IF PG_DEBUG <> 0 THEN
5102: oe_debug_pub.add('create_atp_bom: ' || 'Create_Atp_Bom::others::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5103: END IF;
5104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5105: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5106: FND_MSG_PUB.Add_Exc_Msg
5150:
5151: EXCEPTION
5152: WHEN OTHERS THEN
5153: IF PG_DEBUG <> 0 THEN
5154: oe_debug_pub.add('Extend_Atp_Bom: ' || 'Extend_Atp_Bom::others::'||sqlerrm,1);
5155: END IF;
5156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5158: FND_MSG_PUB.Add_Exc_Msg
5252: x_bill_id NUMBER;
5253:
5254: BEGIN
5255: IF PG_DEBUG <> 0 THEN
5256: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Begin Populate_Mandatory_Components', 2);
5257: END IF;
5258: lStmtNum := 110;
5259: x_return_status := FND_API.G_RET_STS_SUCCESS;
5260: l_model_item_id := g_cto_sparse_shipset(p_index).Inventory_Item_Id;
5261: l_model_src_org := g_cto_sparse_shipset(p_index).Sourcing_Org;
5262: l_model_line_id := g_cto_sparse_shipset(p_index).Line_Id;
5263:
5264: IF PG_DEBUG <> 0 THEN
5265: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model item::'||to_char(l_model_item_id), 2);
5266: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model src org::'||to_char(l_model_src_org), 2);
5267: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model line_id::'||to_char(l_model_line_id), 2);
5268: END IF;
5269:
5262: l_model_line_id := g_cto_sparse_shipset(p_index).Line_Id;
5263:
5264: IF PG_DEBUG <> 0 THEN
5265: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model item::'||to_char(l_model_item_id), 2);
5266: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model src org::'||to_char(l_model_src_org), 2);
5267: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model line_id::'||to_char(l_model_line_id), 2);
5268: END IF;
5269:
5270: /* In case of an option class or phantom model, assembly
5263:
5264: IF PG_DEBUG <> 0 THEN
5265: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model item::'||to_char(l_model_item_id), 2);
5266: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model src org::'||to_char(l_model_src_org), 2);
5267: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model line_id::'||to_char(l_model_line_id), 2);
5268: END IF;
5269:
5270: /* In case of an option class or phantom model, assembly
5271: information for SMC's should be that of the next non-phantom
5275: lStmtNum := 111;
5276: l_parent_line_id := g_cto_sparse_shipset(l_model_line_id).Parent_Ato_Line_id;
5277: l_link_line_id := g_cto_sparse_shipset(l_model_line_id).Link_To_Line_id;
5278: IF PG_DEBUG <> 0 THEN
5279: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Parent line_id::'||to_char(l_parent_line_id), 4);
5280: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Link_to_line_id::'||to_char(l_link_line_id), 4);
5281: END IF;
5282:
5283: lStmtNum := 112;
5276: l_parent_line_id := g_cto_sparse_shipset(l_model_line_id).Parent_Ato_Line_id;
5277: l_link_line_id := g_cto_sparse_shipset(l_model_line_id).Link_To_Line_id;
5278: IF PG_DEBUG <> 0 THEN
5279: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Parent line_id::'||to_char(l_parent_line_id), 4);
5280: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Link_to_line_id::'||to_char(l_link_line_id), 4);
5281: END IF;
5282:
5283: lStmtNum := 112;
5284: select bic.wip_supply_type
5295: IF nvl(l_wip_supply_type, -1) = 6 THEN
5296: -- phantom model or option class
5297: lStmtNum := 113;
5298: IF PG_DEBUG <> 0 THEN
5299: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Phantom model or option class', 2);
5300: END IF;
5301: l_new_model_line_id := l_parent_line_id;
5302: ELSE
5303: lStmtNum := 114;
5301: l_new_model_line_id := l_parent_line_id;
5302: ELSE
5303: lStmtNum := 114;
5304: IF PG_DEBUG <> 0 THEN
5305: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Non-Phantom model', 2);
5306: END IF;
5307: l_new_model_line_id := l_model_line_id;
5308: END IF;
5309: ELSE /* top level ATO model */
5308: END IF;
5309: ELSE /* top level ATO model */
5310: lStmtNum := 115;
5311: IF PG_DEBUG <> 0 THEN
5312: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Top level ATO model', 2);
5313: END IF;
5314: l_new_model_line_id := l_model_line_id;
5315: END IF;
5316:
5314: l_new_model_line_id := l_model_line_id;
5315: END IF;
5316:
5317: IF PG_DEBUG <> 0 THEN
5318: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model line_id::'||to_char(l_model_line_id), 2);
5319: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'New Model line_id::'||to_char(l_new_model_line_id), 2);
5320: END IF;
5321:
5322: lStmtNum := 116;
5315: END IF;
5316:
5317: IF PG_DEBUG <> 0 THEN
5318: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'Model line_id::'||to_char(l_model_line_id), 2);
5319: oe_debug_pub.add('**Populate_Mandatory_Components: ' || 'New Model line_id::'||to_char(l_new_model_line_id), 2);
5320: END IF;
5321:
5322: lStmtNum := 116;
5323: IF PG_DEBUG <> 0 THEN
5320: END IF;
5321:
5322: lStmtNum := 116;
5323: IF PG_DEBUG <> 0 THEN
5324: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Getting eff and dis date for optional comps', 4);
5325: END IF;
5326:
5327: -- Modified by Renga Kannan on 10/30/02
5328: -- The blind query on bom_calendar is modified with proper join
5339: and mp.calendar_code = cal.calendar_code
5340: and mp.calendar_exception_set_id = cal.exception_set_id;
5341:
5342: IF PG_DEBUG <> 0 THEN
5343: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'l_disable_date :: '||to_char(l_disable_date), 4);
5344: END IF;
5345:
5346: FOR nxtrec IN c_mand_comps
5347: LOOP
5354: x_Msg_Data);
5355:
5356: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5357: IF PG_DEBUG <> 0 THEN
5358: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Unexp error in Extend_ATP_BOM::'||sqlerrm,1);
5359: END IF;
5360: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5361: END IF;
5362: IF PG_DEBUG <> 0 THEN
5359: END IF;
5360: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5361: END IF;
5362: IF PG_DEBUG <> 0 THEN
5363: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'After extend_atp', 5);
5364: END IF;
5365:
5366: /*Populate this item's information*/
5367: lStmtNum := 130;
5419: END IF;
5420:
5421: END LOOP;
5422: IF PG_DEBUG <> 0 THEN
5423: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'added '||to_char(j)||' mand comps for item '||to_char(l_model_item_id)||' in org '||to_char(l_model_src_org), 2);
5424: END IF;
5425:
5426: EXCEPTION
5427: WHEN FND_API.G_EXC_ERROR THEN
5425:
5426: EXCEPTION
5427: WHEN FND_API.G_EXC_ERROR THEN
5428: IF PG_DEBUG <> 0 THEN
5429: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Populate_Mandatory_Components::exp error::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5430: END IF;
5431: x_return_status := FND_API.G_RET_STS_ERROR;
5432:
5433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5431: x_return_status := FND_API.G_RET_STS_ERROR;
5432:
5433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5434: IF PG_DEBUG <> 0 THEN
5435: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Populate_Mandatory_Components::unexp error::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5436: END IF;
5437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5438: FND_MSG_PUB.Count_And_Get
5439: (p_count => x_msg_count
5440: ,p_data => x_msg_data
5441: );
5442: WHEN OTHERS THEN
5443: IF PG_DEBUG <> 0 THEN
5444: oe_debug_pub.add('Populate_Mandatory_Components: ' || 'Populate_Mandatory_Components::others::'||to_char(lStmtNum)||'::'||sqlerrm,1);
5445: END IF;
5446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5448: FND_MSG_PUB.Add_Exc_Msg
5588: lStmtNum := 10;
5589: SAVEPOINT create_cto_model_demand_begin;
5590:
5591: IF PG_DEBUG <> 0 THEN
5592: oe_debug_pub.add('create_cto_model_demand: ' || 'Begin CREATE_CTO_MODEL_DEMAND module ....',1);
5593: oe_debug_pub.add('create_cto_model_demand: ' || 'Session id passed by ATP = '||to_char(p_session_id),1);
5594: END IF;
5595:
5596: -- Get the user id and Login id by calling the FND api
5589: SAVEPOINT create_cto_model_demand_begin;
5590:
5591: IF PG_DEBUG <> 0 THEN
5592: oe_debug_pub.add('create_cto_model_demand: ' || 'Begin CREATE_CTO_MODEL_DEMAND module ....',1);
5593: oe_debug_pub.add('create_cto_model_demand: ' || 'Session id passed by ATP = '||to_char(p_session_id),1);
5594: END IF;
5595:
5596: -- Get the user id and Login id by calling the FND api
5597: guserid := nvl(FND_GLOBAL.user_id,-1);
5597: guserid := nvl(FND_GLOBAL.user_id,-1);
5598: gloginid := nvl(FND_GLOBAL.login_id,-1);
5599:
5600: IF PG_DEBUG <> 0 THEN
5601: oe_debug_pub.add('create_cto_model_demand: ' || 'Record count in the ATP Shipset = '||to_char(p_shipset.action.count),2);
5602: END IF;
5603:
5604: IF p_shipset.action.count = 0 THEN
5605: IF PG_DEBUG <> 0 THEN
5602: END IF;
5603:
5604: IF p_shipset.action.count = 0 THEN
5605: IF PG_DEBUG <> 0 THEN
5606: oe_debug_pub.add('create_cto_model_demand: ' || 'There are no records to process in ATP Shipset ',2);
5607: END IF;
5608: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5609: END IF;
5610:
5623:
5624: 2. The action code in this case will be 120.
5625: */
5626: IF PG_DEBUG <> 0 THEN
5627: oe_debug_pub.add('ato delete flag check',2);
5628: oe_debug_pub.add('ato delete flag count '|| p_shipset.ato_delete_flag.count,2);
5629: oe_debug_pub.add('ato delete flag first '|| p_shipset.ato_delete_flag.first ,2);
5630: END IF;
5631:
5624: 2. The action code in this case will be 120.
5625: */
5626: IF PG_DEBUG <> 0 THEN
5627: oe_debug_pub.add('ato delete flag check',2);
5628: oe_debug_pub.add('ato delete flag count '|| p_shipset.ato_delete_flag.count,2);
5629: oe_debug_pub.add('ato delete flag first '|| p_shipset.ato_delete_flag.first ,2);
5630: END IF;
5631:
5632: IF ( ( p_shipset.ato_delete_flag.count > 0 ) AND
5625: */
5626: IF PG_DEBUG <> 0 THEN
5627: oe_debug_pub.add('ato delete flag check',2);
5628: oe_debug_pub.add('ato delete flag count '|| p_shipset.ato_delete_flag.count,2);
5629: oe_debug_pub.add('ato delete flag first '|| p_shipset.ato_delete_flag.first ,2);
5630: END IF;
5631:
5632: IF ( ( p_shipset.ato_delete_flag.count > 0 ) AND
5633: ( nvl (p_shipset.ato_delete_flag(p_shipset.ato_delete_flag.first),'N')
5634: = 'Y' ))
5635: THEN
5636:
5637: IF PG_DEBUG <> 0 THEN
5638: oe_debug_pub.add('create_cto_model_demand: ' || 'One of the ATO line is deleted...',5);
5639: oe_debug_pub.add('create_cto_model_demand: ' || 'No of records in shipset ='||to_char(p_shipset.action.count),5);
5640: oe_debug_pub.add('create_cto_model_demand: ' || 'Action code = '||to_char(p_shipset.action(p_shipset.action.first)),5);
5641: oe_debug_pub.add('create_cto_model_demand: ' || 'Line id = '||to_char(p_shipset.identifier(p_shipset.identifier.first)),5);
5642: END IF;
5635: THEN
5636:
5637: IF PG_DEBUG <> 0 THEN
5638: oe_debug_pub.add('create_cto_model_demand: ' || 'One of the ATO line is deleted...',5);
5639: oe_debug_pub.add('create_cto_model_demand: ' || 'No of records in shipset ='||to_char(p_shipset.action.count),5);
5640: oe_debug_pub.add('create_cto_model_demand: ' || 'Action code = '||to_char(p_shipset.action(p_shipset.action.first)),5);
5641: oe_debug_pub.add('create_cto_model_demand: ' || 'Line id = '||to_char(p_shipset.identifier(p_shipset.identifier.first)),5);
5642: END IF;
5643:
5636:
5637: IF PG_DEBUG <> 0 THEN
5638: oe_debug_pub.add('create_cto_model_demand: ' || 'One of the ATO line is deleted...',5);
5639: oe_debug_pub.add('create_cto_model_demand: ' || 'No of records in shipset ='||to_char(p_shipset.action.count),5);
5640: oe_debug_pub.add('create_cto_model_demand: ' || 'Action code = '||to_char(p_shipset.action(p_shipset.action.first)),5);
5641: oe_debug_pub.add('create_cto_model_demand: ' || 'Line id = '||to_char(p_shipset.identifier(p_shipset.identifier.first)),5);
5642: END IF;
5643:
5644: --- Delete the row from Bom_cto_order_demand for the line_id
5637: IF PG_DEBUG <> 0 THEN
5638: oe_debug_pub.add('create_cto_model_demand: ' || 'One of the ATO line is deleted...',5);
5639: oe_debug_pub.add('create_cto_model_demand: ' || 'No of records in shipset ='||to_char(p_shipset.action.count),5);
5640: oe_debug_pub.add('create_cto_model_demand: ' || 'Action code = '||to_char(p_shipset.action(p_shipset.action.first)),5);
5641: oe_debug_pub.add('create_cto_model_demand: ' || 'Line id = '||to_char(p_shipset.identifier(p_shipset.identifier.first)),5);
5642: END IF;
5643:
5644: --- Delete the row from Bom_cto_order_demand for the line_id
5645: l_line_id := p_shipset.identifier(p_shipset.identifier.first);
5647: FROM BOM_CTO_ORDER_DEMAND
5648: WHERE OE_LINE_ID = l_line_id;
5649:
5650: IF PG_DEBUG <> 0 THEN
5651: oe_debug_pub.add('create_cto_model_demand: ' || 'No of records deleted..'||sql%rowcount,2);
5652: END IF;
5653:
5654: xreturn_status := FND_API.G_RET_STS_SUCCESS;
5655:
5653:
5654: xreturn_status := FND_API.G_RET_STS_SUCCESS;
5655:
5656: IF PG_DEBUG <> 0 THEN
5657: oe_debug_pub.add('create_cto_model_demand: ' || 'Returning the control to ATP..',2);
5658: END IF;
5659:
5660: return;
5661: END IF;
5660: return;
5661: END IF;
5662:
5663: IF PG_DEBUG <> 0 THEN
5664: oe_debug_pub.add('ato delete flag check done',2);
5665: END IF;
5666:
5667: -- Action_code 100 means Enquiry
5668: -- Action_code 110 means Scheduling
5668: -- Action_code 110 means Scheduling
5669: -- Actino_code 120 means Rescheduling
5670:
5671: IF PG_DEBUG <> 0 THEN
5672: oe_debug_pub.add('create_cto_model_demand: ' || '....Scheduling Action code...'|| to_char( p_shipset.action(p_shipset.action.first)), 2);
5673: END IF;
5674:
5675: -- If the scheduling is succeded and the action is not enquiry THEN
5676: -- create the demand in BCOD table....
5679: -- 2723674 Flushing any existing demand for SLSO
5680: if slso_Shipset.COUNT > 0
5681: then
5682: slso_index := slso_Shipset.FIRST;
5683: oe_debug_pub.add('FIRST slso_index is '||to_char(slso_index), 2);
5684: loop
5685: lStmtNum := 30;
5686: if (slso_shipset.EXISTS(slso_index))
5687: then
5685: lStmtNum := 30;
5686: if (slso_shipset.EXISTS(slso_index))
5687: then
5688:
5689: oe_debug_pub.add('ato line id is '||to_char(slso_shipset(slso_index).ato_line_id), 2);
5690:
5691: delete from bom_cto_order_demand
5692: where ato_line_id = slso_shipset(slso_index).ato_line_id;
5693: rows_deleted := sql%rowcount;
5691: delete from bom_cto_order_demand
5692: where ato_line_id = slso_shipset(slso_index).ato_line_id;
5693: rows_deleted := sql%rowcount;
5694:
5695: oe_debug_pub.add('Deleted '||to_char(rows_deleted)||' rows. ', 2);
5696:
5697: slso_index := slso_Shipset.NEXT(slso_index);
5698: oe_debug_pub.add('NEXT slso_index is '||to_char(slso_index), 2);
5699: EXIT WHEN slso_index IS NULL;
5694:
5695: oe_debug_pub.add('Deleted '||to_char(rows_deleted)||' rows. ', 2);
5696:
5697: slso_index := slso_Shipset.NEXT(slso_index);
5698: oe_debug_pub.add('NEXT slso_index is '||to_char(slso_index), 2);
5699: EXIT WHEN slso_index IS NULL;
5700: end if;
5701: end loop;
5702: end if;
5706: -- shipset get the required quantity and required date from the ATP
5707: -- pegging tree table MRP_ATP_DETAILS_TEMP
5708:
5709: IF PG_DEBUG <> 0 THEN
5710: oe_debug_pub.add('create_cto_model_demand: ' || 'Total no of records in the shared stuct...'|| to_char(g_final_cto_shipset.count), 2);
5711: END IF;
5712:
5713: lStmtNum := 15;
5714:
5719: -- Commented following lines as a part of 2723674 fix
5720:
5721: -- IF g_final_cto_shipset.count = 0 THEN
5722: -- IF PG_DEBUG <> 0 THEN
5723: -- oe_debug_pub.add('create_cto_model_demand: ' || '.. CREATE_CTO_MODEL_DEMAND module raising exp error::' ||'There are no records to process in the shared'||' Structure.....',1);
5724: -- END IF;
5725: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
5726: -- END IF;
5727:
5738: IF ( p_shipset.ship_set_name(v_init ) is null
5739: AND p_shipset.arrival_set_name(v_init ) is null) THEN
5740:
5741: IF PG_DEBUG <> 0 THEN
5742: oe_debug_pub.add('create_cto_model_demand: ' || 'Both ship set and arrival set are null', 3);
5743: END IF;
5744: p_shipset.ship_set_name(v_init) := p_shipset.identifier(v_init) ;
5745:
5746: ELSIF ( p_shipset.ship_set_name(v_init ) is null
5746: ELSIF ( p_shipset.ship_set_name(v_init ) is null
5747: AND p_shipset.arrival_set_name(v_init ) is not null) THEN
5748:
5749: IF PG_DEBUG <> 0 THEN
5750: oe_debug_pub.add('create_cto_model_demand: ' || 'Arrival set is not null', 3);
5751: END IF;
5752: p_shipset.ship_set_name(v_init) := p_shipset.arrival_set_name(v_init) ;
5753:
5754: END IF ;
5755: END LOOP ; -- bug 2598745
5756:
5757: lStmtNum := 20;
5758: IF PG_DEBUG <> 0 THEN
5759: oe_debug_pub.add('create_cto_model_demand: ' || '..Begin looping the shared structure...',2);
5760: END IF;
5761:
5762: i := g_final_cto_shipset.first;
5763:
5761:
5762: i := g_final_cto_shipset.first;
5763:
5764: IF PG_DEBUG <> 0 THEN
5765: oe_debug_pub.add('create_cto_model_demand: ' || 'Creating Demand in BCOD table...',2);
5766: END IF;
5767:
5768: FOR i IN g_final_cto_shipset.first..g_final_cto_shipset.last
5769: LOOP
5780: (g_final_cto_shipset(i).ship_set_name);
5781: l_prev_shipset := g_final_cto_shipset(i).ship_set_name;
5782:
5783: IF PG_DEBUG <> 0 THEN
5784: oe_debug_pub.add('create_cto_model_demand: ' || 'shipset name ===> '||g_final_cto_shipset(i).ship_set_name,2);
5785: oe_debug_pub.add('create_cto_model_demand: ' || 'shipset status ====>'||l_shipset_status,2);
5786: END IF;
5787:
5788: -- The following assignment is required cuz if the action for this shipset is
5781: l_prev_shipset := g_final_cto_shipset(i).ship_set_name;
5782:
5783: IF PG_DEBUG <> 0 THEN
5784: oe_debug_pub.add('create_cto_model_demand: ' || 'shipset name ===> '||g_final_cto_shipset(i).ship_set_name,2);
5785: oe_debug_pub.add('create_cto_model_demand: ' || 'shipset status ====>'||l_shipset_status,2);
5786: END IF;
5787:
5788: -- The following assignment is required cuz if the action for this shipset is
5789: -- scheduling THEN it will not go to the is_config_line_exists part at all
5809: lStmtNum := 38;
5810: l_config_exists := is_config_line_exists(g_final_cto_shipset(i).ato_line_id);
5811:
5812: IF PG_DEBUG <> 0 THEN
5813: oe_debug_pub.add('create_cto_model_demand: ' || 'Config line exists for this ato_line_id '|| g_final_cto_shipset(i).ato_line_id||' Is '||l_config_exists,2);
5814: END IF;
5815:
5816: lStmtNum := 40;
5817: IF PG_DEBUG <> 0 THEN
5814: END IF;
5815:
5816: lStmtNum := 40;
5817: IF PG_DEBUG <> 0 THEN
5818: oe_debug_pub.add('create_cto_model_demand: ' || ' Deleting the Bcod information for the '|| ' Ato line_id...'||to_char(g_final_cto_shipset(i).ato_line_id), 2);
5819: END IF;
5820:
5821: DELETE FROM BOM_CTO_ORDER_DEMAND
5822: WHERE ato_line_id = g_final_cto_shipset(i).ato_line_id;
5832: -- not store the demand. This change is done for
5833: -- Procuring configurations
5834:
5835: IF PG_DEBUG <> 0 THEN
5836: oe_debug_pub.add('create_cto_model_demand: ' || 'Buy model flag ='||nvl(g_final_cto_shipset(i).buy_model,'N'),2);
5837: END IF;
5838:
5839: IF (g_final_cto_shipset(i).ordered_quantity <> 0 AND
5840: l_shipset_sourced AND
5841: nvl(g_final_cto_shipset(i).wip_supply_type,-1) <> 6) AND
5842: nvl(g_final_cto_shipset(i).buy_model,'N') <> 'Y' THEN
5843:
5844: IF PG_DEBUG <> 0 THEN
5845: oe_debug_pub.add('create_cto_model_demand: ' || 'Inserting a row in bcod for config line...',1);
5846: END IF;
5847:
5848: Create_demand_line(p_session_id => p_session_id,
5849: p_line_id => g_final_cto_shipset(i).line_id,
5854: p_demand_flag => 'Y',
5855: p_config_line => 'Y');
5856:
5857: IF PG_DEBUG <> 0 THEN
5858: oe_debug_pub.add('create_cto_model_demand: ' || 'Config line demand is inserted successfully..',1);
5859: END IF;
5860:
5861: END IF;
5862: ELSE
5869: -- If it is sourced THEN create the demand in bcod table
5870: -- Otherwise proceed with the next record
5871: -- Added to not create the bcod data for cancelation
5872: IF PG_DEBUG <> 0 THEN
5873: oe_debug_pub.add('create_cto_model_demand: ' || 'Ordered quantity...'||to_char(g_final_cto_shipset(i).ordered_quantity),2);
5874: END IF;
5875:
5876: -- Another fix is done for the Phantom item case. In the case of option item being phantom
5877: -- we need not store the demand, since neither planning or forecast is going to look into this
5879: -- the begging tree. So we skipp getting information and storing it in bcod for phantom option items
5880: -- This is as part of the bug fix #: 1531399
5881:
5882: IF PG_DEBUG <> 0 THEN
5883: oe_debug_pub.add('create_cto_model_demand: ' || 'WIP_SUPPLY_TYPE = '||to_char(g_final_cto_shipset(i).wip_supply_type) ,2);
5884: END IF;
5885:
5886: IF PG_DEBUG <> 0 THEN
5887: oe_debug_pub.add('create_cto_model_demand: ' || 'Buy model flag ='||nvl(g_final_cto_shipset(i).buy_model,'N'),2);
5883: oe_debug_pub.add('create_cto_model_demand: ' || 'WIP_SUPPLY_TYPE = '||to_char(g_final_cto_shipset(i).wip_supply_type) ,2);
5884: END IF;
5885:
5886: IF PG_DEBUG <> 0 THEN
5887: oe_debug_pub.add('create_cto_model_demand: ' || 'Buy model flag ='||nvl(g_final_cto_shipset(i).buy_model,'N'),2);
5888: END IF;
5889:
5890: IF g_final_cto_shipset(i).ordered_quantity <> 0
5891: AND l_shipset_sourced
5892: -- 3189261 AND nvl(g_final_cto_shipset(i).wip_supply_type,-1) <> 6
5893: AND nvl(g_final_cto_shipset(i).buy_model,'N') <> 'Y' THEN
5894:
5895: IF PG_DEBUG <> 0 THEN
5896: oe_debug_pub.add('create_cto_model_demand: ' || ' Shipset is sourced....', 2);
5897: END IF;
5898:
5899: lStmtNum := 50;
5900: -- Get the information from ATP Pegging tree
5899: lStmtNum := 50;
5900: -- Get the information from ATP Pegging tree
5901: -- And insert the information to BCOD table
5902: IF PG_DEBUG <> 0 THEN
5903: oe_debug_pub.add('create_cto_model_demand: ' || to_char(g_final_cto_shipset(i).line_id)||':'||
5904: to_char(g_final_cto_shipset(i).inventory_item_id )||':'||
5905: to_char(g_final_cto_shipset(i).sourcing_org)||':'||to_char(p_session_id),2);
5906: END IF;
5907:
5926:
5927: lStmtNum := 51;
5928:
5929: IF PG_DEBUG <> 0 THEN
5930: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' line_id ' || g_final_cto_shipset(i).link_to_line_id , 1);
5931: END IF;
5932:
5933:
5934: select oel.line_id,
5944: and oel.ship_from_org_id = msi.organization_id;
5945:
5946:
5947: IF PG_DEBUG <> 0 THEN
5948: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' line_id ' ||l_par_line_id ||
5949: ' inventory_item_id ' || l_par_inventory_item_id ||
5950: ' bom_item_type ' || l_par_bom_item_type , 1);
5951: END IF;
5952:
5954:
5955: lStmtNum := 52;
5956:
5957: IF PG_DEBUG <> 0 THEN
5958: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' line_id ' || g_final_cto_shipset(i).line_id , 1);
5959: END IF;
5960:
5961: select order_quantity_uom,ordered_quantity
5962: into l_order_quantity_uom,l_order_qty
5963: from oe_order_lines_all
5964: where line_id = g_final_cto_shipset(i).line_id;
5965:
5966: IF PG_DEBUG <> 0 THEN
5967: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' order_quantity_uom ' || l_order_quantity_uom , 1);
5968: END IF;
5969:
5970: -- for bom_item_type = 2 ( Option Class ) and 1 ( Model)
5971: -- get date from pegging tree
5972:
5973: lStmtNum := 53;
5974:
5975: IF PG_DEBUG <> 0 THEN
5976: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' session_id ' ||p_session_id ||
5977: ' component_identifier ' || g_final_cto_shipset(i).link_to_line_id ||
5978: ' inventory_item_id ' || l_par_inventory_item_id ||
5979: ' organization_id ' || g_final_cto_shipset(i).sourcing_org , 1);
5980: END IF;
6000: and ATP.supply_demand_type = 1 -- Demand
6001: and OEL.line_id = ATP.component_identifier;
6002:
6003: IF PG_DEBUG <> 0 THEN
6004: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' required_date ' ||l_required_date ||
6005: ' required_qty ' || l_required_qty ||
6006: ' order_quantity_uom ' || l_order_quantity_uom ||
6007: ' header_id ' || l_header_id , 1);
6008: END IF;
6024: x_lead_time := l_fixed_lead_time +
6025: l_variable_lead_time * l_required_qty;
6026:
6027: IF PG_DEBUG <> 0 THEN
6028: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' Fixed LT ' ||l_fixed_lead_time ||
6029: ' Variable LT ' || l_variable_lead_time ||
6030: ' required_qty ' || l_required_qty ||
6031: ' lead_time ' || x_lead_time , 1);
6032: END IF;
6035:
6036: lStmtNum := 55;
6037:
6038: IF PG_DEBUG <> 0 THEN
6039: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' Sourcing_org ' || g_final_cto_shipset(i).sourcing_org ||
6040: ' required_date ' || l_required_date ||
6041: ' lead_time ' || x_lead_time , 1);
6042: END IF;
6043:
6052:
6053: lStmtNum := 56;
6054:
6055: IF PG_DEBUG <> 0 THEN
6056: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: ' || ' oe_line_id ' || g_final_cto_shipset(i).line_id ||
6057: ' ato_line_id ' || g_final_cto_shipset(i).ato_line_id ||
6058: ' inventory_item_id ' || g_final_cto_shipset(i).inventory_item_id ||
6059: ' organization_id ' || g_final_cto_shipset(i).sourcing_org ||
6060: ' required_date ' || l_required_date ||
6105: sysdate); -- program_update_date
6106: EXCEPTION
6107: when no_data_found then
6108: IF PG_DEBUG <> 0 THEN
6109: oe_debug_pub.add( ' CREATE_CTO_MODEL_DEMAND: no_data_found in stmt # '||to_char(l_stmt_num) );
6110: END IF;
6111:
6112: when others then
6113: IF PG_DEBUG <> 0 THEN
6110: END IF;
6111:
6112: when others then
6113: IF PG_DEBUG <> 0 THEN
6114: oe_debug_pub.add('CREATE_CTO_MODEL_DEMAND: unexp error in stmt # '||to_char(l_stmt_num)||' :: '|| sqlerrm);
6115: END IF;
6116: END;
6117:
6118: END IF; -- end bugfix 3189261
6128: -- Call the procedure to reconstruct the Full ship set
6129: -- From Reduced ship set
6130: lStmtNum := 70;
6131: IF PG_DEBUG <> 0 THEN
6132: oe_debug_pub.add('create_cto_model_demand: ' || 'Calling reconstruct_shipset....',2);
6133: END IF;
6134: RECONSTRUCT_SHIPSET(
6135: p_shipset,
6136: p_shipset_status,
6138: xmsgcount,
6139: xmsgdata);
6140:
6141: IF PG_DEBUG <> 0 THEN
6142: oe_debug_pub.add('create_cto_model_demand: ' || 'coming out of Reconstruct ship set with status ..'||xreturn_status,2);
6143: END IF;
6144:
6145: IF xreturn_status = FND_API.G_RET_STS_ERROR THEN
6146: IF PG_DEBUG <> 0 THEN
6143: END IF;
6144:
6145: IF xreturn_status = FND_API.G_RET_STS_ERROR THEN
6146: IF PG_DEBUG <> 0 THEN
6147: oe_debug_pub.add('create_cto_model_demand: ' || ' exp Error in Resurrect_shipset procedure..',1);
6148: END IF;
6149: raise FND_API.G_EXC_ERROR;
6150: ELSIF xreturn_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6151: IF PG_DEBUG <> 0 THEN
6148: END IF;
6149: raise FND_API.G_EXC_ERROR;
6150: ELSIF xreturn_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6151: IF PG_DEBUG <> 0 THEN
6152: oe_debug_pub.add('create_cto_model_demand: ' || ' Unexp Error in Resurrect_shipset procedure..',1);
6153: END IF;
6154: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6155: END IF;
6156: xreturn_status := FND_API.G_RET_STS_SUCCESS;
6158: EXCEPTION
6159: WHEN FND_API.G_EXC_ERROR THEN
6160: ROLLBACK to create_cto_model_demand_begin;
6161: IF PG_DEBUG <> 0 THEN
6162: oe_debug_pub.add('create_cto_model_demand: ' || ' CREATE_CTO_MODEL_DEMAND :: exp error::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6163: END IF;
6164: xreturn_status := FND_API.G_RET_STS_ERROR;
6165: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'CREATE_CTO_MODEL_DEMAND');
6166: FND_MSG_PUB.Count_and_get(
6168: p_data => XMsgData);
6169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6170: ROLLBACK to create_cto_model_demand_begin;
6171: IF PG_DEBUG <> 0 THEN
6172: oe_debug_pub.add('create_cto_model_demand: ' || ' CREATE_CTO_MODEL_DEMAND :: unexp error::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6173: END IF;
6174: xreturn_status := FND_API.G_RET_STS_UNEXP_ERROR;
6175: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6176: FND_MSG_PUB.Add_Exc_Msg(
6184: p_data => xMsgData);
6185: WHEN OTHERS THEN
6186: ROLLBACK to create_cto_model_demand_begin;
6187: IF PG_DEBUG <> 0 THEN
6188: oe_debug_pub.add('create_cto_model_demand: ' || ' CREATE_CTO_MODEL_DEMAND :: Other error ::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6189: END IF;
6190: xreturn_status := FND_API.G_RET_STS_UNEXP_ERROR;
6191: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6192: FND_MSG_PUB.Add_Exc_Msg(
6207: p_shipset_name IN varchar2) RETURN VARCHAR2 is
6208: i number := 0;
6209: BEGIN
6210: IF PG_DEBUG <> 0 THEN
6211: oe_debug_pub.add('get_shipset_status: ' || ' in get_shipset_status ... record count...'|| to_char(p_shipset_tbl.ship_set_name.count), 3);
6212: oe_debug_pub.add('get_shipset_status: ' || 'Param shipset name = '||p_shipset_name,3);
6213: END IF;
6214:
6215: IF p_shipset_tbl.ship_set_name.count = 0 THEN
6208: i number := 0;
6209: BEGIN
6210: IF PG_DEBUG <> 0 THEN
6211: oe_debug_pub.add('get_shipset_status: ' || ' in get_shipset_status ... record count...'|| to_char(p_shipset_tbl.ship_set_name.count), 3);
6212: oe_debug_pub.add('get_shipset_status: ' || 'Param shipset name = '||p_shipset_name,3);
6213: END IF;
6214:
6215: IF p_shipset_tbl.ship_set_name.count = 0 THEN
6216: IF PG_DEBUG <> 0 THEN
6213: END IF;
6214:
6215: IF p_shipset_tbl.ship_set_name.count = 0 THEN
6216: IF PG_DEBUG <> 0 THEN
6217: oe_debug_pub.add('get_shipset_status: ' || ' UNEXP ERROR :: GET_SHIPSET_STATUS '|| ' No records found in the shipset status structure ',2);
6218: END IF;
6219: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6220: END IF;
6221:
6221:
6222: FOR i IN p_shipset_tbl.ship_set_name.first..p_shipset_tbl.ship_set_name.last
6223: LOOP
6224: IF PG_DEBUG <> 0 THEN
6225: oe_debug_pub.add('get_shipset_status: ' || 'Loop shipset name ='||p_shipset_tbl.ship_set_name(i),3);
6226: END IF;
6227: IF p_shipset_tbl.ship_set_name(i) = p_shipset_name THEN
6228: return p_shipset_tbl.status(i);
6229: END IF;
6228: return p_shipset_tbl.status(i);
6229: END IF;
6230: END LOOP;
6231: IF PG_DEBUG <> 0 THEN
6232: oe_debug_pub.add('get_shipset_status: ' || ' UNEXP ERROR :: GET_SHIPSET_STATUS '|| ' The shipset name is not found in the pl/sql record '|| ' Shipset Name : '||p_shipset_name,2);
6233: END IF;
6234: return 'F';
6235: END get_shipset_status;
6236:
6239: FUNCTION get_shipset_source_flag(p_shipset_name IN varchar2) RETURN BOOLEAN is
6240: i number := 0;
6241: BEGIN
6242: IF PG_DEBUG <> 0 THEN
6243: oe_debug_pub.add('get_shipset_source_flag: ' || 'get_shipset_source_flag :param value :'||p_shipset_name,3);
6244: END IF;
6245:
6246: IF g_shipset_status_tbl.count = 0 THEN
6247: IF PG_DEBUG <> 0 THEN
6244: END IF;
6245:
6246: IF g_shipset_status_tbl.count = 0 THEN
6247: IF PG_DEBUG <> 0 THEN
6248: oe_debug_pub.add('get_shipset_source_flag: ' || ' UNEXP ERROR :: GET_SHIPSET_SOURCE_FLAG '|| ' No records found in the shipset structure ',2);
6249: END IF;
6250: END IF;
6251:
6252: FOR i IN g_shipset_status_tbl.first..g_shipset_status_tbl.last
6251:
6252: FOR i IN g_shipset_status_tbl.first..g_shipset_status_tbl.last
6253: LOOP
6254: IF PG_DEBUG <> 0 THEN
6255: oe_debug_pub.add('get_shipset_source_flag: ' || ' source flag shipset name ...'|| g_shipset_status_tbl(i).ship_set_name,3);
6256: END IF;
6257: IF g_shipset_status_tbl(i).ship_set_name = p_shipset_name THEN
6258: IF PG_DEBUG <> 0 THEN
6259: oe_debug_pub.add('get_shipset_source_flag: ' || 'return success from source_flag proc ...',2);
6255: oe_debug_pub.add('get_shipset_source_flag: ' || ' source flag shipset name ...'|| g_shipset_status_tbl(i).ship_set_name,3);
6256: END IF;
6257: IF g_shipset_status_tbl(i).ship_set_name = p_shipset_name THEN
6258: IF PG_DEBUG <> 0 THEN
6259: oe_debug_pub.add('get_shipset_source_flag: ' || 'return success from source_flag proc ...',2);
6260: END IF;
6261: return g_shipset_status_tbl(i).model_sourced;
6262: END IF;
6263: END LOOP;
6261: return g_shipset_status_tbl(i).model_sourced;
6262: END IF;
6263: END LOOP;
6264: IF PG_DEBUG <> 0 THEN
6265: oe_debug_pub.add('get_shipset_source_flag: ' || ' UNEXP ERROR :: GET_SHIPSET_SOURCE_FLAG '||
6266: ' The shipset name is not found in the pl/sql record '||
6267: ' Shipsets Name :'||p_shipset_name,2);
6268: END IF;
6269: return false;
6274: FUNCTION is_config_line_exists(p_ato_line_id IN Number) RETURN VARCHAR2 is
6275: x_config_exists varchar2(1);
6276: BEGIN
6277: IF PG_DEBUG <> 0 THEN
6278: oe_debug_pub.add('is_config_line_exists: ' || 'Entering is_config_item_exists for ato_line_id '|| to_char(p_ato_line_id), 4);
6279: END IF;
6280:
6281: SELECT 'Y'
6282: INTO x_config_exists
6287: return x_config_exists;
6288: EXCEPTION
6289: WHEN NO_DATA_FOUND THEN
6290: IF PG_DEBUG <> 0 THEN
6291: oe_debug_pub.add('is_config_line_exists: ' || 'Config line does not exists ..',1);
6292: END IF;
6293: x_config_exists := 'N';
6294: return x_config_exists;
6295: WHEN OTHERS THEN
6328: -- If it is not for config line THEN whatever we are getting in
6329: -- parameters that are safe.
6330:
6331: IF PG_DEBUG <> 0 THEN
6332: oe_debug_pub.add('create_demand_line: ' || 'Entering create_demand_line procedure...',1);
6333: END IF;
6334: l_stmt_no := 10;
6335: IF p_config_line = 'Y' THEN
6336: -- Select the config line info from oe_order_lines_all
6393: AND ATP.component_identifier = OEL.line_id;
6394:
6395:
6396: IF PG_DEBUG <> 0 THEN
6397: oe_debug_pub.add('create_demand_line: ' || to_char(p_line_id)||':'||
6398: to_char(p_inventory_item_id )||':'||
6399: to_char(l_org_id)||':'||
6400: to_char(l_required_qty)||':'||to_char(l_required_date),2);
6401: oe_debug_pub.add('create_demand_line: ' || '# of Records in the Pegging tree :'||
6397: oe_debug_pub.add('create_demand_line: ' || to_char(p_line_id)||':'||
6398: to_char(p_inventory_item_id )||':'||
6399: to_char(l_org_id)||':'||
6400: to_char(l_required_qty)||':'||to_char(l_required_date),2);
6401: oe_debug_pub.add('create_demand_line: ' || '# of Records in the Pegging tree :'||
6402: to_char(l_record_count));
6403: END IF;
6404:
6405: -- This check is added to see whether ATP pegging tree returned any rows or not
6407:
6408: IF l_record_count = 0 THEN
6409:
6410: IF PG_DEBUG <> 0 THEN
6411: oe_debug_pub.add('create_demand_line: ' || ' NO records in the pegging tree..',1);
6412: END IF;
6413: raise ATP_NO_RECORD_ERROR;
6414:
6415: ELSE
6459:
6460: EXCEPTION
6461: WHEN NO_DATA_FOUND THEN
6462: IF PG_DEBUG <> 0 THEN
6463: oe_debug_pub.add('create_demand_line: ' || 'error at statement no #'||to_char(l_stmt_no),1);
6464: oe_debug_pub.add('create_demand_line: ' || 'No Records found in the ATP Pegging Tree
6465: for line_id ..'||
6466: to_char(l_line_id)||
6467: 'Item id ....'||
6460: EXCEPTION
6461: WHEN NO_DATA_FOUND THEN
6462: IF PG_DEBUG <> 0 THEN
6463: oe_debug_pub.add('create_demand_line: ' || 'error at statement no #'||to_char(l_stmt_no),1);
6464: oe_debug_pub.add('create_demand_line: ' || 'No Records found in the ATP Pegging Tree
6465: for line_id ..'||
6466: to_char(l_line_id)||
6467: 'Item id ....'||
6468: to_char(l_inv_item_id)
6471: END IF;
6472: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6473: WHEN ATP_NO_RECORD_ERROR THEN
6474: IF PG_DEBUG <> 0 THEN
6475: oe_debug_pub.add('create_demand_line: ' || 'error at statement no #'||to_char(l_stmt_no),1);
6476: END IF;
6477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6478: WHEN OTHERS THEN
6479: IF PG_DEBUG <> 0 THEN
6476: END IF;
6477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6478: WHEN OTHERS THEN
6479: IF PG_DEBUG <> 0 THEN
6480: oe_debug_pub.add('create_demand_line: ' || 'error at statement no #'||to_char(l_stmt_no),1);
6481: oe_debug_pub.add('create_demand_line: ' || 'Error in select :: Other:: in the ATP Pegging Tree for line_id ..'|| to_char(l_line_id)||
6482: 'Item id ....'||
6483: to_char(l_inv_item_id)
6484: ||' And Sourcing org ...'
6477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6478: WHEN OTHERS THEN
6479: IF PG_DEBUG <> 0 THEN
6480: oe_debug_pub.add('create_demand_line: ' || 'error at statement no #'||to_char(l_stmt_no),1);
6481: oe_debug_pub.add('create_demand_line: ' || 'Error in select :: Other:: in the ATP Pegging Tree for line_id ..'|| to_char(l_line_id)||
6482: 'Item id ....'||
6483: to_char(l_inv_item_id)
6484: ||' And Sourcing org ...'
6485: ||to_char(l_org_id)||sqlerrm,1);
6572: -- Since the ATO item explosion is execute during collection this above global varibale
6573: -- needs to be initialized here also.
6574:
6575: IF PG_DEBUG <> 0 THEN
6576: oe_debug_pub.add('create_cto_item_demand: ' || ' Begin CREATE_CTO_ITEM_DEMAND module...',1);
6577: END IF;
6578: guserid := nvl(FND_GLOBAL.user_id,-1);
6579: gloginid := nvl(FND_GLOBAL.login_id,-1);
6580:
6590: initialize_assignment_set( x_return_status ) ;
6591:
6592: IF( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
6593: IF PG_DEBUG <> 0 THEN
6594: oe_debug_pub.add('create_cto_item_demand: ' || 'initialize_assignment_set returned with Expected error',1);
6595: END IF;
6596: RAISE FND_API.G_EXC_ERROR ;
6597:
6598: ELSIF( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6596: RAISE FND_API.G_EXC_ERROR ;
6597:
6598: ELSIF( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6599: IF PG_DEBUG <> 0 THEN
6600: oe_debug_pub.add('create_cto_item_demand: ' || 'initialize_assignment_set returned with Unexpected error',1);
6601: END IF;
6602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6603: END IF ;
6604:
6602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6603: END IF ;
6604:
6605: IF PG_DEBUG <> 0 THEN
6606: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting the instance id ..',2);
6607: END IF;
6608: BEGIN
6609: SELECT instance_id
6610: INTO ginstance_id
6610: INTO ginstance_id
6611: FROM MRP_AP_APPS_INSTANCES;
6612: EXCEPTION WHEN OTHERS THEN
6613: IF PG_DEBUG <> 0 THEN
6614: oe_debug_pub.add('create_cto_item_demand: ' || 'UNEXP ::Error in getting instance id '||sqlerrm||'::'||'line number'||to_char(lStmtNum), 1);
6615: END IF;
6616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6617: END;
6618:
6616: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6617: END;
6618:
6619: IF PG_DEBUG <> 0 THEN
6620: oe_debug_pub.add('create_cto_item_demand: ' || 'Instance_id = '||to_char(ginstance_id),2);
6621: END IF;
6622:
6623: lStmtNum := 15;
6624: -- Delete all the lines in the bcod table where the
6625: -- parent_demand_type = '2'. This will delete all the rows
6626: -- corresponding to ato items.
6627:
6628: IF PG_DEBUG <> 0 THEN
6629: oe_debug_pub.add('create_cto_item_demand: ' || 'Before deleting records from Bcod table..',2);
6630: END IF;
6631:
6632: DELETE
6633: FROM
6636:
6637: lStmtNum := 20;
6638:
6639: IF PG_DEBUG <> 0 THEN
6640: oe_debug_pub.add('create_cto_item_demand: ' || 'Start looping thru oe_order_lines.....',2);
6641: END IF;
6642:
6643: FOR myrec IN ato_item_lines
6644: LOOP
6644: LOOP
6645: lStmtNum := 30;
6646:
6647: IF PG_DEBUG <> 0 THEN
6648: oe_debug_pub.add('create_cto_item_demand: ' || 'Line_id ='||to_char(myrec.line_id),2);
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6645: lStmtNum := 30;
6646:
6647: IF PG_DEBUG <> 0 THEN
6648: oe_debug_pub.add('create_cto_item_demand: ' || 'Line_id ='||to_char(myrec.line_id),2);
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6653: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting sourcing flag..',2);
6646:
6647: IF PG_DEBUG <> 0 THEN
6648: oe_debug_pub.add('create_cto_item_demand: ' || 'Line_id ='||to_char(myrec.line_id),2);
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6653: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting sourcing flag..',2);
6654: END IF;
6647: IF PG_DEBUG <> 0 THEN
6648: oe_debug_pub.add('create_cto_item_demand: ' || 'Line_id ='||to_char(myrec.line_id),2);
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6653: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting sourcing flag..',2);
6654: END IF;
6655:
6648: oe_debug_pub.add('create_cto_item_demand: ' || 'Line_id ='||to_char(myrec.line_id),2);
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6653: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting sourcing flag..',2);
6654: END IF;
6655:
6656: is_item_sourced(myrec.inventory_item_id,
6649: oe_debug_pub.add('create_cto_item_demand: ' || 'Header_id ='||to_char(myrec.header_id),2);
6650: oe_debug_pub.add('create_cto_item_demand: ' || 'inventory_item_id ='||to_char(myrec.inventory_item_id),2);
6651: oe_debug_pub.add('create_cto_item_demand: ' || 'Ship_from_org_id ='||to_char(myrec.ship_from_org_id),2);
6652: oe_debug_pub.add('create_cto_item_demand: ' || 'Ordered_qty ='||to_char(myrec.ordered_quantity),2);
6653: oe_debug_pub.add('create_cto_item_demand: ' || 'Before getting sourcing flag..',2);
6654: END IF;
6655:
6656: is_item_sourced(myrec.inventory_item_id,
6657: myrec.ship_from_org_id,
6661: x_msg_data);
6662:
6663: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6664: IF PG_DEBUG <> 0 THEN
6665: oe_debug_pub.add('create_cto_item_demand: ' || 'Exp Error in is_item_sourced procedure for the item_id'
6666: ||to_char(myrec.inventory_item_id)
6667: ||' and org id...'||to_char(myrec.ship_from_org_id)
6668: ,1);
6669: END IF;
6669: END IF;
6670: raise FND_API.G_EXC_ERROR;
6671: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6672: IF PG_DEBUG <> 0 THEN
6673: oe_debug_pub.add('create_cto_item_demand: ' || 'Unexp Error in is_item_sourced procedure for the item_id'
6674: ||to_char(myrec.inventory_item_id)
6675: ||' and org id...'||to_char(myrec.ship_from_org_id)
6676: ,1);
6677: END IF;
6678: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6679: END IF;
6680:
6681: IF PG_DEBUG <> 0 THEN
6682: oe_debug_pub.add('create_cto_item_demand: ' || 'Source_flag = '||l_source_flag,2);
6683: END IF;
6684:
6685: -- If the line is not fully cancelled and this Ato item is sourced
6686: -- THEN demand will be exploded in the Bcod table...
6690: -- Insert the Configuration line into the demand table.....
6691: lStmtNum := 40;
6692:
6693: IF PG_DEBUG <> 0 THEN
6694: oe_debug_pub.add('create_cto_item_demand: ' || 'Inserting Config line info into bcod...',2);
6695: END IF;
6696:
6697: INSERT INTO
6698: BOM_CTO_ORDER_DEMAND(
6738: Store the model,option class and option item demands */
6739: lStmtNum := 50;
6740:
6741: IF PG_DEBUG <> 0 THEN
6742: oe_debug_pub.add('create_cto_item_demand: ' || 'Calling ato_item_exp procedure...',2);
6743: END IF;
6744:
6745: ato_item_exp(myrec.inventory_item_id,
6746: myrec.ship_from_org_id,
6753: x_msg_data);
6754:
6755: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6756: IF PG_DEBUG <> 0 THEN
6757: oe_debug_pub.add('create_cto_item_demand: ' || 'Exp Error in ato_item_exp procedure for the item_id'
6758: ||to_char(myrec.inventory_item_id)
6759: ||' and org id...'||to_char(myrec.ship_from_org_id)
6760: ||'and line_id = '||to_char(myrec.line_id),1);
6761: END IF;
6761: END IF;
6762: raise FND_API.G_EXC_ERROR;
6763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6764: IF PG_DEBUG <> 0 THEN
6765: oe_debug_pub.add('create_cto_item_demand: ' || 'Unexp Error in ato_item_exp procedure for the item_id'
6766: ||to_char(myrec.inventory_item_id)
6767: ||' and org id...'||to_char(myrec.ship_from_org_id)
6768: ||' and line_id = '||to_char(myrec.line_id),1);
6769: END IF;
6776: EXCEPTION
6777: WHEN FND_API.G_EXC_ERROR THEN
6778: ROLLBACK to create_cto_item_demand_begin;
6779: IF PG_DEBUG <> 0 THEN
6780: oe_debug_pub.add('create_cto_item_demand: ' || ' CREATE_CTO_ITEM_DEMAND :: exp error::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6781: END IF;
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'CREATE_CTO_MODEL_DEMAND');
6784: FND_MSG_PUB.Count_and_get(
6787:
6788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6789: ROLLBACK to create_cto_item_demand_begin;
6790: IF PG_DEBUG <> 0 THEN
6791: oe_debug_pub.add('create_cto_item_demand: ' || ' CREATE_CTO_ITEM_DEMAND :: unexp error::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6792: END IF;
6793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6794: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6795: FND_MSG_PUB.Add_Exc_Msg(
6804:
6805: WHEN OTHERS THEN
6806: ROLLBACK to create_cto_item_demand_begin;
6807: IF PG_DEBUG <> 0 THEN
6808: oe_debug_pub.add('create_cto_item_demand: ' || ' CREATE_CTO_ITEM_DEMAND :: Other error ::'|| to_char(lStmtNum)||'::'||sqlerrm,1);
6809: END IF;
6810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6811: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6812: FND_MSG_PUB.Add_Exc_Msg(
6856: AND mtl.base_item_id is not null;
6857: BEGIN
6858:
6859: IF PG_DEBUG <> 0 THEN
6860: oe_debug_pub.add('ato_item_exp: ' || 'In ato_item_exp module...',1);
6861: oe_debug_pub.add('ato_item_exp: ' || 'p_item_id ='||to_char(p_item_id),2);
6862: oe_debug_pub.add('ato_item_exp: ' || 'P_org_id ='||to_char(p_org_id),2);
6863: oe_debug_pub.add('ato_item_exp: ' || 'Getting the sourcing information....',2);
6864: END IF;
6857: BEGIN
6858:
6859: IF PG_DEBUG <> 0 THEN
6860: oe_debug_pub.add('ato_item_exp: ' || 'In ato_item_exp module...',1);
6861: oe_debug_pub.add('ato_item_exp: ' || 'p_item_id ='||to_char(p_item_id),2);
6862: oe_debug_pub.add('ato_item_exp: ' || 'P_org_id ='||to_char(p_org_id),2);
6863: oe_debug_pub.add('ato_item_exp: ' || 'Getting the sourcing information....',2);
6864: END IF;
6865:
6858:
6859: IF PG_DEBUG <> 0 THEN
6860: oe_debug_pub.add('ato_item_exp: ' || 'In ato_item_exp module...',1);
6861: oe_debug_pub.add('ato_item_exp: ' || 'p_item_id ='||to_char(p_item_id),2);
6862: oe_debug_pub.add('ato_item_exp: ' || 'P_org_id ='||to_char(p_org_id),2);
6863: oe_debug_pub.add('ato_item_exp: ' || 'Getting the sourcing information....',2);
6864: END IF;
6865:
6866: cto_atp_interface_pk.get_model_sourcing_org(p_item_id,
6859: IF PG_DEBUG <> 0 THEN
6860: oe_debug_pub.add('ato_item_exp: ' || 'In ato_item_exp module...',1);
6861: oe_debug_pub.add('ato_item_exp: ' || 'p_item_id ='||to_char(p_item_id),2);
6862: oe_debug_pub.add('ato_item_exp: ' || 'P_org_id ='||to_char(p_org_id),2);
6863: oe_debug_pub.add('ato_item_exp: ' || 'Getting the sourcing information....',2);
6864: END IF;
6865:
6866: cto_atp_interface_pk.get_model_sourcing_org(p_item_id,
6867: p_org_id,
6872: x_ret_status);
6873:
6874: IF x_ret_status = FND_API.G_RET_STS_ERROR THEN
6875: IF PG_DEBUG <> 0 THEN
6876: oe_debug_pub.add('ato_item_exp: ' || 'get_model_sourcing_org returned expected error',1);
6877: END IF;
6878: raise FND_API.G_EXC_ERROR;
6879: ELSIF x_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6880: IF PG_DEBUG <> 0 THEN
6877: END IF;
6878: raise FND_API.G_EXC_ERROR;
6879: ELSIF x_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6880: IF PG_DEBUG <> 0 THEN
6881: oe_debug_pub.add('ato_item_exp: ' || 'Get_model_sourcing_org returned unexpected error',1);
6882: END IF;
6883: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6884: END IF;
6885:
6883: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6884: END IF;
6885:
6886: IF PG_DEBUG <> 0 THEN
6887: oe_debug_pub.add('ato_item_exp: ' || 'Source_flag = '||x_rule_exists,2);
6888: END IF;
6889:
6890: IF x_rule_exists = 'F' THEN
6891: x_source_org := p_org_id;
6901: l_variable_lead_time * p_qty;
6902:
6903: -- Calculate the offset date with CalENDer
6904: IF PG_DEBUG <> 0 THEN
6905: oe_debug_pub.add('ato_item_exp: ' || 'Calculating calendar offset....',2);
6906: END IF;
6907:
6908: -- Bugfix 3189261 : Changing date offset call
6909:
6919: p_req_date,
6920: x_lead_time);
6921:
6922: IF PG_DEBUG <> 0 THEN
6923: oe_debug_pub.add('ato_item_exp: ' || 'Calling Create_demand module...',2);
6924: END IF;
6925:
6926: create_demand(p_item_id,
6927: x_source_org,
6933: x_msg_count,
6934: x_msg_data);
6935:
6936: IF PG_DEBUG <> 0 THEN
6937: oe_debug_pub.add('ato_item_exp: ' || 'After create_demand Module...',2);
6938: END IF;
6939:
6940: FOR myrec IN inven_comp
6941: LOOP
6940: FOR myrec IN inven_comp
6941: LOOP
6942:
6943: IF PG_DEBUG <> 0 THEN
6944: oe_debug_pub.add('ato_item_exp: ' || 'Inside child record loop...',2);
6945: END IF;
6946: ato_item_exp(myrec.component_item_id,
6947: x_source_org,
6948: p_qty*myrec.component_quantity,
7121: v_source_type number;
7122: BEGIN
7123:
7124: IF PG_DEBUG <> 0 THEN
7125: oe_debug_pub.add('is_item_sourced: ' || 'Entering is_item_sourced...',2);
7126: END IF;
7127:
7128: x_source_flag := 'N';
7129:
7127:
7128: x_source_flag := 'N';
7129:
7130: IF PG_DEBUG <> 0 THEN
7131: oe_debug_pub.add('is_item_sourced: ' || 'P_item_id = '||to_char(p_item_id), 4);
7132: oe_debug_pub.add('is_item_sourced: ' || 'p_org_id = '||to_char(p_org_id), 4);
7133: END IF;
7134:
7135: cto_atp_interface_pk.get_model_sourcing_org(p_item_id,
7128: x_source_flag := 'N';
7129:
7130: IF PG_DEBUG <> 0 THEN
7131: oe_debug_pub.add('is_item_sourced: ' || 'P_item_id = '||to_char(p_item_id), 4);
7132: oe_debug_pub.add('is_item_sourced: ' || 'p_org_id = '||to_char(p_org_id), 4);
7133: END IF;
7134:
7135: cto_atp_interface_pk.get_model_sourcing_org(p_item_id,
7136: p_org_id,
7141: x_ret_status);
7142:
7143: IF x_ret_status = FND_API.G_RET_STS_ERROR THEN
7144: IF PG_DEBUG <> 0 THEN
7145: oe_debug_pub.add('is_item_sourced: ' || 'get_model_sourcing_org returned expected error',1);
7146: END IF;
7147: raise FND_API.G_EXC_ERROR;
7148: ELSIF x_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7149: IF PG_DEBUG <> 0 THEN
7146: END IF;
7147: raise FND_API.G_EXC_ERROR;
7148: ELSIF x_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7149: IF PG_DEBUG <> 0 THEN
7150: oe_debug_pub.add('is_item_sourced: ' || 'Get_model_sourcing_org returned unexpected error',1);
7151: END IF;
7152: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7153: END IF;
7154:
7152: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7153: END IF;
7154:
7155: IF PG_DEBUG <> 0 THEN
7156: oe_debug_pub.add('is_item_sourced: ' || 'source_flag ='||x_rule_exists, 4);
7157: END IF;
7158:
7159: IF x_rule_exists = 'T' THEN
7160: x_source_flag := 'Y';
7216:
7217: IF( gMrpAssignmentSet is null )
7218: THEN
7219: IF PG_DEBUG <> 0 THEN
7220: oe_debug_pub.add('initialize_assignment_set: ' || '**$$ Default assignment set is null', 1);
7221: END IF;
7222:
7223: ELSE
7224: IF PG_DEBUG <> 0 THEN
7221: END IF;
7222:
7223: ELSE
7224: IF PG_DEBUG <> 0 THEN
7225: oe_debug_pub.add('initialize_assignment_set: ' || '**Default assignment set is '||to_char(gMrpAssignmentSet),1);
7226: END IF;
7227:
7228: g_stmt_num := 10 ;
7229:
7235:
7236: EXCEPTION
7237: WHEN no_data_found THEN
7238: IF PG_DEBUG <> 0 THEN
7239: oe_debug_pub.add('initialize_assignment_set: ' || '**The assignment set pointed by the profile MRP_DEFAULT_ASSIGNMENT_SET does not exist in the database ' ,1);
7240: END IF;
7241:
7242: RAISE INVALID_MRP_ASSIGNMENT_SET ;
7243:
7245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
7246: END ;
7247:
7248: IF PG_DEBUG <> 0 THEN
7249: oe_debug_pub.add('initialize_assignment_set: ' || 'Default assignment set name is '|| gMrpAssignmentSetName ,1);
7250: END IF;
7251: END IF;
7252:
7253: EXCEPTION
7254: WHEN INVALID_MRP_ASSIGNMENT_SET THEN
7255: x_return_status := FND_API.G_RET_STS_ERROR;
7256:
7257: IF PG_DEBUG <> 0 THEN
7258: oe_debug_pub.add('initialize_assignment_set: ' || 'INITIALIZE_ASSIGNMENT_SET::INVALID ASSIGNMENT SET ::'||to_char(g_stmt_num)||'::'||sqlerrm,1);
7259: END IF;
7260:
7261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7260:
7261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7263: IF PG_DEBUG <> 0 THEN
7264: oe_debug_pub.add('initialize_assignment_set: ' || 'INITIALIZE_ASSIGNMENT_SET::unexp error::'||to_char(g_stmt_num)||'::'||sqlerrm,1);
7265: END IF;
7266:
7267: WHEN OTHERS THEN
7268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7266:
7267: WHEN OTHERS THEN
7268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7269: IF PG_DEBUG <> 0 THEN
7270: oe_debug_pub.add('initialize_assignment_set: ' || 'INITIALIZE_ASSIGNMENT_SET::others::'||to_char(g_stmt_num)||'::'||sqlerrm,1);
7271: END IF;
7272:
7273: END initialize_assignment_set ;
7274: