[Home] [Help]
1: package body IGS_RU_LOV_PKG as
2: /* $Header: IGSUI08B.pls 115.8 2002/11/29 04:26:52 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_LOV%RowType;
1: package body IGS_RU_LOV_PKG as
2: /* $Header: IGSUI08B.pls 115.8 2002/11/29 04:26:52 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_LOV%RowType;
6: new_references IGS_RU_LOV%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSUI08B.pls 115.8 2002/11/29 04:26:52 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_RU_LOV%RowType;
6: new_references IGS_RU_LOV%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
20: ) IS
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGS_RU_LOV
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
33: Open cur_old_ref_values;
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_LOV : P_ACTION INSERT VALIDATE_INSERT : IGSUI08B.PLS');
38: IGS_GE_MSG_STACK.ADD;
39: App_Exception.Raise_Exception;
40: Close cur_old_ref_values;
41: Return;
101: )RETURN BOOLEAN
102: IS
103: CURSOR cur_rowid IS
104: SELECT rowid
105: FROM IGS_RU_LOV
106: WHERE description = x_description
107: AND sequence_number = x_sequence_number
108: FOR UPDATE NOWAIT;
109:
190: X_HELP_TEXT in VARCHAR2,
191: X_SELECTABLE in VARCHAR2,
192: X_MODE in VARCHAR2
193: ) is
194: cursor C is select ROWID from IGS_RU_LOV
195: where DESCRIPTION = X_DESCRIPTION
196: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
197: X_LAST_UPDATE_DATE DATE;
198: X_LAST_UPDATED_BY NUMBER;
231: x_last_updated_by=>X_LAST_UPDATED_BY,
232: x_last_update_login=>X_LAST_UPDATE_LOGIN
233: );
234:
235: insert into IGS_RU_LOV (
236: SEQUENCE_NUMBER,
237: DESCRIPTION,
238: HELP_TEXT,
239: SELECTABLE,
277: ) is
278: cursor c1 is select
279: HELP_TEXT,
280: SELECTABLE
281: from IGS_RU_LOV
282: where ROWID = X_ROWID for update nowait;
283: tlinfo c1%rowtype;
284:
285: begin
286: open c1;
287: fetch c1 into tlinfo;
288: if (c1%notfound) then
289: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
290: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_LOV : P_ACTION LOCK_ROW : IGSUI08B.PLS');
291: IGS_GE_MSG_STACK.ADD;
292: app_exception.raise_exception;
293: close c1;
294: return;
304: ) then
305: null;
306: else
307: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
308: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_LOV : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI08B.PLS');
309: IGS_GE_MSG_STACK.ADD;
310: app_exception.raise_exception;
311: end if;
312: return;
356: x_last_updated_by=>X_LAST_UPDATED_BY,
357: x_last_update_login=>X_LAST_UPDATE_LOGIN
358: );
359:
360: update IGS_RU_LOV set
361: HELP_TEXT = NEW_REFERENCES.HELP_TEXT,
362: SELECTABLE = NEW_REFERENCES.SELECTABLE,
363: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
364: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
382: X_HELP_TEXT in VARCHAR2,
383: X_SELECTABLE in VARCHAR2,
384: X_MODE in VARCHAR2
385: ) is
386: cursor c1 is select rowid from IGS_RU_LOV
387: where DESCRIPTION = X_DESCRIPTION
388: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
389: ;
390:
420: Before_DML (
421: p_action => 'DELETE',
422: x_rowid => X_ROWID);
423:
424: delete from IGS_RU_LOV
425: where ROWID = X_ROWID;
426: if (sql%notfound) then
427: raise no_data_found;
428: end if;
432: x_rowid => X_ROWID);
433:
434: end DELETE_ROW;
435:
436: end IGS_RU_LOV_PKG;