[Home] [Help]
1163: -- Initialized the value of X_RETURN_STATUS to Success
1164: -- at the start of the procedure and set its value accordingly
1165: -- when the procedure returns Failure/Error.
1166: --
1167: X_RETURN_STATUS := fnd_api.g_ret_sts_success;
1168:
1169: --- Updates the table wms_rule_list_package ,
1170: --- for all rule type package counter with value 3
1171: --- so that all three "rules list packages" for all type of
1175: SET package_name_count = 3;
1176:
1177: wms_rule_gen_pkgs.generateruleexecpkgs(
1178: p_api_version => 1.0
1179: , p_init_msg_list => fnd_api.g_true
1180: , p_validation_level => fnd_api.g_valid_level_full
1181: , x_return_status => l_return_status
1182: , x_msg_count => l_msg_count
1183: , x_msg_data => l_msg_data
1176:
1177: wms_rule_gen_pkgs.generateruleexecpkgs(
1178: p_api_version => 1.0
1179: , p_init_msg_list => fnd_api.g_true
1180: , p_validation_level => fnd_api.g_valid_level_full
1181: , x_return_status => l_return_status
1182: , x_msg_count => l_msg_count
1183: , x_msg_data => l_msg_data
1184: , p_pick_code => 2
1189: , p_op_code => 7
1190: , p_pkg_type => 'B'
1191: );
1192:
1193: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
1194: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRuleExecPkgs');
1195: ELSE
1196: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRuleExecPkgs:');
1197: X_RETURN_STATUS := fnd_api.g_ret_sts_error; -- Expected Error
1193: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
1194: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRuleExecPkgs');
1195: ELSE
1196: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRuleExecPkgs:');
1197: X_RETURN_STATUS := fnd_api.g_ret_sts_error; -- Expected Error
1198: retcode := 1;
1199:
1200: FOR i IN 1 .. l_msg_count LOOP
1201: --fnd_file.put_line(fnd_file.LOG, 'Error:');
1205: END LOOP;
1206: END IF;
1207: EXCEPTION
1208: WHEN OTHERS THEN
1209: X_RETURN_STATUS := fnd_api.g_ret_sts_unexp_error; -- Unexpecetd Error
1210: retcode := 2;
1211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1212: fnd_msg_pub.add_exc_msg(g_pkg_name, 'BuildRulePkg');
1213: END IF;
1334: , p_type_code IN NUMBER
1335: , p_allocation_mode_id IN NUMBER
1336: ) IS
1337: l_api_name VARCHAR2(30) := 'BuildBaseSQL';
1338: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1339: --
1340: -- variables needed for dynamic SQL
1341: l_identifier VARCHAR2(10);
1342: -- variables for the base and input representing DB objects
1355: --
1356: BEGIN
1357: --
1358: -- Initialize API return status to success
1359: x_return_status := fnd_api.g_ret_sts_success;
1360:
1361: --
1362: -- debugging portion
1363: -- can be commented ut for final code
1508: *inv_detail_util_pvt.build_sql
1509: *( x_return_status => l_return_status ,
1510: * x_sql_statement => g_pick_base
1511: * );
1512: *IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1513: * log_statement(l_api_name, 'err_build_sql',
1514: * 'Error in inv_detail_util_pvt.build_sql');
1515: * RAISE fnd_api.g_exc_unexpected_error;
1516: *ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1511: * );
1512: *IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1513: * log_statement(l_api_name, 'err_build_sql',
1514: * 'Error in inv_detail_util_pvt.build_sql');
1515: * RAISE fnd_api.g_exc_unexpected_error;
1516: *ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1517: * log_statement(l_api_name, 'unexp_err_build_sql',
1518: * 'Unexp. error in inv_detail_util_pvt.build_sql');
1519: * RAISE fnd_api.g_exc_error;
1512: *IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1513: * log_statement(l_api_name, 'err_build_sql',
1514: * 'Error in inv_detail_util_pvt.build_sql');
1515: * RAISE fnd_api.g_exc_unexpected_error;
1516: *ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1517: * log_statement(l_api_name, 'unexp_err_build_sql',
1518: * 'Unexp. error in inv_detail_util_pvt.build_sql');
1519: * RAISE fnd_api.g_exc_error;
1520: *END IF;
1515: * RAISE fnd_api.g_exc_unexpected_error;
1516: *ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1517: * log_statement(l_api_name, 'unexp_err_build_sql',
1518: * 'Unexp. error in inv_detail_util_pvt.build_sql');
1519: * RAISE fnd_api.g_exc_error;
1520: *END IF;
1521: *log_statement(l_api_name, 'success_build_sql',
1522: * 'Inv_detail_util_pvt.build_sql successful');
1523:
1774: log_procedure(l_api_name, 'end', 'End BuildBaseSql');
1775: -- end of debugging section
1776: --
1777: EXCEPTION
1778: WHEN fnd_api.g_exc_error THEN
1779: x_return_status := fnd_api.g_ret_sts_error;
1780: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1781: --
1782: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
1775: -- end of debugging section
1776: --
1777: EXCEPTION
1778: WHEN fnd_api.g_exc_error THEN
1779: x_return_status := fnd_api.g_ret_sts_error;
1780: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1781: --
1782: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
1783: --
1780: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1781: --
1782: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
1783: --
1784: WHEN fnd_api.g_exc_unexpected_error THEN
1785: x_return_status := fnd_api.g_ret_sts_unexp_error;
1786: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1787: --
1788: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
1781: --
1782: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
1783: --
1784: WHEN fnd_api.g_exc_unexpected_error THEN
1785: x_return_status := fnd_api.g_ret_sts_unexp_error;
1786: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1787: --
1788: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
1789:
1788: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
1789:
1790: --
1791: WHEN OTHERS THEN
1792: x_return_status := fnd_api.g_ret_sts_unexp_error;
1793:
1794: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1795: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1796: END IF;
2155: AND wpb.parameter_id = wrc.parameter_id
2156: AND wdo.db_object_id(+) = wpb.db_object_id;
2157: BEGIN
2158: -- Initialize API return status to success
2159: x_return_status := fnd_api.g_ret_sts_success;
2160:
2161: log_procedure(l_api_name, 'start', 'Start BuildRuleSql');
2162: log_statement(l_api_name, 'rule_id', 'rule_id: ' || p_rule_id);
2163: log_statement(l_api_name, 'type_code', 'type_code: ' || p_type_code);
2199:
2200: g_rule_order := NULL;
2201: g_rule_order_new := NULL; -- Added for Bug 13448337
2202: --
2203: x_return_status := fnd_api.g_ret_sts_success;
2204: RETURN;
2205: END IF;
2206:
2207: -- Find all DB objects referenced within the rule and add them to the
2291: log_error_msg(l_api_name, 'bad_context_depend_flag');
2292: fnd_msg_pub.ADD;
2293: END IF;
2294:
2295: RAISE fnd_api.g_exc_error;
2296: END IF;
2297:
2298: --
2299: -- add join conditions to where clause
2314: fnd_message.set_token('PARENT_PARAMETER_TYPE_CODE', l_parent_parameter_type_code);
2315: log_error_msg(l_api_name, 'bad_parent_param_type_joins');
2316: fnd_msg_pub.ADD;
2317: END IF;
2318: RAISE fnd_api.g_exc_error;
2319: END IF;
2320:
2321: ELSE
2322: g_rule_where := g_rule_where || l_table_alias || '.' || l_column_name || l_outer_join;
2332: log_error_msg(l_api_name, 'bad_param_type_code_joins');
2333: fnd_msg_pub.ADD;
2334: END IF;
2335:
2336: RAISE fnd_api.g_exc_error;
2337: END IF;
2338:
2339: IF l_column_name = 'EFFECTIVITY_DATE' THEN -- Bug 8212802
2340: g_rule_where := g_rule_where || ' <= ' || l_left_part_conv_fct;
2366: log_error_msg(l_api_name, 'bad_parent_param_type_joins');
2367: fnd_msg_pub.ADD;
2368: END IF;
2369:
2370: RAISE fnd_api.g_exc_error;
2371: END IF;
2372:
2373: g_rule_where := g_rule_where || l_right_part_conv_fct || g_line_feed;
2374: END LOOP;
2411: log_error_msg(l_api_name, 'qty_func_not_found');
2412: fnd_msg_pub.ADD;
2413: END IF;
2414:
2415: RAISE fnd_api.g_exc_error;
2416: END IF;
2417:
2418: CLOSE qtyfnct;
2419: --
2430: log_error_msg(l_api_name, 'bad_qty_func_data_type');
2431: fnd_msg_pub.ADD;
2432: END IF;
2433:
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436:
2437: --
2438:
2478: log_error_msg(l_api_name, 'bad_param_type_code_qty');
2479: fnd_msg_pub.ADD;
2480: END IF;
2481:
2482: RAISE fnd_api.g_exc_error;
2483: END IF; -- parameter type code = 1
2484: END IF; -- type code in 1,2
2485:
2486: --
2567: log_error_msg(l_api_name, 'bad_param_type_code_left_rest');
2568: fnd_msg_pub.ADD;
2569: END IF;
2570:
2571: RAISE fnd_api.g_exc_error;
2572: END IF;
2573:
2574: --
2575: log_statement(l_api_name, 'right_part', 'add right part of res');
2660: log_error_msg(l_api_name, 'bad_parent_param_type_right_rest');
2661: fnd_msg_pub.ADD;
2662: END IF;
2663:
2664: RAISE fnd_api.g_exc_error;
2665: END IF;
2666: ELSIF l_operand_type_code = 5 THEN -- right side = expression
2667: --changed by jcearley on 12/8/99 - automatically put expression
2668: -- in parentheses - prevents syntax error during rule generation
2707: log_error_msg(l_api_name, 'bad_ref_flexvset_data');
2708: fnd_msg_pub.ADD;
2709: END IF;
2710:
2711: RAISE fnd_api.g_exc_error;
2712: END IF;
2713: ELSIF l_operand_type_code = 7 THEN -- right side = nothing
2714: g_rule_where := g_rule_where || l_bracket_close || g_line_feed;
2715: ELSE
2718: fnd_message.set_token('OPERAND_TYPE_CODE', l_operand_type_code);
2719: fnd_msg_pub.ADD;
2720: END IF;
2721:
2722: RAISE fnd_api.g_exc_error;
2723: END IF;
2724: END LOOP;
2725:
2726: CLOSE RESTRICT;
2957: log_error_msg(l_api_name, 'bad_param_type_code_sort');
2958: fnd_msg_pub.ADD;
2959: END IF;
2960:
2961: RAISE fnd_api.g_exc_error;
2962: END IF;
2963: END LOOP;
2964:
2965: CLOSE sortcrit;
3017: fnd_message.set_name('WMS', 'WMS_BAD_PARAMETER_TYPE_CODE');
3018: fnd_message.set_token('OPERAND_TYPE_CODE', l_parameter_type_code);
3019: log_error_msg(l_api_name, 'bad_param_type_code_consist');
3020: fnd_msg_pub.ADD;
3021: RAISE fnd_api.g_exc_error;
3022: END IF;
3023: END LOOP;
3024:
3025: --add consist_string to the select clause
3210: --
3211: log_procedure(l_api_name, 'end', 'End BuildRuleSql');
3212: -- end of debugging section
3213: EXCEPTION
3214: WHEN fnd_api.g_exc_error THEN
3215: x_return_status := fnd_api.g_ret_sts_error;
3216: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3217: --
3218: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
3211: log_procedure(l_api_name, 'end', 'End BuildRuleSql');
3212: -- end of debugging section
3213: EXCEPTION
3214: WHEN fnd_api.g_exc_error THEN
3215: x_return_status := fnd_api.g_ret_sts_error;
3216: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3217: --
3218: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
3219: --
3216: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3217: --
3218: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
3219: --
3220: WHEN fnd_api.g_exc_unexpected_error THEN
3221: x_return_status := fnd_api.g_ret_sts_unexp_error;
3222: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3223: --
3224: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
3217: --
3218: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
3219: --
3220: WHEN fnd_api.g_exc_unexpected_error THEN
3221: x_return_status := fnd_api.g_ret_sts_unexp_error;
3222: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3223: --
3224: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
3225:
3243: IF sortcrit%ISOPEN THEN
3244: CLOSE sortcrit;
3245: END IF;
3246:
3247: x_return_status := fnd_api.g_ret_sts_unexp_error;
3248:
3249: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3250: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3251: END IF;
3273: l_api_name VARCHAR2(30) := 'BuildIputSQL';
3274: l_is_mat_status_used NUMBER := NVL(FND_PROFILE.VALUE('INV_MATERIAL_STATUS'), 2);
3275: BEGIN
3276: -- Initialize API return status to success
3277: x_return_status := fnd_api.g_ret_sts_success;
3278:
3279: log_procedure(l_api_name, 'start', 'Start BuildInputSql');
3280: -- end of debugging section
3281: --
3508: log_procedure(l_api_name, 'end', 'End BuildInputSql');
3509: --
3510: EXCEPTION
3511: WHEN OTHERS THEN
3512: x_return_status := fnd_api.g_ret_sts_unexp_error;
3513:
3514: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3515: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3516: END IF;
3601: l_debug NUMBER;
3602:
3603: BEGIN
3604: -- Initialize API return status to success
3605: x_return_status := fnd_api.g_ret_sts_success;
3606: --get package name based on rule id
3607: getpackagename(p_rule_id, l_package_name);
3608: --- calling the static fetch cursor. The name of the rule package will be
3609: --- determined based on the rule_id
3723: END IF;
3724: --
3725: EXCEPTION
3726: WHEN INVALID_PKG_STATE THEN
3727: x_return_status := fnd_api.g_ret_sts_unexp_error;
3728:
3729: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
3730: fnd_message.set_token('LIST_PKG', l_list_pkg);
3731: fnd_message.set_token('RULE_NAME', l_package_name);
3733: IF l_debug = 1 THEN
3734: log_error(l_api_name, 'execute_fetch_rule', 'Invalid Package, Contact your DBA - '
3735: || l_list_pkg || ' / ' || l_package_name);
3736: END IF;
3737: RAISE fnd_api.g_exc_unexpected_error;
3738:
3739: WHEN OTHERS THEN
3740: x_return_status := fnd_api.g_ret_sts_unexp_error;
3741:
3736: END IF;
3737: RAISE fnd_api.g_exc_unexpected_error;
3738:
3739: WHEN OTHERS THEN
3740: x_return_status := fnd_api.g_ret_sts_unexp_error;
3741:
3742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3743: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3744: END IF;
3746: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3747: IF l_debug = 1 THEN
3748: log_error(l_api_name, 'other_error', 'Other error - ' || x_msg_data);
3749: END IF;
3750: RAISE fnd_api.g_exc_unexpected_error;
3751: END fetchcursor;
3752:
3753: --
3754: -- Name : FetchPutAway
3786:
3787:
3788: BEGIN
3789: -- Initialize API return status to success
3790: x_return_status := fnd_api.g_ret_sts_success;
3791:
3792: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3793: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3794: END IF;
3885: END IF;
3886: --
3887: EXCEPTION
3888: WHEN INVALID_PKG_STATE THEN
3889: x_return_status := fnd_api.g_ret_sts_unexp_error;
3890: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
3891: fnd_message.set_token('LIST_PKG', l_list_pkg);
3892: fnd_message.set_token('RULE_NAME', l_package_name);
3893: fnd_msg_pub.ADD;
3895: IF l_debug = 1 THEN
3896: log_error(l_api_name, 'execute_fetch_rule', 'Invalid Package, Contact your DBA - '
3897: || l_list_pkg || ' / ' || l_package_name);
3898: END IF;
3899: RAISE fnd_api.g_exc_unexpected_error;
3900: WHEN OTHERS THEN
3901: x_return_status := fnd_api.g_ret_sts_unexp_error;
3902:
3903: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3897: || l_list_pkg || ' / ' || l_package_name);
3898: END IF;
3899: RAISE fnd_api.g_exc_unexpected_error;
3900: WHEN OTHERS THEN
3901: x_return_status := fnd_api.g_ret_sts_unexp_error;
3902:
3903: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3904: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3907: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3908: IF l_debug = 1 THEN
3909: log_error(l_api_name, 'other_error', 'Other error - ' || x_msg_data);
3910: END IF;
3911: RAISE fnd_api.g_exc_unexpected_error;
3912: END fetchputaway;
3913:
3914: ------------
3915: ---
4230: --x_return_status := 0;
4231: x_return_status := -1 ;
4232: wms_rule_pvt.g_rule_list_op_ctr := wms_rule_gen_pkgs.get_count_no_lock('OPERATION_PLAN');
4233: WMS_ENGINE_PVT.G_SUGG_FAILURE_MESSAGE := 'Invalid Package, Contact your DBA - '|| l_list_pkg || ' / ' || l_package_name;
4234: x_return_status := fnd_api.g_ret_sts_unexp_error;
4235: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
4236: fnd_message.set_token('LIST_PKG', l_list_pkg);
4237: fnd_message.set_token('RULE_NAME', l_package_name);
4238: fnd_msg_pub.ADD;
4280: --x_return_status := 0;
4281: x_return_status := -1 ;
4282: wms_rule_pvt.g_rule_list_task_ctr := wms_rule_gen_pkgs.get_count_no_lock('TASK');
4283: WMS_ENGINE_PVT.G_SUGG_FAILURE_MESSAGE := 'Invalid Package, Contact your DBA - '|| l_list_pkg || ' / ' || l_package_name;
4284: x_return_status := fnd_api.g_ret_sts_unexp_error;
4285: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
4286: fnd_message.set_token('LIST_PKG', l_list_pkg);
4287: fnd_message.set_token('RULE_NAME', l_package_name);
4288: fnd_msg_pub.ADD;
4333: --x_return_status := 0;
4334: x_return_status := -1 ;
4335: wms_rule_pvt.g_rule_list_label_ctr := wms_rule_gen_pkgs.get_count_no_lock('LABEL');
4336: WMS_ENGINE_PVT.G_SUGG_FAILURE_MESSAGE := 'Invalid Package, Contact your DBA - '|| l_list_pkg || ' / ' || l_package_name;
4337: x_return_status := fnd_api.g_ret_sts_unexp_error;
4338: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
4339: fnd_message.set_token('LIST_PKG', l_list_pkg);
4340: fnd_message.set_token('RULE_NAME', l_package_name);
4341: fnd_msg_pub.ADD;
4382: fnd_message.set_token('RULE_NAME', l_package_name);
4383: fnd_msg_pub.ADD;
4384: log_error(l_api_name, 'execute_close_rule', 'Invalid Package, Contact your DBA - '
4385: || l_list_pkg || ' / ' || l_package_name); */
4386: RAISE fnd_api.g_exc_unexpected_error;
4387: END close_pick_rule;
4388:
4389: -- Procedure to close Putaway rule Cursor ---
4390: --
4419: fnd_message.set_token('RULE_NAME', l_package_name);
4420: fnd_msg_pub.ADD;
4421: log_error(l_api_name, 'execute_close_rule', 'Invalid Package, Contact your DBA - '
4422: || l_list_pkg || ' / ' || l_package_name);*/
4423: RAISE fnd_api.g_exc_unexpected_error;
4424: END close_put_rule;
4425:
4426: --------------
4427: --
4472: If l_debug = 1 THEN
4473: log_procedure(l_api_name, 'start', 'Start rollback_capacity_update');
4474: END IF;
4475:
4476: l_return_status := fnd_api.g_ret_sts_success;
4477: l_no_error := TRUE;
4478:
4479: FOR l_line IN l_output_lines LOOP
4480: -- We don't track capacity at Subinventory level, so no need
4501: );
4502:
4503: --return only the first error message
4504: IF l_no_error
4505: AND l_return_status <> fnd_api.g_ret_sts_success THEN
4506: x_return_status := l_return_status;
4507: x_msg_count := l_msg_count;
4508: x_msg_data := l_msg_data;
4509: l_no_error := FALSE;
4519: END IF;
4520:
4521: EXCEPTION
4522: WHEN OTHERS THEN
4523: x_return_status := fnd_api.g_ret_sts_unexp_error;
4524:
4525: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4526: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4527: END IF;
4723: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4724: END IF;
4725: l_debug := g_debug;
4726:
4727: x_return_status := fnd_api.g_ret_sts_success;
4728:
4729: IF l_debug = 1 THEN
4730: log_statement(l_api_name, 'validate and insert', 'Entered with parameters: ' ||
4731: ' p_record_id: ' || p_record_id ||
5034: log_statement(l_api_name, 'lot uom conversion error','');
5035: END IF;
5036: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
5037: fnd_msg_pub.ADD;
5038: RAISE FND_API.G_EXC_ERROR;
5039: END IF;
5040: IF l_debug = 1 THEN
5041: log_statement(l_api_name,'l_allocation_quantity from UOM conversion ', l_allocation_quantity);
5042: log_statement(l_api_name,'l_lot_allocation_quantity from UOM conversion ', l_lot_allocation_quantity);
5123: log_statement(l_api_name, 'lot uom conversion error','');
5124: END IF;
5125: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
5126: fnd_msg_pub.ADD;
5127: RAISE FND_API.G_EXC_ERROR;
5128: END IF;
5129: l_allocation_quantity := l_lot_allocation_quantity;
5130: IF l_debug = 1 THEN
5131: log_statement(l_api_name,'(no rsv) l_allocation_quantity ', l_allocation_quantity);
5171: log_error(l_api_name,'validate and insert','UOM conversion error');
5172: END IF;
5173: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
5174: fnd_msg_pub.ADD;
5175: RAISE FND_API.G_EXC_ERROR;
5176: END IF;
5177: END IF; --}
5178:
5179: IF wms_engine_pvt.g_sec_qty_round_mode = 'R' THEN
5329: log_statement(l_api_name, '(2)lot uom conversion error','');
5330: END IF;
5331: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
5332: fnd_msg_pub.ADD;
5333: RAISE FND_API.G_EXC_ERROR;
5334: END IF;
5335: IF l_debug = 1 THEN
5336: log_statement(l_api_name,'(1) l_lot_sallocation_quantity ', l_lot_sallocation_quantity);
5337: END IF;
5414: log_statement(l_api_name, '(2)lot uom conversion error','');
5415: END IF;
5416: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
5417: fnd_msg_pub.ADD;
5418: RAISE FND_API.G_EXC_ERROR;
5419: END IF;
5420: l_sallocation_quantity := l_lot_sallocation_quantity;
5421: IF l_debug = 1 THEN
5422: log_statement(l_api_name,'(no rsv) l_sallocation_quantity ', l_sallocation_quantity);
5588: -- Added for Bug 8570601 end
5589:
5590: inv_quantity_tree_pvt.query_tree(
5591: p_api_version_number => g_qty_tree_api_version
5592: , p_init_msg_lst => fnd_api.g_false
5593: , x_return_status => x_return_status
5594: , x_msg_count => x_msg_count
5595: , x_msg_data => x_msg_data
5596: , p_tree_id => p_tree_id
5613: , p_transfer_subinventory_code => l_to_subinventory_code -- Modified for Bug 8570601
5614: , p_cost_group_id => g_locs(p_record_id).cost_group_id
5615: , p_lpn_id => g_locs(p_record_id).lpn_id
5616: );
5617: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5618: IF l_debug = 1 THEN
5619: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
5620: END IF;
5621: RAISE fnd_api.g_exc_unexpected_error;
5617: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5618: IF l_debug = 1 THEN
5619: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
5620: END IF;
5621: RAISE fnd_api.g_exc_unexpected_error;
5622: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5623: IF l_debug = 1 THEN
5624: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
5625: END IF;
5618: IF l_debug = 1 THEN
5619: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
5620: END IF;
5621: RAISE fnd_api.g_exc_unexpected_error;
5622: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5623: IF l_debug = 1 THEN
5624: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
5625: END IF;
5626: RAISE fnd_api.g_exc_error;
5622: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5623: IF l_debug = 1 THEN
5624: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
5625: END IF;
5626: RAISE fnd_api.g_exc_error;
5627: END IF;
5628:
5629: IF l_debug = 1 THEN
5630: log_statement(l_api_name, 'att_qty', 'Available quantity = ' || l_att);
5973: END IF;
5974:
5975: -- check to see if serial number has already been used
5976: IF (g_locs(p_record_id).serial_number IS NOT NULL
5977: AND g_locs(p_record_id).serial_number <> FND_API.G_MISS_CHAR)
5978: THEN
5979: IF l_debug = 1 THEN
5980: log_statement(l_api_name, 'search_sn', 'Calling Search Serial Numbers');
5981: END IF;
5989: , x_msg_count => x_msg_count
5990: , x_msg_data => x_msg_data
5991: );
5992:
5993: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5994: IF l_debug = 1 THEN
5995: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
5996: END IF;
5997: RAISE fnd_api.g_exc_unexpected_error;
5993: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5994: IF l_debug = 1 THEN
5995: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
5996: END IF;
5997: RAISE fnd_api.g_exc_unexpected_error;
5998: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5999: IF l_debug = 1 THEN
6000: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6001: END IF;
5994: IF l_debug = 1 THEN
5995: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
5996: END IF;
5997: RAISE fnd_api.g_exc_unexpected_error;
5998: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5999: IF l_debug = 1 THEN
6000: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6001: END IF;
6002: RAISE fnd_api.g_exc_error;
5998: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5999: IF l_debug = 1 THEN
6000: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6001: END IF;
6002: RAISE fnd_api.g_exc_error;
6003: END IF;
6004:
6005: IF l_found THEN
6006: IF p_debug_on THEN
6175:
6176: -- Lock Serial number, so that no other detailing process
6177: -- can use it.
6178: IF (g_locs(p_record_id).serial_number IS NOT NULL
6179: AND g_locs(p_record_id).serial_number <> FND_API.G_MISS_CHAR)
6180: THEN
6181: l_found := inv_detail_util_pvt.lock_serial_number(p_inventory_item_id, g_locs(p_record_id).serial_number);
6182:
6183: IF l_found = FALSE THEN
6212: END IF;
6213:
6214: inv_quantity_tree_pvt.update_quantities(
6215: p_api_version_number => g_qty_tree_api_version
6216: , p_init_msg_lst => fnd_api.g_false
6217: , x_return_status => x_return_status
6218: , x_msg_count => x_msg_count
6219: , x_msg_data => x_msg_data
6220: , p_tree_id => p_tree_id
6241: , p_cost_group_id => g_locs(p_record_id).cost_group_id
6242: , p_lpn_id => g_locs(p_record_id).lpn_id
6243: );
6244:
6245: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6246: IF l_debug = 1 THEN
6247: log_statement(l_api_name, 'uerr_update_qty', 'Unexpected error in inv_quantity_tree_pvt.update_quantities');
6248: END IF;
6249:
6246: IF l_debug = 1 THEN
6247: log_statement(l_api_name, 'uerr_update_qty', 'Unexpected error in inv_quantity_tree_pvt.update_quantities');
6248: END IF;
6249:
6250: RAISE fnd_api.g_exc_unexpected_error;
6251: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6252: IF l_debug = 1 THEN
6253: log_statement(l_api_name, 'err_update_qty', 'Error in inv_quantity_tree_pvt.update_quantities');
6254: END IF;
6247: log_statement(l_api_name, 'uerr_update_qty', 'Unexpected error in inv_quantity_tree_pvt.update_quantities');
6248: END IF;
6249:
6250: RAISE fnd_api.g_exc_unexpected_error;
6251: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6252: IF l_debug = 1 THEN
6253: log_statement(l_api_name, 'err_update_qty', 'Error in inv_quantity_tree_pvt.update_quantities');
6254: END IF;
6255: RAISE fnd_api.g_exc_error;
6251: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6252: IF l_debug = 1 THEN
6253: log_statement(l_api_name, 'err_update_qty', 'Error in inv_quantity_tree_pvt.update_quantities');
6254: END IF;
6255: RAISE fnd_api.g_exc_error;
6256: END IF;
6257:
6258: -- If quantity remaining to allocate is greater than 0, update the
6259: -- quantity tree and insert the record into WTT
6468: log_procedure(l_api_name, 'end', 'End Validate_and_Insert');
6469: END IF;
6470:
6471: EXCEPTION
6472: WHEN fnd_api.g_exc_error THEN
6473: x_return_status := fnd_api.g_ret_sts_error;
6474: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6475: --
6476: IF l_debug = 1 THEN
6469: END IF;
6470:
6471: EXCEPTION
6472: WHEN fnd_api.g_exc_error THEN
6473: x_return_status := fnd_api.g_ret_sts_error;
6474: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6475: --
6476: IF l_debug = 1 THEN
6477: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
6476: IF l_debug = 1 THEN
6477: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
6478: END IF;
6479:
6480: WHEN fnd_api.g_exc_unexpected_error THEN
6481: x_return_status := fnd_api.g_ret_sts_unexp_error;
6482: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6483: IF l_debug = 1 THEN
6484: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
6477: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
6478: END IF;
6479:
6480: WHEN fnd_api.g_exc_unexpected_error THEN
6481: x_return_status := fnd_api.g_ret_sts_unexp_error;
6482: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6483: IF l_debug = 1 THEN
6484: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
6485: END IF;
6484: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
6485: END IF;
6486:
6487: WHEN OTHERS THEN
6488: x_return_status := fnd_api.g_ret_sts_unexp_error;
6489:
6490: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6491: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6492: END IF;
6810: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6811: END IF;
6812: l_debug := g_debug;
6813:
6814: x_return_status := fnd_api.g_ret_sts_success;
6815: l_allocation_quantity := p_needed_quantity;
6816:
6817: IF l_debug = 1 THEN
6818: log_procedure(l_api_name, 'start', 'Start Validate_N_Insert');
6839: , x_msg_count => x_msg_count
6840: , x_msg_data => x_msg_data );
6841:
6842:
6843: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6844: IF l_debug = 1 THEN
6845: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
6846: END IF;
6847: RAISE fnd_api.g_exc_unexpected_error;
6843: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6844: IF l_debug = 1 THEN
6845: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
6846: END IF;
6847: RAISE fnd_api.g_exc_unexpected_error;
6848: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6849: IF l_debug = 1 THEN
6850: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
6851: END IF;
6844: IF l_debug = 1 THEN
6845: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
6846: END IF;
6847: RAISE fnd_api.g_exc_unexpected_error;
6848: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6849: IF l_debug = 1 THEN
6850: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
6851: END IF;
6852: RAISE fnd_api.g_exc_error;
6848: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6849: IF l_debug = 1 THEN
6850: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
6851: END IF;
6852: RAISE fnd_api.g_exc_error;
6853: END IF;
6854:
6855: IF l_debug = 1 THEN
6856: log_statement(l_api_name, 'att_qty', 'Available quantity = ' || l_att);
6906: , x_msg_count => x_msg_count
6907: , x_msg_data => x_msg_data
6908: );
6909:
6910: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6911: IF l_debug = 1 THEN
6912: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
6913: END IF;
6914: RAISE fnd_api.g_exc_unexpected_error;
6910: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6911: IF l_debug = 1 THEN
6912: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
6913: END IF;
6914: RAISE fnd_api.g_exc_unexpected_error;
6915: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6916: IF l_debug = 1 THEN
6917: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6918: END IF;
6911: IF l_debug = 1 THEN
6912: log_statement(l_api_name, 'uerr_search_sn', 'Unexpected error in search_serial_numbers');
6913: END IF;
6914: RAISE fnd_api.g_exc_unexpected_error;
6915: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6916: IF l_debug = 1 THEN
6917: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6918: END IF;
6919: RAISE fnd_api.g_exc_error;
6915: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6916: IF l_debug = 1 THEN
6917: log_statement(l_api_name, 'err_search_sn', 'Error in search_serial_numbers');
6918: END IF;
6919: RAISE fnd_api.g_exc_error;
6920: END IF;
6921:
6922: IF l_found THEN
6923: IF p_debug_on THEN
7101: log_procedure(l_api_name, 'end', 'End ValidNinsert');
7102: END IF;
7103:
7104: EXCEPTION
7105: WHEN fnd_api.g_exc_error THEN
7106: x_return_status := fnd_api.g_ret_sts_error;
7107: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7108: --
7109: IF l_debug = 1 THEN
7102: END IF;
7103:
7104: EXCEPTION
7105: WHEN fnd_api.g_exc_error THEN
7106: x_return_status := fnd_api.g_ret_sts_error;
7107: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7108: --
7109: IF l_debug = 1 THEN
7110: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7109: IF l_debug = 1 THEN
7110: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7111: END IF;
7112:
7113: WHEN fnd_api.g_exc_unexpected_error THEN
7114: x_return_status := fnd_api.g_ret_sts_unexp_error;
7115: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7116: IF l_debug = 1 THEN
7117: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7110: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7111: END IF;
7112:
7113: WHEN fnd_api.g_exc_unexpected_error THEN
7114: x_return_status := fnd_api.g_ret_sts_unexp_error;
7115: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7116: IF l_debug = 1 THEN
7117: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7118: END IF;
7117: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7118: END IF;
7119:
7120: WHEN OTHERS THEN
7121: x_return_status := fnd_api.g_ret_sts_unexp_error;
7122:
7123: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7124: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7125: END IF;
7165: log_statement(l_api_name, 'restore_tree', 'Calling restore_tree');
7166: END IF;
7167: inv_quantity_tree_pvt.restore_tree(x_return_status => x_return_status, p_tree_id => p_tree_id);
7168:
7169: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7170: IF l_debug = 1 THEN
7171: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
7172: END IF;
7173: RAISE fnd_api.g_exc_unexpected_error;
7169: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7170: IF l_debug = 1 THEN
7171: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
7172: END IF;
7173: RAISE fnd_api.g_exc_unexpected_error;
7174: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7175: IF l_debug = 1 THEN
7176: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
7177: END IF;
7170: IF l_debug = 1 THEN
7171: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
7172: END IF;
7173: RAISE fnd_api.g_exc_unexpected_error;
7174: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7175: IF l_debug = 1 THEN
7176: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
7177: END IF;
7178: RAISE fnd_api.g_exc_error;
7174: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7175: IF l_debug = 1 THEN
7176: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
7177: END IF;
7178: RAISE fnd_api.g_exc_error;
7179: END IF;
7180:
7181: --put pick UOM records back into the list;
7182: --we need to put this records between after the last
7244: log_statement(l_api_name, 'finish_delete_sugs', 'Finished deleting suggestions and restored quantity tree');
7245: log_procedure(l_api_name, 'End', 'End Rollback_Consist_Allocations');
7246: END IF;
7247: EXCEPTION
7248: WHEN fnd_api.g_exc_error THEN
7249: x_return_status := fnd_api.g_ret_sts_error;
7250: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7251: IF l_debug = 1 THEN
7252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7245: log_procedure(l_api_name, 'End', 'End Rollback_Consist_Allocations');
7246: END IF;
7247: EXCEPTION
7248: WHEN fnd_api.g_exc_error THEN
7249: x_return_status := fnd_api.g_ret_sts_error;
7250: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7251: IF l_debug = 1 THEN
7252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7253: END IF;
7251: IF l_debug = 1 THEN
7252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7253: END IF;
7254:
7255: WHEN fnd_api.g_exc_unexpected_error THEN
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7258: IF l_debug = 1 THEN
7259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7253: END IF;
7254:
7255: WHEN fnd_api.g_exc_unexpected_error THEN
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7258: IF l_debug = 1 THEN
7259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7260: END IF;
7259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7260: END IF;
7261:
7262: WHEN OTHERS THEN
7263: x_return_status := fnd_api.g_ret_sts_unexp_error;
7264:
7265: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7266: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7267: END IF;
7423: , p_orig_needed_sec_qty => l_needed_sec_qty_wo_tol -- Added for 14699845 (Flexible lot allocation)
7424: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
7425: );
7426:
7427: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7428: IF l_debug = 1 THEN
7429: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7430: END IF;
7431: RAISE fnd_api.g_exc_unexpected_error;
7427: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7428: IF l_debug = 1 THEN
7429: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7430: END IF;
7431: RAISE fnd_api.g_exc_unexpected_error;
7432: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7433: IF l_debug = 1 THEN
7434: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7435: END IF;
7428: IF l_debug = 1 THEN
7429: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7430: END IF;
7431: RAISE fnd_api.g_exc_unexpected_error;
7432: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7433: IF l_debug = 1 THEN
7434: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7435: END IF;
7436: RAISE fnd_api.g_exc_error;
7432: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7433: IF l_debug = 1 THEN
7434: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7435: END IF;
7436: RAISE fnd_api.g_exc_error;
7437: END IF;
7438:
7439: -- If function did not insert full quantity, decrease group qty
7440: IF (NVL(wms_engine_pvt.g_fulfillment_base,'P') = 'P' AND l_expected_quantity > l_allocated_quantity)
7478: , p_next_rec => l_loc_id
7479: , p_debug_on => p_debug_on
7480: );
7481:
7482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7483: IF l_debug = 1 THEN
7484: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7485: END IF;
7486: RAISE fnd_api.g_exc_unexpected_error;
7482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7483: IF l_debug = 1 THEN
7484: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7485: END IF;
7486: RAISE fnd_api.g_exc_unexpected_error;
7487: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7488: IF l_debug = 1 THEN
7489: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7490: END IF;
7483: IF l_debug = 1 THEN
7484: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7485: END IF;
7486: RAISE fnd_api.g_exc_unexpected_error;
7487: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7488: IF l_debug = 1 THEN
7489: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7490: END IF;
7491: RAISE fnd_api.g_exc_error;
7487: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7488: IF l_debug = 1 THEN
7489: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7490: END IF;
7491: RAISE fnd_api.g_exc_error;
7492: END IF;
7493: IF l_debug = 1 THEN
7494: log_statement(l_api_name, 'after_rollback_consist', 'Rolled back the allocations. Exiting');
7495: END IF;
7603: , p_orig_needed_sec_qty => l_needed_sec_qty_wo_tol -- Added for 14699845 (Flexible lot allocation)
7604: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
7605: );
7606:
7607: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7608: IF l_debug = 1 THEN
7609: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7610: END IF;
7611: RAISE fnd_api.g_exc_unexpected_error;
7607: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7608: IF l_debug = 1 THEN
7609: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7610: END IF;
7611: RAISE fnd_api.g_exc_unexpected_error;
7612: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7613: IF l_debug = 1 THEN
7614: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7615: END IF;
7608: IF l_debug = 1 THEN
7609: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
7610: END IF;
7611: RAISE fnd_api.g_exc_unexpected_error;
7612: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7613: IF l_debug = 1 THEN
7614: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7615: END IF;
7616: RAISE fnd_api.g_exc_error;
7612: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7613: IF l_debug = 1 THEN
7614: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
7615: END IF;
7616: RAISE fnd_api.g_exc_error;
7617: END IF;
7618: END IF; --} End of If 5258131
7619:
7620: -- If function did not insert full quantity, decrease group qty
7659: , p_next_rec => NULL
7660: , p_debug_on => p_debug_on
7661: );
7662:
7663: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7664: IF l_debug = 1 THEN
7665: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7666: END IF;
7667: RAISE fnd_api.g_exc_unexpected_error;
7663: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7664: IF l_debug = 1 THEN
7665: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7666: END IF;
7667: RAISE fnd_api.g_exc_unexpected_error;
7668: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7669: IF l_debug = 1 THEN
7670: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7671: END IF;
7664: IF l_debug = 1 THEN
7665: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7666: END IF;
7667: RAISE fnd_api.g_exc_unexpected_error;
7668: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7669: IF l_debug = 1 THEN
7670: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7671: END IF;
7672: RAISE fnd_api.g_exc_error;
7668: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7669: IF l_debug = 1 THEN
7670: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7671: END IF;
7672: RAISE fnd_api.g_exc_error;
7673: END IF;
7674: IF l_debug = 1 THEN
7675: log_statement(l_api_name, 'after_rollback_consist', 'Rolled back the allocations. Exiting');
7676: END IF;
7829: , p_next_rec => 0
7830: , p_debug_on => p_debug_on
7831: );
7832:
7833: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7834: IF l_debug = 1 THEN
7835: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7836: END IF;
7837: RAISE fnd_api.g_exc_unexpected_error;
7833: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7834: IF l_debug = 1 THEN
7835: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7836: END IF;
7837: RAISE fnd_api.g_exc_unexpected_error;
7838: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7839: IF l_debug = 1 THEN
7840: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7841: END IF;
7834: IF l_debug = 1 THEN
7835: log_error(l_api_name, 'uerr_rollback_consist', 'Unexpected error in rollback_consist_allocations');
7836: END IF;
7837: RAISE fnd_api.g_exc_unexpected_error;
7838: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7839: IF l_debug = 1 THEN
7840: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7841: END IF;
7842: RAISE fnd_api.g_exc_error;
7838: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7839: IF l_debug = 1 THEN
7840: log_error(l_api_name, 'err_rollback_consist', 'Error in rollback_consist_allocations');
7841: END IF;
7842: RAISE fnd_api.g_exc_error;
7843: END IF;
7844:
7845: x_success := FALSE;
7846: END IF; --}
7847: IF l_debug = 1 THEN
7848: log_procedure(l_api_name, 'end', 'End Allocate_Consist_Group');
7849: END IF;
7850: EXCEPTION
7851: WHEN fnd_api.g_exc_error THEN
7852: x_return_status := fnd_api.g_ret_sts_error;
7853: x_success := FALSE;
7854: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7855: IF l_debug = 1 THEN
7848: log_procedure(l_api_name, 'end', 'End Allocate_Consist_Group');
7849: END IF;
7850: EXCEPTION
7851: WHEN fnd_api.g_exc_error THEN
7852: x_return_status := fnd_api.g_ret_sts_error;
7853: x_success := FALSE;
7854: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7855: IF l_debug = 1 THEN
7856: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7855: IF l_debug = 1 THEN
7856: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7857: END IF;
7858:
7859: WHEN fnd_api.g_exc_unexpected_error THEN
7860: x_return_status := fnd_api.g_ret_sts_unexp_error;
7861: x_success := FALSE;
7862: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7863: IF l_debug = 1 THEN
7856: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
7857: END IF;
7858:
7859: WHEN fnd_api.g_exc_unexpected_error THEN
7860: x_return_status := fnd_api.g_ret_sts_unexp_error;
7861: x_success := FALSE;
7862: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7863: IF l_debug = 1 THEN
7864: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7863: IF l_debug = 1 THEN
7864: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
7865: END IF;
7866: WHEN OTHERS THEN
7867: x_return_status := fnd_api.g_ret_sts_unexp_error;
7868: x_success := FALSE;
7869:
7870: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7871: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8226: , p_orig_needed_sec_qty => p_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
8227: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
8228: );
8229:
8230: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8231: IF l_debug = 1 THEN
8232: log_error(l_api_name, 'uerr_alloc_consist_group', 'Unexpected error in allocate_consist_group');
8233: END IF;
8234: RAISE fnd_api.g_exc_unexpected_error;
8230: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8231: IF l_debug = 1 THEN
8232: log_error(l_api_name, 'uerr_alloc_consist_group', 'Unexpected error in allocate_consist_group');
8233: END IF;
8234: RAISE fnd_api.g_exc_unexpected_error;
8235: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8236: IF l_debug = 1 THEN
8237: log_error(l_api_name, 'err_alloc_consist_group', 'Error in allocate_consist_group');
8238: END IF;
8231: IF l_debug = 1 THEN
8232: log_error(l_api_name, 'uerr_alloc_consist_group', 'Unexpected error in allocate_consist_group');
8233: END IF;
8234: RAISE fnd_api.g_exc_unexpected_error;
8235: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8236: IF l_debug = 1 THEN
8237: log_error(l_api_name, 'err_alloc_consist_group', 'Error in allocate_consist_group');
8238: END IF;
8239: RAISE fnd_api.g_exc_error;
8235: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8236: IF l_debug = 1 THEN
8237: log_error(l_api_name, 'err_alloc_consist_group', 'Error in allocate_consist_group');
8238: END IF;
8239: RAISE fnd_api.g_exc_error;
8240: END IF;
8241: END IF; --}
8242:
8243: x_return_status := fnd_api.g_ret_sts_success;
8239: RAISE fnd_api.g_exc_error;
8240: END IF;
8241: END IF; --}
8242:
8243: x_return_status := fnd_api.g_ret_sts_success;
8244: IF l_debug = 1 THEN
8245: log_procedure(l_api_name, 'end', 'End Insert_Consist_Record');
8246: END IF;
8247: EXCEPTION
8244: IF l_debug = 1 THEN
8245: log_procedure(l_api_name, 'end', 'End Insert_Consist_Record');
8246: END IF;
8247: EXCEPTION
8248: WHEN fnd_api.g_exc_error THEN
8249: x_return_status := fnd_api.g_ret_sts_error;
8250: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8251: IF l_debug = 1 THEN
8252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
8245: log_procedure(l_api_name, 'end', 'End Insert_Consist_Record');
8246: END IF;
8247: EXCEPTION
8248: WHEN fnd_api.g_exc_error THEN
8249: x_return_status := fnd_api.g_ret_sts_error;
8250: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8251: IF l_debug = 1 THEN
8252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
8253: END IF;
8251: IF l_debug = 1 THEN
8252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
8253: END IF;
8254: --
8255: WHEN fnd_api.g_exc_unexpected_error THEN
8256: x_return_status := fnd_api.g_ret_sts_unexp_error;
8257: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8258: IF l_debug = 1 THEN
8259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
8252: log_error(l_api_name, 'error', 'Error - ' || x_msg_data);
8253: END IF;
8254: --
8255: WHEN fnd_api.g_exc_unexpected_error THEN
8256: x_return_status := fnd_api.g_ret_sts_unexp_error;
8257: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8258: IF l_debug = 1 THEN
8259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
8260: END IF;
8259: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
8260: END IF;
8261:
8262: WHEN OTHERS THEN
8263: x_return_status := fnd_api.g_ret_sts_unexp_error;
8264:
8265: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8266: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8267: END IF;
8742: -- Standard start of API savepoint
8743: SAVEPOINT applyrulesp;
8744:
8745: -- Standard call to check for call compatibility
8746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8747: RAISE fnd_api.g_exc_unexpected_error;
8748: END IF;
8749:
8750: -- Initialize message list if p_init_msg_list is set to TRUE
8743: SAVEPOINT applyrulesp;
8744:
8745: -- Standard call to check for call compatibility
8746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8747: RAISE fnd_api.g_exc_unexpected_error;
8748: END IF;
8749:
8750: -- Initialize message list if p_init_msg_list is set to TRUE
8751: IF fnd_api.to_boolean(p_init_msg_list) THEN
8747: RAISE fnd_api.g_exc_unexpected_error;
8748: END IF;
8749:
8750: -- Initialize message list if p_init_msg_list is set to TRUE
8751: IF fnd_api.to_boolean(p_init_msg_list) THEN
8752: fnd_msg_pub.initialize;
8753: END IF;
8754:
8755: -- LPN Status Project
8762: -- LPN Status Project
8763:
8764: --
8765: -- Initialize API return status to success
8766: x_return_status := fnd_api.g_ret_sts_success;
8767: --
8768: -- Initialize functional return status to completed
8769: x_finished := fnd_api.g_true;
8770:
8765: -- Initialize API return status to success
8766: x_return_status := fnd_api.g_ret_sts_success;
8767: --
8768: -- Initialize functional return status to completed
8769: x_finished := fnd_api.g_true;
8770:
8771: --
8772: -- Validate input parameters and pre-requisites, if validation level
8773: -- requires this
8770:
8771: --
8772: -- Validate input parameters and pre-requisites, if validation level
8773: -- requires this
8774: IF p_validation_level <> fnd_api.g_valid_level_none THEN
8775: IF p_type_code IS NULL
8776: OR p_type_code = fnd_api.g_miss_num THEN
8777: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8778: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
8772: -- Validate input parameters and pre-requisites, if validation level
8773: -- requires this
8774: IF p_validation_level <> fnd_api.g_valid_level_none THEN
8775: IF p_type_code IS NULL
8776: OR p_type_code = fnd_api.g_miss_num THEN
8777: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8778: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
8779: fnd_msg_pub.ADD;
8780:
8783: END IF;
8784:
8785: END IF;
8786:
8787: RAISE fnd_api.g_exc_error;
8788: END IF;
8789:
8790: /* get the org defaults */
8791: IF l_debug = 1 THEN
8803: -- 8809951 end
8804: -- changed by jcearley on 11/22/99, b/c a null rule_id is now allowed
8805: -- if rule_id is null, use default rule (0 for put away, 1 for pick)
8806: IF p_rule_id IS NULL
8807: OR p_rule_id = fnd_api.g_miss_num THEN
8808: -- query org parameters to get user's default rule
8809: -- if default rule not defined, use default seeded rule
8810: IF p_type_code = 1 THEN --put away
8811: l_rule_id := l_default_put_rule;
8840: l_rule_id := p_rule_id;
8841: END IF;
8842:
8843: IF p_partial_success_allowed_flag IS NULL
8844: OR p_partial_success_allowed_flag = fnd_api.g_miss_char THEN
8845: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8846: fnd_message.set_name('WMS', 'WMS_PARTIAL_SUCC_FLAG_MISS');
8847: IF l_debug = 1 THEN
8848: log_error_msg(l_api_name, 'partial_succ_flag_missing');
8848: log_error_msg(l_api_name, 'partial_succ_flag_missing');
8849: END IF;
8850: fnd_msg_pub.ADD;
8851: END IF;
8852: RAISE fnd_api.g_exc_error;
8853: END IF;
8854:
8855: IF p_transaction_temp_id IS NULL
8856: OR p_transaction_temp_id = fnd_api.g_miss_num THEN
8852: RAISE fnd_api.g_exc_error;
8853: END IF;
8854:
8855: IF p_transaction_temp_id IS NULL
8856: OR p_transaction_temp_id = fnd_api.g_miss_num THEN
8857: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8858: fnd_message.set_name('WMS', 'WMS_TRX_REQ_LINE_ID_MISS');
8859: fnd_msg_pub.ADD;
8860: IF l_debug = 1 THEN
8860: IF l_debug = 1 THEN
8861: log_error_msg(l_api_name, 'trx_req_line_id_missing');
8862: END IF;
8863: END IF;
8864: RAISE fnd_api.g_exc_error;
8865: END IF;
8866:
8867: IF p_organization_id IS NULL
8868: OR p_organization_id = fnd_api.g_miss_num THEN
8864: RAISE fnd_api.g_exc_error;
8865: END IF;
8866:
8867: IF p_organization_id IS NULL
8868: OR p_organization_id = fnd_api.g_miss_num THEN
8869: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8870: fnd_message.set_name('INV', 'INV_NO_ORG_INFORMATION');
8871: fnd_msg_pub.ADD;
8872: IF l_debug = 1 THEN
8873: log_error_msg(l_api_name, 'org_id_missing');
8874: END IF;
8875: END IF;
8876:
8877: RAISE fnd_api.g_exc_error;
8878: END IF;
8879:
8880: IF p_inventory_item_id IS NULL
8881: OR p_inventory_item_id = fnd_api.g_miss_num THEN
8877: RAISE fnd_api.g_exc_error;
8878: END IF;
8879:
8880: IF p_inventory_item_id IS NULL
8881: OR p_inventory_item_id = fnd_api.g_miss_num THEN
8882: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8883: fnd_message.set_name('INV', 'INV_ITEM_ID_REQUIRED');
8884: fnd_msg_pub.ADD;
8885: IF l_debug = 1 THEN
8886: log_error_msg(l_api_name, 'item_id_missing');
8887: END IF;
8888: END IF;
8889:
8890: RAISE fnd_api.g_exc_error;
8891: END IF;
8892:
8893: IF p_type_code = 2
8894: AND (p_tree_id IS NULL
8891: END IF;
8892:
8893: IF p_type_code = 2
8894: AND (p_tree_id IS NULL
8895: OR p_tree_id = fnd_api.g_miss_num
8896: )
8897: THEN
8898: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8899: fnd_message.set_name('INV', 'INV_QTY_TREE_ID_MISSING');
8901: IF l_debug = 1 THEN
8902: log_error_msg(l_api_name, 'qty_tree_id_missing');
8903: END IF;
8904: END IF;
8905: RAISE fnd_api.g_exc_error;
8906: END IF;
8907: END IF;
8908:
8909: -- inv_pp_debug.send_message_to_pipe('finished validations and qty tree init');
8915: log_statement(l_api_name, 'backup_tree',
8916: 'Calling inv_quantity_tree_pvt.backup_tree');
8917: END IF;
8918: inv_quantity_tree_pvt.backup_tree(x_return_status, p_tree_id);
8919: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8920: IF l_debug = 1 THEN
8921: log_statement(l_api_name, 'backup_tree_unexp_err',
8922: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
8923: END IF;
8920: IF l_debug = 1 THEN
8921: log_statement(l_api_name, 'backup_tree_unexp_err',
8922: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
8923: END IF;
8924: RAISE fnd_api.g_exc_unexpected_error;
8925: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8926: IF l_debug = 1 THEN
8927: log_statement(l_api_name, 'backup_tree_err',
8928: 'Error from inv_quantity_tree_pvt.backup_tree');
8921: log_statement(l_api_name, 'backup_tree_unexp_err',
8922: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
8923: END IF;
8924: RAISE fnd_api.g_exc_unexpected_error;
8925: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8926: IF l_debug = 1 THEN
8927: log_statement(l_api_name, 'backup_tree_err',
8928: 'Error from inv_quantity_tree_pvt.backup_tree');
8929: END IF;
8926: IF l_debug = 1 THEN
8927: log_statement(l_api_name, 'backup_tree_err',
8928: 'Error from inv_quantity_tree_pvt.backup_tree');
8929: END IF;
8930: RAISE fnd_api.g_exc_error;
8931: END IF;
8932: -- does the rule have any consistency restrictions?
8933: OPEN l_consist;
8934: FETCH l_consist INTO l_dummy;
8977: IF NOT l_return_value THEN
8978: IF l_debug = 1 THEN
8979: log_statement(l_api_name, '-', 'Error setting from sub cache');
8980: END IF;
8981: RAISE fnd_api.g_exc_unexpected_error;
8982: END IF;
8983:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
9280: -- [ new code to check the serial number reservation ]
9281:
9282: l_sl_rsv_is_detailed := 'N' ;
9283: IF l_serial_number IS NOT NULL
9284: AND l_serial_number <> fnd_api.g_miss_char
9285: AND l_serial_number <> '-999' /*NVL(l_serial_number, '-999') <> '-999'*/
9286: AND ( NVL(l_rule_id, 777) = -999 OR NVL(l_reservation_id , 999) <> 999 ) THEN -- bug#10392328
9287: l_sl_rsv_is_detailed := 'Y';
9288: END IF;
9508: , p_orig_needed_quantity => l_needed_quantity -- Added for 14699845 (Flexible lot allocation)
9509: , p_orig_needed_sec_qty => l_sec_needed_quantity -- Added for 14699845 (Flexible lot allocation)
9510: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
9511: );
9512: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9513: IF l_debug = 1 THEN
9514: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9515: END IF;
9516: RAISE fnd_api.g_exc_unexpected_error;
9512: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9513: IF l_debug = 1 THEN
9514: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9515: END IF;
9516: RAISE fnd_api.g_exc_unexpected_error;
9517: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9518: IF l_debug = 1 THEN
9519: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9520: END IF;
9513: IF l_debug = 1 THEN
9514: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9515: END IF;
9516: RAISE fnd_api.g_exc_unexpected_error;
9517: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9518: IF l_debug = 1 THEN
9519: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9520: END IF;
9521: RAISE fnd_api.g_exc_error;
9517: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9518: IF l_debug = 1 THEN
9519: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9520: END IF;
9521: RAISE fnd_api.g_exc_error;
9522: END IF;
9523: /* done with this res go to the next */
9524: GOTO nextINputrecord;
9525: END IF; --}
9615: END IF;
9616: fnd_message.set_name('WMS', 'WMS_PACKAGE_MISSING');
9617: fnd_message.set_token('RULEID', l_rule_id);
9618: fnd_msg_pub.ADD;
9619: RAISE fnd_api.g_exc_unexpected_error;
9620: END IF;
9621: END LOOP; --}
9622:
9623: IF (p_type_code = 2) THEN -- pick
9691: );
9692:
9693: EXIT WHEN NVL(l_rows, 0) = 0; -- Added to exit , if the rule is not returning any rows
9694:
9695: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9696: IF l_debug = 1 THEN
9697: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
9698: END IF;
9699: RAISE fnd_api.g_exc_unexpected_error;
9695: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9696: IF l_debug = 1 THEN
9697: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
9698: END IF;
9699: RAISE fnd_api.g_exc_unexpected_error;
9700: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9701: IF l_debug = 1 THEN
9702: log_error(l_api_name, 'fetch_cursor ', 'Error in FetchCursor');
9703: END IF;
9696: IF l_debug = 1 THEN
9697: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
9698: END IF;
9699: RAISE fnd_api.g_exc_unexpected_error;
9700: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9701: IF l_debug = 1 THEN
9702: log_error(l_api_name, 'fetch_cursor ', 'Error in FetchCursor');
9703: END IF;
9704: RAISE fnd_api.g_exc_error;
9700: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9701: IF l_debug = 1 THEN
9702: log_error(l_api_name, 'fetch_cursor ', 'Error in FetchCursor');
9703: END IF;
9704: RAISE fnd_api.g_exc_error;
9705: END IF;
9706:
9707: -- Start 1 of bug 13026723 change
9708: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
9769: , p_demand_source_header_id => l_source_header_id -- p_demand_source_header_id -- 12687878
9770: , p_demand_source_line_id => l_source_line_id -- p_demand_source_line_id -- 12687878
9771: , x_serial_numbers => l_custom_select_serials );
9772:
9773: IF ( x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
9774: IF ( l_debug = 1 ) THEN
9775: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
9776: END IF;
9777: RAISE fnd_api.g_exc_unexpected_error;
9773: IF ( x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
9774: IF ( l_debug = 1 ) THEN
9775: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
9776: END IF;
9777: RAISE fnd_api.g_exc_unexpected_error;
9778: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
9779: IF ( l_debug = 1 ) THEN
9780: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
9781: END IF;
9774: IF ( l_debug = 1 ) THEN
9775: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
9776: END IF;
9777: RAISE fnd_api.g_exc_unexpected_error;
9778: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
9779: IF ( l_debug = 1 ) THEN
9780: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
9781: END IF;
9782: RAISE fnd_api.g_exc_error;
9778: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
9779: IF ( l_debug = 1 ) THEN
9780: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
9781: END IF;
9782: RAISE fnd_api.g_exc_error;
9783: END IF;
9784:
9785: l_custom_serial_index := l_custom_select_serials.serial_number.FIRST;
9786: v_current_row.serial_number := l_custom_select_serials.serial_number(l_custom_serial_index);
9974: , p_orig_needed_sec_qty => l_sec_needed_quantity -- Added for 14699845 (Flexible lot allocation)
9975: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
9976: );
9977:
9978: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9979: IF l_debug = 1 THEN
9980: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9981: END IF;
9982: RAISE fnd_api.g_exc_unexpected_error;
9978: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9979: IF l_debug = 1 THEN
9980: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9981: END IF;
9982: RAISE fnd_api.g_exc_unexpected_error;
9983: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9984: IF l_debug = 1 THEN
9985: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9986: END IF;
9979: IF l_debug = 1 THEN
9980: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
9981: END IF;
9982: RAISE fnd_api.g_exc_unexpected_error;
9983: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9984: IF l_debug = 1 THEN
9985: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9986: END IF;
9987: RAISE fnd_api.g_exc_error;
9983: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9984: IF l_debug = 1 THEN
9985: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
9986: END IF;
9987: RAISE fnd_api.g_exc_error;
9988: END IF;
9989:
9990: -- if returns false
9991: IF l_inserted_record = FALSE
9998: -- rollback quantity tree
9999: log_statement(l_api_name, 'restore_tree', 'Calling restore_tree');
10000: END IF;
10001: inv_quantity_tree_pvt.restore_tree(x_return_status => x_return_status, p_tree_id => p_tree_id);
10002: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10003: IF l_debug = 1 THEN
10004: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10005: END IF;
10006: RAISE fnd_api.g_exc_unexpected_error;
10002: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10003: IF l_debug = 1 THEN
10004: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10005: END IF;
10006: RAISE fnd_api.g_exc_unexpected_error;
10007: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10008: IF l_debug = 1 THEN
10009: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10010: END IF;
10003: IF l_debug = 1 THEN
10004: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10005: END IF;
10006: RAISE fnd_api.g_exc_unexpected_error;
10007: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10008: IF l_debug = 1 THEN
10009: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10010: END IF;
10011: RAISE fnd_api.g_exc_error;
10007: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10008: IF l_debug = 1 THEN
10009: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10010: END IF;
10011: RAISE fnd_api.g_exc_error;
10012: END IF;
10013:
10014: -- delete allocations
10015: DELETE FROM wms_transactions_temp
10255: , p_orig_needed_sec_qty => l_sec_needed_quantity -- Added for 14699845 (Flexible lot allocation)
10256: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
10257: );
10258:
10259: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10260: IF l_debug = 1 THEN
10261: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10262: END IF;
10263: RAISE fnd_api.g_exc_unexpected_error;
10259: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10260: IF l_debug = 1 THEN
10261: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10262: END IF;
10263: RAISE fnd_api.g_exc_unexpected_error;
10264: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10265: IF l_debug = 1 THEN
10266: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10267: END IF;
10260: IF l_debug = 1 THEN
10261: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10262: END IF;
10263: RAISE fnd_api.g_exc_unexpected_error;
10264: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10265: IF l_debug = 1 THEN
10266: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10267: END IF;
10268: RAISE fnd_api.g_exc_error;
10264: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10265: IF l_debug = 1 THEN
10266: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10267: END IF;
10268: RAISE fnd_api.g_exc_error;
10269: END IF;
10270:
10271: -- if returns false
10272: IF l_inserted_record = FALSE
10281: END IF;
10282:
10283: inv_quantity_tree_pvt.restore_tree(x_return_status => x_return_status, p_tree_id => p_tree_id);
10284:
10285: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10286: IF l_debug = 1 THEN
10287: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10288: END IF;
10289: RAISE fnd_api.g_exc_unexpected_error;
10285: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10286: IF l_debug = 1 THEN
10287: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10288: END IF;
10289: RAISE fnd_api.g_exc_unexpected_error;
10290: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10291: IF l_debug = 1 THEN
10292: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10293: END IF;
10286: IF l_debug = 1 THEN
10287: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
10288: END IF;
10289: RAISE fnd_api.g_exc_unexpected_error;
10290: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10291: IF l_debug = 1 THEN
10292: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10293: END IF;
10294: RAISE fnd_api.g_exc_error;
10290: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10291: IF l_debug = 1 THEN
10292: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
10293: END IF;
10294: RAISE fnd_api.g_exc_error;
10295: END IF;
10296:
10297: -- set lpn quantity to -1
10298: -- no need to call invalidate, since we'll never see this
10675: -- reservations alredy made on any level higher than SUB. Changes to treat as Issue
10676: -- by removing l_to_subinevntory_code.
10677: inv_quantity_tree_pvt.query_tree(
10678: p_api_version_number => g_qty_tree_api_version
10679: , p_init_msg_lst => fnd_api.g_false -- p_init_msg_lst
10680: , x_return_status => x_return_status
10681: , x_msg_count => x_msg_count
10682: , x_msg_data => x_msg_data
10683: , p_tree_id => p_tree_id
10702: , p_cost_group_id => v_current_row.cost_group_id
10703: , p_lpn_id => v_current_row.lpn_id
10704: );
10705:
10706: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10707: IF l_debug = 1 THEN
10708: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
10709: END IF;
10710: RAISE fnd_api.g_exc_unexpected_error;
10706: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10707: IF l_debug = 1 THEN
10708: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
10709: END IF;
10710: RAISE fnd_api.g_exc_unexpected_error;
10711: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10712: IF l_debug = 1 THEN
10713: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
10714: END if;
10707: IF l_debug = 1 THEN
10708: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
10709: END IF;
10710: RAISE fnd_api.g_exc_unexpected_error;
10711: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10712: IF l_debug = 1 THEN
10713: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
10714: END if;
10715: RAISE fnd_api.g_exc_error;
10711: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10712: IF l_debug = 1 THEN
10713: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
10714: END if;
10715: RAISE fnd_api.g_exc_error;
10716: END IF;
10717:
10718: IF l_debug = 1 THEN
10719: log_statement(l_api_name, 'att_qty', 'Available quantity = ' || l_att);
10940: , p_orig_needed_sec_qty => l_sec_needed_quantity -- Added for 14699845 (Flexible lot allocation)
10941: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
10942: );
10943:
10944: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10945: IF l_debug = 1 THEN
10946: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10947: END IF;
10948:
10945: IF l_debug = 1 THEN
10946: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10947: END IF;
10948:
10949: RAISE fnd_api.g_exc_unexpected_error;
10950: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10951: IF l_debug = 1 THEN
10952: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10953: END IF;
10946: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
10947: END IF;
10948:
10949: RAISE fnd_api.g_exc_unexpected_error;
10950: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10951: IF l_debug = 1 THEN
10952: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10953: END IF;
10954:
10951: IF l_debug = 1 THEN
10952: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
10953: END IF;
10954:
10955: RAISE fnd_api.g_exc_error;
10956: END IF;
10957:
10958: -- If this fails
10959: IF l_inserted_record = FALSE
10997: END IF;
10998:
10999: inv_quantity_tree_pvt.restore_tree(x_return_status => x_return_status, p_tree_id => p_tree_id);
11000:
11001: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11002: IF l_debug = 1 THEN
11003: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
11004: END IF;
11005: RAISE fnd_api.g_exc_unexpected_error;
11001: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11002: IF l_debug = 1 THEN
11003: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
11004: END IF;
11005: RAISE fnd_api.g_exc_unexpected_error;
11006: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11007: IF l_debug = 1 THEN
11008: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
11009: END IF;
11002: IF l_debug = 1 THEN
11003: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
11004: END IF;
11005: RAISE fnd_api.g_exc_unexpected_error;
11006: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11007: IF l_debug = 1 THEN
11008: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
11009: END IF;
11010: RAISE fnd_api.g_exc_error;
11006: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11007: IF l_debug = 1 THEN
11008: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
11009: END IF;
11010: RAISE fnd_api.g_exc_error;
11011: END IF;
11012:
11013: -- delete allocations
11014: -- is this okay?? what if multiple input lines?
11191: , v_current_row.order_by_string
11192: , l_rows
11193: );
11194: EXIT WHEN nvl(l_rows, 0) = 0 ; --bug#9589015
11195: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11196: IF l_debug = 1 THEN
11197: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
11198: END IF;
11199: RAISE fnd_api.g_exc_unexpected_error;
11195: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11196: IF l_debug = 1 THEN
11197: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
11198: END IF;
11199: RAISE fnd_api.g_exc_unexpected_error;
11200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11201: IF l_debug = 1 THEN
11202: log_error(l_api_name, 'err_fetch_cursor', 'Error in FetchCursor');
11203: END IF;
11196: IF l_debug = 1 THEN
11197: log_error(l_api_name, 'uerr_fetch_cursor', 'Unexpected error in FetchCursor');
11198: END IF;
11199: RAISE fnd_api.g_exc_unexpected_error;
11200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11201: IF l_debug = 1 THEN
11202: log_error(l_api_name, 'err_fetch_cursor', 'Error in FetchCursor');
11203: END IF;
11204: RAISE fnd_api.g_exc_error;
11200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11201: IF l_debug = 1 THEN
11202: log_error(l_api_name, 'err_fetch_cursor', 'Error in FetchCursor');
11203: END IF;
11204: RAISE fnd_api.g_exc_error;
11205: END IF;
11206:
11207: -- is_serial_trx_allowed is_sub_loc_lot_trx_allowed
11208: -- bug#9589015 start
11265: , p_demand_source_header_id => l_source_header_id -- p_demand_source_header_id -- 12687878
11266: , p_demand_source_line_id => l_source_line_id -- p_demand_source_line_id -- 12687878
11267: , x_serial_numbers => l_custom_select_serials );
11268:
11269: IF ( x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
11270: IF ( l_debug = 1 ) THEN
11271: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
11272: END IF;
11273: RAISE fnd_api.g_exc_unexpected_error;
11269: IF ( x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
11270: IF ( l_debug = 1 ) THEN
11271: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
11272: END IF;
11273: RAISE fnd_api.g_exc_unexpected_error;
11274: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
11275: IF ( l_debug = 1 ) THEN
11276: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
11277: END IF;
11270: IF ( l_debug = 1 ) THEN
11271: log_error(l_api_name, 'uerr_Get_User_Serial_Numbers', 'Unexpected error in Get_User_Serial_Numbers');
11272: END IF;
11273: RAISE fnd_api.g_exc_unexpected_error;
11274: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
11275: IF ( l_debug = 1 ) THEN
11276: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
11277: END IF;
11278: RAISE fnd_api.g_exc_error;
11274: ELSIF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
11275: IF ( l_debug = 1 ) THEN
11276: log_error(l_api_name, 'Get_User_Serial_Numbers', 'Error in Get_User_Serial_Numbers');
11277: END IF;
11278: RAISE fnd_api.g_exc_error;
11279: END IF;
11280: IF l_debug = 1 THEN
11281: log_statement(l_api_name, 'Serial Status - l_custom_serial_index ', l_custom_serial_index);
11282: END IF;
11451: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11452: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
11453: );
11454:
11455: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11456: IF l_debug = 1 THEN
11457: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11458: END IF;
11459: RAISE fnd_api.g_exc_unexpected_error;
11455: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11456: IF l_debug = 1 THEN
11457: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11458: END IF;
11459: RAISE fnd_api.g_exc_unexpected_error;
11460: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11461: IF l_debug = 1 THEN
11462: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11463: END IF;
11456: IF l_debug = 1 THEN
11457: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11458: END IF;
11459: RAISE fnd_api.g_exc_unexpected_error;
11460: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11461: IF l_debug = 1 THEN
11462: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11463: END IF;
11464: RAISE fnd_api.g_exc_error;
11460: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11461: IF l_debug = 1 THEN
11462: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11463: END IF;
11464: RAISE fnd_api.g_exc_error;
11465: END IF;
11466:
11467: -- if allocated a consist group, exit pick uom loop
11468: IF l_finished THEN
11516: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11517: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
11518: );
11519:
11520: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11521: IF l_debug = 1 THEN
11522: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11523: END IF;
11524: RAISE fnd_api.g_exc_unexpected_error;
11520: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11521: IF l_debug = 1 THEN
11522: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11523: END IF;
11524: RAISE fnd_api.g_exc_unexpected_error;
11525: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11526: IF l_debug = 1 THEN
11527: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11528: END IF;
11521: IF l_debug = 1 THEN
11522: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11523: END IF;
11524: RAISE fnd_api.g_exc_unexpected_error;
11525: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11526: IF l_debug = 1 THEN
11527: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11528: END IF;
11529: RAISE fnd_api.g_exc_error;
11525: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11526: IF l_debug = 1 THEN
11527: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11528: END IF;
11529: RAISE fnd_api.g_exc_error;
11530: END IF;
11531:
11532: -- If returns true, decrease needed quantity
11533: IF l_inserted_record THEN
11667: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11668: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
11669: );
11670:
11671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11672: IF l_debug = 1 THEN
11673: log_statement(l_api_name, 'uerr_allocate_consist', 'Unexpected error in allocate_consist_group');
11674: END IF;
11675: RAISE fnd_api.g_exc_unexpected_error;
11671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11672: IF l_debug = 1 THEN
11673: log_statement(l_api_name, 'uerr_allocate_consist', 'Unexpected error in allocate_consist_group');
11674: END IF;
11675: RAISE fnd_api.g_exc_unexpected_error;
11676: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11677: IF l_debug = 1 THEN
11678: log_statement(l_api_name, 'err_allocate_consist', 'Error in allocate_consist_group');
11679: END IF;
11672: IF l_debug = 1 THEN
11673: log_statement(l_api_name, 'uerr_allocate_consist', 'Unexpected error in allocate_consist_group');
11674: END IF;
11675: RAISE fnd_api.g_exc_unexpected_error;
11676: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11677: IF l_debug = 1 THEN
11678: log_statement(l_api_name, 'err_allocate_consist', 'Error in allocate_consist_group');
11679: END IF;
11680: RAISE fnd_api.g_exc_error;
11676: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11677: IF l_debug = 1 THEN
11678: log_statement(l_api_name, 'err_allocate_consist', 'Error in allocate_consist_group');
11679: END IF;
11680: RAISE fnd_api.g_exc_error;
11681: END IF;
11682:
11683: -- if finished = true
11684: -- exit consist restrictions loop
11769: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11770: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
11771: );
11772:
11773: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11774: IF l_debug = 1 THEN
11775: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11776: END IF;
11777: RAISE fnd_api.g_exc_unexpected_error;
11773: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11774: IF l_debug = 1 THEN
11775: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11776: END IF;
11777: RAISE fnd_api.g_exc_unexpected_error;
11778: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11779: IF l_debug = 1 THEN
11780: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11781: END IF;
11774: IF l_debug = 1 THEN
11775: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
11776: END IF;
11777: RAISE fnd_api.g_exc_unexpected_error;
11778: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11779: IF l_debug = 1 THEN
11780: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11781: END IF;
11782: RAISE fnd_api.g_exc_error;
11778: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11779: IF l_debug = 1 THEN
11780: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
11781: END IF;
11782: RAISE fnd_api.g_exc_error;
11783: END IF;
11784:
11785: -- if allocated a consist group, exit pick uom loop
11786: IF l_finished THEN
11836: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11837: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
11838: );
11839:
11840: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11841: IF l_debug = 1 THEN
11842: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11843: END IF;
11844: RAISE fnd_api.g_exc_unexpected_error;
11840: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11841: IF l_debug = 1 THEN
11842: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11843: END IF;
11844: RAISE fnd_api.g_exc_unexpected_error;
11845: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11846: IF l_debug = 1 THEN
11847: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11848: END IF;
11841: IF l_debug = 1 THEN
11842: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
11843: END IF;
11844: RAISE fnd_api.g_exc_unexpected_error;
11845: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11846: IF l_debug = 1 THEN
11847: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11848: END IF;
11849: RAISE fnd_api.g_exc_error;
11845: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
11846: IF l_debug = 1 THEN
11847: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
11848: END IF;
11849: RAISE fnd_api.g_exc_error;
11850: END IF;
11851:
11852: -- If returns true, decrease needed quantity
11853: IF l_inserted_record THEN
12069: -- BUG 3609380 : Removing l_to_subinevntory_code.
12070: -- Validate available quantity
12071: inv_quantity_tree_pvt.query_tree(
12072: p_api_version_number => g_qty_tree_api_version
12073: , p_init_msg_lst => fnd_api.g_false -- p_init_msg_lst
12074: , x_return_status => x_return_status
12075: , x_msg_count => x_msg_count
12076: , x_msg_data => x_msg_data
12077: , p_tree_id => p_tree_id
12095: , p_cost_group_id => v_current_row.cost_group_id
12096: , p_lpn_id => v_current_row.lpn_id
12097: );
12098:
12099: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12100: IF l_debug = 1 THEN
12101: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
12102: END IF;
12103: RAISE fnd_api.g_exc_unexpected_error;
12099: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12100: IF l_debug = 1 THEN
12101: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
12102: END IF;
12103: RAISE fnd_api.g_exc_unexpected_error;
12104: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12105: IF l_debug = 1 THEN
12106: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
12107: END IF;
12100: IF l_debug = 1 THEN
12101: log_statement(l_api_name, 'uerr_qty_tree', 'Unexpected error in inv_quantity_tree_Pvt.query_tree');
12102: END IF;
12103: RAISE fnd_api.g_exc_unexpected_error;
12104: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12105: IF l_debug = 1 THEN
12106: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
12107: END IF;
12108: RAISE fnd_api.g_exc_error;
12104: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12105: IF l_debug = 1 THEN
12106: log_statement(l_api_name, 'err_qty_tree', 'Error in inv_quantity_tree_Pvt.query_tree');
12107: END IF;
12108: RAISE fnd_api.g_exc_error;
12109: END IF;
12110:
12111: IF l_debug = 1 THEN
12112: log_statement(l_api_name, 'att', 'ATT : ' || l_att ||'SATT is:'|| l_satt); --9915228
12186: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
12187: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
12188: );
12189:
12190: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12191: IF l_debug = 1 THEN
12192: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
12193: END IF;
12194: RAISE fnd_api.g_exc_unexpected_error;
12190: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12191: IF l_debug = 1 THEN
12192: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
12193: END IF;
12194: RAISE fnd_api.g_exc_unexpected_error;
12195: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12196: IF l_debug = 1 THEN
12197: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
12198: END IF;
12191: IF l_debug = 1 THEN
12192: log_statement(l_api_name, 'uerr_insert_consist', 'Unexpected error in insert_consist_record');
12193: END IF;
12194: RAISE fnd_api.g_exc_unexpected_error;
12195: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12196: IF l_debug = 1 THEN
12197: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
12198: END IF;
12199: RAISE fnd_api.g_exc_error;
12195: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12196: IF l_debug = 1 THEN
12197: log_statement(l_api_name, 'err_insert_consist', 'Error in insert_consist_record');
12198: END IF;
12199: RAISE fnd_api.g_exc_error;
12200: END IF;
12201:
12202: -- if finished, needed qty = 0
12203: IF l_finished THEN
12251: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
12252: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
12253: );
12254:
12255: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12256: IF l_debug = 1 THEN
12257: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
12258: END IF;
12259: RAISE fnd_api.g_exc_unexpected_error;
12255: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12256: IF l_debug = 1 THEN
12257: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
12258: END IF;
12259: RAISE fnd_api.g_exc_unexpected_error;
12260: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12261: IF l_debug = 1 THEN
12262: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
12263: END IF;
12256: IF l_debug = 1 THEN
12257: log_statement(l_api_name, 'uerr_validate_insert', 'Unexpected error in validate_and_insert');
12258: END IF;
12259: RAISE fnd_api.g_exc_unexpected_error;
12260: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12261: IF l_debug = 1 THEN
12262: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
12263: END IF;
12264: RAISE fnd_api.g_exc_error;
12260: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12261: IF l_debug = 1 THEN
12262: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
12263: END IF;
12264: RAISE fnd_api.g_exc_error;
12265: END IF;
12266:
12267: --if returns true, decrease needed qty
12268: IF l_inserted_record THEN
12420: , l_otask_id
12421: , l_rows
12422: );
12423:
12424: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12425: IF l_debug = 1 THEN
12426: log_statement(l_api_name, 'uerr_fetch_cursor',
12427: 'Unexpected error in FetchCursor');
12428: END IF;
12425: IF l_debug = 1 THEN
12426: log_statement(l_api_name, 'uerr_fetch_cursor',
12427: 'Unexpected error in FetchCursor');
12428: END IF;
12429: RAISE fnd_api.g_exc_unexpected_error;
12430: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12431: IF l_debug = 1 THEN
12432: log_statement(l_api_name,'err_fetch_cursor','Error in FetchCursor');
12433: END IF;
12426: log_statement(l_api_name, 'uerr_fetch_cursor',
12427: 'Unexpected error in FetchCursor');
12428: END IF;
12429: RAISE fnd_api.g_exc_unexpected_error;
12430: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12431: IF l_debug = 1 THEN
12432: log_statement(l_api_name,'err_fetch_cursor','Error in FetchCursor');
12433: END IF;
12434: RAISE fnd_api.g_exc_error;
12430: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12431: IF l_debug = 1 THEN
12432: log_statement(l_api_name,'err_fetch_cursor','Error in FetchCursor');
12433: END IF;
12434: RAISE fnd_api.g_exc_error;
12435: END IF;
12436:
12437: -- Exit if no more records from rule cursor
12438: EXIT WHEN nvl(l_rows, 0) = 0 ; -- [ Added to to exit , if the rule is not returning any rows
12925: , p_lpn_id => NULL
12926: , p_cost_group_id => l_to_cost_group_id
12927: );
12928:
12929: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12930: IF l_debug = 1 THEN
12931: log_statement(l_api_name, 'uerr_comingle_check', 'Unexpected error in comingle_check');
12932: END IF;
12933: RAISE fnd_api.g_exc_unexpected_error;
12929: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12930: IF l_debug = 1 THEN
12931: log_statement(l_api_name, 'uerr_comingle_check', 'Unexpected error in comingle_check');
12932: END IF;
12933: RAISE fnd_api.g_exc_unexpected_error;
12934: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12935: IF l_debug = 1 THEN
12936: log_statement(l_api_name, 'err_comingle_check', 'Error in comingle_check');
12937: END IF;
12930: IF l_debug = 1 THEN
12931: log_statement(l_api_name, 'uerr_comingle_check', 'Unexpected error in comingle_check');
12932: END IF;
12933: RAISE fnd_api.g_exc_unexpected_error;
12934: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12935: IF l_debug = 1 THEN
12936: log_statement(l_api_name, 'err_comingle_check', 'Error in comingle_check');
12937: END IF;
12938: RAISE fnd_api.g_exc_error;
12934: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12935: IF l_debug = 1 THEN
12936: log_statement(l_api_name, 'err_comingle_check', 'Error in comingle_check');
12937: END IF;
12938: RAISE fnd_api.g_exc_error;
12939: END IF;
12940:
12941: -- Skip record if it would cause comingling
12942: IF l_comingle = 'Y' THEN
12977: , p_transaction_uom_code => NULL
12978: , p_quantity => l_possible_quantity
12979: );
12980:
12981: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12982: IF l_debug = 1 THEN
12983: log_statement(l_api_name, 'uerr_update_capacity', 'Unexpected error in update_loc_suggested_capacity');
12984: END IF;
12985: RAISE fnd_api.g_exc_unexpected_error;
12981: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12982: IF l_debug = 1 THEN
12983: log_statement(l_api_name, 'uerr_update_capacity', 'Unexpected error in update_loc_suggested_capacity');
12984: END IF;
12985: RAISE fnd_api.g_exc_unexpected_error;
12986: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12987: IF l_debug = 1 THEN
12988: log_statement(l_api_name, 'err_update_capacity', 'Error in update_loc_suggested_capacity');
12989: END IF;
12982: IF l_debug = 1 THEN
12983: log_statement(l_api_name, 'uerr_update_capacity', 'Unexpected error in update_loc_suggested_capacity');
12984: END IF;
12985: RAISE fnd_api.g_exc_unexpected_error;
12986: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12987: IF l_debug = 1 THEN
12988: log_statement(l_api_name, 'err_update_capacity', 'Error in update_loc_suggested_capacity');
12989: END IF;
12990: RAISE fnd_api.g_exc_error;
12986: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
12987: IF l_debug = 1 THEN
12988: log_statement(l_api_name, 'err_update_capacity', 'Error in update_loc_suggested_capacity');
12989: END IF;
12990: RAISE fnd_api.g_exc_error;
12991: ELSE
12992: l_capacity_updated := TRUE;
12993: END IF;
12994: END IF;
13134: )
13135: )
13136: THEN --{
13137: -- notice, that at least one input record couldn't get satisfied
13138: x_finished := fnd_api.g_false;
13139:
13140: IF (NVL(wms_engine_pvt.g_fulfillment_base,'P') = 'P' AND l_needed_quantity = l_initial_pri_quantity)
13141: OR (NVL(wms_engine_pvt.g_fulfillment_base,'P') = 'S' AND l_sec_needed_quantity = l_initial_sec_quantity)
13142: THEN
13228: CLOSE l_get_serial;
13229: /*End of fix for Bug 5251221 */
13230:
13231: --
13232: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13233: IF l_debug = 1 THEN
13234: log_statement(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
13235: END IF;
13236: RAISE fnd_api.g_exc_unexpected_error;
13232: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13233: IF l_debug = 1 THEN
13234: log_statement(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
13235: END IF;
13236: RAISE fnd_api.g_exc_unexpected_error;
13237: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13238: IF l_debug = 1 THEN
13239: log_statement(l_api_name, 'err_restore_tree', 'Error in restore_tree');
13240: END IF;
13233: IF l_debug = 1 THEN
13234: log_statement(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
13235: END IF;
13236: RAISE fnd_api.g_exc_unexpected_error;
13237: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13238: IF l_debug = 1 THEN
13239: log_statement(l_api_name, 'err_restore_tree', 'Error in restore_tree');
13240: END IF;
13241: RAISE fnd_api.g_exc_error;
13237: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13238: IF l_debug = 1 THEN
13239: log_statement(l_api_name, 'err_restore_tree', 'Error in restore_tree');
13240: END IF;
13241: RAISE fnd_api.g_exc_error;
13242: END IF;
13243: --}
13244: ELSE --{ for put away, restore capacity
13245: -- this function reduces the suggested units in the location
13252: , p_organization_id => p_organization_id
13253: , p_inventory_item_id => p_inventory_item_id
13254: );
13255:
13256: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13257: IF l_debug = 1 THEN
13258: log_statement(l_api_name, 'uerr_rollback_cap', 'Unexpected error in rollback_capacity_update');
13259: END IF;
13260: RAISE fnd_api.g_exc_unexpected_error;
13256: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13257: IF l_debug = 1 THEN
13258: log_statement(l_api_name, 'uerr_rollback_cap', 'Unexpected error in rollback_capacity_update');
13259: END IF;
13260: RAISE fnd_api.g_exc_unexpected_error;
13261: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13262: IF l_debug = 1 THEN
13263: log_statement(l_api_name, 'err_rollback_cap', 'Error in rollback_capacity_update');
13264: END IF;
13257: IF l_debug = 1 THEN
13258: log_statement(l_api_name, 'uerr_rollback_cap', 'Unexpected error in rollback_capacity_update');
13259: END IF;
13260: RAISE fnd_api.g_exc_unexpected_error;
13261: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13262: IF l_debug = 1 THEN
13263: log_statement(l_api_name, 'err_rollback_cap', 'Error in rollback_capacity_update');
13264: END IF;
13265: RAISE fnd_api.g_exc_error;
13261: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13262: IF l_debug = 1 THEN
13263: log_statement(l_api_name, 'err_rollback_cap', 'Error in rollback_capacity_update');
13264: END IF;
13265: RAISE fnd_api.g_exc_error;
13266: END IF;
13267:
13268: -- if error occurred after capacity got updated but before
13269: -- insertion into WTT, fix the capacity for that record
13282: , p_transaction_uom_code => NULL
13283: , p_quantity => l_possible_quantity
13284: );
13285:
13286: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13287: IF l_debug = 1 THEN
13288: log_statement(l_api_name, 'uerr_revert_capacity', 'Unexpected error in revert_loc_suggested_capacity');
13289: END IF;
13290: RAISE fnd_api.g_exc_unexpected_error;
13286: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13287: IF l_debug = 1 THEN
13288: log_statement(l_api_name, 'uerr_revert_capacity', 'Unexpected error in revert_loc_suggested_capacity');
13289: END IF;
13290: RAISE fnd_api.g_exc_unexpected_error;
13291: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13292: IF l_debug = 1 THEN
13293: log_statement(l_api_name, 'err_revert_capacity', 'Error in revert_loc_suggested_capacity');
13294: END IF;
13287: IF l_debug = 1 THEN
13288: log_statement(l_api_name, 'uerr_revert_capacity', 'Unexpected error in revert_loc_suggested_capacity');
13289: END IF;
13290: RAISE fnd_api.g_exc_unexpected_error;
13291: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13292: IF l_debug = 1 THEN
13293: log_statement(l_api_name, 'err_revert_capacity', 'Error in revert_loc_suggested_capacity');
13294: END IF;
13295: RAISE fnd_api.g_exc_error;
13291: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13292: IF l_debug = 1 THEN
13293: log_statement(l_api_name, 'err_revert_capacity', 'Error in revert_loc_suggested_capacity');
13294: END IF;
13295: RAISE fnd_api.g_exc_error;
13296: END IF;
13297:
13298: l_capacity_updated := FALSE;
13299: END IF;
13315: END LOOP;
13316:
13317: wms_search_order_globals_pvt.insert_trace_lines(
13318: p_api_version => 1.0
13319: , p_init_msg_list => fnd_api.g_false
13320: , p_validation_level => fnd_api.g_valid_level_full
13321: , x_return_status => l_return_status
13322: , x_msg_count => x_msg_count
13323: , x_msg_data => x_msg_data
13316:
13317: wms_search_order_globals_pvt.insert_trace_lines(
13318: p_api_version => 1.0
13319: , p_init_msg_list => fnd_api.g_false
13320: , p_validation_level => fnd_api.g_valid_level_full
13321: , x_return_status => l_return_status
13322: , x_msg_count => x_msg_count
13323: , x_msg_data => x_msg_data
13324: , p_header_id => wms_engine_pvt.g_trace_header_id
13350: END IF;
13351: END IF;
13352: --}
13353: ELSE --{
13354: x_finished := fnd_api.g_true;
13355: -- if input line could get satisfied
13356: -- delete the input line in the wms_transactions_temp table
13357: IF l_debug = 1 THEN
13358: log_statement(l_api_name, 'deleting_input_rec',
13371: log_statement(l_api_name, 'After deleting Wms_re_common_pvt.GetCountInputLines ',
13372: Wms_re_common_pvt.GetCountInputLines);
13373: END IF;
13374: IF p_type_code = 2 AND Wms_re_common_pvt.GetCountInputLines > 0 /*and l_consist_existsi */
13375: AND x_finished = fnd_api.g_true
13376: THEN
13377: x_finished := fnd_api.g_false;
13378: IF l_debug = 1 THEN
13379: log_statement(l_api_name, 'p_type_code 2: After x_finished :' , 'False' );
13373: END IF;
13374: IF p_type_code = 2 AND Wms_re_common_pvt.GetCountInputLines > 0 /*and l_consist_existsi */
13375: AND x_finished = fnd_api.g_true
13376: THEN
13377: x_finished := fnd_api.g_false;
13378: IF l_debug = 1 THEN
13379: log_statement(l_api_name, 'p_type_code 2: After x_finished :' , 'False' );
13380: END IF;
13381: ELSIF p_type_code = 2 AND Wms_re_common_pvt.GetCountInputLines = 0 AND x_finished = fnd_api.g_false
13377: x_finished := fnd_api.g_false;
13378: IF l_debug = 1 THEN
13379: log_statement(l_api_name, 'p_type_code 2: After x_finished :' , 'False' );
13380: END IF;
13381: ELSIF p_type_code = 2 AND Wms_re_common_pvt.GetCountInputLines = 0 AND x_finished = fnd_api.g_false
13382: THEN
13383: IF l_debug = 1 THEN
13384: log_statement(l_api_name, 'GetCountInputLines = 0 / x_finished :' , 'True' );
13385: END IF;
13382: THEN
13383: IF l_debug = 1 THEN
13384: log_statement(l_api_name, 'GetCountInputLines = 0 / x_finished :' , 'True' );
13385: END IF;
13386: x_finished := fnd_api.g_true;
13387: END IF;
13388: ----------- end of bug fix 13496654
13389:
13390: -- start of 8744417
13391: IF l_debug = 1 THEN
13392: log_statement(l_api_name, 'Wms_re_common_pvt.GetCountInputLines ' , Wms_re_common_pvt.GetCountInputLines );
13393: END IF;
13394: IF p_type_code = 1 AND Wms_re_common_pvt.GetCountInputLines > 0
13395: AND x_finished = fnd_api.g_true
13396: THEN
13397: x_finished := fnd_api.g_false;
13398: IF l_debug = 1 THEN
13399: log_statement(l_api_name, 'After x_finished :' , 'False' );
13393: END IF;
13394: IF p_type_code = 1 AND Wms_re_common_pvt.GetCountInputLines > 0
13395: AND x_finished = fnd_api.g_true
13396: THEN
13397: x_finished := fnd_api.g_false;
13398: IF l_debug = 1 THEN
13399: log_statement(l_api_name, 'After x_finished :' , 'False' );
13400: END IF;
13401: ELSIF p_type_code = 1 AND Wms_re_common_pvt.GetCountInputLines = 0
13398: IF l_debug = 1 THEN
13399: log_statement(l_api_name, 'After x_finished :' , 'False' );
13400: END IF;
13401: ELSIF p_type_code = 1 AND Wms_re_common_pvt.GetCountInputLines = 0
13402: AND x_finished = fnd_api.g_false
13403: THEN
13404: x_finished := fnd_api.g_true;
13405: IF l_debug = 1 THEN
13406: log_statement(l_api_name, 'GetCountInputLines = 0 / x_finished :' , 'True' );
13400: END IF;
13401: ELSIF p_type_code = 1 AND Wms_re_common_pvt.GetCountInputLines = 0
13402: AND x_finished = fnd_api.g_false
13403: THEN
13404: x_finished := fnd_api.g_true;
13405: IF l_debug = 1 THEN
13406: log_statement(l_api_name, 'GetCountInputLines = 0 / x_finished :' , 'True' );
13407: END IF;
13408: END IF;
13411:
13412: IF l_debug_on THEN
13413: wms_search_order_globals_pvt.insert_trace_lines(
13414: p_api_version => 1.0
13415: , p_init_msg_list => fnd_api.g_false
13416: , p_validation_level => fnd_api.g_valid_level_full
13417: , x_return_status => l_return_status
13418: , x_msg_count => x_msg_count
13419: , x_msg_data => x_msg_data
13412: IF l_debug_on THEN
13413: wms_search_order_globals_pvt.insert_trace_lines(
13414: p_api_version => 1.0
13415: , p_init_msg_list => fnd_api.g_false
13416: , p_validation_level => fnd_api.g_valid_level_full
13417: , x_return_status => l_return_status
13418: , x_msg_count => x_msg_count
13419: , x_msg_data => x_msg_data
13420: , p_header_id => wms_engine_pvt.g_trace_header_id
13428: END LOOP; --} input records
13429:
13430: --
13431: -- Standard check of p_commit
13432: IF fnd_api.to_boolean(p_commit) THEN
13433: COMMIT WORK;
13434: END IF;
13435:
13436: -- end of debugging section
13438: log_procedure(l_api_name, 'end', 'End Apply');
13439: END IF;
13440: --
13441: EXCEPTION
13442: WHEN fnd_api.g_exc_error THEN
13443: --
13444: --if l_pack_exists <>2, then open_curs was never called, so no need to
13445: -- close the cursor
13446: IF (l_pack_exists = 2) THEN
13476: END IF;
13477:
13478: ROLLBACK TO applyrulesp;
13479: freeglobals;
13480: x_return_status := fnd_api.g_ret_sts_error;
13481: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13482: IF l_debug = 1 THEN
13483: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
13484: END IF;
13482: IF l_debug = 1 THEN
13483: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
13484: END IF;
13485: --
13486: WHEN fnd_api.g_exc_unexpected_error THEN
13487: --if l_pack_exists <>2, then open_curs was never called, so no need to
13488: -- close the cursor
13489: IF (l_pack_exists = 2) THEN
13490: close_put_rule(l_rule_id, v_put_cursor);
13519: END IF;
13520:
13521: ROLLBACK TO applyrulesp;
13522: freeglobals;
13523: x_return_status := fnd_api.g_ret_sts_unexp_error;
13524: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13525: IF l_debug = 1 THEN
13526: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
13527: END IF;
13562: END IF;
13563:
13564: ROLLBACK TO applyrulesp;
13565: freeglobals;
13566: x_return_status := fnd_api.g_ret_sts_unexp_error;
13567:
13568: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
13569: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
13570: END IF;
13634: ELSE
13635: RAISE invalid_loc_control_exception;
13636: END IF;
13637: --
13638: x_return_status := fnd_api.g_ret_sts_success;
13639: RETURN l_locator_control;
13640: EXCEPTION
13641: WHEN invalid_loc_control_exception THEN
13642: fnd_message.set_name('INV','INV_INVALID_LOC_CONTROL');
13641: WHEN invalid_loc_control_exception THEN
13642: fnd_message.set_name('INV','INV_INVALID_LOC_CONTROL');
13643: fnd_msg_pub.ADD;
13644: --
13645: x_return_status := fnd_api.g_ret_sts_error ;
13646: l_locator_control := -1 ;
13647: RETURN l_locator_control ;
13648: --
13649: WHEN fnd_api.g_exc_error THEN
13645: x_return_status := fnd_api.g_ret_sts_error ;
13646: l_locator_control := -1 ;
13647: RETURN l_locator_control ;
13648: --
13649: WHEN fnd_api.g_exc_error THEN
13650: x_return_status := fnd_api.g_ret_sts_error ;
13651: l_locator_control := -1 ;
13652: RETURN l_locator_control ;
13653: --
13646: l_locator_control := -1 ;
13647: RETURN l_locator_control ;
13648: --
13649: WHEN fnd_api.g_exc_error THEN
13650: x_return_status := fnd_api.g_ret_sts_error ;
13651: l_locator_control := -1 ;
13652: RETURN l_locator_control ;
13653: --
13654: WHEN fnd_api.g_exc_unexpected_error THEN
13650: x_return_status := fnd_api.g_ret_sts_error ;
13651: l_locator_control := -1 ;
13652: RETURN l_locator_control ;
13653: --
13654: WHEN fnd_api.g_exc_unexpected_error THEN
13655: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13656: l_locator_control := -1 ;
13657: RETURN l_locator_control ;
13658: --
13651: l_locator_control := -1 ;
13652: RETURN l_locator_control ;
13653: --
13654: WHEN fnd_api.g_exc_unexpected_error THEN
13655: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13656: l_locator_control := -1 ;
13657: RETURN l_locator_control ;
13658: --
13659: WHEN OTHERS THEN
13656: l_locator_control := -1 ;
13657: RETURN l_locator_control ;
13658: --
13659: WHEN OTHERS THEN
13660: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13661: --
13662: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)) THEN
13663: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
13664: END IF;
13695: )
13696: IS
13697: -- constants
13698: l_api_name CONSTANT VARCHAR(30) := 'get_putaway_defaults';
13699: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13700: --
13701: -- variable
13702: l_sub_loc_control NUMBER;
13703: l_loc_control NUMBER;
13762: l_putaway_sub IS NULL THEN
13763: CLOSE l_subinventory_code_csr;
13764: fnd_message.set_name('INV','INV_NO_DEFAULT_SUB');
13765: fnd_msg_pub.ADD;
13766: RAISE fnd_api.g_exc_error;
13767: END IF;
13768: CLOSE l_subinventory_code_csr;
13769: ELSE
13770: l_putaway_sub := p_to_subinventory_code ;
13777: --
13778: IF NOT l_sub_found THEN
13779: fnd_message.set_name('INV','INV_NO_SUB_LOC_CONTROL');
13780: fnd_msg_pub.ADD;
13781: RAISE fnd_api.g_exc_error;
13782: END if;
13783:
13784: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
13785:
13803: log_statement(l_api_name, 'l_sub_loc_control ', l_sub_loc_control);
13804: log_statement(l_api_name, 'l_loc_control ' , l_loc_control);
13805: END IF;
13806:
13807: IF l_return_status = fnd_api.g_ret_sts_error THEN
13808: RAISE fnd_api.g_exc_error ;
13809: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13810: RAISE fnd_api.g_exc_unexpected_error;
13811: END IF;
13804: log_statement(l_api_name, 'l_loc_control ' , l_loc_control);
13805: END IF;
13806:
13807: IF l_return_status = fnd_api.g_ret_sts_error THEN
13808: RAISE fnd_api.g_exc_error ;
13809: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13810: RAISE fnd_api.g_exc_unexpected_error;
13811: END IF;
13812:
13805: END IF;
13806:
13807: IF l_return_status = fnd_api.g_ret_sts_error THEN
13808: RAISE fnd_api.g_exc_error ;
13809: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13810: RAISE fnd_api.g_exc_unexpected_error;
13811: END IF;
13812:
13813: --
13806:
13807: IF l_return_status = fnd_api.g_ret_sts_error THEN
13808: RAISE fnd_api.g_exc_error ;
13809: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13810: RAISE fnd_api.g_exc_unexpected_error;
13811: END IF;
13812:
13813: --
13814: IF l_loc_control = 2 THEN -- has locator control
13820: CLOSE l_locator_csr;
13821: fnd_message.set_name('INV','INV_NO_DEFAULT_LOC');
13822: fnd_msg_pub.ADD;
13823:
13824: RAISE fnd_api.g_exc_error;
13825: END IF;
13826: ELSE
13827: l_putaway_loc := p_to_locator_id ;
13828: IF l_debug = 1 THEN
13859: l_putaway_cg := l_putaway_cg_org;
13860: if l_putaway_cg IS NULL then
13861: fnd_message.set_name('INV','INV_NO_DEFAULT_COST_GROUP');
13862: fnd_msg_pub.ADD;
13863: RAISE fnd_api.g_exc_error;
13864: end if;
13865: End If;
13866: ELSE
13867: l_putaway_cg := p_to_cost_group_id;
13885: END IF;
13886:
13887:
13888: EXCEPTION
13889: WHEN fnd_api.g_exc_error THEN
13890: x_return_status := fnd_api.g_ret_sts_error ;
13891: x_putaway_loc := NULL;
13892: x_putaway_sub := NULL;
13893: x_putaway_cost_group_id := NULL;
13886:
13887:
13888: EXCEPTION
13889: WHEN fnd_api.g_exc_error THEN
13890: x_return_status := fnd_api.g_ret_sts_error ;
13891: x_putaway_loc := NULL;
13892: x_putaway_sub := NULL;
13893: x_putaway_cost_group_id := NULL;
13894: --
13891: x_putaway_loc := NULL;
13892: x_putaway_sub := NULL;
13893: x_putaway_cost_group_id := NULL;
13894: --
13895: WHEN fnd_api.g_exc_unexpected_error THEN
13896: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13897: x_putaway_loc := NULL;
13898: x_putaway_sub := NULL;
13899: x_putaway_cost_group_id := NULL;
13892: x_putaway_sub := NULL;
13893: x_putaway_cost_group_id := NULL;
13894: --
13895: WHEN fnd_api.g_exc_unexpected_error THEN
13896: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13897: x_putaway_loc := NULL;
13898: x_putaway_sub := NULL;
13899: x_putaway_cost_group_id := NULL;
13900: --
13898: x_putaway_sub := NULL;
13899: x_putaway_cost_group_id := NULL;
13900: --
13901: WHEN OTHERS THEN
13902: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13903: x_putaway_loc := NULL;
13904: x_putaway_sub := NULL;
13905: x_putaway_cost_group_id := NULL;
13906: --
14059: --
14060:
14061:
14062: -- Standard call to check for call compatibility
14063: IF NOT fnd_api.compatible_api_call( l_api_version
14064: ,p_api_version
14065: ,l_api_name
14066: ,g_pkg_name ) THEN
14067: RAISE fnd_api.g_exc_unexpected_error;
14063: IF NOT fnd_api.compatible_api_call( l_api_version
14064: ,p_api_version
14065: ,l_api_name
14066: ,g_pkg_name ) THEN
14067: RAISE fnd_api.g_exc_unexpected_error;
14068: END IF;
14069:
14070: -- Initialize message list if p_init_msg_list is set to TRUE
14071: IF fnd_api.to_boolean( p_init_msg_list ) THEN
14067: RAISE fnd_api.g_exc_unexpected_error;
14068: END IF;
14069:
14070: -- Initialize message list if p_init_msg_list is set to TRUE
14071: IF fnd_api.to_boolean( p_init_msg_list ) THEN
14072: fnd_msg_pub.initialize;
14073: END IF;
14074: --
14075: -- Initialize API return status to success
14072: fnd_msg_pub.initialize;
14073: END IF;
14074: --
14075: -- Initialize API return status to success
14076: x_return_status := fnd_api.g_ret_sts_success;
14077: --
14078: -- Initialize functional return status to completed
14079: x_finished := fnd_api.g_true;
14080: --
14075: -- Initialize API return status to success
14076: x_return_status := fnd_api.g_ret_sts_success;
14077: --
14078: -- Initialize functional return status to completed
14079: x_finished := fnd_api.g_true;
14080: --
14081: -- Validate input parameters and pre-requisites, if validation level
14082: -- requires this
14083: IF p_validation_level <> fnd_api.g_valid_level_none THEN
14079: x_finished := fnd_api.g_true;
14080: --
14081: -- Validate input parameters and pre-requisites, if validation level
14082: -- requires this
14083: IF p_validation_level <> fnd_api.g_valid_level_none THEN
14084: IF p_transaction_temp_id IS NULL OR
14085: p_transaction_temp_id = fnd_api.g_miss_num THEN
14086: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14087: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
14081: -- Validate input parameters and pre-requisites, if validation level
14082: -- requires this
14083: IF p_validation_level <> fnd_api.g_valid_level_none THEN
14084: IF p_transaction_temp_id IS NULL OR
14085: p_transaction_temp_id = fnd_api.g_miss_num THEN
14086: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14087: fnd_message.set_name('WMS','WMS_TRX_REQ_LINE_ID_MISS');
14088: If (l_debug = 1) then
14089: log_error_msg(l_api_name, 'trx_req_line_id_missing');
14089: log_error_msg(l_api_name, 'trx_req_line_id_missing');
14090: End if;
14091: fnd_msg_pub.add;
14092: END IF;
14093: RAISE fnd_api.g_exc_error;
14094: END IF;
14095: IF p_organization_id IS NULL OR
14096: p_organization_id = fnd_api.g_miss_num THEN
14097: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14092: END IF;
14093: RAISE fnd_api.g_exc_error;
14094: END IF;
14095: IF p_organization_id IS NULL OR
14096: p_organization_id = fnd_api.g_miss_num THEN
14097: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14098: fnd_message.set_name('INV','INV_NO_ORG_INFORMATION');
14099: If (l_debug = 1) then
14100: log_error_msg(l_api_name, 'org_id_missing');
14100: log_error_msg(l_api_name, 'org_id_missing');
14101: End if;
14102: fnd_msg_pub.add;
14103: END IF;
14104: RAISE fnd_api.g_exc_error;
14105: END IF;
14106: IF p_inventory_item_id IS NULL OR
14107: p_inventory_item_id = fnd_api.g_miss_num THEN
14108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14103: END IF;
14104: RAISE fnd_api.g_exc_error;
14105: END IF;
14106: IF p_inventory_item_id IS NULL OR
14107: p_inventory_item_id = fnd_api.g_miss_num THEN
14108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14109: fnd_message.set_name('INV','INV_ITEM_ID_REQUIRED');
14110: If (l_debug = 1) then
14111: log_error_msg(l_api_name, 'item_id_missing');
14111: log_error_msg(l_api_name, 'item_id_missing');
14112: End if;
14113: fnd_msg_pub.add;
14114: END IF;
14115: RAISE fnd_api.g_exc_error;
14116: END IF;
14117: END IF;
14118: --inv_pp_debug.send_message_to_pipe('finished validations');
14119:
14221: x_msg_data );
14222:
14223: -- log_statement(l_api_name, 'Default Putaway values l_return_status ', l_return_status);
14224:
14225: IF l_return_status = fnd_api.g_ret_sts_error THEN
14226: RAISE fnd_api.g_exc_error ;
14227: -- log_statement(l_api_name, 'ApplyDef()', 'Dest Loct is NUll' );
14228: -- GOTO NextOutputRecord;
14229: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14222:
14223: -- log_statement(l_api_name, 'Default Putaway values l_return_status ', l_return_status);
14224:
14225: IF l_return_status = fnd_api.g_ret_sts_error THEN
14226: RAISE fnd_api.g_exc_error ;
14227: -- log_statement(l_api_name, 'ApplyDef()', 'Dest Loct is NUll' );
14228: -- GOTO NextOutputRecord;
14229: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14230: RAISE fnd_api.g_exc_unexpected_error;
14225: IF l_return_status = fnd_api.g_ret_sts_error THEN
14226: RAISE fnd_api.g_exc_error ;
14227: -- log_statement(l_api_name, 'ApplyDef()', 'Dest Loct is NUll' );
14228: -- GOTO NextOutputRecord;
14229: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14230: RAISE fnd_api.g_exc_unexpected_error;
14231: END IF;
14232:
14233: --log_statement(l_api_name, 'l_to_locator_id',nvl(l_to_locator_id, -9999) );
14226: RAISE fnd_api.g_exc_error ;
14227: -- log_statement(l_api_name, 'ApplyDef()', 'Dest Loct is NUll' );
14228: -- GOTO NextOutputRecord;
14229: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14230: RAISE fnd_api.g_exc_unexpected_error;
14231: END IF;
14232:
14233: --log_statement(l_api_name, 'l_to_locator_id',nvl(l_to_locator_id, -9999) );
14234: IF (l_osubinventory_code is NULL AND x_subinventory_code is not NULL ) then
14311: If l_olocator_id_exist IS NOT NULL THEN
14312: l_olocator_id := l_olocator_id_exist;
14313: ELSE
14314: use_supplied_loc := false;
14315: x_finished := fnd_api.g_false;
14316: If (l_debug = 1) then
14317: log_statement(l_api_name, 'do_project_fail',
14318: 'Do project check failed. Cannot use supplied locator with this Project and Task.');
14319: End if;
14364: END IF;
14365:
14366: IF l_allowed <> 'Y' THEN
14367: use_supplied_loc := false;
14368: x_finished := fnd_api.g_false;
14369: If (l_debug = 1) then
14370: log_event(l_api_name, 'bad_status',
14371: 'This transaction type is not allowed by the status ' ||
14372: 'for the subinventory, locator. ');
14538: ,p_locator_id => l_olocator_id
14539: ,p_lpn_id => NULL
14540: ,p_cost_group_id => l_to_cost_group_id
14541: );
14542: if x_return_status = fnd_api.g_ret_sts_unexp_error then
14543: If (l_debug = 1) then
14544: log_statement(l_api_name, 'uerr_comingle_check',
14545: 'Unexpected error in comingle_check');
14546: End if;
14543: If (l_debug = 1) then
14544: log_statement(l_api_name, 'uerr_comingle_check',
14545: 'Unexpected error in comingle_check');
14546: End if;
14547: RAISE fnd_api.g_exc_unexpected_error;
14548: elsif x_return_status = fnd_api.g_ret_sts_error then
14549: If (l_debug = 1) then
14550: log_statement(l_api_name, 'err_comingle_check',
14551: 'Error in comingle_check');
14544: log_statement(l_api_name, 'uerr_comingle_check',
14545: 'Unexpected error in comingle_check');
14546: End if;
14547: RAISE fnd_api.g_exc_unexpected_error;
14548: elsif x_return_status = fnd_api.g_ret_sts_error then
14549: If (l_debug = 1) then
14550: log_statement(l_api_name, 'err_comingle_check',
14551: 'Error in comingle_check');
14552: End if;
14549: If (l_debug = 1) then
14550: log_statement(l_api_name, 'err_comingle_check',
14551: 'Error in comingle_check');
14552: End if;
14553: RAISE fnd_api.g_exc_error;
14554: end if;
14555:
14556: -- Skip record if it would cause comingling
14557: if l_comingle = 'Y' then
14656:
14657: -- if input line couldn't get satisfied ...
14658: IF l_needed_quantity > 0 THEN
14659: -- notice, that at least one input record couldn't get satisfied
14660: x_finished := fnd_api.g_false;
14661: If (l_debug = 1) then
14662: log_event(l_api_name, 'no_success',
14663: 'Locator supplied could not be used');
14664: End if;
14663: 'Locator supplied could not be used');
14664: End if;
14665:
14666: ELSE
14667: x_finished := fnd_api.g_true;
14668: -- if input line could get satisfied
14669: -- delete the input line in the wms_transactions_temp table
14670: If (l_debug = 1) then
14671: log_statement(l_api_name, 'deleting_input_rec',
14680: END IF;
14681: IF l_debug_on THEN
14682: wms_search_order_globals_pvt.insert_trace_lines(
14683: p_api_version => 1.0
14684: ,p_init_msg_list => fnd_api.g_false
14685: ,p_validation_level => fnd_api.g_valid_level_full
14686: ,x_return_status => l_return_status
14687: ,x_msg_count => x_msg_count
14688: ,x_msg_data => x_msg_data
14681: IF l_debug_on THEN
14682: wms_search_order_globals_pvt.insert_trace_lines(
14683: p_api_version => 1.0
14684: ,p_init_msg_list => fnd_api.g_false
14685: ,p_validation_level => fnd_api.g_valid_level_full
14686: ,x_return_status => l_return_status
14687: ,x_msg_count => x_msg_count
14688: ,x_msg_data => x_msg_data
14689: ,p_header_id => wms_engine_pvt.g_trace_header_id
14694:
14695: END LOOP; -- input records
14696: --
14697: -- Standard check of p_commit
14698: IF fnd_api.to_boolean(p_commit) THEN
14699: COMMIT WORK;
14700: END IF;
14701: --
14702: If (l_debug = 1) then
14704: End if;
14705: l_debug := NULL;
14706: --
14707: EXCEPTION
14708: WHEN fnd_api.g_exc_error THEN
14709:
14710: ROLLBACK TO ApplyRuleSP;
14711: FreeGlobals;
14712: x_return_status := fnd_api.g_ret_sts_error;
14708: WHEN fnd_api.g_exc_error THEN
14709:
14710: ROLLBACK TO ApplyRuleSP;
14711: FreeGlobals;
14712: x_return_status := fnd_api.g_ret_sts_error;
14713: fnd_msg_pub.count_and_get( p_count => x_msg_count
14714: ,p_data => x_msg_data );
14715: If (l_debug = 1) then
14716: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
14716: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
14717: End if;
14718: l_debug := NULL;
14719: --
14720: WHEN fnd_api.g_exc_unexpected_error THEN
14721: ROLLBACK TO ApplyRuleSP;
14722: FreeGlobals;
14723: x_return_status := fnd_api.g_ret_sts_unexp_error;
14724: fnd_msg_pub.count_and_get( p_count => x_msg_count
14719: --
14720: WHEN fnd_api.g_exc_unexpected_error THEN
14721: ROLLBACK TO ApplyRuleSP;
14722: FreeGlobals;
14723: x_return_status := fnd_api.g_ret_sts_unexp_error;
14724: fnd_msg_pub.count_and_get( p_count => x_msg_count
14725: ,p_data => x_msg_data );
14726: If (l_debug = 1) then
14727: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
14731: WHEN OTHERS THEN
14732:
14733: ROLLBACK TO ApplyRuleSP;
14734: FreeGlobals;
14735: x_return_status := fnd_api.g_ret_sts_unexp_error;
14736: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14737: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
14738: END IF;
14739: fnd_msg_pub.count_and_get( p_count => x_msg_count
14788: --
14789: BEGIN
14790: --
14791: -- Standard call to check for call compatibility
14792: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
14793: RAISE fnd_api.g_exc_unexpected_error;
14794: END IF;
14795:
14796: -- Initialize message list if p_init_msg_list is set to TRUE
14789: BEGIN
14790: --
14791: -- Standard call to check for call compatibility
14792: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
14793: RAISE fnd_api.g_exc_unexpected_error;
14794: END IF;
14795:
14796: -- Initialize message list if p_init_msg_list is set to TRUE
14797: IF fnd_api.to_boolean(p_init_msg_list) THEN
14793: RAISE fnd_api.g_exc_unexpected_error;
14794: END IF;
14795:
14796: -- Initialize message list if p_init_msg_list is set to TRUE
14797: IF fnd_api.to_boolean(p_init_msg_list) THEN
14798: fnd_msg_pub.initialize;
14799: END IF;
14800:
14801: --
14799: END IF;
14800:
14801: --
14802: -- Initialize API return status to success
14803: x_return_status := fnd_api.g_ret_sts_success;
14804: generaterulepackage(p_api_version, p_init_msg_list, p_validation_level, x_return_status, x_msg_count, x_msg_data, p_rule_id);
14805:
14806: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14807: RAISE fnd_api.g_exc_unexpected_error;
14802: -- Initialize API return status to success
14803: x_return_status := fnd_api.g_ret_sts_success;
14804: generaterulepackage(p_api_version, p_init_msg_list, p_validation_level, x_return_status, x_msg_count, x_msg_data, p_rule_id);
14805:
14806: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14807: RAISE fnd_api.g_exc_unexpected_error;
14808: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14809: RAISE fnd_api.g_exc_error;
14810: END IF;
14803: x_return_status := fnd_api.g_ret_sts_success;
14804: generaterulepackage(p_api_version, p_init_msg_list, p_validation_level, x_return_status, x_msg_count, x_msg_data, p_rule_id);
14805:
14806: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14807: RAISE fnd_api.g_exc_unexpected_error;
14808: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14809: RAISE fnd_api.g_exc_error;
14810: END IF;
14811:
14804: generaterulepackage(p_api_version, p_init_msg_list, p_validation_level, x_return_status, x_msg_count, x_msg_data, p_rule_id);
14805:
14806: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14807: RAISE fnd_api.g_exc_unexpected_error;
14808: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14809: RAISE fnd_api.g_exc_error;
14810: END IF;
14811:
14812: EXCEPTION
14805:
14806: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14807: RAISE fnd_api.g_exc_unexpected_error;
14808: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14809: RAISE fnd_api.g_exc_error;
14810: END IF;
14811:
14812: EXCEPTION
14813: WHEN fnd_api.g_exc_error THEN
14809: RAISE fnd_api.g_exc_error;
14810: END IF;
14811:
14812: EXCEPTION
14813: WHEN fnd_api.g_exc_error THEN
14814: --
14815: x_return_status := fnd_api.g_ret_sts_error;
14816: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14817: --
14811:
14812: EXCEPTION
14813: WHEN fnd_api.g_exc_error THEN
14814: --
14815: x_return_status := fnd_api.g_ret_sts_error;
14816: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14817: --
14818: WHEN fnd_api.g_exc_unexpected_error THEN
14819: x_return_status := fnd_api.g_ret_sts_unexp_error;
14814: --
14815: x_return_status := fnd_api.g_ret_sts_error;
14816: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14817: --
14818: WHEN fnd_api.g_exc_unexpected_error THEN
14819: x_return_status := fnd_api.g_ret_sts_unexp_error;
14820: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14821: --
14822: WHEN OTHERS THEN
14815: x_return_status := fnd_api.g_ret_sts_error;
14816: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14817: --
14818: WHEN fnd_api.g_exc_unexpected_error THEN
14819: x_return_status := fnd_api.g_ret_sts_unexp_error;
14820: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14821: --
14822: WHEN OTHERS THEN
14823: freeglobals;
14820: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14821: --
14822: WHEN OTHERS THEN
14823: freeglobals;
14824: x_return_status := fnd_api.g_ret_sts_unexp_error;
14825:
14826: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14827: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
14828: END IF;
14911:
14912: CLOSE l_cur;
14913: --
14914: EXCEPTION
14915: WHEN fnd_api.g_exc_error THEN
14916: x_return_status := fnd_api.g_ret_sts_error;
14917: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14918: --
14919: WHEN fnd_api.g_exc_unexpected_error THEN
14912: CLOSE l_cur;
14913: --
14914: EXCEPTION
14915: WHEN fnd_api.g_exc_error THEN
14916: x_return_status := fnd_api.g_ret_sts_error;
14917: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14918: --
14919: WHEN fnd_api.g_exc_unexpected_error THEN
14920: x_return_status := fnd_api.g_ret_sts_unexp_error;
14915: WHEN fnd_api.g_exc_error THEN
14916: x_return_status := fnd_api.g_ret_sts_error;
14917: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14918: --
14919: WHEN fnd_api.g_exc_unexpected_error THEN
14920: x_return_status := fnd_api.g_ret_sts_unexp_error;
14921: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14922: --
14923: WHEN OTHERS THEN
14916: x_return_status := fnd_api.g_ret_sts_error;
14917: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14918: --
14919: WHEN fnd_api.g_exc_unexpected_error THEN
14920: x_return_status := fnd_api.g_ret_sts_unexp_error;
14921: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14922: --
14923: WHEN OTHERS THEN
14924: x_return_status := fnd_api.g_ret_sts_unexp_error;
14920: x_return_status := fnd_api.g_ret_sts_unexp_error;
14921: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14922: --
14923: WHEN OTHERS THEN
14924: x_return_status := fnd_api.g_ret_sts_unexp_error;
14925:
14926: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14927: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
14928: END IF;
15025: AND status <> 'VALID'
15026: AND rownum = 1;
15027:
15028: BEGIN
15029: x_return_status := fnd_api.g_ret_sts_unexp_error;
15030:
15031: if ad_zd.get_edition('PATCH') is not null then
15032: -- an online patch is in progress, return error
15033: fnd_message.set_name('FND', 'AD_ZD_DISABLED_FEATURE');
15032: -- an online patch is in progress, return error
15033: fnd_message.set_name('FND', 'AD_ZD_DISABLED_FEATURE');
15034: -- bug#13565649 raise_application_error ('-20000', fnd_message.get);
15035: fnd_msg_pub.ADD; -- bug#13565649
15036: RAISE fnd_api.g_exc_error; -- bug#13565649
15037: end if;
15038:
15039: --open cursor
15040: l_cursor := DBMS_SQL.open_cursor;
15051: ,industry => l_industry
15052: ,oracle_schema => l_schema
15053: );
15054: IF l_return = FALSE THEN
15055: RAISE fnd_api.g_exc_error;
15056: END IF;
15057:
15058: --Call create package
15059: ad_ddl.create_plsql_object(
15066: ,comp_error => l_comp_error
15067: );
15068:
15069: IF l_comp_error = 'TRUE' THEN
15070: RAISE fnd_api.g_exc_error;
15071: END IF;
15072: */
15073: --Check status, return error if package that was created
15074: -- is invalid
15076: OPEN c_package_body_status;
15077: FETCH c_package_body_status INTO l_error;
15078:
15079: IF c_package_body_status%FOUND THEN
15080: x_return_status := fnd_api.g_ret_sts_unexp_error;
15081: ELSE
15082: x_return_status := fnd_api.g_ret_sts_success;
15083: END IF;
15084:
15078:
15079: IF c_package_body_status%FOUND THEN
15080: x_return_status := fnd_api.g_ret_sts_unexp_error;
15081: ELSE
15082: x_return_status := fnd_api.g_ret_sts_success;
15083: END IF;
15084:
15085: CLOSE c_package_body_status;
15086: ELSE
15087: OPEN c_package_status;
15088: FETCH c_package_status INTO l_error;
15089:
15090: IF c_package_status%FOUND THEN
15091: x_return_status := fnd_api.g_ret_sts_unexp_error;
15092: ELSE
15093: x_return_status := fnd_api.g_ret_sts_success;
15094: END IF;
15095:
15089:
15090: IF c_package_status%FOUND THEN
15091: x_return_status := fnd_api.g_ret_sts_unexp_error;
15092: ELSE
15093: x_return_status := fnd_api.g_ret_sts_success;
15094: END IF;
15095:
15096: CLOSE c_package_status;
15097: END IF;
15095:
15096: CLOSE c_package_status;
15097: END IF;
15098: EXCEPTION
15099: WHEN fnd_api.g_exc_error THEN --added for bug#13565649
15100: x_return_status := fnd_api.g_ret_sts_error;
15101: WHEN OTHERS THEN
15102: x_return_status := fnd_api.g_ret_sts_unexp_error;
15103: END createpackage;
15096: CLOSE c_package_status;
15097: END IF;
15098: EXCEPTION
15099: WHEN fnd_api.g_exc_error THEN --added for bug#13565649
15100: x_return_status := fnd_api.g_ret_sts_error;
15101: WHEN OTHERS THEN
15102: x_return_status := fnd_api.g_ret_sts_unexp_error;
15103: END createpackage;
15104:
15098: EXCEPTION
15099: WHEN fnd_api.g_exc_error THEN --added for bug#13565649
15100: x_return_status := fnd_api.g_ret_sts_error;
15101: WHEN OTHERS THEN
15102: x_return_status := fnd_api.g_ret_sts_unexp_error;
15103: END createpackage;
15104:
15105: -- API name : GenerateRulePackage
15106: -- Type : Private
15178: --
15179: BEGIN
15180: --
15181: -- Standard call to check for call compatibility
15182: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
15183: RAISE fnd_api.g_exc_unexpected_error;
15184: END IF;
15185:
15186: --
15179: BEGIN
15180: --
15181: -- Standard call to check for call compatibility
15182: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
15183: RAISE fnd_api.g_exc_unexpected_error;
15184: END IF;
15185:
15186: --
15187: -- Initialize message list if p_init_msg_list is set to TRUE
15184: END IF;
15185:
15186: --
15187: -- Initialize message list if p_init_msg_list is set to TRUE
15188: IF fnd_api.to_boolean(p_init_msg_list) THEN
15189: fnd_msg_pub.initialize;
15190: END IF;
15191:
15192: --
15190: END IF;
15191:
15192: --
15193: -- Initialize API return status to success
15194: x_return_status := fnd_api.g_ret_sts_success;
15195:
15196: log_procedure(l_api_name, 'start', 'Start GenerateRulePackage');
15197:
15198: -- end of debugging section
15197:
15198: -- end of debugging section
15199: --
15200: -- Validate input parameter, if validation level requires this
15201: IF p_validation_level <> fnd_api.g_valid_level_none THEN
15202: IF p_rule_id IS NULL
15203: OR p_rule_id = fnd_api.g_miss_num THEN
15204: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
15205: fnd_message.set_name('WMS', 'WMS_RULE_ID_MISSING');
15199: --
15200: -- Validate input parameter, if validation level requires this
15201: IF p_validation_level <> fnd_api.g_valid_level_none THEN
15202: IF p_rule_id IS NULL
15203: OR p_rule_id = fnd_api.g_miss_num THEN
15204: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
15205: fnd_message.set_name('WMS', 'WMS_RULE_ID_MISSING');
15206: log_error_msg(l_api_name, 'rule_id_missing');
15207: fnd_msg_pub.ADD;
15206: log_error_msg(l_api_name, 'rule_id_missing');
15207: fnd_msg_pub.ADD;
15208: END IF;
15209:
15210: RAISE fnd_api.g_exc_error;
15211: END IF;
15212: END IF;
15213:
15214: --
15247: OR l_type_code = 2 THEN
15248: -- Build the base part of the SQL statement
15249: buildbasesql(x_return_status, x_msg_count, x_msg_data, l_type_code, l_allocation_mode_id);
15250:
15251: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15252: RAISE fnd_api.g_exc_unexpected_error;
15253: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15254: RAISE fnd_api.g_exc_error;
15255: END IF;
15248: -- Build the base part of the SQL statement
15249: buildbasesql(x_return_status, x_msg_count, x_msg_data, l_type_code, l_allocation_mode_id);
15250:
15251: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15252: RAISE fnd_api.g_exc_unexpected_error;
15253: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15254: RAISE fnd_api.g_exc_error;
15255: END IF;
15256:
15249: buildbasesql(x_return_status, x_msg_count, x_msg_data, l_type_code, l_allocation_mode_id);
15250:
15251: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15252: RAISE fnd_api.g_exc_unexpected_error;
15253: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15254: RAISE fnd_api.g_exc_error;
15255: END IF;
15256:
15257: -- Build the input parameter dependent part of the SQL statement
15250:
15251: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15252: RAISE fnd_api.g_exc_unexpected_error;
15253: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15254: RAISE fnd_api.g_exc_error;
15255: END IF;
15256:
15257: -- Build the input parameter dependent part of the SQL statement
15258: buildinputsql(x_return_status, x_msg_count, x_msg_data, l_type_code);
15257: -- Build the input parameter dependent part of the SQL statement
15258: buildinputsql(x_return_status, x_msg_count, x_msg_data, l_type_code);
15259:
15260: --
15261: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15262: RAISE fnd_api.g_exc_unexpected_error;
15263: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15264: RAISE fnd_api.g_exc_error;
15265: END IF;
15258: buildinputsql(x_return_status, x_msg_count, x_msg_data, l_type_code);
15259:
15260: --
15261: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15262: RAISE fnd_api.g_exc_unexpected_error;
15263: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15264: RAISE fnd_api.g_exc_error;
15265: END IF;
15266: END IF;
15259:
15260: --
15261: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15262: RAISE fnd_api.g_exc_unexpected_error;
15263: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15264: RAISE fnd_api.g_exc_error;
15265: END IF;
15266: END IF;
15267:
15260: --
15261: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15262: RAISE fnd_api.g_exc_unexpected_error;
15263: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15264: RAISE fnd_api.g_exc_error;
15265: END IF;
15266: END IF;
15267:
15268: -- Build the rule dependent part of the SQL statement.
15269: -- Happens for rules of all type
15270: buildrulesql(x_return_status, x_msg_count, x_msg_data, p_rule_id, l_type_code, l_allocation_mode_id);
15271:
15272: --
15273: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15274: RAISE fnd_api.g_exc_unexpected_error;
15275: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15276: RAISE fnd_api.g_exc_error;
15277: END IF;
15270: buildrulesql(x_return_status, x_msg_count, x_msg_data, p_rule_id, l_type_code, l_allocation_mode_id);
15271:
15272: --
15273: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15274: RAISE fnd_api.g_exc_unexpected_error;
15275: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15276: RAISE fnd_api.g_exc_error;
15277: END IF;
15278:
15271:
15272: --
15273: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15274: RAISE fnd_api.g_exc_unexpected_error;
15275: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15276: RAISE fnd_api.g_exc_error;
15277: END IF;
15278:
15279: --
15272: --
15273: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15274: RAISE fnd_api.g_exc_unexpected_error;
15275: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15276: RAISE fnd_api.g_exc_error;
15277: END IF;
15278:
15279: --
15280:
15412: buildpackage(l_pack_sql);
15413: --create the package spec
15414: createpackage(x_return_status, l_package_name, FALSE);
15415:
15416: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15417: RAISE fnd_api.g_exc_unexpected_error;
15418: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15419: RAISE fnd_api.g_exc_error;
15420: END IF;
15413: --create the package spec
15414: createpackage(x_return_status, l_package_name, FALSE);
15415:
15416: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15417: RAISE fnd_api.g_exc_unexpected_error;
15418: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15419: RAISE fnd_api.g_exc_error;
15420: END IF;
15421:
15414: createpackage(x_return_status, l_package_name, FALSE);
15415:
15416: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15417: RAISE fnd_api.g_exc_unexpected_error;
15418: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15419: RAISE fnd_api.g_exc_error;
15420: END IF;
15421:
15422: --re initialize global variables
15415:
15416: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15417: RAISE fnd_api.g_exc_unexpected_error;
15418: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15419: RAISE fnd_api.g_exc_error;
15420: END IF;
15421:
15422: --re initialize global variables
15423: initbuildpackage;
15478: --dbms_sql.close_cursor(l_cursor);
15479: buildpackage(l_pack_sql);
15480: createpackage(x_return_status, l_package_name, FALSE);
15481:
15482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15483: RAISE fnd_api.g_exc_unexpected_error;
15484: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15485: RAISE fnd_api.g_exc_error;
15486: END IF;
15479: buildpackage(l_pack_sql);
15480: createpackage(x_return_status, l_package_name, FALSE);
15481:
15482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15483: RAISE fnd_api.g_exc_unexpected_error;
15484: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15485: RAISE fnd_api.g_exc_error;
15486: END IF;
15487:
15480: createpackage(x_return_status, l_package_name, FALSE);
15481:
15482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15483: RAISE fnd_api.g_exc_unexpected_error;
15484: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15485: RAISE fnd_api.g_exc_error;
15486: END IF;
15487:
15488: initbuildpackage;
15481:
15482: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15483: RAISE fnd_api.g_exc_unexpected_error;
15484: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15485: RAISE fnd_api.g_exc_error;
15486: END IF;
15487:
15488: initbuildpackage;
15489: --inv_pp_debug.send_long_to_pipe(g_stmt);
15542: --dbms_sql.close_cursor(l_cursor);
15543: buildpackage(l_pack_sql);
15544: createpackage(x_return_status, l_package_name, FALSE);
15545:
15546: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15547: RAISE fnd_api.g_exc_unexpected_error;
15548: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15549: RAISE fnd_api.g_exc_error;
15550: END IF;
15543: buildpackage(l_pack_sql);
15544: createpackage(x_return_status, l_package_name, FALSE);
15545:
15546: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15547: RAISE fnd_api.g_exc_unexpected_error;
15548: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15549: RAISE fnd_api.g_exc_error;
15550: END IF;
15551:
15544: createpackage(x_return_status, l_package_name, FALSE);
15545:
15546: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15547: RAISE fnd_api.g_exc_unexpected_error;
15548: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15549: RAISE fnd_api.g_exc_error;
15550: END IF;
15551:
15552: initbuildpackage;
15545:
15546: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15547: RAISE fnd_api.g_exc_unexpected_error;
15548: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15549: RAISE fnd_api.g_exc_error;
15550: END IF;
15551:
15552: initbuildpackage;
15553: --inv_pp_debug.send_long_to_pipe(g_stmt);
15609: --dbms_sql.close_cursor(l_cursor);
15610: buildpackage(l_pack_sql);
15611: createpackage(x_return_status, l_package_name, FALSE);
15612:
15613: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15614: RAISE fnd_api.g_exc_unexpected_error;
15615: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15616: RAISE fnd_api.g_exc_error;
15617: END IF;
15610: buildpackage(l_pack_sql);
15611: createpackage(x_return_status, l_package_name, FALSE);
15612:
15613: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15614: RAISE fnd_api.g_exc_unexpected_error;
15615: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15616: RAISE fnd_api.g_exc_error;
15617: END IF;
15618:
15611: createpackage(x_return_status, l_package_name, FALSE);
15612:
15613: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15614: RAISE fnd_api.g_exc_unexpected_error;
15615: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15616: RAISE fnd_api.g_exc_error;
15617: END IF;
15618:
15619: initbuildpackage;
15612:
15613: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15614: RAISE fnd_api.g_exc_unexpected_error;
15615: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15616: RAISE fnd_api.g_exc_error;
15617: END IF;
15618:
15619: initbuildpackage;
15620: --inv_pp_debug.send_long_to_pipe(g_stmt);
15715: --dbms_sql.close_cursor(l_cursor);
15716: buildpackage(l_pack_sql);
15717: createpackage(x_return_status, l_package_name, FALSE);
15718:
15719: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15720: RAISE fnd_api.g_exc_unexpected_error;
15721: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15722: RAISE fnd_api.g_exc_error;
15723: END IF;
15716: buildpackage(l_pack_sql);
15717: createpackage(x_return_status, l_package_name, FALSE);
15718:
15719: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15720: RAISE fnd_api.g_exc_unexpected_error;
15721: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15722: RAISE fnd_api.g_exc_error;
15723: END IF;
15724:
15717: createpackage(x_return_status, l_package_name, FALSE);
15718:
15719: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15720: RAISE fnd_api.g_exc_unexpected_error;
15721: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15722: RAISE fnd_api.g_exc_error;
15723: END IF;
15724:
15725: initbuildpackage;
15718:
15719: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
15720: RAISE fnd_api.g_exc_unexpected_error;
15721: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
15722: RAISE fnd_api.g_exc_error;
15723: END IF;
15724:
15725: initbuildpackage;
15726: -- inv_pp_debug.send_long_to_pipe(g_stmt_serial_detail);
16070: --dbms_sql.close_cursor(l_cursor);
16071: buildpackage(l_pack_sql);
16072: createpackage(x_return_status, l_package_name, FALSE);
16073:
16074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16075: RAISE fnd_api.g_exc_unexpected_error;
16076: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16077: RAISE fnd_api.g_exc_error;
16078: END IF;
16071: buildpackage(l_pack_sql);
16072: createpackage(x_return_status, l_package_name, FALSE);
16073:
16074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16075: RAISE fnd_api.g_exc_unexpected_error;
16076: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16077: RAISE fnd_api.g_exc_error;
16078: END IF;
16079:
16072: createpackage(x_return_status, l_package_name, FALSE);
16073:
16074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16075: RAISE fnd_api.g_exc_unexpected_error;
16076: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16077: RAISE fnd_api.g_exc_error;
16078: END IF;
16079:
16080: initbuildpackage;
16073:
16074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16075: RAISE fnd_api.g_exc_unexpected_error;
16076: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16077: RAISE fnd_api.g_exc_error;
16078: END IF;
16079:
16080: initbuildpackage;
16081: -- inv_pp_debug.send_long_to_pipe(g_stmt_serial_detail);
16289: -- CreatePackage to generate package body
16290: buildpackage(l_pack_body_sql);
16291: createpackage(x_return_status, l_package_name, TRUE);
16292:
16293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16294: RAISE fnd_api.g_exc_unexpected_error;
16295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16296: RAISE fnd_api.g_exc_error;
16297: END IF;
16290: buildpackage(l_pack_body_sql);
16291: createpackage(x_return_status, l_package_name, TRUE);
16292:
16293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16294: RAISE fnd_api.g_exc_unexpected_error;
16295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16296: RAISE fnd_api.g_exc_error;
16297: END IF;
16298:
16291: createpackage(x_return_status, l_package_name, TRUE);
16292:
16293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16294: RAISE fnd_api.g_exc_unexpected_error;
16295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16296: RAISE fnd_api.g_exc_error;
16297: END IF;
16298:
16299: initbuildpackage;
16292:
16293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
16294: RAISE fnd_api.g_exc_unexpected_error;
16295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
16296: RAISE fnd_api.g_exc_error;
16297: END IF;
16298:
16299: initbuildpackage;
16300: -- inv_pp_debug.send_long_to_pipe(l_pack_body_sql);
16328: -- end of debugging section
16329: log_procedure(l_api_name, 'end', 'End GenerateRulePackage');
16330: --
16331: EXCEPTION
16332: WHEN fnd_api.g_exc_error THEN
16333: --
16334: -- debugging portion
16335: -- can be commented ut for final code
16336: IF inv_pp_debug.is_debug_mode THEN
16347: DBMS_SQL.close_cursor(l_cursor);
16348: END IF;
16349:
16350: freeglobals;
16351: x_return_status := fnd_api.g_ret_sts_error;
16352: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16353: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
16354: --
16355: WHEN fnd_api.g_exc_unexpected_error THEN
16351: x_return_status := fnd_api.g_ret_sts_error;
16352: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16353: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
16354: --
16355: WHEN fnd_api.g_exc_unexpected_error THEN
16356: --
16357: -- debugging portion
16358: -- can be commented ut for final code
16359: IF inv_pp_debug.is_debug_mode THEN
16372:
16373: freeglobals;
16374: fnd_message.set_name('WMS', 'WMS_PACKAGE_GEN_FAILED');
16375: fnd_msg_pub.ADD;
16376: x_return_status := fnd_api.g_ret_sts_unexp_error;
16377: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16378: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
16379: --
16380: WHEN OTHERS THEN
16401:
16402: freeglobals;
16403: fnd_message.set_name('WMS', 'WMS_PACKAGE_GEN_FAILED');
16404: fnd_msg_pub.ADD;
16405: x_return_status := fnd_api.g_ret_sts_unexp_error;
16406:
16407: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16408: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16409: END IF;
16454: l_api_name VARCHAR2(30) := 'assign_operation_plans';
16455: l_count NUMBER;
16456: BEGIN
16457: -- Initialize API return status to success
16458: x_return_status := fnd_api.g_ret_sts_success;
16459:
16460: -- Bug# 4587423
16461: -- See if there are any enabled rules for Operation Plan Selection.
16462: l_count := 0;
16510: x_msg_data => l_msg_data
16511: );
16512: end if;
16513:
16514: IF l_return_status <> fnd_api.g_ret_sts_success THEN
16515: x_return_status := fnd_api.g_ret_sts_error;
16516: END IF;
16517: END LOOP;
16518:
16511: );
16512: end if;
16513:
16514: IF l_return_status <> fnd_api.g_ret_sts_success THEN
16515: x_return_status := fnd_api.g_ret_sts_error;
16516: END IF;
16517: END LOOP;
16518:
16519: CLOSE c_tasks;
16535: END IF;
16536:
16537: EXCEPTION
16538: WHEN OTHERS THEN
16539: x_return_status := fnd_api.g_ret_sts_unexp_error;
16540: END assign_operation_plans;
16541:
16542: --
16543: -- API name : Assign Operation Plan
16614: BEGIN
16615: SAVEPOINT assign_operation_plan_sp;
16616:
16617: -- Standard call to check for call compatibility
16618: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
16619: RAISE fnd_api.g_exc_unexpected_error;
16620: END IF;
16621:
16622: -- Initialize message list if p_init_msg_list is set to TRUE
16615: SAVEPOINT assign_operation_plan_sp;
16616:
16617: -- Standard call to check for call compatibility
16618: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
16619: RAISE fnd_api.g_exc_unexpected_error;
16620: END IF;
16621:
16622: -- Initialize message list if p_init_msg_list is set to TRUE
16623: IF fnd_api.to_boolean(p_init_msg_list) THEN
16619: RAISE fnd_api.g_exc_unexpected_error;
16620: END IF;
16621:
16622: -- Initialize message list if p_init_msg_list is set to TRUE
16623: IF fnd_api.to_boolean(p_init_msg_list) THEN
16624: fnd_msg_pub.initialize;
16625: END IF;
16626:
16627: --
16625: END IF;
16626:
16627: --
16628: -- Initialize API return status to success
16629: x_return_status := fnd_api.g_ret_sts_success;
16630:
16631: -- Validate input parameters and pre-requisites, if validation level
16632: -- requires this
16633: IF p_validation_level <> fnd_api.g_valid_level_none THEN
16629: x_return_status := fnd_api.g_ret_sts_success;
16630:
16631: -- Validate input parameters and pre-requisites, if validation level
16632: -- requires this
16633: IF p_validation_level <> fnd_api.g_valid_level_none THEN
16634: -- in case further needs for validation
16635: NULL;
16636: END IF;
16637:
16653: fnd_message.set_token('RULEID', l_rule_id);
16654: fnd_msg_pub.ADD;
16655: log_error_msg(l_api_name, 'rule_package_missing');
16656: log_statement(l_api_name, 'pack_name', 'Package name: ' || l_package_name);
16657: RAISE fnd_api.g_exc_unexpected_error;
16658: ELSIF l_return_status <> -1 THEN
16659: EXIT;
16660: END IF;
16661: END LOOP;
16672:
16673: EXIT; -- operation plan assigned, jump out of the rule loop
16674: END IF; -- l_return_status > 0
16675: EXCEPTION -- handle exceptions for matching one rule
16676: WHEN fnd_api.g_exc_error THEN
16677: NULL;
16678: WHEN OTHERS THEN
16679: NULL;
16680: END; -- end matching one rule
16715: WHERE mmtt.transaction_temp_id = p_task_id;
16716: END IF;
16717:
16718: -- Standard check of p_commit
16719: IF fnd_api.to_boolean(p_commit) THEN
16720: COMMIT WORK;
16721: END IF;
16722: EXCEPTION
16723: WHEN fnd_api.g_exc_error THEN
16719: IF fnd_api.to_boolean(p_commit) THEN
16720: COMMIT WORK;
16721: END IF;
16722: EXCEPTION
16723: WHEN fnd_api.g_exc_error THEN
16724: -- if the rule package not created yet, close the rule cursor
16725: IF c_rules%ISOPEN THEN
16726: CLOSE c_rules;
16727: END IF;
16727: END IF;
16728:
16729: ROLLBACK TO assign_operation_plan_sp;
16730: freeglobals;
16731: x_return_status := fnd_api.g_ret_sts_error;
16732:
16733: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16734: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16735: END IF;
16737: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16738: WHEN OTHERS THEN
16739: ROLLBACK TO assign_operation_plan_sp;
16740: freeglobals;
16741: x_return_status := fnd_api.g_ret_sts_unexp_error;
16742:
16743: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16744: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16745: END IF;
16795: l_api_name VARCHAR2(30) := 'assignTTs';
16796: l_count NUMBER;
16797: BEGIN
16798: -- Initialize API return status to success
16799: x_return_status := fnd_api.g_ret_sts_success;
16800:
16801: -- Bug# 4587423
16802: -- See if there are any enabled rules for Task Type Assignment for
16803: -- all orgs or for the orgs in the set of MMTT records for the given move order header.
16837: x_msg_count => l_msg_count,
16838: x_msg_data => l_msg_data
16839: );
16840:
16841: IF l_return_status <> fnd_api.g_ret_sts_success THEN
16842: x_return_status := fnd_api.g_ret_sts_error;
16843: END IF;
16844: END LOOP;
16845:
16838: x_msg_data => l_msg_data
16839: );
16840:
16841: IF l_return_status <> fnd_api.g_ret_sts_success THEN
16842: x_return_status := fnd_api.g_ret_sts_error;
16843: END IF;
16844: END LOOP;
16845:
16846: CLOSE c_tasks;
16865: END IF;
16866:
16867: EXCEPTION
16868: WHEN OTHERS THEN
16869: x_return_status := fnd_api.g_ret_sts_unexp_error;
16870: END assigntts;
16871:
16872: --
16873: -- API name : AssignTT
16988: END IF;
16989: l_debug := g_debug;
16990:
16991: -- Standard call to check for call compatibility
16992: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
16993: RAISE fnd_api.g_exc_unexpected_error;
16994: END IF;
16995:
16996: -- Initialize message list if p_init_msg_list is set to TRUE
16989: l_debug := g_debug;
16990:
16991: -- Standard call to check for call compatibility
16992: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
16993: RAISE fnd_api.g_exc_unexpected_error;
16994: END IF;
16995:
16996: -- Initialize message list if p_init_msg_list is set to TRUE
16997: IF fnd_api.to_boolean(p_init_msg_list) THEN
16993: RAISE fnd_api.g_exc_unexpected_error;
16994: END IF;
16995:
16996: -- Initialize message list if p_init_msg_list is set to TRUE
16997: IF fnd_api.to_boolean(p_init_msg_list) THEN
16998: fnd_msg_pub.initialize;
16999: END IF;
17000:
17001: --
16999: END IF;
17000:
17001: --
17002: -- Initialize API return status to success
17003: x_return_status := fnd_api.g_ret_sts_success;
17004:
17005: -- Validate input parameters and pre-requisites, if validation level
17006: -- requires this
17007: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17003: x_return_status := fnd_api.g_ret_sts_success;
17004:
17005: -- Validate input parameters and pre-requisites, if validation level
17006: -- requires this
17007: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17008: -- in case further needs for validation
17009: NULL;
17010: END IF;
17011:
17038: IF l_debug = 1 THEN
17039: log_error_msg(l_api_name, 'rule_package_missing');
17040: log_statement(l_api_name, 'pack_name', 'Package name: ' || l_package_name);
17041: END IF;
17042: RAISE fnd_api.g_exc_unexpected_error;
17043: ELSIF l_return_status <> -1 THEN
17044: EXIT;
17045: END IF;
17046: END LOOP;
17066:
17067: EXIT; -- task assigned, jump out of the rule loop
17068: END IF; -- l_return_status > 0
17069: EXCEPTION -- handle exceptions for matching one rule
17070: WHEN fnd_api.g_exc_error THEN
17071: NULL;
17072: WHEN OTHERS THEN
17073: NULL;
17074: END; -- end matching one rule
17153: --inv_log_util.TRACE('after update statement: standard_operation_id:'||jxlu_soi, 'RULE_ENGINE', 4);
17154: END IF;
17155:
17156: -- Standard check of p_commit
17157: IF fnd_api.to_boolean(p_commit) THEN
17158: COMMIT WORK;
17159: END IF;
17160: EXCEPTION
17161: WHEN fnd_api.g_exc_error THEN
17157: IF fnd_api.to_boolean(p_commit) THEN
17158: COMMIT WORK;
17159: END IF;
17160: EXCEPTION
17161: WHEN fnd_api.g_exc_error THEN
17162: -- if the rule package not created yet, close the rule cursor
17163: IF c_rules%ISOPEN THEN
17164: CLOSE c_rules;
17165: END IF;
17165: END IF;
17166:
17167: ROLLBACK TO assignttsp;
17168: freeglobals;
17169: x_return_status := fnd_api.g_ret_sts_error;
17170:
17171: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17172: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17173: END IF;
17175: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17176: WHEN OTHERS THEN
17177: ROLLBACK TO assignttsp;
17178: freeglobals;
17179: x_return_status := fnd_api.g_ret_sts_unexp_error;
17180:
17181: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17182: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17183: END IF;
17341: TRACE('Number of rules to process(LL_CTR) :' || ll_ctr);
17342: END IF;
17343:
17344: -- Standard call to check for call compatibility
17345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
17346: RAISE fnd_api.g_exc_unexpected_error;
17347: END IF;
17348:
17349: -- Initialize message list if p_init_msg_list is set to TRUE
17342: END IF;
17343:
17344: -- Standard call to check for call compatibility
17345: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
17346: RAISE fnd_api.g_exc_unexpected_error;
17347: END IF;
17348:
17349: -- Initialize message list if p_init_msg_list is set to TRUE
17350: IF fnd_api.to_boolean(p_init_msg_list) THEN
17346: RAISE fnd_api.g_exc_unexpected_error;
17347: END IF;
17348:
17349: -- Initialize message list if p_init_msg_list is set to TRUE
17350: IF fnd_api.to_boolean(p_init_msg_list) THEN
17351: fnd_msg_pub.initialize;
17352: END IF;
17353:
17354: --
17352: END IF;
17353:
17354: --
17355: -- Initialize API return status to success
17356: x_return_status := fnd_api.g_ret_sts_success;
17357:
17358: -- Validate input parameters and pre-requisites, if validation level
17359: -- requires this
17360: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17356: x_return_status := fnd_api.g_ret_sts_success;
17357:
17358: -- Validate input parameters and pre-requisites, if validation level
17359: -- requires this
17360: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17361: -- in case further needs for validation
17362: NULL;
17363: END IF;
17364:
17374: TRACE('Invalid Label Request Id : '|| p_label_request_id);
17375: END IF;
17376: fnd_message.set_name('WMS', 'INVALID_LABEL_REQ');
17377: fnd_msg_pub.ADD;
17378: RAISE fnd_api.g_exc_error;
17379: END IF;
17380:
17381: CLOSE l_label_requests_curs;
17382:
17411: IF l_debug = 1 THEN
17412: log_error_msg(l_api_name, 'rule_package_missing');
17413: log_error(l_api_name, 'Rule missing in the list pkg', 'l_rule_id ' || l_rule_id);
17414: END IF;
17415: RAISE fnd_api.g_exc_unexpected_error;
17416: ELSIF l_return_status <> -1 THEN
17417: EXIT;
17418: END IF;
17419: END LOOP;
17482: x_label_format_id := l_label_format_id;
17483: x_label_format_name := l_label_format_name;
17484:
17485: -- Standard check of p_commit
17486: IF fnd_api.to_boolean(p_commit) THEN
17487: COMMIT WORK;
17488: END IF;
17489: EXCEPTION
17490: WHEN fnd_api.g_exc_error THEN
17486: IF fnd_api.to_boolean(p_commit) THEN
17487: COMMIT WORK;
17488: END IF;
17489: EXCEPTION
17490: WHEN fnd_api.g_exc_error THEN
17491: -- if the rule package not created yet, close the rule cursor
17492: IF c_rules%ISOPEN THEN
17493: CLOSE c_rules;
17494: END IF;
17494: END IF;
17495:
17496: ROLLBACK TO assignlabelsp;
17497: freeglobals;
17498: x_return_status := fnd_api.g_ret_sts_error;
17499: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17500: WHEN OTHERS THEN
17501: l_msg_data := SQLERRM;
17502: IF l_debug = 1 THEN
17503: TRACE('EXCEPTION OTHERS: '|| l_msg_data);
17504: END IF;
17505: ROLLBACK TO assignlabelsp;
17506: freeglobals;
17507: x_return_status := fnd_api.g_ret_sts_unexp_error;
17508: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17509: END applylabel;
17510:
17511: PROCEDURE get_wms_sys_task_type(
17574: EXIT WHEN l_enabled_rules%NOTFOUND;
17575: --fnd_file.put_line(fnd_file.LOG, 'Compiling Rule ID= ' || l_rule_id);
17576: wms_rule_pvt.generaterulepackage(
17577: p_api_version => 1.0
17578: , p_init_msg_list => fnd_api.g_true
17579: , p_validation_level => fnd_api.g_valid_level_full
17580: , x_return_status => l_return_status
17581: , x_msg_count => l_msg_count
17582: , x_msg_data => l_msg_data
17575: --fnd_file.put_line(fnd_file.LOG, 'Compiling Rule ID= ' || l_rule_id);
17576: wms_rule_pvt.generaterulepackage(
17577: p_api_version => 1.0
17578: , p_init_msg_list => fnd_api.g_true
17579: , p_validation_level => fnd_api.g_valid_level_full
17580: , x_return_status => l_return_status
17581: , x_msg_count => l_msg_count
17582: , x_msg_data => l_msg_data
17583: , p_rule_id => l_rule_id
17584: );
17585:
17586: --
17587: -- kkoothan Bug Fix:2561401
17588: -- Used FND APIs to check the return status of the called procedure
17589: -- instead of using hard coded values.
17590: --
17591: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17592: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRulePackage');
17587: -- kkoothan Bug Fix:2561401
17588: -- Used FND APIs to check the return status of the called procedure
17589: -- instead of using hard coded values.
17590: --
17591: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17592: FND_FILE.put_line(FND_FILE.LOG, 'Success from GenerateRulePackage');
17593: ELSE
17594: FND_FILE.put_line(FND_FILE.LOG, 'Error from GenerateRulePackage:');
17595: retcode := 1;
17607: --- Calling procedure to generate all rule list packages
17608: --- this package should be called stand alone .
17609: buildrulespkg(l_errbuf, l_return_code, l_return_status);
17610:
17611: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
17612: FND_FILE.put_line(FND_FILE.LOG, 'Success from BuildRulesPkg');
17613: ELSE
17614: FND_FILE.put_line(FND_FILE.LOG, 'Error from BuildRulesPkg:');
17615: retcode := 1;
17638: --
17639: --
17640: PROCEDURE QuickPick
17641: (p_api_version IN NUMBER ,
17642: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false ,
17643: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false ,
17644: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full ,
17645: x_return_status OUT NOCOPY VARCHAR2 ,
17646: x_msg_count OUT NOCOPY NUMBER ,
17639: --
17640: PROCEDURE QuickPick
17641: (p_api_version IN NUMBER ,
17642: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false ,
17643: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false ,
17644: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full ,
17645: x_return_status OUT NOCOPY VARCHAR2 ,
17646: x_msg_count OUT NOCOPY NUMBER ,
17647: x_msg_data OUT NOCOPY VARCHAR2 ,
17640: PROCEDURE QuickPick
17641: (p_api_version IN NUMBER ,
17642: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false ,
17643: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false ,
17644: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full ,
17645: x_return_status OUT NOCOPY VARCHAR2 ,
17646: x_msg_count OUT NOCOPY NUMBER ,
17647: x_msg_data OUT NOCOPY VARCHAR2 ,
17648: p_type_code IN NUMBER DEFAULT NULL ,
17777: -- Standard start of API savepoint
17778: SAVEPOINT QuickPicksp;
17779:
17780: -- Standard call to check for call compatibility
17781: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
17782: RAISE fnd_api.g_exc_unexpected_error;
17783: END IF;
17784: -- Initialize message list if p_init_msg_list is set to TRUE
17785: IF fnd_api.to_boolean(p_init_msg_list) THEN
17778: SAVEPOINT QuickPicksp;
17779:
17780: -- Standard call to check for call compatibility
17781: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
17782: RAISE fnd_api.g_exc_unexpected_error;
17783: END IF;
17784: -- Initialize message list if p_init_msg_list is set to TRUE
17785: IF fnd_api.to_boolean(p_init_msg_list) THEN
17786: fnd_msg_pub.initialize;
17781: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
17782: RAISE fnd_api.g_exc_unexpected_error;
17783: END IF;
17784: -- Initialize message list if p_init_msg_list is set to TRUE
17785: IF fnd_api.to_boolean(p_init_msg_list) THEN
17786: fnd_msg_pub.initialize;
17787: END IF;
17788: -- Initialize API return status to success
17789: x_return_status := fnd_api.g_ret_sts_success;
17785: IF fnd_api.to_boolean(p_init_msg_list) THEN
17786: fnd_msg_pub.initialize;
17787: END IF;
17788: -- Initialize API return status to success
17789: x_return_status := fnd_api.g_ret_sts_success;
17790: -- Initialize functional return status to completed
17791: x_finished := fnd_api.g_true;
17792: -- Validate input parameters and pre-requisites, if validation level
17793: -- requires this
17787: END IF;
17788: -- Initialize API return status to success
17789: x_return_status := fnd_api.g_ret_sts_success;
17790: -- Initialize functional return status to completed
17791: x_finished := fnd_api.g_true;
17792: -- Validate input parameters and pre-requisites, if validation level
17793: -- requires this
17794:
17795: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17791: x_finished := fnd_api.g_true;
17792: -- Validate input parameters and pre-requisites, if validation level
17793: -- requires this
17794:
17795: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17796: IF l_debug = 1 THEN
17797: log_statement(l_api_name, 'Quick Pick',
17798: 'p_validation_level <> fnd_api.g_valid_level_none ');
17799: END IF;
17794:
17795: IF p_validation_level <> fnd_api.g_valid_level_none THEN
17796: IF l_debug = 1 THEN
17797: log_statement(l_api_name, 'Quick Pick',
17798: 'p_validation_level <> fnd_api.g_valid_level_none ');
17799: END IF;
17800:
17801: IF p_type_code IS NULL
17802: OR p_type_code = fnd_api.g_miss_num
17798: 'p_validation_level <> fnd_api.g_valid_level_none ');
17799: END IF;
17800:
17801: IF p_type_code IS NULL
17802: OR p_type_code = fnd_api.g_miss_num
17803: OR p_type_code = 1 THEN
17804: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17805: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
17806: log_error_msg(l_api_name, 'type_code_missing');
17805: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
17806: log_error_msg(l_api_name, 'type_code_missing');
17807: fnd_msg_pub.ADD;
17808: END IF;
17809: RAISE fnd_api.g_exc_error;
17810: END IF;
17811:
17812: IF l_debug = 1 THEN
17813: log_statement(l_api_name, 'Quick Pick',
17814: 'p_transaction_temp_id ' || p_transaction_temp_id );
17815: END IF;
17816:
17817: IF p_transaction_temp_id IS NULL
17818: OR p_transaction_temp_id = fnd_api.g_miss_num THEN
17819: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17820: fnd_message.set_name('WMS', 'WMS_TRX_REQ_LINE_ID_MISS');
17821: log_error_msg(l_api_name, 'trx_req_line_id_missing');
17822: fnd_msg_pub.ADD;
17821: log_error_msg(l_api_name, 'trx_req_line_id_missing');
17822: fnd_msg_pub.ADD;
17823: END IF;
17824:
17825: RAISE fnd_api.g_exc_error;
17826: END IF;
17827:
17828: IF l_debug = 1 THEN
17829: log_statement(l_api_name, 'Quick Pick',
17830: 'p_organization_id ' || p_organization_id );
17831: END IF;
17832:
17833: IF p_organization_id IS NULL
17834: OR p_organization_id = fnd_api.g_miss_num THEN
17835: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17836: fnd_message.set_name('INV', 'INV_NO_ORG_INFORMATION');
17837: log_error_msg(l_api_name, 'org_id_missing');
17838: fnd_msg_pub.ADD;
17837: log_error_msg(l_api_name, 'org_id_missing');
17838: fnd_msg_pub.ADD;
17839: END IF;
17840:
17841: RAISE fnd_api.g_exc_error;
17842: END IF;
17843:
17844: IF l_debug = 1 THEN
17845: log_statement(l_api_name, 'Quick Pick',
17846: 'p_Inventory_item_id_id ' || p_inventory_item_id );
17847: END IF;
17848:
17849: IF p_inventory_item_id IS NULL
17850: OR p_inventory_item_id = fnd_api.g_miss_num THEN
17851: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17852: fnd_message.set_name('INV', 'INV_ITEM_ID_REQUIRED');
17853: log_error_msg(l_api_name, 'item_id_missing');
17854: fnd_msg_pub.ADD;
17853: log_error_msg(l_api_name, 'item_id_missing');
17854: fnd_msg_pub.ADD;
17855: END IF;
17856:
17857: RAISE fnd_api.g_exc_error;
17858: END IF;
17859:
17860: /** Commented for bug 4006426
17861: IF l_debug = 1 THEN
17862: log_statement(l_api_name, 'Quick Pick', 'qty Tree =>' || p_tree_id );
17863: END IF;
17864:
17865: IF (p_tree_id IS NULL
17866: OR p_tree_id = fnd_api.g_miss_num
17867: ) THEN
17868: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17869: fnd_message.set_name('INV', 'INV_QTY_TREE_ID_MISSING');
17870: log_error_msg(l_api_name, 'qty_tree_id_missing');
17870: log_error_msg(l_api_name, 'qty_tree_id_missing');
17871: fnd_msg_pub.ADD;
17872: END IF;
17873:
17874: RAISE fnd_api.g_exc_error;
17875: END IF;
17876:
17877: IF l_debug = 1 THEN
17878: log_statement(l_api_name, 'Quick Pick', 'finished validations and qty tree init' );
17895: END IF;
17896:
17897: inv_quantity_tree_pvt.backup_tree(x_return_status, p_tree_id);
17898:
17899: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
17900: IF l_debug = 1 THEN
17901: log_statement(l_api_name, 'backup_tree_unexp_err',
17902: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
17903: END IF;
17900: IF l_debug = 1 THEN
17901: log_statement(l_api_name, 'backup_tree_unexp_err',
17902: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
17903: END IF;
17904: RAISE fnd_api.g_exc_unexpected_error;
17905: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
17906: IF l_debug = 1 THEN
17907: log_statement(l_api_name, 'backup_tree_err',
17908: 'Error from inv_quantity_tree_pvt.backup_tree');
17901: log_statement(l_api_name, 'backup_tree_unexp_err',
17902: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
17903: END IF;
17904: RAISE fnd_api.g_exc_unexpected_error;
17905: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
17906: IF l_debug = 1 THEN
17907: log_statement(l_api_name, 'backup_tree_err',
17908: 'Error from inv_quantity_tree_pvt.backup_tree');
17909: END IF;
17906: IF l_debug = 1 THEN
17907: log_statement(l_api_name, 'backup_tree_err',
17908: 'Error from inv_quantity_tree_pvt.backup_tree');
17909: END IF;
17910: RAISE fnd_api.g_exc_error;
17911: END IF;
17912: END IF; --- Added for bug # 4006426
17913:
17914: g_locs_index := 0;
18190: , x_remaining_quantity => l_remaining_quantity
18191: );
18192: END IF;
18193:
18194: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
18195: IF l_debug = 1 THEN
18196: log_statement(l_api_name, 'uerr_validate_insert',
18197: 'Unexpected error in validate_and_insert');
18198: END IF;
18195: IF l_debug = 1 THEN
18196: log_statement(l_api_name, 'uerr_validate_insert',
18197: 'Unexpected error in validate_and_insert');
18198: END IF;
18199: RAISE fnd_api.g_exc_unexpected_error;
18200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18201: IF l_debug = 1 THEN
18202: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
18203: END IF;
18196: log_statement(l_api_name, 'uerr_validate_insert',
18197: 'Unexpected error in validate_and_insert');
18198: END IF;
18199: RAISE fnd_api.g_exc_unexpected_error;
18200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18201: IF l_debug = 1 THEN
18202: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
18203: END IF;
18204: RAISE fnd_api.g_exc_error;
18200: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18201: IF l_debug = 1 THEN
18202: log_statement(l_api_name, 'err_validate_insert', 'Error in validate_and_insert');
18203: END IF;
18204: RAISE fnd_api.g_exc_error;
18205: END IF;
18206:
18207: --IF l_inserted_record = FALSE OR l_allocated_quantity < l_needed_quantity THEN
18208: IF l_inserted_record = FALSE OR ABS(l_allocated_quantity - l_needed_quantity) > 0.00005
18226:
18227: IF l_debug = 1 THEN --13965992
18228: log_statement(l_api_name, 'insert_failed', 'Rolling back');
18229: END IF;
18230: RAISE fnd_api.g_exc_unexpected_error; --13965992
18231: END IF;
18232:
18233: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
18234: IF l_debug = 1 THEN
18229: END IF;
18230: RAISE fnd_api.g_exc_unexpected_error; --13965992
18231: END IF;
18232:
18233: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
18234: IF l_debug = 1 THEN
18235: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
18236: END IF;
18237: RAISE fnd_api.g_exc_unexpected_error;
18233: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
18234: IF l_debug = 1 THEN
18235: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
18236: END IF;
18237: RAISE fnd_api.g_exc_unexpected_error;
18238: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18239: IF l_debug = 1 THEN
18240: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
18241: END IF;
18234: IF l_debug = 1 THEN
18235: log_error(l_api_name, 'uerr_restore_tree', 'Unexpected error in restore_tree');
18236: END IF;
18237: RAISE fnd_api.g_exc_unexpected_error;
18238: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18239: IF l_debug = 1 THEN
18240: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
18241: END IF;
18242: RAISE fnd_api.g_exc_error;
18238: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18239: IF l_debug = 1 THEN
18240: log_error(l_api_name, 'err_restore_tree', 'Error in restore_tree');
18241: END IF;
18242: RAISE fnd_api.g_exc_error;
18243: END IF;
18244: ELSE
18245:
18246: IF ( l_allowed = 'N') then
18269: l_cur_rec := g_locs(l_cur_rec).next_rec;
18270:
18271: END LOOP;
18272: EXCEPTION
18273: WHEN fnd_api.g_exc_error THEN
18274:
18275: ROLLBACK TO QuickPicksp;
18276: freeglobals;
18277: x_return_status := fnd_api.g_ret_sts_error;
18273: WHEN fnd_api.g_exc_error THEN
18274:
18275: ROLLBACK TO QuickPicksp;
18276: freeglobals;
18277: x_return_status := fnd_api.g_ret_sts_error;
18278: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18279:
18280: IF l_debug = 1 THEN
18281: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
18280: IF l_debug = 1 THEN
18281: log_error(l_api_name, 'error', 'Expected error - ' || x_msg_data);
18282: END IF;
18283:
18284: WHEN fnd_api.g_exc_unexpected_error THEN
18285: ROLLBACK TO QuickPicksp;
18286: freeglobals;
18287: x_return_status := fnd_api.g_ret_sts_unexp_error;
18288: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18283:
18284: WHEN fnd_api.g_exc_unexpected_error THEN
18285: ROLLBACK TO QuickPicksp;
18286: freeglobals;
18287: x_return_status := fnd_api.g_ret_sts_unexp_error;
18288: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18289:
18290: IF l_debug = 1 THEN
18291: log_error(l_api_name, 'unexp_error', 'Unexpected error - ' || x_msg_data);
18293:
18294: WHEN OTHERS THEN
18295: ROLLBACK TO QuickPicksp;
18296: freeglobals;
18297: x_return_status := fnd_api.g_ret_sts_unexp_error;
18298: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18299: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18300: END IF;
18301: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18575: -- Standard start of API savepoint
18576: SAVEPOINT applyrulesp;
18577:
18578: -- Standard call to check for call compatibility
18579: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
18580: RAISE fnd_api.g_exc_unexpected_error;
18581: END IF;
18582:
18583: -- Initialize message list if p_init_msg_list is set to TRUE
18576: SAVEPOINT applyrulesp;
18577:
18578: -- Standard call to check for call compatibility
18579: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
18580: RAISE fnd_api.g_exc_unexpected_error;
18581: END IF;
18582:
18583: -- Initialize message list if p_init_msg_list is set to TRUE
18584: IF fnd_api.to_boolean(p_init_msg_list) THEN
18580: RAISE fnd_api.g_exc_unexpected_error;
18581: END IF;
18582:
18583: -- Initialize message list if p_init_msg_list is set to TRUE
18584: IF fnd_api.to_boolean(p_init_msg_list) THEN
18585: fnd_msg_pub.initialize;
18586: END IF;
18587:
18588: --
18586: END IF;
18587:
18588: --
18589: -- Initialize API return status to success
18590: x_return_status := fnd_api.g_ret_sts_success;
18591: --
18592: -- Initialize functional return status to completed
18593: x_finished := fnd_api.g_true;
18594:
18589: -- Initialize API return status to success
18590: x_return_status := fnd_api.g_ret_sts_success;
18591: --
18592: -- Initialize functional return status to completed
18593: x_finished := fnd_api.g_true;
18594:
18595: --
18596: -- Validate input parameters and pre-requisites, if validation level
18597: -- requires this
18594:
18595: --
18596: -- Validate input parameters and pre-requisites, if validation level
18597: -- requires this
18598: IF p_validation_level <> fnd_api.g_valid_level_none THEN
18599: IF p_type_code IS NULL
18600: OR p_type_code = fnd_api.g_miss_num THEN
18601: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18602: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
18596: -- Validate input parameters and pre-requisites, if validation level
18597: -- requires this
18598: IF p_validation_level <> fnd_api.g_valid_level_none THEN
18599: IF p_type_code IS NULL
18600: OR p_type_code = fnd_api.g_miss_num THEN
18601: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18602: fnd_message.set_name('WMS', 'WMS_RULE_TYPE_CODE_MISSING');
18603: fnd_msg_pub.ADD;
18604: IF l_debug = 1 THEN
18604: IF l_debug = 1 THEN
18605: log_error_msg(l_api_name, 'type_code_missing');
18606: END IF;
18607: END IF;
18608: RAISE fnd_api.g_exc_error;
18609: END IF;
18610:
18611: -- init variables
18612: l_revision := null;
18615:
18616: --changed by jcearley on 11/22/99, b/c a null rule_id is now allowed
18617: -- if rule_id is null, use default rule (0 for put away, 1 for pick)
18618:
18619: IF p_rule_id IS NULL OR p_rule_id = fnd_api.g_miss_num THEN
18620: --query org parameters to get user's default rule
18621: IF l_debug = 1 THEN
18622: log_statement(l_api_name,'no_rule','Getting default rule at org level');
18623: END IF;
18666: END IF;
18667:
18668: /* Lgao, Bug 5141737 select available will not check this flag, not used */
18669: /*IF p_partial_success_allowed_flag IS NULL
18670: OR p_partial_success_allowed_flag = fnd_api.g_miss_char THEN
18671: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18672: fnd_message.set_name('WMS', 'WMS_PARTIAL_SUCC_FLAG_MISS');
18673:
18674: IF l_debug = 1 THEN
18676: END IF;
18677: fnd_msg_pub.ADD;
18678: END IF;
18679:
18680: RAISE fnd_api.g_exc_error;
18681: END IF;
18682: */
18683:
18684: IF p_transaction_temp_id IS NULL
18681: END IF;
18682: */
18683:
18684: IF p_transaction_temp_id IS NULL
18685: OR p_transaction_temp_id = fnd_api.g_miss_num THEN
18686: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18687: fnd_message.set_name('WMS', 'WMS_TRX_REQ_LINE_ID_MISS');
18688: fnd_msg_pub.ADD;
18689: IF l_debug = 1 THEN
18691: END IF;
18692:
18693: END IF;
18694:
18695: RAISE fnd_api.g_exc_error;
18696: END IF;
18697:
18698: IF p_organization_id IS NULL
18699: OR p_organization_id = fnd_api.g_miss_num THEN
18695: RAISE fnd_api.g_exc_error;
18696: END IF;
18697:
18698: IF p_organization_id IS NULL
18699: OR p_organization_id = fnd_api.g_miss_num THEN
18700: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18701: fnd_message.set_name('INV', 'INV_NO_ORG_INFORMATION');
18702: fnd_msg_pub.ADD;
18703: IF l_debug = 1 THEN
18704: log_error_msg(l_api_name, 'org_id_missing');
18705: END IF;
18706: END IF;
18707:
18708: RAISE fnd_api.g_exc_error;
18709: END IF;
18710:
18711: IF p_inventory_item_id IS NULL
18712: OR p_inventory_item_id = fnd_api.g_miss_num THEN
18708: RAISE fnd_api.g_exc_error;
18709: END IF;
18710:
18711: IF p_inventory_item_id IS NULL
18712: OR p_inventory_item_id = fnd_api.g_miss_num THEN
18713: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18714: fnd_message.set_name('INV', 'INV_ITEM_ID_REQUIRED');
18715: fnd_msg_pub.ADD;
18716: IF l_debug = 1 THEN
18717: log_error_msg(l_api_name, 'item_id_missing');
18718: END IF;
18719: END IF;
18720:
18721: RAISE fnd_api.g_exc_error;
18722: END IF;
18723:
18724: IF p_type_code = 2
18725: AND (p_tree_id IS NULL
18722: END IF;
18723:
18724: IF p_type_code = 2
18725: AND (p_tree_id IS NULL
18726: OR p_tree_id = fnd_api.g_miss_num
18727: ) THEN
18728: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18729: fnd_message.set_name('INV', 'INV_QTY_TREE_ID_MISSING');
18730: fnd_msg_pub.ADD;
18733: log_error_msg(l_api_name, 'qty_tree_id_missing');
18734: END IF;
18735: END IF;
18736:
18737: RAISE fnd_api.g_exc_error;
18738: END IF;
18739: END IF;
18740:
18741: --inv_pp_debug.send_message_to_pipe('finished validations and qty tree init');
18748: 'Calling inv_quantity_tree_pvt.backup_tree');
18749: END IF;
18750: inv_quantity_tree_pvt.backup_tree(x_return_status, p_tree_id);
18751:
18752: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
18753: IF l_debug = 1 THEN
18754: log_statement(l_api_name, 'backup_tree_unexp_err',
18755: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
18756: END IF;
18754: log_statement(l_api_name, 'backup_tree_unexp_err',
18755: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
18756: END IF;
18757:
18758: RAISE fnd_api.g_exc_unexpected_error;
18759: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18760: IF l_debug = 1 THEN
18761: log_statement(l_api_name, 'backup_tree_err',
18762: 'Error from inv_quantity_tree_pvt.backup_tree');
18755: 'Unexpected error from inv_quantity_tree_pvt.backup_tree');
18756: END IF;
18757:
18758: RAISE fnd_api.g_exc_unexpected_error;
18759: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
18760: IF l_debug = 1 THEN
18761: log_statement(l_api_name, 'backup_tree_err',
18762: 'Error from inv_quantity_tree_pvt.backup_tree');
18763: END IF;
18760: IF l_debug = 1 THEN
18761: log_statement(l_api_name, 'backup_tree_err',
18762: 'Error from inv_quantity_tree_pvt.backup_tree');
18763: END IF;
18764: RAISE fnd_api.g_exc_error;
18765: END IF;
18766:
18767: --does the rule have any consistency restrictions?
18768: OPEN l_consist;
18821: If NOT l_return_value Then
18822: If l_debug = 1 then
18823: log_statement(l_api_name, '-', 'Error setting from sub cache');
18824: end if;
18825: RAISE fnd_api.g_exc_unexpected_error;
18826: End If;
18827:
18828: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
18829: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
19085: */
19086: END IF;
19087: EXCEPTION
19088: /*WHEN INVALID_PKG_STATE THEN
19089: x_return_status := fnd_api.g_ret_sts_unexp_error;
19090: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
19091: fnd_message.set_token('LIST_PKG', l_list_pkg);
19092: fnd_message.set_token('RULE_NAME', l_package_name);
19093: fnd_msg_pub.ADD;
19094: log_error(l_api_name, 'execute_fetch_rule', 'Invalid Package, Contact your DBA - '
19095: || l_list_pkg || ' / ' || l_package_name);
19096: */
19097: WHEN OTHERS THEN
19098: x_return_status := fnd_api.g_ret_sts_unexp_error;
19099:
19100: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
19101: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
19102: END IF;
19139:
19140:
19141: BEGIN
19142: -- Initialize API return status to success
19143: x_return_status := fnd_api.g_ret_sts_success;
19144:
19145: --
19146: -- debugging portion
19147: -- can be commented ut for final code
19196: log_procedure(l_api_name, 'end', 'End FetchCursorrows');
19197: --
19198: EXCEPTION
19199: WHEN INVALID_PKG_STATE THEN
19200: x_return_status := fnd_api.g_ret_sts_unexp_error;
19201: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
19202: fnd_message.set_token('LIST_PKG', l_list_pkg);
19203: fnd_message.set_token('RULE_NAME', l_package_name);
19204: fnd_msg_pub.ADD;
19205: log_error(l_api_name, 'execute_fetch_rule', 'Invalid Package, Contact your DBA - '
19206: || l_list_pkg || ' / ' || l_package_name);
19207:
19208: WHEN OTHERS THEN
19209: x_return_status := fnd_api.g_ret_sts_unexp_error;
19210:
19211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
19212: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
19213: END IF;