1: PACKAGE BODY igi_dos_destination_usages_pkg AS
2: /* $Header: igidosnb.pls 120.5.12000000.2 2007/06/14 04:34:16 pshivara ship $ */
3:
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
5:
10: l_error_level number := FND_LOG.LEVEL_ERROR ;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_dos_destination_usages%ROWTYPE;
15: new_references igi_dos_destination_usages%ROWTYPE;
16:
17: PROCEDURE set_column_values (
18: p_action IN VARCHAR2,
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED ;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_dos_destination_usages%ROWTYPE;
15: new_references igi_dos_destination_usages%ROWTYPE;
16:
17: PROCEDURE set_column_values (
18: p_action IN VARCHAR2,
19: x_rowid IN VARCHAR2 ,
42: */
43:
44: CURSOR cur_old_ref_values IS
45: SELECT *
46: FROM igi_dos_destination_usages
47: WHERE rowid = x_rowid;
48:
49: BEGIN
50:
58: CLOSE cur_old_ref_values;
59: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
60: -- bug 3199481, start block
61: IF (l_unexp_level >= l_debug_level) THEN
62: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.set_column_values.Msg1',FALSE);
63: END IF;
64: -- bug 3199481, end block
65: app_exception.raise_exception;
66: RETURN;
113: ) THEN
114: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
115: -- bug 3199481, start block
116: IF (l_unexp_level >= l_debug_level) THEN
117: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.check_parent_existance.Msg1',FALSE);
118: END IF;
119: -- bug 3199481, end block
120: app_exception.raise_exception;
121: END IF;
136: || (reverse chronological order - newest change first)
137: */
138: CURSOR cur_rowid IS
139: SELECT rowid
140: FROM igi_dos_destination_usages
141: WHERE ((destination_id = x_destination_id));
142:
143: lv_rowid cur_rowid%RowType;
144:
150: CLOSE cur_rowid;
151: fnd_message.set_name ('FND', 'FND-CANNOT DELETE MASTER');
152: -- bug 3199481, start block
153: IF (l_unexp_level >= l_debug_level) THEN
154: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.get_fk_igi_dos_destinations.Msg1',FALSE);
155: END IF;
156: -- bug 3199481, end block
157: app_exception.raise_exception;
158: RETURN;
218: ) THEN
219: fnd_message.set_name('FND','FORM_DUPLICATE_KEY_IN_INDEX');
220: -- bug 3199481, start block
221: IF (l_unexp_level >= l_debug_level) THEN
222: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.before_dml.Msg1',FALSE);
223: END IF;
224: -- bug 3199481, end block
225: app_exception.raise_exception;
226: END IF; */
236: ) THEN
237: fnd_message.set_name('FND','FORM_DUPLICATE_KEY_IN_INDEX');
238: -- bug 3199481, start block
239: IF (l_unexp_level >= l_debug_level) THEN
240: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.before_dml.Msg2',FALSE);
241: END IF;
242: -- bug 3199481, end block
243: app_exception.raise_exception;
244: END IF; */
270: || (reverse chronological order - newest change first)
271: */
272: CURSOR c IS
273: SELECT rowid
274: FROM igi_dos_destination_usages
275: WHERE 1= 1 ;
276:
277: x_last_update_date DATE;
278: x_last_updated_by NUMBER;
296: ELSE
297: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
298: -- bug 3199481, start block
299: IF (l_unexp_level >= l_debug_level) THEN
300: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.insert_row.Msg1',FALSE);
301: END IF;
302: -- bug 3199481, end block
303: app_exception.raise_exception;
304: END IF;
321: x_last_updated_by => x_last_updated_by,
322: x_last_update_login => x_last_update_login
323: );
324:
325: INSERT INTO igi_dos_destination_usages (
326: destination_id,
327: segment_name,
328: segment_name_dsp,
329: sob_id,
396: visibility,
397: default_type,
398: default_value,
399: updatable
400: FROM igi_dos_destination_usages
401: WHERE rowid = x_rowid
402: FOR UPDATE NOWAIT;
403:
404: tlinfo c1%ROWTYPE;
410: IF (c1%notfound) THEN
411: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
412: -- bug 3199481, start block
413: IF (l_unexp_level >= l_debug_level) THEN
414: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.lock_row.Msg1',FALSE);
415: END IF;
416: -- bug 3199481, end block
417: CLOSE c1;
418: app_exception.raise_exception;
435: ELSE
436: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
437: -- bug 3199481, start block
438: IF (l_unexp_level >= l_debug_level) THEN
439: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.lock_row.Msg2',FALSE);
440: END IF;
441: -- bug 3199481, end block
442: app_exception.raise_exception;
443: END IF;
490: ELSE
491: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
492: -- bug 3199481, start block
493: IF (l_unexp_level >= l_debug_level) THEN
494: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_destination_usages_pkg.update_row.Msg1',FALSE);
495: END IF;
496: -- bug 3199481, end block
497: app_exception.raise_exception;
498: END IF;
515: x_last_updated_by => x_last_updated_by,
516: x_last_update_login => x_last_update_login
517: );
518:
519: UPDATE igi_dos_destination_usages
520: SET
521: destination_id = new_references.destination_id,
522: segment_name = new_references.segment_name,
523: segment_name_dsp = new_references.segment_name_dsp,
561: || (reverse chronological order - newest change first)
562: */
563: CURSOR c1 IS
564: SELECT rowid
565: FROM igi_dos_destination_usages
566: WHERE 1= 1 ;
567:
568: BEGIN
569:
624: p_action => 'DELETE',
625: x_rowid => x_rowid
626: );
627:
628: DELETE FROM igi_dos_destination_usages
629: WHERE rowid = x_rowid;
630:
631: IF (SQL%NOTFOUND) THEN
632: RAISE NO_DATA_FOUND;
634:
635: END delete_row;
636:
637:
638: END igi_dos_destination_usages_pkg;