[Home] [Help]
PACKAGE BODY: APPS.CCT_PERFTEST_PKG
Source
1 Package Body CCT_PERFTEST_PKG AS
2 /* $Header: cctpftb.pls 120.1 2005/07/13 17:00:50 appldev noship $ */
3
4 procedure DNIS_STATICGROUP_FILTER (
5 itemtype in varchar2
6 , itemkey in varchar2
7 , actid in number
8 , funmode in varchar2
9 , resultout in out nocopy varchar2
10 ) IS
11 l_proc_name VARCHAR2(30) :='DNIS_STATICGROUP_FILTER';
12 l_agents_tbl CCT_ROUTINGWORKFLOW_UTL.agent_tbl_type;
13 l_num_agents Number:=0;
14 l_dnis VARCHAR2(32);
15 l_call_ID VARCHAR2(32);
16 l_static_group VARCHAR2(64);
17 BEGIN
18 resultout := wf_engine.eng_completed ;
19 if (funmode = 'RUN') then
20 l_dnis := WF_ENGINE.GetItemAttrText(
21 itemtype, itemkey, 'OCCTDNIS');
22 l_call_ID := WF_ENGINE.GetItemAttrText(
23 itemtype, itemkey, 'OCCTMEDIAITEMID');
24 if ((l_dnis is null) or (l_call_id is null) ) THEN
25 return;
26 end if;
27 l_agents_tbl.delete;
28
29 l_num_agents :=CCT_Perftest_pkg.get_sgagents_for_dnis(l_dnis,l_agents_tbl);
30 --dbms_output.put_line('perftest:'||l_num_agents);
31 --dbms_output.put_line('perftest:'||l_agents_tbl.count);
32 If (l_num_agents=0) THEN
33 return;
34 END IF;
35
36 -- insert the agents into the CCT_TEMPAGENTS table
37 CCT_RoutingWorkflow_UTL.InsertResults
38 (l_call_ID, 'CCT_DNIS_SG_FILTER' , l_agents_tbl);
39
40 end if;
41
42 EXCEPTION
43 WHEN OTHERS THEN
44 WF_CORE.Context('CCT_PERFTEST_PKG', l_proc_name,
45 itemtype, itemkey, to_char(actid), funmode);
46 RAISE;
47
48 END DNIS_STATICGROUP_FILTER;
49 Function Get_SGAgents_for_DNIS(
50 p_dnis IN VARCHAR2,
51 x_agent_tbl IN OUT nocopy CCT_ROUTINGWORKFLOW_UTL.agent_tbl_type
52 )
53 RETURN NUMBER is
54 l_total_num_of_agents NUMBER:=0;
55 l_group_name VARCHAR2(64);
56 i number;
57
58 Begin
59 if (p_dnis='7710') then
60 l_group_name:='60DNISGroup';
61 elsif (p_dnis='7720') then
62 l_group_name:='60DNISGroup';
63 elsif (p_dnis='7730') then
64 l_group_name:='25DNISGroup';
65 elsif (p_dnis='7740') then
66 l_group_name:='15DNISGroup';
67 else
68 l_group_name:='60DNISGroup';
69 end if;
70 x_agent_tbl.delete;
71 -- l_total_num_of_agents:=CCT_ROUTINGWORKFLOW_UTL.get_agents_from_stat_grp_nam(l_group_name,x_agent_tbl);
72 l_total_num_of_agents:=0;
73 return l_total_num_of_agents;
74
75 Exception
76 when others then
77 return l_total_num_of_agents;
78 End get_SGAgents_for_DNIS;
79
80 END CCT_PERFTEST_PKG;