[Home] [Help]
1: PACKAGE BODY QA_SAMPLING_PKG AS
2: /* $Header: qasamplb.pls 120.4.12010000.4 2010/02/11 08:46:02 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');
752: p_product_transaction_id => l_rti_int_txn_id);
753:
754: if x_return_status <> 'S' then
755: qa_skiplot_utility.insert_error_log (
756: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
757: p_error_message => 'QA_WMS_LOT_INSERT_FAIL',
758: p_comments => x_msg_data);
759: fnd_message.clear;
760: fnd_message.set_name ('QA', 'QA_WMS_LOT_INSERT_FAIL');
798: p_product_transaction_id => l_rti_int_txn_id);
799:
800: if x_return_status <> 'S' then
801: qa_skiplot_utility.insert_error_log (
802: p_module_name => 'QA_SAMPLING_PKG.LAUNCH_SHIPMENT_ACTION_INT',
803: p_error_message => 'QA_WMS_SER_INSERT_FAIL',
804: p_comments => x_msg_data);
805: fnd_message.clear;
806: fnd_message.set_name ('QA', 'QA_WMS_SER_INSERT_FAIL');
1260: open sampling_plan_cur;
1261: fetch sampling_plan_cur into l_std_code, l_aql, l_insp_level;
1262: close sampling_plan_cur;
1263:
1264: if (l_std_code = qa_sampling_pkg.custom_sampling_plan)
1265: then
1266: open custom_sample_cur;
1267: fetch custom_sample_cur into l_sample_size;
1268: close custom_sample_cur;
2160: -- Bug 3096256. Added the following procedures for RCV/WMS Merge.
2161: -- This procedure inserts the detailed Inspection results onto
2162: -- qa_insp_collections_dtl_temp. This enables unit wise inspection
2163: -- with LPN and at Lot/Serial levels.
2164: -- Called from launch_shipment_action_int() of QA_SAMPLING_PKG and
2165: -- QA_SKIPLOT_RES_ENGINE.
2166: -- kabalakr Fri Aug 29 09:06:28 PDT 2003.
2167: --
2168:
2336: END post_insp_coll_details;
2337:
2338:
2339:
2340: END; -- End QA_SAMPLING_PKG
2341: