| 221 |
vnguyen |
1 |
CREATE PROCEDURE "RELEASE_MANAGER"."NEW_ADDITIONAL_NOTE" ( pnPv_id IN NUMBER,
|
|
|
2 |
psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
|
|
|
3 |
psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
|
|
|
4 |
pnUser_id IN NUMBER,
|
|
|
5 |
outErrCode OUT NUMBER
|
|
|
6 |
) IS
|
|
|
7 |
/* ---------------------------------------------------------------------------
|
|
|
8 |
Version: 3.0.0
|
|
|
9 |
--------------------------------------------------------------------------- */
|
|
|
10 |
|
|
|
11 |
newID NUMBER;
|
|
|
12 |
|
|
|
13 |
CURSOR an_duplicate_cur IS
|
|
|
14 |
SELECT note_id
|
|
|
15 |
FROM ADDITIONAL_NOTES
|
|
|
16 |
WHERE pv_id = pnPv_id
|
|
|
17 |
AND note_title = psNote_title;
|
|
|
18 |
an_duplicate_rec an_duplicate_cur%ROWTYPE;
|
|
|
19 |
|
|
|
20 |
BEGIN
|
|
|
21 |
outErrCode := -1; -- Set default return error code to ERROR state
|
|
|
22 |
|
|
|
23 |
OPEN an_duplicate_cur;
|
|
|
24 |
FETCH an_duplicate_cur INTO an_duplicate_rec;
|
|
|
25 |
|
|
|
26 |
IF an_duplicate_cur%NOTFOUND
|
|
|
27 |
THEN
|
|
|
28 |
/* No duplicate titles */
|
|
|
29 |
-- Get new ID --
|
|
|
30 |
SELECT SEQ_ADDITIONAL_NOTES.NEXTVAL INTO newID FROM DUAL;
|
|
|
31 |
|
|
|
32 |
--- Add Additional Note ---
|
|
|
33 |
INSERT INTO ADDITIONAL_NOTES ( note_id, pv_id, note_title, note_body, mod_date, mod_user )
|
|
|
34 |
VALUES ( newID, pnPv_id, psNote_title, psNote_body, Ora_Sysdate, pnUser_id );
|
|
|
35 |
outErrCode := 0; -- Set return to SUCCESS
|
|
|
36 |
END IF;
|
|
|
37 |
|
|
|
38 |
CLOSE an_duplicate_cur;
|
|
|
39 |
END New_Additional_Note;
|
|
|
40 |
/
|