[Home] [Help]
18: g_msg_lvl_debug_high NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH ;
19: g_msg_lvl_debug_medium NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM ;
20: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
21:
22: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
24: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: type t_wip_entity_name_tbl is table of NUMBER index by WIP_ENTITIES.wip_entity_name%TYPE;
19: g_msg_lvl_debug_medium NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM ;
20: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
21:
22: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
24: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: type t_wip_entity_name_tbl is table of NUMBER index by WIP_ENTITIES.wip_entity_name%TYPE;
27:
20: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
21:
22: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
24: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: type t_wip_entity_name_tbl is table of NUMBER index by WIP_ENTITIES.wip_entity_name%TYPE;
27:
28: -- Derives the routing sequence information...
112: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
113: p_run_log_level => l_log_level
114: );
115: END IF;
116: RAISE FND_API.G_EXC_ERROR;
117:
118: end if;
119: l_rtg_item_id := p_rtg_ref_id;
120:
159: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
160: p_run_log_level => l_log_level
161: );
162: END IF;
163: RAISE FND_API.G_EXC_ERROR;
164: END;
165:
166: l_stmt_num := 30;
167: -- Get common routing seq id
171: x_err_code => l_err_code,
172: x_err_msg => x_error_msg
173: );
174: if x_error_msg IS NOT NULL then
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: end if;
177:
178: --VJ: Start additions --
179: ELSIF p_common_rtg_seq_id IS NOT NULL
216: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
217: p_run_log_level => l_log_level
218: );
219: END IF;
220: RAISE FND_API.G_EXC_ERROR;
221: END;
222: END IF; -- end elsif p_common_rtg_seq_id IS NOT NULL
223: --VJ: End additions --
224:
222: END IF; -- end elsif p_common_rtg_seq_id IS NOT NULL
223: --VJ: End additions --
224:
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := G_RET_ERROR;
228: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
229: p_count => x_error_count ,
230: p_data => x_error_msg
348: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
349: p_run_log_level => l_log_level
350: );
351: END IF;
352: RAISE FND_API.G_EXC_ERROR;
353: END;
354: END IF;
355: END IF; -- end non-std job
356:
393: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
394: p_run_log_level => l_log_level
395: );
396: END IF;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399: END;
400:
401: ELSIF (p_alt_bom is NOT null and p_common_bom_seq_id is null) THEN --VJ: Added
434: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
435: p_run_log_level => l_log_level
436: );
437: END IF;
438: RAISE FND_API.G_EXC_ERROR;
439: END;
440:
441: -- VJ : Start Additions --
442: ELSIF (p_alt_bom is null and p_common_bom_seq_id is NOT null) THEN
467: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
468: p_run_log_level => l_log_level
469: );
470: END IF;
471: RAISE FND_API.G_EXC_ERROR;
472: END;
473: ELSE --if p_alt_bom is NOT null
474: -- and p_common_bom_seq_id is NOT null
475: l_stmt_num := 60;
498: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
499: p_run_log_level => l_log_level
500: );
501: END IF;
502: RAISE FND_API.G_EXC_ERROR;
503: END;
504: -- VJ : End Additions --
505: END IF; -- end (p_alt_bom is null)
506: ELSE -- non-std job without bom reference
525: );
526: END IF;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: x_return_status := G_RET_ERROR;
531: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
532: p_count => x_error_count ,
533: p_data => x_error_msg
627: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
628: p_run_log_level => l_log_level
629: );
630: END IF;
631: RAISE FND_API.G_EXC_ERROR;
632: END IF;
633:
634: IF p_load_type = 'C' then -- Job creation
635:
663: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
664: p_run_log_level => l_log_level
665: );
666: END IF;
667: RAISE FND_API.G_EXC_ERROR;
668: END IF;
669: EXCEPTION
670: WHEN no_data_found THEN
671: null;
682: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
683: p_run_log_level => l_log_level
684: );
685: END IF;
686: RAISE FND_API.G_EXC_ERROR;
687: END;
688: END IF; -- Job update
689:
690: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
698: );
699: END IF;
700:
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703: x_return_status := G_RET_ERROR;
704: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
705: p_count => x_error_count ,
706: p_data => x_error_msg
793: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
794: p_run_log_level => l_log_level
795: );
796: END IF;
797: RAISE FND_API.G_EXC_ERROR;
798:
799: ELSE
800: -- If organization code is not NULL then derive ID
801: IF p_wltx_header.organization_code is NULL then
864: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
865: p_run_log_level => l_log_level
866: );
867: END IF;
868: RAISE FND_API.G_EXC_ERROR;
869: END;
870:
871: l_stmt_num := 90;
872:
888: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
889: p_run_log_level => l_log_level
890: );
891: END IF;
892: RAISE FND_API.G_EXC_ERROR;
893: ELSE --p_wltx_header.transaction_type_id IS NOT NULL
894:
895: l_stmt_num := 110;
896:
929: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
930: p_run_log_level => l_log_level
931: );
932: END IF;
933: RAISE FND_API.G_EXC_ERROR;
934: END;
935:
936: -- validate transaction date
937: l_stmt_num := 120;
964: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
965: p_run_log_level => l_log_level
966: );
967: END IF;
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970:
971: -- validate reason_id in wsm_split_merge_txn_interface table
972: IF p_wltx_header.reason_id is not null then
993: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
994: p_run_log_level => l_log_level
995: );
996: END IF;
997: RAISE FND_API.G_EXC_ERROR;
998: END;
999: END IF;
1000:
1001: -- validate acct_period
1037: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1038: p_run_log_level => l_log_level
1039: );
1040: END IF;
1041: raise FND_API.G_EXC_ERROR;
1042: END IF; -- end IF (l_err_num <> 0)
1043: END;
1044:
1045: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
1054: END IF;
1055:
1056: EXCEPTION
1057:
1058: WHEN FND_API.G_EXC_ERROR THEN
1059:
1060: x_return_status := G_RET_ERROR;
1061: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1062: p_count => x_msg_count ,
1062: p_count => x_msg_count ,
1063: p_data => x_msg_data
1064: );
1065:
1066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1067:
1068: x_return_status := G_RET_UNEXPECTED;
1069:
1070: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1121: x_msg_data := NULL;
1122: x_msg_count := 0;
1123:
1124: -- Initialize API return status to success
1125: x_return_status := FND_API.G_RET_STS_SUCCESS;
1126:
1127: IF FND_LOG.LEVEL_PROCEDURE >= l_log_level THEN
1128: l_param_tbl.delete;
1129:
1158: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1159: p_run_log_level => l_log_level
1160: );
1161: END IF;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164:
1165: -- Next validation is on the max txn date.. should be greater than the last txn performed on the job..
1166: l_stmt_num := 30;
1190: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1191: p_run_log_level => l_log_level
1192: );
1193: END IF;
1194: RAISE FND_API.G_EXC_ERROR;
1195: EXCEPTION
1196: WHEN NO_DATA_FOUND THEN
1197: null;
1198: END;
1197: null;
1198: END;
1199:
1200: EXCEPTION
1201: WHEN FND_API.G_EXC_ERROR THEN
1202:
1203: x_return_status := G_RET_ERROR;
1204: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1205: p_count => x_msg_count ,
1205: p_count => x_msg_count ,
1206: p_data => x_msg_data
1207: );
1208:
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: x_return_status := G_RET_UNEXPECTED;
1211: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1212: p_count => x_msg_count ,
1213: p_data => x_msg_data
1423: x_msg_data := NULL;
1424: x_msg_count := 0;
1425:
1426: -- Initialize API return status to success
1427: x_return_status := FND_API.G_RET_STS_SUCCESS;
1428:
1429:
1430: IF FND_LOG.LEVEL_PROCEDURE >= l_log_level THEN
1431:
1460: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1461: p_run_log_level => l_log_level
1462: );
1463: END IF;
1464: RAISE FND_API.G_EXC_ERROR;
1465: END IF;
1466:
1467: l_stmt_num := 115;
1468: IF (p_starting_job_rec.wip_entity_name IS NULL) THEN
1585: );
1586:
1587: IF x_return_status <> G_RET_SUCCESS THEN
1588: IF x_return_status = G_RET_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1587: IF x_return_status <> G_RET_SUCCESS THEN
1588: IF x_return_status = G_RET_ERROR THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1594: -- ST : Fix for bug 4351071 end --
1595:
1806: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1807: p_run_log_level => l_log_level
1808: );
1809: END IF;
1810: RAISE FND_API.G_EXC_ERROR;
1811:
1812: x_return_status := G_RET_ERROR;
1813: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1814: p_count => x_msg_count ,
1813: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1814: p_count => x_msg_count ,
1815: p_data => x_msg_data
1816: );
1817: WHEN FND_API.G_EXC_ERROR THEN
1818: ROLLBACK TO start_def_start_job;
1819: x_return_status := G_RET_ERROR;
1820: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1821: p_count => x_msg_count ,
1821: p_count => x_msg_count ,
1822: p_data => x_msg_data
1823: );
1824:
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: ROLLBACK TO start_def_start_job;
1827:
1828: x_return_status := G_RET_UNEXPECTED;
1829:
1899: savepoint start_val_start_job_merge;
1900:
1901: l_stmt_num := 10;
1902: -- Initialize API return status to success
1903: x_return_status := FND_API.G_RET_STS_SUCCESS;
1904:
1905: -- Log the Procedure entry point....
1906: if( g_log_level_statement >= l_log_level ) then
1907: l_msg_tokens.delete;
1948: );
1949:
1950: l_stmt_num := 71;
1951:
1952: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1953: l_stmt_num := 72;
1954: -- Log the Procedure exit point....
1955: if( g_log_level_statement >= l_log_level ) then
1956:
1966: END IF;
1967:
1968: if l_return_status <> G_RET_SUCCESS then
1969: IF l_return_status = G_RET_ERROR THEN
1970: raise FND_API.G_EXC_ERROR;
1971: ELSIF l_return_status = G_RET_UNEXPECTED THEN
1972: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1973: END IF;
1974: end if;
1968: if l_return_status <> G_RET_SUCCESS then
1969: IF l_return_status = G_RET_ERROR THEN
1970: raise FND_API.G_EXC_ERROR;
1971: ELSIF l_return_status = G_RET_UNEXPECTED THEN
1972: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1973: END IF;
1974: end if;
1975:
1976: end if;
2006: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2007: p_run_log_level => l_log_level
2008: );
2009: END IF;
2010: RAISE FND_API.G_EXC_ERROR;
2011: END IF;
2012: -- ST : Serial Support --
2013:
2014: -- All the starting jobs should be of same job type, and should
2048: p_run_log_level => l_log_level
2049: );
2050: END IF;
2051:
2052: RAISE FND_API.G_EXC_ERROR;
2053: END IF;
2054: -- ST : Serial Support --
2055:
2056: -- check for duplicate job name
2070: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2071: p_run_log_level => l_log_level
2072: );
2073: END IF;
2074: RAISE FND_API.G_EXC_ERROR;
2075: ELSE
2076: l_wip_entity_name(p_starting_jobs_tbl(l_counter).wip_entity_name) := 1;
2077: END IF;
2078:
2092: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2093: p_run_log_level => l_log_level
2094: );
2095: END IF;
2096: RAISE FND_API.G_EXC_ERROR;
2097:
2098: end if;
2099:
2100: -- Merge possible only at standard operation
2111: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2112: p_run_log_level => l_log_level
2113: );
2114: END IF;
2115: RAISE FND_API.G_EXC_ERROR;
2116: END IF;
2117:
2118: l_stmt_num := 90;
2119: -- Also check for the std_op_id, dept id checks.....
2135: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2136: p_run_log_level => l_log_level
2137: );
2138: END IF;
2139: RAISE FND_API.G_EXC_ERROR;
2140: END IF;
2141:
2142: -- Store the representative job index...
2143: if p_starting_jobs_tbl(l_counter).representative_flag = 'Y' THEN
2158: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2159: p_run_log_level => l_log_level
2160: );
2161: END IF;
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164: END IF;
2165:
2166: p_total_avail_quantity := p_total_avail_quantity + p_starting_jobs_tbl(l_counter).quantity_available;
2184: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2185: p_run_log_level => l_log_level
2186: );
2187: END IF;
2188: RAISE FND_API.G_EXC_ERROR;
2189:
2190: END IF;
2191:
2192: l_stmt_num := 130;
2189:
2190: END IF;
2191:
2192: l_stmt_num := 130;
2193: x_return_status := FND_API.G_RET_STS_SUCCESS;
2194:
2195: EXCEPTION
2196: WHEN FND_API.G_EXC_ERROR THEN
2197: ROLLBACK TO start_val_start_job_merge;
2192: l_stmt_num := 130;
2193: x_return_status := FND_API.G_RET_STS_SUCCESS;
2194:
2195: EXCEPTION
2196: WHEN FND_API.G_EXC_ERROR THEN
2197: ROLLBACK TO start_val_start_job_merge;
2198: x_return_status := G_RET_ERROR;
2199: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2200: p_count => x_msg_count ,
2200: p_count => x_msg_count ,
2201: p_data => x_msg_data
2202: );
2203:
2204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2205: ROLLBACK TO start_val_start_job_merge;
2206: x_return_status := G_RET_UNEXPECTED;
2207:
2208: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2262: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2263: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.DERIVE_VAL_RES_JOB_DETAILS';
2264:
2265: -- G_MISS_NUM and G_MISS_CHAR (now use G_NULL_CHAR and equivalents..
2266: l_null_num NUMBER := FND_API.G_NULL_NUM;
2267: l_null_char VARCHAR2(1) := FND_API.G_NULL_CHAR;
2268: l_null_date date;
2269: --e_exception EXCEPTION;
2270:
2263: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.DERIVE_VAL_RES_JOB_DETAILS';
2264:
2265: -- G_MISS_NUM and G_MISS_CHAR (now use G_NULL_CHAR and equivalents..
2266: l_null_num NUMBER := FND_API.G_NULL_NUM;
2267: l_null_char VARCHAR2(1) := FND_API.G_NULL_CHAR;
2268: l_null_date date;
2269: --e_exception EXCEPTION;
2270:
2271: BEGIN
2273: -- Have a starting point
2274: l_stmt_num := 10;
2275:
2276: -- Initialize API return status to success
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278:
2279: -- Log the Procedure entry point....
2280: if( g_log_level_statement >= l_log_level ) then
2281: l_msg_tokens.delete;
2326: x_msg_count => l_msg_count,
2327: x_msg_data => l_msg_data
2328: );
2329:
2330: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2331: if( g_log_level_statement >= l_log_level ) then
2332:
2333: l_msg_tokens.delete;
2334: WSM_log_PVT.logMessage(p_module_name => l_module ,
2339: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2340: p_run_log_level => l_log_level
2341: );
2342: END IF;
2343: raise FND_API.G_EXC_ERROR;
2344: end if ;
2345:
2346: -- ST : Serial Support --
2347: select nvl(serial_number_control_code,1)
2373: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2374: p_run_log_level => l_log_level
2375: );
2376: END IF;
2377: RAISE FND_API.G_EXC_ERROR;
2378: END IF;
2379: -- ST : Serial Support --
2380:
2381: -- call derive_val_bom_info
2405: p_run_log_level => l_log_level
2406: );
2407: END IF;
2408: IF l_return_status = G_RET_ERROR THEN
2409: raise FND_API.G_EXC_ERROR;
2410: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2411: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2413: end if;
2407: END IF;
2408: IF l_return_status = G_RET_ERROR THEN
2409: raise FND_API.G_EXC_ERROR;
2410: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2411: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2413: end if;
2414:
2415: -- call derive_val_routing_info
2439: p_run_log_level => l_log_level
2440: );
2441: END IF;
2442: IF l_return_status = G_RET_ERROR THEN
2443: raise FND_API.G_EXC_ERROR;
2444: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2445: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END IF;
2447: end if;
2441: END IF;
2442: IF l_return_status = G_RET_ERROR THEN
2443: raise FND_API.G_EXC_ERROR;
2444: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2445: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2446: END IF;
2447: end if;
2448:
2449: -- call WSMPUTIL.find_routing_start to validate first operation in N/W.
2467: p_run_log_level => l_log_level
2468: );
2469: END IF;
2470:
2471: raise FND_API.G_EXC_ERROR;
2472:
2473: end if;
2474:
2475: -- call WSMPUTIL.find_routing_end to validate last operation in N/W.
2493: p_run_log_level => l_log_level
2494: );
2495: END IF;
2496:
2497: raise FND_API.G_EXC_ERROR;
2498:
2499: end if;
2500:
2501: -- call for the starting op....
2528: p_run_log_level => l_log_level
2529: );
2530: END IF;
2531: IF l_return_status = G_RET_ERROR THEN
2532: raise FND_API.G_EXC_ERROR;
2533: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2534: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2535: END IF;
2536: end if;
2530: END IF;
2531: IF l_return_status = G_RET_ERROR THEN
2532: raise FND_API.G_EXC_ERROR;
2533: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2534: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2535: END IF;
2536: end if;
2537:
2538: -- Always overwrite the starting intraop step for Update Assy txn..
2570: p_run_log_level => l_log_level
2571: );
2572: END IF;
2573: IF l_return_status = G_RET_ERROR THEN
2574: raise FND_API.G_EXC_ERROR;
2575: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2577: END IF;
2578: END IF;
2572: END IF;
2573: IF l_return_status = G_RET_ERROR THEN
2574: raise FND_API.G_EXC_ERROR;
2575: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2577: END IF;
2578: END IF;
2579:
2580: l_stmt_num := 50;
2635: p_run_log_level => l_log_level
2636: );
2637: END IF;
2638: IF l_return_status = G_RET_ERROR THEN
2639: raise FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: END IF;
2637: END IF;
2638: IF l_return_status = G_RET_ERROR THEN
2639: raise FND_API.G_EXC_ERROR;
2640: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2642: END IF;
2643: END IF;
2644:
2645: l_stmt_num := 70;
2673: p_run_log_level => l_log_level
2674: );
2675: END IF;
2676: IF l_return_status = G_RET_ERROR THEN
2677: raise FND_API.G_EXC_ERROR;
2678: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2680: END IF;
2681: END IF;
2675: END IF;
2676: IF l_return_status = G_RET_ERROR THEN
2677: raise FND_API.G_EXC_ERROR;
2678: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2680: END IF;
2681: END IF;
2682:
2683: -- Atleast one of the routing fields must change.. or else error out..
2698: p_fnd_log_level => G_LOG_LEVEL_ERROR,
2699: p_run_log_level => l_log_level
2700: );
2701: END IF;
2702: raise FND_API.G_EXC_ERROR;
2703: end if;
2704:
2705: -- call WSMPUTIL.find_routing_start to validate first operation in N/W.
2706: -- added for bug 5386675.
2723: p_run_log_level => l_log_level
2724: );
2725: END IF;
2726:
2727: raise FND_API.G_EXC_ERROR;
2728:
2729: end if;
2730:
2731: -- call WSMPUTIL.find_routing_end to validate last operation in N/W.
2749: p_run_log_level => l_log_level
2750: );
2751: END IF;
2752:
2753: raise FND_API.G_EXC_ERROR;
2754:
2755: end if;
2756:
2757: -- call for the starting op....
2784: p_run_log_level => l_log_level
2785: );
2786: END IF;
2787: IF l_return_status = G_RET_ERROR THEN
2788: raise FND_API.G_EXC_ERROR;
2789: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2790: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792: END IF;
2786: END IF;
2787: IF l_return_status = G_RET_ERROR THEN
2788: raise FND_API.G_EXC_ERROR;
2789: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2790: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792: END IF;
2793:
2794: -- Always overwrite the starting intraop step for Update Rtg txn..
2830: p_run_log_level => l_log_level
2831: );
2832: END IF;
2833: IF l_return_status = G_RET_ERROR THEN
2834: raise FND_API.G_EXC_ERROR;
2835: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2836: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2837: END IF;
2838: END IF;
2832: END IF;
2833: IF l_return_status = G_RET_ERROR THEN
2834: raise FND_API.G_EXC_ERROR;
2835: ELSIF l_return_status = G_RET_UNEXPECTED THEN
2836: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2837: END IF;
2838: END IF;
2839:
2840: -- update routing done.....
2901: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2902: p_run_log_level => l_log_level
2903: );
2904: END IF;
2905: RAISE FND_API.G_EXC_ERROR;
2906: end if;
2907:
2908: IF (p_resulting_job_rec.start_quantity = l_null_num) OR
2909: (p_resulting_job_rec.start_quantity <=0 ) OR
2921: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2922: p_run_log_level => l_log_level
2923: );
2924: END IF;
2925: raise FND_API.G_EXC_ERROR;
2926: end if;
2927:
2928: -- ST : Serial Support Project --
2929: select nvl(serial_number_control_code,1)
2965: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2966: p_run_log_level => l_log_level
2967: );
2968: END IF;
2969: raise FND_API.G_EXC_ERROR;
2970: end if;
2971:
2972: IF (l_start_serial_code = 2) AND
2973: ( p_resulting_job_rec.start_quantity <> floor(p_resulting_job_rec.start_quantity) OR
2988: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2989: p_run_log_level => l_log_level
2990: );
2991: END IF;
2992: RAISE FND_API.G_EXC_ERROR;
2993: END IF;
2994: -- ST : Serial Support Project --
2995:
2996: -- account information......
3009: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3010: p_run_log_level => l_log_level
3011: );
3012: END IF;
3013: raise FND_API.G_EXC_ERROR;
3014: else
3015: -- validate the account passed,,,,,
3016: BEGIN
3017: select 1
3052: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3053: p_run_log_level => l_log_level
3054: );
3055: END IF;
3056: RAISE FND_API.G_EXC_ERROR;
3057:
3058: END;
3059:
3060: end if;
3091: p_run_log_level => l_log_level
3092: );
3093: END IF;
3094: IF l_return_status = G_RET_ERROR THEN
3095: raise FND_API.G_EXC_ERROR;
3096: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3097: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3098: END IF;
3099: END IF;
3093: END IF;
3094: IF l_return_status = G_RET_ERROR THEN
3095: raise FND_API.G_EXC_ERROR;
3096: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3097: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3098: END IF;
3099: END IF;
3100:
3101: -- update qty is done..... */
3178: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3179: p_run_log_level => l_log_level
3180: );
3181: END IF;
3182: RAISE FND_API.G_EXC_ERROR;
3183: end if;
3184:
3185: -- if the user intends to NULL out the field null it..
3186: if p_resulting_job_rec.description = l_null_char then
3203: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3204: p_run_log_level => l_log_level
3205: );
3206: END IF;
3207: RAISE FND_API.G_EXC_ERROR;
3208:
3209: end if;
3210:
3211: if (p_resulting_job_rec.wip_entity_name <> p_starting_job_rec.wip_entity_name) then
3221: );
3222: -- add check for the return status...
3223: if l_return_status <> G_RET_SUCCESS then
3224: IF l_return_status = G_RET_ERROR THEN
3225: raise FND_API.G_EXC_ERROR;
3226: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3227: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3228: END IF;
3229: end if;
3223: if l_return_status <> G_RET_SUCCESS then
3224: IF l_return_status = G_RET_ERROR THEN
3225: raise FND_API.G_EXC_ERROR;
3226: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3227: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3228: END IF;
3229: end if;
3230: end if;
3231:
3262: p_run_log_level => l_log_level
3263: );
3264: END IF;
3265: IF l_return_status = G_RET_ERROR THEN
3266: raise FND_API.G_EXC_ERROR;
3267: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3268: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3270: END IF;
3264: END IF;
3265: IF l_return_status = G_RET_ERROR THEN
3266: raise FND_API.G_EXC_ERROR;
3267: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3268: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3269: END IF;
3270: END IF;
3271: /* End Bugfix 5531371 */
3272:
3642: end if;
3643:
3644: end if;
3645:
3646: x_return_status := FND_API.G_RET_STS_SUCCESS;
3647:
3648: EXCEPTION
3649: WHEN FND_API.G_EXC_ERROR THEN
3650:
3645:
3646: x_return_status := FND_API.G_RET_STS_SUCCESS;
3647:
3648: EXCEPTION
3649: WHEN FND_API.G_EXC_ERROR THEN
3650:
3651: x_return_status := G_RET_ERROR;
3652: FND_MSG_PUB.Count_And_Get ( p_encoded => 'F' ,
3653: p_count => x_msg_count ,
3653: p_count => x_msg_count ,
3654: p_data => x_msg_data
3655: );
3656:
3657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3658:
3659: x_return_status := G_RET_UNEXPECTED;
3660:
3661: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
3706: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3707: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3708: l_stmt_num NUMBER := 0;
3709:
3710: l_null_char varchar2(10) := FND_API.G_NULL_CHAR;
3711:
3712: begin
3713: l_stmt_num := 10;
3714: if p_txn_type <> WSMPCNST.MERGE then
3726: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3727: p_run_log_level => l_log_level
3728: );
3729: END IF;
3730: RAISE FND_API.G_EXC_ERROR;
3731: end if;
3732:
3733: -- Primary info ..... --
3734: p_resulting_job_rec.wip_entity_id := p_starting_job_rec.wip_entity_id;
3793: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3794: p_run_log_level => l_log_level
3795: );
3796: END IF;
3797: RAISE FND_API.G_EXC_ERROR;
3798: end if;
3799:
3800: -- description....... --
3801: if p_resulting_job_rec.description = l_null_char then
3817: p_resulting_job_rec.wip_entity_id := null;
3818:
3819: if l_return_status <> G_RET_SUCCESS then
3820: IF l_return_status = G_RET_ERROR THEN
3821: raise FND_API.G_EXC_ERROR;
3822: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3823: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3824: END IF;
3825: end if;
3819: if l_return_status <> G_RET_SUCCESS then
3820: IF l_return_status = G_RET_ERROR THEN
3821: raise FND_API.G_EXC_ERROR;
3822: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3823: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3824: END IF;
3825: end if;
3826: end if;
3827:
3863: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3864: p_run_log_level => l_log_level
3865: );
3866: END IF;
3867: raise FND_API.G_EXC_ERROR;
3868: END IF;
3869: --- Co products supply end --
3870: -- ST : Fix for bug 5122500 end --
3871:
3889: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3890: p_run_log_level => l_log_level
3891: );
3892: END IF;
3893: raise FND_API.G_EXC_ERROR;
3894: end if;
3895: --Bug 5375741: If user has not supplied net quantity,default it to total net qty of the starting jobs.
3896: --If total net quantity is greater than available qty of the resulting job,default net qty to
3897: --available quantity.
3920: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3921: p_run_log_level => l_log_level
3922: );
3923: END IF;
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926: -- ST : Serial Support Project --
3927:
3928: derive_val_compl_subinv( p_job_type => p_resulting_job_rec.job_type,
3956: p_run_log_level => l_log_level
3957: );
3958: END IF;
3959: IF l_return_status = G_RET_ERROR THEN
3960: raise FND_API.G_EXC_ERROR;
3961: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3962: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3963: END IF;
3964: END IF;
3958: END IF;
3959: IF l_return_status = G_RET_ERROR THEN
3960: raise FND_API.G_EXC_ERROR;
3961: ELSIF l_return_status = G_RET_UNEXPECTED THEN
3962: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3963: END IF;
3964: END IF;
3965:
3966: x_return_status := FND_API.G_RET_STS_SUCCESS;
3962: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3963: END IF;
3964: END IF;
3965:
3966: x_return_status := FND_API.G_RET_STS_SUCCESS;
3967: exception
3968: WHEN FND_API.G_EXC_ERROR THEN
3969:
3970: x_return_status := G_RET_ERROR;
3964: END IF;
3965:
3966: x_return_status := FND_API.G_RET_STS_SUCCESS;
3967: exception
3968: WHEN FND_API.G_EXC_ERROR THEN
3969:
3970: x_return_status := G_RET_ERROR;
3971: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
3972: p_count => x_msg_count ,
3972: p_count => x_msg_count ,
3973: p_data => x_msg_data
3974: );
3975:
3976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3977:
3978: x_return_status := G_RET_UNEXPECTED;
3979:
3980: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
4017: l_return_status varchar2(1);
4018: l_msg_count number;
4019: l_msg_data varchar2(2000);
4020: l_module_name VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.derive_val_res_job_details';
4021: l_null_char varchar2(10) := FND_API.G_NULL_CHAR;
4022:
4023: l_counter number;
4024: l_job_name_tbl t_wip_entity_name_tbl;
4025:
4069: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4070: p_run_log_level => l_log_level
4071: );
4072: END IF;
4073: RAISE FND_API.G_EXC_ERROR;
4074: end if;
4075:
4076: l_stmt_num := 20;
4077: -- Query up the co-products supply..... --
4125: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4126: p_run_log_level => l_log_level
4127: );
4128: END IF;
4129: raise FND_API.G_EXC_ERROR;
4130: end if;
4131:
4132: l_stmt_num := 40;
4133: if p_resulting_jobs_tbl(l_counter).wip_entity_name is not null then
4135: if p_resulting_jobs_tbl(l_counter).wip_entity_name = p_starting_job_rec.wip_entity_name then
4136: p_resulting_jobs_tbl(l_counter).wip_entity_id := p_starting_job_rec.wip_entity_id;
4137: else
4138: -- validate the job name .....
4139: l_return_status := FND_API.G_RET_STS_SUCCESS;
4140: l_msg_count := 0;
4141: l_msg_data := null;
4142:
4143: wip_entity(p_load_type => 'C',
4149: x_error_count => l_msg_count
4150: );
4151: if l_return_status <> G_RET_SUCCESS then
4152: IF l_return_status = G_RET_ERROR THEN
4153: raise FND_API.G_EXC_ERROR;
4154: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4155: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4156: END IF;
4157: end if;
4151: if l_return_status <> G_RET_SUCCESS then
4152: IF l_return_status = G_RET_ERROR THEN
4153: raise FND_API.G_EXC_ERROR;
4154: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4155: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4156: END IF;
4157: end if;
4158:
4159: end if;
4186: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4187: p_run_log_level => l_log_level
4188: );
4189: END IF;
4190: RAISE FND_API.G_EXC_ERROR;
4191: END IF;
4192: END IF;
4193:
4194: l_stmt_num := 50;
4222: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4223: p_run_log_level => l_log_level
4224: );
4225: END IF;
4226: raise FND_API.G_EXC_ERROR;
4227: END IF;
4228: END IF;
4229:
4230: l_stmt_num := 60;
4242: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4243: p_run_log_level => l_log_level
4244: );
4245: END IF;
4246: raise FND_API.G_EXC_ERROR;
4247: else
4248: l_job_name_tbl(p_resulting_jobs_tbl(l_counter).wip_entity_name) := 1;
4249: end if;
4250: -- Job name / ID end
4274: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4275: p_run_log_level => l_log_level
4276: );
4277: END IF;
4278: raise FND_API.G_EXC_ERROR;
4279: end if;
4280:
4281: -- ST : Serial Support Project --
4282: IF (l_start_serial_code = 2) and
4297: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4298: p_run_log_level => l_log_level
4299: );
4300: END IF;
4301: RAISE FND_API.G_EXC_ERROR;
4302: END IF;
4303: -- ST : Serial Support Project --
4304:
4305: l_stmt_num := 80;
4317: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4318: p_run_log_level => l_log_level
4319: );
4320: END IF;
4321: raise FND_API.G_EXC_ERROR;
4322: end if;
4323:
4324: l_stmt_num := 90;
4325: l_total_quantity := l_total_quantity + p_resulting_jobs_tbl(l_counter).start_quantity;
4358: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4359: p_run_log_level => l_log_level
4360: );
4361: END IF;
4362: RAISE FND_API.G_EXC_ERROR;
4363: end if;
4364:
4365: -- ST : Serial Support Project --
4366: -- ST : Fix for bug 5199646 -- replaced start_quantity with net_quantity in the belwo check --
4383: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4384: p_run_log_level => l_log_level
4385: );
4386: END IF;
4387: RAISE FND_API.G_EXC_ERROR;
4388: END IF;
4389: -- ST : Serial Support Project --
4390:
4391: end if;
4421: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4422: p_run_log_level => l_log_level
4423: );
4424: END IF;
4425: raise FND_API.G_EXC_ERROR;
4426: end if;
4427: --- Co products supply end --
4428:
4429: -- check the split has update assy flag.........--
4444: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4445: p_run_log_level => l_log_level
4446: );
4447: END IF;
4448: raise FND_API.G_EXC_ERROR;
4449: end if;
4450: -- check the split has update assy flag....--
4451:
4452: -- Now get the common fields..... --
4526: x_return_status => l_return_status,
4527: x_msg_count => l_msg_count,
4528: x_msg_data => l_msg_data
4529: );
4530: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4531: if( g_log_level_statement >= l_log_level ) then
4532:
4533: l_msg_tokens.delete;
4534: WSM_log_PVT.logMessage(p_module_name => l_module ,
4540: p_run_log_level => l_log_level
4541: );
4542: END IF;
4543: IF l_return_status = G_RET_ERROR THEN
4544: raise FND_API.G_EXC_ERROR;
4545: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4546: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4547: END IF;
4548: END IF ;
4542: END IF;
4543: IF l_return_status = G_RET_ERROR THEN
4544: raise FND_API.G_EXC_ERROR;
4545: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4546: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4547: END IF;
4548: END IF ;
4549:
4550: -- ST : Serial Support Project --
4572: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4573: p_run_log_level => l_log_level
4574: );
4575: END IF;
4576: RAISE FND_API.G_EXC_ERROR;
4577: END IF;
4578: -- ST : Serial Support Project --
4579:
4580: l_stmt_num := 120;
4592: x_msg_count => l_msg_count,
4593: x_msg_data => l_msg_data
4594: );
4595:
4596: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4597: if( g_log_level_statement >= l_log_level ) then
4598:
4599: l_msg_tokens.delete;
4600: WSM_log_PVT.logMessage(p_module_name => l_module ,
4606: p_run_log_level => l_log_level
4607: );
4608: END IF;
4609: IF l_return_status = G_RET_ERROR THEN
4610: raise FND_API.G_EXC_ERROR;
4611: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4612: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4613: END IF;
4614: end if ;
4608: END IF;
4609: IF l_return_status = G_RET_ERROR THEN
4610: raise FND_API.G_EXC_ERROR;
4611: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4612: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4613: END IF;
4614: end if ;
4615:
4616: l_stmt_num := 130;
4629: x_msg_count => l_msg_count,
4630: x_msg_data => l_msg_data
4631: );
4632:
4633: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4634: if( g_log_level_statement >= l_log_level ) then
4635:
4636: l_msg_tokens.delete;
4637: WSM_log_PVT.logMessage(p_module_name => l_module ,
4643: p_run_log_level => l_log_level
4644: );
4645: END IF;
4646: IF l_return_status = G_RET_ERROR THEN
4647: raise FND_API.G_EXC_ERROR;
4648: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4649: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4650: END IF;
4651: end if ;
4645: END IF;
4646: IF l_return_status = G_RET_ERROR THEN
4647: raise FND_API.G_EXC_ERROR;
4648: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4649: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4650: END IF;
4651: end if ;
4652:
4653: l_stmt_num := 135;
4672: p_run_log_level => l_log_level
4673: );
4674: END IF;
4675:
4676: raise FND_API.G_EXC_ERROR;
4677:
4678: end if;
4679:
4680: -- call WSMPUTIL.find_routing_end to validate last operation in N/W.
4698: p_run_log_level => l_log_level
4699: );
4700: END IF;
4701:
4702: raise FND_API.G_EXC_ERROR;
4703:
4704: end if;
4705:
4706: l_stmt_num := 140;
4719: x_return_status => l_return_status,
4720: x_msg_count => l_msg_count,
4721: x_msg_data => l_msg_data
4722: );
4723: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4724: if( g_log_level_statement >= l_log_level ) then
4725:
4726: l_msg_tokens.delete;
4727: WSM_log_PVT.logMessage(p_module_name => l_module ,
4733: p_run_log_level => l_log_level
4734: );
4735: END IF;
4736: IF l_return_status = G_RET_ERROR THEN
4737: raise FND_API.G_EXC_ERROR;
4738: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4740: END IF;
4741: end if ;
4735: END IF;
4736: IF l_return_status = G_RET_ERROR THEN
4737: raise FND_API.G_EXC_ERROR;
4738: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4740: END IF;
4741: end if ;
4742:
4743: -- Always overwrite the starting intraop step for Split and Update Assy txn..
4766: x_msg_count => l_msg_count,
4767: x_msg_data => l_msg_data
4768: );
4769:
4770: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4771: if( g_log_level_statement >= l_log_level ) then
4772:
4773: l_msg_tokens.delete;
4774: WSM_log_PVT.logMessage(p_module_name => l_module ,
4780: p_run_log_level => l_log_level
4781: );
4782: END IF;
4783: IF l_return_status = G_RET_ERROR THEN
4784: raise FND_API.G_EXC_ERROR;
4785: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4786: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4787: END IF;
4788: end if ;
4782: END IF;
4783: IF l_return_status = G_RET_ERROR THEN
4784: raise FND_API.G_EXC_ERROR;
4785: ELSIF l_return_status = G_RET_UNEXPECTED THEN
4786: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4787: END IF;
4788: end if ;
4789: l_counter := p_resulting_jobs_tbl.next(l_counter);
4790:
4805: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4806: p_run_log_level => l_log_level
4807: );
4808: END IF;
4809: RAISE FND_API.G_EXC_ERROR;
4810: end if;
4811:
4812: /* End Bugfix 5438722 */
4813:
4829: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4830: p_run_log_level => l_log_level
4831: );
4832: END IF;
4833: RAISE FND_API.G_EXC_ERROR;
4834: end if;
4835:
4836: l_counter := p_resulting_jobs_tbl.last + 1;
4837: l_stmt_num := 170;
4914: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4915: p_run_log_level => l_log_level
4916: );
4917: END IF;
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920:
4921: p_resulting_jobs_tbl(l_start_as_result).start_quantity := p_resulting_jobs_tbl(l_start_as_result).start_quantity + ( p_starting_job_rec.quantity_available - l_total_quantity );
4922:
4933: END IF;
4934: -- ST : Serial Support Project --
4935: END IF;
4936: END IF;
4937: x_return_status := FND_API.G_RET_STS_SUCCESS;
4938:
4939: exception
4940:
4941: WHEN FND_API.G_EXC_ERROR THEN
4937: x_return_status := FND_API.G_RET_STS_SUCCESS;
4938:
4939: exception
4940:
4941: WHEN FND_API.G_EXC_ERROR THEN
4942:
4943: x_return_status := G_RET_ERROR;
4944: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
4945: p_count => x_msg_count ,
4945: p_count => x_msg_count ,
4946: p_data => x_msg_data
4947: );
4948:
4949: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4950:
4951: x_return_status := G_RET_UNEXPECTED;
4952:
4953: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
5000: l_msg_data VARCHAR2(2000);
5001:
5002: l_err_code NUMBER;
5003: l_err_msg VARCHAR2(2000);
5004: l_null_char VARCHAR2(1) := FND_API.G_NULL_CHAR;
5005:
5006: -- logging variables
5007: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.derive_val_res_job_details';
5008: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
5025: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5026: p_run_log_level => l_log_level
5027: );
5028: END IF;
5029: raise FND_API.G_EXC_ERROR;
5030: end if;
5031:
5032: l_stmt_num := 20;
5033: -- Default the job type to be Standard
5052: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5053: p_run_log_level => l_log_level
5054: );
5055: END IF;
5056: RAISE FND_API.G_EXC_ERROR;
5057:
5058: -- Bug 5487991 end of code addition for this fix
5059:
5060: end if;
5103: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5104: p_run_log_level => l_log_level
5105: );
5106: END IF;
5107: RAISE FND_API.G_EXC_ERROR;
5108: ELSE
5109: l_stmt_num := 40;
5110: -- check if already existing job name
5111: select 1
5127: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5128: p_run_log_level => l_log_level
5129: );
5130: END IF;
5131: RAISE FND_API.G_EXC_ERROR;
5132: END IF;
5133: END IF;
5134: EXCEPTION
5135: WHEN NO_DATA_FOUND THEN
5146: x_msg_count => l_msg_count,
5147: x_msg_data => l_msg_data
5148: );
5149:
5150: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5151: if( g_log_level_statement >= l_log_level ) then
5152:
5153: l_msg_tokens.delete;
5154: WSM_log_PVT.logMessage(p_module_name => l_module ,
5160: p_run_log_level => l_log_level
5161: );
5162: END IF;
5163: IF l_return_status = G_RET_ERROR THEN
5164: raise FND_API.G_EXC_ERROR;
5165: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5166: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5167: END IF;
5168: END IF;
5162: END IF;
5163: IF l_return_status = G_RET_ERROR THEN
5164: raise FND_API.G_EXC_ERROR;
5165: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5166: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5167: END IF;
5168: END IF;
5169:
5170: select nvl(serial_number_control_code,1)
5190: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5191: p_run_log_level => l_log_level
5192: );
5193: END IF;
5194: RAISE FND_API.G_EXC_ERROR;
5195: elsif p_resulting_job_rec.net_quantity is NULL then
5196: -- default the net quantity
5197: p_resulting_job_rec.net_quantity := round(p_resulting_job_rec.start_quantity,6);
5198:
5215: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5216: p_run_log_level => l_log_level
5217: );
5218: END IF;
5219: RAISE FND_API.G_EXC_ERROR;
5220: end if;
5221:
5222: -- Validate for serial --
5223: if (l_serial_control = 2) AND
5237: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5238: p_run_log_level => l_log_level
5239: );
5240: END IF;
5241: RAISE FND_API.G_EXC_ERROR;
5242: end if;
5243: -- end validate for serial --
5244:
5245: -- Start date completion date defaulting to be handled...
5259: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5260: p_run_log_level => l_log_level
5261: );
5262: END IF;
5263: RAISE FND_API.G_EXC_ERROR;
5264:
5265: else
5266: -- Obtain the scheduled completion date information
5267: if p_resulting_job_rec.scheduled_completion_date is null then
5299: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5300: p_run_log_level => l_log_level
5301: );
5302: END IF;
5303: RAISE FND_API.G_EXC_ERROR;
5304: end if;
5305:
5306:
5307: -- check the account .......
5345: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5346: p_run_log_level => l_log_level
5347: );
5348: END IF;
5349: raise FND_API.G_EXC_ERROR;
5350: END;
5351:
5352: -- call derive_val_bom_info
5353: l_stmt_num := 70;
5364: x_msg_count => l_msg_count,
5365: x_msg_data => l_msg_data
5366: );
5367:
5368: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5369: if( g_log_level_statement >= l_log_level ) then
5370:
5371: l_msg_tokens.delete;
5372: WSM_log_PVT.logMessage(p_module_name => l_module ,
5378: p_run_log_level => l_log_level
5379: );
5380: END IF;
5381: IF l_return_status = G_RET_ERROR THEN
5382: raise FND_API.G_EXC_ERROR;
5383: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5384: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5385: END IF;
5386: end if ;
5380: END IF;
5381: IF l_return_status = G_RET_ERROR THEN
5382: raise FND_API.G_EXC_ERROR;
5383: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5384: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5385: END IF;
5386: end if ;
5387:
5388: -- call derive_val_routing_info
5400: x_msg_count => l_msg_count,
5401: x_msg_data => l_msg_data
5402: );
5403:
5404: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5405: if( g_log_level_statement >= l_log_level ) then
5406:
5407: l_msg_tokens.delete;
5408: WSM_log_PVT.logMessage(p_module_name => l_module ,
5414: p_run_log_level => l_log_level
5415: );
5416: END IF;
5417: IF l_return_status = G_RET_ERROR THEN
5418: raise FND_API.G_EXC_ERROR;
5419: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5420: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5421: END IF;
5422: end if ;
5416: END IF;
5417: IF l_return_status = G_RET_ERROR THEN
5418: raise FND_API.G_EXC_ERROR;
5419: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5420: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5421: END IF;
5422: end if ;
5423:
5424: l_stmt_num := 90;
5441: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5442: p_run_log_level => l_log_level
5443: );
5444: END IF;
5445: RAISE FND_API.G_EXC_ERROR;
5446: END IF;
5447:
5448: -- validate network
5449: validate_network( p_txn_org_id => p_txn_org_id,
5457: x_msg_count => l_msg_count,
5458: x_msg_data => l_msg_data
5459: );
5460:
5461: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5462: if( g_log_level_statement >= l_log_level ) then
5463:
5464: l_msg_tokens.delete;
5465: WSM_log_PVT.logMessage(p_module_name => l_module ,
5471: p_run_log_level => l_log_level
5472: );
5473: END IF;
5474: IF l_return_status = G_RET_ERROR THEN
5475: raise FND_API.G_EXC_ERROR;
5476: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5478: END IF;
5479: end if ;
5473: END IF;
5474: IF l_return_status = G_RET_ERROR THEN
5475: raise FND_API.G_EXC_ERROR;
5476: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5478: END IF;
5479: end if ;
5480:
5481: -- Subinv derivation...
5498: x_msg_count => l_msg_count,
5499: x_msg_data => l_msg_data
5500: );
5501:
5502: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5503: if( g_log_level_statement >= l_log_level ) then
5504:
5505: l_msg_tokens.delete;
5506: WSM_log_PVT.logMessage(p_module_name => l_module ,
5512: p_run_log_level => l_log_level
5513: );
5514: END IF;
5515: IF l_return_status = G_RET_ERROR THEN
5516: raise FND_API.G_EXC_ERROR;
5517: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5518: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5519: END IF;
5520: end if ;
5514: END IF;
5515: IF l_return_status = G_RET_ERROR THEN
5516: raise FND_API.G_EXC_ERROR;
5517: ELSIF l_return_status = G_RET_UNEXPECTED THEN
5518: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5519: END IF;
5520: end if ;
5521:
5522: -- class code check .....dependent on the subinventory....
5545: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5546: p_run_log_level => l_log_level
5547: );
5548: END IF;
5549: RAISE FND_API.G_EXC_ERROR;
5550: END IF;
5551:
5552: IF l_class_code IS NULL THEN
5553: -- error out....
5564: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5565: p_run_log_level => l_log_level
5566: );
5567: END IF;
5568: RAISE FND_API.G_EXC_ERROR;
5569:
5570: END IF;
5571:
5572: p_resulting_job_rec.class_code := l_class_code;
5604: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5605: p_run_log_level => l_log_level
5606: );
5607: END IF;
5608: RAISE FND_API.G_EXC_ERROR;
5609: END IF;
5610:
5611: END IF;
5612:
5654: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5655: p_run_log_level => l_log_level
5656: );
5657: END IF;
5658: RAISE FND_API.G_EXC_ERROR;
5659: END IF;
5660:
5661: l_stmt_num := 150;
5662: -- Bug 5487991 end addition of code for this fix
5677: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5678: p_run_log_level => l_log_level
5679: );
5680: END IF;
5681: RAISE FND_API.G_EXC_ERROR;
5682: END;
5683:
5684: x_return_status := FND_API.G_RET_STS_SUCCESS;
5685:
5680: END IF;
5681: RAISE FND_API.G_EXC_ERROR;
5682: END;
5683:
5684: x_return_status := FND_API.G_RET_STS_SUCCESS;
5685:
5686: EXCEPTION
5687: WHEN FND_API.G_EXC_ERROR THEN
5688:
5683:
5684: x_return_status := FND_API.G_RET_STS_SUCCESS;
5685:
5686: EXCEPTION
5687: WHEN FND_API.G_EXC_ERROR THEN
5688:
5689: x_return_status := G_RET_ERROR;
5690: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
5691: p_count => x_msg_count ,
5691: p_count => x_msg_count ,
5692: p_data => x_msg_data
5693: );
5694:
5695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5696:
5697: x_return_status := G_RET_UNEXPECTED;
5698:
5699: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
5737: x_msg_data OUT NOCOPY VARCHAR2
5738: ) is
5739:
5740: l_rtg_revision WIP_DISCRETE_JOBS.ROUTING_REVISION%TYPE; --varchar2(10); -- ST : Changed
5741: l_null_char VARCHAR2(10) := FND_API.G_NULL_CHAR;
5742:
5743: l_rj_compl_subinv WIP_DISCRETE_JOBS.completion_subinventory%TYPE; -- VARCHAR2(1000); -- ST : Changed
5744: l_rj_loc_id NUMBER;
5745: l_rj_rtg_seq_id NUMBER;
5765: l_stmt_num NUMBER := 0;
5766: l_param_tbl WSM_Log_PVT.param_tbl_type;
5767:
5768: begin
5769: x_return_status := FND_API.G_RET_STS_SUCCESS;
5770:
5771: l_stmt_num := 10;
5772:
5773: IF FND_LOG.LEVEL_PROCEDURE >= l_log_level THEN
5825: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5826: p_run_log_level => l_log_level
5827: );
5828: END IF;
5829: RAISE FND_API.G_EXC_ERROR;
5830: else
5831: -- cross validate......
5832: if( g_log_level_statement >= l_log_level ) then
5833: l_msg_tokens.delete;
5874: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5875: p_run_log_level => l_log_level
5876: );
5877: END IF;
5878: RAISE FND_API.G_EXC_ERROR;
5879: END;
5880: END IF;
5881:
5882: end if;
5914: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
5915: p_run_log_level => l_log_level
5916: );
5917: END IF;
5918: RAISE FND_API.G_EXC_ERROR;
5919:
5920: END IF;
5921: -- ST : Fix for bug 5218479 end --
5922:
6022: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6023: p_run_log_level => l_log_level
6024: );
6025: END IF;
6026: RAISE FND_API.G_EXC_ERROR;
6027: END IF;
6028: -- ST : Fix for bug 5218479 end --
6029:
6030: -- call routing_seq procedure to validate the routing fields...
6042: x_error_msg => l_msg_data,
6043: x_error_count => l_msg_count
6044: );
6045:
6046: if l_return_status <> fnd_api.g_ret_sts_success then
6047: -- error our...........
6048: if( g_log_level_statement >= l_log_level ) then
6049: l_msg_tokens.delete;
6050: WSM_log_PVT.logMessage(p_module_name => l_module ,
6055: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6056: p_run_log_level => l_log_level
6057: );
6058: END IF;
6059: raise FND_API.G_EXC_ERROR;
6060: end if;
6061:
6062: l_stmt_num := 50;
6063: x_return_status := FND_API.G_RET_STS_SUCCESS;
6059: raise FND_API.G_EXC_ERROR;
6060: end if;
6061:
6062: l_stmt_num := 50;
6063: x_return_status := FND_API.G_RET_STS_SUCCESS;
6064:
6065: exception
6066:
6067: WHEN FND_API.G_EXC_ERROR THEN
6063: x_return_status := FND_API.G_RET_STS_SUCCESS;
6064:
6065: exception
6066:
6067: WHEN FND_API.G_EXC_ERROR THEN
6068:
6069: x_return_status := G_RET_ERROR;
6070: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6071: p_count => x_msg_count ,
6071: p_count => x_msg_count ,
6072: p_data => x_msg_data
6073: );
6074:
6075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6076:
6077: x_return_status := G_RET_UNEXPECTED;
6078:
6079: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6115: x_msg_count OUT NOCOPY NUMBER,
6116: x_msg_data OUT NOCOPY VARCHAR2
6117: ) is
6118:
6119: l_null_char VARCHAR2(10) := FND_API.G_NULL_CHAR;
6120: l_null_num NUMBER := FND_API.G_NULL_NUM;
6121: l_null_date DATE := FND_API.G_NULL_DATE;
6122:
6123: l_bom_seq_id NUMBER;
6116: x_msg_data OUT NOCOPY VARCHAR2
6117: ) is
6118:
6119: l_null_char VARCHAR2(10) := FND_API.G_NULL_CHAR;
6120: l_null_num NUMBER := FND_API.G_NULL_NUM;
6121: l_null_date DATE := FND_API.G_NULL_DATE;
6122:
6123: l_bom_seq_id NUMBER;
6124: l_common_bom_seq_id NUMBER;
6117: ) is
6118:
6119: l_null_char VARCHAR2(10) := FND_API.G_NULL_CHAR;
6120: l_null_num NUMBER := FND_API.G_NULL_NUM;
6121: l_null_date DATE := FND_API.G_NULL_DATE;
6122:
6123: l_bom_seq_id NUMBER;
6124: l_common_bom_seq_id NUMBER;
6125: l_return_status VARCHAR2(1);
6143: l_stmt_num NUMBER := 0;
6144: l_param_tbl WSM_Log_PVT.param_tbl_type;
6145:
6146: begin
6147: x_return_status := FND_API.G_RET_STS_SUCCESS;
6148: l_stmt_num := 10;
6149:
6150: IF FND_LOG.LEVEL_PROCEDURE >= l_log_level THEN
6151:
6232: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6233: p_run_log_level => l_log_level
6234: );
6235: END IF;
6236: RAISE FND_API.G_EXC_ERROR;
6237: ELSE
6238: -- cross validate......
6239: BEGIN
6240: -- ST : Bug fix 4914162 : Added an IF clause
6269: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6270: p_run_log_level => l_log_level
6271: );
6272: END IF;
6273: RAISE FND_API.G_EXC_ERROR;
6274:
6275: END;
6276: END IF;
6277:
6358: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6359: p_run_log_level => l_log_level
6360: );
6361: END IF;
6362: raise FND_API.G_EXC_ERROR;
6363: END IF;
6364: -- ST : Fix for bug 5218479 end..
6365:
6366: l_stmt_num := 40;
6364: -- ST : Fix for bug 5218479 end..
6365:
6366: l_stmt_num := 40;
6367: -- call bom_seq
6368: l_return_status := FND_API.G_RET_STS_SUCCESS;
6369: l_msg_data := null;
6370:
6371: bom_seq ( p_job_type => p_sj_job_type , -- 1 std job, 3 or otherwise non-std
6372: p_org_id => p_txn_org_id,
6379: x_error_msg => l_msg_data,
6380: x_error_count => l_msg_count
6381: );
6382:
6383: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6384: if( g_log_level_statement >= l_log_level ) then
6385: l_msg_tokens.delete;
6386: WSM_log_PVT.logMessage(p_module_name => l_module ,
6387: p_msg_text => 'Procedure bom_seq returned failure',
6391: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6392: p_run_log_level => l_log_level
6393: );
6394: END IF;
6395: raise FND_API.G_EXC_ERROR;
6396: end if;
6397:
6398: l_stmt_num := 50;
6399: x_return_status := FND_API.G_RET_STS_SUCCESS;
6395: raise FND_API.G_EXC_ERROR;
6396: end if;
6397:
6398: l_stmt_num := 50;
6399: x_return_status := FND_API.G_RET_STS_SUCCESS;
6400:
6401: exception
6402: WHEN FND_API.G_EXC_ERROR THEN
6403:
6398: l_stmt_num := 50;
6399: x_return_status := FND_API.G_RET_STS_SUCCESS;
6400:
6401: exception
6402: WHEN FND_API.G_EXC_ERROR THEN
6403:
6404: x_return_status := G_RET_ERROR;
6405: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6406: p_count => x_msg_count ,
6406: p_count => x_msg_count ,
6407: p_data => x_msg_data
6408: );
6409:
6410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6411:
6412: x_return_status := G_RET_UNEXPECTED;
6413:
6414: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6471: l_stmt_num NUMBER := 0;
6472: l_param_tbl WSM_Log_PVT.param_tbl_type;
6473:
6474: begin
6475: x_return_status := FND_API.G_RET_STS_SUCCESS;
6476: l_stmt_num := 10;
6477:
6478: IF FND_LOG.LEVEL_PROCEDURE >= l_log_level THEN
6479:
6568: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6569: p_run_log_level => l_log_level
6570: );
6571: END IF;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END;
6574: END IF;
6575: ELSE -- p_old_rtg_seq_id <> p_new_rtg_seq_id
6576: l_stmt_num := 40;
6603: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6604: p_run_log_level => l_log_level
6605: );
6606: END IF;
6607: RAISE FND_API.G_EXC_ERROR;
6608: end;
6609:
6610: p_rj_completion_subinventory := nvl(p_rj_completion_subinventory,l_completion_subinventory);
6611:
6642: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6643: p_run_log_level => l_log_level
6644: );
6645: END IF;
6646: RAISE FND_API.G_EXC_ERROR;
6647: END;
6648: END IF;
6649: END IF;
6650:
6687: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6688: p_run_log_level => l_log_level
6689: );
6690: END IF;
6691: RAISE FND_API.G_EXC_ERROR;
6692:
6693: end;
6694: l_stmt_num := 70;
6695: begin
6724: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6725: p_run_log_level => l_log_level
6726: );
6727: END IF;
6728: RAISE FND_API.G_EXC_ERROR;
6729: RETURN;
6730: END IF;
6731: --END IF; --Bug 5380799:Locator id validation is called even if the locator id is null.
6732:
6729: RETURN;
6730: END IF;
6731: --END IF; --Bug 5380799:Locator id validation is called even if the locator id is null.
6732:
6733: x_return_status := FND_API.G_RET_STS_SUCCESS;
6734: exception
6735:
6736: WHEN FND_API.G_EXC_ERROR THEN
6737:
6732:
6733: x_return_status := FND_API.G_RET_STS_SUCCESS;
6734: exception
6735:
6736: WHEN FND_API.G_EXC_ERROR THEN
6737:
6738: x_return_status := G_RET_ERROR;
6739: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6740: p_count => x_msg_count ,
6740: p_count => x_msg_count ,
6741: p_data => x_msg_data
6742: );
6743:
6744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6745:
6746: x_return_status := G_RET_UNEXPECTED;
6747:
6748: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
6801: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6802: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.derive_val_starting_op';
6803:
6804: begin
6805: x_return_status := FND_API.G_RET_STS_SUCCESS;
6806: -- currently not supported for option 'a' : assumption it is not supported
6807: l_stmt_num :=10;
6808: if( g_log_level_statement >= l_log_level ) then
6809: l_msg_tokens.delete;
6869: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6870: p_run_log_level => l_log_level
6871: );
6872: END IF;
6873: raise FND_API.G_EXC_ERROR;
6874: end if;
6875:
6876: if l_op_rptd_times = 1 then -- Found a match
6877: l_stmt_num :=30;
6926: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6927: p_run_log_level => l_log_level
6928: );
6929: END IF;
6930: raise FND_API.G_EXC_ERROR;
6931: end if;
6932:
6933: EXCEPTION
6934: when no_data_found then
6946: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6947: p_run_log_level => l_log_level
6948: );
6949: END IF;
6950: raise FND_API.G_EXC_ERROR;
6951: END;
6952:
6953: elsif l_op_rptd_times > 1 then
6954: l_stmt_num :=40;
6965: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6966: p_run_log_level => l_log_level
6967: );
6968: END IF;
6969: raise FND_API.G_EXC_ERROR;
6970: else
6971: l_stmt_num :=50;
6972: -- no match found....
6973: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
6982: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
6983: p_run_log_level => l_log_level
6984: );
6985: END IF;
6986: raise FND_API.G_EXC_ERROR;
6987: end if;
6988:
6989: else
6990: l_stmt_num :=60;
7001: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7002: p_run_log_level => l_log_level
7003: );
7004: END IF;
7005: raise FND_API.G_EXC_ERROR;
7006: end if;
7007: else
7008: -- logic .....
7009: l_stmt_num :=70;
7114: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7115: p_run_log_level => l_log_level
7116: );
7117: END IF;
7118: raise FND_API.G_EXC_ERROR;
7119: END;
7120: end if;
7121:
7122: -- check for PO_MOVE....
7138: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7139: p_run_log_level => l_log_level
7140: );
7141: END IF;
7142: raise FND_API.G_EXC_ERROR;
7143: END IF;
7144:
7145: if( g_log_level_statement >= l_log_level ) then
7146: l_msg_tokens.delete;
7152: p_run_log_level => l_log_level
7153: );
7154: End if;
7155:
7156: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157:
7158: exception
7159:
7160: WHEN FND_API.G_EXC_ERROR THEN
7156: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157:
7158: exception
7159:
7160: WHEN FND_API.G_EXC_ERROR THEN
7161:
7162: x_return_status := G_RET_ERROR;
7163: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7164: p_count => x_msg_count ,
7164: p_count => x_msg_count ,
7165: p_data => x_msg_data
7166: );
7167:
7168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7169:
7170: x_return_status := G_RET_UNEXPECTED;
7171:
7172: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7211: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7212: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WLT_VALIDATE_PVT.derive_val_primary_item';
7213:
7214: begin
7215: x_return_status := FND_API.G_RET_STS_SUCCESS;
7216:
7217: l_stmt_num := 10;
7218: IF p_new_item_name IS NULL AND p_new_item_id IS NULL THEN
7219: -- error out.... .
7231: p_run_log_level => l_log_level
7232: );
7233: END IF;
7234:
7235: RAISE FND_API.G_EXC_ERROR;
7236:
7237: end if;
7238:
7239: l_stmt_num := 20;
7274: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7275: p_run_log_level => l_log_level
7276: );
7277: END IF;
7278: RAISE FND_API.G_EXC_ERROR;
7279: END;
7280:
7281: l_stmt_num := 30;
7282: IF p_new_item_id = p_old_item_id then
7295: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7296: p_run_log_level => l_log_level
7297: );
7298: END IF;
7299: RAISE FND_API.G_EXC_ERROR;
7300: end if;
7301:
7302: l_stmt_num := 40;
7303: if l_lot_control_code <> 2 OR (l_serial_number_control_code NOT IN(1,2))then
7315: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7316: p_run_log_level => l_log_level
7317: );
7318: END IF;
7319: RAISE FND_API.G_EXC_ERROR;
7320:
7321: end if;
7322:
7323: x_return_status := FND_API.G_RET_STS_SUCCESS;
7319: RAISE FND_API.G_EXC_ERROR;
7320:
7321: end if;
7322:
7323: x_return_status := FND_API.G_RET_STS_SUCCESS;
7324:
7325: exception
7326:
7327: WHEN FND_API.G_EXC_ERROR THEN
7323: x_return_status := FND_API.G_RET_STS_SUCCESS;
7324:
7325: exception
7326:
7327: WHEN FND_API.G_EXC_ERROR THEN
7328:
7329: x_return_status := G_RET_ERROR;
7330: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7331: p_count => x_msg_count ,
7331: p_count => x_msg_count ,
7332: p_data => x_msg_data
7333: );
7334:
7335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7336:
7337: x_return_status := G_RET_UNEXPECTED;
7338:
7339: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7394: savepoint start_insert_txn_data;
7395:
7396: l_stmt_num := 10;
7397: -- Initialize API return status to success
7398: x_return_status := FND_API.G_RET_STS_SUCCESS;
7399:
7400: -- Log the Procedure entry point....
7401: if( g_log_level_statement >= l_log_level ) then
7402: l_msg_tokens.delete;
7781: p_fnd_log_level => g_log_level_statement,
7782: p_run_log_level => l_log_level
7783: );
7784: End if;
7785: x_return_status := FND_API.G_RET_STS_SUCCESS;
7786:
7787: EXCEPTION
7788: WHEN FND_API.G_EXC_ERROR THEN
7789:
7784: End if;
7785: x_return_status := FND_API.G_RET_STS_SUCCESS;
7786:
7787: EXCEPTION
7788: WHEN FND_API.G_EXC_ERROR THEN
7789:
7790: x_return_status := G_RET_ERROR;
7791: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7792: p_count => x_msg_count ,
7792: p_count => x_msg_count ,
7793: p_data => x_msg_data
7794: );
7795:
7796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7797:
7798: x_return_status := G_RET_UNEXPECTED;
7799:
7800: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
7875: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7876: p_run_log_level => l_log_level
7877: );
7878: END IF;
7879: RAISE FND_API.G_EXC_ERROR;
7880: end if;
7881:
7882: --Bug 5395091: Get replacement op seq id for the starting op seq id determined above.
7883: l_start_op_seq_id := WSMPUTIL.replacement_op_seq_id(l_start_op_seq_id,p_revision_date);
7904: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7905: p_run_log_level => l_log_level
7906: );
7907: END IF;
7908: RAISE FND_API.G_EXC_ERROR;
7909: end if;
7910: --Bug 5395091: Get replacement op seq id for the end op seq id determined above.
7911: l_end_op_seq_id := WSMPUTIL.replacement_op_seq_id(l_end_op_seq_id,p_revision_date);
7912:
7969: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
7970: p_run_log_level => l_log_level
7971: );
7972: END IF;
7973: RAISE FND_API.G_EXC_ERROR;
7974: END;
7975:
7976: -- Is it a primary path..... .
7977: BEGIN
8030: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
8031: p_run_log_level => l_log_level
8032: );
8033: END IF;
8034: RAISE FND_API.G_EXC_ERROR;
8035: END;
8036:
8037: -- Checks if primary path exists till the start....
8038: l_stmt_num := 60;
8058: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
8059: p_run_log_level => l_log_level
8060: );
8061: END IF;
8062: RAISE FND_API.G_EXC_ERROR;
8063: END IF;
8064: END IF;
8065: EXCEPTION
8066: WHEN FND_API.G_EXC_ERROR THEN
8062: RAISE FND_API.G_EXC_ERROR;
8063: END IF;
8064: END IF;
8065: EXCEPTION
8066: WHEN FND_API.G_EXC_ERROR THEN
8067: x_return_status := G_RET_ERROR;
8068: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
8069: p_count => x_msg_count ,
8070: p_data => x_msg_data
8069: p_count => x_msg_count ,
8070: p_data => x_msg_data
8071: );
8072:
8073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8074:
8075:
8076: x_return_status := G_RET_UNEXPECTED;
8077: