[Home] [Help]
251: If (l_debug = 1) then
252: log_procedure(l_api_name,'start', 'start InitInput');
253: End if;
254: -- Initialize API return status to success
255: x_return_status := fnd_api.g_ret_sts_success;
256: If l_debug = 1 THEN
257: log_procedure(l_api_name,'start', 'p_type_code '||p_type_code);
258: log_procedure(l_api_name,'start', 'p_transaction_temp_id '||p_transaction_temp_id);
259: END IF;
466: end if; */
467: if inpline%isopen then
468: close inpline;
469: end if;
470: x_return_status := fnd_api.g_ret_sts_unexp_error;
471: if fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
472: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
473: end if;
474: fnd_msg_pub.count_and_get( p_count => x_msg_count
536: log_procedure(l_api_name, 'start', 'Start InitStrategyRules');
537: End if;
538: -- nothing to init if p_strategy_id is null (no rule detailing)
539: IF p_strategy_id IS NULL THEN
540: x_return_status := fnd_api.g_ret_sts_success;
541: RETURN;
542: END IF;
543: /*--
544: --
549: END IF;
550: -- end of debugging section
551: -- */
552: -- Initialize API return status to success
553: x_return_status := fnd_api.g_ret_sts_success;
554:
555: -- Initialize local input line counter
556: l_rule_counter := 0;
557:
612: -- */
613: if rules%isopen then
614: close rules;
615: end if;
616: x_return_status := fnd_api.g_ret_sts_unexp_error;
617: if fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
618: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
619: end if;
620: fnd_msg_pub.count_and_get( p_count => x_msg_count
744:
745: INV_Quantity_Tree_PVT.Create_Tree
746: (
747: p_api_version_number => g_qty_tree_api_version
748: --,p_init_msg_list => fnd_api.g_false
749: ,x_return_status => x_return_status
750: ,x_msg_count => x_msg_count
751: ,x_msg_data => x_msg_data
752: ,p_organization_id => p_organization_id
799: -- */
800: if iteminfo%isopen then
801: close iteminfo;
802: end if;
803: x_return_status := fnd_api.g_ret_sts_unexp_error;
804: if fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
805: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
806: end if;
807: fnd_msg_pub.count_and_get( p_count => x_msg_count
856: -- identified by parameters p_transaction_temp_id and
857: -- p_type_code ( base table MTL_MATERIAL_TRANSACTIONS_TEMP )
858: -- Parameters :
859: -- p_api_version in number required
860: -- p_init_msg_list in varchar2 optional default = fnd_api.g_false
861: -- p_validation_level in number optional default =
862: -- fnd_api.g_valid_level_full
863: -- x_return_status out varchar2(1)
864: -- x_msg_count out number
858: -- Parameters :
859: -- p_api_version in number required
860: -- p_init_msg_list in varchar2 optional default = fnd_api.g_false
861: -- p_validation_level in number optional default =
862: -- fnd_api.g_valid_level_full
863: -- x_return_status out varchar2(1)
864: -- x_msg_count out number
865: -- x_msg_data out varchar2(2000)
866: -- p_transaction_temp_id in number required default = NULL
877: -- End of comments
878:
879: procedure Search (
880: p_api_version in number
881: ,p_init_msg_list in varchar2 := fnd_api.g_false
882: ,p_validation_level in number := fnd_api.g_valid_level_full
883: ,x_return_status out NOCOPY varchar2
884: ,x_msg_count out NOCOPY number
885: ,x_msg_data out NOCOPY varchar2
878:
879: procedure Search (
880: p_api_version in number
881: ,p_init_msg_list in varchar2 := fnd_api.g_false
882: ,p_validation_level in number := fnd_api.g_valid_level_full
883: ,x_return_status out NOCOPY varchar2
884: ,x_msg_count out NOCOPY number
885: ,x_msg_data out NOCOPY varchar2
886: ,p_transaction_temp_id in number := NULL
1035: END IF;
1036: -- end of debugging section
1037: -- */
1038: -- Standard call to check for call compatibility
1039: if not fnd_api.compatible_api_call( l_api_version
1040: ,p_api_version
1041: ,l_api_name
1042: ,g_pkg_name ) then
1043: raise fnd_api.g_exc_unexpected_error;
1039: if not fnd_api.compatible_api_call( l_api_version
1040: ,p_api_version
1041: ,l_api_name
1042: ,g_pkg_name ) then
1043: raise fnd_api.g_exc_unexpected_error;
1044: end if;
1045:
1046: -- Initialize message list if p_init_msg_list is set to TRUE
1047: if fnd_api.to_boolean( p_init_msg_list ) then
1043: raise fnd_api.g_exc_unexpected_error;
1044: end if;
1045:
1046: -- Initialize message list if p_init_msg_list is set to TRUE
1047: if fnd_api.to_boolean( p_init_msg_list ) then
1048: fnd_msg_pub.initialize;
1049: end if;
1050:
1051: -- Initialize API return status to success
1048: fnd_msg_pub.initialize;
1049: end if;
1050:
1051: -- Initialize API return status to success
1052: x_return_status := fnd_api.g_ret_sts_success;
1053:
1054: -- Validate input parameters and pre-requisites, if validation level
1055: -- requires this
1056: if p_validation_level <> fnd_api.g_valid_level_none then
1052: x_return_status := fnd_api.g_ret_sts_success;
1053:
1054: -- Validate input parameters and pre-requisites, if validation level
1055: -- requires this
1056: if p_validation_level <> fnd_api.g_valid_level_none then
1057: if p_transaction_temp_id is null or
1058: p_transaction_temp_id = fnd_api.g_miss_num then
1059: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
1060: fnd_msg_pub.add;
1054: -- Validate input parameters and pre-requisites, if validation level
1055: -- requires this
1056: if p_validation_level <> fnd_api.g_valid_level_none then
1057: if p_transaction_temp_id is null or
1058: p_transaction_temp_id = fnd_api.g_miss_num then
1059: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
1060: fnd_msg_pub.add;
1061: If (l_debug = 1) then
1062: log_error_msg(l_api_name, 'missing_txn_temp_id');
1060: fnd_msg_pub.add;
1061: If (l_debug = 1) then
1062: log_error_msg(l_api_name, 'missing_txn_temp_id');
1063: End if;
1064: raise fnd_api.g_exc_unexpected_error;
1065: end if;
1066: if p_type_code is null or
1067: p_type_code = fnd_api.g_miss_num then
1068: fnd_message.set_name('WMS','WMS_STRA_TYPE_CODE_MISS');
1063: End if;
1064: raise fnd_api.g_exc_unexpected_error;
1065: end if;
1066: if p_type_code is null or
1067: p_type_code = fnd_api.g_miss_num then
1068: fnd_message.set_name('WMS','WMS_STRA_TYPE_CODE_MISS');
1069: fnd_msg_pub.add;
1070: If (l_debug = 1) then
1071: log_error_msg(l_api_name, 'missing_type_code');
1069: fnd_msg_pub.add;
1070: If (l_debug = 1) then
1071: log_error_msg(l_api_name, 'missing_type_code');
1072: End if;
1073: raise fnd_api.g_exc_unexpected_error;
1074: end if;
1075: end if;
1076:
1077: -- get actual inventory org to search for strategy
1086: fnd_msg_pub.add;
1087: If (l_debug = 1) then
1088: log_error_msg(l_api_name, 'missing_org_id_cg');
1089: End if;
1090: raise fnd_api.g_exc_unexpected_error;
1091: end if;
1092: close cg_org;
1093: Else -- pick/put strategy
1094: open input;
1099: fnd_msg_pub.add;
1100: If (l_debug = 1) then
1101: log_error_msg(l_api_name, 'missing_org_id_pp');
1102: End if;
1103: raise fnd_api.g_exc_unexpected_error;
1104: end if;
1105: close input;
1106: End If;
1107: ELSE
1118: ,p_type_code
1119: ,l_strategy_id
1120: );
1121: -- leave the actual procedure, if stub procedure already found a strategy
1122: if x_return_status = fnd_api.g_ret_sts_success then
1123: If (l_debug = 1) then
1124: log_event(l_api_name, 'custom_search',
1125: 'Strategy found using custom strategy search function. ' ||
1126: 'Strategy: ' || l_strategy_id);
1127: End if;
1128: x_strategy_id := l_strategy_id;
1129: return;
1130: -- leave the actual procedure, if stub procedure got an unexpected error
1131: elsif x_return_status = fnd_api.g_ret_sts_unexp_error then
1132: raise fnd_api.g_exc_unexpected_error;
1133: -- continue strategy search, if stub procedure didn't find strategy already
1134: elsif x_return_status = fnd_api.g_ret_sts_error then
1135: -- Re-Initialize API return status to success
1128: x_strategy_id := l_strategy_id;
1129: return;
1130: -- leave the actual procedure, if stub procedure got an unexpected error
1131: elsif x_return_status = fnd_api.g_ret_sts_unexp_error then
1132: raise fnd_api.g_exc_unexpected_error;
1133: -- continue strategy search, if stub procedure didn't find strategy already
1134: elsif x_return_status = fnd_api.g_ret_sts_error then
1135: -- Re-Initialize API return status to success
1136: x_return_status := fnd_api.g_ret_sts_success;
1130: -- leave the actual procedure, if stub procedure got an unexpected error
1131: elsif x_return_status = fnd_api.g_ret_sts_unexp_error then
1132: raise fnd_api.g_exc_unexpected_error;
1133: -- continue strategy search, if stub procedure didn't find strategy already
1134: elsif x_return_status = fnd_api.g_ret_sts_error then
1135: -- Re-Initialize API return status to success
1136: x_return_status := fnd_api.g_ret_sts_success;
1137: -- every other return status seems to be unexpected: leave
1138: else
1132: raise fnd_api.g_exc_unexpected_error;
1133: -- continue strategy search, if stub procedure didn't find strategy already
1134: elsif x_return_status = fnd_api.g_ret_sts_error then
1135: -- Re-Initialize API return status to success
1136: x_return_status := fnd_api.g_ret_sts_success;
1137: -- every other return status seems to be unexpected: leave
1138: else
1139: fnd_message.set_name('WMS','WMS_INVALID_RETURN_STATUS');
1140: -- WMS_re_Custom_PUB.SearchForStrategy returned wrong status
1141: fnd_msg_pub.add;
1142: If (l_debug = 1) then
1143: log_error_msg(l_api_name, 'bad_return_status');
1144: End if;
1145: raise fnd_api.g_exc_unexpected_error;
1146: end if;
1147:
1148: --two different type codes at work here
1149: --p_type_code tells us which engine is calling this procedure
1324: fnd_msg_pub.add;
1325: If (g_debug = 1) then
1326: log_error_msg(l_api_name, 'bad_db_object_chain');
1327: End if;
1328: raise fnd_api.g_exc_unexpected_error;
1329: end if;
1330:
1331: -- ----------------------------------------------------------------
1332: -- EXECUTE DYNAMIC SQL TO FIND STRATEGY
1395: If (g_debug = 1) then
1396: log_event(l_api_name, 'no_hierarchy',
1397: 'No strategy search order defined for this organization');
1398: End if;
1399: --raise fnd_api.g_exc_error;
1400: end if;
1401: if l_strategy_id is null then
1402: fnd_message.set_name('WMS','WMS_NO_STRATEGY_ASSIGN');
1403: -- inv_pp_debug.send_message_to_pipe('no strategy assigned');
1407: log_event(l_api_name, 'no_strategy',
1408: 'The strategy search function failed to find a valid ' ||
1409: 'strategy.');
1410: End if;
1411: --raise fnd_api.g_exc_error;
1412: IF p_type_code = 1 THEN
1413: wms_search_order_globals_pvt.g_putaway_strategy_id := -999;
1414: ELSIF p_type_code = 2 THEN
1415: wms_search_order_globals_pvt.g_pick_strategy_id := -999;
1473:
1474: g_debug := NULL;
1475: --
1476: exception
1477: when fnd_api.g_exc_error then
1478: --
1479: -- debugging portion
1480: -- can be commented ut for final code
1481: IF inv_pp_debug.is_debug_mode THEN
1492: END IF;
1493: -- end of debugging section
1494: --
1495: inv_sql_binding_pvt.InitBindTables;
1496: x_return_status := fnd_api.g_ret_sts_error;
1497: fnd_msg_pub.count_and_get( p_count => x_msg_count
1498: ,p_data => x_msg_data );
1499: If (g_debug = 1) then
1500: log_error(l_api_name, 'error', 'Error in Search - ' || x_msg_data);
1501: End if;
1502:
1503: g_debug := NULL;
1504:
1505: when fnd_api.g_exc_unexpected_error then
1506: --
1507: -- debugging portion
1508: -- can be commented ut for final code
1509: IF inv_pp_debug.is_debug_mode THEN
1519: END IF;
1520: -- end of debugging section
1521: --
1522: inv_sql_binding_pvt.InitBindTables;
1523: x_return_status := fnd_api.g_ret_sts_unexp_error;
1524: fnd_msg_pub.count_and_get( p_count => x_msg_count
1525: ,p_data => x_msg_data );
1526: If (g_debug = 1) then
1527: log_error(l_api_name, 'unexp_error',
1558: end if;
1559: if conditions%isopen then
1560: close conditions;
1561: end if;
1562: x_return_status := fnd_api.g_ret_sts_unexp_error;
1563: if fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
1564: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1565: end if;
1566: fnd_msg_pub.count_and_get( p_count => x_msg_count
1613: BEGIN
1614: IF (l_debug = 1) THEN
1615: log_statement(l_api_name, 'Entering get_max_tolerance', '-------------------');
1616: END IF;
1617: l_return_status := FND_API.G_RET_STS_SUCCESS;
1618: l_mo_quantity := WMS_Engine_PVT.g_mo_quantity;
1619:
1620: -- l_other_alloc is sum of allocation for all MO except current MO, with same p_trx_source_line_id
1621: SELECT NVL(SUM(transaction_quantity), 0)
1646: log_statement(l_api_name, 'Return status from check_quantity_to_pick = ', l_return_status);
1647: log_statement(l_api_name, 'l_max_quantity ' , l_max_quantity);
1648: log_statement(l_api_name, 'l_avail_req_qty ', l_avail_req_qty);
1649: END IF;
1650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1651: RAISE FND_API.G_EXC_ERROR;
1652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: END IF;
1647: log_statement(l_api_name, 'l_max_quantity ' , l_max_quantity);
1648: log_statement(l_api_name, 'l_avail_req_qty ', l_avail_req_qty);
1649: END IF;
1650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1651: RAISE FND_API.G_EXC_ERROR;
1652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: END IF;
1655:
1648: log_statement(l_api_name, 'l_avail_req_qty ', l_avail_req_qty);
1649: END IF;
1650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1651: RAISE FND_API.G_EXC_ERROR;
1652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: END IF;
1655:
1656: -- l_cur_mo_alloc is any existing allocation for the current MO
1649: END IF;
1650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1651: RAISE FND_API.G_EXC_ERROR;
1652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: END IF;
1655:
1656: -- l_cur_mo_alloc is any existing allocation for the current MO
1657: SELECT NVL(SUM(transaction_quantity), 0)
1687: IF (l_debug = 1) THEN
1688: log_statement(l_api_name, 'Exiting get_max_tolerance', '--------------------');
1689: END IF;
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1688: log_statement(l_api_name, 'Exiting get_max_tolerance', '--------------------');
1689: END IF;
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1697: WHEN OTHERS THEN
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1697: WHEN OTHERS THEN
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1697: WHEN OTHERS THEN
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1700: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1701: END IF;
1702: END get_max_tolerance;
1720: -- WMS_STRATEGY_MEMBERS identified by parameter
1721: -- p_strategy_id
1722: -- Parameters :
1723: -- p_api_version in number required
1724: -- p_init_msg_list in varchar2 optional default = fnd_api.g_false
1725: -- p_commit in varchar2 optional default = fnd_api.g_false
1726: -- p_validation_level in number optional default =
1727: -- fnd_api.g_valid_level_full
1728: -- x_return_status out varchar2(1)
1721: -- p_strategy_id
1722: -- Parameters :
1723: -- p_api_version in number required
1724: -- p_init_msg_list in varchar2 optional default = fnd_api.g_false
1725: -- p_commit in varchar2 optional default = fnd_api.g_false
1726: -- p_validation_level in number optional default =
1727: -- fnd_api.g_valid_level_full
1728: -- x_return_status out varchar2(1)
1729: -- x_msg_count out number
1723: -- p_api_version in number required
1724: -- p_init_msg_list in varchar2 optional default = fnd_api.g_false
1725: -- p_commit in varchar2 optional default = fnd_api.g_false
1726: -- p_validation_level in number optional default =
1727: -- fnd_api.g_valid_level_full
1728: -- x_return_status out varchar2(1)
1729: -- x_msg_count out number
1730: -- x_msg_data out varchar2(2000)
1731: -- p_transaction_temp_id in number required default = NULL
1748: -- End of comments
1749:
1750: procedure Apply (
1751: p_api_version in number
1752: ,p_init_msg_list in varchar2 := fnd_api.g_false
1753: ,p_commit in varchar2 := fnd_api.g_false
1754: ,p_validation_level in number := fnd_api.g_valid_level_full
1755: ,x_return_status out NOCOPY varchar2
1756: ,x_msg_count out NOCOPY number
1749:
1750: procedure Apply (
1751: p_api_version in number
1752: ,p_init_msg_list in varchar2 := fnd_api.g_false
1753: ,p_commit in varchar2 := fnd_api.g_false
1754: ,p_validation_level in number := fnd_api.g_valid_level_full
1755: ,x_return_status out NOCOPY varchar2
1756: ,x_msg_count out NOCOPY number
1757: ,x_msg_data out NOCOPY varchar2
1750: procedure Apply (
1751: p_api_version in number
1752: ,p_init_msg_list in varchar2 := fnd_api.g_false
1753: ,p_commit in varchar2 := fnd_api.g_false
1754: ,p_validation_level in number := fnd_api.g_valid_level_full
1755: ,x_return_status out NOCOPY varchar2
1756: ,x_msg_count out NOCOPY number
1757: ,x_msg_data out NOCOPY varchar2
1758: ,p_transaction_temp_id in number := NULL
1888: -- Standard start of API savepoint
1889: savepoint ApplyStrategySP;
1890:
1891: -- Standard call to check for call compatibility
1892: if not fnd_api.compatible_api_call( l_api_version
1893: ,p_api_version
1894: ,l_api_name
1895: ,g_pkg_name ) then
1896: raise fnd_api.g_exc_unexpected_error;
1892: if not fnd_api.compatible_api_call( l_api_version
1893: ,p_api_version
1894: ,l_api_name
1895: ,g_pkg_name ) then
1896: raise fnd_api.g_exc_unexpected_error;
1897: end if;
1898:
1899: -- Initialize message list if p_init_msg_list is set to TRUE
1900: if fnd_api.to_boolean( p_init_msg_list ) then
1896: raise fnd_api.g_exc_unexpected_error;
1897: end if;
1898:
1899: -- Initialize message list if p_init_msg_list is set to TRUE
1900: if fnd_api.to_boolean( p_init_msg_list ) then
1901: fnd_msg_pub.initialize;
1902: end if;
1903:
1904: -- Initialize API return status to success
1901: fnd_msg_pub.initialize;
1902: end if;
1903:
1904: -- Initialize API return status to success
1905: x_return_status := fnd_api.g_ret_sts_success;
1906:
1907: -- Initialize functional return status to 'missing'
1908: --l_finished := fnd_api.g_miss_char; --bug 3673962
1909: l_finished := fnd_api.g_false; --bug3673962
1904: -- Initialize API return status to success
1905: x_return_status := fnd_api.g_ret_sts_success;
1906:
1907: -- Initialize functional return status to 'missing'
1908: --l_finished := fnd_api.g_miss_char; --bug 3673962
1909: l_finished := fnd_api.g_false; --bug3673962
1910:
1911: -- Validate input parameters and pre-requisites, if validation level
1912: -- requires this
1905: x_return_status := fnd_api.g_ret_sts_success;
1906:
1907: -- Initialize functional return status to 'missing'
1908: --l_finished := fnd_api.g_miss_char; --bug 3673962
1909: l_finished := fnd_api.g_false; --bug3673962
1910:
1911: -- Validate input parameters and pre-requisites, if validation level
1912: -- requires this
1913: if p_validation_level <> fnd_api.g_valid_level_none then
1909: l_finished := fnd_api.g_false; --bug3673962
1910:
1911: -- Validate input parameters and pre-requisites, if validation level
1912: -- requires this
1913: if p_validation_level <> fnd_api.g_valid_level_none then
1914: if p_transaction_temp_id is null or
1915: p_transaction_temp_id = fnd_api.g_miss_num
1916: then
1917: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
1911: -- Validate input parameters and pre-requisites, if validation level
1912: -- requires this
1913: if p_validation_level <> fnd_api.g_valid_level_none then
1914: if p_transaction_temp_id is null or
1915: p_transaction_temp_id = fnd_api.g_miss_num
1916: then
1917: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
1918: -- Transaction input identifier required but not provided
1919: fnd_msg_pub.add;
1919: fnd_msg_pub.add;
1920: If (l_debug = 1) then
1921: log_error_msg(l_api_name,'missing_txn_temp_id');
1922: End if;
1923: raise fnd_api.g_exc_unexpected_error;
1924: end if;
1925: if p_type_code is null or
1926: p_type_code = fnd_api.g_miss_num
1927: then
1922: End if;
1923: raise fnd_api.g_exc_unexpected_error;
1924: end if;
1925: if p_type_code is null or
1926: p_type_code = fnd_api.g_miss_num
1927: then
1928: fnd_message.set_name('WMS','WMS_STRA_TYPE_CODE_MISS');
1929: -- Strategy type code required but not provided
1930: fnd_msg_pub.add;
1930: fnd_msg_pub.add;
1931: If (l_debug = 1) then
1932: log_error_msg(l_api_name,'missing_type_code');
1933: End if;
1934: raise fnd_api.g_exc_unexpected_error;
1935: end if;
1936: /* Strategy Id is no longer required
1937: if p_strategy_id is null or
1938: p_strategy_id = fnd_api.g_miss_num then
1934: raise fnd_api.g_exc_unexpected_error;
1935: end if;
1936: /* Strategy Id is no longer required
1937: if p_strategy_id is null or
1938: p_strategy_id = fnd_api.g_miss_num then
1939: fnd_message.set_name('WMS','WMS_STRATEGY_ID_MISSING');
1940: -- Strategy identifier required but not provided
1941: fnd_msg_pub.add;
1942: raise fnd_api.g_exc_unexpected_error;
1938: p_strategy_id = fnd_api.g_miss_num then
1939: fnd_message.set_name('WMS','WMS_STRATEGY_ID_MISSING');
1940: -- Strategy identifier required but not provided
1941: fnd_msg_pub.add;
1942: raise fnd_api.g_exc_unexpected_error;
1943: end if;
1944: */
1945: end if;
1946:
1988: ,l_transaction_source_name
1989: ,l_transaction_type_id
1990: ,l_tree_mode
1991: );
1992: if x_return_status = fnd_api.g_ret_sts_unexp_error then
1993: raise fnd_api.g_exc_unexpected_error;
1994: elsif x_return_status = fnd_api.g_ret_sts_error then
1995: raise fnd_api.g_exc_error;
1996: end if;
1989: ,l_transaction_type_id
1990: ,l_tree_mode
1991: );
1992: if x_return_status = fnd_api.g_ret_sts_unexp_error then
1993: raise fnd_api.g_exc_unexpected_error;
1994: elsif x_return_status = fnd_api.g_ret_sts_error then
1995: raise fnd_api.g_exc_error;
1996: end if;
1997:
1990: ,l_tree_mode
1991: );
1992: if x_return_status = fnd_api.g_ret_sts_unexp_error then
1993: raise fnd_api.g_exc_unexpected_error;
1994: elsif x_return_status = fnd_api.g_ret_sts_error then
1995: raise fnd_api.g_exc_error;
1996: end if;
1997:
1998: select NVL(WMS_ENABLED_FLAG, 'N') INTO l_wms_enabled_flag
1991: );
1992: if x_return_status = fnd_api.g_ret_sts_unexp_error then
1993: raise fnd_api.g_exc_unexpected_error;
1994: elsif x_return_status = fnd_api.g_ret_sts_error then
1995: raise fnd_api.g_exc_error;
1996: end if;
1997:
1998: select NVL(WMS_ENABLED_FLAG, 'N') INTO l_wms_enabled_flag
1999: from mtl_parameters
2014: ,l_transaction_source_name
2015: ,l_tree_mode
2016: ,l_tree_id
2017: );
2018: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2019: raise fnd_api.g_exc_unexpected_error;
2020: elsif x_return_status = fnd_api.g_ret_sts_error then
2021: raise fnd_api.g_exc_error;
2022: end if;
2015: ,l_tree_mode
2016: ,l_tree_id
2017: );
2018: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2019: raise fnd_api.g_exc_unexpected_error;
2020: elsif x_return_status = fnd_api.g_ret_sts_error then
2021: raise fnd_api.g_exc_error;
2022: end if;
2023: end if;
2016: ,l_tree_id
2017: );
2018: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2019: raise fnd_api.g_exc_unexpected_error;
2020: elsif x_return_status = fnd_api.g_ret_sts_error then
2021: raise fnd_api.g_exc_error;
2022: end if;
2023: end if;
2024: ---
2017: );
2018: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2019: raise fnd_api.g_exc_unexpected_error;
2020: elsif x_return_status = fnd_api.g_ret_sts_error then
2021: raise fnd_api.g_exc_error;
2022: end if;
2023: end if;
2024: ---
2025:
2038: log_event(l_api_name, 'APPLY', 'WMS_RULES_PVT.Calling QuickPick() ');
2039: End if;
2040: WMS_Rule_PVT.QuickPick (
2041: p_api_version => g_pp_rule_api_version
2042: , p_init_msg_list => fnd_api.g_false
2043: , p_commit => fnd_api.g_false
2044: , p_validation_level => fnd_api.g_valid_level_full
2045: , x_return_status => x_return_status
2046: , x_msg_count => l_msg_count
2039: End if;
2040: WMS_Rule_PVT.QuickPick (
2041: p_api_version => g_pp_rule_api_version
2042: , p_init_msg_list => fnd_api.g_false
2043: , p_commit => fnd_api.g_false
2044: , p_validation_level => fnd_api.g_valid_level_full
2045: , x_return_status => x_return_status
2046: , x_msg_count => l_msg_count
2047: , x_msg_data => l_msg_data
2040: WMS_Rule_PVT.QuickPick (
2041: p_api_version => g_pp_rule_api_version
2042: , p_init_msg_list => fnd_api.g_false
2043: , p_commit => fnd_api.g_false
2044: , p_validation_level => fnd_api.g_valid_level_full
2045: , x_return_status => x_return_status
2046: , x_msg_count => l_msg_count
2047: , x_msg_data => l_msg_data
2048: , p_type_code => p_type_code
2071: , p_project_id => p_project_id
2072: , p_task_id => p_task_id
2073: );
2074:
2075: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2076: raise fnd_api.g_exc_error;
2077: END IF;
2078: Else ---- Patchset H , I and non Invt. Moves
2079: log_event(l_api_name,'', 'no quick pick');
2072: , p_task_id => p_task_id
2073: );
2074:
2075: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2076: raise fnd_api.g_exc_error;
2077: END IF;
2078: Else ---- Patchset H , I and non Invt. Moves
2079: log_event(l_api_name,'', 'no quick pick');
2080: -- Initialize the internal rules table
2082: ,l_msg_count
2083: ,l_msg_data
2084: ,p_strategy_id );
2085:
2086: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2087: raise fnd_api.g_exc_unexpected_error;
2088: elsif x_return_status = fnd_api.g_ret_sts_error then
2089: raise fnd_api.g_exc_error;
2090: end if;
2083: ,l_msg_data
2084: ,p_strategy_id );
2085:
2086: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2087: raise fnd_api.g_exc_unexpected_error;
2088: elsif x_return_status = fnd_api.g_ret_sts_error then
2089: raise fnd_api.g_exc_error;
2090: end if;
2091:
2084: ,p_strategy_id );
2085:
2086: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2087: raise fnd_api.g_exc_unexpected_error;
2088: elsif x_return_status = fnd_api.g_ret_sts_error then
2089: raise fnd_api.g_exc_error;
2090: end if;
2091:
2092: log_event(l_api_name,'', 'after init strategyrules ');
2085:
2086: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2087: raise fnd_api.g_exc_unexpected_error;
2088: elsif x_return_status = fnd_api.g_ret_sts_error then
2089: raise fnd_api.g_exc_error;
2090: end if;
2091:
2092: log_event(l_api_name,'', 'after init strategyrules ');
2093:
2120: x_msg_count => x_msg_count,
2121: x_msg_data => x_msg_data,
2122: x_max_tolerance => l_max_tolerance,
2123: x_min_tolerance => l_min_tolerance );
2124: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2125: IF l_debug = 1 THEN
2126: log_statement(l_api_name, 'INV_Pick_Release_PVT.get_tolerance', 'Unexpected error in get_tolerance Call');
2127: END IF;
2128: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2124: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2125: IF l_debug = 1 THEN
2126: log_statement(l_api_name, 'INV_Pick_Release_PVT.get_tolerance', 'Unexpected error in get_tolerance Call');
2127: END IF;
2128: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2129: IF l_debug = 1 THEN
2130: log_statement(l_api_name, 'INV_Pick_Release_PVT.get_tolerance', 'Error in get_tolerance Call');
2131: END IF;
2132: END IF;
2149: x_return_status => x_return_status,
2150: x_msg_count => x_msg_count,
2151: x_msg_data => x_msg_data
2152: );
2153: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: IF l_debug = 1 THEN
2155: log_statement(l_api_name, 'get_max_tolerance', 'Unexpected error in get_max_tolerance Call');
2156: END IF;
2157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2153: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: IF l_debug = 1 THEN
2155: log_statement(l_api_name, 'get_max_tolerance', 'Unexpected error in get_max_tolerance Call');
2156: END IF;
2157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2158: IF l_debug = 1 THEN
2159: log_statement(l_api_name, 'get_max_tolerance', 'Error in get_max_tolerance Call');
2160: END IF;
2161: END IF;
2198: x_return_status => x_return_status,
2199: x_msg_count => x_msg_count,
2200: x_msg_data => x_msg_data
2201: );
2202: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2203: IF l_debug = 1 THEN
2204: log_statement(l_api_name, 'get_max_tolerance', 'Unexpected error in get_max_tolerance Call');
2205: END IF;
2206: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2202: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2203: IF l_debug = 1 THEN
2204: log_statement(l_api_name, 'get_max_tolerance', 'Unexpected error in get_max_tolerance Call');
2205: END IF;
2206: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2207: IF l_debug = 1 THEN
2208: log_statement(l_api_name, 'get_max_tolerance', 'Error in get_max_tolerance Call');
2209: END IF;
2210: END IF;
2314: END IF;
2315: WMS_rule_PVT.applydefloc
2316: (
2317: p_api_version => g_pp_rule_api_version,
2318: p_init_msg_list => fnd_api.g_false,
2319: p_commit => p_commit,
2320: p_validation_level => fnd_api.g_valid_level_none,
2321: x_return_status => x_return_status,
2322: x_msg_count => l_msg_count,
2316: (
2317: p_api_version => g_pp_rule_api_version,
2318: p_init_msg_list => fnd_api.g_false,
2319: p_commit => p_commit,
2320: p_validation_level => fnd_api.g_valid_level_none,
2321: x_return_status => x_return_status,
2322: x_msg_count => l_msg_count,
2323: x_msg_data => l_msg_data,
2324: p_transaction_temp_id => p_transaction_temp_id,
2340: ElsIF p_simulation_mode = 10 THEN --mode is manual alloc
2341: log_event(l_api_name, 'APPLY()', 'get_availabe_inv ');
2342: WMS_Rule_PVT.get_available_inventory(
2343: p_api_version => g_pp_rule_api_version
2344: , p_init_msg_list => fnd_api.g_false
2345: , p_commit => fnd_api.g_false
2346: , p_validation_level => fnd_api.g_valid_level_full
2347: , x_return_status => x_return_status
2348: , x_msg_count => l_msg_count
2341: log_event(l_api_name, 'APPLY()', 'get_availabe_inv ');
2342: WMS_Rule_PVT.get_available_inventory(
2343: p_api_version => g_pp_rule_api_version
2344: , p_init_msg_list => fnd_api.g_false
2345: , p_commit => fnd_api.g_false
2346: , p_validation_level => fnd_api.g_valid_level_full
2347: , x_return_status => x_return_status
2348: , x_msg_count => l_msg_count
2349: , x_msg_data => l_msg_data
2342: WMS_Rule_PVT.get_available_inventory(
2343: p_api_version => g_pp_rule_api_version
2344: , p_init_msg_list => fnd_api.g_false
2345: , p_commit => fnd_api.g_false
2346: , p_validation_level => fnd_api.g_valid_level_full
2347: , x_return_status => x_return_status
2348: , x_msg_count => l_msg_count
2349: , x_msg_data => l_msg_data
2350: , p_rule_id => l_rule_id
2376:
2377: --bug#6867434 start
2378: INV_Quantity_Tree_PVT. release_lock(
2379: p_api_version_number => g_qty_tree_api_version,
2380: p_init_msg_lst => fnd_api.g_false,
2381: x_return_status => x_return_status,
2382: x_msg_count => l_msg_count,
2383: x_msg_data => l_msg_data,
2384: p_organization_id => l_organization_id,
2414: End If;
2415:
2416: WMS_Rule_PVT.Apply (
2417: p_api_version => g_pp_rule_api_version
2418: , p_init_msg_list => fnd_api.g_false
2419: , p_commit => fnd_api.g_false
2420: , p_validation_level => fnd_api.g_valid_level_full
2421: , x_return_status => x_return_status
2422: , x_msg_count => l_msg_count
2415:
2416: WMS_Rule_PVT.Apply (
2417: p_api_version => g_pp_rule_api_version
2418: , p_init_msg_list => fnd_api.g_false
2419: , p_commit => fnd_api.g_false
2420: , p_validation_level => fnd_api.g_valid_level_full
2421: , x_return_status => x_return_status
2422: , x_msg_count => l_msg_count
2423: , x_msg_data => l_msg_data
2416: WMS_Rule_PVT.Apply (
2417: p_api_version => g_pp_rule_api_version
2418: , p_init_msg_list => fnd_api.g_false
2419: , p_commit => fnd_api.g_false
2420: , p_validation_level => fnd_api.g_valid_level_full
2421: , x_return_status => x_return_status
2422: , x_msg_count => l_msg_count
2423: , x_msg_data => l_msg_data
2424: , p_rule_id => l_rule_id
2454:
2455: log_event(l_api_name, 'APPLY()', 'rule apply ');
2456: WMS_Rule_PVT.Apply (
2457: p_api_version => g_pp_rule_api_version
2458: , p_init_msg_list => fnd_api.g_false
2459: , p_commit => fnd_api.g_false
2460: , p_validation_level => fnd_api.g_valid_level_full
2461: , x_return_status => x_return_status
2462: , x_msg_count => l_msg_count
2455: log_event(l_api_name, 'APPLY()', 'rule apply ');
2456: WMS_Rule_PVT.Apply (
2457: p_api_version => g_pp_rule_api_version
2458: , p_init_msg_list => fnd_api.g_false
2459: , p_commit => fnd_api.g_false
2460: , p_validation_level => fnd_api.g_valid_level_full
2461: , x_return_status => x_return_status
2462: , x_msg_count => l_msg_count
2463: , x_msg_data => l_msg_data
2456: WMS_Rule_PVT.Apply (
2457: p_api_version => g_pp_rule_api_version
2458: , p_init_msg_list => fnd_api.g_false
2459: , p_commit => fnd_api.g_false
2460: , p_validation_level => fnd_api.g_valid_level_full
2461: , x_return_status => x_return_status
2462: , x_msg_count => l_msg_count
2463: , x_msg_data => l_msg_data
2464: , p_rule_id => l_rule_id
2500: wms_parameter_pvt.g_bulkCollect_Locator.DELETE;
2501: wms_parameter_pvt.g_bulkCollect_quantity.DELETE;
2502: -- end of Bug# 3413372
2503: END IF;
2504: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2505: raise fnd_api.g_exc_unexpected_error;
2506: elsif x_return_status = fnd_api.g_ret_sts_error then
2507: raise fnd_api.g_exc_error;
2508: end if;
2501: wms_parameter_pvt.g_bulkCollect_quantity.DELETE;
2502: -- end of Bug# 3413372
2503: END IF;
2504: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2505: raise fnd_api.g_exc_unexpected_error;
2506: elsif x_return_status = fnd_api.g_ret_sts_error then
2507: raise fnd_api.g_exc_error;
2508: end if;
2509: END IF;
2502: -- end of Bug# 3413372
2503: END IF;
2504: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2505: raise fnd_api.g_exc_unexpected_error;
2506: elsif x_return_status = fnd_api.g_ret_sts_error then
2507: raise fnd_api.g_exc_error;
2508: end if;
2509: END IF;
2510: if (l_debug = 1) then
2503: END IF;
2504: if x_return_status = fnd_api.g_ret_sts_unexp_error then
2505: raise fnd_api.g_exc_unexpected_error;
2506: elsif x_return_status = fnd_api.g_ret_sts_error then
2507: raise fnd_api.g_exc_error;
2508: end if;
2509: END IF;
2510: if (l_debug = 1) then
2511: log_statement(l_api_name, 'l_finished ', l_finished);
2510: if (l_debug = 1) then
2511: log_statement(l_api_name, 'l_finished ', l_finished);
2512: end if;
2513: --gmi_reservation_util.println('l_finished '||l_finished);
2514: exit when fnd_api.to_boolean(l_finished) OR p_strategy_id IS NULL
2515: OR l_simulation_mode IN (2,4,10);
2516: end loop;
2517:
2518:
2518:
2519: END IF; -- end Patchset J changes
2520:
2521: -- Standard check of p_commit
2522: if fnd_api.to_boolean(p_commit) then
2523: commit work;
2524: end if;
2525:
2526: --
2539: End if;
2540: -- g_debug := NULL;
2541: --
2542: exception
2543: when fnd_api.g_exc_error then
2544: /* --
2545: -- debugging portion
2546: -- can be commented ut for final code
2547: IF inv_pp_debug.is_debug_mode THEN
2561: log_error(l_api_name, 'error', 'Error in Apply - ' || x_msg_data);
2562: End if;
2563: g_debug := NULL;
2564:
2565: when fnd_api.g_exc_unexpected_error then
2566: /*--
2567: -- debugging portion
2568: -- can be commented ut for final code
2569: IF inv_pp_debug.is_debug_mode THEN
2576: -- end of debugging section
2577: -- */
2578: rollback to ApplyStrategySP;
2579: FreeGlobals;
2580: x_return_status := fnd_api.g_ret_sts_unexp_error;
2581: fnd_msg_pub.count_and_get( p_count => x_msg_count
2582: ,p_data => x_msg_data );
2583: If (l_debug = 1) then
2584: log_error(l_api_name, 'unexp_error',
2600: -- end of debugging section
2601: -- */
2602: rollback to ApplyStrategySP;
2603: FreeGlobals;
2604: x_return_status := fnd_api.g_ret_sts_unexp_error;
2605: if fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
2606: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2607: end if;
2608: fnd_msg_pub.count_and_get( p_count => x_msg_count