PACKAGE BODY: APPS.CCT_APPID_PUB

Source

1 PACKAGE BODY CCT_AppID_Pub  as
2 /* $Header: cctrespb.pls 120.1 2005/11/14 13:49:06 ibyon noship $ */
3 
4 /*------------------------------------------------------------------------
5 REM
6 REM-----------------------------------------------------------------------*/
7 
8 Function GetApplicationID(
9      p_Classification   IN VARCHAR2,
10      p_MediaType        IN VARCHAR2,
11      p_AgentID          IN NUMBER
12   )
13 Return NUMBER
14 IS
15     l_respID      NUMBER(15);
16     l_appID       NUMBER(15);
17     CURSOR l_resp_csr IS
18     select resp_id from cct_agent_rt_stats
19     where attribute1 is not null and attribute1='T' and agent_id=p_AgentID;
20 Begin
21     l_respID:=-1;
22     l_appID:=-1;
23     OPEN l_resp_csr;
24     FETCH l_resp_csr INTO l_respID;
25     IF l_resp_csr%NOTFOUND THEN
26        l_respID:=-1;
27     END IF;
28     CLOSE l_resp_csr;
29     IEU_UWQ_UTIL_PUB.DETERMINE_SOURCE_APP (l_respID, p_Classification,p_MediaType, l_appID);
30     return l_appID;
31 
32 EXCEPTION
33   WHEN OTHERS THEN
34      IF l_resp_csr%ISOPEN THEN
35       CLOSE l_resp_csr;
36      END IF;
37      return -1;
38 END;
39 END CCT_AppID_Pub;