1: package body IGS_RE_GV_SEO_CLS_CD_PKG as
2: /* $Header: IGSRI08B.pls 115.3 2002/11/29 03:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_SEO_CLS_CD%RowType;
1: package body IGS_RE_GV_SEO_CLS_CD_PKG as
2: /* $Header: IGSRI08B.pls 115.3 2002/11/29 03:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_SEO_CLS_CD%RowType;
6: new_references IGS_RE_GV_SEO_CLS_CD%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSRI08B.pls 115.3 2002/11/29 03:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_SEO_CLS_CD%RowType;
6: new_references IGS_RE_GV_SEO_CLS_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_GV_SEO_CLS_CD
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
91:
92: PROCEDURE Check_Child_Existance AS
93: BEGIN
94:
95: IGS_RE_SEO_CLASS_CD_PKG.GET_FK_IGS_RE_GV_SEO_CLS_CD (
96: old_references.govt_seo_class_cd
97: );
98:
99: END Check_Child_Existance;
105: AS
106:
107: CURSOR cur_rowid IS
108: SELECT rowid
109: FROM IGS_RE_GV_SEO_CLS_CD
110: WHERE govt_seo_class_cd = x_govt_seo_class_cd
111: FOR UPDATE NOWAIT;
112:
113: lv_rowid cur_rowid%RowType;
197: X_RES_FCD_CLASS_IND in VARCHAR2,
198: X_CLOSED_IND in VARCHAR2,
199: X_MODE in VARCHAR2 default 'R'
200: ) as
201: cursor C is select ROWID from IGS_RE_GV_SEO_CLS_CD
202: where GOVT_SEO_CLASS_CD = X_GOVT_SEO_CLASS_CD;
203: X_LAST_UPDATE_DATE DATE;
204: X_LAST_UPDATED_BY NUMBER;
205: X_LAST_UPDATE_LOGIN NUMBER;
236: x_last_update_date => X_LAST_UPDATE_DATE,
237: x_last_update_login => X_LAST_UPDATE_LOGIN
238: );
239:
240: insert into IGS_RE_GV_SEO_CLS_CD (
241: GOVT_SEO_CLASS_CD,
242: DESCRIPTION,
243: RES_FCD_CLASS_IND,
244: CLOSED_IND,
279: cursor c1 is select
280: DESCRIPTION,
281: RES_FCD_CLASS_IND,
282: CLOSED_IND
283: from IGS_RE_GV_SEO_CLS_CD
284: where rowid = x_rowid
285: for update nowait;
286: tlinfo c1%rowtype;
287:
352: x_last_update_date => X_LAST_UPDATE_DATE,
353: x_last_update_login => X_LAST_UPDATE_LOGIN
354: );
355:
356: update IGS_RE_GV_SEO_CLS_CD set
357: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
358: RES_FCD_CLASS_IND = NEW_REFERENCES.RES_FCD_CLASS_IND,
359: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
360: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
375: X_RES_FCD_CLASS_IND in VARCHAR2,
376: X_CLOSED_IND in VARCHAR2,
377: X_MODE in VARCHAR2 default 'R'
378: ) as
379: cursor c1 is select rowid from IGS_RE_GV_SEO_CLS_CD
380: where GOVT_SEO_CLASS_CD = X_GOVT_SEO_CLASS_CD
381: ;
382: begin
383: open c1;
412: p_action => 'DELETE',
413: x_rowid => X_ROWID
414: );
415:
416: delete from IGS_RE_GV_SEO_CLS_CD
417: where ROWID = X_ROWID;
418: if (sql%notfound) then
419: raise no_data_found;
420: end if;
420: end if;
421:
422: end DELETE_ROW;
423:
424: end IGS_RE_GV_SEO_CLS_CD_PKG;