DBA Data[Home] [Help]

APPS.IGIPMGLT dependencies on FND_LOG

Line 6: --bug 3199481: following variables added for fnd logging changes: sdixit

2: -- $Header: igipmgtb.pls 115.10 2003/12/01 14:57:42 sdixit ship $
3:
4: g_date CONSTANT DATE := SYSDATE;
5: g_user_id CONSTANT NUMBER := fnd_global.user_id;
6: --bug 3199481: following variables added for fnd logging changes: sdixit
7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;

Line 7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

3:
4: g_date CONSTANT DATE := SYSDATE;
5: g_user_id CONSTANT NUMBER := fnd_global.user_id;
6: --bug 3199481: following variables added for fnd logging changes: sdixit
7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

Line 8: l_state_level number := FND_LOG.LEVEL_STATEMENT;

4: g_date CONSTANT DATE := SYSDATE;
5: g_user_id CONSTANT NUMBER := fnd_global.user_id;
6: --bug 3199481: following variables added for fnd logging changes: sdixit
7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;

Line 9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;

5: g_user_id CONSTANT NUMBER := fnd_global.user_id;
6: --bug 3199481: following variables added for fnd logging changes: sdixit
7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;

Line 10: l_event_level number := FND_LOG.LEVEL_EVENT;

6: --bug 3199481: following variables added for fnd logging changes: sdixit
7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
14:

Line 11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

7: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
14:
15: PROCEDURE WriteToLog ( pp_mesg in varchar2 ) IS

Line 12: l_error_level number := FND_LOG.LEVEL_ERROR;

8: l_state_level number := FND_LOG.LEVEL_STATEMENT;
9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
14:
15: PROCEDURE WriteToLog ( pp_mesg in varchar2 ) IS
16: BEGIN

Line 13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;

9: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
10: l_event_level number := FND_LOG.LEVEL_EVENT;
11: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
12: l_error_level number := FND_LOG.LEVEL_ERROR;
13: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
14:
15: PROCEDURE WriteToLog ( pp_mesg in varchar2 ) IS
16: BEGIN
17: FND_FILE.put_line ( FND_FILE.log, pp_mesg ) ;

Line 61: --bug 3199481 fnd logging changes: sdixit: start block

57: END;
58:
59: PROCEDURE InsertInterfaceRec ( l_glint IN GLINT ) IS
60: BEGIN
61: --bug 3199481 fnd logging changes: sdixit: start block
62: IF (l_state_level >= l_debug_level ) THEN
63: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
64: '>> >> **** Accounting date '||l_glint.accounting_date);
65: END IF;

Line 63: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',

59: PROCEDURE InsertInterfaceRec ( l_glint IN GLINT ) IS
60: BEGIN
61: --bug 3199481 fnd logging changes: sdixit: start block
62: IF (l_state_level >= l_debug_level ) THEN
63: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
64: '>> >> **** Accounting date '||l_glint.accounting_date);
65: END IF;
66: --bug 3199481 fnd logging changes: sdixit: end block
67: INSERT INTO GL_INTERFACE

Line 66: --bug 3199481 fnd logging changes: sdixit: end block

62: IF (l_state_level >= l_debug_level ) THEN
63: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
64: '>> >> **** Accounting date '||l_glint.accounting_date);
65: END IF;
66: --bug 3199481 fnd logging changes: sdixit: end block
67: INSERT INTO GL_INTERFACE
68: (
69: status -- not null
70: ,set_of_books_id -- not null

Line 226: --bug 3199481 fnd logging changes: sdixit: start block

222: FROM SYS.DUAL
223: ;
224:
225: InsertInterfaceRec ( l_glint ) ;
226: --bug 3199481 fnd logging changes: sdixit: start block
227: IF (l_state_level >= l_debug_level ) THEN
228: FND_LOG.STRING (l_state_level ,'igi.pls.igipmgtb.IGIPMGLT.TransferInfo',
229: '>> >> >> Populated Interface control table... ');
230: END IF;

Line 228: FND_LOG.STRING (l_state_level ,'igi.pls.igipmgtb.IGIPMGLT.TransferInfo',

224:
225: InsertInterfaceRec ( l_glint ) ;
226: --bug 3199481 fnd logging changes: sdixit: start block
227: IF (l_state_level >= l_debug_level ) THEN
228: FND_LOG.STRING (l_state_level ,'igi.pls.igipmgtb.IGIPMGLT.TransferInfo',
229: '>> >> >> Populated Interface control table... ');
230: END IF;
231: --bug 3199481 fnd logging changes: sdixit: end block
232:

Line 231: --bug 3199481 fnd logging changes: sdixit: end block

227: IF (l_state_level >= l_debug_level ) THEN
228: FND_LOG.STRING (l_state_level ,'igi.pls.igipmgtb.IGIPMGLT.TransferInfo',
229: '>> >> >> Populated Interface control table... ');
230: END IF;
231: --bug 3199481 fnd logging changes: sdixit: end block
232:
233: END TransferInfo;
234:
235: BEGIN

Line 245: --bug 3199481 fnd logging changes: sdixit: start block

241:
242:
243: FOR l_slgr IN C_subledger LOOP
244: TransferInfo ( l_slgr, l_glint );
245: --bug 3199481 fnd logging changes: sdixit: start block
246: IF (l_state_level >= l_debug_level ) THEN
247: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
248: '>> >> >> Built the interface info... ' );
249: END IF;

Line 247: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',

243: FOR l_slgr IN C_subledger LOOP
244: TransferInfo ( l_slgr, l_glint );
245: --bug 3199481 fnd logging changes: sdixit: start block
246: IF (l_state_level >= l_debug_level ) THEN
247: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
248: '>> >> >> Built the interface info... ' );
249: END IF;
250: --bug 3199481 fnd logging changes: sdixit: end block
251:

Line 250: --bug 3199481 fnd logging changes: sdixit: end block

246: IF (l_state_level >= l_debug_level ) THEN
247: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
248: '>> >> >> Built the interface info... ' );
249: END IF;
250: --bug 3199481 fnd logging changes: sdixit: end block
251:
252: UPDATE igi_mpp_subledger
253: SET gl_posted_flag = 'Y'
254: , date_created_in_gl = g_date

Line 281: --bug 3199481 fnd logging changes: sdixit: start block

277: AND period_name = l_slgr.period_name
278: )
279: ;
280:
281: --bug 3199481 fnd logging changes: sdixit: start block
282: IF (l_state_level >= l_debug_level ) THEN
283: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
284: '>> >> >> Marked as posted... ' );
285: END IF;

Line 283: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',

279: ;
280:
281: --bug 3199481 fnd logging changes: sdixit: start block
282: IF (l_state_level >= l_debug_level ) THEN
283: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
284: '>> >> >> Marked as posted... ' );
285: END IF;
286: --bug 3199481 fnd logging changes: sdixit: end block
287:

Line 286: --bug 3199481 fnd logging changes: sdixit: end block

282: IF (l_state_level >= l_debug_level ) THEN
283: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
284: '>> >> >> Marked as posted... ' );
285: END IF;
286: --bug 3199481 fnd logging changes: sdixit: end block
287:
288: END LOOP;
289:
290: return( l_glint_control.interface_run_id );

Line 384: --bug 3199481 fnd logging changes: sdixit: start block

380:
381:
382: BEGIN
383:
384: --bug 3199481 fnd logging changes: sdixit: start block
385: IF (l_state_level >= l_debug_level ) THEN
386: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
387: 'BEGIN Transfer to GL.');
388: END IF;

Line 386: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

382: BEGIN
383:
384: --bug 3199481 fnd logging changes: sdixit: start block
385: IF (l_state_level >= l_debug_level ) THEN
386: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
387: 'BEGIN Transfer to GL.');
388: END IF;
389: InitGLTransfer ( l_glint_control ) ;
390: IF (l_state_level >= l_debug_level ) THEN

Line 391: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

387: 'BEGIN Transfer to GL.');
388: END IF;
389: InitGLTransfer ( l_glint_control ) ;
390: IF (l_state_level >= l_debug_level ) THEN
391: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
392: '>> >> Initalized interface control info... ' );
393: END IF;
394: InsertControlRec ( l_glint_control ) ;
395: IF (l_state_level >= l_debug_level ) THEN

Line 396: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgertrfxtoGl',

392: '>> >> Initalized interface control info... ' );
393: END IF;
394: InsertControlRec ( l_glint_control ) ;
395: IF (l_state_level >= l_debug_level ) THEN
396: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgertrfxtoGl',
397: '>> >> Populated Interface control table... ' );
398: END IF;
399: --bug 3199481 fnd logging changes: sdixit: end block
400:

Line 399: --bug 3199481 fnd logging changes: sdixit: end block

395: IF (l_state_level >= l_debug_level ) THEN
396: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgertrfxtoGl',
397: '>> >> Populated Interface control table... ' );
398: END IF;
399: --bug 3199481 fnd logging changes: sdixit: end block
400:
401: FOR l_period in c_periods LOOP
402:
403: --bug 3199481 fnd logging changes: sdixit: start block

Line 403: --bug 3199481 fnd logging changes: sdixit: start block

399: --bug 3199481 fnd logging changes: sdixit: end block
400:
401: FOR l_period in c_periods LOOP
402:
403: --bug 3199481 fnd logging changes: sdixit: start block
404: IF (l_state_level >= l_debug_level ) THEN
405: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
406: '>> Period '|| l_period.period_name );
407: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

Line 405: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

401: FOR l_period in c_periods LOOP
402:
403: --bug 3199481 fnd logging changes: sdixit: start block
404: IF (l_state_level >= l_debug_level ) THEN
405: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
406: '>> Period '|| l_period.period_name );
407: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
408: '>> SOB ID '|| l_period.set_of_books_id );
409: END IF;

Line 407: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

403: --bug 3199481 fnd logging changes: sdixit: start block
404: IF (l_state_level >= l_debug_level ) THEN
405: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
406: '>> Period '|| l_period.period_name );
407: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
408: '>> SOB ID '|| l_period.set_of_books_id );
409: END IF;
410: --bug 3199481 fnd logging changes: sdixit: end block
411:

Line 410: --bug 3199481 fnd logging changes: sdixit: end block

406: '>> Period '|| l_period.period_name );
407: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
408: '>> SOB ID '|| l_period.set_of_books_id );
409: END IF;
410: --bug 3199481 fnd logging changes: sdixit: end block
411:
412:
413: l_continue := TRUE;
414:

Line 419: --bug 3199481 fnd logging changes: sdixit: start block

415: FOR l_currency in c_currency ( l_period.period_name
416: , l_period.set_of_books_id
417: )
418: LOOP
419: --bug 3199481 fnd logging changes: sdixit: start block
420: IF (l_state_level >= l_debug_level ) THEN
421: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
422: '>> >> Currency '|| l_currency.currency_code );
423: END IF;

Line 421: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',

417: )
418: LOOP
419: --bug 3199481 fnd logging changes: sdixit: start block
420: IF (l_state_level >= l_debug_level ) THEN
421: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
422: '>> >> Currency '|| l_currency.currency_code );
423: END IF;
424: --bug 3199481 fnd logging changes: sdixit: end block
425:

Line 424: --bug 3199481 fnd logging changes: sdixit: end block

420: IF (l_state_level >= l_debug_level ) THEN
421: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.SubLedgerTrfxtoGl',
422: '>> >> Currency '|| l_currency.currency_code );
423: END IF;
424: --bug 3199481 fnd logging changes: sdixit: end block
425:
426: IF CheckTotals ( l_period.period_name, l_period.set_of_books_id
427: , l_currency.currency_code )
428: THEN

Line 432: --bug 3199481 fnd logging changes: sdixit: start block

428: THEN
429:
430: NULL;
431: ELSE
432: --bug 3199481 fnd logging changes: sdixit: start block
433: IF (l_state_level >= l_debug_level ) THEN
434: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
435: '>> >> Totals unbalanced for Currency '|| l_currency.currency_code );
436: END IF;

Line 434: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',

430: NULL;
431: ELSE
432: --bug 3199481 fnd logging changes: sdixit: start block
433: IF (l_state_level >= l_debug_level ) THEN
434: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
435: '>> >> Totals unbalanced for Currency '|| l_currency.currency_code );
436: END IF;
437: --bug 3199481 fnd logging changes: sdixit: end block
438: l_continue := FALSE;

Line 437: --bug 3199481 fnd logging changes: sdixit: end block

433: IF (l_state_level >= l_debug_level ) THEN
434: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
435: '>> >> Totals unbalanced for Currency '|| l_currency.currency_code );
436: END IF;
437: --bug 3199481 fnd logging changes: sdixit: end block
438: l_continue := FALSE;
439: END IF;
440:
441: END LOOP;

Line 480: --bug 3199481 fnd logging changes: sdixit: start block

476: end loop;
477:
478: end if;
479: commit;
480: --bug 3199481 fnd logging changes: sdixit: start block
481: WriteToLog ( 'END (Normal) Transfer to GL.');
482: IF (l_state_level >= l_debug_level ) THEN
483: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
484: 'END (Normal) Transfer to GL.');

Line 483: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',

479: commit;
480: --bug 3199481 fnd logging changes: sdixit: start block
481: WriteToLog ( 'END (Normal) Transfer to GL.');
482: IF (l_state_level >= l_debug_level ) THEN
483: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
484: 'END (Normal) Transfer to GL.');
485: END IF;
486: --bug 3199481 fnd logging changes: sdixit: end block
487:

Line 486: --bug 3199481 fnd logging changes: sdixit: end block

482: IF (l_state_level >= l_debug_level ) THEN
483: FND_LOG.STRING (l_state_level , 'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',
484: 'END (Normal) Transfer to GL.');
485: END IF;
486: --bug 3199481 fnd logging changes: sdixit: end block
487:
488: errbuf := 'Normal Completion';
489: retcode := 0;
490:

Line 492: --bug 3199481 fnd logging changes: sdixit: start block

488: errbuf := 'Normal Completion';
489: retcode := 0;
490:
491: EXCEPTION WHEN OTHERS THEN
492: --bug 3199481 fnd logging changes: sdixit: start block
493: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
494: retcode := 2;
495: errbuf := Fnd_message.get;
496:

Line 502: FND_LOG.MESSAGE ( l_unexp_level,'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',TRUE);

498:
499: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
500: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
501: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
502: FND_LOG.MESSAGE ( l_unexp_level,'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',TRUE);
503: END IF;
504: --bug 3199481 fnd logging changes: sdixit: end block
505: END;
506: END IGIPMGLT ;

Line 504: --bug 3199481 fnd logging changes: sdixit: end block

500: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
501: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
502: FND_LOG.MESSAGE ( l_unexp_level,'igi.pls.igipmgtb.IGIPMGLT.InsertInterfaceRec',TRUE);
503: END IF;
504: --bug 3199481 fnd logging changes: sdixit: end block
505: END;
506: END IGIPMGLT ;