[Home] [Help]
1677: IF (l_debug = 1) THEN
1678: print_debug('CANCEL_ASN: Exception ocurred after l_progress = ' ||
1679: l_progress,1);
1680: END IF;
1681: fnd_message.set_name('INV', 'INV_CANCEL_ASN_FAIL');
1682: fnd_msg_pub.ADD;
1683: ROLLBACK TO cancel_asn_pub;
1684: -- fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data =>
1685: -- x_msg_data);
2118: if x_lpn_id is not null then -- CASE WHERE LPN_ID is present and its an invalid ID
2119: --MSG WMS_CONT_INVALID_LPN
2120: -- print_debug('get LPN ID: Error =' || SQLCODE , 1);
2121:
2122: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2123: fnd_msg_pub.ADD;
2124:
2125: x_lpn_context := to_number(null);
2126: x_parent_lpn_id := to_number(null);
2714: l_progress := 'WMSINB-12106';
2715:
2716: IF (l_msni_total_qty > 0 AND l_msni_total_qty <> l_wlpnci_rec.quantity) THEN
2717: -- this message is OK?
2718: fnd_message.set_name('INV', 'INV_SERQTY_NOTMATCH');
2719: fnd_msg_pub.ADD;
2720: IF (l_debug = 1) THEN
2721: print_debug('MODIFY_EDI_XML_ASN: MSNIs total quantity does not match WLPNCI quantity',1);
2722: END IF;
2767: IF (l_debug = 1) THEN
2768: print_debug('MODIFY_EDI_XML_ASN: WLPNCIs total quantity does not match RTI quantity', 1);
2769: END IF;
2770: -- message to be added
2771: fnd_message.set_name('INV', 'INV_WLPNCI_RTI_QTY_NOTMATCH');
2772: fnd_msg_pub.ADD;
2773: l_progress := 'WMSINB-12162';
2774: RAISE fnd_api.g_exc_error;
2775: END IF;
7578: print_debug ('MAINTAIN_MO - Discrepancy in MTRL/WLPN - Sub/Loc or MTRL qty <=0. Error Out the Transaction',1);
7579: END IF;
7580:
7581: l_progress := 'WMSINB:MOMIS001';
7582: fnd_message.set_name ('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
7583: fnd_msg_pub.ADD;
7584: RAISE fnd_api.g_exc_error;
7585: END IF;
7586: END IF;
11893: ,4);
11894: END IF;
11895:
11896: IF NOT (inv_cache.set_item_rec(l_mol_mmtt_ctnt_tb(i).organization_id,l_mol_mmtt_ctnt_tb(i).inventory_item_id)) THEN
11897: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
11898: fnd_msg_pub.add;
11899: RAISE fnd_api.g_exc_unexpected_error;
11900: END IF;
11901:
12827: IF SQLCODE IS NOT NULL THEN
12828: inv_mobile_helper_functions.sql_error('INV_RCV_INTEGRATION_PVT.validate_lpn_context',l_progress, SQLCODE);
12829: END IF;
12830:
12831: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
12832: fnd_msg_pub.ADD;
12833:
12834: return FALSE;
12835: End validate_lpn_context;
18221:
18222: EXCEPTION
18223: WHEN NO_DATA_FOUND THEN
18224: print_debug('Unit of measure does not exist ',1);
18225: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
18226: fnd_message.set_token('UOM', l_unit_of_measure);
18227: fnd_msg_pub.add;
18228: RAISE fnd_api.g_exc_error;
18229: END;
18222: EXCEPTION
18223: WHEN NO_DATA_FOUND THEN
18224: print_debug('Unit of measure does not exist ',1);
18225: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
18226: fnd_message.set_token('UOM', l_unit_of_measure);
18227: fnd_msg_pub.add;
18228: RAISE fnd_api.g_exc_error;
18229: END;
18230: END IF;
19597:
19598: EXCEPTION
19599: WHEN NO_DATA_FOUND THEN
19600: print_debug('Unit of measure does not exist '||l_progress,1);
19601: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
19602: fnd_message.set_token('UOM', l_rti_PRIMARY_UNIT_OF_MEASURE);
19603: fnd_msg_pub.add;
19604: RAISE fnd_api.g_exc_error;
19605: END;
19598: EXCEPTION
19599: WHEN NO_DATA_FOUND THEN
19600: print_debug('Unit of measure does not exist '||l_progress,1);
19601: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
19602: fnd_message.set_token('UOM', l_rti_PRIMARY_UNIT_OF_MEASURE);
19603: fnd_msg_pub.add;
19604: RAISE fnd_api.g_exc_error;
19605: END;
19606: end if;
19608:
19609: /*Bug#9570776 passing the lot number to the procedure, get_primary_qty to get the lot specific conversion */
19610: if(l_mtlt_rec.primary_quantity <> get_primary_qty(l_org_id,l_item_id,
19611: l_rti_uom_code,l_mtlt_rec.transaction_quantity,l_mtlt_rec.lot_number)) then
19612: fnd_message.set_name ('INV' , 'INV_INVALID_QUANTITY');
19613: fnd_msg_pub.ADD;
19614: RAISE fnd_api.g_exc_error;
19615: end if;
19616: /*INVCONV, Check whether Lot is existing or it's a new Lot .
19662:
19663: /*INVCONV , validating for parent lot, Punit Kumar */
19664: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
19665: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
19666: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
19667: fnd_msg_pub.ADD;
19668: l_progress := 'WMSINB-22145';
19669: RAISE fnd_api.g_exc_error;
19670: END IF;
19795: IF (l_debug = 1) THEN
19796: print_debug('VALIDATE_LOT_SERIAL_INFO: User entered status causes commingling in SKU: '||l_progress, 1);
19797: END IF;
19798:
19799: fnd_message.set_name ('INV' , 'INV_STATUS_COMINGLING');
19800: fnd_msg_pub.ADD;
19801: RAISE fnd_api.g_exc_error;
19802:
19803: EXCEPTION
20359: IF (L_SERIAL_NUMBER_CONTROL_CODE = 6 AND
20360: L_SOURCE_DOCUMENT_CODE NOT IN ('RMA','REQ','INVENTORY')) THEN
20361: -- RAISE AN ERROR. IF SERIAL IS AT SALES ORDER ISSUE THEN
20362: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
20363: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20364: fnd_msg_pub.ADD;
20365: l_progress := 'WMSINB-22536';
20366: RAISE fnd_api.g_exc_error;
20367: END IF;
20590: IF (l_asn_line_flag = 'Y') THEN
20591: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
20592: and l_curr_status = 4 )) THEN
20593: --raise error
20594: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20595: fnd_msg_pub.ADD;
20596: l_progress := 'WMSINB-22634';
20597: RAISE fnd_api.g_exc_error;
20598: ELSE
20601: l_mtlt_rec.lot_number)
20602: AND (Nvl(l_curr_status,1) NOT
20603: IN (1,4))) THEN
20604: --raise error
20605: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20606: fnd_msg_pub.ADD;
20607: l_progress := 'WMSINB-22641';
20608: RAISE fnd_api.g_exc_error;
20609: END IF;
20627: END IF;
20628:
20629: IF l_curr_status <> 5 THEN
20630: --raise error
20631: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20632: fnd_msg_pub.ADD;
20633: l_progress := 'WMSINB-22664';
20634: RAISE fnd_api.g_exc_error;
20635: END IF;
20638: IF l_restrict_rcpt_ser = '2' THEN
20639: IF l_curr_status NOT IN
20640: (1,4,6) THEN
20641: --raise error
20642: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20643: fnd_msg_pub.ADD;
20644: l_progress := 'WMSINB-22675';
20645: RAISE fnd_api.g_exc_error;
20646: END IF;
20647: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20648: IF l_curr_status NOT IN
20649: (1,6) THEN
20650: --raise error
20651: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20652: fnd_msg_pub.ADD;
20653: l_progress := 'WMSINB-22684';
20654: RAISE fnd_api.g_exc_error;
20655: END IF;
20659: IF l_restrict_rcpt_ser = '2' THEN
20660: IF l_curr_status NOT IN
20661: (1,4,6) THEN
20662: --raise error
20663: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20664: fnd_msg_pub.ADD;
20665: l_progress := 'WMSINB-22696';
20666: RAISE fnd_api.g_exc_error;
20667: END IF;
20668: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20669: IF l_curr_status NOT IN
20670: (1,6) THEN
20671: --raise error
20672: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20673: fnd_msg_pub.ADD;
20674: l_progress := 'WMSINB-22705';
20675: RAISE fnd_api.g_exc_error;
20676: END IF;
20708:
20709: IF
20710: (is_sernum_unique(l_org_id,l_item_id,l_serial_number,l_txn_src_type_id,12,x_msg_data)<>0) THEN
20711: --raise error
20712: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20713: fnd_msg_pub.ADD;
20714: l_progress := 'WMSINB-22725';
20715: RAISE fnd_api.g_exc_error;
20716: END IF;
20721: *****end of bug4187663*****/
20722:
20723: IF l_curr_org_id <> l_from_org_id THEN
20724: --raise error
20725: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20726: fnd_msg_pub.ADD;
20727: l_progress := 'WMSINB-22726';
20728: RAISE fnd_api.g_exc_error;
20729: ELSE
20732: l_mtlt_rec.lot_number)
20733: AND (Nvl(l_curr_status,1)
20734: NOT IN (1,4))) THEN
20735: --raise error
20736: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20737: fnd_msg_pub.ADD;
20738: l_progress := 'WMSINB-22734';
20739: RAISE fnd_api.g_exc_error;
20740: END IF;
20752: AND rss.serial_num = l_serial_number;
20753:
20754: IF L_CURR_STATUS <> 5 THEN
20755: -- RAISE AN ERROR
20756: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20757: fnd_msg_pub.ADD;
20758: l_progress := 'WMSINB-22751';
20759: RAISE fnd_api.g_exc_error;
20760: END IF;
20761:
20762: EXCEPTION
20763: WHEN NO_DATA_FOUND THEN
20764: -- RAISE AN ERROR
20765: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20766: fnd_msg_pub.ADD;
20767: l_progress := 'WMSINB-22760';
20768: RAISE fnd_api.g_exc_error;
20769: END;
20783: WHERE shipment_line_id = L_SHIPMENT_LINE_ID;
20784: EXCEPTION
20785: WHEN NO_DATA_FOUND THEN
20786: -- RAISE AN ERROR
20787: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20788: fnd_msg_pub.ADD;
20789: l_progress := 'WMSINB-22765';
20790: RAISE fnd_api.g_exc_error;
20791: END;
20798: l_progress := 'WMSINB-22761';
20799: IF (l_debug = 1) THEN
20800: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
20801: END IF;
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: ELSE
20804: RAISE fnd_api.g_exc_error;
20805: END IF;
20806: ELSE
20807: --raise error
20808: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20809: fnd_msg_pub.ADD;
20810: l_progress := 'WMSINB-22768';
20811: RAISE fnd_api.g_exc_error;
20812: END IF;
20819: AND
20820: (Nvl(l_curr_status,1)
20821: NOT IN (1,4))) THEN
20822: --raise error
20823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20824: fnd_msg_pub.ADD;
20825: l_progress := 'WMSINB-22776';
20826: RAISE fnd_api.g_exc_error;
20827: END IF;
20834: IF (L_CURR_STATUS NOT IN (1,6)
20835: AND NOT (l_restrict_rcpt_ser = '2'and l_curr_status = 4)
20836: ) THEN
20837: -- RAISE AN ERROR
20838: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20839: fnd_msg_pub.ADD;
20840: l_progress := 'WMSINB-22785';
20841: RAISE fnd_api.g_exc_error;
20842: END IF;
20846: --('INVENTORY','REQ') OR l_asn_line_flag = 'Y') THEN
20847: IF (( (L_SOURCE_DOCUMENT_CODE <> 'RMA' AND l_curr_org_id <> l_org_id) )
20848: and not (l_restrict_rcpt_ser = '2'and l_curr_status = 4 )) THEN
20849: --raise error
20850: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20851: fnd_msg_pub.ADD;
20852: l_progress := 'WMSINB-22796';
20853: RAISE fnd_api.g_exc_error;
20854: ELSE
20857: l_mtlt_rec.lot_number)
20858: AND (Nvl(l_curr_status,1) NOT
20859: IN (1,4))) THEN
20860: --raise error
20861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20862: fnd_msg_pub.ADD;
20863: l_progress := 'WMSINB-22803';
20864: RAISE fnd_api.g_exc_error;
20865: END IF;
20867:
20868: IF l_restrict_rcpt_ser = '2' THEN
20869: IF l_curr_status NOT IN (1,4,6) THEN
20870: --raise error
20871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20872: fnd_msg_pub.ADD;
20873: l_progress := 'WMSINB-22813';
20874: RAISE fnd_api.g_exc_error;
20875: END IF;
20885: (l_source_document_code = 'RMA' OR
20886: (l_source_document_code = 'PO'
20887: and l_last_transaction_type_id in (36,71))))) THEN
20888: --raise error
20889: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20890: fnd_msg_pub.ADD;
20891: l_progress := 'WMSINB-22821';
20892: RAISE fnd_api.g_exc_error;
20893: END IF;
20905: Nvl(l_curr_status,1) NOT IN (1,5, 6)) ----bug 7112775 (Added status 6 also)
20906: AND NOT (l_curr_status = 4 and l_restrict_rcpt_ser = '2') --Bug: 5524134
20907: ) THEN
20908: --raise error
20909: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20910: fnd_msg_pub.ADD;
20911: l_progress := 'WMSINB-22837';
20912: RAISE fnd_api.g_exc_error;
20913: END IF;
20916: IF ((Nvl(l_curr_lpn_id, -9999) <>
20917: Nvl(l_lpn_id, -9999))
20918: AND Nvl(l_curr_status,1) <> 4) THEN
20919: --raise error
20920: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20921: fnd_msg_pub.ADD;
20922: l_progress := 'WMSINB-22847';
20923: RAISE fnd_api.g_exc_error;
20924: END IF;
20943: /*IF (l_transaction_type = 'DELIVER') THEN
20944: IF (l_routing_header_id = 2) THEN
20945: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
20946: --raise error
20947: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20948: fnd_msg_pub.ADD;
20949: l_progress := 'WMSINB-22865';
20950: RAISE fnd_api.g_exc_error;
20951: END IF;
20956: --entering of duplicate serials
20957:
20958: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
20959: --raise error
20960: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20961: fnd_msg_pub.ADD;
20962: l_progress := 'WMSINB-22878';
20963: RAISE fnd_api.g_exc_error;
20964: END IF;
20979:
20980: IF (l_validation_status <> 'Y'
20981: OR x_return_status <> g_ret_sts_success) THEN
20982: --raise error
20983: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20984: fnd_msg_pub.ADD;
20985: l_progress := 'WMSINB-22880';
20986: RAISE fnd_api.g_exc_error;
20987: END IF;
20989:
20990: --UPDATE GROUP_MARK_ID TO -7937
20991: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20992: --raise error
20993: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20994: fnd_msg_pub.ADD;
20995: l_progress := 'WMSINB-22887';
20996: RAISE fnd_api.g_exc_error;
20997: END IF;
21008: OR (l_from_org_ser_crtl IN (2,5)
21009: AND l_source_document_code = 'INVENTORY')
21010: ) THEN
21011: --raise error
21012: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21013: fnd_msg_pub.ADD;
21014: l_progress := 'WMSINB-22902';
21015: RAISE fnd_api.g_exc_error;
21016: END IF;
21056: , x_msg_data => x_msg_data);
21057:
21058: IF (x_return_status <> g_ret_sts_success) THEN
21059: --raise error
21060: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21061: fnd_msg_pub.ADD;
21062: l_progress := 'WMSINB-22911';
21063: RAISE fnd_api.g_exc_error;
21064: END IF;
21078:
21079: IF (l_validation_status <> 'Y'
21080: OR x_return_status <> g_ret_sts_success) THEN
21081: --raise error
21082: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21083: fnd_msg_pub.ADD;
21084: l_progress := 'WMSINB-22941';
21085: RAISE fnd_api.g_exc_error;
21086: END IF;
21087:
21088: --UPDATE GROUP_MARK_ID TO -7937
21089: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21090: --raise error
21091: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21092: fnd_msg_pub.ADD;
21093: l_progress := 'WMSINB-22951';
21094: RAISE fnd_api.g_exc_error;
21095: END IF;
21094: RAISE fnd_api.g_exc_error;
21095: END IF;
21096: ELSE
21097: --raise error
21098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21099: fnd_msg_pub.ADD;
21100: l_progress := 'WMSINB-22958';
21101: RAISE fnd_api.g_exc_error;
21102: END IF;
21108: /*
21109: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
21110: and l_curr_status = 4 )) THEN
21111: --raise error
21112: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21113: fnd_msg_pub.ADD;
21114: l_progress := 'WMSINB-22969';
21115: RAISE fnd_api.g_exc_error;
21116: ELSE */
21117: IF ((l_curr_lot_num IS NOT NULL)
21118: AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
21119: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
21120: --raise error
21121: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21122: fnd_msg_pub.ADD;
21123: l_progress := 'WMSINB-22976';
21124: RAISE fnd_api.g_exc_error;
21125: END IF;
21127:
21128:
21129: IF l_curr_status NOT IN (1,4,6) THEN
21130: --raise error
21131: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21132: fnd_msg_pub.ADD;
21133: l_progress := 'WMSINB-22985';
21134: RAISE fnd_api.g_exc_error;
21135: END IF;
21151: AND serial_number = l_serial_number
21152: AND LAST_TXN_SOURCE_TYPE_ID = 12);
21153:
21154: IF l_dummy <> '0' THEN
21155: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21156: fnd_msg_pub.ADD;
21157: l_progress := 'WMSINB-23009';
21158: RAISE fnd_api.g_exc_error;
21159: END IF;
21165: END IF;
21166:
21167: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
21168: --raise error
21169: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21170: fnd_msg_pub.ADD;
21171: l_progress := 'WMSINB-23023';
21172: RAISE fnd_api.g_exc_error;
21173: END IF;
21188:
21189: IF (l_validation_status <> 'Y'
21190: OR x_return_status <> g_ret_sts_success) THEN
21191: --raise error
21192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21193: fnd_msg_pub.ADD;
21194: l_progress := 'WMSINB-23030';
21195: RAISE fnd_api.g_exc_error;
21196: END IF;
21198:
21199: --UPDATE GROUP_MARK_ID TO -7937
21200: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21201: --raise error
21202: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21203: fnd_msg_pub.ADD;
21204: l_progress := 'WMSINB-23032';
21205: RAISE fnd_api.g_exc_error;
21206: END IF;
21245:
21246:
21247: IF (x_return_status <> g_ret_sts_success) THEN
21248: --raise error
21249: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21250: fnd_msg_pub.ADD;
21251: l_progress := 'WMSINB-23035';
21252: RAISE fnd_api.g_exc_error;
21253: END IF;
21267:
21268: IF (l_validation_status <> 'Y'
21269: OR x_return_status <> g_ret_sts_success) THEN
21270: --raise error
21271: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21272: fnd_msg_pub.ADD;
21273: l_progress := 'WMSINB-23069';
21274: RAISE fnd_api.g_exc_error;
21275: END IF;
21276:
21277: --UPDATE GROUP_MARK_ID TO -7937
21278: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21279: --raise error
21280: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21281: fnd_msg_pub.ADD;
21282: l_progress := 'WMSINB-23079';
21283: RAISE fnd_api.g_exc_error;
21284: END IF;
21293: AND SERIAL_NUM = L_SERIAL_NUMBER;
21294:
21295: IF (l_curr_status <> 7) THEN
21296: --raise error
21297: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21298: fnd_msg_pub.ADD;
21299: l_progress := 'WMSINB-23096';
21300: RAISE fnd_api.g_exc_error;
21301: END IF;
21309:
21310: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
21311: IF (Nvl(l_inspection_status, 1) <> 1) THEN
21312: --raise error
21313: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21314: fnd_msg_pub.ADD;
21315: l_progress := 'WMSINB-23106';
21316: RAISE fnd_api.g_exc_error;
21317: END IF;
21319: IF l_transaction_type = 'DELIVER' THEN
21320: IF (l_routing_header_id = 2) THEN
21321: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
21322: --raise error
21323: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21324: fnd_msg_pub.ADD;
21325: l_progress := 'WMSINB-23115';
21326: RAISE fnd_api.g_exc_error;
21327: END IF;
21332: --entering of duplicate serials
21333:
21334: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
21335: --raise error
21336: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21337: fnd_msg_pub.ADD;
21338: l_progress := 'WMSINB-23128';
21339: RAISE fnd_api.g_exc_error;
21340: END IF;
21341:
21342: --UPDATE GROUP_MARK_ID TO -7937
21343: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21344: --raise error
21345: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21346: fnd_msg_pub.ADD;
21347: l_progress := 'WMSINB-23137';
21348: RAISE fnd_api.g_exc_error;
21349: END IF;
21349: END IF;
21350: EXCEPTION
21351: WHEN NO_DATA_FOUND THEN
21352: -- RAISE ERROR
21353: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21354: fnd_msg_pub.ADD;
21355: l_progress := 'WMSINB-23145';
21356: RAISE fnd_api.g_exc_error;
21357: END;
21363:
21364: IF (l_num_msnt_recs > 0) THEN
21365: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
21366: --raise error
21367: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21368: fnd_msg_pub.ADD;
21369: l_progress := 'WMSINB-23159';
21370: RAISE fnd_api.g_exc_error;
21371: END IF;
21390: OR (l_serial_number_control_code = 6
21391: AND l_from_org_ser_crtl IN (2,5,6)
21392: AND l_source_document_code = 'REQ')) THEN
21393: --raise error
21394: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21395: fnd_msg_pub.ADD;
21396: l_progress := 'WMSINB-23166';
21397: RAISE fnd_api.g_exc_error;
21398: END IF;
21455: IF (L_SERIAL_NUMBER_CONTROL_CODE = 6 AND
21456: L_SOURCE_DOCUMENT_CODE NOT IN ('RMA','REQ','INVENTORY')) THEN
21457: -- RAISE AN ERROR. IF SERIAL IS AT SALES ORDER ISSUE THEN
21458: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
21459: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21460: fnd_msg_pub.ADD;
21461: l_progress := 'WMSINB-23218';
21462: RAISE fnd_api.g_exc_error;
21463: END IF;
21683: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
21684: and l_curr_status = 4 )) THEN
21685: --raise error
21686: l_progress := 'WMSINB-23303';
21687: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21688: fnd_msg_pub.ADD;
21689: l_progress := 'WMSINB-23306';
21690: RAISE fnd_api.g_exc_error;
21691: ELSE
21691: ELSE
21692: IF (l_curr_lot_num IS NOT NULL) THEN
21693: --raise error
21694: l_progress := 'WMSINB-23311';
21695: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21696: fnd_msg_pub.ADD;
21697: l_progress := 'WMSINB-23314';
21698: RAISE fnd_api.g_exc_error;
21699: END IF;
21718:
21719: IF l_curr_status <> 5 THEN
21720: --raise error
21721: l_progress := 'WMSINB-23335';
21722: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21723: fnd_msg_pub.ADD;
21724: RAISE fnd_api.g_exc_error;
21725: END IF;
21726: EXCEPTION
21729: IF l_curr_status NOT IN
21730: (1,4,6) THEN
21731: --raise error
21732: l_progress := 'WMSINB-23346';
21733: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21734: fnd_msg_pub.ADD;
21735: RAISE fnd_api.g_exc_error;
21736: END IF;
21737: ELSE --IF l_restrict_rcpt_ser = '2' THEN
21738: IF l_curr_status NOT IN
21739: (1,6) THEN
21740: --raise error
21741: l_progress := 'WMSINB-23355';
21742: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21743: fnd_msg_pub.ADD;
21744: RAISE fnd_api.g_exc_error;
21745: END IF;
21746: END IF; --IF l_restrict_rcpt_ser = '2' THEN
21750: IF l_curr_status NOT IN
21751: (1,4,6) THEN
21752: --raise error
21753: l_progress := 'WMSINB-23367';
21754: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21755: fnd_msg_pub.ADD;
21756: RAISE fnd_api.g_exc_error;
21757: END IF;
21758: ELSE --IF l_restrict_rcpt_ser = '2' THEN
21758: ELSE --IF l_restrict_rcpt_ser = '2' THEN
21759: IF l_curr_status NOT IN
21760: (1,6) THEN
21761: --raise error
21762: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21763: fnd_msg_pub.ADD;
21764: l_progress := 'WMSINB-23378';
21765: RAISE fnd_api.g_exc_error;
21766: END IF;
21796: END IF;
21797:
21798: IF (is_sernum_unique(l_org_id, l_item_id,l_serial_number,l_txn_src_type_id,12,x_msg_data)<>0) THEN
21799: --raise error
21800: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21801: fnd_msg_pub.ADD;
21802: l_progress := 'WMSINB-22725';
21803: RAISE fnd_api.g_exc_error;
21804: END IF;
21810:
21811: IF l_curr_org_id <> l_from_org_id THEN
21812: --raise error
21813: l_progress := 'WMSINB-23397';
21814: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21815: fnd_msg_pub.ADD;
21816: RAISE fnd_api.g_exc_error;
21817: ELSE
21818: IF (l_curr_lot_num IS NOT NULL) THEN
21819:
21820: if (L_FROM_ORG_LOT_CTRL = 1 ) then
21821: --raise error
21822: l_progress := 'WMSINB-23404';
21823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21824: fnd_msg_pub.ADD;
21825: RAISE fnd_api.g_exc_error;
21826: else
21827: --update the serial row
21849:
21850: IF L_CURR_STATUS <> 5 THEN
21851: -- RAISE AN ERROR
21852: l_progress := 'WMSINB-23421';
21853: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21854: fnd_msg_pub.ADD;
21855: RAISE fnd_api.g_exc_error;
21856: END IF;
21857:
21857:
21858: EXCEPTION
21859: WHEN NO_DATA_FOUND THEN
21860: -- RAISE AN ERROR
21861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21862: fnd_msg_pub.ADD;
21863: l_progress := 'WMSINB-23432';
21864: RAISE fnd_api.g_exc_error;
21865: END;
21880: WHERE shipment_line_id = L_SHIPMENT_LINE_ID;
21881: EXCEPTION
21882: WHEN NO_DATA_FOUND THEN
21883: -- RAISE AN ERROR
21884: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21885: fnd_msg_pub.ADD;
21886: l_progress := 'WMSINB-23433';
21887: RAISE fnd_api.g_exc_error;
21888: END;
21898: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
21899: END IF;
21900: --raise error
21901: l_progress := 'WMSINB-23438';
21902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21903: fnd_msg_pub.ADD;
21904: RAISE fnd_api.g_exc_error;
21905: END IF;
21906: ELSE
21904: RAISE fnd_api.g_exc_error;
21905: END IF;
21906: ELSE
21907: l_progress := 'WMSINB-23438';
21908: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21909: fnd_msg_pub.ADD;
21910: RAISE fnd_api.g_exc_error;
21911: END IF;
21912: --END Bug: 5524134
21913: ELSE
21914: IF (l_curr_lot_num IS NOT NULL) THEN
21915: --raise error
21916: l_progress := 'WMSINB-23445';
21917: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21918: fnd_msg_pub.ADD;
21919: RAISE fnd_api.g_exc_error;
21920: END IF;
21921: END IF;
21924: AND NOT (l_restrict_rcpt_ser = '2'and l_curr_status = 4 ) --Bug: 5524134
21925: THEN
21926: -- RAISE AN ERROR
21927: l_progress := 'WMSINB-23454';
21928: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21929: fnd_msg_pub.ADD;
21930: RAISE fnd_api.g_exc_error;
21931: END IF;
21932: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
21936: IF ((L_SOURCE_DOCUMENT_CODE <> 'RMA' AND l_curr_org_id <> l_org_id )
21937: and not (l_restrict_rcpt_ser = '2'and l_curr_status = 4 ) ) THEN
21938: --raise error
21939: l_progress := 'WMSINB-23465';
21940: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21941: fnd_msg_pub.ADD;
21942: RAISE fnd_api.g_exc_error;
21943:
21944: --BUG 5114851 (FP of BUG 5060131):
21952: AND NOT (l_source_document_code = 'PO' AND l_restrict_rcpt_ser = '2' AND l_curr_status = 4 )) THEN
21953: IF (l_curr_lot_num IS NOT NULL) THEN
21954: --raise error
21955: l_progress := 'WMSINB-23472';
21956: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21957: fnd_msg_pub.ADD;
21958: RAISE fnd_api.g_exc_error;
21959: END IF;
21960: END IF;
21974: IF l_restrict_rcpt_ser = '2' THEN
21975: IF l_curr_status NOT IN (1,4,6) THEN
21976: --raise error
21977: l_progress := 'WMSINB-23482';
21978: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21979: fnd_msg_pub.ADD;
21980: RAISE fnd_api.g_exc_error;
21981: END IF;
21982:
21993: OR (l_source_document_code = 'PO'
21994: and l_last_transaction_type_id in(36,71))))) THEN --bug 5168883
21995: --raise error
21996: l_progress := 'WMSINB-23490';
21997: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21998: fnd_msg_pub.ADD;
21999: RAISE fnd_api.g_exc_error;
22000: END IF;
22001: END IF; --IF l_restrict_rcpt_ser = '2' THEN
22014: )
22015: ) THEN --bug 5235808 changed from 4 to 5
22016: --raise error
22017: l_progress := 'WMSINB-23506';
22018: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22019: fnd_msg_pub.ADD;
22020: RAISE fnd_api.g_exc_error;
22021: END IF;
22022: END IF;
22025: Nvl(l_lpn_id, -9999)
22026: AND Nvl(l_curr_status,1) <> 4) THEN
22027: --raise error
22028: l_progress := 'WMSINB-23516';
22029: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22030: fnd_msg_pub.ADD;
22031: RAISE fnd_api.g_exc_error;
22032: END IF;
22033: END IF;
22042: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
22043: IF (Nvl(l_inspection_status, 1) <> 1) THEN
22044: --raise error
22045: l_progress := 'WMSINB-23527';
22046: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22047: fnd_msg_pub.ADD;
22048: RAISE fnd_api.g_exc_error;
22049: END IF;
22050: ELS */
22054: IF (l_routing_header_id = 2) THEN
22055: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
22056: --raise error
22057: l_progress := 'WMSINB-23536';
22058: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22059: fnd_msg_pub.ADD;
22060: RAISE fnd_api.g_exc_error;
22061: END IF;
22062: END IF;
22067:
22068: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22069: --raise error
22070: l_progress := 'WMSINB-23549';
22071: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22072: fnd_msg_pub.ADD;
22073: RAISE fnd_api.g_exc_error;
22074: END IF;
22075:
22089:
22090: IF (l_validation_status <> 'Y'
22091: OR x_return_status <> g_ret_sts_success) THEN
22092: --raise error
22093: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22094: fnd_msg_pub.ADD;
22095: l_progress := 'WMSINB-22555';
22096: RAISE fnd_api.g_exc_error;
22097: END IF;
22100: --UPDATE GROUP_MARK_ID TO -7937
22101: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22102: --raise error
22103: l_progress := 'WMSINB-23558';
22104: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22105: fnd_msg_pub.ADD;
22106: RAISE fnd_api.g_exc_error;
22107: END IF;
22108:
22119: AND l_source_document_code = 'INVENTORY')
22120: ) THEN
22121: --raise error
22122: l_progress := 'WMSINB-23573';
22123: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22124: fnd_msg_pub.ADD;
22125: RAISE fnd_api.g_exc_error;
22126: END IF;
22127: END IF;
22166: , x_msg_data => x_msg_data);
22167:
22168: IF (x_return_status <> g_ret_sts_success) THEN
22169: --raise error
22170: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22171: fnd_msg_pub.ADD;
22172: l_progress := 'WMSINB-23580';
22173: RAISE fnd_api.g_exc_error;
22174: END IF;
22188:
22189: IF (l_validation_status <> 'Y'
22190: OR x_return_status <> g_ret_sts_success) THEN
22191: --raise error
22192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22193: fnd_msg_pub.ADD;
22194: l_progress := 'WMSINB-23615';
22195: RAISE fnd_api.g_exc_error;
22196: END IF;
22199: --UPDATE GROUP_MARK_ID TO -7937
22200: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22201: --raise error
22202: l_progress := 'WMSINB-23622';
22203: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22204: fnd_msg_pub.ADD;
22205: RAISE fnd_api.g_exc_error;
22206: END IF;
22207: ELSE
22206: END IF;
22207: ELSE
22208: --raise error
22209: l_progress := 'WMSINB-23629';
22210: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22211: fnd_msg_pub.ADD;
22212: RAISE fnd_api.g_exc_error;
22213: END IF;
22214: END IF; --IF l_serial_exists = 1 THEN
22219: /*
22220: IF ((l_curr_org_id <> l_org_id) and not (l_restrict_rcpt_ser = '2'
22221: and l_curr_status = 4 )) THEN
22222: --raise error
22223: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22224: fnd_msg_pub.ADD;
22225: l_progress := 'WMSINB-23642';
22226: RAISE fnd_api.g_exc_error;
22227: ELSE*/
22227: ELSE*/
22228: IF (l_curr_lot_num IS NOT NULL
22229: AND (Nvl(l_curr_status,1) NOT IN (1,4) )) THEN
22230: --raise error
22231: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22232: fnd_msg_pub.ADD;
22233: l_progress := 'WMSINB-23649';
22234: RAISE fnd_api.g_exc_error;
22235: END IF;
22236: --END IF;
22237:
22238: IF l_curr_status NOT IN (1,4,6) THEN
22239: --raise error
22240: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22241: fnd_msg_pub.ADD;
22242: l_progress := 'WMSINB-23658';
22243: RAISE fnd_api.g_exc_error;
22244: END IF;
22260: AND serial_number = l_serial_number
22261: AND LAST_TXN_SOURCE_TYPE_ID = 12);
22262:
22263: IF l_dummy <> '0' THEN
22264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22265: fnd_msg_pub.ADD;
22266: l_progress := 'WMSINB-23682';
22267: RAISE fnd_api.g_exc_error;
22268: END IF;
22274: END IF;
22275:
22276: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22277: --raise error
22278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22279: fnd_msg_pub.ADD;
22280: l_progress := 'WMSINB-23696';
22281: RAISE fnd_api.g_exc_error;
22282: END IF;
22297:
22298: IF (l_validation_status <> 'Y'
22299: OR x_return_status <> g_ret_sts_success) THEN
22300: --raise error
22301: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22302: fnd_msg_pub.ADD;
22303: l_progress := 'WMSINB-23702';
22304: RAISE fnd_api.g_exc_error;
22305: END IF;
22307:
22308: --UPDATE GROUP_MARK_ID TO -7937
22309: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22310: --raise error
22311: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22312: fnd_msg_pub.ADD;
22313: l_progress := 'WMSINB-23705';
22314: RAISE fnd_api.g_exc_error;
22315: END IF;
22353: , x_msg_data => x_msg_data);
22354:
22355: IF (x_return_status <> g_ret_sts_success) THEN
22356: --raise error
22357: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22358: fnd_msg_pub.ADD;
22359: l_progress := 'WMSINB-23710';
22360: RAISE fnd_api.g_exc_error;
22361: END IF;
22375:
22376: IF (l_validation_status <> 'Y'
22377: OR x_return_status <> g_ret_sts_success) THEN
22378: --raise error
22379: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22380: fnd_msg_pub.ADD;
22381: l_progress := 'WMSINB-23745';
22382: RAISE fnd_api.g_exc_error;
22383: END IF;
22384:
22385: --UPDATE GROUP_MARK_ID TO -7937
22386: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22387: --raise error
22388: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22389: fnd_msg_pub.ADD;
22390: l_progress := 'WMSINB-23752';
22391: RAISE fnd_api.g_exc_error;
22392: END IF;
22401: AND SERIAL_NUM = L_SERIAL_NUMBER;
22402:
22403: IF (l_curr_status <> 7) THEN
22404: --raise error
22405: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22406: fnd_msg_pub.ADD;
22407: l_progress := 'WMSINB-23769';
22408: RAISE fnd_api.g_exc_error;
22409: END IF;
22417:
22418: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
22419: IF (Nvl(l_inspection_status, 1) <> 1) THEN
22420: --raise error
22421: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22422: fnd_msg_pub.ADD;
22423: l_progress := 'WMSINB-23779';
22424: RAISE fnd_api.g_exc_error;
22425: END IF;
22427: IF l_transaction_type = 'DELIVER' THEN
22428: IF (l_routing_header_id = 2) THEN
22429: IF l_inspection_status IS NOT NULL AND l_inspection_status = 1 THEN
22430: --raise error
22431: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22432: fnd_msg_pub.ADD;
22433: l_progress := 'WMSINB-23788';
22434: RAISE fnd_api.g_exc_error;
22435: END IF;
22440: --entering of duplicate serials
22441:
22442: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22443: --raise error
22444: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22445: fnd_msg_pub.ADD;
22446: l_progress := 'WMSINB-23801';
22447: RAISE fnd_api.g_exc_error;
22448: END IF;
22449:
22450: --UPDATE GROUP_MARK_ID TO -7937
22451: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22452: --raise error
22453: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22454: fnd_msg_pub.ADD;
22455: l_progress := 'WMSINB-23810';
22456: RAISE fnd_api.g_exc_error;
22457: END IF;
22457: END IF;
22458: EXCEPTION
22459: WHEN NO_DATA_FOUND THEN
22460: -- RAISE ERROR
22461: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22462: fnd_msg_pub.ADD;
22463: l_progress := 'WMSINB-23818';
22464: RAISE fnd_api.g_exc_error;
22465: END;
22471:
22472: IF (l_num_msnt_recs > 0) THEN
22473: IF l_tot_msnt_serial_qty <> l_rti_primary_qty THEN
22474: --raise error
22475: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22476: fnd_msg_pub.ADD;
22477: l_progress := 'WMSINB-23832';
22478: RAISE fnd_api.g_exc_error;
22479: END IF;
22501: AND l_from_org_ser_crtl IN (2,5,6)
22502: AND l_source_document_code = 'REQ'))
22503: THEN
22504: --raise error
22505: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22506: fnd_msg_pub.ADD;
22507: l_progress := 'WMSINB-23840';
22508: RAISE fnd_api.g_exc_error;
22509: END IF;
22508: RAISE fnd_api.g_exc_error;
22509: END IF;
22510: ELSIF (serial_entered_on_parent(l_parent_transaction_id)) THEN
22511: --raise error
22512: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22513: fnd_msg_pub.ADD;
22514: l_progress := 'WMSINB-23846';
22515: RAISE fnd_api.g_exc_error;
22516: END IF;
22711:
22712: /*INVCONV , validating for parent lot, Punit Kumar */
22713: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
22714: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
22715: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
22716: fnd_msg_pub.ADD;
22717: RAISE fnd_api.g_exc_error;
22718: END IF;
22719: ELSE
23299:
23300: IF (l_serial_exists = 1) THEN
23301: IF l_curr_org_id <> l_org_id THEN
23302: --raise error
23303: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23304: fnd_msg_pub.ADD;
23305: l_progress := 'WMSINB-24186';
23306: RAISE fnd_api.g_exc_error;
23307: ELSE
23308: IF ((l_curr_lot_num IS NOT NULL) AND
23309: (l_curr_lot_num <> l_mtlt_rec.lot_number)
23310: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
23311: --raise error
23312: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23313: fnd_msg_pub.ADD;
23314: l_progress := 'WMSINB-24193';
23315: RAISE fnd_api.g_exc_error;
23316: END IF;
23321: * ASN import transaction made the following changes.
23322: */
23323: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
23324: --raise error
23325: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23326: fnd_msg_pub.ADD;
23327: l_progress := 'WMSINB-24202';
23328: RAISE fnd_api.g_exc_error;
23329: END IF;
23329: END IF;
23330:
23331: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
23332: --raise error
23333: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23334: fnd_msg_pub.ADD;
23335: l_progress := 'WMSINB-24210';
23336: RAISE fnd_api.g_exc_error;
23337: END IF;
23352:
23353: IF (l_validation_status <> 'Y'
23354: OR x_return_status <> g_ret_sts_success) THEN
23355: --raise error
23356: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23357: fnd_msg_pub.ADD;
23358: l_progress := 'WMSINB-24215';
23359: RAISE fnd_api.g_exc_error;
23360: END IF;
23362:
23363: --UPDATE GROUP_MARK_ID TO -7937
23364: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23365: --raise error
23366: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23367: fnd_msg_pub.ADD;
23368: l_progress := 'WMSINB-24219';
23369: RAISE fnd_api.g_exc_error;
23370: END IF;
23409: , x_msg_data => x_msg_data);
23410:
23411: IF (x_return_status <> g_ret_sts_success) THEN
23412: --raise error
23413: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23414: fnd_msg_pub.ADD;
23415: l_progress := 'WMSINB-24225';
23416: RAISE fnd_api.g_exc_error;
23417: END IF;
23431:
23432: IF (l_validation_status <> 'Y'
23433: OR x_return_status <> g_ret_sts_success) THEN
23434: --raise error
23435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23436: fnd_msg_pub.ADD;
23437: l_progress := 'WMSINB-24260';
23438: RAISE fnd_api.g_exc_error;
23439: END IF;
23440:
23441: --UPDATE GROUP_MARK_ID TO -7937
23442: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23443: --raise error
23444: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23445: fnd_msg_pub.ADD;
23446: l_progress := 'WMSINB-24267';
23447: RAISE fnd_api.g_exc_error;
23448: END IF;
23447: RAISE fnd_api.g_exc_error;
23448: END IF;
23449: ELSE
23450: --raise error
23451: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23452: fnd_msg_pub.ADD;
23453: l_progress := 'WMSINB-24274';
23454: RAISE fnd_api.g_exc_error;
23455: END IF;
23489:
23490: IF (l_num_msnt_recs > 0) THEN
23491: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
23492: --raise error
23493: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23494: fnd_msg_pub.ADD;
23495: l_progress := 'WMSINB-24288';
23496: RAISE fnd_api.g_exc_error;
23497: END IF;
23499: IF (l_serial_number_control_code IN (2,5)
23500: OR (l_serial_number_control_code = 6
23501: AND l_source_document_code IN ('RMA','REQ','INVENTORY'))) THEN
23502: --raise error
23503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23504: fnd_msg_pub.ADD;
23505: l_progress := 'WMSINB-24295';
23506: RAISE fnd_api.g_exc_error;
23507: END IF;
23521: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
23522: -- if there is a lot specific conversion
23523: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
23524: --raise error
23525: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23526: fnd_msg_pub.ADD;
23527: l_progress := 'WMSINB-24309';
23528: RAISE fnd_api.g_exc_error;
23529: END IF; -- Bug# 4225766
23756:
23757: IF (l_serial_exists = 1) THEN
23758: IF l_curr_org_id <> l_org_id THEN
23759: --raise error
23760: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23761: fnd_msg_pub.ADD;
23762: l_progress := 'WMSINB-24394';
23763: RAISE fnd_api.g_exc_error;
23764: ELSE
23763: RAISE fnd_api.g_exc_error;
23764: ELSE
23765: IF (l_curr_lot_num IS NOT NULL) THEN
23766: --raise error
23767: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23768: fnd_msg_pub.ADD;
23769: l_progress := 'WMSINB-24401';
23770: RAISE fnd_api.g_exc_error;
23771: END IF;
23772: END IF;
23773:
23774: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
23775: --raise error
23776: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23777: fnd_msg_pub.ADD;
23778: l_progress := 'WMSINB-24410';
23779: RAISE fnd_api.g_exc_error;
23780: END IF;
23780: END IF;
23781:
23782: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
23783: --raise error
23784: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23785: fnd_msg_pub.ADD;
23786: l_progress := 'WMSINB-24418';
23787: RAISE fnd_api.g_exc_error;
23788: END IF;
23803:
23804: IF (l_validation_status <> 'Y'
23805: OR x_return_status <> g_ret_sts_success) THEN
23806: --raise error
23807: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23808: fnd_msg_pub.ADD;
23809: l_progress := 'WMSINB-24424';
23810: RAISE fnd_api.g_exc_error;
23811: END IF;
23813:
23814: --UPDATE GROUP_MARK_ID TO -7937
23815: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23816: --raise error
23817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23818: fnd_msg_pub.ADD;
23819: l_progress := 'WMSINB-24427';
23820: RAISE fnd_api.g_exc_error;
23821: END IF;
23860: , x_msg_data => x_msg_data);
23861:
23862: IF (x_return_status <> g_ret_sts_success) THEN
23863: --raise error
23864: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23865: fnd_msg_pub.ADD;
23866: l_progress := 'WMSINB-24430';
23867: RAISE fnd_api.g_exc_error;
23868: END IF;
23882:
23883: IF (l_validation_status <> 'Y'
23884: OR x_return_status <> g_ret_sts_success) THEN
23885: --raise error
23886: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23887: fnd_msg_pub.ADD;
23888: l_progress := 'WMSINB-24470';
23889: RAISE fnd_api.g_exc_error;
23890: END IF;
23891:
23892: --UPDATE GROUP_MARK_ID TO -7937
23893: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23894: --raise error
23895: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23896: fnd_msg_pub.ADD;
23897: l_progress := 'WMSINB-24475';
23898: RAISE fnd_api.g_exc_error;
23899: END IF;
23898: RAISE fnd_api.g_exc_error;
23899: END IF;
23900: ELSE
23901: --raise error
23902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23903: fnd_msg_pub.ADD;
23904: l_progress := 'WMSINB-24482';
23905: RAISE fnd_api.g_exc_error;
23906: END IF;
23940:
23941: IF (l_num_msnt_recs > 0) THEN
23942: IF l_tot_msnt_serial_qty <> l_rti_primary_qty THEN
23943: --raise error
23944: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23945: fnd_msg_pub.ADD;
23946: l_progress := 'WMSINB-24496';
23947: RAISE fnd_api.g_exc_error;
23948: END IF;
24190:
24191: /*INVCONV , validating for parent lot*/
24192: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
24193: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
24194: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
24195: fnd_msg_pub.ADD;
24196: RAISE fnd_api.g_exc_error;
24197: END IF;
24198: ELSE
25308:
25309: IF (l_serial_exists = 1) THEN
25310: IF l_curr_org_id <> l_org_id THEN
25311: --raise error
25312: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25313: fnd_msg_pub.ADD;
25314: l_progress := 'WMSINB-25466';
25315: RAISE fnd_api.g_exc_error;
25316: ELSE
25317: IF ((l_curr_lot_num IS NOT NULL) AND
25318: (l_curr_lot_num <> l_mtlt_rec.lot_number)
25319: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
25320: --raise error
25321: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25322: fnd_msg_pub.ADD;
25323: l_progress := 'WMSINB-25473';
25324: RAISE fnd_api.g_exc_error;
25325: END IF;
25326: END IF;
25327:
25328: IF l_curr_status NOT IN (1,6) THEN
25329: --raise error
25330: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25331: fnd_msg_pub.ADD;
25332: l_progress := 'WMSINB-25482';
25333: RAISE fnd_api.g_exc_error;
25334: END IF;
25334: END IF;
25335:
25336: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25337: --raise error
25338: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25339: fnd_msg_pub.ADD;
25340: l_progress := 'WMSINB-25490';
25341: RAISE fnd_api.g_exc_error;
25342: END IF;
25357:
25358: IF (l_validation_status <> 'Y'
25359: OR x_return_status <> g_ret_sts_success) THEN
25360: --raise error
25361: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25362: fnd_msg_pub.ADD;
25363: l_progress := 'WMSINB-254960';
25364: RAISE fnd_api.g_exc_error;
25365: END IF;
25367:
25368: --UPDATE GROUP_MARK_ID TO -7937
25369: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25370: --raise error
25371: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25372: fnd_msg_pub.ADD;
25373: l_progress := 'WMSINB-25499';
25374: RAISE fnd_api.g_exc_error;
25375: END IF;
25419: , x_msg_data => x_msg_data);
25420:
25421: IF (x_return_status <> g_ret_sts_success) THEN
25422: --raise error
25423: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25424: fnd_msg_pub.ADD;
25425: l_progress := 'WMSINB-25505';
25426: RAISE fnd_api.g_exc_error;
25427: END IF;
25441:
25442: IF (l_validation_status <> 'Y'
25443: OR x_return_status <> g_ret_sts_success) THEN
25444: --raise error
25445: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25446: fnd_msg_pub.ADD;
25447: l_progress := 'WMSINB-25545';
25448: RAISE fnd_api.g_exc_error;
25449: END IF;
25450:
25451: --UPDATE GROUP_MARK_ID TO -7937
25452: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25453: --raise error
25454: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25455: fnd_msg_pub.ADD;
25456: l_progress := 'WMSINB-25552';
25457: RAISE fnd_api.g_exc_error;
25458: END IF;
25457: RAISE fnd_api.g_exc_error;
25458: END IF;
25459: ELSE --IF l_serial_number_control_code = 5 THEN
25460: --raise error
25461: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25462: fnd_msg_pub.ADD;
25463: l_progress := 'WMSINB-25559';
25464: RAISE fnd_api.g_exc_error;
25465: END IF; --IF l_serial_number_control_code = 5 THEN
25474: AND SERIAL_NUM = L_SERIAL_NUMBER;
25475:
25476: IF (l_curr_status <> 7) THEN
25477: --raise error
25478: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25479: fnd_msg_pub.ADD;
25480: l_progress := 'WMSINB-25576';
25481: RAISE fnd_api.g_exc_error;
25482: END IF;
25483:
25484: --Validate serial/group_mark_id to prevent entering duplicate serials
25485: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25486: --raise error
25487: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25488: fnd_msg_pub.ADD;
25489: l_progress := 'WMSINB-25587';
25490: RAISE fnd_api.g_exc_error;
25491: END IF;
25492:
25493: --UPDATE GROUP_MARK_ID TO -7937
25494: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25495: --raise error
25496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25497: fnd_msg_pub.ADD;
25498: l_progress := 'WMSINB-25596';
25499: RAISE fnd_api.g_exc_error;
25500: END IF;
25500: END IF;
25501: EXCEPTION
25502: WHEN NO_DATA_FOUND THEN
25503: -- RAISE ERROR
25504: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25505: fnd_msg_pub.ADD;
25506: l_progress := 'WMSINB-25604';
25507: RAISE fnd_api.g_exc_error;
25508: END;
25509: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25510: IF (l_serial_exists = 1) THEN
25511: IF l_curr_org_id <> l_org_id THEN
25512: --raise error
25513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25514: fnd_msg_pub.ADD;
25515: l_progress := 'WMSINB-25613';
25516: RAISE fnd_api.g_exc_error;
25517: ELSE
25517: ELSE
25518: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
25519: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
25520: --raise error
25521: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25522: fnd_msg_pub.ADD;
25523: l_progress := 'WMSINB-25620';
25524: RAISE fnd_api.g_exc_error;
25525: END IF;
25526: END IF;
25527:
25528: IF l_curr_status NOT IN (1,6) THEN
25529: --raise error
25530: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25531: fnd_msg_pub.ADD;
25532: l_progress := 'WMSINB-25629';
25533: RAISE fnd_api.g_exc_error;
25534: END IF;
25534: END IF;
25535:
25536: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25537: --raise error
25538: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25539: fnd_msg_pub.ADD;
25540: l_progress := 'WMSINB-25637';
25541: RAISE fnd_api.g_exc_error;
25542: END IF;
25557:
25558: IF (l_validation_status <> 'Y'
25559: OR x_return_status <> g_ret_sts_success) THEN
25560: --raise error
25561: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25562: fnd_msg_pub.ADD;
25563: l_progress := 'WMSINB-25642';
25564: RAISE fnd_api.g_exc_error;
25565: END IF;
25567:
25568: --UPDATE GROUP_MARK_ID TO -7937
25569: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25570: --raise error
25571: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25572: fnd_msg_pub.ADD;
25573: l_progress := 'WMSINB-25646';
25574: RAISE fnd_api.g_exc_error;
25575: END IF;
25619: , x_msg_data => x_msg_data);
25620:
25621: IF (x_return_status <> g_ret_sts_success) THEN
25622: --raise error
25623: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25624: fnd_msg_pub.ADD;
25625: l_progress := 'WMSINB-25650';
25626: RAISE fnd_api.g_exc_error;
25627: END IF;
25640: );
25641:
25642: IF (l_validation_status <> 'Y' OR x_return_status <> g_ret_sts_success) THEN
25643: --raise error
25644: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25645: fnd_msg_pub.ADD;
25646: l_progress := 'WMSINB-25691';
25647: RAISE fnd_api.g_exc_error;
25648: END IF;
25649:
25650: --UPDATE GROUP_MARK_ID TO -7937
25651: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25652: --raise error
25653: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25654: fnd_msg_pub.ADD;
25655: l_progress := 'WMSINB-25699';
25656: RAISE fnd_api.g_exc_error;
25657: END IF;
25656: RAISE fnd_api.g_exc_error;
25657: END IF;
25658: ELSE --IF l_serial_number_control_code = 5 THEN
25659: --raise error
25660: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25661: fnd_msg_pub.ADD;
25662: l_progress := 'WMSINB-25706';
25663: RAISE fnd_api.g_exc_error;
25664: END IF; --IF l_serial_number_control_code = 5 THEN
25679: AND SERIAL_NUM = L_SERIAL_NUMBER;
25680:
25681: IF (l_curr_status <> 7) THEN
25682: --raise error
25683: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25684: fnd_msg_pub.ADD;
25685: l_progress := 'WMSINB-25729';
25686: RAISE fnd_api.g_exc_error;
25687: END IF;
25690: --entering of duplicate serials
25691:
25692: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25693: --raise error
25694: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25695: fnd_msg_pub.ADD;
25696: l_progress := 'WMSINB-25740';
25697: RAISE fnd_api.g_exc_error;
25698: END IF;
25699:
25700: --UPDATE GROUP_MARK_ID TO -7937
25701: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25702: --raise error
25703: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25704: fnd_msg_pub.ADD;
25705: l_progress := 'WMSINB-25749';
25706: RAISE fnd_api.g_exc_error;
25707: END IF;
25707: END IF;
25708: EXCEPTION
25709: WHEN NO_DATA_FOUND THEN
25710: -- RAISE ERROR
25711: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25712: fnd_msg_pub.ADD;
25713: l_progress := 'WMSINB-25757';
25714: RAISE fnd_api.g_exc_error;
25715: END;
25716: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25717: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
25718: IF l_curr_org_id <> l_org_id THEN
25719: --raise error
25720: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25721: fnd_msg_pub.ADD;
25722: l_progress := 'WMSINB-25766';
25723: RAISE fnd_api.g_exc_error;
25724: ELSE
25726: AND (l_curr_lot_num <>
25727: l_mtlt_rec.lot_number)
25728: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
25729: --raise error
25730: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25731: fnd_msg_pub.ADD;
25732: l_progress := 'WMSINB-25773';
25733: RAISE fnd_api.g_exc_error;
25734: END IF;
25736:
25737: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25738: IF l_curr_status NOT IN (1,6) THEN
25739: --raise error
25740: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25741: fnd_msg_pub.ADD;
25742: l_progress := 'WMSINB-25783';
25743: RAISE fnd_api.g_exc_error;
25744: END IF;
25746: --ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25747: ELSIF l_serial_number_control_code in (2,5) THEN
25748: IF (l_curr_status <> 3) THEN
25749: --raise error
25750: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
25751: fnd_msg_pub.ADD;
25752: l_progress := 'WMSINB-25791';
25753: RAISE fnd_api.g_exc_error;
25754: END IF;
25755: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25756:
25757: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25758: --raise error
25759: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25760: fnd_msg_pub.ADD;
25761: l_progress := 'WMSINB-25800';
25762: RAISE fnd_api.g_exc_error;
25763: END IF;
25778:
25779: IF (l_validation_status <> 'Y'
25780: OR x_return_status <> g_ret_sts_success) THEN
25781: --raise error
25782: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25783: fnd_msg_pub.ADD;
25784: l_progress := 'WMSINB-25805';
25785: RAISE fnd_api.g_exc_error;
25786: END IF;
25788:
25789: --UPDATE GROUP_MARK_ID TO -7937
25790: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25791: --raise error
25792: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25793: fnd_msg_pub.ADD;
25794: l_progress := 'WMSINB-25809';
25795: RAISE fnd_api.g_exc_error;
25796: END IF;
25803:
25804: IF (l_num_msnt_recs > 0) THEN
25805: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
25806: --raise error
25807: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25808: fnd_msg_pub.ADD;
25809: l_progress := 'WMSINB-25824';
25810: RAISE fnd_api.g_exc_error;
25811: END IF;
25813: IF (l_serial_number_control_code IN (2,5)
25814: OR (l_serial_number_control_code = 6 AND l_source_document_code IN ('RMA','REQ','INVENTORY')))
25815: THEN
25816: --raise error
25817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25818: fnd_msg_pub.ADD;
25819: l_progress := 'WMSINB-25831';
25820: RAISE fnd_api.g_exc_error;
25821: END IF;
25836: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
25837: -- if there is a lot specific conversion
25838: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(Abs(l_rti_trans_qty),5)) THEN -- Bug# 4225766
25839: --raise error
25840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25841: fnd_msg_pub.ADD;
25842: l_progress := 'WMSINB-25845';
25843: RAISE fnd_api.g_exc_error;
25844: END IF; -- Bug# 4225766
25851: RAISE fnd_api.g_exc_error;
25852: ELSE
25853: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
25854: --raise error;
25855: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25856: fnd_msg_pub.ADD;
25857: l_progress := 'WMSINB-25859';
25858: RAISE fnd_api.g_exc_error;
25859: END IF;
26087:
26088: IF (l_serial_exists = 1) THEN
26089: IF l_curr_org_id <> l_org_id THEN
26090: --raise error
26091: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26092: fnd_msg_pub.ADD;
26093: l_progress := 'WMSINB-25975';
26094: RAISE fnd_api.g_exc_error;
26095: ELSE
26094: RAISE fnd_api.g_exc_error;
26095: ELSE
26096: IF (l_curr_lot_num IS NOT NULL) THEN
26097: --raise error
26098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26099: fnd_msg_pub.ADD;
26100: l_progress := 'WMSINB-25982';
26101: RAISE fnd_api.g_exc_error;
26102: END IF;
26103: END IF;
26104:
26105: IF l_curr_status NOT IN (1,6) THEN
26106: --raise error
26107: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26108: fnd_msg_pub.ADD;
26109: l_progress := 'WMSINB-25991';
26110: RAISE fnd_api.g_exc_error;
26111: END IF;
26111: END IF;
26112:
26113: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26114: --raise error
26115: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26116: fnd_msg_pub.ADD;
26117: l_progress := 'WMSINB-25999';
26118: RAISE fnd_api.g_exc_error;
26119: END IF;
26134:
26135: IF (l_validation_status <> 'Y'
26136: OR x_return_status <> g_ret_sts_success) THEN
26137: --raise error
26138: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26139: fnd_msg_pub.ADD;
26140: l_progress := 'WMSINB-26005';
26141: RAISE fnd_api.g_exc_error;
26142: END IF;
26144:
26145: --UPDATE GROUP_MARK_ID TO -7937
26146: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26147: --raise error
26148: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26149: fnd_msg_pub.ADD;
26150: l_progress := 'WMSINB-26008';
26151: RAISE fnd_api.g_exc_error;
26152: END IF;
26196: , x_msg_data => x_msg_data);
26197:
26198: IF (x_return_status <> g_ret_sts_success) THEN
26199: --raise error
26200: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26201: fnd_msg_pub.ADD;
26202: l_progress := 'WMSINB-26015';
26203: RAISE fnd_api.g_exc_error;
26204: END IF;
26217: );
26218:
26219: IF (l_validation_status <> 'Y' OR x_return_status <> g_ret_sts_success) THEN
26220: --raise error
26221: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26222: fnd_msg_pub.ADD;
26223: l_progress := 'WMSINB-29051';
26224: RAISE fnd_api.g_exc_error;
26225: END IF;
26226:
26227: --UPDATE GROUP_MARK_ID TO -7937
26228: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26229: --raise error
26230: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26231: fnd_msg_pub.ADD;
26232: l_progress := 'WMSINB-26061';
26233: RAISE fnd_api.g_exc_error;
26234: END IF;
26233: RAISE fnd_api.g_exc_error;
26234: END IF;
26235: ELSE --IF l_serial_number_control_code = 5 THEN
26236: --raise error
26237: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26238: fnd_msg_pub.ADD;
26239: l_progress := 'WMSINB-26068';
26240: RAISE fnd_api.g_exc_error;
26241: END IF; --IF l_serial_number_control_code = 5 THEN
26250: AND SERIAL_NUM = L_SERIAL_NUMBER;
26251:
26252: IF (l_curr_status <> 7) THEN
26253: --raise error
26254: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26255: fnd_msg_pub.ADD;
26256: l_progress := 'WMSINB-26085';
26257: RAISE fnd_api.g_exc_error;
26258: END IF;
26259:
26260: --Validate serial/group_mark_id to prevent entering of duplicate serials
26261: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26262: --raise error
26263: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26264: fnd_msg_pub.ADD;
26265: l_progress := 'WMSINB-26096';
26266: RAISE fnd_api.g_exc_error;
26267: END IF;
26268:
26269: --UPDATE GROUP_MARK_ID TO -7937
26270: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26271: --raise error
26272: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26273: fnd_msg_pub.ADD;
26274: l_progress := 'WMSINB-26105';
26275: RAISE fnd_api.g_exc_error;
26276: END IF;
26276: END IF;
26277: EXCEPTION
26278: WHEN NO_DATA_FOUND THEN
26279: -- RAISE ERROR
26280: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26281: fnd_msg_pub.ADD;
26282: l_progress := 'WMSINB-26113';
26283: RAISE fnd_api.g_exc_error;
26284: END;
26285: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
26286: IF (l_serial_exists = 1) THEN
26287: IF l_curr_org_id <> l_org_id THEN
26288: --raise error
26289: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26290: fnd_msg_pub.ADD;
26291: l_progress := 'WMSINB-26122';
26292: RAISE fnd_api.g_exc_error;
26293: ELSE
26292: RAISE fnd_api.g_exc_error;
26293: ELSE
26294: IF (l_curr_lot_num IS NOT NULL) THEN
26295: --raise error
26296: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26297: fnd_msg_pub.ADD;
26298: l_progress := 'WMSINB-26129';
26299: RAISE fnd_api.g_exc_error;
26300: END IF;
26301: END IF;
26302:
26303: IF l_curr_status NOT IN (1,6) THEN
26304: --raise error
26305: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26306: fnd_msg_pub.ADD;
26307: l_progress := 'WMSINB-26138';
26308: RAISE fnd_api.g_exc_error;
26309: END IF;
26309: END IF;
26310:
26311: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26312: --raise error
26313: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26314: fnd_msg_pub.ADD;
26315: l_progress := 'WMSINB-26146';
26316: RAISE fnd_api.g_exc_error;
26317: END IF;
26332:
26333: IF (l_validation_status <> 'Y'
26334: OR x_return_status <> g_ret_sts_success) THEN
26335: --raise error
26336: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26337: fnd_msg_pub.ADD;
26338: l_progress := 'WMSINB-26152';
26339: RAISE fnd_api.g_exc_error;
26340: END IF;
26342:
26343: --UPDATE GROUP_MARK_ID TO -7937
26344: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26345: --raise error
26346: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26347: fnd_msg_pub.ADD;
26348: l_progress := 'WMSINB-26155';
26349: RAISE fnd_api.g_exc_error;
26350: END IF;
26394: , x_msg_data => x_msg_data);
26395:
26396: IF (x_return_status <> g_ret_sts_success) THEN
26397: --raise error
26398: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26399: fnd_msg_pub.ADD;
26400: l_progress := 'WMSINB-26160';
26401: RAISE fnd_api.g_exc_error;
26402: END IF;
26415: );
26416:
26417: IF (l_validation_status <> 'Y' OR x_return_status <> g_ret_sts_success) THEN
26418: --raise error
26419: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26420: fnd_msg_pub.ADD;
26421: l_progress := 'WMSINB-26200';
26422: RAISE fnd_api.g_exc_error;
26423: END IF;
26424:
26425: --UPDATE GROUP_MARK_ID TO -7937
26426: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26427: --raise error
26428: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26429: fnd_msg_pub.ADD;
26430: l_progress := 'WMSINB-26208';
26431: RAISE fnd_api.g_exc_error;
26432: END IF;
26431: RAISE fnd_api.g_exc_error;
26432: END IF;
26433: ELSE --IF l_serial_number_control_code = 5 THEN
26434: --raise error
26435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26436: fnd_msg_pub.ADD;
26437: l_progress := 'WMSINB-26215';
26438: RAISE fnd_api.g_exc_error;
26439: END IF; --IF l_serial_number_control_code = 5 THEN
26454: AND SERIAL_NUM = L_SERIAL_NUMBER;
26455:
26456: IF (l_curr_status <> 7) THEN
26457: --raise error
26458: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26459: fnd_msg_pub.ADD;
26460: l_progress := 'WMSINB-26238';
26461: RAISE fnd_api.g_exc_error;
26462: END IF;
26465: --entering of duplicate serials
26466:
26467: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26468: --raise error
26469: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26470: fnd_msg_pub.ADD;
26471: l_progress := 'WMSINB-26249';
26472: RAISE fnd_api.g_exc_error;
26473: END IF;
26474:
26475: --UPDATE GROUP_MARK_ID TO -7937
26476: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26477: --raise error
26478: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26479: fnd_msg_pub.ADD;
26480: l_progress := 'WMSINB-26258';
26481: RAISE fnd_api.g_exc_error;
26482: END IF;
26482: END IF;
26483: EXCEPTION
26484: WHEN NO_DATA_FOUND THEN
26485: -- RAISE ERROR
26486: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26487: fnd_msg_pub.ADD;
26488: l_progress := 'WMSINB-26266';
26489: RAISE fnd_api.g_exc_error;
26490: END;
26491: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
26492: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
26493: IF l_curr_org_id <> l_org_id THEN
26494: --raise error
26495: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26496: fnd_msg_pub.ADD;
26497: l_progress := 'WMSINB-26275';
26498: RAISE fnd_api.g_exc_error;
26499: ELSE
26498: RAISE fnd_api.g_exc_error;
26499: ELSE
26500: IF (l_curr_lot_num IS NOT NULL) THEN
26501: --raise error
26502: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26503: fnd_msg_pub.ADD;
26504: l_progress := 'WMSINB-26282';
26505: RAISE fnd_api.g_exc_error;
26506: END IF;
26508:
26509: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26510: IF l_curr_status NOT IN (1,6) THEN
26511: --raise error
26512: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26513: fnd_msg_pub.ADD;
26514: l_progress := 'WMSINB-26292';
26515: RAISE fnd_api.g_exc_error;
26516: END IF;
26518: ELSIF l_serial_number_control_code in (2,5) THEN
26519: --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26520: IF (l_curr_status <> 3) THEN
26521: --raise error
26522: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
26523: fnd_msg_pub.ADD;
26524: l_progress := 'WMSINB-26300';
26525: RAISE fnd_api.g_exc_error;
26526: END IF;
26527: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26528:
26529: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26530: --raise error
26531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26532: fnd_msg_pub.ADD;
26533: l_progress := 'WMSINB-26309';
26534: RAISE fnd_api.g_exc_error;
26535: END IF;
26549: );
26550:
26551: IF (l_validation_status <> 'Y' OR x_return_status <> g_ret_sts_success) THEN
26552: --raise error
26553: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26554: fnd_msg_pub.ADD;
26555: l_progress := 'WMSINB-26315';
26556: RAISE fnd_api.g_exc_error;
26557: END IF;
26559:
26560: --UPDATE GROUP_MARK_ID TO -7937
26561: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26562: --raise error
26563: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26564: fnd_msg_pub.ADD;
26565: l_progress := 'WMSINB-26318';
26566: RAISE fnd_api.g_exc_error;
26567: END IF;
26574:
26575: IF (l_num_msnt_recs > 0) THEN
26576: IF Abs(l_rti_primary_qty) <> l_tot_msnt_serial_qty THEN
26577: --raise error
26578: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26579: fnd_msg_pub.ADD;
26580: l_progress := 'WMSINB-26333';
26581: RAISE fnd_api.g_exc_error;
26582: END IF;
26902: IF (l_lot_exists = 1) THEN
26903: /*INVCONV , validating for parent lot, Punit Kumar */
26904: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
26905: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
26906: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
26907: fnd_msg_pub.ADD;
26908: RAISE fnd_api.g_exc_error;
26909: END IF;
26910: ELSE
27499: AND SERIAL_NUM = L_SERIAL_NUMBER;
27500:
27501: IF (l_curr_status <> 7) THEN
27502: --raise error
27503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27504: fnd_msg_pub.ADD;
27505: l_progress := 'WMSINB-26931';
27506: RAISE fnd_api.g_exc_error;
27507: END IF;
27510: --entering of duplicate serials
27511:
27512: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27513: --raise error
27514: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27515: fnd_msg_pub.ADD;
27516: l_progress := 'WMSINB-26942';
27517: RAISE fnd_api.g_exc_error;
27518: END IF;
27519:
27520: --UPDATE GROUP_MARK_ID TO -7937
27521: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27522: --raise error
27523: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27524: fnd_msg_pub.ADD;
27525: l_progress := 'WMSINB-26951';
27526: RAISE fnd_api.g_exc_error;
27527: END IF;
27527: END IF;
27528: EXCEPTION
27529: WHEN NO_DATA_FOUND THEN
27530: -- RAISE ERROR
27531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27532: fnd_msg_pub.ADD;
27533: l_progress := 'WMSINB-26959';
27534: RAISE fnd_api.g_exc_error;
27535: END;
27536: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27537: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27538: IF l_curr_org_id <> l_org_id THEN
27539: --raise error
27540: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27541: fnd_msg_pub.ADD;
27542: l_progress := 'WMSINB-26968';
27543: RAISE fnd_api.g_exc_error;
27544: ELSE
27546: ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27547: AND
27548: (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27549: --raise error
27550: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27551: fnd_msg_pub.ADD;
27552: l_progress := 'WMSINB-26975';
27553: RAISE fnd_api.g_exc_error;
27554: END IF;
27556:
27557: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27558: IF l_curr_status NOT IN (1,6) THEN
27559: --raise error
27560: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27561: fnd_msg_pub.ADD;
27562: l_progress := 'WMSINB-26985';
27563: RAISE fnd_api.g_exc_error;
27564: END IF;
27564: END IF;
27565: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27566: IF (l_curr_status <> 3) THEN
27567: --raise error
27568: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
27569: fnd_msg_pub.ADD;
27570: l_progress := 'WMSINB-26993';
27571: RAISE fnd_api.g_exc_error;
27572: END IF;
27573: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27574:
27575: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27576: --raise error
27577: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27578: fnd_msg_pub.ADD;
27579: l_progress := 'WMSINB-27002';
27580: RAISE fnd_api.g_exc_error;
27581: END IF;
27596:
27597: IF (l_validation_status <> 'Y'
27598: OR x_return_status <> g_ret_sts_success) THEN
27599: --raise error
27600: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27601: fnd_msg_pub.ADD;
27602: l_progress := 'WMSINB-27008';
27603: RAISE fnd_api.g_exc_error;
27604: END IF;
27606:
27607: --UPDATE GROUP_MARK_ID TO -7937
27608: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27609: --raise error
27610: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27611: fnd_msg_pub.ADD;
27612: l_progress := 'WMSINB-27011';
27613: RAISE fnd_api.g_exc_error;
27614: END IF;
27624: AND SERIAL_NUM = L_SERIAL_NUMBER;
27625:
27626: IF (l_curr_status <> 7) THEN
27627: --raise error
27628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27629: fnd_msg_pub.ADD;
27630: l_progress := 'WMSINB-27029';
27631: RAISE fnd_api.g_exc_error;
27632: END IF;
27635: --entering of duplicate serials
27636:
27637: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27638: --raise error
27639: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27640: fnd_msg_pub.ADD;
27641: l_progress := 'WMSINB-27040';
27642: RAISE fnd_api.g_exc_error;
27643: END IF;
27644:
27645: --UPDATE GROUP_MARK_ID TO -7937
27646: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27647: --raise error
27648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27649: fnd_msg_pub.ADD;
27650: l_progress := 'WMSINB-27049';
27651: RAISE fnd_api.g_exc_error;
27652: END IF;
27652: END IF;
27653: EXCEPTION
27654: WHEN NO_DATA_FOUND THEN
27655: -- RAISE ERROR
27656: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27657: fnd_msg_pub.ADD;
27658: l_progress := 'WMSINB-27057';
27659: RAISE fnd_api.g_exc_error;
27660: END;
27661: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27662: IF (l_serial_exists = 1) THEN
27663: IF l_curr_org_id <> l_org_id THEN
27664: --raise error
27665: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27666: fnd_msg_pub.ADD;
27667: l_progress := 'WMSINB-27066';
27668: RAISE fnd_api.g_exc_error;
27669: ELSE
27669: ELSE
27670: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27671: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27672: --raise error
27673: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27674: fnd_msg_pub.ADD;
27675: l_progress := 'WMSINB-27073';
27676: RAISE fnd_api.g_exc_error;
27677: END IF;
27682: * Positive Correction transaction made the following changes.
27683: */
27684: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27685: --raise error
27686: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27687: fnd_msg_pub.ADD;
27688: l_progress := 'WMSINB-27082';
27689: RAISE fnd_api.g_exc_error;
27690: END IF;
27690: END IF;
27691:
27692: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27693: --raise error
27694: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27695: fnd_msg_pub.ADD;
27696: l_progress := 'WMSINB-27090';
27697: RAISE fnd_api.g_exc_error;
27698: END IF;
27713:
27714: IF (l_validation_status <> 'Y'
27715: OR x_return_status <> g_ret_sts_success) THEN
27716: --raise error
27717: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27718: fnd_msg_pub.ADD;
27719: l_progress := 'WMSINB-27095';
27720: RAISE fnd_api.g_exc_error;
27721: END IF;
27723:
27724: --UPDATE GROUP_MARK_ID TO -7937
27725: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27726: --raise error
27727: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27728: fnd_msg_pub.ADD;
27729: l_progress := 'WMSINB-27099';
27730: RAISE fnd_api.g_exc_error;
27731: END IF;
27775: , x_msg_data => x_msg_data);
27776:
27777: IF (x_return_status <> g_ret_sts_success) THEN
27778: --raise error
27779: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27780: fnd_msg_pub.ADD;
27781: l_progress := 'WMSINB-27105';
27782: RAISE fnd_api.g_exc_error;
27783: END IF;
27797:
27798: IF (l_validation_status <> 'Y'
27799: OR x_return_status <> g_ret_sts_success) THEN
27800: --raise error
27801: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27802: fnd_msg_pub.ADD;
27803: l_progress := 'WMSINB-27145';
27804: RAISE fnd_api.g_exc_error;
27805: END IF;
27806:
27807: --UPDATE GROUP_MARK_ID TO -7937
27808: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27809: --raise error
27810: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27811: fnd_msg_pub.ADD;
27812: l_progress := 'WMSINB-27152';
27813: RAISE fnd_api.g_exc_error;
27814: END IF;
27813: RAISE fnd_api.g_exc_error;
27814: END IF;
27815: ELSE --IF l_serial_number_control_code = 5 THEN
27816: --raise error
27817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27818: fnd_msg_pub.ADD;
27819: l_progress := 'WMSINB-27159';
27820: RAISE fnd_api.g_exc_error;
27821: END IF; --IF l_serial_number_control_code = 5 THEN
27838: AND l_source_document_code = 'INVENTORY')
27839: ) THEN
27840: IF l_curr_org_id <> l_from_org_id THEN
27841: --raise error
27842: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27843: fnd_msg_pub.ADD;
27844: l_progress := 'WMSINB-27180';
27845: RAISE fnd_api.g_exc_error;
27846: ELSE --IF l_curr_org_id <> l_from_org_id THEN
27847: IF ((l_curr_lot_num IS NOT NULL) AND
27848: (l_curr_lot_num <> l_mtlt_rec.lot_number)
27849: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27850: --raise error
27851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27852: fnd_msg_pub.ADD;
27853: l_progress := 'WMSINB-27188';
27854: RAISE fnd_api.g_exc_error;
27855: END IF;
27867: AND rss.serial_num = l_serial_number;
27868:
27869: IF L_CURR_STATUS <> 5 THEN
27870: -- RAISE AN ERROR
27871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27872: fnd_msg_pub.ADD;
27873: l_progress := 'WMSINB-27205';
27874: RAISE fnd_api.g_exc_error;
27875: END IF;
27876:
27877: EXCEPTION
27878: WHEN NO_DATA_FOUND THEN
27879: -- RAISE AN ERROR
27880: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27881: fnd_msg_pub.ADD;
27882: l_progress := 'WMSINB-27214';
27883: RAISE fnd_api.g_exc_error;
27884: END;
27884: END;
27885: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27886: IF l_curr_org_id <> l_org_id THEN
27887: --raise error
27888: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27889: fnd_msg_pub.ADD;
27890: l_progress := 'WMSINB-27222';
27891: RAISE fnd_api.g_exc_error;
27892: ELSE
27892: ELSE
27893: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27894: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27895: --raise error
27896: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27897: fnd_msg_pub.ADD;
27898: l_progress := 'WMSINB-27229';
27899: RAISE fnd_api.g_exc_error;
27900: END IF;
27901: END IF;
27902:
27903: IF l_curr_status NOT IN (1,6) THEN
27904: --raise error
27905: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27906: fnd_msg_pub.ADD;
27907: l_progress := 'WMSINB-27238';
27908: RAISE fnd_api.g_exc_error;
27909: END IF;
27909: END IF;
27910:
27911: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27912: --raise error
27913: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27914: fnd_msg_pub.ADD;
27915: l_progress := 'WMSINB-27246';
27916: RAISE fnd_api.g_exc_error;
27917: END IF;
27932:
27933: IF (l_validation_status <> 'Y'
27934: OR x_return_status <> g_ret_sts_success) THEN
27935: --raise error
27936: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27937: fnd_msg_pub.ADD;
27938: l_progress := 'WMSINB-27251';
27939: RAISE fnd_api.g_exc_error;
27940: END IF;
27942:
27943: --UPDATE GROUP_MARK_ID TO -7937
27944: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27945: --raise error
27946: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27947: fnd_msg_pub.ADD;
27948: l_progress := 'WMSINB-27255';
27949: RAISE fnd_api.g_exc_error;
27950: END IF;
27951: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27952: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27953: IF l_curr_org_id <> l_org_id THEN
27954: --raise error
27955: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27956: fnd_msg_pub.ADD;
27957: l_progress := 'WMSINB-27264';
27958: RAISE fnd_api.g_exc_error;
27959: ELSE
27959: ELSE
27960: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27961: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27962: --raise error
27963: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27964: fnd_msg_pub.ADD;
27965: l_progress := 'WMSINB-27271';
27966: RAISE fnd_api.g_exc_error;
27967: END IF;
27968: END IF;
27969:
27970: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27971: --raise error
27972: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27973: fnd_msg_pub.ADD;
27974: l_progress := 'WMSINB-27280';
27975: RAISE fnd_api.g_exc_error;
27976: END IF;
27976: END IF;
27977:
27978: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27979: --raise error
27980: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27981: fnd_msg_pub.ADD;
27982: l_progress := 'WMSINB-27288';
27983: RAISE fnd_api.g_exc_error;
27984: END IF;
27999:
28000: IF (l_validation_status <> 'Y'
28001: OR x_return_status <> g_ret_sts_success) THEN
28002: --raise error
28003: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28004: fnd_msg_pub.ADD;
28005: l_progress := 'WMSINB-27294';
28006: RAISE fnd_api.g_exc_error;
28007: END IF;
28009:
28010: --UPDATE GROUP_MARK_ID TO -7937
28011: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28012: --raise error
28013: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28014: fnd_msg_pub.ADD;
28015: l_progress := 'WMSINB-27297';
28016: RAISE fnd_api.g_exc_error;
28017: END IF;
28031: OR (l_from_org_ser_crtl IN (2,5)
28032: AND l_source_document_code = 'INVENTORY')
28033: ) THEN
28034: --raise error
28035: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28036: fnd_msg_pub.ADD;
28037: l_progress := 'WMSINB-27315';
28038: RAISE fnd_api.g_exc_error;
28039: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28084: , x_msg_data => x_msg_data);
28085:
28086: IF (x_return_status <> g_ret_sts_success) THEN
28087: --raise error
28088: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28089: fnd_msg_pub.ADD;
28090: l_progress := 'WMSINB-27320';
28091: RAISE fnd_api.g_exc_error;
28092: END IF;
28106:
28107: IF (l_validation_status <> 'Y'
28108: OR x_return_status <> g_ret_sts_success) THEN
28109: --raise error
28110: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28111: fnd_msg_pub.ADD;
28112: l_progress := 'WMSINB-27360';
28113: RAISE fnd_api.g_exc_error;
28114: END IF;
28115:
28116: --UPDATE GROUP_MARK_ID TO -7937
28117: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28118: --raise error
28119: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28120: fnd_msg_pub.ADD;
28121: l_progress := 'WMSINB-27369';
28122: RAISE fnd_api.g_exc_error;
28123: END IF;
28122: RAISE fnd_api.g_exc_error;
28123: END IF;
28124: ELSE --IF l_serial_number_control_code = 5 THEN
28125: --raise error
28126: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28127: fnd_msg_pub.ADD;
28128: l_progress := 'WMSINB-27376';
28129: RAISE fnd_api.g_exc_error;
28130: END IF; --IF l_serial_number_control_code = 5 THEN
28138:
28139: IF (l_num_msnt_recs > 0) THEN
28140: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
28141: --raise error
28142: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28143: fnd_msg_pub.ADD;
28144: l_progress := 'WMSINB-27392';
28145: RAISE fnd_api.g_exc_error;
28146: END IF;
28148: IF (l_serial_number_control_code IN (2,5)
28149: OR (l_serial_number_control_code = 6
28150: AND l_source_document_code IN ('RMA','REQ','INVENTORY'))) THEN
28151: --raise error
28152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28153: fnd_msg_pub.ADD;
28154: l_progress := 'WMSINB-27399';
28155: RAISE fnd_api.g_exc_error;
28156: END IF;
28170: -- Bug# 4225766 Compare transaction qty there can be a difference in primary qty
28171: -- if there is a lot specific conversion
28172: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
28173: --raise error
28174: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28175: fnd_msg_pub.ADD;
28176: l_progress := 'WMSINB-27413';
28177: RAISE fnd_api.g_exc_error;
28178: END IF; -- Bug# 4225766
28185: RAISE fnd_api.g_exc_error;
28186: ELSE
28187: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
28188: --raise error;
28189: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28190: fnd_msg_pub.ADD;
28191: l_progress := 'WMSINB-27427';
28192: RAISE fnd_api.g_exc_error;
28193: END IF;
28438: AND SERIAL_NUM = L_SERIAL_NUMBER;
28439:
28440: IF (l_curr_status <> 7) THEN
28441: --raise error
28442: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28443: fnd_msg_pub.ADD;
28444: l_progress := 'WMSINB-27557';
28445: RAISE fnd_api.g_exc_error;
28446: END IF;
28449: --entering of duplicate serials
28450:
28451: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28452: --raise error
28453: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28454: fnd_msg_pub.ADD;
28455: l_progress := 'WMSINB-27568';
28456: RAISE fnd_api.g_exc_error;
28457: END IF;
28458:
28459: --UPDATE GROUP_MARK_ID TO -7937
28460: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28461: --raise error
28462: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28463: fnd_msg_pub.ADD;
28464: l_progress := 'WMSINB-27577';
28465: RAISE fnd_api.g_exc_error;
28466: END IF;
28466: END IF;
28467: EXCEPTION
28468: WHEN NO_DATA_FOUND THEN
28469: -- RAISE ERROR
28470: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28471: fnd_msg_pub.ADD;
28472: l_progress := 'WMSINB-27585';
28473: RAISE fnd_api.g_exc_error;
28474: END;
28475: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28476: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28477: IF l_curr_org_id <> l_org_id THEN
28478: --raise error
28479: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28480: fnd_msg_pub.ADD;
28481: l_progress := 'WMSINB-27594';
28482: RAISE fnd_api.g_exc_error;
28483: ELSE
28482: RAISE fnd_api.g_exc_error;
28483: ELSE
28484: IF (l_curr_lot_num IS NOT NULL) THEN
28485: --raise error
28486: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28487: fnd_msg_pub.ADD;
28488: l_progress := 'WMSINB-27601';
28489: RAISE fnd_api.g_exc_error;
28490: END IF;
28492:
28493: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28494: IF l_curr_status NOT IN (1,6) THEN
28495: --raise error
28496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28497: fnd_msg_pub.ADD;
28498: l_progress := 'WMSINB-27611';
28499: RAISE fnd_api.g_exc_error;
28500: END IF;
28500: END IF;
28501: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28502: IF (l_curr_status <> 3) THEN
28503: --raise error
28504: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
28505: fnd_msg_pub.ADD;
28506: l_progress := 'WMSINB-27619';
28507: RAISE fnd_api.g_exc_error;
28508: END IF;
28509: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28510:
28511: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28512: --raise error
28513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28514: fnd_msg_pub.ADD;
28515: l_progress := 'WMSINB-27628';
28516: RAISE fnd_api.g_exc_error;
28517: END IF;
28532:
28533: IF (l_validation_status <> 'Y'
28534: OR x_return_status <> g_ret_sts_success) THEN
28535: --raise error
28536: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28537: fnd_msg_pub.ADD;
28538: l_progress := 'WMSINB-27634';
28539: RAISE fnd_api.g_exc_error;
28540: END IF;
28542:
28543: --UPDATE GROUP_MARK_ID TO -7937
28544: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28545: --raise error
28546: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28547: fnd_msg_pub.ADD;
28548: l_progress := 'WMSINB-27637';
28549: RAISE fnd_api.g_exc_error;
28550: END IF;
28560: AND SERIAL_NUM = L_SERIAL_NUMBER;
28561:
28562: IF (l_curr_status <> 7) THEN
28563: --raise error
28564: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28565: fnd_msg_pub.ADD;
28566: l_progress := 'WMSINB-27655';
28567: RAISE fnd_api.g_exc_error;
28568: END IF;
28571: --entering of duplicate serials
28572:
28573: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28574: --raise error
28575: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28576: fnd_msg_pub.ADD;
28577: l_progress := 'WMSINB-27666';
28578: RAISE fnd_api.g_exc_error;
28579: END IF;
28580:
28581: --UPDATE GROUP_MARK_ID TO -7937
28582: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28583: --raise error
28584: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28585: fnd_msg_pub.ADD;
28586: l_progress := 'WMSINB-27675';
28587: RAISE fnd_api.g_exc_error;
28588: END IF;
28588: END IF;
28589: EXCEPTION
28590: WHEN NO_DATA_FOUND THEN
28591: -- RAISE ERROR
28592: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28593: fnd_msg_pub.ADD;
28594: l_progress := 'WMSINB-27683';
28595: RAISE fnd_api.g_exc_error;
28596: END;
28597: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28598: IF (l_serial_exists = 1) THEN
28599: IF l_curr_org_id <> l_org_id THEN
28600: --raise error
28601: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28602: fnd_msg_pub.ADD;
28603: l_progress := 'WMSINB-27692';
28604: RAISE fnd_api.g_exc_error;
28605: ELSE
28604: RAISE fnd_api.g_exc_error;
28605: ELSE
28606: IF (l_curr_lot_num IS NOT NULL) THEN
28607: --raise error
28608: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28609: fnd_msg_pub.ADD;
28610: l_progress := 'WMSINB-27699';
28611: RAISE fnd_api.g_exc_error;
28612: END IF;
28613: END IF;
28614:
28615: IF l_curr_status NOT IN (1,4,6) THEN -- Bug 6177465
28616: --raise error
28617: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28618: fnd_msg_pub.ADD;
28619: l_progress := 'WMSINB-27708';
28620: RAISE fnd_api.g_exc_error;
28621: END IF;
28621: END IF;
28622:
28623: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28624: --raise error
28625: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28626: fnd_msg_pub.ADD;
28627: l_progress := 'WMSINB-27716';
28628: RAISE fnd_api.g_exc_error;
28629: END IF;
28644:
28645: IF (l_validation_status <> 'Y'
28646: OR x_return_status <> g_ret_sts_success) THEN
28647: --raise error
28648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28649: fnd_msg_pub.ADD;
28650: l_progress := 'WMSINB-27721';
28651: RAISE fnd_api.g_exc_error;
28652: END IF;
28654:
28655: --UPDATE GROUP_MARK_ID TO -7937
28656: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28657: --raise error
28658: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28659: fnd_msg_pub.ADD;
28660: l_progress := 'WMSINB-27725';
28661: RAISE fnd_api.g_exc_error;
28662: END IF;
28706: , x_msg_data => x_msg_data);
28707:
28708: IF (x_return_status <> g_ret_sts_success) THEN
28709: --raise error
28710: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28711: fnd_msg_pub.ADD;
28712: l_progress := 'WMSINB-27730';
28713: RAISE fnd_api.g_exc_error;
28714: END IF;
28728:
28729: IF (l_validation_status <> 'Y'
28730: OR x_return_status <> g_ret_sts_success) THEN
28731: --raise error
28732: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28733: fnd_msg_pub.ADD;
28734: l_progress := 'WMSINB-27770';
28735: RAISE fnd_api.g_exc_error;
28736: END IF;
28737:
28738: --UPDATE GROUP_MARK_ID TO -7937
28739: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28740: --raise error
28741: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28742: fnd_msg_pub.ADD;
28743: l_progress := 'WMSINB-27778';
28744: RAISE fnd_api.g_exc_error;
28745: END IF;
28744: RAISE fnd_api.g_exc_error;
28745: END IF;
28746: ELSE --IF l_serial_number_control_code = 5 THEN
28747: --raise error
28748: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28749: fnd_msg_pub.ADD;
28750: l_progress := 'WMSINB-27785';
28751: RAISE fnd_api.g_exc_error;
28752: END IF; --IF l_serial_number_control_code = 5 THEN
28768: OR (l_from_org_ser_crtl IN (2,5) AND l_source_document_code = 'INVENTORY')
28769: ) THEN
28770: IF l_curr_org_id <> l_from_org_id THEN
28771: --raise error
28772: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28773: fnd_msg_pub.ADD;
28774: l_progress := 'WMSINB-27806';
28775: RAISE fnd_api.g_exc_error;
28776: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28775: RAISE fnd_api.g_exc_error;
28776: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28777: IF (l_curr_lot_num IS NOT NULL) THEN
28778: --raise error
28779: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28780: fnd_msg_pub.ADD;
28781: l_progress := 'WMSINB-27813';
28782: RAISE fnd_api.g_exc_error;
28783: END IF;
28795: AND rss.serial_num = l_serial_number;
28796:
28797: IF L_CURR_STATUS <> 5 THEN
28798: -- RAISE AN ERROR
28799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28800: fnd_msg_pub.ADD;
28801: l_progress := 'WMSINB-27830';
28802: RAISE fnd_api.g_exc_error;
28803: END IF;
28804:
28805: EXCEPTION
28806: WHEN NO_DATA_FOUND THEN
28807: -- RAISE AN ERROR
28808: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28809: fnd_msg_pub.ADD;
28810: l_progress := 'WMSINB-27839';
28811: RAISE fnd_api.g_exc_error;
28812: END;
28812: END;
28813: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28814: IF l_curr_org_id <> l_org_id THEN
28815: --raise error
28816: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28817: fnd_msg_pub.ADD;
28818: l_progress := 'WMSINB-27847';
28819: RAISE fnd_api.g_exc_error;
28820: ELSE
28819: RAISE fnd_api.g_exc_error;
28820: ELSE
28821: IF (l_curr_lot_num IS NOT NULL) THEN
28822: --raise error
28823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28824: fnd_msg_pub.ADD;
28825: l_progress := 'WMSINB-27854';
28826: RAISE fnd_api.g_exc_error;
28827: END IF;
28828: END IF;
28829:
28830: IF l_curr_status NOT IN (1,6) THEN
28831: --raise error
28832: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28833: fnd_msg_pub.ADD;
28834: l_progress := 'WMSINB-27863';
28835: RAISE fnd_api.g_exc_error;
28836: END IF;
28836: END IF;
28837:
28838: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28839: --raise error
28840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28841: fnd_msg_pub.ADD;
28842: l_progress := 'WMSINB-27871';
28843: RAISE fnd_api.g_exc_error;
28844: END IF;
28859:
28860: IF (l_validation_status <> 'Y'
28861: OR x_return_status <> g_ret_sts_success) THEN
28862: --raise error
28863: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28864: fnd_msg_pub.ADD;
28865: l_progress := 'WMSINB-27876';
28866: RAISE fnd_api.g_exc_error;
28867: END IF;
28869:
28870: --UPDATE GROUP_MARK_ID TO -7937
28871: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28872: --raise error
28873: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28874: fnd_msg_pub.ADD;
28875: l_progress := 'WMSINB-27880';
28876: RAISE fnd_api.g_exc_error;
28877: END IF;
28878: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28879: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28880: IF l_curr_org_id <> l_org_id THEN
28881: --raise error
28882: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28883: fnd_msg_pub.ADD;
28884: l_progress := 'WMSINB-27889';
28885: RAISE fnd_api.g_exc_error;
28886: ELSE
28885: RAISE fnd_api.g_exc_error;
28886: ELSE
28887: IF (l_curr_lot_num IS NOT NULL) THEN
28888: --raise error
28889: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28890: fnd_msg_pub.ADD;
28891: l_progress := 'WMSINB-27896';
28892: RAISE fnd_api.g_exc_error;
28893: END IF;
28894: END IF;
28895:
28896: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
28897: --raise error
28898: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28899: fnd_msg_pub.ADD;
28900: l_progress := 'WMSINB-27905';
28901: RAISE fnd_api.g_exc_error;
28902: END IF;
28902: END IF;
28903:
28904: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28905: --raise error
28906: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28907: fnd_msg_pub.ADD;
28908: l_progress := 'WMSINB-27913';
28909: RAISE fnd_api.g_exc_error;
28910: END IF;
28925:
28926: IF (l_validation_status <> 'Y'
28927: OR x_return_status <> g_ret_sts_success) THEN
28928: --raise error
28929: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28930: fnd_msg_pub.ADD;
28931: l_progress := 'WMSINB-27918';
28932: RAISE fnd_api.g_exc_error;
28933: END IF;
28935:
28936: --UPDATE GROUP_MARK_ID TO -7937
28937: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28938: --raise error
28939: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28940: fnd_msg_pub.ADD;
28941: l_progress := 'WMSINB-27922';
28942: RAISE fnd_api.g_exc_error;
28943: END IF;
28958: OR (l_from_org_ser_crtl IN (2,5)
28959: AND l_source_document_code = 'INVENTORY')
28960: ) THEN
28961: --raise error
28962: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28963: fnd_msg_pub.ADD;
28964: l_progress := 'WMSINB-27940';
28965: RAISE fnd_api.g_exc_error;
28966: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
29011: , x_msg_data => x_msg_data);
29012:
29013: IF (x_return_status <> g_ret_sts_success) THEN
29014: --raise error
29015: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29016: fnd_msg_pub.ADD;
29017: l_progress := 'WMSINB-27950';
29018: RAISE fnd_api.g_exc_error;
29019: END IF;
29033:
29034: IF (l_validation_status <> 'Y'
29035: OR x_return_status <> g_ret_sts_success) THEN
29036: --raise error
29037: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29038: fnd_msg_pub.ADD;
29039: l_progress := 'WMSINB-27985';
29040: RAISE fnd_api.g_exc_error;
29041: END IF;
29042:
29043: --UPDATE GROUP_MARK_ID TO -7937
29044: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
29045: --raise error
29046: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29047: fnd_msg_pub.ADD;
29048: l_progress := 'WMSINB-27994';
29049: RAISE fnd_api.g_exc_error;
29050: END IF;
29049: RAISE fnd_api.g_exc_error;
29050: END IF;
29051: ELSE --IF l_serial_number_control_code = 5 THEN
29052: --raise error
29053: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29054: fnd_msg_pub.ADD;
29055: l_progress := 'WMSINB-28001';
29056: RAISE fnd_api.g_exc_error;
29057: END IF; --IF l_serial_number_control_code = 5 THEN
29065:
29066: IF (l_num_msnt_recs > 0) THEN
29067: IF l_mtlt_rec.primary_quantity <> l_tot_msnt_serial_qty THEN
29068: --raise error
29069: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29070: fnd_msg_pub.ADD;
29071: l_progress := 'WMSINB-28017';
29072: RAISE fnd_api.g_exc_error;
29073: END IF;
29075: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
29076: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29077: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29078: --raise an error
29079: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29080: fnd_msg_pub.ADD;
29081: l_progress := 'WMSINB-28027';
29082: RAISE fnd_api.g_exc_error;
29083: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29082: RAISE fnd_api.g_exc_error;
29083: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29084: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29085: --raise an error
29086: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29087: fnd_msg_pub.ADD;
29088: l_progress := 'WMSINB-28034';
29089: RAISE fnd_api.g_exc_error;
29090: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29092: IF (l_parent_txn_type <> 'DELIVER') THEN
29093: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
29094: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
29095: --raise an error
29096: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29097: fnd_msg_pub.ADD;
29098: l_progress := 'WMSINB-28044';
29099: RAISE fnd_api.g_exc_error;
29100: END IF; --IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
29101: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
29102: IF (l_parent_txn_type <> 'RECEIVE') THEN
29103: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29104: --raise an error
29105: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29106: fnd_msg_pub.ADD;
29107: l_progress := 'WMSINB-28053';
29108: RAISE fnd_api.g_exc_error;
29109: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29113: IF (l_serial_number_control_code IN (2,5)
29114: OR (l_serial_number_control_code = 6
29115: AND l_source_document_code = 'RMA')) THEN
29116: --raise error
29117: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29118: fnd_msg_pub.ADD;
29119: l_progress := 'WMSINB-28062';
29120: RAISE fnd_api.g_exc_error;
29121: END IF;
29212: print_debug('VALIDATE_LPN p_routing_id...: '|| p_routing_id, 1);
29213: END IF;
29214:
29215: IF (p_lpn_id IS NULL OR p_lpn_id<0) THEN
29216: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29217: --fnd_message.set_token('LPN', l_lpn);
29218: fnd_msg_pub.add;
29219: x_return_status := g_ret_sts_error;
29220: RETURN;
29213: END IF;
29214:
29215: IF (p_lpn_id IS NULL OR p_lpn_id<0) THEN
29216: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29217: --fnd_message.set_token('LPN', l_lpn);
29218: fnd_msg_pub.add;
29219: x_return_status := g_ret_sts_error;
29220: RETURN;
29221: END IF;
29254: IF (l_debug = 1) THEN
29255: print_debug('VALIDATE_LPN - This is not a Receiving LPN' ||l_progress || '' || p_lpn_id,1 );
29256: END IF;
29257:
29258: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29259: --fnd_message.set_token('LPN', l_lpn);
29260: fnd_msg_pub.add;
29261:
29262: x_return_status := g_ret_sts_error;
29255: print_debug('VALIDATE_LPN - This is not a Receiving LPN' ||l_progress || '' || p_lpn_id,1 );
29256: END IF;
29257:
29258: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29259: --fnd_message.set_token('LPN', l_lpn);
29260: fnd_msg_pub.add;
29261:
29262: x_return_status := g_ret_sts_error;
29263: x_msg_count := 1;
29272: IF (l_debug = 1) THEN
29273: print_debug('VALIDATE_LPN - This is Direct routing and LPN '||l_lpn||' is not in Inventory' || l_progress || '' || p_lpn_id,1 );
29274: END IF;
29275:
29276: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29277: --fnd_message.set_token('LPN', l_lpn);
29278: fnd_msg_pub.add;
29279:
29280: x_return_status := g_ret_sts_error;
29273: print_debug('VALIDATE_LPN - This is Direct routing and LPN '||l_lpn||' is not in Inventory' || l_progress || '' || p_lpn_id,1 );
29274: END IF;
29275:
29276: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29277: --fnd_message.set_token('LPN', l_lpn);
29278: fnd_msg_pub.add;
29279:
29280: x_return_status := g_ret_sts_error;
29281: x_msg_count :=1;
29287: print_debug('Cursor c_validate_rec_lpn not found' ||l_progress || '' ||
29288: p_lpn_id,1 );
29289: END IF;
29290:
29291: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29292: --fnd_message.set_token('LPN', l_lpn);
29293: fnd_msg_pub.add;
29294:
29295: x_return_status := g_ret_sts_error;
29288: p_lpn_id,1 );
29289: END IF;
29290:
29291: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
29292: --fnd_message.set_token('LPN', l_lpn);
29293: fnd_msg_pub.add;
29294:
29295: x_return_status := g_ret_sts_error;
29296: x_msg_count := 1;
29312: IF (l_debug = 1) THEN
29313: print_debug('VALIDATE_LPN - LPN '||l_lpn||' IS Loaded : ' ||l_progress || ' : ' || p_lpn_id ,1 );
29314: END IF;
29315:
29316: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_ENTERED');
29317: fnd_message.set_token('LPN_NAME', l_lpn_rec.license_plate_number);
29318: fnd_msg_pub.add;
29319:
29320: x_return_status := g_ret_sts_error;
29313: print_debug('VALIDATE_LPN - LPN '||l_lpn||' IS Loaded : ' ||l_progress || ' : ' || p_lpn_id ,1 );
29314: END IF;
29315:
29316: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_ENTERED');
29317: fnd_message.set_token('LPN_NAME', l_lpn_rec.license_plate_number);
29318: fnd_msg_pub.add;
29319:
29320: x_return_status := g_ret_sts_error;
29321: x_msg_count :=1;
29545: IF ((l_shipped_pr_quantity - l_recd_pr_quantity - l_rti_pr_qty)> 0.00005)
29546: THEN
29547: x_qty_left := 'Y';
29548: END IF;
29549: fnd_message.set_name('WMS', 'WMS_SHIPMENT_OVER_RECEIPT');
29550: fnd_msg_pub.ADD;
29551: print_debug('CHECK_OVER_RECEIPT - The shipment is being over received. Set Warning '||l_progress, 1);
29552: END IF;
29553:
29559: IF ((l_shipped_quantity_tr_uom - l_recd_quantity_tr_uom - l_rti_quantity_tr_uom) > 0.00005)
29560: THEN
29561: x_qty_left := 'Y';
29562: END IF;
29563: fnd_message.set_name('WMS', 'WMS_SHIPMENT_OVER_RECEIPT');
29564: fnd_msg_pub.ADD;
29565: print_debug('CHECK_OVER_RECEIPT - The shipment is being over received. Set Warning '||l_progress, 1);
29566: END IF;
29567: END IF;