1: PACKAGE BODY IGIRRPS AS
2: -- $Header: igirrpsb.pls 120.8.12000000.1 2007/08/31 05:53:27 mbremkum ship $
3:
4: l_debug_level number;
5: l_state_level number;
1: PACKAGE BODY IGIRRPS AS
2: -- $Header: igirrpsb.pls 120.8.12000000.1 2007/08/31 05:53:27 mbremkum ship $
3:
4: l_debug_level number;
5: l_state_level number;
6: l_proc_level number;
310: BEGIN
311: --WriteToLog ( ' Beginning of UpdateStandingCharges...');
312: -- bug 3199481, start block
313: IF (l_state_level >= l_debug_level) THEN
314: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg1',
315: ' Beginning of UpdateStandingCharges...');
316: END IF;
317: -- bug 3199481, end block
318: FOR lv_update_sc IN C_UpdateStandingCharges (pp_standing_charge_id,pp_generate_sequence)
325: --WriteToLog ( ' ------------------------------------------------------- ');
326:
327: -- bug 3199481, start block
328: IF (l_state_level >= l_debug_level) THEN
329: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg2',
330: ' Standing Charge ID '|| lv_update_sc.standing_charge_id );
331: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg3',
332: ' Standing Charge Ref '|| lv_update_sc.charge_reference );
333: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg4',
327: -- bug 3199481, start block
328: IF (l_state_level >= l_debug_level) THEN
329: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg2',
330: ' Standing Charge ID '|| lv_update_sc.standing_charge_id );
331: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg3',
332: ' Standing Charge Ref '|| lv_update_sc.charge_reference );
333: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg4',
334: ' Old Next Due Date '|| lv_update_sc.next_due_date );
335: END IF;
329: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg2',
330: ' Standing Charge ID '|| lv_update_sc.standing_charge_id );
331: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg3',
332: ' Standing Charge Ref '|| lv_update_sc.charge_reference );
333: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg4',
334: ' Old Next Due Date '|| lv_update_sc.next_due_date );
335: END IF;
336: -- bug 3199481, end block
337:
353: --WriteToLog ( ' New GL Date '|| ld_new_sc_date );
354:
355: -- bug 3199481, start block
356: IF (l_state_level >= l_debug_level) THEN
357: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg5',
358: ' New Next due Date '|| ld_new_next_due_date );
359: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg6',
360: ' New GL Date '|| ld_new_sc_date );
361: END IF;
355: -- bug 3199481, start block
356: IF (l_state_level >= l_debug_level) THEN
357: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg5',
358: ' New Next due Date '|| ld_new_next_due_date );
359: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg6',
360: ' New GL Date '|| ld_new_sc_date );
361: END IF;
362: -- bug 3199481, end block
363:
364: IF ld_new_next_due_date is NULL THEN
365: --WriteToLog ( 'New Next due date is null.');
366: -- bug 3199481, start block
367: IF (l_state_level >= l_debug_level) THEN
368: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg7',
369: 'New Next due date is null.');
370: END IF;
371: -- bug 3199481, end block
372: return ;
375: IF ld_new_sc_date is NULL THEN
376: --WriteToLog ( 'New GL date is null ');
377: -- bug 3199481, start block
378: IF (l_state_level >= l_debug_level) THEN
379: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg8',
380: 'New GL date is null ');
381: END IF;
382: -- bug 3199481, end block
383: /*Bug no 2688741 Commented by shsaxena*/
401: IF ld_new_next_due_date is NULL THEN
402: --WriteToLog ( 'New Next due date is null.');
403: -- bug 3199481, start block
404: IF (l_state_level >= l_debug_level) THEN
405: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg9',
406: 'New Next due date is null.');
407: END IF;
408: -- bug 3199481, end block
409: return ;
420: END LOOP;
421: --WriteToLog ( 'End UpateStandingCharges...');
422: -- bug 3199481, start block
423: IF (l_state_level >= l_debug_level) THEN
424: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.update_standing_charges.Msg10',
425: 'End UpateStandingCharges...');
426: END IF;
427: -- bug 3199481, end block
428: END ;
521: ELSE
522: fnd_message.set_name( 'IGI', 'IGI_RPI_IS_DISABLED');
523: --Bug 3199481 (start)
524: If (l_unexp_level >= l_debug_level) then
525: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igirrps.synchronize_dates.Msg0',FALSE);
526: End if;
527: --Bug 3199481 (end)
528: errbuf := fnd_message.get;
529: retcode := 2;
544: -- l_sc.generate_sequence );
545:
546: -- bug 3199481, start block
547: IF (l_state_level >= l_debug_level) THEN
548: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg1',
549: ' Verifying Standing charge ref '||
550: l_sc.charge_reference );
551: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg2',
552: ' Generate sequence '||
547: IF (l_state_level >= l_debug_level) THEN
548: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg1',
549: ' Verifying Standing charge ref '||
550: l_sc.charge_reference );
551: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg2',
552: ' Generate sequence '||
553: l_sc.generate_sequence );
554: END IF;
555: -- bug 3199481, end block
559: --WriteToLog ( ' Invoice Generated for this standing charge '||
560: -- l_sc.standing_charge_id );
561: -- bug 3199481, start block
562: IF (l_state_level >= l_debug_level) THEN
563: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg3',
564: ' Invoice Generated for this standing charge '||
565: l_sc.standing_charge_id );
566: END IF;
567: -- bug 3199481, end block
571: --WriteToLog ( ' Evaluating interface information for '||
572: -- l_sc.standing_charge_id );
573: -- bug 3199481, start block
574: IF (l_state_level >= l_debug_level) THEN
575: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg4',
576: ' Evaluating interface information for '||
577: l_sc.standing_charge_id );
578: END IF;
579: -- bug 3199481, end block
589: FOR l_xface in c_xface LOOP
590: --WriteToLog ( ' Found the errors information.');
591: -- bug 3199481, start block
592: IF (l_state_level >= l_debug_level) THEN
593: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg5',
594: ' Found the errors information.');
595: END IF;
596: -- bug 3199481, end block
597: delete from ra_interface_errors
600: if sql%found then
601: --WriteToLog ( ' Deleted the errors information.');
602: -- bug 3199481, start block
603: IF (l_state_level >= l_debug_level) THEN
604: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg6',
605: ' Deleted the errors information.');
606: END IF;
607: -- bug 3199481, end block
608: end if;
616: if sql%found then
617: --WriteToLog ( ' Deleted the Sales information.');
618: -- bug 3199481, start block
619: IF (l_state_level >= l_debug_level) THEN
620: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg7',
621: ' Deleted the Sales information.');
622: END IF;
623: -- bug 3199481, end block
624: end if;
629: if sql%found then
630: --WriteToLog ( ' Deleted the Distribution information.');
631: -- bug 3199481, start block
632: IF (l_state_level >= l_debug_level) THEN
633: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg8',
634: ' Deleted the Distribution information.');
635: END IF;
636: -- bug 3199481, end block
637: end if;
642: --WriteToLog ( ' Interface information deleted for '||
643: -- l_sc.standing_charge_id );
644: -- bug 3199481, start block
645: IF (l_state_level >= l_debug_level) THEN
646: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg9',
647: ' Interface information deleted for '||
648: l_sc.standing_charge_id );
649: END IF;
650: -- bug 3199481, end block
658: --fnd_file.put_line ( fnd_file.log, ' Synchronization flag reset for '||
659: -- l_sc.charge_reference );
660: -- bug 3199481, start block
661: IF (l_state_level >= l_debug_level) THEN
662: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg9',
663: ' Synchronization flag reset for '||
664: l_sc.charge_reference );
665: END IF;
666: -- bug 3199481, end block
680: -- WriteToLog ( 'Sequence = '|| l_trx.trx_seq );
681:
682: -- bug 3199481, start block
683: IF (l_state_level >= l_debug_level) THEN
684: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg10',
685: 'Trx Date = '|| l_trx.trx_date );
686: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg11',
687: 'Next due Date = '|| l_trx.next_due_date );
688: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg12',
682: -- bug 3199481, start block
683: IF (l_state_level >= l_debug_level) THEN
684: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg10',
685: 'Trx Date = '|| l_trx.trx_date );
686: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg11',
687: 'Next due Date = '|| l_trx.next_due_date );
688: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg12',
689: 'Charge ID = '|| l_trx.trx_sc_id );
690: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg13',
684: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg10',
685: 'Trx Date = '|| l_trx.trx_date );
686: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg11',
687: 'Next due Date = '|| l_trx.next_due_date );
688: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg12',
689: 'Charge ID = '|| l_trx.trx_sc_id );
690: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg13',
691: 'Sequence = '|| l_trx.trx_seq );
692: END IF;
686: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg11',
687: 'Next due Date = '|| l_trx.next_due_date );
688: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg12',
689: 'Charge ID = '|| l_trx.trx_sc_id );
690: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrps.synchronize_dates.Msg13',
691: 'Sequence = '|| l_trx.trx_seq );
692: END IF;
693: -- bug 3199481, end block
694: