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_GE_S_HELP_CTRL_PKG

Source


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