56: l_folder_count number;
57: l_arch_folder varchar2(100);
58: begin
59: -- Check Logging Enabled or Not...
60: FND_LOG_REPOSITORY.init(null,null);
61: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
62: g_exception_log:=true;
63: end if;
64: for v1 in c_account LOOP
57: l_arch_folder varchar2(100);
58: begin
59: -- Check Logging Enabled or Not...
60: FND_LOG_REPOSITORY.init(null,null);
61: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
62: g_exception_log:=true;
63: end if;
64: for v1 in c_account LOOP
65: l_email_account_id:=v1.email_account_id;
1311: END StopMigration;
1312: PROCEDURE iem_logger(l_logmessage in varchar2) IS
1313: begin
1314: if g_statement_log THEN
1315: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1317: end if;
1318: end if;
1319: if g_exception_log then
1312: PROCEDURE iem_logger(l_logmessage in varchar2) IS
1313: begin
1314: if g_statement_log THEN
1315: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1317: end if;
1318: end if;
1319: if g_exception_log then
1320: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1317: end if;
1318: end if;
1319: if g_exception_log then
1320: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1321: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1322: end if;
1323: end if;
1324: if g_error_log then
1317: end if;
1318: end if;
1319: if g_exception_log then
1320: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1321: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1322: end if;
1323: end if;
1324: if g_error_log then
1325: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1321: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1322: end if;
1323: end if;
1324: if g_error_log then
1325: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1326: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1327: end if;
1328: end if;
1329: end iem_logger;
1322: end if;
1323: end if;
1324: if g_error_log then
1325: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1326: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'IEM.PLSQL.IEM_EMAIL_PROC_PVT',l_logmessage);
1327: end if;
1328: end if;
1329: end iem_logger;
1330: