[Home] [Help]
11:
12:
13: procedure build_migration_queue(x_status out nocopy varchar2) IS
14: cursor c_account is select email_account_id,email_user,domain,EMAIL_PASSWORD,db_link from
15: iem_email_accounts a,iem_db_connections b
16: where a.db_server_id=b.db_server_id
17: and b.is_admin='A'
18: and upper(a.email_user)<>'INTENT';
19: l_email_account_id number;
621: --dbms_output.put_line('Directionis:'|| l_direction);
622: if l_folder_type='Q' THEN
623: BEGIN
624: select a.db_link into l_dblink
625: from iem_db_connections a, iem_email_accounts b
626: where a.db_server_id=b.db_Server_id
627: and b.email_account_id = l_email_account_id and a.is_admin='A';
628: -- Check normal processing or error Processing
629: select count(*) into l_qcount from iem_migration_store_temp
807: select to_date(value,'YYYY/MM/DD HH24:MI:SS') into l_hist_date from
808: iem_comp_rt_Stats where type='HISTORICAL' and param='LASTRUN' ;
809: select a.email_user,a.domain,a.email_password,'@'||DB_LINK
810: into l_user,l_domain,l_pass,l_dblink
811: from iem_email_accounts a,iem_db_connections b
812: where a.email_account_id=l_email_account_id
813: and a.db_server_id=b.db_server_id
814: and b.is_admin='A';
815: l_mig_status:=null;
1517: l_intent_id number;
1518: l_rule_id number;
1519: l_max_id number;
1520: l_val number;
1521: cursor c_account is select * from iem_email_accounts where email_account_id not in
1522: (select email_account_id from iem_mstemail_accounts);
1523: cursor c_agent is select * from iem_agent_Accounts where agent_account_id not in
1524: (select agent_id from iem_agents);
1525: cursor c_intent is
1550: l_deleted_flag varchar2(1);
1551: l_dblink iem_db_connections.db_link%type;
1552: l_weight number;
1553: l_sc_lang iem_mstemail_accounts.sc_lang%type;
1554: cursor c_rule is select email_user,domain from iem_email_accounts
1555: where upper(email_user) not in ('ACKNOWLEDGEMENTS');
1556: begin
1557: -- Migrate Email Account Config Data
1558: l_created_by:=nvl(TO_NUMBER (FND_PROFILE.VALUE('USER_ID')),-1);
1579: a.server_group_id=v1.server_group_id;
1580: if l_dblink is null then -- not required to get the dblink repeatedly
1581: if upper(v1.email_user) not in ('ACKNOWLEDGEMENTS') then
1582: select a.db_link into l_dblink
1583: from iem_db_connections a, iem_email_accounts b
1584: where a.db_server_id=b.db_Server_id
1585: and b.email_account_id = l_email_account_id and a.is_admin='A';
1586: end if;
1587: end if;
1587: end if;
1588: -- get the KEM flag /Intent Enabled etc ...for both 1159 and 11510
1589: IF v1.intent_enabled='Y' THEN
1590: BEGIN
1591: select kem_flag into l_flag from iem_email_Accounts
1592: where email_account_id=v1.email_Account_id;
1593: if l_flag is null then
1594: select decode(v1.acct_language,'GB',1,2) into l_flag from dual;
1595: end if;