[Home] [Help]
1: package body IGS_PS_STAT_PKG AS
2: /* $Header: IGSPI35B.pls 115.3 2002/11/29 02:22:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAT%RowType;
1: package body IGS_PS_STAT_PKG AS
2: /* $Header: IGSPI35B.pls 115.3 2002/11/29 02:22:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAT%RowType;
6: new_references IGS_PS_STAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI35B.pls 115.3 2002/11/29 02:22:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAT%RowType;
6: new_references IGS_PS_STAT%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_PS_STAT
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
108:
109: PROCEDURE Check_Child_Existance AS
110: BEGIN
111:
112: IGS_PS_VER_PKG.GET_FK_IGS_PS_STAT (
113: old_references.course_status
114: );
115:
116: END Check_Child_Existance;
120: ) RETURN BOOLEAN AS
121:
122: CURSOR cur_rowid IS
123: SELECT rowid
124: FROM IGS_PS_STAT
125: WHERE course_status = x_course_status
126: FOR UPDATE NOWAIT;
127:
128: lv_rowid cur_rowid%RowType;
221: X_S_COURSE_STATUS in VARCHAR2,
222: X_CLOSED_IND in VARCHAR2,
223: X_MODE in VARCHAR2 default 'R'
224: ) AS
225: cursor C is select ROWID from IGS_PS_STAT
226: where COURSE_STATUS = X_COURSE_STATUS;
227: X_LAST_UPDATE_DATE DATE;
228: X_LAST_UPDATED_BY NUMBER;
229: X_LAST_UPDATE_LOGIN NUMBER;
257: x_last_update_date => X_LAST_UPDATE_DATE,
258: x_last_updated_by => X_LAST_UPDATED_BY,
259: x_last_update_login => X_LAST_UPDATE_LOGIN
260: );
261: insert into IGS_PS_STAT (
262: COURSE_STATUS,
263: DESCRIPTION,
264: S_COURSE_STATUS,
265: CLOSED_IND,
303: cursor c1 is select
304: DESCRIPTION,
305: S_COURSE_STATUS,
306: CLOSED_IND
307: from IGS_PS_STAT
308: where ROWID = X_ROWID for update nowait;
309: tlinfo c1%rowtype;
310:
311: begin
375: x_last_updated_by => X_LAST_UPDATED_BY,
376: x_last_update_login => X_LAST_UPDATE_LOGIN
377: );
378:
379: update IGS_PS_STAT set
380: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
381: S_COURSE_STATUS = NEW_REFERENCES.S_COURSE_STATUS,
382: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
383: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
402: X_S_COURSE_STATUS in VARCHAR2,
403: X_CLOSED_IND in VARCHAR2,
404: X_MODE in VARCHAR2 default 'R'
405: ) AS
406: cursor c1 is select rowid from IGS_PS_STAT
407: where COURSE_STATUS = X_COURSE_STATUS
408: ;
409: begin
410: open c1;
437: Before_DML( p_action => 'DELETE',
438: x_rowid => X_ROWID
439: );
440:
441: delete from IGS_PS_STAT
442: where ROWID = X_ROWID;
443: if (sql%notfound) then
444: raise no_data_found;
445: end if;
448: x_rowid => X_ROWID
449: );
450: end DELETE_ROW;
451:
452: end IGS_PS_STAT_PKG;