Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
221 vnguyen 1 
CREATE PACKAGE BODY "RELEASE_MANAGER"."PK_APP_UTILS" IS
2 
 
3 
/*
4 
------------------------------
5 
||  Last Modified:  S.Vukovic
6 
||  Modified Date:  26/Apr/2005
7 
||  Body Version:   1.0
8 
------------------------------
9 
*/
10 
 
11 
 
12 
/*-------------------------------------------------------------------------------------------------------*/
13 
PROCEDURE GET_CURRENT_PARAMETERS ( ProjId IN VARCHAR2, RtagId IN VARCHAR2, records OUT typeCur)   IS
14 
 
15 
 
16 
BEGIN
17 
 
18 
 
19 
	IF (NOT RtagId IS NULL) THEN
20 
		-- Case with RTAG_ID present
21 
		OPEN records FOR
22 
		SELECT rt.PROJ_ID,
23 
			   rt.RTAG_ID AS RTAG_ID
24 
		  FROM RELEASE_TAGS rt
25 
		 WHERE rt.RTAG_ID = TO_NUMBER(RtagId);
26 
 
27 
	ELSIF (NOT ProjId IS NULL) THEN
28 
		-- Case with PROJ_ID present
29 
		OPEN records FOR
30 
		SELECT TO_NUMBER(ProjId) AS PROJ_ID,
31 
			   -1 AS RTAG_ID
32 
		  FROM DUAL;
33 
 
34 
	ELSE
35 
		-- Case with none present
36 
		OPEN records FOR
37 
		SELECT -1 AS PROJ_ID,
38 
			   -1 AS RTAG_ID
39 
		  FROM DUAL;
40 
 
41 
	END IF;
42 
 
43 
 
44 
 
45 
 
46 
   	--RETURN records;
47 
 
48 
END;
49 
/*-------------------------------------------------------------------------------------------------------*/
50 
END PK_APP_UTILS;
51 
/
52 
ALTER PACKAGE "RELEASE_MANAGER"."PK_APP_UTILS"
53 
  COMPILE BODY
54 
    PLSQL_OPTIMIZE_LEVEL=  2
55 
    PLSQL_CODE_TYPE=  INTERPRETED
56 
    PLSQL_DEBUG=  TRUE
57 
 REUSE SETTINGS TIMESTAMP '2008-04-11 16:21:37'
58 
/