[Home] [Help]
140: l_workers jmf_shikyu_util.g_request_tbl_type;
141: l_adjust_rows NUMBER; -- the number of adjustments records with group_id = NVL(p_group_id,group_id)
142:
143: l_request_id NUMBER; --the request id for the worker
144: l_return_status VARCHAR2(1); --FND_API.G_RET_STS_SUCCESS or other status
145:
146: l_Manager_return_status VARCHAR2(30); --the status for adjustment manager.
147:
148: --for checking SHIKYU enable profile.
323: );
324: -- **** for debug information in readonly UT environment.--- end ****
325:
326:
327: IF l_return_status = fnd_api.g_ret_sts_success
328: THEN
329: /*UPDATE jmf_shikyu_adjustments
330: SET request_id = l_request_id,
331: last_update_date = sysdate,
452: l_return_status || ',l_request_id:' || l_request_id
453: );
454: -- **** for debug information in readonly UT environment.--- end ****
455:
456: IF l_return_status = fnd_api.g_ret_sts_success
457: THEN
458: /*UPDATE jmf_shikyu_adjustments
459: SET request_id = l_request_id,
460: last_update_date = sysdate,
573: -- commit the data
574: COMMIT;
575:
576: --check the submit workers status, and then set print the worker status into logfile, set the manager status
577: --if one of the worker status FND_API.G_RET_STS_UNEXP_ERROR, then set Warning.
578: check_workers_status(p_workers => l_workers
579: ,x_return_status => l_Manager_return_status);
580:
581: IF l_Manager_return_status <> 'NORMAL'
623:
624: --fnd_message.set_name('JMF', 'JMF_SHIKYU_ADJ_MGR_ERROR');
625: fnd_message.set_name('JMF', 'JMF_SHK_ADJ_MGR_ERROR');
626: fnd_msg_pub.add;
627: RAISE fnd_api.g_exc_unexpected_error;
628:
629: -- rollback
630: ROLLBACK;
631:
935: ,p_api_name => G_MODULE_PREFIX || l_api_name
936: ,p_message => 'x_return_status: ' || x_return_status
937: );
938: -- **** for debug information in readonly UT environment.--- end ****
939: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
940: THEN
941: -- **** for debug information in readonly UT environment.--- begin ****
942: JMF_SHIKYU_RPT_UTIL.debug_output
943: (
987: '.no_data_found'
988: ,POP_MESSAGE => FALSE);
989: END IF;
990: --FND_MSG_PUB.add;
991: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: x_return_status := fnd_api.g_ret_sts_error;
993: -- **** for debug information in readonly UT environment.--- begin ****
994: JMF_SHIKYU_RPT_UTIL.debug_output
995: (
988: ,POP_MESSAGE => FALSE);
989: END IF;
990: --FND_MSG_PUB.add;
991: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: x_return_status := fnd_api.g_ret_sts_error;
993: -- **** for debug information in readonly UT environment.--- begin ****
994: JMF_SHIKYU_RPT_UTIL.debug_output
995: (
996: p_output_to => 'FND_LOG.STRING'
1008: fnd_log.MESSAGE(LOG_LEVEL => FND_LOG.LEVEL_UNEXPECTED
1009: ,MODULE => g_module_prefix || l_api_name || '.others'
1010: ,POP_MESSAGE => FALSE);
1011: END IF;
1012: x_return_status := fnd_api.g_ret_sts_unexp_error;
1013: -- **** for debug information in readonly UT environment.--- begin ****
1014: JMF_SHIKYU_RPT_UTIL.debug_output
1015: (
1016: p_output_to => 'FND_LOG.STRING'
1146: || ',x_msg_data:' || l_msg_data
1147: );
1148: -- **** for debug information in readonly UT environment.--- end ****
1149:
1150: IF x_return_status = FND_API.G_RET_STS_SUCCESS
1151: THEN
1152: -- only when the allocated action is ok, the WIP will issue component, or the data will be in inconsistent
1153: jmf_shikyu_inv_pvt.process_wip_component_issue(p_subcontract_po_shipment_id => p_subcontract_po_shipment_id
1154: ,p_quantity => p_adjustment_amount --p_adjustment
1165: || ',p_component_id:' || p_component_id
1166: || ',p_quantity:' || p_adjustment_amount
1167: );
1168: -- **** for debug information in readonly UT environment.--- end ****
1169: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1170: THEN
1171: --first reduce the allocation
1172: jmf_shikyu_allocation_pvt.reduce_allocations(p_api_version => 1.0
1173: ,p_init_msg_list => NULL
1189: || ',x_actual_reduced_qty:' || l_actual_reduced_qty
1190: || ',x_msg_data:' || l_msg_data
1191: );
1192: -- **** for debug information in readonly UT environment.--- end ****
1193: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1194: THEN
1195: -- **** for debug information in readonly UT environment.--- begin ****
1196: JMF_SHIKYU_RPT_UTIL.debug_output
1197: (
1204: );
1205: -- **** for debug information in readonly UT environment.--- end ****
1206: -- raise exception
1207: RAISE g_allocation_exc;
1208: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for reduce_allocations
1209: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_issue
1210: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for allocate_quantity
1211: END IF; -- end of l_remaining_qty > 0
1212:
1205: -- **** for debug information in readonly UT environment.--- end ****
1206: -- raise exception
1207: RAISE g_allocation_exc;
1208: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for reduce_allocations
1209: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_issue
1210: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for allocate_quantity
1211: END IF; -- end of l_remaining_qty > 0
1212:
1213: IF g_fnd_debug = 'Y' AND
1206: -- raise exception
1207: RAISE g_allocation_exc;
1208: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for reduce_allocations
1209: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_issue
1210: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for allocate_quantity
1211: END IF; -- end of l_remaining_qty > 0
1212:
1213: IF g_fnd_debug = 'Y' AND
1214: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1251: --fnd_message.set_name('JMF', 'JMF_SHIKYU_ADJ_MGR_ERROR');
1252: fnd_message.set_name('JMF', 'JMF_SHK_ADJ_MGR_ERROR');
1253: FND_MSG_PUB.Add;
1254:
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -- **** for debug information in readonly UT environment.--- begin ****
1257: JMF_SHIKYU_RPT_UTIL.debug_output
1258: (
1259: p_output_to => 'FND_LOG.STRING'
1315: ,p_message => 'g_not_enough_replen_exc: message: ' || l_jmf_shk_exception
1316: );
1317: -- **** for debug information in readonly UT environment.--- end ****
1318:
1319: x_return_status := fnd_api.g_ret_sts_error;
1320:
1321: --Call FND_LOG.string;
1322: --Print the FND Error Message 'JMF_SHIKYU_POS_ADJ_ERROR' to the concurrent request log file;
1323: IF g_fnd_debug = 'Y' AND
1351: ,g_module_prefix || l_api_name ||
1352: '.JMF_SHIKYU_ADJ_MGR_ERROR'
1353: ,'JMF_SHIKYU_ADJ_MGR_ERROR');
1354: END IF;
1355: x_return_status := fnd_api.g_ret_sts_unexp_error;
1356: -- **** for debug information in readonly UT environment.--- begin ****
1357: JMF_SHIKYU_RPT_UTIL.debug_output
1358: (
1359: p_output_to => 'FND_LOG.STRING'
1494: );
1495: -- **** for debug information in readonly UT environment.--- end ****
1496:
1497:
1498: IF x_return_status = FND_API.G_RET_STS_SUCCESS
1499: THEN
1500: --return component for the WIP
1501: jmf_shikyu_inv_pvt.process_wip_component_return(p_subcontract_po_shipment_id => p_subcontract_po_shipment_id
1502: ,p_quantity => l_actual_reduced_qty --not p_adjustment_amount
1510: ,p_api_name => G_MODULE_PREFIX || l_api_name
1511: ,p_message => 'end of component for the WIP, x_return_status:' || x_return_status
1512: );
1513: -- **** for debug information in readonly UT environment.--- end ****
1514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1515: THEN
1516: jmf_shikyu_allocation_pvt.get_available_replenishment_so(p_api_version => 1.0
1517: ,p_init_msg_list => NULL
1518: ,x_return_status => x_return_status
1571: || ',x_qty_allocated:' || l_qty_allocated
1572: || ',x_msg_data:' || l_msg_data
1573: );
1574: -- **** for debug information in readonly UT environment.--- end ****
1575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1576: THEN
1577: -- **** for debug information in readonly UT environment.--- begin ****
1578: JMF_SHIKYU_RPT_UTIL.debug_output
1579: (
1586: );
1587: -- **** for debug information in readonly UT environment.--- end ****
1588: -- raise exception
1589: RAISE g_allocation_exc;
1590: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for allocate_quantity
1591: END IF; -- end of l_remaining_qty > 0
1592: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_return
1593: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for reduce_allocations
1594: END IF; --end of l_WIP_consumed_qty > l_total_allocated_qty
1588: -- raise exception
1589: RAISE g_allocation_exc;
1590: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for allocate_quantity
1591: END IF; -- end of l_remaining_qty > 0
1592: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_return
1593: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for reduce_allocations
1594: END IF; --end of l_WIP_consumed_qty > l_total_allocated_qty
1595:
1596: IF g_fnd_debug = 'Y' AND
1589: RAISE g_allocation_exc;
1590: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for allocate_quantity
1591: END IF; -- end of l_remaining_qty > 0
1592: END IF; -- end of x_return_status <> FND_API.G_RET_STS_SUCCESS for process_wip_component_return
1593: END IF; -- end of x_return_status = FND_API.G_RET_STS_SUCCESS for reduce_allocations
1594: END IF; --end of l_WIP_consumed_qty > l_total_allocated_qty
1595:
1596: IF g_fnd_debug = 'Y' AND
1597: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1621: fnd_log.STRING(FND_LOG.LEVEL_EXCEPTION
1622: ,g_module_prefix || l_api_name || '.no_data_found'
1623: ,'NO_DATA_FOUND:' || SQLERRM);
1624: END IF;
1625: x_return_status := fnd_api.g_ret_sts_error;
1626: -- **** for debug information in readonly UT environment.--- begin ****
1627: JMF_SHIKYU_RPT_UTIL.debug_output
1628: (
1629: p_output_to => 'FND_LOG.STRING'
1650: '.g_wip_issued_less_alloc_exc'
1651: ,l_jmf_shk_exception);
1652: END IF;
1653:
1654: x_return_status := fnd_api.g_ret_sts_error;
1655: -- **** for debug information in readonly UT environment.--- begin ****
1656: JMF_SHIKYU_RPT_UTIL.debug_output
1657: (
1658: p_output_to => 'FND_LOG.STRING'
1676: fnd_log.STRING(FND_LOG.LEVEL_UNEXPECTED
1677: ,g_module_prefix || l_api_name || '.unexp_error'
1678: ,'unexpected error' || SQLERRM);
1679: END IF;
1680: x_return_status := fnd_api.g_ret_sts_unexp_error;
1681: -- **** for debug information in readonly UT environment.--- begin ****
1682: JMF_SHIKYU_RPT_UTIL.debug_output
1683: (
1684: p_output_to => 'FND_LOG.STRING'