[Home] [Help]
78: --| change of signature. Also added the where |
79: --| clause condition "pha.approved_flag = 'Y'" to |
80: --| the query of the c_avail_replen_po_cur cursor |
81: --| in the Get_Available_Replenishment_Po procedure |
82: --| 26-OCT-2005 vchu Replaced dbms_output calls with FND_LOG calls. |
83: --| Also modified the value to populate into the |
84: --| TP_SUPPLIER_ID and TP_SUPPLIER_SITE_ID columns |
85: --| of the JMF_SHIKYU_REPLENISHMENTS table for |
86: --| fixing the wrong value issue of the |
93: --| Get_Available_Replenishment_So procedure, in |
94: --| order to find available replenishment SOs to |
95: --| fulfill Subcontracting Orders with WIP jobs for |
96: --| which the scheduled completion date has passed. |
97: --| Also added additional FND Log messages to the |
98: --| Create_New_Allocations procedure. |
99: --| 18-NOV-2005 vchu Added the condition NVL(cancel_flag, 'N') = 'N' |
100: --| to the where clause of c_avail_replen_po_cur |
101: --| (for PO Header, Line and Line Location levels) |
421: l_qty_to_allocate := l_replen_allocable_primary_qty - l_replen_allocated_primary_qty;
422: END IF; /* IF l_replen_allocable_primary_qty - l_replen_allocated_primary_qty < p_qty_to_allocate */
423:
424: IF (g_fnd_debug = 'Y' AND
425: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
426: THEN
427: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
428: , G_MODULE_PREFIX || l_api_name
429: , l_api_name|| ': l_qty_to_allocate = ' || l_qty_to_allocate);
423:
424: IF (g_fnd_debug = 'Y' AND
425: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
426: THEN
427: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
428: , G_MODULE_PREFIX || l_api_name
429: , l_api_name|| ': l_qty_to_allocate = ' || l_qty_to_allocate);
430: END IF;
431:
581: last_update_login = FND_GLOBAL.login_id
582: WHERE replenishment_so_line_id = p_replen_so_line_id;
583:
584: IF (g_fnd_debug = 'Y' AND
585: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
586: THEN
587: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
588: , G_MODULE_PREFIX || l_api_name
589: , l_api_name || ': l_replen_allocated_primary_qty = ' || l_replen_allocated_primary_qty);
583:
584: IF (g_fnd_debug = 'Y' AND
585: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
586: THEN
587: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
588: , G_MODULE_PREFIX || l_api_name
589: , l_api_name || ': l_replen_allocated_primary_qty = ' || l_replen_allocated_primary_qty);
590: END IF;
591:
589: , l_api_name || ': l_replen_allocated_primary_qty = ' || l_replen_allocated_primary_qty);
590: END IF;
591:
592: IF (g_fnd_debug = 'Y' AND
593: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
594: THEN
595: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
596: , G_MODULE_PREFIX || l_api_name || '.end'
597: , l_api_name || ' Exit');
591:
592: IF (g_fnd_debug = 'Y' AND
593: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
594: THEN
595: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
596: , G_MODULE_PREFIX || l_api_name || '.end'
597: , l_api_name || ' Exit');
598: END IF;
599:
602:
603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: IF g_fnd_debug = 'Y' AND
606: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
607: THEN
608: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
609: , G_MODULE_PREFIX || l_api_name || '.g_replen_so_line_not_exist'
610: , 'Sales Order with ID ' || p_replen_so_line_id ||
604:
605: IF g_fnd_debug = 'Y' AND
606: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
607: THEN
608: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
609: , G_MODULE_PREFIX || l_api_name || '.g_replen_so_line_not_exist'
610: , 'Sales Order with ID ' || p_replen_so_line_id ||
611: ' not in JMF_SHIKYU_REPLENISHMENTS table');
612: END IF;
615:
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
617:
618: IF g_fnd_debug = 'Y' AND
619: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
620: THEN
621:
622: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
623: , G_MODULE_PREFIX || l_api_name || '.others_exception'
618: IF g_fnd_debug = 'Y' AND
619: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
620: THEN
621:
622: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
623: , G_MODULE_PREFIX || l_api_name || '.others_exception'
624: , sqlerrm);
625: END IF;
626:
744:
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746:
747: IF g_fnd_debug = 'Y' AND
748: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
749: THEN
750:
751: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
752: , G_MODULE_PREFIX || l_api_name || '.others_exception'
747: IF g_fnd_debug = 'Y' AND
748: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
749: THEN
750:
751: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
752: , G_MODULE_PREFIX || l_api_name || '.others_exception'
753: , sqlerrm);
754: END IF;
755:
938: FETCH c_wip_date_cur
939: INTO l_wip_job_start_date, l_wip_job_complete_date;
940:
941: IF (g_fnd_debug = 'Y' AND
942: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
943: THEN
944: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
945: , G_MODULE_PREFIX || l_api_name
946: , l_api_name || ': l_wip_job_start_date = '|| l_wip_job_start_date
940:
941: IF (g_fnd_debug = 'Y' AND
942: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
943: THEN
944: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
945: , G_MODULE_PREFIX || l_api_name
946: , l_api_name || ': l_wip_job_start_date = '|| l_wip_job_start_date
947: || ', l_wip_job_complete_date = ' || l_wip_job_complete_date);
948: END IF;
976:
977: END IF; /* NVL(p_arrived_so_lines_only, 'N') = 'N' */
978:
979: IF (g_fnd_debug = 'Y' AND
980: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
981: THEN
982: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
983: , G_MODULE_PREFIX || l_api_name
984: , l_api_name || ': l_threshold_date = '|| l_threshold_date);
978:
979: IF (g_fnd_debug = 'Y' AND
980: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
981: THEN
982: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
983: , G_MODULE_PREFIX || l_api_name
984: , l_api_name || ': l_threshold_date = '|| l_threshold_date);
985: END IF;
986:
989: OPEN c_ship_lead_time_cur;
990: FETCH c_ship_lead_time_cur INTO l_ship_lead_time, l_oem_organization_id, l_tp_organization_id;
991:
992: IF (g_fnd_debug = 'Y' AND
993: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
994: THEN
995: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
996: , G_MODULE_PREFIX || l_api_name
997: , l_api_name || ': l_ship_lead_time = ' || l_ship_lead_time);
991:
992: IF (g_fnd_debug = 'Y' AND
993: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
994: THEN
995: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
996: , G_MODULE_PREFIX || l_api_name
997: , l_api_name || ': l_ship_lead_time = ' || l_ship_lead_time);
998: END IF;
999:
1004: /* Log the error in the Concurrent Request log */
1005: BEGIN
1006:
1007: IF (g_fnd_debug = 'Y' AND
1008: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1009: THEN
1010: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1011: , G_MODULE_PREFIX || l_api_name
1012: , 'oem_organization_id '||l_oem_organization_id);
1006:
1007: IF (g_fnd_debug = 'Y' AND
1008: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1009: THEN
1010: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1011: , G_MODULE_PREFIX || l_api_name
1012: , 'oem_organization_id '||l_oem_organization_id);
1013:
1014: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1010: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1011: , G_MODULE_PREFIX || l_api_name
1012: , 'oem_organization_id '||l_oem_organization_id);
1013:
1014: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1015: , G_MODULE_PREFIX || l_api_name
1016: , 'tp_organization_id '||l_tp_organization_id);
1017: END IF;
1018:
1039: l_status_flag := FND_CONCURRENT.set_completion_status('WARNING',NULL);
1040: EXCEPTION
1041: WHEN OTHERS THEN
1042: IF (g_fnd_debug = 'Y' AND
1043: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1044: THEN
1045:
1046: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1047: , G_MODULE_PREFIX || l_api_name
1042: IF (g_fnd_debug = 'Y' AND
1043: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1044: THEN
1045:
1046: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1047: , G_MODULE_PREFIX || l_api_name
1048: , 'Error in set status of ship method '||SQLERRM);
1049: END IF;
1050: NULL; -- Return null if there is an error in fetching the message
1079:
1080: l_avail_replen_so_rec := l_avail_replen_so_tbl(l_tbl_index);
1081:
1082: IF (g_fnd_debug = 'Y' AND
1083: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1084: THEN
1085: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1086: , G_MODULE_PREFIX || l_api_name
1087: , l_api_name || ': Loop iteration ' || l_out_tbl_index
1081:
1082: IF (g_fnd_debug = 'Y' AND
1083: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1084: THEN
1085: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1086: , G_MODULE_PREFIX || l_api_name
1087: , l_api_name || ': Loop iteration ' || l_out_tbl_index
1088: || ': Replenishment SO Line ID = '
1089: || l_avail_replen_so_rec.replenishment_so_line_id);
1102: )
1103: THEN
1104:
1105: IF (g_fnd_debug = 'Y' AND
1106: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1107: THEN
1108: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1109: , G_MODULE_PREFIX || l_api_name
1110: , l_api_name || ': Validation of Price and Project/Task passed');
1104:
1105: IF (g_fnd_debug = 'Y' AND
1106: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1107: THEN
1108: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1109: , G_MODULE_PREFIX || l_api_name
1110: , l_api_name || ': Validation of Price and Project/Task passed');
1111: END IF;
1112:
1122:
1123: END IF; /* IF l_avail_replen_so_tbl.COUNT > 0 */
1124:
1125: IF (g_fnd_debug = 'Y' AND
1126: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1127: THEN
1128: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1129: , G_MODULE_PREFIX || l_api_name
1130: , l_api_name || ': l_remaining_qty = '|| l_remaining_qty);
1124:
1125: IF (g_fnd_debug = 'Y' AND
1126: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1127: THEN
1128: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1129: , G_MODULE_PREFIX || l_api_name
1130: , l_api_name || ': l_remaining_qty = '|| l_remaining_qty);
1131: END IF;
1132:
1139:
1140: CLOSE c_avail_replen_so_cur;
1141:
1142: IF (g_fnd_debug = 'Y' AND
1143: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1144: THEN
1145: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1146: , G_MODULE_PREFIX || l_api_name || '.end'
1147: , l_api_name || ' Exit');
1141:
1142: IF (g_fnd_debug = 'Y' AND
1143: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1144: THEN
1145: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1146: , G_MODULE_PREFIX || l_api_name || '.end'
1147: , l_api_name || ' Exit');
1148: END IF;
1149:
1152: WHEN g_no_wip_job_found_exc THEN
1153:
1154: x_return_status := FND_API.G_RET_STS_ERROR;
1155: IF g_fnd_debug = 'Y' AND
1156: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1157: THEN
1158: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1159: , G_MODULE_PREFIX || l_api_name || '.g_no_wip_job_found_excc'
1160: , 'No WIP Job found for Subcontracting Order Shipment with ID = '
1154: x_return_status := FND_API.G_RET_STS_ERROR;
1155: IF g_fnd_debug = 'Y' AND
1156: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1157: THEN
1158: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1159: , G_MODULE_PREFIX || l_api_name || '.g_no_wip_job_found_excc'
1160: , 'No WIP Job found for Subcontracting Order Shipment with ID = '
1161: || p_subcontract_po_shipment_id);
1162: END IF;
1164: WHEN g_no_ship_method_found_exc THEN
1165:
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: IF g_fnd_debug = 'Y' AND
1168: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1169: THEN
1170: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1171: , G_MODULE_PREFIX || l_api_name || '.g_no_ship_method_found_exc'
1172: , 'Cannot get Shipping Lead Time from the Shipping Network from '
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: IF g_fnd_debug = 'Y' AND
1168: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1169: THEN
1170: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1171: , G_MODULE_PREFIX || l_api_name || '.g_no_ship_method_found_exc'
1172: , 'Cannot get Shipping Lead Time from the Shipping Network from '
1173: || 'the OEM Org to the TP Org');
1174: END IF;
1177:
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179:
1180: IF g_fnd_debug = 'Y' AND
1181: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1182: THEN
1183:
1184: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1185: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1180: IF g_fnd_debug = 'Y' AND
1181: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1182: THEN
1183:
1184: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1185: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1186: , sqlerrm);
1187: END IF;
1188:
1318: , x_tp_organization_id => l_tp_organization_id
1319: );
1320:
1321: IF (g_fnd_debug = 'Y' AND
1322: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1323: THEN
1324: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1325: , G_MODULE_PREFIX || l_api_name
1326: , l_api_name || ': l_oem_organization_id = ' || l_oem_organization_id
1320:
1321: IF (g_fnd_debug = 'Y' AND
1322: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1323: THEN
1324: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1325: , G_MODULE_PREFIX || l_api_name
1326: , l_api_name || ': l_oem_organization_id = ' || l_oem_organization_id
1327: || ', l_tp_organization_id = ' || l_tp_organization_id);
1328: END IF;
1333: , p_organization_id => l_oem_organization_id
1334: );
1335:
1336: IF (g_fnd_debug = 'Y' AND
1337: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1338: THEN
1339: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1340: , G_MODULE_PREFIX || l_api_name
1341: , l_api_name || ': l_primary_uom = ' || l_primary_uom);
1335:
1336: IF (g_fnd_debug = 'Y' AND
1337: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1338: THEN
1339: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1340: , G_MODULE_PREFIX || l_api_name
1341: , l_api_name || ': l_primary_uom = ' || l_primary_uom);
1342: END IF;
1343:
1362: l_uom_rate := NULL;
1363: l_avail_replen_po_rec := l_avail_replen_po_tbl(l_tbl_index);
1364:
1365: IF (g_fnd_debug = 'Y' AND
1366: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1367: THEN
1368: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1369: , G_MODULE_PREFIX || l_api_name
1370: , l_api_name || ': Loop iteration: ' || l_tbl_index
1364:
1365: IF (g_fnd_debug = 'Y' AND
1366: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1367: THEN
1368: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1369: , G_MODULE_PREFIX || l_api_name
1370: , l_api_name || ': Loop iteration: ' || l_tbl_index
1371: || ', l_primary_uom = ' || l_primary_uom
1372: || ', l_avail_replen_po_rec.uom = ' || l_avail_replen_po_rec.uom);
1391:
1392: END IF; /* IF l_primary_uom <> l_avail_replen_po_rec.uom */
1393:
1394: IF (g_fnd_debug = 'Y' AND
1395: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1396: THEN
1397: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1398: , G_MODULE_PREFIX || l_api_name
1399: , l_api_name || ': replenishment_po_shipment_id = '
1393:
1394: IF (g_fnd_debug = 'Y' AND
1395: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1396: THEN
1397: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1398: , G_MODULE_PREFIX || l_api_name
1399: , l_api_name || ': replenishment_po_shipment_id = '
1400: || l_avail_replen_po_rec.replenishment_po_shipment_id
1401: || ', qty = ' || l_avail_replen_po_rec.qty
1420: x_remaining_qty := l_remaining_qty;
1421: END IF; /* IF l_remaining_qty < 0 */
1422:
1423: IF (g_fnd_debug = 'Y' AND
1424: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1425: THEN
1426: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1427: , G_MODULE_PREFIX || l_api_name
1428: , l_api_name || ': x_remaining_qty = ' || x_remaining_qty);
1422:
1423: IF (g_fnd_debug = 'Y' AND
1424: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1425: THEN
1426: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1427: , G_MODULE_PREFIX || l_api_name
1428: , l_api_name || ': x_remaining_qty = ' || x_remaining_qty);
1429: END IF;
1430:
1430:
1431: CLOSE c_avail_replen_po_cur;
1432:
1433: IF (g_fnd_debug = 'Y' AND
1434: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1435: THEN
1436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1437: , G_MODULE_PREFIX || l_api_name || '.end'
1438: , l_api_name || ' Exit');
1432:
1433: IF (g_fnd_debug = 'Y' AND
1434: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1435: THEN
1436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1437: , G_MODULE_PREFIX || l_api_name || '.end'
1438: , l_api_name || ' Exit');
1439: END IF;
1440:
1444:
1445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1446:
1447: IF g_fnd_debug = 'Y' AND
1448: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1449: THEN
1450:
1451: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1452: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1447: IF g_fnd_debug = 'Y' AND
1448: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1449: THEN
1450:
1451: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1452: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1453: , sqlerrm);
1454: END IF;
1455:
1525: , x_return_status => x_return_status
1526: );
1527:
1528: IF (g_fnd_debug = 'Y' AND
1529: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1530: THEN
1531: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1532: , G_MODULE_PREFIX || l_api_name
1533: , l_api_name || ': x_return_status from JMF_SHIKYU_PO_PVT.Process_Replenishment_PO = '
1527:
1528: IF (g_fnd_debug = 'Y' AND
1529: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1530: THEN
1531: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1532: , G_MODULE_PREFIX || l_api_name
1533: , l_api_name || ': x_return_status from JMF_SHIKYU_PO_PVT.Process_Replenishment_PO = '
1534: || x_return_status
1535: || ', x_po_line_location_id = ' || l_new_replen_po_shipment_id);
1556: , x_primary_uom_price => l_primary_uom_price
1557: );
1558:
1559: IF (g_fnd_debug = 'Y' AND
1560: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1561: THEN
1562: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1563: , G_MODULE_PREFIX || l_api_name
1564: , l_api_name || ': l_component_uom = ' || l_component_uom
1558:
1559: IF (g_fnd_debug = 'Y' AND
1560: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1561: THEN
1562: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1563: , G_MODULE_PREFIX || l_api_name
1564: , l_api_name || ': l_component_uom = ' || l_component_uom
1565: || ', l_component_price = ' || l_component_price
1566: || ', l_primary_uom = ' || l_primary_uom
1592: , x_tp_organization_id => l_tp_organization_id
1593: );
1594:
1595: IF (g_fnd_debug = 'Y' AND
1596: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1597: THEN
1598: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1599: , G_MODULE_PREFIX || l_api_name
1600: , l_api_name || ': l_new_replen_qty = ' || l_new_replen_qty);
1594:
1595: IF (g_fnd_debug = 'Y' AND
1596: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1597: THEN
1598: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1599: , G_MODULE_PREFIX || l_api_name
1600: , l_api_name || ': l_new_replen_qty = ' || l_new_replen_qty);
1601: END IF;
1602:
1613: , x_return_status => x_return_status
1614: );
1615:
1616: IF (g_fnd_debug = 'Y' AND
1617: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1618: THEN
1619: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1620: , G_MODULE_PREFIX || l_api_name
1621: , l_api_name || ': x_return_status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1615:
1616: IF (g_fnd_debug = 'Y' AND
1617: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1618: THEN
1619: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1620: , G_MODULE_PREFIX || l_api_name
1621: , l_api_name || ': x_return_status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1622: || x_return_status);
1623: END IF;
1654:
1655: END IF;
1656:
1657: IF (g_fnd_debug = 'Y' AND
1658: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1659: THEN
1660: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1661: , G_MODULE_PREFIX || l_api_name || '.end'
1662: , l_api_name || ' Exit');
1656:
1657: IF (g_fnd_debug = 'Y' AND
1658: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1659: THEN
1660: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1661: , G_MODULE_PREFIX || l_api_name || '.end'
1662: , l_api_name || ' Exit');
1663: END IF;
1664:
1665: EXCEPTION
1666: WHEN g_process_replen_po_exc THEN
1667:
1668: IF g_fnd_debug = 'Y' AND
1669: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1670: THEN
1671: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1672: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_po_exc'
1673: , 'Process_Replenishment_PO API returns a status of ' || x_return_status);
1667:
1668: IF g_fnd_debug = 'Y' AND
1669: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1670: THEN
1671: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1672: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_po_exc'
1673: , 'Process_Replenishment_PO API returns a status of ' || x_return_status);
1674: END IF;
1675:
1675:
1676: WHEN g_process_replen_so_exc THEN
1677:
1678: IF g_fnd_debug = 'Y' AND
1679: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1680: THEN
1681: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1682: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1683: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1677:
1678: IF g_fnd_debug = 'Y' AND
1679: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1680: THEN
1681: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1682: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1683: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1684: END IF;
1685:
1687:
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689:
1690: IF g_fnd_debug = 'Y' AND
1691: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1692: THEN
1693:
1694: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1695: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1690: IF g_fnd_debug = 'Y' AND
1691: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1692: THEN
1693:
1694: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1695: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1696: , sqlerrm);
1697: END IF;
1698:
1816: l_replen_po_primary_qty := l_replen_po_rec.primary_uom_qty;
1817: l_replen_po_qty := l_replen_po_rec.qty;
1818:
1819: IF (g_fnd_debug = 'Y' AND
1820: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1821: THEN
1822: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1823: , G_MODULE_PREFIX || l_api_name
1824: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1818:
1819: IF (g_fnd_debug = 'Y' AND
1820: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1821: THEN
1822: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1823: , G_MODULE_PREFIX || l_api_name
1824: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1825: || ': l_replen_po_rec.replenishment_po_shipment_id = '
1826: || l_replen_po_rec.replenishment_po_shipment_id);
1872:
1873: END IF; /* IF(l_replen_po_rec.uom <> l_component_uom) */
1874:
1875: IF (g_fnd_debug = 'Y' AND
1876: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1877: THEN
1878: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1879: , G_MODULE_PREFIX || l_api_name
1880: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1874:
1875: IF (g_fnd_debug = 'Y' AND
1876: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1877: THEN
1878: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1879: , G_MODULE_PREFIX || l_api_name
1880: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1881: || ', l_component_uom = ' || l_component_uom
1882: || ', l_primary_uom = ' || l_primary_uom
1906: END IF;
1907: -- *** vchu end: new code 8/18
1908:
1909: IF (g_fnd_debug = 'Y' AND
1910: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1911: THEN
1912: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1913: , G_MODULE_PREFIX || l_api_name
1914: , l_api_name || ': return status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1908:
1909: IF (g_fnd_debug = 'Y' AND
1910: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1911: THEN
1912: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1913: , G_MODULE_PREFIX || l_api_name
1914: , l_api_name || ': return status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1915: || x_return_status);
1916: END IF;
1915: || x_return_status);
1916: END IF;
1917:
1918: IF (g_fnd_debug = 'Y' AND
1919: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1920: THEN
1921: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1922: , G_MODULE_PREFIX || l_api_name
1923: , l_api_name || ': l_replen_po_rec.replenishment_po_shipment_id = '
1917:
1918: IF (g_fnd_debug = 'Y' AND
1919: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1920: THEN
1921: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1922: , G_MODULE_PREFIX || l_api_name
1923: , l_api_name || ': l_replen_po_rec.replenishment_po_shipment_id = '
1924: || l_replen_po_rec.replenishment_po_shipment_id || ', l_new_order_line_id = '
1925: || l_new_order_line_id);
1946: x_new_replen_tbl(l_replen_so_tbl_index).primary_uom_qty := l_new_replen_primary_qty;
1947: x_new_replen_tbl(l_replen_so_tbl_index).primary_uom := l_primary_uom;
1948:
1949: IF (g_fnd_debug = 'Y' AND
1950: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1951: THEN
1952: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1953: , G_MODULE_PREFIX || l_api_name
1954: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).qty = '
1948:
1949: IF (g_fnd_debug = 'Y' AND
1950: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1951: THEN
1952: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1953: , G_MODULE_PREFIX || l_api_name
1954: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).qty = '
1955: || x_new_replen_tbl(l_replen_so_tbl_index).qty);
1956: END IF;
1955: || x_new_replen_tbl(l_replen_so_tbl_index).qty);
1956: END IF;
1957:
1958: IF (g_fnd_debug = 'Y' AND
1959: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1960: THEN
1961: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1962: , G_MODULE_PREFIX || l_api_name
1963: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).uom = '
1957:
1958: IF (g_fnd_debug = 'Y' AND
1959: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1960: THEN
1961: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1962: , G_MODULE_PREFIX || l_api_name
1963: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).uom = '
1964: || x_new_replen_tbl(l_replen_so_tbl_index).uom);
1965: END IF;
1975:
1976: END IF; /* IF l_avail_replen_po_tbl.COUNT > 0 */
1977:
1978: IF (g_fnd_debug = 'Y' AND
1979: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1980: THEN
1981: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1982: , G_MODULE_PREFIX || l_api_name || '.end'
1983: , l_api_name || ' Exit');
1977:
1978: IF (g_fnd_debug = 'Y' AND
1979: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1980: THEN
1981: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1982: , G_MODULE_PREFIX || l_api_name || '.end'
1983: , l_api_name || ' Exit');
1984: END IF;
1985:
1986: EXCEPTION
1987: WHEN g_process_replen_so_exc THEN
1988:
1989: IF g_fnd_debug = 'Y' AND
1990: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1991: THEN
1992: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1993: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1994: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1988:
1989: IF g_fnd_debug = 'Y' AND
1990: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1991: THEN
1992: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1993: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1994: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1995: END IF;
1996:
1998:
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2000:
2001: IF g_fnd_debug = 'Y' AND
2002: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2003: THEN
2004:
2005: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2006: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2001: IF g_fnd_debug = 'Y' AND
2002: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2003: THEN
2004:
2005: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2006: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2007: , sqlerrm);
2008: END IF;
2009:
2069: , x_return_status => x_return_status
2070: );
2071:
2072: IF (g_fnd_debug = 'Y' AND
2073: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2074: THEN
2075: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2076: , G_MODULE_PREFIX || l_api_name
2077: , 'Begin');
2071:
2072: IF (g_fnd_debug = 'Y' AND
2073: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2074: THEN
2075: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2076: , G_MODULE_PREFIX || l_api_name
2077: , 'Begin');
2078: END IF;
2079:
2087: AND msib.inventory_item_id = p_component_id
2088: AND msib.organization_id = jso.tp_organization_id;
2089:
2090: IF (g_fnd_debug = 'Y' AND
2091: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2092: THEN
2093: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2094: , G_MODULE_PREFIX || l_api_name
2095: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2089:
2090: IF (g_fnd_debug = 'Y' AND
2091: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2092: THEN
2093: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2094: , G_MODULE_PREFIX || l_api_name
2095: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2096:
2097: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2093: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2094: , G_MODULE_PREFIX || l_api_name
2095: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2096:
2097: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2098: , G_MODULE_PREFIX || l_api_name
2099: , l_api_name || ': p_component_id = '|| p_component_id
2100: || ', p_qty = ' || p_qty );
2101:
2105: IF l_subcontracting_component = 1
2106: THEN
2107:
2108: IF (g_fnd_debug = 'Y' AND
2109: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2110: THEN
2111: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2112: , G_MODULE_PREFIX || l_api_name
2113: , l_api_name || ': in Pre-Positioned case');
2107:
2108: IF (g_fnd_debug = 'Y' AND
2109: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2110: THEN
2111: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2112: , G_MODULE_PREFIX || l_api_name
2113: , l_api_name || ': in Pre-Positioned case');
2114: END IF;
2115:
2128: ELSIF l_subcontracting_component = 2
2129: THEN
2130:
2131: IF (g_fnd_debug = 'Y' AND
2132: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2133: THEN
2134: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2135: , G_MODULE_PREFIX || l_api_name
2136: , l_api_name || ': in Sync-ship case');
2130:
2131: IF (g_fnd_debug = 'Y' AND
2132: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2133: THEN
2134: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2135: , G_MODULE_PREFIX || l_api_name
2136: , l_api_name || ': in Sync-ship case');
2137: END IF;
2138:
2154:
2155: END IF; /* IF l_subcontracting_component = 1 */
2156:
2157: IF (g_fnd_debug = 'Y' AND
2158: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2159: THEN
2160: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2161: , G_MODULE_PREFIX || l_api_name || '.end'
2162: , l_api_name || ' Exit');
2156:
2157: IF (g_fnd_debug = 'Y' AND
2158: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2159: THEN
2160: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2161: , G_MODULE_PREFIX || l_api_name || '.end'
2162: , l_api_name || ' Exit');
2163: END IF;
2164:
2167: WHEN NO_DATA_FOUND THEN
2168:
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: IF g_fnd_debug = 'Y' AND
2171: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2172: THEN
2173: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2174: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
2175: , 'Subcontracting Order Shipment ID' || p_subcontract_po_shipment_id ||
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: IF g_fnd_debug = 'Y' AND
2171: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2172: THEN
2173: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2174: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
2175: , 'Subcontracting Order Shipment ID' || p_subcontract_po_shipment_id ||
2176: ' or Component ID ' || p_component_id || ' does not exist');
2177: END IF;
2179: WHEN g_non_shikyu_component_exc THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_ERROR;
2182: IF g_fnd_debug = 'Y' AND
2183: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2184: THEN
2185: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2186: , G_MODULE_PREFIX || l_api_name || '.g_non_shikyu_component_exc'
2187: , 'The component to allocate is not Sync-ship or Pre-Positioned');
2181: x_return_status := FND_API.G_RET_STS_ERROR;
2182: IF g_fnd_debug = 'Y' AND
2183: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2184: THEN
2185: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2186: , G_MODULE_PREFIX || l_api_name || '.g_non_shikyu_component_exc'
2187: , 'The component to allocate is not Sync-ship or Pre-Positioned');
2188: END IF;
2189:
2191:
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193:
2194: IF g_fnd_debug = 'Y' AND
2195: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2196: THEN
2197:
2198: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2199: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2194: IF g_fnd_debug = 'Y' AND
2195: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2196: THEN
2197:
2198: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2199: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2200: , sqlerrm);
2201: END IF;
2202:
2268: , x_remaining_qty => l_remaining_qty
2269: );
2270:
2271: IF (g_fnd_debug = 'Y' AND
2272: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2273: THEN
2274: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2275: , G_MODULE_PREFIX || l_api_name
2276: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty);
2270:
2271: IF (g_fnd_debug = 'Y' AND
2272: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2273: THEN
2274: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2275: , G_MODULE_PREFIX || l_api_name
2276: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty);
2277: END IF;
2278:
2299: END IF;
2300: -- *** vchu end: new code 8/18
2301:
2302: IF (g_fnd_debug = 'Y' AND
2303: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2304: THEN
2305: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2306: , G_MODULE_PREFIX || l_api_name
2307: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated);
2301:
2302: IF (g_fnd_debug = 'Y' AND
2303: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2304: THEN
2305: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2306: , G_MODULE_PREFIX || l_api_name
2307: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated);
2308: END IF;
2309:
2326: , x_new_replen_tbl => l_available_replen_tbl
2327: );
2328:
2329: IF (g_fnd_debug = 'Y' AND
2330: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2331: THEN
2332: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2333: , G_MODULE_PREFIX || l_api_name
2334: , l_api_name || ': return status from Create_New_Replenishment_So = '
2328:
2329: IF (g_fnd_debug = 'Y' AND
2330: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2331: THEN
2332: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2333: , G_MODULE_PREFIX || l_api_name
2334: , l_api_name || ': return status from Create_New_Replenishment_So = '
2335: || x_return_status);
2336: END IF;
2397:
2398:
2399:
2400: IF (g_fnd_debug = 'Y' AND
2401: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2402: THEN
2403: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2404: , G_MODULE_PREFIX || l_api_name || '.end'
2405: , l_api_name || ' Exit');
2399:
2400: IF (g_fnd_debug = 'Y' AND
2401: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2402: THEN
2403: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2404: , G_MODULE_PREFIX || l_api_name || '.end'
2405: , l_api_name || ' Exit');
2406: END IF;
2407:
2411:
2412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413:
2414: IF g_fnd_debug = 'Y' AND
2415: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2416: THEN
2417:
2418: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2419: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2414: IF g_fnd_debug = 'Y' AND
2415: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2416: THEN
2417:
2418: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2419: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2420: , sqlerrm);
2421: END IF;
2422:
2473: , x_return_status => x_return_status
2474: );
2475:
2476: IF (g_fnd_debug = 'Y' AND
2477: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2478: THEN
2479: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2480: , G_MODULE_PREFIX || l_api_name
2481: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
2475:
2476: IF (g_fnd_debug = 'Y' AND
2477: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2478: THEN
2479: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2480: , G_MODULE_PREFIX || l_api_name
2481: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
2482: || ', p_component_id = ' || p_component_id
2483: || ', p_qty = ' || p_qty
2504: IF l_remaining_qty < p_qty
2505: THEN
2506:
2507: IF (g_fnd_debug = 'Y' AND
2508: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2509: THEN
2510: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2511: , G_MODULE_PREFIX || l_api_name
2512: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty
2506:
2507: IF (g_fnd_debug = 'Y' AND
2508: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2509: THEN
2510: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2511: , G_MODULE_PREFIX || l_api_name
2512: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty
2513: || ', p_qty = ' || p_qty);
2514: END IF;
2530:
2531: END IF;
2532:
2533: IF (g_fnd_debug = 'Y'
2534: AND FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2535: THEN
2536: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2537: , G_MODULE_PREFIX || l_api_name
2538: , l_api_name || ': p_skip_po_replen_creation = '
2532:
2533: IF (g_fnd_debug = 'Y'
2534: AND FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2535: THEN
2536: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2537: , G_MODULE_PREFIX || l_api_name
2538: , l_api_name || ': p_skip_po_replen_creation = '
2539: || p_skip_po_replen_creation);
2540: END IF;
2543: AND p_skip_po_replen_creation <> 'Y'
2544: THEN
2545:
2546: IF (g_fnd_debug = 'Y' AND
2547: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2548: THEN
2549: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2550: , G_MODULE_PREFIX || l_api_name
2551: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated
2545:
2546: IF (g_fnd_debug = 'Y' AND
2547: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2548: THEN
2549: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2550: , G_MODULE_PREFIX || l_api_name
2551: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated
2552: || ', p_qty = ' || p_qty);
2553: END IF;
2564: , x_new_replen_so_rec => l_new_replen_so_rec
2565: );
2566:
2567: IF (g_fnd_debug = 'Y' AND
2568: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2569: THEN
2570: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2571: , G_MODULE_PREFIX || l_api_name
2572: , l_api_name || ': x_return_status = ' || x_return_status);
2566:
2567: IF (g_fnd_debug = 'Y' AND
2568: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2569: THEN
2570: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2571: , G_MODULE_PREFIX || l_api_name
2572: , l_api_name || ': x_return_status = ' || x_return_status);
2573: END IF;
2574:
2606:
2607: END IF; /* IF l_qty_allocated < p_qty */
2608:
2609: IF (g_fnd_debug = 'Y' AND
2610: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2611: THEN
2612: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2613: , G_MODULE_PREFIX || l_api_name || '.end'
2614: , l_api_name || ' Exit');
2608:
2609: IF (g_fnd_debug = 'Y' AND
2610: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2611: THEN
2612: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2613: , G_MODULE_PREFIX || l_api_name || '.end'
2614: , l_api_name || ' Exit');
2615: END IF;
2616:
2620:
2621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2622:
2623: IF g_fnd_debug = 'Y' AND
2624: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2625: THEN
2626:
2627: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2628: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2623: IF g_fnd_debug = 'Y' AND
2624: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2625: THEN
2626:
2627: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2628: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2629: , sqlerrm);
2630: END IF;
2631:
2757: IF p_replen_so_line_id IS NULL
2758: THEN
2759:
2760: IF (g_fnd_debug = 'Y' AND
2761: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2762: THEN
2763: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2764: , G_MODULE_PREFIX || l_api_name
2765: , l_api_name || ': p_replen_so_line_id IS NULL');
2759:
2760: IF (g_fnd_debug = 'Y' AND
2761: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2762: THEN
2763: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2764: , G_MODULE_PREFIX || l_api_name
2765: , l_api_name || ': p_replen_so_line_id IS NULL');
2766: END IF;
2767:
2769: FETCH c_subcontract_po_alloc_cur
2770: BULK COLLECT INTO l_allocations_tbl;
2771:
2772: IF (g_fnd_debug = 'Y' AND
2773: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2774: THEN
2775: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2776: , G_MODULE_PREFIX || l_api_name
2777: , l_api_name || ': fetched c_subcontract_po_alloc_cur');
2771:
2772: IF (g_fnd_debug = 'Y' AND
2773: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2774: THEN
2775: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2776: , G_MODULE_PREFIX || l_api_name
2777: , l_api_name || ': fetched c_subcontract_po_alloc_cur');
2778: END IF;
2779:
2798: -- examined.
2799: LOOP
2800:
2801: IF (g_fnd_debug = 'Y' AND
2802: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2803: THEN
2804: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2805: , G_MODULE_PREFIX || l_api_name
2806: , l_api_name || ': Loop Iteration: '
2800:
2801: IF (g_fnd_debug = 'Y' AND
2802: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2803: THEN
2804: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2805: , G_MODULE_PREFIX || l_api_name
2806: , l_api_name || ': Loop Iteration: '
2807: || l_allocations_tbl_index);
2808: END IF;
2826: -- Update the remaining qty to be reduced
2827: l_remain_qty_to_reduce := l_remain_qty_to_reduce - l_reduced_allocations_rec.qty;
2828:
2829: IF (g_fnd_debug = 'Y' AND
2830: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2831: THEN
2832: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2833: , G_MODULE_PREFIX || l_api_name
2834: , l_api_name || ': From Reduce_Allocations: l_remain_qty_to_reduce = '
2828:
2829: IF (g_fnd_debug = 'Y' AND
2830: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2831: THEN
2832: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2833: , G_MODULE_PREFIX || l_api_name
2834: , l_api_name || ': From Reduce_Allocations: l_remain_qty_to_reduce = '
2835: || l_remain_qty_to_reduce);
2836: END IF;
2848: -- i.e. reduce from only one JMF_SHIKYU_ALLOCATIONS record
2849: ELSE
2850:
2851: IF (g_fnd_debug = 'Y' AND
2852: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2853: THEN
2854: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2855: , G_MODULE_PREFIX || l_api_name
2856: , 'p_replen_so_line_id:' || p_replen_so_line_id);
2850:
2851: IF (g_fnd_debug = 'Y' AND
2852: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2853: THEN
2854: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2855: , G_MODULE_PREFIX || l_api_name
2856: , 'p_replen_so_line_id:' || p_replen_so_line_id);
2857: END IF;
2858:
2859: OPEN c_alloc_cur;
2860: FETCH c_alloc_cur INTO l_existing_alloc_qty, l_existing_alloc_uom;
2861:
2862: IF (g_fnd_debug = 'Y' AND
2863: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2864: THEN
2865: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2866: , G_MODULE_PREFIX || l_api_name
2867: , l_api_name || ': fetched c_alloc_cur');
2861:
2862: IF (g_fnd_debug = 'Y' AND
2863: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2864: THEN
2865: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2866: , G_MODULE_PREFIX || l_api_name
2867: , l_api_name || ': fetched c_alloc_cur');
2868: END IF;
2869:
2890:
2891: END IF; /* IF p_replen_so_line_id IS NULL */
2892:
2893: IF (g_fnd_debug = 'Y' AND
2894: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2895: THEN
2896: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2897: , G_MODULE_PREFIX || l_api_name
2898: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2892:
2893: IF (g_fnd_debug = 'Y' AND
2894: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2895: THEN
2896: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2897: , G_MODULE_PREFIX || l_api_name
2898: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2899: END IF;
2900:
2898: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2899: END IF;
2900:
2901: IF (g_fnd_debug = 'Y' AND
2902: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2903: THEN
2904: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2905: , G_MODULE_PREFIX || l_api_name || '.end'
2906: , l_api_name || ' Exit');
2900:
2901: IF (g_fnd_debug = 'Y' AND
2902: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2903: THEN
2904: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2905: , G_MODULE_PREFIX || l_api_name || '.end'
2906: , l_api_name || ' Exit');
2907: END IF;
2908:
2911: WHEN g_no_alloc_found_exc THEN
2912:
2913: x_return_status := FND_API.G_RET_STS_ERROR;
2914: IF g_fnd_debug = 'Y' AND
2915: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2916: THEN
2917: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2918: , G_MODULE_PREFIX || l_api_name || '.g_no_alloc_found_exc'
2919: , 'Allocation(s) not found and cannot be reduced');
2913: x_return_status := FND_API.G_RET_STS_ERROR;
2914: IF g_fnd_debug = 'Y' AND
2915: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2916: THEN
2917: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2918: , G_MODULE_PREFIX || l_api_name || '.g_no_alloc_found_exc'
2919: , 'Allocation(s) not found and cannot be reduced');
2920: END IF;
2921:
2923:
2924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2925:
2926: IF g_fnd_debug = 'Y' AND
2927: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2928: THEN
2929:
2930: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2931: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2926: IF g_fnd_debug = 'Y' AND
2927: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2928: THEN
2929:
2930: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2931: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2932: , sqlerrm);
2933: END IF;
2934:
3063: -- This would be NULL if the table is empty
3064: l_tbl_index := x_deleted_allocations_tbl.FIRST;
3065:
3066: IF g_fnd_debug = 'Y' AND
3067: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3068: THEN
3069:
3070: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3071: , G_MODULE_PREFIX
3066: IF g_fnd_debug = 'Y' AND
3067: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3068: THEN
3069:
3070: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3071: , G_MODULE_PREFIX
3072: , '>> ' || G_MODULE_PREFIX || l_api_name
3073: || ': x_deleted_allocations_tbl.FIRST = ' || NVL(TO_CHAR(l_tbl_index), 'NULL'));
3074: END IF;
3077: THEN
3078: LOOP
3079:
3080: IF (g_fnd_debug = 'Y' AND
3081: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3082: THEN
3083: --dbms_output.put_line('In Loop : IF x_deleted_allocations_tbl IS NOT NULL AND x_deleted_allocations_tbl.COUNT > 0');
3084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3085: , G_MODULE_PREFIX || l_api_name
3080: IF (g_fnd_debug = 'Y' AND
3081: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3082: THEN
3083: --dbms_output.put_line('In Loop : IF x_deleted_allocations_tbl IS NOT NULL AND x_deleted_allocations_tbl.COUNT > 0');
3084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3085: , G_MODULE_PREFIX || l_api_name
3086: , 'In Loop.'
3087: );
3088: END IF;
3126: END LOOP;
3127: END IF; /* IF l_tbl_index IS NOT NULL */
3128:
3129: IF (g_fnd_debug = 'Y' AND
3130: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3131: THEN
3132: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3133: , G_MODULE_PREFIX || l_api_name || '.end'
3134: , l_api_name || ' Exit');
3128:
3129: IF (g_fnd_debug = 'Y' AND
3130: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3131: THEN
3132: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3133: , G_MODULE_PREFIX || l_api_name || '.end'
3134: , l_api_name || ' Exit');
3135: END IF;
3136:
3140:
3141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3142:
3143: IF g_fnd_debug = 'Y' AND
3144: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3145: THEN
3146:
3147: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3148: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3143: IF g_fnd_debug = 'Y' AND
3144: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3145: THEN
3146:
3147: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3148: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3149: , sqlerrm);
3150: END IF;
3151:
3228: BEGIN
3229:
3230: --Debug
3231: IF (g_fnd_debug = 'Y' AND
3232: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3233: THEN
3234: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3235: , G_MODULE_PREFIX || l_api_name
3236: , 'Begin');
3230: --Debug
3231: IF (g_fnd_debug = 'Y' AND
3232: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3233: THEN
3234: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3235: , G_MODULE_PREFIX || l_api_name
3236: , 'Begin');
3237: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3238: , G_MODULE_PREFIX || l_api_name
3233: THEN
3234: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3235: , G_MODULE_PREFIX || l_api_name
3236: , 'Begin');
3237: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3238: , G_MODULE_PREFIX || l_api_name
3239: , 'l_api_version:' || l_api_version ||
3240: ':p_api_version:' || p_api_version);
3241: END IF;
3256: l_tbl_index := l_closed_so_line_tbl.FIRST;
3257:
3258: --Debug
3259: IF (g_fnd_debug = 'Y' AND
3260: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3261: THEN
3262: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3263: , G_MODULE_PREFIX || l_api_name
3264: , 'l_tbl_index:' || l_tbl_index ||
3258: --Debug
3259: IF (g_fnd_debug = 'Y' AND
3260: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3261: THEN
3262: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3263: , G_MODULE_PREFIX || l_api_name
3264: , 'l_tbl_index:' || l_tbl_index ||
3265: ':Count:' || l_closed_so_line_tbl.COUNT);
3266: END IF;
3276: savepoint shipments;
3277:
3278: --Debug
3279: IF (g_fnd_debug = 'Y' AND
3280: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3281: THEN
3282: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3283: , G_MODULE_PREFIX || l_api_name
3284: , 'line_id:' || l_closed_so_line_rec.replenishment_so_line_id);
3278: --Debug
3279: IF (g_fnd_debug = 'Y' AND
3280: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3281: THEN
3282: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3283: , G_MODULE_PREFIX || l_api_name
3284: , 'line_id:' || l_closed_so_line_rec.replenishment_so_line_id);
3285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3286: , G_MODULE_PREFIX || l_api_name
3281: THEN
3282: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3283: , G_MODULE_PREFIX || l_api_name
3284: , 'line_id:' || l_closed_so_line_rec.replenishment_so_line_id);
3285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3286: , G_MODULE_PREFIX || l_api_name
3287: , 'item_id:' || l_closed_so_line_rec.component_id);
3288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3289: , G_MODULE_PREFIX || l_api_name
3284: , 'line_id:' || l_closed_so_line_rec.replenishment_so_line_id);
3285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3286: , G_MODULE_PREFIX || l_api_name
3287: , 'item_id:' || l_closed_so_line_rec.component_id);
3288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3289: , G_MODULE_PREFIX || l_api_name
3290: , 'shipped_quantity:' || l_closed_so_line_rec.qty);
3291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3292: , G_MODULE_PREFIX || l_api_name
3287: , 'item_id:' || l_closed_so_line_rec.component_id);
3288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3289: , G_MODULE_PREFIX || l_api_name
3290: , 'shipped_quantity:' || l_closed_so_line_rec.qty);
3291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3292: , G_MODULE_PREFIX || l_api_name
3293: , 'uom:' || l_closed_so_line_rec.uom);
3294: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3295: , G_MODULE_PREFIX || l_api_name
3290: , 'shipped_quantity:' || l_closed_so_line_rec.qty);
3291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3292: , G_MODULE_PREFIX || l_api_name
3293: , 'uom:' || l_closed_so_line_rec.uom);
3294: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3295: , G_MODULE_PREFIX || l_api_name
3296: , 'ordered_quantity:' || l_closed_so_line_rec.primary_uom_qty);
3297: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3298: , G_MODULE_PREFIX || l_api_name
3293: , 'uom:' || l_closed_so_line_rec.uom);
3294: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3295: , G_MODULE_PREFIX || l_api_name
3296: , 'ordered_quantity:' || l_closed_so_line_rec.primary_uom_qty);
3297: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3298: , G_MODULE_PREFIX || l_api_name
3299: , 'primary_uom:' || l_closed_so_line_rec.primary_uom);
3300: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3301: , G_MODULE_PREFIX || l_api_name
3296: , 'ordered_quantity:' || l_closed_so_line_rec.primary_uom_qty);
3297: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3298: , G_MODULE_PREFIX || l_api_name
3299: , 'primary_uom:' || l_closed_so_line_rec.primary_uom);
3300: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3301: , G_MODULE_PREFIX || l_api_name
3302: , 'ssd:' || l_closed_so_line_rec.schedule_ship_date);
3303: END IF;
3304:
3341: END IF; /* IF l_closed_so_line_rec.uom <> l_closed_so_line_rec.primary_uom */
3342:
3343: --Debug
3344: IF (g_fnd_debug = 'Y' AND
3345: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3346: THEN
3347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3348: , G_MODULE_PREFIX || l_api_name
3349: , 'After Conversions:: l_ordered_qty:' || l_ordered_qty);
3343: --Debug
3344: IF (g_fnd_debug = 'Y' AND
3345: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3346: THEN
3347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3348: , G_MODULE_PREFIX || l_api_name
3349: , 'After Conversions:: l_ordered_qty:' || l_ordered_qty);
3350: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3351: , G_MODULE_PREFIX || l_api_name
3346: THEN
3347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3348: , G_MODULE_PREFIX || l_api_name
3349: , 'After Conversions:: l_ordered_qty:' || l_ordered_qty);
3350: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3351: , G_MODULE_PREFIX || l_api_name
3352: , 'After Conversions:: primary_uom_qty:' || l_closed_so_line_rec.primary_uom_qty);
3353: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3354: , G_MODULE_PREFIX || l_api_name
3349: , 'After Conversions:: l_ordered_qty:' || l_ordered_qty);
3350: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3351: , G_MODULE_PREFIX || l_api_name
3352: , 'After Conversions:: primary_uom_qty:' || l_closed_so_line_rec.primary_uom_qty);
3353: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3354: , G_MODULE_PREFIX || l_api_name
3355: , 'After Conversions:: l_ordered_primary_qty:' || l_ordered_primary_qty);
3356: END IF;
3357:
3377: );
3378:
3379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3380: THEN
3381: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3382: THEN
3383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3384: , G_MODULE_PREFIX || l_api_name
3385: , 'Reconcile_Replen_Excess_Qty returned error. Status:' || x_return_status);
3379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3380: THEN
3381: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3382: THEN
3383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3384: , G_MODULE_PREFIX || l_api_name
3385: , 'Reconcile_Replen_Excess_Qty returned error. Status:' || x_return_status);
3386: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3387: , G_MODULE_PREFIX || l_api_name
3382: THEN
3383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3384: , G_MODULE_PREFIX || l_api_name
3385: , 'Reconcile_Replen_Excess_Qty returned error. Status:' || x_return_status);
3386: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3387: , G_MODULE_PREFIX || l_api_name
3388: , 'Rolling back the processing for line_id:' || l_closed_so_line_rec.replenishment_so_line_id);
3389: END IF;
3390:
3396: --this line and process the next one.
3397: goto main_loop_ends;
3398:
3399: ELSE
3400: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3401: THEN
3402: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3403: , G_MODULE_PREFIX || l_api_name
3404: , 'Reconcile_Replen_Excess_Qty returned success. Status:' || x_return_status);
3398:
3399: ELSE
3400: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3401: THEN
3402: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3403: , G_MODULE_PREFIX || l_api_name
3404: , 'Reconcile_Replen_Excess_Qty returned success. Status:' || x_return_status);
3405: END IF;
3406: END IF;
3430:
3431: CLOSE c_over_ship_so_lines_cur;
3432:
3433: IF (g_fnd_debug = 'Y' AND
3434: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3435: THEN
3436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3437: , G_MODULE_PREFIX || l_api_name || '.end'
3438: , l_api_name || ' Exit');
3432:
3433: IF (g_fnd_debug = 'Y' AND
3434: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3435: THEN
3436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3437: , G_MODULE_PREFIX || l_api_name || '.end'
3438: , l_api_name || ' Exit');
3439: END IF;
3440:
3444: rollback;
3445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3446:
3447: IF g_fnd_debug = 'Y' AND
3448: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3449: THEN
3450:
3451: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3452: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3447: IF g_fnd_debug = 'Y' AND
3448: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3449: THEN
3450:
3451: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3452: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3453: , sqlerrm);
3454: END IF;
3455:
3546:
3547: BEGIN
3548:
3549: IF g_fnd_debug = 'Y' AND
3550: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3551: THEN
3552: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3553: , G_MODULE_PREFIX || l_api_name
3554: , 'Begin');
3548:
3549: IF g_fnd_debug = 'Y' AND
3550: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3551: THEN
3552: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3553: , G_MODULE_PREFIX || l_api_name
3554: , 'Begin');
3555: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3556: , G_MODULE_PREFIX || l_api_name
3551: THEN
3552: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3553: , G_MODULE_PREFIX || l_api_name
3554: , 'Begin');
3555: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3556: , G_MODULE_PREFIX || l_api_name
3557: , 'Parameters passed:: p_replen_order_line_id:' || p_replen_order_line_id ||
3558: ':p_excess_qty:' || p_excess_qty);
3559: END IF;
3597: l_unallocated_primary_qty := l_allocable_primary_qty - l_allocated_primary_qty;
3598:
3599: --Debug
3600: IF g_fnd_debug = 'Y' AND
3601: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3602: THEN
3603: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3604: , G_MODULE_PREFIX || l_api_name
3605: , 'l_component_id:' || l_component_id ||
3599: --Debug
3600: IF g_fnd_debug = 'Y' AND
3601: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3602: THEN
3603: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3604: , G_MODULE_PREFIX || l_api_name
3605: , 'l_component_id:' || l_component_id ||
3606: ':l_primary_uom:' || l_primary_uom ||
3607: ':l_ordered_uom:' || l_ordered_uom ||
3759: Scenario 2 (shipped < allocated) would be taken care of here.
3760: */
3761:
3762: IF g_fnd_debug = 'Y' AND
3763: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3764: THEN
3765: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3766: , G_MODULE_PREFIX || l_api_name
3767: , 'Came into p_excess_qty < l_allocable_primary_qty');
3761:
3762: IF g_fnd_debug = 'Y' AND
3763: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3764: THEN
3765: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3766: , G_MODULE_PREFIX || l_api_name
3767: , 'Came into p_excess_qty < l_allocable_primary_qty');
3768: END IF;
3769:
3791: END IF;
3792:
3793: --Debug
3794: IF g_fnd_debug = 'Y' AND
3795: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3796: THEN
3797: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3798: , G_MODULE_PREFIX || l_api_name
3799: , 'After calculations::l_unallocated_primary_qty:' || l_unallocated_primary_qty ||
3793: --Debug
3794: IF g_fnd_debug = 'Y' AND
3795: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3796: THEN
3797: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3798: , G_MODULE_PREFIX || l_api_name
3799: , 'After calculations::l_unallocated_primary_qty:' || l_unallocated_primary_qty ||
3800: ':l_remaining_qty_to_reduce:' || l_remaining_qty_to_reduce ||
3801: ':l_allocable_primary_qty_new:' || l_allocable_primary_qty ||
3820: BULK COLLECT INTO l_allocations_tbl;
3821:
3822: --Debug
3823: IF g_fnd_debug = 'Y' AND
3824: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3825: THEN
3826: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3827: , G_MODULE_PREFIX || l_api_name
3828: , 'Count of SPOs fetched::' || l_allocations_tbl.count
3822: --Debug
3823: IF g_fnd_debug = 'Y' AND
3824: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3825: THEN
3826: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3827: , G_MODULE_PREFIX || l_api_name
3828: , 'Count of SPOs fetched::' || l_allocations_tbl.count
3829: );
3830: END IF;
3839: l_allocations_rec := l_allocations_tbl(l_tbl_index);
3840:
3841: --Debug
3842: IF g_fnd_debug = 'Y' AND
3843: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3844: THEN
3845: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3846: , G_MODULE_PREFIX || l_api_name
3847: , '****************Printing the fetched SPO******************'
3841: --Debug
3842: IF g_fnd_debug = 'Y' AND
3843: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3844: THEN
3845: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3846: , G_MODULE_PREFIX || l_api_name
3847: , '****************Printing the fetched SPO******************'
3848: );
3849: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3845: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3846: , G_MODULE_PREFIX || l_api_name
3847: , '****************Printing the fetched SPO******************'
3848: );
3849: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3850: , G_MODULE_PREFIX || l_api_name
3851: , 'SPO_Shipment_Id:' || l_allocations_rec.subcontract_po_shipment_id ||
3852: ':Component_Id:' || l_allocations_rec.component_id ||
3853: ':SPO_Qty:' || l_allocations_rec.qty ||
3863: END IF;
3864:
3865: --Debug
3866: IF g_fnd_debug = 'Y' AND
3867: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3868: THEN
3869: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3870: , G_MODULE_PREFIX || l_api_name
3871: , 'l_qty_to_reduce:' || l_qty_to_reduce
3865: --Debug
3866: IF g_fnd_debug = 'Y' AND
3867: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3868: THEN
3869: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3870: , G_MODULE_PREFIX || l_api_name
3871: , 'l_qty_to_reduce:' || l_qty_to_reduce
3872: );
3873: END IF;
3887: );
3888:
3889: --Debug
3890: IF g_fnd_debug = 'Y' AND
3891: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3892: THEN
3893: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3894: , G_MODULE_PREFIX || l_api_name
3895: , 'After Reduce_Allocations:: Count:' || l_reduced_allocations_tbl.COUNT ||
3889: --Debug
3890: IF g_fnd_debug = 'Y' AND
3891: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3892: THEN
3893: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3894: , G_MODULE_PREFIX || l_api_name
3895: , 'After Reduce_Allocations:: Count:' || l_reduced_allocations_tbl.COUNT ||
3896: ':Qty_Reduced:' || l_actual_reduced_qty
3897: );
3914: l_remaining_qty_to_reduce := l_remaining_qty_to_reduce - l_qty_to_reduce;
3915:
3916: --Debug
3917: IF g_fnd_debug = 'Y' AND
3918: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3919: THEN
3920: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3921: , G_MODULE_PREFIX || l_api_name
3922: , 'Post processing:: l_remaining_qty_to_reduce:' || l_remaining_qty_to_reduce
3916: --Debug
3917: IF g_fnd_debug = 'Y' AND
3918: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3919: THEN
3920: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3921: , G_MODULE_PREFIX || l_api_name
3922: , 'Post processing:: l_remaining_qty_to_reduce:' || l_remaining_qty_to_reduce
3923: );
3924: END IF;
3939: END IF;
3940: END IF;
3941:
3942: IF (g_fnd_debug = 'Y' AND
3943: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3944: THEN
3945: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3946: , G_MODULE_PREFIX || l_api_name || '.end'
3947: , l_api_name || ' Exit');
3941:
3942: IF (g_fnd_debug = 'Y' AND
3943: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3944: THEN
3945: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3946: , G_MODULE_PREFIX || l_api_name || '.end'
3947: , l_api_name || ' Exit');
3948: END IF;
3949:
3956: );
3957: */
3958: x_return_status := FND_API.G_RET_STS_ERROR;
3959: IF g_fnd_debug = 'Y' AND
3960: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3961: THEN
3962: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3963: , G_MODULE_PREFIX || l_api_name || '.NO_DATA_FOUND'
3964: , 'No Data Found - Replenishment Sales Order Line: ' || p_replen_order_line_id);
3958: x_return_status := FND_API.G_RET_STS_ERROR;
3959: IF g_fnd_debug = 'Y' AND
3960: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3961: THEN
3962: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3963: , G_MODULE_PREFIX || l_api_name || '.NO_DATA_FOUND'
3964: , 'No Data Found - Replenishment Sales Order Line: ' || p_replen_order_line_id);
3965: END IF;
3966:
3966:
3967: WHEN g_qty_not_fully_dealloc_exc THEN
3968: x_return_status := FND_API.G_RET_STS_ERROR;
3969: IF g_fnd_debug = 'Y' AND
3970: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3971: THEN
3972: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3973: , G_MODULE_PREFIX || l_api_name || '.g_qty_not_fully_dealloc_exc'
3974: , 'Excess Quantity of Replenishment Sales Order Line ' || p_replen_order_line_id
3968: x_return_status := FND_API.G_RET_STS_ERROR;
3969: IF g_fnd_debug = 'Y' AND
3970: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3971: THEN
3972: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3973: , G_MODULE_PREFIX || l_api_name || '.g_qty_not_fully_dealloc_exc'
3974: , 'Excess Quantity of Replenishment Sales Order Line ' || p_replen_order_line_id
3975: || ' cannot be fully deallocated');
3976: END IF;
3979:
3980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3981:
3982: IF g_fnd_debug = 'Y' AND
3983: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3984: THEN
3985:
3986: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3987: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3982: IF g_fnd_debug = 'Y' AND
3983: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3984: THEN
3985:
3986: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3987: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3988: , sqlerrm);
3989: END IF;
3990:
4133: -- 3) If in step (1) qty allocations were reduced, re-allocate them
4134: -- invoking the allocation api's
4135:
4136: IF g_fnd_debug = 'Y' AND
4137: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4138: THEN
4139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4140: ,G_MODULE_PREFIX || l_api_name
4141: ,'Begin');
4135:
4136: IF g_fnd_debug = 'Y' AND
4137: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4138: THEN
4139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4140: ,G_MODULE_PREFIX || l_api_name
4141: ,'Begin');
4142: END IF;
4143:
4153: );
4154: */
4155:
4156: IF g_fnd_debug = 'Y' AND
4157: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4158: THEN
4159: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4160: , G_MODULE_PREFIX || l_api_name
4161: , 'p_from_organization => ' || p_from_organization
4155:
4156: IF g_fnd_debug = 'Y' AND
4157: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4158: THEN
4159: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4160: , G_MODULE_PREFIX || l_api_name
4161: , 'p_from_organization => ' || p_from_organization
4162: );
4163: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4159: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4160: , G_MODULE_PREFIX || l_api_name
4161: , 'p_from_organization => ' || p_from_organization
4162: );
4163: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4164: , G_MODULE_PREFIX || l_api_name
4165: , 'p_to_organization => ' || p_to_organization
4166: );
4167: END IF;
4182: l_header_id := C_SHIKYU_REPLENISHMENT_rec.replenishment_so_header_id ;
4183:
4184: IF g_fnd_debug = 'Y'
4185: THEN
4186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4187: THEN
4188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4189: , G_MODULE_PREFIX || l_api_name
4190: , '==============================================='
4184: IF g_fnd_debug = 'Y'
4185: THEN
4186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4187: THEN
4188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4189: , G_MODULE_PREFIX || l_api_name
4190: , '==============================================='
4191: );
4192: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4189: , G_MODULE_PREFIX || l_api_name
4190: , '==============================================='
4191: );
4192: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4193: , G_MODULE_PREFIX || l_api_name
4194: , 'l_parent_so_line_id:' || l_parent_so_line_id
4195: );
4196: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4192: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4193: , G_MODULE_PREFIX || l_api_name
4194: , 'l_parent_so_line_id:' || l_parent_so_line_id
4195: );
4196: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4197: , G_MODULE_PREFIX || l_api_name
4198: , 'l_header_id:' || l_header_id
4199: );
4200: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4196: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4197: , G_MODULE_PREFIX || l_api_name
4198: , 'l_header_id:' || l_header_id
4199: );
4200: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4201: , G_MODULE_PREFIX || l_api_name
4202: , 'OEL_Cancelled_Flag:' || C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag
4203: );
4204: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4200: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4201: , G_MODULE_PREFIX || l_api_name
4202: , 'OEL_Cancelled_Flag:' || C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag
4203: );
4204: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4205: , G_MODULE_PREFIX || l_api_name
4206: , 'OEH.Cancelled_Flag:' || C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag
4207: );
4208: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4204: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4205: , G_MODULE_PREFIX || l_api_name
4206: , 'OEH.Cancelled_Flag:' || C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag
4207: );
4208: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4209: , G_MODULE_PREFIX || l_api_name
4210: , 'jsr_ordered_quantity:' || C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity
4211: );
4212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4208: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4209: , G_MODULE_PREFIX || l_api_name
4210: , 'jsr_ordered_quantity:' || C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity
4211: );
4212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4213: , G_MODULE_PREFIX || l_api_name
4214: , 'replenishment_po_shipment_id:' || C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id
4215: );
4216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4213: , G_MODULE_PREFIX || l_api_name
4214: , 'replenishment_po_shipment_id:' || C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id
4215: );
4216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4217: , G_MODULE_PREFIX || l_api_name
4218: , 'allocated_primary_UOM_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity
4219: );
4220: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4217: , G_MODULE_PREFIX || l_api_name
4218: , 'allocated_primary_UOM_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity
4219: );
4220: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4221: , G_MODULE_PREFIX || l_api_name
4222: , 'allocable_primary_UOM_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity
4223: );
4224: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4220: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4221: , G_MODULE_PREFIX || l_api_name
4222: , 'allocable_primary_UOM_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity
4223: );
4224: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4225: , G_MODULE_PREFIX || l_api_name
4226: , 'allocable_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocable_quantity
4227: );
4228: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4224: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4225: , G_MODULE_PREFIX || l_api_name
4226: , 'allocable_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocable_quantity
4227: );
4228: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4229: , G_MODULE_PREFIX || l_api_name
4230: , 'allocated_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocated_quantity
4231: );
4232: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4228: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4229: , G_MODULE_PREFIX || l_api_name
4230: , 'allocated_quantity:' || C_SHIKYU_REPLENISHMENT_rec.allocated_quantity
4231: );
4232: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4233: , G_MODULE_PREFIX || l_api_name
4234: , 'oel_ordered_quantity:' || C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity
4235: );
4236: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4232: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4233: , G_MODULE_PREFIX || l_api_name
4234: , 'oel_ordered_quantity:' || C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity
4235: );
4236: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4237: , G_MODULE_PREFIX || l_api_name
4238: , 'oel_shipped_quantity:' || C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity
4239: );
4240: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4236: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4237: , G_MODULE_PREFIX || l_api_name
4238: , 'oel_shipped_quantity:' || C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity
4239: );
4240: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4241: , G_MODULE_PREFIX || l_api_name
4242: , 'subcontract_po_shipment_id:' || C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
4243: END IF;
4244: END IF;
4255: --Calculate the primary UOM quantity.
4256: --Update the quantity in JSR.
4257:
4258: IF g_fnd_debug = 'Y' AND
4259: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4260: THEN
4261: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4262: , G_MODULE_PREFIX || l_api_name
4263: , 'Ordered_Quantity > Allocable_Quantity');
4257:
4258: IF g_fnd_debug = 'Y' AND
4259: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4260: THEN
4261: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4262: , G_MODULE_PREFIX || l_api_name
4263: , 'Ordered_Quantity > Allocable_Quantity');
4264: END IF;
4265:
4271: FROM JMF_SHIKYU_REPLENISHMENTS
4272: WHERE REPLENISHMENT_SO_LINE_ID = C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4273:
4274: IF g_fnd_debug = 'Y' AND
4275: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4276: THEN
4277: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4278: , G_MODULE_PREFIX || l_api_name
4279: , 'l_uom:' || l_uom ||
4273:
4274: IF g_fnd_debug = 'Y' AND
4275: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4276: THEN
4277: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4278: , G_MODULE_PREFIX || l_api_name
4279: , 'l_uom:' || l_uom ||
4280: ':l_primary_uom:' || l_primary_uom
4281: );
4303:
4304: END IF;
4305:
4306: IF g_fnd_debug = 'Y' AND
4307: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4308: THEN
4309: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4310: , G_MODULE_PREFIX || l_api_name
4311: , 'l_primary_uom_qty:' || l_primary_uom_qty ||
4305:
4306: IF g_fnd_debug = 'Y' AND
4307: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4308: THEN
4309: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4310: , G_MODULE_PREFIX || l_api_name
4311: , 'l_primary_uom_qty:' || l_primary_uom_qty ||
4312: ':Old allocable qty:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4313: END IF;
4323: last_update_login = FND_GLOBAL.login_id
4324: WHERE REPLENISHMENT_SO_LINE_ID = C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4325:
4326: IF g_fnd_debug = 'Y' AND
4327: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4328: THEN
4329: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4330: , G_MODULE_PREFIX || l_api_name
4331: , 'Updated rows:' || sql%rowcount ||
4325:
4326: IF g_fnd_debug = 'Y' AND
4327: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4328: THEN
4329: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4330: , G_MODULE_PREFIX || l_api_name
4331: , 'Updated rows:' || sql%rowcount ||
4332: ':for RSO line_id:' || C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID
4333: );
4338: --Bugfix 14078692: Changing the IF to ELSIF.
4339: ELSIF C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag = 'Y' OR
4340: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y'
4341: THEN
4342: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4343: THEN
4344: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4345: , 'JMFVSKAB :Invoke JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
4346: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
4340: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y'
4341: THEN
4342: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4343: THEN
4344: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4345: , 'JMFVSKAB :Invoke JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
4346: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
4347: END IF;
4348:
4362: );
4363:
4364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4365: THEN
4366: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4367: THEN
4368: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4369: , G_MODULE_PREFIX || l_api_name
4370: , 'Delete allocations returned error. Status:' || l_return_status);
4364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4365: THEN
4366: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4367: THEN
4368: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4369: , G_MODULE_PREFIX || l_api_name
4370: , 'Delete allocations returned error. Status:' || l_return_status);
4371: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4372: , G_MODULE_PREFIX || l_api_name
4367: THEN
4368: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4369: , G_MODULE_PREFIX || l_api_name
4370: , 'Delete allocations returned error. Status:' || l_return_status);
4371: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4372: , G_MODULE_PREFIX || l_api_name
4373: , 'Rolling back the processing for line_id:' || C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID);
4374: END IF;
4375:
4381: --this line and process the next one.
4382: goto main_loop_ends;
4383:
4384: ELSE
4385: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4386: THEN
4387: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4388: , G_MODULE_PREFIX || l_api_name
4389: , 'Delete allocations returned success. Status:' || l_return_status);
4383:
4384: ELSE
4385: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4386: THEN
4387: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4388: , G_MODULE_PREFIX || l_api_name
4389: , 'Delete allocations returned success. Status:' || l_return_status);
4390: END IF;
4391: END IF;
4389: , 'Delete allocations returned success. Status:' || l_return_status);
4390: END IF;
4391: END IF;
4392:
4393: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4394: THEN
4395: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4396: , 'JMFVSKAB :AFter l_deleted_allocations_tbl.count '
4397: , l_deleted_allocations_tbl.COUNT );
4391: END IF;
4392:
4393: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4394: THEN
4395: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4396: , 'JMFVSKAB :AFter l_deleted_allocations_tbl.count '
4397: , l_deleted_allocations_tbl.COUNT );
4398: END IF;
4399:
4434: last_update_login = FND_GLOBAL.login_id
4435: WHERE replenishment_so_line_id = C_SHIKYU_REPLENISHMENT_REC.replenishment_so_line_id
4436: AND replenishment_so_header_id = C_SHIKYU_REPLENISHMENT_REC.replenishment_so_header_id ;
4437:
4438: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4439: THEN
4440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4441: , 'JMFVSKAB :AFter Updating JMF_SHIKYU_REPLENISHMENTS:'
4442: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4436: AND replenishment_so_header_id = C_SHIKYU_REPLENISHMENT_REC.replenishment_so_header_id ;
4437:
4438: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4439: THEN
4440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4441: , 'JMFVSKAB :AFter Updating JMF_SHIKYU_REPLENISHMENTS:'
4442: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4443: END IF;
4444:
4443: END IF;
4444:
4445: IF l_deleted_qty > 0
4446: THEN
4447: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4448: THEN
4449: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4450: , 'JMFVSKAB :1Cal JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4451: , l_deleted_qty );
4445: IF l_deleted_qty > 0
4446: THEN
4447: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4448: THEN
4449: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4450: , 'JMFVSKAB :1Cal JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4451: , l_deleted_qty );
4452: END IF;
4453:
4479: -- update the quantity in the JMF replenishments
4480: -- insert record into the JMF replenishment table for the new line (for split line case)
4481: -- create new allocations for the decreased quantity
4482:
4483: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4484: THEN
4485: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4486: , 'JMFVSKAB :Before primary UOM calculation '
4487: , l_decreased_qty );
4481: -- create new allocations for the decreased quantity
4482:
4483: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4484: THEN
4485: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4486: , 'JMFVSKAB :Before primary UOM calculation '
4487: , l_decreased_qty );
4488: END IF;
4489:
4521: l_primary_uom_qty := C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity;
4522:
4523: END IF;
4524:
4525: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4526: THEN
4527: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4528: , G_MODULE_PREFIX || l_api_name
4529: , 'l_primary_uom_qty:' || l_primary_uom_qty ||
4523: END IF;
4524:
4525: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4526: THEN
4527: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4528: , G_MODULE_PREFIX || l_api_name
4529: , 'l_primary_uom_qty:' || l_primary_uom_qty ||
4530: ':Old allocable qty:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4531:
4528: , G_MODULE_PREFIX || l_api_name
4529: , 'l_primary_uom_qty:' || l_primary_uom_qty ||
4530: ':Old allocable qty:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4531:
4532: --FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4533: -- , G_MODULE_PREFIX || l_api_name
4534: -- , 'Reduce_Allocations by:' || C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity -
4535: -- l_primary_uom_qty );
4536: END IF;
4556: );
4557:
4558: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4559: THEN
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4561: THEN
4562: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4563: , G_MODULE_PREFIX || l_api_name
4564: , 'Reduce_Allocations returned error. Status:' || l_return_status
4558: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4559: THEN
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4561: THEN
4562: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4563: , G_MODULE_PREFIX || l_api_name
4564: , 'Reduce_Allocations returned error. Status:' || l_return_status
4565: );
4566: END IF;
4568: rollback to qty_change;
4569: goto main_loop_ends;
4570:
4571: ELSE
4572: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4573: THEN
4574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4575: , G_MODULE_PREFIX || l_api_name
4576: , 'Reduce_Allocations returned success. Status:' || l_return_status
4570:
4571: ELSE
4572: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4573: THEN
4574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4575: , G_MODULE_PREFIX || l_api_name
4576: , 'Reduce_Allocations returned success. Status:' || l_return_status
4577: );
4578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4575: , G_MODULE_PREFIX || l_api_name
4576: , 'Reduce_Allocations returned success. Status:' || l_return_status
4577: );
4578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4579: , G_MODULE_PREFIX || l_api_name
4580: , 'l_decreased_qty => ' || l_decreased_qty);
4581: END IF;
4582: END IF;
4597: last_updated_by = FND_GLOBAL.user_id,
4598: last_update_login = FND_GLOBAL.login_id
4599: WHERE REPLENISHMENT_SO_LINE_ID = C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4600:
4601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4602: THEN
4603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4604: , G_MODULE_PREFIX || l_api_name
4605: , 'After UPDATE JMF_SHIKYU_REPLENISHMENTS for line_id :' ||
4599: WHERE REPLENISHMENT_SO_LINE_ID = C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4600:
4601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4602: THEN
4603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4604: , G_MODULE_PREFIX || l_api_name
4605: , 'After UPDATE JMF_SHIKYU_REPLENISHMENTS for line_id :' ||
4606: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID
4607: );
4604: , G_MODULE_PREFIX || l_api_name
4605: , 'After UPDATE JMF_SHIKYU_REPLENISHMENTS for line_id :' ||
4606: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID
4607: );
4608: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4609: , G_MODULE_PREFIX || l_api_name
4610: , 'Before C_child_so_lines_CSR for parent:' || l_parent_so_line_id
4611: );
4612: END IF;
4613:
4614: FOR C_child_so_lines_rec IN C_child_so_lines_CSR
4615: LOOP
4616:
4617: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4618: THEN
4619: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4620: , G_MODULE_PREFIX || l_api_name
4621: , 'C_child_so_lines_rec.line_id:' || C_child_so_lines_rec.line_id );
4615: LOOP
4616:
4617: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4618: THEN
4619: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4620: , G_MODULE_PREFIX || l_api_name
4621: , 'C_child_so_lines_rec.line_id:' || C_child_so_lines_rec.line_id );
4622: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4623: , G_MODULE_PREFIX || l_api_name
4618: THEN
4619: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4620: , G_MODULE_PREFIX || l_api_name
4621: , 'C_child_so_lines_rec.line_id:' || C_child_so_lines_rec.line_id );
4622: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4623: , G_MODULE_PREFIX || l_api_name
4624: , 'C_child_so_lines_rec.header_id:' || C_child_so_lines_rec.header_id );
4625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4626: , G_MODULE_PREFIX || l_api_name
4621: , 'C_child_so_lines_rec.line_id:' || C_child_so_lines_rec.line_id );
4622: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4623: , G_MODULE_PREFIX || l_api_name
4624: , 'C_child_so_lines_rec.header_id:' || C_child_so_lines_rec.header_id );
4625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4626: , G_MODULE_PREFIX || l_api_name
4627: , ' C_child_so_lines_rec.split_from_line_id:' || C_child_so_lines_rec.split_from_line_id );
4628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4629: , G_MODULE_PREFIX || l_api_name
4624: , 'C_child_so_lines_rec.header_id:' || C_child_so_lines_rec.header_id );
4625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4626: , G_MODULE_PREFIX || l_api_name
4627: , ' C_child_so_lines_rec.split_from_line_id:' || C_child_so_lines_rec.split_from_line_id );
4628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4629: , G_MODULE_PREFIX || l_api_name
4630: , 'C_child_so_lines_rec.line_number:' || C_child_so_lines_rec.line_number );
4631: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4632: , G_MODULE_PREFIX || l_api_name
4627: , ' C_child_so_lines_rec.split_from_line_id:' || C_child_so_lines_rec.split_from_line_id );
4628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4629: , G_MODULE_PREFIX || l_api_name
4630: , 'C_child_so_lines_rec.line_number:' || C_child_so_lines_rec.line_number );
4631: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4632: , G_MODULE_PREFIX || l_api_name
4633: , 'C_child_so_lines_rec.ordered_quantity:' || C_child_so_lines_rec.ordered_quantity );
4634: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4635: , G_MODULE_PREFIX || l_api_name
4630: , 'C_child_so_lines_rec.line_number:' || C_child_so_lines_rec.line_number );
4631: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4632: , G_MODULE_PREFIX || l_api_name
4633: , 'C_child_so_lines_rec.ordered_quantity:' || C_child_so_lines_rec.ordered_quantity );
4634: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4635: , G_MODULE_PREFIX || l_api_name
4636: , 'C_child_so_lines_rec.schedule_ship_date:' || C_child_so_lines_rec.schedule_ship_date );
4637: END IF;
4638:
4657: l_primary_uom_qty := C_child_so_lines_rec.ordered_quantity;
4658:
4659: END IF;
4660:
4661: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4662: THEN
4663: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4664: , G_MODULE_PREFIX || l_api_name
4665: , 'l_primary_uom_qty:' || l_primary_uom_qty );
4659: END IF;
4660:
4661: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4662: THEN
4663: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4664: , G_MODULE_PREFIX || l_api_name
4665: , 'l_primary_uom_qty:' || l_primary_uom_qty );
4666: END IF;
4667:
4742:
4743: /*AND REPLENISHMENT_SO_HEADER_ID =
4744: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID;*/
4745:
4746: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4747: THEN
4748: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4749: , 'JMFVSKAB :after INSERT child = '|| C_child_so_lines_rec.line_id
4750: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4744: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID;*/
4745:
4746: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4747: THEN
4748: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4749: , 'JMFVSKAB :after INSERT child = '|| C_child_so_lines_rec.line_id
4750: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4751: END IF;
4752:
4751: END IF;
4752:
4753: END LOOP; -- child so line loop
4754:
4755: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4756: THEN
4757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4758: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4759: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4753: END LOOP; -- child so line loop
4754:
4755: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4756: THEN
4757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4758: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4759: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4760: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4761: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_header_ID '
4756: THEN
4757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4758: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4759: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4760: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4761: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_header_ID '
4762: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID );
4763: END IF;
4764:
4775: , p_qty => l_decreased_qty
4776: , p_skip_po_replen_creation => 'N'
4777: );
4778:
4779: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4780: THEN
4781: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4782: , 'JMFVSKAB :2after JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4783: , l_decreased_qty );
4777: );
4778:
4779: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4780: THEN
4781: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4782: , 'JMFVSKAB :2after JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4783: , l_decreased_qty );
4784: END IF;
4785:
4789: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y' */
4790: -- cancel or partial
4791: COMMIT;
4792:
4793: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4794: THEN
4795: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4796: , 'JMFVSKAB: Partial_reconcile COMMIT inside loop SO line '
4797: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID);
4791: COMMIT;
4792:
4793: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4794: THEN
4795: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4796: , 'JMFVSKAB: Partial_reconcile COMMIT inside loop SO line '
4797: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID);
4798: END IF;
4799:
4800:
4801: EXCEPTION
4802: WHEN OTHERS THEN
4803: ROLLBACK to qty_change;
4804: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4805: THEN
4806: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4807: , G_MODULE_PREFIX || l_api_name
4808: , 'Exception inner block::' || SQLERRM );
4802: WHEN OTHERS THEN
4803: ROLLBACK to qty_change;
4804: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4805: THEN
4806: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4807: , G_MODULE_PREFIX || l_api_name
4808: , 'Exception inner block::' || SQLERRM );
4809: END IF;
4810: END ;
4817:
4818: x_return_status := 'S' ;
4819:
4820: IF (g_fnd_debug = 'Y' AND
4821: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4822: THEN
4823: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4824: , G_MODULE_PREFIX || l_api_name
4825: , 'Exit');
4819:
4820: IF (g_fnd_debug = 'Y' AND
4821: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4822: THEN
4823: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4824: , G_MODULE_PREFIX || l_api_name
4825: , 'Exit');
4826: END IF;
4827:
4829: WHEN FND_API.G_EXC_ERROR THEN
4830: ROLLBACK;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832:
4833: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4834: THEN
4835: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4836: , G_MODULE_PREFIX || l_api_name
4837: , 'ERROR::' || sqlerrm
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832:
4833: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4834: THEN
4835: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4836: , G_MODULE_PREFIX || l_api_name
4837: , 'ERROR::' || sqlerrm
4838: );
4839: END IF;
4841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4842: ROLLBACK ;
4843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4844:
4845: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4846: THEN
4847: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4848: , G_MODULE_PREFIX || l_api_name
4849: , 'UNEXPECTED Error::' || sqlerrm
4843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4844:
4845: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4846: THEN
4847: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4848: , G_MODULE_PREFIX || l_api_name
4849: , 'UNEXPECTED Error::' || sqlerrm
4850: );
4851: END IF;
4853: WHEN OTHERS THEN
4854: ROLLBACK ;
4855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4856:
4857: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4858: THEN
4859: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4860: , G_MODULE_PREFIX || l_api_name
4861: , 'OTHERS Exception::' || sqlerrm
4855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4856:
4857: IF g_fnd_debug = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4858: THEN
4859: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4860: , G_MODULE_PREFIX || l_api_name
4861: , 'OTHERS Exception::' || sqlerrm
4862: );
4863: END IF;
5018:
5019: BEGIN
5020:
5021: IF (g_fnd_debug = 'Y' AND
5022: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5023: THEN
5024: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5025: , G_MODULE_PREFIX || l_api_name || '.invoked'
5026: , l_api_name|| ' Entry');
5020:
5021: IF (g_fnd_debug = 'Y' AND
5022: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5023: THEN
5024: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5025: , G_MODULE_PREFIX || l_api_name || '.invoked'
5026: , l_api_name|| ' Entry');
5027: END IF;
5028:
5035: FROM PO_LINE_LOCATIONS_ALL plla
5036: WHERE plla.line_location_id = p_replen_po_shipment_id;
5037:
5038: IF (g_fnd_debug = 'Y' AND
5039: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5040: THEN
5041: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5042: , G_MODULE_PREFIX || l_api_name
5043: , l_api_name || ': l_replen_po_header_id = '|| l_replen_po_header_id
5037:
5038: IF (g_fnd_debug = 'Y' AND
5039: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5040: THEN
5041: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5042: , G_MODULE_PREFIX || l_api_name
5043: , l_api_name || ': l_replen_po_header_id = '|| l_replen_po_header_id
5044: || ', l_replen_po_line_id = '|| l_replen_po_line_id
5045: || ', p_replen_po_shipment_id = ' || p_replen_po_shipment_id);
5060: FROM OE_ORDER_LINES_ALL oola
5061: WHERE oola.line_id = p_replen_so_line_id;
5062:
5063: IF (g_fnd_debug = 'Y' AND
5064: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5065: THEN
5066: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5067: , G_MODULE_PREFIX || l_api_name
5068: , l_api_name || ': l_replen_so_header_id = '|| l_replen_so_header_id
5062:
5063: IF (g_fnd_debug = 'Y' AND
5064: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5065: THEN
5066: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5067: , G_MODULE_PREFIX || l_api_name
5068: , l_api_name || ': l_replen_so_header_id = '|| l_replen_so_header_id
5069: || ', l_ordered_qty = '|| l_ordered_qty
5070: || ', l_ordered_uom = ' || l_ordered_uom
5082: WHERE organization_id = p_tp_organization_id
5083: AND org_information_context = 'Customer/Supplier Association';
5084:
5085: IF (g_fnd_debug = 'Y' AND
5086: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5087: THEN
5088: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5089: , G_MODULE_PREFIX || l_api_name
5090: , l_api_name || ': l_tp_supplier_id = ' || l_tp_supplier_id
5084:
5085: IF (g_fnd_debug = 'Y' AND
5086: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5087: THEN
5088: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5089: , G_MODULE_PREFIX || l_api_name
5090: , l_api_name || ': l_tp_supplier_id = ' || l_tp_supplier_id
5091: || ', l_tp_supplier_site_id = ' || l_tp_supplier_site_id
5092: );
5130: p_additional_supply = 'N';
5131: END IF; /* IF p_additional_supply NOT IN ('Y', 'N') */
5132:
5133: IF (g_fnd_debug = 'Y' AND
5134: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5135: THEN
5136: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5137: , G_MODULE_PREFIX || l_api_name
5138: , l_api_name || ': l_primary_uom = ' || l_primary_uom
5132:
5133: IF (g_fnd_debug = 'Y' AND
5134: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5135: THEN
5136: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5137: , G_MODULE_PREFIX || l_api_name
5138: , l_api_name || ': l_primary_uom = ' || l_primary_uom
5139: || ', l_primary_uom_qty = ' || l_primary_uom_qty
5140: );
5199: , FND_GLOBAL.login_id
5200: );
5201:
5202: IF (g_fnd_debug = 'Y' AND
5203: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5204: THEN
5205: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5206: , G_MODULE_PREFIX || l_api_name || '.end'
5207: , l_api_name || ' Exit');
5201:
5202: IF (g_fnd_debug = 'Y' AND
5203: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5204: THEN
5205: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5206: , G_MODULE_PREFIX || l_api_name || '.end'
5207: , l_api_name || ' Exit');
5208: END IF;
5209:
5246:
5247: BEGIN
5248:
5249: IF (g_fnd_debug = 'Y' AND
5250: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5251: THEN
5252: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5253: , G_MODULE_PREFIX || l_api_name || '.invoked'
5254: , l_api_name|| ' Entry');
5248:
5249: IF (g_fnd_debug = 'Y' AND
5250: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5251: THEN
5252: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5253: , G_MODULE_PREFIX || l_api_name || '.invoked'
5254: , l_api_name|| ' Entry');
5255: END IF;
5256:
5269:
5270: l_subcontracting_type := JMF_SHIKYU_GRP.get_subcontracting_type(l_oem_org_id, l_mp_org_id);
5271:
5272: IF (g_fnd_debug = 'Y' AND
5273: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5274: THEN
5275: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5276: , G_MODULE_PREFIX || l_api_name
5277: , ' subcontracting_type is '|| l_subcontracting_type );
5271:
5272: IF (g_fnd_debug = 'Y' AND
5273: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5274: THEN
5275: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5276: , G_MODULE_PREFIX || l_api_name
5277: , ' subcontracting_type is '|| l_subcontracting_type );
5278: END IF;
5279:
5301: jsc.primary_uom, jsc.primary_uom_price,
5302: -1));
5303:
5304: IF (g_fnd_debug = 'Y' AND
5305: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5306: THEN
5307: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5308: , G_MODULE_PREFIX || l_api_name
5309: , l_api_name || ': l_count = '|| l_count
5303:
5304: IF (g_fnd_debug = 'Y' AND
5305: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5306: THEN
5307: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5308: , G_MODULE_PREFIX || l_api_name
5309: , l_api_name || ': l_count = '|| l_count
5310: );
5311: END IF;
5355:
5356: BEGIN
5357:
5358: IF (g_fnd_debug = 'Y' AND
5359: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5360: THEN
5361: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5362: , G_MODULE_PREFIX || l_api_name || '.invoked'
5363: , l_api_name|| ' Entry');
5357:
5358: IF (g_fnd_debug = 'Y' AND
5359: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5360: THEN
5361: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5362: , G_MODULE_PREFIX || l_api_name || '.invoked'
5363: , l_api_name|| ' Entry');
5364: END IF;
5365:
5394: AND oola.task_id IS NULL))
5395: );
5396:
5397: IF (g_fnd_debug = 'Y' AND
5398: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5399: THEN
5400: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5401: , G_MODULE_PREFIX || l_api_name
5402: , l_api_name || ': l_count = '|| l_count
5396:
5397: IF (g_fnd_debug = 'Y' AND
5398: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5399: THEN
5400: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5401: , G_MODULE_PREFIX || l_api_name
5402: , l_api_name || ': l_count = '|| l_count
5403: );
5404: END IF;
5455:
5456: BEGIN
5457:
5458: IF (g_fnd_debug = 'Y' AND
5459: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5460: THEN
5461: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5462: , G_MODULE_PREFIX || l_api_name || '.invoked'
5463: , l_api_name|| ' Entry');
5457:
5458: IF (g_fnd_debug = 'Y' AND
5459: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5460: THEN
5461: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5462: , G_MODULE_PREFIX || l_api_name || '.invoked'
5463: , l_api_name|| ' Entry');
5464: END IF;
5465:
5463: , l_api_name|| ' Entry');
5464: END IF;
5465:
5466: IF (g_fnd_debug = 'Y' AND
5467: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5468: THEN
5469: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5470: , G_MODULE_PREFIX || l_api_name
5471: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
5465:
5466: IF (g_fnd_debug = 'Y' AND
5467: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5468: THEN
5469: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5470: , G_MODULE_PREFIX || l_api_name
5471: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
5472: || 'p_component_id = ' || p_component_id
5473: || 'p_replen_so_line_id = ' || p_replen_so_line_id
5481:
5482: l_new_allocated_qty := p_existing_alloc_qty - l_remain_qty_to_reduce;
5483:
5484: IF (g_fnd_debug = 'Y' AND
5485: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5486: THEN
5487: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5488: , G_MODULE_PREFIX || l_api_name
5489: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5483:
5484: IF (g_fnd_debug = 'Y' AND
5485: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5486: THEN
5487: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5488: , G_MODULE_PREFIX || l_api_name
5489: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5490: || ') < p_existing_alloc_qty (' || p_existing_alloc_qty
5491: || '), l_new_allocated_qty = ' || l_new_allocated_qty
5509: -- the allocated_quantity column before the update operation.
5510: x_reduced_allocations_rec.qty := l_remain_qty_to_reduce;
5511:
5512: IF (g_fnd_debug = 'Y' AND
5513: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5514: THEN
5515: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5516: , G_MODULE_PREFIX || l_api_name
5517: , l_api_name || ': Updated JMF_SHIKYU_ALLOCATIONS table, '
5511:
5512: IF (g_fnd_debug = 'Y' AND
5513: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5514: THEN
5515: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5516: , G_MODULE_PREFIX || l_api_name
5517: , l_api_name || ': Updated JMF_SHIKYU_ALLOCATIONS table, '
5518: || 'x_reduced_allocations_rec.qty = '
5519: || x_reduced_allocations_rec.qty
5524:
5525: l_remain_qty_to_reduce := p_existing_alloc_qty;
5526:
5527: IF (g_fnd_debug = 'Y' AND
5528: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5529: THEN
5530: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5531: , G_MODULE_PREFIX || l_api_name
5532: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5526:
5527: IF (g_fnd_debug = 'Y' AND
5528: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5529: THEN
5530: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5531: , G_MODULE_PREFIX || l_api_name
5532: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5533: || ') >= p_existing_alloc_qty (' || p_existing_alloc_qty || ')'
5534: );
5551: FROM JMF_SHIKYU_REPLENISHMENTS
5552: WHERE replenishment_so_line_id = p_replen_so_line_id;
5553:
5554: IF (g_fnd_debug = 'Y' AND
5555: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5556: THEN
5557: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5558: , G_MODULE_PREFIX || l_api_name
5559: , l_api_name || ': l_replen_uom = ' || l_replen_uom
5553:
5554: IF (g_fnd_debug = 'Y' AND
5555: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5556: THEN
5557: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5558: , G_MODULE_PREFIX || l_api_name
5559: , l_api_name || ': l_replen_uom = ' || l_replen_uom
5560: );
5561: END IF;
5563: IF l_replen_uom <> p_alloc_uom
5564: THEN
5565:
5566: IF (g_fnd_debug = 'Y' AND
5567: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5568: THEN
5569: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5570: , G_MODULE_PREFIX || l_api_name
5571: , l_api_name || ': l_replen_uom (' || l_replen_uom
5565:
5566: IF (g_fnd_debug = 'Y' AND
5567: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5568: THEN
5569: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5570: , G_MODULE_PREFIX || l_api_name
5571: , l_api_name || ': l_replen_uom (' || l_replen_uom
5572: || ') <> p_alloc_uom (' || p_alloc_uom || ')'
5573: );
5588:
5589: END IF; /* IF l_replen_uom <> p_alloc_uom */
5590:
5591: IF (g_fnd_debug = 'Y' AND
5592: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5593: THEN
5594: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5595: , G_MODULE_PREFIX || l_api_name
5596: , l_api_name|| ': l_replen_uom = ' || l_replen_uom
5590:
5591: IF (g_fnd_debug = 'Y' AND
5592: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5593: THEN
5594: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5595: , G_MODULE_PREFIX || l_api_name
5596: , l_api_name|| ': l_replen_uom = ' || l_replen_uom
5597: || ', l_reduce_replen_uom_qty = ' || l_reduce_replen_uom_qty
5598: || ', p_alloc_uom = ' || p_alloc_uom
5607: allocated_primary_uom_quantity = allocated_primary_uom_quantity - l_reduce_replen_uom_qty
5608: WHERE replenishment_so_line_id = p_replen_so_line_id;
5609:
5610: IF (g_fnd_debug = 'Y' AND
5611: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5612: THEN
5613: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5614: , G_MODULE_PREFIX || l_api_name || '.end'
5615: , l_api_name || ' Exit');
5609:
5610: IF (g_fnd_debug = 'Y' AND
5611: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5612: THEN
5613: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5614: , G_MODULE_PREFIX || l_api_name || '.end'
5615: , l_api_name || ' Exit');
5616: END IF;
5617:
5648: IS
5649:
5650: BEGIN
5651:
5652: -- FND Logging at the start of the Procedure
5653: IF (g_fnd_debug = 'Y' AND
5654: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5655: THEN
5656: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5650: BEGIN
5651:
5652: -- FND Logging at the start of the Procedure
5653: IF (g_fnd_debug = 'Y' AND
5654: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5655: THEN
5656: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5657: , G_MODULE_PREFIX || p_api_name || '.invoked'
5658: , G_MODULE_PREFIX || p_api_name|| ' Entry');
5652: -- FND Logging at the start of the Procedure
5653: IF (g_fnd_debug = 'Y' AND
5654: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5655: THEN
5656: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5657: , G_MODULE_PREFIX || p_api_name || '.invoked'
5658: , G_MODULE_PREFIX || p_api_name|| ' Entry');
5659: END IF;
5660:
5723: and jsa.subcontract_po_shipment_id = jso.subcontract_po_shipment_id;
5724:
5725: BEGIN
5726:
5727: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5728: then
5729: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5730: ,G_MODULE_PREFIX || l_api_name
5731: ,'Begin');
5725: BEGIN
5726:
5727: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5728: then
5729: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5730: ,G_MODULE_PREFIX || l_api_name
5731: ,'Begin');
5732: end if;
5733:
5733:
5734: x_return_status := FND_API.G_RET_STS_SUCCESS;
5735:
5736: for so_date_change_rec in c_so_date_changes_cur loop
5737: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5738: then
5739: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5740: ,G_MODULE_PREFIX || l_api_name
5741: ,'RSO line_id:' || so_date_change_rec.line_id ||
5735:
5736: for so_date_change_rec in c_so_date_changes_cur loop
5737: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5738: then
5739: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5740: ,G_MODULE_PREFIX || l_api_name
5741: ,'RSO line_id:' || so_date_change_rec.line_id ||
5742: ':OM Sched Ship Date:' || so_date_change_rec.om_schedule_ship_date ||
5743: ':JMF Sched Ship Date:' || so_date_change_rec.jmf_schedule_ship_date ||
5758: where replenishment_so_line_id = l_line_id;
5759:
5760: l_cnt := sql%rowcount;
5761:
5762: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5763: then
5764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5765: ,G_MODULE_PREFIX || l_api_name
5766: ,'SO is backward scheduled:: Rows Updated in JSR:' || l_cnt
5760: l_cnt := sql%rowcount;
5761:
5762: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5763: then
5764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5765: ,G_MODULE_PREFIX || l_api_name
5766: ,'SO is backward scheduled:: Rows Updated in JSR:' || l_cnt
5767: );
5768: end if;
5777:
5778: --Creating this savepoint to rollback the processing in case of an error.
5779: savepoint allocations;
5780:
5781: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5782: then
5783: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5784: ,G_MODULE_PREFIX || l_api_name
5785: ,'Component_id:' || c_alloc_rec.shikyu_component_id ||
5779: savepoint allocations;
5780:
5781: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5782: then
5783: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5784: ,G_MODULE_PREFIX || l_api_name
5785: ,'Component_id:' || c_alloc_rec.shikyu_component_id ||
5786: ':subcontract_po_shipment_id:' || c_alloc_rec.subcontract_po_shipment_id ||
5787: ':wip_entity_id:' || c_alloc_rec.wip_entity_id
5795: l_final_ship_date := JMF_SHIKYU_UTIL.get_final_ship_date(p_oem_organization => so_date_change_rec.oem_organization_id
5796: , p_tp_organization => so_date_change_rec.tp_organization_id
5797: , p_scheduled_ship_date => so_date_change_rec.om_schedule_ship_date);
5798:
5799: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5800: then
5801: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5802: ,G_MODULE_PREFIX || l_api_name
5803: ,'l_allocation_date:' || l_allocation_date ||
5797: , p_scheduled_ship_date => so_date_change_rec.om_schedule_ship_date);
5798:
5799: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5800: then
5801: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5802: ,G_MODULE_PREFIX || l_api_name
5803: ,'l_allocation_date:' || l_allocation_date ||
5804: ':l_final_ship_date:' || l_final_ship_date
5805: );
5820: );
5821:
5822: if l_return_status <> FND_API.G_RET_STS_SUCCESS
5823: then
5824: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5825: then
5826: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5827: , G_MODULE_PREFIX || l_api_name
5828: , 'Delete allocations returned error. Status:' || l_return_status);
5822: if l_return_status <> FND_API.G_RET_STS_SUCCESS
5823: then
5824: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5825: then
5826: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5827: , G_MODULE_PREFIX || l_api_name
5828: , 'Delete allocations returned error. Status:' || l_return_status);
5829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5830: , G_MODULE_PREFIX || l_api_name
5825: then
5826: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5827: , G_MODULE_PREFIX || l_api_name
5828: , 'Delete allocations returned error. Status:' || l_return_status);
5829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5830: , G_MODULE_PREFIX || l_api_name
5831: , 'Rolling back the processing for SCO_shipment_id:' || c_alloc_rec.subcontract_po_shipment_id ||
5832: ':component_id:' || c_alloc_rec.shikyu_component_id ||
5833: ':line_id:' || l_line_id);
5847:
5848: --Skip processing this SCP shipment and move to the next one.
5849: goto allocations_loop_ends;
5850: else
5851: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5852: then
5853: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5854: , G_MODULE_PREFIX || l_api_name
5855: , 'Delete allocations returned success. Status:' || l_return_status ||
5849: goto allocations_loop_ends;
5850: else
5851: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5852: then
5853: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5854: , G_MODULE_PREFIX || l_api_name
5855: , 'Delete allocations returned success. Status:' || l_return_status ||
5856: ':for SCO_shipment_id:' || c_alloc_rec.subcontract_po_shipment_id ||
5857: ':component_id:' || c_alloc_rec.shikyu_component_id ||
5865: else
5866: l_deleted_qty := 0;
5867: end if;
5868:
5869: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5870: then
5871: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5872: ,G_MODULE_PREFIX || l_api_name
5873: ,'Rows deleted:' || l_deleted_allocations_tbl.count ||
5867: end if;
5868:
5869: if g_fnd_debug = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5870: then
5871: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5872: ,G_MODULE_PREFIX || l_api_name
5873: ,'Rows deleted:' || l_deleted_allocations_tbl.count ||
5874: ':Deleted Quantity:' || l_deleted_qty);
5875: end if;
5887: );
5888:
5889: if l_return_status <> FND_API.G_RET_STS_SUCCESS
5890: then
5891: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5892: then
5893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5894: , G_MODULE_PREFIX || l_api_name
5895: , 'Create_New_Allocations returned error. Status:' || l_return_status ||
5889: if l_return_status <> FND_API.G_RET_STS_SUCCESS
5890: then
5891: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5892: then
5893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5894: , G_MODULE_PREFIX || l_api_name
5895: , 'Create_New_Allocations returned error. Status:' || l_return_status ||
5896: ':for SCO_shipment_id:' || c_alloc_rec.subcontract_po_shipment_id ||
5897: ':component_id:' || c_alloc_rec.shikyu_component_id);
5900:
5901: x_return_status := l_return_status;
5902:
5903: else
5904: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5905: then
5906: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5907: , G_MODULE_PREFIX || l_api_name
5908: , 'Create_New_Allocations returned success. Status:' || l_return_status ||
5902:
5903: else
5904: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5905: then
5906: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5907: , G_MODULE_PREFIX || l_api_name
5908: , 'Create_New_Allocations returned success. Status:' || l_return_status ||
5909: ':for SCO_shipment_id:' || c_alloc_rec.subcontract_po_shipment_id ||
5910: ':component_id:' || c_alloc_rec.shikyu_component_id);
5925: last_update_login = FND_GLOBAL.login_id
5926: where replenishment_so_line_id = l_line_id;
5927:
5928: l_cnt := sql%rowcount;
5929: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5930: then
5931: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5932: , G_MODULE_PREFIX || l_api_name
5933: , 'l_deletion_failed = 0. Rows updated in JSR::' || l_cnt);
5927:
5928: l_cnt := sql%rowcount;
5929: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
5930: then
5931: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5932: , G_MODULE_PREFIX || l_api_name
5933: , 'l_deletion_failed = 0. Rows updated in JSR::' || l_cnt);
5934: end if;
5935: end if;
5941: WHEN FND_API.G_EXC_ERROR THEN
5942: -- dbms_output.put_line(' EXCEPTION: FND_API.G_EXC_ERROR ');
5943: -- dbms_output.put_line(' SQLERRM : '|| SQLERRM );
5944:
5945: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5947: , G_MODULE_PREFIX || l_api_name
5948: , 'Expected Error:' || sqlerrm);
5949: END IF;
5942: -- dbms_output.put_line(' EXCEPTION: FND_API.G_EXC_ERROR ');
5943: -- dbms_output.put_line(' SQLERRM : '|| SQLERRM );
5944:
5945: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5947: , G_MODULE_PREFIX || l_api_name
5948: , 'Expected Error:' || sqlerrm);
5949: END IF;
5950:
5958: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5959: -- dbms_output.put_line(' EXCEPTION: FND_API.G_EXC_UNEXPECTED_ERROR ');
5960: -- dbms_output.put_line(' SQLERRM : '|| SQLERRM );
5961:
5962: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5963: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5964: , G_MODULE_PREFIX || l_api_name
5965: , 'UnExpected Error:' || sqlerrm);
5966: END IF;
5959: -- dbms_output.put_line(' EXCEPTION: FND_API.G_EXC_UNEXPECTED_ERROR ');
5960: -- dbms_output.put_line(' SQLERRM : '|| SQLERRM );
5961:
5962: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5963: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5964: , G_MODULE_PREFIX || l_api_name
5965: , 'UnExpected Error:' || sqlerrm);
5966: END IF;
5967:
5974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5975:
5976: WHEN OTHERS THEN
5977:
5978: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5979: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5980: , G_MODULE_PREFIX || l_api_name
5981: , 'Others:' || sqlerrm);
5982: END IF;
5975:
5976: WHEN OTHERS THEN
5977:
5978: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5979: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5980: , G_MODULE_PREFIX || l_api_name
5981: , 'Others:' || sqlerrm);
5982: END IF;
5983: