[Home] [Help]
402: l_rev_id NUMBER;
403: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
404: BEGIN
405:
406: x_return_status := fnd_api.g_ret_sts_success;
407:
408: IF l_debug = 1 THEN
409: trace(' Inside get_gtin_and_gserial');
410: trace('p_org_id :'||p_org_id ||','||'p_item_id :'||p_item_id);
448: --Do not raise exception here
449:
450: WHEN OTHERS THEN
451: l_found_gtin := 0;
452: RAISE fnd_api.g_exc_unexpected_error;
453: END;
454:
455: IF l_found_gtin = 1 THEN --FOUND GTIN
456: --overwrite the value l_uom_code for GTIN setup
491: --Do not raise exception here
492:
493: WHEN OTHERS THEN
494: l_found_gtin := 0;
495: RAISE fnd_api.g_exc_unexpected_error;
496:
497: END;
498:
499: IF l_debug = 1 then
528: END IF ;
529:
530: fnd_message.set_name('WMS', 'WMS_INVALID_GTIN');
531: fnd_msg_pub.ADD;
532: RAISE fnd_api.g_exc_error;
533: END IF;
534:
535: ELSIF l_found_gtin = 0 THEN
536:
535: ELSIF l_found_gtin = 0 THEN
536:
537: fnd_message.set_name('WMS', 'WMS_INVALID_GTIN');
538: fnd_msg_pub.ADD;
539: RAISE fnd_api.g_exc_error;
540:
541: END IF;
542:
543:
561:
562: IF x_gtin_serial IS NULL THEN
563: fnd_message.set_name('WMS', 'WMS_INVALID_GTIN_GSERIAL');
564: fnd_msg_pub.ADD;
565: RAISE fnd_api.g_exc_error;
566:
567: END IF;
568:
569: ELSE
568:
569: ELSE
570: fnd_message.set_name('WMS', 'WMS_NO_GTIN_FOUND');
571: fnd_msg_pub.ADD;
572: RAISE fnd_api.g_exc_error;
573: END IF;
574:
575:
576: EXCEPTION
574:
575:
576: EXCEPTION
577:
578: WHEN fnd_api.g_exc_error THEN
579: x_return_status := fnd_api.g_ret_sts_error;
580: x_gtin := NULL;
581: x_gtin_serial := NULL;
582: RAISE; -- to raised to the outer call
575:
576: EXCEPTION
577:
578: WHEN fnd_api.g_exc_error THEN
579: x_return_status := fnd_api.g_ret_sts_error;
580: x_gtin := NULL;
581: x_gtin_serial := NULL;
582: RAISE; -- to raised to the outer call
583:
580: x_gtin := NULL;
581: x_gtin_serial := NULL;
582: RAISE; -- to raised to the outer call
583:
584: WHEN fnd_api.g_exc_unexpected_error THEN
585: x_return_status := fnd_api.g_ret_sts_unexp_error;
586: x_gtin := NULL;
587: x_gtin_serial := NULL;
588: RAISE; -- to raised to the outer call
581: x_gtin_serial := NULL;
582: RAISE; -- to raised to the outer call
583:
584: WHEN fnd_api.g_exc_unexpected_error THEN
585: x_return_status := fnd_api.g_ret_sts_unexp_error;
586: x_gtin := NULL;
587: x_gtin_serial := NULL;
588: RAISE; -- to raised to the outer call
589:
592: trace('Unexpected error inside get_gtin_and_gserial()');
593: trace('ERROR CODE = ' || SQLCODE);
594: trace('ERROR MESSAGE = ' || SQLERRM);
595: END IF;
596: x_return_status := fnd_api.g_ret_sts_unexp_error;
597: x_gtin := NULL;
598: x_gtin_serial := NULL;
599: RAISE;
600:
626: l_total_mmtt_qty1 NUMBER;
627: l_total_mmtt_qty2 NUMBER;
628: l_rev_id NUMBER;
629: BEGIN
630: x_return_status := fnd_api.g_ret_sts_success;
631:
632: IF l_debug = 1 then
633: trace('Inside get_lpn_gtin_serial p_business_flow_code :'|| p_business_flow_code);
634: END IF;
686: WHEN OTHERS THEN
687: IF l_debug = 1 THEN
688: trace('unexpected error for wms_bf_pick_load');
689: END IF;
690: RAISE fnd_api.g_exc_unexpected_error;
691:
692: END;
693:
694: IF l_debug = 1 then
736: WHEN OTHERS THEN
737: IF l_debug = 1 THEN
738: trace('unexpected error for Pick Release cartonization');
739: END IF;
740: RAISE fnd_api.g_exc_unexpected_error;
741:
742: END;
743:
744: IF l_debug = 1 then
782: WHEN OTHERS THEN
783: IF l_debug = 1 THEN
784: trace('Pallet unexpected error for Pick Release cartonization');
785: END IF;
786: RAISE fnd_api.g_exc_unexpected_error;
787:
788: END;
789:
790:
829: WHEN OTHERS THEN
830: IF l_debug = 1 THEN
831: trace('Case unexpected error for Pick Release cartonization');
832: END IF;
833: RAISE fnd_api.g_exc_unexpected_error;
834:
835: END;
836:
837: END IF;
893: WHEN OTHERS THEN
894: IF l_debug = 1 THEN
895: trace('WIP unexpected error for Pick Release cartonization');
896: END IF;
897: RAISE fnd_api.g_exc_unexpected_error;
898:
899: END;
900:
901: IF l_debug = 1 then
937: WHEN no_data_found THEN
938: l_is_gtin_valid := FALSE;
939:
940: WHEN OTHERS THEN
941: RAISE fnd_api.g_exc_unexpected_error;
942: END;
943:
944:
945: ELSIF p_filter_value = WMS_EPC_CASE_OBJ_TYPE THEN --case
979: WHEN no_data_found THEN
980: l_is_gtin_valid := FALSE;
981:
982: WHEN OTHERS THEN
983: RAISE fnd_api.g_exc_unexpected_error;
984:
985: END;
986:
987: END IF;
1022: ELSE
1023:
1024: fnd_message.set_name('WMS', 'WMS_NO_GTIN_FOUND');
1025: fnd_msg_pub.ADD;
1026: RAISE fnd_api.g_exc_error;
1027:
1028: END IF;--if l_is_gtin_valid
1029:
1030:
1029:
1030:
1031:
1032: EXCEPTION
1033: WHEN fnd_api.g_exc_error THEN
1034: x_return_status := fnd_api.g_ret_sts_error;
1035: x_gtin_serial := NULL;
1036: x_gtin := NULL;
1037: RAISE;
1030:
1031:
1032: EXCEPTION
1033: WHEN fnd_api.g_exc_error THEN
1034: x_return_status := fnd_api.g_ret_sts_error;
1035: x_gtin_serial := NULL;
1036: x_gtin := NULL;
1037: RAISE;
1038: WHEN fnd_api.g_exc_unexpected_error THEN
1034: x_return_status := fnd_api.g_ret_sts_error;
1035: x_gtin_serial := NULL;
1036: x_gtin := NULL;
1037: RAISE;
1038: WHEN fnd_api.g_exc_unexpected_error THEN
1039: x_return_status := fnd_api.g_ret_sts_unexp_error;
1040: x_gtin := NULL;
1041: x_gtin_serial := NULL;
1042: RAISE;
1035: x_gtin_serial := NULL;
1036: x_gtin := NULL;
1037: RAISE;
1038: WHEN fnd_api.g_exc_unexpected_error THEN
1039: x_return_status := fnd_api.g_ret_sts_unexp_error;
1040: x_gtin := NULL;
1041: x_gtin_serial := NULL;
1042: RAISE;
1043: WHEN OTHERS THEN
1045: trace('Unexpected error inside get_LPN_gtin_serial()');
1046: trace('ERROR CODE = ' || SQLCODE);
1047: trace('ERROR MESSAGE = ' || SQLERRM);
1048: END IF;
1049: x_return_status := fnd_api.g_ret_sts_unexp_error;
1050: x_gtin := NULL;
1051: x_gtin_serial := NULL;
1052: RAISE;
1053:
1071: l_uom_code VARCHAR2(3);
1072: l_primary_uom_code VARCHAR2(3);
1073: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1074: BEGIN
1075: x_return_status := fnd_api.g_ret_sts_success;
1076: -- if p_uom_code is NOT primary UOM, get primary qty in primary UOM
1077: -- For the primary qty, get the corresponding UOM conversion
1078:
1079: IF l_debug = 1 then
1107: END IF;
1108: ELSE
1109: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1110: fnd_msg_pub.ADD;
1111: RAISE fnd_api.g_exc_error;
1112: END IF;
1113:
1114:
1115: IF (p_uom_code <> inv_cache.item_rec.primary_uom_code) THEN
1156: trace('x_gtin_serial :'|| x_gtin_serial);
1157: END IF;
1158:
1159: EXCEPTION
1160: WHEN fnd_api.g_exc_error THEN
1161: x_return_status := fnd_api.g_ret_sts_error;
1162: x_gtin_serial := NULL;
1163: x_gtin := NULL;
1164: RAISE;
1157: END IF;
1158:
1159: EXCEPTION
1160: WHEN fnd_api.g_exc_error THEN
1161: x_return_status := fnd_api.g_ret_sts_error;
1162: x_gtin_serial := NULL;
1163: x_gtin := NULL;
1164: RAISE;
1165: WHEN fnd_api.g_exc_unexpected_error THEN
1161: x_return_status := fnd_api.g_ret_sts_error;
1162: x_gtin_serial := NULL;
1163: x_gtin := NULL;
1164: RAISE;
1165: WHEN fnd_api.g_exc_unexpected_error THEN
1166: x_return_status := fnd_api.g_ret_sts_unexp_error;
1167: x_gtin := NULL;
1168: x_gtin_serial := NULL;
1169: RAISE;
1162: x_gtin_serial := NULL;
1163: x_gtin := NULL;
1164: RAISE;
1165: WHEN fnd_api.g_exc_unexpected_error THEN
1166: x_return_status := fnd_api.g_ret_sts_unexp_error;
1167: x_gtin := NULL;
1168: x_gtin_serial := NULL;
1169: RAISE;
1170: WHEN OTHERS THEN
1172: trace('Unexpected error inside get_item_gtin_serial()');
1173: trace('ERROR CODE = ' || SQLCODE);
1174: trace('ERROR MESSAGE = ' || SQLERRM);
1175: END IF;
1176: x_return_status := fnd_api.g_ret_sts_unexp_error;
1177: x_gtin := NULL;
1178: x_gtin_serial := NULL;
1179: RAISE;
1180:
1195: l_rev_id NUMBER;
1196: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1197: BEGIN
1198:
1199: x_return_status := fnd_api.g_ret_sts_success;
1200:
1201:
1202: --GET THE PRIMARY UOM code FOR SERIAL ITEM
1203: IF ( inv_cache.set_item_rec(
1209: END IF;
1210: ELSE
1211: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1212: fnd_msg_pub.ADD;
1213: RAISE fnd_api.g_exc_error;
1214: END IF;
1215:
1216:
1217: -- See if the PRIMARY UOM obtained above is defined in the cross-reference table
1237:
1238:
1239: EXCEPTION
1240:
1241: WHEN fnd_api.g_exc_error THEN
1242: x_return_status := fnd_api.g_ret_sts_error;
1243: x_gtin_serial := NULL;
1244: x_gtin := NULL;
1245: RAISE;
1238:
1239: EXCEPTION
1240:
1241: WHEN fnd_api.g_exc_error THEN
1242: x_return_status := fnd_api.g_ret_sts_error;
1243: x_gtin_serial := NULL;
1244: x_gtin := NULL;
1245: RAISE;
1246: WHEN fnd_api.g_exc_unexpected_error THEN
1242: x_return_status := fnd_api.g_ret_sts_error;
1243: x_gtin_serial := NULL;
1244: x_gtin := NULL;
1245: RAISE;
1246: WHEN fnd_api.g_exc_unexpected_error THEN
1247: x_return_status := fnd_api.g_ret_sts_unexp_error;
1248: x_gtin := NULL;
1249: x_gtin_serial := NULL;
1250: RAISE;
1243: x_gtin_serial := NULL;
1244: x_gtin := NULL;
1245: RAISE;
1246: WHEN fnd_api.g_exc_unexpected_error THEN
1247: x_return_status := fnd_api.g_ret_sts_unexp_error;
1248: x_gtin := NULL;
1249: x_gtin_serial := NULL;
1250: RAISE;
1251: WHEN OTHERS THEN
1253: trace('Unexpected error inside get_serialnum_gtin_seria()');
1254: trace('ERROR CODE = ' || SQLCODE);
1255: trace('ERROR MESSAGE = ' || SQLERRM);
1256: END IF;
1257: x_return_status := fnd_api.g_ret_sts_unexp_error;
1258: x_gtin := NULL;
1259: x_gtin_serial := NULL;
1260: RAISE;
1261:
1294: ELSE
1295: l_lpn_num_format := NULL;
1296: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SSCC');
1297: FND_MSG_PUB.ADD;
1298: RAISE fnd_api.g_exc_error;
1299: END IF;
1300:
1301: EXCEPTION
1302: WHEN OTHERS THEN --catch the exception for alphanumeric case
1303: l_lpn_num_format := NULL;
1304: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SSCC');
1305: FND_MSG_PUB.ADD;
1306: trace('Other Exception in get_sscc()');
1307: RAISE fnd_api.g_exc_error;
1308: END;
1309:
1310: RETURN l_lpn_num_format;
1311:
1309:
1310: RETURN l_lpn_num_format;
1311:
1312: EXCEPTION
1313: WHEN fnd_api.g_exc_error THEN
1314: RAISE;
1315:
1316: WHEN OTHERS THEN
1317: IF l_debug = 1 THEN
1348: l_epc_id NUMBER;
1349: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1350: BEGIN
1351:
1352: x_return_status := fnd_api.g_ret_sts_success;
1353:
1354: IF l_debug = 1 THEN
1355: trace('************UPtoDATE WMS_EPC***');
1356: trace('p_action :'|| p_action );
1599: COMMIT;
1600:
1601: EXCEPTION
1602: WHEN OTHERS THEN
1603: x_return_status := fnd_api.g_ret_sts_error;
1604: IF l_debug = 1 THEN
1605: TRACE('UPTODATE WMS_EPC: inside exception');
1606: TRACE('ERROR CODE = ' || SQLCODE);
1607: TRACE('ERROR MESSAGE = ' || SQLERRM);
1728:
1729:
1730: BEGIN
1731:
1732: x_return_status := fnd_api.g_ret_sts_success;
1733:
1734: IF p_label_type_id IN (3,4,5) THEN --LPN, LPN Content, LPN Summary
1735:
1736: l_comp_prefix_dig_len:= Length(p_company_prefix);
1748:
1749: --{{ get the item reference from GTIN for LPN now }}
1750: --{{ l_gtin obtained IS NOT NULL }}
1751:
1752: IF l_return_status = fnd_api.g_ret_sts_success AND l_gtin IS NOT NULL THEN
1753:
1754: l_item_reference := To_number(Substr(To_char(l_gtin),1,1)||Substr(To_char(l_gtin),l_comp_prefix_dig_len+2,12-l_comp_prefix_dig_len));
1755:
1756: IF l_debug = 1 THEN
1848: IF l_debug = 1 THEN
1849: trace('Error : Incorrect SSCC value set up for the LPN');
1850: END IF;
1851:
1852: RAISE fnd_api.g_exc_error;
1853: END IF;
1854:
1855:
1856: ELSIF p_epc_rule_type IN ('EPC_DOD_96','EPC_DOD_64') THEN
1861: trace('Error:For LPN label, No EPC can be generated using EPC_DOD_96/64, incorrect SET up');
1862: END IF;
1863: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SETUP');
1864: FND_MSG_PUB.ADD;
1865: RAISE fnd_api.g_exc_error;
1866: END IF;
1867:
1868: ELSIF p_label_type_id =1 THEN /*Material Label*/
1869:
1887: x_return_status => l_return_status);
1888:
1889:
1890:
1891: IF l_return_status = fnd_api.g_ret_sts_success AND l_gtin IS NOT NULL THEN
1892:
1893:
1894: --{{ get the item reference from GTIN for the Item now }}
1895:
1940: END IF;
1941:
1942: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SETUP');
1943: FND_MSG_PUB.ADD;
1944: RAISE fnd_api.g_exc_error;
1945:
1946:
1947: ELSIF p_epc_rule_type IN ('EPC_DOD_96','EPC_DOD_64') THEN
1948:
1950: trace('Error:For Material, No EPC can be generated using EPC_DOD, incorrect SET up');
1951: END IF;
1952: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SETUP');
1953: FND_MSG_PUB.ADD;
1954: RAISE fnd_api.g_exc_error;
1955:
1956:
1957: END IF;
1958:
1993: trace('l_gtin_serial :'||l_gtin_serial);
1994: END IF;
1995:
1996:
1997: IF l_return_status= fnd_api.g_ret_sts_success AND l_gtin IS NOT NULL THEN
1998:
1999: l_item_reference :=
2000: To_number(Substr(To_char(l_gtin),1,1)||Substr(To_char(l_gtin),l_comp_prefix_dig_len+2,12-l_comp_prefix_dig_len));
2001:
2036: trace('Error:For Serial, No EPC can be generated using SSCC, incorrect SET up');
2037: END IF;
2038: FND_MESSAGE.SET_NAME('WMS', 'WMS_INVALID_SETUP');
2039: FND_MSG_PUB.ADD;
2040: RAISE fnd_api.g_exc_error;
2041:
2042: ELSIF p_epc_rule_type IN ('EPC_DOD_96','EPC_DOD_64') THEN
2043: --{{Note: We MUST have Serial uniqueness across items for EPC generation EPC_DOD_96/EPC_DOD_64}}
2044:
2077: x_components := l_components;
2078:
2079:
2080: EXCEPTION
2081: WHEN fnd_api.g_exc_error THEN
2082: x_return_status := fnd_api.g_ret_sts_error;
2083: x_gtin_serial := NULL;
2084: x_gtin :=NULL;
2085: x_sscc := NULL;
2078:
2079:
2080: EXCEPTION
2081: WHEN fnd_api.g_exc_error THEN
2082: x_return_status := fnd_api.g_ret_sts_error;
2083: x_gtin_serial := NULL;
2084: x_gtin :=NULL;
2085: x_sscc := NULL;
2086: x_components := NULL;
2085: x_sscc := NULL;
2086: x_components := NULL;
2087: --RAISE; -- Do not raise here
2088:
2089: WHEN fnd_api.g_exc_unexpected_error THEN
2090: x_return_status := fnd_api.g_ret_sts_unexp_error;
2091: x_gtin_serial := NULL;
2092: x_gtin :=NULL;
2093: x_sscc := NULL;
2086: x_components := NULL;
2087: --RAISE; -- Do not raise here
2088:
2089: WHEN fnd_api.g_exc_unexpected_error THEN
2090: x_return_status := fnd_api.g_ret_sts_unexp_error;
2091: x_gtin_serial := NULL;
2092: x_gtin :=NULL;
2093: x_sscc := NULL;
2094: x_components := NULL;
2100: trace('Unexpected error inside get_epc_gen_info()');
2101: trace('ERROR CODE = ' || SQLCODE);
2102: trace('ERROR MESSAGE = ' || SQLERRM);
2103: END IF;
2104: x_return_status := fnd_api.g_ret_sts_unexp_error;
2105: x_gtin_serial := NULL;
2106: x_gtin := NULL;
2107: x_sscc := NULL;
2108: x_components := NULL;
2304:
2305: BEGIN
2306:
2307: G_PROFILE_GTIN := FND_PROFILE.value('INV:GTIN_CROSS_REFERENCE_TYPE');
2308: x_return_status := fnd_api.g_ret_sts_success;
2309:
2310: IF l_debug = 1 THEN
2311: trace('************ inside generate_epc ***********');
2312: trace('p_org_id :'||p_org_id);
2328: trace(p_org_id || 'is an invalid organization id');
2329: END IF;
2330: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
2331: fnd_msg_pub.ADD;
2332: RAISE fnd_api.g_exc_error;
2333: END IF;
2334:
2335: l_company_prefix := inv_cache.org_rec.company_prefix;
2336: l_company_prefix_index := inv_cache.org_rec.company_prefix_index;
2400: END IF;
2401:
2402: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2403: fnd_msg_pub.ADD;
2404: RAISE fnd_api.g_exc_unexpected_error;
2405: END;
2406:
2407: --Neither pallet or case, then NO support FOR EPC of further
2408: -- nested lpn, error out
2410: OR (l_parent_lpn_id = l_outermost_lpn_id AND l_parent_lpn_id IS NOT null)) THEN
2411:
2412: fnd_message.set_name('WMS', 'WMS_NO_MULTI_NESTING_SUPPORT');
2413: fnd_msg_pub.ADD;
2414: RAISE fnd_api.g_exc_error;
2415:
2416: END IF;
2417:
2418: --For Serial
2430: EXCEPTION
2431: WHEN no_data_found THEN
2432: NULL;
2433: WHEN OTHERS THEN
2434: RAISE fnd_api.g_exc_unexpected_error;
2435: END;
2436:
2437: --For item_id/GTIN
2438: ELSIF l_item_id IS NOT NULL AND p_label_type_id = 1 THEN --/*Material Label*/
2491:
2492: IF l_partition_value = -1 THEN --prefix length is INCORRECT
2493: fnd_message.set_name('WMS','WMS_INCORRECT_PREFIX_LEN');
2494: fnd_msg_pub.ADD;
2495: RAISE fnd_api.g_exc_error;
2496:
2497: ELSE
2498: --To avoid DB table call for each read:
2499: --Cache Entire rule in the memory if first time call
2513: IF l_epc_rule_type_id IS NULL THEN
2514: x_epc := NULL;
2515: fnd_message.set_name('WMS','WMS_NO_EPC_RULE_FOUND');--No rule found
2516: fnd_msg_pub.ADD;
2517: RAISE fnd_api.g_exc_error;
2518: END IF;
2519:
2520:
2521: IF l_debug = 1 THEN
2584:
2585:
2586: --{{ genereate EPC using the components }}
2587:
2588: IF l_return_status = fnd_api.g_ret_sts_success AND l_components IS NOT NULL THEN
2589:
2590:
2591: -- This is needed to pass correct value (NULL Vs 0)in the DB API
2592: --In some case NULL and anohter 0 is needed
2664: END IF;
2665:
2666: fnd_message.set_name('WMS', 'WMS_EPC_DISABLED');
2667: fnd_msg_pub.ADD;
2668: RAISE fnd_api.g_exc_error;
2669:
2670: END IF;
2671:
2672:
2748: IF l_debug =1 then
2749: trace(' uptodate_wms_epc DELETE: L_RETURN_STATUS:'||l_return_status);
2750: END IF;
2751:
2752: RAISE fnd_api.g_exc_error;--COULD NOT OVERIDE THE EPC
2753:
2754:
2755: ELSIF l_epc IS NULL AND l_gen_epc IS NOT NULL THEN
2756:
2784:
2785:
2786: ELSIF l_epc IS NULL AND l_gen_epc IS NULL THEN
2787:
2788: RAISE fnd_api.g_exc_error;
2789:
2790: END IF;
2791:
2792: ELSIF Nvl(l_regenerate_flag,'N') = 'N' THEN
2812:
2813:
2814: EXCEPTION
2815:
2816: WHEN fnd_api.g_exc_error THEN
2817: fnd_message.set_name('WMS','WMS_EPC_GEN_FAIL');
2818: fnd_msg_pub.ADD;
2819: x_return_status := fnd_api.g_ret_sts_error;
2820: x_epc := NULL;
2815:
2816: WHEN fnd_api.g_exc_error THEN
2817: fnd_message.set_name('WMS','WMS_EPC_GEN_FAIL');
2818: fnd_msg_pub.ADD;
2819: x_return_status := fnd_api.g_ret_sts_error;
2820: x_epc := NULL;
2821: fnd_msg_pub.count_and_get(p_encoded => 'F',p_count => l_msg_count, p_data => x_return_mesg);
2822:
2823: FOR i IN 1..l_msg_count LOOP
2831:
2832: -- FND_MSG_PUB.initialize; --bug 5178424
2833:
2834:
2835: WHEN fnd_api.g_exc_unexpected_error THEN
2836: fnd_message.set_name('WMS', 'WMS_EPC_GEN_FAIL');
2837: fnd_msg_pub.ADD;
2838: x_return_status := fnd_api.g_ret_sts_unexp_error;
2839: x_epc := NULL;
2834:
2835: WHEN fnd_api.g_exc_unexpected_error THEN
2836: fnd_message.set_name('WMS', 'WMS_EPC_GEN_FAIL');
2837: fnd_msg_pub.ADD;
2838: x_return_status := fnd_api.g_ret_sts_unexp_error;
2839: x_epc := NULL;
2840: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => x_return_mesg);
2841:
2842: FOR i IN 1..l_msg_count LOOP
2851: -- FND_MSG_PUB.initialize; --bug 5178424
2852:
2853: WHEN OTHERS THEN
2854: --ROLLBACK; blocked in R12
2855: x_return_status := fnd_api.g_ret_sts_unexp_error;
2856: x_epc := NULL;
2857: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => x_return_mesg);
2858:
2859: FOR i IN 1..l_msg_count LOOP
2891:
2892: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2893:
2894: BEGIN
2895: x_return_status := fnd_api.g_ret_sts_success;
2896:
2897: IF l_debug = 1 THEN
2898: trace('p_group_id :'||p_group_id ||' ,'||'p_cross_ref_type :'||p_cross_ref_type);
2899: trace('p_Lpn_id :'||p_lpn_id);
2901: trace('p_EPC :'||p_epc);
2902: END IF;
2903:
2904: IF p_group_id IS NULL OR p_cross_ref_type IS NULL OR p_epc IS NULL THEN
2905: x_return_status := fnd_api.g_ret_sts_error;
2906: x_return_mesg := fnd_message.get_string('WMS','WMS_EPC_MISSING_VALUES');
2907: RETURN;
2908:
2909: ELSIF p_lpn_id IS NULL AND
2909: ELSIF p_lpn_id IS NULL AND
2910: (p_item_id IS NULL OR p_serial_number IS NULL ) AND
2911: (p_gtin IS NULL OR p_gtin_serial IS NULL) THEN
2912:
2913: x_return_status := fnd_api.g_ret_sts_error;
2914: x_return_mesg := fnd_message.get_string('WMS','WMS_EPC_MISSING_VALUES');
2915: RETURN;
2916: END IF;
2917:
2958: --DO NOT COMMIT
2959:
2960: EXCEPTION
2961: WHEN OTHERS THEN
2962: x_return_status := fnd_api.g_ret_sts_error;
2963: x_return_mesg := Sqlerrm;
2964:
2965: IF l_debug = 1 THEN
2966: trace('Exception in populate_outside_epc');