PACKAGE BODY: APPS.PA_ROLE_LIST_MEMBERS_PKG

Source

1 package body PA_ROLE_LIST_MEMBERS_PKG as
2 /*$Header: PARLMBRB.pls 120.2 2005/08/22 02:09:56 raluthra noship $*/
3 
4 procedure INSERT_ROW (
5   X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6   X_ROLE_LIST_ID NUMBER,
7   X_PROJECT_ROLE_ID NUMBER,
8   X_CREATION_DATE DATE,
9   X_CREATED_BY NUMBER,
10   X_LAST_UPDATE_DATE DATE,
11   X_LAST_UPDATED_BY NUMBER,
12   X_LAST_UPDATE_LOGIN NUMBER
13 ) is
14   cursor C is select ROWID from PA_ROLE_LIST_MEMBERS
15     where ROLE_LIST_ID = X_ROLE_LIST_ID
16     AND PROJECT_ROLE_ID = X_PROJECT_ROLE_ID
17   ;
18   l_rowid	ROWID; -- Bug 4565156. Added for Manual NOCOPY Fix.
19 begin
20   l_rowid := X_ROWID; -- Bug 4565156. Storing original value. Added for Manual NOCOPY Fix.
21 
22   insert into PA_ROLE_LIST_MEMBERS (
23     ROLE_LIST_ID,
24     PROJECT_ROLE_ID,
25     CREATION_DATE,
26     CREATED_BY,
27     LAST_UPDATE_DATE,
28     LAST_UPDATED_BY,
29     LAST_UPDATE_LOGIN,
30     RECORD_VERSION_NUMBER
31   )VALUES (
32     X_ROLE_LIST_ID,
33     X_PROJECT_ROLE_ID,
34     X_CREATION_DATE,
35     X_CREATED_BY,
36     X_LAST_UPDATE_DATE,
37     X_LAST_UPDATED_BY,
38     X_LAST_UPDATE_LOGIN,
39     1
40   );
41 
42   open c;
43   fetch c into X_ROWID;
44   if (c%notfound) then
45     close c;
46     X_ROWID := l_rowid; -- Bug 4565156. Resetting to original value. For Manual NOCOPY Fix.
47     raise no_data_found;
48   end if;
49   close c;
50 end INSERT_ROW;
51 
52 
53 procedure LOCK_ROW (
54   X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
55   X_RECORD_VERSION_NUMBER NUMBER
56 ) is
57   cursor c is
58     select *
59     from PA_ROLE_LIST_MEMBERS
60     where ROWID = X_ROWID
61     for update of ROLE_LIST_ID nowait;
62 
63     tlinfo c%rowtype;
64 begin
65     Open c;
66     Fetch c into tlinfo;
67     if (c%notfound) then
68       close c;
69       fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
70       app_exception.raise_exception;
71     end if;
72     close c;
73 
74     if ((tlinfo.RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER)
75 	OR ((tlinfo.RECORD_VERSION_NUMBER is null)
76 	    AND (X_RECORD_VERSION_NUMBER is null))
77     ) then
78       return;
79     else
80       fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
81       app_exception.raise_exception;
82     end if;
83 end LOCK_ROW;
84 
85 
86 procedure UPDATE_ROW (
87   X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
88   X_ROLE_LIST_ID NUMBER,
89   X_PROJECT_ROLE_ID NUMBER,
90   X_CREATION_DATE DATE,
91   X_CREATED_BY NUMBER,
92   X_LAST_UPDATE_DATE DATE,
93   X_LAST_UPDATED_BY NUMBER,
94   X_LAST_UPDATE_LOGIN NUMBER
95 ) is
96 begin
97   update PA_ROLE_LIST_MEMBERS set
98     ROLE_LIST_ID = X_ROLE_LIST_ID,
99     PROJECT_ROLE_ID = X_PROJECT_ROLE_ID,
100     CREATION_DATE = X_CREATION_DATE,
101     CREATED_BY = X_CREATED_BY,
102     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
103     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
104     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
105     RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1
106   where ROWID = X_ROWID;
107 
108   if (sql%notfound) then
109     raise no_data_found;
110   end if;
111 end UPDATE_ROW;
112 
113 
114 procedure DELETE_ROW (
115   X_ROWID VARCHAR2
116 ) is
117 begin
118   delete from PA_ROLE_LIST_MEMBERS
119   where ROWID = X_ROWID;
120 
121   if (sql%notfound) then
122     raise no_data_found;
123   end if;
124 end DELETE_ROW;
125 
126 end PA_ROLE_LIST_MEMBERS_PKG;