[Home] [Help]
928:
929: cursor c1 is select * from iem_migration_store_temp
930: where migration_id=l_id and (dp_status='E' or mig_Status='E');
931: l_mig_count number;
932: cursor c_account is select email_account_id from iem_mstemail_accounts
933: where active_flag in ('Y','N') ;
934: begin
935:
936: for i in p_folders.first..p_folders.last LOOP
974: select count(*) into l_mig_count from iem_migration_details
975: where email_account_id=v1.email_account_id and nvl(folder_status,' ')<>'M'
976: and folder_type<>'H';
977: IF l_mig_count>0 then
978: update iem_mstemail_accounts
979: set active_flag='M'
980: where email_account_id=v1.email_Account_id;
981: END IF;
982: END LOOP;
996: l_dp_status varchar2(10);
997: l_folder_status varchar2(10);
998: l_mig_id number;
999: l_mig_count number;
1000: cursor c_account is select email_account_id from iem_mstemail_accounts
1001: where active_flag in ('Y','N') ;
1002: begin
1003: for i in p_messages.first..p_messages.last LOOP
1004: select migration_id,mig_status,dp_status into l_mig_id,l_mig_status,l_dp_status
1039: select count(*) into l_mig_count from iem_migration_details
1040: where email_account_id=v1.email_account_id and nvl(folder_status,' ')<>'M'
1041: and folder_type<>'H';
1042: IF l_mig_count>0 then
1043: update iem_mstemail_accounts
1044: set active_flag='M'
1045: where email_account_id=v1.email_Account_id;
1046: END IF;
1047: END LOOP;
1064: l_mig_count number;
1065: l_id number;
1066: l_id1 number;
1067: WORKER_NOT_SUBMITTED EXCEPTION;
1068: cursor c_account is select email_account_id from iem_mstemail_accounts
1069: where active_flag in ('Y','N') ;
1070: begin
1071: SAVEPOINT start_migration;
1072: -- Create a record in IEM_COMP_RT_STATS
1152: for v1 in c_account LOOP
1153: select count(*) into l_mig_count from iem_migration_details
1154: where email_account_id=v1.email_account_id and folder_status<>'M';
1155: IF l_mig_count>0 then
1156: update iem_mstemail_accounts
1157: set active_flag='M'
1158: where email_account_id=v1.email_Account_id;
1159: END IF;
1160: END LOOP;
1200: cursor c_mig_folder is
1201: select distinct migration_id,folder_Status from iem_migration_Details
1202: where migration_id in (select a.migration_id from iem_migration_store_temp a,iem_migration_details b
1203: where a.migration_id=b.migration_id and b.folder_Status='M' and a.mig_Status in (null,'D'));
1204: cursor c_account is select email_account_id from iem_mstemail_accounts
1205: where active_flag='M' ;
1206: l_mig_count number;
1207:
1208: begin
1293: select count(*) into l_mig_count from iem_migration_details
1294: where email_account_id=v1.email_account_id and folder_status<>'M'
1295: and folder_type<>'H';
1296: IF l_mig_count=0 then
1297: update iem_mstemail_accounts
1298: set active_flag='N'
1299: where email_account_id=v1.email_Account_id;
1300: commit;
1301: END IF;
1334: l_rule_id number;
1335: l_max_id number;
1336: l_val number;
1337: cursor c_account is select * from iem_email_accounts where email_account_id not in
1338: (select email_account_id from iem_mstemail_accounts);
1339: cursor c_agent is select * from iem_agent_Accounts where agent_account_id not in
1340: (select agent_id from iem_agents);
1341: cursor c_intent is
1342: select distinct a.classification_id,a.classification from
1365: l_msg_data varchar2(1000);
1366: l_deleted_flag varchar2(1);
1367: l_dblink iem_db_connections.db_link%type;
1368: l_weight number;
1369: l_sc_lang iem_mstemail_accounts.sc_lang%type;
1370: cursor c_rule is select email_user,domain from iem_email_accounts
1371: where upper(email_user) not in ('ACKNOWLEDGEMENTS');
1372: begin
1373: -- Migrate Email Account Config Data
1435: end if;
1436: exception when others then -- just incase the 1159 column is not present.
1437: l_sc_lang:=FND_PROFILE.VALUE('IEM_SC_DEFAULT_LANG');
1438: end;
1439: insert into iem_mstemail_accounts
1440: (EMAIL_ACCOUNT_ID,
1441: EMAIL_ADDRESS ,
1442: ACCOUNT_DESC,
1443: USER_NAME ,
1489: sysdate,
1490: l_last_update_login);
1491:
1492: if upper(v1.email_user) in ('INTENT','ACKNOWLEDGEMENTS') then
1493: update iem_mstemail_accounts
1494: set deleted_flag='Y'
1495: where user_name=v1.email_user;
1496: end if;
1497:
1495: where user_name=v1.email_user;
1496: end if;
1497:
1498: -- Encrypt the Password
1499: IEM_MSTEMAIL_ACCOUNTS_PVT.encrypt_password(
1500: P_Api_Version_Number =>1.0,
1501: P_Init_Msg_List =>'F',
1502: P_Commit =>'F',
1503: p_email_account_id =>v1.email_Account_id,
1608: update iem_route_classifications
1609: set deleted_flag='N'
1610: where deleted_flag is null; -- So that can be re runnable..
1611: -- Reset the Sequence to have highest email account id id
1612: select nvl(max(email_account_id),0) into l_max_id from iem_mstemail_accounts;
1613: LOOP
1614: select iem_mstemail_accounts_s1.nextval into l_val from dual;
1615: exit when l_val>l_max_id;
1616: END LOOP;
1610: where deleted_flag is null; -- So that can be re runnable..
1611: -- Reset the Sequence to have highest email account id id
1612: select nvl(max(email_account_id),0) into l_max_id from iem_mstemail_accounts;
1613: LOOP
1614: select iem_mstemail_accounts_s1.nextval into l_val from dual;
1615: exit when l_val>l_max_id;
1616: END LOOP;
1617:
1618: -- Reset the Sequence to have highest agent id