[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,
7229: p_level => 'LOW');
7230:
7231: x_return_status := FND_API.G_RET_STS_SUCCESS;
7232:
7233: -- Standard call to check for call compatibility.
7234: IF NOT FND_API.Compatible_API_Call ( l_api_version,
7235: p_api_version,
7236: l_api_name,
7237: G_PKG_NAME)
7529: END IF;
7530: -- --------------------------------
7531: */
7532: if g_remote_list_gen = 'N' then
7533: if l_listheader_rec.generation_type = 'STANDARD' then --R12 applicable only for full refresh mode
7534: write_to_act_log('Identifying duplicate records(based on party id) in the list.','LIST',g_list_header_id,'HIGH');
7535: UPDATE ams_list_entries a
7536: SET a.enabled_flag = 'N',
7537: a.marked_as_duplicate_flag = 'Y'
7567: open g_initial_count;
7568: fetch g_initial_count into g_no_of_rows_ini_selected;
7569: close g_initial_count;
7570:
7571: if l_listheader_rec.generation_type = 'STANDARD' then --lpo
7572: open c1;
7573: fetch c1 into l_list_rule_id ;
7574: close c1;
7575:
7600: end if;
7601: end if;
7602:
7603:
7604: if l_listheader_rec.generation_type in ('STANDARD','INCREMENTAL') then --lpo
7605: if nvl(g_remote_list_gen,'N') = 'N' then
7606: AMS_List_Options_Pvt.apply_size_reduction(p_list_header_id => g_list_header_id ,
7607: p_log_level => g_log_level,
7608: p_msg_tbl => g_msg_tbl_opt,
7788: x_return_status => x_return_status
7789: );
7790:
7791: logger;
7792: -- Standard check of p_commit.
7793:
7794: IF FND_API.To_Boolean ( p_commit ) THEN
7795: COMMIT WORK;
7796: END IF;
7971: */
7972:
7973: p_sql_string := l_select_string ||','|| substrb(p_sql_string,instr(upper(p_sql_string),'SELECT',1)+6);
7974: x_return_status := FND_API.G_RET_STS_SUCCESS;
7975: -- Standard call to check for call compatibility.
7976: IF NOT FND_API.Compatible_API_Call ( l_api_version,
7977: p_api_version,
7978: l_api_name,
7979: G_PKG_NAME) THEN
8088: end if;
8089: -- END of API body.
8090: --
8091: */
8092: -- Standard check of p_commit.
8093:
8094: IF FND_API.To_Boolean ( p_commit ) THEN
8095: COMMIT WORK;
8096: END IF;
8217: -- Perform the database operation
8218:
8219: -- ams_listheader_pvt.init_listheader_rec(l_list_header_rec);
8220: l_list_header_rec.list_name := l_import_list_name ;
8221: l_list_header_rec.list_type := 'STANDARD';
8222: l_list_header_rec.list_source_type := l_source_type;
8223: l_list_header_rec.owner_user_id := p_owner_user_id;
8224: l_list_header_rec.view_application_id := 530;
8225: -- l_list_header_rec.purpose_code := 'GENERAL';
8279: end if;
8280: -- END of API body.
8281: --
8282:
8283: -- Standard check of p_commit.
8284:
8285: IF FND_API.To_Boolean ( p_commit ) THEN
8286: COMMIT WORK;
8287: END IF;
8370: l_master_type_id number;
8371: l_source_type_code varchar2(30);
8372: BEGIN
8373: x_return_status := FND_API.G_RET_STS_SUCCESS;
8374: -- Standard call to check for call compatibility.
8375: IF NOT FND_API.Compatible_API_Call ( l_api_version,
8376: p_api_version,
8377: l_api_name,
8378: G_PKG_NAME) THEN
8457: end if;
8458: -- END of API body.
8459: --
8460:
8461: -- Standard check of p_commit.
8462:
8463: IF FND_API.To_Boolean ( p_commit ) THEN
8464: COMMIT WORK;
8465: END IF;
8549: l_master_type_id number;
8550: l_source_type_code varchar2(30);
8551: BEGIN
8552: x_return_status := FND_API.G_RET_STS_SUCCESS;
8553: -- Standard call to check for call compatibility.
8554: IF NOT FND_API.Compatible_API_Call ( l_api_version,
8555: p_api_version,
8556: l_api_name,
8557: G_PKG_NAME) THEN
8638: end if;
8639: -- END of API body.
8640: --
8641:
8642: -- Standard check of p_commit.
8643:
8644: IF FND_API.To_Boolean ( p_commit ) THEN
8645: COMMIT WORK;
8646: END IF;
9839: END IF;
9840:
9841: x_return_status := FND_API.G_RET_STS_SUCCESS;
9842:
9843: -- Standard call to check for call compatibility.
9844: IF NOT FND_API.Compatible_API_Call ( l_api_version,
9845: p_api_version,
9846: l_api_name,
9847: G_PKG_NAME)
10064: END IF;
10065:
10066:
10067: -- added for R12. bmuthukr
10068: if l_listheader_rec.generation_type = 'STANDARD' then
10069: if g_remote_list_gen = 'N' then
10070: write_to_act_log('Identifying duplicate records(based on party id) in the target group.','LIST',g_list_header_id,'HIGH');
10071: UPDATE ams_list_entries a
10072: SET a.enabled_flag = 'N',
10089: --
10090:
10091: --** DE DUPLICATION FOR TG START **--
10092: write_to_act_log('Checking if dedupe is requested for target group. ', 'LIST', p_list_header_id,'HIGH');
10093: if l_listheader_rec.generation_type = 'STANDARD' then
10094: open c1;
10095: fetch c1 into l_list_rule_id ;
10096: close c1;
10097:
10120: end if;
10121: -- Call to suppresion to be done..
10122: --** DE DUPLICATION FOR TG END **--
10123: write_to_Act_log('Generation type is '||l_listheader_rec.generation_type,'LIST',g_list_header_id,'LOW');
10124: if l_listheader_rec.generation_type in ('STANDARD','INCREMENTAL') then
10125: open c_check_supp;
10126: fetch c_check_supp into l_supp_flag;
10127: close c_check_supp;
10128: write_to_Act_log('Suppression flag is '||l_supp_flag,'LIST',g_list_header_id,'LOW');
10176: end if;
10177: end if;
10178:
10179: -- Call to CG
10180: if l_listheader_rec.generation_type = 'STANDARD' then
10181: --if nvl(l_listheader_rec.generate_control_group_flag,'N') <> 'N' then--for now will have to change it later lpo
10182: if nvl(g_remote_list_gen,'N') = 'N' then
10183: write_to_Act_log('Calling control_group_generation procedure ','LIST',g_list_header_id,'LOW');
10184: AMS_List_Options_Pvt.Control_Group_Generation(p_list_header_id => g_list_header_id,
10352: --logger; -- will be called from ams_act_list_pvt proc.
10353: --
10354: -- END of API body.
10355: --
10356: -- Standard check of p_commit.
10357:
10358: IF FND_API.To_Boolean ( p_commit ) THEN
10359: COMMIT WORK;
10360: END IF;
14045: end if;
14046: close c4;
14047: end if;
14048:
14049: if l_list_type = 'STANDARD' then -- To see if any of the incl are based on emp list in std list
14050: open c3;
14051: fetch c3 into l_dummy;
14052: if c3%found then
14053: write_to_act_log('List inclusions has EMPLOYEE list. Cannot generate','LIST',p_list_header_id,'HIGH');