eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CCT_RELATION_ENGINE

Source


1 PACKAGE BODY CCT_RELATION_ENGINE  as
2 /* $Header: cctureeb.pls 120.0 2005/06/02 09:37:18 appldev noship $ */
3 
4   PROCEDURE delete_interaction_keys
5      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
6     IS
7       -- Enter the procedure variables here. As shown below
8       --  variable_name        datatype  NOT NULL DEFAULT default_value;
9       l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
10    BEGIN
11          -- Standard Start of API savepoint
12         SAVEPOINT  delete_interaction_keys_pt;
13 
14         l_code :=  get_interaction_key_code(p_interaction_key_id);
15 
16         delete cct_interaction_keys
17         where interaction_key_id = p_interaction_key_id;
18 
19         -- delete  data from related tables
20         delete_class_rule_ikeys(p_interaction_key_id, p_user_id, l_code);
21 
22         delete_ivr_ikeys(p_interaction_key_id, p_user_id, l_code);
23 
24         delete_route_param_ikeys(p_interaction_key_id, p_user_id, l_code);
25 
26         delete_softphone_ikeys(p_interaction_key_id, p_user_id, l_code);
27 
28    EXCEPTION
29       WHEN others THEN
30           ROLLBACK TO delete_interaction_keys_pt;
31    END delete_interaction_keys;
32 
33    PROCEDURE delete_rt_class_ikeys
34      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
35    IS
36       -- Enter the procedure variables here. As shown below
37       --  variable_name        datatype  NOT NULL DEFAULT default_value;
38       l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
39    BEGIN
40          -- Standard Start of API savepoint
41         SAVEPOINT  delete_rt_class_ikeys_pt;
42 
43         l_code :=  get_interaction_key_code(p_interaction_key_id);
44 
45         -- delete  data from related tables
46         delete_class_rule_ikeys(p_interaction_key_id, p_user_id, l_code);
47 
48         delete_route_param_ikeys(p_interaction_key_id, p_user_id, l_code);
49 
50    EXCEPTION
51       WHEN others THEN
52           ROLLBACK TO delete_rt_class_ikeys_pt;
53    END delete_rt_class_ikeys;
54 
55 
56    FUNCTION get_interaction_key_code
57      ( p_interaction_key_id IN NUMBER)
58    RETURN VARCHAR2
59    IS
60      l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
61    BEGIN
62 
63         select interaction_key into l_code
64         from cct_interaction_keys
65         where interaction_key_id = p_interaction_key_id;
66 
67    RETURN l_code;
68    END  get_interaction_key_code;
69 
70 
71    PROCEDURE delete_class_rule_ikeys
72      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
73    IS
74      l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
75    BEGIN
76 
77      l_code := get_interaction_key_code(p_interaction_key_id);
78      delete_class_rule_ikeys(p_interaction_key_id, p_user_id, l_code);
79    END   delete_class_rule_ikeys;
80 
81 
82    PROCEDURE delete_class_rule_ikeys
83      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER, p_interaction_key_code IN VARCHAR2)
84    IS
85    BEGIN
86 
87         update cct_classification_rules
88         set f_deletedflag ='D', last_updated_by = p_user_id, last_update_date = sysdate
89         where key = p_interaction_key_code;
90 
91 
92    END  delete_class_rule_ikeys;
93 
94    PROCEDURE delete_route_param_ikeys
95      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
96    IS
97      l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
98    BEGIN
99      l_code := get_interaction_key_code(p_interaction_key_id);
100      delete_route_param_ikeys(p_interaction_key_id, p_user_id, l_code);
101    END delete_route_param_ikeys;
102 
103    PROCEDURE delete_route_param_ikeys
104      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER, p_interaction_key_code IN VARCHAR2)
105    IS
106    BEGIN
107 
108         update cct_route_params
109         set f_deletedflag = 'D', last_updated_by = p_user_id, last_update_date = sysdate
110         where param = p_interaction_key_code
111         and sequence is null;
112 
113    END delete_route_param_ikeys;
114 
115    PROCEDURE delete_ivr_ikeys
116      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
117    IS
118      l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
119    BEGIN
120      l_code := get_interaction_key_code(p_interaction_key_id);
121      delete_ivr_ikeys(p_interaction_key_id, p_user_id, l_code);
122    END delete_ivr_ikeys;
123 
124    PROCEDURE delete_ivr_ikeys
125      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER, p_interaction_key_code IN VARCHAR2)
126    IS
127    BEGIN
128 
129         update cct_ivr_maps
130         set f_deletedflag = 'D', last_updated_by = p_user_id, last_update_date = sysdate
131         where interaction_key_id = p_interaction_key_id;
132 
133    END delete_ivr_ikeys;
134 
135 
136    PROCEDURE delete_softphone_ikeys
137      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER)
138    IS
139      l_code CCT_INTERACTION_KEYS.INTERACTION_KEY%TYPE;
140    BEGIN
141      l_code := get_interaction_key_code(p_interaction_key_id);
142      delete_softphone_ikeys(p_interaction_key_id, p_user_id, l_code);
143    END delete_softphone_ikeys;
144 
145    PROCEDURE delete_softphone_ikeys
146      ( p_interaction_key_id IN NUMBER, p_user_id IN NUMBER, p_interaction_key_code IN VARCHAR2)
147    IS
148    BEGIN
149     null;
150    /*
151         update cct_ivr_maps
152         set f_deletedflag = 'D', last_updated_by = p_user_id, last_update_date = sysdate
153         where interaction_key_id = p_interaction_key_id;
154    */
155    END delete_softphone_ikeys;
156 
157 END CCT_RELATION_ENGINE;