[Home] [Help]
1: package body IGS_EN_UNITSETPSTYPE_PKG AS
2: /* $Header: IGSEI03B.pls 115.5 2003/06/05 13:03:36 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNITSETPSTYPE%RowType;
1: package body IGS_EN_UNITSETPSTYPE_PKG AS
2: /* $Header: IGSEI03B.pls 115.5 2003/06/05 13:03:36 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNITSETPSTYPE%RowType;
6: new_references IGS_EN_UNITSETPSTYPE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI03B.pls 115.5 2003/06/05 13:03:36 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNITSETPSTYPE%RowType;
6: new_references IGS_EN_UNITSETPSTYPE%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_EN_UNITSETPSTYPE
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
59:
60: -- Trigger description :-
61: -- "OSS_TST".trg_usct_br_iud
62: -- BEFORE INSERT OR DELETE OR UPDATE
63: -- ON IGS_EN_UNITSETPSTYPE
64: -- FOR EACH ROW
65:
66: PROCEDURE BeforeRowInsertUpdateDelete1(
67: p_inserting IN BOOLEAN DEFAULT FALSE,
67: p_inserting IN BOOLEAN DEFAULT FALSE,
68: p_updating IN BOOLEAN DEFAULT FALSE,
69: p_deleting IN BOOLEAN DEFAULT FALSE
70: ) AS
71: v_unit_set_cd IGS_EN_UNITSETPSTYPE.unit_set_cd%TYPE;
72: v_version_number IGS_EN_UNITSETPSTYPE.version_number%TYPE;
73: v_message_name varchar2(30);
74: BEGIN
75: -- Set variables.
68: p_updating IN BOOLEAN DEFAULT FALSE,
69: p_deleting IN BOOLEAN DEFAULT FALSE
70: ) AS
71: v_unit_set_cd IGS_EN_UNITSETPSTYPE.unit_set_cd%TYPE;
72: v_version_number IGS_EN_UNITSETPSTYPE.version_number%TYPE;
73: v_message_name varchar2(30);
74: BEGIN
75: -- Set variables.
76: IF p_deleting THEN
189: ) RETURN BOOLEAN AS
190:
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM IGS_EN_UNITSETPSTYPE
194: WHERE unit_set_cd = x_unit_set_cd
195: AND version_number = x_version_number
196: AND course_type = x_course_type
197: FOR UPDATE NOWAIT;
221: ) AS
222:
223: CURSOR cur_rowid IS
224: SELECT rowid
225: FROM IGS_EN_UNITSETPSTYPE
226: WHERE unit_set_cd = x_unit_set_cd
227: AND version_number = x_version_number ;
228:
229: lv_rowid cur_rowid%RowType;
344: X_VERSION_NUMBER in NUMBER,
345: X_COURSE_TYPE in VARCHAR2,
346: X_MODE in VARCHAR2 default 'R'
347: ) AS
348: cursor C is select ROWID from IGS_EN_UNITSETPSTYPE
349: where UNIT_SET_CD = X_UNIT_SET_CD
350: and VERSION_NUMBER = X_VERSION_NUMBER
351: and COURSE_TYPE = X_COURSE_TYPE;
352: X_LAST_UPDATE_DATE DATE;
384: x_last_updated_by => x_last_updated_by ,
385: x_last_update_login => x_last_updated_by
386: );
387:
388: insert into IGS_EN_UNITSETPSTYPE (
389: UNIT_SET_CD,
390: VERSION_NUMBER,
391: COURSE_TYPE,
392: CREATION_DATE,
427: X_COURSE_TYPE in VARCHAR2
428: ) AS
429: cursor c1 is select
430: ROWID
431: from IGS_EN_UNITSETPSTYPE
432: where ROWID = X_ROWID
433: for update nowait;
434: tlinfo c1%rowtype;
435:
455: Before_DML(
456: p_action => 'DELETE',
457: x_rowid => X_ROWID
458: );
459: delete from IGS_EN_UNITSETPSTYPE
460: where ROWID = X_ROWID;
461: if (sql%notfound) then
462: raise no_data_found;
463: end if;
468: );
469:
470: end DELETE_ROW;
471:
472: end IGS_EN_UNITSETPSTYPE_PKG;