176: if (upper(p_Debug_Flag) = 'Y') then
177: l_debug := true;
178: end if;
179:
180: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration started');
182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
183: end if;
184:
177: l_debug := true;
178: end if;
179:
180: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration started');
182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
183: end if;
184:
185: -- Initialize retcode to success
178: end if;
179:
180: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration started');
182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
183: end if;
184:
185: -- Initialize retcode to success
186: RETCODE := FND_API.G_RET_STS_SUCCESS;
192: RETCODE := G_RET_STS_WARNING;
193: end if;
194: end loop;
195:
196: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration finished succesfully');
198: end if;
199:
200: commit;
193: end if;
194: end loop;
195:
196: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration finished succesfully');
198: end if;
199:
200: commit;
201:
198: end if;
199:
200: commit;
201:
202: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration finished successfully');
204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
205: end if;
206:
199:
200: commit;
201:
202: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration finished successfully');
204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
205: end if;
206:
207: if (RETCODE = G_RET_STS_WARNING) then
200: commit;
201:
202: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Perz data migration finished successfully');
204: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
205: end if;
206:
207: if (RETCODE = G_RET_STS_WARNING) then
208: l_status := fnd_concurrent.set_completion_status('WARNING',FND_MESSAGE.Get_String('AS','API_REQUEST_WARNING_STATUS'));
276: SAVEPOINT Process_Perz_Query_Params;
277:
278: l_debug := p_debug;
279:
280: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
281: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Processing query ' || p_query_name);
282: end if;
283:
284: x_ret_sts_warning := 'N';
277:
278: l_debug := p_debug;
279:
280: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
281: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Processing query ' || p_query_name);
282: end if;
283:
284: x_ret_sts_warning := 'N';
285:
289: for scr in C_Get_Query_Params(p_query_id)
290: loop
291: l_cnt := l_cnt + 1;
292:
293: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
290: loop
291: l_cnt := l_cnt + 1;
292:
293: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
298: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_value:'||scr.parameter_value);
291: l_cnt := l_cnt + 1;
292:
293: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
298: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_value:'||scr.parameter_value);
299: END IF;
292:
293: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
298: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_value:'||scr.parameter_value);
299: END IF;
300:
293: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
298: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_value:'||scr.parameter_value);
299: END IF;
300:
301: if (scr.parameter_type = 'condition') then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Query details are query_id='||p_query_id);
295: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','query_param_id:'||scr.query_param_id);
296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_name:'||scr.parameter_name);
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_type:'||scr.parameter_type);
298: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','parameter_value:'||scr.parameter_value);
299: END IF;
300:
301: if (scr.parameter_type = 'condition') then
302: if (scr.parameter_name = 'productCategory' or scr.parameter_name = 'prodCat') then
330: l_warning := 'Y';
331: exit;
332: end if;
333:
334: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','product category id=' || l_product_cat_id || ', category set id='||l_product_cat_set_id);
336: END IF;
337:
338: -- Set product category id in the JTF_PERZ_QUERY_PARAM table
331: exit;
332: end if;
333:
334: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','product category id=' || l_product_cat_id || ', category set id='||l_product_cat_set_id);
336: END IF;
337:
338: -- Set product category id in the JTF_PERZ_QUERY_PARAM table
339: Update JTF_PERZ_QUERY_PARAM P
426: exit;
427: end if;
428: end if;
429:
430: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','product category id=' || l_product_cat_id || ', category set id='||l_product_cat_set_id);
432: END IF;
433:
434: -- Set product category id in the JTF_PERZ_QUERY_PARAM table
427: end if;
428: end if;
429:
430: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','product category id=' || l_product_cat_id || ', category set id='||l_product_cat_set_id);
432: END IF;
433:
434: -- Set product category id in the JTF_PERZ_QUERY_PARAM table
435: Update JTF_PERZ_QUERY_PARAM P
520: if (upper(p_Debug_Flag) = 'Y') then
521: l_debug := true;
522: end if;
523:
524: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Lines');
526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
527: end if;
528:
521: l_debug := true;
522: end if;
523:
524: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Lines');
526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
527: end if;
528:
529: -- First find out the existing state of the triggers
522: end if;
523:
524: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Lines');
526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
527: end if;
528:
529: -- First find out the existing state of the triggers
530: FOR scr in Get_Disabled_Triggers(G_SCHEMA_NAME)
530: FOR scr in Get_Disabled_Triggers(G_SCHEMA_NAME)
531: LOOP
532: if (scr.trigger_name = 'AS_LEAD_LINES_BIUD') then
533: l_lead_lines_biud := false;
534: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_BIUD is already disabled');
536: end if;
537: elsif (scr.trigger_name = 'AS_LEAD_LINES_AFTER_BIUD') then
538: l_lead_lines_after_biud := false;
531: LOOP
532: if (scr.trigger_name = 'AS_LEAD_LINES_BIUD') then
533: l_lead_lines_biud := false;
534: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_BIUD is already disabled');
536: end if;
537: elsif (scr.trigger_name = 'AS_LEAD_LINES_AFTER_BIUD') then
538: l_lead_lines_after_biud := false;
539: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_BIUD is already disabled');
536: end if;
537: elsif (scr.trigger_name = 'AS_LEAD_LINES_AFTER_BIUD') then
538: l_lead_lines_after_biud := false;
539: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
540: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_AFTER_BIUD is already disabled');
541: end if;
542: elsif (scr.trigger_name = 'AS_SALES_CREDITS_BIUD') then
543: l_sales_credits_biud := false;
536: end if;
537: elsif (scr.trigger_name = 'AS_LEAD_LINES_AFTER_BIUD') then
538: l_lead_lines_after_biud := false;
539: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
540: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_AFTER_BIUD is already disabled');
541: end if;
542: elsif (scr.trigger_name = 'AS_SALES_CREDITS_BIUD') then
543: l_sales_credits_biud := false;
544: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
540: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_LEAD_LINES_AFTER_BIUD is already disabled');
541: end if;
542: elsif (scr.trigger_name = 'AS_SALES_CREDITS_BIUD') then
543: l_sales_credits_biud := false;
544: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_SALES_CREDITS_BIUD is already disabled');
546: end if;
547: elsif (scr.trigger_name = 'AS_SALES_CREDITS_AFTER_BIUD') then
548: l_sales_credits_after_biud := false;
541: end if;
542: elsif (scr.trigger_name = 'AS_SALES_CREDITS_BIUD') then
543: l_sales_credits_biud := false;
544: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_SALES_CREDITS_BIUD is already disabled');
546: end if;
547: elsif (scr.trigger_name = 'AS_SALES_CREDITS_AFTER_BIUD') then
548: l_sales_credits_after_biud := false;
549: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_SALES_CREDITS_BIUD is already disabled');
546: end if;
547: elsif (scr.trigger_name = 'AS_SALES_CREDITS_AFTER_BIUD') then
548: l_sales_credits_after_biud := false;
549: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_SALES_CREDITS_AFTER_BIUD is already disabled');
551: end if;
552: end if;
553: END LOOP;
546: end if;
547: elsif (scr.trigger_name = 'AS_SALES_CREDITS_AFTER_BIUD') then
548: l_sales_credits_after_biud := false;
549: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Trigger AS_SALES_CREDITS_AFTER_BIUD is already disabled');
551: end if;
552: end if;
553: END LOOP;
554:
559: open Get_Min_Id;
560: fetch Get_Min_Id into l_min_id;
561: close Get_Min_Id;
562:
563: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
565: end if;
566:
567: open Get_Next_Val;
560: fetch Get_Min_Id into l_min_id;
561: close Get_Min_Id;
562:
563: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
565: end if;
566:
567: open Get_Next_Val;
568: fetch Get_Next_Val into l_max_id;
567: open Get_Next_Val;
568: fetch Get_Next_Val into l_max_id;
569: close Get_Next_Val;
570:
571: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
573: end if;
574:
575: -- Create temporary index to improve the performance
568: fetch Get_Next_Val into l_max_id;
569: close Get_Next_Val;
570:
571: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
573: end if;
574:
575: -- Create temporary index to improve the performance
576: Create_Temp_Index('AS_LEAD_LINES_ALL','LEAD_LINE_ID,INTEREST_TYPE_ID,PRIMARY_INTEREST_CODE_ID,SECONDARY_INTEREST_CODE_ID',l_debug);
579: l_count := l_min_id;
580:
581: while (l_count <= l_max_id)
582: loop
583: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
585: end if;
586:
587: -- Update interest type
580:
581: while (l_count <= l_max_id)
582: loop
583: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
585: end if;
586:
587: -- Update interest type
588: update as_lead_lines_all l
630: -- Enable All the triggers
631: Enable_Triggers(l_lead_lines_biud,l_lead_lines_after_biud,l_sales_credits_biud,l_sales_credits_after_biud);
632:
633:
634: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Lines finished successfully');
636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
637: end if;
638: EXCEPTION
631: Enable_Triggers(l_lead_lines_biud,l_lead_lines_after_biud,l_sales_credits_biud,l_sales_credits_after_biud);
632:
633:
634: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Lines finished successfully');
636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
637: end if;
638: EXCEPTION
639: WHEN OTHERS THEN
632:
633:
634: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Lines finished successfully');
636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
637: end if;
638: EXCEPTION
639: WHEN OTHERS THEN
640: Rollback;
682: if (upper(p_Debug_Flag) = 'Y') then
683: l_debug := true;
684: end if;
685:
686: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
687: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Categories');
688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
689: end if;
690:
683: l_debug := true;
684: end if;
685:
686: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
687: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Categories');
688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
689: end if;
690:
691: open Get_Min_Id;
684: end if;
685:
686: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
687: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Categories');
688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
689: end if;
690:
691: open Get_Min_Id;
692: fetch Get_Min_Id into l_min_id;
691: open Get_Min_Id;
692: fetch Get_Min_Id into l_min_id;
693: close Get_Min_Id;
694:
695: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
697: end if;
698:
699: open Get_Next_Val;
692: fetch Get_Min_Id into l_min_id;
693: close Get_Min_Id;
694:
695: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
697: end if;
698:
699: open Get_Next_Val;
700: fetch Get_Next_Val into l_max_id;
699: open Get_Next_Val;
700: fetch Get_Next_Val into l_max_id;
701: close Get_Next_Val;
702:
703: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
705: end if;
706:
707: -- Create temporary index to improve the performance
700: fetch Get_Next_Val into l_max_id;
701: close Get_Next_Val;
702:
703: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
705: end if;
706:
707: -- Create temporary index to improve the performance
708: Create_Temp_Index('AS_FST_SALES_CATEGORIES','FST_SALES_CATEGORY_ID,INTEREST_TYPE_ID',l_debug);
711: l_count := l_min_id;
712:
713: while (l_count <= l_max_id)
714: loop
715: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
716: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
717: end if;
718:
719: -- Update interest type
712:
713: while (l_count <= l_max_id)
714: loop
715: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
716: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
717: end if;
718:
719: -- Update interest type
720: update as_fst_sales_categories l
735:
736: -- Drop temporary index
737: Drop_Temp_Index('AS_FST_SALES_CATEGORIES',l_debug);
738:
739: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Categories finished successfully');
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
742: end if;
743: EXCEPTION
736: -- Drop temporary index
737: Drop_Temp_Index('AS_FST_SALES_CATEGORIES',l_debug);
738:
739: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Categories finished successfully');
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
742: end if;
743: EXCEPTION
744: WHEN OTHERS THEN
737: Drop_Temp_Index('AS_FST_SALES_CATEGORIES',l_debug);
738:
739: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Categories finished successfully');
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
742: end if;
743: EXCEPTION
744: WHEN OTHERS THEN
745: Rollback;
785: if (upper(p_Debug_Flag) = 'Y') then
786: l_debug := true;
787: end if;
788:
789: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
790: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Product Interests');
791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
792: end if;
793:
786: l_debug := true;
787: end if;
788:
789: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
790: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Product Interests');
791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
792: end if;
793:
794: open Get_Min_Id;
787: end if;
788:
789: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
790: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Product Interests');
791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
792: end if;
793:
794: open Get_Min_Id;
795: fetch Get_Min_Id into l_min_id;
794: open Get_Min_Id;
795: fetch Get_Min_Id into l_min_id;
796: close Get_Min_Id;
797:
798: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
800: end if;
801:
802: open Get_Next_Val;
795: fetch Get_Min_Id into l_min_id;
796: close Get_Min_Id;
797:
798: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
800: end if;
801:
802: open Get_Next_Val;
803: fetch Get_Next_Val into l_max_id;
802: open Get_Next_Val;
803: fetch Get_Next_Val into l_max_id;
804: close Get_Next_Val;
805:
806: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
808: end if;
809:
810: -- Create temporary index to improve the performance
803: fetch Get_Next_Val into l_max_id;
804: close Get_Next_Val;
805:
806: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
808: end if;
809:
810: -- Create temporary index to improve the performance
811: Create_Temp_Index('AS_INTERESTS_ALL','INTEREST_ID,INTEREST_TYPE_ID,PRIMARY_INTEREST_CODE_ID,SECONDARY_INTEREST_CODE_ID',l_debug);
814: l_count := l_min_id;
815:
816: while (l_count <= l_max_id)
817: loop
818: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
819: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
820: end if;
821:
822: -- Update interest type
815:
816: while (l_count <= l_max_id)
817: loop
818: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
819: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
820: end if;
821:
822: -- Update interest type
823: update as_interests_all l
861:
862: -- Drop temporary index
863: Drop_Temp_Index('AS_INTERESTS_ALL',l_debug);
864:
865: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Product Interests finished successfully');
867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
868: end if;
869: EXCEPTION
862: -- Drop temporary index
863: Drop_Temp_Index('AS_INTERESTS_ALL',l_debug);
864:
865: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Product Interests finished successfully');
867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
868: end if;
869: EXCEPTION
870: WHEN OTHERS THEN
863: Drop_Temp_Index('AS_INTERESTS_ALL',l_debug);
864:
865: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Product Interests finished successfully');
867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
868: end if;
869: EXCEPTION
870: WHEN OTHERS THEN
871: Rollback;
911: if (upper(p_Debug_Flag) = 'Y') then
912: l_debug := true;
913: end if;
914:
915: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Logs');
917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
918: end if;
919:
912: l_debug := true;
913: end if;
914:
915: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Logs');
917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
918: end if;
919:
920: open Get_Min_Id;
913: end if;
914:
915: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
916: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Opportunity Logs');
917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
918: end if;
919:
920: open Get_Min_Id;
921: fetch Get_Min_Id into l_min_id;
920: open Get_Min_Id;
921: fetch Get_Min_Id into l_min_id;
922: close Get_Min_Id;
923:
924: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
925: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
926: end if;
927:
928: open Get_Next_Val;
921: fetch Get_Min_Id into l_min_id;
922: close Get_Min_Id;
923:
924: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
925: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
926: end if;
927:
928: open Get_Next_Val;
929: fetch Get_Next_Val into l_max_id;
928: open Get_Next_Val;
929: fetch Get_Next_Val into l_max_id;
930: close Get_Next_Val;
931:
932: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
933: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
934: end if;
935:
936: -- Create temporary index to improve the performance
929: fetch Get_Next_Val into l_max_id;
930: close Get_Next_Val;
931:
932: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
933: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
934: end if;
935:
936: -- Create temporary index to improve the performance
937: Create_Temp_Index('AS_LEAD_LINES_LOG','LOG_ID,INTEREST_TYPE_ID,PRIMARY_INTEREST_CODE_ID,SECONDARY_INTEREST_CODE_ID',l_debug);
940: l_count := l_min_id;
941:
942: while (l_count <= l_max_id)
943: loop
944: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
945: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
946: end if;
947:
948: -- Update interest type
941:
942: while (l_count <= l_max_id)
943: loop
944: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
945: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
946: end if;
947:
948: -- Update interest type
949: update as_lead_lines_log l
987:
988: -- Drop temporary index
989: Drop_Temp_Index('AS_LEAD_LINES_LOG',l_debug);
990:
991: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Logs finished successfully');
993: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
994: end if;
995: EXCEPTION
988: -- Drop temporary index
989: Drop_Temp_Index('AS_LEAD_LINES_LOG',l_debug);
990:
991: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Logs finished successfully');
993: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
994: end if;
995: EXCEPTION
996: WHEN OTHERS THEN
989: Drop_Temp_Index('AS_LEAD_LINES_LOG',l_debug);
990:
991: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Opportunity Logs finished successfully');
993: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
994: end if;
995: EXCEPTION
996: WHEN OTHERS THEN
997: Rollback;
1037: if (upper(p_Debug_Flag) = 'Y') then
1038: l_debug := true;
1039: end if;
1040:
1041: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Sales Credits');
1043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1044: end if;
1045:
1038: l_debug := true;
1039: end if;
1040:
1041: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Sales Credits');
1043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1044: end if;
1045:
1046: open Get_Min_Id;
1039: end if;
1040:
1041: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Sales Credits');
1043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1044: end if;
1045:
1046: open Get_Min_Id;
1047: fetch Get_Min_Id into l_min_id;
1046: open Get_Min_Id;
1047: fetch Get_Min_Id into l_min_id;
1048: close Get_Min_Id;
1049:
1050: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1051: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
1052: end if;
1053:
1054: open Get_Next_Val;
1047: fetch Get_Min_Id into l_min_id;
1048: close Get_Min_Id;
1049:
1050: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1051: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
1052: end if;
1053:
1054: open Get_Next_Val;
1055: fetch Get_Next_Val into l_max_id;
1054: open Get_Next_Val;
1055: fetch Get_Next_Val into l_max_id;
1056: close Get_Next_Val;
1057:
1058: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
1060: end if;
1061:
1062: -- Create temporary index to improve the performance
1055: fetch Get_Next_Val into l_max_id;
1056: close Get_Next_Val;
1057:
1058: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
1060: end if;
1061:
1062: -- Create temporary index to improve the performance
1063: Create_Temp_Index('AS_SALES_CREDITS_DENORM','SALES_CREDIT_ID,INTEREST_TYPE_ID,PRIMARY_INTEREST_CODE_ID,SECONDARY_INTEREST_CODE_ID',l_debug);
1066: l_count := l_min_id;
1067:
1068: while (l_count <= l_max_id)
1069: loop
1070: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1071: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
1072: end if;
1073:
1074: -- Update interest type
1067:
1068: while (l_count <= l_max_id)
1069: loop
1070: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1071: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
1072: end if;
1073:
1074: -- Update interest type
1075: update as_sales_credits_denorm l
1113:
1114: -- Drop temporary index
1115: Drop_Temp_Index('AS_SALES_CREDITS_DENORM',l_debug);
1116:
1117: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Sales Credits finished successfully');
1119: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1120: end if;
1121: EXCEPTION
1114: -- Drop temporary index
1115: Drop_Temp_Index('AS_SALES_CREDITS_DENORM',l_debug);
1116:
1117: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Sales Credits finished successfully');
1119: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1120: end if;
1121: EXCEPTION
1122: WHEN OTHERS THEN
1115: Drop_Temp_Index('AS_SALES_CREDITS_DENORM',l_debug);
1116:
1117: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Sales Credits finished successfully');
1119: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1120: end if;
1121: EXCEPTION
1122: WHEN OTHERS THEN
1123: Rollback;
1165: if (upper(p_Debug_Flag) = 'Y') then
1166: l_debug := true;
1167: end if;
1168:
1169: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Product Worksheet');
1171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1172: end if;
1173:
1166: l_debug := true;
1167: end if;
1168:
1169: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Product Worksheet');
1171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1172: end if;
1173:
1174: open Get_Min_Id;
1167: end if;
1168:
1169: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Forecast Product Worksheet');
1171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1172: end if;
1173:
1174: open Get_Min_Id;
1175: fetch Get_Min_Id into l_min_id;
1174: open Get_Min_Id;
1175: fetch Get_Min_Id into l_min_id;
1176: close Get_Min_Id;
1177:
1178: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1179: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
1180: end if;
1181:
1182: open Get_Next_Val;
1175: fetch Get_Min_Id into l_min_id;
1176: close Get_Min_Id;
1177:
1178: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1179: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Minimum Id found:' || l_min_id);
1180: end if;
1181:
1182: open Get_Next_Val;
1183: fetch Get_Next_Val into l_max_id;
1182: open Get_Next_Val;
1183: fetch Get_Next_Val into l_max_id;
1184: close Get_Next_Val;
1185:
1186: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
1188: end if;
1189:
1190: -- Create temporary index to improve the performance
1183: fetch Get_Next_Val into l_max_id;
1184: close Get_Next_Val;
1185:
1186: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Maximum Id found:' || l_max_id);
1188: end if;
1189:
1190: -- Create temporary index to improve the performance
1191: Create_Temp_Index('AS_PROD_WORKSHEET_LINES','PROD_WORKSHEET_LINE_ID,INTEREST_TYPE_ID',l_debug);
1194: l_count := l_min_id;
1195:
1196: while (l_count <= l_max_id)
1197: loop
1198: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
1200: end if;
1201:
1202: -- Update interest type
1195:
1196: while (l_count <= l_max_id)
1197: loop
1198: IF (l_debug) and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) Then
1199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Current loop count:' || l_count);
1200: end if;
1201:
1202: -- Update interest type
1203: update AS_PROD_WORKSHEET_LINES pwl
1218:
1219: -- Drop temporary index
1220: Drop_Temp_Index('AS_PROD_WORKSHEET_LINES',l_debug);
1221:
1222: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Product Worksheet finished successfully');
1224: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1225: end if;
1226: EXCEPTION
1219: -- Drop temporary index
1220: Drop_Temp_Index('AS_PROD_WORKSHEET_LINES',l_debug);
1221:
1222: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Product Worksheet finished successfully');
1224: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1225: end if;
1226: EXCEPTION
1227: WHEN OTHERS THEN
1220: Drop_Temp_Index('AS_PROD_WORKSHEET_LINES',l_debug);
1221:
1222: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for Forecast Product Worksheet finished successfully');
1224: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1225: end if;
1226: EXCEPTION
1227: WHEN OTHERS THEN
1228: Rollback;
1255: if (upper(p_Debug_Flag) = 'Y') then
1256: l_debug := true;
1257: end if;
1258:
1259: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Plan Element Categories');
1261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1262: end if;
1263:
1256: l_debug := true;
1257: end if;
1258:
1259: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Plan Element Categories');
1261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1262: end if;
1263:
1264:
1257: end if;
1258:
1259: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration started for Plan Element Categories');
1261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1262: end if;
1263:
1264:
1265: -- Update interest type
1291:
1292: -- commit after each batch
1293: commit;
1294:
1295: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for OIC Plan Elements finished successfully');
1297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1298: end if;
1299: EXCEPTION
1292: -- commit after each batch
1293: commit;
1294:
1295: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for OIC Plan Elements finished successfully');
1297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1298: end if;
1299: EXCEPTION
1300: WHEN OTHERS THEN
1293: commit;
1294:
1295: If l_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Migration for OIC Plan Elements finished successfully');
1297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','End time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1298: end if;
1299: EXCEPTION
1300: WHEN OTHERS THEN
1301: Rollback;
1383: -----------------
1384:
1385: l_user := USER;
1386:
1387: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','User is:' || l_user);
1389: end if;
1390:
1391: -- Name for temporary index created for migration
1384:
1385: l_user := USER;
1386:
1387: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1388: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','User is:' || l_user);
1389: end if;
1390:
1391: -- Name for temporary index created for migration
1392: l_index_name := p_table || G_INDEX_SUFFIX;
1411: -- Gather Stats--
1412: -----------------
1413: dbms_stats.gather_index_stats(l_user,l_index_name,estimate_percent => 10);
1414:
1415: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1416: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Created temporary index:' || l_index_name);
1417: end if;
1418: END Create_Temp_Index;
1419:
1412: -----------------
1413: dbms_stats.gather_index_stats(l_user,l_index_name,estimate_percent => 10);
1414:
1415: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1416: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Created temporary index:' || l_index_name);
1417: end if;
1418: END Create_Temp_Index;
1419:
1420: PROCEDURE Drop_Temp_Index(p_table IN VARCHAR2,
1434: l_sql_stmt := 'drop index ' || l_user||'.' || l_index_name || ' ';
1435:
1436: execute immediate l_sql_stmt;
1437:
1438: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Dropped temporary index:' || l_index_name);
1440: end if;
1441: END Drop_Temp_Index;
1442:
1435:
1436: execute immediate l_sql_stmt;
1437:
1438: if p_debug and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'as.plsql.conc.asxmintb','Dropped temporary index:' || l_index_name);
1440: end if;
1441: END Drop_Temp_Index;
1442:
1443: /* For testing purposes we can use the following statements.