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 10735: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists_from_remote : ');

10731: and stypes.remote_flag = 'Y';
10732:
10733: Begin
10734:
10735: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists_from_remote : ');
10736: if p_list_header_id is not null then
10737: migrate_lists( p_list_header_id ) ;
10738: else
10739: open c_migrate_list;

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

10744: END LOOP;
10745: close c_migrate_list;
10746: end if;
10747: commit;
10748: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists_from_remote : ');
10749: EXCEPTION
10750: WHEN OTHERS THEN
10751: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists_from_remote : '||SQLERRM);
10752: errbuf:= substr(SQLERRM,1,254);

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

10747: commit;
10748: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists_from_remote : ');
10749: EXCEPTION
10750: WHEN OTHERS THEN
10751: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists_from_remote : '||SQLERRM);
10752: errbuf:= substr(SQLERRM,1,254);
10753: retcode:= 2;
10754: raise;
10755: End migrate_lists_from_remote;

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

10776: where list.list_source_type = stypes.source_type_code
10777: and list_header_id = p_list_header_id;
10778:
10779: begin
10780: Ams_Utility_Pvt.Write_Conc_log('Start migrate_lists : '||to_char(p_list_header_id));
10781:
10782: open c_dblink;
10783: fetch c_dblink into l_dblink;
10784: close c_dblink;

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

10781:
10782: open c_dblink;
10783: fetch c_dblink into l_dblink;
10784: close c_dblink;
10785: Ams_Utility_Pvt.Write_Conc_log('l_dblink : '||l_dblink);
10786:
10787: write_to_act_log('Database link is '||l_dblink,'LIST',p_list_header_id,'LOW');
10788: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10789: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');

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

10784: close c_dblink;
10785: Ams_Utility_Pvt.Write_Conc_log('l_dblink : '||l_dblink);
10786:
10787: write_to_act_log('Database link is '||l_dblink,'LIST',p_list_header_id,'LOW');
10788: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10789: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');
10790: delete from ams_list_entries
10791: where list_header_id = p_list_header_id;
10792: Ams_Utility_Pvt.Write_Conc_log('End Delete list entries from local instance : ');

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

10788: Ams_Utility_Pvt.Write_Conc_log('Start Delete list entries from local instance : ');
10789: write_to_act_log('Deleting existing entries from the local instance.','LIST',p_list_header_id,'LOW');
10790: delete from ams_list_entries
10791: where list_header_id = p_list_header_id;
10792: Ams_Utility_Pvt.Write_Conc_log('End Delete list entries from local instance : ');
10793:
10794: l_insert_sql := 'insert into ams_list_entries
10795: (list_header_id ,
10796: list_entry_id,

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

11575: l_no_of_chunks := ceil(length(l_insert_sql)/2000 );
11576: write_to_act_log('Insert statement formed for migrating the list is..','LIST',p_list_header_id,'LOW');
11577: for i in 1 ..l_no_of_chunks
11578: loop
11579: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||substrb(l_insert_sql,(2000*i) - 1999,2000));
11580: end loop;
11581: execute immediate l_insert_sql;
11582: commit;
11583: /*

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

11584: l_start_rownum := l_start_rownum + 10000;
11585: l_end_rownum := l_end_rownum + 10000;
11586: END LOOP;
11587: */
11588: Ams_Utility_Pvt.Write_Conc_log('End migrate_lists : '||to_char(p_list_header_id));
11589: SELECT user_status_id into l_user_status_id FROM ams_user_statuses_vl
11590: WHERE system_status_type = 'AMS_LIST_STATUS' AND
11591: system_status_code = 'AVAILABLE' and default_flag = 'Y';
11592: UPDATE ams_list_headers_all

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

11603: if nvl(l_return_status,'S') in ('E','U') then -- resulted in error.
11604: write_to_act_log('Error while updating list header details.', 'LIST', g_list_header_id,'HIGH');
11605: end if;
11606:
11607: Ams_Utility_Pvt.Write_Conc_log('After Update_List_Dets call : ');
11608:
11609: IF(l_return_status <>FND_API.G_RET_STS_SUCCESS )THEN
11610: RAISE FND_API.G_EXC_ERROR;
11611: END IF;

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

11623: -- Added for cancel list gen as it prevents parallel update- Raghu
11624: -- of list headers when cancel button is pressed
11625: commit;
11626:
11627: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_lists : '||SQLERRM);
11628: -- errbuf:= substr(SQLERRM,1,254);
11629: -- retcode:= 2;
11630: raise;
11631: end migrate_lists;

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

11638:
11639: l_insert_sql varchar2(32767);
11640: l_delete_sql varchar2(32767);
11641: begin
11642: Ams_Utility_Pvt.Write_Conc_log('Start migrate_word_replacements : ');
11643: l_delete_sql := 'Delete from AMS_HZ_WORD_REPLACEMENTS@'||dblink;
11644: l_insert_sql := 'Insert into AMS_HZ_WORD_REPLACEMENTS@'||dblink||' (
11645: ORIGINAL_WORD,
11646: REPLACEMENT_WORD,

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

11698: ATTRIBUTE15,
11699: WORD_LIST_ID,
11700: OBJECT_VERSION_NUMBER
11701: FROM HZ_WORD_REPLACEMENTS ';
11702: Ams_Utility_Pvt.Write_Conc_log('l_delete_sql = '||l_delete_sql);
11703: execute immediate l_delete_sql;
11704: commit;
11705: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11706: execute immediate l_insert_sql;

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

11701: FROM HZ_WORD_REPLACEMENTS ';
11702: Ams_Utility_Pvt.Write_Conc_log('l_delete_sql = '||l_delete_sql);
11703: execute immediate l_delete_sql;
11704: commit;
11705: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11706: execute immediate l_insert_sql;
11707: commit;
11708: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11709: EXCEPTION

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

11704: commit;
11705: Ams_Utility_Pvt.Write_Conc_log('l_insert_sql = '||l_insert_sql);
11706: execute immediate l_insert_sql;
11707: commit;
11708: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11709: EXCEPTION
11710: WHEN OTHERS THEN
11711: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_word_replacements : '||SQLERRM);
11712: errbuf:= substr(SQLERRM,1,254);

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

11707: commit;
11708: Ams_Utility_Pvt.Write_Conc_log('End migrate_word_replacements : ');
11709: EXCEPTION
11710: WHEN OTHERS THEN
11711: Ams_Utility_Pvt.Write_Conc_log('Exception in migrate_word_replacements : '||SQLERRM);
11712: errbuf:= substr(SQLERRM,1,254);
11713: retcode:= 2;
11714: raise;
11715: end migrate_word_replacements;

Line 11732: AMS_Utility_PVT.Create_Log (

11728:
11729:
11730: begin
11731:
11732: AMS_Utility_PVT.Create_Log (
11733: x_return_status => l_return_status,
11734: p_arc_log_used_by => 'LIST',
11735: p_log_used_by_id => p_list_header_id,
11736: p_msg_data => 'UPDATE_FOR_TRAFFIC_COP : Started ',

Line 11760: AMS_Utility_PVT.Create_Log (

11756: -- Added for cancel list gen as it prevents parallel update- Raghu
11757: -- of list headers when cancel button is pressed
11758: commit;
11759:
11760: AMS_Utility_PVT.Create_Log (
11761: x_return_status => l_return_status,
11762: p_arc_log_used_by => 'LIST',
11763: p_log_used_by_id => p_list_header_id,
11764: p_msg_data => 'UPDATE_FOR_TRAFFIC_COP : End ',

Line 11769: AMS_Utility_PVT.Create_Log (

11765: p_msg_type => 'DEBUG');
11766:
11767: EXCEPTION
11768: WHEN OTHERS THEN
11769: AMS_Utility_PVT.Create_Log (
11770: x_return_status => l_return_status,
11771: p_arc_log_used_by => 'LIST',
11772: p_log_used_by_id => p_list_header_id,
11773: p_msg_data => sqlerrm,

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

11896: where list_header_id = p_action_used_by_id;
11897:
11898: BEGIN
11899: g_list_header_id := p_action_used_by_id;
11900: Ams_Utility_Pvt.Write_Conc_log('Start calc_running_total : ');
11901: UPDATE ams_list_select_actions
11902: SET RUNNING_TOTAL = null, DELTA = null
11903: WHERE action_used_by_id = p_action_used_by_id
11904: AND arc_action_used_by = 'LIST';

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

11938: ----------------------------------------------------------------------
11939: IF (c_action_dets%ROWCOUNT = 1) THEN
11940: IF (p_action_rec.list_action_type <> 'INCLUDE')then
11941: write_to_act_log('Error. The action type of the first selection is NOT INCLUDE.', 'LIST', g_list_header_id,'HIGH');
11942: Ams_Utility_Pvt.Write_Conc_log('process list actions : first action INCLUDE check failed');
11943: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
11944: FND_MSG_PUB.Add;
11945: RAISE FND_API.G_EXC_ERROR;
11946: END IF; -- End of if for list_action_type check

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

11962: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
11963: RAISE FND_API.g_exc_unexpected_error;
11964: END IF;
11965:
11966: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : Dynamic ');
11967: /********************************************************************
11968: This dynamic procedure will process action for each object type
11969: If the object type is of CELL the process will be procecss_cell
11970: Using the same logic the procedure could be extended for new

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

11987: OUT x_msg_count,
11988: in OUT x_return_status ,
11989: OUT l_std_sql ,
11990: OUT l_include_sql;
11991: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic 001-> ');
11992: write_to_act_log('Executed AMS_ListGeneration_PKG.process_run_total_'||p_action_rec.arc_incl_object_from, 'LIST', g_list_header_id,'LOW');
11993: if p_action_rec.list_action_type = 'INCLUDE' then
11994: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total include: '||to_char(l_include_count));
11995: l_include_count := l_include_count +1 ;

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

11990: OUT l_include_sql;
11991: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic 001-> ');
11992: write_to_act_log('Executed AMS_ListGeneration_PKG.process_run_total_'||p_action_rec.arc_incl_object_from, 'LIST', g_list_header_id,'LOW');
11993: if p_action_rec.list_action_type = 'INCLUDE' then
11994: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total include: '||to_char(l_include_count));
11995: l_include_count := l_include_count +1 ;
11996: l_include_sql_tbl(l_include_count) := l_include_sql ;
11997: l_std_sql_tbl(l_include_count) := l_std_sql;
11998: l_list_select_action(l_include_count) := l_list_select_action_id;

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

12005: else
12006: l_join_string := ' intersect ';
12007: l_list_header_id := p_action_rec.action_used_by_id;
12008: end if;
12009: Ams_Utility_Pvt.Write_Conc_log('process list actions noinclude: '||to_char(l_include_count));
12010: write_to_act_log('No of inclusions is ' || l_include_count, 'LIST', g_list_header_id,'LOW');
12011: FOR i IN 1 .. l_include_count
12012: loop
12013: l_std_sql_tbl(i) :=

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

12016: l_std_sql;
12017: l_no_of_chunks := ceil(length(l_std_sql_tbl(i))/2000 );
12018: for j in 1 ..l_no_of_chunks
12019: loop
12020: Ams_Utility_Pvt.Write_Conc_log('l_std_sql_tbl : '||substrb(l_std_sql_tbl(i),(2000*j) - 1999,2000));
12021: WRITE_TO_ACT_LOG(substrb(l_std_sql_tbl(i),(2000*j) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12022: end loop;
12023: end loop;
12024: end if; -- if p_action_rec.list_action_type = 'INCLUDE'

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

12026:
12027: IF(x_return_status <>FND_API.G_RET_STS_SUCCESS )THEN
12028: RAISE FND_API.G_EXC_ERROR;
12029: END IF;
12030: Ams_Utility_Pvt.Write_Conc_log('calc_selection_running_total : End Dynamic ');
12031: -- end Of Dynamic Procedure
12032: l_join_string :='';
12033: ---------------------------------------------------------------------------
12034: END LOOP; -- End loop c_action_dets

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

12032: l_join_string :='';
12033: ---------------------------------------------------------------------------
12034: END LOOP; -- End loop c_action_dets
12035: CLOSE c_action_dets;
12036: Ams_Utility_Pvt.Write_Conc_log('***************** '||to_char(l_include_count));
12037:
12038: WRITE_TO_ACT_LOG('Sorting according to rank', 'LIST', g_list_header_id,'LOW');
12039:
12040: -- SOLIN, bug 3759988, use order_number, not rank for running total

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

12044: -- l_rank_num_tbl(i) := i;
12045: -- if i <> 1 then
12046: -- for j in 1 .. i-1
12047: -- loop
12048: --Ams_Utility_Pvt.Write_Conc_log('***************** '||l_rank_tbl(i) || '*i*' || i);
12049: -- WRITE_TO_ACT_LOG(l_rank_tbl(i) || '*i*' || i, 'LIST', g_list_header_id,'LOW');
12050: -- if l_rank_tbl(i) < l_rank_tbl(l_rank_num_tbl(j)) then
12051: -- for k in reverse j .. i-1
12052: -- loop

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

12061: -- SOLIN, end
12062: for i in 1 .. l_include_count
12063: loop
12064: l_sorted := i; -- l_rank_num_tbl(i); SOLIN, bug 3759988
12065: Ams_Utility_Pvt.Write_Conc_log('*****************SORTED '|| l_sorted ||' '||l_rank_tbl(i));
12066: l_final_big_sql := l_include_sql_tbl(l_sorted) ||
12067: l_std_sql_tbl(l_sorted) || l_const_sql || ')';
12068: WRITE_TO_ACT_LOG('Final SQL formed in calc_running_total proc', 'LIST', g_list_header_id,'LOW');
12069: Ams_Utility_Pvt.Write_Conc_log('********calc_selection_running_total: FINAL SQL ************');

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

12065: Ams_Utility_Pvt.Write_Conc_log('*****************SORTED '|| l_sorted ||' '||l_rank_tbl(i));
12066: l_final_big_sql := l_include_sql_tbl(l_sorted) ||
12067: l_std_sql_tbl(l_sorted) || l_const_sql || ')';
12068: WRITE_TO_ACT_LOG('Final SQL formed in calc_running_total proc', 'LIST', g_list_header_id,'LOW');
12069: Ams_Utility_Pvt.Write_Conc_log('********calc_selection_running_total: FINAL SQL ************');
12070: l_no_of_chunks := ceil(length(l_final_big_sql)/2000 );
12071: for i in 1 ..l_no_of_chunks
12072: loop
12073: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');

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

12070: l_no_of_chunks := ceil(length(l_final_big_sql)/2000 );
12071: for i in 1 ..l_no_of_chunks
12072: loop
12073: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12074: Ams_Utility_Pvt.Write_Conc_log('l_final_big_sql :'||substrb(l_final_big_sql,(2000*i) - 1999,2000));
12075: end loop;
12076: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12077: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12078: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);

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

12072: loop
12073: WRITE_TO_ACT_LOG(substrb(l_final_big_sql,(2000*i) - 1999,2000), 'LIST', g_list_header_id,'LOW');
12074: Ams_Utility_Pvt.Write_Conc_log('l_final_big_sql :'||substrb(l_final_big_sql,(2000*i) - 1999,2000));
12075: end loop;
12076: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12077: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12078: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12079: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12080: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));

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

12075: end loop;
12076: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12077: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12078: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12079: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12080: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12081: l_running_total := l_running_total + l_selection_results(l_sorted);
12082: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12083: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total

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

12076: Ams_Utility_Pvt.Write_Conc_log('*******Process_list_actions: FINAL SQL END************');
12077: l_final_big_sql := 'BEGIN '||l_final_big_sql||' ; END;';
12078: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12079: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12080: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12081: l_running_total := l_running_total + l_selection_results(l_sorted);
12082: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12083: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total
12084: Where LIST_SELECT_ACTION_ID = l_list_select_action(l_sorted)

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

12078: EXECUTE IMMEDIATE l_final_big_sql using out l_selection_results(l_sorted);
12079: Ams_Utility_Pvt.Write_Conc_log('*******l_list_select_action(l_sorted) = '||l_list_select_action(l_sorted));
12080: Ams_Utility_Pvt.Write_Conc_log('*******l_selection_results(l_sorted) = '||l_selection_results(l_sorted));
12081: l_running_total := l_running_total + l_selection_results(l_sorted);
12082: Ams_Utility_Pvt.Write_Conc_log('*******l_running_total = '||l_running_total);
12083: Update ams_list_select_actions set RUNNING_TOTAL = l_running_total
12084: Where LIST_SELECT_ACTION_ID = l_list_select_action(l_sorted)
12085: and arc_action_used_by = 'LIST';
12086:

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

12086:
12087: end loop;
12088: commit;
12089:
12090: Ams_Utility_Pvt.Write_Conc_log('*******Delta Calculation*********');
12091: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12092: open c_delta;
12093: loop
12094: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;

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

12087: end loop;
12088: commit;
12089:
12090: Ams_Utility_Pvt.Write_Conc_log('*******Delta Calculation*********');
12091: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12092: open c_delta;
12093: loop
12094: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12095: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);

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

12091: Ams_Utility_Pvt.Write_Conc_log('*******p_action_used_by_id = '||p_action_used_by_id);
12092: open c_delta;
12093: loop
12094: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12095: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12096: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12097: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12098: exit when c_delta%notfound;
12099: if l_ord_num = 1 then

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

12092: open c_delta;
12093: loop
12094: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12095: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12096: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12097: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12098: exit when c_delta%notfound;
12099: if l_ord_num = 1 then
12100: l_delta := 0;

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

12093: loop
12094: fetch c_delta into l_list_act_id,l_ord_num,l_r_totals;
12095: Ams_Utility_Pvt.Write_Conc_log('*******l_list_act_id = '||l_list_act_id);
12096: Ams_Utility_Pvt.Write_Conc_log('*******l_ord_num = '||l_ord_num);
12097: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12098: exit when c_delta%notfound;
12099: if l_ord_num = 1 then
12100: l_delta := 0;
12101: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);

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

12097: Ams_Utility_Pvt.Write_Conc_log('*******l_r_totals = '||l_r_totals);
12098: exit when c_delta%notfound;
12099: if l_ord_num = 1 then
12100: l_delta := 0;
12101: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);
12102: end if;
12103: if l_ord_num > 1 then
12104: l_delta := l_r_totals - l_previous_incl_total;
12105: Ams_Utility_Pvt.Write_Conc_log(' l_ord_num > 1 *******l_delta = '||l_delta);

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

12101: Ams_Utility_Pvt.Write_Conc_log('l_ord_num = 1 *******l_delta = '||l_delta);
12102: end if;
12103: if l_ord_num > 1 then
12104: l_delta := l_r_totals - l_previous_incl_total;
12105: Ams_Utility_Pvt.Write_Conc_log(' l_ord_num > 1 *******l_delta = '||l_delta);
12106: end if;
12107: Update ams_list_select_actions set delta = l_delta
12108: Where LIST_SELECT_ACTION_ID = l_list_act_id;
12109: l_delta := 0;

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

12107: Update ams_list_select_actions set delta = l_delta
12108: Where LIST_SELECT_ACTION_ID = l_list_act_id;
12109: l_delta := 0;
12110: l_previous_incl_total := l_r_totals;
12111: Ams_Utility_Pvt.Write_Conc_log('*******l_previous_incl_total = '||l_previous_incl_total);
12112: end loop;
12113: close c_delta;
12114: commit;
12115: EXCEPTION

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

12129: write_to_act_log('Error while executing procedure calc_running_total '||sqlcode||' '||sqlerrm, 'LIST', g_list_header_id,'HIGH');
12130: IF(c_action_dets%ISOPEN)THEN
12131: CLOSE c_action_dets;
12132: END IF;
12133: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);
12134: write_to_act_log('Error: AMS_ListGeneration_PKG.Process_list_actions:'
12135: ||sqlerrm||sqlcode, 'LIST', g_list_header_id);
12136: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
12137: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);

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

12146: write_to_act_log('Error while executing procedure calc_running_total '||sqlcode||' '||sqlerrm, 'LIST', g_list_header_id,'HIGH');
12147: IF(c_action_dets%ISOPEN)THEN
12148: CLOSE c_action_dets;
12149: END IF;
12150: Ams_Utility_Pvt.Write_Conc_log('Error: AMS_ListGeneration_PKG.Process_list_actions: '||sqlerrm||sqlcode);
12151: write_to_act_log('Error: AMS_ListGeneration_PKG.Process_list_actions:'
12152: ||sqlerrm||sqlcode, 'LIST', g_list_header_id,'HIGH');
12153: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
12154: FND_MESSAGE.Set_Token('TEXT', sqlerrm||' '||sqlcode);