[Home] [Help]
1: package body IGS_AD_TER_ED_LV_COM_PKG as
2: /* $Header: IGSAI53B.pls 115.4 2003/10/30 13:13:32 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LV_COM%RowType;
1: package body IGS_AD_TER_ED_LV_COM_PKG as
2: /* $Header: IGSAI53B.pls 115.4 2003/10/30 13:13:32 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LV_COM%RowType;
6: new_references IGS_AD_TER_ED_LV_COM%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI53B.pls 115.4 2003/10/30 13:13:32 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TER_ED_LV_COM%RowType;
6: new_references IGS_AD_TER_ED_LV_COM%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_LV_COM
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_LV_COM
159: WHERE tertiary_edu_lvl_comp = x_tertiary_edu_lvl_comp 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_LV_COM
186: WHERE tac_level_of_comp = x_tac_level_of_comp ;
187:
188: lv_rowid cur_rowid%RowType;
189:
281: X_TAC_LEVEL_OF_COMP 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_LV_COM
286: where TERTIARY_EDU_LVL_COMP = X_TERTIARY_EDU_LVL_COMP;
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_LV_COM (
323: TERTIARY_EDU_LVL_COMP,
324: DESCRIPTION,
325: TAC_LEVEL_OF_COMP,
326: CLOSED_IND,
366: cursor c1 is select
367: DESCRIPTION,
368: TAC_LEVEL_OF_COMP,
369: CLOSED_IND
370: from IGS_AD_TER_ED_LV_COM
371: where ROWID = X_ROWID for update nowait;
372: tlinfo c1%rowtype;
373:
374: begin
440: x_last_update_date => X_LAST_UPDATE_DATE,
441: x_last_updated_by => X_LAST_UPDATED_BY,
442: x_last_update_login => X_LAST_UPDATE_LOGIN
443: );
444: update IGS_AD_TER_ED_LV_COM set
445: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
446: TAC_LEVEL_OF_COMP = NEW_REFERENCES.TAC_LEVEL_OF_COMP,
447: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
448: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
466: X_TAC_LEVEL_OF_COMP in VARCHAR2,
467: X_CLOSED_IND in VARCHAR2,
468: X_MODE in VARCHAR2 default 'R'
469: ) as
470: cursor c1 is select rowid from IGS_AD_TER_ED_LV_COM
471: where TERTIARY_EDU_LVL_COMP = X_TERTIARY_EDU_LVL_COMP
472: ;
473: begin
474: open c1;
501: Before_DML (
502: p_action => 'DELETE',
503: x_rowid => X_ROWID
504: );
505: delete from IGS_AD_TER_ED_LV_COM
506: where ROWID = X_ROWID;
507: if (sql%notfound) then
508: raise no_data_found;
509: end if;
512: x_rowid => X_ROWID
513: );
514: end DELETE_ROW;
515:
516: end IGS_AD_TER_ED_LV_COM_PKG;