[Home] [Help]
PACKAGE BODY: APPS.CS_KB_SETS_AUDIT_PKG
Source
1 PACKAGE BODY CS_KB_SETS_AUDIT_PKG AS
2 /* $Header: cskbsab.pls 115.60 2003/08/28 21:21:26 mkettle noship $ */
3 /*======================================================================+
4 | Copyright (c) 1999 Oracle Corporation |
5 | Redwood Shores, California, USA |
6 | All rights reserved. |
7 +======================================================================+
8 | History |
9 | 28-FEB-2001 Bate Yu created |
10 | 14-AUG-2002 KLOU (SEDATE) |
11 | 1. Add logic in create_set and update_set to validate |
12 | solution_type. |
13 | 24-Jan-2003 MKETTLE added Submit_Solution and Update_Solution |
14 | 17-Mar-2003 MKETTLE Performance fix on Is_Status_Valid Bug 2852868 |
15 | 18-Jul-2003 MKETTLE Added new 11.5.10 Secuirty columns |
16 | 12-Aug-2003 MKETTLE Added Get_User_Soln_Access |
17 | 13-Aug-2003 MKETTLE Added CheckOut_Solution |
18 | 28-Aug-2003 MKETTLE 11.5.10 Code Cleanup -> Private Solution apis |
19 | moved to CS_KB_SOLUTION_PVT. Table Handlers |
20 | moved to CS_KB_SETS_PKG |
21 +======================================================================*/
22
23
24 FUNCTION Get_Published_Set_Id(
25 P_SET_NUMBER IN VARCHAR2 )
26 RETURN NUMBER
27 IS
28 l_count NUMBER;
29 l_published_set_id NUMBER;
30 BEGIN
31
32 SELECT MAX(set_id)
33 INTO l_published_set_id
34 FROM CS_KB_SETS_B
35 WHERE set_number = p_set_number
36 AND status = 'PUB';
37
38 IF (SQL%NOTFOUND) THEN
39 RAISE NO_DATA_FOUND;
40 END IF;
41
42 RETURN l_published_set_id;
43
44 EXCEPTION
45 WHEN NO_DATA_FOUND THEN
46 RETURN ERROR_STATUS;
47 END Get_Published_Set_Id;
48
49 END CS_KB_SETS_AUDIT_PKG;