DBA Data[Home] [Help]

APPS.AMS_LISTGENERATION_PKG dependencies on AMS_UTILITY_PVT

Line 173: -- gjoby Commented out ams_utility_pvt part

169: -- writes to the Ams_Act_Logs table.
170: -- NOTES
171: -- HISTORY
172: -- 08/02/1999 tdonohoe created
173: -- gjoby Commented out ams_utility_pvt part
174: -- Autonomous trans fails in distributed trans
175: -- End of Comments
176: ----------------------------------------------------------------------------
177:

Line 227: AMS_UTILITY_PVT.CREATE_LOG(

223: fnd_file.put(1,substr(p_msg_data,1,255));
224: fnd_file.new_line(1,1);
225:
226: /*
227: AMS_UTILITY_PVT.CREATE_LOG(
228: x_return_status => l_return_status,
229: p_arc_log_used_by => 'LIST',
230: p_log_used_by_id => g_list_header_id,
231: p_msg_data => p_msg_data);

Line 10836: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists_from_remote : ');

10832: and stypes.remote_flag = 'Y';
10833:
10834: Begin
10835:
10836: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists_from_remote : ');
10837: if p_list_header_id is not null then
10838: migrate_lists( p_list_header_id ) ;
10839: else
10840: open c_migrate_list;

Line 10849: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists_from_remote : ');

10845: END LOOP;
10846: close c_migrate_list;
10847: end if;
10848: commit;
10849: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists_from_remote : ');
10850: EXCEPTION
10851: WHEN OTHERS THEN
10852: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists_from_remote : '||SQLERRM);
10853: errbuf:= substr(SQLERRM,1,254);

Line 10852: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists_from_remote : '||SQLERRM);

10848: commit;
10849: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists_from_remote : ');
10850: EXCEPTION
10851: WHEN OTHERS THEN
10852: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists_from_remote : '||SQLERRM);
10853: errbuf:= substr(SQLERRM,1,254);
10854: retcode:= 2;
10855: raise;
10856: End migrate_lists_from_remote;

Line 10881: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists : '||to_char(p_list_header_id));

10877: where list.list_source_type = stypes.source_type_code
10878: and list_header_id = p_list_header_id;
10879:
10880: begin
10881: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists : '||to_char(p_list_header_id));
10882:
10883: open c_dblink;
10884: fetch c_dblink into l_dblink;
10885: close c_dblink;

Line 10886: Ams_Utility_Pvt.Write_Conc_log('l_dblink : '||l_dblink);

10882:
10883: open c_dblink;
10884: fetch c_dblink into l_dblink;
10885: close c_dblink;
10886: Ams_Utility_Pvt.Write_Conc_log('l_dblink : '||l_dblink);
10887:
10888: write_to_act_log('Database link is '||l_dblink,'LIST',p_list_header_id,'LOW');
10889: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10890: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');

Line 10889: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');

10885: close c_dblink;
10886: Ams_Utility_Pvt.Write_Conc_log('l_dblink : '||l_dblink);
10887:
10888: write_to_act_log('Database link is '||l_dblink,'LIST',p_list_header_id,'LOW');
10889: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10890: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');
10891: delete from ams_list_entries
10892: where list_header_id = p_list_header_id;
10893: Ams_Utility_Pvt.Write_Conc_log('End Delete list entries from local instance : ');

Line 10893: Ams_Utility_Pvt.Write_Conc_log('End Delete list entries from local instance : ');

10889: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10890: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');
10891: delete from ams_list_entries
10892: where list_header_id = p_list_header_id;
10893: Ams_Utility_Pvt.Write_Conc_log('End Delete list entries from local instance : ');
10894:
10895: l_insert_sql := 'insert into ams_list_entries
10896: (list_header_id ,
10897: list_entry_id,

Line 11680: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||substrb(l_insert_sql,(2000*i) - 1999,2000));

11676: l_no_of_chunks := ceil(length(l_insert_sql)/2000 );
11677: write_to_act_log('Insert statement formed for migrating the list is..','LIST',p_list_header_id,'LOW');
11678: for i in 1 ..l_no_of_chunks
11679: loop
11680: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||substrb(l_insert_sql,(2000*i) - 1999,2000));
11681: end loop;
11682: execute immediate l_insert_sql;
11683: commit;
11684: /*

Line 11689: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists : '||to_char(p_list_header_id));

11685: l_start_rownum := l_start_rownum + 10000;
11686: l_end_rownum := l_end_rownum + 10000;
11687: END LOOP;
11688: */
11689: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists : '||to_char(p_list_header_id));
11690: SELECT user_status_id into l_user_status_id FROM ams_user_statuses_vl
11691: WHERE system_status_type = 'AMS_LIST_STATUS' AND
11692: system_status_code = 'AVAILABLE' and default_flag = 'Y';
11693: UPDATE ams_list_headers_all

Line 11708: Ams_Utility_Pvt.Write_Conc_log('After Update_List_Dets call : ');

11704: if nvl(l_return_status,'S') in ('E','U') then -- resulted in error.
11705: write_to_act_log('Error while updating list header details.', 'LIST', g_list_header_id,'HIGH');
11706: end if;
11707:
11708: Ams_Utility_Pvt.Write_Conc_log('After Update_List_Dets call : ');
11709:
11710: IF(l_return_status <>FND_API.G_RET_STS_SUCCESS )THEN
11711: RAISE FND_API.G_EXC_ERROR;
11712: END IF;

Line 11728: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists : '||SQLERRM);

11724: -- Added for cancel list gen as it prevents parallel update- Raghu
11725: -- of list headers when cancel button is pressed
11726: commit;
11727:
11728: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists : '||SQLERRM);
11729: -- errbuf:= substr(SQLERRM,1,254);
11730: -- retcode:= 2;
11731: raise;
11732: end migrate_lists;

Line 11743: Ams_Utility_Pvt.Write_Conc_log('Start migrate_word_replacements : ');

11739:
11740: l_insert_sql varchar2(32767);
11741: l_delete_sql varchar2(32767);
11742: begin
11743: Ams_Utility_Pvt.Write_Conc_log('Start migrate_word_replacements : ');
11744: l_delete_sql := 'Delete from AMS_HZ_WORD_REPLACEMENTS@'||dblink;
11745: l_insert_sql := 'Insert into AMS_HZ_WORD_REPLACEMENTS@'||dblink||' (
11746: ORIGINAL_WORD,
11747: REPLACEMENT_WORD,

Line 11803: Ams_Utility_Pvt.Write_Conc_log('l_delete_sql = '||l_delete_sql);

11799: ATTRIBUTE15,
11800: WORD_LIST_ID,
11801: OBJECT_VERSION_NUMBER
11802: FROM HZ_WORD_REPLACEMENTS ';
11803: Ams_Utility_Pvt.Write_Conc_log('l_delete_sql = '||l_delete_sql);
11804: execute immediate l_delete_sql;
11805: commit;
11806: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11807: execute immediate l_insert_sql;

Line 11806: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);

11802: FROM HZ_WORD_REPLACEMENTS ';
11803: Ams_Utility_Pvt.Write_Conc_log('l_delete_sql = '||l_delete_sql);
11804: execute immediate l_delete_sql;
11805: commit;
11806: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11807: execute immediate l_insert_sql;
11808: commit;
11809: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11810: EXCEPTION

Line 11809: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');

11805: commit;
11806: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11807: execute immediate l_insert_sql;
11808: commit;
11809: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11810: EXCEPTION
11811: WHEN OTHERS THEN
11812: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_word_replacements : '||SQLERRM);
11813: errbuf:= substr(SQLERRM,1,254);

Line 11812: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_word_replacements : '||SQLERRM);

11808: commit;
11809: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11810: EXCEPTION
11811: WHEN OTHERS THEN
11812: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_word_replacements : '||SQLERRM);
11813: errbuf:= substr(SQLERRM,1,254);
11814: retcode:= 2;
11815: raise;
11816: end migrate_word_replacements;

Line 11833: AMS_Utility_PVT.Create_Log (

11829:
11830:
11831: begin
11832:
11833: AMS_Utility_PVT.Create_Log (
11834: x_return_status => l_return_status,
11835: p_arc_log_used_by => 'LIST',
11836: p_log_used_by_id => p_list_header_id,
11837: p_msg_data => 'UPDATE_FOR_TRAFFIC_COP : Started ',

Line 11861: AMS_Utility_PVT.Create_Log (

11857: -- Added for cancel list gen as it prevents parallel update- Raghu
11858: -- of list headers when cancel button is pressed
11859: commit;
11860:
11861: AMS_Utility_PVT.Create_Log (
11862: x_return_status => l_return_status,
11863: p_arc_log_used_by => 'LIST',
11864: p_log_used_by_id => p_list_header_id,
11865: p_msg_data => 'UPDATE_FOR_TRAFFIC_COP : End ',

Line 11870: AMS_Utility_PVT.Create_Log (

11866: p_msg_type => 'DEBUG');
11867:
11868: EXCEPTION
11869: WHEN OTHERS THEN
11870: AMS_Utility_PVT.Create_Log (
11871: x_return_status => l_return_status,
11872: p_arc_log_used_by => 'LIST',
11873: p_log_used_by_id => p_list_header_id,
11874: p_msg_data => sqlerrm,

Line 12001: Ams_Utility_Pvt.Write_Conc_log('Start calc_running_total : ');

11997: where list_header_id = p_action_used_by_id;
11998:
11999: BEGIN
12000: g_list_header_id := p_action_used_by_id;
12001: Ams_Utility_Pvt.Write_Conc_log('Start calc_running_total : ');
12002: UPDATE ams_list_select_actions
12003: SET RUNNING_TOTAL = null, DELTA = null
12004: WHERE action_used_by_id = p_action_used_by_id
12005: AND arc_action_used_by = 'LIST';

Line 12043: Ams_Utility_Pvt.Write_Conc_log('process list actions : first action INCLUDE check failed');

12039: ----------------------------------------------------------------------
12040: IF (c_action_dets%ROWCOUNT = 1) THEN
12041: IF (p_action_rec.list_action_type <> 'INCLUDE')then
12042: write_to_act_log('Error. The action type of the first selection is NOT INCLUDE.', 'LIST', g_list_header_id,'HIGH');
12043: Ams_Utility_Pvt.Write_Conc_log('process list actions : first action INCLUDE check failed');
12044: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
12045: FND_MSG_PUB.Add;
12046: RAISE FND_API.G_EXC_ERROR;
12047: END IF; -- End of if for list_action_type check

Line 12067: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : Dynamic ');

12063: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
12064: RAISE FND_API.g_exc_unexpected_error;
12065: END IF;
12066:
12067: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : Dynamic ');
12068: /********************************************************************
12069: This dynamic procedure will process action for each object type
12070: If the object type is of CELL the process will be procecss_cell
12071: Using the same logic the procedure could be extended for new

Line 12092: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic 001-> ');

12088: OUT x_msg_count,
12089: in OUT x_return_status ,
12090: OUT l_std_sql ,
12091: OUT l_include_sql;
12092: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic 001-> ');
12093: write_to_act_log('Executed AMS_ListGeneration_PKG.process_run_total_'||p_action_rec.arc_incl_object_from, 'LIST', g_list_header_id,'LOW');
12094: if p_action_rec.list_action_type = 'INCLUDE' then
12095: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total include: '||to_char(l_include_count));
12096: l_include_count := l_include_count +1 ;

Line 12095: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total include: '||to_char(l_include_count));

12091: OUT l_include_sql;
12092: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic 001-> ');
12093: write_to_act_log('Executed AMS_ListGeneration_PKG.process_run_total_'||p_action_rec.arc_incl_object_from, 'LIST', g_list_header_id,'LOW');
12094: if p_action_rec.list_action_type = 'INCLUDE' then
12095: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total include: '||to_char(l_include_count));
12096: l_include_count := l_include_count +1 ;
12097: l_include_sql_tbl(l_include_count) := l_include_sql ;
12098: l_std_sql_tbl(l_include_count) := l_std_sql;
12099: l_list_select_action(l_include_count) := l_list_select_action_id;

Line 12110: Ams_Utility_Pvt.Write_Conc_log('process list actions noinclude: '||to_char(l_include_count));

12106: else
12107: l_join_string := ' intersect ';
12108: l_list_header_id := p_action_rec.action_used_by_id;
12109: end if;
12110: Ams_Utility_Pvt.Write_Conc_log('process list actions noinclude: '||to_char(l_include_count));
12111: write_to_act_log('No of inclusions is ' || l_include_count, 'LIST', g_list_header_id,'LOW');
12112: FOR i IN 1 .. l_include_count
12113: loop
12114: l_std_sql_tbl(i) :=

Line 12121: Ams_Utility_Pvt.Write_Conc_log('l_std_sql_tbl : '||substrb(l_std_sql_tbl(i),(2000*j) - 1999,2000));

12117: l_std_sql;
12118: l_no_of_chunks := ceil(length(l_std_sql_tbl(i))/2000 );
12119: for j in 1 ..l_no_of_chunks
12120: loop
12121: Ams_Utility_Pvt.Write_Conc_log('l_std_sql_tbl : '||substrb(l_std_sql_tbl(i),(2000*j) - 1999,2000));
12122: WRITE_TO_ACT_LOG(substrb(l_std_sql_tbl(i),(2000*j) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12123: end loop;
12124: end loop;
12125: end if; -- if p_action_rec.list_action_type = 'INCLUDE'

Line 12131: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic ');

12127:
12128: IF(x_return_status <>FND_API.G_RET_STS_SUCCESS )THEN
12129: RAISE FND_API.G_EXC_ERROR;
12130: END IF;
12131: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic ');
12132: -- end Of Dynamic Procedure
12133: l_join_string :='';
12134: ---------------------------------------------------------------------------
12135: END LOOP; -- End loop c_action_dets

Line 12137: Ams_Utility_Pvt.Write_Conc_log('***************** '||to_char(l_include_count));

12133: l_join_string :='';
12134: ---------------------------------------------------------------------------
12135: END LOOP; -- End loop c_action_dets
12136: CLOSE c_action_dets;
12137: Ams_Utility_Pvt.Write_Conc_log('***************** '||to_char(l_include_count));
12138:
12139: WRITE_TO_ACT_LOG('Sorting according to rank', 'LIST', g_list_header_id,'LOW');
12140:
12141: -- SOLIN, bug 3759988, use order_number, not rank for running total

Line 12149: --Ams_Utility_Pvt.Write_Conc_log('***************** '||l_rank_tbl(i) || '*i*' || i);

12145: -- l_rank_num_tbl(i) := i;
12146: -- if i <> 1 then
12147: -- for j in 1 .. i-1
12148: -- loop
12149: --Ams_Utility_Pvt.Write_Conc_log('***************** '||l_rank_tbl(i) || '*i*' || i);
12150: -- WRITE_TO_ACT_LOG(l_rank_tbl(i) || '*i*' || i, 'LIST', g_list_header_id,'LOW');
12151: -- if l_rank_tbl(i) < l_rank_tbl(l_rank_num_tbl(j)) then
12152: -- for k in reverse j .. i-1
12153: -- loop

Line 12166: Ams_Utility_Pvt.Write_Conc_log('*****************SORTED '|| l_sorted ||' '||l_rank_tbl(i));

12162: -- SOLIN, end
12163: for i in 1 .. l_include_count
12164: loop
12165: l_sorted := i; -- l_rank_num_tbl(i); SOLIN, bug 3759988
12166: Ams_Utility_Pvt.Write_Conc_log('*****************SORTED '|| l_sorted ||' '||l_rank_tbl(i));
12167: l_final_big_sql := l_include_sql_tbl(l_sorted) ||
12168: l_std_sql_tbl(l_sorted) || l_const_sql || ')';
12169: WRITE_TO_ACT_LOG('Final SQL formed in calc_running_total proc', 'LIST', g_list_header_id,'LOW');
12170: Ams_Utility_Pvt.Write_Conc_log('********calc_selection_running_total: FINAL SQL ************');

Line 12170: Ams_Utility_Pvt.Write_Conc_log('********calc_selection_running_total: FINAL SQL ************');

12166: Ams_Utility_Pvt.Write_Conc_log('*****************SORTED '|| l_sorted ||' '||l_rank_tbl(i));
12167: l_final_big_sql := l_include_sql_tbl(l_sorted) ||
12168: l_std_sql_tbl(l_sorted) || l_const_sql || ')';
12169: WRITE_TO_ACT_LOG('Final SQL formed in calc_running_total proc', 'LIST', g_list_header_id,'LOW');
12170: Ams_Utility_Pvt.Write_Conc_log('********calc_selection_running_total: FINAL SQL ************');
12171: l_no_of_chunks := ceil(length(l_final_big_sql)/2000 );
12172: for i in 1 ..l_no_of_chunks
12173: loop
12174: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');

Line 12175: Ams_Utility_Pvt.Write_Conc_log('l_final_big_sql :'||substrb(l_final_big_sql,(2000*i) - 1999,2000));

12171: l_no_of_chunks := ceil(length(l_final_big_sql)/2000 );
12172: for i in 1 ..l_no_of_chunks
12173: loop
12174: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12175: Ams_Utility_Pvt.Write_Conc_log('l_final_big_sql :'||substrb(l_final_big_sql,(2000*i) - 1999,2000));
12176: end loop;
12177: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12178: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12179: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);

Line 12177: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');

12173: loop
12174: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12175: Ams_Utility_Pvt.Write_Conc_log('l_final_big_sql :'||substrb(l_final_big_sql,(2000*i) - 1999,2000));
12176: end loop;
12177: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12178: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12179: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12180: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12181: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));

Line 12180: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));

12176: end loop;
12177: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12178: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12179: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12180: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12181: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12182: l_running_total := l_running_total + l_selection_results(l_sorted);
12183: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12184: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total

Line 12181: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));

12177: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12178: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12179: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12180: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12181: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12182: l_running_total := l_running_total + l_selection_results(l_sorted);
12183: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12184: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total
12185: Where LIST_SELECT_ACTION_ID = l_list_select_action(l_sorted)

Line 12183: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);

12179: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12180: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12181: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12182: l_running_total := l_running_total + l_selection_results(l_sorted);
12183: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12184: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total
12185: Where LIST_SELECT_ACTION_ID = l_list_select_action(l_sorted)
12186: and arc_action_used_by = 'LIST';
12187:

Line 12191: Ams_Utility_Pvt.Write_Conc_log('*******Delta Calculation*********');

12187:
12188: end loop;
12189: commit;
12190:
12191: Ams_Utility_Pvt.Write_Conc_log('*******Delta Calculation*********');
12192: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12193: open c_delta;
12194: loop
12195: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;

Line 12192: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);

12188: end loop;
12189: commit;
12190:
12191: Ams_Utility_Pvt.Write_Conc_log('*******Delta Calculation*********');
12192: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12193: open c_delta;
12194: loop
12195: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12196: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);

Line 12196: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);

12192: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12193: open c_delta;
12194: loop
12195: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12196: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12197: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12198: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12199: exit when c_delta%notfound;
12200: if l_ord_num = 1 then

Line 12197: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);

12193: open c_delta;
12194: loop
12195: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12196: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12197: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12198: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12199: exit when c_delta%notfound;
12200: if l_ord_num = 1 then
12201: l_delta := 0;

Line 12198: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);

12194: loop
12195: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12196: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12197: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12198: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12199: exit when c_delta%notfound;
12200: if l_ord_num = 1 then
12201: l_delta := 0;
12202: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);

Line 12202: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);

12198: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12199: exit when c_delta%notfound;
12200: if l_ord_num = 1 then
12201: l_delta := 0;
12202: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);
12203: end if;
12204: if l_ord_num > 1 then
12205: l_delta := l_r_totals - l_previous_incl_total;
12206: Ams_Utility_Pvt.Write_Conc_log(' l_ord_num > 1 *******l_delta = '||l_delta);

Line 12206: Ams_Utility_Pvt.Write_Conc_log(' l_ord_num > 1 *******l_delta = '||l_delta);

12202: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);
12203: end if;
12204: if l_ord_num > 1 then
12205: l_delta := l_r_totals - l_previous_incl_total;
12206: Ams_Utility_Pvt.Write_Conc_log(' l_ord_num > 1 *******l_delta = '||l_delta);
12207: end if;
12208: Update ams_list_select_actions set delta = l_delta
12209: Where LIST_SELECT_ACTION_ID = l_list_act_id;
12210: l_delta := 0;

Line 12212: Ams_Utility_Pvt.Write_Conc_log('*******l_previous_incl_total = '||l_previous_incl_total);

12208: Update ams_list_select_actions set delta = l_delta
12209: Where LIST_SELECT_ACTION_ID = l_list_act_id;
12210: l_delta := 0;
12211: l_previous_incl_total := l_r_totals;
12212: Ams_Utility_Pvt.Write_Conc_log('*******l_previous_incl_total = '||l_previous_incl_total);
12213: end loop;
12214: close c_delta;
12215: commit;
12216: EXCEPTION

Line 12234: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);

12230: write_to_act_log('Error while executing procedure calc_running_total '||sqlcode||' '||sqlerrm, 'LIST', g_list_header_id,'HIGH');
12231: IF(c_action_dets%ISOPEN)THEN
12232: CLOSE c_action_dets;
12233: END IF;
12234: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);
12235: write_to_act_log('Error: AMS_ListGeneration_PKG.Process_list_actions:'
12236: ||sqlerrm||sqlcode, 'LIST', g_list_header_id);
12237: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
12238: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);

Line 12251: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);

12247: write_to_act_log('Error while executing procedure calc_running_total '||sqlcode||' '||sqlerrm, 'LIST', g_list_header_id,'HIGH');
12248: IF(c_action_dets%ISOPEN)THEN
12249: CLOSE c_action_dets;
12250: END IF;
12251: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);
12252: write_to_act_log('Error: AMS_ListGeneration_PKG.Process_list_actions:'
12253: ||sqlerrm||sqlcode, 'LIST', g_list_header_id,'HIGH');
12254: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
12255: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);