1: PACKAGE BODY IGI_MPP_SETUP_PKG AS
2: -- $Header: igipmsub.pls 115.6 2003/12/01 16:13:17 sdixit ship $
3: --bug 3199481: following variables added for fnd logging changes:sdixit :start
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY IGI_MPP_SETUP_PKG AS
2: -- $Header: igipmsub.pls 115.6 2003/12/01 16:13:17 sdixit ship $
3: --bug 3199481: following variables added for fnd logging changes:sdixit :start
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1: PACKAGE BODY IGI_MPP_SETUP_PKG AS
2: -- $Header: igipmsub.pls 115.6 2003/12/01 16:13:17 sdixit ship $
3: --bug 3199481: following variables added for fnd logging changes:sdixit :start
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
2: -- $Header: igipmsub.pls 115.6 2003/12/01 16:13:17 sdixit ship $
3: --bug 3199481: following variables added for fnd logging changes:sdixit :start
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
10: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
3: --bug 3199481: following variables added for fnd logging changes:sdixit :start
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
10: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11:
4: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
10: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11:
12: PROCEDURE insert_row
5: l_state_level number := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
10: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11:
12: PROCEDURE insert_row
13: ( X_rowid in out NOCOPY VARCHAR2
6: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level number := FND_LOG.LEVEL_EVENT;
8: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level number := FND_LOG.LEVEL_ERROR;
10: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11:
12: PROCEDURE insert_row
13: ( X_rowid in out NOCOPY VARCHAR2
14: , X_set_of_books_id in NUMBER
57: FETCH c_insert INTO X_rowid;
58: IF c_insert%NOTFOUND THEN
59: CLOSE c_insert;
60: raise no_data_found;
61: --bug 3199481: fnd logging changes:sdixit :start
62: IF (l_error_level >= l_debug_level ) THEN
63: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Insert_Row',FALSE);
64: END IF;
65: --bug 3199481 fnd logging changes: sdixit: end block
59: CLOSE c_insert;
60: raise no_data_found;
61: --bug 3199481: fnd logging changes:sdixit :start
62: IF (l_error_level >= l_debug_level ) THEN
63: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Insert_Row',FALSE);
64: END IF;
65: --bug 3199481 fnd logging changes: sdixit: end block
66: END IF;
67: CLOSE c_insert;
61: --bug 3199481: fnd logging changes:sdixit :start
62: IF (l_error_level >= l_debug_level ) THEN
63: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Insert_Row',FALSE);
64: END IF;
65: --bug 3199481 fnd logging changes: sdixit: end block
66: END IF;
67: CLOSE c_insert;
68: END;
69:
89: WHERE rowid = X_rowid
90: ;
91: IF SQL%NOTFOUND THEN
92: raise no_data_found;
93: --bug 3199481: fnd logging changes:sdixit :start
94: IF (l_error_level >= l_debug_level ) THEN
95: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Update_Row',FALSE);
96: END IF;
97: --bug 3199481 fnd logging changes: sdixit: end block
91: IF SQL%NOTFOUND THEN
92: raise no_data_found;
93: --bug 3199481: fnd logging changes:sdixit :start
94: IF (l_error_level >= l_debug_level ) THEN
95: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Update_Row',FALSE);
96: END IF;
97: --bug 3199481 fnd logging changes: sdixit: end block
98: END IF;
99:
93: --bug 3199481: fnd logging changes:sdixit :start
94: IF (l_error_level >= l_debug_level ) THEN
95: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Update_Row',FALSE);
96: END IF;
97: --bug 3199481 fnd logging changes: sdixit: end block
98: END IF;
99:
100: END;
101:
122: FETCH c_mpp_setup INTO l_mpp_setup;
123: IF c_mpp_setup%NOTFOUND THEN
124: close c_mpp_setup;
125: fnd_message.set_name( 'FND', 'FORM_RECORD_DELETED');
126: --bug 3199481: fnd logging changes:sdixit :start
127: IF (l_error_level >= l_debug_level ) THEN
128: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
129: END IF;
130: --bug 3199481 fnd logging changes: sdixit: end block
124: close c_mpp_setup;
125: fnd_message.set_name( 'FND', 'FORM_RECORD_DELETED');
126: --bug 3199481: fnd logging changes:sdixit :start
127: IF (l_error_level >= l_debug_level ) THEN
128: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
129: END IF;
130: --bug 3199481 fnd logging changes: sdixit: end block
131: app_exception.raise_exception;
132: END IF;
126: --bug 3199481: fnd logging changes:sdixit :start
127: IF (l_error_level >= l_debug_level ) THEN
128: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
129: END IF;
130: --bug 3199481 fnd logging changes: sdixit: end block
131: app_exception.raise_exception;
132: END IF;
133: CLOSE c_mpp_setup;
134: IF (
157: THEN
158: return;
159: else
160: fnd_message.set_name( 'FND', 'FORM_RECORD_CHANGED');
161: --bug 3199481: fnd logging changes:sdixit :start
162: IF (l_error_level >= l_debug_level ) THEN
163: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
164: END IF;
165: --bug 3199481 fnd logging changes: sdixit: end block
159: else
160: fnd_message.set_name( 'FND', 'FORM_RECORD_CHANGED');
161: --bug 3199481: fnd logging changes:sdixit :start
162: IF (l_error_level >= l_debug_level ) THEN
163: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
164: END IF;
165: --bug 3199481 fnd logging changes: sdixit: end block
166: app_exception.raise_exception;
167: END IF;
161: --bug 3199481: fnd logging changes:sdixit :start
162: IF (l_error_level >= l_debug_level ) THEN
163: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
164: END IF;
165: --bug 3199481 fnd logging changes: sdixit: end block
166: app_exception.raise_exception;
167: END IF;
168: END;
169: