1: PACKAGE BODY igs_ru_trg_group_cd_pkg AS
2: /* $Header: IGSUI20B.pls 115.8 2002/11/29 04:30:23 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ru_trg_group_cd%RowType;
5: new_references igs_ru_trg_group_cd%RowType;
1: PACKAGE BODY igs_ru_trg_group_cd_pkg AS
2: /* $Header: IGSUI20B.pls 115.8 2002/11/29 04:30:23 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ru_trg_group_cd%RowType;
5: new_references igs_ru_trg_group_cd%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ru_trg_group_cd_pkg AS
2: /* $Header: IGSUI20B.pls 115.8 2002/11/29 04:30:23 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ru_trg_group_cd%RowType;
5: new_references igs_ru_trg_group_cd%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 ,
29:
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_RU_TRG_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_TRG_GROUP_CD : P_ACTION INSERT, VALIDATE_INSERT : IGSUI20B.PLS');
48: IGS_GE_MSG_STACK.ADD;
49: App_Exception.Raise_Exception;
50: Return;
51: END IF;
108: ***************************************************************/
109:
110: BEGIN
111:
112: Igs_Ru_Turin_Rule_Gr_Pkg.Get_FK_Igs_Ru_Trg_Group_Cd (
113: old_references.group_cd
114: );
115:
116: END Check_Child_Existance;
132: ***************************************************************/
133:
134: CURSOR cur_rowid IS
135: SELECT rowid
136: FROM igs_ru_trg_group_cd
137: WHERE group_cd = x_group_cd
138: FOR UPDATE NOWAIT;
139:
140: lv_rowid cur_rowid%RowType;
277: (reverse chronological order - newest change first)
278: ***************************************************************/
279:
280:
281: cursor C is select ROWID from IGS_RU_TRG_GROUP_CD
282: where GROUP_CD= X_GROUP_CD
283: ;
284: X_LAST_UPDATE_DATE DATE ;
285: X_LAST_UPDATED_BY NUMBER ;
312: x_created_by=>X_LAST_UPDATED_BY,
313: x_last_update_date=>X_LAST_UPDATE_DATE,
314: x_last_updated_by=>X_LAST_UPDATED_BY,
315: x_last_update_login=>X_LAST_UPDATE_LOGIN);
316: insert into IGS_RU_TRG_GROUP_CD (
317: GROUP_CD
318: ,DESCRIPTION
319: ,CREATION_DATE
320: ,CREATED_BY
359: ***************************************************************/
360:
361: cursor c1 is select
362: DESCRIPTION
363: from IGS_RU_TRG_GROUP_CD
364: where ROWID = X_ROWID
365: for update nowait;
366: tlinfo c1%rowtype;
367: begin
368: open c1;
369: fetch c1 into tlinfo;
370: if (c1%notfound) then
371: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
372: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_TRG_GROUP_CD : P_ACTION LOCK_ROW : IGSUI20B.PLS');
373: IGS_GE_MSG_STACK.ADD;
374: close c1;
375: app_exception.raise_exception;
376: return;
380: ) then
381: null;
382: else
383: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
384: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_TRG_GROUP_CD : P_ACTION LOCK_ROW FORM_RECORD_CHANGED: IGSUI20B.PLS');
385: IGS_GE_MSG_STACK.ADD;
386: app_exception.raise_exception;
387: end if;
388: return;
438: x_created_by=>X_LAST_UPDATED_BY,
439: x_last_update_date=>X_LAST_UPDATE_DATE,
440: x_last_updated_by=>X_LAST_UPDATED_BY,
441: x_last_update_login=>X_LAST_UPDATE_LOGIN);
442: update IGS_RU_TRG_GROUP_CD set
443: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
444: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
445: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
446: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
472:
473: (reverse chronological order - newest change first)
474: ***************************************************************/
475:
476: cursor c1 is select ROWID from IGS_RU_TRG_GROUP_CD
477: where GROUP_CD= X_GROUP_CD
478: ;
479: begin
480: open c1;
517: Before_DML (
518: p_action => 'DELETE',
519: x_rowid => X_ROWID
520: );
521: delete from IGS_RU_TRG_GROUP_CD
522: where ROWID = X_ROWID;
523: if (sql%notfound) then
524: raise no_data_found;
525: end if;
527: p_action => 'DELETE',
528: x_rowid => X_ROWID
529: );
530: end DELETE_ROW;
531: END igs_ru_trg_group_cd_pkg;