DBA Data[Home] [Help]

PACKAGE BODY: APPS.AMS_ACT_LIST_GROUPS_PKG

Source


1 PACKAGE BODY AMS_ACT_LIST_GROUPS_PKG as
2 /* $Header: amstlgpb.pls 115.4 2002/11/22 08:54:30 jieli ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 --          AMS_ACT_LIST_GROUPS_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15 
16 
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_ACT_LIST_GROUPS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstlgpb.pls';
19 
20 
21 ----------------------------------------------------------
22 ----          MEDIA           ----
23 ----------------------------------------------------------
24 
25 --  ========================================================
26 --
27 --  NAME
28 --  createInsertBody
29 --
30 --  PURPOSE
31 --
32 --  NOTES
33 --
34 --  HISTORY
35 --
36 --  ========================================================
37 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
38 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
39 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
40 
41 PROCEDURE Insert_Row(
42           px_act_list_group_id   IN OUT NOCOPY NUMBER,
43           p_act_list_used_by_id    NUMBER,
44           p_arc_act_list_used_by    VARCHAR2,
45           p_group_code    VARCHAR2,
46           p_group_priority    NUMBER,
47           p_last_update_date    DATE,
48           p_last_updated_by    NUMBER,
49           p_creation_date    DATE,
50           p_created_by    NUMBER,
51           p_last_update_login    NUMBER,
52           px_object_version_number   IN OUT NOCOPY NUMBER,
53           p_status_code    VARCHAR2,
54           p_user_status_id    NUMBER,
55           p_calling_calendar_id    NUMBER,
56           p_release_control_alg_id    NUMBER,
57           p_release_strategy    VARCHAR2,
58           p_recycling_alg_id    NUMBER,
59           p_callback_priority_flag    VARCHAR2,
60           p_call_center_ready_flag    VARCHAR2,
61           p_dialing_method    VARCHAR2,
62           p_quantum    NUMBER,
63           p_quota    NUMBER,
64           p_quota_reset    NUMBER)
65 
66  IS
67    x_rowid    VARCHAR2(30);
68 
69 
70 BEGIN
71 
72 
73    px_object_version_number := 1;
74 
75 
76    INSERT INTO AMS_ACT_LIST_GROUPS(
77            act_list_group_id,
78            act_list_used_by_id,
79            arc_act_list_used_by,
80            group_code,
81            group_priority,
82            last_update_date,
83            last_updated_by,
84            creation_date,
85            created_by,
86            last_update_login,
87            object_version_number,
88            status_code,
89            user_status_id,
90            calling_calendar_id,
91            release_control_alg_id,
92            release_strategy,
93            recycling_alg_id,
94            callback_priority_flag,
95            call_center_ready_flag,
96            dialing_method,
97            quantum,
98            quota,
99            quota_reset
100    ) VALUES (
101            DECODE( px_act_list_group_id, FND_API.g_miss_num, NULL, px_act_list_group_id),
102            DECODE( p_act_list_used_by_id, FND_API.g_miss_num, NULL, p_act_list_used_by_id),
103            DECODE( p_arc_act_list_used_by, FND_API.g_miss_char, NULL, p_arc_act_list_used_by),
104            DECODE( p_group_code, FND_API.g_miss_char, NULL, p_group_code),
105            DECODE( p_group_priority, FND_API.g_miss_num, NULL, p_group_priority),
106            DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
107            DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
108            DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
109            DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
110            DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
111            DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
112            DECODE( p_status_code, FND_API.g_miss_char, NULL, p_status_code),
113            DECODE( p_user_status_id, FND_API.g_miss_num, NULL, p_user_status_id),
114            DECODE( p_calling_calendar_id, FND_API.g_miss_num, NULL, p_calling_calendar_id),
115            DECODE( p_release_control_alg_id, FND_API.g_miss_num, NULL, p_release_control_alg_id),
116            DECODE( p_release_strategy, FND_API.g_miss_char, NULL, p_release_strategy),
117            DECODE( p_recycling_alg_id, FND_API.g_miss_num, NULL, p_recycling_alg_id),
118            DECODE( p_callback_priority_flag, FND_API.g_miss_char, NULL, p_callback_priority_flag),
119            DECODE( p_call_center_ready_flag, FND_API.g_miss_char, NULL, p_call_center_ready_flag),
120            DECODE( p_dialing_method, FND_API.g_miss_char, NULL, p_dialing_method),
121            DECODE( p_quantum, FND_API.g_miss_num, NULL, p_quantum),
122            DECODE( p_quota, FND_API.g_miss_num, NULL, p_quota),
123            DECODE( p_quota_reset, FND_API.g_miss_num, NULL, p_quota_reset));
124 END Insert_Row;
125 
126 
127 ----------------------------------------------------------
128 ----          MEDIA           ----
129 ----------------------------------------------------------
130 
131 --  ========================================================
132 --
133 --  NAME
134 --  createUpdateBody
135 --
136 --  PURPOSE
137 --
138 --  NOTES
139 --
140 --  HISTORY
141 --
142 --  ========================================================
143 PROCEDURE Update_Row(
144           p_act_list_group_id    NUMBER,
145           p_act_list_used_by_id    NUMBER,
146           p_arc_act_list_used_by    VARCHAR2,
147           p_group_code    VARCHAR2,
148           p_group_priority    NUMBER,
149           p_last_update_date    DATE,
150           p_last_updated_by    NUMBER,
151           p_creation_date    DATE,
152           p_created_by    NUMBER,
153           p_last_update_login    NUMBER,
154           p_object_version_number    NUMBER,
155           p_status_code    VARCHAR2,
156           p_user_status_id    NUMBER,
157           p_calling_calendar_id    NUMBER,
158           p_release_control_alg_id    NUMBER,
159           p_release_strategy    VARCHAR2,
160           p_recycling_alg_id    NUMBER,
161           p_callback_priority_flag    VARCHAR2,
162           p_call_center_ready_flag    VARCHAR2,
163           p_dialing_method    VARCHAR2,
164           p_quantum    NUMBER,
165           p_quota    NUMBER,
166           p_quota_reset    NUMBER)
167 
168  IS
169  BEGIN
170     Update AMS_ACT_LIST_GROUPS
171     SET
172               act_list_group_id = DECODE( p_act_list_group_id, FND_API.g_miss_num, act_list_group_id, p_act_list_group_id),
173               act_list_used_by_id = DECODE( p_act_list_used_by_id, FND_API.g_miss_num, act_list_used_by_id, p_act_list_used_by_id),
174               arc_act_list_used_by = DECODE( p_arc_act_list_used_by, FND_API.g_miss_char, arc_act_list_used_by, p_arc_act_list_used_by),
175               group_code = DECODE( p_group_code, FND_API.g_miss_char, group_code, p_group_code),
176               group_priority = DECODE( p_group_priority, FND_API.g_miss_num, group_priority, p_group_priority),
177               last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
178               last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
179               creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
180               created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
181               last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
182               object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
183               status_code = DECODE( p_status_code, FND_API.g_miss_char, status_code, p_status_code),
184               user_status_id = DECODE( p_user_status_id, FND_API.g_miss_num, user_status_id, p_user_status_id),
185               calling_calendar_id = DECODE( p_calling_calendar_id, FND_API.g_miss_num, calling_calendar_id, p_calling_calendar_id),
186               release_control_alg_id = DECODE( p_release_control_alg_id, FND_API.g_miss_num, release_control_alg_id, p_release_control_alg_id),
187               release_strategy = DECODE( p_release_strategy, FND_API.g_miss_char, release_strategy, p_release_strategy),
188               recycling_alg_id = DECODE( p_recycling_alg_id, FND_API.g_miss_num, recycling_alg_id, p_recycling_alg_id),
189               callback_priority_flag = DECODE( p_callback_priority_flag, FND_API.g_miss_char, callback_priority_flag, p_callback_priority_flag),
190               call_center_ready_flag = DECODE( p_call_center_ready_flag, FND_API.g_miss_char, call_center_ready_flag, p_call_center_ready_flag),
191               dialing_method = DECODE( p_dialing_method, FND_API.g_miss_char, dialing_method, p_dialing_method),
192               quantum = DECODE( p_quantum, FND_API.g_miss_num, quantum, p_quantum),
193               quota = DECODE( p_quota, FND_API.g_miss_num, quota, p_quota),
194               quota_reset = DECODE( p_quota_reset, FND_API.g_miss_num, quota_reset, p_quota_reset)
195    WHERE ACT_LIST_GROUP_ID = p_ACT_LIST_GROUP_ID
196    AND   object_version_number = p_object_version_number;
197 
198    IF (SQL%NOTFOUND) THEN
199 RAISE  FND_API.G_EXC_UNEXPECTED_ERROR;
200    END IF;
201 END Update_Row;
202 
203 
204 ----------------------------------------------------------
205 ----          MEDIA           ----
206 ----------------------------------------------------------
207 
208 --  ========================================================
209 --
210 --  NAME
211 --  createDeleteBody
212 --
213 --  PURPOSE
214 --
215 --  NOTES
216 --
217 --  HISTORY
218 --
219 --  ========================================================
220 PROCEDURE Delete_Row(
221     p_ACT_LIST_GROUP_ID  NUMBER)
222  IS
223  BEGIN
224    DELETE FROM AMS_ACT_LIST_GROUPS
225     WHERE ACT_LIST_GROUP_ID = p_ACT_LIST_GROUP_ID;
226    If (SQL%NOTFOUND) then
227 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
228    End If;
229  END Delete_Row ;
230 
231 
232 
233 ----------------------------------------------------------
234 ----          MEDIA           ----
235 ----------------------------------------------------------
236 
237 --  ========================================================
238 --
239 --  NAME
240 --  createLockBody
241 --
242 --  PURPOSE
243 --
244 --  NOTES
245 --
246 --  HISTORY
247 --
248 --  ========================================================
249 PROCEDURE Lock_Row(
250           p_act_list_group_id    NUMBER,
251           p_act_list_used_by_id    NUMBER,
252           p_arc_act_list_used_by    VARCHAR2,
253           p_group_code    VARCHAR2,
254           p_group_priority    NUMBER,
255           p_last_update_date    DATE,
256           p_last_updated_by    NUMBER,
257           p_creation_date    DATE,
258           p_created_by    NUMBER,
259           p_last_update_login    NUMBER,
260           p_object_version_number    NUMBER,
261           p_status_code    VARCHAR2,
262           p_user_status_id    NUMBER,
263           p_calling_calendar_id    NUMBER,
264           p_release_control_alg_id    NUMBER,
265           p_release_strategy    VARCHAR2,
266           p_recycling_alg_id    NUMBER,
267           p_callback_priority_flag    VARCHAR2,
268           p_call_center_ready_flag    VARCHAR2,
269           p_dialing_method    VARCHAR2,
270           p_quantum    NUMBER,
271           p_quota    NUMBER,
272           p_quota_reset    NUMBER)
273 
274  IS
275    CURSOR C IS
276         SELECT *
277          FROM AMS_ACT_LIST_GROUPS
278         WHERE ACT_LIST_GROUP_ID =  p_ACT_LIST_GROUP_ID
279         FOR UPDATE of ACT_LIST_GROUP_ID NOWAIT;
280    Recinfo C%ROWTYPE;
281  BEGIN
282     OPEN c;
283     FETCH c INTO Recinfo;
284     If (c%NOTFOUND) then
285         CLOSE c;
286         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
287         APP_EXCEPTION.RAISE_EXCEPTION;
288     END IF;
289     CLOSE C;
290     IF (
294                 AND (  p_act_list_used_by_id IS NULL )))
291            (      Recinfo.act_list_group_id = p_act_list_group_id)
292        AND (    ( Recinfo.act_list_used_by_id = p_act_list_used_by_id)
293             OR (    ( Recinfo.act_list_used_by_id IS NULL )
295        AND (    ( Recinfo.arc_act_list_used_by = p_arc_act_list_used_by)
296             OR (    ( Recinfo.arc_act_list_used_by IS NULL )
297                 AND (  p_arc_act_list_used_by IS NULL )))
298        AND (    ( Recinfo.group_code = p_group_code)
299             OR (    ( Recinfo.group_code IS NULL )
300                 AND (  p_group_code IS NULL )))
301        AND (    ( Recinfo.group_priority = p_group_priority)
302             OR (    ( Recinfo.group_priority IS NULL )
303                 AND (  p_group_priority IS NULL )))
304        AND (    ( Recinfo.last_update_date = p_last_update_date)
305             OR (    ( Recinfo.last_update_date IS NULL )
306                 AND (  p_last_update_date IS NULL )))
307        AND (    ( Recinfo.last_updated_by = p_last_updated_by)
308             OR (    ( Recinfo.last_updated_by IS NULL )
309                 AND (  p_last_updated_by IS NULL )))
310        AND (    ( Recinfo.creation_date = p_creation_date)
311             OR (    ( Recinfo.creation_date IS NULL )
312                 AND (  p_creation_date IS NULL )))
313        AND (    ( Recinfo.created_by = p_created_by)
314             OR (    ( Recinfo.created_by IS NULL )
315                 AND (  p_created_by IS NULL )))
316        AND (    ( Recinfo.last_update_login = p_last_update_login)
317             OR (    ( Recinfo.last_update_login IS NULL )
318                 AND (  p_last_update_login IS NULL )))
319        AND (    ( Recinfo.object_version_number = p_object_version_number)
320             OR (    ( Recinfo.object_version_number IS NULL )
321                 AND (  p_object_version_number IS NULL )))
322        AND (    ( Recinfo.status_code = p_status_code)
323             OR (    ( Recinfo.status_code IS NULL )
324                 AND (  p_status_code IS NULL )))
325        AND (    ( Recinfo.user_status_id = p_user_status_id)
326             OR (    ( Recinfo.user_status_id IS NULL )
327                 AND (  p_user_status_id IS NULL )))
328        AND (    ( Recinfo.calling_calendar_id = p_calling_calendar_id)
329             OR (    ( Recinfo.calling_calendar_id IS NULL )
330                 AND (  p_calling_calendar_id IS NULL )))
331        AND (    ( Recinfo.release_control_alg_id = p_release_control_alg_id)
332             OR (    ( Recinfo.release_control_alg_id IS NULL )
333                 AND (  p_release_control_alg_id IS NULL )))
334        AND (    ( Recinfo.release_strategy = p_release_strategy)
335             OR (    ( Recinfo.release_strategy IS NULL )
336                 AND (  p_release_strategy IS NULL )))
337        AND (    ( Recinfo.recycling_alg_id = p_recycling_alg_id)
338             OR (    ( Recinfo.recycling_alg_id IS NULL )
339                 AND (  p_recycling_alg_id IS NULL )))
340        AND (    ( Recinfo.callback_priority_flag = p_callback_priority_flag)
341             OR (    ( Recinfo.callback_priority_flag IS NULL )
342                 AND (  p_callback_priority_flag IS NULL )))
343        AND (    ( Recinfo.call_center_ready_flag = p_call_center_ready_flag)
344             OR (    ( Recinfo.call_center_ready_flag IS NULL )
345                 AND (  p_call_center_ready_flag IS NULL )))
346        AND (    ( Recinfo.dialing_method = p_dialing_method)
347             OR (    ( Recinfo.dialing_method IS NULL )
348                 AND (  p_dialing_method IS NULL )))
349        AND (    ( Recinfo.quantum = p_quantum)
350             OR (    ( Recinfo.quantum IS NULL )
351                 AND (  p_quantum IS NULL )))
352        AND (    ( Recinfo.quota = p_quota)
353             OR (    ( Recinfo.quota IS NULL )
354                 AND (  p_quota IS NULL )))
355        AND (    ( Recinfo.quota_reset = p_quota_reset)
356             OR (    ( Recinfo.quota_reset IS NULL )
357                 AND (  p_quota_reset IS NULL )))
358        ) THEN
359        RETURN;
360    ELSE
361        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
362        APP_EXCEPTION.RAISE_EXCEPTION;
363    END IF;
364 END Lock_Row;
365 
366 END AMS_ACT_LIST_GROUPS_PKG;