DBA Data[Home] [Help]

APPS.IGIPMSLR dependencies on IGIPMSLR

Line 1: Package Body IGIPMSLR AS

1: Package Body IGIPMSLR AS
2: -- $Header: igipmslb.pls 115.6 2003/12/01 15:00:09 sdixit ship $
3: -- ---------
4: -- SUBTYPES
5: -- --------

Line 194: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmslb.IGIPMSLR.DateFactor',TRUE);

190:
191: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
192: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
193: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
194: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmslb.IGIPMSLR.DateFactor',TRUE);
195: END IF;
196: --bug 3199481 fnd logging changes: sdixit: end block
197: return null;
198: END DateFactor;

Line 230: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmslb.IGIPMSLR.GetDay',TRUE);

226:
227: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
228: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
229: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
230: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmslb.IGIPMSLR.GetDay',TRUE);
231: END IF;
232: --bug 3199481 fnd logging changes: sdixit: end block
233: null;
234: END GetDay;

Line 391: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateNormalEntries',

387:
388: IF p_dr_or_cr = 'DR' THEN
389: --bug 3199481: fnd logging changes:sdixit :start
390: IF (l_state_level >= l_debug_level ) THEN
391: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateNormalEntries',
392: '>> >> >> >> Debit entry..(EXPENSE).');
393: END IF;
394: l_sublgr.code_combination_id := p_ext_dist.code_combination_id;
395: ELSE

Line 398: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateNormalEntries',

394: l_sublgr.code_combination_id := p_ext_dist.code_combination_id;
395: ELSE
396: --bug 3199481: fnd logging changes:sdixit :start
397: IF (l_state_level >= l_debug_level ) THEN
398: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateNormalEntries',
399: '>> >> >> >> Credit entry..(FUTURE POSTING).');
400: END IF;
401: --bug 3199481 fnd logging changes: sdixit: end block
402: l_sublgr.code_combination_id := p_future_posting_ccid;

Line 456: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

452: -- mpp distribution details
453: */
454: --bug 3199481: fnd logging changes:sdixit :start
455: IF (l_state_level >= l_debug_level ) THEN
456: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
457: '>> >> Inside Create new Subledger entry...');
458: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
459: '>> >> Validating Set up...');
460: END IF;

Line 458: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

454: --bug 3199481: fnd logging changes:sdixit :start
455: IF (l_state_level >= l_debug_level ) THEN
456: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
457: '>> >> Inside Create new Subledger entry...');
458: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
459: '>> >> Validating Set up...');
460: END IF;
461: --bug 3199481 fnd logging changes: sdixit: end block
462: OPEN c_future_post;

Line 476: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

472: raise_application_error ( -20000, 'Future Posting Account is not set.');
473: END IF;
474: --bug 3199481: fnd logging changes:sdixit :start
475: IF (l_state_level >= l_debug_level ) THEN
476: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
477: '>> >> MPP Setup Validation successful...');
478: END IF;
479: --bug 3199481 fnd logging changes: sdixit: end block
480: END LOOP;

Line 492: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

488: -- Set the Subldger Template record
489: */
490: --bug 3199481: fnd logging changes:sdixit :start
491: IF (l_state_level >= l_debug_level ) THEN
492: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
493: '>> >> Building Sub ledger Template...');
494: END IF;
495: --bug 3199481 fnd logging changes: sdixit: end block
496:

Line 545: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

541: -- line level
542: */
543: --bug 3199481: fnd logging changes:sdixit :start
544: IF (l_state_level >= l_debug_level ) THEN
545: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
546: '>> >> Creating Offset entries...');
547: END IF;
548: --bug 3199481 fnd logging changes: sdixit: end block
549:

Line 556: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

552: , p_dist.distribution_line_number
553: ) THEN
554: --bug 3199481: fnd logging changes:sdixit :start
555: IF (l_state_level >= l_debug_level ) THEN
556: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
557: '>> >> >> Creating Offset entries (CR) OF EXPENSE ...');
558: END IF;
559: --bug 3199481 fnd logging changes: sdixit: end block
560: CreateOffsetEntries ( l_sublgr

Line 568: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

564: , p_dist.base_amount
565: );
566: --bug 3199481: fnd logging changes:sdixit :start
567: IF (l_state_level >= l_debug_level ) THEN
568: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
569: '>> >> >> Creating Offset entries (DR) OF FUTURE POSTING ...');
570: END IF;
571: --bug 3199481 fnd logging changes: sdixit: end block
572: CreateOffsetEntries ( l_sublgr

Line 584: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

580: , p_dist.distribution_line_number )
581: LOOP
582: --bug 3199481: fnd logging changes:sdixit :start
583: IF (l_state_level >= l_debug_level ) THEN
584: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
585: '>> >> >> Creating Normal entries (DR) OF EXPENSE ...');
586: END IF;
587: --bug 3199481 fnd logging changes: sdixit: end block
588:

Line 596: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',

592: , 'DR' )
593: ;
594: --bug 3199481: fnd logging changes:sdixit :start
595: IF (l_state_level >= l_debug_level ) THEN
596: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.CreateEntries',
597: '>> >> >> Creating Normal entries (CR) OF FUTURE POSTING ...');
598: END IF;
599: --bug 3199481 fnd logging changes: sdixit: end block
600:

Line 622: FND_LOG.STRING (l_state_level ,'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

618: BEGIN
619:
620: --bug 3199481: fnd logging changes:sdixit :start
621: IF (l_state_level >= l_debug_level ) THEN
622: FND_LOG.STRING (l_state_level ,'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
623: 'Begin Creation of MPP Subledger Entry...');
624: END IF;
625:
626: l_currency_code := GetInvoiceCurrency ( p_invoice_id );

Line 628: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

624: END IF;
625:
626: l_currency_code := GetInvoiceCurrency ( p_invoice_id );
627: IF (l_state_level >= l_debug_level ) THEN
628: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
629: '>> Invoice Currency '||l_currency_code );
630: END IF;
631: --bug 3199481 fnd logging changes: sdixit: end block
632:

Line 636: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

632:
633: FOR l_dist in c_dist ( p_invoice_id, p_distribution_line_number ) LOOP
634: --bug 3199481: fnd logging changes:sdixit :start
635: IF (l_state_level >= l_debug_level ) THEN
636: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
637: '>> Processing Invoice Distributions ...');
638: END IF;
639: IF (l_state_level >= l_debug_level ) THEN
640: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

Line 640: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

636: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
637: '>> Processing Invoice Distributions ...');
638: END IF;
639: IF (l_state_level >= l_debug_level ) THEN
640: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
641: '>> Processing MPP distributions ...');
642: END IF;
643: --bug 3199481 fnd logging changes: sdixit: end block
644:

Line 650: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

646: , l_dist.distribution_line_number
647: ) THEN
648: --bug 3199481: fnd logging changes:sdixit :start
649: IF (l_state_level >= l_debug_level ) THEN
650: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
651: '>> >> Subledger entries have been recognized or posted...');
652: END IF;
653: IF (l_state_level >= l_debug_level ) THEN
654: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

Line 654: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

650: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
651: '>> >> Subledger entries have been recognized or posted...');
652: END IF;
653: IF (l_state_level >= l_debug_level ) THEN
654: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
655: '>> >> Stop further processing on this MPP distribution...');
656: END IF;
657: --bug 3199481 fnd logging changes: sdixit: end block
658:

Line 663: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

659: NULL;
660: ELSE
661: --bug 3199481: fnd logging changes:sdixit :start
662: IF (l_state_level >= l_debug_level ) THEN
663: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
664: '>> >> Delete from Subledger Entries...');
665: END IF;
666: --bug 3199481 fnd logging changes: sdixit: end block
667:

Line 675: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',

671: ;
672: --bug 3199481: fnd logging changes:sdixit :start
673: --WriteToLog ('>> >> Create New Subledger Entries...');
674: IF (l_state_level >= l_debug_level ) THEN
675: FND_LOG.STRING (l_state_level , 'igi.pls.igipmslb.IGIPMSLR.Create_MPPSLR_Details',
676: '>> >> Create New Subledger Entries...');
677: END IF;
678: --bug 3199481 fnd logging changes: sdixit: end block
679: CreateEntries ( l_dist );