[Home] [Help]
1: package body IGS_AD_TAC_LVL_OF_QF_PKG as
2: /* $Header: IGSAI55B.pls 115.4 2003/10/30 13:13:35 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_LVL_OF_QF%RowType;
1: package body IGS_AD_TAC_LVL_OF_QF_PKG as
2: /* $Header: IGSAI55B.pls 115.4 2003/10/30 13:13:35 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_LVL_OF_QF%RowType;
6: new_references IGS_AD_TAC_LVL_OF_QF%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI55B.pls 115.4 2003/10/30 13:13:35 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_LVL_OF_QF%RowType;
6: new_references IGS_AD_TAC_LVL_OF_QF%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_AD_TAC_LVL_OF_QF
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
89:
90: PROCEDURE Check_Child_Existance as
91: BEGIN
92:
93: IGS_AD_TER_ED_LVL_QF_PKG.GET_FK_IGS_AD_TAC_LVL_OF_QF (
94: old_references.tac_level_of_qual
95: );
96:
97: END Check_Child_Existance;
102: )return BOOLEAN AS
103:
104: CURSOR cur_rowid IS
105: SELECT rowid
106: FROM IGS_AD_TAC_LVL_OF_QF
107: WHERE tac_level_of_qual = x_tac_level_of_qual AND
108: closed_ind = NVL(x_closed_ind,closed_ind)
109: FOR UPDATE NOWAIT;
110:
198: X_DESCRIPTION in VARCHAR2,
199: X_CLOSED_IND in VARCHAR2,
200: X_MODE in VARCHAR2 default 'R'
201: ) as
202: cursor C is select ROWID from IGS_AD_TAC_LVL_OF_QF
203: where TAC_LEVEL_OF_QUAL = X_TAC_LEVEL_OF_QUAL;
204: X_LAST_UPDATE_DATE DATE;
205: X_LAST_UPDATED_BY NUMBER;
206: X_LAST_UPDATE_LOGIN NUMBER;
236: x_last_updated_by => X_LAST_UPDATED_BY,
237: x_last_update_login => X_LAST_UPDATE_LOGIN
238: );
239:
240: insert into IGS_AD_TAC_LVL_OF_QF (
241: TAC_LEVEL_OF_QUAL,
242: DESCRIPTION,
243: CLOSED_IND,
244: CREATION_DATE,
279: ) as
280: cursor c1 is select
281: DESCRIPTION,
282: CLOSED_IND
283: from IGS_AD_TAC_LVL_OF_QF
284: where ROWID = X_ROWID for update nowait;
285: tlinfo c1%rowtype;
286:
287: begin
349: x_last_update_date => X_LAST_UPDATE_DATE,
350: x_last_updated_by => X_LAST_UPDATED_BY,
351: x_last_update_login => X_LAST_UPDATE_LOGIN
352: );
353: update IGS_AD_TAC_LVL_OF_QF set
354: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
355: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
356: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
357: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
373: X_DESCRIPTION in VARCHAR2,
374: X_CLOSED_IND in VARCHAR2,
375: X_MODE in VARCHAR2 default 'R'
376: ) as
377: cursor c1 is select rowid from IGS_AD_TAC_LVL_OF_QF
378: where TAC_LEVEL_OF_QUAL = X_TAC_LEVEL_OF_QUAL
379: ;
380: begin
381: open c1;
406: Before_DML (
407: p_action => 'DELETE',
408: x_rowid => X_ROWID
409: );
410: delete from IGS_AD_TAC_LVL_OF_QF
411: where ROWID = X_ROWID;
412: if (sql%notfound) then
413: raise no_data_found;
414: end if;
417: x_rowid => X_ROWID
418: );
419: end DELETE_ROW;
420:
421: end IGS_AD_TAC_LVL_OF_QF_PKG;