1 PACKAGE BODY igs_ad_rs_values_pkg AS
2 /* $Header: IGSAI74B.pls 115.10 2003/10/30 13:16:40 akadam ship $ */
3 l_rowid VARCHAR2(25);
4 old_references igs_ad_rs_values%RowType;
5 new_references igs_ad_rs_values%RowType;
6
7 PROCEDURE Set_Column_Values (
8 p_action IN VARCHAR2,
9 x_rowid IN VARCHAR2 DEFAULT NULL,
10 x_rating_values_id IN NUMBER DEFAULT NULL,
11 x_rating_scale_id IN NUMBER DEFAULT NULL,
12 x_rating_value IN VARCHAR2 DEFAULT NULL,
13 x_description IN VARCHAR2 DEFAULT NULL,
14 x_closed_ind IN VARCHAR2 DEFAULT NULL,
15 x_creation_date IN DATE DEFAULT NULL,
16 x_created_by IN NUMBER DEFAULT NULL,
17 x_last_update_date IN DATE DEFAULT NULL,
18 x_last_updated_by IN NUMBER DEFAULT NULL,
19 x_last_update_login IN NUMBER DEFAULT NULL
20 ) AS
21
22 /*************************************************************
23 Created By : amuthu
24 Date Created On : 16-May-2000
25 Purpose :
26 Know limitations, enhancements or remarks
27 Change History
28 Who When What
29
30 (reverse chronological order - newest change first)
31 ***************************************************************/
32
33 CURSOR cur_old_ref_values IS
34 SELECT *
35 FROM IGS_AD_RS_VALUES
36 WHERE rowid = x_rowid;
37
38 BEGIN
39
40 l_rowid := x_rowid;
41
42 -- Code for setting the Old and New Reference Values.
43 -- Populate Old Values.
44 Open cur_old_ref_values;
45 Fetch cur_old_ref_values INTO old_references;
46 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
47 Close cur_old_ref_values;
48 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49 IGS_GE_MSG_STACK.ADD;
50 App_Exception.Raise_Exception;
51 Return;
52 END IF;
53 Close cur_old_ref_values;
54
55 -- Populate New Values.
56 new_references.rating_values_id := x_rating_values_id;
57 new_references.rating_scale_id := x_rating_scale_id;
58 new_references.rating_value := x_rating_value;
59 new_references.description := x_description;
60 new_references.closed_ind := x_closed_ind;
61 IF (p_action = 'UPDATE') THEN
62 new_references.creation_date := old_references.creation_date;
63 new_references.created_by := old_references.created_by;
64 ELSE
65 new_references.creation_date := x_creation_date;
66 new_references.created_by := x_created_by;
67 END IF;
68 new_references.last_update_date := x_last_update_date;
69 new_references.last_updated_by := x_last_updated_by;
70 new_references.last_update_login := x_last_update_login;
71
72 END Set_Column_Values;
73
74 PROCEDURE Check_Constraints (
75 Column_Name IN VARCHAR2 DEFAULT NULL,
76 Column_Value IN VARCHAR2 DEFAULT NULL ) AS
77 /*************************************************************
78 Created By : amuthu
79 Date Created On : 16-May-2000
80 Purpose :
81 Know limitations, enhancements or remarks
82 Change History
83 Who When What
84
85 (reverse chronological order - newest change first)
86 ***************************************************************/
87
88 BEGIN
89
90 IF column_name IS NULL THEN
91 NULL;
92 ELSIF UPPER(column_name) = 'CLOSED_IND' THEN
93 new_references.closed_ind := column_value;
94 NULL;
95 END IF;
96
97
98
99 -- The following code checks for check constraints on the Columns.
100 IF Upper(Column_Name) = 'CLOSED_IND' OR
101 Column_Name IS NULL THEN
102 IF NOT (new_references.closed_ind in ('Y','N')) THEN
103 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
104 IGS_GE_MSG_STACK.ADD;
105 App_Exception.Raise_Exception;
106 END IF;
107 END IF;
108
109
110 END Check_Constraints;
111
112 PROCEDURE Check_Uniqueness AS
113 /*************************************************************
114 Created By : amuthu
115 Date Created On : 16-May-2000
116 Purpose :
117 Know limitations, enhancements or remarks
118 Change History
119 Who When What
120
121 (reverse chronological order - newest change first)
122 ***************************************************************/
123
124 begin
125 IF Get_Uk_For_Validation (
126 new_references.rating_scale_id
127 ,new_references.rating_value
128 ) THEN
129 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
130 IGS_GE_MSG_STACK.ADD;
131 app_exception.raise_exception;
132 END IF;
133 END Check_Uniqueness ;
134 PROCEDURE Check_Parent_Existance AS
135 /*************************************************************
136 Created By : amuthu
137 Date Created On : 16-May-2000
138 Purpose :
139 Know limitations, enhancements or remarks
140 Change History
141 Who When What
142
143 (reverse chronological order - newest change first)
144 ***************************************************************/
145
146 BEGIN
147
148 IF (((old_references.rating_scale_id = new_references.rating_scale_id)) OR
149 ((new_references.rating_scale_id IS NULL))) THEN
150 NULL;
151 ELSIF NOT Igs_Ad_Rating_Scales_Pkg.Get_PK_For_Validation (
152 new_references.rating_scale_id ,
153 'N') THEN
154 Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
155 IGS_GE_MSG_STACK.ADD;
156 App_Exception.Raise_Exception;
157 END IF;
158
159 END Check_Parent_Existance;
160
161 PROCEDURE Check_Child_Existance IS
162 /*************************************************************
163 Created By : amuthu
164 Date Created On : 16-May-2000
165 Purpose :
166 Know limitations, enhancements or remarks
167 Change History
168 Who When What
169
170 (reverse chronological order - newest change first)
171 ***************************************************************/
172
173 BEGIN
174
175 Igs_Ad_Appl_Eval_Pkg.Get_FK_Igs_Ad_Rs_Values (
176 old_references.rating_values_id
177 );
178
179 END Check_Child_Existance;
180
181 FUNCTION Get_PK_For_Validation (
182 x_rating_values_id IN NUMBER,
183 x_closed_ind IN VARCHAR2
184 ) RETURN BOOLEAN AS
185
186 /*************************************************************
187 Created By : amuthu
188 Date Created On : 16-May-2000
189 Purpose :
190 Know limitations, enhancements or remarks
191 Change History
192 Who When What
193
194 (reverse chronological order - newest change first)
195 ***************************************************************/
196
197 CURSOR cur_rowid IS
198 SELECT rowid
199 FROM igs_ad_rs_values
200 WHERE rating_values_id = x_rating_values_id AND
201 closed_ind = NVL(x_closed_ind,closed_ind)
202 FOR UPDATE NOWAIT;
203
204 lv_rowid cur_rowid%RowType;
205
206 BEGIN
207
208 Open cur_rowid;
209 Fetch cur_rowid INTO lv_rowid;
210 IF (cur_rowid%FOUND) THEN
211 Close cur_rowid;
212 Return(TRUE);
213 ELSE
214 Close cur_rowid;
215 Return(FALSE);
216 END IF;
217 END Get_PK_For_Validation;
218
219 FUNCTION Get_UK_For_Validation (
220 x_rating_scale_id IN NUMBER,
221 x_rating_value IN VARCHAR2,
222 x_closed_ind IN VARCHAR2
223 ) RETURN BOOLEAN AS
224
225 /*************************************************************
226 Created By : amuthu
227 Date Created On : 16-May-2000
228 Purpose :
229 Know limitations, enhancements or remarks
230 Change History
231 Who When What
232
233 (reverse chronological order - newest change first)
234 ***************************************************************/
235
236 CURSOR cur_rowid IS
237 SELECT rowid
238 FROM igs_ad_rs_values
239 WHERE rating_scale_id = x_rating_scale_id AND
240 rating_value = x_rating_value AND
241 ((l_rowid is null) or (rowid <> l_rowid)) AND
242 closed_ind = NVL(x_closed_ind,closed_ind)
243
244 ;
245 lv_rowid cur_rowid%RowType;
246
247 BEGIN
248
249 Open cur_rowid;
250 Fetch cur_rowid INTO lv_rowid;
251 IF (cur_rowid%FOUND) THEN
252 Close cur_rowid;
253 return (true);
254 ELSE
255 close cur_rowid;
256 return(false);
257 END IF;
258 END Get_UK_For_Validation ;
259 PROCEDURE Get_FK_Igs_Ad_Rating_Scales (
260 x_rating_scale_id IN NUMBER
261 ) AS
262
263 /*************************************************************
264 Created By : amuthu
265 Date Created On : 16-May-2000
266 Purpose :
267 Know limitations, enhancements or remarks
268 Change History
269 Who When What
270
271 (reverse chronological order - newest change first)
272 ***************************************************************/
273
274 CURSOR cur_rowid IS
275 SELECT rowid
276 FROM igs_ad_rs_values
277 WHERE rating_scale_id = x_rating_scale_id ;
278
279 lv_rowid cur_rowid%RowType;
280
281 BEGIN
282
283 Open cur_rowid;
284 Fetch cur_rowid INTO lv_rowid;
285 IF (cur_rowid%FOUND) THEN
286 Close cur_rowid;
287 Fnd_Message.Set_Name ('IGS', 'IGS_AD_ARV_ARS_FK');
288 IGS_GE_MSG_STACK.ADD;
289 App_Exception.Raise_Exception;
290 Return;
291 END IF;
292 Close cur_rowid;
293
294 END Get_FK_Igs_Ad_Rating_Scales;
295
296 PROCEDURE Before_DML (
297 p_action IN VARCHAR2,
298 x_rowid IN VARCHAR2 DEFAULT NULL,
299 x_rating_values_id IN NUMBER DEFAULT NULL,
300 x_rating_scale_id IN NUMBER DEFAULT NULL,
301 x_rating_value IN VARCHAR2 DEFAULT NULL,
302 x_description IN VARCHAR2 DEFAULT NULL,
303 x_closed_ind IN VARCHAR2 DEFAULT NULL,
304 x_creation_date IN DATE DEFAULT NULL,
305 x_created_by IN NUMBER DEFAULT NULL,
306 x_last_update_date IN DATE DEFAULT NULL,
307 x_last_updated_by IN NUMBER DEFAULT NULL,
308 x_last_update_login IN NUMBER DEFAULT NULL
309 ) AS
310 /*************************************************************
311 Created By : amuthu
312 Date Created On : 16-May-2000
313 Purpose :
314 Know limitations, enhancements or remarks
315 Change History
316 Who When What
317
318 (reverse chronological order - newest change first)
319 ***************************************************************/
320
321 BEGIN
322
323 Set_Column_Values (
324 p_action,
325 x_rowid,
326 x_rating_values_id,
327 x_rating_scale_id,
328 x_rating_value,
329 x_description,
330 x_closed_ind,
331 x_creation_date,
332 x_created_by,
333 x_last_update_date,
334 x_last_updated_by,
335 x_last_update_login
336 );
337
338 IF (p_action = 'INSERT') THEN
339 -- Call all the procedures related to Before Insert.
340 Null;
341 IF Get_Pk_For_Validation(
342 new_references.rating_values_id) THEN
343 Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
344 IGS_GE_MSG_STACK.ADD;
345 App_Exception.Raise_Exception;
346 END IF;
347 Check_Uniqueness;
348 Check_Constraints;
349 Check_Parent_Existance;
350 ELSIF (p_action = 'UPDATE') THEN
351 -- Call all the procedures related to Before Update.
352 Null;
353 Check_Uniqueness;
354 Check_Constraints;
355 Check_Parent_Existance;
356 ELSIF (p_action = 'DELETE') THEN
357 -- Call all the procedures related to Before Delete.
358 Null;
359 Check_Child_Existance;
360 ELSIF (p_action = 'VALIDATE_INSERT') THEN
361 -- Call all the procedures related to Before Insert.
362 IF Get_PK_For_Validation (
363 new_references.rating_values_id) THEN
364 Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
365 IGS_GE_MSG_STACK.ADD;
366 App_Exception.Raise_Exception;
367 END IF;
368 Check_Uniqueness;
369 Check_Constraints;
370 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
371 Check_Uniqueness;
372 Check_Constraints;
373 ELSIF (p_action = 'VALIDATE_DELETE') THEN
374 Check_Child_Existance;
375 END IF;
376
377 END Before_DML;
378
379 PROCEDURE After_DML (
380 p_action IN VARCHAR2,
381 x_rowid IN VARCHAR2
382 ) IS
383 /*************************************************************
384 Created By : amuthu
385 Date Created On : 16-May-2000
386 Purpose :
387 Know limitations, enhancements or remarks
388 Change History
389 Who When What
390
391 (reverse chronological order - newest change first)
392 ***************************************************************/
393
394 BEGIN
395
396 l_rowid := x_rowid;
397
398 IF (p_action = 'INSERT') THEN
399 -- Call all the procedures related to After Insert.
400 Null;
401 ELSIF (p_action = 'UPDATE') THEN
402 -- Call all the procedures related to After Update.
403 Null;
404 ELSIF (p_action = 'DELETE') THEN
405 -- Call all the procedures related to After Delete.
406 Null;
407 END IF;
408
409 l_rowid:=NULL;
410 END After_DML;
411
412 procedure INSERT_ROW (
413 X_ROWID in out NOCOPY VARCHAR2,
414 x_RATING_VALUES_ID IN OUT NOCOPY NUMBER,
415 x_RATING_SCALE_ID IN NUMBER,
416 x_RATING_VALUE IN VARCHAR2,
417 x_DESCRIPTION IN VARCHAR2,
418 x_CLOSED_IND IN VARCHAR2,
419 X_MODE in VARCHAR2 default 'R'
420 ) AS
421 /*************************************************************
422 Created By : amuthu
423 Date Created On : 16-May-2000
424 Purpose :
425 Know limitations, enhancements or remarks
426 Change History
427 Who When What
428
429 (reverse chronological order - newest change first)
430 ***************************************************************/
431
432 cursor C is select ROWID from IGS_AD_RS_VALUES
433 where RATING_VALUES_ID= X_RATING_VALUES_ID;
434 X_LAST_UPDATE_DATE DATE ;
435 X_LAST_UPDATED_BY NUMBER ;
436 X_LAST_UPDATE_LOGIN NUMBER ;
437 begin
438 X_LAST_UPDATE_DATE := SYSDATE;
439 if(X_MODE = 'I') then
440 X_LAST_UPDATED_BY := 1;
441 X_LAST_UPDATE_LOGIN := 0;
442 elsif (X_MODE = 'R') then
443 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
444 if X_LAST_UPDATED_BY is NULL then
445 X_LAST_UPDATED_BY := -1;
446 end if;
447 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
448 if X_LAST_UPDATE_LOGIN is NULL then
449 X_LAST_UPDATE_LOGIN := -1;
450 end if;
451 else
452 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
453 IGS_GE_MSG_STACK.ADD;
454 app_exception.raise_exception;
455 end if;
456
457 X_RATING_VALUES_ID := -1;
458
459 Before_DML(
460 p_action=>'INSERT',
461 x_rowid=>X_ROWID,
462 x_rating_values_id=>X_RATING_VALUES_ID,
463 x_rating_scale_id=>X_RATING_SCALE_ID,
464 x_rating_value=>X_RATING_VALUE,
465 x_description=>X_DESCRIPTION,
466 x_closed_ind=>X_CLOSED_IND,
467 x_creation_date=>X_LAST_UPDATE_DATE,
468 x_created_by=>X_LAST_UPDATED_BY,
469 x_last_update_date=>X_LAST_UPDATE_DATE,
470 x_last_updated_by=>X_LAST_UPDATED_BY,
471 x_last_update_login=>X_LAST_UPDATE_LOGIN);
472 insert into IGS_AD_RS_VALUES (
473 RATING_VALUES_ID
474 ,RATING_SCALE_ID
475 ,RATING_VALUE
476 ,DESCRIPTION
477 ,CLOSED_IND
478 ,CREATION_DATE
479 ,CREATED_BY
480 ,LAST_UPDATE_DATE
481 ,LAST_UPDATED_BY
482 ,LAST_UPDATE_LOGIN
483 ) values (
484 IGS_AD_RS_VALUES_S.NEXTVAL
485 ,NEW_REFERENCES.RATING_SCALE_ID
486 ,NEW_REFERENCES.RATING_VALUE
487 ,NEW_REFERENCES.DESCRIPTION
488 ,NEW_REFERENCES.CLOSED_IND
489 ,X_LAST_UPDATE_DATE
490 ,X_LAST_UPDATED_BY
491 ,X_LAST_UPDATE_DATE
492 ,X_LAST_UPDATED_BY
493 ,X_LAST_UPDATE_LOGIN
494 )RETURNING RATING_VALUES_ID INTO X_RATING_VALUES_ID;
495 open c;
496 fetch c into X_ROWID;
497 if (c%notfound) then
498 close c;
499 raise no_data_found;
500 end if;
501 close c;
502 After_DML (
503 p_action => 'INSERT' ,
504 x_rowid => X_ROWID );
505 end INSERT_ROW;
506 procedure LOCK_ROW (
507 X_ROWID in VARCHAR2,
508 x_RATING_VALUES_ID IN NUMBER,
509 x_RATING_SCALE_ID IN NUMBER,
510 x_RATING_VALUE IN VARCHAR2,
511 x_DESCRIPTION IN VARCHAR2,
512 x_CLOSED_IND IN VARCHAR2 ) AS
513 /*************************************************************
514 Created By : amuthu
515 Date Created On : 16-May-2000
516 Purpose :
517 Know limitations, enhancements or remarks
518 Change History
519 Who When What
520
521 (reverse chronological order - newest change first)
522 ***************************************************************/
523
524 cursor c1 is select
525 RATING_SCALE_ID
526 , RATING_VALUE
527 , DESCRIPTION
528 , CLOSED_IND
529 from IGS_AD_RS_VALUES
530 where ROWID = X_ROWID
531 for update nowait;
532 tlinfo c1%rowtype;
533 begin
534 open c1;
535 fetch c1 into tlinfo;
536 if (c1%notfound) then
537 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
538 IGS_GE_MSG_STACK.ADD;
539 close c1;
540 app_exception.raise_exception;
541 return;
542 end if;
543 close c1;
544 if ( (tlinfo.RATING_SCALE_ID = X_RATING_SCALE_ID)
545 AND (tlinfo.RATING_VALUE = X_RATING_VALUE)
546 AND (tlinfo.DESCRIPTION = X_DESCRIPTION)
547 AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
548 ) then
549 null;
550 else
551 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
552 IGS_GE_MSG_STACK.ADD;
553 app_exception.raise_exception;
554 end if;
555 return;
556 end LOCK_ROW;
557 Procedure UPDATE_ROW (
558 X_ROWID in VARCHAR2,
559 x_RATING_VALUES_ID IN NUMBER,
560 x_RATING_SCALE_ID IN NUMBER,
561 x_RATING_VALUE IN VARCHAR2,
562 x_DESCRIPTION IN VARCHAR2,
563 x_CLOSED_IND IN VARCHAR2,
564 X_MODE in VARCHAR2 default 'R'
565 ) AS
566 /*************************************************************
567 Created By : amuthu
568 Date Created On : 16-May-2000
569 Purpose :
570 Know limitations, enhancements or remarks
571 Change History
572 Who When What
573
574 (reverse chronological order - newest change first)
575 ***************************************************************/
576
577 X_LAST_UPDATE_DATE DATE ;
578 X_LAST_UPDATED_BY NUMBER ;
579 X_LAST_UPDATE_LOGIN NUMBER ;
580 begin
581 X_LAST_UPDATE_DATE := SYSDATE;
582 if(X_MODE = 'I') then
583 X_LAST_UPDATED_BY := 1;
584 X_LAST_UPDATE_LOGIN := 0;
585 elsif (X_MODE = 'R') then
586 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
587 if X_LAST_UPDATED_BY is NULL then
588 X_LAST_UPDATED_BY := -1;
589 end if;
590 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
591 if X_LAST_UPDATE_LOGIN is NULL then
592 X_LAST_UPDATE_LOGIN := -1;
593 end if;
594 else
595 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
596 IGS_GE_MSG_STACK.ADD;
597 app_exception.raise_exception;
598 end if;
599 Before_DML(
600 p_action=>'UPDATE',
601 x_rowid=>X_ROWID,
602 x_rating_values_id=>X_RATING_VALUES_ID,
603 x_rating_scale_id=>X_RATING_SCALE_ID,
604 x_rating_value=>X_RATING_VALUE,
605 x_description=>X_DESCRIPTION,
606 x_closed_ind=>X_CLOSED_IND,
607 x_creation_date=>X_LAST_UPDATE_DATE,
608 x_created_by=>X_LAST_UPDATED_BY,
609 x_last_update_date=>X_LAST_UPDATE_DATE,
610 x_last_updated_by=>X_LAST_UPDATED_BY,
611 x_last_update_login=>X_LAST_UPDATE_LOGIN);
612 update IGS_AD_RS_VALUES set
613 RATING_SCALE_ID = NEW_REFERENCES.RATING_SCALE_ID,
614 RATING_VALUE = NEW_REFERENCES.RATING_VALUE,
615 DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
616 CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
617 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
618 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
619 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
620 where ROWID = X_ROWID;
621 if (sql%notfound) then
622 raise no_data_found;
623 end if;
624
625 After_DML (
626 p_action => 'UPDATE' ,
627 x_rowid => X_ROWID
628 );
629 end UPDATE_ROW;
630 procedure ADD_ROW (
631 X_ROWID in out NOCOPY VARCHAR2,
632 x_RATING_VALUES_ID IN OUT NOCOPY NUMBER,
633 x_RATING_SCALE_ID IN NUMBER,
634 x_RATING_VALUE IN VARCHAR2,
635 x_DESCRIPTION IN VARCHAR2,
636 x_CLOSED_IND IN VARCHAR2,
637 X_MODE in VARCHAR2 default 'R'
638 ) AS
639 /*************************************************************
640 Created By : amuthu
641 Date Created On : 16-May-2000
642 Purpose :
643 Know limitations, enhancements or remarks
644 Change History
645 Who When What
646
647 (reverse chronological order - newest change first)
648 ***************************************************************/
649
650 cursor c1 is select ROWID from IGS_AD_RS_VALUES
651 where RATING_VALUES_ID= X_RATING_VALUES_ID
652 ;
653 begin
654 open c1;
655 fetch c1 into X_ROWID;
656 if (c1%notfound) then
657 close c1;
658 INSERT_ROW (
659 X_ROWID,
660 X_RATING_VALUES_ID,
661 X_RATING_SCALE_ID,
662 X_RATING_VALUE,
663 X_DESCRIPTION,
664 X_CLOSED_IND,
665 X_MODE );
666 return;
667 end if;
668 close c1;
669 UPDATE_ROW (
670 X_ROWID,
671 X_RATING_VALUES_ID,
672 X_RATING_SCALE_ID,
673 X_RATING_VALUE,
674 X_DESCRIPTION,
675 X_CLOSED_IND,
676 X_MODE );
677 end ADD_ROW;
678 procedure DELETE_ROW (
679 X_ROWID in VARCHAR2
680 ) AS
681 /*************************************************************
682 Created By : amuthu
683 Date Created On : 16-May-2000
684 Purpose :
685 Know limitations, enhancements or remarks
686 Change History
687 Who When What
688
689 (reverse chronological order - newest change first)
690 ***************************************************************/
691
692 begin
693 Before_DML (
694 p_action => 'DELETE',
695 x_rowid => X_ROWID
696 );
697 delete from IGS_AD_RS_VALUES
698 where ROWID = X_ROWID;
699 if (sql%notfound) then
700 raise no_data_found;
701 end if;
702 After_DML (
703 p_action => 'DELETE',
704 x_rowid => X_ROWID
705 );
706 end DELETE_ROW;
707 END igs_ad_rs_values_pkg;