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_OFRDFRMT_STAT_PKG

Source


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