| 221 |
vnguyen |
1 |
CREATE PROCEDURE "RELEASE_MANAGER"."SWITCH_REPRODUCIBLE_PACKAGE" (nPvId IN NUMBER, nUserId IN NUMBER)IS
|
|
|
2 |
Auto CHAR;
|
|
|
3 |
/******************************************************************************
|
|
|
4 |
NAME: SWITCH_REPRODUCIBLE_PACKAGE
|
|
|
5 |
PURPOSE:
|
|
|
6 |
|
|
|
7 |
REVISIONS:
|
|
|
8 |
Ver Date Author Description
|
|
|
9 |
--------- ---------- --------------- ------------------------------------
|
|
|
10 |
1.0 14/12/2006 Rupesh Solanki 1. Created this procedure.
|
|
|
11 |
|
|
|
12 |
NOTES:
|
|
|
13 |
|
|
|
14 |
Automatically available Auto Replace Keywords:
|
|
|
15 |
Object Name: SWITCH_REPRODUCIBLE_PACKAGE
|
|
|
16 |
Sysdate: 14/12/2006
|
|
|
17 |
Date and Time: 14/12/2006, 11:35:15 AM, and 14/12/2006 11:35:15 AM
|
|
|
18 |
Username: (set in TOAD Options, Procedure Editor)
|
|
|
19 |
Table Name: (set in the "New PL/SQL Object" dialog)
|
|
|
20 |
|
|
|
21 |
******************************************************************************/
|
|
|
22 |
BEGIN
|
|
|
23 |
|
|
|
24 |
SELECT IS_AUTOBUILDABLE into Auto
|
|
|
25 |
FROM PACKAGE_VERSIONS
|
|
|
26 |
WHERE PV_ID = nPvId;
|
|
|
27 |
|
|
|
28 |
IF Auto = 'N' Then
|
|
|
29 |
|
|
|
30 |
UPDATE PACKAGE_VERSIONS
|
|
|
31 |
SET IS_AUTOBUILDABLE = 'Y'
|
|
|
32 |
WHERE PV_ID = nPvId;
|
|
|
33 |
|
|
|
34 |
|
|
|
35 |
/* LOG ACTION */
|
|
|
36 |
Log_Action ( nPvId, 'reproducible_package', nUserId );
|
|
|
37 |
|
|
|
38 |
Else
|
|
|
39 |
|
|
|
40 |
UPDATE PACKAGE_VERSIONS
|
|
|
41 |
SET IS_AUTOBUILDABLE = 'N'
|
|
|
42 |
WHERE PV_ID = nPvId;
|
|
|
43 |
|
|
|
44 |
|
|
|
45 |
/* LOG ACTION */
|
|
|
46 |
Log_Action ( nPvId, 'unreproducible_package', nUserId );
|
|
|
47 |
|
|
|
48 |
End If;
|
|
|
49 |
|
|
|
50 |
|
|
|
51 |
|
|
|
52 |
|
|
|
53 |
|
|
|
54 |
|
|
|
55 |
|
|
|
56 |
|
|
|
57 |
END SWITCH_REPRODUCIBLE_PACKAGE;
|
|
|
58 |
/
|