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;