DBA Data[Home] [Help]

APPS.IGIPMGLT dependencies on IGIPMGLT

Line 1: PACKAGE BODY IGIPMGLT AS

1: PACKAGE BODY IGIPMGLT AS
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;

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 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 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 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 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 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 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 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 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 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 506: END IGIPMGLT ;

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 ;