1 PACKAGE BODY pn_contact_assignments_pkg AS
2 -- $Header: PNTCOASB.pls 120.2 2005/12/01 03:33:13 appldev ship $
3 -------------------------------------------------------------------------------
4 -- PROCDURE : INSERT_ROW
5 -- INVOKED FROM : insert_row procedure
6 -- PURPOSE : inserts the row
7 -- HISTORY :
8 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_CONTACT_ASSIGNMENTS
9 -- with _ALL table.
10 -- 28-NOV-05 pikhar o get org_id using cursor.
11 -------------------------------------------------------------------------------
12 PROCEDURE Insert_Row
13 (
14 X_ROWID IN OUT NOCOPY VARCHAR2
15 ,X_CONTACT_ASSIGNMENT_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_COMPANY_ID IN NUMBER
22 ,X_COMPANY_SITE_ID IN NUMBER
23 ,X_LEASE_ID IN NUMBER
24 ,X_LEASE_CHANGE_ID IN NUMBER
25 ,X_LOCATION_ID IN NUMBER
26 ,X_STATUS IN VARCHAR2
27 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
28 ,X_ATTRIBUTE1 IN VARCHAR2
29 ,X_ATTRIBUTE2 IN VARCHAR2
30 ,X_ATTRIBUTE3 IN VARCHAR2
31 ,X_ATTRIBUTE4 IN VARCHAR2
32 ,X_ATTRIBUTE5 IN VARCHAR2
33 ,X_ATTRIBUTE6 IN VARCHAR2
34 ,X_ATTRIBUTE7 IN VARCHAR2
35 ,X_ATTRIBUTE8 IN VARCHAR2
39 ,X_ATTRIBUTE12 IN VARCHAR2
36 ,X_ATTRIBUTE9 IN VARCHAR2
37 ,X_ATTRIBUTE10 IN VARCHAR2
38 ,X_ATTRIBUTE11 IN VARCHAR2
40 ,X_ATTRIBUTE13 IN VARCHAR2
41 ,X_ATTRIBUTE14 IN VARCHAR2
42 ,X_ATTRIBUTE15 IN VARCHAR2
43 ,x_org_id IN NUMBER
44 )
45 IS
46 CURSOR c IS
47 SELECT ROWID
48 FROM PN_CONTACT_ASSIGNMENTS_ALL
49 WHERE CONTACT_ASSIGNMENT_ID = X_CONTACT_ASSIGNMENT_ID;
50
51 CURSOR org_cur IS
52 SELECT org_id
53 FROM PN_COMPANIES_ALL
54 WHERE COMPANY_ID = X_COMPANY_ID;
55
56 l_org_id NUMBER;
57
58
59 BEGIN
60
61 IF x_org_id IS NULL THEN
62 FOR rec IN org_cur LOOP
63 l_org_id := rec.org_id;
64 END LOOP;
65 ELSE
66 l_org_id := x_org_id;
67 END IF;
68
69 IF (X_CONTACT_ASSIGNMENT_ID IS NULL) THEN
70 SELECT PN_CONTACT_ASSIGNMENTS_S.NEXTVAL
71 INTO X_CONTACT_ASSIGNMENT_ID
72 FROM DUAL;
73 END IF;
74
75
76 INSERT INTO PN_CONTACT_ASSIGNMENTS_ALL
77 (
78 CONTACT_ASSIGNMENT_ID
79 ,LAST_UPDATE_DATE
80 ,LAST_UPDATED_BY
81 ,CREATION_DATE
82 ,CREATED_BY
83 ,LAST_UPDATE_LOGIN
84 ,COMPANY_ID
85 ,COMPANY_SITE_ID
86 ,LEASE_ID
87 ,LEASE_CHANGE_ID
88 ,LOCATION_ID
89 ,STATUS
90 ,ATTRIBUTE_CATEGORY
91 ,ATTRIBUTE1
92 ,ATTRIBUTE2
93 ,ATTRIBUTE3
94 ,ATTRIBUTE4
95 ,ATTRIBUTE5
96 ,ATTRIBUTE6
97 ,ATTRIBUTE7
98 ,ATTRIBUTE8
99 ,ATTRIBUTE9
100 ,ATTRIBUTE10
101 ,ATTRIBUTE11
102 ,ATTRIBUTE12
103 ,ATTRIBUTE13
104 ,ATTRIBUTE14
105 ,ATTRIBUTE15
106 ,org_id
107 )
108 VALUES
109 (
110 X_CONTACT_ASSIGNMENT_ID
111 ,X_LAST_UPDATE_DATE
112 ,X_LAST_UPDATED_BY
113 ,X_CREATION_DATE
114 ,X_CREATED_BY
115 ,X_LAST_UPDATE_LOGIN
116 ,X_COMPANY_ID
117 ,X_COMPANY_SITE_ID
118 ,X_LEASE_ID
119 ,X_LEASE_CHANGE_ID
120 ,X_LOCATION_ID
121 ,X_STATUS
122 ,X_ATTRIBUTE_CATEGORY
123 ,X_ATTRIBUTE1
124 ,X_ATTRIBUTE2
125 ,X_ATTRIBUTE3
126 ,X_ATTRIBUTE4
127 ,X_ATTRIBUTE5
128 ,X_ATTRIBUTE6
129 ,X_ATTRIBUTE7
130 ,X_ATTRIBUTE8
131 ,X_ATTRIBUTE9
132 ,X_ATTRIBUTE10
133 ,X_ATTRIBUTE11
134 ,X_ATTRIBUTE12
135 ,X_ATTRIBUTE13
136 ,X_ATTRIBUTE14
137 ,X_ATTRIBUTE15
138 ,l_org_id
139 );
140
141 OPEN c;
142 FETCH c INTO x_rowid;
143 IF (c%NOTFOUND) THEN
144 CLOSE c;
145 RAISE NO_DATA_FOUND;
146 END IF;
147 CLOSE c;
148
149 END Insert_Row;
150
151 -------------------------------------------------------------------------------
152 -- PROCDURE : LOCK_ROW
153 -- INVOKED FROM : LOCK_ROW procedure
154 -- PURPOSE : locks the row
155 -- HISTORY :
156 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_CONTACT_ASSIGNMENTS
157 -- with _ALL table.
158 -------------------------------------------------------------------------------
159 PROCEDURE Lock_Row
160 (
161 X_CONTACT_ASSIGNMENT_ID IN NUMBER
162 ,X_COMPANY_ID IN NUMBER
163 ,X_COMPANY_SITE_ID IN NUMBER
164 ,X_LEASE_ID IN NUMBER
165 ,X_LEASE_CHANGE_ID IN NUMBER
166 ,X_LOCATION_ID IN NUMBER
167 ,X_STATUS IN VARCHAR2
168 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
169 ,X_ATTRIBUTE1 IN VARCHAR2
170 ,X_ATTRIBUTE2 IN VARCHAR2
171 ,X_ATTRIBUTE3 IN VARCHAR2
172 ,X_ATTRIBUTE4 IN VARCHAR2
173 ,X_ATTRIBUTE5 IN VARCHAR2
174 ,X_ATTRIBUTE6 IN VARCHAR2
175 ,X_ATTRIBUTE7 IN VARCHAR2
176 ,X_ATTRIBUTE8 IN VARCHAR2
177 ,X_ATTRIBUTE9 IN VARCHAR2
178 ,X_ATTRIBUTE10 IN VARCHAR2
179 ,X_ATTRIBUTE11 IN VARCHAR2
180 ,X_ATTRIBUTE12 IN VARCHAR2
181 ,X_ATTRIBUTE13 IN VARCHAR2
182 ,X_ATTRIBUTE14 IN VARCHAR2
183 ,X_ATTRIBUTE15 IN VARCHAR2
184 )
185 IS
186 CURSOR c IS
187 SELECT *
188 FROM pn_contact_assignments_all
189 WHERE contact_assignment_id = x_contact_assignment_id
190 FOR UPDATE OF contact_assignment_id NOWAIT;
191
192 tlinfo c%ROWTYPE;
193
194 BEGIN
195
196 OPEN c;
197 FETCH c INTO tlinfo;
198 IF (c%NOTFOUND) THEN
199 CLOSE c;
200 RETURN;
201 END IF;
202 CLOSE c;
203
207
204 IF NOT (tlinfo.COMPANY_ID = X_COMPANY_ID) THEN
205 pn_var_rent_pkg.lock_row_exception('COMPANY_ID',tlinfo.COMPANY_ID);
206 END IF;
208 IF NOT (tlinfo.COMPANY_SITE_ID = X_COMPANY_SITE_ID) THEN
209 pn_var_rent_pkg.lock_row_exception('COMPANY_SITE_ID',tlinfo.COMPANY_SITE_ID);
210 END IF;
211
212 IF NOT ((tlinfo.LEASE_ID = X_LEASE_ID)
213 OR ((tlinfo.LEASE_ID IS NULL) AND (X_LEASE_ID IS NULL))) THEN
214 pn_var_rent_pkg.lock_row_exception('LEASE_ID',tlinfo.LEASE_ID);
215 END IF;
216
217 IF NOT ((tlinfo.LEASE_CHANGE_ID = X_LEASE_CHANGE_ID)
218 OR ((tlinfo.LEASE_CHANGE_ID IS NULL) AND (X_LEASE_CHANGE_ID IS NULL))) THEN
219 pn_var_rent_pkg.lock_row_exception('LEASE_CHANGE_ID',tlinfo.LEASE_CHANGE_ID);
220 END IF;
221
222 IF NOT ((tlinfo.LOCATION_ID = X_LOCATION_ID)
223 OR ((tlinfo.LOCATION_ID IS NULL) AND (X_LOCATION_ID IS NULL))) THEN
224 pn_var_rent_pkg.lock_row_exception('LOCATION_ID',tlinfo.LOCATION_ID);
225 END IF;
226
227 IF NOT (tlinfo.STATUS = X_STATUS) THEN
228 pn_var_rent_pkg.lock_row_exception('STATUS',tlinfo.STATUS);
229 END IF;
230
231 IF NOT ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
232 OR ((tlinfo.ATTRIBUTE_CATEGORY IS NULL) AND (X_ATTRIBUTE_CATEGORY IS NULL))) THEN
233 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
234 END IF;
235
236 IF NOT ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
237 OR ((tlinfo.ATTRIBUTE1 IS NULL) AND (X_ATTRIBUTE1 IS NULL))) THEN
238 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
239 END IF;
240
241 IF NOT ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
242 OR ((tlinfo.ATTRIBUTE2 IS NULL) AND (X_ATTRIBUTE2 IS NULL))) THEN
243 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
244 END IF;
245
246 IF NOT ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
247 OR ((tlinfo.ATTRIBUTE3 IS NULL) AND (X_ATTRIBUTE3 IS NULL))) THEN
248 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
249 END IF;
250
251 IF NOT ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
252 OR ((tlinfo.ATTRIBUTE4 IS NULL) AND (X_ATTRIBUTE4 IS NULL))) THEN
253 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
254 END IF;
255
256 IF NOT ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
257 OR ((tlinfo.ATTRIBUTE5 IS NULL) AND (X_ATTRIBUTE5 IS NULL))) THEN
258 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
259 END IF;
260
261 IF NOT ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
262 OR ((tlinfo.ATTRIBUTE6 IS NULL) AND (X_ATTRIBUTE6 IS NULL))) THEN
263 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
264 END IF;
265
266 IF NOT ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
267 OR ((tlinfo.ATTRIBUTE7 IS NULL) AND (X_ATTRIBUTE7 IS NULL))) THEN
268 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
269 END IF;
270
271 IF NOT ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
272 OR ((tlinfo.ATTRIBUTE8 IS NULL) AND (X_ATTRIBUTE8 IS NULL))) THEN
273 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
274 END IF;
275
276 IF NOT ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
277 OR ((tlinfo.ATTRIBUTE9 IS NULL) AND (X_ATTRIBUTE9 IS NULL))) THEN
278 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
279 END IF;
280
281 IF NOT ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
282 OR ((tlinfo.ATTRIBUTE10 IS NULL) AND (X_ATTRIBUTE10 IS NULL))) THEN
283 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE10',tlinfo.ATTRIBUTE10);
284 END IF;
285
286 IF NOT ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
287 OR ((tlinfo.ATTRIBUTE11 IS NULL) AND (X_ATTRIBUTE11 IS NULL))) THEN
288 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
289 END IF;
290
291 IF NOT ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
292 OR ((tlinfo.ATTRIBUTE12 IS NULL) AND (X_ATTRIBUTE12 IS NULL))) THEN
293 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
294 END IF;
295
296 IF NOT ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
297 OR ((tlinfo.ATTRIBUTE13 IS NULL) AND (X_ATTRIBUTE13 IS NULL))) THEN
298 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
299 END IF;
300
301 IF NOT ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
302 OR ((tlinfo.ATTRIBUTE14 IS NULL) AND (X_ATTRIBUTE14 IS NULL))) THEN
303 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
304 END IF;
305
306 IF NOT ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
307 OR ((tlinfo.ATTRIBUTE15 IS NULL) AND (X_ATTRIBUTE15 IS NULL))) THEN
308 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
309 END IF;
310
311 RETURN;
312
313 END Lock_Row;
314
315
316 -------------------------------------------------------------------------------
317 -- PROCDURE : Update_Row
318 -- INVOKED FROM : Update_Row procedure
319 -- PURPOSE : updates the row
320 -- HISTORY :
321 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_CONTACT_ASSIGNMENTS
322 -- with _ALL table.
323 -------------------------------------------------------------------------------
324 PROCEDURE Update_Row
325 (
326 X_CONTACT_ASSIGNMENT_ID IN NUMBER
327 ,X_LAST_UPDATE_DATE IN DATE
328 ,X_LAST_UPDATED_BY IN NUMBER
329 ,X_LAST_UPDATE_LOGIN IN NUMBER
333 ,X_LEASE_CHANGE_ID IN NUMBER
330 ,X_COMPANY_ID IN NUMBER
331 ,X_COMPANY_SITE_ID IN NUMBER
332 ,X_LEASE_ID IN NUMBER
334 ,X_LOCATION_ID IN NUMBER
335 ,X_STATUS IN VARCHAR2
336 ,X_ATTRIBUTE_CATEGORY IN VARCHAR2
337 ,X_ATTRIBUTE1 IN VARCHAR2
338 ,X_ATTRIBUTE2 IN VARCHAR2
339 ,X_ATTRIBUTE3 IN VARCHAR2
340 ,X_ATTRIBUTE4 IN VARCHAR2
341 ,X_ATTRIBUTE5 IN VARCHAR2
342 ,X_ATTRIBUTE6 IN VARCHAR2
343 ,X_ATTRIBUTE7 IN VARCHAR2
344 ,X_ATTRIBUTE8 IN VARCHAR2
345 ,X_ATTRIBUTE9 IN VARCHAR2
346 ,X_ATTRIBUTE10 IN VARCHAR2
347 ,X_ATTRIBUTE11 IN VARCHAR2
348 ,X_ATTRIBUTE12 IN VARCHAR2
349 ,X_ATTRIBUTE13 IN VARCHAR2
350 ,X_ATTRIBUTE14 IN VARCHAR2
351 ,X_ATTRIBUTE15 IN VARCHAR2
352 )
353 IS
354 l_leaseStatus VARCHAR2(2);
355 l_contactHIStoryId NUMBER := NULL;
356
357 CURSOR c IS
358 SELECT *
359 FROM PN_CONTACT_ASSIGNMENTS_ALL
360 WHERE CONTACT_ASSIGNMENT_ID = X_CONTACT_ASSIGNMENT_ID;
361
362 recInfoForHist c%ROWTYPE;
363
364 BEGIN
365
366 -- we want to create hIStory recs for lease records only
367 IF (X_LEASE_ID IS NOT NULL) THEN
368 -- get the lease status
369 l_leaseStatus := PNP_UTIL_FUNC.GET_LEASE_STATUS (X_LEASE_ID);
370
371 -- We need to INSERT the hIStory row IF the lease IS finalISed
372 IF (l_leaseStatus = 'F') THEN
373
374 OPEN c;
375 FETCH c INTO recInfoForHist;
376 IF (c%NOTFOUND) THEN
377 CLOSE c;
378 RAISE NO_DATA_FOUND;
379 END IF;
380 CLOSE c;
381
382 IF (recInfoForHist.LEASE_CHANGE_ID <> X_LEASE_CHANGE_ID) THEN
383
384 SELECT pn_contact_assign_hIStory_s.nextval
385 INTO l_contactHIStoryId
386 FROM DUAL;
387
388 INSERT INTO PN_CONTACT_ASSIGN_HISTORY
389 (
390 CONTACT_ASSIGN_HISTORY_ID
391 ,CONTACT_ASSIGNMENT_ID
392 ,LAST_UPDATE_DATE
393 ,LAST_UPDATED_BY
394 ,CREATION_DATE
395 ,CREATED_BY
396 ,LAST_UPDATE_LOGIN
397 ,COMPANY_ID
398 ,COMPANY_SITE_ID
399 ,LEASE_ID
400 ,LEASE_CHANGE_ID
401 ,NEW_LEASE_CHANGE_ID
402 ,LOCATION_ID
403 ,STATUS
404 ,ATTRIBUTE_CATEGORY
405 ,ATTRIBUTE1
406 ,ATTRIBUTE2
407 ,ATTRIBUTE3
408 ,ATTRIBUTE4
409 ,ATTRIBUTE5
410 ,ATTRIBUTE6
411 ,ATTRIBUTE7
412 ,ATTRIBUTE8
413 ,ATTRIBUTE9
414 ,ATTRIBUTE10
415 ,ATTRIBUTE11
416 ,ATTRIBUTE12
417 ,ATTRIBUTE13
418 ,ATTRIBUTE14
419 ,ATTRIBUTE15
420 )
421 VALUES
422 (
423 l_contactHIStoryId
424 ,recInfoForHist.CONTACT_ASSIGNMENT_ID
425 ,recInfoForHist.LAST_UPDATE_DATE
426 ,recInfoForHist.LAST_UPDATED_BY
427 ,recInfoForHist.CREATION_DATE
428 ,recInfoForHist.CREATED_BY
429 ,recInfoForHist.LAST_UPDATE_LOGIN
430 ,recInfoForHist.COMPANY_ID
431 ,recInfoForHist.COMPANY_SITE_ID
432 ,recInfoForHist.LEASE_ID
433 ,recInfoForHist.LEASE_CHANGE_ID
434 ,X_LEASE_CHANGE_ID
435 ,recInfoForHist.LOCATION_ID
436 ,recInfoForHist.STATUS
437 ,recInfoForHist.ATTRIBUTE_CATEGORY
438 ,recInfoForHist.ATTRIBUTE1
439 ,recInfoForHist.ATTRIBUTE2
440 ,recInfoForHist.ATTRIBUTE3
441 ,recInfoForHist.ATTRIBUTE4
442 ,recInfoForHist.ATTRIBUTE5
443 ,recInfoForHist.ATTRIBUTE6
444 ,recInfoForHist.ATTRIBUTE7
445 ,recInfoForHist.ATTRIBUTE8
446 ,recInfoForHist.ATTRIBUTE9
447 ,recInfoForHist.ATTRIBUTE10
448 ,recInfoForHist.ATTRIBUTE11
449 ,recInfoForHist.ATTRIBUTE12
450 ,recInfoForHist.ATTRIBUTE13
451 ,recInfoForHist.ATTRIBUTE14
452 ,recInfoForHist.ATTRIBUTE15
453 );
454 END IF;
455 END IF;
456 END IF;
457
458 UPDATE PN_CONTACT_ASSIGNMENTS_ALL
459 SET LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
460 ,LAST_UPDATED_BY = X_LAST_UPDATED_BY
461 ,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
462 ,COMPANY_ID = X_COMPANY_ID
463 ,COMPANY_SITE_ID = X_COMPANY_SITE_ID
464 ,LEASE_ID = X_LEASE_ID
465 ,LEASE_CHANGE_ID = X_LEASE_CHANGE_ID
466 ,LOCATION_ID = X_LOCATION_ID
467 ,STATUS = X_STATUS
471 ,ATTRIBUTE3 = X_ATTRIBUTE3
468 ,ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY
469 ,ATTRIBUTE1 = X_ATTRIBUTE1
470 ,ATTRIBUTE2 = X_ATTRIBUTE2
472 ,ATTRIBUTE4 = X_ATTRIBUTE4
473 ,ATTRIBUTE5 = X_ATTRIBUTE5
474 ,ATTRIBUTE6 = X_ATTRIBUTE6
475 ,ATTRIBUTE7 = X_ATTRIBUTE7
476 ,ATTRIBUTE8 = X_ATTRIBUTE8
477 ,ATTRIBUTE9 = X_ATTRIBUTE9
478 ,ATTRIBUTE10 = X_ATTRIBUTE10
479 ,ATTRIBUTE11 = X_ATTRIBUTE11
480 ,ATTRIBUTE12 = X_ATTRIBUTE12
481 ,ATTRIBUTE13 = X_ATTRIBUTE13
482 ,ATTRIBUTE14 = X_ATTRIBUTE14
483 ,ATTRIBUTE15 = X_ATTRIBUTE15
484 WHERE CONTACT_ASSIGNMENT_ID = X_CONTACT_ASSIGNMENT_ID;
485
486 END Update_Row;
487
488 -------------------------------------------------------------------------------
489 -- PROCDURE : Delete_Row
490 -- INVOKED FROM : Delete_Row procedure
491 -- PURPOSE : deletes the row
492 -- HISTORY :
493 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_CONTACT_ASSIGNMENTS
494 -- with _ALL table.
495 -------------------------------------------------------------------------------
496 PROCEDURE Delete_Row
497 (
498 X_CONTACT_ASSIGNMENT_ID IN NUMBER
499 )
500 IS
501 BEGIN
502 DELETE
503 FROM PN_CONTACT_ASSIGNMENTS_ALL
504 WHERE CONTACT_ASSIGNMENT_ID = X_CONTACT_ASSIGNMENT_ID
505 AND STATUS <> 'F';
506
507 IF (SQL%NOTFOUND) THEN
508 RAISE NO_DATA_FOUND;
509 END IF;
510 END Delete_Row;
511
512
513 END pn_contact_assignments_pkg;
[Home] [Help]