49: l_status_text varchar2(1000);
50: l_ack_flag number:=0;
51: cursor c_agent is select agent_account_id,resource_id from iem_agent_accounts
52: where email_account_id= l_email_account_id;
53: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
54: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
55: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
56: l_mig_id number;
57: l_logmessage varchar2(1000);
50: l_ack_flag number:=0;
51: cursor c_agent is select agent_account_id,resource_id from iem_agent_accounts
52: where email_account_id= l_email_account_id;
53: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
54: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
55: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
56: l_mig_id number;
57: l_logmessage varchar2(1000);
58: x_folder_tbl jtf_varchar2_table_100:=jtf_varchar2_table_100() ;
51: cursor c_agent is select agent_account_id,resource_id from iem_agent_accounts
52: where email_account_id= l_email_account_id;
53: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
54: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
55: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
56: l_mig_id number;
57: l_logmessage varchar2(1000);
58: x_folder_tbl jtf_varchar2_table_100:=jtf_varchar2_table_100() ;
59: Type get_folder_data is REF CURSOR;
239: l_contact_id number;
240: l_resource_id number;
241: l_relationship_id number;
242: l_party_id number;
243: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
244: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
245: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
246: l_proc_status varchar2(100);
247: l_mail_type number;
240: l_resource_id number;
241: l_relationship_id number;
242: l_party_id number;
243: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
244: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
245: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
246: l_proc_status varchar2(100);
247: l_mail_type number;
248: l_received_Date date;
241: l_relationship_id number;
242: l_party_id number;
243: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
244: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
245: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
246: l_proc_status varchar2(100);
247: l_mail_type number;
248: l_received_Date date;
249: l_folder_type varchar2(10);
565: x_priority number;
566: l_read number;
567: l_expiration date;
568: l_ret number;
569: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
570: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
571: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
572: l_hist_date date;
573: l_hist_count number;
566: l_read number;
567: l_expiration date;
568: l_ret number;
569: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
570: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
571: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
572: l_hist_date date;
573: l_hist_count number;
574: l_mig_status varchar2(1);
567: l_expiration date;
568: l_ret number;
569: l_CREATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
570: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
571: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
572: l_hist_date date;
573: l_hist_count number;
574: l_mig_status varchar2(1);
575: l_content blob;
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);
1559: l_LAST_UPDATED_BY:=nvl(TO_NUMBER (FND_PROFILE.VALUE('USER_ID')),-1);
1560: l_last_update_login:=nvl(TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')),-1);
1561: for v1 in c_account LOOP
1562: l_email_Account_id:=v1.email_account_id;
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);
1559: l_LAST_UPDATED_BY:=nvl(TO_NUMBER (FND_PROFILE.VALUE('USER_ID')),-1);
1560: l_last_update_login:=nvl(TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')),-1);
1561: for v1 in c_account LOOP
1562: l_email_Account_id:=v1.email_account_id;
1563: l_acct_language:=v1.acct_language;
1556: begin
1557: -- Migrate Email Account Config Data
1558: l_created_by:=nvl(TO_NUMBER (FND_PROFILE.VALUE('USER_ID')),-1);
1559: l_LAST_UPDATED_BY:=nvl(TO_NUMBER (FND_PROFILE.VALUE('USER_ID')),-1);
1560: l_last_update_login:=nvl(TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')),-1);
1561: for v1 in c_account LOOP
1562: l_email_Account_id:=v1.email_account_id;
1563: l_acct_language:=v1.acct_language;
1564: l_template_profile:=to_number(FND_PROFILE.VALUE_SPECIFIC('IEM_TEMPLATE_CATEGORY_ID')) ;
1560: l_last_update_login:=nvl(TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')),-1);
1561: for v1 in c_account LOOP
1562: l_email_Account_id:=v1.email_account_id;
1563: l_acct_language:=v1.acct_language;
1564: l_template_profile:=to_number(FND_PROFILE.VALUE_SPECIFIC('IEM_TEMPLATE_CATEGORY_ID')) ;
1565: select to_number(decode(FND_PROFILE.VALUE_SPECIFIC('IEM_ACCOUNT_SENDER_NAME'),'ACCOUNT',0,1)) into
1566: l_sender_profile from dual;
1567: select dns_name,port
1568: into l_in_host,l_in_port
1561: for v1 in c_account LOOP
1562: l_email_Account_id:=v1.email_account_id;
1563: l_acct_language:=v1.acct_language;
1564: l_template_profile:=to_number(FND_PROFILE.VALUE_SPECIFIC('IEM_TEMPLATE_CATEGORY_ID')) ;
1565: select to_number(decode(FND_PROFILE.VALUE_SPECIFIC('IEM_ACCOUNT_SENDER_NAME'),'ACCOUNT',0,1)) into
1566: l_sender_profile from dual;
1567: select dns_name,port
1568: into l_in_host,l_in_port
1569: from iem_email_servers a,iem_email_server_types b
1612: l_deleted_flag:='N';
1613: end if;
1614: begin
1615: if v1.sc_lang is null then
1616: l_sc_lang:=FND_PROFILE.VALUE('IEM_SC_DEFAULT_LANG');
1617: else
1618: l_sc_lang:=v1.sc_lang;
1619: end if;
1620: exception when others then -- just incase the 1159 column is not present.
1617: else
1618: l_sc_lang:=v1.sc_lang;
1619: end if;
1620: exception when others then -- just incase the 1159 column is not present.
1621: l_sc_lang:=FND_PROFILE.VALUE('IEM_SC_DEFAULT_LANG');
1622: end;
1623: insert into iem_mstemail_accounts
1624: (EMAIL_ACCOUNT_ID,
1625: EMAIL_ADDRESS ,