1: PACKAGE BODY igi_dos_trx_headers_pkg AS
2: /* $Header: igidossb.pls 120.11.12010000.2 2008/08/04 13:00:56 sasukuma ship $ */
3:
4: l_debug_level number;
5:
10: l_error_level number;
11: l_unexp_level number;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_dos_trx_headers%ROWTYPE;
15: new_references igi_dos_trx_headers%ROWTYPE;
16:
17: PROCEDURE set_column_values (
18: p_action IN VARCHAR2,
11: l_unexp_level number;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_dos_trx_headers%ROWTYPE;
15: new_references igi_dos_trx_headers%ROWTYPE;
16:
17: PROCEDURE set_column_values (
18: p_action IN VARCHAR2,
19: x_rowid IN VARCHAR2 ,
77: */
78:
79: CURSOR cur_old_ref_values IS
80: SELECT *
81: FROM igi_dos_trx_headers
82: WHERE rowid = x_rowid;
83:
84: BEGIN
85:
93: CLOSE cur_old_ref_values;
94: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
95: -- bug 3199481, start block
96: IF (l_unexp_level >= l_debug_level) THEN
97: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.set_column_values.Msg1',FALSE);
98: END IF;
99: -- bug 3199481, end block
100: app_exception.raise_exception;
101: RETURN;
162: END set_column_values;
163:
164:
165: -- Trigger description :-
166: -- IGI_DOS_TRX_HEADERS_T1
167: -- BEFORE UPDATE OF TRX_STATUS
168: -- ON IGI_DOS_TRX_HEADERS
169: -- REFERENCING OLD AS OLD NEW AS NEW
170: -- FOR EACH ROW
164:
165: -- Trigger description :-
166: -- IGI_DOS_TRX_HEADERS_T1
167: -- BEFORE UPDATE OF TRX_STATUS
168: -- ON IGI_DOS_TRX_HEADERS
169: -- REFERENCING OLD AS OLD NEW AS NEW
170: -- FOR EACH ROW
171: -- -- PL/SQL Block
172:
180: --
181: -- Bug 2897525 Start(1)
182: --
183: -- select igi_dos_trx_history_s.nextval
184: SELECT igi_dos_trx_headers_hist_s.NEXTVAL
185: --
186: -- Bug 2897525 End(1)
187: --
188: into x_history_trx_id
187: --
188: into x_history_trx_id
189: from dual;
190:
191: insert into igi_dos_trx_headers_hist
192: (
193: trx_id ,
194: dossier_name ,
195: trx_number ,
414: ) THEN
415: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
416: -- bug 3199481, start block
417: IF (l_unexp_level >= l_debug_level) THEN
418: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.check_parent_existance.Msg1',FALSE);
419: END IF;
420: -- bug 3199481, end block
421: app_exception.raise_exception;
422: END IF;
435: || (reverse chronological order - newest change first)
436: */
437: BEGIN
438:
439: igi_dos_trx_dest_pkg.get_fk_igi_dos_trx_headers (
440: old_references.trx_id
441: );
442: /* sowsubra 06-JUN-2002 start */
443: /* Commented the following code as this igi_dos_headers_dest_hist_pkg
442: /* sowsubra 06-JUN-2002 start */
443: /* Commented the following code as this igi_dos_headers_dest_hist_pkg
444: is currently not present */
445:
446: /*igi_dos_trx_headers_hist_pkg.get_fk_igi_dos_trx_headers (
447: old_references.trx_id
448: );*/
449: /* sowsubra 06-JUN-2002 end */
450:
448: );*/
449: /* sowsubra 06-JUN-2002 end */
450:
451:
452: igi_dos_trx_sources_pkg.get_fk_igi_dos_trx_headers (
453: old_references.trx_id
454: );
455:
456: END check_child_existance;
469: || (reverse chronological order - newest change first)
470: */
471: CURSOR cur_rowid IS
472: SELECT rowid
473: FROM igi_dos_trx_headers
474: WHERE trx_id = x_trx_id
475: FOR UPDATE NOWAIT;
476:
477: lv_rowid cur_rowid%RowType;
504: || (reverse chronological order - newest change first)
505: */
506: CURSOR cur_rowid IS
507: SELECT rowid
508: FROM igi_dos_trx_headers
509: WHERE ((dossier_id = x_dossier_id));
510:
511: lv_rowid cur_rowid%RowType;
512:
518: CLOSE cur_rowid;
519: fnd_message.set_name ('FND', 'FND-CANNOT DELETE MASTER');
520: -- bug 3199481, start block
521: IF (l_unexp_level >= l_debug_level) THEN
522: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.get_fk_igi_dos_doc_types.Msg1',FALSE);
523: END IF;
524: -- bug 3199481, end block
525: app_exception.raise_exception;
526: RETURN;
655: ) THEN
656: fnd_message.set_name('FND','FORM_DUPLICATE_KEY_IN_INDEX');
657: -- bug 3199481, start block
658: IF (l_unexp_level >= l_debug_level) THEN
659: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.before_dml.Msg1',FALSE);
660: END IF;
661: -- bug 3199481, end block
662: app_exception.raise_exception;
663: END IF;
677: ) THEN
678: fnd_message.set_name('FND','FORM_DUPLICATE_KEY_IN_INDEX');
679: -- bug 3199481, start block
680: IF (l_unexp_level >= l_debug_level) THEN
681: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.before_dml.Msg2',FALSE);
682: END IF;
683: -- bug 3199481, end block
684: app_exception.raise_exception;
685: END IF;
746: || (reverse chronological order - newest change first)
747: */
748: CURSOR c IS
749: SELECT rowid
750: FROM igi_dos_trx_headers
751: WHERE trx_id = x_trx_id;
752:
753: x_last_update_date DATE;
754: x_last_updated_by NUMBER;
779: ELSE
780: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
781: -- bug 3199481, start block
782: IF (l_unexp_level >= l_debug_level) THEN
783: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.insert_row.Msg1',FALSE);
784: END IF;
785: -- bug 3199481, end block
786: app_exception.raise_exception;
787: END IF;
785: -- bug 3199481, end block
786: app_exception.raise_exception;
787: END IF;
788:
789: SELECT igi_dos_trx_headers_s.NEXTVAL
790: INTO x_trx_id
791: FROM dual;
792:
793: before_dml(
842: x_last_updated_by => x_last_updated_by,
843: x_last_update_login => x_last_update_login
844: );
845:
846: INSERT INTO igi_dos_trx_headers (
847: sob_id,
848: trx_id,
849: dossier_name,
850: trx_number,
1052: attribute29,
1053: attribute30,
1054: parent_trx_id,
1055: parent_trx_number
1056: FROM igi_dos_trx_headers
1057: WHERE rowid = x_rowid
1058: FOR UPDATE NOWAIT;
1059:
1060: tlinfo c1%ROWTYPE;
1066: IF (c1%notfound) THEN
1067: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1068: -- bug 3199481, start block
1069: IF (l_unexp_level >= l_debug_level) THEN
1070: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.lock_row.Msg1',FALSE);
1071: END IF;
1072: -- bug 3199481, end block
1073: CLOSE c1;
1074: app_exception.raise_exception;
1124: ELSE
1125: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1126: -- bug 3199481, start block
1127: IF (l_unexp_level >= l_debug_level) THEN
1128: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.lock_row.Msg1',FALSE);
1129: END IF;
1130: -- bug 3199481, end block
1131: app_exception.raise_exception;
1132: END IF;
1221: ELSE
1222: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
1223: -- bug 3199481, start block
1224: IF (l_unexp_level >= l_debug_level) THEN
1225: FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_dos_trx_headers_pkg.update_row.Msg1',FALSE);
1226: END IF;
1227: -- bug 3199481, end block
1228: app_exception.raise_exception;
1229: END IF;
1280: x_last_updated_by => x_last_updated_by,
1281: x_last_update_login => x_last_update_login
1282: );
1283:
1284: UPDATE igi_dos_trx_headers
1285: SET
1286: sob_id = new_references.sob_id,
1287: dossier_name = new_references.dossier_name,
1288: trx_number = new_references.trx_number,
1393: || (reverse chronological order - newest change first)
1394: */
1395: CURSOR c1 IS
1396: SELECT rowid
1397: FROM igi_dos_trx_headers
1398: WHERE trx_id = x_trx_id;
1399:
1400: l_mode VARCHAR2(1);
1401:
1580: x_last_update_login=>NULL
1581:
1582: );
1583:
1584: DELETE FROM igi_dos_trx_headers
1585: WHERE rowid = x_rowid;
1586:
1587: IF (SQL%NOTFOUND) THEN
1588: RAISE NO_DATA_FOUND;
1598: l_excep_level := FND_LOG.LEVEL_EXCEPTION ;
1599: l_error_level := FND_LOG.LEVEL_ERROR ;
1600: l_unexp_level := FND_LOG.LEVEL_UNEXPECTED ;
1601:
1602: END igi_dos_trx_headers_pkg;