[Home] [Help]
1: package body IGS_AD_TER_ED_LVL_QF_PKG as
2: /* $Header: IGSAI52B.pls 115.4 2003/10/30 13:13:28 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LVL_QF%RowType;
1: package body IGS_AD_TER_ED_LVL_QF_PKG as
2: /* $Header: IGSAI52B.pls 115.4 2003/10/30 13:13:28 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LVL_QF%RowType;
6: new_references IGS_AD_TER_ED_LVL_QF%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI52B.pls 115.4 2003/10/30 13:13:28 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LVL_QF%RowType;
6: new_references IGS_AD_TER_ED_LVL_QF%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_AD_TER_ED_LVL_QF
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
154: )return BOOLEAN AS
155:
156: CURSOR cur_rowid IS
157: SELECT rowid
158: FROM IGS_AD_TER_ED_LVL_QF
159: WHERE tertiary_edu_lvl_qual = x_tertiary_edu_lvl_qual AND
160: closed_ind = NVL(x_closed_ind,closed_ind)
161: FOR UPDATE NOWAIT;
162:
181: ) AS
182:
183: CURSOR cur_rowid IS
184: SELECT rowid
185: FROM IGS_AD_TER_ED_LVL_QF
186: WHERE tac_level_of_qual = x_tac_level_of_qual ;
187:
188: lv_rowid cur_rowid%RowType;
189:
281: X_TAC_LEVEL_OF_QUAL in VARCHAR2,
282: X_CLOSED_IND in VARCHAR2,
283: X_MODE in VARCHAR2 default 'R'
284: ) as
285: cursor C is select ROWID from IGS_AD_TER_ED_LVL_QF
286: where TERTIARY_EDU_LVL_QUAL = X_TERTIARY_EDU_LVL_QUAL;
287: X_LAST_UPDATE_DATE DATE;
288: X_LAST_UPDATED_BY NUMBER;
289: X_LAST_UPDATE_LOGIN NUMBER;
318: x_last_update_date => X_LAST_UPDATE_DATE,
319: x_last_updated_by => X_LAST_UPDATED_BY,
320: x_last_update_login => X_LAST_UPDATE_LOGIN
321: );
322: insert into IGS_AD_TER_ED_LVL_QF (
323: TERTIARY_EDU_LVL_QUAL,
324: DESCRIPTION,
325: TAC_LEVEL_OF_QUAL,
326: CLOSED_IND,
365: cursor c1 is select
366: DESCRIPTION,
367: TAC_LEVEL_OF_QUAL,
368: CLOSED_IND
369: from IGS_AD_TER_ED_LVL_QF
370: where ROWID = X_ROWID for update nowait;
371: tlinfo c1%rowtype;
372:
373: begin
439: x_last_update_date => X_LAST_UPDATE_DATE,
440: x_last_updated_by => X_LAST_UPDATED_BY,
441: x_last_update_login => X_LAST_UPDATE_LOGIN
442: );
443: update IGS_AD_TER_ED_LVL_QF set
444: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
445: TAC_LEVEL_OF_QUAL = NEW_REFERENCES.TAC_LEVEL_OF_QUAL,
446: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
447: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
465: X_TAC_LEVEL_OF_QUAL in VARCHAR2,
466: X_CLOSED_IND in VARCHAR2,
467: X_MODE in VARCHAR2 default 'R'
468: ) as
469: cursor c1 is select rowid from IGS_AD_TER_ED_LVL_QF
470: where TERTIARY_EDU_LVL_QUAL = X_TERTIARY_EDU_LVL_QUAL
471: ;
472: begin
473: open c1;
500: Before_DML (
501: p_action => 'DELETE',
502: x_rowid => X_ROWID
503: );
504: delete from IGS_AD_TER_ED_LVL_QF
505: where ROWID = X_ROWID;
506: if (sql%notfound) then
507: raise no_data_found;
508: end if;
511: x_rowid => X_ROWID
512: );
513: end DELETE_ROW;
514:
515: end IGS_AD_TER_ED_LVL_QF_PKG;