[Home] [Help]
PACKAGE BODY: APPS.IGW_PROP_COMMENTS_PKG
Source
1 PACKAGE BODY IGW_PROP_COMMENTS_PKG as
2 --$Header: igwprnpb.pls 115.4 2002/03/28 19:13:43 pkm ship $
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5 X_Proposal_Id NUMBER,
6 X_Comment_Id NUMBER,
7 X_Comments VARCHAR2,
8 X_Last_Update_Date DATE,
9 X_Last_Updated_By NUMBER,
10 X_Creation_Date DATE,
11 X_Created_By NUMBER,
12 X_Last_Update_Login NUMBER) IS
13
14 CURSOR C IS SELECT rowid FROM IGW_PROP_COMMENTS
15 WHERE comment_id = X_comment_ID;
16
17 BEGIN
18 INSERT INTO IGW_PROP_COMMENTS( PROPOSAL_ID,
19 COMMENT_ID,
20 COMMENTS,
21 LAST_UPDATE_DATE,
22 LAST_UPDATED_BY,
23 CREATION_DATE,
24 CREATED_BY,
25 LAST_UPDATE_LOGIN) VALUES
26 ( X_Proposal_Id,
27 X_Comment_Id ,
28 X_Comments ,
29 X_Last_Update_Date ,
30 X_Last_Updated_By ,
31 X_Creation_Date ,
32 X_Created_By ,
33 X_Last_Update_Login );
34 Open c;
35 Fetch c into X_rowid;
36 if (c%NOTFOUND) then
37 close c;
38 RAISE NO_DATA_FOUND;
39 end if;
40 CLOSE c;
41 END Insert_row;
42
43 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
44 X_Proposal_Id NUMBER,
45 X_Comment_Id NUMBER,
46 X_Comments VARCHAR2,
47 X_Last_Update_Date DATE,
48 X_Last_Updated_By NUMBER,
49 X_Creation_Date DATE,
50 X_Created_By NUMBER,
51 X_Last_Update_Login NUMBER) IS
52 cursor c is select * from IGW_prop_comments
53 where rowid = X_rowid
54 for update of comment_id nowait;
55 Recinfo c%rowtype;
56 Begin
57 open c;
58 fetch c into Recinfo;
59 if (c%NOTFOUND) then
60 CLOSE c;
61 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
62 APP_EXCEPTION.Raise_Exception;
63 end if;
64 CLOSE c;
65 if ( (recinfo.comment_id = X_comment_id)
66 AND (Recinfo.proposal_id = X_proposal_id)
67 AND ((Recinfo.comments = X_comments) or
68 ((Recinfo.comments is null) AND
69 (X_comments is null)))
70 AND (Recinfo.last_update_Date = X_last_update_Date)
71 AND (Recinfo.last_updated_by = X_last_updated_by)
72 AND (Recinfo.creation_date = X_creation_date)
73 AND (Recinfo.created_by = X_created_by)
74 AND (Recinfo.last_update_login = X_last_update_login)) then
75 return;
76 else
77 FND_MESSAGE.set_name('FND','FORM_RECORD_CHANGED');
78 APP_EXCEPTION.Raise_Exception;
79 end if;
80 END Lock_row;
81
82 PROCEDURE Update_Row(X_Rowid VARCHAR2,
83 X_Proposal_Id NUMBER,
84 X_Comment_Id NUMBER,
85 X_Comments VARCHAR2,
86 X_Last_Update_Date DATE,
87 X_Last_Updated_By NUMBER,
88 X_Creation_Date DATE,
89 X_Created_By NUMBER,
90 X_Last_Update_Login NUMBER) IS
91 begin
92 update igw_prop_comments
93 set proposal_id = X_proposal_id,
94 comment_id = X_comment_id,
95 comments = X_comments,
96 last_update_date = X_last_update_date,
97 last_updated_by = X_last_updated_by,
98 creation_date = X_creation_date,
99 created_by = X_created_by,
100 last_update_login = X_last_update_login
101 where rowid = X_Rowid;
102 if (SQL%NOTFOUND) then
103 Raise NO_DATA_FOUND;
104 end if;
105 End update_row;
106
107 PROCEDURE Delete_Row(X_Rowid VARCHAR2) is
108 begin
109 delete igw_prop_comments
110 where rowid = X_Rowid;
111 END Delete_row;
112
113 END IGW_PROP_COMMENTS_PKG;