[Home] [Help]
275: /* Bug 4891916-Added the following local variables for the call to label printing */
276: l_print_label NUMBER := NVL(FND_PROFILE.VALUE('WMS_LABEL_FOR_CYCLE_COUNT'),2);
277: l_business_flow_code NUMBER := 8;
278: l_label_status VARCHAR2 ( 300 ) := NULL;
279: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
280: l_return_result NUMBER := 2; -- Bug 13992956
281: l_serial_count_option NUMBER; -- Bug 13992956
282: l_serial_detail_option NUMBER; -- Bug 13992956
283:
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
344: g_count_uom := inv_cache.item_rec.primary_uom_code;
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
441: -- inputted p_count_quantity equals the amount of items in the serial range.
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.
451: -- Note that the from and to serial numbers must be of the same length.
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:
599: CLOSE cc_discrepant_serial_cursor;
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:
847: CLOSE cc_discrepant_cursor;
880: print_debug ( 'Values of l_msg_count:'|| l_msg_count );
881: print_debug ( 'Values of l_label_status'|| l_label_status );
882: END IF;
883:
884: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
885: IF (l_debug = 1) THEN
886: print_debug('**Label Printing returned error:' || l_return_status);
887: END IF;
888: END IF;
1055: WHEN OTHERS THEN
1056: IF(l_debug = 1) THEN
1057: print_debug('Unable to get the Outermost LPN ID for: ' || g_cc_entry.parent_lpn_id);
1058: END IF;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END;
1061: --Bug2935754 ends
1062: ELSE
1063: g_cc_entry.outermost_lpn_id := NULL;
1392: WHEN OTHERS THEN
1393: IF(l_debug = 1) THEN
1394: print_debug('Unable to get the Outermost LPN ID for: ' || g_cc_entry.parent_lpn_id);
1395: END IF;
1396: RAISE FND_API.G_EXC_ERROR;
1397: END;
1398: --Bug2935754 ends
1399: ELSE
1400: g_cc_entry.outermost_lpn_id := NULL;
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
2757: -- Zero Count
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
2874: -- Completed count entries
3049: END IF;
3050: END IF;
3051: EXCEPTION
3052: WHEN NO_DATA_FOUND THEN
3053: RAISE FND_API.G_EXC_ERROR;
3054: END pre_update;
3055:
3056: PROCEDURE final_preupdate_logic
3057: IS
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 );
3805: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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 );
3811: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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
3817: SELECT mtl_material_transactions_s.NEXTVAL
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
3964: SELECT mtl_material_transactions_s.NEXTVAL
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 );
4074: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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 );
4080: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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;
4086: -- Set the commit status flag so that the TM will be called in the
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;
4183: END delete_reservation;
4184:
4185: PROCEDURE duplicate_entries
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:
4235: PROCEDURE post_commit
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' );
4377: FND_MESSAGE.SET_TOKEN ( 'ENTITY', 'INV_CYCLE_COUNT', TRUE );
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;
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
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' );
4446: FND_MESSAGE.SET_TOKEN ( 'REQUEST_ID', TO_CHAR ( l_req_id ), FALSE );
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;
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
5036: , x_total_cost => l_item_cost /* total cost */
5037: , x_no_of_rows => l_no_of_rows /* number of detail rows retrieved */
5038: );
5039:
5040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5041: l_item_cost := 0;
5042: END IF;
5043:
5044: EXCEPTION
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;
5337: ELSE
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;
5369: END IF;
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
5441: -- Single serial per count
5442: l_serial_number := g_cc_entry.serial_number;
5450: IF ( l_serial_count_option = 3 ) THEN
5451: ROLLBACK TO save_serial_detail;
5452: END IF;
5453:
5454: RAISE FND_API.G_EXC_ERROR;
5455: END IF;
5456:
5457: IF ( l_debug = 1 ) THEN
5458: print_debug ( 'l_automatic_recount_flag = '||l_automatic_recount_flag||', g_cc_entry.number_of_counts = '||g_cc_entry.number_of_counts);
6404:
6405: ROLLBACK TO save_serial_detail;
6406: END IF;
6407:
6408: RAISE FND_API.G_EXC_ERROR;
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 );
6419:
6420: ROLLBACK TO save_serial_detail;
6421: END IF;
6422:
6423: RAISE FND_API.G_EXC_ERROR;
6424: END IF;
6425: END IF;
6426:
6427: RETURN ( l_ret_value );
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' );
6878: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_msn_lot_number );
6879: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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 );
6885: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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
6891: SELECT mtl_material_transactions_s.NEXTVAL
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' );
6987: FND_MESSAGE.SET_TOKEN ( 'TOKEN1', l_lot_num );
6988: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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 );
6994: FND_MESSAGE.SET_TOKEN ( 'TOKEN2', l_item_name );
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
7000: -- post commit procedure
7161: IF ( l_serial_count_option = 3 ) THEN
7162: ROLLBACK TO save_serial_detail;
7163: END IF;
7164:
7165: RAISE FND_API.G_EXC_ERROR;
7166: END IF;
7167: END IF;
7168: END mark;
7169:
8548: IS
8549: l_debug NUMBER := NVL ( FND_PROFILE.VALUE ( 'INV_DEBUG_TRACE' ), 0 );
8550: BEGIN
8551: -- Initialize the return status
8552: x_return_status := FND_API.G_RET_STS_SUCCESS;
8553:
8554: IF ( l_debug = 1 ) THEN
8555: print_debug ( '***Calling insert_dynamic_lot***' );
8556: END IF;
8575: x_msg_count => x_msg_count,
8576: x_msg_data => x_msg_data
8577: );
8578:
8579: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
8580: IF ( l_debug = 1 ) THEN
8581: print_debug ( 'insertLot was not called successfully' );
8582: END IF;
8583:
8580: IF ( l_debug = 1 ) THEN
8581: print_debug ( 'insertLot was not called successfully' );
8582: END IF;
8583:
8584: RAISE FND_API.G_EXC_ERROR;
8585: END IF;
8586:
8587: IF ( l_debug = 1 ) THEN
8588: print_debug ( 'insertLot was called successfully' );
8587: IF ( l_debug = 1 ) THEN
8588: print_debug ( 'insertLot was called successfully' );
8589: END IF;
8590:
8591: IF ( ( x_return_status = FND_API.g_ret_sts_success )
8592: AND ( p_update_status = 'TRUE' )
8593: ) THEN
8594: IF ( l_debug = 1 ) THEN
8595: print_debug ( 'Update the status of the new lot' );
8611: p_to_serial_number => NULL,
8612: p_object_type => 'O'
8613: );
8614:
8615: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
8616: IF ( l_debug = 1 ) THEN
8617: print_debug ( 'update_status was not called successfully' );
8618: END IF;
8619:
8616: IF ( l_debug = 1 ) THEN
8617: print_debug ( 'update_status was not called successfully' );
8618: END IF;
8619:
8620: RAISE FND_API.G_EXC_ERROR;
8621: END IF;
8622: END IF;
8623: END insert_dynamic_lot;
8624:
8658: );
8659: END IF;
8660:
8661: l_progress := '10';
8662: x_return_status := FND_API.G_RET_STS_SUCCESS;
8663: SAVEPOINT count_update_serial_sp;
8664: l_progress := '20';
8665: -- get the number part of the 'to' serial
8666: inv_validate.number_from_sequence ( p_to_serial_number,
8722: END IF;
8723:
8724: l_progress := '80';
8725:
8726: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8727: RAISE FND_API.G_EXC_ERROR;
8728: END IF;
8729: END LOOP;
8730:
8723:
8724: l_progress := '80';
8725:
8726: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8727: RAISE FND_API.G_EXC_ERROR;
8728: END IF;
8729: END LOOP;
8730:
8731: l_progress := '90';
8745: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
8746: );
8747: END IF;
8748: EXCEPTION
8749: WHEN FND_API.G_EXC_ERROR THEN
8750: ROLLBACK TO count_update_serial_sp;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752:
8753: IF ( l_debug = 1 ) THEN
8747: END IF;
8748: EXCEPTION
8749: WHEN FND_API.G_EXC_ERROR THEN
8750: ROLLBACK TO count_update_serial_sp;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752:
8753: IF ( l_debug = 1 ) THEN
8754: print_debug ( 'Exitting update_serial_status - execution error:'
8755: || l_progress
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
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
8767: ROLLBACK TO count_update_serial_sp;
8768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8769:
8770: IF ( l_debug = 1 ) THEN
8764: p_data => x_msg_data
8765: );
8766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8767: ROLLBACK TO count_update_serial_sp;
8768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8769:
8770: IF ( l_debug = 1 ) THEN
8771: print_debug ( 'Exitting update_serial_status - unexpected error:'
8772: || l_progress
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
8781: p_data => x_msg_data
8782: );
8783: WHEN OTHERS THEN
8784: ROLLBACK TO count_update_serial_sp;
8785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8786:
8787: IF ( l_debug = 1 ) THEN
8788: print_debug ( 'Exitting update_serial_status - other exceptions:'
8789: || l_progress
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;
8840: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
8841: );
8842: END IF;
8843:
8844: x_return_status := FND_API.G_RET_STS_SUCCESS;
8845: l_progress := '10';
8846: SAVEPOINT count_insert_range_serial_sp;
8847: l_progress := '20';
8848: inv_serial_number_pub.insert_range_serial ( p_api_version => p_api_version,
8882: x_msg_count => x_msg_count,
8883: x_msg_data => x_msg_data
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;
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';
8893:
8910: p_object_type => 'S'
8911: );
8912: END IF;
8913:
8914: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: END IF;
8917:
8918: l_progress := '50';
8911: );
8912: END IF;
8913:
8914: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: END IF;
8917:
8918: l_progress := '50';
8919: serial_check.inv_mark_serial ( from_serial_number => p_from_serial_number,
8932: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
8933: );
8934: END IF;
8935: EXCEPTION
8936: WHEN FND_API.G_EXC_ERROR THEN
8937: ROLLBACK TO count_insert_range_serial_sp;
8938: x_return_status := fnd_api.g_ret_sts_error;
8939:
8940: IF ( l_debug = 1 ) THEN
8934: END IF;
8935: EXCEPTION
8936: WHEN FND_API.G_EXC_ERROR THEN
8937: ROLLBACK TO count_insert_range_serial_sp;
8938: x_return_status := fnd_api.g_ret_sts_error;
8939:
8940: IF ( l_debug = 1 ) THEN
8941: print_debug ( 'Exitting insert_range_serial - execution error:'
8942: || l_progress
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
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
8954: ROLLBACK TO count_insert_range_serial_sp;
8955:
8956: IF ( l_debug = 1 ) THEN
8957: print_debug ( 'Exitting insert_range_serial - unexpected error:'
8960: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
8961: );
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
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
8977: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
8978: );
8979: END IF;
8980:
8981: x_return_status := fnd_api.g_ret_sts_unexp_error;
8982:
8983: IF SQLCODE IS NOT NULL THEN
8984: inv_mobile_helper_functions.sql_error ( 'INV_RCV_COMMON_APIS.insert_range_serial',
8985: l_progress,
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;
9316: l_proc_name VARCHAR2(30) := 'get_schd_qty_for_serial_item';
9317: l_progress VARCHAR2(30) := '100';
9318: l_system_quantity NUMBER;
9319: BEGIN
9320: x_return_status := fnd_api.g_ret_sts_success;
9321: print_debug ('IN : ' || l_proc_name);
9322: print_debug ('p_cycle_count_header_id : ' || p_cycle_count_header_id );
9323: print_debug ('p_organization_id : ' || p_organization_id);
9324: print_debug ('p_subinventory : ' || p_subinventory );
9403: x_scheduled_qty := -1;
9404: END;
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 ;
9404: END;
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);
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);
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 ' );
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);
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);
9411: ROLLBACK ;
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);
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);
9421: ROLLBACK ;
9422: WHEN OTHERS THEN
9423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9419: print_debug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
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);
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);
9429:
9430: END;
9431:
9432: PROCEDURE clean_up_tasks (
9474: IF ( l_debug = 1 ) THEN
9475: print_debug ( 'The person ID for the completed task is null' );
9476: END IF;
9477:
9478: RAISE FND_API.G_EXC_ERROR;
9479: END IF;
9480:
9481: l_progress := '20';
9482:
9604: IF ( l_debug = 1 ) THEN
9605: print_debug ( '***End of clean_up_tasks***' );
9606: END IF;
9607: EXCEPTION
9608: WHEN FND_API.G_EXC_ERROR THEN
9609: ROLLBACK TO clean_up_tasks_sp;
9610:
9611: IF ( l_debug = 1 ) THEN
9612: print_debug ( 'Exiting clean_up_tasks - execution error:'
9614: || ' '
9615: || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' )
9616: );
9617: END IF;
9618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9619: ROLLBACK TO clean_up_tasks_sp;
9620:
9621: IF ( l_debug = 1 ) THEN
9622: print_debug ( 'Exiting clean_up_tasks - unexpected error:'
9779: l_progress VARCHAR2(30) := '100';
9780: l_prev_task_status NUMBER := 0;
9781:
9782: BEGIN
9783: x_return_status := fnd_api.g_ret_sts_success;
9784: print_debug ('IN : ' || l_proc_name);
9785: print_debug ('p_transaction_temp_id : ' || p_transaction_temp_id );
9786: print_debug ('p_employee_id : ' || p_employee_id);
9787:
9787:
9788: l_progress := 100;
9789: print_debug('l_progress = ' || l_progress);
9790:
9791: x_return_status := FND_API.G_RET_STS_SUCCESS;
9792:
9793: -- The idea is to delete WDT for task with prev status as 'Pending'
9794: -- and update the WDT for task with prev status as 'Queued'
9795:
9842: END IF;
9843: commit;
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 ;
9843: commit;
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);
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);
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 ' );
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);
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);
9850: ROLLBACK ;
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);
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);
9860: ROLLBACK ;
9861: WHEN OTHERS THEN
9862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9858: print_debug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
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);
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);
9868:
9869: END remove_cc_tasks;
9870:
9871: --13053297
9894:
9895: END IF;
9896: WMS_Container_PVT.PackUnpack_Container(
9897: p_api_version => 1.0
9898: , p_init_msg_list => fnd_api.g_false
9899: , p_validation_level => fnd_api.g_valid_level_none
9900: , x_return_status => l_status
9901: , x_msg_count => l_msgcnt
9902: , x_msg_data => l_msgdata
9895: END IF;
9896: WMS_Container_PVT.PackUnpack_Container(
9897: p_api_version => 1.0
9898: , p_init_msg_list => fnd_api.g_false
9899: , p_validation_level => fnd_api.g_valid_level_none
9900: , x_return_status => l_status
9901: , x_msg_count => l_msgcnt
9902: , x_msg_data => l_msgdata
9903: , p_caller => 'INV_TRNSACTION'
9906: , p_organization_id => p_org_id
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;
9944: l_transaction_temp_id NUMBER;
9945: l_task_priority NUMBER;
9946: BEGIN
9947:
9948: x_return_status := fnd_api.g_ret_sts_success;
9949: print_debug ('IN : ' || l_proc_name);
9950: print_debug ('***Inside insert_cc_task p_employee_id : ' || p_employee_id);
9951: print_debug ( '***Inside insert_cc_task p_organization_id : ***'||p_organization_id );
9952: print_debug ( '***Inside insert_cc_task p_item_id : ***'||p_item_id );
10262: l_temp_serial mtl_serial_numbers.serial_number%TYPE;
10263: l_num_serial NUMBER;
10264: l_num_serial_final NUMBER;
10265: BEGIN
10266: x_return_status := FND_API.G_RET_STS_SUCCESS;
10267: print_debug('Entered procedure VALIDATE_SERIALS API ');
10268: print_debug('-------------------------------------- : ');
10269: print_debug('p_organization_id >> : '||p_organization_id);
10270: print_debug('p_inventory_item_id >> : '||p_inventory_item_id);
10275: -- for a single serial
10276: IF ( (p_from_serial IS NOT NULL AND p_to_serial IS NULL) OR (p_from_serial = p_to_serial) ) THEN
10277:
10278: IF NOT(validate_serials (p_organization_id,p_inventory_item_id,p_from_serial)) THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: RETURN;
10281: END IF;
10282:
10283: -- for a range of serials
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:
10301: EXCEPTION
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:
10311: -- validate each SN for serial uniqueness
10311: -- validate each SN for serial uniqueness
10312: LOOP
10313: l_temp_serial := p_serial_prefix||l_num_serial;
10314: IF NOT(validate_serials (p_organization_id,p_inventory_item_id,l_temp_serial)) THEN
10315: x_return_status := FND_API.G_RET_STS_ERROR;
10316: RETURN;
10317: END IF;
10318: EXIT WHEN (l_num_serial = l_num_serial_final);
10319: l_num_serial := l_num_serial + 1;
10322:
10323: EXCEPTION
10324: WHEN OTHERS THEN
10325: print_debug(' In PROCEDURE validate_serials - exception others - '||SubStr(SQLERRM,1,100));
10326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10327: END validate_serials;
10328:
10329: -- Bug 13992956
10330: /*
10401: print_debug('Exception in block 1 in process_multiple_qty_only: ' || SUBSTR(SQLERRM, 1,100));
10402: END IF;
10403: x_return_result := 2;
10404: ROLLBACK TO save_serial_detail;
10405: RAISE FND_API.G_EXC_ERROR;
10406: END;
10407:
10408: IF l_debug = 1 THEN
10409: print_debug('l_system_quantity: ' || l_system_quantity || ', l_count_present_qty: ' || l_count_present_qty);
10481: END IF;
10482:
10483: x_return_result := 2;
10484: ROLLBACK TO save_serial_detail;
10485: RAISE FND_API.G_EXC_ERROR;
10486: END;
10487:
10488: IF ( inv_cache.set_item_rec(p_organization_id => g_cc_entry.organization_id, p_item_id => g_cc_entry.inventory_item_id) ) THEN
10489: g_count_uom := inv_cache.item_rec.primary_uom_code;