[Home] [Help]
PACKAGE BODY: APPS.JTF_TERR_RSC_PKG
Source
1 PACKAGE BODY JTF_TERR_RSC_PKG AS
2 /* $Header: jtfvtrcb.pls 120.4 2008/06/18 09:49:03 vpalle ship $ */
3
4 -- 01/20/99 VNEDUNGA Changing update/lock row procedure to use
5 -- 01/20/00 VNEDUNGA Changing = NULL to IS NULL
6 -- 02/22/00 JDOCHERT Passing in ORG_ID to Insert/Update/Lock
7 -- 03/16/00 VNEDUNGA Adding Full access flag
8 -- 06/08/00 VNEDUNGA Adding group_id flag
9 -- 06/26/02 ARPATEL Adding person_id column to Insert row
10 -- 01/09/03 JDOCHERT BUG#2739970
11
12
13 PROCEDURE Insert_Row(
14 x_Rowid IN OUT NOCOPY VARCHAR2,
15 x_TERR_RSC_ID IN OUT NOCOPY NUMBER,
16 x_LAST_UPDATE_DATE IN DATE,
17 x_LAST_UPDATED_BY IN NUMBER,
18 x_CREATION_DATE IN DATE,
19 x_CREATED_BY IN NUMBER,
20 x_LAST_UPDATE_LOGIN IN NUMBER,
21 x_TERR_ID IN NUMBER,
22 x_RESOURCE_ID IN NUMBER,
23 x_GROUP_ID IN NUMBER,
24 x_RESOURCE_TYPE IN VARCHAR2,
25 x_ROLE IN VARCHAR2,
26 x_PRIMARY_CONTACT_FLAG IN VARCHAR2,
27 x_START_DATE_ACTIVE IN DATE,
28 x_END_DATE_ACTIVE IN DATE,
29 x_FULL_ACCESS_FLAG IN VARCHAR2,
30 x_ORG_ID IN NUMBER
31 ) IS
32 CURSOR C IS SELECT rowid FROM JTF_TERR_RSC_ALL
33 WHERE TERR_RSC_ID = x_TERR_RSC_ID;
34 CURSOR C2 IS SELECT JTF_TERR_RSC_s.nextval FROM sys.dual;
35 BEGIN
36 If (x_TERR_RSC_ID IS NULL) then
37 OPEN C2;
38 FETCH C2 INTO x_TERR_RSC_ID;
39 CLOSE C2;
40 End If;
41 INSERT INTO JTF_TERR_RSC_ALL(
42 TERR_RSC_ID,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 CREATION_DATE,
46 CREATED_BY,
47 LAST_UPDATE_LOGIN,
48 TERR_ID,
49 RESOURCE_ID,
50 GROUP_ID,
51 RESOURCE_TYPE,
52 ROLE,
53 PRIMARY_CONTACT_FLAG,
54 START_DATE_ACTIVE,
55 END_DATE_ACTIVE,
56 FULL_ACCESS_FLAG,
57 ORG_ID
58 ) VALUES (
59 x_TERR_RSC_ID,
60 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
61 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
62 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
63 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
64 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
65 decode( x_TERR_ID, FND_API.G_MISS_NUM, NULL,x_TERR_ID),
66 decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, NULL,x_RESOURCE_ID),
67 decode( x_GROUP_ID, FND_API.G_MISS_NUM, NULL,x_GROUP_ID),
68 decode( x_RESOURCE_TYPE, FND_API.G_MISS_CHAR, NULL, x_RESOURCE_TYPE),
69 decode( x_ROLE, FND_API.G_MISS_CHAR, NULL, x_ROLE),
70 decode( x_PRIMARY_CONTACT_FLAG, FND_API.G_MISS_CHAR, NULL,x_PRIMARY_CONTACT_FLAG),
71 decode( x_START_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_START_DATE_ACTIVE),
72 decode( x_END_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_END_DATE_ACTIVE),
73 decode( x_FULL_ACCESS_FLAG, FND_API.G_MISS_CHAR, NULL,x_FULL_ACCESS_FLAG),
74 decode( x_ORG_ID, FND_API.G_MISS_NUM, NULL,x_ORG_ID)
75 );
76 OPEN C;
77 FETCH C INTO x_Rowid;
78 If (C%NOTFOUND) then
79 CLOSE C;
80 RAISE NO_DATA_FOUND;
81 End If;
82 End Insert_Row;
83
84
85 PROCEDURE Insert_Row(
86 x_Rowid IN OUT NOCOPY VARCHAR2,
87 x_TERR_RSC_ID IN OUT NOCOPY NUMBER,
88 x_LAST_UPDATE_DATE IN DATE,
89 x_LAST_UPDATED_BY IN NUMBER,
90 x_CREATION_DATE IN DATE,
91 x_CREATED_BY IN NUMBER,
92 x_LAST_UPDATE_LOGIN IN NUMBER,
93 x_TERR_ID IN NUMBER,
94 x_RESOURCE_ID IN NUMBER,
95 x_GROUP_ID IN NUMBER,
96 x_RESOURCE_TYPE IN VARCHAR2,
97 x_ROLE IN VARCHAR2,
98 x_PRIMARY_CONTACT_FLAG IN VARCHAR2,
99 x_START_DATE_ACTIVE IN DATE,
100 x_END_DATE_ACTIVE IN DATE,
101 x_FULL_ACCESS_FLAG IN VARCHAR2,
102 x_ORG_ID IN NUMBER,
103 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
104 x_ATTRIBUTE1 IN VARCHAR2,
105 x_ATTRIBUTE2 IN VARCHAR2,
106 x_ATTRIBUTE3 IN VARCHAR2,
107 x_ATTRIBUTE4 IN VARCHAR2,
108 x_ATTRIBUTE5 IN VARCHAR2,
109 x_ATTRIBUTE6 IN VARCHAR2,
110 x_ATTRIBUTE7 IN VARCHAR2,
111 x_ATTRIBUTE8 IN VARCHAR2,
112 x_ATTRIBUTE9 IN VARCHAR2,
113 x_ATTRIBUTE10 IN VARCHAR2,
114 x_ATTRIBUTE11 IN VARCHAR2,
115 x_ATTRIBUTE12 IN VARCHAR2,
116 x_ATTRIBUTE13 IN VARCHAR2,
117 x_ATTRIBUTE14 IN VARCHAR2,
118 x_ATTRIBUTE15 IN VARCHAR2
119 ) IS
120 CURSOR C IS SELECT rowid FROM JTF_TERR_RSC_ALL
121 WHERE TERR_RSC_ID = x_TERR_RSC_ID;
122 CURSOR C2 IS SELECT JTF_TERR_RSC_s.nextval FROM sys.dual;
123 BEGIN
124 If (x_TERR_RSC_ID IS NULL) then
125 OPEN C2;
126 FETCH C2 INTO x_TERR_RSC_ID;
127 CLOSE C2;
128 End If;
129 INSERT INTO JTF_TERR_RSC_ALL(
130 TERR_RSC_ID,
131 LAST_UPDATE_DATE,
132 LAST_UPDATED_BY,
133 CREATION_DATE,
134 CREATED_BY,
135 LAST_UPDATE_LOGIN,
136 TERR_ID,
137 RESOURCE_ID,
138 GROUP_ID,
139 RESOURCE_TYPE,
140 ROLE,
141 PRIMARY_CONTACT_FLAG,
142 START_DATE_ACTIVE,
143 END_DATE_ACTIVE,
144 FULL_ACCESS_FLAG,
145 ORG_ID,
146 ATTRIBUTE_CATEGORY,
147 ATTRIBUTE1,
148 ATTRIBUTE2,
149 ATTRIBUTE3,
150 ATTRIBUTE4,
151 ATTRIBUTE5,
152 ATTRIBUTE6,
153 ATTRIBUTE7,
154 ATTRIBUTE8,
155 ATTRIBUTE9,
156 ATTRIBUTE10,
157 ATTRIBUTE11,
158 ATTRIBUTE12,
159 ATTRIBUTE13,
160 ATTRIBUTE14,
161 ATTRIBUTE15
162 ) VALUES (
163 x_TERR_RSC_ID,
164 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
165 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
166 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
167 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
168 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
169 decode( x_TERR_ID, FND_API.G_MISS_NUM, NULL,x_TERR_ID),
170 decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, NULL,x_RESOURCE_ID),
171 decode( x_GROUP_ID, FND_API.G_MISS_NUM, NULL,x_GROUP_ID),
172 decode( x_RESOURCE_TYPE, FND_API.G_MISS_CHAR, NULL, x_RESOURCE_TYPE),
173 decode( x_ROLE, FND_API.G_MISS_CHAR, NULL, x_ROLE),
174 decode( x_PRIMARY_CONTACT_FLAG, FND_API.G_MISS_CHAR, NULL,x_PRIMARY_CONTACT_FLAG),
175 decode( x_START_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_START_DATE_ACTIVE),
176 decode( x_END_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_END_DATE_ACTIVE),
177 decode( x_FULL_ACCESS_FLAG, FND_API.G_MISS_CHAR, NULL,x_FULL_ACCESS_FLAG),
178 decode( x_ORG_ID, FND_API.G_MISS_NUM, NULL,x_ORG_ID),
179 decode( x_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE_CATEGORY),
180 decode( x_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE1),
181 decode( x_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE2),
182 decode( x_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE3),
183 decode( x_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE4),
184 decode( x_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE5),
185 decode( x_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE6),
186 decode( x_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE7),
187 decode( x_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE8),
188 decode( x_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE9),
189 decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE10),
190 decode( x_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE11),
191 decode( x_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE12),
192 decode( x_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE13),
193 decode( x_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE14),
194 decode( x_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL,x_ATTRIBUTE15)
195 );
196 OPEN C;
197 FETCH C INTO x_Rowid;
198 If (C%NOTFOUND) then
199 CLOSE C;
200 RAISE NO_DATA_FOUND;
201 End If;
202 End Insert_Row;
203
204
205 PROCEDURE Delete_Row( x_TERR_RSC_ID IN NUMBER
206 ) IS
207 BEGIN
208 DELETE FROM JTF_TERR_RSC_ALL
209 WHERE TERR_RSC_ID = x_TERR_RSC_ID;
210 If (SQL%NOTFOUND) then
211 RAISE NO_DATA_FOUND;
212 End If;
213 END Delete_Row;
214
215
216
217 PROCEDURE Update_Row(
218 x_Rowid IN VARCHAR2,
219 x_TERR_RSC_ID IN NUMBER,
220 x_LAST_UPDATE_DATE IN DATE,
221 x_LAST_UPDATED_BY IN NUMBER,
222 x_CREATION_DATE IN DATE,
223 x_CREATED_BY IN NUMBER,
224 x_LAST_UPDATE_LOGIN IN NUMBER,
225 x_TERR_ID IN NUMBER,
226 x_RESOURCE_ID IN NUMBER,
227 x_GROUP_ID IN NUMBER,
228 x_RESOURCE_TYPE IN VARCHAR2,
229 x_ROLE IN VARCHAR2,
230 x_PRIMARY_CONTACT_FLAG IN VARCHAR2,
231 x_START_DATE_ACTIVE IN DATE,
232 x_END_DATE_ACTIVE IN DATE,
233 x_FULL_ACCESS_FLAG IN VARCHAR2,
234 x_ORG_ID IN NUMBER,
235 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
236 x_ATTRIBUTE1 IN VARCHAR2,
237 x_ATTRIBUTE2 IN VARCHAR2,
238 x_ATTRIBUTE3 IN VARCHAR2,
239 x_ATTRIBUTE4 IN VARCHAR2,
240 x_ATTRIBUTE5 IN VARCHAR2,
241 x_ATTRIBUTE6 IN VARCHAR2,
242 x_ATTRIBUTE7 IN VARCHAR2,
243 x_ATTRIBUTE8 IN VARCHAR2,
244 x_ATTRIBUTE9 IN VARCHAR2,
245 x_ATTRIBUTE10 IN VARCHAR2,
246 x_ATTRIBUTE11 IN VARCHAR2,
247 x_ATTRIBUTE12 IN VARCHAR2,
248 x_ATTRIBUTE13 IN VARCHAR2,
249 x_ATTRIBUTE14 IN VARCHAR2,
250 x_ATTRIBUTE15 IN VARCHAR2
251 ) IS
252 BEGIN
253 Update JTF_TERR_RSC_ALL
254 SET
255 TERR_RSC_ID = decode( x_TERR_RSC_ID, FND_API.G_MISS_NUM,TERR_RSC_ID,x_TERR_RSC_ID),
256 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
257 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
258 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
259 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
260 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
261 TERR_ID = decode( x_TERR_ID, FND_API.G_MISS_NUM,TERR_ID,x_TERR_ID),
262 RESOURCE_ID = decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, x_RESOURCE_ID),
263 GROUP_ID = decode( x_GROUP_ID, FND_API.G_MISS_NUM, GROUP_ID, x_GROUP_ID),
264 RESOURCE_TYPE = decode( x_RESOURCE_TYPE, FND_API.G_MISS_CHAR, RESOURCE_TYPE, x_RESOURCE_TYPE),
265 ROLE = decode( x_ROLE, FND_API.G_MISS_CHAR, ROLE, x_ROLE),
266 PRIMARY_CONTACT_FLAG = decode( x_PRIMARY_CONTACT_FLAG, FND_API.G_MISS_CHAR,PRIMARY_CONTACT_FLAG,x_PRIMARY_CONTACT_FLAG),
267 START_DATE_ACTIVE = decode( x_START_DATE_ACTIVE, FND_API.G_MISS_DATE,START_DATE_ACTIVE,x_START_DATE_ACTIVE),
268 END_DATE_ACTIVE = decode( x_END_DATE_ACTIVE, FND_API.G_MISS_DATE,END_DATE_ACTIVE,x_END_DATE_ACTIVE),
269 FULL_ACCESS_FLAG = decode( x_FULL_ACCESS_FLAG, FND_API.G_MISS_CHAR, FULL_ACCESS_FLAG,x_FULL_ACCESS_FLAG),
270 ORG_ID = decode( x_ORG_ID, FND_API.G_MISS_NUM,ORG_ID,x_ORG_ID),
271 ATTRIBUTE_CATEGORY = decode( x_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR,ATTRIBUTE_CATEGORY,x_ATTRIBUTE_CATEGORY),
272 ATTRIBUTE1 = decode( x_ATTRIBUTE1, FND_API.G_MISS_CHAR,ATTRIBUTE1,x_ATTRIBUTE1),
273 ATTRIBUTE2 = decode( x_ATTRIBUTE2, FND_API.G_MISS_CHAR,ATTRIBUTE2,x_ATTRIBUTE2),
274 ATTRIBUTE3 = decode( x_ATTRIBUTE3, FND_API.G_MISS_CHAR,ATTRIBUTE3,x_ATTRIBUTE3),
275 ATTRIBUTE4 = decode( x_ATTRIBUTE4, FND_API.G_MISS_CHAR,ATTRIBUTE4,x_ATTRIBUTE4),
276 ATTRIBUTE5 = decode( x_ATTRIBUTE5, FND_API.G_MISS_CHAR,ATTRIBUTE5,x_ATTRIBUTE5),
277 ATTRIBUTE6 = decode( x_ATTRIBUTE6, FND_API.G_MISS_CHAR,ATTRIBUTE6,x_ATTRIBUTE6),
278 ATTRIBUTE7 = decode( x_ATTRIBUTE7, FND_API.G_MISS_CHAR,ATTRIBUTE7,x_ATTRIBUTE7),
279 ATTRIBUTE8 = decode( x_ATTRIBUTE8, FND_API.G_MISS_CHAR,ATTRIBUTE8,x_ATTRIBUTE8),
280 ATTRIBUTE9 = decode( x_ATTRIBUTE9, FND_API.G_MISS_CHAR,ATTRIBUTE9,x_ATTRIBUTE9),
281 ATTRIBUTE10 = decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR,ATTRIBUTE10,x_ATTRIBUTE10),
282 ATTRIBUTE11 = decode( x_ATTRIBUTE11, FND_API.G_MISS_CHAR,ATTRIBUTE11,x_ATTRIBUTE11),
283 ATTRIBUTE12 = decode( x_ATTRIBUTE12, FND_API.G_MISS_CHAR,ATTRIBUTE12,x_ATTRIBUTE12),
284 ATTRIBUTE13 = decode( x_ATTRIBUTE13, FND_API.G_MISS_CHAR,ATTRIBUTE13,x_ATTRIBUTE13),
288
285 ATTRIBUTE14 = decode( x_ATTRIBUTE14, FND_API.G_MISS_CHAR,ATTRIBUTE14,x_ATTRIBUTE14),
286 ATTRIBUTE15 = decode( x_ATTRIBUTE15, FND_API.G_MISS_CHAR,ATTRIBUTE15,x_ATTRIBUTE15)
287 where TERR_RSC_ID = x_TERR_RSC_ID;
289 If (SQL%NOTFOUND) then
290 RAISE NO_DATA_FOUND;
291 End If;
292 END Update_Row;
293
294
295
296 PROCEDURE Lock_Row(
297 x_Rowid IN VARCHAR2,
298 x_TERR_RSC_ID IN NUMBER,
299 x_LAST_UPDATE_DATE IN DATE,
300 x_LAST_UPDATED_BY IN NUMBER,
301 x_CREATION_DATE IN DATE,
302 x_CREATED_BY IN NUMBER,
303 x_LAST_UPDATE_LOGIN IN NUMBER,
304 x_TERR_ID IN NUMBER,
305 x_RESOURCE_ID IN NUMBER,
306 x_GROUP_ID IN NUMBER,
307 x_RESOURCE_TYPE IN VARCHAR2,
308 x_ROLE IN VARCHAR2,
309 x_PRIMARY_CONTACT_FLAG IN VARCHAR2,
310 x_START_DATE_ACTIVE IN DATE,
311 x_END_DATE_ACTIVE IN DATE,
312 x_FULL_ACCESS_FLAG IN VARCHAR2,
313 x_ORG_ID IN NUMBER
314 ) IS
315 CURSOR C IS
316 SELECT *
317 FROM JTF_TERR_RSC_ALL
318 WHERE TERR_RSC_ID = x_TERR_RSC_ID
319 FOR UPDATE of TERR_RSC_ID NOWAIT;
320 Recinfo C%ROWTYPE;
321 BEGIN
322 OPEN C;
323 FETCH C INTO Recinfo;
324 If (C%NOTFOUND) then
325 CLOSE C;
326 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
327 APP_EXCEPTION.RAISE_EXCEPTION;
328 End If;
329 CLOSE C;
330 if (
331 ( ( Recinfo.TERR_RSC_ID = x_TERR_RSC_ID)
332 OR ( ( Recinfo.TERR_RSC_ID IS NULL )
333 AND ( x_TERR_RSC_ID IS NULL )))
334 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
335 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
336 AND ( x_LAST_UPDATE_DATE IS NULL )))
337 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
338 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
339 AND ( x_LAST_UPDATED_BY IS NULL )))
340 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
341 OR ( ( Recinfo.CREATION_DATE IS NULL )
342 AND ( x_CREATION_DATE IS NULL )))
343 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
344 OR ( ( Recinfo.CREATED_BY IS NULL )
345 AND ( x_CREATED_BY IS NULL )))
346 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
347 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
348 AND ( x_LAST_UPDATE_LOGIN IS NULL )))
349 AND ( ( Recinfo.TERR_ID = x_TERR_ID)
350 OR ( ( Recinfo.TERR_ID IS NULL )
351 AND ( x_TERR_ID IS NULL )))
352 AND ( ( Recinfo.RESOURCE_ID = x_RESOURCE_ID)
353 OR ( ( Recinfo.RESOURCE_ID IS NULL )
354 AND ( x_RESOURCE_ID IS NULL )))
355 AND ( ( Recinfo.GROUP_ID = x_GROUP_ID)
356 OR ( ( Recinfo.GROUP_ID IS NULL )
357 AND ( x_GROUP_ID IS NULL )))
358 AND ( ( Recinfo.RESOURCE_TYPE = x_RESOURCE_TYPE)
359 OR ( ( Recinfo.RESOURCE_TYPE IS NULL )
360 AND ( x_RESOURCE_TYPE IS NULL )))
361 AND ( ( Recinfo.ROLE = x_ROLE)
362 OR ( ( Recinfo.ROLE IS NULL )
363 AND ( x_ROLE IS NULL )))
364 AND ( ( Recinfo.PRIMARY_CONTACT_FLAG = x_PRIMARY_CONTACT_FLAG)
365 OR ( ( Recinfo.PRIMARY_CONTACT_FLAG IS NULL )
366 AND ( x_PRIMARY_CONTACT_FLAG IS NULL )))
367 AND ( ( Recinfo.START_DATE_ACTIVE = x_START_DATE_ACTIVE)
368 OR ( ( Recinfo.START_DATE_ACTIVE IS NULL )
369 AND ( x_START_DATE_ACTIVE IS NULL )))
370 AND ( ( Recinfo.END_DATE_ACTIVE = x_END_DATE_ACTIVE)
371 OR ( ( Recinfo.END_DATE_ACTIVE IS NULL )
372 AND ( x_END_DATE_ACTIVE IS NULL )))
373 AND ( ( Recinfo.FULL_ACCESS_FLAG = x_FULL_ACCESS_FLAG)
374 OR ( ( Recinfo.FULL_ACCESS_FLAG IS NULL )
375 AND ( x_FULL_ACCESS_FLAG IS NULL )))
376 AND ( ( Recinfo.ORG_ID = x_ORG_ID)
377 OR ( ( Recinfo.ORG_ID IS NULL )
378 AND ( x_ORG_ID IS NULL )))
379 ) then
380 return;
381 else
382 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
383 APP_EXCEPTION.RAISE_EXCEPTION;
384 End If;
385 END Lock_Row;
386
387 END JTF_TERR_RSC_PKG;