PACKAGE BODY: APPS.CCT_BASIC_TELE_PUB

Source

1 PACKAGE BODY CCT_BASIC_TELE_PUB AS
2 /* $Header: cctsdkpb.pls 115.5 2004/06/02 17:37:04 edwang noship $ */
3     PROCEDURE CCT_BASIC_TELE_ENUM_NODES
4     (
5         P_RESOURCE_ID IN NUMBER,
6         P_LANGUAGE    IN VARCHAR2,
7         P_SOURCE_LANG IN VARCHAR2,
8         P_SEL_ENUM_ID IN NUMBER
9     )
10     IS
11         l_m_list  IEU_PUB.EnumeratorDataRecordList ;
12         l_node_label VARCHAR2(128);
13     BEGIN
14 
15         SAVEPOINT start_enum ;
16 
17         Select meaning into l_node_label
18         from fnd_lookup_values_vl
19         where lookup_type = 'CCT_SDK_TYPES'
20         and lookup_code = 'BASIC';
21 
22         l_m_list(0).NODE_LABEL := l_node_label ;
23         l_m_list(0).VIEW_NAME := 'CCT_BASIC_TELE_WORKNODE_UWQ_V' ;
24         l_m_list(0).DATA_SOURCE := 'CCT_BASIC_TELE_WORKNODE_UWQ_DS' ;
25         l_m_list(0).MEDIA_TYPE_ID := '20020' ;
26         l_m_list(0).WHERE_CLAUSE := '' ;
27         l_m_list(0).NODE_TYPE := 0 ;
28         l_m_list(0).HIDE_IF_EMPTY := 'N' ;
29         l_m_list(0).NODE_DEPTH := 1 ;
30         l_m_list(0).BIND_VARS := '' ;
31         l_m_list(0).RES_CAT_ENUM_FLAG := 'Y' ;
32         l_m_list(0).REFRESH_VIEW_NAME := 'CCT_BASIC_TELE_WORKNODE_UWQ_V' ;
33         l_m_list(0).REFRESH_VIEW_SUM_COL := 'COUNT' ; -- Column name
34 
35         UPDATE_RT_STATS(P_RESOURCE_ID,0);
36 
37         IEU_PUB.ADD_UWQ_NODE_DATA
38         (
39             P_RESOURCE_ID,
40             P_SEL_ENUM_ID,
41             l_m_list
42         );
43     EXCEPTION
44         WHEN OTHERS THEN
45             ROLLBACK TO start_enum ;
46         RAISE;
47     END CCT_BASIC_TELE_ENUM_NODES;
48 
49     PROCEDURE UPDATE_RT_STATS
50     (
51         P_RESOURCE_ID IN NUMBER,
52         P_COUNT       IN NUMBER
53     )
54     IS
55         l_count number ;
56     BEGIN
57 
58         UPDATE CCT_AGENT_RT_STATS
59         SET CLIENT_ID = P_COUNT
60         WHERE AGENT_ID = P_RESOURCE_ID;
61 
62         IF(SQL%NOTFOUND OR (SQL%ROWCOUNT <= 0)) THEN
63             INSERT INTO CCT_AGENT_RT_STATS
64             (
65                 AGENT_ID,
66                 CLIENT_ID,
67                 MCM_ID,
68                 CREATED_BY,
69                 CREATION_DATE,
70                 LAST_UPDATED_BY,
71                 LAST_UPDATE_DATE,
72                 AGENT_RT_STAT_ID
73             )
74             VALUES
75             (P_RESOURCE_ID,P_COUNT,-1,-1,SYSDATE,-1,SYSDATE,CCT_AGENT_RT_STATS_S.nextval);
76         END IF;
77 
78     END UPDATE_RT_STATS;
79 
80 
81 
82 END CCT_BASIC_TELE_PUB;