[Home] [Help]
1: package body IGS_RE_GV_FLD_OF_SDY_PKG as
2: /* $Header: IGSRI07B.pls 115.3 2002/11/29 03:32:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_FLD_OF_SDY%RowType;
1: package body IGS_RE_GV_FLD_OF_SDY_PKG as
2: /* $Header: IGSRI07B.pls 115.3 2002/11/29 03:32:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_FLD_OF_SDY%RowType;
6: new_references IGS_RE_GV_FLD_OF_SDY%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSRI07B.pls 115.3 2002/11/29 03:32:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RE_GV_FLD_OF_SDY%RowType;
6: new_references IGS_RE_GV_FLD_OF_SDY%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_RE_GV_FLD_OF_SDY
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
124:
125: PROCEDURE Check_Child_Existance AS
126: BEGIN
127:
128: IGS_PS_FLD_OF_STUDY_PKG.GET_FK_IGS_RE_GV_FLD_OF_SDY (
129: old_references.govt_field_of_study
130: );
131:
132: END Check_Child_Existance;
137: RETURN BOOLEAN
138: AS
139: CURSOR cur_rowid IS
140: SELECT rowid
141: FROM IGS_RE_GV_FLD_OF_SDY
142: WHERE govt_field_of_study = x_govt_field_of_study
143: FOR UPDATE NOWAIT;
144:
145: lv_rowid cur_rowid%RowType;
229: X_RES_FCD_CLASS_IND in VARCHAR2,
230: X_CLOSED_IND in VARCHAR2,
231: X_MODE in VARCHAR2 default 'R'
232: ) as
233: cursor C is select ROWID from IGS_RE_GV_FLD_OF_SDY
234: where GOVT_FIELD_OF_STUDY = X_GOVT_FIELD_OF_STUDY;
235: X_LAST_UPDATE_DATE DATE;
236: X_LAST_UPDATED_BY NUMBER;
237: X_LAST_UPDATE_LOGIN NUMBER;
268: x_last_update_date => X_LAST_UPDATE_DATE,
269: x_last_update_login => X_LAST_UPDATE_LOGIN
270: );
271:
272: insert into IGS_RE_GV_FLD_OF_SDY (
273: GOVT_FIELD_OF_STUDY,
274: DESCRIPTION,
275: RES_FCD_CLASS_IND,
276: CLOSED_IND,
311: cursor c1 is select
312: DESCRIPTION,
313: RES_FCD_CLASS_IND,
314: CLOSED_IND
315: from IGS_RE_GV_FLD_OF_SDY
316: where rowid = x_rowid
317: for update nowait;
318: tlinfo c1%rowtype;
319:
383: x_last_update_date => X_LAST_UPDATE_DATE,
384: x_last_update_login => X_LAST_UPDATE_LOGIN
385: );
386:
387: update IGS_RE_GV_FLD_OF_SDY set
388: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
389: RES_FCD_CLASS_IND = NEW_REFERENCES.RES_FCD_CLASS_IND,
390: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
391: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
406: X_RES_FCD_CLASS_IND in VARCHAR2,
407: X_CLOSED_IND in VARCHAR2,
408: X_MODE in VARCHAR2 default 'R'
409: ) as
410: cursor c1 is select rowid from IGS_RE_GV_FLD_OF_SDY
411: where GOVT_FIELD_OF_STUDY = X_GOVT_FIELD_OF_STUDY
412: ;
413:
414: begin
443: Before_DML (
444: p_action => 'DELETE',
445: x_rowid => X_ROWID);
446:
447: delete from IGS_RE_GV_FLD_OF_SDY
448: where ROWID = X_ROWID;
449: if (sql%notfound) then
450: raise no_data_found;
451: end if;
451: end if;
452:
453: end DELETE_ROW;
454:
455: end IGS_RE_GV_FLD_OF_SDY_PKG;