[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:
934: FETCH c_wip_date_cur
935: INTO l_wip_job_start_date, l_wip_job_complete_date;
936:
937: IF (g_fnd_debug = 'Y' AND
938: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
939: THEN
940: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
941: , G_MODULE_PREFIX || l_api_name
942: , l_api_name || ': l_wip_job_start_date = '|| l_wip_job_start_date
936:
937: IF (g_fnd_debug = 'Y' AND
938: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
939: THEN
940: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
941: , G_MODULE_PREFIX || l_api_name
942: , l_api_name || ': l_wip_job_start_date = '|| l_wip_job_start_date
943: || ', l_wip_job_complete_date = ' || l_wip_job_complete_date);
944: END IF;
972:
973: END IF; /* NVL(p_arrived_so_lines_only, 'N') = 'N' */
974:
975: IF (g_fnd_debug = 'Y' AND
976: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
977: THEN
978: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
979: , G_MODULE_PREFIX || l_api_name
980: , l_api_name || ': l_threshold_date = '|| l_threshold_date);
974:
975: IF (g_fnd_debug = 'Y' AND
976: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
977: THEN
978: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
979: , G_MODULE_PREFIX || l_api_name
980: , l_api_name || ': l_threshold_date = '|| l_threshold_date);
981: END IF;
982:
985: OPEN c_ship_lead_time_cur;
986: FETCH c_ship_lead_time_cur INTO l_ship_lead_time, l_oem_organization_id, l_tp_organization_id;
987:
988: IF (g_fnd_debug = 'Y' AND
989: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
990: THEN
991: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
992: , G_MODULE_PREFIX || l_api_name
993: , l_api_name || ': l_ship_lead_time = ' || l_ship_lead_time);
987:
988: IF (g_fnd_debug = 'Y' AND
989: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
990: THEN
991: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
992: , G_MODULE_PREFIX || l_api_name
993: , l_api_name || ': l_ship_lead_time = ' || l_ship_lead_time);
994: END IF;
995:
1000: /* Log the error in the Concurrent Request log */
1001: BEGIN
1002:
1003: IF (g_fnd_debug = 'Y' AND
1004: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1005: THEN
1006: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1007: , G_MODULE_PREFIX || l_api_name
1008: , 'oem_organization_id '||l_oem_organization_id);
1002:
1003: IF (g_fnd_debug = 'Y' AND
1004: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1005: THEN
1006: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1007: , G_MODULE_PREFIX || l_api_name
1008: , 'oem_organization_id '||l_oem_organization_id);
1009:
1010: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1006: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1007: , G_MODULE_PREFIX || l_api_name
1008: , 'oem_organization_id '||l_oem_organization_id);
1009:
1010: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1011: , G_MODULE_PREFIX || l_api_name
1012: , 'tp_organization_id '||l_tp_organization_id);
1013: END IF;
1014:
1035: l_status_flag := FND_CONCURRENT.set_completion_status('WARNING',NULL);
1036: EXCEPTION
1037: WHEN OTHERS THEN
1038: IF (g_fnd_debug = 'Y' AND
1039: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1040: THEN
1041:
1042: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1043: , G_MODULE_PREFIX || l_api_name
1038: IF (g_fnd_debug = 'Y' AND
1039: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1040: THEN
1041:
1042: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1043: , G_MODULE_PREFIX || l_api_name
1044: , 'Error in set status of ship method '||SQLERRM);
1045: END IF;
1046: NULL; -- Return null if there is an error in fetching the message
1075:
1076: l_avail_replen_so_rec := l_avail_replen_so_tbl(l_tbl_index);
1077:
1078: IF (g_fnd_debug = 'Y' AND
1079: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1080: THEN
1081: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1082: , G_MODULE_PREFIX || l_api_name
1083: , l_api_name || ': Loop iteration ' || l_out_tbl_index
1077:
1078: IF (g_fnd_debug = 'Y' AND
1079: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1080: THEN
1081: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1082: , G_MODULE_PREFIX || l_api_name
1083: , l_api_name || ': Loop iteration ' || l_out_tbl_index
1084: || ': Replenishment SO Line ID = '
1085: || l_avail_replen_so_rec.replenishment_so_line_id);
1098: )
1099: THEN
1100:
1101: IF (g_fnd_debug = 'Y' AND
1102: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1103: THEN
1104: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1105: , G_MODULE_PREFIX || l_api_name
1106: , l_api_name || ': Validation of Price and Project/Task passed');
1100:
1101: IF (g_fnd_debug = 'Y' AND
1102: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1103: THEN
1104: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1105: , G_MODULE_PREFIX || l_api_name
1106: , l_api_name || ': Validation of Price and Project/Task passed');
1107: END IF;
1108:
1118:
1119: END IF; /* IF l_avail_replen_so_tbl.COUNT > 0 */
1120:
1121: IF (g_fnd_debug = 'Y' AND
1122: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1123: THEN
1124: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1125: , G_MODULE_PREFIX || l_api_name
1126: , l_api_name || ': l_remaining_qty = '|| l_remaining_qty);
1120:
1121: IF (g_fnd_debug = 'Y' AND
1122: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1123: THEN
1124: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1125: , G_MODULE_PREFIX || l_api_name
1126: , l_api_name || ': l_remaining_qty = '|| l_remaining_qty);
1127: END IF;
1128:
1135:
1136: CLOSE c_avail_replen_so_cur;
1137:
1138: IF (g_fnd_debug = 'Y' AND
1139: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1140: THEN
1141: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1142: , G_MODULE_PREFIX || l_api_name || '.end'
1143: , l_api_name || ' Exit');
1137:
1138: IF (g_fnd_debug = 'Y' AND
1139: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1140: THEN
1141: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1142: , G_MODULE_PREFIX || l_api_name || '.end'
1143: , l_api_name || ' Exit');
1144: END IF;
1145:
1148: WHEN g_no_wip_job_found_exc THEN
1149:
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: IF g_fnd_debug = 'Y' AND
1152: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1153: THEN
1154: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1155: , G_MODULE_PREFIX || l_api_name || '.g_no_wip_job_found_excc'
1156: , 'No WIP Job found for Subcontracting Order Shipment with ID = '
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: IF g_fnd_debug = 'Y' AND
1152: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1153: THEN
1154: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1155: , G_MODULE_PREFIX || l_api_name || '.g_no_wip_job_found_excc'
1156: , 'No WIP Job found for Subcontracting Order Shipment with ID = '
1157: || p_subcontract_po_shipment_id);
1158: END IF;
1160: WHEN g_no_ship_method_found_exc THEN
1161:
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: IF g_fnd_debug = 'Y' AND
1164: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1165: THEN
1166: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1167: , G_MODULE_PREFIX || l_api_name || '.g_no_ship_method_found_exc'
1168: , 'Cannot get Shipping Lead Time from the Shipping Network from '
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: IF g_fnd_debug = 'Y' AND
1164: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1165: THEN
1166: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1167: , G_MODULE_PREFIX || l_api_name || '.g_no_ship_method_found_exc'
1168: , 'Cannot get Shipping Lead Time from the Shipping Network from '
1169: || 'the OEM Org to the TP Org');
1170: END IF;
1173:
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175:
1176: IF g_fnd_debug = 'Y' AND
1177: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1178: THEN
1179:
1180: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1181: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1176: IF g_fnd_debug = 'Y' AND
1177: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1178: THEN
1179:
1180: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1181: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1182: , sqlerrm);
1183: END IF;
1184:
1312: , x_tp_organization_id => l_tp_organization_id
1313: );
1314:
1315: IF (g_fnd_debug = 'Y' AND
1316: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1317: THEN
1318: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1319: , G_MODULE_PREFIX || l_api_name
1320: , l_api_name || ': l_oem_organization_id = ' || l_oem_organization_id
1314:
1315: IF (g_fnd_debug = 'Y' AND
1316: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1317: THEN
1318: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1319: , G_MODULE_PREFIX || l_api_name
1320: , l_api_name || ': l_oem_organization_id = ' || l_oem_organization_id
1321: || ', l_tp_organization_id = ' || l_tp_organization_id);
1322: END IF;
1327: , p_organization_id => l_oem_organization_id
1328: );
1329:
1330: IF (g_fnd_debug = 'Y' AND
1331: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1332: THEN
1333: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1334: , G_MODULE_PREFIX || l_api_name
1335: , l_api_name || ': l_primary_uom = ' || l_primary_uom);
1329:
1330: IF (g_fnd_debug = 'Y' AND
1331: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1332: THEN
1333: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1334: , G_MODULE_PREFIX || l_api_name
1335: , l_api_name || ': l_primary_uom = ' || l_primary_uom);
1336: END IF;
1337:
1356: l_uom_rate := NULL;
1357: l_avail_replen_po_rec := l_avail_replen_po_tbl(l_tbl_index);
1358:
1359: IF (g_fnd_debug = 'Y' AND
1360: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1361: THEN
1362: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1363: , G_MODULE_PREFIX || l_api_name
1364: , l_api_name || ': Loop iteration: ' || l_tbl_index
1358:
1359: IF (g_fnd_debug = 'Y' AND
1360: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1361: THEN
1362: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1363: , G_MODULE_PREFIX || l_api_name
1364: , l_api_name || ': Loop iteration: ' || l_tbl_index
1365: || ', l_primary_uom = ' || l_primary_uom
1366: || ', l_avail_replen_po_rec.uom = ' || l_avail_replen_po_rec.uom);
1385:
1386: END IF; /* IF l_primary_uom <> l_avail_replen_po_rec.uom */
1387:
1388: IF (g_fnd_debug = 'Y' AND
1389: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1390: THEN
1391: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1392: , G_MODULE_PREFIX || l_api_name
1393: , l_api_name || ': replenishment_po_shipment_id = '
1387:
1388: IF (g_fnd_debug = 'Y' AND
1389: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1390: THEN
1391: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1392: , G_MODULE_PREFIX || l_api_name
1393: , l_api_name || ': replenishment_po_shipment_id = '
1394: || l_avail_replen_po_rec.replenishment_po_shipment_id
1395: || ', qty = ' || l_avail_replen_po_rec.qty
1414: x_remaining_qty := l_remaining_qty;
1415: END IF; /* IF l_remaining_qty < 0 */
1416:
1417: IF (g_fnd_debug = 'Y' AND
1418: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1419: THEN
1420: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1421: , G_MODULE_PREFIX || l_api_name
1422: , l_api_name || ': x_remaining_qty = ' || x_remaining_qty);
1416:
1417: IF (g_fnd_debug = 'Y' AND
1418: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1419: THEN
1420: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1421: , G_MODULE_PREFIX || l_api_name
1422: , l_api_name || ': x_remaining_qty = ' || x_remaining_qty);
1423: END IF;
1424:
1424:
1425: CLOSE c_avail_replen_po_cur;
1426:
1427: IF (g_fnd_debug = 'Y' AND
1428: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1429: THEN
1430: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1431: , G_MODULE_PREFIX || l_api_name || '.end'
1432: , l_api_name || ' Exit');
1426:
1427: IF (g_fnd_debug = 'Y' AND
1428: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1429: THEN
1430: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1431: , G_MODULE_PREFIX || l_api_name || '.end'
1432: , l_api_name || ' Exit');
1433: END IF;
1434:
1438:
1439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1440:
1441: IF g_fnd_debug = 'Y' AND
1442: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1443: THEN
1444:
1445: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1446: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1441: IF g_fnd_debug = 'Y' AND
1442: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1443: THEN
1444:
1445: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1446: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1447: , sqlerrm);
1448: END IF;
1449:
1519: , x_return_status => x_return_status
1520: );
1521:
1522: IF (g_fnd_debug = 'Y' AND
1523: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1524: THEN
1525: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1526: , G_MODULE_PREFIX || l_api_name
1527: , l_api_name || ': x_return_status from JMF_SHIKYU_PO_PVT.Process_Replenishment_PO = '
1521:
1522: IF (g_fnd_debug = 'Y' AND
1523: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1524: THEN
1525: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1526: , G_MODULE_PREFIX || l_api_name
1527: , l_api_name || ': x_return_status from JMF_SHIKYU_PO_PVT.Process_Replenishment_PO = '
1528: || x_return_status
1529: || ', x_po_line_location_id = ' || l_new_replen_po_shipment_id);
1550: , x_primary_uom_price => l_primary_uom_price
1551: );
1552:
1553: IF (g_fnd_debug = 'Y' AND
1554: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1555: THEN
1556: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1557: , G_MODULE_PREFIX || l_api_name
1558: , l_api_name || ': l_component_uom = ' || l_component_uom
1552:
1553: IF (g_fnd_debug = 'Y' AND
1554: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1555: THEN
1556: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1557: , G_MODULE_PREFIX || l_api_name
1558: , l_api_name || ': l_component_uom = ' || l_component_uom
1559: || ', l_component_price = ' || l_component_price
1560: || ', l_primary_uom = ' || l_primary_uom
1586: , x_tp_organization_id => l_tp_organization_id
1587: );
1588:
1589: IF (g_fnd_debug = 'Y' AND
1590: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1591: THEN
1592: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1593: , G_MODULE_PREFIX || l_api_name
1594: , l_api_name || ': l_new_replen_qty = ' || l_new_replen_qty);
1588:
1589: IF (g_fnd_debug = 'Y' AND
1590: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1591: THEN
1592: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1593: , G_MODULE_PREFIX || l_api_name
1594: , l_api_name || ': l_new_replen_qty = ' || l_new_replen_qty);
1595: END IF;
1596:
1607: , x_return_status => x_return_status
1608: );
1609:
1610: IF (g_fnd_debug = 'Y' AND
1611: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1612: THEN
1613: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1614: , G_MODULE_PREFIX || l_api_name
1615: , l_api_name || ': x_return_status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1609:
1610: IF (g_fnd_debug = 'Y' AND
1611: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1612: THEN
1613: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1614: , G_MODULE_PREFIX || l_api_name
1615: , l_api_name || ': x_return_status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1616: || x_return_status);
1617: END IF;
1648:
1649: END IF;
1650:
1651: IF (g_fnd_debug = 'Y' AND
1652: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1653: THEN
1654: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1655: , G_MODULE_PREFIX || l_api_name || '.end'
1656: , l_api_name || ' Exit');
1650:
1651: IF (g_fnd_debug = 'Y' AND
1652: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1653: THEN
1654: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1655: , G_MODULE_PREFIX || l_api_name || '.end'
1656: , l_api_name || ' Exit');
1657: END IF;
1658:
1659: EXCEPTION
1660: WHEN g_process_replen_po_exc THEN
1661:
1662: IF g_fnd_debug = 'Y' AND
1663: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1664: THEN
1665: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1666: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_po_exc'
1667: , 'Process_Replenishment_PO API returns a status of ' || x_return_status);
1661:
1662: IF g_fnd_debug = 'Y' AND
1663: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1664: THEN
1665: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1666: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_po_exc'
1667: , 'Process_Replenishment_PO API returns a status of ' || x_return_status);
1668: END IF;
1669:
1669:
1670: WHEN g_process_replen_so_exc THEN
1671:
1672: IF g_fnd_debug = 'Y' AND
1673: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1674: THEN
1675: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1676: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1677: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1671:
1672: IF g_fnd_debug = 'Y' AND
1673: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1674: THEN
1675: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1676: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1677: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1678: END IF;
1679:
1681:
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683:
1684: IF g_fnd_debug = 'Y' AND
1685: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1686: THEN
1687:
1688: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1689: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1684: IF g_fnd_debug = 'Y' AND
1685: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1686: THEN
1687:
1688: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1689: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1690: , sqlerrm);
1691: END IF;
1692:
1810: l_replen_po_primary_qty := l_replen_po_rec.primary_uom_qty;
1811: l_replen_po_qty := l_replen_po_rec.qty;
1812:
1813: IF (g_fnd_debug = 'Y' AND
1814: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1815: THEN
1816: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1817: , G_MODULE_PREFIX || l_api_name
1818: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1812:
1813: IF (g_fnd_debug = 'Y' AND
1814: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1815: THEN
1816: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1817: , G_MODULE_PREFIX || l_api_name
1818: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1819: || ': l_replen_po_rec.replenishment_po_shipment_id = '
1820: || l_replen_po_rec.replenishment_po_shipment_id);
1866:
1867: END IF; /* IF(l_replen_po_rec.uom <> l_component_uom) */
1868:
1869: IF (g_fnd_debug = 'Y' AND
1870: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1871: THEN
1872: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1873: , G_MODULE_PREFIX || l_api_name
1874: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1868:
1869: IF (g_fnd_debug = 'Y' AND
1870: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1871: THEN
1872: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1873: , G_MODULE_PREFIX || l_api_name
1874: , l_api_name || ': Loop Iteration: ' || l_tbl_index
1875: || ', l_component_uom = ' || l_component_uom
1876: || ', l_primary_uom = ' || l_primary_uom
1900: END IF;
1901: -- *** vchu end: new code 8/18
1902:
1903: IF (g_fnd_debug = 'Y' AND
1904: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1905: THEN
1906: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1907: , G_MODULE_PREFIX || l_api_name
1908: , l_api_name || ': return status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1902:
1903: IF (g_fnd_debug = 'Y' AND
1904: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1905: THEN
1906: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1907: , G_MODULE_PREFIX || l_api_name
1908: , l_api_name || ': return status from JMF_SHIKYU_ONT_PVT.Process_Replenishment_SO = '
1909: || x_return_status);
1910: END IF;
1909: || x_return_status);
1910: END IF;
1911:
1912: IF (g_fnd_debug = 'Y' AND
1913: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1914: THEN
1915: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1916: , G_MODULE_PREFIX || l_api_name
1917: , l_api_name || ': l_replen_po_rec.replenishment_po_shipment_id = '
1911:
1912: IF (g_fnd_debug = 'Y' AND
1913: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1914: THEN
1915: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1916: , G_MODULE_PREFIX || l_api_name
1917: , l_api_name || ': l_replen_po_rec.replenishment_po_shipment_id = '
1918: || l_replen_po_rec.replenishment_po_shipment_id || ', l_new_order_line_id = '
1919: || l_new_order_line_id);
1940: x_new_replen_tbl(l_replen_so_tbl_index).primary_uom_qty := l_new_replen_primary_qty;
1941: x_new_replen_tbl(l_replen_so_tbl_index).primary_uom := l_primary_uom;
1942:
1943: IF (g_fnd_debug = 'Y' AND
1944: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1945: THEN
1946: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1947: , G_MODULE_PREFIX || l_api_name
1948: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).qty = '
1942:
1943: IF (g_fnd_debug = 'Y' AND
1944: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1945: THEN
1946: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1947: , G_MODULE_PREFIX || l_api_name
1948: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).qty = '
1949: || x_new_replen_tbl(l_replen_so_tbl_index).qty);
1950: END IF;
1949: || x_new_replen_tbl(l_replen_so_tbl_index).qty);
1950: END IF;
1951:
1952: IF (g_fnd_debug = 'Y' AND
1953: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1954: THEN
1955: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1956: , G_MODULE_PREFIX || l_api_name
1957: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).uom = '
1951:
1952: IF (g_fnd_debug = 'Y' AND
1953: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1954: THEN
1955: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1956: , G_MODULE_PREFIX || l_api_name
1957: , l_api_name || ': x_new_replen_tbl(l_replen_so_tbl_index).uom = '
1958: || x_new_replen_tbl(l_replen_so_tbl_index).uom);
1959: END IF;
1969:
1970: END IF; /* IF l_avail_replen_po_tbl.COUNT > 0 */
1971:
1972: IF (g_fnd_debug = 'Y' AND
1973: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1974: THEN
1975: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1976: , G_MODULE_PREFIX || l_api_name || '.end'
1977: , l_api_name || ' Exit');
1971:
1972: IF (g_fnd_debug = 'Y' AND
1973: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
1974: THEN
1975: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
1976: , G_MODULE_PREFIX || l_api_name || '.end'
1977: , l_api_name || ' Exit');
1978: END IF;
1979:
1980: EXCEPTION
1981: WHEN g_process_replen_so_exc THEN
1982:
1983: IF g_fnd_debug = 'Y' AND
1984: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1985: THEN
1986: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1987: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1988: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1982:
1983: IF g_fnd_debug = 'Y' AND
1984: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1985: THEN
1986: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1987: , G_MODULE_PREFIX || l_api_name || '.g_process_replen_so_exc'
1988: , 'Process_Replenishment_SO API returns a status of ' || x_return_status);
1989: END IF;
1990:
1992:
1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1994:
1995: IF g_fnd_debug = 'Y' AND
1996: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1997: THEN
1998:
1999: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2000: , G_MODULE_PREFIX || l_api_name || '.others_exception'
1995: IF g_fnd_debug = 'Y' AND
1996: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1997: THEN
1998:
1999: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2000: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2001: , sqlerrm);
2002: END IF;
2003:
2063: , x_return_status => x_return_status
2064: );
2065:
2066: IF (g_fnd_debug = 'Y' AND
2067: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2068: THEN
2069: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2070: , G_MODULE_PREFIX || l_api_name
2071: , l_api_name || ': in Sync-ship case');
2065:
2066: IF (g_fnd_debug = 'Y' AND
2067: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2068: THEN
2069: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2070: , G_MODULE_PREFIX || l_api_name
2071: , l_api_name || ': in Sync-ship case');
2072: END IF;
2073:
2081: AND msib.inventory_item_id = p_component_id
2082: AND msib.organization_id = jso.tp_organization_id;
2083:
2084: IF (g_fnd_debug = 'Y' AND
2085: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2086: THEN
2087: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2088: , G_MODULE_PREFIX || l_api_name
2089: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2083:
2084: IF (g_fnd_debug = 'Y' AND
2085: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2086: THEN
2087: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2088: , G_MODULE_PREFIX || l_api_name
2089: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2090:
2091: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2087: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2088: , G_MODULE_PREFIX || l_api_name
2089: , l_api_name || ': p_subcontract_po_shipment_id = '|| p_subcontract_po_shipment_id);
2090:
2091: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2092: , G_MODULE_PREFIX || l_api_name
2093: , l_api_name || ': p_component_id = '|| p_component_id
2094: || ', p_qty = ' || p_qty );
2095:
2099: IF l_subcontracting_component = 1
2100: THEN
2101:
2102: IF (g_fnd_debug = 'Y' AND
2103: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2104: THEN
2105: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2106: , G_MODULE_PREFIX || l_api_name
2107: , l_api_name || ': in Pre-Positioned case');
2101:
2102: IF (g_fnd_debug = 'Y' AND
2103: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2104: THEN
2105: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2106: , G_MODULE_PREFIX || l_api_name
2107: , l_api_name || ': in Pre-Positioned case');
2108: END IF;
2109:
2122: ELSIF l_subcontracting_component = 2
2123: THEN
2124:
2125: IF (g_fnd_debug = 'Y' AND
2126: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2127: THEN
2128: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2129: , G_MODULE_PREFIX || l_api_name
2130: , l_api_name || ': in Sync-ship case');
2124:
2125: IF (g_fnd_debug = 'Y' AND
2126: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2127: THEN
2128: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2129: , G_MODULE_PREFIX || l_api_name
2130: , l_api_name || ': in Sync-ship case');
2131: END IF;
2132:
2148:
2149: END IF; /* IF l_subcontracting_component = 1 */
2150:
2151: IF (g_fnd_debug = 'Y' AND
2152: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2153: THEN
2154: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2155: , G_MODULE_PREFIX || l_api_name || '.end'
2156: , l_api_name || ' Exit');
2150:
2151: IF (g_fnd_debug = 'Y' AND
2152: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2153: THEN
2154: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2155: , G_MODULE_PREFIX || l_api_name || '.end'
2156: , l_api_name || ' Exit');
2157: END IF;
2158:
2161: WHEN NO_DATA_FOUND THEN
2162:
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: IF g_fnd_debug = 'Y' AND
2165: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2166: THEN
2167: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2168: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
2169: , 'Subcontracting Order Shipment ID' || p_subcontract_po_shipment_id ||
2163: x_return_status := FND_API.G_RET_STS_ERROR;
2164: IF g_fnd_debug = 'Y' AND
2165: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2166: THEN
2167: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2168: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
2169: , 'Subcontracting Order Shipment ID' || p_subcontract_po_shipment_id ||
2170: ' or Component ID ' || p_component_id || ' does not exist');
2171: END IF;
2173: WHEN g_non_shikyu_component_exc THEN
2174:
2175: x_return_status := FND_API.G_RET_STS_ERROR;
2176: IF g_fnd_debug = 'Y' AND
2177: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2178: THEN
2179: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2180: , G_MODULE_PREFIX || l_api_name || '.g_non_shikyu_component_exc'
2181: , 'The component to allocate is not Sync-ship or Pre-Positioned');
2175: x_return_status := FND_API.G_RET_STS_ERROR;
2176: IF g_fnd_debug = 'Y' AND
2177: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2178: THEN
2179: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2180: , G_MODULE_PREFIX || l_api_name || '.g_non_shikyu_component_exc'
2181: , 'The component to allocate is not Sync-ship or Pre-Positioned');
2182: END IF;
2183:
2185:
2186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2187:
2188: IF g_fnd_debug = 'Y' AND
2189: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2190: THEN
2191:
2192: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2193: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2188: IF g_fnd_debug = 'Y' AND
2189: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2190: THEN
2191:
2192: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2193: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2194: , sqlerrm);
2195: END IF;
2196:
2262: , x_remaining_qty => l_remaining_qty
2263: );
2264:
2265: IF (g_fnd_debug = 'Y' AND
2266: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2267: THEN
2268: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2269: , G_MODULE_PREFIX || l_api_name
2270: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty);
2264:
2265: IF (g_fnd_debug = 'Y' AND
2266: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2267: THEN
2268: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2269: , G_MODULE_PREFIX || l_api_name
2270: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty);
2271: END IF;
2272:
2293: END IF;
2294: -- *** vchu end: new code 8/18
2295:
2296: IF (g_fnd_debug = 'Y' AND
2297: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2298: THEN
2299: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2300: , G_MODULE_PREFIX || l_api_name
2301: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated);
2295:
2296: IF (g_fnd_debug = 'Y' AND
2297: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2298: THEN
2299: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2300: , G_MODULE_PREFIX || l_api_name
2301: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated);
2302: END IF;
2303:
2320: , x_new_replen_tbl => l_available_replen_tbl
2321: );
2322:
2323: IF (g_fnd_debug = 'Y' AND
2324: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2325: THEN
2326: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2327: , G_MODULE_PREFIX || l_api_name
2328: , l_api_name || ': return status from Create_New_Replenishment_So = '
2322:
2323: IF (g_fnd_debug = 'Y' AND
2324: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2325: THEN
2326: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2327: , G_MODULE_PREFIX || l_api_name
2328: , l_api_name || ': return status from Create_New_Replenishment_So = '
2329: || x_return_status);
2330: END IF;
2391:
2392:
2393:
2394: IF (g_fnd_debug = 'Y' AND
2395: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2396: THEN
2397: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2398: , G_MODULE_PREFIX || l_api_name || '.end'
2399: , l_api_name || ' Exit');
2393:
2394: IF (g_fnd_debug = 'Y' AND
2395: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2396: THEN
2397: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2398: , G_MODULE_PREFIX || l_api_name || '.end'
2399: , l_api_name || ' Exit');
2400: END IF;
2401:
2405:
2406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2407:
2408: IF g_fnd_debug = 'Y' AND
2409: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2410: THEN
2411:
2412: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2413: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2408: IF g_fnd_debug = 'Y' AND
2409: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2410: THEN
2411:
2412: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2413: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2414: , sqlerrm);
2415: END IF;
2416:
2467: , x_return_status => x_return_status
2468: );
2469:
2470: IF (g_fnd_debug = 'Y' AND
2471: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2472: THEN
2473: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2474: , G_MODULE_PREFIX || l_api_name
2475: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
2469:
2470: IF (g_fnd_debug = 'Y' AND
2471: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2472: THEN
2473: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2474: , G_MODULE_PREFIX || l_api_name
2475: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
2476: || ', p_component_id = ' || p_component_id
2477: || ', p_qty = ' || p_qty
2498: IF l_remaining_qty < p_qty
2499: THEN
2500:
2501: IF (g_fnd_debug = 'Y' AND
2502: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2503: THEN
2504: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2505: , G_MODULE_PREFIX || l_api_name
2506: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty
2500:
2501: IF (g_fnd_debug = 'Y' AND
2502: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2503: THEN
2504: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2505: , G_MODULE_PREFIX || l_api_name
2506: , l_api_name || ': l_remaining_qty = ' || l_remaining_qty
2507: || ', p_qty = ' || p_qty);
2508: END IF;
2524:
2525: END IF;
2526:
2527: IF (g_fnd_debug = 'Y'
2528: AND FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2529: THEN
2530: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2531: , G_MODULE_PREFIX || l_api_name
2532: , l_api_name || ': p_skip_po_replen_creation = '
2526:
2527: IF (g_fnd_debug = 'Y'
2528: AND FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2529: THEN
2530: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2531: , G_MODULE_PREFIX || l_api_name
2532: , l_api_name || ': p_skip_po_replen_creation = '
2533: || p_skip_po_replen_creation);
2534: END IF;
2537: AND p_skip_po_replen_creation <> 'Y'
2538: THEN
2539:
2540: IF (g_fnd_debug = 'Y' AND
2541: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2542: THEN
2543: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2544: , G_MODULE_PREFIX || l_api_name
2545: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated
2539:
2540: IF (g_fnd_debug = 'Y' AND
2541: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2542: THEN
2543: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2544: , G_MODULE_PREFIX || l_api_name
2545: , l_api_name || ': l_qty_allocated = ' || l_qty_allocated
2546: || ', p_qty = ' || p_qty);
2547: END IF;
2558: , x_new_replen_so_rec => l_new_replen_so_rec
2559: );
2560:
2561: IF (g_fnd_debug = 'Y' AND
2562: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2563: THEN
2564: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2565: , G_MODULE_PREFIX || l_api_name
2566: , l_api_name || ': x_return_status = ' || x_return_status);
2560:
2561: IF (g_fnd_debug = 'Y' AND
2562: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2563: THEN
2564: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2565: , G_MODULE_PREFIX || l_api_name
2566: , l_api_name || ': x_return_status = ' || x_return_status);
2567: END IF;
2568:
2600:
2601: END IF; /* IF l_qty_allocated < p_qty */
2602:
2603: IF (g_fnd_debug = 'Y' AND
2604: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2605: THEN
2606: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2607: , G_MODULE_PREFIX || l_api_name || '.end'
2608: , l_api_name || ' Exit');
2602:
2603: IF (g_fnd_debug = 'Y' AND
2604: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2605: THEN
2606: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2607: , G_MODULE_PREFIX || l_api_name || '.end'
2608: , l_api_name || ' Exit');
2609: END IF;
2610:
2614:
2615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2616:
2617: IF g_fnd_debug = 'Y' AND
2618: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2619: THEN
2620:
2621: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2622: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2617: IF g_fnd_debug = 'Y' AND
2618: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2619: THEN
2620:
2621: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2622: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2623: , sqlerrm);
2624: END IF;
2625:
2746: IF p_replen_so_line_id IS NULL
2747: THEN
2748:
2749: IF (g_fnd_debug = 'Y' AND
2750: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2751: THEN
2752: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2753: , G_MODULE_PREFIX || l_api_name
2754: , l_api_name || ': p_replen_so_line_id IS NULL');
2748:
2749: IF (g_fnd_debug = 'Y' AND
2750: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2751: THEN
2752: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2753: , G_MODULE_PREFIX || l_api_name
2754: , l_api_name || ': p_replen_so_line_id IS NULL');
2755: END IF;
2756:
2758: FETCH c_subcontract_po_alloc_cur
2759: BULK COLLECT INTO l_allocations_tbl;
2760:
2761: IF (g_fnd_debug = 'Y' AND
2762: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2763: THEN
2764: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2765: , G_MODULE_PREFIX || l_api_name
2766: , l_api_name || ': fetched c_subcontract_po_alloc_cur');
2760:
2761: IF (g_fnd_debug = 'Y' AND
2762: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2763: THEN
2764: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2765: , G_MODULE_PREFIX || l_api_name
2766: , l_api_name || ': fetched c_subcontract_po_alloc_cur');
2767: END IF;
2768:
2787: -- examined.
2788: LOOP
2789:
2790: IF (g_fnd_debug = 'Y' AND
2791: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2792: THEN
2793: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2794: , G_MODULE_PREFIX || l_api_name
2795: , l_api_name || ': Loop Iteration: '
2789:
2790: IF (g_fnd_debug = 'Y' AND
2791: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2792: THEN
2793: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2794: , G_MODULE_PREFIX || l_api_name
2795: , l_api_name || ': Loop Iteration: '
2796: || l_allocations_tbl_index);
2797: END IF;
2815: -- Update the remaining qty to be reduced
2816: l_remain_qty_to_reduce := l_remain_qty_to_reduce - l_reduced_allocations_rec.qty;
2817:
2818: IF (g_fnd_debug = 'Y' AND
2819: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2820: THEN
2821: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2822: , G_MODULE_PREFIX || l_api_name
2823: , l_api_name || ': From Reduce_Allocations: l_remain_qty_to_reduce = '
2817:
2818: IF (g_fnd_debug = 'Y' AND
2819: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2820: THEN
2821: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2822: , G_MODULE_PREFIX || l_api_name
2823: , l_api_name || ': From Reduce_Allocations: l_remain_qty_to_reduce = '
2824: || l_remain_qty_to_reduce);
2825: END IF;
2837: -- i.e. reduce from only one JMF_SHIKYU_ALLOCATIONS record
2838: ELSE
2839:
2840: IF (g_fnd_debug = 'Y' AND
2841: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2842: THEN
2843: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2844: , G_MODULE_PREFIX || l_api_name
2845: , l_api_name || ': p_replen_so_line_id IS NOT NULL');
2839:
2840: IF (g_fnd_debug = 'Y' AND
2841: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2842: THEN
2843: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2844: , G_MODULE_PREFIX || l_api_name
2845: , l_api_name || ': p_replen_so_line_id IS NOT NULL');
2846: END IF;
2847:
2848: OPEN c_alloc_cur;
2849: FETCH c_alloc_cur INTO l_existing_alloc_qty, l_existing_alloc_uom;
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: , l_api_name || ': fetched c_alloc_cur');
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: , l_api_name || ': fetched c_alloc_cur');
2857: END IF;
2858:
2879:
2880: END IF; /* IF p_replen_so_line_id IS NULL */
2881:
2882: IF (g_fnd_debug = 'Y' AND
2883: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2884: THEN
2885: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2886: , G_MODULE_PREFIX || l_api_name
2887: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2881:
2882: IF (g_fnd_debug = 'Y' AND
2883: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2884: THEN
2885: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2886: , G_MODULE_PREFIX || l_api_name
2887: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2888: END IF;
2889:
2887: , l_api_name || ': x_actual_reduced_qty = '|| x_actual_reduced_qty);
2888: END IF;
2889:
2890: IF (g_fnd_debug = 'Y' AND
2891: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2892: THEN
2893: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2894: , G_MODULE_PREFIX || l_api_name || '.end'
2895: , l_api_name || ' Exit');
2889:
2890: IF (g_fnd_debug = 'Y' AND
2891: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
2892: THEN
2893: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
2894: , G_MODULE_PREFIX || l_api_name || '.end'
2895: , l_api_name || ' Exit');
2896: END IF;
2897:
2900: WHEN g_no_alloc_found_exc THEN
2901:
2902: x_return_status := FND_API.G_RET_STS_ERROR;
2903: IF g_fnd_debug = 'Y' AND
2904: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2905: THEN
2906: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2907: , G_MODULE_PREFIX || l_api_name || '.g_no_alloc_found_exc'
2908: , 'Allocation(s) not found and cannot be reduced');
2902: x_return_status := FND_API.G_RET_STS_ERROR;
2903: IF g_fnd_debug = 'Y' AND
2904: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2905: THEN
2906: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
2907: , G_MODULE_PREFIX || l_api_name || '.g_no_alloc_found_exc'
2908: , 'Allocation(s) not found and cannot be reduced');
2909: END IF;
2910:
2912:
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914:
2915: IF g_fnd_debug = 'Y' AND
2916: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2917: THEN
2918:
2919: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2920: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2915: IF g_fnd_debug = 'Y' AND
2916: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
2917: THEN
2918:
2919: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2920: , G_MODULE_PREFIX || l_api_name || '.others_exception'
2921: , sqlerrm);
2922: END IF;
2923:
3052: -- This would be NULL if the table is empty
3053: l_tbl_index := x_deleted_allocations_tbl.FIRST;
3054:
3055: IF g_fnd_debug = 'Y' AND
3056: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3057: THEN
3058:
3059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3060: , G_MODULE_PREFIX
3055: IF g_fnd_debug = 'Y' AND
3056: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3057: THEN
3058:
3059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3060: , G_MODULE_PREFIX
3061: , '>> ' || G_MODULE_PREFIX || l_api_name
3062: || ': x_deleted_allocations_tbl.FIRST = ' || NVL(TO_CHAR(l_tbl_index), 'NULL'));
3063: END IF;
3107: END LOOP;
3108: END IF; /* IF l_tbl_index IS NOT NULL */
3109:
3110: IF (g_fnd_debug = 'Y' AND
3111: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3112: THEN
3113: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3114: , G_MODULE_PREFIX || l_api_name || '.end'
3115: , l_api_name || ' Exit');
3109:
3110: IF (g_fnd_debug = 'Y' AND
3111: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3112: THEN
3113: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3114: , G_MODULE_PREFIX || l_api_name || '.end'
3115: , l_api_name || ' Exit');
3116: END IF;
3117:
3121:
3122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3123:
3124: IF g_fnd_debug = 'Y' AND
3125: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3126: THEN
3127:
3128: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3129: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3124: IF g_fnd_debug = 'Y' AND
3125: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3126: THEN
3127:
3128: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3129: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3130: , sqlerrm);
3131: END IF;
3132:
3276:
3277: CLOSE c_over_ship_so_lines_cur;
3278:
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 || '.end'
3284: , l_api_name || ' Exit');
3278:
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 || '.end'
3284: , l_api_name || ' Exit');
3285: END IF;
3286:
3290:
3291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3292:
3293: IF g_fnd_debug = 'Y' AND
3294: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3295: THEN
3296:
3297: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3298: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3293: IF g_fnd_debug = 'Y' AND
3294: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3295: THEN
3296:
3297: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3298: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3299: , sqlerrm);
3300: END IF;
3301:
3392:
3393: BEGIN
3394:
3395: IF g_fnd_debug = 'Y' AND
3396: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3397: THEN
3398: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3399: , G_MODULE_PREFIX || l_api_name || '.begin'
3400: , NULL);
3394:
3395: IF g_fnd_debug = 'Y' AND
3396: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3397: THEN
3398: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3399: , G_MODULE_PREFIX || l_api_name || '.begin'
3400: , NULL);
3401: END IF;
3402:
3618: END IF;
3619: END IF;
3620:
3621: IF (g_fnd_debug = 'Y' AND
3622: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3623: THEN
3624: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3625: , G_MODULE_PREFIX || l_api_name || '.end'
3626: , l_api_name || ' Exit');
3620:
3621: IF (g_fnd_debug = 'Y' AND
3622: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
3623: THEN
3624: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
3625: , G_MODULE_PREFIX || l_api_name || '.end'
3626: , l_api_name || ' Exit');
3627: END IF;
3628:
3635: );
3636: */
3637: x_return_status := FND_API.G_RET_STS_ERROR;
3638: IF g_fnd_debug = 'Y' AND
3639: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3640: THEN
3641: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3642: , G_MODULE_PREFIX || l_api_name || '.NO_DATA_FOUND'
3643: , 'No Data Found - Replenishment Sales Order Line: ' || p_replen_order_line_id);
3637: x_return_status := FND_API.G_RET_STS_ERROR;
3638: IF g_fnd_debug = 'Y' AND
3639: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3640: THEN
3641: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3642: , G_MODULE_PREFIX || l_api_name || '.NO_DATA_FOUND'
3643: , 'No Data Found - Replenishment Sales Order Line: ' || p_replen_order_line_id);
3644: END IF;
3645:
3645:
3646: WHEN g_qty_not_fully_dealloc_exc THEN
3647: x_return_status := FND_API.G_RET_STS_ERROR;
3648: IF g_fnd_debug = 'Y' AND
3649: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3650: THEN
3651: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3652: , G_MODULE_PREFIX || l_api_name || '.g_qty_not_fully_dealloc_exc'
3653: , 'Excess Quantity of Replenishment Sales Order Line ' || p_replen_order_line_id
3647: x_return_status := FND_API.G_RET_STS_ERROR;
3648: IF g_fnd_debug = 'Y' AND
3649: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3650: THEN
3651: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
3652: , G_MODULE_PREFIX || l_api_name || '.g_qty_not_fully_dealloc_exc'
3653: , 'Excess Quantity of Replenishment Sales Order Line ' || p_replen_order_line_id
3654: || ' cannot be fully deallocated');
3655: END IF;
3658:
3659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3660:
3661: IF g_fnd_debug = 'Y' AND
3662: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3663: THEN
3664:
3665: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3666: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3661: IF g_fnd_debug = 'Y' AND
3662: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3663: THEN
3664:
3665: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3666: , G_MODULE_PREFIX || l_api_name || '.others_exception'
3667: , sqlerrm);
3668: END IF;
3669:
3803: -- 3) If in step (1) qty allocations were reduced, re-allocate them
3804: -- invoking the allocation api's
3805:
3806: IF g_fnd_debug = 'Y' AND
3807: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3808: THEN
3809: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3810: , G_MODULE_PREFIX || l_api_name || '.begin'
3811: , NULL);
3805:
3806: IF g_fnd_debug = 'Y' AND
3807: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3808: THEN
3809: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3810: , G_MODULE_PREFIX || l_api_name || '.begin'
3811: , NULL);
3812: END IF;
3813:
3823: );
3824: */
3825:
3826: IF g_fnd_debug = 'Y' AND
3827: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3828: THEN
3829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3830: , G_MODULE_PREFIX || 'After Initialize'
3831: , NULL);
3825:
3826: IF g_fnd_debug = 'Y' AND
3827: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3828: THEN
3829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3830: , G_MODULE_PREFIX || 'After Initialize'
3831: , NULL);
3832: END IF;
3833: IF g_fnd_debug = 'Y' AND
3830: , G_MODULE_PREFIX || 'After Initialize'
3831: , NULL);
3832: END IF;
3833: IF g_fnd_debug = 'Y' AND
3834: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3835: THEN
3836: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3837: , G_MODULE_PREFIX || 'p_from_organization => '
3838: , p_from_organization);
3832: END IF;
3833: IF g_fnd_debug = 'Y' AND
3834: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3835: THEN
3836: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3837: , G_MODULE_PREFIX || 'p_from_organization => '
3838: , p_from_organization);
3839: END IF;
3840:
3838: , p_from_organization);
3839: END IF;
3840:
3841: IF g_fnd_debug = 'Y' AND
3842: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3843: THEN
3844: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3845: , G_MODULE_PREFIX || ' p_to_organization => '
3846: , p_to_organization );
3840:
3841: IF g_fnd_debug = 'Y' AND
3842: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3843: THEN
3844: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3845: , G_MODULE_PREFIX || ' p_to_organization => '
3846: , p_to_organization );
3847: END IF;
3848:
3859: l_header_id := C_SHIKYU_REPLENISHMENT_rec.replenishment_so_header_id ;
3860:
3861: IF g_fnd_debug = 'Y'
3862: THEN
3863: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3864: THEN
3865: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3866: , 'JMFVSKAB : CURSOR C_SHIKYU_REPLENISHMENT_rec l_parent_so_line_id => '
3867: , l_parent_so_line_id );
3861: IF g_fnd_debug = 'Y'
3862: THEN
3863: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3864: THEN
3865: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3866: , 'JMFVSKAB : CURSOR C_SHIKYU_REPLENISHMENT_rec l_parent_so_line_id => '
3867: , l_parent_so_line_id );
3868: END IF;
3869:
3866: , 'JMFVSKAB : CURSOR C_SHIKYU_REPLENISHMENT_rec l_parent_so_line_id => '
3867: , l_parent_so_line_id );
3868: END IF;
3869:
3870: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3871: THEN
3872: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3873: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec l_header_id => '
3874: , l_header_id);
3868: END IF;
3869:
3870: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3871: THEN
3872: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3873: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec l_header_id => '
3874: , l_header_id);
3875: END IF;
3876:
3873: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec l_header_id => '
3874: , l_header_id);
3875: END IF;
3876:
3877: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3878: THEN
3879: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3880: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag '
3881: , C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag );
3875: END IF;
3876:
3877: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3878: THEN
3879: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3880: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag '
3881: , C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag );
3882: END IF;
3883:
3880: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag '
3881: , C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag );
3882: END IF;
3883:
3884: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3885: THEN
3886: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3887: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag '
3888: ,C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag );
3882: END IF;
3883:
3884: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3885: THEN
3886: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3887: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag '
3888: ,C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag );
3889: END IF;
3890:
3887: , 'JMFVSKAB : C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag '
3888: ,C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag );
3889: END IF;
3890:
3891: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3892: THEN
3893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3894: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity '
3895: , C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity);
3889: END IF;
3890:
3891: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3892: THEN
3893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3894: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity '
3895: , C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity);
3896: END IF;
3897:
3894: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity '
3895: , C_SHIKYU_REPLENISHMENT_rec.jsr_ordered_quantity);
3896: END IF;
3897:
3898: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3899: THEN
3900: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3901: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id '
3902: , C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id );
3896: END IF;
3897:
3898: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3899: THEN
3900: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3901: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id '
3902: , C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id );
3903:
3904: END IF;
3901: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id '
3902: , C_SHIKYU_REPLENISHMENT_rec.replenishment_po_shipment_id );
3903:
3904: END IF;
3905: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3906: THEN
3907: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3908: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity'
3909: , C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity);
3903:
3904: END IF;
3905: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3906: THEN
3907: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3908: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity'
3909: , C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity);
3910: END IF;
3911:
3908: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity'
3909: , C_SHIKYU_REPLENISHMENT_rec.allocated_primary_UOM_quantity);
3910: END IF;
3911:
3912: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3913: THEN
3914: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3915: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity '
3916: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity);
3910: END IF;
3911:
3912: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3913: THEN
3914: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3915: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity '
3916: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity);
3917: END IF;
3918:
3915: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity '
3916: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity);
3917: END IF;
3918:
3919: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3920: THEN
3921: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3922: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_quantity '
3923: , C_SHIKYU_REPLENISHMENT_rec.allocable_quantity );
3917: END IF;
3918:
3919: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3920: THEN
3921: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3922: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_quantity '
3923: , C_SHIKYU_REPLENISHMENT_rec.allocable_quantity );
3924: END IF;
3925:
3922: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocable_quantity '
3923: , C_SHIKYU_REPLENISHMENT_rec.allocable_quantity );
3924: END IF;
3925:
3926: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3927: THEN
3928: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3929: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_quantity '
3930: , C_SHIKYU_REPLENISHMENT_rec.allocated_quantity );
3924: END IF;
3925:
3926: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3927: THEN
3928: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3929: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_quantity '
3930: , C_SHIKYU_REPLENISHMENT_rec.allocated_quantity );
3931: END IF;
3932:
3929: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.allocated_quantity '
3930: , C_SHIKYU_REPLENISHMENT_rec.allocated_quantity );
3931: END IF;
3932:
3933: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3934: THEN
3935: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3936: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity '
3937: , C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity );
3931: END IF;
3932:
3933: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3934: THEN
3935: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3936: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity '
3937: , C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity );
3938: END IF;
3939: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3935: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3936: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity '
3937: , C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity );
3938: END IF;
3939: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3940: THEN
3941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3942: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity '
3943: , C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity );
3937: , C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity );
3938: END IF;
3939: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3940: THEN
3941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3942: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity '
3943: , C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity );
3944: END IF;
3945:
3942: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity '
3943: , C_SHIKYU_REPLENISHMENT_rec.oel_shipped_quantity );
3944: END IF;
3945:
3946: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3947: THEN
3948: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3949: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id '
3950: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
3944: END IF;
3945:
3946: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3947: THEN
3948: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3949: , 'JMFVSKAB :C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id '
3950: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
3951: END IF;
3952: END IF;
3954:
3955: IF C_SHIKYU_REPLENISHMENT_rec.oel_cancelled_flag = 'Y' OR
3956: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y'
3957: THEN
3958: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3959: THEN
3960: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3961: , 'JMFVSKAB :Invoke JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
3962: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
3956: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y'
3957: THEN
3958: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3959: THEN
3960: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3961: , 'JMFVSKAB :Invoke JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
3962: , C_SHIKYU_REPLENISHMENT_rec.subcontract_po_shipment_id);
3963: END IF;
3964:
3976: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID
3977: , x_deleted_allocations_tbl => l_deleted_allocations_tbl
3978: );
3979:
3980: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3981: THEN
3982: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3983: , 'JMFVSKAB :AFter l_deleted_allocations_tbl.count '
3984: , l_deleted_allocations_tbl.COUNT );
3978: );
3979:
3980: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3981: THEN
3982: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3983: , 'JMFVSKAB :AFter l_deleted_allocations_tbl.count '
3984: , l_deleted_allocations_tbl.COUNT );
3985: END IF;
3986:
4000: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID
4001: AND REPLENISHMENT_SO_HEADER_ID =
4002: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_id ;
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4005: THEN
4006: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4007: , 'JMFVSKAB :AFter DELETE FROM JMF_SHIKYU_REPLENISHMENTS '
4008: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4002: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_id ;
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4005: THEN
4006: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4007: , 'JMFVSKAB :AFter DELETE FROM JMF_SHIKYU_REPLENISHMENTS '
4008: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4009: END IF;
4010:
4010:
4011:
4012: IF l_deleted_qty > 0
4013: THEN
4014: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4015: THEN
4016: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4017: , 'JMFVSKAB :1Cal JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4018: , l_deleted_qty );
4012: IF l_deleted_qty > 0
4013: THEN
4014: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4015: THEN
4016: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4017: , 'JMFVSKAB :1Cal JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4018: , l_deleted_qty );
4019: END IF;
4020:
4040: -- update the quantity in the JMF replenishments
4041: -- insert record into the JMF replenishment table for the new line
4042: -- create new allocations for the decreased quantity
4043:
4044: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4045: THEN
4046: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4047: , 'JMFVSKAB :Before primary UOM calculation '
4048: , l_decreased_qty );
4042: -- create new allocations for the decreased quantity
4043:
4044: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4045: THEN
4046: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4047: , 'JMFVSKAB :Before primary UOM calculation '
4048: , l_decreased_qty );
4049: END IF;
4050:
4082: l_primary_uom_qty := C_SHIKYU_REPLENISHMENT_rec.oel_ordered_quantity;
4083:
4084: END IF;
4085:
4086: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4087: THEN
4088: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4089: , 'JMFVSKAB :after UOM : l_primary_uom_qty => '|| l_primary_uom_qty
4090: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4084: END IF;
4085:
4086: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4087: THEN
4088: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4089: , 'JMFVSKAB :after UOM : l_primary_uom_qty => '|| l_primary_uom_qty
4090: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4091: END IF;
4092:
4089: , 'JMFVSKAB :after UOM : l_primary_uom_qty => '|| l_primary_uom_qty
4090: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity );
4091: END IF;
4092:
4093: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4094: THEN
4095: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4096: , 'JMFVSKAB :Call JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
4097: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity -
4091: END IF;
4092:
4093: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4094: THEN
4095: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4096: , 'JMFVSKAB :Call JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
4097: , C_SHIKYU_REPLENISHMENT_rec.allocable_primary_UOM_quantity -
4098: l_primary_uom_qty );
4099: END IF;
4116: , x_reduced_allocations_tbl => l_reduced_allocations_tbl
4117: , x_actual_reduced_qty => l_decreased_qty
4118: );
4119:
4120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4121: THEN
4122: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4123: , 'JMFVSKAB :after JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
4124: , l_return_status );
4118: );
4119:
4120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4121: THEN
4122: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4123: , 'JMFVSKAB :after JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
4124: , l_return_status );
4125: END IF;
4126:
4123: , 'JMFVSKAB :after JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
4124: , l_return_status );
4125: END IF;
4126:
4127: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4128: THEN
4129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4130: , 'JMFVSKAB :l_decreased_qty => '
4131: , l_decreased_qty);
4125: END IF;
4126:
4127: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4128: THEN
4129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4130: , 'JMFVSKAB :l_decreased_qty => '
4131: , l_decreased_qty);
4132: END IF;
4133:
4143: allocable_primary_uom_quantity = l_primary_uom_qty
4144: WHERE REPLENISHMENT_SO_LINE_ID =
4145: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4146:
4147: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4148: THEN
4149: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4150: , 'JMFVSKAB :after UPDATE JMF_SHIKYU_REPLENISHMENTS '
4151: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4145: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID;
4146:
4147: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4148: THEN
4149: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4150: , 'JMFVSKAB :after UPDATE JMF_SHIKYU_REPLENISHMENTS '
4151: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4152: END IF;
4153:
4150: , 'JMFVSKAB :after UPDATE JMF_SHIKYU_REPLENISHMENTS '
4151: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4152: END IF;
4153:
4154: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4155: THEN
4156: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4157: , 'JMFVSKAB :Before CURSOR C_child_so_lines_CSR for parent line '
4158: , l_parent_so_line_id );
4152: END IF;
4153:
4154: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4155: THEN
4156: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4157: , 'JMFVSKAB :Before CURSOR C_child_so_lines_CSR for parent line '
4158: , l_parent_so_line_id );
4159: END IF;
4160:
4161:
4162: FOR C_child_so_lines_rec IN C_child_so_lines_CSR
4163: LOOP
4164:
4165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4166: THEN
4167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4168: , 'JMFVSKAB :Looping C_child_so_lines_CSR line_id '
4169: , C_child_so_lines_rec.line_id );
4163: LOOP
4164:
4165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4166: THEN
4167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4168: , 'JMFVSKAB :Looping C_child_so_lines_CSR line_id '
4169: , C_child_so_lines_rec.line_id );
4170: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4171: , 'JMFVSKAB :Looping C_child_so_lines_CSR Header_id '
4166: THEN
4167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4168: , 'JMFVSKAB :Looping C_child_so_lines_CSR line_id '
4169: , C_child_so_lines_rec.line_id );
4170: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4171: , 'JMFVSKAB :Looping C_child_so_lines_CSR Header_id '
4172: , C_child_so_lines_rec.header_id );
4173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4174: , 'JMFVSKAB :Looping C_child_so_lines_CSR split_from_line_id '
4169: , C_child_so_lines_rec.line_id );
4170: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4171: , 'JMFVSKAB :Looping C_child_so_lines_CSR Header_id '
4172: , C_child_so_lines_rec.header_id );
4173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4174: , 'JMFVSKAB :Looping C_child_so_lines_CSR split_from_line_id '
4175: , C_child_so_lines_rec.split_from_line_id );
4176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4177: , 'JMFVSKAB :Looping C_child_so_lines_CSR line_number '
4172: , C_child_so_lines_rec.header_id );
4173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4174: , 'JMFVSKAB :Looping C_child_so_lines_CSR split_from_line_id '
4175: , C_child_so_lines_rec.split_from_line_id );
4176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4177: , 'JMFVSKAB :Looping C_child_so_lines_CSR line_number '
4178: , C_child_so_lines_rec.line_number );
4179: END IF;
4180: -- Converting the ordered quantity of the child Replenishment
4198: l_primary_uom_qty := C_child_so_lines_rec.ordered_quantity;
4199:
4200: END IF;
4201:
4202: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4203: THEN
4204: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4205: , 'JMFVSKAB :Before insert after UOM '
4206: , l_primary_uom_qty );
4200: END IF;
4201:
4202: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4203: THEN
4204: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4205: , 'JMFVSKAB :Before insert after UOM '
4206: , l_primary_uom_qty );
4207: END IF;
4208:
4283:
4284: /*AND REPLENISHMENT_SO_HEADER_ID =
4285: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID;*/
4286:
4287: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4288: THEN
4289: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4290: , 'JMFVSKAB :after INSERT child = '|| C_child_so_lines_rec.line_id
4291: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4285: C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID;*/
4286:
4287: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4288: THEN
4289: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4290: , 'JMFVSKAB :after INSERT child = '|| C_child_so_lines_rec.line_id
4291: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4292: END IF;
4293:
4292: END IF;
4293:
4294: END LOOP; -- child so line loop
4295:
4296: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4297: THEN
4298: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4299: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4300: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4294: END LOOP; -- child so line loop
4295:
4296: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4297: THEN
4298: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4299: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4300: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4302: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_header_ID '
4297: THEN
4298: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4299: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_LINE_ID '
4300: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID );
4301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4302: , 'JMFVSKAB :Out of child SO cursor: main REPLENISHMENT_SO_header_ID '
4303: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_header_ID );
4304: END IF;
4305:
4319: , p_qty => l_decreased_qty
4320: , p_skip_po_replen_creation => 'N'
4321: );
4322:
4323: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4324: THEN
4325: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4326: , 'JMFVSKAB :2after JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4327: , l_decreased_qty );
4321: );
4322:
4323: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4324: THEN
4325: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4326: , 'JMFVSKAB :2after JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations '
4327: , l_decreased_qty );
4328: END IF;
4329:
4333: C_SHIKYU_REPLENISHMENT_rec.oeh_cancelled_flag = 'Y' */
4334: -- cancel or partial
4335: COMMIT;
4336:
4337: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4338: THEN
4339: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4340: , 'JMFVSKAB: Partial_reconcile COMMIT inside loop SO line '
4341: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID);
4335: COMMIT;
4336:
4337: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4338: THEN
4339: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4340: , 'JMFVSKAB: Partial_reconcile COMMIT inside loop SO line '
4341: , C_SHIKYU_REPLENISHMENT_rec.REPLENISHMENT_SO_LINE_ID);
4342: END IF;
4343:
4344:
4345: EXCEPTION
4346: WHEN OTHERS THEN
4347: ROLLBACK;
4348: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4349: THEN
4350: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4351: , 'JMFVSKAB: Partial_reconcile EXCEPTION inside loop '
4352: , SQLERRM );
4346: WHEN OTHERS THEN
4347: ROLLBACK;
4348: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE
4349: THEN
4350: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4351: , 'JMFVSKAB: Partial_reconcile EXCEPTION inside loop '
4352: , SQLERRM );
4353: END IF;
4354:
4357:
4358: x_return_status := 'S' ;
4359:
4360: IF (g_fnd_debug = 'Y' AND
4361: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4362: THEN
4363: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4364: , G_MODULE_PREFIX || 'JMFVSKAB partial reconcile ' || '.end'
4365: , l_api_name || ' Exit');
4359:
4360: IF (g_fnd_debug = 'Y' AND
4361: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4362: THEN
4363: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4364: , G_MODULE_PREFIX || 'JMFVSKAB partial reconcile ' || '.end'
4365: , l_api_name || ' Exit');
4366: END IF;
4367:
4371: ROLLBACK;
4372: x_return_status := FND_API.G_RET_STS_ERROR;
4373:
4374: IF g_fnd_debug = 'Y' AND
4375: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4376: THEN
4377: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4378: , G_MODULE_PREFIX || l_api_name || '.g_exc_error'
4379: , l_api_name || ': FND_API.G_EXC_ERROR'
4373:
4374: IF g_fnd_debug = 'Y' AND
4375: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4376: THEN
4377: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4378: , G_MODULE_PREFIX || l_api_name || '.g_exc_error'
4379: , l_api_name || ': FND_API.G_EXC_ERROR'
4380: );
4381:
4378: , G_MODULE_PREFIX || l_api_name || '.g_exc_error'
4379: , l_api_name || ': FND_API.G_EXC_ERROR'
4380: );
4381:
4382: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4383: , G_MODULE_PREFIX || l_api_name || '.g_exc_error'
4384: , l_api_name || ': SQLERRM : '|| SQLERRM
4385: );
4386: END IF;
4390: ROLLBACK ;
4391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4392:
4393: IF g_fnd_debug = 'Y' AND
4394: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4395: THEN
4396: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4397: , G_MODULE_PREFIX || l_api_name || '.g_exc_unexpected_error'
4398: , l_api_name || ': FND_API.G_EXC_UNEXPECTED_ERROR'
4392:
4393: IF g_fnd_debug = 'Y' AND
4394: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4395: THEN
4396: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4397: , G_MODULE_PREFIX || l_api_name || '.g_exc_unexpected_error'
4398: , l_api_name || ': FND_API.G_EXC_UNEXPECTED_ERROR'
4399: );
4400:
4397: , G_MODULE_PREFIX || l_api_name || '.g_exc_unexpected_error'
4398: , l_api_name || ': FND_API.G_EXC_UNEXPECTED_ERROR'
4399: );
4400:
4401: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
4402: , G_MODULE_PREFIX || l_api_name || '.g_exc_unexpected_error'
4403: , l_api_name || ': SQLERRM : '|| SQLERRM
4404: );
4405: END IF;
4409: ROLLBACK ;
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4411:
4412: IF g_fnd_debug = 'Y' AND
4413: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4414: THEN
4415:
4416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4417: , G_MODULE_PREFIX || l_api_name || '.others_exception'
4412: IF g_fnd_debug = 'Y' AND
4413: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
4414: THEN
4415:
4416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4417: , G_MODULE_PREFIX || l_api_name || '.others_exception'
4418: , sqlerrm);
4419: END IF;
4420:
4574:
4575: BEGIN
4576:
4577: IF (g_fnd_debug = 'Y' AND
4578: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4579: THEN
4580: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4581: , G_MODULE_PREFIX || l_api_name || '.invoked'
4582: , l_api_name|| ' Entry');
4576:
4577: IF (g_fnd_debug = 'Y' AND
4578: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4579: THEN
4580: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4581: , G_MODULE_PREFIX || l_api_name || '.invoked'
4582: , l_api_name|| ' Entry');
4583: END IF;
4584:
4591: FROM PO_LINE_LOCATIONS_ALL plla
4592: WHERE plla.line_location_id = p_replen_po_shipment_id;
4593:
4594: IF (g_fnd_debug = 'Y' AND
4595: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4596: THEN
4597: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4598: , G_MODULE_PREFIX || l_api_name
4599: , l_api_name || ': l_replen_po_header_id = '|| l_replen_po_header_id
4593:
4594: IF (g_fnd_debug = 'Y' AND
4595: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4596: THEN
4597: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4598: , G_MODULE_PREFIX || l_api_name
4599: , l_api_name || ': l_replen_po_header_id = '|| l_replen_po_header_id
4600: || ', l_replen_po_line_id = '|| l_replen_po_line_id
4601: || ', p_replen_po_shipment_id = ' || p_replen_po_shipment_id);
4616: FROM OE_ORDER_LINES_ALL oola
4617: WHERE oola.line_id = p_replen_so_line_id;
4618:
4619: IF (g_fnd_debug = 'Y' AND
4620: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4621: THEN
4622: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4623: , G_MODULE_PREFIX || l_api_name
4624: , l_api_name || ': l_replen_so_header_id = '|| l_replen_so_header_id
4618:
4619: IF (g_fnd_debug = 'Y' AND
4620: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4621: THEN
4622: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4623: , G_MODULE_PREFIX || l_api_name
4624: , l_api_name || ': l_replen_so_header_id = '|| l_replen_so_header_id
4625: || ', l_ordered_qty = '|| l_ordered_qty
4626: || ', l_ordered_uom = ' || l_ordered_uom
4638: WHERE organization_id = p_tp_organization_id
4639: AND org_information_context = 'Customer/Supplier Association';
4640:
4641: IF (g_fnd_debug = 'Y' AND
4642: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4643: THEN
4644: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4645: , G_MODULE_PREFIX || l_api_name
4646: , l_api_name || ': l_tp_supplier_id = ' || l_tp_supplier_id
4640:
4641: IF (g_fnd_debug = 'Y' AND
4642: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4643: THEN
4644: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4645: , G_MODULE_PREFIX || l_api_name
4646: , l_api_name || ': l_tp_supplier_id = ' || l_tp_supplier_id
4647: || ', l_tp_supplier_site_id = ' || l_tp_supplier_site_id
4648: );
4686: p_additional_supply = 'N';
4687: END IF; /* IF p_additional_supply NOT IN ('Y', 'N') */
4688:
4689: IF (g_fnd_debug = 'Y' AND
4690: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4691: THEN
4692: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4693: , G_MODULE_PREFIX || l_api_name
4694: , l_api_name || ': l_primary_uom = ' || l_primary_uom
4688:
4689: IF (g_fnd_debug = 'Y' AND
4690: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4691: THEN
4692: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4693: , G_MODULE_PREFIX || l_api_name
4694: , l_api_name || ': l_primary_uom = ' || l_primary_uom
4695: || ', l_primary_uom_qty = ' || l_primary_uom_qty
4696: );
4755: , FND_GLOBAL.login_id
4756: );
4757:
4758: IF (g_fnd_debug = 'Y' AND
4759: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4760: THEN
4761: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4762: , G_MODULE_PREFIX || l_api_name || '.end'
4763: , l_api_name || ' Exit');
4757:
4758: IF (g_fnd_debug = 'Y' AND
4759: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4760: THEN
4761: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4762: , G_MODULE_PREFIX || l_api_name || '.end'
4763: , l_api_name || ' Exit');
4764: END IF;
4765:
4802:
4803: BEGIN
4804:
4805: IF (g_fnd_debug = 'Y' AND
4806: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4807: THEN
4808: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4809: , G_MODULE_PREFIX || l_api_name || '.invoked'
4810: , l_api_name|| ' Entry');
4804:
4805: IF (g_fnd_debug = 'Y' AND
4806: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4807: THEN
4808: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4809: , G_MODULE_PREFIX || l_api_name || '.invoked'
4810: , l_api_name|| ' Entry');
4811: END IF;
4812:
4825:
4826: l_subcontracting_type := JMF_SHIKYU_GRP.get_subcontracting_type(l_oem_org_id, l_mp_org_id);
4827:
4828: IF (g_fnd_debug = 'Y' AND
4829: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4830: THEN
4831: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4832: , G_MODULE_PREFIX || l_api_name
4833: , ' subcontracting_type is '|| l_subcontracting_type );
4827:
4828: IF (g_fnd_debug = 'Y' AND
4829: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4830: THEN
4831: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4832: , G_MODULE_PREFIX || l_api_name
4833: , ' subcontracting_type is '|| l_subcontracting_type );
4834: END IF;
4835:
4857: jsc.primary_uom, jsc.primary_uom_price,
4858: -1));
4859:
4860: IF (g_fnd_debug = 'Y' AND
4861: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4862: THEN
4863: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4864: , G_MODULE_PREFIX || l_api_name
4865: , l_api_name || ': l_count = '|| l_count
4859:
4860: IF (g_fnd_debug = 'Y' AND
4861: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4862: THEN
4863: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4864: , G_MODULE_PREFIX || l_api_name
4865: , l_api_name || ': l_count = '|| l_count
4866: );
4867: END IF;
4911:
4912: BEGIN
4913:
4914: IF (g_fnd_debug = 'Y' AND
4915: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4916: THEN
4917: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4918: , G_MODULE_PREFIX || l_api_name || '.invoked'
4919: , l_api_name|| ' Entry');
4913:
4914: IF (g_fnd_debug = 'Y' AND
4915: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4916: THEN
4917: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4918: , G_MODULE_PREFIX || l_api_name || '.invoked'
4919: , l_api_name|| ' Entry');
4920: END IF;
4921:
4950: AND oola.task_id IS NULL))
4951: );
4952:
4953: IF (g_fnd_debug = 'Y' AND
4954: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4955: THEN
4956: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4957: , G_MODULE_PREFIX || l_api_name
4958: , l_api_name || ': l_count = '|| l_count
4952:
4953: IF (g_fnd_debug = 'Y' AND
4954: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
4955: THEN
4956: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
4957: , G_MODULE_PREFIX || l_api_name
4958: , l_api_name || ': l_count = '|| l_count
4959: );
4960: END IF;
5011:
5012: BEGIN
5013:
5014: IF (g_fnd_debug = 'Y' AND
5015: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5016: THEN
5017: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5018: , G_MODULE_PREFIX || l_api_name || '.invoked'
5019: , l_api_name|| ' Entry');
5013:
5014: IF (g_fnd_debug = 'Y' AND
5015: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5016: THEN
5017: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5018: , G_MODULE_PREFIX || l_api_name || '.invoked'
5019: , l_api_name|| ' Entry');
5020: END IF;
5021:
5019: , l_api_name|| ' Entry');
5020: END IF;
5021:
5022: IF (g_fnd_debug = 'Y' AND
5023: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5024: THEN
5025: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5026: , G_MODULE_PREFIX || l_api_name
5027: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
5021:
5022: IF (g_fnd_debug = 'Y' AND
5023: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5024: THEN
5025: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5026: , G_MODULE_PREFIX || l_api_name
5027: , l_api_name || ': p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
5028: || 'p_component_id = ' || p_component_id
5029: || 'p_replen_so_line_id = ' || p_replen_so_line_id
5037:
5038: l_new_allocated_qty := p_existing_alloc_qty - l_remain_qty_to_reduce;
5039:
5040: IF (g_fnd_debug = 'Y' AND
5041: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5042: THEN
5043: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5044: , G_MODULE_PREFIX || l_api_name
5045: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5039:
5040: IF (g_fnd_debug = 'Y' AND
5041: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5042: THEN
5043: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5044: , G_MODULE_PREFIX || l_api_name
5045: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5046: || ') < p_existing_alloc_qty (' || p_existing_alloc_qty
5047: || '), l_new_allocated_qty = ' || l_new_allocated_qty
5065: -- the allocated_quantity column before the update operation.
5066: x_reduced_allocations_rec.qty := l_remain_qty_to_reduce;
5067:
5068: IF (g_fnd_debug = 'Y' AND
5069: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5070: THEN
5071: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5072: , G_MODULE_PREFIX || l_api_name
5073: , l_api_name || ': Updated JMF_SHIKYU_ALLOCATIONS table, '
5067:
5068: IF (g_fnd_debug = 'Y' AND
5069: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5070: THEN
5071: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5072: , G_MODULE_PREFIX || l_api_name
5073: , l_api_name || ': Updated JMF_SHIKYU_ALLOCATIONS table, '
5074: || 'x_reduced_allocations_rec.qty = '
5075: || x_reduced_allocations_rec.qty
5080:
5081: l_remain_qty_to_reduce := p_existing_alloc_qty;
5082:
5083: IF (g_fnd_debug = 'Y' AND
5084: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5085: THEN
5086: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5087: , G_MODULE_PREFIX || l_api_name
5088: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5082:
5083: IF (g_fnd_debug = 'Y' AND
5084: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5085: THEN
5086: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5087: , G_MODULE_PREFIX || l_api_name
5088: , l_api_name || ': l_remain_qty_to_reduce (' || l_remain_qty_to_reduce
5089: || ') >= p_existing_alloc_qty (' || p_existing_alloc_qty || ')'
5090: );
5107: FROM JMF_SHIKYU_REPLENISHMENTS
5108: WHERE replenishment_so_line_id = p_replen_so_line_id;
5109:
5110: IF (g_fnd_debug = 'Y' AND
5111: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5112: THEN
5113: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5114: , G_MODULE_PREFIX || l_api_name
5115: , l_api_name || ': l_replen_uom = ' || l_replen_uom
5109:
5110: IF (g_fnd_debug = 'Y' AND
5111: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5112: THEN
5113: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5114: , G_MODULE_PREFIX || l_api_name
5115: , l_api_name || ': l_replen_uom = ' || l_replen_uom
5116: );
5117: END IF;
5119: IF l_replen_uom <> p_alloc_uom
5120: THEN
5121:
5122: IF (g_fnd_debug = 'Y' AND
5123: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5124: THEN
5125: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5126: , G_MODULE_PREFIX || l_api_name
5127: , l_api_name || ': l_replen_uom (' || l_replen_uom
5121:
5122: IF (g_fnd_debug = 'Y' AND
5123: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5124: THEN
5125: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5126: , G_MODULE_PREFIX || l_api_name
5127: , l_api_name || ': l_replen_uom (' || l_replen_uom
5128: || ') <> p_alloc_uom (' || p_alloc_uom || ')'
5129: );
5144:
5145: END IF; /* IF l_replen_uom <> p_alloc_uom */
5146:
5147: IF (g_fnd_debug = 'Y' AND
5148: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5149: THEN
5150: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5151: , G_MODULE_PREFIX || l_api_name
5152: , l_api_name|| ': l_replen_uom = ' || l_replen_uom
5146:
5147: IF (g_fnd_debug = 'Y' AND
5148: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5149: THEN
5150: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5151: , G_MODULE_PREFIX || l_api_name
5152: , l_api_name|| ': l_replen_uom = ' || l_replen_uom
5153: || ', l_reduce_replen_uom_qty = ' || l_reduce_replen_uom_qty
5154: || ', p_alloc_uom = ' || p_alloc_uom
5163: allocated_primary_uom_quantity = allocated_primary_uom_quantity - l_reduce_replen_uom_qty
5164: WHERE replenishment_so_line_id = p_replen_so_line_id;
5165:
5166: IF (g_fnd_debug = 'Y' AND
5167: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5168: THEN
5169: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5170: , G_MODULE_PREFIX || l_api_name || '.end'
5171: , l_api_name || ' Exit');
5165:
5166: IF (g_fnd_debug = 'Y' AND
5167: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5168: THEN
5169: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5170: , G_MODULE_PREFIX || l_api_name || '.end'
5171: , l_api_name || ' Exit');
5172: END IF;
5173:
5204: IS
5205:
5206: BEGIN
5207:
5208: -- FND Logging at the start of the Procedure
5209: IF (g_fnd_debug = 'Y' AND
5210: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5211: THEN
5212: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5206: BEGIN
5207:
5208: -- FND Logging at the start of the Procedure
5209: IF (g_fnd_debug = 'Y' AND
5210: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5211: THEN
5212: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5213: , G_MODULE_PREFIX || p_api_name || '.invoked'
5214: , G_MODULE_PREFIX || p_api_name|| ' Entry');
5208: -- FND Logging at the start of the Procedure
5209: IF (g_fnd_debug = 'Y' AND
5210: FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE)
5211: THEN
5212: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
5213: , G_MODULE_PREFIX || p_api_name || '.invoked'
5214: , G_MODULE_PREFIX || p_api_name|| ' Entry');
5215: END IF;
5216: