[Home] [Help]
1: package body IGS_RE_SEO_CLASS_CD_PKG as
2: /* $Header: IGSRI12B.pls 115.3 2002/11/29 03:34:18 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_SEO_CLASS_CD%RowType;
1: package body IGS_RE_SEO_CLASS_CD_PKG as
2: /* $Header: IGSRI12B.pls 115.3 2002/11/29 03:34:18 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_SEO_CLASS_CD%RowType;
6: new_references IGS_RE_SEO_CLASS_CD%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSRI12B.pls 115.3 2002/11/29 03:34:18 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_SEO_CLASS_CD%RowType;
6: new_references IGS_RE_SEO_CLASS_CD%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
20: ) AS
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGS_RE_SEO_CLASS_CD
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
130:
131: PROCEDURE Check_Child_Existance AS
132: BEGIN
133:
134: IGS_RE_CAND_SEO_CLS_PKG.GET_FK_IGS_RE_SEO_CLASS_CD (
135: old_references.seo_class_cd
136: );
137:
138: END Check_Child_Existance;
143: AS
144:
145: CURSOR cur_rowid IS
146: SELECT rowid
147: FROM IGS_RE_SEO_CLASS_CD
148: WHERE seo_class_cd = x_seo_class_cd
149: FOR UPDATE NOWAIT;
150:
151: lv_rowid cur_rowid%RowType;
169: ) AS
170:
171: CURSOR cur_rowid IS
172: SELECT rowid
173: FROM IGS_RE_SEO_CLASS_CD
174: WHERE GOVT_SEO_CLASS_CD = x_govt_seo_class_cd ;
175:
176: lv_rowid cur_rowid%RowType;
177:
263: X_DESCRIPTION in VARCHAR2,
264: X_CLOSED_IND in VARCHAR2,
265: X_MODE in VARCHAR2 default 'R'
266: ) as
267: cursor C is select ROWID from IGS_RE_SEO_CLASS_CD
268: where SEO_CLASS_CD = X_SEO_CLASS_CD;
269: X_LAST_UPDATE_DATE DATE;
270: X_LAST_UPDATED_BY NUMBER;
271: X_LAST_UPDATE_LOGIN NUMBER;
302: x_last_update_date => X_LAST_UPDATE_DATE,
303: x_last_update_login => X_LAST_UPDATE_LOGIN
304: );
305:
306: insert into IGS_RE_SEO_CLASS_CD (
307: SEO_CLASS_CD,
308: GOVT_SEO_CLASS_CD,
309: DESCRIPTION,
310: CLOSED_IND,
345: cursor c1 is select
346: GOVT_SEO_CLASS_CD,
347: DESCRIPTION,
348: CLOSED_IND
349: from IGS_RE_SEO_CLASS_CD
350: where ROWID = X_ROWID
351: for update nowait;
352: tlinfo c1%rowtype;
353:
418: x_last_update_date => X_LAST_UPDATE_DATE,
419: x_last_update_login => X_LAST_UPDATE_LOGIN
420: );
421:
422: update IGS_RE_SEO_CLASS_CD set
423: GOVT_SEO_CLASS_CD = NEW_REFERENCES.GOVT_SEO_CLASS_CD,
424: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
425: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
426: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
441: X_DESCRIPTION in VARCHAR2,
442: X_CLOSED_IND in VARCHAR2,
443: X_MODE in VARCHAR2 default 'R'
444: ) as
445: cursor c1 is select rowid from IGS_RE_SEO_CLASS_CD
446: where SEO_CLASS_CD = X_SEO_CLASS_CD
447: ;
448: begin
449: open c1;
478: p_action => 'DELETE',
479: x_rowid => X_ROWID
480: );
481:
482: delete from IGS_RE_SEO_CLASS_CD
483: where ROWID = X_ROWID;
484: if (sql%notfound) then
485: raise no_data_found;
486: end if;
485: raise no_data_found;
486: end if;
487: end DELETE_ROW;
488:
489: end IGS_RE_SEO_CLASS_CD_PKG;