45: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
46:
47: BEGIN
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: select iem_agents_s1.nextval into l_agent_account_id
50: from dual;
51: INSERT INTO IEM_AGENTS (
52: AGENT_ID ,
53: EMAIL_ACCOUNT_ID ,
47: BEGIN
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: select iem_agents_s1.nextval into l_agent_account_id
50: from dual;
51: INSERT INTO IEM_AGENTS (
52: AGENT_ID ,
53: EMAIL_ACCOUNT_ID ,
54: RESOURCE_ID ,
55: SIGNATURE ,
177: END IF;
178: x_return_status := FND_API.G_RET_STS_SUCCESS;
179:
180: select agent_id into l_agent_id
181: from IEM_AGENTS
182: where resource_id=p_resource_id
183: and email_account_id=p_email_account_id;
184:
185: delete from IEM_AGENTS
181: from IEM_AGENTS
182: where resource_id=p_resource_id
183: and email_account_id=p_email_account_id;
184:
185: delete from IEM_AGENTS
186: where resource_id=p_resource_id
187: and email_account_id=p_email_account_id;
188:
189: --Insert into Comp_Rt-Stats for Client cache to update.
291: WHERE RESOURCE_ID = p_in_resource_tbl(i);
292:
293:
294: -- Check if the agent account already exist. If exist, skip and fetch next resource id in the loop
295: select count(*) into l_agent_account_count from iem_agents where resource_id=p_in_resource_tbl(i)
296: and email_account_id=p_email_account_id;
297:
298: IF (l_agent_account_count = 0) THEN
299:
492: WHERE RESOURCE_ID = p_out_resource_tbl(i);
493:
494:
495: -- Check if the agent account already non-exist. If non-exist, skip and fetch next resource id in the loop
496: select count(*) into l_agent_account_count from iem_agents where resource_id=p_out_resource_tbl(i)
497: and email_account_id=p_email_account_id;
498:
499: IF (l_agent_account_count <> 0) THEN
500:
880: FROM IEM_MSTEMAIL_ACCOUNTS
881: WHERE EMAIL_ACCOUNT_ID = p_in_email_account_tbl(i);
882:
883: -- Check if the agent account already exist. If exist, skip and fetch next resource id in the loop
884: select count(*) into l_agent_account_count from iem_agents where email_account_id= p_in_email_account_tbl(i) and resource_id=p_resource_id;
885:
886: IF (l_agent_account_count = 0) THEN
887:
888: l_data_change := true;
1103:
1104: l_agntacct:=TO_CHAR(l_user_id)||'-'||l_email_user;
1105:
1106: -- Check if the agent account already non-exist. If non-exist, skip and fetch next resource id in the loop
1107: select count(*) into l_agent_account_count from iem_agents where email_account_id=p_out_email_account_tbl(i)
1108: and resource_id=p_resource_id;
1109:
1110: IF (l_agent_account_count <> 0) THEN
1111: