[Home] [Help]
1: PACKAGE BODY igs_ru_nrg_group_cd_pkg AS
2: /* $Header: IGSUI18B.pls 115.8 2002/11/29 04:29:45 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ru_nrg_group_cd%RowType;
1: PACKAGE BODY igs_ru_nrg_group_cd_pkg AS
2: /* $Header: IGSUI18B.pls 115.8 2002/11/29 04:29:45 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ru_nrg_group_cd%RowType;
6: new_references igs_ru_nrg_group_cd%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSUI18B.pls 115.8 2002/11/29 04:29:45 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ru_nrg_group_cd%RowType;
6: new_references igs_ru_nrg_group_cd%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
29: ***************************************************************/
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_RU_NRG_GROUP_CD
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
43: Fetch cur_old_ref_values INTO old_references;
44: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
45: Close cur_old_ref_values;
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NRG_GROUP_CD : P_ACTION INSERT, VALIDATE_INSERT : IGSUI18B.PLS');
48: IGS_GE_MSG_STACK.ADD;
49: App_Exception.Raise_Exception;
50: Return;
51: END IF;
106: ***************************************************************/
107:
108: BEGIN
109:
110: Igs_Ru_Named_Rule_Gr_Pkg.Get_FK_Igs_Ru_Nrg_Group_Cd (
111: old_references.group_cd
112: );
113:
114: END Check_Child_Existance;
129:
130:
131: CURSOR cur_rowid IS
132: SELECT rowid
133: FROM igs_ru_nrg_group_cd
134: WHERE group_cd = x_group_cd
135: FOR UPDATE NOWAIT;
136:
137: lv_rowid cur_rowid%RowType;
270:
271: (reverse chronological order - newest change first)
272: ***************************************************************/
273:
274: cursor C is select ROWID from IGS_RU_NRG_GROUP_CD
275: where GROUP_CD= X_GROUP_CD
276: ;
277: X_LAST_UPDATE_DATE DATE ;
278: X_LAST_UPDATED_BY NUMBER ;
305: x_created_by=>X_LAST_UPDATED_BY,
306: x_last_update_date=>X_LAST_UPDATE_DATE,
307: x_last_updated_by=>X_LAST_UPDATED_BY,
308: x_last_update_login=>X_LAST_UPDATE_LOGIN);
309: insert into IGS_RU_NRG_GROUP_CD (
310: GROUP_CD
311: ,DESCRIPTION
312: ,CREATION_DATE
313: ,CREATED_BY
352: ***************************************************************/
353:
354: cursor c1 is select
355: DESCRIPTION
356: from IGS_RU_NRG_GROUP_CD
357: where ROWID = X_ROWID
358: for update nowait;
359: tlinfo c1%rowtype;
360: begin
361: open c1;
362: fetch c1 into tlinfo;
363: if (c1%notfound) then
364: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
365: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NRG_GROUP_CD : P_ACTION LOCK_ROW : IGSUI18B.PLS');
366: IGS_GE_MSG_STACK.ADD;
367: close c1;
368: app_exception.raise_exception;
369: return;
373: ) then
374: null;
375: else
376: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
377: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NRG_GROUP_CD : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI18B.PLS');
378: IGS_GE_MSG_STACK.ADD;
379:
380: app_exception.raise_exception;
381: end if;
432: x_created_by=>X_LAST_UPDATED_BY,
433: x_last_update_date=>X_LAST_UPDATE_DATE,
434: x_last_updated_by=>X_LAST_UPDATED_BY,
435: x_last_update_login=>X_LAST_UPDATE_LOGIN);
436: update IGS_RU_NRG_GROUP_CD set
437: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
438: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
439: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
440: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
466:
467: (reverse chronological order - newest change first)
468: ***************************************************************/
469:
470: cursor c1 is select ROWID from IGS_RU_NRG_GROUP_CD
471: where GROUP_CD= X_GROUP_CD
472: ;
473: begin
474: open c1;
510: Before_DML (
511: p_action => 'DELETE',
512: x_rowid => X_ROWID
513: );
514: delete from IGS_RU_NRG_GROUP_CD
515: where ROWID = X_ROWID;
516: if (sql%notfound) then
517: raise no_data_found;
518: end if;
520: p_action => 'DELETE',
521: x_rowid => X_ROWID
522: );
523: end DELETE_ROW;
524: END igs_ru_nrg_group_cd_pkg;