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