[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_GROUP_MEMBERS_PKG
Source
1 package body JTF_RS_GROUP_MEMBERS_PKG as
2 /* $Header: jtfrstmb.pls 120.0 2005/05/11 08:22:23 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_GROUP_MEMBER_ID in NUMBER,
6 X_ATTRIBUTE4 in VARCHAR2,
7 X_ATTRIBUTE5 in VARCHAR2,
8 X_ATTRIBUTE6 in VARCHAR2,
9 X_ATTRIBUTE7 in VARCHAR2,
10 X_ATTRIBUTE8 in VARCHAR2,
11 X_ATTRIBUTE9 in VARCHAR2,
12 X_ATTRIBUTE10 in VARCHAR2,
13 X_ATTRIBUTE11 in VARCHAR2,
14 X_ATTRIBUTE12 in VARCHAR2,
15 X_ATTRIBUTE13 in VARCHAR2,
16 X_ATTRIBUTE14 in VARCHAR2,
17 X_ATTRIBUTE15 in VARCHAR2,
18 X_ATTRIBUTE_CATEGORY in VARCHAR2,
19 X_GROUP_ID in NUMBER,
20 X_RESOURCE_ID in NUMBER,
21 X_PERSON_ID in NUMBER,
22 X_DELETE_FLAG in VARCHAR2,
23 X_ATTRIBUTE2 in VARCHAR2,
24 X_ATTRIBUTE3 in VARCHAR2,
25 X_ATTRIBUTE1 in VARCHAR2,
26 X_CREATION_DATE in DATE,
27 X_CREATED_BY in NUMBER,
28 X_LAST_UPDATE_DATE in DATE,
29 X_LAST_UPDATED_BY in NUMBER,
30 X_LAST_UPDATE_LOGIN in NUMBER
31 ) is
32 cursor C is select ROWID from JTF_RS_GROUP_MEMBERS
33 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID
34 ;
35 begin
36 insert into JTF_RS_GROUP_MEMBERS (
37 ATTRIBUTE4,
38 ATTRIBUTE5,
39 ATTRIBUTE6,
40 ATTRIBUTE7,
41 ATTRIBUTE8,
42 ATTRIBUTE9,
43 ATTRIBUTE10,
44 ATTRIBUTE11,
45 ATTRIBUTE12,
46 ATTRIBUTE13,
47 ATTRIBUTE14,
48 ATTRIBUTE15,
49 ATTRIBUTE_CATEGORY,
50 GROUP_MEMBER_ID,
51 GROUP_ID,
52 RESOURCE_ID,
53 PERSON_ID,
54 DELETE_FLAG,
55 CREATED_BY,
56 CREATION_DATE,
57 LAST_UPDATED_BY,
58 LAST_UPDATE_DATE,
59 LAST_UPDATE_LOGIN,
60 OBJECT_VERSION_NUMBER,
61 ATTRIBUTE1,
62 ATTRIBUTE2,
63 ATTRIBUTE3
64 ) values (
65 X_ATTRIBUTE4,
66 X_ATTRIBUTE5,
67 X_ATTRIBUTE6,
68 X_ATTRIBUTE7,
69 X_ATTRIBUTE8,
70 X_ATTRIBUTE9,
71 X_ATTRIBUTE10,
72 X_ATTRIBUTE11,
73 X_ATTRIBUTE12,
74 X_ATTRIBUTE13,
75 X_ATTRIBUTE14,
76 X_ATTRIBUTE15,
77 X_ATTRIBUTE_CATEGORY,
78 X_GROUP_MEMBER_ID,
79 X_GROUP_ID,
80 X_RESOURCE_ID,
81 X_PERSON_ID,
82 X_DELETE_FLAG,
83 X_CREATED_BY,
84 X_CREATION_DATE,
85 X_LAST_UPDATED_BY,
86 X_LAST_UPDATE_DATE,
87 X_LAST_UPDATE_LOGIN,
88 1,
89 X_ATTRIBUTE1,
90 X_ATTRIBUTE2,
91 X_ATTRIBUTE3);
92
93 open c;
94 fetch c into X_ROWID;
95 if (c%notfound) then
96 close c;
97 raise no_data_found;
98 end if;
99 close c;
100
101 end INSERT_ROW;
102
103 procedure LOCK_ROW (
104 X_GROUP_MEMBER_ID in NUMBER,
105 X_OBJECT_VERSION_NUMBER in NUMBER
106 ) is
107 cursor c1 is select
108 OBJECT_VERSION_NUMBER
109 from JTF_RS_GROUP_MEMBERS
110 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID
111 for update of GROUP_MEMBER_ID nowait;
112 tlinfo c1%rowtype ;
113 begin
114 open c1;
115 fetch c1 into tlinfo;
116 if (c1%notfound) then
117 close c1;
118 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
119 app_exception.raise_exception;
120 end if;
121 close c1;
122
123 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
124 then
125 null;
126 else
127 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
128 app_exception.raise_exception;
129 end if;
130
131 end LOCK_ROW;
132
133 procedure UPDATE_ROW (
134 X_GROUP_MEMBER_ID in NUMBER,
135 X_ATTRIBUTE4 in VARCHAR2,
136 X_ATTRIBUTE5 in VARCHAR2,
137 X_ATTRIBUTE6 in VARCHAR2,
138 X_ATTRIBUTE7 in VARCHAR2,
139 X_ATTRIBUTE8 in VARCHAR2,
140 X_ATTRIBUTE9 in VARCHAR2,
141 X_ATTRIBUTE10 in VARCHAR2,
142 X_ATTRIBUTE11 in VARCHAR2,
143 X_ATTRIBUTE12 in VARCHAR2,
144 X_ATTRIBUTE13 in VARCHAR2,
145 X_ATTRIBUTE14 in VARCHAR2,
146 X_ATTRIBUTE15 in VARCHAR2,
147 X_ATTRIBUTE_CATEGORY in VARCHAR2,
148 X_GROUP_ID in NUMBER,
149 X_RESOURCE_ID in NUMBER,
150 X_PERSON_ID in NUMBER,
151 X_DELETE_FLAG in VARCHAR2,
152 X_OBJECT_VERSION_NUMBER in NUMBER,
153 X_ATTRIBUTE2 in VARCHAR2,
154 X_ATTRIBUTE3 in VARCHAR2,
155 X_ATTRIBUTE1 in VARCHAR2,
156 X_LAST_UPDATE_DATE in DATE,
157 X_LAST_UPDATED_BY in NUMBER,
158 X_LAST_UPDATE_LOGIN in NUMBER
159 ) is
160 begin
161 update JTF_RS_GROUP_MEMBERS set
162 ATTRIBUTE4 = X_ATTRIBUTE4,
163 ATTRIBUTE5 = X_ATTRIBUTE5,
164 ATTRIBUTE6 = X_ATTRIBUTE6,
165 ATTRIBUTE7 = X_ATTRIBUTE7,
166 ATTRIBUTE8 = X_ATTRIBUTE8,
167 ATTRIBUTE9 = X_ATTRIBUTE9,
168 ATTRIBUTE10 = X_ATTRIBUTE10,
169 ATTRIBUTE11 = X_ATTRIBUTE11,
170 ATTRIBUTE12 = X_ATTRIBUTE12,
171 ATTRIBUTE13 = X_ATTRIBUTE13,
172 ATTRIBUTE14 = X_ATTRIBUTE14,
173 ATTRIBUTE15 = X_ATTRIBUTE15,
174 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
175 GROUP_ID = X_GROUP_ID,
176 RESOURCE_ID = X_RESOURCE_ID,
177 PERSON_ID = X_PERSON_ID,
178 DELETE_FLAG = X_DELETE_FLAG,
179 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
180 ATTRIBUTE2 = X_ATTRIBUTE2,
181 ATTRIBUTE3 = X_ATTRIBUTE3,
182 ATTRIBUTE1 = X_ATTRIBUTE1,
183 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
184 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
185 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
186 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID;
187
188 if (sql%notfound) then
189 raise no_data_found;
190 end if;
191 end UPDATE_ROW;
192
193 procedure DELETE_ROW (
194 X_GROUP_MEMBER_ID in NUMBER
195 ) is
196 begin
197 delete from JTF_RS_GROUP_MEMBERS
198 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID;
199
200 if (sql%notfound) then
201 raise no_data_found;
202 end if;
203
204 end DELETE_ROW;
205
206 procedure LOGICAL_DELETE_ROW (
207 X_GROUP_MEMBER_ID in NUMBER
208 ) is
209 begin
210 update JTF_RS_GROUP_MEMBERS set
211 DELETE_FLAG = 'Y',
212 LAST_UPDATE_DATE = sysdate,
213 LAST_UPDATED_BY = nvl(fnd_global.user_id,-1),
214 LAST_UPDATE_LOGIN = nvl(fnd_global.login_id,-1)
215 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID;
216
217 if (sql%notfound) then
218 raise no_data_found;
219 end if;
220
221 end LOGICAL_DELETE_ROW;
222
223
224 end JTF_RS_GROUP_MEMBERS_PKG;