eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IGS_AD_ENT_QF_STAT_PKG

Source


1 package body IGS_AD_ENT_QF_STAT_PKG as
2 /* $Header: IGSAI24B.pls 115.6 2003/10/30 13:11:41 akadam ship $ */
3 
4 l_rowid VARCHAR2(25);
5   old_references IGS_AD_ENT_QF_STAT%RowType;
6   new_references IGS_AD_ENT_QF_STAT%RowType;
7 
8 PROCEDURE Set_Column_Values (
9     p_action IN VARCHAR2,
10     x_rowid IN VARCHAR2 DEFAULT NULL,
11     x_adm_entry_qual_status IN VARCHAR2 DEFAULT NULL,
12     x_description IN VARCHAR2 DEFAULT NULL,
13     x_s_adm_entry_qual_status IN VARCHAR2 DEFAULT NULL,
14     x_system_default_ind IN VARCHAR2 DEFAULT NULL,
15     x_closed_ind IN VARCHAR2 DEFAULT NULL,
16     x_creation_date IN DATE DEFAULT NULL,
17     x_created_by IN NUMBER DEFAULT NULL,
18     x_last_update_date IN DATE DEFAULT NULL,
19     x_last_updated_by IN NUMBER DEFAULT NULL,
20     x_last_update_login IN NUMBER DEFAULT NULL
21   ) as
22 
23     CURSOR cur_old_ref_values IS
24       SELECT   *
25       FROM     IGS_AD_ENT_QF_STAT
26       WHERE    rowid = x_rowid;
27 
28   BEGIN
29 
30     l_rowid := x_rowid;
31 
32     -- Code for setting the Old and New Reference Values.
33     -- Populate Old Values.
34     Open cur_old_ref_values;
35     Fetch cur_old_ref_values INTO old_references;
36     IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
37       Close cur_old_ref_values;
38       Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39       IGS_GE_MSG_STACK.ADD;
40       App_Exception.Raise_Exception;
41       Return;
42     END IF;
43     Close cur_old_ref_values;
44 
45     -- Populate New Values.
46     new_references.adm_entry_qual_status := x_adm_entry_qual_status;
47     new_references.description := x_description;
48     new_references.s_adm_entry_qual_status := x_s_adm_entry_qual_status;
49     new_references.system_default_ind := x_system_default_ind;
50     new_references.closed_ind := x_closed_ind;
51     IF (p_action = 'UPDATE') THEN
52       new_references.creation_date := old_references.creation_date;
53       new_references.created_by := old_references.created_by;
54     ELSE
55       new_references.creation_date := x_creation_date;
56       new_references.created_by := x_created_by;
57     END IF;
58     new_references.last_update_date := x_last_update_date;
59     new_references.last_updated_by := x_last_updated_by;
60     new_references.last_update_login := x_last_update_login;
61 
62   END Set_Column_Values;
63 
64    PROCEDURE BeforeRowInsertUpdate1(
65     p_inserting IN BOOLEAN DEFAULT FALSE,
66     p_updating IN BOOLEAN DEFAULT FALSE,
67     p_deleting IN BOOLEAN DEFAULT FALSE
68     ) as
69 	v_message_name	varchar2(30);
70   BEGIN
71 	-- Validate Admission entry qualification status closed ind.
72 	IF p_inserting OR ((old_references.s_adm_entry_qual_status <>
73 				 new_references.s_adm_entry_qual_status) OR
74 			(old_references.closed_ind = 'Y' AND new_references.closed_ind = 'N')) THEN
75 		IF IGS_AD_VAL_AEQS.admp_val_saeqs_clsd(
76 					new_references.s_adm_entry_qual_status,
77 					v_message_name) = FALSE THEN
78 		Fnd_Message.Set_Name('IGS',v_message_name);
79 		IGS_GE_MSG_STACK.ADD;
80             App_Exception.Raise_Exception;
81 		END IF;
82 	END IF;
83 	IF (new_references.closed_ind = 'Y' AND new_references.system_default_ind = 'Y') THEN
84 		         Fnd_Message.Set_Name('IGS','IGS_AD_SYS_DFLT_IND_NOTSET_CLS');
85 		         IGS_GE_MSG_STACK.ADD;
86                      App_Exception.Raise_Exception;
87 	END IF;
88 
89 
90   END BeforeRowInsertUpdate1;
91 
92 PROCEDURE   Check_Constraints (
93                  Column_Name     IN   VARCHAR2    DEFAULT NULL ,
94                  Column_Value    IN   VARCHAR2    DEFAULT NULL
95                                 )  as
96 Begin
97 IF Column_Name is null THEN
98   NULL;
99 ELSIF upper(Column_name) = 'SYSTEM_DEFAULT_IND' THEN
100   new_references.SYSTEM_DEFAULT_IND:= COLUMN_VALUE ;
101 
102 ELSIF upper(Column_name) = 'CLOSED_IND' THEN
103   new_references.CLOSED_IND:= COLUMN_VALUE ;
104 
105 ELSIF upper(Column_name) = 'ADM_ENTRY_QUAL_STATUS' THEN
106   new_references.ADM_ENTRY_QUAL_STATUS:= COLUMN_VALUE ;
107 
108 
109 ELSIF upper(Column_name) = 'S_ADM_ENTRY_QUAL_STATUS' THEN
110   new_references.S_ADM_ENTRY_QUAL_STATUS:= COLUMN_VALUE ;
111 
112 END IF ;
113 
114 IF upper(Column_name) = 'SYSTEM_DEFAULT_IND' OR COLUMN_NAME IS NULL THEN
115   IF new_references.SYSTEM_DEFAULT_IND<> upper(new_references.SYSTEM_DEFAULT_IND) then
116     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
117     IGS_GE_MSG_STACK.ADD;
118     App_Exception.Raise_Exception ;
119   END IF;
120 
121   IF new_references.SYSTEM_DEFAULT_IND not in  ('Y','N') then
122     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
123     IGS_GE_MSG_STACK.ADD;
124     App_Exception.Raise_Exception ;
125   END IF;
126 
127 END IF ;
128 
129 IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
130   IF new_references.CLOSED_IND<> upper(new_references.CLOSED_IND) then
131     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
132     IGS_GE_MSG_STACK.ADD;
133     App_Exception.Raise_Exception ;
134   END IF;
135 
136   IF new_references.CLOSED_IND not in  ('Y','N') then
137     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
138     IGS_GE_MSG_STACK.ADD;
139     App_Exception.Raise_Exception ;
140   END IF;
141 
142 END IF ;
143 
144 IF upper(Column_name) = 'ADM_ENTRY_QUAL_STATUS' OR COLUMN_NAME IS NULL THEN
145   IF new_references.ADM_ENTRY_QUAL_STATUS<> upper(new_references.ADM_ENTRY_QUAL_STATUS) then
146     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
147     IGS_GE_MSG_STACK.ADD;
148     App_Exception.Raise_Exception ;
149   END IF;
150 
151 END IF ;
152 
153 
154 IF upper(Column_name) = 'S_ADM_ENTRY_QUAL_STATUS' OR COLUMN_NAME IS NULL THEN
155   IF new_references.S_ADM_ENTRY_QUAL_STATUS<> upper(new_references.S_ADM_ENTRY_QUAL_STATUS) then
156     Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
157     IGS_GE_MSG_STACK.ADD;
158     App_Exception.Raise_Exception ;
159   END IF;
160 
161 END IF ;
162 END Check_Constraints;
163 
164   PROCEDURE Check_Parent_Existance as
165   BEGIN
166 
167     IF (((old_references.s_adm_entry_qual_status = new_references.s_adm_entry_qual_status)) OR
168         ((new_references.s_adm_entry_qual_status IS NULL))) THEN
169       NULL;
170     ELSE
171 	IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
172 	'ADM_ENTRY_QUAL_STATUS',new_references.s_adm_entry_qual_status
173 	) THEN
174      Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
175      IGS_GE_MSG_STACK.ADD;
176      App_Exception.Raise_Exception;
177       END IF ;
178     END IF;
179 
180   END Check_Parent_Existance;
181 
182   PROCEDURE Check_Child_Existance as
183   BEGIN
184 
185     IGS_AD_PS_APPL_INST_PKG.GET_FK_IGS_AD_ENT_QF_STAT (
186       old_references.adm_entry_qual_status
187       );
188 
189   END Check_Child_Existance;
190 
191   FUNCTION Get_PK_For_Validation (
192     x_adm_entry_qual_status IN VARCHAR2,
193     x_closed_ind IN VARCHAR2
194     ) RETURN BOOLEAN
195    AS
196 
197     CURSOR cur_rowid IS
198       SELECT   rowid
199       FROM     IGS_AD_ENT_QF_STAT
200        WHERE    adm_entry_qual_status = x_adm_entry_qual_status AND
201                closed_ind = NVL(x_closed_ind,closed_ind);
202 
203     lv_rowid cur_rowid%RowType;
204 
205   BEGIN
206 
207     Open cur_rowid;
208     Fetch cur_rowid INTO lv_rowid;
209 
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 
218   END Get_PK_For_Validation;
219 
220   PROCEDURE GET_FK_IGS_LOOKUPS_VIEW(
221     x_s_adm_entry_qual_status IN VARCHAR2
222     ) as
223 
224     CURSOR cur_rowid IS
225       SELECT   rowid
226       FROM     IGS_AD_ENT_QF_STAT
227       WHERE    s_adm_entry_qual_status = x_s_adm_entry_qual_status ;
228 
229     lv_rowid cur_rowid%RowType;
230 
231   BEGIN
232 
233     Open cur_rowid;
234     Fetch cur_rowid INTO lv_rowid;
235     IF (cur_rowid%FOUND) THEN
236       Close cur_rowid;
237       Fnd_Message.Set_Name ('IGS', 'IGS_AD_AEQS_SAEQS_FK');
238       IGS_GE_MSG_STACK.ADD;
239       App_Exception.Raise_Exception;
240       Return;
241     END IF;
242     Close cur_rowid;
243 
244   END GET_FK_IGS_LOOKUPS_VIEW;
245 
246   PROCEDURE Before_DML (
247     p_action IN VARCHAR2,
248     x_rowid IN VARCHAR2 DEFAULT NULL,
249     x_adm_entry_qual_status IN VARCHAR2 DEFAULT NULL,
250     x_description IN VARCHAR2 DEFAULT NULL,
251     x_s_adm_entry_qual_status IN VARCHAR2 DEFAULT NULL,
252     x_system_default_ind IN VARCHAR2 DEFAULT NULL,
253     x_closed_ind 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   ) as
260   BEGIN
261 
262     Set_Column_Values (
263       p_action,
264       x_rowid,
265       x_adm_entry_qual_status,
266       x_description,
267       x_s_adm_entry_qual_status,
268       x_system_default_ind,
269       x_closed_ind,
270       x_creation_date,
271       x_created_by,
272       x_last_update_date,
273       x_last_updated_by,
274       x_last_update_login
275     );
276 
277     IF (p_action = 'INSERT') THEN
278       -- Call all the procedures related to Before Insert.
279       BeforeRowInsertUpdate1 ( p_inserting => TRUE );
280       IF  Get_PK_For_Validation (
281           new_references.adm_entry_qual_status
282           ) THEN
283          Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
284          IGS_GE_MSG_STACK.ADD;
285           App_Exception.Raise_Exception;
286       END IF;
287       Check_Constraints;
288       Check_Parent_Existance;
289     ELSIF (p_action = 'UPDATE') THEN
290       -- Call all the procedures related to Before Update.
291       BeforeRowInsertUpdate1 ( p_updating => TRUE );
292         Check_Constraints;
293       Check_Parent_Existance;
294     ELSIF (p_action = 'DELETE') THEN
295       -- Call all the procedures related to Before Delete.
296       Null;
297       Check_Child_Existance;
298 
299 ELSIF (p_action = 'VALIDATE_INSERT') THEN
300       IF  Get_PK_For_Validation (
301           new_references.adm_entry_qual_status
302           ) THEN
303          Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
304          IGS_GE_MSG_STACK.ADD;
305           App_Exception.Raise_Exception;
306       END IF;
307       Check_Constraints;
308  ELSIF (p_action = 'VALIDATE_UPDATE') THEN
309        Check_Constraints;
310  ELSIF (p_action = 'VALIDATE_DELETE') THEN
311      Check_Child_Existance;
312     END IF;
313   END Before_DML;
314 
315   PROCEDURE After_DML (
316     p_action IN VARCHAR2,
317     x_rowid IN VARCHAR2
318   ) as
319   BEGIN
320 
321     NULL;
322   --  Removed calls to afterinsertupdaterow2 as that procedure is removed from package.
323 
324   END After_DML;
325 
326 
327 procedure INSERT_ROW (
328   X_ROWID in out NOCOPY VARCHAR2,
329   X_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
330   X_DESCRIPTION in VARCHAR2,
331   X_S_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
332   X_SYSTEM_DEFAULT_IND in VARCHAR2,
333   X_CLOSED_IND in VARCHAR2,
334   X_MODE in VARCHAR2 default 'R'
335   ) as
336     cursor C is select ROWID from IGS_AD_ENT_QF_STAT
337       where ADM_ENTRY_QUAL_STATUS = X_ADM_ENTRY_QUAL_STATUS;
338     X_LAST_UPDATE_DATE DATE;
339     X_LAST_UPDATED_BY NUMBER;
340     X_LAST_UPDATE_LOGIN NUMBER;
341 begin
342   X_LAST_UPDATE_DATE := SYSDATE;
343   if(X_MODE = 'I') then
344     X_LAST_UPDATED_BY := 1;
345     X_LAST_UPDATE_LOGIN := 0;
346   elsif (X_MODE = 'R') then
347     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
348     if X_LAST_UPDATED_BY is NULL then
349       X_LAST_UPDATED_BY := -1;
350     end if;
351     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
352     if X_LAST_UPDATE_LOGIN is NULL then
353       X_LAST_UPDATE_LOGIN := -1;
354     end if;
355   else
356     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
357     IGS_GE_MSG_STACK.ADD;
358     app_exception.raise_exception;
359   end if;
360 
361 Before_DML(
362     p_action=>'INSERT' ,
363     x_rowid=>X_ROWID ,
364     x_adm_entry_qual_status=> X_ADM_ENTRY_QUAL_STATUS,
365     x_description=> X_DESCRIPTION,
366     x_s_adm_entry_qual_status => X_S_ADM_ENTRY_QUAL_STATUS,
367     x_system_default_ind => NVL(X_SYSTEM_DEFAULT_IND,'N'),
368     x_closed_ind => NVL(X_CLOSED_IND,'N') ,
369     x_creation_date=>X_LAST_UPDATE_DATE ,
370     x_created_by=>X_LAST_UPDATED_BY ,
371     x_last_update_date=>X_LAST_UPDATE_DATE ,
372     x_last_updated_by=>X_LAST_UPDATED_BY ,
373     x_last_update_login=> X_LAST_UPDATE_LOGIN
374        );
375 
376   insert into IGS_AD_ENT_QF_STAT (
377     ADM_ENTRY_QUAL_STATUS,
378     DESCRIPTION,
379     S_ADM_ENTRY_QUAL_STATUS,
380     SYSTEM_DEFAULT_IND,
381     CLOSED_IND,
382     CREATION_DATE,
383     CREATED_BY,
384     LAST_UPDATE_DATE,
385     LAST_UPDATED_BY,
386     LAST_UPDATE_LOGIN
387   ) values (
388     NEW_REFERENCES.ADM_ENTRY_QUAL_STATUS,
389     NEW_REFERENCES.DESCRIPTION,
390     NEW_REFERENCES.S_ADM_ENTRY_QUAL_STATUS,
391     NEW_REFERENCES.SYSTEM_DEFAULT_IND,
392     NEW_REFERENCES.CLOSED_IND,
393     X_LAST_UPDATE_DATE,
394     X_LAST_UPDATED_BY,
395     X_LAST_UPDATE_DATE,
396     X_LAST_UPDATED_BY,
397     X_LAST_UPDATE_LOGIN
398   );
399 
400   open c;
401   fetch c into X_ROWID;
402   if (c%notfound) then
403     close c;
404     raise no_data_found;
405   end if;
406   close c;
407 
408 After_DML(
409   p_action=>'INSERT',
410   x_rowid=> X_ROWID
411          );
412 
413 
414 
415 end INSERT_ROW;
416 
417 procedure LOCK_ROW (
418   X_ROWID  in varchar2 ,
419   X_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
420   X_DESCRIPTION in VARCHAR2,
421   X_S_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
422   X_SYSTEM_DEFAULT_IND in VARCHAR2,
423   X_CLOSED_IND in VARCHAR2
424 ) as
425   cursor c1 is select
426       DESCRIPTION,
427       S_ADM_ENTRY_QUAL_STATUS,
428       SYSTEM_DEFAULT_IND,
429       CLOSED_IND
430     from IGS_AD_ENT_QF_STAT
431     WHERE  ROWID = X_ROWID  for update nowait ;
432   tlinfo c1%rowtype;
433 
434 begin
435   open c1;
436   fetch c1 into tlinfo;
437   if (c1%notfound) then
438     close c1;
439     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
440     IGS_GE_MSG_STACK.ADD;
441     app_exception.raise_exception;
442     return;
443   end if;
444   close c1;
445 
446   if ( (tlinfo.DESCRIPTION = X_DESCRIPTION)
447       AND (tlinfo.S_ADM_ENTRY_QUAL_STATUS = X_S_ADM_ENTRY_QUAL_STATUS)
448       AND (tlinfo.SYSTEM_DEFAULT_IND = X_SYSTEM_DEFAULT_IND)
449       AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
450   ) then
451     null;
452   else
453     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
454     IGS_GE_MSG_STACK.ADD;
455     app_exception.raise_exception;
456   end if;
457   return;
458 end LOCK_ROW;
459 
460 procedure UPDATE_ROW (
461   X_ROWID in varchar2,
462   X_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
463   X_DESCRIPTION in VARCHAR2,
464   X_S_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
465   X_SYSTEM_DEFAULT_IND in VARCHAR2,
466   X_CLOSED_IND in VARCHAR2,
467   X_MODE in VARCHAR2 default 'R'
468   ) as
469     X_LAST_UPDATE_DATE DATE;
470     X_LAST_UPDATED_BY NUMBER;
471     X_LAST_UPDATE_LOGIN NUMBER;
472 begin
473   X_LAST_UPDATE_DATE := SYSDATE;
474   if(X_MODE = 'I') then
475     X_LAST_UPDATED_BY := 1;
476     X_LAST_UPDATE_LOGIN := 0;
477   elsif (X_MODE = 'R') then
478     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
479     if X_LAST_UPDATED_BY is NULL then
480       X_LAST_UPDATED_BY := -1;
481     end if;
482     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
483     if X_LAST_UPDATE_LOGIN is NULL then
484       X_LAST_UPDATE_LOGIN := -1;
485     end if;
486   else
487     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
488     IGS_GE_MSG_STACK.ADD;
489     app_exception.raise_exception;
490   end if;
491 
492 Before_DML(
493     p_action=>'UPDATE' ,
494     x_rowid=>X_ROWID ,
495     x_adm_entry_qual_status=> X_ADM_ENTRY_QUAL_STATUS,
496     x_description=> X_DESCRIPTION,
497     x_s_adm_entry_qual_status => X_S_ADM_ENTRY_QUAL_STATUS,
498     x_system_default_ind => X_SYSTEM_DEFAULT_IND,
499     x_closed_ind => X_CLOSED_IND,
500     x_creation_date=>X_LAST_UPDATE_DATE ,
501     x_created_by=>X_LAST_UPDATED_BY ,
502     x_last_update_date=>X_LAST_UPDATE_DATE ,
503     x_last_updated_by=>X_LAST_UPDATED_BY ,
504     x_last_update_login=> X_LAST_UPDATE_LOGIN
505        );
506 
507 
508   update IGS_AD_ENT_QF_STAT set
509     DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
510     S_ADM_ENTRY_QUAL_STATUS = NEW_REFERENCES.S_ADM_ENTRY_QUAL_STATUS,
511     SYSTEM_DEFAULT_IND = NEW_REFERENCES.SYSTEM_DEFAULT_IND,
512     CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
513     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
514     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
515     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
516   where ROWID = X_ROWID
517   ;
518   if (sql%notfound) then
519     raise no_data_found;
520   end if;
521 
522 After_DML(
523   p_action=>'UPDATE',
524   x_rowid=> X_ROWID
525          );
526 
527 
528 end UPDATE_ROW;
529 
530 procedure ADD_ROW (
531   X_ROWID in out NOCOPY VARCHAR2,
532   X_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
533   X_DESCRIPTION in VARCHAR2,
534   X_S_ADM_ENTRY_QUAL_STATUS in VARCHAR2,
535   X_SYSTEM_DEFAULT_IND in VARCHAR2,
536   X_CLOSED_IND in VARCHAR2,
537   X_MODE in VARCHAR2 default 'R'
538   ) as
539   cursor c1 is select rowid from IGS_AD_ENT_QF_STAT
540      where ADM_ENTRY_QUAL_STATUS = X_ADM_ENTRY_QUAL_STATUS
541   ;
542 
543 begin
544   open c1;
545   fetch c1 into X_ROWID;
546   if (c1%notfound) then
547     close c1;
548     INSERT_ROW (
549      X_ROWID,
550      X_ADM_ENTRY_QUAL_STATUS,
551      X_DESCRIPTION,
552      X_S_ADM_ENTRY_QUAL_STATUS,
553      X_SYSTEM_DEFAULT_IND,
554      X_CLOSED_IND,
555      X_MODE);
556     return;
557   end if;
558   close c1;
559   UPDATE_ROW (
560    X_ROWID  ,
561    X_ADM_ENTRY_QUAL_STATUS,
562    X_DESCRIPTION,
563    X_S_ADM_ENTRY_QUAL_STATUS,
564    X_SYSTEM_DEFAULT_IND,
565    X_CLOSED_IND,
566    X_MODE);
567 end ADD_ROW;
568 
569 procedure DELETE_ROW (
570   X_ROWID in varchar2
571 ) as
572 begin
573 
574  Before_DML(
575   p_action=>'DELETE',
576   x_rowid=> X_ROWID
577          );
578 
579   delete from IGS_AD_ENT_QF_STAT
580   where ROWID = X_ROWID;
581   if (sql%notfound) then
582     raise no_data_found;
583   end if;
584 
585 After_DML(
586   p_action=>'DELETE',
587   x_rowid=> X_ROWID
588          );
589 
590 end DELETE_ROW;
591 
592 end IGS_AD_ENT_QF_STAT_PKG;