[Home] [Help]
1: PACKAGE BODY GMD_QC_MIG12 AS
2: /* $Header: gmdmg12b.pls 120.19.12020000.7 2013/02/01 21:03:37 srpuri ship $
3: +==========================================================================+
4: | Copyright (c) 1998 Oracle Corporation |
5: | Redwood Shores, CA, USA |
8: | FILE NAME |
9: | gmdmg12b.pls |
10: | |
11: | PACKAGE NAME |
12: | GMD_QC_MIG12 |
13: | |
14: | DESCRIPTION |
15: | This package contains migration procedures/functions |
16: | for Quality for 12 migration. |
61: p_token3 => 'UPD',
62: p_token4 => 'INS',
63: p_token5 => 'ERR',
64: p_param1 => 'gmd_test_methods_b',
65: p_param2 => to_char(GMD_QC_MIG12.g_test_method_pro_count),
66: p_param3 => to_char(GMD_QC_MIG12.g_test_method_upd_count),
67: p_param4 => 0,
68: p_param5 => to_char(GMD_QC_MIG12.g_test_method_err_count),
69: p_app_short_name => 'GMD');
62: p_token4 => 'INS',
63: p_token5 => 'ERR',
64: p_param1 => 'gmd_test_methods_b',
65: p_param2 => to_char(GMD_QC_MIG12.g_test_method_pro_count),
66: p_param3 => to_char(GMD_QC_MIG12.g_test_method_upd_count),
67: p_param4 => 0,
68: p_param5 => to_char(GMD_QC_MIG12.g_test_method_err_count),
69: p_app_short_name => 'GMD');
70: END IF;
64: p_param1 => 'gmd_test_methods_b',
65: p_param2 => to_char(GMD_QC_MIG12.g_test_method_pro_count),
66: p_param3 => to_char(GMD_QC_MIG12.g_test_method_upd_count),
67: p_param4 => 0,
68: p_param5 => to_char(GMD_QC_MIG12.g_test_method_err_count),
69: p_app_short_name => 'GMD');
70: END IF;
71:
72:
81: p_token3 => 'UPD',
82: p_token4 => 'INS',
83: p_token5 => 'ERR',
84: p_param1 => 'gmd_quality_config',
85: p_param2 => to_char(GMD_QC_MIG12.g_quality_config_pro_count),
86: p_param3 => to_char(GMD_QC_MIG12.g_quality_config_upd_count),
87: p_param4 => to_char(GMD_QC_MIG12.g_quality_config_ins_count),
88: p_param5 => to_char(GMD_QC_MIG12.g_quality_config_err_count),
89: p_app_short_name => 'GMD');
82: p_token4 => 'INS',
83: p_token5 => 'ERR',
84: p_param1 => 'gmd_quality_config',
85: p_param2 => to_char(GMD_QC_MIG12.g_quality_config_pro_count),
86: p_param3 => to_char(GMD_QC_MIG12.g_quality_config_upd_count),
87: p_param4 => to_char(GMD_QC_MIG12.g_quality_config_ins_count),
88: p_param5 => to_char(GMD_QC_MIG12.g_quality_config_err_count),
89: p_app_short_name => 'GMD');
90: END IF;
83: p_token5 => 'ERR',
84: p_param1 => 'gmd_quality_config',
85: p_param2 => to_char(GMD_QC_MIG12.g_quality_config_pro_count),
86: p_param3 => to_char(GMD_QC_MIG12.g_quality_config_upd_count),
87: p_param4 => to_char(GMD_QC_MIG12.g_quality_config_ins_count),
88: p_param5 => to_char(GMD_QC_MIG12.g_quality_config_err_count),
89: p_app_short_name => 'GMD');
90: END IF;
91:
84: p_param1 => 'gmd_quality_config',
85: p_param2 => to_char(GMD_QC_MIG12.g_quality_config_pro_count),
86: p_param3 => to_char(GMD_QC_MIG12.g_quality_config_upd_count),
87: p_param4 => to_char(GMD_QC_MIG12.g_quality_config_ins_count),
88: p_param5 => to_char(GMD_QC_MIG12.g_quality_config_err_count),
89: p_app_short_name => 'GMD');
90: END IF;
91:
92: IF (p_progress_ind = 3) THEN
100: p_token3 => 'UPD',
101: p_token4 => 'INS',
102: p_token5 => 'ERR',
103: p_param1 => 'gmd_sampling_plans_b',
104: p_param2 => to_char(GMD_QC_MIG12.g_sampling_plan_pro_count),
105: p_param3 => to_char(GMD_QC_MIG12.g_sampling_plan_upd_count),
106: p_param4 => 0,
107: p_param5 => to_char(GMD_QC_MIG12.g_sampling_plan_err_count),
108: p_app_short_name => 'GMD');
101: p_token4 => 'INS',
102: p_token5 => 'ERR',
103: p_param1 => 'gmd_sampling_plans_b',
104: p_param2 => to_char(GMD_QC_MIG12.g_sampling_plan_pro_count),
105: p_param3 => to_char(GMD_QC_MIG12.g_sampling_plan_upd_count),
106: p_param4 => 0,
107: p_param5 => to_char(GMD_QC_MIG12.g_sampling_plan_err_count),
108: p_app_short_name => 'GMD');
109: END IF;
103: p_param1 => 'gmd_sampling_plans_b',
104: p_param2 => to_char(GMD_QC_MIG12.g_sampling_plan_pro_count),
105: p_param3 => to_char(GMD_QC_MIG12.g_sampling_plan_upd_count),
106: p_param4 => 0,
107: p_param5 => to_char(GMD_QC_MIG12.g_sampling_plan_err_count),
108: p_app_short_name => 'GMD');
109: END IF;
110:
111: END LOG_SETUP_COUNTS;
144: p_token3 => 'UPD',
145: p_token4 => 'INS',
146: p_token5 => 'ERR',
147: p_param1 => 'gmd_samples',
148: p_param2 => to_char(GMD_QC_MIG12.g_sample_pro_count),
149: p_param3 => to_char(GMD_QC_MIG12.g_sample_upd_count),
150: p_param4 => 0,
151: p_param5 => to_char(GMD_QC_MIG12.g_sample_err_count),
152: p_app_short_name => 'GMD');
145: p_token4 => 'INS',
146: p_token5 => 'ERR',
147: p_param1 => 'gmd_samples',
148: p_param2 => to_char(GMD_QC_MIG12.g_sample_pro_count),
149: p_param3 => to_char(GMD_QC_MIG12.g_sample_upd_count),
150: p_param4 => 0,
151: p_param5 => to_char(GMD_QC_MIG12.g_sample_err_count),
152: p_app_short_name => 'GMD');
153: END IF;
147: p_param1 => 'gmd_samples',
148: p_param2 => to_char(GMD_QC_MIG12.g_sample_pro_count),
149: p_param3 => to_char(GMD_QC_MIG12.g_sample_upd_count),
150: p_param4 => 0,
151: p_param5 => to_char(GMD_QC_MIG12.g_sample_err_count),
152: p_app_short_name => 'GMD');
153: END IF;
154:
155: IF (p_progress_ind = 2) THEN
163: p_token3 => 'UPD',
164: p_token4 => 'INS',
165: p_token5 => 'ERR',
166: p_param1 => 'gmd_sampling_events',
167: p_param2 => to_char(GMD_QC_MIG12.g_sample_event_pro_count),
168: p_param3 => to_char(GMD_QC_MIG12.g_sample_event_upd_count),
169: p_param4 => 0,
170: p_param5 => to_char(GMD_QC_MIG12.g_sample_event_err_count),
171: p_app_short_name => 'GMD');
164: p_token4 => 'INS',
165: p_token5 => 'ERR',
166: p_param1 => 'gmd_sampling_events',
167: p_param2 => to_char(GMD_QC_MIG12.g_sample_event_pro_count),
168: p_param3 => to_char(GMD_QC_MIG12.g_sample_event_upd_count),
169: p_param4 => 0,
170: p_param5 => to_char(GMD_QC_MIG12.g_sample_event_err_count),
171: p_app_short_name => 'GMD');
172: END IF;
166: p_param1 => 'gmd_sampling_events',
167: p_param2 => to_char(GMD_QC_MIG12.g_sample_event_pro_count),
168: p_param3 => to_char(GMD_QC_MIG12.g_sample_event_upd_count),
169: p_param4 => 0,
170: p_param5 => to_char(GMD_QC_MIG12.g_sample_event_err_count),
171: p_app_short_name => 'GMD');
172: END IF;
173:
174: IF (p_progress_ind = 3) THEN
182: p_token3 => 'UPD',
183: p_token4 => 'INS',
184: p_token5 => 'ERR',
185: p_param1 => 'gmd_results',
186: p_param2 => to_char(GMD_QC_MIG12.g_result_pro_count),
187: p_param3 => to_char(GMD_QC_MIG12.g_result_upd_count),
188: p_param4 => 0,
189: p_param5 => to_char(GMD_QC_MIG12.g_result_err_count),
190: p_app_short_name => 'GMD');
183: p_token4 => 'INS',
184: p_token5 => 'ERR',
185: p_param1 => 'gmd_results',
186: p_param2 => to_char(GMD_QC_MIG12.g_result_pro_count),
187: p_param3 => to_char(GMD_QC_MIG12.g_result_upd_count),
188: p_param4 => 0,
189: p_param5 => to_char(GMD_QC_MIG12.g_result_err_count),
190: p_app_short_name => 'GMD');
191: END IF;
185: p_param1 => 'gmd_results',
186: p_param2 => to_char(GMD_QC_MIG12.g_result_pro_count),
187: p_param3 => to_char(GMD_QC_MIG12.g_result_upd_count),
188: p_param4 => 0,
189: p_param5 => to_char(GMD_QC_MIG12.g_result_err_count),
190: p_app_short_name => 'GMD');
191: END IF;
192:
193: END LOG_SAMPLE_COUNTS;
226: p_token3 => 'UPD',
227: p_token4 => 'INS',
228: p_token5 => 'ERR',
229: p_param1 => 'gmd_specifications_b',
230: p_param2 => to_char(GMD_QC_MIG12.g_specs_pro_count),
231: p_param3 => to_char(GMD_QC_MIG12.g_specs_upd_count),
232: p_param4 => 0,
233: p_param5 => to_char(GMD_QC_MIG12.g_specs_err_count),
234: p_app_short_name => 'GMD');
227: p_token4 => 'INS',
228: p_token5 => 'ERR',
229: p_param1 => 'gmd_specifications_b',
230: p_param2 => to_char(GMD_QC_MIG12.g_specs_pro_count),
231: p_param3 => to_char(GMD_QC_MIG12.g_specs_upd_count),
232: p_param4 => 0,
233: p_param5 => to_char(GMD_QC_MIG12.g_specs_err_count),
234: p_app_short_name => 'GMD');
235: END IF;
229: p_param1 => 'gmd_specifications_b',
230: p_param2 => to_char(GMD_QC_MIG12.g_specs_pro_count),
231: p_param3 => to_char(GMD_QC_MIG12.g_specs_upd_count),
232: p_param4 => 0,
233: p_param5 => to_char(GMD_QC_MIG12.g_specs_err_count),
234: p_app_short_name => 'GMD');
235: END IF;
236:
237: IF (p_progress_ind = 2) THEN
245: p_token3 => 'UPD',
246: p_token4 => 'INS',
247: p_token5 => 'ERR',
248: p_param1 => 'gmd_inventory_spec_vrs',
249: p_param2 => to_char(GMD_QC_MIG12.g_inv_spec_pro_count),
250: p_param3 => to_char(GMD_QC_MIG12.g_inv_spec_upd_count),
251: p_param4 => to_char(GMD_QC_MIG12.g_inv_spec_ins_count),
252: p_param5 => to_char(GMD_QC_MIG12.g_inv_spec_err_count),
253: p_app_short_name => 'GMD');
246: p_token4 => 'INS',
247: p_token5 => 'ERR',
248: p_param1 => 'gmd_inventory_spec_vrs',
249: p_param2 => to_char(GMD_QC_MIG12.g_inv_spec_pro_count),
250: p_param3 => to_char(GMD_QC_MIG12.g_inv_spec_upd_count),
251: p_param4 => to_char(GMD_QC_MIG12.g_inv_spec_ins_count),
252: p_param5 => to_char(GMD_QC_MIG12.g_inv_spec_err_count),
253: p_app_short_name => 'GMD');
254: GMA_COMMON_LOGGING.gma_migration_central_log (
247: p_token5 => 'ERR',
248: p_param1 => 'gmd_inventory_spec_vrs',
249: p_param2 => to_char(GMD_QC_MIG12.g_inv_spec_pro_count),
250: p_param3 => to_char(GMD_QC_MIG12.g_inv_spec_upd_count),
251: p_param4 => to_char(GMD_QC_MIG12.g_inv_spec_ins_count),
252: p_param5 => to_char(GMD_QC_MIG12.g_inv_spec_err_count),
253: p_app_short_name => 'GMD');
254: GMA_COMMON_LOGGING.gma_migration_central_log (
255: p_run_id => p_migration_run_id,
248: p_param1 => 'gmd_inventory_spec_vrs',
249: p_param2 => to_char(GMD_QC_MIG12.g_inv_spec_pro_count),
250: p_param3 => to_char(GMD_QC_MIG12.g_inv_spec_upd_count),
251: p_param4 => to_char(GMD_QC_MIG12.g_inv_spec_ins_count),
252: p_param5 => to_char(GMD_QC_MIG12.g_inv_spec_err_count),
253: p_app_short_name => 'GMD');
254: GMA_COMMON_LOGGING.gma_migration_central_log (
255: p_run_id => p_migration_run_id,
256: p_log_level => FND_LOG.LEVEL_EVENT,
258: p_context => 'Quality Specifications',
259: p_token1 => 'TAB',
260: p_token2 => 'DEL',
261: p_param1 => 'gmd_inventory_spec_vrs',
262: p_param2 => to_char(GMD_QC_MIG12.g_inv_spec_del_count),
263: p_app_short_name => 'GMD');
264: END IF;
265:
266: IF (p_progress_ind = 3) THEN
274: p_token3 => 'UPD',
275: p_token4 => 'INS',
276: p_token5 => 'ERR',
277: p_param1 => 'gmd_wip_spec_vrs',
278: p_param2 => to_char(GMD_QC_MIG12.g_wip_spec_pro_count),
279: p_param3 => to_char(GMD_QC_MIG12.g_wip_spec_upd_count),
280: p_param4 => to_char(GMD_QC_MIG12.g_wip_spec_ins_count),
281: p_param5 => to_char(GMD_QC_MIG12.g_wip_spec_err_count),
282: p_app_short_name => 'GMD');
275: p_token4 => 'INS',
276: p_token5 => 'ERR',
277: p_param1 => 'gmd_wip_spec_vrs',
278: p_param2 => to_char(GMD_QC_MIG12.g_wip_spec_pro_count),
279: p_param3 => to_char(GMD_QC_MIG12.g_wip_spec_upd_count),
280: p_param4 => to_char(GMD_QC_MIG12.g_wip_spec_ins_count),
281: p_param5 => to_char(GMD_QC_MIG12.g_wip_spec_err_count),
282: p_app_short_name => 'GMD');
283: GMA_COMMON_LOGGING.gma_migration_central_log (
276: p_token5 => 'ERR',
277: p_param1 => 'gmd_wip_spec_vrs',
278: p_param2 => to_char(GMD_QC_MIG12.g_wip_spec_pro_count),
279: p_param3 => to_char(GMD_QC_MIG12.g_wip_spec_upd_count),
280: p_param4 => to_char(GMD_QC_MIG12.g_wip_spec_ins_count),
281: p_param5 => to_char(GMD_QC_MIG12.g_wip_spec_err_count),
282: p_app_short_name => 'GMD');
283: GMA_COMMON_LOGGING.gma_migration_central_log (
284: p_run_id => p_migration_run_id,
277: p_param1 => 'gmd_wip_spec_vrs',
278: p_param2 => to_char(GMD_QC_MIG12.g_wip_spec_pro_count),
279: p_param3 => to_char(GMD_QC_MIG12.g_wip_spec_upd_count),
280: p_param4 => to_char(GMD_QC_MIG12.g_wip_spec_ins_count),
281: p_param5 => to_char(GMD_QC_MIG12.g_wip_spec_err_count),
282: p_app_short_name => 'GMD');
283: GMA_COMMON_LOGGING.gma_migration_central_log (
284: p_run_id => p_migration_run_id,
285: p_log_level => FND_LOG.LEVEL_EVENT,
287: p_context => 'Quality Specifications',
288: p_token1 => 'TAB',
289: p_token2 => 'DEL',
290: p_param1 => 'gmd_wip_spec_vrs',
291: p_param2 => to_char(GMD_QC_MIG12.g_wip_spec_del_count),
292: p_app_short_name => 'GMD');
293: END IF;
294:
295: IF (p_progress_ind = 4) THEN
303: p_token3 => 'UPD',
304: p_token4 => 'INS',
305: p_token5 => 'ERR',
306: p_param1 => 'gmd_customer_spec_vrs',
307: p_param2 => to_char(GMD_QC_MIG12.g_cust_spec_pro_count),
308: p_param3 => to_char(GMD_QC_MIG12.g_cust_spec_upd_count),
309: p_param4 => to_char(GMD_QC_MIG12.g_cust_spec_ins_count),
310: p_param5 => to_char(GMD_QC_MIG12.g_cust_spec_err_count),
311: p_app_short_name => 'GMD');
304: p_token4 => 'INS',
305: p_token5 => 'ERR',
306: p_param1 => 'gmd_customer_spec_vrs',
307: p_param2 => to_char(GMD_QC_MIG12.g_cust_spec_pro_count),
308: p_param3 => to_char(GMD_QC_MIG12.g_cust_spec_upd_count),
309: p_param4 => to_char(GMD_QC_MIG12.g_cust_spec_ins_count),
310: p_param5 => to_char(GMD_QC_MIG12.g_cust_spec_err_count),
311: p_app_short_name => 'GMD');
312: GMA_COMMON_LOGGING.gma_migration_central_log (
305: p_token5 => 'ERR',
306: p_param1 => 'gmd_customer_spec_vrs',
307: p_param2 => to_char(GMD_QC_MIG12.g_cust_spec_pro_count),
308: p_param3 => to_char(GMD_QC_MIG12.g_cust_spec_upd_count),
309: p_param4 => to_char(GMD_QC_MIG12.g_cust_spec_ins_count),
310: p_param5 => to_char(GMD_QC_MIG12.g_cust_spec_err_count),
311: p_app_short_name => 'GMD');
312: GMA_COMMON_LOGGING.gma_migration_central_log (
313: p_run_id => p_migration_run_id,
306: p_param1 => 'gmd_customer_spec_vrs',
307: p_param2 => to_char(GMD_QC_MIG12.g_cust_spec_pro_count),
308: p_param3 => to_char(GMD_QC_MIG12.g_cust_spec_upd_count),
309: p_param4 => to_char(GMD_QC_MIG12.g_cust_spec_ins_count),
310: p_param5 => to_char(GMD_QC_MIG12.g_cust_spec_err_count),
311: p_app_short_name => 'GMD');
312: GMA_COMMON_LOGGING.gma_migration_central_log (
313: p_run_id => p_migration_run_id,
314: p_log_level => FND_LOG.LEVEL_EVENT,
316: p_context => 'Quality Specifications',
317: p_token1 => 'TAB',
318: p_token2 => 'DEL',
319: p_param1 => 'gmd_customer_spec_vrs',
320: p_param2 => to_char(GMD_QC_MIG12.g_cust_spec_del_count),
321: p_app_short_name => 'GMD');
322: END IF;
323:
324: IF (p_progress_ind = 5) THEN
332: p_token3 => 'UPD',
333: p_token4 => 'INS',
334: p_token5 => 'ERR',
335: p_param1 => 'gmd_supplier_spec_vrs',
336: p_param2 => to_char(GMD_QC_MIG12.g_supl_spec_pro_count),
337: p_param3 => to_char(GMD_QC_MIG12.g_supl_spec_upd_count),
338: p_param4 => to_char(GMD_QC_MIG12.g_supl_spec_ins_count),
339: p_param5 => to_char(GMD_QC_MIG12.g_supl_spec_err_count),
340: p_app_short_name => 'GMD');
333: p_token4 => 'INS',
334: p_token5 => 'ERR',
335: p_param1 => 'gmd_supplier_spec_vrs',
336: p_param2 => to_char(GMD_QC_MIG12.g_supl_spec_pro_count),
337: p_param3 => to_char(GMD_QC_MIG12.g_supl_spec_upd_count),
338: p_param4 => to_char(GMD_QC_MIG12.g_supl_spec_ins_count),
339: p_param5 => to_char(GMD_QC_MIG12.g_supl_spec_err_count),
340: p_app_short_name => 'GMD');
341: GMA_COMMON_LOGGING.gma_migration_central_log (
334: p_token5 => 'ERR',
335: p_param1 => 'gmd_supplier_spec_vrs',
336: p_param2 => to_char(GMD_QC_MIG12.g_supl_spec_pro_count),
337: p_param3 => to_char(GMD_QC_MIG12.g_supl_spec_upd_count),
338: p_param4 => to_char(GMD_QC_MIG12.g_supl_spec_ins_count),
339: p_param5 => to_char(GMD_QC_MIG12.g_supl_spec_err_count),
340: p_app_short_name => 'GMD');
341: GMA_COMMON_LOGGING.gma_migration_central_log (
342: p_run_id => p_migration_run_id,
335: p_param1 => 'gmd_supplier_spec_vrs',
336: p_param2 => to_char(GMD_QC_MIG12.g_supl_spec_pro_count),
337: p_param3 => to_char(GMD_QC_MIG12.g_supl_spec_upd_count),
338: p_param4 => to_char(GMD_QC_MIG12.g_supl_spec_ins_count),
339: p_param5 => to_char(GMD_QC_MIG12.g_supl_spec_err_count),
340: p_app_short_name => 'GMD');
341: GMA_COMMON_LOGGING.gma_migration_central_log (
342: p_run_id => p_migration_run_id,
343: p_log_level => FND_LOG.LEVEL_EVENT,
345: p_context => 'Quality Specifications',
346: p_token1 => 'TAB',
347: p_token2 => 'DEL',
348: p_param1 => 'gmd_supplier_spec_vrs',
349: p_param2 => to_char(GMD_QC_MIG12.g_supl_spec_del_count),
350: p_app_short_name => 'GMD');
351: END IF;
352:
353: IF (p_progress_ind = 6) THEN
361: p_token3 => 'UPD',
362: p_token4 => 'INS',
363: p_token5 => 'ERR',
364: p_param1 => 'gmd_monitoring_spec_vrs',
365: p_param2 => to_char(GMD_QC_MIG12.g_mon_spec_pro_count),
366: p_param3 => to_char(GMD_QC_MIG12.g_mon_spec_upd_count),
367: p_param4 => to_char(GMD_QC_MIG12.g_mon_spec_ins_count),
368: p_param5 => to_char(GMD_QC_MIG12.g_mon_spec_err_count),
369: p_app_short_name => 'GMD');
362: p_token4 => 'INS',
363: p_token5 => 'ERR',
364: p_param1 => 'gmd_monitoring_spec_vrs',
365: p_param2 => to_char(GMD_QC_MIG12.g_mon_spec_pro_count),
366: p_param3 => to_char(GMD_QC_MIG12.g_mon_spec_upd_count),
367: p_param4 => to_char(GMD_QC_MIG12.g_mon_spec_ins_count),
368: p_param5 => to_char(GMD_QC_MIG12.g_mon_spec_err_count),
369: p_app_short_name => 'GMD');
370: GMA_COMMON_LOGGING.gma_migration_central_log (
363: p_token5 => 'ERR',
364: p_param1 => 'gmd_monitoring_spec_vrs',
365: p_param2 => to_char(GMD_QC_MIG12.g_mon_spec_pro_count),
366: p_param3 => to_char(GMD_QC_MIG12.g_mon_spec_upd_count),
367: p_param4 => to_char(GMD_QC_MIG12.g_mon_spec_ins_count),
368: p_param5 => to_char(GMD_QC_MIG12.g_mon_spec_err_count),
369: p_app_short_name => 'GMD');
370: GMA_COMMON_LOGGING.gma_migration_central_log (
371: p_run_id => p_migration_run_id,
364: p_param1 => 'gmd_monitoring_spec_vrs',
365: p_param2 => to_char(GMD_QC_MIG12.g_mon_spec_pro_count),
366: p_param3 => to_char(GMD_QC_MIG12.g_mon_spec_upd_count),
367: p_param4 => to_char(GMD_QC_MIG12.g_mon_spec_ins_count),
368: p_param5 => to_char(GMD_QC_MIG12.g_mon_spec_err_count),
369: p_app_short_name => 'GMD');
370: GMA_COMMON_LOGGING.gma_migration_central_log (
371: p_run_id => p_migration_run_id,
372: p_log_level => FND_LOG.LEVEL_EVENT,
374: p_context => 'Quality Specifications',
375: p_token1 => 'TAB',
376: p_token2 => 'DEL',
377: p_param1 => 'gmd_monitoring_spec_vrs',
378: p_param2 => to_char(GMD_QC_MIG12.g_mon_spec_del_count),
379: p_app_short_name => 'GMD');
380: END IF;
381:
382: END LOG_SPEC_COUNTS;
416: p_token3 => 'UPD',
417: p_token4 => 'INS',
418: p_token5 => 'ERR',
419: p_param1 => 'gmd_storage_plan_details',
420: p_param2 => to_char(GMD_QC_MIG12.g_store_plan_pro_count),
421: p_param3 => to_char(GMD_QC_MIG12.g_store_plan_upd_count),
422: p_param4 => 0,
423: p_param5 => to_char(GMD_QC_MIG12.g_store_plan_err_count),
424: p_app_short_name => 'GMD');
417: p_token4 => 'INS',
418: p_token5 => 'ERR',
419: p_param1 => 'gmd_storage_plan_details',
420: p_param2 => to_char(GMD_QC_MIG12.g_store_plan_pro_count),
421: p_param3 => to_char(GMD_QC_MIG12.g_store_plan_upd_count),
422: p_param4 => 0,
423: p_param5 => to_char(GMD_QC_MIG12.g_store_plan_err_count),
424: p_app_short_name => 'GMD');
425: END IF;
419: p_param1 => 'gmd_storage_plan_details',
420: p_param2 => to_char(GMD_QC_MIG12.g_store_plan_pro_count),
421: p_param3 => to_char(GMD_QC_MIG12.g_store_plan_upd_count),
422: p_param4 => 0,
423: p_param5 => to_char(GMD_QC_MIG12.g_store_plan_err_count),
424: p_app_short_name => 'GMD');
425: END IF;
426:
427: IF (p_progress_ind = 2) THEN
435: p_token3 => 'UPD',
436: p_token4 => 'INS',
437: p_token5 => 'ERR',
438: p_param1 => 'gmd_ss_stability_studies_b',
439: p_param2 => to_char(GMD_QC_MIG12.g_stab_pro_count),
440: p_param3 => to_char(GMD_QC_MIG12.g_stab_upd_count),
441: p_param4 => 0,
442: p_param5 => to_char(GMD_QC_MIG12.g_stab_err_count),
443: p_app_short_name => 'GMD');
436: p_token4 => 'INS',
437: p_token5 => 'ERR',
438: p_param1 => 'gmd_ss_stability_studies_b',
439: p_param2 => to_char(GMD_QC_MIG12.g_stab_pro_count),
440: p_param3 => to_char(GMD_QC_MIG12.g_stab_upd_count),
441: p_param4 => 0,
442: p_param5 => to_char(GMD_QC_MIG12.g_stab_err_count),
443: p_app_short_name => 'GMD');
444: END IF;
438: p_param1 => 'gmd_ss_stability_studies_b',
439: p_param2 => to_char(GMD_QC_MIG12.g_stab_pro_count),
440: p_param3 => to_char(GMD_QC_MIG12.g_stab_upd_count),
441: p_param4 => 0,
442: p_param5 => to_char(GMD_QC_MIG12.g_stab_err_count),
443: p_app_short_name => 'GMD');
444: END IF;
445:
446: IF (p_progress_ind = 3) THEN
454: p_token3 => 'UPD',
455: p_token4 => 'INS',
456: p_token5 => 'ERR',
457: p_param1 => 'gmd_ss_material_sources',
458: p_param2 => to_char(GMD_QC_MIG12.g_matl_source_pro_count),
459: p_param3 => to_char(GMD_QC_MIG12.g_matl_source_upd_count),
460: p_param4 => 0,
461: p_param5 => to_char(GMD_QC_MIG12.g_matl_source_err_count),
462: p_app_short_name => 'GMD');
455: p_token4 => 'INS',
456: p_token5 => 'ERR',
457: p_param1 => 'gmd_ss_material_sources',
458: p_param2 => to_char(GMD_QC_MIG12.g_matl_source_pro_count),
459: p_param3 => to_char(GMD_QC_MIG12.g_matl_source_upd_count),
460: p_param4 => 0,
461: p_param5 => to_char(GMD_QC_MIG12.g_matl_source_err_count),
462: p_app_short_name => 'GMD');
463: END IF;
457: p_param1 => 'gmd_ss_material_sources',
458: p_param2 => to_char(GMD_QC_MIG12.g_matl_source_pro_count),
459: p_param3 => to_char(GMD_QC_MIG12.g_matl_source_upd_count),
460: p_param4 => 0,
461: p_param5 => to_char(GMD_QC_MIG12.g_matl_source_err_count),
462: p_app_short_name => 'GMD');
463: END IF;
464:
465: IF (p_progress_ind = 4) THEN
473: p_token3 => 'UPD',
474: p_token4 => 'INS',
475: p_token5 => 'ERR',
476: p_param1 => 'gmd_ss_variants',
477: p_param2 => to_char(GMD_QC_MIG12.g_ss_variant_pro_count),
478: p_param3 => to_char(GMD_QC_MIG12.g_ss_variant_upd_count),
479: p_param4 => 0,
480: p_param5 => to_char(GMD_QC_MIG12.g_ss_variant_err_count),
481: p_app_short_name => 'GMD');
474: p_token4 => 'INS',
475: p_token5 => 'ERR',
476: p_param1 => 'gmd_ss_variants',
477: p_param2 => to_char(GMD_QC_MIG12.g_ss_variant_pro_count),
478: p_param3 => to_char(GMD_QC_MIG12.g_ss_variant_upd_count),
479: p_param4 => 0,
480: p_param5 => to_char(GMD_QC_MIG12.g_ss_variant_err_count),
481: p_app_short_name => 'GMD');
482: END IF;
476: p_param1 => 'gmd_ss_variants',
477: p_param2 => to_char(GMD_QC_MIG12.g_ss_variant_pro_count),
478: p_param3 => to_char(GMD_QC_MIG12.g_ss_variant_upd_count),
479: p_param4 => 0,
480: p_param5 => to_char(GMD_QC_MIG12.g_ss_variant_err_count),
481: p_app_short_name => 'GMD');
482: END IF;
483:
484: IF (p_progress_ind = 5) THEN
492: p_token3 => 'UPD',
493: p_token4 => 'INS',
494: p_token5 => 'ERR',
495: p_param1 => 'gmd_ss_storage_package',
496: p_param2 => to_char(GMD_QC_MIG12.g_store_pack_pro_count),
497: p_param3 => to_char(GMD_QC_MIG12.g_store_pack_upd_count),
498: p_param4 => to_char(GMD_QC_MIG12.g_store_pack_ins_count),
499: p_param5 => to_char(GMD_QC_MIG12.g_store_pack_err_count),
500: p_app_short_name => 'GMD');
493: p_token4 => 'INS',
494: p_token5 => 'ERR',
495: p_param1 => 'gmd_ss_storage_package',
496: p_param2 => to_char(GMD_QC_MIG12.g_store_pack_pro_count),
497: p_param3 => to_char(GMD_QC_MIG12.g_store_pack_upd_count),
498: p_param4 => to_char(GMD_QC_MIG12.g_store_pack_ins_count),
499: p_param5 => to_char(GMD_QC_MIG12.g_store_pack_err_count),
500: p_app_short_name => 'GMD');
501: END IF;
494: p_token5 => 'ERR',
495: p_param1 => 'gmd_ss_storage_package',
496: p_param2 => to_char(GMD_QC_MIG12.g_store_pack_pro_count),
497: p_param3 => to_char(GMD_QC_MIG12.g_store_pack_upd_count),
498: p_param4 => to_char(GMD_QC_MIG12.g_store_pack_ins_count),
499: p_param5 => to_char(GMD_QC_MIG12.g_store_pack_err_count),
500: p_app_short_name => 'GMD');
501: END IF;
502:
495: p_param1 => 'gmd_ss_storage_package',
496: p_param2 => to_char(GMD_QC_MIG12.g_store_pack_pro_count),
497: p_param3 => to_char(GMD_QC_MIG12.g_store_pack_upd_count),
498: p_param4 => to_char(GMD_QC_MIG12.g_store_pack_ins_count),
499: p_param5 => to_char(GMD_QC_MIG12.g_store_pack_err_count),
500: p_app_short_name => 'GMD');
501: END IF;
502:
503: IF (p_progress_ind = 6) THEN
511: p_token3 => 'UPD',
512: p_token4 => 'INS',
513: p_token5 => 'ERR',
514: p_param1 => 'gmd_ss_storage_history',
515: p_param2 => to_char(GMD_QC_MIG12.g_ss_storehist_pro_count),
516: p_param3 => to_char(GMD_QC_MIG12.g_ss_storehist_upd_count),
517: p_param4 => 0,
518: p_param5 => to_char(GMD_QC_MIG12.g_ss_storehist_err_count),
519: p_app_short_name => 'GMD');
512: p_token4 => 'INS',
513: p_token5 => 'ERR',
514: p_param1 => 'gmd_ss_storage_history',
515: p_param2 => to_char(GMD_QC_MIG12.g_ss_storehist_pro_count),
516: p_param3 => to_char(GMD_QC_MIG12.g_ss_storehist_upd_count),
517: p_param4 => 0,
518: p_param5 => to_char(GMD_QC_MIG12.g_ss_storehist_err_count),
519: p_app_short_name => 'GMD');
520: END IF;
514: p_param1 => 'gmd_ss_storage_history',
515: p_param2 => to_char(GMD_QC_MIG12.g_ss_storehist_pro_count),
516: p_param3 => to_char(GMD_QC_MIG12.g_ss_storehist_upd_count),
517: p_param4 => 0,
518: p_param5 => to_char(GMD_QC_MIG12.g_ss_storehist_err_count),
519: p_app_short_name => 'GMD');
520: END IF;
521:
522: END LOG_SS_COUNTS;
984: l_config_rec.SS_LAST_ASSIGNED,
985: 1
986: );
987:
988: GMD_QC_MIG12.g_quality_config_ins_count := GMD_QC_MIG12.g_quality_config_ins_count + 1;
989:
990: IF (p_commit = FND_API.G_TRUE) THEN
991: COMMIT;
992: END IF;
1003: p_message_token => 'GMA_MIGRATION_DB_ERROR',
1004: p_context => 'Quality Setup - quality config ins',
1005: p_db_error => SQLERRM,
1006: p_app_short_name => 'GMA');
1007: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1008:
1009: END CREATE_CONFIG_ROWS_FOR_WHSE;
1010:
1011:
1285: l_config_org NUMBER;
1286:
1287: BEGIN
1288:
1289: GMD_QC_MIG12.g_progress_ind := 0;
1290:
1291: x_exception_count := 0;
1292:
1293: /*==============================================
1293: /*==============================================
1294: Get Default Lab Type Profile Value
1295: ==============================================*/
1296:
1297: l_lab_profile := GMD_QC_MIG12.GET_PROFILE_VALUE('GEMMS_DEFAULT_LAB_TYPE');
1298:
1299: IF (l_lab_profile IS NULL) THEN
1300: RAISE DEFAULT_LAB_NULL;
1301: END IF;
1346: p_param1 => 'GMD_TEST_METHODS_B',
1347: p_context => 'Quality Setup',
1348: p_app_short_name => 'GMA');
1349:
1350: GMD_QC_MIG12.g_progress_ind := 1;
1351:
1352: /*================================================
1353: Loop through all test methods and assign
1354: inventory_item_id.
1353: Loop through all test methods and assign
1354: inventory_item_id.
1355: ================================================*/
1356:
1357: GMD_QC_MIG12.g_test_method_upd_count := 0;
1358: GMD_QC_MIG12.g_test_method_pro_count := 0;
1359: GMD_QC_MIG12.g_test_method_err_count := 0;
1360:
1361:
1354: inventory_item_id.
1355: ================================================*/
1356:
1357: GMD_QC_MIG12.g_test_method_upd_count := 0;
1358: GMD_QC_MIG12.g_test_method_pro_count := 0;
1359: GMD_QC_MIG12.g_test_method_err_count := 0;
1360:
1361:
1362: FOR v_test_method IN get_test_methods LOOP
1355: ================================================*/
1356:
1357: GMD_QC_MIG12.g_test_method_upd_count := 0;
1358: GMD_QC_MIG12.g_test_method_pro_count := 0;
1359: GMD_QC_MIG12.g_test_method_err_count := 0;
1360:
1361:
1362: FOR v_test_method IN get_test_methods LOOP
1363:
1362: FOR v_test_method IN get_test_methods LOOP
1363:
1364: BEGIN -- subprogram
1365:
1366: GMD_QC_MIG12.g_test_method_pro_count := GMD_QC_MIG12.g_test_method_pro_count + 1;
1367:
1368: IF (v_test_method.test_kit_item_id IS NOT NULL) THEN
1369:
1370: INV_OPM_ITEM_MIGRATION.GET_ODM_ITEM(
1402: IF (p_commit = FND_API.G_TRUE) THEN
1403: COMMIT;
1404: END IF;
1405:
1406: GMD_QC_MIG12.g_test_method_upd_count := GMD_QC_MIG12.g_test_method_upd_count + 1;
1407:
1408: EXCEPTION
1409:
1410: WHEN METHOD_ITEM_ERROR THEN
1421: p_param2 => to_char(v_test_method.test_kit_item_id),
1422: p_param3 => 'TEST_METHOD_ID',
1423: p_param4 => to_char(v_test_method.test_method_id),
1424: p_app_short_name => 'GMD');
1425: GMD_QC_MIG12.g_test_method_err_count := GMD_QC_MIG12.g_test_method_err_count + 1;
1426: x_exception_count := x_exception_count + 1;
1427:
1428: WHEN NEXT_TEST_METHOD THEN
1429: NULL;
1435: p_message_token => 'GMA_MIGRATION_DB_ERROR',
1436: p_context => 'Quality Setup - gmd_test_methods_b',
1437: p_db_error => SQLERRM,
1438: p_app_short_name => 'GMA');
1439: GMD_QC_MIG12.g_test_method_err_count := GMD_QC_MIG12.g_test_method_err_count + 1;
1440: x_exception_count := x_exception_count + 1;
1441:
1442: END; -- subprogram
1443:
1447: /*==============================================
1448: Log end of gmd_test_method migration.
1449: ==============================================*/
1450:
1451: LOG_SETUP_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
1452:
1453:
1454: /*=========================================
1455: Migrate gmd_quality_config.
1455: Migrate gmd_quality_config.
1456: First get profile values.
1457: =========================================*/
1458:
1459: P_exact_match := GMD_QC_MIG12.GET_PROFILE_VALUE('QC$EXACTSPECMATCH');
1460:
1461: /*================================================
1462: Log Exact Match Profile
1463: ================================================*/
1481: IF (P_exact_match = 'N') THEN
1482: P_exact_match := NULL;
1483: END IF;
1484:
1485: P_inc_opt := GMD_QC_MIG12.GET_PROFILE_VALUE('GMD_INCLUDE_OPTIONAL_TEST');
1486:
1487: /*================================================
1488: Log Include Optional Test Profile
1489: ================================================*/
1511: IF (P_inc_opt = 'N') THEN
1512: P_inc_opt := NULL;
1513: END IF;
1514:
1515: P_version_control := GMD_QC_MIG12.GET_PROFILE_VALUE('GMD_OPERATION_VERSION_CONTROL');
1516:
1517: /*================================================
1518: Log Operation Version Control Profile
1519: ================================================*/
1558: where org is null. First pass gets
1559: non_null records.
1560: ==============================================*/
1561:
1562: GMD_QC_MIG12.g_quality_config_upd_count :=0;
1563: GMD_QC_MIG12.g_quality_config_ins_count :=0;
1564: GMD_QC_MIG12.g_quality_config_pro_count :=0;
1565: GMD_QC_MIG12.g_quality_config_err_count :=0;
1566: GMD_QC_MIG12.g_progress_ind := 2;
1559: non_null records.
1560: ==============================================*/
1561:
1562: GMD_QC_MIG12.g_quality_config_upd_count :=0;
1563: GMD_QC_MIG12.g_quality_config_ins_count :=0;
1564: GMD_QC_MIG12.g_quality_config_pro_count :=0;
1565: GMD_QC_MIG12.g_quality_config_err_count :=0;
1566: GMD_QC_MIG12.g_progress_ind := 2;
1567:
1560: ==============================================*/
1561:
1562: GMD_QC_MIG12.g_quality_config_upd_count :=0;
1563: GMD_QC_MIG12.g_quality_config_ins_count :=0;
1564: GMD_QC_MIG12.g_quality_config_pro_count :=0;
1565: GMD_QC_MIG12.g_quality_config_err_count :=0;
1566: GMD_QC_MIG12.g_progress_ind := 2;
1567:
1568:
1561:
1562: GMD_QC_MIG12.g_quality_config_upd_count :=0;
1563: GMD_QC_MIG12.g_quality_config_ins_count :=0;
1564: GMD_QC_MIG12.g_quality_config_pro_count :=0;
1565: GMD_QC_MIG12.g_quality_config_err_count :=0;
1566: GMD_QC_MIG12.g_progress_ind := 2;
1567:
1568:
1569: FOR v_qual_config IN get_quality_config LOOP
1562: GMD_QC_MIG12.g_quality_config_upd_count :=0;
1563: GMD_QC_MIG12.g_quality_config_ins_count :=0;
1564: GMD_QC_MIG12.g_quality_config_pro_count :=0;
1565: GMD_QC_MIG12.g_quality_config_err_count :=0;
1566: GMD_QC_MIG12.g_progress_ind := 2;
1567:
1568:
1569: FOR v_qual_config IN get_quality_config LOOP
1570:
1570:
1571: BEGIN -- start of subprogram
1572:
1573:
1574: GMD_QC_MIG12.g_quality_config_pro_count := GMD_QC_MIG12.g_quality_config_pro_count + 1;
1575:
1576: /*=====================================
1577: Check if organization migrated.
1578: ======================================*/
1602:
1603: IF (v_qual_config.in_spec_lot_status IS NULL) THEN
1604: l_in_spec_status_id := NULL;
1605: ELSE
1606: l_in_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(v_qual_config.in_spec_lot_status);
1607: IF (l_in_spec_status_id IS NULL) THEN
1608: RAISE IN_SPEC_ERROR;
1609: END IF;
1610: END IF;
1611:
1612: IF (v_qual_config.out_of_spec_lot_status IS NULL) THEN
1613: l_out_spec_status_id := NULL;
1614: ELSE
1615: l_out_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(v_qual_config.out_of_spec_lot_status);
1616: IF (l_out_spec_status_id IS NULL) THEN
1617: RAISE OUT_SPEC_ERROR;
1618: END IF;
1619: END IF;
1679: IF (p_commit = FND_API.G_TRUE) THEN
1680: COMMIT;
1681: END IF;
1682:
1683: GMD_QC_MIG12.g_quality_config_upd_count := GMD_QC_MIG12.g_quality_config_upd_count + 1;
1684:
1685: EXCEPTION
1686:
1687: WHEN MIG_NO_ORG THEN
1699: p_param3 => 'ORGN_CODE',
1700: p_param4 => v_qual_config.orgn_code,
1701: p_app_short_name => 'GMD');
1702:
1703: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1704: x_exception_count := x_exception_count + 1;
1705:
1706:
1707: WHEN REASON_CODE_ERROR THEN
1716: p_param1 => v_qual_config.inv_trans_reason_code,
1717: p_param2 => 'orgn_code',
1718: p_param3 => v_qual_config.orgn_code,
1719: p_app_short_name => 'GMD');
1720: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1721: x_exception_count := x_exception_count + 1;
1722:
1723: WHEN IN_SPEC_ERROR THEN
1724: GMA_COMMON_LOGGING.gma_migration_central_log (
1732: p_param1 => v_qual_config.in_spec_lot_status,
1733: p_param2 => 'orgn_code',
1734: p_param3 => v_qual_config.orgn_code,
1735: p_app_short_name => 'GMD');
1736: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1737: x_exception_count := x_exception_count + 1;
1738:
1739: WHEN OUT_SPEC_ERROR THEN
1740: GMA_COMMON_LOGGING.gma_migration_central_log (
1748: p_param1 => v_qual_config.out_of_spec_lot_status,
1749: p_param2 => 'orgn_code',
1750: p_param3 => v_qual_config.orgn_code,
1751: p_app_short_name => 'GMD');
1752: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1753: x_exception_count := x_exception_count + 1;
1754:
1755: WHEN GET_LAB_ERROR THEN
1756: GMA_COMMON_LOGGING.gma_migration_central_log (
1764: p_param1 => v_qual_config.orgn_code,
1765: p_param2 => 'orgn_code',
1766: p_param3 => v_qual_config.orgn_code,
1767: p_app_short_name => 'GMD');
1768: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1769: x_exception_count := x_exception_count + 1;
1770:
1771: WHEN OTHERS THEN
1772: GMA_COMMON_LOGGING.gma_migration_central_log (
1775: p_message_token => 'GMA_MIGRATION_DB_ERROR',
1776: p_context => 'Quality Setup - quality config update',
1777: p_db_error => SQLERRM,
1778: p_app_short_name => 'GMA');
1779: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
1780: x_exception_count := x_exception_count + 1;
1781:
1782: END; -- end of subprogram
1783:
1804: Do not process the null record
1805: if existing gmd_quality_config row
1806: were not successfully migrated.
1807: ====================================*/
1808: GMD_QC_MIG12.g_quality_config_pro_count := GMD_QC_MIG12.g_quality_config_pro_count + 1;
1809: END IF;
1810:
1811: CLOSE get_null_quality_config;
1812:
1856:
1857: IF (l_config_rec.in_spec_lot_status IS NULL) THEN
1858: l_in_spec_status_id := NULL;
1859: ELSE
1860: l_in_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_config_rec.in_spec_lot_status);
1861: IF (l_in_spec_status_id IS NULL) THEN
1862: RAISE IN_SPEC_ERROR;
1863: END IF;
1864: END IF;
1865:
1866: IF (l_config_rec.out_of_spec_lot_status IS NULL) THEN
1867: l_out_spec_status_id := NULL;
1868: ELSE
1869: l_out_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_config_rec.out_of_spec_lot_status);
1870: IF (l_out_spec_status_id IS NULL) THEN
1871: RAISE OUT_SPEC_ERROR;
1872: END IF;
1873: END IF;
1909: /*=================================
1910: Create Text Code if it exists.
1911: =================================*/
1912: IF (l_config_rec.text_code IS NOT NULL AND l_config_rec.text_code > 0) THEN
1913: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_config_rec.text_code, p_migration_run_id);
1914: ELSE
1915: l_text_code := NULL;
1916: END IF;
1917:
2035: l_stbl_last_assigned,
2036: 1
2037: );
2038:
2039: GMD_QC_MIG12.g_quality_config_ins_count := GMD_QC_MIG12.g_quality_config_ins_count + 1;
2040:
2041: IF (p_commit = FND_API.G_TRUE) THEN
2042: COMMIT;
2043: END IF;
2062: p_param1 => to_char(v_orgs(l_org_count)),
2063: p_param2 => 'orgn_code',
2064: p_param3 => l_config_rec.orgn_code,
2065: p_app_short_name => 'GMD');
2066: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2067: x_exception_count := x_exception_count + 1;
2068:
2069: WHEN GET_LAB_ERROR THEN
2070: GMA_COMMON_LOGGING.gma_migration_central_log (
2078: p_param1 => l_orgn_code,
2079: p_param2 => 'orgn_code',
2080: p_param3 => l_orgn_code,
2081: p_app_short_name => 'GMD');
2082: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2083: x_exception_count := x_exception_count + 1;
2084:
2085: WHEN OTHERS THEN
2086: GMA_COMMON_LOGGING.gma_migration_central_log (
2089: p_message_token => 'GMA_MIGRATION_DB_ERROR',
2090: p_context => 'Quality Setup - quality config ins',
2091: p_db_error => SQLERRM,
2092: p_app_short_name => 'GMA');
2093: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2094: x_exception_count := x_exception_count + 1;
2095:
2096:
2097: END; -- subprogram
2118:
2119: IF (p_commit = FND_API.G_TRUE) THEN
2120: COMMIT;
2121: END IF;
2122: GMD_QC_MIG12.g_quality_config_upd_count := GMD_QC_MIG12.g_quality_config_upd_count + 1;
2123:
2124: END IF;
2125:
2126:
2201: p_param1 => l_config_rec.inv_trans_reason_code,
2202: p_param2 => 'orgn_code',
2203: p_param3 => l_config_rec.orgn_code,
2204: p_app_short_name => 'GMD');
2205: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2206: x_exception_count := x_exception_count + 1;
2207:
2208: WHEN IN_SPEC_ERROR THEN
2209: GMA_COMMON_LOGGING.gma_migration_central_log (
2217: p_param1 => l_config_rec.in_spec_lot_status,
2218: p_param2 => 'orgn_code',
2219: p_param3 => l_config_rec.orgn_code,
2220: p_app_short_name => 'GMD');
2221: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2222: x_exception_count := x_exception_count + 1;
2223:
2224: WHEN OUT_SPEC_ERROR THEN
2225: GMA_COMMON_LOGGING.gma_migration_central_log (
2233: p_param1 => l_config_rec.out_of_spec_lot_status,
2234: p_param2 => 'orgn_code',
2235: p_param3 => l_config_rec.orgn_code,
2236: p_app_short_name => 'GMD');
2237: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2238: x_exception_count := x_exception_count + 1;
2239:
2240: WHEN OTHERS THEN
2241: GMA_COMMON_LOGGING.gma_migration_central_log (
2244: p_message_token => 'GMA_MIGRATION_DB_ERROR',
2245: p_context => 'Quality Setup - quality config ins',
2246: p_db_error => SQLERRM,
2247: p_app_short_name => 'GMA');
2248: GMD_QC_MIG12.g_quality_config_err_count := GMD_QC_MIG12.g_quality_config_err_count + 1;
2249: x_exception_count := x_exception_count + 1;
2250:
2251: END; -- end of null subprogram
2252:
2256:
2257: /*==============================================
2258: Log end of gmd_quality_config migration.
2259: ==============================================*/
2260: LOG_SETUP_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
2261:
2262: /*==============================================
2263: Log Start of gmd_sampling_plan_b migration.
2264: ==============================================*/
2272: p_param1 => 'GMD_SAMPLING_PLAN_B',
2273: p_context => 'Quality Setup',
2274: p_app_short_name => 'GMA');
2275:
2276: GMD_QC_MIG12.g_progress_ind := 3;
2277:
2278:
2279: /*==============================================
2280: Loop through gmd_sampling_plans.
2281: Check that uom migrated and migrate uom for
2282: Quantity type plan.
2283: ==============================================*/
2284:
2285: GMD_QC_MIG12.g_sampling_plan_upd_count :=0;
2286: GMD_QC_MIG12.g_sampling_plan_pro_count :=0;
2287: GMD_QC_MIG12.g_sampling_plan_err_count :=0;
2288:
2289:
2282: Quantity type plan.
2283: ==============================================*/
2284:
2285: GMD_QC_MIG12.g_sampling_plan_upd_count :=0;
2286: GMD_QC_MIG12.g_sampling_plan_pro_count :=0;
2287: GMD_QC_MIG12.g_sampling_plan_err_count :=0;
2288:
2289:
2290: FOR l_sampling_plan IN get_sampling_plan LOOP
2283: ==============================================*/
2284:
2285: GMD_QC_MIG12.g_sampling_plan_upd_count :=0;
2286: GMD_QC_MIG12.g_sampling_plan_pro_count :=0;
2287: GMD_QC_MIG12.g_sampling_plan_err_count :=0;
2288:
2289:
2290: FOR l_sampling_plan IN get_sampling_plan LOOP
2291:
2290: FOR l_sampling_plan IN get_sampling_plan LOOP
2291:
2292: BEGIN -- subprogram
2293:
2294: GMD_QC_MIG12.g_sampling_plan_pro_count := GMD_QC_MIG12.g_sampling_plan_pro_count + 1;
2295:
2296: IF (l_sampling_plan.frequency_type = 'Q' and l_sampling_plan.frequency_per IS NOT NULL) THEN
2297: l_sampling_uom := GMA_MIGRATION_UTILS.get_uom_code(l_sampling_plan.frequency_per);
2298: IF (l_sampling_uom IS NULL) THEN
2310: IF (p_commit = FND_API.G_TRUE) THEN
2311: COMMIT;
2312: END IF;
2313:
2314: GMD_QC_MIG12.g_sampling_plan_upd_count := GMD_QC_MIG12.g_sampling_plan_upd_count + 1;
2315:
2316: EXCEPTION
2317:
2318: WHEN MIG_NO_UOM THEN
2328: p_param2 => to_char(l_sampling_plan.sampling_plan_id),
2329: p_param3 => l_sampling_plan.frequency_per,
2330: p_app_short_name => 'GMD');
2331:
2332: GMD_QC_MIG12.g_sampling_plan_err_count := GMD_QC_MIG12.g_sampling_plan_err_count + 1;
2333: x_exception_count := x_exception_count + 1;
2334:
2335: WHEN OTHERS THEN
2336: GMA_COMMON_LOGGING.gma_migration_central_log (
2339: p_message_token => 'GMA_MIGRATION_DB_ERROR',
2340: p_context => 'Quality Setup - gmd_sampling_plan',
2341: p_db_error => SQLERRM,
2342: p_app_short_name => 'GMA');
2343: GMD_QC_MIG12.g_sampling_plan_err_count := GMD_QC_MIG12.g_sampling_plan_err_count + 1;
2344: x_exception_count := x_exception_count + 1;
2345:
2346:
2347: END; -- end subprogram
2351:
2352: /*=================================
2353: Log sampling plan migration.
2354: =================================*/
2355: LOG_SETUP_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
2356:
2357: RETURN;
2358:
2359: EXCEPTION
2381: x_exception_count := x_exception_count + 1;
2382:
2383: WHEN OTHERS THEN
2384:
2385: LOG_SETUP_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
2386:
2387: GMA_COMMON_LOGGING.gma_migration_central_log (
2388: p_run_id => p_migration_run_id,
2389: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
2574:
2575: BEGIN
2576:
2577: x_exception_count := 0;
2578: GMD_QC_MIG12.g_progress_ind := 0;
2579:
2580: /*==============================================
2581: Log Start of gmd_samples migration.
2582: ==============================================*/
2594: /*=======================================
2595: Migrate gmd_samples.
2596: =======================================*/
2597:
2598: GMD_QC_MIG12.g_sample_upd_count := 0;
2599: Gmd_Qc_Mig12.G_Sample_Err_Count := 0;
2600: GMD_QC_MIG12.g_sample_pro_count := 0;
2601: GMD_QC_MIG12.g_progress_ind := 1;
2602:
2595: Migrate gmd_samples.
2596: =======================================*/
2597:
2598: GMD_QC_MIG12.g_sample_upd_count := 0;
2599: Gmd_Qc_Mig12.G_Sample_Err_Count := 0;
2600: GMD_QC_MIG12.g_sample_pro_count := 0;
2601: GMD_QC_MIG12.g_progress_ind := 1;
2602:
2603: FOR v_samp_rec IN get_samples LOOP
2596: =======================================*/
2597:
2598: GMD_QC_MIG12.g_sample_upd_count := 0;
2599: Gmd_Qc_Mig12.G_Sample_Err_Count := 0;
2600: GMD_QC_MIG12.g_sample_pro_count := 0;
2601: GMD_QC_MIG12.g_progress_ind := 1;
2602:
2603: FOR v_samp_rec IN get_samples LOOP
2604:
2597:
2598: GMD_QC_MIG12.g_sample_upd_count := 0;
2599: Gmd_Qc_Mig12.G_Sample_Err_Count := 0;
2600: GMD_QC_MIG12.g_sample_pro_count := 0;
2601: GMD_QC_MIG12.g_progress_ind := 1;
2602:
2603: FOR v_samp_rec IN get_samples LOOP
2604:
2605: BEGIN -- start sample subprogram
2607: l_parent_lot_number := null; -- 14355581
2608: l_organization_id := null; -- 14355581
2609: l_lab_organization_id := null; -- 14355581
2610:
2611: GMD_QC_MIG12.g_sample_pro_count := GMD_QC_MIG12.g_sample_pro_count + 1;
2612:
2613: /*======================================
2614: Get Organization ID.
2615: ======================================*/
2639: /*========================
2640: Get Subinventory.
2641: ========================*/
2642: IF (v_samp_rec.whse_code IS NOT NULL) THEN
2643: GMD_QC_MIG12.GET_WHSE_INFO(
2644: v_samp_rec.whse_code,
2645: ls_organization_id,
2646: l_subinv_ind,
2647: l_loct_ctl);
2674: IF (v_samp_rec.location IS NOT NULL) THEN
2675: IF (v_samp_rec.location = 'NONE') THEN
2676: l_locator_id := NULL;
2677: ELSE
2678: l_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID(v_samp_rec.whse_code, v_samp_rec.location);
2679: IF (l_locator_id IS NULL) THEN
2680: IF (l_loct_ctl = 2) THEN
2681: /*======================================
2682: Create a Non-validated location.
2709: associated with the locator matches the
2710: subinventory code already assigned.
2711: ==============================================*/
2712:
2713: GMD_QC_MIG12.GET_SUBINV_DATA(l_locator_id,
2714: l_subinv,
2715: lsub_organization_id);
2716:
2717: IF (lsub_organization_id IS NULL) THEN
2745: Get Storage Organization id and Subinventory.
2746: =================================================*/
2747:
2748: IF (v_samp_rec.storage_whse IS NOT NULL) THEN
2749: GMD_QC_MIG12.GET_WHSE_INFO (
2750: p_whse_code => v_samp_rec.storage_whse,
2751: x_organization_id => l_storage_org_id,
2752: x_subinv_ind => l_store_subinv_ind,
2753: x_loct_ctl => l_store_loct_ctl);
2765: IF (v_samp_rec.storage_location IS NOT NULL) THEN
2766: IF (v_samp_rec.storage_location = 'NONE') THEN
2767: l_storage_locator_id := NULL;
2768: ELSE
2769: l_storage_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID(v_samp_rec.storage_whse, v_samp_rec.storage_location);
2770: IF (l_storage_locator_id IS NULL) THEN
2771: IF (l_loct_ctl = 2) THEN
2772: /*======================================
2773: Create a Non-validated location.
2806: /*=================================================
2807: Get Source Organization id and Subinventory.
2808: =================================================*/
2809: IF (v_samp_rec.source_whse IS NOT NULL) THEN
2810: gmd_qc_mig12.get_whse_info (p_whse_code => v_samp_rec.source_whse
2811: , x_organization_id => l_source_org_id
2812: , x_subinv_ind => l_source_subinv_ind
2813: , x_loct_ctl => l_source_loct_ctl);
2814:
2825: IF (v_samp_rec.source_location = 'NONE') THEN
2826: l_source_locator_id := NULL;
2827: ELSE
2828: l_source_locator_id :=
2829: gmd_qc_mig12.get_locator_id (v_samp_rec.source_whse, v_samp_rec.source_location);
2830:
2831: IF (l_source_locator_id IS NULL) THEN
2832: IF (l_loct_ctl = 2) THEN
2833: /*======================================
2857: Locator. Check to see if the subinventory
2858: associated with the locator matches the
2859: subinventory code already assigned.
2860: ==============================================*/
2861: gmd_qc_mig12.get_subinv_data (l_source_locator_id
2862: , l_source_subinv_loc
2863: , l_src_sub_organization_id);
2864:
2865: IF (l_src_sub_organization_id IS NULL) THEN
3132: IF (p_commit = FND_API.G_TRUE) THEN
3133: COMMIT;
3134: END IF;
3135:
3136: GMD_QC_MIG12.g_sample_upd_count := GMD_QC_MIG12.g_sample_upd_count + 1;
3137:
3138: EXCEPTION
3139:
3140: WHEN MIG_NO_ORG THEN
3151: p_param2 => 'ORGN_CODE',
3152: p_param3 => 'SAMPLE_ID',
3153: p_param4 => to_char(v_samp_rec.sample_id),
3154: p_app_short_name => 'GMD');
3155: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3156: x_exception_count := x_exception_count + 1;
3157:
3158: WHEN MIG_NO_LAB_ORG THEN
3159: GMA_COMMON_LOGGING.gma_migration_central_log (
3169: p_param2 => 'QC_LAB_ORGN_CODE',
3170: p_param3 => 'SAMPLE_ID',
3171: p_param4 => to_char(v_samp_rec.sample_id),
3172: p_app_short_name => 'GMD');
3173: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3174: x_exception_count := x_exception_count + 1;
3175:
3176: WHEN MIG_WHSE_ERROR THEN
3177: GMA_COMMON_LOGGING.gma_migration_central_log (
3188: p_param3 => 'SAMPLE_ID',
3189: p_param4 => to_char(v_samp_rec.sample_id),
3190: p_app_short_name => 'GMD');
3191: ROLLBACK;
3192: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3193: x_exception_count := x_exception_count + 1;
3194:
3195: WHEN MIG_SUBINV_MISMATCH THEN
3196: GMA_COMMON_LOGGING.gma_migration_central_log (
3210: p_param4 => to_char(l_organization_id),
3211: p_param5 => to_char(ls_organization_id),
3212: p_app_short_name => 'GMD');
3213: ROLLBACK;
3214: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3215: x_exception_count := x_exception_count + 1;
3216:
3217: WHEN MIG_NON_LOC_FAIL THEN
3218: GMA_COMMON_LOGGING.gma_migration_central_log (
3227: p_param2 => to_char(v_samp_rec.sample_id),
3228: p_param3 => 'LOCATION',
3229: p_app_short_name => 'GMD');
3230: ROLLBACK;
3231: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3232: x_exception_count := x_exception_count + 1;
3233:
3234: WHEN MIG_LOCATOR_ID THEN
3235: GMA_COMMON_LOGGING.gma_migration_central_log (
3248: p_param4 => 'SAMPLE_ID',
3249: p_param5 => to_char(v_samp_rec.sample_id),
3250: p_app_short_name => 'GMD');
3251: ROLLBACK;
3252: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3253: x_exception_count := x_exception_count + 1;
3254:
3255: WHEN MIG_SUBINV_ERROR THEN
3256: GMA_COMMON_LOGGING.gma_migration_central_log (
3265: p_param2 => 'SAMPLE_ID',
3266: p_param3 => to_char(v_samp_rec.sample_id),
3267: p_app_short_name => 'GMD');
3268: ROLLBACK;
3269: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3270: x_exception_count := x_exception_count + 1;
3271:
3272:
3273: WHEN MIG_STORE_WHSE_ERROR THEN
3285: p_param3 => 'SAMPLE_ID',
3286: p_param4 => to_char(v_samp_rec.sample_id),
3287: p_app_short_name => 'GMD');
3288: ROLLBACK;
3289: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3290: x_exception_count := x_exception_count + 1;
3291:
3292: WHEN MIG_STORE_NON_LOC_ERROR THEN
3293: GMA_COMMON_LOGGING.gma_migration_central_log (
3302: p_param2 => to_char(v_samp_rec.sample_id),
3303: p_param3 => 'STORAGE_OCATION',
3304: p_app_short_name => 'GMD');
3305: ROLLBACK;
3306: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3307: x_exception_count := x_exception_count + 1;
3308:
3309: WHEN MIG_STORE_LOCATOR_ID THEN
3310: GMA_COMMON_LOGGING.gma_migration_central_log (
3323: p_param4 => 'SAMPLE_ID',
3324: p_param5 => to_char(v_samp_rec.sample_id),
3325: p_app_short_name => 'GMD');
3326: ROLLBACK;
3327: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3328: x_exception_count := x_exception_count + 1;
3329:
3330: -- BEGIN Bug# 5261810
3331: -- Added code to handle exceptions for source_whse and source_location
3344: p_param3 => 'SAMPLE_ID',
3345: p_param4 => to_char(v_samp_rec.sample_id),
3346: p_app_short_name => 'GMD');
3347: ROLLBACK;
3348: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3349: x_exception_count := x_exception_count + 1;
3350:
3351: WHEN MIG_SOURCE_NON_LOC_ERROR THEN
3352: GMA_COMMON_LOGGING.gma_migration_central_log (
3361: p_param2 => to_char(v_samp_rec.sample_id),
3362: p_param3 => 'SOURCE_LOCATION',
3363: p_app_short_name => 'GMD');
3364: ROLLBACK;
3365: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3366: x_exception_count := x_exception_count + 1;
3367:
3368: WHEN MIG_SOURCE_LOCATOR_ID THEN
3369: GMA_COMMON_LOGGING.gma_migration_central_log (
3382: p_param4 => 'SAMPLE_ID',
3383: p_param5 => to_char(v_samp_rec.sample_id),
3384: p_app_short_name => 'GMD');
3385: ROLLBACK;
3386: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3387: x_exception_count := x_exception_count + 1;
3388:
3389: WHEN MIG_SOURCE_SUBINV_ERROR THEN
3390: GMA_COMMON_LOGGING.gma_migration_central_log (
3399: p_param2 => 'SAMPLE_ID',
3400: p_param3 => to_char(v_samp_rec.sample_id),
3401: p_app_short_name => 'GMD');
3402: ROLLBACK;
3403: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3404: x_exception_count := x_exception_count + 1;
3405: -- End Bug# 5261810
3406: WHEN MIG_ODM_ITEM THEN
3407: GMA_COMMON_LOGGING.gma_migration_central_log (
3418: p_param3 => 'SAMPLE_ID',
3419: p_param4 => to_char(v_samp_rec.sample_id),
3420: p_app_short_name => 'GMD');
3421: ROLLBACK;
3422: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3423: x_exception_count := x_exception_count + 1;
3424:
3425: WHEN MIG_OPM_ITEM THEN
3426: GMA_COMMON_LOGGING.gma_migration_central_log (
3435: p_param2 => 'SAMPLE_ID',
3436: p_param3 => to_char(v_samp_rec.sample_id),
3437: p_app_short_name => 'GMD');
3438: ROLLBACK;
3439: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3440: x_exception_count := x_exception_count + 1;
3441:
3442: WHEN MIG_LOT_ERROR THEN
3443: GMA_COMMON_LOGGING.gma_migration_central_log (
3450: p_param1 => 'SAMPLE_ID',
3451: p_param2 => to_char(v_samp_rec.sample_id),
3452: p_app_short_name => 'GMD');
3453: ROLLBACK;
3454: GMD_QC_MIG12.g_sample_err_count := GMD_QC_MIG12.g_sample_err_count + 1;
3455: x_exception_count := x_exception_count + 1;
3456:
3457: WHEN OTHERS THEN
3458:
3474: /*==============================================
3475: Log number of updates to gmd_samples.
3476: ==============================================*/
3477:
3478: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3479:
3480:
3481: /*==============================================
3482: Log Start of gmd_sampling_events migration.
3492: p_context => 'Quality Samples',
3493: p_app_short_name => 'GMA');
3494:
3495:
3496: GMD_QC_MIG12.g_sample_event_upd_count := 0;
3497: GMD_QC_MIG12.g_sample_event_err_count := 0;
3498: GMD_QC_MIG12.g_sample_event_pro_count := 0;
3499: GMD_QC_MIG12.g_progress_ind := 2;
3500:
3493: p_app_short_name => 'GMA');
3494:
3495:
3496: GMD_QC_MIG12.g_sample_event_upd_count := 0;
3497: GMD_QC_MIG12.g_sample_event_err_count := 0;
3498: GMD_QC_MIG12.g_sample_event_pro_count := 0;
3499: GMD_QC_MIG12.g_progress_ind := 2;
3500:
3501: FOR v_samp_event IN get_sampling_event LOOP
3494:
3495:
3496: GMD_QC_MIG12.g_sample_event_upd_count := 0;
3497: GMD_QC_MIG12.g_sample_event_err_count := 0;
3498: GMD_QC_MIG12.g_sample_event_pro_count := 0;
3499: GMD_QC_MIG12.g_progress_ind := 2;
3500:
3501: FOR v_samp_event IN get_sampling_event LOOP
3502:
3495:
3496: GMD_QC_MIG12.g_sample_event_upd_count := 0;
3497: GMD_QC_MIG12.g_sample_event_err_count := 0;
3498: GMD_QC_MIG12.g_sample_event_pro_count := 0;
3499: GMD_QC_MIG12.g_progress_ind := 2;
3500:
3501: FOR v_samp_event IN get_sampling_event LOOP
3502:
3503: BEGIN -- sample event subprogram
3501: FOR v_samp_event IN get_sampling_event LOOP
3502:
3503: BEGIN -- sample event subprogram
3504:
3505: GMD_QC_MIG12.g_sample_event_pro_count := GMD_QC_MIG12.g_sample_event_pro_count + 1;
3506: -- ===============================
3507: -- Get Data from gmd_samples.
3508: --===============================
3509: OPEN get_sample_data(v_samp_event.sampling_event_id);
3532: IF (p_commit = FND_API.G_TRUE) THEN
3533: COMMIT;
3534: END IF;
3535:
3536: GMD_QC_MIG12.g_sample_event_upd_count := GMD_QC_MIG12.g_sample_event_upd_count + 1;
3537:
3538: EXCEPTION
3539:
3540: WHEN MIG_GET_SAMPLE_ERROR THEN
3547: p_context => 'Quality Samples - gmd_sampling_events',
3548: p_token1 => 'SAMPLEVT',
3549: p_param1 => to_char(v_samp_event.sampling_event_id),
3550: p_app_short_name => 'GMD'); */
3551: GMD_QC_MIG12.g_sample_event_err_count := GMD_QC_MIG12.g_sample_event_err_count + 1;
3552: x_exception_count := x_exception_count + 1;
3553:
3554: WHEN OTHERS THEN
3555: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3551: GMD_QC_MIG12.g_sample_event_err_count := GMD_QC_MIG12.g_sample_event_err_count + 1;
3552: x_exception_count := x_exception_count + 1;
3553:
3554: WHEN OTHERS THEN
3555: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3556: GMA_COMMON_LOGGING.gma_migration_central_log (
3557: p_run_id => p_migration_run_id,
3558: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
3559: p_message_token => 'GMA_MIGRATION_DB_ERROR',
3592: /*==============================================
3593: Log number of updates to gmd_sampling_event.
3594: ==============================================*/
3595:
3596: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3597:
3598:
3599: EXCEPTION
3600:
3598:
3599: EXCEPTION
3600:
3601: WHEN OTHERS THEN
3602: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3603: GMA_COMMON_LOGGING.gma_migration_central_log (
3604: p_run_id => p_migration_run_id,
3605: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
3606: p_message_token => 'GMA_MIGRATION_DB_ERROR',
3676: p_param1 => 'GMD_RESULTS',
3677: p_context => 'Quality Results',
3678: p_app_short_name => 'GMA');
3679:
3680: GMD_QC_MIG12.g_result_upd_count := 0;
3681: GMD_QC_MIG12.g_result_pro_count := 0;
3682: GMD_QC_MIG12.g_result_err_count := 0;
3683: GMD_QC_MIG12.g_progress_ind := 3;
3684:
3677: p_context => 'Quality Results',
3678: p_app_short_name => 'GMA');
3679:
3680: GMD_QC_MIG12.g_result_upd_count := 0;
3681: GMD_QC_MIG12.g_result_pro_count := 0;
3682: GMD_QC_MIG12.g_result_err_count := 0;
3683: GMD_QC_MIG12.g_progress_ind := 3;
3684:
3685: UPDATE gmd_results
3678: p_app_short_name => 'GMA');
3679:
3680: GMD_QC_MIG12.g_result_upd_count := 0;
3681: GMD_QC_MIG12.g_result_pro_count := 0;
3682: GMD_QC_MIG12.g_result_err_count := 0;
3683: GMD_QC_MIG12.g_progress_ind := 3;
3684:
3685: UPDATE gmd_results
3686: SET migrated_ind = 1
3679:
3680: GMD_QC_MIG12.g_result_upd_count := 0;
3681: GMD_QC_MIG12.g_result_pro_count := 0;
3682: GMD_QC_MIG12.g_result_err_count := 0;
3683: GMD_QC_MIG12.g_progress_ind := 3;
3684:
3685: UPDATE gmd_results
3686: SET migrated_ind = 1
3687: WHERE test_kit_item_id is null
3692: FOR v_result IN get_results LOOP
3693:
3694: BEGIN -- results subprogram
3695:
3696: GMD_QC_MIG12.g_result_pro_count := GMD_QC_MIG12.g_result_pro_count + 1;
3697: /*======================================
3698: Check if organizations migrated.
3699: ======================================*/
3700: IF (v_result.lab_organization_id IS NULL and v_result.qc_lab_orgn_code IS NOT NULL) THEN
3777: IF (p_commit = FND_API.G_TRUE) THEN
3778: COMMIT;
3779: END IF;
3780:
3781: GMD_QC_MIG12.g_result_upd_count := GMD_QC_MIG12.g_result_upd_count + 1;
3782:
3783: EXCEPTION
3784:
3785: WHEN MIG_NO_LAB_ORG THEN
3796: p_param2 => 'QC_LAB_ORGN_CODE',
3797: p_param3 => 'RESULT_ID',
3798: p_param4 => to_char(v_result.result_id),
3799: p_app_short_name => 'GMD');
3800: GMD_QC_MIG12.g_result_err_count := GMD_QC_MIG12.g_result_err_count + 1;
3801: x_exception_count := x_exception_count + 1;
3802:
3803: WHEN NEXTRESULT THEN
3804: NULL;
3817: p_param2 => to_char(v_result.test_kit_item_id),
3818: p_param3 => 'RESULT_ID',
3819: p_param4 => to_char(v_result.result_id),
3820: p_app_short_name => 'GMD');
3821: GMD_QC_MIG12.g_result_err_count := GMD_QC_MIG12.g_result_err_count + 1;
3822: x_exception_count := x_exception_count + 1;
3823:
3824: WHEN MIG_LOT_ERROR THEN
3825: GMA_COMMON_LOGGING.gma_migration_central_log (
3831: p_token2 => 'ROWV',
3832: p_param1 => 'RESULT_ID',
3833: p_param2 => to_char(v_result.result_id),
3834: p_app_short_name => 'GMD');
3835: GMD_QC_MIG12.g_result_err_count := GMD_QC_MIG12.g_result_err_count + 1;
3836: x_exception_count := x_exception_count + 1;
3837:
3838: WHEN OTHERS THEN
3839: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3835: GMD_QC_MIG12.g_result_err_count := GMD_QC_MIG12.g_result_err_count + 1;
3836: x_exception_count := x_exception_count + 1;
3837:
3838: WHEN OTHERS THEN
3839: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3840: GMA_COMMON_LOGGING.gma_migration_central_log (
3841: p_run_id => p_migration_run_id,
3842: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
3843: p_message_token => 'GMA_MIGRATION_DB_ERROR',
3853: /*==============================================
3854: Log number of updates to gmd_results.
3855: ==============================================*/
3856:
3857: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3858:
3859: EXCEPTION
3860:
3861: WHEN OTHERS THEN
3858:
3859: EXCEPTION
3860:
3861: WHEN OTHERS THEN
3862: LOG_SAMPLE_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
3863: GMA_COMMON_LOGGING.gma_migration_central_log (
3864: p_run_id => p_migration_run_id,
3865: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
3866: p_message_token => 'GMA_MIGRATION_DB_ERROR',
4370: /*====================================
4371: Migrate gmd_specifications_b.
4372: ====================================*/
4373:
4374: GMD_QC_MIG12.g_progress_ind := 1;
4375: GMD_QC_MIG12.g_specs_pro_count := 0;
4376: GMD_QC_MIG12.g_specs_upd_count := 0;
4377: GMD_QC_MIG12.g_specs_err_count := 0;
4378:
4371: Migrate gmd_specifications_b.
4372: ====================================*/
4373:
4374: GMD_QC_MIG12.g_progress_ind := 1;
4375: GMD_QC_MIG12.g_specs_pro_count := 0;
4376: GMD_QC_MIG12.g_specs_upd_count := 0;
4377: GMD_QC_MIG12.g_specs_err_count := 0;
4378:
4379: FOR v_specs_b IN get_specs LOOP
4372: ====================================*/
4373:
4374: GMD_QC_MIG12.g_progress_ind := 1;
4375: GMD_QC_MIG12.g_specs_pro_count := 0;
4376: GMD_QC_MIG12.g_specs_upd_count := 0;
4377: GMD_QC_MIG12.g_specs_err_count := 0;
4378:
4379: FOR v_specs_b IN get_specs LOOP
4380: BEGIN -- specs subprogram
4373:
4374: GMD_QC_MIG12.g_progress_ind := 1;
4375: GMD_QC_MIG12.g_specs_pro_count := 0;
4376: GMD_QC_MIG12.g_specs_upd_count := 0;
4377: GMD_QC_MIG12.g_specs_err_count := 0;
4378:
4379: FOR v_specs_b IN get_specs LOOP
4380: BEGIN -- specs subprogram
4381: GMD_QC_MIG12.g_specs_pro_count := GMD_QC_MIG12.g_specs_pro_count + 1;
4377: GMD_QC_MIG12.g_specs_err_count := 0;
4378:
4379: FOR v_specs_b IN get_specs LOOP
4380: BEGIN -- specs subprogram
4381: GMD_QC_MIG12.g_specs_pro_count := GMD_QC_MIG12.g_specs_pro_count + 1;
4382: /*==========================================
4383: Get organization_id.
4384: ==========================================*/
4385: l_owner_org_id := GMA_MIGRATION_UTILS.GET_ORGANIZATION_ID(v_specs_b.owner_orgn_code);
4424: IF (p_commit = FND_API.G_TRUE) THEN
4425: COMMIT;
4426: END IF;
4427:
4428: GMD_QC_MIG12.g_specs_upd_count := GMD_QC_MIG12.g_specs_upd_count + 1;
4429:
4430: EXCEPTION
4431:
4432: WHEN MIG_NO_ORG THEN
4444: p_param2 => 'OWNER_ORGN_CODE',
4445: p_param3 => 'SPEC_ID',
4446: p_param4 => to_char(v_specs_b.spec_id),
4447: p_app_short_name => 'GMD');
4448: GMD_QC_MIG12.g_specs_err_count := GMD_QC_MIG12.g_specs_err_count + 1;
4449: x_exception_count := x_exception_count + 1;
4450:
4451: WHEN MIG_ODM_ITEM THEN
4452: GMA_COMMON_LOGGING.gma_migration_central_log (
4462: p_param2 => to_char(v_specs_b.item_id),
4463: p_param3 => 'SPEC_ID',
4464: p_param4 => to_char(v_specs_b.spec_id),
4465: p_app_short_name => 'GMD');
4466: GMD_QC_MIG12.g_specs_err_count := GMD_QC_MIG12.g_specs_err_count + 1;
4467: x_exception_count := x_exception_count + 1;
4468:
4469: WHEN OTHERS THEN
4470: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
4466: GMD_QC_MIG12.g_specs_err_count := GMD_QC_MIG12.g_specs_err_count + 1;
4467: x_exception_count := x_exception_count + 1;
4468:
4469: WHEN OTHERS THEN
4470: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
4471: GMA_COMMON_LOGGING.gma_migration_central_log (
4472: p_run_id => p_migration_run_id,
4473: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
4474: p_message_token => 'GMA_MIGRATION_DB_ERROR',
4484: /*==============================================
4485: Log end of gmd_specifications_b migration.
4486: ==============================================*/
4487:
4488: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
4489:
4490: /*===============================================
4491: NOTE: gmd_spec_tests_b will be migrated by
4492: Common migration scripts. We will not
4507: p_param1 => 'GMD_INVENTORY_SPEC_VRS',
4508: p_context => 'Quality Specifications',
4509: p_app_short_name => 'GMA');
4510:
4511: GMD_QC_MIG12.g_progress_ind := 2;
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4508: p_context => 'Quality Specifications',
4509: p_app_short_name => 'GMA');
4510:
4511: GMD_QC_MIG12.g_progress_ind := 2;
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4509: p_app_short_name => 'GMA');
4510:
4511: GMD_QC_MIG12.g_progress_ind := 2;
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4517:
4510:
4511: GMD_QC_MIG12.g_progress_ind := 2;
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4517:
4518: FOR l_inv_spec IN get_inv_spec LOOP
4511: GMD_QC_MIG12.g_progress_ind := 2;
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4517:
4518: FOR l_inv_spec IN get_inv_spec LOOP
4519: BEGIN -- inv spec subprogram
4512: GMD_QC_MIG12.g_inv_spec_pro_count := 0;
4513: GMD_QC_MIG12.g_inv_spec_ins_count := 0;
4514: GMD_QC_MIG12.g_inv_spec_del_count := 0;
4515: GMD_QC_MIG12.g_inv_spec_upd_count := 0;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4517:
4518: FOR l_inv_spec IN get_inv_spec LOOP
4519: BEGIN -- inv spec subprogram
4520: GMD_QC_MIG12.g_inv_spec_pro_count := GMD_QC_MIG12.g_inv_spec_pro_count + 1;
4516: GMD_QC_MIG12.g_inv_spec_err_count := 0;
4517:
4518: FOR l_inv_spec IN get_inv_spec LOOP
4519: BEGIN -- inv spec subprogram
4520: GMD_QC_MIG12.g_inv_spec_pro_count := GMD_QC_MIG12.g_inv_spec_pro_count + 1;
4521: /*======================================
4522: Check if organizations migrated.
4523: ======================================*/
4524: IF (l_inv_spec.organization_id IS NULL and l_inv_spec.orgn_code IS NOT NULL) THEN
4547: /*========================
4548: Get Subinventory.
4549: ========================*/
4550: IF (l_inv_spec.whse_code IS NOT NULL) THEN
4551: GMD_QC_MIG12.GET_WHSE_INFO(
4552: l_inv_spec.whse_code,
4553: ls_organization_id,
4554: l_subinv_ind,
4555: l_loct_ctl);
4583: IF (l_inv_spec.location IS NOT NULL) THEN
4584: IF (l_inv_spec.location = 'NONE') THEN
4585: l_locator_id := NULL;
4586: ELSE
4587: l_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID(l_inv_spec.whse_code, l_inv_spec.location);
4588: IF (l_locator_id IS NULL) THEN
4589: IF (l_loct_ctl = 2) THEN
4590: /*======================================
4591: Create a Non-validated location.
4607: ELSE
4608: RAISE ISPEC_LOCATOR_ID;
4609: END IF;
4610: ELSE
4611: GMD_QC_MIG12.GET_SUBINV_DATA(l_locator_id,
4612: l_subinv,
4613: lsub_organization_id);
4614:
4615: IF (lsub_organization_id IS NULL) THEN
4707:
4708: IF (l_inv_spec.in_spec_lot_status IS NULL) THEN
4709: l_in_spec_status_id := NULL;
4710: ELSE
4711: l_in_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_inv_spec.in_spec_lot_status);
4712: IF (l_in_spec_status_id IS NULL) THEN
4713: RAISE ISPEC_IN_STATUS;
4714: END IF;
4715: END IF;
4716:
4717: IF (l_inv_spec.out_of_spec_lot_status IS NULL) THEN
4718: l_out_spec_status_id := NULL;
4719: ELSE
4720: l_out_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_inv_spec.out_of_spec_lot_status);
4721: IF (l_out_spec_status_id IS NULL) THEN
4722: RAISE ISPEC_OUT_STATUS;
4723: END IF;
4724: END IF;
4743: IF (p_commit = FND_API.G_TRUE) THEN
4744: COMMIT;
4745: END IF;
4746:
4747: GMD_QC_MIG12.g_inv_spec_upd_count := GMD_QC_MIG12.g_inv_spec_upd_count + 1;
4748:
4749: ELSE -- clone else
4750: /*================================================
4751: For each Sample orgn the rule is attached to
4785: IF (p_commit = FND_API.G_TRUE) THEN
4786: COMMIT;
4787: END IF;
4788:
4789: GMD_QC_MIG12.g_inv_spec_del_count := GMD_QC_MIG12.g_inv_spec_del_count + 1;
4790: RAISE ISPEC_DELETE_INVSPEC; -- goes to next invspec record.
4791: END IF;
4792:
4793: /*================================
4878: in_spec_lot_status_id = l_in_spec_status_id,
4879: migrated_ind = 1
4880: WHERE spec_vr_id = l_inv_spec.spec_vr_id;
4881:
4882: GMD_QC_MIG12.g_inv_spec_upd_count := GMD_QC_MIG12.g_inv_spec_upd_count + 1;
4883:
4884: EXCEPTION
4885: WHEN NEXT_IN_INV_LINE THEN
4886: NULL;
4976: Note erecord field assignment.
4977: ================================*/
4978:
4979: IF (l_inv_spec.text_code IS NOT NULL AND l_inv_spec.text_code > 0) THEN
4980: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_inv_spec.text_code, p_migration_run_id);
4981: ELSE
4982: l_text_code := NULL;
4983: END IF;
4984:
5082: l_out_spec_status_id,
5083: l_in_spec_status_id
5084: );
5085:
5086: GMD_QC_MIG12.g_inv_spec_ins_count := GMD_QC_MIG12.g_inv_spec_ins_count + 1;
5087:
5088: <
5089:
5090: FETCH get_sample_org INTO l_sample_orgn_code, l_sample_organization_id;
5116: p_param3 => 'SPEC_VR_ID',
5117: p_param4 => to_char(l_inv_spec.spec_vr_id),
5118: p_app_short_name => 'GMD');
5119: ROLLBACK;
5120: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5121: x_exception_count := x_exception_count + 1;
5122:
5123:
5124: WHEN ISPEC_WHSE_ERROR THEN
5138: p_param3 => 'SPEC_VR_ID',
5139: p_param4 => to_char(l_inv_spec.spec_vr_id),
5140: p_app_short_name => 'GMD');
5141: ROLLBACK;
5142: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5143: x_exception_count := x_exception_count + 1;
5144:
5145: WHEN ISPEC_SUB_MISMATCH THEN
5146: GMA_COMMON_LOGGING.gma_migration_central_log (
5160: p_param4 => to_char(l_organization_id),
5161: p_param5 => to_char(ls_organization_id),
5162: p_app_short_name => 'GMD');
5163: ROLLBACK;
5164: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5165: x_exception_count := x_exception_count + 1;
5166:
5167: WHEN ISPEC_NON_LOC THEN
5168: GMA_COMMON_LOGGING.gma_migration_central_log (
5176: p_param1 => 'SPEC_VR_ID',
5177: p_param2 => to_char(l_inv_spec.spec_vr_id),
5178: p_param3 => 'LOCATION',
5179: p_app_short_name => 'GMD');
5180: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5181: x_exception_count := x_exception_count + 1;
5182:
5183:
5184:
5199: p_param4 => 'SPEC_VR_ID',
5200: p_param5 => to_char(l_inv_spec.spec_vr_id),
5201: p_app_short_name => 'GMD');
5202: ROLLBACK;
5203: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5204: x_exception_count := x_exception_count + 1;
5205:
5206:
5207: WHEN ISPEC_SUBINV THEN
5217: p_param2 => 'SPEC_VR_ID',
5218: p_param3 => to_char(l_inv_spec.spec_vr_id),
5219: p_app_short_name => 'GMD');
5220: ROLLBACK;
5221: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5222: x_exception_count := x_exception_count + 1;
5223:
5224:
5225: WHEN ISPEC_GET_OPM_LOT THEN
5235: p_param2 => 'SPEC_VR_ID',
5236: p_param3 => to_char(l_inv_spec.spec_vr_id),
5237: p_app_short_name => 'GMD');
5238: ROLLBACK;
5239: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5240: x_exception_count := x_exception_count + 1;
5241:
5242: WHEN ISPEC_GET_SPEC_ITEM THEN
5243: GMA_COMMON_LOGGING.gma_migration_central_log (
5252: p_param2 => 'SPEC_VR_ID',
5253: p_param3 => to_char(l_inv_spec.spec_vr_id),
5254: p_app_short_name => 'GMD');
5255: ROLLBACK;
5256: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5257: x_exception_count := x_exception_count + 1;
5258:
5259:
5260: WHEN ISPEC_GET_OPM_ITEM THEN
5270: p_param2 => 'SPEC_VR_ID',
5271: p_param3 => to_char(l_inv_spec.spec_vr_id),
5272: p_app_short_name => 'GMD');
5273: ROLLBACK;
5274: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5275: x_exception_count := x_exception_count + 1;
5276:
5277:
5278: WHEN ISPEC_MIG_LOT THEN
5286: p_param1 => 'SPEC_VR_ID',
5287: p_param2 => to_char(l_inv_spec.spec_vr_id),
5288: p_app_short_name => 'GMD');
5289: ROLLBACK;
5290: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5291: x_exception_count := x_exception_count + 1;
5292:
5293:
5294: WHEN ISPEC_IN_STATUS THEN
5304: p_param2 => 'SPEC_VR_ID',
5305: p_param3 => to_char(l_inv_spec.spec_vr_id),
5306: p_app_short_name => 'GMD');
5307: ROLLBACK;
5308: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5309: x_exception_count := x_exception_count + 1;
5310:
5311:
5312: WHEN ISPEC_OUT_STATUS THEN
5322: p_param2 => 'SPEC_VR_ID',
5323: p_param3 => to_char(l_inv_spec.spec_vr_id),
5324: p_app_short_name => 'GMD');
5325: ROLLBACK;
5326: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5327: x_exception_count := x_exception_count + 1;
5328:
5329: WHEN ISPEC_DELETE_INVSPEC THEN
5330: NULL;
5343: p_param2 => 'SPEC_VR_ID',
5344: p_param3 => to_char(l_inv_spec.spec_vr_id),
5345: p_app_short_name => 'GMD');
5346: ROLLBACK;
5347: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5348: x_exception_count := x_exception_count + 1;
5349:
5350:
5351: WHEN ISPEC_SAMPLE_ORG_ID THEN
5362: p_param2 => 'SPEC_VR_ID',
5363: p_param3 => to_char(l_inv_spec.spec_vr_id),
5364: p_app_short_name => 'GMD');
5365: ROLLBACK;
5366: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5367: x_exception_count := x_exception_count + 1;
5368:
5369: WHEN OTHERS THEN
5370: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5366: GMD_QC_MIG12.g_inv_spec_err_count := GMD_QC_MIG12.g_inv_spec_err_count + 1;
5367: x_exception_count := x_exception_count + 1;
5368:
5369: WHEN OTHERS THEN
5370: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5371: GMA_COMMON_LOGGING.gma_migration_central_log (
5372: p_run_id => p_migration_run_id,
5373: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
5374: p_message_token => 'GMA_MIGRATION_DB_ERROR',
5387: /*==============================================
5388: Log end of gmd_inventory_spec_vrs migration.
5389: ==============================================*/
5390:
5391: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5392:
5393:
5394: /*================================
5395: Migrate gmd_wip_spec_vrs.
5404: p_param1 => 'GMD_WIP_SPEC_VRS',
5405: p_context => 'Quality Specifications',
5406: p_app_short_name => 'GMA');
5407:
5408: GMD_QC_MIG12.g_progress_ind := 3;
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5405: p_context => 'Quality Specifications',
5406: p_app_short_name => 'GMA');
5407:
5408: GMD_QC_MIG12.g_progress_ind := 3;
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5406: p_app_short_name => 'GMA');
5407:
5408: GMD_QC_MIG12.g_progress_ind := 3;
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5414:
5407:
5408: GMD_QC_MIG12.g_progress_ind := 3;
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5414:
5415: FOR l_wip_spec IN get_wip_spec LOOP
5408: GMD_QC_MIG12.g_progress_ind := 3;
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5414:
5415: FOR l_wip_spec IN get_wip_spec LOOP
5416: BEGIN -- wip spec subprogram
5409: GMD_QC_MIG12.g_wip_spec_pro_count := 0;
5410: GMD_QC_MIG12.g_wip_spec_ins_count := 0;
5411: GMD_QC_MIG12.g_wip_spec_del_count := 0;
5412: GMD_QC_MIG12.g_wip_spec_upd_count := 0;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5414:
5415: FOR l_wip_spec IN get_wip_spec LOOP
5416: BEGIN -- wip spec subprogram
5417: GMD_QC_MIG12.g_wip_spec_pro_count := GMD_QC_MIG12.g_wip_spec_pro_count + 1;
5413: GMD_QC_MIG12.g_wip_spec_err_count := 0;
5414:
5415: FOR l_wip_spec IN get_wip_spec LOOP
5416: BEGIN -- wip spec subprogram
5417: GMD_QC_MIG12.g_wip_spec_pro_count := GMD_QC_MIG12.g_wip_spec_pro_count + 1;
5418: /*===============================
5419: Migrate orgn_code.
5420: ===============================*/
5421:
5434:
5435: IF (l_wip_spec.in_spec_lot_status IS NULL) THEN
5436: l_in_spec_status_id := NULL;
5437: ELSE
5438: l_in_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_wip_spec.in_spec_lot_status);
5439: IF (l_in_spec_status_id IS NULL) THEN
5440: RAISE WIP_IN_STATUS;
5441: END IF;
5442: END IF;
5443:
5444: IF (l_wip_spec.out_of_spec_lot_status IS NULL) THEN
5445: l_out_spec_status_id := NULL;
5446: ELSE
5447: l_out_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_wip_spec.out_of_spec_lot_status);
5448: IF (l_out_spec_status_id IS NULL) THEN
5449: RAISE WIP_OUT_STATUS;
5450: END IF;
5451: END IF;
5481: material_detail_id = l_material_detail_id, -- Bug# 5482253
5482: migrated_ind = 1
5483: WHERE spec_vr_id = l_wip_spec.spec_vr_id;
5484:
5485: GMD_QC_MIG12.g_wip_spec_upd_count := GMD_QC_MIG12.g_wip_spec_upd_count + 1;
5486:
5487: IF (p_commit = FND_API.G_TRUE) THEN
5488: COMMIT;
5489: END IF;
5511: IF (p_commit = FND_API.G_TRUE) THEN
5512: COMMIT;
5513: END IF;
5514:
5515: GMD_QC_MIG12.g_wip_spec_del_count := GMD_QC_MIG12.g_wip_spec_del_count + 1;
5516:
5517: RAISE WIP_SPEC_DELETE;
5518:
5519: END IF ;
5554: material_detail_id = l_material_detail_id, -- Bug# 5482253
5555: migrated_ind = 1
5556: WHERE spec_vr_id = l_wip_spec.spec_vr_id;
5557:
5558: GMD_QC_MIG12.g_wip_spec_upd_count := GMD_QC_MIG12.g_wip_spec_upd_count + 1;
5559:
5560: EXCEPTION
5561: WHEN NEXT_IN_WIP_LINE THEN
5562: NULL;
5596: Clone the null orgn_code record using the
5597: Sample orgn_code.
5598: ==============================================*/
5599: IF (l_wip_spec.text_code IS NOT NULL AND l_wip_spec.text_code > 0) THEN
5600: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_wip_spec.text_code, p_migration_run_id);
5601: ELSE
5602: l_text_code := NULL;
5603: END IF;
5604:
5721: l_in_spec_status_id,
5722: l_material_detail_id -- Bug# 5482253
5723: );
5724:
5725: GMD_QC_MIG12.g_wip_spec_ins_count := GMD_QC_MIG12.g_wip_spec_ins_count + 1;
5726:
5727: << NEXT_WIP_SAMPLE_HEADER >>
5728:
5729: FETCH get_wip_sample_org INTO l_sample_orgn_code, l_sample_organization_id;
5750: p_param2 => 'ORGN_CODE',
5751: p_param3 => 'SPEC_VR_ID',
5752: p_param4 => to_char(l_wip_spec.spec_vr_id),
5753: p_app_short_name => 'GMD');
5754: GMD_QC_MIG12.g_wip_spec_err_count := GMD_QC_MIG12.g_wip_spec_err_count + 1;
5755: x_exception_count := x_exception_count + 1;
5756:
5757: WHEN WIP_IN_STATUS THEN
5758: GMA_COMMON_LOGGING.gma_migration_central_log (
5766: p_param1 => l_wip_spec.in_spec_lot_status,
5767: p_param2 => 'SPEC_VR_ID',
5768: p_param3 => to_char(l_wip_spec.spec_vr_id),
5769: p_app_short_name => 'GMD');
5770: GMD_QC_MIG12.g_wip_spec_err_count := GMD_QC_MIG12.g_wip_spec_err_count + 1;
5771: x_exception_count := x_exception_count + 1;
5772:
5773:
5774: WHEN WIP_OUT_STATUS THEN
5783: p_param1 => l_wip_spec.out_of_spec_lot_status,
5784: p_param2 => 'SPEC_VR_ID',
5785: p_param3 => to_char(l_wip_spec.spec_vr_id),
5786: p_app_short_name => 'GMD');
5787: GMD_QC_MIG12.g_wip_spec_err_count := GMD_QC_MIG12.g_wip_spec_err_count + 1;
5788: x_exception_count := x_exception_count + 1;
5789:
5790:
5791: WHEN WIP_SPEC_DELETE THEN
5812: p_param1 => l_sample_orgn_code,
5813: p_param2 => 'SPEC_VR_ID',
5814: p_param3 => to_char(l_wip_spec.spec_vr_id),
5815: p_app_short_name => 'GMD');
5816: GMD_QC_MIG12.g_wip_spec_err_count := GMD_QC_MIG12.g_wip_spec_err_count + 1;
5817: x_exception_count := x_exception_count + 1;
5818:
5819: WHEN WIP_SAMPLE_ORG_ID THEN
5820: GMA_COMMON_LOGGING.gma_migration_central_log (
5829: p_param1 => l_sample_orgn_code,
5830: p_param2 => 'SPEC_VR_ID',
5831: p_param3 => to_char(l_wip_spec.spec_vr_id),
5832: p_app_short_name => 'GMD');
5833: GMD_QC_MIG12.g_wip_spec_err_count := GMD_QC_MIG12.g_wip_spec_err_count + 1;
5834: x_exception_count := x_exception_count + 1;
5835:
5836:
5837: WHEN OTHERS THEN
5834: x_exception_count := x_exception_count + 1;
5835:
5836:
5837: WHEN OTHERS THEN
5838: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5839: GMA_COMMON_LOGGING.gma_migration_central_log (
5840: p_run_id => p_migration_run_id,
5841: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
5842: p_message_token => 'GMA_MIGRATION_DB_ERROR',
5856: /*==============================================
5857: Log end of gmd_wip_spec_vrs migration.
5858: ==============================================*/
5859:
5860: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5861:
5862: /*=======================================
5863: Migrate gmd_customer_spec_vrs.
5864: =======================================*/
5872: p_param1 => 'GMD_CUSTOMER_SPEC_VRS',
5873: p_context => 'Quality Specifications',
5874: p_app_short_name => 'GMA');
5875:
5876: GMD_QC_MIG12.g_progress_ind := 4;
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5873: p_context => 'Quality Specifications',
5874: p_app_short_name => 'GMA');
5875:
5876: GMD_QC_MIG12.g_progress_ind := 4;
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5874: p_app_short_name => 'GMA');
5875:
5876: GMD_QC_MIG12.g_progress_ind := 4;
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5882:
5875:
5876: GMD_QC_MIG12.g_progress_ind := 4;
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5882:
5883: FOR l_cust_spec IN get_cust_spec LOOP
5876: GMD_QC_MIG12.g_progress_ind := 4;
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5882:
5883: FOR l_cust_spec IN get_cust_spec LOOP
5884: BEGIN -- cust spec subprogram
5877: GMD_QC_MIG12.g_cust_spec_pro_count := 0;
5878: GMD_QC_MIG12.g_cust_spec_ins_count := 0;
5879: GMD_QC_MIG12.g_cust_spec_del_count := 0;
5880: GMD_QC_MIG12.g_cust_spec_upd_count := 0;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5882:
5883: FOR l_cust_spec IN get_cust_spec LOOP
5884: BEGIN -- cust spec subprogram
5885: GMD_QC_MIG12.g_cust_spec_pro_count := GMD_QC_MIG12.g_cust_spec_pro_count + 1;
5881: GMD_QC_MIG12.g_cust_spec_err_count := 0;
5882:
5883: FOR l_cust_spec IN get_cust_spec LOOP
5884: BEGIN -- cust spec subprogram
5885: GMD_QC_MIG12.g_cust_spec_pro_count := GMD_QC_MIG12.g_cust_spec_pro_count + 1;
5886: IF (l_cust_spec.organization_id IS NULL and l_cust_spec.orgn_code IS NOT NULL) THEN
5887: RAISE CUST_NO_ORG;
5888: END IF;
5889:
5898: IF (p_commit = FND_API.G_TRUE) THEN
5899: COMMIT;
5900: END IF;
5901:
5902: GMD_QC_MIG12.g_cust_spec_upd_count := GMD_QC_MIG12.g_cust_spec_upd_count + 1;
5903:
5904: ELSE -- org is null
5905: /*=======================================
5906: Loop and get all samples orgs that
5924: IF (p_commit = FND_API.G_TRUE) THEN
5925: COMMIT;
5926: END IF;
5927:
5928: GMD_QC_MIG12.g_cust_spec_del_count := GMD_QC_MIG12.g_cust_spec_del_count + 1;
5929: RAISE CUST_SPEC_DELETE;
5930: END IF ;
5931:
5932: /*================================
5961: organization_id = l_sample_organization_id,
5962: migrated_ind = 1
5963: WHERE spec_vr_id = l_cust_spec.spec_vr_id;
5964:
5965: GMD_QC_MIG12.g_cust_spec_upd_count := GMD_QC_MIG12.g_cust_spec_upd_count + 1;
5966:
5967: EXCEPTION
5968:
5969: WHEN NEXT_IN_CUST_LINE THEN
5969: WHEN NEXT_IN_CUST_LINE THEN
5970: NULL;
5971:
5972: WHEN OTHERS THEN
5973: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
5974: GMA_COMMON_LOGGING.gma_migration_central_log (
5975: p_run_id => p_migration_run_id,
5976: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
5977: p_message_token => 'GMA_MIGRATION_DB_ERROR',
6014: /*===========================
6015: Clone the record.
6016: ===========================*/
6017: IF (l_cust_spec.text_code IS NOT NULL AND l_cust_spec.text_code > 0) THEN
6018: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_cust_spec.text_code, p_migration_run_id);
6019: ELSE
6020: l_text_code := NULL;
6021: END IF;
6022:
6099: l_cust_spec.SPEC_VR_ID,
6100: l_sample_organization_id
6101: );
6102:
6103: GMD_QC_MIG12.g_cust_spec_ins_count := GMD_QC_MIG12.g_cust_spec_ins_count + 1;
6104:
6105: << NEXT_CUST_SAMPLE>>
6106:
6107: FETCH get_cust_sample_org INTO l_sample_orgn_code, l_sample_organization_id;
6133: p_param3 => 'SPEC_VR_ID',
6134: p_param4 => to_char(l_cust_spec.spec_vr_id),
6135: p_app_short_name => 'GMD');
6136: ROLLBACK;
6137: GMD_QC_MIG12.g_cust_spec_err_count := GMD_QC_MIG12.g_cust_spec_err_count + 1;
6138: x_exception_count := x_exception_count + 1;
6139:
6140: WHEN CUST_SPEC_DELETE THEN
6141: GMA_COMMON_LOGGING.gma_migration_central_log (
6163: p_param2 => 'SPEC_VR_ID',
6164: p_param3 => to_char(l_cust_spec.spec_vr_id),
6165: p_app_short_name => 'GMD');
6166: ROLLBACK;
6167: GMD_QC_MIG12.g_cust_spec_err_count := GMD_QC_MIG12.g_cust_spec_err_count + 1;
6168: x_exception_count := x_exception_count + 1;
6169:
6170: WHEN OTHERS THEN
6171: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6167: GMD_QC_MIG12.g_cust_spec_err_count := GMD_QC_MIG12.g_cust_spec_err_count + 1;
6168: x_exception_count := x_exception_count + 1;
6169:
6170: WHEN OTHERS THEN
6171: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6172: GMA_COMMON_LOGGING.gma_migration_central_log (
6173: p_run_id => p_migration_run_id,
6174: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
6175: p_message_token => 'GMA_MIGRATION_DB_ERROR',
6189: /*==============================================
6190: Log end of gmd_customer_spec_vrs migration.
6191: ==============================================*/
6192:
6193: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6194:
6195:
6196:
6197: /*===================================
6207: p_param1 => 'GMD_SUPPLIER_SPEC_VRS',
6208: p_context => 'Quality Specifications',
6209: p_app_short_name => 'GMA');
6210:
6211: GMD_QC_MIG12.g_progress_ind := 5;
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6208: p_context => 'Quality Specifications',
6209: p_app_short_name => 'GMA');
6210:
6211: GMD_QC_MIG12.g_progress_ind := 5;
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6209: p_app_short_name => 'GMA');
6210:
6211: GMD_QC_MIG12.g_progress_ind := 5;
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6217:
6210:
6211: GMD_QC_MIG12.g_progress_ind := 5;
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6217:
6218: FOR l_supl_spec IN get_supplier_spec LOOP
6211: GMD_QC_MIG12.g_progress_ind := 5;
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6217:
6218: FOR l_supl_spec IN get_supplier_spec LOOP
6219: BEGIN -- supplier_spec subprogram
6212: GMD_QC_MIG12.g_supl_spec_pro_count := 0;
6213: GMD_QC_MIG12.g_supl_spec_ins_count := 0;
6214: GMD_QC_MIG12.g_supl_spec_del_count := 0;
6215: GMD_QC_MIG12.g_supl_spec_upd_count := 0;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6217:
6218: FOR l_supl_spec IN get_supplier_spec LOOP
6219: BEGIN -- supplier_spec subprogram
6220: GMD_QC_MIG12.g_supl_spec_pro_count := GMD_QC_MIG12.g_supl_spec_pro_count + 1;
6216: GMD_QC_MIG12.g_supl_spec_err_count := 0;
6217:
6218: FOR l_supl_spec IN get_supplier_spec LOOP
6219: BEGIN -- supplier_spec subprogram
6220: GMD_QC_MIG12.g_supl_spec_pro_count := GMD_QC_MIG12.g_supl_spec_pro_count + 1;
6221: IF (l_supl_spec.organization_id IS NULL and l_supl_spec.orgn_code IS NOT NULL) THEN
6222: RAISE SUP_NO_ORG;
6223: END IF;
6224:
6242:
6243: IF (l_supl_spec.in_spec_lot_status IS NULL) THEN
6244: l_in_spec_status_id := NULL;
6245: ELSE
6246: l_in_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_supl_spec.in_spec_lot_status);
6247: IF (l_in_spec_status_id IS NULL) THEN
6248: RAISE SUP_IN_STATUS;
6249: END IF;
6250: END IF;
6251:
6252: IF (l_supl_spec.out_of_spec_lot_status IS NULL) THEN
6253: l_out_spec_status_id := NULL;
6254: ELSE
6255: l_out_spec_status_id := GMD_QC_MIG12.GET_STATUS_ID(l_supl_spec.out_of_spec_lot_status);
6256: IF (l_out_spec_status_id IS NULL) THEN
6257: RAISE SUP_OUT_STATUS;
6258: END IF;
6259: END IF;
6276: IF (p_commit = FND_API.G_TRUE) THEN
6277: COMMIT;
6278: END IF;
6279:
6280: GMD_QC_MIG12.g_supl_spec_upd_count := GMD_QC_MIG12.g_supl_spec_upd_count + 1;
6281:
6282: ELSE
6283: /*=========================================
6284: Loop and get all samples orgs that
6302: IF (p_commit = FND_API.G_TRUE) THEN
6303: COMMIT;
6304: END IF;
6305:
6306: GMD_QC_MIG12.g_supl_spec_del_count := GMD_QC_MIG12.g_supl_spec_del_count + 1;
6307:
6308: RAISE SUP_SPEC_DELETE;
6309:
6310: END IF;
6347: IF (p_commit = FND_API.G_TRUE) THEN
6348: COMMIT;
6349: END IF;
6350:
6351: GMD_QC_MIG12.g_supl_spec_upd_count := GMD_QC_MIG12.g_supl_spec_upd_count + 1;
6352:
6353: EXCEPTION
6354: WHEN NEXT_IN_SUPL_LINE THEN
6355: NULL;
6386: /*===========================
6387: Clone the record.
6388: ===========================*/
6389: IF (l_supl_spec.text_code IS NOT NULL AND l_supl_spec.text_code > 0) THEN
6390: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_supl_spec.text_code, p_migration_run_id);
6391: ELSE
6392: l_text_code := NULL;
6393: END IF;
6394:
6483: l_out_spec_status_id,
6484: l_in_spec_status_id
6485: );
6486:
6487: GMD_QC_MIG12.g_supl_spec_ins_count := GMD_QC_MIG12.g_supl_spec_ins_count + 1;
6488:
6489: << NEXT_SUPL_SAMPLE >>
6490:
6491: FETCH get_supl_sample_org INTO l_sample_orgn_code, l_sample_organization_id;
6517: p_param2 => 'ORGN_CODE',
6518: p_param3 => 'SPEC_VR_ID',
6519: p_param4 => to_char(l_supl_spec.spec_vr_id),
6520: p_app_short_name => 'GMD');
6521: GMD_QC_MIG12.g_supl_spec_err_count := GMD_QC_MIG12.g_supl_spec_err_count + 1;
6522: x_exception_count := x_exception_count + 1;
6523:
6524: WHEN SUP_IN_STATUS THEN
6525: GMA_COMMON_LOGGING.gma_migration_central_log (
6533: p_param1 => l_supl_spec.in_spec_lot_status,
6534: p_param2 => 'SPEC_VR_ID',
6535: p_param3 => to_char(l_supl_spec.spec_vr_id),
6536: p_app_short_name => 'GMD');
6537: GMD_QC_MIG12.g_supl_spec_err_count := GMD_QC_MIG12.g_supl_spec_err_count + 1;
6538: x_exception_count := x_exception_count + 1;
6539:
6540: WHEN SUP_OUT_STATUS THEN
6541: GMA_COMMON_LOGGING.gma_migration_central_log (
6549: p_param1 => l_supl_spec.out_of_spec_lot_status,
6550: p_param2 => 'SPEC_VR_ID',
6551: p_param3 => to_char(l_supl_spec.spec_vr_id),
6552: p_app_short_name => 'GMD');
6553: GMD_QC_MIG12.g_supl_spec_err_count := GMD_QC_MIG12.g_supl_spec_err_count + 1;
6554: x_exception_count := x_exception_count + 1;
6555:
6556: WHEN SUP_SPEC_DELETE THEN
6557: GMA_COMMON_LOGGING.gma_migration_central_log (
6578: p_param1 => l_sample_orgn_code,
6579: p_param2 => 'SPEC_VR_ID',
6580: p_param3 => to_char(l_supl_spec.spec_vr_id),
6581: p_app_short_name => 'GMD');
6582: GMD_QC_MIG12.g_supl_spec_err_count := GMD_QC_MIG12.g_supl_spec_err_count + 1;
6583: x_exception_count := x_exception_count + 1;
6584:
6585: WHEN OTHERS THEN
6586: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6582: GMD_QC_MIG12.g_supl_spec_err_count := GMD_QC_MIG12.g_supl_spec_err_count + 1;
6583: x_exception_count := x_exception_count + 1;
6584:
6585: WHEN OTHERS THEN
6586: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6587: GMA_COMMON_LOGGING.gma_migration_central_log (
6588: p_run_id => p_migration_run_id,
6589: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
6590: p_message_token => 'GMA_MIGRATION_DB_ERROR',
6604: /*==============================================
6605: Log end of gmd_supplier_spec_vrs migration.
6606: ==============================================*/
6607:
6608: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
6609:
6610: /*====================================
6611: Migrate gmd_monitoring_spec_vrs;
6612: ====================================*/
6620: p_param1 => 'GMD_MONITORING_SPEC_VRS',
6621: p_context => 'Quality Specifications',
6622: p_app_short_name => 'GMA');
6623:
6624: GMD_QC_MIG12.g_progress_ind := 6;
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6621: p_context => 'Quality Specifications',
6622: p_app_short_name => 'GMA');
6623:
6624: GMD_QC_MIG12.g_progress_ind := 6;
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6629: GMD_QC_MIG12.g_mon_spec_err_count := 0;
6622: p_app_short_name => 'GMA');
6623:
6624: GMD_QC_MIG12.g_progress_ind := 6;
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6629: GMD_QC_MIG12.g_mon_spec_err_count := 0;
6630:
6623:
6624: GMD_QC_MIG12.g_progress_ind := 6;
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6629: GMD_QC_MIG12.g_mon_spec_err_count := 0;
6630:
6631:
6624: GMD_QC_MIG12.g_progress_ind := 6;
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6629: GMD_QC_MIG12.g_mon_spec_err_count := 0;
6630:
6631:
6632: FOR l_mon_spec IN get_monitor_spec LOOP
6625: GMD_QC_MIG12.g_mon_spec_pro_count := 0;
6626: GMD_QC_MIG12.g_mon_spec_ins_count := 0;
6627: GMD_QC_MIG12.g_mon_spec_del_count := 0;
6628: GMD_QC_MIG12.g_mon_spec_upd_count := 0;
6629: GMD_QC_MIG12.g_mon_spec_err_count := 0;
6630:
6631:
6632: FOR l_mon_spec IN get_monitor_spec LOOP
6633:
6631:
6632: FOR l_mon_spec IN get_monitor_spec LOOP
6633:
6634: BEGIN -- monitor spec subprogram
6635: GMD_QC_MIG12.g_mon_spec_pro_count := GMD_QC_MIG12.g_mon_spec_pro_count + 1;
6636:
6637: IF (l_mon_spec.locator_organization_id IS NULL and l_mon_spec.loct_orgn_code IS NOT NULL) THEN
6638: RAISE MON_NO_ORG;
6639: END IF;
6646: /*========================
6647: Get Subinventory.
6648: ========================*/
6649: IF (l_mon_spec.whse_code IS NOT NULL) THEN
6650: GMD_QC_MIG12.GET_WHSE_INFO(
6651: l_mon_spec.whse_code,
6652: ls_organization_id,
6653: l_subinv_ind,
6654: l_mon_loct_ctl);
6679: Get Locator Id.
6680: =========================*/
6681:
6682: IF (l_mon_spec.location IS NOT NULL) THEN
6683: l_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID(l_mon_spec.whse_code, l_mon_spec.location);
6684: IF (l_locator_id IS NULL) THEN
6685: IF (l_mon_loct_ctl = 2) THEN
6686: /*======================================
6687: Create a Non-validated location.
6703: ELSE
6704: RAISE MON_LOCATOR_ID;
6705: END IF;
6706: ELSE
6707: GMD_QC_MIG12.GET_SUBINV_DATA(l_locator_id,
6708: l_subinv,
6709: lsub_organization_id);
6710:
6711: IF (lsub_organization_id IS NULL) THEN
6751: IF (p_commit = FND_API.G_TRUE) THEN
6752: COMMIT;
6753: END IF;
6754:
6755: GMD_QC_MIG12.g_mon_spec_upd_count := GMD_QC_MIG12.g_mon_spec_upd_count + 1;
6756:
6757: ELSE --orgn code is null
6758: /*=========================================
6759: Loop and get all samples orgs that
6777: IF (p_commit = FND_API.G_TRUE) THEN
6778: COMMIT;
6779: END IF;
6780:
6781: GMD_QC_MIG12.g_mon_spec_del_count := GMD_QC_MIG12.g_mon_spec_del_count + 1;
6782: RAISE MON_SPEC_DELETE;
6783:
6784: END IF; -- check if sample found.
6785:
6819: IF (p_commit = FND_API.G_TRUE) THEN
6820: COMMIT;
6821: END IF;
6822:
6823: GMD_QC_MIG12.g_mon_spec_upd_count := GMD_QC_MIG12.g_mon_spec_upd_count + 1;
6824:
6825: EXCEPTION
6826: WHEN NEXT_IN_MON_LINE THEN
6827: NULL;
6864: Clone the record using the Sample organization.
6865: ==================================================*/
6866:
6867: IF (l_mon_spec.text_code IS NOT NULL AND l_mon_spec.text_code > 0) THEN
6868: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_mon_spec.text_code, p_migration_run_id);
6869: ELSE
6870: l_text_code := NULL;
6871: END IF;
6872:
6944: l_mon_spec.RESOURCE_ORGANIZATION_ID
6945: );
6946:
6947:
6948: GMD_QC_MIG12.g_mon_spec_ins_count := GMD_QC_MIG12.g_mon_spec_ins_count + 1;
6949:
6950: << NEXT_MON_SAMPLE >>
6951:
6952: FETCH get_mon_sample_org INTO l_sample_orgn_code, l_sample_organization_id;
6978: p_param2 => 'LOCT_ORGN_CODE',
6979: p_param3 => 'SPEC_VR_ID',
6980: p_param4 => to_char(l_mon_spec.spec_vr_id),
6981: p_app_short_name => 'GMD');
6982: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
6983: x_exception_count := x_exception_count + 1;
6984:
6985: WHEN MON_NO_RES_ORG THEN
6986: GMA_COMMON_LOGGING.gma_migration_central_log (
6996: p_param2 => 'RESOURCE_ORGN_CODE',
6997: p_param3 => 'SPEC_VR_ID',
6998: p_param4 => to_char(l_mon_spec.spec_vr_id),
6999: p_app_short_name => 'GMD');
7000: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7001: x_exception_count := x_exception_count + 1;
7002:
7003: WHEN MON_WHSE_ERROR THEN
7004: GMA_COMMON_LOGGING.gma_migration_central_log (
7014: p_param2 => 'WHSE_CODE',
7015: p_param3 => 'SPEC_VR_ID',
7016: p_param4 => to_char(l_mon_spec.spec_vr_id),
7017: p_app_short_name => 'GMD');
7018: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7019: x_exception_count := x_exception_count + 1;
7020:
7021: WHEN MON_SUB_MISMATCH THEN
7022: GMA_COMMON_LOGGING.gma_migration_central_log (
7035: p_param3 => l_mon_spec.whse_code,
7036: p_param4 => to_char(l_organization_id),
7037: p_param5 => to_char(ls_organization_id),
7038: p_app_short_name => 'GMD');
7039: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7040: x_exception_count := x_exception_count + 1;
7041:
7042: WHEN MON_CREATE_LOC THEN
7043: GMA_COMMON_LOGGING.gma_migration_central_log (
7051: p_param1 => 'SPEC_VR_ID',
7052: p_param2 => to_char(l_mon_spec.spec_vr_id),
7053: p_param3 => 'LOCATION',
7054: p_app_short_name => 'GMD');
7055: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7056: x_exception_count := x_exception_count + 1;
7057:
7058: WHEN MON_LOCATOR_ID THEN
7059: GMA_COMMON_LOGGING.gma_migration_central_log (
7071: p_param3 => 'LOCATION',
7072: p_param4 => 'SPEC_VR_ID',
7073: p_param5 => to_char(l_mon_spec.spec_vr_id),
7074: p_app_short_name => 'GMD');
7075: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7076: x_exception_count := x_exception_count + 1;
7077:
7078: WHEN MON_SUBINV_ERROR THEN
7079: GMA_COMMON_LOGGING.gma_migration_central_log (
7087: p_param1 => to_char(l_locator_id),
7088: p_param2 => 'SPEC_VR_ID',
7089: p_param3 => to_char(l_mon_spec.spec_vr_id),
7090: p_app_short_name => 'GMD');
7091: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7092: x_exception_count := x_exception_count + 1;
7093:
7094:
7095: WHEN MON_SPEC_DELETE THEN
7116: p_param1 => l_sample_orgn_code,
7117: p_param2 => 'SPEC_VR_ID',
7118: p_param3 => to_char(l_mon_spec.spec_vr_id),
7119: p_app_short_name => 'GMD');
7120: GMD_QC_MIG12.g_mon_spec_err_count := GMD_QC_MIG12.g_mon_spec_err_count + 1;
7121: x_exception_count := x_exception_count + 1;
7122:
7123: END; -- monitor spec subprogram
7124:
7128: /*==============================================
7129: Log end of gmd_monitoring_spec_vrs migration.
7130: ==============================================*/
7131:
7132: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7133:
7134:
7135: RETURN;
7136:
7137:
7138: EXCEPTION
7139:
7140: WHEN OTHERS THEN
7141: LOG_SPEC_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7142: GMA_COMMON_LOGGING.gma_migration_central_log (
7143: p_run_id => p_migration_run_id,
7144: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
7145: p_message_token => 'GMA_MIGRATION_DB_ERROR',
7385: l_text_code NUMBER;
7386:
7387: BEGIN
7388:
7389: GMD_QC_MIG12.g_progress_ind := 0;
7390: x_exception_count := 0;
7391:
7392:
7393: /*==============================================
7407: /*===================================
7408: Process gmd_storage_plan_details.
7409: ====================================*/
7410:
7411: GMD_QC_MIG12.g_store_plan_upd_count := 0;
7412: GMD_QC_MIG12.g_store_plan_pro_count := 0;
7413: GMD_QC_MIG12.g_store_plan_err_count := 0;
7414: GMD_QC_MIG12.g_progress_ind := 1;
7415:
7408: Process gmd_storage_plan_details.
7409: ====================================*/
7410:
7411: GMD_QC_MIG12.g_store_plan_upd_count := 0;
7412: GMD_QC_MIG12.g_store_plan_pro_count := 0;
7413: GMD_QC_MIG12.g_store_plan_err_count := 0;
7414: GMD_QC_MIG12.g_progress_ind := 1;
7415:
7416: FOR l_plan_det IN get_plan_details LOOP
7409: ====================================*/
7410:
7411: GMD_QC_MIG12.g_store_plan_upd_count := 0;
7412: GMD_QC_MIG12.g_store_plan_pro_count := 0;
7413: GMD_QC_MIG12.g_store_plan_err_count := 0;
7414: GMD_QC_MIG12.g_progress_ind := 1;
7415:
7416: FOR l_plan_det IN get_plan_details LOOP
7417: BEGIN -- plan details subprogram
7410:
7411: GMD_QC_MIG12.g_store_plan_upd_count := 0;
7412: GMD_QC_MIG12.g_store_plan_pro_count := 0;
7413: GMD_QC_MIG12.g_store_plan_err_count := 0;
7414: GMD_QC_MIG12.g_progress_ind := 1;
7415:
7416: FOR l_plan_det IN get_plan_details LOOP
7417: BEGIN -- plan details subprogram
7418:
7415:
7416: FOR l_plan_det IN get_plan_details LOOP
7417: BEGIN -- plan details subprogram
7418:
7419: GMD_QC_MIG12.g_store_plan_pro_count := GMD_QC_MIG12.g_store_plan_pro_count + 1;
7420:
7421: /*=============================================
7422: Get organization id for the subinventory.
7423: =============================================*/
7422: Get organization id for the subinventory.
7423: =============================================*/
7424:
7425: IF (l_plan_det.whse_code IS NOT NULL) THEN
7426: GMD_QC_MIG12.GET_WHSE_INFO (
7427: p_whse_code => l_plan_det.whse_code,
7428: x_organization_id => l_plan_org_id,
7429: x_subinv_ind => l_plan_subinv_ind,
7430: x_loct_ctl => l_splan_loct_ctl);
7442: IF (l_plan_det.location IS NOT NULL) THEN
7443: IF (l_plan_det.location = 'NONE') THEN
7444: l_plan_locator_id := NULL;
7445: ELSE
7446: l_plan_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID (
7447: p_whse_code => l_plan_det.whse_code,
7448: p_location => l_plan_det.location);
7449:
7450: IF (l_plan_locator_id IS NULL) THEN
7473: /*=========================================
7474: Compare locator's subinventory to
7475: subinventory already mapped.
7476: =========================================*/
7477: GMD_QC_MIG12.GET_SUBINV_DATA(l_plan_locator_id,
7478: l_subinv,
7479: lsub_organization_id);
7480:
7481: IF (lsub_organization_id IS NULL) THEN
7521: IF (p_commit = FND_API.G_TRUE) THEN
7522: COMMIT;
7523: END IF;
7524:
7525: GMD_QC_MIG12.g_store_plan_upd_count := GMD_QC_MIG12.g_store_plan_upd_count + 1;
7526:
7527: EXCEPTION
7528:
7529: WHEN SP_WHSE_ERROR THEN
7540: p_param2 => 'WHSE_CODE',
7541: p_param3 => 'STORAGE_PLAN_DETAIL_ID',
7542: p_param4 => l_plan_det.storage_plan_detail_id,
7543: p_app_short_name => 'GMD');
7544: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7545: x_exception_count := x_exception_count + 1;
7546:
7547: WHEN SP_CREATE_LOCATION THEN
7548: GMA_COMMON_LOGGING.gma_migration_central_log (
7556: p_param1 => 'STORAGE_PLAN_DETAIL_ID',
7557: p_param2 => l_plan_det.storage_plan_detail_id,
7558: p_param3 => 'LOCATION',
7559: p_app_short_name => 'GMD');
7560: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7561: x_exception_count := x_exception_count + 1;
7562:
7563: WHEN SP_LOCATOR_ID THEN
7564: GMA_COMMON_LOGGING.gma_migration_central_log (
7576: p_param3 => 'LOCATION',
7577: p_param4 => 'STORAGE_PLAN_DETAIL_ID',
7578: p_param5 => l_plan_det.storage_plan_detail_id,
7579: p_app_short_name => 'GMD');
7580: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7581: x_exception_count := x_exception_count + 1;
7582:
7583:
7584: WHEN SP_SUBINV_ERROR THEN
7593: p_param1 => to_char(l_plan_locator_id),
7594: p_param2 => 'STORAGE_PLAN_DETAIL_ID',
7595: p_param3 => to_char(l_plan_det.storage_plan_detail_id),
7596: p_app_short_name => 'GMD');
7597: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7598: x_exception_count := x_exception_count + 1;
7599:
7600: -- Bug# 5109039
7601: WHEN DEFAULT_SS_ORG_ERROR THEN
7604: p_log_level => FND_LOG.LEVEL_ERROR,
7605: p_message_token => 'GMD_MIG_DEF_SS_ORG_ERROR',
7606: p_context => 'Quality Stability Studies - gmd_storage_plan_details',
7607: p_app_short_name => 'GMD');
7608: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7609: x_exception_count := x_exception_count + 1;
7610:
7611: WHEN OTHERS THEN
7612: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7608: GMD_QC_MIG12.g_store_plan_err_count := GMD_QC_MIG12.g_store_plan_err_count + 1;
7609: x_exception_count := x_exception_count + 1;
7610:
7611: WHEN OTHERS THEN
7612: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7613: GMA_COMMON_LOGGING.gma_migration_central_log (
7614: p_run_id => p_migration_run_id,
7615: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
7616: p_message_token => 'GMA_MIGRATION_DB_ERROR',
7628: /*=====================================================
7629: Log number of updates to gmd_storage_plan_details.
7630: =====================================================*/
7631:
7632: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7633:
7634:
7635: /*==============================================
7636: Log Start of gmd_stability_studies.
7649: /*=====================================
7650: Migrate gmd_stability_studies_b.
7651: =====================================*/
7652:
7653: GMD_QC_MIG12.g_stab_pro_count := 0;
7654: GMD_QC_MIG12.g_stab_upd_count := 0;
7655: GMD_QC_MIG12.g_stab_err_count := 0;
7656: GMD_QC_MIG12.g_progress_ind := 2;
7657:
7650: Migrate gmd_stability_studies_b.
7651: =====================================*/
7652:
7653: GMD_QC_MIG12.g_stab_pro_count := 0;
7654: GMD_QC_MIG12.g_stab_upd_count := 0;
7655: GMD_QC_MIG12.g_stab_err_count := 0;
7656: GMD_QC_MIG12.g_progress_ind := 2;
7657:
7658: FOR l_stab_rec in get_stab LOOP
7651: =====================================*/
7652:
7653: GMD_QC_MIG12.g_stab_pro_count := 0;
7654: GMD_QC_MIG12.g_stab_upd_count := 0;
7655: GMD_QC_MIG12.g_stab_err_count := 0;
7656: GMD_QC_MIG12.g_progress_ind := 2;
7657:
7658: FOR l_stab_rec in get_stab LOOP
7659: BEGIN -- stab study subprogram
7652:
7653: GMD_QC_MIG12.g_stab_pro_count := 0;
7654: GMD_QC_MIG12.g_stab_upd_count := 0;
7655: GMD_QC_MIG12.g_stab_err_count := 0;
7656: GMD_QC_MIG12.g_progress_ind := 2;
7657:
7658: FOR l_stab_rec in get_stab LOOP
7659: BEGIN -- stab study subprogram
7660: GMD_QC_MIG12.g_stab_pro_count := GMD_QC_MIG12.g_stab_pro_count + 1;
7656: GMD_QC_MIG12.g_progress_ind := 2;
7657:
7658: FOR l_stab_rec in get_stab LOOP
7659: BEGIN -- stab study subprogram
7660: GMD_QC_MIG12.g_stab_pro_count := GMD_QC_MIG12.g_stab_pro_count + 1;
7661: /*================================
7662: Migrate organization.
7663: ================================*/
7664:
7703: IF (p_commit = FND_API.G_TRUE) THEN
7704: COMMIT;
7705: END IF;
7706:
7707: GMD_QC_MIG12.g_stab_upd_count := GMD_QC_MIG12.g_stab_upd_count + 1;
7708:
7709: EXCEPTION
7710: WHEN STAB_NO_ORG THEN
7711: GMA_COMMON_LOGGING.gma_migration_central_log (
7721: p_param2 => 'ORGN_CODE',
7722: p_param3 => 'SS_ID',
7723: p_param4 => to_char(l_stab_rec.ss_id),
7724: p_app_short_name => 'GMD');
7725: GMD_QC_MIG12.g_stab_err_count := GMD_QC_MIG12.g_stab_err_count + 1;
7726: x_exception_count := x_exception_count + 1;
7727:
7728: WHEN STAB_NO_LAB_ORG THEN
7729: GMA_COMMON_LOGGING.gma_migration_central_log (
7739: p_param2 => 'QC_LAB_ORGN_CODE',
7740: p_param3 => 'SS_ID',
7741: p_param4 => to_char(l_stab_rec.ss_id),
7742: p_app_short_name => 'GMD');
7743: GMD_QC_MIG12.g_stab_err_count := GMD_QC_MIG12.g_stab_err_count + 1;
7744: x_exception_count := x_exception_count + 1;
7745:
7746: WHEN STAB_ODM_ITEM THEN
7747: GMA_COMMON_LOGGING.gma_migration_central_log (
7757: p_param2 => to_char(l_stab_rec.item_id),
7758: p_param3 => 'SS_ID',
7759: p_param4 => to_char(l_stab_rec.ss_id),
7760: p_app_short_name => 'GMD');
7761: GMD_QC_MIG12.g_stab_err_count := GMD_QC_MIG12.g_stab_err_count + 1;
7762: x_exception_count := x_exception_count + 1;
7763:
7764: WHEN OTHERS THEN
7765: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7761: GMD_QC_MIG12.g_stab_err_count := GMD_QC_MIG12.g_stab_err_count + 1;
7762: x_exception_count := x_exception_count + 1;
7763:
7764: WHEN OTHERS THEN
7765: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7766: GMA_COMMON_LOGGING.gma_migration_central_log (
7767: p_run_id => p_migration_run_id,
7768: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
7769: p_message_token => 'GMA_MIGRATION_DB_ERROR',
7782: /*==============================================
7783: Log End of gmd_stability_studies_b.
7784: ==============================================*/
7785:
7786: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7787:
7788:
7789: /*==============================================
7790: Log Start of gmd_ss_material_sources.
7803: /*=======================================
7804: Migrate gmd_ss_material_sources.
7805: =======================================*/
7806:
7807: GMD_QC_MIG12.g_matl_source_pro_count := 0;
7808: GMD_QC_MIG12.g_matl_source_err_count := 0;
7809: GMD_QC_MIG12.g_matl_source_upd_count := 0;
7810: GMD_QC_MIG12.g_progress_ind := 3;
7811:
7804: Migrate gmd_ss_material_sources.
7805: =======================================*/
7806:
7807: GMD_QC_MIG12.g_matl_source_pro_count := 0;
7808: GMD_QC_MIG12.g_matl_source_err_count := 0;
7809: GMD_QC_MIG12.g_matl_source_upd_count := 0;
7810: GMD_QC_MIG12.g_progress_ind := 3;
7811:
7812: FOR l_matl_rec IN get_matl_src LOOP
7805: =======================================*/
7806:
7807: GMD_QC_MIG12.g_matl_source_pro_count := 0;
7808: GMD_QC_MIG12.g_matl_source_err_count := 0;
7809: GMD_QC_MIG12.g_matl_source_upd_count := 0;
7810: GMD_QC_MIG12.g_progress_ind := 3;
7811:
7812: FOR l_matl_rec IN get_matl_src LOOP
7813: BEGIN -- matl src subprogram
7806:
7807: GMD_QC_MIG12.g_matl_source_pro_count := 0;
7808: GMD_QC_MIG12.g_matl_source_err_count := 0;
7809: GMD_QC_MIG12.g_matl_source_upd_count := 0;
7810: GMD_QC_MIG12.g_progress_ind := 3;
7811:
7812: FOR l_matl_rec IN get_matl_src LOOP
7813: BEGIN -- matl src subprogram
7814: GMD_QC_MIG12.g_matl_source_pro_count := GMD_QC_MIG12.g_matl_source_pro_count + 1;
7810: GMD_QC_MIG12.g_progress_ind := 3;
7811:
7812: FOR l_matl_rec IN get_matl_src LOOP
7813: BEGIN -- matl src subprogram
7814: GMD_QC_MIG12.g_matl_source_pro_count := GMD_QC_MIG12.g_matl_source_pro_count + 1;
7815: /*===================================
7816: Migrate organization.
7817: Convert plant code if it exists.
7818: ===================================*/
7893:
7894: IF (p_commit = FND_API.G_TRUE) THEN
7895: COMMIT;
7896: END IF;
7897: GMD_QC_MIG12.g_matl_source_upd_count := GMD_QC_MIG12.g_matl_source_upd_count + 1;
7898:
7899: EXCEPTION
7900: WHEN MATL_NO_ORG THEN
7901: GMA_COMMON_LOGGING.gma_migration_central_log (
7911: p_param2 => 'PLANT_CODE',
7912: p_param3 => 'SOURCE_ID',
7913: p_param4 => to_char(l_matl_rec.source_id),
7914: p_app_short_name => 'GMD');
7915: GMD_QC_MIG12.g_matl_source_err_count := GMD_QC_MIG12.g_matl_source_err_count + 1;
7916: x_exception_count := x_exception_count + 1;
7917:
7918: WHEN MATL_GET_SS THEN
7919: GMA_COMMON_LOGGING.gma_migration_central_log (
7927: p_param1 => to_char(l_matl_rec.ss_id),
7928: p_param2 => 'SOURCE_ID',
7929: p_param3 => to_char(l_matl_rec.source_id),
7930: p_app_short_name => 'GMD');
7931: GMD_QC_MIG12.g_matl_source_err_count := GMD_QC_MIG12.g_matl_source_err_count + 1;
7932: x_exception_count := x_exception_count + 1;
7933:
7934: WHEN MATL_PLANT_ORG THEN
7935: GMA_COMMON_LOGGING.gma_migration_central_log (
7945: p_param2 => 'SS_ORGN_CODE',
7946: p_param3 => 'SOURCE_ID',
7947: p_param4 => to_char(l_matl_rec.source_id),
7948: p_app_short_name => 'GMD');
7949: GMD_QC_MIG12.g_matl_source_err_count := GMD_QC_MIG12.g_matl_source_err_count + 1;
7950: x_exception_count := x_exception_count + 1;
7951:
7952: WHEN MATL_MIG_LOT THEN
7953: GMA_COMMON_LOGGING.gma_migration_central_log (
7959: p_token2 => 'ROWV',
7960: p_param1 => 'SOURCE_ID',
7961: p_param2 => to_char(l_matl_rec.source_id),
7962: p_app_short_name => 'GMD');
7963: GMD_QC_MIG12.g_matl_source_err_count := GMD_QC_MIG12.g_matl_source_err_count + 1;
7964: x_exception_count := x_exception_count + 1;
7965:
7966: WHEN OTHERS THEN
7967: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7963: GMD_QC_MIG12.g_matl_source_err_count := GMD_QC_MIG12.g_matl_source_err_count + 1;
7964: x_exception_count := x_exception_count + 1;
7965:
7966: WHEN OTHERS THEN
7967: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7968: GMA_COMMON_LOGGING.gma_migration_central_log (
7969: p_run_id => p_migration_run_id,
7970: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
7971: p_message_token => 'GMA_MIGRATION_DB_ERROR',
7984: /*==============================================
7985: Log End of gmd_ss_material_sources.
7986: ==============================================*/
7987:
7988: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
7989:
7990: /*===================================
7991: Log Start of gmd_ss_variants.
7992: ===================================*/
8000: p_param1 => 'GMD_SS_VARIANTS',
8001: p_context => 'Quality Stability Studies',
8002: p_app_short_name => 'GMA');
8003:
8004: GMD_QC_MIG12.g_ss_variant_pro_count := 0;
8005: GMD_QC_MIG12.g_ss_variant_err_count := 0;
8006: GMD_QC_MIG12.g_ss_variant_upd_count := 0;
8007: GMD_QC_MIG12.g_progress_ind := 4;
8008:
8001: p_context => 'Quality Stability Studies',
8002: p_app_short_name => 'GMA');
8003:
8004: GMD_QC_MIG12.g_ss_variant_pro_count := 0;
8005: GMD_QC_MIG12.g_ss_variant_err_count := 0;
8006: GMD_QC_MIG12.g_ss_variant_upd_count := 0;
8007: GMD_QC_MIG12.g_progress_ind := 4;
8008:
8009: /*==============================
8002: p_app_short_name => 'GMA');
8003:
8004: GMD_QC_MIG12.g_ss_variant_pro_count := 0;
8005: GMD_QC_MIG12.g_ss_variant_err_count := 0;
8006: GMD_QC_MIG12.g_ss_variant_upd_count := 0;
8007: GMD_QC_MIG12.g_progress_ind := 4;
8008:
8009: /*==============================
8010: Migrate gmd_ss_variants.
8003:
8004: GMD_QC_MIG12.g_ss_variant_pro_count := 0;
8005: GMD_QC_MIG12.g_ss_variant_err_count := 0;
8006: GMD_QC_MIG12.g_ss_variant_upd_count := 0;
8007: GMD_QC_MIG12.g_progress_ind := 4;
8008:
8009: /*==============================
8010: Migrate gmd_ss_variants.
8011: ==============================*/
8011: ==============================*/
8012:
8013: FOR l_var_rec IN get_ss_variant LOOP
8014: BEGIN -- variant subprogram
8015: GMD_QC_MIG12.g_ss_variant_pro_count := GMD_QC_MIG12.g_ss_variant_pro_count + 1;
8016:
8017: /*======================================
8018: Check if uom migrated successfully.
8019: Removed this check.
8023: Get org_id and subinventory
8024: *===============================*/
8025:
8026: IF (l_var_rec.storage_whse_code IS NOT NULL) THEN
8027: GMD_QC_MIG12.GET_WHSE_INFO (
8028: p_whse_code => l_var_rec.storage_whse_code,
8029: x_organization_id => l_storage_organization_id,
8030: x_subinv_ind => l_storage_subinvind,
8031: x_loct_ctl => l_svar_loct_ctl);
8042: IF (l_var_rec.storage_location IS NOT NULL) THEN
8043: IF (l_var_rec.storage_location = 'NONE') THEN
8044: l_storage_locator_id := NULL;
8045: ELSE
8046: l_storage_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID (
8047: p_whse_code => l_var_rec.storage_whse_code,
8048: p_location => l_var_rec.storage_location);
8049: IF (l_storage_locator_id IS NULL) THEN
8050: IF (l_svar_loct_ctl = 2) THEN
8068: ELSE -- validated location
8069: RAISE VAR_LOCATOR_ID;
8070: END IF; -- validated location
8071: ELSE -- locator is not null
8072: GMD_QC_MIG12.GET_SUBINV_DATA(l_storage_locator_id,
8073: l_subinv,
8074: lsub_organization_id);
8075:
8076: IF (lsub_organization_id IS NULL) THEN
8109: IF (p_commit = FND_API.G_TRUE) THEN
8110: COMMIT;
8111: END IF;
8112:
8113: GMD_QC_MIG12.g_ss_variant_upd_count := GMD_QC_MIG12.g_ss_variant_upd_count + 1;
8114:
8115: EXCEPTION
8116:
8117: WHEN VAR_WHSE_ERROR THEN
8128: p_param2 => 'STORAGE_WHSE_CODE',
8129: p_param3 => 'VARIANT_ID',
8130: p_param4 => to_char(l_var_rec.variant_id),
8131: p_app_short_name => 'GMD');
8132: GMD_QC_MIG12.g_ss_variant_err_count := GMD_QC_MIG12.g_ss_variant_err_count + 1;
8133: x_exception_count := x_exception_count + 1;
8134:
8135: WHEN VAR_CREATE_LOC THEN
8136: GMA_COMMON_LOGGING.gma_migration_central_log (
8144: p_param1 => 'VARIANT_ID',
8145: p_param2 => to_char(l_var_rec.variant_id),
8146: p_param3 => 'STORAGE_LOCATION',
8147: p_app_short_name => 'GMD');
8148: GMD_QC_MIG12.g_ss_variant_err_count := GMD_QC_MIG12.g_ss_variant_err_count + 1;
8149: x_exception_count := x_exception_count + 1;
8150:
8151: WHEN VAR_LOCATOR_ID THEN
8152: GMA_COMMON_LOGGING.gma_migration_central_log (
8164: p_param3 => 'STORAGE_LOCATION',
8165: p_param4 => 'VARIANT_ID',
8166: p_param5 => to_char(l_var_rec.variant_id),
8167: p_app_short_name => 'GMD');
8168: GMD_QC_MIG12.g_ss_variant_err_count := GMD_QC_MIG12.g_ss_variant_err_count + 1;
8169: x_exception_count := x_exception_count + 1;
8170:
8171: WHEN VAR_SUBINV_ERROR THEN
8172: GMA_COMMON_LOGGING.gma_migration_central_log (
8180: p_param1 => to_char(l_storage_locator_id),
8181: p_param2 => 'VARIANT_ID',
8182: p_param3 => to_char(l_var_rec.variant_id),
8183: p_app_short_name => 'GMD');
8184: GMD_QC_MIG12.g_ss_variant_err_count := GMD_QC_MIG12.g_ss_variant_err_count + 1;
8185: x_exception_count := x_exception_count + 1;
8186:
8187:
8188: WHEN OTHERS THEN
8185: x_exception_count := x_exception_count + 1;
8186:
8187:
8188: WHEN OTHERS THEN
8189: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8190: GMA_COMMON_LOGGING.gma_migration_central_log (
8191: p_run_id => p_migration_run_id,
8192: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
8193: p_message_token => 'GMA_MIGRATION_DB_ERROR',
8206: /*==============================================
8207: Log End of gmd_ss_variants.
8208: ==============================================*/
8209:
8210: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8211:
8212: /*==============================================
8213: Retrieve Default Storage Package Orgn Code.
8214: Source is gmd_migrate_parms.
8221: IF (l_def_ss_org IS NULL) THEN
8222: /*==============================================
8223: Get Default Lab Type Profile Value
8224: ==============================================*/
8225: l_def_ss_org := GMD_QC_MIG12.GET_PROFILE_VALUE('GEMMS_DEFAULT_LAB_TYPE');
8226:
8227: IF (l_def_ss_org IS NULL) THEN
8228: RAISE NULL_DEFAULT_LAB;
8229: END IF;
8261: ROLLBACK;
8262: RETURN;
8263:
8264: WHEN OTHERS THEN
8265: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8266: GMA_COMMON_LOGGING.gma_migration_central_log (
8267: p_run_id => p_migration_run_id,
8268: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
8269: p_message_token => 'GMA_MIGRATION_DB_ERROR',
8290: p_param1 => 'GMD_SS_STORAGE_PACKAGE',
8291: p_context => 'Quality Stability Studies',
8292: p_app_short_name => 'GMA');
8293:
8294: GMD_QC_MIG12.g_store_pack_upd_count := 0;
8295: GMD_QC_MIG12.g_store_pack_ins_count := 0;
8296: GMD_QC_MIG12.g_store_pack_pro_count := 0;
8297: GMD_QC_MIG12.g_store_pack_err_count := 0;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8291: p_context => 'Quality Stability Studies',
8292: p_app_short_name => 'GMA');
8293:
8294: GMD_QC_MIG12.g_store_pack_upd_count := 0;
8295: GMD_QC_MIG12.g_store_pack_ins_count := 0;
8296: GMD_QC_MIG12.g_store_pack_pro_count := 0;
8297: GMD_QC_MIG12.g_store_pack_err_count := 0;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8299:
8292: p_app_short_name => 'GMA');
8293:
8294: GMD_QC_MIG12.g_store_pack_upd_count := 0;
8295: GMD_QC_MIG12.g_store_pack_ins_count := 0;
8296: GMD_QC_MIG12.g_store_pack_pro_count := 0;
8297: GMD_QC_MIG12.g_store_pack_err_count := 0;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8299:
8300: FOR l_store_pack IN get_store_pack LOOP
8293:
8294: GMD_QC_MIG12.g_store_pack_upd_count := 0;
8295: GMD_QC_MIG12.g_store_pack_ins_count := 0;
8296: GMD_QC_MIG12.g_store_pack_pro_count := 0;
8297: GMD_QC_MIG12.g_store_pack_err_count := 0;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8299:
8300: FOR l_store_pack IN get_store_pack LOOP
8301: BEGIN -- end get_store_pack subprogram
8294: GMD_QC_MIG12.g_store_pack_upd_count := 0;
8295: GMD_QC_MIG12.g_store_pack_ins_count := 0;
8296: GMD_QC_MIG12.g_store_pack_pro_count := 0;
8297: GMD_QC_MIG12.g_store_pack_err_count := 0;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8299:
8300: FOR l_store_pack IN get_store_pack LOOP
8301: BEGIN -- end get_store_pack subprogram
8302: GMD_QC_MIG12.g_store_pack_pro_count := GMD_QC_MIG12.g_store_pack_pro_count + 1;
8298: GMD_QC_MIG12.g_progress_ind := 5;
8299:
8300: FOR l_store_pack IN get_store_pack LOOP
8301: BEGIN -- end get_store_pack subprogram
8302: GMD_QC_MIG12.g_store_pack_pro_count := GMD_QC_MIG12.g_store_pack_pro_count + 1;
8303: /*======================================
8304: Check if uom migrated successfully.
8305: Removed this check.
8306: ======================================*/
8346: inventory_item_id = l_store_pack_invitem_id,
8347: migrated_ind = 1
8348: WHERE package_id = l_store_pack.package_id;
8349:
8350: GMD_QC_MIG12.g_store_pack_upd_count := GMD_QC_MIG12.g_store_pack_upd_count + 1;
8351: ELSE
8352: /*========================================
8353: Use Org from Stability Study.
8354: ========================================*/
8389: migrated_ind = 1
8390: WHERE package_id = l_store_pack.package_id;
8391:
8392:
8393: GMD_QC_MIG12.g_store_pack_upd_count := GMD_QC_MIG12.g_store_pack_upd_count + 1;
8394:
8395: /*==========================================
8396: Continue with Stability Studies.
8397: ==========================================*/
8401: /*=================================
8402: Create Text Code if it exists.
8403: =================================*/
8404: IF (l_store_pack.text_code IS NOT NULL AND l_store_pack.text_code > 0) THEN
8405: l_text_code := GMD_QC_MIG12.COPY_TEXT(l_store_pack.text_code, p_migration_run_id);
8406: ELSE
8407: l_text_code := NULL;
8408: END IF;
8409:
8496: l_store_pack.QUANTITY_UOM,
8497: l_store_pack.INVENTORY_ITEM_ID
8498: );
8499:
8500: GMD_QC_MIG12.g_store_pack_ins_count := GMD_QC_MIG12.g_store_pack_ins_count + 1;
8501:
8502: /*================================
8503: Update gmd_ss_variants to point
8504: to new package record.
8539: p_param3 => 'PACKAGE_ID',
8540: p_param4 => to_char(l_store_pack.package_id),
8541: p_app_short_name => 'GMD');
8542: ROLLBACK;
8543: GMD_QC_MIG12.g_store_pack_err_count := GMD_QC_MIG12.g_store_pack_err_count + 1;
8544: x_exception_count := x_exception_count + 1;
8545:
8546:
8547: WHEN STORE_SS_ORG THEN
8557: p_param2 => 'PACKAGE_ID',
8558: p_param3 => to_char(l_store_pack.package_id),
8559: p_app_short_name => 'GMD');
8560: ROLLBACK;
8561: GMD_QC_MIG12.g_store_pack_err_count := GMD_QC_MIG12.g_store_pack_err_count + 1;
8562: x_exception_count := x_exception_count + 1;
8563:
8564: WHEN STORE_ODM_ITEM THEN
8565: GMA_COMMON_LOGGING.gma_migration_central_log (
8576: p_param3 => 'PACKAGE_ID',
8577: p_param4 => to_char(l_store_pack.package_id),
8578: p_app_short_name => 'GMD');
8579: ROLLBACK;
8580: GMD_QC_MIG12.g_store_pack_err_count := GMD_QC_MIG12.g_store_pack_err_count + 1;
8581: x_exception_count := x_exception_count + 1;
8582:
8583:
8584: WHEN OTHERS THEN
8581: x_exception_count := x_exception_count + 1;
8582:
8583:
8584: WHEN OTHERS THEN
8585: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8586: GMA_COMMON_LOGGING.gma_migration_central_log (
8587: p_run_id => p_migration_run_id,
8588: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
8589: p_message_token => 'GMA_MIGRATION_DB_ERROR',
8601: /*==============================================
8602: Log End of gmd_ss_storage_package.
8603: ==============================================*/
8604:
8605: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8606:
8607:
8608: /*==============================================
8609: Log Start of gmd_ss_storage_history.
8618: p_param1 => 'GMD_SS_STORAGE_HISTORY',
8619: p_context => 'Quality Stability Studies',
8620: p_app_short_name => 'GMA');
8621:
8622: GMD_QC_MIG12.g_ss_storehist_pro_count := 0;
8623: GMD_QC_MIG12.g_ss_storehist_err_count := 0;
8624: GMD_QC_MIG12.g_ss_storehist_upd_count := 0;
8625: GMD_QC_MIG12.g_progress_ind := 6;
8626:
8619: p_context => 'Quality Stability Studies',
8620: p_app_short_name => 'GMA');
8621:
8622: GMD_QC_MIG12.g_ss_storehist_pro_count := 0;
8623: GMD_QC_MIG12.g_ss_storehist_err_count := 0;
8624: GMD_QC_MIG12.g_ss_storehist_upd_count := 0;
8625: GMD_QC_MIG12.g_progress_ind := 6;
8626:
8627: /*====================================
8620: p_app_short_name => 'GMA');
8621:
8622: GMD_QC_MIG12.g_ss_storehist_pro_count := 0;
8623: GMD_QC_MIG12.g_ss_storehist_err_count := 0;
8624: GMD_QC_MIG12.g_ss_storehist_upd_count := 0;
8625: GMD_QC_MIG12.g_progress_ind := 6;
8626:
8627: /*====================================
8628: Migrate gmd_ss_storage_history.
8621:
8622: GMD_QC_MIG12.g_ss_storehist_pro_count := 0;
8623: GMD_QC_MIG12.g_ss_storehist_err_count := 0;
8624: GMD_QC_MIG12.g_ss_storehist_upd_count := 0;
8625: GMD_QC_MIG12.g_progress_ind := 6;
8626:
8627: /*====================================
8628: Migrate gmd_ss_storage_history.
8629: ====================================*/
8629: ====================================*/
8630:
8631: FOR l_hist_rec IN get_ss_history LOOP
8632: BEGIN -- end get_ss_hist subprogram
8633: GMD_QC_MIG12.g_ss_storehist_pro_count := GMD_QC_MIG12.g_ss_storehist_pro_count + 1;
8634: /*===============================
8635: Get org_id and subinventory
8636: ===============================*/
8637:
8635: Get org_id and subinventory
8636: ===============================*/
8637:
8638: IF (l_hist_rec.whse_code IS NOT NULL) THEN
8639: GMD_QC_MIG12.GET_WHSE_INFO (
8640: p_whse_code => l_hist_rec.whse_code,
8641: x_organization_id => l_hist_org_id,
8642: x_subinv_ind => l_hist_subinvind,
8643: x_loct_ctl => l_hist_loct_ctl);
8655: IF (l_hist_rec.location IS NOT NULL) THEN
8656: IF (l_hist_rec.location = 'NONE') THEN
8657: l_hist_locator_id := NULL;
8658: ELSE
8659: l_hist_locator_id := GMD_QC_MIG12.GET_LOCATOR_ID (
8660: p_whse_code => l_hist_rec.whse_code,
8661: p_location => l_hist_rec.location);
8662:
8663: IF (l_hist_locator_id IS NULL) THEN
8685: END IF; -- none location
8686: END IF;
8687:
8688: IF (l_hist_locator_id IS NOT NULL) THEN
8689: GMD_QC_MIG12.GET_SUBINV_DATA(l_hist_locator_id,
8690: l_subinv,
8691: lsub_organization_id);
8692:
8693: IF (lsub_organization_id IS NULL) THEN
8724: IF (p_commit = FND_API.G_TRUE) THEN
8725: COMMIT;
8726: END IF;
8727:
8728: GMD_QC_MIG12.g_ss_storehist_upd_count := GMD_QC_MIG12.g_ss_storehist_upd_count + 1;
8729:
8730: EXCEPTION
8731: WHEN HIST_WHSE_ERROR THEN
8732: GMA_COMMON_LOGGING.gma_migration_central_log (
8742: p_param2 => 'WHSE_CODE',
8743: p_param3 => 'STORAGE_HISTORY_ID',
8744: p_param4 => to_char(l_hist_rec.storage_history_id),
8745: p_app_short_name => 'GMD');
8746: GMD_QC_MIG12.g_ss_storehist_err_count := GMD_QC_MIG12.g_ss_storehist_err_count + 1;
8747: x_exception_count := x_exception_count + 1;
8748:
8749: WHEN HIST_CREATE_LOC THEN
8750: GMA_COMMON_LOGGING.gma_migration_central_log (
8758: p_param1 => 'STORAGE_HISTORY_ID',
8759: p_param2 => to_char(l_hist_rec.storage_history_id),
8760: p_param3 => 'LOCATION',
8761: p_app_short_name => 'GMD');
8762: GMD_QC_MIG12.g_ss_storehist_err_count := GMD_QC_MIG12.g_ss_storehist_err_count + 1;
8763: x_exception_count := x_exception_count + 1;
8764:
8765: WHEN HIST_LOCATOR_ID THEN
8766: GMA_COMMON_LOGGING.gma_migration_central_log (
8778: p_param3 => 'LOCATION',
8779: p_param4 => 'STORAGE_HISTORY_ID',
8780: p_param5 => to_char(l_hist_rec.storage_history_id),
8781: p_app_short_name => 'GMD');
8782: GMD_QC_MIG12.g_ss_storehist_err_count := GMD_QC_MIG12.g_ss_storehist_err_count + 1;
8783: x_exception_count := x_exception_count + 1;
8784:
8785: WHEN HIST_SUBINV_ERROR THEN
8786: GMA_COMMON_LOGGING.gma_migration_central_log (
8794: p_param1 => to_char(l_hist_locator_id),
8795: p_param2 => 'STORAGE_HISTORY_ID',
8796: p_param3 => to_char(l_hist_rec.storage_history_id),
8797: p_app_short_name => 'GMD');
8798: GMD_QC_MIG12.g_ss_storehist_err_count := GMD_QC_MIG12.g_ss_storehist_err_count + 1;
8799: x_exception_count := x_exception_count + 1;
8800:
8801: WHEN OTHERS THEN
8802: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8798: GMD_QC_MIG12.g_ss_storehist_err_count := GMD_QC_MIG12.g_ss_storehist_err_count + 1;
8799: x_exception_count := x_exception_count + 1;
8800:
8801: WHEN OTHERS THEN
8802: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8803: GMA_COMMON_LOGGING.gma_migration_central_log (
8804: p_run_id => p_migration_run_id,
8805: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
8806: p_message_token => 'GMA_MIGRATION_DB_ERROR',
8818: /*==============================================
8819: Log End of gmd_ss_storage_history.
8820: ==============================================*/
8821:
8822: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8823:
8824:
8825: EXCEPTION
8826:
8834:
8835: x_exception_count := x_exception_count + 1;
8836:
8837: WHEN OTHERS THEN
8838: LOG_SS_COUNTS(p_migration_run_id, GMD_QC_MIG12.g_progress_ind);
8839: GMA_COMMON_LOGGING.gma_migration_central_log (
8840: p_run_id => p_migration_run_id,
8841: p_log_level => FND_LOG.LEVEL_UNEXPECTED,
8842: p_message_token => 'GMA_MIGRATION_DB_ERROR',