PACKAGE BODY: APPS.CCT_CUSTOM_PUB

Source

1 PACKAGE BODY CCT_CUSTOM_PUB AS
2 /* $Header: cctrcstb.pls 120.0 2005/06/02 10:08:22 appldev noship $ */
3 
4 --  PROC accepts ANI and returns ANI as the AGENT ID
5 PROCEDURE ANI_TO_AGENT (p_ani IN NUMBER,
6 				    p_agent_id OUT nocopy NUMBER) IS
7 
8 
9 BEGIN
10 
11    p_agent_id := p_ani;
12 
13 
14 END ANI_TO_AGENT;
15 
16 
17 -- PROC accepts AGENT and returns the AGENT ID
18 PROCEDURE AGENT_TO_AGENTID (p_agentname IN VARCHAR2,
19     p_agent_id OUT nocopy NUMBER) IS
20 
21 BEGIN
22 
23   select b.resource_ID into p_agent_id
24   from fnd_user a, JTF_RS_RESOURCE_EXTNS b
25   where a.user_name = p_agentname
26   and   a.user_id   = b.user_id;
27 
28 
29 END AGENT_TO_AGENTID;
30 
31 END CCT_CUSTOM_PUB;