[Home] [Help]
1: package body IGS_PS_OF_UNT_SET_RL_PKG as
2: /* $Header: IGSPI51B.pls 115.3 2002/11/29 02:30:09 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_UNT_SET_RL%RowType;
1: package body IGS_PS_OF_UNT_SET_RL_PKG as
2: /* $Header: IGSPI51B.pls 115.3 2002/11/29 02:30:09 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_UNT_SET_RL%RowType;
6: new_references IGS_PS_OF_UNT_SET_RL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI51B.pls 115.3 2002/11/29 02:30:09 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_UNT_SET_RL%RowType;
6: new_references IGS_PS_OF_UNT_SET_RL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
23: ) AS
24:
25: CURSOR cur_old_ref_values IS
26: SELECT *
27: FROM IGS_PS_OF_UNT_SET_RL
28: WHERE rowid = x_rowid;
29:
30: BEGIN
31:
275: ) RETURN BOOLEAN AS
276:
277: CURSOR cur_rowid IS
278: SELECT rowid
279: FROM IGS_PS_OF_UNT_SET_RL
280: WHERE course_cd = x_course_cd
281: AND crv_version_number = x_crv_version_number
282: AND cal_type = x_cal_type
283: AND sup_unit_set_cd = x_sup_unit_set_cd
310: ) AS
311:
312: CURSOR cur_rowid IS
313: SELECT rowid
314: FROM IGS_PS_OF_UNT_SET_RL
315: WHERE (course_cd = x_course_cd
316: AND crv_version_number = x_crv_version_number
317: AND cal_type = x_cal_type
318: AND sub_unit_set_cd = x_unit_set_cd
443: X_CAL_TYPE in VARCHAR2,
444: X_SUB_US_VERSION_NUMBER in NUMBER,
445: X_MODE in VARCHAR2 default 'R'
446: ) AS
447: cursor C is select ROWID from IGS_PS_OF_UNT_SET_RL
448: where COURSE_CD = X_COURSE_CD
449: and CRV_VERSION_NUMBER = X_CRV_VERSION_NUMBER
450: and SUP_US_VERSION_NUMBER = X_SUP_US_VERSION_NUMBER
451: and SUB_UNIT_SET_CD = X_SUB_UNIT_SET_CD
490: x_last_updated_by => X_LAST_UPDATED_BY,
491: x_last_update_login => X_LAST_UPDATE_LOGIN
492: );
493:
494: insert into IGS_PS_OF_UNT_SET_RL (
495: COURSE_CD,
496: CRV_VERSION_NUMBER,
497: CAL_TYPE,
498: SUP_UNIT_SET_CD,
545: X_CAL_TYPE in VARCHAR2,
546: X_SUB_US_VERSION_NUMBER in NUMBER
547: ) AS
548: cursor c1 is select ROWID
549: from IGS_PS_OF_UNT_SET_RL
550: where ROWID = X_ROWID for update nowait;
551: tlinfo c1%rowtype;
552:
553: begin
570: begin
571: Before_DML( p_action => 'DELETE',
572: x_rowid => X_ROWID
573: );
574: delete from IGS_PS_OF_UNT_SET_RL
575: where ROWID = X_ROWID;
576: if (sql%notfound) then
577: raise no_data_found;
578: end if;
582: );
583:
584: end DELETE_ROW;
585:
586: end IGS_PS_OF_UNT_SET_RL_PKG;