[Home] [Help]
1: PACKAGE BODY QA_SAMPLING_PKG AS
2: /* $Header: qasamplb.pls 120.4 2008/02/08 09:14:48 pdube ship $ */
3:
4:
5: -- This procedure inserts the Details for the quantity left in the
363: p_product_transaction_id => l_rti_txn_id);
364:
365: if x_return_status <> 'S' then
366: qa_skiplot_utility.insert_error_log (
367: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
368: p_error_message => 'QA_WMS_LOT_INSERT_FAIL',
369: p_comments => x_msg_data);
370: fnd_message.clear;
371: fnd_message.set_name ('QA', 'QA_WMS_LOT_INSERT_FAIL');
406: p_product_transaction_id => l_rti_txn_id);
407:
408: if x_return_status <> 'S' then
409: qa_skiplot_utility.insert_error_log (
410: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
411: p_error_message => 'QA_WMS_SER_INSERT_FAIL',
412: p_comments => x_msg_data);
413: fnd_message.clear;
414: fnd_message.set_name ('QA', 'QA_WMS_SER_INSERT_FAIL');
733: p_product_transaction_id => l_rti_int_txn_id);
734:
735: if x_return_status <> 'S' then
736: qa_skiplot_utility.insert_error_log (
737: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
738: p_error_message => 'QA_WMS_LOT_INSERT_FAIL',
739: p_comments => x_msg_data);
740: fnd_message.clear;
741: fnd_message.set_name ('QA', 'QA_WMS_LOT_INSERT_FAIL');
779: p_product_transaction_id => l_rti_int_txn_id);
780:
781: if x_return_status <> 'S' then
782: qa_skiplot_utility.insert_error_log (
783: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
784: p_error_message => 'QA_WMS_SER_INSERT_FAIL',
785: p_comments => x_msg_data);
786: fnd_message.clear;
787: fnd_message.set_name ('QA', 'QA_WMS_SER_INSERT_FAIL');
1199: open sampling_plan_cur;
1200: fetch sampling_plan_cur into l_std_code, l_aql, l_insp_level;
1201: close sampling_plan_cur;
1202:
1203: if (l_std_code = qa_sampling_pkg.custom_sampling_plan)
1204: then
1205: open custom_sample_cur;
1206: fetch custom_sample_cur into l_sample_size;
1207: close custom_sample_cur;
2083: -- Bug 3096256. Added the following procedures for RCV/WMS Merge.
2084: -- This procedure inserts the detailed Inspection results onto
2085: -- qa_insp_collections_dtl_temp. This enables unit wise inspection
2086: -- with LPN and at Lot/Serial levels.
2087: -- Called from launch_shipment_action_int() of QA_SAMPLING_PKG and
2088: -- QA_SKIPLOT_RES_ENGINE.
2089: -- kabalakr Fri Aug 29 09:06:28 PDT 2003.
2090: --
2091:
2259: END post_insp_coll_details;
2260:
2261:
2262:
2263: END; -- End QA_SAMPLING_PKG
2264: