[Home] [Help]
71: -- This procedure was written to replace Autonomous Transactions
72: --
73: l_return_status VARCHAR2(1);
74: BEGIN
75: -- Standard Start of API savepoint
76: SAVEPOINT logger_save;
77: -- g_message_table(g_count) := 'Calling logger';
78: -- g_count := g_count +1;
79: -- Not reqd since we are not storing it in pl/sql table anymore.
971:
972: l_delete_action varchar2(80);
973: l_total_recs number;
974: l_null varchar2(30) := null;
975: -- deletes from ams_list_entries in case of standard type of generation
976: BEGIN
977: write_to_act_log('Executing delete_list_entries to delete entries from ams_list_entries(Since list/target group is generated in STANDARD mode).', 'LIST', g_list_header_id,'LOW');
978: x_return_status := FND_API.G_RET_STS_SUCCESS;
979: -------------------------------------------------------------------------------
973: l_total_recs number;
974: l_null varchar2(30) := null;
975: -- deletes from ams_list_entries in case of standard type of generation
976: BEGIN
977: write_to_act_log('Executing delete_list_entries to delete entries from ams_list_entries(Since list/target group is generated in STANDARD mode).', 'LIST', g_list_header_id,'LOW');
978: x_return_status := FND_API.G_RET_STS_SUCCESS;
979: -------------------------------------------------------------------------------
980: --Delete all existing entries for this list which are in the temporary table.--
981: -------------------------------------------------------------------------------
1127: write_to_act_log('Error while executing initialize_list_header. Unable to Initialize List ', 'LIST', g_list_header_id,'HIGH');
1128: raise FND_API.g_exc_unexpected_error;
1129: end if;
1130: -----------------------------------------------------------------
1131: --Deleting any existing entries. if generation type is Standard--
1132: -----------------------------------------------------------------
1133: if p_list_header_rec.generation_type = 'STANDARD' then
1134: write_to_act_log('Calling delete_list_entries to delete the existing entries.(The generation type is STANDARD).', 'LIST', g_list_header_id,'LOW');
1135: delete_list_entries (p_list_header_id => p_list_header_rec.list_header_id,
1129: end if;
1130: -----------------------------------------------------------------
1131: --Deleting any existing entries. if generation type is Standard--
1132: -----------------------------------------------------------------
1133: if p_list_header_rec.generation_type = 'STANDARD' then
1134: write_to_act_log('Calling delete_list_entries to delete the existing entries.(The generation type is STANDARD).', 'LIST', g_list_header_id,'LOW');
1135: delete_list_entries (p_list_header_id => p_list_header_rec.list_header_id,
1136: x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data,
1130: -----------------------------------------------------------------
1131: --Deleting any existing entries. if generation type is Standard--
1132: -----------------------------------------------------------------
1133: if p_list_header_rec.generation_type = 'STANDARD' then
1134: write_to_act_log('Calling delete_list_entries to delete the existing entries.(The generation type is STANDARD).', 'LIST', g_list_header_id,'LOW');
1135: delete_list_entries (p_list_header_id => p_list_header_rec.list_header_id,
1136: x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data,
1138: x_return_status => x_return_status);
2556: x_return_status => x_return_status,
2557: x_std_sql => x_std_sql ,
2558: x_include_sql => x_include_sql );
2559: END;
2560: PROCEDURE process_standard
2561: (p_action_used_by_id in number,
2562: p_incl_object_id in number,
2563: p_list_action_type in varchar2,
2564: p_list_select_action_id in number,
7144: p_level => 'LOW');
7145:
7146: x_return_status := FND_API.G_RET_STS_SUCCESS;
7147:
7148: -- Standard call to check for call compatibility.
7149: IF NOT FND_API.Compatible_API_Call ( l_api_version,
7150: p_api_version,
7151: l_api_name,
7152: G_PKG_NAME)
7444: END IF;
7445: -- --------------------------------
7446: */
7447: if g_remote_list_gen = 'N' then
7448: if l_listheader_rec.generation_type = 'STANDARD' then --R12 applicable only for full refresh mode
7449: write_to_act_log('Identifying duplicate records(based on party id) in the list.','LIST',g_list_header_id,'HIGH');
7450: UPDATE ams_list_entries a
7451: SET a.enabled_flag = 'N',
7452: a.marked_as_duplicate_flag = 'Y'
7479: open g_initial_count;
7480: fetch g_initial_count into g_no_of_rows_ini_selected;
7481: close g_initial_count;
7482:
7483: if l_listheader_rec.generation_type = 'STANDARD' then --lpo
7484: open c1;
7485: fetch c1 into l_list_rule_id ;
7486: close c1;
7487:
7512: end if;
7513: end if;
7514:
7515:
7516: if l_listheader_rec.generation_type in ('STANDARD','INCREMENTAL') then --lpo
7517: if nvl(g_remote_list_gen,'N') = 'N' then
7518: AMS_List_Options_Pvt.apply_size_reduction(p_list_header_id => g_list_header_id ,
7519: p_log_level => g_log_level,
7520: p_msg_tbl => g_msg_tbl_opt,
7700: x_return_status => x_return_status
7701: );
7702:
7703: logger;
7704: -- Standard check of p_commit.
7705:
7706: IF FND_API.To_Boolean ( p_commit ) THEN
7707: COMMIT WORK;
7708: END IF;
7883: */
7884:
7885: p_sql_string := l_select_string ||','|| substrb(p_sql_string,instr(upper(p_sql_string),'SELECT',1)+6);
7886: x_return_status := FND_API.G_RET_STS_SUCCESS;
7887: -- Standard call to check for call compatibility.
7888: IF NOT FND_API.Compatible_API_Call ( l_api_version,
7889: p_api_version,
7890: l_api_name,
7891: G_PKG_NAME) THEN
8000: end if;
8001: -- END of API body.
8002: --
8003: */
8004: -- Standard check of p_commit.
8005:
8006: IF FND_API.To_Boolean ( p_commit ) THEN
8007: COMMIT WORK;
8008: END IF;
8129: -- Perform the database operation
8130:
8131: -- ams_listheader_pvt.init_listheader_rec(l_list_header_rec);
8132: l_list_header_rec.list_name := l_import_list_name ;
8133: l_list_header_rec.list_type := 'STANDARD';
8134: l_list_header_rec.list_source_type := l_source_type;
8135: l_list_header_rec.owner_user_id := p_owner_user_id;
8136: l_list_header_rec.view_application_id := 530;
8137: -- l_list_header_rec.purpose_code := 'GENERAL';
8191: end if;
8192: -- END of API body.
8193: --
8194:
8195: -- Standard check of p_commit.
8196:
8197: IF FND_API.To_Boolean ( p_commit ) THEN
8198: COMMIT WORK;
8199: END IF;
8282: l_master_type_id number;
8283: l_source_type_code varchar2(30);
8284: BEGIN
8285: x_return_status := FND_API.G_RET_STS_SUCCESS;
8286: -- Standard call to check for call compatibility.
8287: IF NOT FND_API.Compatible_API_Call ( l_api_version,
8288: p_api_version,
8289: l_api_name,
8290: G_PKG_NAME) THEN
8369: end if;
8370: -- END of API body.
8371: --
8372:
8373: -- Standard check of p_commit.
8374:
8375: IF FND_API.To_Boolean ( p_commit ) THEN
8376: COMMIT WORK;
8377: END IF;
8461: l_master_type_id number;
8462: l_source_type_code varchar2(30);
8463: BEGIN
8464: x_return_status := FND_API.G_RET_STS_SUCCESS;
8465: -- Standard call to check for call compatibility.
8466: IF NOT FND_API.Compatible_API_Call ( l_api_version,
8467: p_api_version,
8468: l_api_name,
8469: G_PKG_NAME) THEN
8550: end if;
8551: -- END of API body.
8552: --
8553:
8554: -- Standard check of p_commit.
8555:
8556: IF FND_API.To_Boolean ( p_commit ) THEN
8557: COMMIT WORK;
8558: END IF;
9738: END IF;
9739:
9740: x_return_status := FND_API.G_RET_STS_SUCCESS;
9741:
9742: -- Standard call to check for call compatibility.
9743: IF NOT FND_API.Compatible_API_Call ( l_api_version,
9744: p_api_version,
9745: l_api_name,
9746: G_PKG_NAME)
9963: END IF;
9964:
9965:
9966: -- added for R12. bmuthukr
9967: if l_listheader_rec.generation_type = 'STANDARD' then
9968: if g_remote_list_gen = 'N' then
9969: write_to_act_log('Identifying duplicate records(based on party id) in the target group.','LIST',g_list_header_id,'HIGH');
9970: UPDATE ams_list_entries a
9971: SET a.enabled_flag = 'N',
9988: --
9989:
9990: --** DE DUPLICATION FOR TG START **--
9991: write_to_act_log('Checking if dedupe is requested for target group. ', 'LIST', p_list_header_id,'HIGH');
9992: if l_listheader_rec.generation_type = 'STANDARD' then
9993: open c1;
9994: fetch c1 into l_list_rule_id ;
9995: close c1;
9996:
10019: end if;
10020: -- Call to suppresion to be done..
10021: --** DE DUPLICATION FOR TG END **--
10022: write_to_Act_log('Generation type is '||l_listheader_rec.generation_type,'LIST',g_list_header_id,'LOW');
10023: if l_listheader_rec.generation_type in ('STANDARD','INCREMENTAL') then
10024: open c_check_supp;
10025: fetch c_check_supp into l_supp_flag;
10026: close c_check_supp;
10027: write_to_Act_log('Suppression flag is '||l_supp_flag,'LIST',g_list_header_id,'LOW');
10075: end if;
10076: end if;
10077:
10078: -- Call to CG
10079: if l_listheader_rec.generation_type = 'STANDARD' then
10080: --if nvl(l_listheader_rec.generate_control_group_flag,'N') <> 'N' then--for now will have to change it later lpo
10081: if nvl(g_remote_list_gen,'N') = 'N' then
10082: write_to_Act_log('Calling control_group_generation procedure ','LIST',g_list_header_id,'LOW');
10083: AMS_List_Options_Pvt.Control_Group_Generation(p_list_header_id => g_list_header_id,
10251: --logger; -- will be called from ams_act_list_pvt proc.
10252: --
10253: -- END of API body.
10254: --
10255: -- Standard check of p_commit.
10256:
10257: IF FND_API.To_Boolean ( p_commit ) THEN
10258: COMMIT WORK;
10259: END IF;
13944: end if;
13945: close c4;
13946: end if;
13947:
13948: if l_list_type = 'STANDARD' then -- To see if any of the incl are based on emp list in std list
13949: open c3;
13950: fetch c3 into l_dummy;
13951: if c3%found then
13952: write_to_act_log('List inclusions has EMPLOYEE list. Cannot generate','LIST',p_list_header_id,'HIGH');