DBA Data[Home] [Help]

PACKAGE BODY: APPS.IGS_AD_CNDNL_OFRSTAT_PKG

Source


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