[Home] [Help]
1: package body IGS_AD_TAC_AUSCED_AS_PKG as
2: /* $Header: IGSAI57B.pls 115.4 2003/10/30 13:13:42 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_AUSCED_AS%RowType;
1: package body IGS_AD_TAC_AUSCED_AS_PKG as
2: /* $Header: IGSAI57B.pls 115.4 2003/10/30 13:13:42 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_AUSCED_AS%RowType;
6: new_references IGS_AD_TAC_AUSCED_AS%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAI57B.pls 115.4 2003/10/30 13:13:42 akadam ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_TAC_AUSCED_AS%RowType;
6: new_references IGS_AD_TAC_AUSCED_AS%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_AUSCED_AS
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
90:
91: PROCEDURE Check_Child_Existance AS
92: BEGIN
93:
94: IGS_AD_AUSE_ED_AS_TY_PKG.GET_FK_IGS_AD_TAC_AUSCED_AS (
95: old_references.tac_aus_scndry_edu_ass_type
96: );
97:
98: END Check_Child_Existance;
103: )return BOOLEAN AS
104:
105: CURSOR cur_rowid IS
106: SELECT rowid
107: FROM IGS_AD_TAC_AUSCED_AS
108: WHERE tac_aus_scndry_edu_ass_type = x_tac_aus_scndry_edu_ass_type AND
109: closed_ind = NVL(x_closed_ind,closed_ind)
110: FOR UPDATE NOWAIT;
111:
197: X_DESCRIPTION in VARCHAR2,
198: X_CLOSED_IND in VARCHAR2,
199: X_MODE in VARCHAR2 default 'R'
200: ) AS
201: cursor C is select ROWID from IGS_AD_TAC_AUSCED_AS
202: where TAC_AUS_SCNDRY_EDU_ASS_TYPE = X_TAC_AUS_SCNDRY_EDU_ASS_TYPE;
203: X_LAST_UPDATE_DATE DATE;
204: X_LAST_UPDATED_BY NUMBER;
205: X_LAST_UPDATE_LOGIN NUMBER;
234: x_last_updated_by => X_LAST_UPDATED_BY,
235: x_last_update_login => X_LAST_UPDATE_LOGIN
236: );
237:
238: insert into IGS_AD_TAC_AUSCED_AS (
239: TAC_AUS_SCNDRY_EDU_ASS_TYPE,
240: DESCRIPTION,
241: CLOSED_IND,
242: CREATION_DATE,
276: X_CLOSED_IND in VARCHAR2
277: ) AS
278: cursor c1 is
279: select *
280: from IGS_AD_TAC_AUSCED_AS
281: where ROWID = X_ROWID for update nowait;
282: tlinfo c1%rowtype;
283:
284: begin
347: x_last_updated_by => X_LAST_UPDATED_BY,
348: x_last_update_login => X_LAST_UPDATE_LOGIN
349: );
350:
351: update IGS_AD_TAC_AUSCED_AS set
352: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
353: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
354: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
355: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
371: X_DESCRIPTION in VARCHAR2,
372: X_CLOSED_IND in VARCHAR2,
373: X_MODE in VARCHAR2 default 'R'
374: ) AS
375: cursor c1 is select rowid from IGS_AD_TAC_AUSCED_AS
376: where TAC_AUS_SCNDRY_EDU_ASS_TYPE = X_TAC_AUS_SCNDRY_EDU_ASS_TYPE
377: ;
378:
379: begin
405: Before_DML (
406: p_action => 'DELETE',
407: x_rowid => X_ROWID
408: );
409: delete from IGS_AD_TAC_AUSCED_AS
410: where ROWID = X_ROWID;
411: if (sql%notfound) then
412: raise no_data_found;
413: end if;
416: x_rowid => X_ROWID
417: );
418: end DELETE_ROW;
419:
420: end IGS_AD_TAC_AUSCED_AS_PKG;