1: package body IGS_RU_WORK_SET_PKG as
2: /* $Header: IGSUI15B.pls 115.7 2002/11/29 04:28:55 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_WORK_SET%RowType;
1: package body IGS_RU_WORK_SET_PKG as
2: /* $Header: IGSUI15B.pls 115.7 2002/11/29 04:28:55 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_WORK_SET%RowType;
6: new_references IGS_RU_WORK_SET%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSUI15B.pls 115.7 2002/11/29 04:28:55 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_WORK_SET%RowType;
6: new_references IGS_RU_WORK_SET%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
17: ) as
18:
19: CURSOR cur_old_ref_values IS
20: SELECT *
21: FROM IGS_RU_WORK_SET
22: WHERE rowid = x_rowid;
23:
24: BEGIN
25:
30: Open cur_old_ref_values;
31: Fetch cur_old_ref_values INTO old_references;
32: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
33: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
34: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_WORK_SET : P_ACTION INSERT, VALIDATE_INSERT : IGSUI15B.PLS');
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: Close cur_old_ref_values;
38: Return;
78:
79: PROCEDURE Check_Child_Existance as
80: BEGIN
81:
82: IGS_RU_WORK_SET_MBR_PKG.GET_FK_IGS_RU_WORK_SET (
83: old_references.sequence_number
84: );
85:
86: END Check_Child_Existance;
90: )return BOOLEAN as
91:
92: CURSOR cur_rowid IS
93: SELECT rowid
94: FROM IGS_RU_WORK_SET
95: WHERE sequence_number = x_sequence_number
96: FOR UPDATE NOWAIT;
97:
98: lv_rowid cur_rowid%RowType;
178: X_ROWID in out NOCOPY VARCHAR2,
179: X_SEQUENCE_NUMBER in NUMBER,
180: X_MODE in VARCHAR2
181: ) as
182: cursor C is select ROWID from IGS_RU_WORK_SET
183: where SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
184: X_LAST_UPDATE_DATE DATE;
185: X_LAST_UPDATED_BY NUMBER;
186: X_LAST_UPDATE_LOGIN NUMBER;
229: x_last_updated_by=>X_LAST_UPDATED_BY,
230: x_last_update_login=>X_LAST_UPDATE_LOGIN
231: );
232:
233: insert into IGS_RU_WORK_SET (
234: SEQUENCE_NUMBER,
235: CREATION_DATE,
236: CREATED_BY,
237: LAST_UPDATE_DATE,
272: X_ROWID in VARCHAR2,
273: X_SEQUENCE_NUMBER in NUMBER
274: ) as
275: cursor c1 is select ROWID
276: from IGS_RU_WORK_SET
277: where ROWID = X_ROWID for update nowait;
278: tlinfo c1%rowtype;
279:
280: begin
281: open c1;
282: fetch c1 into tlinfo;
283: if (c1%notfound) then
284: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
285: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_WORK_SET : P_ACTION LOCK_ROW : IGSUI15B.PLS');
286: IGS_GE_MSG_STACK.ADD;
287: app_exception.raise_exception;
288: close c1;
289: return;
301: Before_DML (
302: p_action => 'DELETE',
303: x_rowid => X_ROWID);
304:
305: delete from IGS_RU_WORK_SET
306: where ROWID = X_ROWID;
307: if (sql%notfound) then
308: raise no_data_found;
309: end if;
313: x_rowid => X_ROWID);
314:
315: end DELETE_ROW;
316:
317: end IGS_RU_WORK_SET_PKG;