[Home] [Help]
317: END IF;
318:
319:
320: -- Initialize the message stack
321: FND_MSG_PUB.initialize;
322: -- Set the global variables
323:
324: --bug 10318308 get the primary uom, change the quantity and uom to primary--should always do calculations in primary uom
325:
335: print_debug('Got Item info puom='||inv_cache.item_rec.primary_uom_code);
336: END IF;
337: ELSE
338: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
339: fnd_msg_pub.ADD;
340: RAISE fnd_api.g_exc_error;
341: END IF;
342:
343: if(p_count_uom <> inv_cache.item_rec.primary_uom_code) then
432: x_errorcode => l_errorcode
433: )
434: ) THEN
435: FND_MESSAGE.SET_NAME ( 'WMS', 'WMS_CONT_INVALID_SER' );
436: FND_MSG_PUB.ADD;
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440: -- Check that in the case of a range of serial numbers, that the
442: IF ( ( p_count_quantity <> l_quantity )
443: AND ( p_count_quantity <> 0 )
444: ) THEN
445: FND_MESSAGE.SET_NAME ( 'WMS', 'WMS_CONT_INVALID_X_QTY' );
446: FND_MSG_PUB.ADD;
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: -- Get the serial number length.
590: IF ( l_debug = 1 ) THEN
591: print_debug ( 'Unscheduled entries are not allowed' );
592: END IF;
593: --FND_MESSAGE.SET_NAME('INV', 'INV_NO_UNSCHED_COUNTS');
594: --FND_MSG_PUB.ADD;
595: --RAISE FND_API.G_EXC_ERROR;
596: END IF;
597: END IF;
598:
838: IF ( l_debug = 1 ) THEN
839: print_debug ( 'Unscheduled entries are not allowed' );
840: END IF;
841: --FND_MESSAGE.SET_NAME('INV', 'INV_NO_UNSCHED_COUNTS');
842: --FND_MSG_PUB.ADD;
843: --RAISE FND_API.G_EXC_ERROR;
844: END IF;
845: END IF;
846:
897: END IF;
898: EXCEPTION
899: WHEN e_Task_Dispatched THEN
900: FND_MESSAGE.SET_NAME ( 'WMS', 'WMS_TD_CYC_TASK_ERROR' );
901: FND_MSG_PUB.ADD;
902:
903: IF ( l_debug = 1 ) THEN
904: print_debug ( '***End of process_entry***' );
905: END IF;
967: print_debug ( 'p_cost_group_id: ===========> ' || p_cost_group_id );
968: END IF;
969:
970: -- Initialize the message stack
971: FND_MSG_PUB.initialize;
972:
973: -- To fetch the cycle count entry ids which are in status 2,4,5.
974: -- for these entries if a record in wms_dispatched_tasks exists,
975: -- it has to be deleted
2748: WHERE cycle_count_entry_id = l_cc_entry_id;
2749:
2750: IF ( l_old_num_counts > l_number_of_counts ) THEN
2751: FND_MESSAGE.SET_NAME ( 'INV', 'INV_DUPLICATE_COUNT_UPDATE' );
2752: FND_MSG_PUB.ADD;
2753: RAISE FND_API.G_EXC_ERROR;
2754: END IF;
2755:
2756: IF ( l_count_type_code = 4 ) THEN
2865: IF ( l_total_serial_num_cnt <> l_count_quantity ) THEN
2866: FND_MESSAGE.SET_NAME ( 'INV',
2867: 'INV_CC_SERIAL_DETAIL_MISMATCH'
2868: );
2869: FND_MSG_PUB.ADD;
2870: RAISE FND_API.G_EXC_ERROR;
2871: END IF;
2872:
2873: IF ( l_entry_status_code = 5 ) THEN
3796: --If success flag is 2 or 3 then set the message for invalid
3797: --material status for the lot/serial and the item combination
3798: IF ( NVL ( l_success_flag, -1 ) < 0 ) THEN
3799: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJ_TXN_FAILED' );
3800: FND_MSG_PUB.ADD;
3801: RAISE FND_API.G_EXC_ERROR;
3802: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
3803: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
3804: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_msn_lot_number );
3802: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
3803: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
3804: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_msn_lot_number );
3805: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
3806: FND_MSG_PUB.ADD;
3807: RAISE FND_API.G_EXC_ERROR;
3808: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
3809: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
3810: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
3808: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
3809: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
3810: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
3811: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
3812: FND_MSG_PUB.ADD;
3813: RAISE FND_API.G_EXC_ERROR;
3814: END IF;
3815:
3816: -- Get a new txn temp ID for receiving the serial back into inventory
3955: END IF;
3956:
3957: IF ( NVL ( l_success_flag, -1 ) < 0 ) THEN
3958: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJ_TXN_FAILED' );
3959: FND_MSG_PUB.ADD;
3960: RAISE FND_API.G_EXC_ERROR;
3961: END IF;
3962:
3963: -- Get a new txn temp ID for the next record into MMTT
4065: IF ( ( NVL ( l_txn_header_id, -1 ) < 0 )
4066: OR ( NVL ( l_success_flag, -1 ) < 0 )
4067: ) THEN
4068: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJ_TXN_FAILED' );
4069: FND_MSG_PUB.ADD;
4070: RAISE FND_API.G_EXC_ERROR;
4071: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
4072: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
4073: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_lot_num );
4071: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
4072: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
4073: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_lot_num );
4074: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
4075: FND_MSG_PUB.ADD;
4076: RAISE FND_API.G_EXC_ERROR;
4077: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
4078: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
4079: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
4077: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
4078: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
4079: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
4080: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
4081: FND_MSG_PUB.ADD;
4082: RAISE FND_API.G_EXC_ERROR;
4083: END IF;
4084: END IF;
4085: g_cc_entry.adjustment_date := SYSDATE;
4174: x_msg_data => l_msg_data
4175: );
4176:
4177: IF ( l_return_status <> 'S' ) THEN
4178: FND_MSG_PUB.Count_AND_Get ( p_count => l_msg_count,
4179: p_data => l_msg_data
4180: );
4181: RAISE FND_API.G_EXC_ERROR;
4182: END IF;
4226: AND NVL(parent_lpn_id,-1 ) = NVL(l_lpn_id, -1);
4227:
4228: IF ( l_count > 0 ) THEN
4229: FND_MESSAGE.SET_NAME ( 'INV', 'INV_OPEN_REQUEST_EXISTS' );
4230: FND_MSG_PUB.ADD;
4231: RAISE FND_API.G_EXC_ERROR;
4232: END IF;
4233: END duplicate_entries;
4234:
4368:
4369: IF ( l_txn_return_status <> 0 ) THEN
4370: -- This 'Transaction Failed' message is set on the java side
4371: --FND_MESSAGE.SET_NAME('INV', 'INV_FAILED');
4372: --FND_MSG_PUB.ADD;
4373: RAISE FND_API.G_EXC_ERROR;
4374: END IF;
4375:
4376: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJUSTMENTS_PROCESSED' );
4374: END IF;
4375:
4376: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJUSTMENTS_PROCESSED' );
4377: FND_MESSAGE.SET_TOKEN ( 'ENTITY', 'INV_CYCLE_COUNT', TRUE );
4378: FND_MSG_PUB.ADD;
4379: /* Call the label printing API. */
4380: -- Bug# 2328371
4381: -- Since we are passing in the business flow code to the TM,
4382: -- we don't need to explicitly call the label printing API anymore
4400: IF (l_debug = 1) THEN
4401: print_debug('Error while calling label printing API');
4402: END IF;
4403: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LABEL_FAILE');
4404: FND_MSG_PUB.ADD;
4405: END;
4406: IF (l_debug = 1) THEN
4407: print_debug('After calling label printing API: ' || l_return_status || ', ' || l_label_status || ', ' || l_msg_data);
4408: END IF;
4408: END IF;
4409:
4410: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4411: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LABEL_FAILE');
4412: FND_MSG_PUB.ADD;
4413: END IF;*/
4414: ELSIF ( l_txn_proc_mode = 2 ) THEN
4415: /* txn process concurrent program */
4416:
4437:
4438: IF ( l_txn_return_status <> 0 ) THEN
4439: -- This 'Transaction Failed' message is set on the java side
4440: --FND_MESSAGE.SET_NAME('INV', 'INV_FAILED');
4441: --FND_MSG_PUB.ADD;
4442: RAISE FND_API.G_EXC_ERROR;
4443: END IF;
4444:
4445: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CONC_SUBMITTED' );
4443: END IF;
4444:
4445: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CONC_SUBMITTED' );
4446: FND_MESSAGE.SET_TOKEN ( 'REQUEST_ID', TO_CHAR ( l_req_id ), FALSE );
4447: FND_MSG_PUB.ADD;
4448: /* Call the label printing API. */
4449: -- Bug# 2328371
4450: -- Since we are passing in the business flow code to the TM,
4451: -- we don't need to explicitly call the label printing API anymore
4469: IF (l_debug = 1) THEN
4470: print_debug('Error while calling label printing API');
4471: END IF;
4472: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LABEL_FAILE');
4473: FND_MSG_PUB.ADD;
4474: END;
4475: IF (l_debug = 1) THEN
4476: print_debug('After calling label printing API: ' || l_return_status || ', ' || l_label_status || ', ' || l_msg_data);
4477: END IF;
4477: END IF;
4478:
4479: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4480: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LABEL_FAILE');
4481: FND_MSG_PUB.ADD;
4482: END IF;*/
4483: ELSE
4484: FND_MESSAGE.SET_NAME ( 'INV', 'INV_BACKGROUND_PENDING' );
4485: FND_MSG_PUB.ADD;
4481: FND_MSG_PUB.ADD;
4482: END IF;*/
4483: ELSE
4484: FND_MESSAGE.SET_NAME ( 'INV', 'INV_BACKGROUND_PENDING' );
4485: FND_MSG_PUB.ADD;
4486: END IF;
4487: END IF;
4488:
4489: IF ( l_debug = 1 ) THEN
5328: AND ( l_system_quantity <> 0
5329: OR g_count_quantity <> 0 )
5330: ) THEN
5331: -- FND_MESSAGE.SET_NAME('INV', 'INV_CC_NO_SN_INFO');
5332: -- FND_MSG_PUB.ADD;
5333: -- RAISE FND_API.G_EXC_ERROR;
5334: IF ( l_debug = 1 ) THEN
5335: print_debug ( 'No SN info!' );
5336: END IF;
5360:
5361: IF ( l_number_of_counts = 0
5362: OR l_number_of_counts < l_counts ) THEN
5363: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CC_OUT_TOL_NO_SN' );
5364: FND_MSG_PUB.ADD;
5365: RAISE FND_API.G_EXC_ERROR;
5366: ELSE
5367: entered := 1;
5368: END IF;
5432:
5433: IF ( l_count > 0 ) THEN
5434: FND_MESSAGE.SET_NAME ( 'INV', 'INV_DUP' );
5435: FND_MESSAGE.SET_TOKEN ( 'VALUE1', l_serial_number );
5436: FND_MSG_PUB.ADD;
5437: ROLLBACK TO save_serial_detail;
5438: RAISE FND_API.G_EXC_ERROR;
5439: END IF;
5440: ELSIF ( l_serial_count_option = 2 ) THEN
5443: END IF;
5444:
5445: IF ( l_serial_number IS NULL ) THEN
5446: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CC_NULL_SN' );
5447: FND_MSG_PUB.ADD;
5448: l_success := FALSE;
5449:
5450: IF ( l_serial_count_option = 3 ) THEN
5451: ROLLBACK TO save_serial_detail;
6377: END IF;
6378:
6379: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CC_SERIAL_MULTI_TRANSACT2' );
6380: FND_MESSAGE.SET_TOKEN ( 'SERIAL', l_serial_number );
6381: FND_MSG_PUB.ADD;
6382:
6383: IF ( l_debug = 1 ) THEN
6384: print_debug ( 'l_current_status: ' || l_current_status );
6385: END IF;
6391: END IF;
6392: ELSE
6393: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CC_SERIAL_DISCREPANCY' );
6394: FND_MESSAGE.SET_TOKEN ( 'SERIAL', l_serial_number );
6395: FND_MSG_PUB.ADD;
6396:
6397: IF ( l_serial_count_option = 3 ) THEN
6398: -- clear_block(NO_VALIDATE);
6399: -- go_block('CC_ENTRIES');
6409: END IF;
6410: ELSIF ( l_error_code <> 0 ) THEN
6411: FND_MESSAGE.SET_NAME ( 'INV', 'INV_CC_SERIAL_DISCREPANCY' );
6412: FND_MESSAGE.SET_TOKEN ( 'SERIAL', l_serial_number );
6413: FND_MSG_PUB.ADD;
6414:
6415: IF ( l_serial_count_option = 3 ) THEN
6416: IF ( l_debug = 1 ) THEN
6417: print_debug ( 'Multiple serial error' );
6869: --If success flag is 2 or 3 then set the message for invalid
6870: --material status for the lot/serial and the item combination
6871: IF ( NVL ( l_success_flag, -1 ) < 0 ) THEN
6872: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJ_TXN_FAILED' );
6873: FND_MSG_PUB.ADD;
6874: ROLLBACK TO save_serial_detail;
6875: RAISE FND_API.G_EXC_ERROR;
6876: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
6877: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
6876: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
6877: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
6878: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_msn_lot_number );
6879: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
6880: FND_MSG_PUB.ADD;
6881: RAISE FND_API.G_EXC_ERROR;
6882: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
6883: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
6884: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
6882: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
6883: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
6884: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
6885: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
6886: FND_MSG_PUB.ADD;
6887: RAISE FND_API.G_EXC_ERROR;
6888: END IF;
6889:
6890: -- Get a new txn temp ID for receiving the serial back into inventory
6978: --material status for the lot/serial and the item combination
6979: --IF NVL(l_txn_header_id, -1) < 0 OR
6980: IF NVL ( l_success_flag, -1 ) < 0 THEN
6981: FND_MESSAGE.SET_NAME ( 'INV', 'INV_ADJ_TXN_FAILED' );
6982: FND_MSG_PUB.ADD;
6983: ROLLBACK TO save_serial_detail;
6984: RAISE FND_API.G_EXC_ERROR;
6985: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
6986: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
6985: ELSIF NVL ( l_success_flag, -1 ) = 2 THEN
6986: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_LOT_NA_DUE_MS' );
6987: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_lot_num );
6988: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
6989: FND_MSG_PUB.ADD;
6990: RAISE FND_API.G_EXC_ERROR;
6991: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
6992: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
6993: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
6991: ELSIF NVL ( l_success_flag, -1 ) = 3 THEN
6992: FND_MESSAGE.SET_NAME ( 'INV', 'INV_TRX_SER_NA_DUE_MS' );
6993: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_serial_number );
6994: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
6995: FND_MSG_PUB.ADD;
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998:
6999: -- Set the commit status flag so that the TM will be called in the
7155: -- been marked. We don't need to error out in this case.
7156: IF ( success < -1 ) THEN
7157: FND_MESSAGE.SET_NAME ( 'INV', 'INV_SERIAL_UNAVAILABLE' );
7158: FND_MESSAGE.SET_TOKEN ( 'FIRST-SERIAL', g1 );
7159: FND_MSG_PUB.ADD;
7160:
7161: IF ( l_serial_count_option = 3 ) THEN
7162: ROLLBACK TO save_serial_detail;
7163: END IF;
7770: END IF;
7771:
7772: IF ( L_from_length = 0 ) THEN
7773: FND_MESSAGE.SET_NAME ( 'INV', 'INV_QTYBTWN_NO_SERIAL' );
7774: FND_MSG_PUB.ADD;
7775: x_errorcode := 124;
7776: END IF;
7777:
7778: IF ( L_to_length = 0 ) THEN
7824: IF ( L_f_alp_part <> L_t_alp_part )
7825: OR ( l_f_alp_part IS NULL AND l_t_alp_part IS NOT NULL )
7826: OR ( l_f_alp_part IS NOT NULL AND l_t_alp_part IS NULL ) THEN
7827: FND_MESSAGE.SET_NAME ( 'INV', 'INV_QTYBTWN_PFX' );
7828: FND_MSG_PUB.ADD;
7829: x_errorcode := 119;
7830: END IF;
7831:
7832: -- Check the lengths of the two serial numbers to make sure they
7833: -- match.
7834: IF ( L_from_length <> L_to_length ) THEN
7835: -- Message Name : INV_QTYBTWN_LGTH
7836: FND_MESSAGE.SET_NAME ( 'INV', 'INV_QTYBTWN_LGTH' );
7837: FND_MSG_PUB.ADD;
7838: x_errorcode := 120;
7839: END IF;
7840:
7841: -- Check whether the serial numbers are matched
7848: 48
7849: AND ASCII ( SUBSTR ( L_f_ser_num, LENGTH ( L_f_ser_num ), 1 ) ) >
7850: 57 THEN
7851: FND_MESSAGE.SET_NAME ( 'INV', 'INV_QTYBTWN_LAST' );
7852: FND_MSG_PUB.ADD;
7853: x_errorcode := 121;
7854: END IF;
7855: END IF;
7856:
7869:
7870: IF ( X_Quantity <= 0 ) THEN
7871: -- Message Name : INV_QTYBTWN_NUM
7872: FND_MESSAGE.SET_NAME ( 'INV', 'INV_QTYBTWN_NUM' );
7873: FND_MSG_PUB.ADD;
7874: x_errorcode := 122;
7875: END IF;
7876:
7877: -- Check to make sure To serial number is greater than
8758: );
8759: END IF;
8760:
8761: -- Get message count and data
8762: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8763: p_count => x_msg_count,
8764: p_data => x_msg_data
8765: );
8766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8775: );
8776: END IF;
8777:
8778: -- Get message count and data
8779: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8780: p_count => x_msg_count,
8781: p_data => x_msg_data
8782: );
8783: WHEN OTHERS THEN
8798: SQLCODE
8799: );
8800: END IF;
8801:
8802: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error ) THEN
8803: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'update_serial_status' );
8804: END IF;
8805:
8806: -- Get message count and data
8799: );
8800: END IF;
8801:
8802: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error ) THEN
8803: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'update_serial_status' );
8804: END IF;
8805:
8806: -- Get message count and data
8807: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8803: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'update_serial_status' );
8804: END IF;
8805:
8806: -- Get message count and data
8807: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8808: p_count => x_msg_count,
8809: p_data => x_msg_data
8810: );
8811: END update_serial_status;
8884: );
8885:
8886: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8887: FND_MESSAGE.SET_NAME ( 'INV', 'INV_LOT_COMMIT_FAILURE' );
8888: FND_MSG_PUB.ADD;
8889: RAISE FND_API.G_EXC_ERROR;
8890: END IF;
8891:
8892: l_progress := '30';
8945: );
8946: END IF;
8947:
8948: -- Get message count and data
8949: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8950: p_count => x_msg_count,
8951: p_data => x_msg_data
8952: );
8953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8962: END IF;
8963:
8964: x_return_status := fnd_api.g_ret_sts_unexp_error;
8965: -- Get message count and data
8966: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8967: p_count => x_msg_count,
8968: p_data => x_msg_data
8969: );
8970: WHEN OTHERS THEN
8986: SQLCODE
8987: );
8988: END IF;
8989:
8990: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error ) THEN
8991: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'insert_range_serial' );
8992: END IF;
8993:
8994: -- Get message count and data
8987: );
8988: END IF;
8989:
8990: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error ) THEN
8991: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'insert_range_serial' );
8992: END IF;
8993:
8994: -- Get message count and data
8995: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8991: fnd_msg_pub.add_exc_msg ( g_pkg_name, 'insert_range_serial' );
8992: END IF;
8993:
8994: -- Get message count and data
8995: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
8996: p_count => x_msg_count,
8997: p_data => x_msg_data
8998: );
8999: END insert_range_serial;
9405:
9406: EXCEPTION
9407: WHEN fnd_api.g_exc_error THEN
9408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9409: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9410: print_debug('ROLLBACK ' );
9411: ROLLBACK ;
9412: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9413: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9412: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9413: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9414: WHEN fnd_api.g_exc_unexpected_error THEN
9415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9416: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9417: print_debug('ROLLBACK ' );
9418: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9419: print_debug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
9420: print_debug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
9420: print_debug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
9421: ROLLBACK ;
9422: WHEN OTHERS THEN
9423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9424: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9425: print_debug('ROLLBACK ' );
9426: ROLLBACK ;
9427: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9428: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9844: print_debug('END: ' || l_proc_name);
9845: EXCEPTION
9846: WHEN fnd_api.g_exc_error THEN
9847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9848: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9849: print_debug('ROLLBACK ' );
9850: ROLLBACK ;
9851: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9852: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9851: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9852: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9853: WHEN fnd_api.g_exc_unexpected_error THEN
9854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9855: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9856: print_debug('ROLLBACK ' );
9857: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9858: print_debug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
9859: print_debug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
9859: print_debug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
9860: ROLLBACK ;
9861: WHEN OTHERS THEN
9862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9863: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9864: print_debug('ROLLBACK ' );
9865: ROLLBACK ;
9866: print_debug('l_progress = ' || l_proc_name || ':'|| l_progress);
9867: print_debug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
9907: , p_operation => p_operation
9908: );
9909:
9910: IF l_status <> fnd_api.g_ret_sts_success THEN
9911: fnd_msg_pub.count_and_get(p_count => l_msgcnt, p_data => l_msgdata);
9912: IF ( l_debug = 1 ) THEN
9913: print_debug ( '***Inside call_pack_unpack_container l_status <> Success***' );
9914: END IF;
9915: END IF;
10137:
10138: IF l_nothing IS NOT NULL THEN
10139: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
10140: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10141: FND_MSG_PUB.Add;
10142: RETURN FALSE;
10143: END IF;
10144:
10145: EXCEPTION
10145: EXCEPTION
10146: WHEN TOO_MANY_ROWS THEN
10147: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
10148: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10149: FND_MSG_PUB.Add;
10150: RETURN FALSE;
10151: WHEN NO_DATA_FOUND THEN
10152: null;
10153: END;
10218: IF l_exp_case = 1 THEN
10219: FND_MESSAGE.set_name('INV','INV_INVALID_SERIAL_STATUS');
10220: FND_MESSAGE.SET_TOKEN('ORG_CODE',l_organization_code);
10221: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',l_current_status);
10222: FND_MSG_PUB.Add;
10223:
10224: ELSIF l_exp_case = 2 THEN
10225: FND_MESSAGE.set_name('INV','INV_CCEOI_INVALID_SERIAL');
10226: FND_MSG_PUB.Add;
10222: FND_MSG_PUB.Add;
10223:
10224: ELSIF l_exp_case = 2 THEN
10225: FND_MESSAGE.set_name('INV','INV_CCEOI_INVALID_SERIAL');
10226: FND_MSG_PUB.Add;
10227:
10228: ELSIF l_exp_case = 3 THEN
10229: FND_MESSAGE.set_name('INV','INV_SER_UNIQ1');
10230: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10227:
10228: ELSIF l_exp_case = 3 THEN
10229: FND_MESSAGE.set_name('INV','INV_SER_UNIQ1');
10230: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10231: FND_MSG_PUB.Add;
10232:
10233: ELSIF l_exp_case = 4 THEN
10234: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
10235: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10232:
10233: ELSIF l_exp_case = 4 THEN
10234: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
10235: FND_MESSAGE.SET_TOKEN('TOKEN1',p_from_serial);
10236: FND_MSG_PUB.Add;
10237:
10238: END IF;
10239: RETURN FALSE;
10240:
10243: IF c_serials%ISOPEN THEN
10244: CLOSE c_serials;
10245: END IF;
10246: FND_MESSAGE.set_name('INV','INV_INVALID_SERIAL');
10247: FND_MSG_PUB.Add;
10248: RETURN FALSE;
10249: END validate_serials;
10250:
10251: /* Added the PROCEDURE validate_serials as part of a bug# 13835210
10292: IF l_num_serial > l_num_serial_final THEN
10293: FND_MESSAGE.set_name('INV','INV_FROM_TO_SER_DIFF_LENGTH');
10294: FND_MESSAGE.SET_TOKEN('FM_SER_NUM',p_from_serial);
10295: FND_MESSAGE.SET_TOKEN('TO_SER_NUM',p_to_serial);
10296: FND_MSG_PUB.Add;
10297: x_return_status := FND_API.G_RET_STS_ERROR;
10298: RETURN;
10299: END IF;
10300:
10302: WHEN VALUE_ERROR THEN
10303: FND_MESSAGE.set_name('INV','INV_FROM_TO_SER_DIFF_PFX');
10304: FND_MESSAGE.SET_TOKEN('FM_SER_NUM',p_from_serial);
10305: FND_MESSAGE.SET_TOKEN('TO_SER_NUM',p_to_serial);
10306: FND_MSG_PUB.Add;
10307: x_return_status := FND_API.G_RET_STS_ERROR;
10308: RETURN;
10309: END;
10310: