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;