1 PACKAGE BODY igs_en_inst_wlst_opt_pkg AS
2 /* $Header: IGSEI16B.pls 115.10 2003/09/18 03:45:11 svanukur ship $ */
3 l_rowid VARCHAR2(25);
4 old_references IGS_EN_INST_WLST_OPT_ALL%RowType;
5 new_references IGS_EN_INST_WLST_OPT_ALL%RowType;
6
7 PROCEDURE Set_Column_Values (
8 p_action IN VARCHAR2,
9 x_rowid IN VARCHAR2 DEFAULT NULL,
10 x_org_id IN NUMBER DEFAULT NULL,
11 x_inst_waitlist_id IN NUMBER DEFAULT NULL,
12 x_cal_type IN VARCHAR2 DEFAULT NULL,
13 x_waitlist_alwd IN VARCHAR2 DEFAULT NULL,
14 x_smlnes_waitlist_alwd 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 : ahemmige
24 Date Created : 20-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_EN_INST_WLST_OPT_ALL
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.org_id := x_org_id;
57 new_references.inst_waitlist_id := x_inst_waitlist_id;
58 new_references.cal_type := x_cal_type;
59 new_references.waitlist_alwd := x_waitlist_alwd;
60 new_references.smlnes_waitlist_alwd := x_smlnes_waitlist_alwd;
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 : ahemmige
79 Date Created : 20-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 NULL;
93 END IF;
94
95
96
97
98 END Check_Constraints;
99
100 PROCEDURE Check_Uniqueness AS
101 /*************************************************************
102 Created By : ahemmige
103 Date Created : 20-MAY-2000
104 Purpose :
105 Know limitations, enhancements or remarks
106 Change History
107 Who When What
108
109 (reverse chronological order - newest change first)
110 ***************************************************************/
111
112 begin
113 IF Get_Uk_For_Validation (
114 new_references.cal_type
115
116 ) THEN
117 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
118 IGS_GE_MSG_STACK.ADD;
119 app_exception.raise_exception;
120 END IF;
121 END Check_Uniqueness ;
122 PROCEDURE Check_Parent_Existance AS
123 /*************************************************************
124 Created By : ahemmige
125 Date Created : 20-MAY-2000
126 Purpose :
127 Know limitations, enhancements or remarks
128 Change History
129 Who When What
130
131 (reverse chronological order - newest change first)
132 ***************************************************************/
133
134 BEGIN
135
136 IF (old_references.cal_type = new_references.cal_type)
137 OR
138 (new_references.cal_type IS NULL)
139 THEN
140 NULL;
141 ELSIF NOT Igs_Ca_Type_Pkg.Get_PK_For_Validation (
142 new_references.cal_type
143
144 ) THEN
145 Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
146 IGS_GE_MSG_STACK.ADD;
147 App_Exception.Raise_Exception;
148 END IF;
149
150 END Check_Parent_Existance;
151
152 FUNCTION Get_PK_For_Validation (
153 x_inst_waitlist_id IN NUMBER
154 ) RETURN BOOLEAN AS
155
156 /*************************************************************
157 Created By : ahemmige
158 Date Created : 20-MAY-2000
159 Purpose :
160 Know limitations, enhancements or remarks
161 Change History
162 Who When What
163
164 (reverse chronological order - newest change first)
165 ***************************************************************/
166
167 CURSOR cur_rowid IS
168 SELECT rowid
169 FROM IGS_EN_INST_WLST_OPT_ALL
170 WHERE inst_waitlist_id = x_inst_waitlist_id
171 FOR UPDATE NOWAIT;
172
173 lv_rowid cur_rowid%RowType;
174
175 BEGIN
176
177 Open cur_rowid;
178 Fetch cur_rowid INTO lv_rowid;
179 IF (cur_rowid%FOUND) THEN
180 Close cur_rowid;
181 Return(TRUE);
182 ELSE
183 Close cur_rowid;
184 Return(FALSE);
185 END IF;
186 END Get_PK_For_Validation;
187
188 FUNCTION Get_UK_For_Validation (
189 x_cal_type IN VARCHAR2
190
191 ) RETURN BOOLEAN AS
192
193 /*************************************************************
194 Created By : ahemmige
195 Date Created : 20-MAY-2000
196 Purpose :
197 Know limitations, enhancements or remarks
198 Change History
199 Who When What
200
201 (reverse chronological order - newest change first)
202 ***************************************************************/
203
204 CURSOR cur_rowid IS
205 SELECT rowid
206 FROM IGS_EN_INST_WLST_OPT_ALL
207 WHERE cal_type = x_cal_type
208 and ((l_rowid is null) or (rowid <> l_rowid))
209
210 ;
211 lv_rowid cur_rowid%RowType;
212
213 BEGIN
214
215 Open cur_rowid;
216 Fetch cur_rowid INTO lv_rowid;
217 IF (cur_rowid%FOUND) THEN
218 Close cur_rowid;
219 return (true);
220 ELSE
221 close cur_rowid;
222 return(false);
223 END IF;
224 END Get_UK_For_Validation ;
225 PROCEDURE Get_FK_Igs_Ca_Type (
226 x_cal_type IN VARCHAR2
227 ) AS
228
229 /*************************************************************
230 Created By : ahemmige
231 Date Created : 20-MAY-2000
232 Purpose :
233 Know limitations, enhancements or remarks
234 Change History
235 Who When What
236
237 (reverse chronological order - newest change first)
238 svanukur 01-sep-2003 created as part of waitlist enhancement build #3052426
239 ***************************************************************/
240
241 CURSOR cur_rowid IS
242 SELECT rowid
243 FROM IGS_EN_INST_WLST_OPT_ALL
244 WHERE cal_type = x_cal_type ;
245
246
247 lv_rowid cur_rowid%RowType;
248
249 BEGIN
250
251 Open cur_rowid;
252 Fetch cur_rowid INTO lv_rowid;
253 IF (cur_rowid%FOUND) THEN
254 Close cur_rowid;
255 Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUW_OU_FK');
256 IGS_GE_MSG_STACK.ADD;
257 App_Exception.Raise_Exception;
258 Return;
259 END IF;
260 Close cur_rowid;
261
262
263 END Get_FK_Igs_Ca_Type;
264
265 PROCEDURE Get_FK_Igs_Ca_Inst (
266 x_cal_type IN VARCHAR2,
267 x_sequence_number IN NUMBER
268 ) AS
269
270 /*************************************************************
271 Created By : smanglm
272 Date Created on : 26-MAY-2000
273 Purpose : Creation of TBH
274 Know limitations, enhancements or remarks
275 Change History
276 Who When What
277
278 (reverse chronological order - newest change first)
279 svanukur 02-sep-2003 commenting since sequence_number is obsoleted
280 as part of waitlist enhancement build 3052426
281 to avoid dependency on psp build #3045007
282 ***************************************************************/
283
284 /* CURSOR cur_rowid IS
285 SELECT rowid
286 FROM igs_en_or_unit_wlst_all
287 WHERE cal_type = x_cal_type
288 AND sequence_number = x_sequence_number ;
289
290 lv_rowid cur_rowid%RowType;
291
292 BEGIN
293
294 Open cur_rowid;
295 Fetch cur_rowid INTO lv_rowid;
296 IF (cur_rowid%FOUND) THEN
297 Close cur_rowid;
298 Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUW_OU_FK');
299 IGS_GE_MSG_STACK.ADD;
300 App_Exception.Raise_Exception;
301 Return;
302 END IF;
303 Close cur_rowid; */
304 BEGIN
305 NULL;
306
307 END Get_FK_Igs_Ca_Inst;
308
309 PROCEDURE Before_DML (
310 p_action IN VARCHAR2,
311 x_rowid IN VARCHAR2 ,
312 x_org_id IN NUMBER ,
313 x_inst_waitlist_id IN NUMBER ,
314 x_cal_type IN VARCHAR2 ,
315 x_waitlist_alwd IN VARCHAR2 ,
316 x_smlnes_waitlist_alwd IN VARCHAR2 ,
317 x_creation_date IN DATE ,
318 x_created_by IN NUMBER ,
319 x_last_update_date IN DATE ,
320 x_last_updated_by IN NUMBER ,
321 x_last_update_login IN NUMBER
322 ) AS
323 /*************************************************************
324 Created By : ahemmige
325 Date Created : 20-MAY-2000
326 Purpose :
327 Know limitations, enhancements or remarks
328 Change History
329 Who When What
330
331 (reverse chronological order - newest change first)
332 ***************************************************************/
333
334 BEGIN
335
336 Set_Column_Values (
337 p_action,
338 x_rowid,
339 x_org_id,
340 x_inst_waitlist_id,
341 x_cal_type,
342 x_waitlist_alwd,
343 x_smlnes_waitlist_alwd,
344 x_creation_date,
345 x_created_by,
346 x_last_update_date,
347 x_last_updated_by,
348 x_last_update_login
349 );
350
351 IF (p_action = 'INSERT') THEN
352 -- Call all the procedures related to Before Insert.
353 Null;
354 IF Get_Pk_For_Validation(
355 new_references.inst_waitlist_id) THEN
356 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
357 IGS_GE_MSG_STACK.ADD;
358 App_Exception.Raise_Exception;
359 END IF;
360 Check_Uniqueness;
361 Check_Constraints;
362 Check_Parent_Existance;
363 ELSIF (p_action = 'UPDATE') THEN
364 -- Call all the procedures related to Before Update.
365 Null;
366 Check_Uniqueness;
367 Check_Constraints;
368 Check_Parent_Existance;
369 ELSIF (p_action = 'DELETE') THEN
370 -- Call all the procedures related to Before Delete.
371 Null;
372 ELSIF (p_action = 'VALIDATE_INSERT') THEN
373 -- Call all the procedures related to Before Insert.
374 IF Get_PK_For_Validation (
375 new_references.inst_waitlist_id) THEN
376 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
377 IGS_GE_MSG_STACK.ADD;
378 App_Exception.Raise_Exception;
379 END IF;
380 Check_Uniqueness;
381 Check_Constraints;
382 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
383 Check_Uniqueness;
384 Check_Constraints;
385 ELSIF (p_action = 'VALIDATE_DELETE') THEN
386 Null;
387 END IF;
388
389 END Before_DML;
390
391 PROCEDURE After_DML (
392 p_action IN VARCHAR2,
393 x_rowid IN VARCHAR2
394 ) IS
395 /*************************************************************
396 Created By : ahemmige
397 Date Created : 20-MAY-2000
398 Purpose :
399 Know limitations, enhancements or remarks
400 Change History
401 Who When What
402
403 (reverse chronological order - newest change first)
404 ***************************************************************/
405
406 BEGIN
407
408 l_rowid := x_rowid;
409
410 IF (p_action = 'INSERT') THEN
411 -- Call all the procedures related to After Insert.
412 Null;
413 ELSIF (p_action = 'UPDATE') THEN
414 -- Call all the procedures related to After Update.
415 Null;
416 ELSIF (p_action = 'DELETE') THEN
417 -- Call all the procedures related to After Delete.
418 Null;
419 END IF;
420
421 END After_DML;
422
423 procedure INSERT_ROW (
424 X_ROWID in out NOCOPY VARCHAR2,
425 X_ORG_ID in NUMBER,
426 x_INST_WAITLIST_ID IN OUT NOCOPY NUMBER,
427 x_CAL_TYPE IN VARCHAR2,
428 x_WAITLIST_ALWD IN VARCHAR2,
429 x_SMLNES_WAITLIST_ALWD IN VARCHAR2,
430 X_MODE in VARCHAR2
431 ) AS
432 /*************************************************************
433 Created By : ahemmige
434 Date Created : 20-MAY-2000
435 Purpose :
436 Know limitations, enhancements or remarks
437 Change History
438 Who When What
439
440 (reverse chronological order - newest change first)
441 ***************************************************************/
442
443 cursor C is select ROWID from IGS_EN_INST_WLST_OPT_ALL
444 where INST_WAITLIST_ID= X_INST_WAITLIST_ID
445 ;
446 X_LAST_UPDATE_DATE DATE ;
447 X_LAST_UPDATED_BY NUMBER ;
448 X_LAST_UPDATE_LOGIN NUMBER ;
449 begin
450 X_LAST_UPDATE_DATE := SYSDATE;
451 if(X_MODE = 'I') then
452 X_LAST_UPDATED_BY := 1;
453 X_LAST_UPDATE_LOGIN := 0;
454 elsif (X_MODE = 'R') then
455 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
456 if X_LAST_UPDATED_BY is NULL then
457 X_LAST_UPDATED_BY := -1;
458 end if;
459 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
460 if X_LAST_UPDATE_LOGIN is NULL then
461 X_LAST_UPDATE_LOGIN := -1;
462 end if;
463 else
464 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
465 IGS_GE_MSG_STACK.ADD;
466 app_exception.raise_exception;
467 end if;
468 select IGS_EN_INST_WLST_OPT_S.nextval into x_inst_waitlist_id from dual;
469 Before_DML(
470 p_action=>'INSERT',
471 x_rowid=>X_ROWID,
472 x_org_id => igs_ge_gen_003.get_org_id,
473 x_inst_waitlist_id=>X_INST_WAITLIST_ID,
474 x_cal_type=>X_CAL_TYPE,
475 x_waitlist_alwd=>X_WAITLIST_ALWD,
476 x_smlnes_waitlist_alwd=>X_SMLNES_WAITLIST_ALWD,
477 x_creation_date=>X_LAST_UPDATE_DATE,
478 x_created_by=>X_LAST_UPDATED_BY,
479 x_last_update_date=>X_LAST_UPDATE_DATE,
480 x_last_updated_by=>X_LAST_UPDATED_BY,
481 x_last_update_login=>X_LAST_UPDATE_LOGIN);
482 insert into IGS_EN_INST_WLST_OPT_ALL (
483 org_id
484 ,INST_WAITLIST_ID
485 ,CAL_TYPE
486 ,WAITLIST_ALWD
487 ,SMLNES_WAITLIST_ALWD
488 ,CREATION_DATE
489 ,CREATED_BY
490 ,LAST_UPDATE_DATE
491 ,LAST_UPDATED_BY
492 ,LAST_UPDATE_LOGIN
493 ) values (
494 NEW_REFERENCES.ORG_ID
495 ,NEW_REFERENCES.INST_WAITLIST_ID
496 ,NEW_REFERENCES.CAL_TYPE
497 ,NEW_REFERENCES.WAITLIST_ALWD
498 ,NEW_REFERENCES.SMLNES_WAITLIST_ALWD
499 ,X_LAST_UPDATE_DATE
500 ,X_LAST_UPDATED_BY
501 ,X_LAST_UPDATE_DATE
502 ,X_LAST_UPDATED_BY
503 ,X_LAST_UPDATE_LOGIN
504 );
505 open c;
506 fetch c into X_ROWID;
507 if (c%notfound) then
508 close c;
509 raise no_data_found;
510 end if;
511 close c;
512 After_DML (
513 p_action => 'INSERT' ,
514 x_rowid => X_ROWID );
515 end INSERT_ROW;
516
517 procedure LOCK_ROW (
518 X_ROWID in VARCHAR2,
519 x_INST_WAITLIST_ID IN NUMBER,
520 x_CAL_TYPE IN VARCHAR2,
521 x_WAITLIST_ALWD IN VARCHAR2,
522 x_SMLNES_WAITLIST_ALWD IN VARCHAR2 ) AS
523 /*************************************************************
527 Know limitations, enhancements or remarks
524 Created By : ahemmige
525 Date Created : 20-MAY-2000
526 Purpose :
528 Change History
529 Who When What
530
531 (reverse chronological order - newest change first)
532 ***************************************************************/
533
534 cursor c1 is select
535 CAL_TYPE,
536
537 WAITLIST_ALWD
538 , SMLNES_WAITLIST_ALWD
539 from IGS_EN_INST_WLST_OPT_ALL
540 where ROWID = X_ROWID
541 for update nowait;
542 tlinfo c1%rowtype;
543 begin
544 open c1;
545 fetch c1 into tlinfo;
546 if (c1%notfound) then
547 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
548 IGS_GE_MSG_STACK.ADD;
549 close c1;
550 app_exception.raise_exception;
551 return;
552 end if;
553 close c1;
554 if ( ( tlinfo.CAL_TYPE = X_CAL_TYPE)
555
556 AND (tlinfo.WAITLIST_ALWD = X_WAITLIST_ALWD)
557 AND (tlinfo.SMLNES_WAITLIST_ALWD = X_SMLNES_WAITLIST_ALWD)
558 ) then
559 null;
560 else
561 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
562 IGS_GE_MSG_STACK.ADD;
563 app_exception.raise_exception;
564 end if;
565 return;
566 end LOCK_ROW;
567 Procedure UPDATE_ROW (
568 X_ROWID in VARCHAR2,
569 x_INST_WAITLIST_ID IN NUMBER,
570 x_CAL_TYPE IN VARCHAR2,
571 x_WAITLIST_ALWD IN VARCHAR2,
572 x_SMLNES_WAITLIST_ALWD IN VARCHAR2,
573 X_MODE in VARCHAR2
574 ) AS
575 /*************************************************************
576 Created By : ahemmige
577 Date Created : 20-MAY-2000
578 Purpose :
579 Know limitations, enhancements or remarks
580 Change History
581 Who When What
582
583 (reverse chronological order - newest change first)
584 ***************************************************************/
585
586 X_LAST_UPDATE_DATE DATE ;
587 X_LAST_UPDATED_BY NUMBER ;
588 X_LAST_UPDATE_LOGIN NUMBER ;
589 begin
590 X_LAST_UPDATE_DATE := SYSDATE;
591 if(X_MODE = 'I') then
592 X_LAST_UPDATED_BY := 1;
593 X_LAST_UPDATE_LOGIN := 0;
594 elsif (X_MODE = 'R') then
595 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
596 if X_LAST_UPDATED_BY is NULL then
597 X_LAST_UPDATED_BY := -1;
598 end if;
599 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
600 if X_LAST_UPDATE_LOGIN is NULL then
601 X_LAST_UPDATE_LOGIN := -1;
602 end if;
603 else
604 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
605 IGS_GE_MSG_STACK.ADD;
606 app_exception.raise_exception;
607 end if;
608 Before_DML(
609 p_action=>'UPDATE',
610 x_rowid=>X_ROWID,
611 x_inst_waitlist_id=>X_INST_WAITLIST_ID,
612 x_cal_type=>X_CAL_TYPE,
613 x_waitlist_alwd=>X_WAITLIST_ALWD,
614 x_smlnes_waitlist_alwd=>X_SMLNES_WAITLIST_ALWD,
615 x_creation_date=>X_LAST_UPDATE_DATE,
616 x_created_by=>X_LAST_UPDATED_BY,
617 x_last_update_date=>X_LAST_UPDATE_DATE,
618 x_last_updated_by=>X_LAST_UPDATED_BY,
619 x_last_update_login=>X_LAST_UPDATE_LOGIN);
620 update IGS_EN_INST_WLST_OPT_ALL set
621 CAL_TYPE = NEW_REFERENCES.CAL_TYPE,
622 WAITLIST_ALWD = NEW_REFERENCES.WAITLIST_ALWD,
623 SMLNES_WAITLIST_ALWD = NEW_REFERENCES.SMLNES_WAITLIST_ALWD,
624 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
625 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
626 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
627 where ROWID = X_ROWID;
628 if (sql%notfound) then
629 raise no_data_found;
630 end if;
631
632 After_DML (
633 p_action => 'UPDATE' ,
634 x_rowid => X_ROWID
635 );
636 end UPDATE_ROW;
637 procedure ADD_ROW (
638 X_ROWID in out NOCOPY VARCHAR2,
639 X_ORG_ID in NUMBER,
640 x_INST_WAITLIST_ID IN OUT NOCOPY NUMBER,
641 x_CAL_TYPE IN VARCHAR2,
642 x_WAITLIST_ALWD IN VARCHAR2,
643 x_SMLNES_WAITLIST_ALWD IN VARCHAR2,
644 X_MODE in VARCHAR2
645 ) AS
646 /*************************************************************
647 Created By : ahemmige
648 Date Created : 20-MAY-2000
649 Purpose :
650 Know limitations, enhancements or remarks
651 Change History
652 Who When What
653
654 (reverse chronological order - newest change first)
655 ***************************************************************/
656
657 cursor c1 is select ROWID from IGS_EN_INST_WLST_OPT_ALL
658 where INST_WAITLIST_ID= X_INST_WAITLIST_ID
659 ;
660 begin
661 open c1;
662 fetch c1 into X_ROWID;
663 if (c1%notfound) then
664 close c1;
665 INSERT_ROW (
666 X_ROWID,
667 x_org_id,
668 X_INST_WAITLIST_ID,
669 X_CAL_TYPE,
670 X_WAITLIST_ALWD,
671 X_SMLNES_WAITLIST_ALWD,
672 X_MODE );
673 return;
674 end if;
675 close c1;
676 UPDATE_ROW (
677 X_ROWID,
678 X_INST_WAITLIST_ID,
679 X_CAL_TYPE,
680 X_WAITLIST_ALWD,
681 X_SMLNES_WAITLIST_ALWD,
682 X_MODE );
683 end ADD_ROW;
684 procedure DELETE_ROW (
685 X_ROWID in VARCHAR2
686 ) AS
687 /*************************************************************
688 Created By : ahemmige
689 Date Created : 20-MAY-2000
690 Purpose :
691 Know limitations, enhancements or remarks
692 Change History
693 Who When What
694
695 (reverse chronological order - newest change first)
696 ***************************************************************/
697
698 begin
699 Before_DML (
700 p_action => 'DELETE',
701 x_rowid => X_ROWID
702 );
703 delete from IGS_EN_INST_WLST_OPT_ALL
704 where ROWID = X_ROWID;
705 if (sql%notfound) then
706 raise no_data_found;
707 end if;
708 After_DML (
709 p_action => 'DELETE',
710 x_rowid => X_ROWID
711 );
712 end DELETE_ROW;
713 END igs_en_inst_wlst_opt_pkg;