1: package body IGS_PS_CAT_PKG AS
2: /* $Header: IGSPI08B.pls 115.3 2002/11/29 01:54:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_CAT%RowType;
1: package body IGS_PS_CAT_PKG AS
2: /* $Header: IGSPI08B.pls 115.3 2002/11/29 01:54:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_CAT%RowType;
6: new_references IGS_PS_CAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI08B.pls 115.3 2002/11/29 01:54:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_CAT%RowType;
6: new_references IGS_PS_CAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_PS_CAT
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
94:
95: PROCEDURE Check_Child_Existance AS
96: BEGIN
97:
98: IGS_PS_CATEGORISE_PKG.GET_FK_IGS_PS_CAT (
99: old_references.course_cat
100: );
101:
102: END Check_Child_Existance;
107: RETURN BOOLEAN AS
108:
109: CURSOR cur_rowid IS
110: SELECT rowid
111: FROM IGS_PS_CAT
112: WHERE course_cat = x_course_cat
113: FOR UPDATE NOWAIT;
114:
115: lv_rowid cur_rowid%RowType;
205: X_DESCRIPTION in VARCHAR2,
206: X_CLOSED_IND in VARCHAR2,
207: X_MODE in VARCHAR2 default 'R'
208: ) AS
209: cursor C is select ROWID from IGS_PS_CAT
210: where COURSE_CAT = X_COURSE_CAT;
211: X_LAST_UPDATE_DATE DATE;
212: X_LAST_UPDATED_BY NUMBER;
213: X_LAST_UPDATE_LOGIN NUMBER;
243: x_last_updated_by => X_LAST_UPDATED_BY ,
244: x_last_update_login => X_LAST_UPDATE_LOGIN
245: );
246:
247: insert into IGS_PS_CAT (
248: COURSE_CAT,
249: DESCRIPTION,
250: CLOSED_IND,
251: CREATION_DATE,
287: ) AS
288: cursor c1 is select
289: DESCRIPTION,
290: CLOSED_IND
291: from IGS_PS_CAT
292: where ROWID = X_ROWID
293: for update nowait;
294: tlinfo c1%rowtype;
295:
359: x_last_updated_by => X_LAST_UPDATED_BY ,
360: x_last_update_login => X_LAST_UPDATE_LOGIN
361: );
362:
363: update IGS_PS_CAT set
364: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
365: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
366: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
367: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
385: X_DESCRIPTION in VARCHAR2,
386: X_CLOSED_IND in VARCHAR2,
387: X_MODE in VARCHAR2 default 'R'
388: ) AS
389: cursor c1 is select rowid from IGS_PS_CAT
390: where COURSE_CAT = X_COURSE_CAT
391: ;
392: begin
393: open c1;
420: p_action => 'DELETE',
421: x_rowid => X_ROWID
422: );
423:
424: delete from IGS_PS_CAT
425: where ROWID = X_ROWID;
426: if (sql%notfound) then
427: raise no_data_found;
428: end if;
433: );
434:
435: end DELETE_ROW;
436:
437: end IGS_PS_CAT_PKG;