eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.IGI_STP_CREATE_PCK_PKG dependencies on FND_LOG

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

1: PACKAGE BODY IGI_STP_CREATE_PCK_PKG AS
2: -- $Header: igistpcb.pls 120.9 2008/03/05 13:35:55 gkumares ship $
3: -- Processing Variables
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;

Line 5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY IGI_STP_CREATE_PCK_PKG AS
2: -- $Header: igistpcb.pls 120.9 2008/03/05 13:35:55 gkumares ship $
3: -- Processing Variables
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

Line 6: l_state_level number := FND_LOG.LEVEL_STATEMENT;

2: -- $Header: igistpcb.pls 120.9 2008/03/05 13:35:55 gkumares ship $
3: -- Processing Variables
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;

Line 7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;

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

Line 8: l_event_level number := FND_LOG.LEVEL_EVENT;

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

Line 9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13:

Line 10: l_error_level number := FND_LOG.LEVEL_ERROR;

6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13:
14:

Line 11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;

7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13:
14:
15:

Line 345: --bug 3199481 fnd logging changes: sdixit

341: -- fnd_message.set_name('IGI', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
342: -- fnd_message.set_token('MODULE','STEP 1');
343: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
344:
345: --bug 3199481 fnd logging changes: sdixit
346: IF ( l_unexp_level >= l_debug_level ) THEN
347:
348: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
349: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 351: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.feed_packages',TRUE);

347:
348: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
349: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
350: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
351: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.feed_packages',TRUE);
352: END IF;
353: RAISE_APPLICATION_ERROR(-20010, 'Error in feed_packages procedure');
354: END feed_packages;
355:

Line 370: --bug 3199481 fnd logging changes: sdixit

366: --shsaxena for bug 2713715
367: EXCEPTION
368: WHEN OTHERS THEN
369: Rollback;
370: --bug 3199481 fnd logging changes: sdixit
371: IF ( l_unexp_level >= l_debug_level ) THEN
372:
373: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);

372:
373: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
379: -- fnd_message.set_token('MODULE','STEP 2');
380: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);

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

410: CLOSE get_ap_amount;
411:
412: l_variable := 'l_get_ap_amount';
413: l_value := to_char(l_get_ap_amount);
414: --bug 3199481 fnd logging changes: sdixit: start block
415: IF l_state_level >= l_debug_level THEN
416: fnd_log.string(l_state_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message||' : '||l_get_ap_amount);
417: END IF;
418: --bug 3199481 fnd logging changes: sdixit: end block

Line 416: fnd_log.string(l_state_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message||' : '||l_get_ap_amount);

412: l_variable := 'l_get_ap_amount';
413: l_value := to_char(l_get_ap_amount);
414: --bug 3199481 fnd logging changes: sdixit: start block
415: IF l_state_level >= l_debug_level THEN
416: fnd_log.string(l_state_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message||' : '||l_get_ap_amount);
417: END IF;
418: --bug 3199481 fnd logging changes: sdixit: end block
419:
420: -- Calculate the AR netting amount

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

414: --bug 3199481 fnd logging changes: sdixit: start block
415: IF l_state_level >= l_debug_level THEN
416: fnd_log.string(l_state_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message||' : '||l_get_ap_amount);
417: END IF;
418: --bug 3199481 fnd logging changes: sdixit: end block
419:
420: -- Calculate the AR netting amount
421: l_message := 'Getting the initial AR netting amount';
422: OPEN get_ar_amount;

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

424: CLOSE get_ar_amount;
425:
426: l_variable := 'l_get_ar_amount';
427: l_value := to_char(l_get_ar_amount);
428: --bug 3199481 fnd logging changes: sdixit: start block
429: IF (l_state_level >= l_debug_level ) THEN
430: FND_LOG.STRING (l_state_level ,
431: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
432: l_message||' :'||l_get_ar_amount);

Line 430: FND_LOG.STRING (l_state_level ,

426: l_variable := 'l_get_ar_amount';
427: l_value := to_char(l_get_ar_amount);
428: --bug 3199481 fnd logging changes: sdixit: start block
429: IF (l_state_level >= l_debug_level ) THEN
430: FND_LOG.STRING (l_state_level ,
431: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
432: l_message||' :'||l_get_ar_amount);
433: END IF;
434: --bug 3199481 fnd logging changes: sdixit: end block

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

430: FND_LOG.STRING (l_state_level ,
431: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
432: l_message||' :'||l_get_ar_amount);
433: END IF;
434: --bug 3199481 fnd logging changes: sdixit: end block
435:
436: -- set the netting_amount to the lower of the AP netting amount
437: -- and AR netting amount
438: l_message := 'Getting the netting amount';

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

439:
440: -- Bug 2938450 (Tpradhan), Replaced the from dual select statement with direct assignment
441: l_ar_netting_amount := least(nvl(l_get_ap_amount,0),nvl(l_get_ar_amount,0));
442: l_ap_netting_amount := l_ar_netting_amount;
443: --bug 3199481 fnd logging changes: sdixit: start block
444: IF (l_state_level >= l_debug_level ) THEN
445: FND_LOG.STRING (l_state_level ,
446: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
447: l_message||' :'||l_ar_netting_amount);

Line 445: FND_LOG.STRING (l_state_level ,

441: l_ar_netting_amount := least(nvl(l_get_ap_amount,0),nvl(l_get_ar_amount,0));
442: l_ap_netting_amount := l_ar_netting_amount;
443: --bug 3199481 fnd logging changes: sdixit: start block
444: IF (l_state_level >= l_debug_level ) THEN
445: FND_LOG.STRING (l_state_level ,
446: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
447: l_message||' :'||l_ar_netting_amount);
448: END IF;
449: --bug 3199481 fnd logging changes: sdixit: end block

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

445: FND_LOG.STRING (l_state_level ,
446: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
447: l_message||' :'||l_ar_netting_amount);
448: END IF;
449: --bug 3199481 fnd logging changes: sdixit: end block
450:
451:
452:
453: IF (l_ap_netting_amount <> 0)

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

477: AND rownum = 1;
478: END IF;
479: l_variable := 'l_rec_ccid';
480: l_value := to_char(l_rec_ccid);
481: --bug 3199481 fnd logging changes: sdixit: start block
482: IF (l_state_level >= l_debug_level ) THEN
483: FND_LOG.STRING (l_state_level ,
484: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
485: l_message||' : '||l_rec_ccid);

Line 483: FND_LOG.STRING (l_state_level ,

479: l_variable := 'l_rec_ccid';
480: l_value := to_char(l_rec_ccid);
481: --bug 3199481 fnd logging changes: sdixit: start block
482: IF (l_state_level >= l_debug_level ) THEN
483: FND_LOG.STRING (l_state_level ,
484: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
485: l_message||' : '||l_rec_ccid);
486: END IF;
487: --bug 3199481 fnd logging changes: sdixit: end block

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

483: FND_LOG.STRING (l_state_level ,
484: 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
485: l_message||' : '||l_rec_ccid);
486: END IF;
487: --bug 3199481 fnd logging changes: sdixit: end block
488:
489:
490: feed_packages (p_batch_id,
491: p_package_id,

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

505: ar_rec.exchange_rate,
506: ar_rec.exchange_rate_type,
507: ar_rec.exchange_date);
508:
509: --bug 3199481 fnd logging changes: sdixit: start block
510: IF (l_state_level >= l_debug_level ) THEN
511: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
512: 'Creating a payables document');
513: END IF;

Line 511: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',

507: ar_rec.exchange_date);
508:
509: --bug 3199481 fnd logging changes: sdixit: start block
510: IF (l_state_level >= l_debug_level ) THEN
511: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
512: 'Creating a payables document');
513: END IF;
514: --bug 3199481 fnd logging changes: sdixit: end block
515: l_ar_netting_amount := l_ar_netting_amount - ar_rec.amount;

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

510: IF (l_state_level >= l_debug_level ) THEN
511: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
512: 'Creating a payables document');
513: END IF;
514: --bug 3199481 fnd logging changes: sdixit: end block
515: l_ar_netting_amount := l_ar_netting_amount - ar_rec.amount;
516: l_message := 'AR Netting amount diminish';
517:
518: l_variable := 'l_ar_netting_amount';

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

516: l_message := 'AR Netting amount diminish';
517:
518: l_variable := 'l_ar_netting_amount';
519: l_value := to_char(l_ar_netting_amount);
520: --bug 3199481 fnd logging changes: sdixit: start block
521: IF (l_state_level >= l_debug_level ) THEN
522: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
523: l_message||' : '||l_ar_netting_amount);
524: END IF;

Line 522: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',

518: l_variable := 'l_ar_netting_amount';
519: l_value := to_char(l_ar_netting_amount);
520: --bug 3199481 fnd logging changes: sdixit: start block
521: IF (l_state_level >= l_debug_level ) THEN
522: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
523: l_message||' : '||l_ar_netting_amount);
524: END IF;
525: --bug 3199481 fnd logging changes: sdixit: end block
526:

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

521: IF (l_state_level >= l_debug_level ) THEN
522: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
523: l_message||' : '||l_ar_netting_amount);
524: END IF;
525: --bug 3199481 fnd logging changes: sdixit: end block
526:
527: IF l_ar_netting_amount <= 0
528: THEN exit;
529: END IF;

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

553: END IF;
554:
555: l_variable := 'l_liability_ccid';
556: l_value := to_char(l_liability_ccid);
557: --bug 3199481 fnd logging changes: sdixit: start block
558: IF (l_state_level >= l_debug_level ) THEN
559: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
560: l_message||' : '||l_liability_ccid);
561: END IF;

Line 559: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',

555: l_variable := 'l_liability_ccid';
556: l_value := to_char(l_liability_ccid);
557: --bug 3199481 fnd logging changes: sdixit: start block
558: IF (l_state_level >= l_debug_level ) THEN
559: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
560: l_message||' : '||l_liability_ccid);
561: END IF;
562: --bug 3199481 fnd logging changes: sdixit: end block
563:

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

558: IF (l_state_level >= l_debug_level ) THEN
559: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
560: l_message||' : '||l_liability_ccid);
561: END IF;
562: --bug 3199481 fnd logging changes: sdixit: end block
563:
564: feed_packages (p_batch_id,
565: p_package_id,
566: ap_rec.package_num,

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

580: ap_rec.exchange_rate_type,
581: ap_rec.exchange_date);
582:
583: l_message := 'Creating a receivable document';
584: --bug 3199481 fnd logging changes: sdixit: start block
585: IF (l_state_level >= l_debug_level ) THEN
586: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message);
587: END IF;
588:

Line 586: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message);

582:
583: l_message := 'Creating a receivable document';
584: --bug 3199481 fnd logging changes: sdixit: start block
585: IF (l_state_level >= l_debug_level ) THEN
586: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',l_message);
587: END IF;
588:
589: l_ap_netting_amount := l_ap_netting_amount - ap_rec.amount;
590: l_message := 'AP Netting amount diminish';

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

589: l_ap_netting_amount := l_ap_netting_amount - ap_rec.amount;
590: l_message := 'AP Netting amount diminish';
591: l_variable := 'l_ap_netting_amount';
592: l_value := to_char(l_ap_netting_amount);
593: --bug 3199481 fnd logging changes: sdixit: start block
594: IF (l_state_level >= l_debug_level ) THEN
595: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
596: l_message||' : '||l_ap_netting_amount);
597: END IF;

Line 595: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',

591: l_variable := 'l_ap_netting_amount';
592: l_value := to_char(l_ap_netting_amount);
593: --bug 3199481 fnd logging changes: sdixit: start block
594: IF (l_state_level >= l_debug_level ) THEN
595: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting',
596: l_message||' : '||l_ap_netting_amount);
597: END IF;
598:
599: IF l_ap_netting_amount <= 0 THEN

Line 611: --bug 3199481 fnd logging changes: sdixit

607: -- fnd_message.set_token('MODULE','STEP 3');
608: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
609: if l_flag = '1' then
610:
611: --bug 3199481 fnd logging changes: sdixit
612: IF ( l_unexp_level >= l_debug_level ) THEN
613:
614: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 617: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg1',TRUE);

613:
614: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg1',TRUE);
618: END IF;
619:
620: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Receivable AC ');
621: elsif l_flag = '2' then

Line 622: --bug 3199481 fnd logging changes: sdixit

618: END IF;
619:
620: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Receivable AC ');
621: elsif l_flag = '2' then
622: --bug 3199481 fnd logging changes: sdixit
623: IF ( l_unexp_level >= l_debug_level ) THEN
624:
625: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
626: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);

624:
625: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
626: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
627: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);
629: END IF;
630: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Liability AC');
631: else
632: --bug 3199481 fnd logging changes: sdixit

Line 632: --bug 3199481 fnd logging changes: sdixit

628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);
629: END IF;
630: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Liability AC');
631: else
632: --bug 3199481 fnd logging changes: sdixit
633: IF ( l_unexp_level >= l_debug_level ) THEN
634:
635: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
636: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 638: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg3',TRUE);

634:
635: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
636: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
637: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
638: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg3',TRUE);
639: END IF;
640: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure');
641: end if;
642:

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

668: l_message := 'Getting the initial AP netting amount for objections to payment and assignments';
669: l_ap_only_netting_amount := nvl(p_contra_amount,0);
670: l_variable := 'l_ap_only_netting_amount';
671: l_value := to_char(l_ap_only_netting_amount);
672: --bug 3199481 fnd logging changes: sdixit: start block
673: -- fnd_file.put_line(fnd_file.log ,l_message||' : '||l_ap_only_netting_amount);
674: IF (l_state_level >= l_debug_level ) THEN
675: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
676: l_message||' : '||l_ap_only_netting_amount);

Line 675: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',

671: l_value := to_char(l_ap_only_netting_amount);
672: --bug 3199481 fnd logging changes: sdixit: start block
673: -- fnd_file.put_line(fnd_file.log ,l_message||' : '||l_ap_only_netting_amount);
674: IF (l_state_level >= l_debug_level ) THEN
675: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
676: l_message||' : '||l_ap_only_netting_amount);
677: END IF;
678: --bug 3199481 fnd logging changes: sdixit: end block
679:

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

674: IF (l_state_level >= l_debug_level ) THEN
675: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
676: l_message||' : '||l_ap_only_netting_amount);
677: END IF;
678: --bug 3199481 fnd logging changes: sdixit: end block
679:
680: -- Get the contra_party_site_id
681: l_message := 'Get the contra_party_site_id';
682: l_flag := '1';

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

688: AND org_id = p_org_id
689: AND rownum = 1;
690: l_variable := 'l_contra_party_site_id';
691: l_value := to_char(l_contra_party_site_id);
692: --bug 3199481 fnd logging changes: sdixit: start block
693: --fnd_file.put_line(fnd_file.log ,l_message||' : '||l_contra_party_site_id);
694: IF (l_state_level >= l_debug_level ) THEN
695: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
696: l_message||' : '||l_contra_party_site_id);

Line 695: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',

691: l_value := to_char(l_contra_party_site_id);
692: --bug 3199481 fnd logging changes: sdixit: start block
693: --fnd_file.put_line(fnd_file.log ,l_message||' : '||l_contra_party_site_id);
694: IF (l_state_level >= l_debug_level ) THEN
695: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
696: l_message||' : '||l_contra_party_site_id);
697: END IF;
698: --bug 3199481 fnd logging changes: sdixit: end block
699:

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

694: IF (l_state_level >= l_debug_level ) THEN
695: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',
696: l_message||' : '||l_contra_party_site_id);
697: END IF;
698: --bug 3199481 fnd logging changes: sdixit: end block
699:
700: l_flag := '2';
701: FOR ap_rec IN get_ap_only_candidate_details LOOP
702:

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

719: END IF;
720:
721: l_variable := 'l_liability_ccid';
722: l_value := to_char(l_liability_ccid);
723: --bug 3199481 fnd logging changes: sdixit: start block
724: -- fnd_file.put_line(fnd_file.log ,l_message||' : '||l_liability_ccid);
725: IF (l_state_level >= l_debug_level ) THEN
726: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.ap_only_Netting',
727: l_message||' : '||l_liability_ccid);

Line 726: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.ap_only_Netting',

722: l_value := to_char(l_liability_ccid);
723: --bug 3199481 fnd logging changes: sdixit: start block
724: -- fnd_file.put_line(fnd_file.log ,l_message||' : '||l_liability_ccid);
725: IF (l_state_level >= l_debug_level ) THEN
726: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.ap_only_Netting',
727: l_message||' : '||l_liability_ccid);
728: END IF;
729: --bug 3199481 fnd logging changes: sdixit: end block
730:

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

725: IF (l_state_level >= l_debug_level ) THEN
726: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.ap_only_Netting',
727: l_message||' : '||l_liability_ccid);
728: END IF;
729: --bug 3199481 fnd logging changes: sdixit: end block
730:
731:
732: IF p_netting_trx_type_id = 3
733:

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

753: ap_rec.exchange_rate,
754: ap_rec.exchange_rate_type,
755: ap_rec.exchange_date);
756: l_message := 'Create AP objection to payment document for the third party';
757: --bug 3199481 fnd logging changes: sdixit: start block
758: --d_file.put_line(fnd_file.log ,l_message);
759: IF (l_state_level >= l_debug_level ) THEN
760: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
761: END IF;

Line 760: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);

756: l_message := 'Create AP objection to payment document for the third party';
757: --bug 3199481 fnd logging changes: sdixit: start block
758: --d_file.put_line(fnd_file.log ,l_message);
759: IF (l_state_level >= l_debug_level ) THEN
760: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
761: END IF;
762: --bug 3199481 fnd logging changes: sdixit: end block
763:
764: -- Insert the AP document for the Contra party id

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

758: --d_file.put_line(fnd_file.log ,l_message);
759: IF (l_state_level >= l_debug_level ) THEN
760: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
761: END IF;
762: --bug 3199481 fnd logging changes: sdixit: end block
763:
764: -- Insert the AP document for the Contra party id
765: feed_packages (p_batch_id,
766: p_package_id,

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

779: ap_rec.exchange_rate,
780: ap_rec.exchange_rate_type,
781: ap_rec.exchange_date);
782: l_message := 'Create AP objection to payment document for the Contra party';
783: --bug 3199481 fnd logging changes: sdixit: start block
784: IF (l_state_level >= l_debug_level ) THEN
785: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
786: END IF;
787: --bug 3199481 fnd logging changes: sdixit: end block

Line 785: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);

781: ap_rec.exchange_date);
782: l_message := 'Create AP objection to payment document for the Contra party';
783: --bug 3199481 fnd logging changes: sdixit: start block
784: IF (l_state_level >= l_debug_level ) THEN
785: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
786: END IF;
787: --bug 3199481 fnd logging changes: sdixit: end block
788:
789: ELSIF p_netting_trx_type_id = 5 THEN

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

783: --bug 3199481 fnd logging changes: sdixit: start block
784: IF (l_state_level >= l_debug_level ) THEN
785: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
786: END IF;
787: --bug 3199481 fnd logging changes: sdixit: end block
788:
789: ELSIF p_netting_trx_type_id = 5 THEN
790: -- Netting Trx Type = 5 therefore process Assignments
791: -- Insert the AP document for the stp

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

809: ap_rec.exchange_rate_type,
810: ap_rec.exchange_date);
811:
812: l_message := 'Create AP assignment document for the STP';
813: --bug 3199481 fnd logging changes: sdixit: start block
814: IF (l_state_level >= l_debug_level ) THEN
815: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
816: END IF;
817: --bug 3199481 fnd logging changes: sdixit: end block

Line 815: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);

811:
812: l_message := 'Create AP assignment document for the STP';
813: --bug 3199481 fnd logging changes: sdixit: start block
814: IF (l_state_level >= l_debug_level ) THEN
815: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
816: END IF;
817: --bug 3199481 fnd logging changes: sdixit: end block
818:
819: -- Insert the AP document for the Contra party id

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

813: --bug 3199481 fnd logging changes: sdixit: start block
814: IF (l_state_level >= l_debug_level ) THEN
815: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
816: END IF;
817: --bug 3199481 fnd logging changes: sdixit: end block
818:
819: -- Insert the AP document for the Contra party id
820: feed_packages (p_batch_id,
821: p_package_id,

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

835: ap_rec.exchange_rate,
836: ap_rec.exchange_rate_type,
837: ap_rec.exchange_date);
838: l_message := 'Create AP assignment doc. for the Contra party';
839: --bug 3199481 fnd logging changes: sdixit: start block
840: IF (l_state_level >= l_debug_level ) THEN
841: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
842: END IF;
843: --bug 3199481 fnd logging changes: sdixit: end block

Line 841: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);

837: ap_rec.exchange_date);
838: l_message := 'Create AP assignment doc. for the Contra party';
839: --bug 3199481 fnd logging changes: sdixit: start block
840: IF (l_state_level >= l_debug_level ) THEN
841: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
842: END IF;
843: --bug 3199481 fnd logging changes: sdixit: end block
844:
845: END IF;

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

839: --bug 3199481 fnd logging changes: sdixit: start block
840: IF (l_state_level >= l_debug_level ) THEN
841: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
842: END IF;
843: --bug 3199481 fnd logging changes: sdixit: end block
844:
845: END IF;
846:
847: l_ap_only_netting_amount := l_ap_only_netting_amount - ap_rec.amount;

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

847: l_ap_only_netting_amount := l_ap_only_netting_amount - ap_rec.amount;
848: l_message := 'AP Netting amount diminish';
849: l_variable := 'l_ap_only_netting_amount';
850: l_value := to_char(l_ap_only_netting_amount);
851: --bug 3199481 fnd logging changes: sdixit: start block
852: IF (l_state_level >= l_debug_level ) THEN
853: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
854: END IF;
855: --bug 3199481 fnd logging changes: sdixit: end block

Line 853: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);

849: l_variable := 'l_ap_only_netting_amount';
850: l_value := to_char(l_ap_only_netting_amount);
851: --bug 3199481 fnd logging changes: sdixit: start block
852: IF (l_state_level >= l_debug_level ) THEN
853: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
854: END IF;
855: --bug 3199481 fnd logging changes: sdixit: end block
856:
857: IF l_ap_only_netting_amount <= 0

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

851: --bug 3199481 fnd logging changes: sdixit: start block
852: IF (l_state_level >= l_debug_level ) THEN
853: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Ap_only_Netting',l_message);
854: END IF;
855: --bug 3199481 fnd logging changes: sdixit: end block
856:
857: IF l_ap_only_netting_amount <= 0
858: THEN exit;
859: END IF;

Line 868: --bug 3199481 fnd logging changes: sdixit

864: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
865: -- fnd_message.set_token('MODULE',l_message);
866: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
867: if l_flag = '1' then
868: --bug 3199481 fnd logging changes: sdixit
869: IF ( l_unexp_level >= l_debug_level ) THEN
870:
871: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
872: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);

870:
871: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
872: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
873: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);
875: END IF;
876: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure vendor site id');
877: elsif l_flag = '2' then
878: --bug 3199481 fnd logging changes: sdixit

Line 878: --bug 3199481 fnd logging changes: sdixit

874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);
875: END IF;
876: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure vendor site id');
877: elsif l_flag = '2' then
878: --bug 3199481 fnd logging changes: sdixit
879: IF ( l_unexp_level >= l_debug_level ) THEN
880:
881: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
882: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);

880:
881: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
882: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
883: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);
885: END IF;
886: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure liability account');
887: else
888: --bug 3199481 fnd logging changes: sdixit

Line 888: --bug 3199481 fnd logging changes: sdixit

884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);
885: END IF;
886: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure liability account');
887: else
888: --bug 3199481 fnd logging changes: sdixit
889: IF ( l_unexp_level >= l_debug_level ) THEN
890:
891: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
892: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 894: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg3',TRUE);

890:
891: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
892: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
893: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
894: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg3',TRUE);
895: END IF;
896: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure' );
897: end if;
898: END AP_only_Netting;

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

932:
933: l_variable := 'p_package_id';
934: l_value := to_char(p_package_id);
935: l_message := 'package_id : '||to_char(p_package_id);
936: --bug 3199481 fnd logging changes: sdixit: start block
937: IF (l_state_level >= l_debug_level ) THEN
938: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
939: END IF;
940: --bug 3199481 fnd logging changes: sdixit: end block

Line 938: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);

934: l_value := to_char(p_package_id);
935: l_message := 'package_id : '||to_char(p_package_id);
936: --bug 3199481 fnd logging changes: sdixit: start block
937: IF (l_state_level >= l_debug_level ) THEN
938: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
939: END IF;
940: --bug 3199481 fnd logging changes: sdixit: end block
941:
942: l_variable := 'p_netting_trx_type_id';

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

936: --bug 3199481 fnd logging changes: sdixit: start block
937: IF (l_state_level >= l_debug_level ) THEN
938: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
939: END IF;
940: --bug 3199481 fnd logging changes: sdixit: end block
941:
942: l_variable := 'p_netting_trx_type_id';
943: l_value := to_char(p_netting_trx_type_id);
944: l_message := 'netting_trx_type_id : '||to_char(p_netting_trx_type_id);

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

941:
942: l_variable := 'p_netting_trx_type_id';
943: l_value := to_char(p_netting_trx_type_id);
944: l_message := 'netting_trx_type_id : '||to_char(p_netting_trx_type_id);
945: --bug 3199481 fnd logging changes: sdixit: start block
946: IF (l_state_level >= l_debug_level ) THEN
947: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
948: END IF;
949: --bug 3199481 fnd logging changes: sdixit: end block

Line 947: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);

943: l_value := to_char(p_netting_trx_type_id);
944: l_message := 'netting_trx_type_id : '||to_char(p_netting_trx_type_id);
945: --bug 3199481 fnd logging changes: sdixit: start block
946: IF (l_state_level >= l_debug_level ) THEN
947: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
948: END IF;
949: --bug 3199481 fnd logging changes: sdixit: end block
950:
951: --Transaction types 1 and 2 are commented because this partcular feature is not part of R12

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

945: --bug 3199481 fnd logging changes: sdixit: start block
946: IF (l_state_level >= l_debug_level ) THEN
947: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Submit_Netting',l_message);
948: END IF;
949: --bug 3199481 fnd logging changes: sdixit: end block
950:
951: --Transaction types 1 and 2 are commented because this partcular feature is not part of R12
952: --p_org_id is new input parameter passed to AP_only_Netting,pay_excess_netting and sup_reimb_netting procedures
953:

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

1004: CLOSE get_ar_amount;
1005:
1006: l_variable := 'l_get_ar_amount';
1007: l_value := to_char(l_get_ar_amount);
1008: --bug 3199481 fnd logging changes: sdixit: start block
1009: IF (l_state_level >= l_debug_level ) THEN
1010: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Pay_excess_Netting',l_message);
1011: END IF;
1012: --bug 3199481 fnd logging changes: sdixit: end block

Line 1010: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Pay_excess_Netting',l_message);

1006: l_variable := 'l_get_ar_amount';
1007: l_value := to_char(l_get_ar_amount);
1008: --bug 3199481 fnd logging changes: sdixit: start block
1009: IF (l_state_level >= l_debug_level ) THEN
1010: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Pay_excess_Netting',l_message);
1011: END IF;
1012: --bug 3199481 fnd logging changes: sdixit: end block
1013:
1014: -- set the netting_amount to the lower of the AP netting amount

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

1008: --bug 3199481 fnd logging changes: sdixit: start block
1009: IF (l_state_level >= l_debug_level ) THEN
1010: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Pay_excess_Netting',l_message);
1011: END IF;
1012: --bug 3199481 fnd logging changes: sdixit: end block
1013:
1014: -- set the netting_amount to the lower of the AP netting amount
1015: -- and AR netting amount
1016: l_message := 'Getting the netting amount';

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

1018: -- Bug 2938450 (Tpradhan), Replaced the from dual select statement with direct assignment
1019: l_ar_netting_amount := nvl(l_get_ar_amount,0);
1020: l_variable := 'l_ar_netting_amount';
1021: l_value := to_char(l_ar_netting_amount);
1022: --bug 3199481 fnd logging changes: sdixit: start block
1023: IF (l_state_level >= l_debug_level ) THEN
1024: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1025: END IF;
1026: --bug 3199481 fnd logging changes: sdixit: end block

Line 1024: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);

1020: l_variable := 'l_ar_netting_amount';
1021: l_value := to_char(l_ar_netting_amount);
1022: --bug 3199481 fnd logging changes: sdixit: start block
1023: IF (l_state_level >= l_debug_level ) THEN
1024: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1025: END IF;
1026: --bug 3199481 fnd logging changes: sdixit: end block
1027: IF (l_ar_netting_amount <> 0) THEN
1028: l_flag := '1';

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

1022: --bug 3199481 fnd logging changes: sdixit: start block
1023: IF (l_state_level >= l_debug_level ) THEN
1024: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1025: END IF;
1026: --bug 3199481 fnd logging changes: sdixit: end block
1027: IF (l_ar_netting_amount <> 0) THEN
1028: l_flag := '1';
1029: -- Process the AR elements of the package --
1030: --------------------------------------------

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

1046: AND rownum = 1;
1047: END IF;
1048: l_variable := 'l_rec_ccid';
1049: l_value := to_char(l_rec_ccid);
1050: --bug 3199481 fnd logging changes: sdixit: start block
1051: IF (l_state_level >= l_debug_level ) THEN
1052: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1053: END IF;
1054: --bug 3199481 fnd logging changes: sdixit: end block

Line 1052: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);

1048: l_variable := 'l_rec_ccid';
1049: l_value := to_char(l_rec_ccid);
1050: --bug 3199481 fnd logging changes: sdixit: start block
1051: IF (l_state_level >= l_debug_level ) THEN
1052: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1053: END IF;
1054: --bug 3199481 fnd logging changes: sdixit: end block
1055: l_message := 'Creating a Receivable DM';
1056: feed_packages (p_batch_id,

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

1050: --bug 3199481 fnd logging changes: sdixit: start block
1051: IF (l_state_level >= l_debug_level ) THEN
1052: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1053: END IF;
1054: --bug 3199481 fnd logging changes: sdixit: end block
1055: l_message := 'Creating a Receivable DM';
1056: feed_packages (p_batch_id,
1057: p_package_id,
1058: ar_rec.package_num,

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

1070: ar_rec.exchange_rate,
1071: ar_rec.exchange_rate_type,
1072: ar_rec.exchange_date);
1073: l_message := 'Creating a payable invoice';
1074: --bug 3199481 fnd logging changes: sdixit: start block
1075: IF (l_state_level >= l_debug_level ) THEN
1076: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1077: END IF;
1078: --bug 3199481 fnd logging changes: sdixit: end block

Line 1076: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);

1072: ar_rec.exchange_date);
1073: l_message := 'Creating a payable invoice';
1074: --bug 3199481 fnd logging changes: sdixit: start block
1075: IF (l_state_level >= l_debug_level ) THEN
1076: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1077: END IF;
1078: --bug 3199481 fnd logging changes: sdixit: end block
1079:
1080: open get_vendor(ar_rec.stp_id);

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

1074: --bug 3199481 fnd logging changes: sdixit: start block
1075: IF (l_state_level >= l_debug_level ) THEN
1076: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1077: END IF;
1078: --bug 3199481 fnd logging changes: sdixit: end block
1079:
1080: open get_vendor(ar_rec.stp_id);
1081: fetch get_vendor into l_vendor_id;
1082: close get_vendor;

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

1105:
1106: l_message := 'Payment Excess Netting amount diminish';
1107: l_variable := 'l_ar_netting_amount';
1108: l_value := to_char(l_ar_netting_amount);
1109: --bug 3199481 fnd logging changes: sdixit: start block
1110: IF (l_state_level >= l_debug_level ) THEN
1111: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1112: END IF;
1113: --bug 3199481 fnd logging changes: sdixit: end block

Line 1111: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);

1107: l_variable := 'l_ar_netting_amount';
1108: l_value := to_char(l_ar_netting_amount);
1109: --bug 3199481 fnd logging changes: sdixit: start block
1110: IF (l_state_level >= l_debug_level ) THEN
1111: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1112: END IF;
1113: --bug 3199481 fnd logging changes: sdixit: end block
1114:
1115: IF l_ar_netting_amount <= 0 THEN

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

1109: --bug 3199481 fnd logging changes: sdixit: start block
1110: IF (l_state_level >= l_debug_level ) THEN
1111: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_Netting',l_message);
1112: END IF;
1113: --bug 3199481 fnd logging changes: sdixit: end block
1114:
1115: IF l_ar_netting_amount <= 0 THEN
1116: exit;
1117: END IF;

Line 1123: --bug 3199481 fnd logging changes: sdixit

1119: END LOOP;
1120: END IF;
1121: EXCEPTION
1122: WHEN OTHERS THEN
1123: --bug 3199481 fnd logging changes: sdixit
1124: IF ( l_unexp_level >= l_debug_level ) THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1127: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 1129: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_netting',TRUE);

1125:
1126: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1127: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1128: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1129: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_netting',TRUE);
1130: END IF;
1131:
1132: if l_flag = '1' then
1133: RAISE_APPLICATION_ERROR(-20010, 'Error in pay excess netting procedure Receivable AC ');

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

1162: CLOSE get_ap_amount;
1163:
1164: l_variable := 'l_get_ap_amount';
1165: l_value := to_char(l_get_ap_amount);
1166: --bug 3199481 fnd logging changes: sdixit: start block
1167: IF (l_state_level >= l_debug_level ) THEN
1168: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1169: END IF;
1170: --bug 3199481 fnd logging changes: sdixit: end block

Line 1168: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);

1164: l_variable := 'l_get_ap_amount';
1165: l_value := to_char(l_get_ap_amount);
1166: --bug 3199481 fnd logging changes: sdixit: start block
1167: IF (l_state_level >= l_debug_level ) THEN
1168: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1169: END IF;
1170: --bug 3199481 fnd logging changes: sdixit: end block
1171:
1172: l_message := 'Getting the netting amount';

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

1166: --bug 3199481 fnd logging changes: sdixit: start block
1167: IF (l_state_level >= l_debug_level ) THEN
1168: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1169: END IF;
1170: --bug 3199481 fnd logging changes: sdixit: end block
1171:
1172: l_message := 'Getting the netting amount';
1173:
1174: -- Bug 2938450 (Tpradhan), Replaced the from dual select statement with direct assignment

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

1190: AND rownum = 1;
1191: END IF;
1192: l_variable := 'l_liability_ccid';
1193: l_value := to_char(l_liability_ccid);
1194: --bug 3199481 fnd logging changes: sdixit: start block
1195: --fnd_file.put_line(fnd_file.log ,l_message);
1196: IF (l_state_level >= l_debug_level ) THEN
1197: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1198: END IF;

Line 1197: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);

1193: l_value := to_char(l_liability_ccid);
1194: --bug 3199481 fnd logging changes: sdixit: start block
1195: --fnd_file.put_line(fnd_file.log ,l_message);
1196: IF (l_state_level >= l_debug_level ) THEN
1197: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1198: END IF;
1199: --bug 3199481 fnd logging changes: sdixit: end block
1200:
1201: feed_packages (p_batch_id,

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

1195: --fnd_file.put_line(fnd_file.log ,l_message);
1196: IF (l_state_level >= l_debug_level ) THEN
1197: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1198: END IF;
1199: --bug 3199481 fnd logging changes: sdixit: end block
1200:
1201: feed_packages (p_batch_id,
1202: p_package_id,
1203: ap_rec.package_num,

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

1215: ap_rec.exchange_rate,
1216: ap_rec.exchange_rate_type,
1217: ap_rec.exchange_date);
1218: l_message := 'Creating a receivable document';
1219: --bug 3199481 fnd logging changes: sdixit: start block
1220: IF (l_state_level >= l_debug_level ) THEN
1221: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1222: END IF;
1223: --bug 3199481 fnd logging changes: sdixit: end block

Line 1221: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);

1217: ap_rec.exchange_date);
1218: l_message := 'Creating a receivable document';
1219: --bug 3199481 fnd logging changes: sdixit: start block
1220: IF (l_state_level >= l_debug_level ) THEN
1221: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1222: END IF;
1223: --bug 3199481 fnd logging changes: sdixit: end block
1224:
1225: open get_customer(ap_rec.stp_id);

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

1219: --bug 3199481 fnd logging changes: sdixit: start block
1220: IF (l_state_level >= l_debug_level ) THEN
1221: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1222: END IF;
1223: --bug 3199481 fnd logging changes: sdixit: end block
1224:
1225: open get_customer(ap_rec.stp_id);
1226: fetch get_customer into l_customer_id;
1227: close get_customer;

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

1249: l_ap_netting_amount := l_ap_netting_amount - ap_rec.amount;
1250: l_message := 'AP Netting amount diminish';
1251: l_variable := 'l_ap_netting_amount';
1252: l_value := to_char(l_ap_netting_amount);
1253: --bug 3199481 fnd logging changes: sdixit: start block
1254: IF (l_state_level >= l_debug_level ) THEN
1255: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1256: END IF;
1257: --bug 3199481 fnd logging changes: sdixit: end block

Line 1255: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);

1251: l_variable := 'l_ap_netting_amount';
1252: l_value := to_char(l_ap_netting_amount);
1253: --bug 3199481 fnd logging changes: sdixit: start block
1254: IF (l_state_level >= l_debug_level ) THEN
1255: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1256: END IF;
1257: --bug 3199481 fnd logging changes: sdixit: end block
1258:
1259: IF l_ap_netting_amount <= 0 THEN

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

1253: --bug 3199481 fnd logging changes: sdixit: start block
1254: IF (l_state_level >= l_debug_level ) THEN
1255: FND_LOG.STRING (l_state_level , 'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_Netting',l_message);
1256: END IF;
1257: --bug 3199481 fnd logging changes: sdixit: end block
1258:
1259: IF l_ap_netting_amount <= 0 THEN
1260: exit;
1261: END IF;

Line 1266: --bug 3199481 fnd logging changes: sdixit

1262: END LOOP;
1263: END IF;
1264: EXCEPTION
1265: WHEN OTHERS THEN
1266: --bug 3199481 fnd logging changes: sdixit
1267: IF ( l_unexp_level >= l_debug_level ) THEN
1268:
1269: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1270: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);

Line 1272: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_netting',TRUE);

1268:
1269: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1270: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1271: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1272: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_netting',TRUE);
1273: END IF;
1274: if l_flag = '1' then
1275: RAISE_APPLICATION_ERROR(-20010, 'Error in supplier reimb netting procedure Liability AC');
1276: else