1: package body IGS_PS_STAGE_TYPE_PKG AS
2: /* $Header: IGSPI34B.pls 115.4 2002/11/29 02:22:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAGE_TYPE%RowType;
1: package body IGS_PS_STAGE_TYPE_PKG AS
2: /* $Header: IGSPI34B.pls 115.4 2002/11/29 02:22:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAGE_TYPE%RowType;
6: new_references IGS_PS_STAGE_TYPE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI34B.pls 115.4 2002/11/29 02:22:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_STAGE_TYPE%RowType;
6: new_references IGS_PS_STAGE_TYPE%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_STAGE_TYPE
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
93:
94: PROCEDURE Check_Child_Existance AS
95: BEGIN
96:
97: IGS_PS_STAGE_PKG.GET_FK_IGS_PS_STAGE_TYPE (
98: old_references.course_stage_type
99: );
100: IGS_PS_RSV_ORGUN_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
101: old_references.course_stage_type
96:
97: IGS_PS_STAGE_PKG.GET_FK_IGS_PS_STAGE_TYPE (
98: old_references.course_stage_type
99: );
100: IGS_PS_RSV_ORGUN_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
101: old_references.course_stage_type
102: );
103: IGS_PS_RSV_UOP_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
104: old_references.course_stage_type
99: );
100: IGS_PS_RSV_ORGUN_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
101: old_references.course_stage_type
102: );
103: IGS_PS_RSV_UOP_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
104: old_references.course_stage_type
105: );
106: IGS_PS_RSV_USEC_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
107: old_references.course_stage_type
102: );
103: IGS_PS_RSV_UOP_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
104: old_references.course_stage_type
105: );
106: IGS_PS_RSV_USEC_PRF_PKG.GET_FK_IGS_PS_STAGE_TYPE(
107: old_references.course_stage_type
108: );
109: END Check_Child_Existance;
110:
113: ) RETURN BOOLEAN AS
114:
115: CURSOR cur_rowid IS
116: SELECT rowid
117: FROM IGS_PS_STAGE_TYPE
118: WHERE course_stage_type = x_course_stage_type
119: FOR UPDATE NOWAIT;
120:
121: lv_rowid cur_rowid%RowType;
212: X_DESCRIPTION in VARCHAR2,
213: X_CLOSED_IND in VARCHAR2,
214: X_MODE in VARCHAR2 default 'R'
215: ) AS
216: cursor C is select ROWID from IGS_PS_STAGE_TYPE
217: where COURSE_STAGE_TYPE = X_COURSE_STAGE_TYPE;
218: X_LAST_UPDATE_DATE DATE;
219: X_LAST_UPDATED_BY NUMBER;
220: X_LAST_UPDATE_LOGIN NUMBER;
248: x_last_update_date => X_LAST_UPDATE_DATE,
249: x_last_updated_by => X_LAST_UPDATED_BY,
250: x_last_update_login => X_LAST_UPDATE_LOGIN
251: );
252: insert into IGS_PS_STAGE_TYPE (
253: COURSE_STAGE_TYPE,
254: DESCRIPTION,
255: CLOSED_IND,
256: CREATION_DATE,
291: ) AS
292: cursor c1 is select
293: DESCRIPTION,
294: CLOSED_IND
295: from IGS_PS_STAGE_TYPE
296: where ROWID = X_ROWID for update nowait;
297: tlinfo c1%rowtype;
298:
299: begin
360: x_last_update_date => X_LAST_UPDATE_DATE,
361: x_last_updated_by => X_LAST_UPDATED_BY,
362: x_last_update_login => X_LAST_UPDATE_LOGIN
363: );
364: update IGS_PS_STAGE_TYPE set
365: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
366: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
367: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
368: 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_STAGE_TYPE
390: where COURSE_STAGE_TYPE = X_COURSE_STAGE_TYPE
391: ;
392: begin
393: open c1;
417: begin
418: Before_DML( p_action => 'DELETE',
419: x_rowid => X_ROWID
420: );
421: delete from IGS_PS_STAGE_TYPE
422: where ROWID = X_ROWID
423: ;
424: if (sql%notfound) then
425: raise no_data_found;
430: );
431:
432: end DELETE_ROW;
433:
434: end IGS_PS_STAGE_TYPE_PKG;