[Home] [Help]
1652: IF (l_debug = 1) THEN
1653: print_debug('CANCEL_ASN: Exception ocurred after l_progress = ' ||
1654: l_progress,1);
1655: END IF;
1656: fnd_message.set_name('INV', 'INV_CANCEL_ASN_FAIL');
1657: fnd_msg_pub.ADD;
1658: ROLLBACK TO cancel_asn_pub;
1659: -- fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data =>
1660: -- x_msg_data);
2089: if x_lpn_id is not null then -- CASE WHERE LPN_ID is present and its an invalid ID
2090: --MSG WMS_CONT_INVALID_LPN
2091: -- print_debug('get LPN ID: Error =' || SQLCODE , 1);
2092:
2093: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2094: fnd_msg_pub.ADD;
2095:
2096: x_lpn_context := to_number(null);
2097: x_parent_lpn_id := to_number(null);
2685: l_progress := 'WMSINB-12106';
2686:
2687: IF (l_msni_total_qty > 0 AND l_msni_total_qty <> l_wlpnci_rec.quantity) THEN
2688: -- this message is OK?
2689: fnd_message.set_name('INV', 'INV_SERQTY_NOTMATCH');
2690: fnd_msg_pub.ADD;
2691: IF (l_debug = 1) THEN
2692: print_debug('MODIFY_EDI_XML_ASN: MSNIs total quantity does not match WLPNCI quantity',1);
2693: END IF;
2736: IF (l_debug = 1) THEN
2737: print_debug('MODIFY_EDI_XML_ASN: WLPNCIs total quantity does not match RTI quantity', 1);
2738: END IF;
2739: -- message to be added
2740: fnd_message.set_name('INV', 'INV_WLPNCI_RTI_QTY_NOTMATCH');
2741: fnd_msg_pub.ADD;
2742: l_progress := 'WMSINB-12162';
2743: RAISE fnd_api.g_exc_error;
2744: END IF;
12253: IF SQLCODE IS NOT NULL THEN
12254: inv_mobile_helper_functions.sql_error('INV_RCV_INTEGRATION_PVT.validate_lpn_context',l_progress, SQLCODE);
12255: END IF;
12256:
12257: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
12258: fnd_msg_pub.ADD;
12259:
12260: return FALSE;
12261: End validate_lpn_context;
18586:
18587: /*INVCONV , validating for parent lot, Punit Kumar */
18588: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
18589: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
18590: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
18591: fnd_msg_pub.ADD;
18592: l_progress := 'WMSINB-22145';
18593: RAISE fnd_api.g_exc_error;
18594: END IF;
19233: IF (L_SERIAL_NUMBER_CONTROL_CODE = 6 AND
19234: L_SOURCE_DOCUMENT_CODE NOT IN ('RMA','REQ','INVENTORY')) THEN
19235: -- RAISE AN ERROR. IF SERIAL IS AT SALES ORDER ISSUE THEN
19236: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
19237: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19238: fnd_msg_pub.ADD;
19239: l_progress := 'WMSINB-22536';
19240: RAISE fnd_api.g_exc_error;
19241: END IF;
19431: IF (l_asn_line_flag = 'Y') THEN
19432: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
19433: and l_curr_status = 4 )) THEN
19434: --raise error
19435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19436: fnd_msg_pub.ADD;
19437: l_progress := 'WMSINB-22634';
19438: RAISE fnd_api.g_exc_error;
19439: ELSE
19442: l_mtlt_rec.lot_number)
19443: AND (Nvl(l_curr_status,1) NOT
19444: IN (1,4))) THEN
19445: --raise error
19446: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19447: fnd_msg_pub.ADD;
19448: l_progress := 'WMSINB-22641';
19449: RAISE fnd_api.g_exc_error;
19450: END IF;
19468: END IF;
19469:
19470: IF l_curr_status <> 5 THEN
19471: --raise error
19472: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19473: fnd_msg_pub.ADD;
19474: l_progress := 'WMSINB-22664';
19475: RAISE fnd_api.g_exc_error;
19476: END IF;
19479: IF l_restrict_rcpt_ser = '2' THEN
19480: IF l_curr_status NOT IN
19481: (1,4,6) THEN
19482: --raise error
19483: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19484: fnd_msg_pub.ADD;
19485: l_progress := 'WMSINB-22675';
19486: RAISE fnd_api.g_exc_error;
19487: END IF;
19488: ELSE --IF l_restrict_rcpt_ser = '2' THEN
19489: IF l_curr_status NOT IN
19490: (1,6) THEN
19491: --raise error
19492: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19493: fnd_msg_pub.ADD;
19494: l_progress := 'WMSINB-22684';
19495: RAISE fnd_api.g_exc_error;
19496: END IF;
19500: IF l_restrict_rcpt_ser = '2' THEN
19501: IF l_curr_status NOT IN
19502: (1,4,6) THEN
19503: --raise error
19504: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19505: fnd_msg_pub.ADD;
19506: l_progress := 'WMSINB-22696';
19507: RAISE fnd_api.g_exc_error;
19508: END IF;
19509: ELSE --IF l_restrict_rcpt_ser = '2' THEN
19510: IF l_curr_status NOT IN
19511: (1,6) THEN
19512: --raise error
19513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19514: fnd_msg_pub.ADD;
19515: l_progress := 'WMSINB-22705';
19516: RAISE fnd_api.g_exc_error;
19517: END IF;
19549:
19550: IF
19551: (is_sernum_unique(l_org_id,l_item_id,l_serial_number,l_txn_src_type_id,12,x_msg_data)<>0) THEN
19552: --raise error
19553: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19554: fnd_msg_pub.ADD;
19555: l_progress := 'WMSINB-22725';
19556: RAISE fnd_api.g_exc_error;
19557: END IF;
19562: *****end of bug4187663*****/
19563:
19564: IF l_curr_org_id <> l_from_org_id THEN
19565: --raise error
19566: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19567: fnd_msg_pub.ADD;
19568: l_progress := 'WMSINB-22726';
19569: RAISE fnd_api.g_exc_error;
19570: ELSE
19573: l_mtlt_rec.lot_number)
19574: AND (Nvl(l_curr_status,1)
19575: NOT IN (1,4))) THEN
19576: --raise error
19577: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19578: fnd_msg_pub.ADD;
19579: l_progress := 'WMSINB-22734';
19580: RAISE fnd_api.g_exc_error;
19581: END IF;
19593: AND rss.serial_num = l_serial_number;
19594:
19595: IF L_CURR_STATUS <> 5 THEN
19596: -- RAISE AN ERROR
19597: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19598: fnd_msg_pub.ADD;
19599: l_progress := 'WMSINB-22751';
19600: RAISE fnd_api.g_exc_error;
19601: END IF;
19602:
19603: EXCEPTION
19604: WHEN NO_DATA_FOUND THEN
19605: -- RAISE AN ERROR
19606: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19607: fnd_msg_pub.ADD;
19608: l_progress := 'WMSINB-22760';
19609: RAISE fnd_api.g_exc_error;
19610: END;
19624: WHERE shipment_line_id = L_SHIPMENT_LINE_ID;
19625: EXCEPTION
19626: WHEN NO_DATA_FOUND THEN
19627: -- RAISE AN ERROR
19628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19629: fnd_msg_pub.ADD;
19630: l_progress := 'WMSINB-22765';
19631: RAISE fnd_api.g_exc_error;
19632: END;
19639: l_progress := 'WMSINB-22761';
19640: IF (l_debug = 1) THEN
19641: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
19642: END IF;
19643: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19644: fnd_msg_pub.ADD;
19645: RAISE fnd_api.g_exc_error;
19646: END IF;
19647: ELSE
19645: RAISE fnd_api.g_exc_error;
19646: END IF;
19647: ELSE
19648: --raise error
19649: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19650: fnd_msg_pub.ADD;
19651: l_progress := 'WMSINB-22768';
19652: RAISE fnd_api.g_exc_error;
19653: END IF;
19660: AND
19661: (Nvl(l_curr_status,1)
19662: NOT IN (1,4))) THEN
19663: --raise error
19664: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19665: fnd_msg_pub.ADD;
19666: l_progress := 'WMSINB-22776';
19667: RAISE fnd_api.g_exc_error;
19668: END IF;
19675: IF (L_CURR_STATUS NOT IN (1,6)
19676: AND NOT (l_restrict_rcpt_ser = '2'and l_curr_status = 4)
19677: ) THEN
19678: -- RAISE AN ERROR
19679: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19680: fnd_msg_pub.ADD;
19681: l_progress := 'WMSINB-22785';
19682: RAISE fnd_api.g_exc_error;
19683: END IF;
19687: --('INVENTORY','REQ') OR l_asn_line_flag = 'Y') THEN
19688: IF (( (L_SOURCE_DOCUMENT_CODE <> 'RMA' AND l_curr_org_id <> l_org_id) )
19689: and not (l_restrict_rcpt_ser = '2'and l_curr_status = 4 )) THEN
19690: --raise error
19691: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19692: fnd_msg_pub.ADD;
19693: l_progress := 'WMSINB-22796';
19694: RAISE fnd_api.g_exc_error;
19695: ELSE
19698: l_mtlt_rec.lot_number)
19699: AND (Nvl(l_curr_status,1) NOT
19700: IN (1,4))) THEN
19701: --raise error
19702: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19703: fnd_msg_pub.ADD;
19704: l_progress := 'WMSINB-22803';
19705: RAISE fnd_api.g_exc_error;
19706: END IF;
19708:
19709: IF l_restrict_rcpt_ser = '2' THEN
19710: IF l_curr_status NOT IN (1,4,6) THEN
19711: --raise error
19712: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19713: fnd_msg_pub.ADD;
19714: l_progress := 'WMSINB-22813';
19715: RAISE fnd_api.g_exc_error;
19716: END IF;
19726: (l_source_document_code = 'RMA' OR
19727: (l_source_document_code = 'PO'
19728: and l_last_transaction_type_id in (36,71))))) THEN
19729: --raise error
19730: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19731: fnd_msg_pub.ADD;
19732: l_progress := 'WMSINB-22821';
19733: RAISE fnd_api.g_exc_error;
19734: END IF;
19746: Nvl(l_curr_status,1) NOT IN (1,5, 6)) ----bug 7112775 (Added status 6 also)
19747: AND NOT (l_curr_status = 4 and l_restrict_rcpt_ser = '2') --Bug: 5524134
19748: ) THEN
19749: --raise error
19750: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19751: fnd_msg_pub.ADD;
19752: l_progress := 'WMSINB-22837';
19753: RAISE fnd_api.g_exc_error;
19754: END IF;
19757: IF ((Nvl(l_curr_lpn_id, -9999) <>
19758: Nvl(l_lpn_id, -9999))
19759: AND Nvl(l_curr_status,1) <> 4) THEN
19760: --raise error
19761: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19762: fnd_msg_pub.ADD;
19763: l_progress := 'WMSINB-22847';
19764: RAISE fnd_api.g_exc_error;
19765: END IF;
19782: IF (l_transaction_type = 'DELIVER') THEN
19783: IF (l_routing_header_id = 2) THEN
19784: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
19785: --raise error
19786: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19787: fnd_msg_pub.ADD;
19788: l_progress := 'WMSINB-22865';
19789: RAISE fnd_api.g_exc_error;
19790: END IF;
19795: --entering of duplicate serials
19796:
19797: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
19798: --raise error
19799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19800: fnd_msg_pub.ADD;
19801: l_progress := 'WMSINB-22878';
19802: RAISE fnd_api.g_exc_error;
19803: END IF;
19818:
19819: IF (l_validation_status <> 'Y'
19820: OR x_return_status <> g_ret_sts_success) THEN
19821: --raise error
19822: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19823: fnd_msg_pub.ADD;
19824: l_progress := 'WMSINB-22880';
19825: RAISE fnd_api.g_exc_error;
19826: END IF;
19828:
19829: --UPDATE GROUP_MARK_ID TO -7937
19830: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
19831: --raise error
19832: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19833: fnd_msg_pub.ADD;
19834: l_progress := 'WMSINB-22887';
19835: RAISE fnd_api.g_exc_error;
19836: END IF;
19847: OR (l_from_org_ser_crtl IN (2,5)
19848: AND l_source_document_code = 'INVENTORY')
19849: ) THEN
19850: --raise error
19851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19852: fnd_msg_pub.ADD;
19853: l_progress := 'WMSINB-22902';
19854: RAISE fnd_api.g_exc_error;
19855: END IF;
19895: , x_msg_data => x_msg_data);
19896:
19897: IF (x_return_status <> g_ret_sts_success) THEN
19898: --raise error
19899: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19900: fnd_msg_pub.ADD;
19901: l_progress := 'WMSINB-22911';
19902: RAISE fnd_api.g_exc_error;
19903: END IF;
19917:
19918: IF (l_validation_status <> 'Y'
19919: OR x_return_status <> g_ret_sts_success) THEN
19920: --raise error
19921: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19922: fnd_msg_pub.ADD;
19923: l_progress := 'WMSINB-22941';
19924: RAISE fnd_api.g_exc_error;
19925: END IF;
19926:
19927: --UPDATE GROUP_MARK_ID TO -7937
19928: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
19929: --raise error
19930: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19931: fnd_msg_pub.ADD;
19932: l_progress := 'WMSINB-22951';
19933: RAISE fnd_api.g_exc_error;
19934: END IF;
19933: RAISE fnd_api.g_exc_error;
19934: END IF;
19935: ELSE
19936: --raise error
19937: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19938: fnd_msg_pub.ADD;
19939: l_progress := 'WMSINB-22958';
19940: RAISE fnd_api.g_exc_error;
19941: END IF;
19947: /*
19948: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
19949: and l_curr_status = 4 )) THEN
19950: --raise error
19951: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19952: fnd_msg_pub.ADD;
19953: l_progress := 'WMSINB-22969';
19954: RAISE fnd_api.g_exc_error;
19955: ELSE */
19956: IF ((l_curr_lot_num IS NOT NULL)
19957: AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
19958: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
19959: --raise error
19960: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19961: fnd_msg_pub.ADD;
19962: l_progress := 'WMSINB-22976';
19963: RAISE fnd_api.g_exc_error;
19964: END IF;
19966:
19967:
19968: IF l_curr_status NOT IN (1,4,6) THEN
19969: --raise error
19970: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19971: fnd_msg_pub.ADD;
19972: l_progress := 'WMSINB-22985';
19973: RAISE fnd_api.g_exc_error;
19974: END IF;
19990: AND serial_number = l_serial_number
19991: AND LAST_TXN_SOURCE_TYPE_ID = 12);
19992:
19993: IF l_dummy <> '0' THEN
19994: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19995: fnd_msg_pub.ADD;
19996: l_progress := 'WMSINB-23009';
19997: RAISE fnd_api.g_exc_error;
19998: END IF;
20004: END IF;
20005:
20006: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
20007: --raise error
20008: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20009: fnd_msg_pub.ADD;
20010: l_progress := 'WMSINB-23023';
20011: RAISE fnd_api.g_exc_error;
20012: END IF;
20027:
20028: IF (l_validation_status <> 'Y'
20029: OR x_return_status <> g_ret_sts_success) THEN
20030: --raise error
20031: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20032: fnd_msg_pub.ADD;
20033: l_progress := 'WMSINB-23030';
20034: RAISE fnd_api.g_exc_error;
20035: END IF;
20037:
20038: --UPDATE GROUP_MARK_ID TO -7937
20039: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20040: --raise error
20041: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20042: fnd_msg_pub.ADD;
20043: l_progress := 'WMSINB-23032';
20044: RAISE fnd_api.g_exc_error;
20045: END IF;
20084:
20085:
20086: IF (x_return_status <> g_ret_sts_success) THEN
20087: --raise error
20088: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20089: fnd_msg_pub.ADD;
20090: l_progress := 'WMSINB-23035';
20091: RAISE fnd_api.g_exc_error;
20092: END IF;
20106:
20107: IF (l_validation_status <> 'Y'
20108: OR x_return_status <> g_ret_sts_success) THEN
20109: --raise error
20110: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20111: fnd_msg_pub.ADD;
20112: l_progress := 'WMSINB-23069';
20113: RAISE fnd_api.g_exc_error;
20114: END IF;
20115:
20116: --UPDATE GROUP_MARK_ID TO -7937
20117: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20118: --raise error
20119: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20120: fnd_msg_pub.ADD;
20121: l_progress := 'WMSINB-23079';
20122: RAISE fnd_api.g_exc_error;
20123: END IF;
20132: AND SERIAL_NUM = L_SERIAL_NUMBER;
20133:
20134: IF (l_curr_status <> 7) THEN
20135: --raise error
20136: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20137: fnd_msg_pub.ADD;
20138: l_progress := 'WMSINB-23096';
20139: RAISE fnd_api.g_exc_error;
20140: END IF;
20148:
20149: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
20150: IF (Nvl(l_inspection_status, 1) <> 1) THEN
20151: --raise error
20152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20153: fnd_msg_pub.ADD;
20154: l_progress := 'WMSINB-23106';
20155: RAISE fnd_api.g_exc_error;
20156: END IF;
20158: IF l_transaction_type = 'DELIVER' THEN
20159: IF (l_routing_header_id = 2) THEN
20160: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
20161: --raise error
20162: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20163: fnd_msg_pub.ADD;
20164: l_progress := 'WMSINB-23115';
20165: RAISE fnd_api.g_exc_error;
20166: END IF;
20171: --entering of duplicate serials
20172:
20173: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
20174: --raise error
20175: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20176: fnd_msg_pub.ADD;
20177: l_progress := 'WMSINB-23128';
20178: RAISE fnd_api.g_exc_error;
20179: END IF;
20180:
20181: --UPDATE GROUP_MARK_ID TO -7937
20182: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20183: --raise error
20184: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20185: fnd_msg_pub.ADD;
20186: l_progress := 'WMSINB-23137';
20187: RAISE fnd_api.g_exc_error;
20188: END IF;
20188: END IF;
20189: EXCEPTION
20190: WHEN NO_DATA_FOUND THEN
20191: -- RAISE ERROR
20192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20193: fnd_msg_pub.ADD;
20194: l_progress := 'WMSINB-23145';
20195: RAISE fnd_api.g_exc_error;
20196: END;
20202:
20203: IF (l_num_msnt_recs > 0) THEN
20204: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
20205: --raise error
20206: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20207: fnd_msg_pub.ADD;
20208: l_progress := 'WMSINB-23159';
20209: RAISE fnd_api.g_exc_error;
20210: END IF;
20229: OR (l_serial_number_control_code = 6
20230: AND l_from_org_ser_crtl IN (2,5,6)
20231: AND l_source_document_code = 'REQ')) THEN
20232: --raise error
20233: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20234: fnd_msg_pub.ADD;
20235: l_progress := 'WMSINB-23166';
20236: RAISE fnd_api.g_exc_error;
20237: END IF;
20292: IF (L_SERIAL_NUMBER_CONTROL_CODE = 6 AND
20293: L_SOURCE_DOCUMENT_CODE NOT IN ('RMA','REQ','INVENTORY')) THEN
20294: -- RAISE AN ERROR. IF SERIAL IS AT SALES ORDER ISSUE THEN
20295: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
20296: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20297: fnd_msg_pub.ADD;
20298: l_progress := 'WMSINB-23218';
20299: RAISE fnd_api.g_exc_error;
20300: END IF;
20488: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
20489: and l_curr_status = 4 )) THEN
20490: --raise error
20491: l_progress := 'WMSINB-23303';
20492: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20493: fnd_msg_pub.ADD;
20494: l_progress := 'WMSINB-23306';
20495: RAISE fnd_api.g_exc_error;
20496: ELSE
20496: ELSE
20497: IF (l_curr_lot_num IS NOT NULL) THEN
20498: --raise error
20499: l_progress := 'WMSINB-23311';
20500: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20501: fnd_msg_pub.ADD;
20502: l_progress := 'WMSINB-23314';
20503: RAISE fnd_api.g_exc_error;
20504: END IF;
20523:
20524: IF l_curr_status <> 5 THEN
20525: --raise error
20526: l_progress := 'WMSINB-23335';
20527: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20528: fnd_msg_pub.ADD;
20529: RAISE fnd_api.g_exc_error;
20530: END IF;
20531: EXCEPTION
20534: IF l_curr_status NOT IN
20535: (1,4,6) THEN
20536: --raise error
20537: l_progress := 'WMSINB-23346';
20538: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20539: fnd_msg_pub.ADD;
20540: RAISE fnd_api.g_exc_error;
20541: END IF;
20542: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20543: IF l_curr_status NOT IN
20544: (1,6) THEN
20545: --raise error
20546: l_progress := 'WMSINB-23355';
20547: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20548: fnd_msg_pub.ADD;
20549: RAISE fnd_api.g_exc_error;
20550: END IF;
20551: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20555: IF l_curr_status NOT IN
20556: (1,4,6) THEN
20557: --raise error
20558: l_progress := 'WMSINB-23367';
20559: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20560: fnd_msg_pub.ADD;
20561: RAISE fnd_api.g_exc_error;
20562: END IF;
20563: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20563: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20564: IF l_curr_status NOT IN
20565: (1,6) THEN
20566: --raise error
20567: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20568: fnd_msg_pub.ADD;
20569: l_progress := 'WMSINB-23378';
20570: RAISE fnd_api.g_exc_error;
20571: END IF;
20601: END IF;
20602:
20603: IF (is_sernum_unique(l_org_id, l_item_id,l_serial_number,l_txn_src_type_id,12,x_msg_data)<>0) THEN
20604: --raise error
20605: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20606: fnd_msg_pub.ADD;
20607: l_progress := 'WMSINB-22725';
20608: RAISE fnd_api.g_exc_error;
20609: END IF;
20615:
20616: IF l_curr_org_id <> l_from_org_id THEN
20617: --raise error
20618: l_progress := 'WMSINB-23397';
20619: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20620: fnd_msg_pub.ADD;
20621: RAISE fnd_api.g_exc_error;
20622: ELSE
20623: IF (l_curr_lot_num IS NOT NULL) THEN
20624:
20625: if (L_FROM_ORG_LOT_CTRL = 1 ) then
20626: --raise error
20627: l_progress := 'WMSINB-23404';
20628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20629: fnd_msg_pub.ADD;
20630: RAISE fnd_api.g_exc_error;
20631: else
20632: --update the serial row
20654:
20655: IF L_CURR_STATUS <> 5 THEN
20656: -- RAISE AN ERROR
20657: l_progress := 'WMSINB-23421';
20658: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20659: fnd_msg_pub.ADD;
20660: RAISE fnd_api.g_exc_error;
20661: END IF;
20662:
20662:
20663: EXCEPTION
20664: WHEN NO_DATA_FOUND THEN
20665: -- RAISE AN ERROR
20666: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20667: fnd_msg_pub.ADD;
20668: l_progress := 'WMSINB-23432';
20669: RAISE fnd_api.g_exc_error;
20670: END;
20685: WHERE shipment_line_id = L_SHIPMENT_LINE_ID;
20686: EXCEPTION
20687: WHEN NO_DATA_FOUND THEN
20688: -- RAISE AN ERROR
20689: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20690: fnd_msg_pub.ADD;
20691: l_progress := 'WMSINB-23433';
20692: RAISE fnd_api.g_exc_error;
20693: END;
20703: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
20704: END IF;
20705: --raise error
20706: l_progress := 'WMSINB-23438';
20707: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20708: fnd_msg_pub.ADD;
20709: RAISE fnd_api.g_exc_error;
20710: END IF;
20711: ELSE
20709: RAISE fnd_api.g_exc_error;
20710: END IF;
20711: ELSE
20712: l_progress := 'WMSINB-23438';
20713: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20714: fnd_msg_pub.ADD;
20715: RAISE fnd_api.g_exc_error;
20716: END IF;
20717: --END Bug: 5524134
20718: ELSE
20719: IF (l_curr_lot_num IS NOT NULL) THEN
20720: --raise error
20721: l_progress := 'WMSINB-23445';
20722: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20723: fnd_msg_pub.ADD;
20724: RAISE fnd_api.g_exc_error;
20725: END IF;
20726: END IF;
20729: AND NOT (l_restrict_rcpt_ser = '2'and l_curr_status = 4 ) --Bug: 5524134
20730: THEN
20731: -- RAISE AN ERROR
20732: l_progress := 'WMSINB-23454';
20733: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20734: fnd_msg_pub.ADD;
20735: RAISE fnd_api.g_exc_error;
20736: END IF;
20737: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
20741: IF ((L_SOURCE_DOCUMENT_CODE <> 'RMA' AND l_curr_org_id <> l_org_id )
20742: and not (l_restrict_rcpt_ser = '2'and l_curr_status = 4 ) ) THEN
20743: --raise error
20744: l_progress := 'WMSINB-23465';
20745: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20746: fnd_msg_pub.ADD;
20747: RAISE fnd_api.g_exc_error;
20748:
20749: --BUG 5114851 (FP of BUG 5060131):
20757: AND NOT (l_source_document_code = 'PO' AND l_restrict_rcpt_ser = '2' AND l_curr_status = 4 )) THEN
20758: IF (l_curr_lot_num IS NOT NULL) THEN
20759: --raise error
20760: l_progress := 'WMSINB-23472';
20761: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20762: fnd_msg_pub.ADD;
20763: RAISE fnd_api.g_exc_error;
20764: END IF;
20765: END IF;
20779: IF l_restrict_rcpt_ser = '2' THEN
20780: IF l_curr_status NOT IN (1,4,6) THEN
20781: --raise error
20782: l_progress := 'WMSINB-23482';
20783: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20784: fnd_msg_pub.ADD;
20785: RAISE fnd_api.g_exc_error;
20786: END IF;
20787:
20798: OR (l_source_document_code = 'PO'
20799: and l_last_transaction_type_id in(36,71))))) THEN --bug 5168883
20800: --raise error
20801: l_progress := 'WMSINB-23490';
20802: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20803: fnd_msg_pub.ADD;
20804: RAISE fnd_api.g_exc_error;
20805: END IF;
20806: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20819: )
20820: ) THEN --bug 5235808 changed from 4 to 5
20821: --raise error
20822: l_progress := 'WMSINB-23506';
20823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20824: fnd_msg_pub.ADD;
20825: RAISE fnd_api.g_exc_error;
20826: END IF;
20827: END IF;
20830: Nvl(l_lpn_id, -9999)
20831: AND Nvl(l_curr_status,1) <> 4) THEN
20832: --raise error
20833: l_progress := 'WMSINB-23516';
20834: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20835: fnd_msg_pub.ADD;
20836: RAISE fnd_api.g_exc_error;
20837: END IF;
20838: END IF;
20847: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
20848: IF (Nvl(l_inspection_status, 1) <> 1) THEN
20849: --raise error
20850: l_progress := 'WMSINB-23527';
20851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20852: fnd_msg_pub.ADD;
20853: RAISE fnd_api.g_exc_error;
20854: END IF;
20855: ELS */
20857: IF (l_routing_header_id = 2) THEN
20858: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
20859: --raise error
20860: l_progress := 'WMSINB-23536';
20861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20862: fnd_msg_pub.ADD;
20863: RAISE fnd_api.g_exc_error;
20864: END IF;
20865: END IF;
20870:
20871: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
20872: --raise error
20873: l_progress := 'WMSINB-23549';
20874: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20875: fnd_msg_pub.ADD;
20876: RAISE fnd_api.g_exc_error;
20877: END IF;
20878:
20892:
20893: IF (l_validation_status <> 'Y'
20894: OR x_return_status <> g_ret_sts_success) THEN
20895: --raise error
20896: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20897: fnd_msg_pub.ADD;
20898: l_progress := 'WMSINB-22555';
20899: RAISE fnd_api.g_exc_error;
20900: END IF;
20903: --UPDATE GROUP_MARK_ID TO -7937
20904: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20905: --raise error
20906: l_progress := 'WMSINB-23558';
20907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20908: fnd_msg_pub.ADD;
20909: RAISE fnd_api.g_exc_error;
20910: END IF;
20911:
20922: AND l_source_document_code = 'INVENTORY')
20923: ) THEN
20924: --raise error
20925: l_progress := 'WMSINB-23573';
20926: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20927: fnd_msg_pub.ADD;
20928: RAISE fnd_api.g_exc_error;
20929: END IF;
20930: END IF;
20969: , x_msg_data => x_msg_data);
20970:
20971: IF (x_return_status <> g_ret_sts_success) THEN
20972: --raise error
20973: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20974: fnd_msg_pub.ADD;
20975: l_progress := 'WMSINB-23580';
20976: RAISE fnd_api.g_exc_error;
20977: END IF;
20991:
20992: IF (l_validation_status <> 'Y'
20993: OR x_return_status <> g_ret_sts_success) THEN
20994: --raise error
20995: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20996: fnd_msg_pub.ADD;
20997: l_progress := 'WMSINB-23615';
20998: RAISE fnd_api.g_exc_error;
20999: END IF;
21002: --UPDATE GROUP_MARK_ID TO -7937
21003: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21004: --raise error
21005: l_progress := 'WMSINB-23622';
21006: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21007: fnd_msg_pub.ADD;
21008: RAISE fnd_api.g_exc_error;
21009: END IF;
21010: ELSE
21009: END IF;
21010: ELSE
21011: --raise error
21012: l_progress := 'WMSINB-23629';
21013: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21014: fnd_msg_pub.ADD;
21015: RAISE fnd_api.g_exc_error;
21016: END IF;
21017: END IF; --IF l_serial_exists = 1 THEN
21022: /*
21023: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
21024: and l_curr_status = 4 )) THEN
21025: --raise error
21026: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21027: fnd_msg_pub.ADD;
21028: l_progress := 'WMSINB-23642';
21029: RAISE fnd_api.g_exc_error;
21030: ELSE*/
21030: ELSE*/
21031: IF (l_curr_lot_num IS NOT NULL
21032: AND (Nvl(l_curr_status,1) NOT IN (1,4) )) THEN
21033: --raise error
21034: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21035: fnd_msg_pub.ADD;
21036: l_progress := 'WMSINB-23649';
21037: RAISE fnd_api.g_exc_error;
21038: END IF;
21039: --END IF;
21040:
21041: IF l_curr_status NOT IN (1,4,6) THEN
21042: --raise error
21043: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21044: fnd_msg_pub.ADD;
21045: l_progress := 'WMSINB-23658';
21046: RAISE fnd_api.g_exc_error;
21047: END IF;
21063: AND serial_number = l_serial_number
21064: AND LAST_TXN_SOURCE_TYPE_ID = 12);
21065:
21066: IF l_dummy <> '0' THEN
21067: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21068: fnd_msg_pub.ADD;
21069: l_progress := 'WMSINB-23682';
21070: RAISE fnd_api.g_exc_error;
21071: END IF;
21077: END IF;
21078:
21079: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
21080: --raise error
21081: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21082: fnd_msg_pub.ADD;
21083: l_progress := 'WMSINB-23696';
21084: RAISE fnd_api.g_exc_error;
21085: END IF;
21100:
21101: IF (l_validation_status <> 'Y'
21102: OR x_return_status <> g_ret_sts_success) THEN
21103: --raise error
21104: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21105: fnd_msg_pub.ADD;
21106: l_progress := 'WMSINB-23702';
21107: RAISE fnd_api.g_exc_error;
21108: END IF;
21110:
21111: --UPDATE GROUP_MARK_ID TO -7937
21112: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21113: --raise error
21114: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21115: fnd_msg_pub.ADD;
21116: l_progress := 'WMSINB-23705';
21117: RAISE fnd_api.g_exc_error;
21118: END IF;
21156: , x_msg_data => x_msg_data);
21157:
21158: IF (x_return_status <> g_ret_sts_success) THEN
21159: --raise error
21160: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21161: fnd_msg_pub.ADD;
21162: l_progress := 'WMSINB-23710';
21163: RAISE fnd_api.g_exc_error;
21164: END IF;
21178:
21179: IF (l_validation_status <> 'Y'
21180: OR x_return_status <> g_ret_sts_success) THEN
21181: --raise error
21182: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21183: fnd_msg_pub.ADD;
21184: l_progress := 'WMSINB-23745';
21185: RAISE fnd_api.g_exc_error;
21186: END IF;
21187:
21188: --UPDATE GROUP_MARK_ID TO -7937
21189: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21190: --raise error
21191: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21192: fnd_msg_pub.ADD;
21193: l_progress := 'WMSINB-23752';
21194: RAISE fnd_api.g_exc_error;
21195: END IF;
21204: AND SERIAL_NUM = L_SERIAL_NUMBER;
21205:
21206: IF (l_curr_status <> 7) THEN
21207: --raise error
21208: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21209: fnd_msg_pub.ADD;
21210: l_progress := 'WMSINB-23769';
21211: RAISE fnd_api.g_exc_error;
21212: END IF;
21220:
21221: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
21222: IF (Nvl(l_inspection_status, 1) <> 1) THEN
21223: --raise error
21224: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21225: fnd_msg_pub.ADD;
21226: l_progress := 'WMSINB-23779';
21227: RAISE fnd_api.g_exc_error;
21228: END IF;
21230: IF l_transaction_type = 'DELIVER' THEN
21231: IF (l_routing_header_id = 2) THEN
21232: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
21233: --raise error
21234: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21235: fnd_msg_pub.ADD;
21236: l_progress := 'WMSINB-23788';
21237: RAISE fnd_api.g_exc_error;
21238: END IF;
21243: --entering of duplicate serials
21244:
21245: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
21246: --raise error
21247: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21248: fnd_msg_pub.ADD;
21249: l_progress := 'WMSINB-23801';
21250: RAISE fnd_api.g_exc_error;
21251: END IF;
21252:
21253: --UPDATE GROUP_MARK_ID TO -7937
21254: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21255: --raise error
21256: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21257: fnd_msg_pub.ADD;
21258: l_progress := 'WMSINB-23810';
21259: RAISE fnd_api.g_exc_error;
21260: END IF;
21260: END IF;
21261: EXCEPTION
21262: WHEN NO_DATA_FOUND THEN
21263: -- RAISE ERROR
21264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21265: fnd_msg_pub.ADD;
21266: l_progress := 'WMSINB-23818';
21267: RAISE fnd_api.g_exc_error;
21268: END;
21274:
21275: IF (l_num_msnt_recs > 0) THEN
21276: IF l_tot_msnt_serial_qty <> l_rti_primary_qty THEN
21277: --raise error
21278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21279: fnd_msg_pub.ADD;
21280: l_progress := 'WMSINB-23832';
21281: RAISE fnd_api.g_exc_error;
21282: END IF;
21304: AND l_from_org_ser_crtl IN (2,5,6)
21305: AND l_source_document_code = 'REQ'))
21306: THEN
21307: --raise error
21308: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21309: fnd_msg_pub.ADD;
21310: l_progress := 'WMSINB-23840';
21311: RAISE fnd_api.g_exc_error;
21312: END IF;
21311: RAISE fnd_api.g_exc_error;
21312: END IF;
21313: ELSIF (serial_entered_on_parent(l_parent_transaction_id)) THEN
21314: --raise error
21315: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21316: fnd_msg_pub.ADD;
21317: l_progress := 'WMSINB-23846';
21318: RAISE fnd_api.g_exc_error;
21319: END IF;
21517:
21518: /*INVCONV , validating for parent lot, Punit Kumar */
21519: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
21520: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
21521: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
21522: fnd_msg_pub.ADD;
21523: RAISE fnd_api.g_exc_error;
21524: END IF;
21525: ELSE
22074:
22075: IF (l_serial_exists = 1) THEN
22076: IF l_curr_org_id <> l_org_id THEN
22077: --raise error
22078: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22079: fnd_msg_pub.ADD;
22080: l_progress := 'WMSINB-24186';
22081: RAISE fnd_api.g_exc_error;
22082: ELSE
22083: IF ((l_curr_lot_num IS NOT NULL) AND
22084: (l_curr_lot_num <> l_mtlt_rec.lot_number)
22085: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
22086: --raise error
22087: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22088: fnd_msg_pub.ADD;
22089: l_progress := 'WMSINB-24193';
22090: RAISE fnd_api.g_exc_error;
22091: END IF;
22096: * ASN import transaction made the following changes.
22097: */
22098: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
22099: --raise error
22100: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22101: fnd_msg_pub.ADD;
22102: l_progress := 'WMSINB-24202';
22103: RAISE fnd_api.g_exc_error;
22104: END IF;
22104: END IF;
22105:
22106: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22107: --raise error
22108: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22109: fnd_msg_pub.ADD;
22110: l_progress := 'WMSINB-24210';
22111: RAISE fnd_api.g_exc_error;
22112: END IF;
22127:
22128: IF (l_validation_status <> 'Y'
22129: OR x_return_status <> g_ret_sts_success) THEN
22130: --raise error
22131: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22132: fnd_msg_pub.ADD;
22133: l_progress := 'WMSINB-24215';
22134: RAISE fnd_api.g_exc_error;
22135: END IF;
22137:
22138: --UPDATE GROUP_MARK_ID TO -7937
22139: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22140: --raise error
22141: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22142: fnd_msg_pub.ADD;
22143: l_progress := 'WMSINB-24219';
22144: RAISE fnd_api.g_exc_error;
22145: END IF;
22184: , x_msg_data => x_msg_data);
22185:
22186: IF (x_return_status <> g_ret_sts_success) THEN
22187: --raise error
22188: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22189: fnd_msg_pub.ADD;
22190: l_progress := 'WMSINB-24225';
22191: RAISE fnd_api.g_exc_error;
22192: END IF;
22206:
22207: IF (l_validation_status <> 'Y'
22208: OR x_return_status <> g_ret_sts_success) THEN
22209: --raise error
22210: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22211: fnd_msg_pub.ADD;
22212: l_progress := 'WMSINB-24260';
22213: RAISE fnd_api.g_exc_error;
22214: END IF;
22215:
22216: --UPDATE GROUP_MARK_ID TO -7937
22217: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22218: --raise error
22219: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22220: fnd_msg_pub.ADD;
22221: l_progress := 'WMSINB-24267';
22222: RAISE fnd_api.g_exc_error;
22223: END IF;
22222: RAISE fnd_api.g_exc_error;
22223: END IF;
22224: ELSE
22225: --raise error
22226: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22227: fnd_msg_pub.ADD;
22228: l_progress := 'WMSINB-24274';
22229: RAISE fnd_api.g_exc_error;
22230: END IF;
22264:
22265: IF (l_num_msnt_recs > 0) THEN
22266: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
22267: --raise error
22268: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22269: fnd_msg_pub.ADD;
22270: l_progress := 'WMSINB-24288';
22271: RAISE fnd_api.g_exc_error;
22272: END IF;
22274: IF (l_serial_number_control_code IN (2,5)
22275: OR (l_serial_number_control_code = 6
22276: AND l_source_document_code IN ('RMA','REQ','INVENTORY'))) THEN
22277: --raise error
22278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22279: fnd_msg_pub.ADD;
22280: l_progress := 'WMSINB-24295';
22281: RAISE fnd_api.g_exc_error;
22282: END IF;
22296: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
22297: -- if there is a lot specific conversion
22298: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
22299: --raise error
22300: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22301: fnd_msg_pub.ADD;
22302: l_progress := 'WMSINB-24309';
22303: RAISE fnd_api.g_exc_error;
22304: END IF; -- Bug# 4225766
22499:
22500: IF (l_serial_exists = 1) THEN
22501: IF l_curr_org_id <> l_org_id THEN
22502: --raise error
22503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22504: fnd_msg_pub.ADD;
22505: l_progress := 'WMSINB-24394';
22506: RAISE fnd_api.g_exc_error;
22507: ELSE
22506: RAISE fnd_api.g_exc_error;
22507: ELSE
22508: IF (l_curr_lot_num IS NOT NULL) THEN
22509: --raise error
22510: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22511: fnd_msg_pub.ADD;
22512: l_progress := 'WMSINB-24401';
22513: RAISE fnd_api.g_exc_error;
22514: END IF;
22515: END IF;
22516:
22517: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
22518: --raise error
22519: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22520: fnd_msg_pub.ADD;
22521: l_progress := 'WMSINB-24410';
22522: RAISE fnd_api.g_exc_error;
22523: END IF;
22523: END IF;
22524:
22525: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22526: --raise error
22527: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22528: fnd_msg_pub.ADD;
22529: l_progress := 'WMSINB-24418';
22530: RAISE fnd_api.g_exc_error;
22531: END IF;
22546:
22547: IF (l_validation_status <> 'Y'
22548: OR x_return_status <> g_ret_sts_success) THEN
22549: --raise error
22550: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22551: fnd_msg_pub.ADD;
22552: l_progress := 'WMSINB-24424';
22553: RAISE fnd_api.g_exc_error;
22554: END IF;
22556:
22557: --UPDATE GROUP_MARK_ID TO -7937
22558: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22559: --raise error
22560: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22561: fnd_msg_pub.ADD;
22562: l_progress := 'WMSINB-24427';
22563: RAISE fnd_api.g_exc_error;
22564: END IF;
22603: , x_msg_data => x_msg_data);
22604:
22605: IF (x_return_status <> g_ret_sts_success) THEN
22606: --raise error
22607: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22608: fnd_msg_pub.ADD;
22609: l_progress := 'WMSINB-24430';
22610: RAISE fnd_api.g_exc_error;
22611: END IF;
22625:
22626: IF (l_validation_status <> 'Y'
22627: OR x_return_status <> g_ret_sts_success) THEN
22628: --raise error
22629: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22630: fnd_msg_pub.ADD;
22631: l_progress := 'WMSINB-24470';
22632: RAISE fnd_api.g_exc_error;
22633: END IF;
22634:
22635: --UPDATE GROUP_MARK_ID TO -7937
22636: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22637: --raise error
22638: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22639: fnd_msg_pub.ADD;
22640: l_progress := 'WMSINB-24475';
22641: RAISE fnd_api.g_exc_error;
22642: END IF;
22641: RAISE fnd_api.g_exc_error;
22642: END IF;
22643: ELSE
22644: --raise error
22645: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22646: fnd_msg_pub.ADD;
22647: l_progress := 'WMSINB-24482';
22648: RAISE fnd_api.g_exc_error;
22649: END IF;
22685:
22686: IF (l_num_msnt_recs > 0) THEN
22687: IF l_tot_msnt_serial_qty <> l_rti_primary_qty THEN
22688: --raise error
22689: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22690: fnd_msg_pub.ADD;
22691: l_progress := 'WMSINB-24496';
22692: RAISE fnd_api.g_exc_error;
22693: END IF;
22948:
22949: /*INVCONV , validating for parent lot, Punit Kumar */
22950: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
22951: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
22952: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
22953: fnd_msg_pub.ADD;
22954: RAISE fnd_api.g_exc_error;
22955: END IF;
22956: ELSE
24477:
24478: IF (l_serial_exists = 1) THEN
24479: IF l_curr_org_id <> l_org_id THEN
24480: --raise error
24481: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24482: fnd_msg_pub.ADD;
24483: l_progress := 'WMSINB-25466';
24484: RAISE fnd_api.g_exc_error;
24485: ELSE
24487: (l_curr_lot_num <>
24488: l_mtlt_rec.lot_number)
24489: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
24490: --raise error
24491: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24492: fnd_msg_pub.ADD;
24493: l_progress := 'WMSINB-25473';
24494: RAISE fnd_api.g_exc_error;
24495: END IF;
24496: END IF;
24497:
24498: IF l_curr_status NOT IN (1,6) THEN
24499: --raise error
24500: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24501: fnd_msg_pub.ADD;
24502: l_progress := 'WMSINB-25482';
24503: RAISE fnd_api.g_exc_error;
24504: END IF;
24504: END IF;
24505:
24506: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24507: --raise error
24508: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24509: fnd_msg_pub.ADD;
24510: l_progress := 'WMSINB-25490';
24511: RAISE fnd_api.g_exc_error;
24512: END IF;
24527:
24528: IF (l_validation_status <> 'Y'
24529: OR x_return_status <> g_ret_sts_success) THEN
24530: --raise error
24531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24532: fnd_msg_pub.ADD;
24533: l_progress := 'WMSINB-254960';
24534: RAISE fnd_api.g_exc_error;
24535: END IF;
24537:
24538: --UPDATE GROUP_MARK_ID TO -7937
24539: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24540: --raise error
24541: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24542: fnd_msg_pub.ADD;
24543: l_progress := 'WMSINB-25499';
24544: RAISE fnd_api.g_exc_error;
24545: END IF;
24589: , x_msg_data => x_msg_data);
24590:
24591: IF (x_return_status <> g_ret_sts_success) THEN
24592: --raise error
24593: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24594: fnd_msg_pub.ADD;
24595: l_progress := 'WMSINB-25505';
24596: RAISE fnd_api.g_exc_error;
24597: END IF;
24611:
24612: IF (l_validation_status <> 'Y'
24613: OR x_return_status <> g_ret_sts_success) THEN
24614: --raise error
24615: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24616: fnd_msg_pub.ADD;
24617: l_progress := 'WMSINB-25545';
24618: RAISE fnd_api.g_exc_error;
24619: END IF;
24620:
24621: --UPDATE GROUP_MARK_ID TO -7937
24622: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24623: --raise error
24624: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24625: fnd_msg_pub.ADD;
24626: l_progress := 'WMSINB-25552';
24627: RAISE fnd_api.g_exc_error;
24628: END IF;
24627: RAISE fnd_api.g_exc_error;
24628: END IF;
24629: ELSE --IF l_serial_number_control_code = 5 THEN
24630: --raise error
24631: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24632: fnd_msg_pub.ADD;
24633: l_progress := 'WMSINB-25559';
24634: RAISE fnd_api.g_exc_error;
24635: END IF; --IF l_serial_number_control_code = 5 THEN
24644: AND SERIAL_NUM = L_SERIAL_NUMBER;
24645:
24646: IF (l_curr_status <> 7) THEN
24647: --raise error
24648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24649: fnd_msg_pub.ADD;
24650: l_progress := 'WMSINB-25576';
24651: RAISE fnd_api.g_exc_error;
24652: END IF;
24655: --entering of duplicate serials
24656:
24657: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24658: --raise error
24659: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24660: fnd_msg_pub.ADD;
24661: l_progress := 'WMSINB-25587';
24662: RAISE fnd_api.g_exc_error;
24663: END IF;
24664:
24665: --UPDATE GROUP_MARK_ID TO -7937
24666: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24667: --raise error
24668: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24669: fnd_msg_pub.ADD;
24670: l_progress := 'WMSINB-25596';
24671: RAISE fnd_api.g_exc_error;
24672: END IF;
24672: END IF;
24673: EXCEPTION
24674: WHEN NO_DATA_FOUND THEN
24675: -- RAISE ERROR
24676: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24677: fnd_msg_pub.ADD;
24678: l_progress := 'WMSINB-25604';
24679: RAISE fnd_api.g_exc_error;
24680: END;
24681: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24682: IF (l_serial_exists = 1) THEN
24683: IF l_curr_org_id <> l_org_id THEN
24684: --raise error
24685: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24686: fnd_msg_pub.ADD;
24687: l_progress := 'WMSINB-25613';
24688: RAISE fnd_api.g_exc_error;
24689: ELSE
24693: l_mtlt_rec.lot_number)
24694: AND (Nvl(l_curr_status,1)
24695: NOT IN (1,4))) THEN
24696: --raise error
24697: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24698: fnd_msg_pub.ADD;
24699: l_progress := 'WMSINB-25620';
24700: RAISE fnd_api.g_exc_error;
24701: END IF;
24702: END IF;
24703:
24704: IF l_curr_status NOT IN (1,6) THEN
24705: --raise error
24706: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24707: fnd_msg_pub.ADD;
24708: l_progress := 'WMSINB-25629';
24709: RAISE fnd_api.g_exc_error;
24710: END IF;
24710: END IF;
24711:
24712: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24713: --raise error
24714: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24715: fnd_msg_pub.ADD;
24716: l_progress := 'WMSINB-25637';
24717: RAISE fnd_api.g_exc_error;
24718: END IF;
24733:
24734: IF (l_validation_status <> 'Y'
24735: OR x_return_status <> g_ret_sts_success) THEN
24736: --raise error
24737: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24738: fnd_msg_pub.ADD;
24739: l_progress := 'WMSINB-25642';
24740: RAISE fnd_api.g_exc_error;
24741: END IF;
24743:
24744: --UPDATE GROUP_MARK_ID TO -7937
24745: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24746: --raise error
24747: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24748: fnd_msg_pub.ADD;
24749: l_progress := 'WMSINB-25646';
24750: RAISE fnd_api.g_exc_error;
24751: END IF;
24795: , x_msg_data => x_msg_data);
24796:
24797: IF (x_return_status <> g_ret_sts_success) THEN
24798: --raise error
24799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24800: fnd_msg_pub.ADD;
24801: l_progress := 'WMSINB-25650';
24802: RAISE fnd_api.g_exc_error;
24803: END IF;
24817:
24818: IF (l_validation_status <> 'Y'
24819: OR x_return_status <> g_ret_sts_success) THEN
24820: --raise error
24821: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24822: fnd_msg_pub.ADD;
24823: l_progress := 'WMSINB-25691';
24824: RAISE fnd_api.g_exc_error;
24825: END IF;
24826:
24827: --UPDATE GROUP_MARK_ID TO -7937
24828: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24829: --raise error
24830: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24831: fnd_msg_pub.ADD;
24832: l_progress := 'WMSINB-25699';
24833: RAISE fnd_api.g_exc_error;
24834: END IF;
24833: RAISE fnd_api.g_exc_error;
24834: END IF;
24835: ELSE --IF l_serial_number_control_code = 5 THEN
24836: --raise error
24837: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24838: fnd_msg_pub.ADD;
24839: l_progress := 'WMSINB-25706';
24840: RAISE fnd_api.g_exc_error;
24841: END IF; --IF l_serial_number_control_code = 5 THEN
24856: AND SERIAL_NUM = L_SERIAL_NUMBER;
24857:
24858: IF (l_curr_status <> 7) THEN
24859: --raise error
24860: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24861: fnd_msg_pub.ADD;
24862: l_progress := 'WMSINB-25729';
24863: RAISE fnd_api.g_exc_error;
24864: END IF;
24867: --entering of duplicate serials
24868:
24869: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24870: --raise error
24871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24872: fnd_msg_pub.ADD;
24873: l_progress := 'WMSINB-25740';
24874: RAISE fnd_api.g_exc_error;
24875: END IF;
24876:
24877: --UPDATE GROUP_MARK_ID TO -7937
24878: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24879: --raise error
24880: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24881: fnd_msg_pub.ADD;
24882: l_progress := 'WMSINB-25749';
24883: RAISE fnd_api.g_exc_error;
24884: END IF;
24884: END IF;
24885: EXCEPTION
24886: WHEN NO_DATA_FOUND THEN
24887: -- RAISE ERROR
24888: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24889: fnd_msg_pub.ADD;
24890: l_progress := 'WMSINB-25757';
24891: RAISE fnd_api.g_exc_error;
24892: END;
24893: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
24894: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
24895: IF l_curr_org_id <> l_org_id THEN
24896: --raise error
24897: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24898: fnd_msg_pub.ADD;
24899: l_progress := 'WMSINB-25766';
24900: RAISE fnd_api.g_exc_error;
24901: ELSE
24903: AND (l_curr_lot_num <>
24904: l_mtlt_rec.lot_number)
24905: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
24906: --raise error
24907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24908: fnd_msg_pub.ADD;
24909: l_progress := 'WMSINB-25773';
24910: RAISE fnd_api.g_exc_error;
24911: END IF;
24913:
24914: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24915: IF l_curr_status NOT IN (1,6) THEN
24916: --raise error
24917: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24918: fnd_msg_pub.ADD;
24919: l_progress := 'WMSINB-25783';
24920: RAISE fnd_api.g_exc_error;
24921: END IF;
24921: END IF;
24922: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24923: IF (l_curr_status <> 3) THEN
24924: --raise error
24925: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
24926: fnd_msg_pub.ADD;
24927: l_progress := 'WMSINB-25791';
24928: RAISE fnd_api.g_exc_error;
24929: END IF;
24930: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24931:
24932: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24933: --raise error
24934: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24935: fnd_msg_pub.ADD;
24936: l_progress := 'WMSINB-25800';
24937: RAISE fnd_api.g_exc_error;
24938: END IF;
24953:
24954: IF (l_validation_status <> 'Y'
24955: OR x_return_status <> g_ret_sts_success) THEN
24956: --raise error
24957: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24958: fnd_msg_pub.ADD;
24959: l_progress := 'WMSINB-25805';
24960: RAISE fnd_api.g_exc_error;
24961: END IF;
24963:
24964: --UPDATE GROUP_MARK_ID TO -7937
24965: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24966: --raise error
24967: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24968: fnd_msg_pub.ADD;
24969: l_progress := 'WMSINB-25809';
24970: RAISE fnd_api.g_exc_error;
24971: END IF;
24978:
24979: IF (l_num_msnt_recs > 0) THEN
24980: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
24981: --raise error
24982: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24983: fnd_msg_pub.ADD;
24984: l_progress := 'WMSINB-25824';
24985: RAISE fnd_api.g_exc_error;
24986: END IF;
24988: IF (l_serial_number_control_code IN (2,5)
24989: OR (l_serial_number_control_code = 6
24990: AND l_source_document_code IN ('RMA','REQ','INVENTORY'))) THEN
24991: --raise error
24992: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24993: fnd_msg_pub.ADD;
24994: l_progress := 'WMSINB-25831';
24995: RAISE fnd_api.g_exc_error;
24996: END IF;
25011: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
25012: -- if there is a lot specific conversion
25013: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(Abs(l_rti_trans_qty),5)) THEN -- Bug# 4225766
25014: --raise error
25015: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25016: fnd_msg_pub.ADD;
25017: l_progress := 'WMSINB-25845';
25018: RAISE fnd_api.g_exc_error;
25019: END IF; -- Bug# 4225766
25026: RAISE fnd_api.g_exc_error;
25027: ELSE
25028: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
25029: --raise error;
25030: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25031: fnd_msg_pub.ADD;
25032: l_progress := 'WMSINB-25859';
25033: RAISE fnd_api.g_exc_error;
25034: END IF;
25244:
25245: IF (l_serial_exists = 1) THEN
25246: IF l_curr_org_id <> l_org_id THEN
25247: --raise error
25248: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25249: fnd_msg_pub.ADD;
25250: l_progress := 'WMSINB-25975';
25251: RAISE fnd_api.g_exc_error;
25252: ELSE
25251: RAISE fnd_api.g_exc_error;
25252: ELSE
25253: IF (l_curr_lot_num IS NOT NULL) THEN
25254: --raise error
25255: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25256: fnd_msg_pub.ADD;
25257: l_progress := 'WMSINB-25982';
25258: RAISE fnd_api.g_exc_error;
25259: END IF;
25260: END IF;
25261:
25262: IF l_curr_status NOT IN (1,6) THEN
25263: --raise error
25264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25265: fnd_msg_pub.ADD;
25266: l_progress := 'WMSINB-25991';
25267: RAISE fnd_api.g_exc_error;
25268: END IF;
25268: END IF;
25269:
25270: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25271: --raise error
25272: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25273: fnd_msg_pub.ADD;
25274: l_progress := 'WMSINB-25999';
25275: RAISE fnd_api.g_exc_error;
25276: END IF;
25291:
25292: IF (l_validation_status <> 'Y'
25293: OR x_return_status <> g_ret_sts_success) THEN
25294: --raise error
25295: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25296: fnd_msg_pub.ADD;
25297: l_progress := 'WMSINB-26005';
25298: RAISE fnd_api.g_exc_error;
25299: END IF;
25301:
25302: --UPDATE GROUP_MARK_ID TO -7937
25303: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25304: --raise error
25305: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25306: fnd_msg_pub.ADD;
25307: l_progress := 'WMSINB-26008';
25308: RAISE fnd_api.g_exc_error;
25309: END IF;
25353: , x_msg_data => x_msg_data);
25354:
25355: IF (x_return_status <> g_ret_sts_success) THEN
25356: --raise error
25357: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25358: fnd_msg_pub.ADD;
25359: l_progress := 'WMSINB-26015';
25360: RAISE fnd_api.g_exc_error;
25361: END IF;
25375:
25376: IF (l_validation_status <> 'Y'
25377: OR x_return_status <> g_ret_sts_success) THEN
25378: --raise error
25379: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25380: fnd_msg_pub.ADD;
25381: l_progress := 'WMSINB-29051';
25382: RAISE fnd_api.g_exc_error;
25383: END IF;
25384:
25385: --UPDATE GROUP_MARK_ID TO -7937
25386: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25387: --raise error
25388: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25389: fnd_msg_pub.ADD;
25390: l_progress := 'WMSINB-26061';
25391: RAISE fnd_api.g_exc_error;
25392: END IF;
25391: RAISE fnd_api.g_exc_error;
25392: END IF;
25393: ELSE --IF l_serial_number_control_code = 5 THEN
25394: --raise error
25395: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25396: fnd_msg_pub.ADD;
25397: l_progress := 'WMSINB-26068';
25398: RAISE fnd_api.g_exc_error;
25399: END IF; --IF l_serial_number_control_code = 5 THEN
25408: AND SERIAL_NUM = L_SERIAL_NUMBER;
25409:
25410: IF (l_curr_status <> 7) THEN
25411: --raise error
25412: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25413: fnd_msg_pub.ADD;
25414: l_progress := 'WMSINB-26085';
25415: RAISE fnd_api.g_exc_error;
25416: END IF;
25419: --entering of duplicate serials
25420:
25421: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25422: --raise error
25423: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25424: fnd_msg_pub.ADD;
25425: l_progress := 'WMSINB-26096';
25426: RAISE fnd_api.g_exc_error;
25427: END IF;
25428:
25429: --UPDATE GROUP_MARK_ID TO -7937
25430: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25431: --raise error
25432: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25433: fnd_msg_pub.ADD;
25434: l_progress := 'WMSINB-26105';
25435: RAISE fnd_api.g_exc_error;
25436: END IF;
25436: END IF;
25437: EXCEPTION
25438: WHEN NO_DATA_FOUND THEN
25439: -- RAISE ERROR
25440: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25441: fnd_msg_pub.ADD;
25442: l_progress := 'WMSINB-26113';
25443: RAISE fnd_api.g_exc_error;
25444: END;
25445: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25446: IF (l_serial_exists = 1) THEN
25447: IF l_curr_org_id <> l_org_id THEN
25448: --raise error
25449: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25450: fnd_msg_pub.ADD;
25451: l_progress := 'WMSINB-26122';
25452: RAISE fnd_api.g_exc_error;
25453: ELSE
25452: RAISE fnd_api.g_exc_error;
25453: ELSE
25454: IF (l_curr_lot_num IS NOT NULL) THEN
25455: --raise error
25456: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25457: fnd_msg_pub.ADD;
25458: l_progress := 'WMSINB-26129';
25459: RAISE fnd_api.g_exc_error;
25460: END IF;
25461: END IF;
25462:
25463: IF l_curr_status NOT IN (1,6) THEN
25464: --raise error
25465: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25466: fnd_msg_pub.ADD;
25467: l_progress := 'WMSINB-26138';
25468: RAISE fnd_api.g_exc_error;
25469: END IF;
25469: END IF;
25470:
25471: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25472: --raise error
25473: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25474: fnd_msg_pub.ADD;
25475: l_progress := 'WMSINB-26146';
25476: RAISE fnd_api.g_exc_error;
25477: END IF;
25492:
25493: IF (l_validation_status <> 'Y'
25494: OR x_return_status <> g_ret_sts_success) THEN
25495: --raise error
25496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25497: fnd_msg_pub.ADD;
25498: l_progress := 'WMSINB-26152';
25499: RAISE fnd_api.g_exc_error;
25500: END IF;
25502:
25503: --UPDATE GROUP_MARK_ID TO -7937
25504: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25505: --raise error
25506: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25507: fnd_msg_pub.ADD;
25508: l_progress := 'WMSINB-26155';
25509: RAISE fnd_api.g_exc_error;
25510: END IF;
25554: , x_msg_data => x_msg_data);
25555:
25556: IF (x_return_status <> g_ret_sts_success) THEN
25557: --raise error
25558: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25559: fnd_msg_pub.ADD;
25560: l_progress := 'WMSINB-26160';
25561: RAISE fnd_api.g_exc_error;
25562: END IF;
25576:
25577: IF (l_validation_status <> 'Y'
25578: OR x_return_status <> g_ret_sts_success) THEN
25579: --raise error
25580: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25581: fnd_msg_pub.ADD;
25582: l_progress := 'WMSINB-26200';
25583: RAISE fnd_api.g_exc_error;
25584: END IF;
25585:
25586: --UPDATE GROUP_MARK_ID TO -7937
25587: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25588: --raise error
25589: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25590: fnd_msg_pub.ADD;
25591: l_progress := 'WMSINB-26208';
25592: RAISE fnd_api.g_exc_error;
25593: END IF;
25592: RAISE fnd_api.g_exc_error;
25593: END IF;
25594: ELSE --IF l_serial_number_control_code = 5 THEN
25595: --raise error
25596: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25597: fnd_msg_pub.ADD;
25598: l_progress := 'WMSINB-26215';
25599: RAISE fnd_api.g_exc_error;
25600: END IF; --IF l_serial_number_control_code = 5 THEN
25615: AND SERIAL_NUM = L_SERIAL_NUMBER;
25616:
25617: IF (l_curr_status <> 7) THEN
25618: --raise error
25619: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25620: fnd_msg_pub.ADD;
25621: l_progress := 'WMSINB-26238';
25622: RAISE fnd_api.g_exc_error;
25623: END IF;
25626: --entering of duplicate serials
25627:
25628: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25629: --raise error
25630: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25631: fnd_msg_pub.ADD;
25632: l_progress := 'WMSINB-26249';
25633: RAISE fnd_api.g_exc_error;
25634: END IF;
25635:
25636: --UPDATE GROUP_MARK_ID TO -7937
25637: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25638: --raise error
25639: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25640: fnd_msg_pub.ADD;
25641: l_progress := 'WMSINB-26258';
25642: RAISE fnd_api.g_exc_error;
25643: END IF;
25643: END IF;
25644: EXCEPTION
25645: WHEN NO_DATA_FOUND THEN
25646: -- RAISE ERROR
25647: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25648: fnd_msg_pub.ADD;
25649: l_progress := 'WMSINB-26266';
25650: RAISE fnd_api.g_exc_error;
25651: END;
25652: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25653: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
25654: IF l_curr_org_id <> l_org_id THEN
25655: --raise error
25656: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25657: fnd_msg_pub.ADD;
25658: l_progress := 'WMSINB-26275';
25659: RAISE fnd_api.g_exc_error;
25660: ELSE
25659: RAISE fnd_api.g_exc_error;
25660: ELSE
25661: IF (l_curr_lot_num IS NOT NULL) THEN
25662: --raise error
25663: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25664: fnd_msg_pub.ADD;
25665: l_progress := 'WMSINB-26282';
25666: RAISE fnd_api.g_exc_error;
25667: END IF;
25669:
25670: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25671: IF l_curr_status NOT IN (1,6) THEN
25672: --raise error
25673: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25674: fnd_msg_pub.ADD;
25675: l_progress := 'WMSINB-26292';
25676: RAISE fnd_api.g_exc_error;
25677: END IF;
25677: END IF;
25678: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25679: IF (l_curr_status <> 3) THEN
25680: --raise error
25681: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
25682: fnd_msg_pub.ADD;
25683: l_progress := 'WMSINB-26300';
25684: RAISE fnd_api.g_exc_error;
25685: END IF;
25686: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25687:
25688: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25689: --raise error
25690: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25691: fnd_msg_pub.ADD;
25692: l_progress := 'WMSINB-26309';
25693: RAISE fnd_api.g_exc_error;
25694: END IF;
25709:
25710: IF (l_validation_status <> 'Y'
25711: OR x_return_status <> g_ret_sts_success) THEN
25712: --raise error
25713: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25714: fnd_msg_pub.ADD;
25715: l_progress := 'WMSINB-26315';
25716: RAISE fnd_api.g_exc_error;
25717: END IF;
25719:
25720: --UPDATE GROUP_MARK_ID TO -7937
25721: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25722: --raise error
25723: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25724: fnd_msg_pub.ADD;
25725: l_progress := 'WMSINB-26318';
25726: RAISE fnd_api.g_exc_error;
25727: END IF;
25734:
25735: IF (l_num_msnt_recs > 0) THEN
25736: IF Abs(l_rti_primary_qty) <> l_tot_msnt_serial_qty THEN
25737: --raise error
25738: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25739: fnd_msg_pub.ADD;
25740: l_progress := 'WMSINB-26333';
25741: RAISE fnd_api.g_exc_error;
25742: END IF;
26083: /*INVCONV , validating for parent lot, Punit Kumar */
26084:
26085: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
26086: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
26087: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
26088: fnd_msg_pub.ADD;
26089: RAISE fnd_api.g_exc_error;
26090: END IF;
26091: ELSE
26846: AND SERIAL_NUM = L_SERIAL_NUMBER;
26847:
26848: IF (l_curr_status <> 7) THEN
26849: --raise error
26850: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26851: fnd_msg_pub.ADD;
26852: l_progress := 'WMSINB-26931';
26853: RAISE fnd_api.g_exc_error;
26854: END IF;
26857: --entering of duplicate serials
26858:
26859: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26860: --raise error
26861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26862: fnd_msg_pub.ADD;
26863: l_progress := 'WMSINB-26942';
26864: RAISE fnd_api.g_exc_error;
26865: END IF;
26866:
26867: --UPDATE GROUP_MARK_ID TO -7937
26868: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26869: --raise error
26870: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26871: fnd_msg_pub.ADD;
26872: l_progress := 'WMSINB-26951';
26873: RAISE fnd_api.g_exc_error;
26874: END IF;
26874: END IF;
26875: EXCEPTION
26876: WHEN NO_DATA_FOUND THEN
26877: -- RAISE ERROR
26878: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26879: fnd_msg_pub.ADD;
26880: l_progress := 'WMSINB-26959';
26881: RAISE fnd_api.g_exc_error;
26882: END;
26883: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26884: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26885: IF l_curr_org_id <> l_org_id THEN
26886: --raise error
26887: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26888: fnd_msg_pub.ADD;
26889: l_progress := 'WMSINB-26968';
26890: RAISE fnd_api.g_exc_error;
26891: ELSE
26893: ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
26894: AND
26895: (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
26896: --raise error
26897: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26898: fnd_msg_pub.ADD;
26899: l_progress := 'WMSINB-26975';
26900: RAISE fnd_api.g_exc_error;
26901: END IF;
26903:
26904: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26905: IF l_curr_status NOT IN (1,6) THEN
26906: --raise error
26907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26908: fnd_msg_pub.ADD;
26909: l_progress := 'WMSINB-26985';
26910: RAISE fnd_api.g_exc_error;
26911: END IF;
26911: END IF;
26912: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26913: IF (l_curr_status <> 3) THEN
26914: --raise error
26915: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
26916: fnd_msg_pub.ADD;
26917: l_progress := 'WMSINB-26993';
26918: RAISE fnd_api.g_exc_error;
26919: END IF;
26920: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26921:
26922: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26923: --raise error
26924: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26925: fnd_msg_pub.ADD;
26926: l_progress := 'WMSINB-27002';
26927: RAISE fnd_api.g_exc_error;
26928: END IF;
26943:
26944: IF (l_validation_status <> 'Y'
26945: OR x_return_status <> g_ret_sts_success) THEN
26946: --raise error
26947: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26948: fnd_msg_pub.ADD;
26949: l_progress := 'WMSINB-27008';
26950: RAISE fnd_api.g_exc_error;
26951: END IF;
26953:
26954: --UPDATE GROUP_MARK_ID TO -7937
26955: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26956: --raise error
26957: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26958: fnd_msg_pub.ADD;
26959: l_progress := 'WMSINB-27011';
26960: RAISE fnd_api.g_exc_error;
26961: END IF;
26971: AND SERIAL_NUM = L_SERIAL_NUMBER;
26972:
26973: IF (l_curr_status <> 7) THEN
26974: --raise error
26975: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26976: fnd_msg_pub.ADD;
26977: l_progress := 'WMSINB-27029';
26978: RAISE fnd_api.g_exc_error;
26979: END IF;
26982: --entering of duplicate serials
26983:
26984: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26985: --raise error
26986: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26987: fnd_msg_pub.ADD;
26988: l_progress := 'WMSINB-27040';
26989: RAISE fnd_api.g_exc_error;
26990: END IF;
26991:
26992: --UPDATE GROUP_MARK_ID TO -7937
26993: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26994: --raise error
26995: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26996: fnd_msg_pub.ADD;
26997: l_progress := 'WMSINB-27049';
26998: RAISE fnd_api.g_exc_error;
26999: END IF;
26999: END IF;
27000: EXCEPTION
27001: WHEN NO_DATA_FOUND THEN
27002: -- RAISE ERROR
27003: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27004: fnd_msg_pub.ADD;
27005: l_progress := 'WMSINB-27057';
27006: RAISE fnd_api.g_exc_error;
27007: END;
27008: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27009: IF (l_serial_exists = 1) THEN
27010: IF l_curr_org_id <> l_org_id THEN
27011: --raise error
27012: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27013: fnd_msg_pub.ADD;
27014: l_progress := 'WMSINB-27066';
27015: RAISE fnd_api.g_exc_error;
27016: ELSE
27016: ELSE
27017: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27018: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27019: --raise error
27020: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27021: fnd_msg_pub.ADD;
27022: l_progress := 'WMSINB-27073';
27023: RAISE fnd_api.g_exc_error;
27024: END IF;
27029: * Positive Correction transaction made the following changes.
27030: */
27031: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27032: --raise error
27033: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27034: fnd_msg_pub.ADD;
27035: l_progress := 'WMSINB-27082';
27036: RAISE fnd_api.g_exc_error;
27037: END IF;
27037: END IF;
27038:
27039: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27040: --raise error
27041: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27042: fnd_msg_pub.ADD;
27043: l_progress := 'WMSINB-27090';
27044: RAISE fnd_api.g_exc_error;
27045: END IF;
27060:
27061: IF (l_validation_status <> 'Y'
27062: OR x_return_status <> g_ret_sts_success) THEN
27063: --raise error
27064: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27065: fnd_msg_pub.ADD;
27066: l_progress := 'WMSINB-27095';
27067: RAISE fnd_api.g_exc_error;
27068: END IF;
27070:
27071: --UPDATE GROUP_MARK_ID TO -7937
27072: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27073: --raise error
27074: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27075: fnd_msg_pub.ADD;
27076: l_progress := 'WMSINB-27099';
27077: RAISE fnd_api.g_exc_error;
27078: END IF;
27122: , x_msg_data => x_msg_data);
27123:
27124: IF (x_return_status <> g_ret_sts_success) THEN
27125: --raise error
27126: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27127: fnd_msg_pub.ADD;
27128: l_progress := 'WMSINB-27105';
27129: RAISE fnd_api.g_exc_error;
27130: END IF;
27144:
27145: IF (l_validation_status <> 'Y'
27146: OR x_return_status <> g_ret_sts_success) THEN
27147: --raise error
27148: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27149: fnd_msg_pub.ADD;
27150: l_progress := 'WMSINB-27145';
27151: RAISE fnd_api.g_exc_error;
27152: END IF;
27153:
27154: --UPDATE GROUP_MARK_ID TO -7937
27155: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27156: --raise error
27157: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27158: fnd_msg_pub.ADD;
27159: l_progress := 'WMSINB-27152';
27160: RAISE fnd_api.g_exc_error;
27161: END IF;
27160: RAISE fnd_api.g_exc_error;
27161: END IF;
27162: ELSE --IF l_serial_number_control_code = 5 THEN
27163: --raise error
27164: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27165: fnd_msg_pub.ADD;
27166: l_progress := 'WMSINB-27159';
27167: RAISE fnd_api.g_exc_error;
27168: END IF; --IF l_serial_number_control_code = 5 THEN
27185: AND l_source_document_code = 'INVENTORY')
27186: ) THEN
27187: IF l_curr_org_id <> l_from_org_id THEN
27188: --raise error
27189: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27190: fnd_msg_pub.ADD;
27191: l_progress := 'WMSINB-27180';
27192: RAISE fnd_api.g_exc_error;
27193: ELSE --IF l_curr_org_id <> l_from_org_id THEN
27194: IF ((l_curr_lot_num IS NOT NULL) AND
27195: (l_curr_lot_num <> l_mtlt_rec.lot_number)
27196: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27197: --raise error
27198: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27199: fnd_msg_pub.ADD;
27200: l_progress := 'WMSINB-27188';
27201: RAISE fnd_api.g_exc_error;
27202: END IF;
27214: AND rss.serial_num = l_serial_number;
27215:
27216: IF L_CURR_STATUS <> 5 THEN
27217: -- RAISE AN ERROR
27218: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27219: fnd_msg_pub.ADD;
27220: l_progress := 'WMSINB-27205';
27221: RAISE fnd_api.g_exc_error;
27222: END IF;
27223:
27224: EXCEPTION
27225: WHEN NO_DATA_FOUND THEN
27226: -- RAISE AN ERROR
27227: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27228: fnd_msg_pub.ADD;
27229: l_progress := 'WMSINB-27214';
27230: RAISE fnd_api.g_exc_error;
27231: END;
27231: END;
27232: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27233: IF l_curr_org_id <> l_org_id THEN
27234: --raise error
27235: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27236: fnd_msg_pub.ADD;
27237: l_progress := 'WMSINB-27222';
27238: RAISE fnd_api.g_exc_error;
27239: ELSE
27239: ELSE
27240: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27241: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27242: --raise error
27243: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27244: fnd_msg_pub.ADD;
27245: l_progress := 'WMSINB-27229';
27246: RAISE fnd_api.g_exc_error;
27247: END IF;
27248: END IF;
27249:
27250: IF l_curr_status NOT IN (1,6) THEN
27251: --raise error
27252: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27253: fnd_msg_pub.ADD;
27254: l_progress := 'WMSINB-27238';
27255: RAISE fnd_api.g_exc_error;
27256: END IF;
27256: END IF;
27257:
27258: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27259: --raise error
27260: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27261: fnd_msg_pub.ADD;
27262: l_progress := 'WMSINB-27246';
27263: RAISE fnd_api.g_exc_error;
27264: END IF;
27279:
27280: IF (l_validation_status <> 'Y'
27281: OR x_return_status <> g_ret_sts_success) THEN
27282: --raise error
27283: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27284: fnd_msg_pub.ADD;
27285: l_progress := 'WMSINB-27251';
27286: RAISE fnd_api.g_exc_error;
27287: END IF;
27289:
27290: --UPDATE GROUP_MARK_ID TO -7937
27291: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27292: --raise error
27293: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27294: fnd_msg_pub.ADD;
27295: l_progress := 'WMSINB-27255';
27296: RAISE fnd_api.g_exc_error;
27297: END IF;
27298: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27299: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27300: IF l_curr_org_id <> l_org_id THEN
27301: --raise error
27302: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27303: fnd_msg_pub.ADD;
27304: l_progress := 'WMSINB-27264';
27305: RAISE fnd_api.g_exc_error;
27306: ELSE
27306: ELSE
27307: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27308: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27309: --raise error
27310: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27311: fnd_msg_pub.ADD;
27312: l_progress := 'WMSINB-27271';
27313: RAISE fnd_api.g_exc_error;
27314: END IF;
27315: END IF;
27316:
27317: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27318: --raise error
27319: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27320: fnd_msg_pub.ADD;
27321: l_progress := 'WMSINB-27280';
27322: RAISE fnd_api.g_exc_error;
27323: END IF;
27323: END IF;
27324:
27325: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27326: --raise error
27327: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27328: fnd_msg_pub.ADD;
27329: l_progress := 'WMSINB-27288';
27330: RAISE fnd_api.g_exc_error;
27331: END IF;
27346:
27347: IF (l_validation_status <> 'Y'
27348: OR x_return_status <> g_ret_sts_success) THEN
27349: --raise error
27350: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27351: fnd_msg_pub.ADD;
27352: l_progress := 'WMSINB-27294';
27353: RAISE fnd_api.g_exc_error;
27354: END IF;
27356:
27357: --UPDATE GROUP_MARK_ID TO -7937
27358: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27359: --raise error
27360: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27361: fnd_msg_pub.ADD;
27362: l_progress := 'WMSINB-27297';
27363: RAISE fnd_api.g_exc_error;
27364: END IF;
27378: OR (l_from_org_ser_crtl IN (2,5)
27379: AND l_source_document_code = 'INVENTORY')
27380: ) THEN
27381: --raise error
27382: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27383: fnd_msg_pub.ADD;
27384: l_progress := 'WMSINB-27315';
27385: RAISE fnd_api.g_exc_error;
27386: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27431: , x_msg_data => x_msg_data);
27432:
27433: IF (x_return_status <> g_ret_sts_success) THEN
27434: --raise error
27435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27436: fnd_msg_pub.ADD;
27437: l_progress := 'WMSINB-27320';
27438: RAISE fnd_api.g_exc_error;
27439: END IF;
27453:
27454: IF (l_validation_status <> 'Y'
27455: OR x_return_status <> g_ret_sts_success) THEN
27456: --raise error
27457: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27458: fnd_msg_pub.ADD;
27459: l_progress := 'WMSINB-27360';
27460: RAISE fnd_api.g_exc_error;
27461: END IF;
27462:
27463: --UPDATE GROUP_MARK_ID TO -7937
27464: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27465: --raise error
27466: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27467: fnd_msg_pub.ADD;
27468: l_progress := 'WMSINB-27369';
27469: RAISE fnd_api.g_exc_error;
27470: END IF;
27469: RAISE fnd_api.g_exc_error;
27470: END IF;
27471: ELSE --IF l_serial_number_control_code = 5 THEN
27472: --raise error
27473: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27474: fnd_msg_pub.ADD;
27475: l_progress := 'WMSINB-27376';
27476: RAISE fnd_api.g_exc_error;
27477: END IF; --IF l_serial_number_control_code = 5 THEN
27485:
27486: IF (l_num_msnt_recs > 0) THEN
27487: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
27488: --raise error
27489: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27490: fnd_msg_pub.ADD;
27491: l_progress := 'WMSINB-27392';
27492: RAISE fnd_api.g_exc_error;
27493: END IF;
27495: IF (l_serial_number_control_code IN (2,5)
27496: OR (l_serial_number_control_code = 6
27497: AND l_source_document_code IN ('RMA','REQ','INVENTORY'))) THEN
27498: --raise error
27499: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27500: fnd_msg_pub.ADD;
27501: l_progress := 'WMSINB-27399';
27502: RAISE fnd_api.g_exc_error;
27503: END IF;
27518: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
27519: -- if there is a lot specific conversion
27520: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
27521: --raise error
27522: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27523: fnd_msg_pub.ADD;
27524: l_progress := 'WMSINB-27413';
27525: RAISE fnd_api.g_exc_error;
27526: END IF; -- Bug# 4225766
27533: RAISE fnd_api.g_exc_error;
27534: ELSE
27535: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
27536: --raise error;
27537: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27538: fnd_msg_pub.ADD;
27539: l_progress := 'WMSINB-27427';
27540: RAISE fnd_api.g_exc_error;
27541: END IF;
27765: AND SERIAL_NUM = L_SERIAL_NUMBER;
27766:
27767: IF (l_curr_status <> 7) THEN
27768: --raise error
27769: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27770: fnd_msg_pub.ADD;
27771: l_progress := 'WMSINB-27557';
27772: RAISE fnd_api.g_exc_error;
27773: END IF;
27776: --entering of duplicate serials
27777:
27778: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27779: --raise error
27780: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27781: fnd_msg_pub.ADD;
27782: l_progress := 'WMSINB-27568';
27783: RAISE fnd_api.g_exc_error;
27784: END IF;
27785:
27786: --UPDATE GROUP_MARK_ID TO -7937
27787: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27788: --raise error
27789: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27790: fnd_msg_pub.ADD;
27791: l_progress := 'WMSINB-27577';
27792: RAISE fnd_api.g_exc_error;
27793: END IF;
27793: END IF;
27794: EXCEPTION
27795: WHEN NO_DATA_FOUND THEN
27796: -- RAISE ERROR
27797: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27798: fnd_msg_pub.ADD;
27799: l_progress := 'WMSINB-27585';
27800: RAISE fnd_api.g_exc_error;
27801: END;
27802: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27803: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27804: IF l_curr_org_id <> l_org_id THEN
27805: --raise error
27806: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27807: fnd_msg_pub.ADD;
27808: l_progress := 'WMSINB-27594';
27809: RAISE fnd_api.g_exc_error;
27810: ELSE
27809: RAISE fnd_api.g_exc_error;
27810: ELSE
27811: IF (l_curr_lot_num IS NOT NULL) THEN
27812: --raise error
27813: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27814: fnd_msg_pub.ADD;
27815: l_progress := 'WMSINB-27601';
27816: RAISE fnd_api.g_exc_error;
27817: END IF;
27819:
27820: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27821: IF l_curr_status NOT IN (1,6) THEN
27822: --raise error
27823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27824: fnd_msg_pub.ADD;
27825: l_progress := 'WMSINB-27611';
27826: RAISE fnd_api.g_exc_error;
27827: END IF;
27827: END IF;
27828: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27829: IF (l_curr_status <> 3) THEN
27830: --raise error
27831: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
27832: fnd_msg_pub.ADD;
27833: l_progress := 'WMSINB-27619';
27834: RAISE fnd_api.g_exc_error;
27835: END IF;
27836: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27837:
27838: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27839: --raise error
27840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27841: fnd_msg_pub.ADD;
27842: l_progress := 'WMSINB-27628';
27843: RAISE fnd_api.g_exc_error;
27844: END IF;
27859:
27860: IF (l_validation_status <> 'Y'
27861: OR x_return_status <> g_ret_sts_success) THEN
27862: --raise error
27863: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27864: fnd_msg_pub.ADD;
27865: l_progress := 'WMSINB-27634';
27866: RAISE fnd_api.g_exc_error;
27867: END IF;
27869:
27870: --UPDATE GROUP_MARK_ID TO -7937
27871: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27872: --raise error
27873: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27874: fnd_msg_pub.ADD;
27875: l_progress := 'WMSINB-27637';
27876: RAISE fnd_api.g_exc_error;
27877: END IF;
27887: AND SERIAL_NUM = L_SERIAL_NUMBER;
27888:
27889: IF (l_curr_status <> 7) THEN
27890: --raise error
27891: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27892: fnd_msg_pub.ADD;
27893: l_progress := 'WMSINB-27655';
27894: RAISE fnd_api.g_exc_error;
27895: END IF;
27898: --entering of duplicate serials
27899:
27900: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27901: --raise error
27902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27903: fnd_msg_pub.ADD;
27904: l_progress := 'WMSINB-27666';
27905: RAISE fnd_api.g_exc_error;
27906: END IF;
27907:
27908: --UPDATE GROUP_MARK_ID TO -7937
27909: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27910: --raise error
27911: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27912: fnd_msg_pub.ADD;
27913: l_progress := 'WMSINB-27675';
27914: RAISE fnd_api.g_exc_error;
27915: END IF;
27915: END IF;
27916: EXCEPTION
27917: WHEN NO_DATA_FOUND THEN
27918: -- RAISE ERROR
27919: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27920: fnd_msg_pub.ADD;
27921: l_progress := 'WMSINB-27683';
27922: RAISE fnd_api.g_exc_error;
27923: END;
27924: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27925: IF (l_serial_exists = 1) THEN
27926: IF l_curr_org_id <> l_org_id THEN
27927: --raise error
27928: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27929: fnd_msg_pub.ADD;
27930: l_progress := 'WMSINB-27692';
27931: RAISE fnd_api.g_exc_error;
27932: ELSE
27931: RAISE fnd_api.g_exc_error;
27932: ELSE
27933: IF (l_curr_lot_num IS NOT NULL) THEN
27934: --raise error
27935: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27936: fnd_msg_pub.ADD;
27937: l_progress := 'WMSINB-27699';
27938: RAISE fnd_api.g_exc_error;
27939: END IF;
27940: END IF;
27941:
27942: IF l_curr_status NOT IN (1,4,6) THEN -- Bug 6177465
27943: --raise error
27944: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27945: fnd_msg_pub.ADD;
27946: l_progress := 'WMSINB-27708';
27947: RAISE fnd_api.g_exc_error;
27948: END IF;
27948: END IF;
27949:
27950: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27951: --raise error
27952: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27953: fnd_msg_pub.ADD;
27954: l_progress := 'WMSINB-27716';
27955: RAISE fnd_api.g_exc_error;
27956: END IF;
27971:
27972: IF (l_validation_status <> 'Y'
27973: OR x_return_status <> g_ret_sts_success) THEN
27974: --raise error
27975: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27976: fnd_msg_pub.ADD;
27977: l_progress := 'WMSINB-27721';
27978: RAISE fnd_api.g_exc_error;
27979: END IF;
27981:
27982: --UPDATE GROUP_MARK_ID TO -7937
27983: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27984: --raise error
27985: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27986: fnd_msg_pub.ADD;
27987: l_progress := 'WMSINB-27725';
27988: RAISE fnd_api.g_exc_error;
27989: END IF;
28033: , x_msg_data => x_msg_data);
28034:
28035: IF (x_return_status <> g_ret_sts_success) THEN
28036: --raise error
28037: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28038: fnd_msg_pub.ADD;
28039: l_progress := 'WMSINB-27730';
28040: RAISE fnd_api.g_exc_error;
28041: END IF;
28055:
28056: IF (l_validation_status <> 'Y'
28057: OR x_return_status <> g_ret_sts_success) THEN
28058: --raise error
28059: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28060: fnd_msg_pub.ADD;
28061: l_progress := 'WMSINB-27770';
28062: RAISE fnd_api.g_exc_error;
28063: END IF;
28064:
28065: --UPDATE GROUP_MARK_ID TO -7937
28066: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28067: --raise error
28068: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28069: fnd_msg_pub.ADD;
28070: l_progress := 'WMSINB-27778';
28071: RAISE fnd_api.g_exc_error;
28072: END IF;
28071: RAISE fnd_api.g_exc_error;
28072: END IF;
28073: ELSE --IF l_serial_number_control_code = 5 THEN
28074: --raise error
28075: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28076: fnd_msg_pub.ADD;
28077: l_progress := 'WMSINB-27785';
28078: RAISE fnd_api.g_exc_error;
28079: END IF; --IF l_serial_number_control_code = 5 THEN
28097: AND l_source_document_code = 'INVENTORY')
28098: ) THEN
28099: IF l_curr_org_id <> l_from_org_id THEN
28100: --raise error
28101: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28102: fnd_msg_pub.ADD;
28103: l_progress := 'WMSINB-27806';
28104: RAISE fnd_api.g_exc_error;
28105: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28104: RAISE fnd_api.g_exc_error;
28105: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28106: IF (l_curr_lot_num IS NOT NULL) THEN
28107: --raise error
28108: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28109: fnd_msg_pub.ADD;
28110: l_progress := 'WMSINB-27813';
28111: RAISE fnd_api.g_exc_error;
28112: END IF;
28124: AND rss.serial_num = l_serial_number;
28125:
28126: IF L_CURR_STATUS <> 5 THEN
28127: -- RAISE AN ERROR
28128: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28129: fnd_msg_pub.ADD;
28130: l_progress := 'WMSINB-27830';
28131: RAISE fnd_api.g_exc_error;
28132: END IF;
28133:
28134: EXCEPTION
28135: WHEN NO_DATA_FOUND THEN
28136: -- RAISE AN ERROR
28137: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28138: fnd_msg_pub.ADD;
28139: l_progress := 'WMSINB-27839';
28140: RAISE fnd_api.g_exc_error;
28141: END;
28141: END;
28142: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28143: IF l_curr_org_id <> l_org_id THEN
28144: --raise error
28145: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28146: fnd_msg_pub.ADD;
28147: l_progress := 'WMSINB-27847';
28148: RAISE fnd_api.g_exc_error;
28149: ELSE
28148: RAISE fnd_api.g_exc_error;
28149: ELSE
28150: IF (l_curr_lot_num IS NOT NULL) THEN
28151: --raise error
28152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28153: fnd_msg_pub.ADD;
28154: l_progress := 'WMSINB-27854';
28155: RAISE fnd_api.g_exc_error;
28156: END IF;
28157: END IF;
28158:
28159: IF l_curr_status NOT IN (1,6) THEN
28160: --raise error
28161: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28162: fnd_msg_pub.ADD;
28163: l_progress := 'WMSINB-27863';
28164: RAISE fnd_api.g_exc_error;
28165: END IF;
28165: END IF;
28166:
28167: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28168: --raise error
28169: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28170: fnd_msg_pub.ADD;
28171: l_progress := 'WMSINB-27871';
28172: RAISE fnd_api.g_exc_error;
28173: END IF;
28188:
28189: IF (l_validation_status <> 'Y'
28190: OR x_return_status <> g_ret_sts_success) THEN
28191: --raise error
28192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28193: fnd_msg_pub.ADD;
28194: l_progress := 'WMSINB-27876';
28195: RAISE fnd_api.g_exc_error;
28196: END IF;
28198:
28199: --UPDATE GROUP_MARK_ID TO -7937
28200: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28201: --raise error
28202: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28203: fnd_msg_pub.ADD;
28204: l_progress := 'WMSINB-27880';
28205: RAISE fnd_api.g_exc_error;
28206: END IF;
28207: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28208: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28209: IF l_curr_org_id <> l_org_id THEN
28210: --raise error
28211: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28212: fnd_msg_pub.ADD;
28213: l_progress := 'WMSINB-27889';
28214: RAISE fnd_api.g_exc_error;
28215: ELSE
28214: RAISE fnd_api.g_exc_error;
28215: ELSE
28216: IF (l_curr_lot_num IS NOT NULL) THEN
28217: --raise error
28218: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28219: fnd_msg_pub.ADD;
28220: l_progress := 'WMSINB-27896';
28221: RAISE fnd_api.g_exc_error;
28222: END IF;
28223: END IF;
28224:
28225: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
28226: --raise error
28227: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28228: fnd_msg_pub.ADD;
28229: l_progress := 'WMSINB-27905';
28230: RAISE fnd_api.g_exc_error;
28231: END IF;
28231: END IF;
28232:
28233: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28234: --raise error
28235: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28236: fnd_msg_pub.ADD;
28237: l_progress := 'WMSINB-27913';
28238: RAISE fnd_api.g_exc_error;
28239: END IF;
28254:
28255: IF (l_validation_status <> 'Y'
28256: OR x_return_status <> g_ret_sts_success) THEN
28257: --raise error
28258: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28259: fnd_msg_pub.ADD;
28260: l_progress := 'WMSINB-27918';
28261: RAISE fnd_api.g_exc_error;
28262: END IF;
28264:
28265: --UPDATE GROUP_MARK_ID TO -7937
28266: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28267: --raise error
28268: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28269: fnd_msg_pub.ADD;
28270: l_progress := 'WMSINB-27922';
28271: RAISE fnd_api.g_exc_error;
28272: END IF;
28287: OR (l_from_org_ser_crtl IN (2,5)
28288: AND l_source_document_code = 'INVENTORY')
28289: ) THEN
28290: --raise error
28291: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28292: fnd_msg_pub.ADD;
28293: l_progress := 'WMSINB-27940';
28294: RAISE fnd_api.g_exc_error;
28295: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28340: , x_msg_data => x_msg_data);
28341:
28342: IF (x_return_status <> g_ret_sts_success) THEN
28343: --raise error
28344: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28345: fnd_msg_pub.ADD;
28346: l_progress := 'WMSINB-27950';
28347: RAISE fnd_api.g_exc_error;
28348: END IF;
28362:
28363: IF (l_validation_status <> 'Y'
28364: OR x_return_status <> g_ret_sts_success) THEN
28365: --raise error
28366: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28367: fnd_msg_pub.ADD;
28368: l_progress := 'WMSINB-27985';
28369: RAISE fnd_api.g_exc_error;
28370: END IF;
28371:
28372: --UPDATE GROUP_MARK_ID TO -7937
28373: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28374: --raise error
28375: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28376: fnd_msg_pub.ADD;
28377: l_progress := 'WMSINB-27994';
28378: RAISE fnd_api.g_exc_error;
28379: END IF;
28378: RAISE fnd_api.g_exc_error;
28379: END IF;
28380: ELSE --IF l_serial_number_control_code = 5 THEN
28381: --raise error
28382: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28383: fnd_msg_pub.ADD;
28384: l_progress := 'WMSINB-28001';
28385: RAISE fnd_api.g_exc_error;
28386: END IF; --IF l_serial_number_control_code = 5 THEN
28394:
28395: IF (l_num_msnt_recs > 0) THEN
28396: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
28397: --raise error
28398: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28399: fnd_msg_pub.ADD;
28400: l_progress := 'WMSINB-28017';
28401: RAISE fnd_api.g_exc_error;
28402: END IF;
28404: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28405: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28406: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28407: --raise an error
28408: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28409: fnd_msg_pub.ADD;
28410: l_progress := 'WMSINB-28027';
28411: RAISE fnd_api.g_exc_error;
28412: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28411: RAISE fnd_api.g_exc_error;
28412: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28413: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28414: --raise an error
28415: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28416: fnd_msg_pub.ADD;
28417: l_progress := 'WMSINB-28034';
28418: RAISE fnd_api.g_exc_error;
28419: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28421: IF (l_parent_txn_type <> 'DELIVER') THEN
28422: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28423: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
28424: --raise an error
28425: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28426: fnd_msg_pub.ADD;
28427: l_progress := 'WMSINB-28044';
28428: RAISE fnd_api.g_exc_error;
28429: END IF; --IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
28430: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28431: IF (l_parent_txn_type <> 'RECEIVE') THEN
28432: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28433: --raise an error
28434: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28435: fnd_msg_pub.ADD;
28436: l_progress := 'WMSINB-28053';
28437: RAISE fnd_api.g_exc_error;
28438: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28442: IF (l_serial_number_control_code IN (2,5)
28443: OR (l_serial_number_control_code = 6
28444: AND l_source_document_code = 'RMA')) THEN
28445: --raise error
28446: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28447: fnd_msg_pub.ADD;
28448: l_progress := 'WMSINB-28062';
28449: RAISE fnd_api.g_exc_error;
28450: END IF;