[Home] [Help]
1: PACKAGE BODY AP_ACCOUNTING_EVENTS_PKG AS
2: /* $Header: apeventb.pls 120.54.12010000.11 2008/12/12 16:06:34 imandal ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY AP_ACCOUNTING_EVENTS_PKG AS
2: /* $Header: apeventb.pls 120.54.12010000.11 2008/12/12 16:06:34 imandal ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2: /* $Header: apeventb.pls 120.54.12010000.11 2008/12/12 16:06:34 imandal ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_ACCOUNTING_EVENT_PKG.';
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_ACCOUNTING_EVENT_PKG.';
12:
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_ACCOUNTING_EVENT_PKG.';
12:
13: ---------------------------------------------------------------------
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_ACCOUNTING_EVENT_PKG.';
12:
13: ---------------------------------------------------------------------
14: -- Definition of Accounting Event Entities, Classes and Types.
319: l_curr_calling_sequence VARCHAR2(2000);
320:
321: -- Logging:
322: l_procedure_name CONSTANT VARCHAR2(30) := 'Create_Events';
323: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
324:
325: BEGIN
326:
327: l_curr_calling_sequence :=
326:
327: l_curr_calling_sequence :=
328: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_EVENTS';
329:
330: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
331:
332: l_log_msg := 'Begin of procedure '|| l_procedure_name;
333: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
334: FND_LOG.STRING(G_LEVEL_PROCEDURE,
330: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
331:
332: l_log_msg := 'Begin of procedure '|| l_procedure_name;
333: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
334: FND_LOG.STRING(G_LEVEL_PROCEDURE,
335: G_MODULE_NAME||l_procedure_name||'.begin',
336: l_log_msg);
337: END IF;
338:
348: WHEN ('INVOICES') THEN
349:
350: l_log_msg := 'Before calling procedure Derive_invoice_events';
351: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
352: FND_LOG.STRING(G_LEVEL_PROCEDURE,
353: G_MODULE_NAME || l_procedure_name,
354: l_log_msg);
355: END IF;
356:
358: p_calling_sequence => l_curr_calling_sequence);
359:
360: l_log_msg := 'After Calling Derive_invoice_events procedure';
361: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
362: FND_LOG.STRING(G_LEVEL_PROCEDURE,
363: G_MODULE_NAME || l_procedure_name,
364: l_log_msg);
365: END IF;
366:
370: WHEN ('INVOICE CANCELLATION') THEN
371:
372: l_log_msg := 'Before calling procedure Derive_invoice_cancel_events';
373: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
374: FND_LOG.STRING(G_LEVEL_PROCEDURE,
375: G_MODULE_NAME || l_procedure_name,
376: l_log_msg);
377: END IF;
378:
381: p_calling_sequence => l_curr_calling_sequence);
382:
383: l_log_msg := 'After calling procedure Derive_invoice_cancel_event';
384: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
385: FND_LOG.STRING(G_LEVEL_PROCEDURE,
386: G_MODULE_NAME || l_procedure_name,
387: l_log_msg);
388: END IF;
389: ------------------------------------------------------------
392: WHEN ('PAYMENT') THEN
393:
394: l_log_msg := 'Before calling procedure create_payment_event';
395: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
396: FND_LOG.STRING(G_LEVEL_PROCEDURE,
397: G_MODULE_NAME || l_procedure_name,
398: l_log_msg);
399: END IF;
400:
411: p_calling_sequence => l_curr_calling_sequence);
412:
413: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
414: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
415: FND_LOG.STRING(G_LEVEL_STATEMENT,
416: G_MODULE_NAME || l_procedure_name,
417: l_log_msg);
418: END IF;
419:
418: END IF;
419:
420: l_log_msg := 'After calling procedure create_payment_event';
421: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
422: FND_LOG.STRING(G_LEVEL_PROCEDURE,
423: G_MODULE_NAME || l_procedure_name,
424: l_log_msg);
425: END IF;
426:
430: WHEN ('PAYMENT ADJUSTMENT') THEN
431:
432: l_log_msg := 'Before calling procedure derive_payment_adj_event';
433: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
434: FND_LOG.STRING(G_LEVEL_PROCEDURE,
435: G_MODULE_NAME || l_procedure_name,
436: l_log_msg);
437: END IF;
438:
444: p_calling_sequence => l_curr_calling_sequence);
445:
446: l_log_msg := 'After calling procedure derive_payment_adj_event';
447: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
448: FND_LOG.STRING(G_LEVEL_PROCEDURE,
449: G_MODULE_NAME || l_procedure_name,
450: l_log_msg);
451: END IF;
452:
456: WHEN ('UPGRADED MANUAL REVERSED PAYMENT') THEN
457:
458: l_log_msg := 'Before calling procedure derive_payment_adj_event';
459: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
460: FND_LOG.STRING(G_LEVEL_PROCEDURE,
461: G_MODULE_NAME || l_procedure_name,
462: l_log_msg);
463: END IF;
464:
470: p_calling_sequence => l_curr_calling_sequence);
471:
472: l_log_msg := 'After calling procedure derive_payment_adj_event';
473: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
474: FND_LOG.STRING(G_LEVEL_PROCEDURE,
475: G_MODULE_NAME || l_procedure_name,
476: l_log_msg);
477: END IF;
478:
482: WHEN ('UPGRADED MANUAL ADJUSTED PAYMENT') THEN
483:
484: l_log_msg := 'Before calling procedure derive_payment_adj_event';
485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
486: FND_LOG.STRING(G_LEVEL_PROCEDURE,
487: G_MODULE_NAME || l_procedure_name,
488: l_log_msg);
489: END IF;
490:
496: p_calling_sequence => l_curr_calling_sequence);
497:
498: l_log_msg := 'After calling procedure derive_payment_adj_event';
499: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
500: FND_LOG.STRING(G_LEVEL_PROCEDURE,
501: G_MODULE_NAME || l_procedure_name,
502: l_log_msg);
503: END IF;
504:
517: -- Step 1: Create payment event
518: ----------------------------------------------------
519: l_log_msg := 'Before calling procedure create_payment_event';
520: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
521: FND_LOG.STRING(G_LEVEL_PROCEDURE,
522: G_MODULE_NAME || l_procedure_name,
523: l_log_msg);
524: END IF;
525:
531: p_calling_sequence => l_curr_calling_sequence);
532:
533: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(G_LEVEL_STATEMENT,
536: G_MODULE_NAME || l_procedure_name,
537: l_log_msg);
538: END IF;
539:
538: END IF;
539:
540: l_log_msg := 'After calling Procedure create_payment_event';
541: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
542: FND_LOG.STRING(G_LEVEL_PROCEDURE,
543: G_MODULE_NAME || l_procedure_name,
544: l_log_msg);
545: END IF;
546:
550: -- Step 2: calling update payment event to 'No Action'
551: -----------------------------------------------------
552: l_log_msg := 'comment out procedure no_action_pmt_event_update';
553: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
554: FND_LOG.STRING(G_LEVEL_PROCEDURE,
555: G_MODULE_NAME || l_procedure_name,
556: l_log_msg);
557: END IF;
558:
565: p_calling_sequence => l_curr_calling_sequence);
566:
567: l_log_msg := 'After calling procedure no_action_pmt_event_update';
568: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
569: FND_LOG.STRING(G_LEVEL_PROCEDURE,
570: G_MODULE_NAME || l_procedure_name,
571: l_log_msg);
572: END IF; End of comment out */
573:
578:
579:
580: l_log_msg := 'Before calling procedure create_payment_event';
581: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
582: FND_LOG.STRING(G_LEVEL_PROCEDURE,
583: G_MODULE_NAME || l_procedure_name,
584: l_log_msg);
585: END IF;
586:
591: p_calling_sequence => l_curr_calling_sequence);
592:
593: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
594: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
595: FND_LOG.STRING(G_LEVEL_STATEMENT,
596: G_MODULE_NAME || l_procedure_name,
597: l_log_msg);
598: END IF;
599:
598: END IF;
599:
600: l_log_msg := 'After calling procedure create_payment_event';
601: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
602: FND_LOG.STRING(G_LEVEL_PROCEDURE,
603: G_MODULE_NAME || l_procedure_name,
604: l_log_msg);
605: END IF;
606:
613: -- Step 1: Create payment event
614: ----------------------------------------------------
615: l_log_msg := 'Before calling procedure create_payment_event';
616: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
617: FND_LOG.STRING(G_LEVEL_PROCEDURE,
618: G_MODULE_NAME || l_procedure_name,
619: l_log_msg);
620: END IF;
621:
628: );
629:
630: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
632: FND_LOG.STRING(G_LEVEL_STATEMENT,
633: G_MODULE_NAME || l_procedure_name,
634: l_log_msg);
635: END IF;
636:
635: END IF;
636:
637: l_log_msg := 'After calling procedure create_payment_event';
638: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
639: FND_LOG.STRING(G_LEVEL_PROCEDURE,
640: G_MODULE_NAME || l_procedure_name,
641: l_log_msg);
642: END IF;
643:
645: -- Step 2: Update payment event to 'No Action'
646: ----------------------------------------------------
647: l_log_msg := 'comment out calling procedure no_action_pmt_event_update';
648: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
649: FND_LOG.STRING(G_LEVEL_PROCEDURE,
650: G_MODULE_NAME || l_procedure_name,
651: l_log_msg);
652: END IF;
653:
662: );
663:
664: l_log_msg := 'After calling procedure no_action_pmt_event_update';
665: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
666: FND_LOG.STRING(G_LEVEL_PROCEDURE,
667: G_MODULE_NAME || l_procedure_name,
668: l_log_msg);
669: END IF; End of comment out */
670:
674: WHEN ('PAYMENT MATURITY') THEN
675:
676: l_log_msg := 'Before calling procedure create_payment_event';
677: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
678: FND_LOG.STRING(G_LEVEL_PROCEDURE,
679: G_MODULE_NAME || l_procedure_name,
680: l_log_msg);
681: END IF;
682:
689: );
690:
691: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
693: FND_LOG.STRING(G_LEVEL_STATEMENT,
694: G_MODULE_NAME || l_procedure_name,
695: l_log_msg);
696: END IF;
697:
696: END IF;
697:
698: l_log_msg := 'After calling procedure create_payment_event';
699: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
700: FND_LOG.STRING(G_LEVEL_PROCEDURE,
701: G_MODULE_NAME || l_procedure_name,
702: l_log_msg);
703: END IF;
704:
711: -- Step 1: Create payment event
712: ----------------------------------------------------
713: l_log_msg := 'Before calling procedure create_payment_event';
714: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
715: FND_LOG.STRING(G_LEVEL_PROCEDURE,
716: G_MODULE_NAME || l_procedure_name,
717: l_log_msg);
718: END IF;
719:
726: );
727:
728: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
729: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
730: FND_LOG.STRING(G_LEVEL_STATEMENT,
731: G_MODULE_NAME || l_procedure_name,
732: l_log_msg);
733: END IF;
734:
733: END IF;
734:
735: l_log_msg := 'After calling procedure create_payment_event';
736: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
737: FND_LOG.STRING(G_LEVEL_PROCEDURE,
738: G_MODULE_NAME || l_procedure_name,
739: l_log_msg);
740: END IF;
741:
743: -- Step 2: Update payment event status to 'No Action'
744: ----------------------------------------------------
745: l_log_msg := 'comment out procedure no_action_pmt_event_update';
746: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
747: FND_LOG.STRING(G_LEVEL_PROCEDURE,
748: G_MODULE_NAME || l_procedure_name,
749: l_log_msg);
750: END IF;
751:
760: );
761:
762: l_log_msg := 'After Calling procedure no_pmt_event_update';
763: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
764: FND_LOG.STRING(G_LEVEL_PROCEDURE,
765: G_MODULE_NAME || l_procedure_name,
766: l_log_msg);
767: END IF; End of comment out */
768:
772: ||l_curr_calling_sequence
773: ||' Error:Wrong p_event_type= '
774: ||p_event_type;
775: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
776: FND_LOG.STRING(G_LEVEL_EXCEPTION,
777: G_MODULE_NAME || l_procedure_name,
778: l_log_msg);
779: END IF;
780:
783: END CASE; --p_event_type
784:
785: l_log_msg := 'End of procedure '|| l_procedure_name;
786: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
787: FND_LOG.STRING(G_LEVEL_PROCEDURE,
788: G_MODULE_NAME||l_procedure_name||'.end',
789: l_log_msg);
790: END IF;
791:
906: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
907:
908: -- Logging:
909: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_INVOICE_EVENTS';
910: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
911:
912: TYPE l_inv_dist_list IS TABLE OF ap_invoice_distributions.invoice_distribution_id%TYPE;
913: l_inv_dist_tab l_inv_dist_list;
914:
916:
917: l_curr_calling_sequence :=
918: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_INVOICE_EVENTS';
919:
920: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
921:
922: l_log_msg := 'Begin of procedure '|| l_procedure_name;
923: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
924: FND_LOG.STRING(G_LEVEL_PROCEDURE,
920: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
921:
922: l_log_msg := 'Begin of procedure '|| l_procedure_name;
923: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
924: FND_LOG.STRING(G_LEVEL_PROCEDURE,
925: G_MODULE_NAME||l_procedure_name||'.begin',
926: l_log_msg);
927: END IF;
928:
972: EXCEPTION
973: WHEN NO_DATA_FOUND THEN
974: l_log_msg := 'When no_data_found';
975: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
976: FND_LOG.STRING(G_LEVEL_PROCEDURE,
977: G_MODULE_NAME || l_procedure_name,
978: l_log_msg);
979: END IF;
980:
979: END IF;
980:
981: l_log_msg := 'Before calling procedure create_invoice_event';
982: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
983: FND_LOG.STRING(G_LEVEL_PROCEDURE,
984: G_MODULE_NAME || l_procedure_name,
985: l_log_msg);
986: END IF;
987:
993:
994:
995: l_log_msg := 'After calling procedure create_invoice_event';
996: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
997: FND_LOG.STRING(G_LEVEL_PROCEDURE,
998: G_MODULE_NAME || l_procedure_name,
999: l_log_msg);
1000: END IF;
1001:
999: l_log_msg);
1000: END IF;
1001:
1002: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1003: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1004: G_MODULE_NAME || l_procedure_name,
1005: l_log_msg);
1006: END IF;
1007:
1017: p_calling_sequence => l_curr_calling_sequence);
1018:
1019: l_log_msg := 'After calling procedure update_prepayment_header';
1020: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1021: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1022: G_MODULE_NAME || l_procedure_name,
1023: l_log_msg);
1024: END IF;
1025: END;
1049: IF l_prepay_app_event_id <> -1 THEN
1050:
1051: l_log_msg := 'Before calling procedure get_invoice_info';
1052: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1053: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1054: G_MODULE_NAME || l_procedure_name,
1055: l_log_msg);
1056: END IF;
1057:
1063: p_calling_sequence => l_curr_calling_sequence);
1064:
1065: l_log_msg := 'After calling procedure get_insert_info executed';
1066: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1067: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1068: G_MODULE_NAME || l_procedure_name,
1069: l_log_msg);
1070: END IF;
1071:
1070: END IF;
1071:
1072: l_log_msg :='Before calling proc get_event_security_context';
1073: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1074: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1075: G_MODULE_NAME || l_procedure_name,
1076: l_log_msg);
1077: END IF;
1078:
1081: p_calling_sequence => l_curr_calling_sequence);
1082:
1083: l_log_msg := 'After calling proc get_event_security_context';
1084: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1085: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1086: G_MODULE_NAME || l_procedure_name,
1087: l_log_msg);
1088: END IF;
1089:
1088: END IF;
1089:
1090: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1091: l_log_msg := 'Before calling proc get_invoice_event_source_info';
1092: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1093: G_MODULE_NAME || l_procedure_name,
1094: l_log_msg);
1095: END IF;
1096:
1102: p_calling_sequence => l_curr_calling_sequence);
1103:
1104: l_log_msg := 'After calling proc get_invoice_envent_source_info';
1105: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1106: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1107: G_MODULE_NAME || l_procedure_name,
1108: l_log_msg);
1109: END IF;
1110:
1109: END IF;
1110:
1111: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1112: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1113: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1114: G_MODULE_NAME || l_procedure_name,
1115: l_log_msg);
1116: END IF;
1117:
1132: p_calling_sequence => l_curr_calling_sequence);
1133:
1134: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1135: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1136: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1137: G_MODULE_NAME || l_procedure_name,
1138: l_log_msg);
1139: END IF; End comment out */
1140:
1139: END IF; End comment out */
1140:
1141: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1142: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1143: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1144: G_MODULE_NAME || l_procedure_name,
1145: l_log_msg);
1146: END IF;
1147:
1161: p_calling_sequence => l_curr_calling_sequence);
1162:
1163: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1164: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1165: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1166: G_MODULE_NAME || l_procedure_name,
1167: l_log_msg);
1168: END IF; End of comment out */
1169:
1171: l_Accounting_date:= event_dist_rec.accounting_date;
1172:
1173: l_log_msg := 'prepay_adj_event loop begin.';
1174: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1175: FND_LOG.STRING(G_LEVEL_STATEMENT,
1176: G_MODULE_NAME || l_procedure_name,
1177: l_log_msg);
1178: END IF;
1179:
1183: l_Accounting_date) LOOP
1184:
1185: l_log_msg := 'Inside the prepay_adj_events cursor loop';
1186: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1187: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1188: G_MODULE_NAME || l_procedure_name,
1189: l_log_msg);
1190: END IF;
1191:
1205: p_calling_sequence => l_curr_calling_sequence);
1206:
1207: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1208: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1209: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1210: G_MODULE_NAME || l_procedure_name,
1211: l_log_msg);
1212: END IF; End of comment out*/
1213:
1214: END LOOP; --inv_event_dists
1215:
1216: l_log_msg := 'prepay_adj_event loop end.';
1217: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1218: FND_LOG.STRING(G_LEVEL_STATEMENT,
1219: G_MODULE_NAME || l_procedure_name,
1220: l_log_msg);
1221: END IF;
1222: END IF;
1240: WHERE AI.invoice_id = p_invoice_id;
1241:
1242: l_log_msg := 'Before calling procedure create_invoice_event';
1243: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1244: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1245: G_MODULE_NAME || l_procedure_name,
1246: l_log_msg);
1247: END IF;
1248:
1255: );
1256:
1257: l_log_msg := 'After calling procedure create_invoice_event executed';
1258: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1259: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1260: G_MODULE_NAME || l_procedure_name,
1261: l_log_msg);
1262: END IF;
1263:
1332: IF (l_accounting_event_id IS NULL) THEN
1333:
1334: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1335: l_log_msg := 'Before calling procedure create_invoice_event';
1336: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1337: G_MODULE_NAME || l_procedure_name,
1338: l_log_msg);
1339: END IF;
1340:
1347: );
1348:
1349: l_log_msg := 'After calling procedure create_invoice_event executed';
1350: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1351: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1352: G_MODULE_NAME || l_procedure_name,
1353: l_log_msg);
1354: END IF;
1355:
1362: THEN
1363:
1364: l_log_msg := 'Before calling procedure derive_cascade_events';
1365: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1366: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1367: G_MODULE_NAME || l_procedure_name,
1368: l_log_msg);
1369: END IF;
1370:
1378: );
1379:
1380: l_log_msg := 'After calling proc derive_cascade_events executed';
1381: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1382: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1383: G_MODULE_NAME || l_procedure_name,
1384: l_log_msg);
1385: END IF;
1386: END IF;
1424: );
1425:
1426: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1427: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1428: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1429: G_MODULE_NAME || l_procedure_name,
1430: l_log_msg);
1431: END IF;
1432:
1442: );
1443:
1444: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1445: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1446: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1447: G_MODULE_NAME || l_procedure_name,
1448: l_log_msg);
1449: END IF;
1450:
1512: END LOOP;
1513:
1514: l_log_msg := 'End of procedure '|| l_procedure_name;
1515: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1517: G_MODULE_NAME||l_procedure_name||'.begin',
1518: l_log_msg);
1519: END IF;
1520:
1578: l_curr_calling_sequence VARCHAR2(2000);
1579:
1580: -- Logging:
1581: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_INVOICE_EVENT';
1582: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1583:
1584: BEGIN
1585:
1586: l_curr_calling_sequence :=
1585:
1586: l_curr_calling_sequence :=
1587: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_INVOICE_EVENT';
1588:
1589: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1590:
1591: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1592: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1593: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1589: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1590:
1591: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1592: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1593: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1594: G_MODULE_NAME || l_procedure_name,
1595: l_log_msg);
1596: END IF;
1597:
1629: );
1630:
1631: l_log_msg := 'End of procedure '|| l_procedure_name;
1632: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1633: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1634: G_MODULE_NAME || l_procedure_name,
1635: l_log_msg);
1636: END IF;
1637:
1636: END IF;
1637:
1638: l_log_msg := 'Calling proc AP_XLA_EVENTS_PKG.CREATE_EVENT and return';
1639: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1640: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1641: G_MODULE_NAME || l_procedure_name,
1642: l_log_msg);
1643: END IF;
1644:
1722: l_curr_calling_sequence VARCHAR2(2000);
1723:
1724: -- Logging:
1725: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_PAYMENT_EVENT';
1726: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1727:
1728:
1729: -- Bug 7374984.
1730: -- Cursor to get all the unaccounted maturity and clearing transactions
1747:
1748: l_curr_calling_sequence :=
1749: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_PAYMENT_EVENT';
1750:
1751: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1752:
1753: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1754: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1755: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1751: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1752:
1753: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1754: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1755: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1756: G_MODULE_NAME || l_procedure_name,
1757: l_log_msg);
1758: END IF;
1759:
1789: );
1790:
1791: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.CREATE_EVENT';
1792: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1793: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1794: G_MODULE_NAME || l_procedure_name,
1795: l_log_msg);
1796: END IF;
1797:
1810: );
1811:
1812: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.CREATE_EVENT';
1813: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1814: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1815: G_MODULE_NAME || l_procedure_name,
1816: l_log_msg);
1817: END IF;
1818:
1829:
1830: l_log_msg := 'l_matured_events_count = '
1831: ||to_char(l_matured_events_count);
1832: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1833: FND_LOG.STRING(G_LEVEL_STATEMENT,
1834: G_MODULE_NAME || l_procedure_name,
1835: l_log_msg);
1836: END IF;
1837:
1843:
1844: l_log_msg := 'l_unmatured_events_count = '
1845: ||to_char(l_unmatured_events_count);
1846: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1847: FND_LOG.STRING(G_LEVEL_STATEMENT,
1848: G_MODULE_NAME || l_procedure_name,
1849: l_log_msg);
1850: END IF;
1851:
1867: where check_id = P_check_id;
1868:
1869: l_log_msg := 'Before ap_reconciliation_pkg.recon_payment_history';
1870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1871: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1872: G_MODULE_NAME || l_procedure_name,
1873: l_log_msg);
1874: END IF;
1875:
1900: X_CALLING_SEQUENCE => l_curr_calling_sequence);
1901:
1902: l_log_msg := 'After ap_reconciliation_pkg.recon_payment_history';
1903: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1904: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1905: G_MODULE_NAME || l_procedure_name,
1906: l_log_msg);
1907: END IF;
1908: END IF;
1908: END IF;
1909:
1910: l_log_msg := 'Open Cursor c_unacct_pmt_events';
1911: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1912: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1913: G_MODULE_NAME || l_procedure_name,
1914: l_log_msg);
1915: END IF;
1916:
1927:
1928: l_log_msg := 'Event id that needs to be set to no action ' ||
1929: l_accounting_event_id;
1930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1931: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1932: G_MODULE_NAME || l_procedure_name,
1933: l_log_msg);
1934: END IF;
1935:
1945: );
1946:
1947: l_log_msg := 'End of call to AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1948: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1949: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1950: G_MODULE_NAME || l_procedure_name,
1951: l_log_msg);
1952: END IF;
1953:
1958: END IF;
1959:
1960: l_log_msg := 'End of procedure'||l_procedure_name;
1961: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1962: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1963: G_MODULE_NAME || l_procedure_name,
1964: l_log_msg);
1965: END IF;
1966:
2020: l_curr_calling_sequence VARCHAR2(2000);
2021:
2022: -- Logging:
2023: l_procedure_name CONSTANT VARCHAR2(30) := 'update_invoice_events_status';
2024: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2025: --7011943
2026: l_count NUMBER;
2027: l_check_id NUMBER;
2028: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2032:
2033: l_curr_calling_sequence := p_calling_sequence ||
2034: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_INVOICE_EVENTS_STATUS';
2035:
2036: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2037:
2038: l_log_msg := 'Begin of procedure '||l_procedure_name;
2039: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2040: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2036: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2037:
2038: l_log_msg := 'Begin of procedure '||l_procedure_name;
2039: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2040: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2041: G_MODULE_NAME || l_procedure_name,
2042: l_log_msg);
2043: END IF;
2044:
2097: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2098:
2099: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2100: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2101: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2102: G_MODULE_NAME || l_procedure_name,
2103: l_log_msg);
2104: END IF;
2105:
2117: );
2118:
2119: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2120: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2121: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2122: G_MODULE_NAME || l_procedure_name,
2123: l_log_msg);
2124: END IF;
2125:
2129:
2130: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2131:
2132: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2133: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2134: G_MODULE_NAME || l_procedure_name,
2135: l_log_msg);
2136: END IF;
2137:
2149: );
2150:
2151: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2152: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2153: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2154: G_MODULE_NAME || l_procedure_name,
2155: l_log_msg);
2156: END IF;
2157:
2163: LOOP
2164:
2165: l_log_msg := 'Open cursor l_invoice_distributions_cur';
2166: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2167: FND_LOG.STRING(G_LEVEL_STATEMENT,
2168: G_MODULE_NAME || l_procedure_name,
2169: l_log_msg);
2170: END IF;
2171:
2177: FOR i IN 1 ..l_accounting_event_ids.count LOOP
2178:
2179: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2180: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2181: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2182: G_MODULE_NAME || l_procedure_name,
2183: l_log_msg);
2184: END IF;
2185:
2228: --bug 7011943
2229: l_event_source_info := l_event_source_info_temp;
2230: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2231: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2232: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2233: G_MODULE_NAME || l_procedure_name,
2234: l_log_msg);
2235: END IF;
2236:
2241: l_event_info.event_status_code <> l_invoice_event_status) THEN
2242:
2243: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2244: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2245: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2246: G_MODULE_NAME || l_procedure_name,
2247: l_log_msg);
2248: END IF;
2249:
2259: );
2260:
2261: l_log_msg := 'After AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2262: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2263: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2264: G_MODULE_NAME || l_procedure_name,
2265: l_log_msg);
2266: END IF;
2267: END IF;
2286: ||' Error: '
2287: ||SQLERRM;
2288: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
2289:
2290: FND_LOG.STRING(G_LEVEL_EXCEPTION,
2291: G_MODULE_NAME || l_procedure_name,
2292: l_log_msg);
2293: END IF;
2294:
2323: LOOP
2324:
2325: l_log_msg := 'Cursor l_invoice_payment_cur ';
2326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2327: FND_LOG.STRING(G_LEVEL_STATEMENT,
2328: G_MODULE_NAME || l_procedure_name,
2329: l_log_msg);
2330: END IF;
2331:
2345: l_last_check_id := l_curr_check_id;
2346:
2347: l_log_msg := 'Before calling proc get_payment_event_source_info';
2348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2349: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2350: G_MODULE_NAME || l_procedure_name,
2351: l_log_msg);
2352: END IF;
2353:
2360: );
2361:
2362: l_log_msg := 'After calling get_payment_event_source_info';
2363: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2364: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2365: G_MODULE_NAME || l_procedure_name,
2366: l_log_msg);
2367: END IF;
2368:
2375: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2376:
2377: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EIXSTS';
2378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2379: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2380: G_MODULE_NAME || l_procedure_name,
2381: l_log_msg);
2382: END IF;
2383:
2396:
2397: l_log_msg := 'After AP_ACCOUNTING_EVENT_PKG.'
2398: ||'get_payment_event_source_info';
2399: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2400: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2401: G_MODULE_NAME || l_procedure_name,
2402: l_log_msg);
2403: END IF;
2404:
2407: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2408:
2409: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2410: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2411: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2412: G_MODULE_NAME || l_procedure_name,
2413: l_log_msg);
2414: END IF;
2415:
2427: );
2428:
2429: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2430: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2431: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2432: G_MODULE_NAME || l_procedure_name,
2433: l_log_msg);
2434: END IF;
2435: END IF;
2439: IF (l_do_updates_flag) THEN
2440:
2441: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2442: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2443: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2444: G_MODULE_NAME || l_procedure_name,
2445: l_log_msg);
2446: END IF;
2447:
2455: );
2456:
2457: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2458: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2459: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2460: G_MODULE_NAME || l_procedure_name,
2461: l_log_msg);
2462: END IF;
2463:
2467: l_event_info.event_status_code <> l_payment_event_status) THEN
2468:
2469: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2470: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2471: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2472: G_MODULE_NAME || l_procedure_name,
2473: l_log_msg);
2474: END IF;
2475:
2485: );
2486:
2487: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2488: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2489: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2490: G_MODULE_NAME || l_procedure_name,
2491: l_log_msg);
2492: END IF;
2493: END IF;
2508: ||l_curr_calling_sequence
2509: ||' Error: '
2510: ||SQLERRM;
2511: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
2512: FND_LOG.STRING(G_LEVEL_EXCEPTION,
2513: G_MODULE_NAME || l_procedure_name,
2514: l_log_msg);
2515: END IF;
2516: RAISE;
2517: END;
2518:
2519: l_log_msg := 'End of procedure '||l_procedure_name;
2520: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2521: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2522: G_MODULE_NAME || l_procedure_name,
2523: l_log_msg);
2524: END IF;
2525:
2576: l_curr_calling_sequence VARCHAR2(2000);
2577:
2578: -- Logging:
2579: l_procedure_name CONSTANT VARCHAR2(30) := 'UPDATE_PAYMENT_EVENTS_STATUS';
2580: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2581: --7011943
2582: l_count NUMBER;
2583: l_check_id NUMBER;
2584: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2589:
2590: l_curr_calling_sequence := p_calling_sequence ||
2591: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_PAYMENT_EVENTS_STATUS';
2592:
2593: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2594:
2595: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2596: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2597: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2593: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2594:
2595: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2596: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2597: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2598: G_MODULE_NAME || l_procedure_name,
2599: l_log_msg);
2600: END IF;
2601:
2621: BEGIN
2622:
2623: l_log_msg := 'Open cursor l_invoice_distributions_cur';
2624: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2625: FND_LOG.STRING(G_LEVEL_STATEMENT,
2626: G_MODULE_NAME || l_procedure_name,
2627: l_log_msg);
2628: END IF;
2629:
2647: l_last_invoice_id := l_curr_invoice_id;
2648:
2649: l_log_msg := 'Before calling procedure get_invoice_info';
2650: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2651: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2652: G_MODULE_NAME || l_procedure_name,
2653: l_log_msg);
2654: END IF;
2655:
2663: );
2664:
2665: l_log_msg := 'After calling procedure get_invoice_info';
2666: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2667: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2668: G_MODULE_NAME || l_procedure_name,
2669: l_log_msg);
2670: END IF;
2671:
2670: END IF;
2671:
2672: l_log_msg := 'Before calling procedure get_event_security_context';
2673: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2674: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2675: G_MODULE_NAME || l_procedure_name,
2676: l_log_msg);
2677: END IF;
2678:
2683: );
2684:
2685: l_log_msg := 'After calling procedure get_event_security_context';
2686: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2687: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2688: G_MODULE_NAME || l_procedure_name,
2689: l_log_msg);
2690: END IF;
2691:
2690: END IF;
2691:
2692: l_log_msg := 'Before calling get_invoice_event_source_info';
2693: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2694: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2695: G_MODULE_NAME || l_procedure_name,
2696: l_log_msg);
2697: END IF;
2698:
2705: );
2706: l_event_source_info_temp := l_event_source_info; --7011943
2707: l_log_msg := 'After calling procedure get_invoice_info';
2708: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2709: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2710: G_MODULE_NAME || l_procedure_name,
2711: l_log_msg);
2712: END IF;
2713:
2719: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2720:
2721: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2722: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2723: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2724: G_MODULE_NAME || l_procedure_name,
2725: l_log_msg);
2726: END IF;
2727:
2739: );
2740:
2741: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2742: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2743: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2744: G_MODULE_NAME || l_procedure_name,
2745: l_log_msg);
2746: END IF;
2747: ELSE
2749: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2750:
2751: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2752: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2753: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2754: G_MODULE_NAME || l_procedure_name,
2755: l_log_msg);
2756: END IF;
2757:
2768: p_calling_sequence => l_curr_calling_sequence);
2769:
2770: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2771: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2772: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2773: G_MODULE_NAME || l_procedure_name,
2774: l_log_msg);
2775: END IF;
2776:
2781: IF (l_do_updates_flag) THEN
2782:
2783: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2784: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2785: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2786: G_MODULE_NAME || l_procedure_name,
2787: l_log_msg);
2788: END IF;
2789: --bug 7011943
2831: l_event_source_info := l_event_source_info_temp;
2832:
2833: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2834: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2835: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2836: G_MODULE_NAME || l_procedure_name,
2837: l_log_msg);
2838: END IF;
2839:
2843: l_event_info.event_status_code <> l_invoice_event_status) THEN
2844:
2845: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2846: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2847: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2848: G_MODULE_NAME || l_procedure_name,
2849: l_log_msg);
2850: END IF;
2851:
2860: p_calling_sequence => l_curr_calling_sequence);
2861:
2862: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2863: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2864: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2865: G_MODULE_NAME || l_procedure_name,
2866: l_log_msg);
2867: END IF;
2868: END IF;
2886: ||l_curr_calling_sequence
2887: ||' Error: '
2888: ||SQLERRM;
2889: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
2890: FND_LOG.STRING(G_LEVEL_EXCEPTION,
2891: G_MODULE_NAME || l_procedure_name,
2892: l_log_msg);
2893: END IF;
2894: RAISE;
2909: BEGIN
2910:
2911: l_log_msg := 'Before calling procedure get_payment_info';
2912: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2913: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2914: G_MODULE_NAME || l_procedure_name,
2915: l_log_msg);
2916: END IF;
2917:
2924: );
2925:
2926: l_log_msg := 'After calling procedure get_payment_info';
2927: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2928: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2929: G_MODULE_NAME || l_procedure_name,
2930: l_log_msg);
2931: END IF;
2932:
2931: END IF;
2932:
2933: l_log_msg := 'Before calling procedure get_event_security_context';
2934: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2935: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2936: G_MODULE_NAME || l_procedure_name,
2937: l_log_msg);
2938: END IF;
2939:
2944: );
2945:
2946: l_log_msg := 'After calling procedure get_event_security_context';
2947: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2948: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2949: G_MODULE_NAME || l_procedure_name,
2950: l_log_msg);
2951: END IF;
2952:
2951: END IF;
2952:
2953: l_log_msg := 'Before calling procedure get_payment_event_source_info';
2954: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2955: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2956: G_MODULE_NAME || l_procedure_name,
2957: l_log_msg);
2958: END IF;
2959:
2966: );
2967:
2968: l_log_msg := 'After calling procedure get_payment_event_source_info';
2969: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2970: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2971: G_MODULE_NAME || l_procedure_name,
2972: l_log_msg);
2973: END IF;
2974:
2980: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2981:
2982: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2983: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2984: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2985: G_MODULE_NAME || l_procedure_name,
2986: l_log_msg);
2987: END IF;
2988:
3000: );
3001:
3002: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3003: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3004: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3005: G_MODULE_NAME || l_procedure_name,
3006: l_log_msg);
3007: END IF;
3008:
3011: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3012:
3013: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3014: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3015: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3016: G_MODULE_NAME || l_procedure_name,
3017: l_log_msg);
3018: END IF;
3019:
3031: );
3032:
3033: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3034: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3035: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3036: G_MODULE_NAME || l_procedure_name,
3037: l_log_msg);
3038: END IF;
3039:
3045: LOOP
3046:
3047: l_log_msg := 'Fetch data from cursor l_invoice_payments_cur';
3048: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3049: FND_LOG.STRING(G_LEVEL_STATEMENT,
3050: G_MODULE_NAME || l_procedure_name,
3051: l_log_msg);
3052: END IF;
3053:
3057: LIMIT 1000;
3058:
3059: l_log_msg := 'Begin loop for l_accounting_event_ids';
3060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3061: FND_LOG.STRING(G_LEVEL_STATEMENT,
3062: G_MODULE_NAME || l_procedure_name,
3063: l_log_msg);
3064: END IF;
3065:
3066: FOR i IN 1 ..l_accounting_event_ids.count LOOP
3067:
3068: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3069: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3070: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3071: G_MODULE_NAME || l_procedure_name,
3072: l_log_msg);
3073: END IF;
3074:
3082: );
3083:
3084: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3085: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3086: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3087: G_MODULE_NAME || l_procedure_name,
3088: l_log_msg);
3089: END IF;
3090:
3094: l_event_info.event_status_code <> l_payment_event_status) THEN
3095:
3096: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3097: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3098: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3099: G_MODULE_NAME || l_procedure_name,
3100: l_log_msg);
3101: END IF;
3102:
3117: );
3118:
3119: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3120: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3121: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3122: G_MODULE_NAME || l_procedure_name,
3123: l_log_msg);
3124: END IF;
3125:
3132: CLOSE l_invoice_payments_cur;
3133:
3134: l_log_msg := 'End loop for l_accounting_event_ids';
3135: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3136: FND_LOG.STRING(G_LEVEL_STATEMENT,
3137: G_MODULE_NAME || l_procedure_name,
3138: l_log_msg);
3139: END IF;
3140: END IF; -- l_do_updates_flag
3148: ||l_curr_calling_sequence
3149: ||' Error: '
3150: ||SQLERRM;
3151: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
3152: FND_LOG.STRING(G_LEVEL_EXCEPTION,
3153: G_MODULE_NAME || l_procedure_name,
3154: l_log_msg);
3155: END IF;
3156: RAISE;
3157: END;
3158:
3159: l_log_msg := 'End of procedure '||l_procedure_name;
3160: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3161: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3162: G_MODULE_NAME || l_procedure_name,
3163: l_log_msg);
3164: END IF;
3165:
3210:
3211: -- Logging:
3212: --4700081
3213: l_procedure_name CONSTANT VARCHAR2(40) := 'update_payment_batch_event_status';
3214: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3215:
3216: BEGIN
3217:
3218: l_curr_calling_sequence := p_calling_sequence ||
3217:
3218: l_curr_calling_sequence := p_calling_sequence ||
3219: ' -> AP_ACCOUNTING_EVENTS_PKG.update_payment_batch_event_status';
3220:
3221: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3222:
3223: l_log_msg := 'Begin of procedure'||l_procedure_name;
3224: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3225: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3221: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3222:
3223: l_log_msg := 'Begin of procedure'||l_procedure_name;
3224: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3225: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3226: G_MODULE_NAME || l_procedure_name,
3227: l_log_msg);
3228: END IF;
3229:
3238: IF ( l_record_count <> 0 ) THEN
3239:
3240: l_log_msg := 'update the gt table set event status = no action';
3241: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3242: FND_LOG.STRING(G_LEVEL_STATEMENT,
3243: G_MODULE_NAME || l_procedure_name,
3244: l_log_msg);
3245: END IF;
3246:
3255: and AC.org_id = p_org_id );
3256:
3257: l_log_msg := 'update the gt table in success and call the api';
3258: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3259: FND_LOG.STRING(G_LEVEL_STATEMENT,
3260: G_MODULE_NAME || l_procedure_name,
3261: l_log_msg);
3262: END IF;
3263:
3264: XLA_EVENTS_PUB_PKG.update_bulk_event_statuses(p_application_id => '200');
3265:
3266: l_log_msg := 'after calling xla update status api';
3267: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3268: FND_LOG.STRING(G_LEVEL_STATEMENT,
3269: G_MODULE_NAME || l_procedure_name,
3270: l_log_msg);
3271: END IF;
3272:
3273: ELSE
3274:
3275: l_log_msg := 'XLA_EVENTS_INT_GT TABLE Has no records';
3276: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3277: FND_LOG.STRING(G_LEVEL_STATEMENT,
3278: G_MODULE_NAME || l_procedure_name,
3279: l_log_msg);
3280: END IF;
3281: APP_EXCEPTION.RAISE_EXCEPTION();
3282: END IF;
3283:
3284: l_log_msg := 'End of the procedure';
3285: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3286: FND_LOG.STRING(G_LEVEL_STATEMENT,
3287: G_MODULE_NAME || l_procedure_name,
3288: l_log_msg);
3289: END IF;
3290:
3343: l_count NUMBER := 0;
3344:
3345: -- Logging:
3346: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_PAYMENT_BATCH_EVENTS';
3347: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3348:
3349: BEGIN
3350:
3351: l_curr_calling_sequence := p_calling_sequence ||
3350:
3351: l_curr_calling_sequence := p_calling_sequence ||
3352: ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_PAYMENT_BATCH_EVENTS';
3353:
3354: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3355:
3356: l_log_msg := 'Begin of procedure'||l_procedure_name;
3357: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3358: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3354: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3355:
3356: l_log_msg := 'Begin of procedure'||l_procedure_name;
3357: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3358: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3359: G_MODULE_NAME || l_procedure_name,
3360: l_log_msg);
3361:
3362: END IF;
3365: 'p_org_id = '|| p_org_id ||
3366: 'p_completed_pmts_group_id = '|| p_completed_pmts_group_id ||
3367: 'p_checkrun_name = '|| p_checkrun_name;
3368: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3369: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3370: G_MODULE_NAME || l_procedure_name,
3371: l_log_msg);
3372:
3373: END IF;
3375: BEGIN
3376:
3377: l_log_msg := 'Begin to clean up the xla_event_gt_table';
3378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3379: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3380: G_MODULE_NAME || l_procedure_name,
3381: l_log_msg);
3382: END IF;
3383:
3385: WHERE application_id = 200;
3386:
3387: l_log_msg := 'After clean up the xla_event_gt_table';
3388: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3389: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3390: G_MODULE_NAME || l_procedure_name,
3391: l_log_msg);
3392: END IF;
3393:
3396: BEGIN
3397:
3398: l_log_msg := 'create event for group_id = ' || p_completed_pmts_group_id ;
3399: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3400: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3401: G_MODULE_NAME || l_procedure_name,
3402: l_log_msg);
3403: END IF;
3404:
3438: INTO l_count
3439: FROM XLA_EVENTS_INT_GT;
3440:
3441: l_log_msg := 'event gt table has record number = '|| l_count;
3442: FND_LOG.STRING(G_LEVEL_STATEMENT,
3443: G_MODULE_NAME || l_procedure_name,
3444: l_log_msg);
3445: END IF;
3446:
3447: EXCEPTION
3448: WHEN OTHERS THEN
3449: l_log_msg := 'unknown exception when try to insert into xla gt table';
3450: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3451: FND_LOG.STRING(G_LEVEL_STATEMENT,
3452: G_MODULE_NAME || l_procedure_name,
3453: l_log_msg);
3454: END IF;
3455: END;
3455: END;
3456:
3457: l_log_msg := 'after insert into xla_event_gt table';
3458: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3459: FND_LOG.STRING(G_LEVEL_STATEMENT,
3460: G_MODULE_NAME || l_procedure_name,
3461: l_log_msg);
3462: END IF;
3463:
3471: END;
3472:
3473: l_log_msg := 'After calling the sla create_bulk_events';
3474: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3475: FND_LOG.STRING(G_LEVEL_STATEMENT,
3476: G_MODULE_NAME || l_procedure_name,
3477: l_log_msg);
3478: END IF;
3479:
3478: END IF;
3479:
3480: l_log_msg := 'Right before insert into ap_payment_history table';
3481: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3482: FND_LOG.STRING(G_LEVEL_STATEMENT,
3483: G_MODULE_NAME || l_procedure_name,
3484: l_log_msg);
3485: END IF;
3486:
3576: AND ac.completed_pmts_group_id = p_completed_pmts_group_id
3577: AND ac.org_id = p_org_id;
3578:
3579: l_log_msg := 'payment history has record number = '|| l_count;
3580: FND_LOG.STRING(G_LEVEL_STATEMENT,
3581: G_MODULE_NAME || l_procedure_name,
3582: l_log_msg);
3583: END IF;
3584:
3593: AND ac.org_id = p_org_id
3594: AND rownum = 1;
3595:
3596: l_log_msg := ' one account event_id created = '|| l_count;
3597: FND_LOG.STRING(G_LEVEL_STATEMENT,
3598: G_MODULE_NAME || l_procedure_name,
3599: l_log_msg);
3600: END IF;
3601:
3602: EXCEPTION
3603: WHEN OTHERS THEN
3604: l_log_msg := 'unknown exception when try to insert ap_payment_history table';
3605: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3606: FND_LOG.STRING(G_LEVEL_STATEMENT,
3607: G_MODULE_NAME || l_procedure_name,
3608: l_log_msg);
3609: END IF;
3610: END;
3610: END;
3611:
3612: l_log_msg := 'After insert ap_payment_history_table and end the procedure';
3613: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3614: FND_LOG.STRING(G_LEVEL_STATEMENT,
3615: G_MODULE_NAME || l_procedure_name,
3616: l_log_msg);
3617: END IF;
3618:
3672: l_curr_calling_sequence VARCHAR2(2000);
3673:
3674: -- Logging:
3675: l_procedure_name CONSTANT VARCHAR2(30) := 'UPDATE_AWT_INT_DISTS';
3676: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3677:
3678: BEGIN
3679:
3680: l_curr_calling_sequence :=
3679:
3680: l_curr_calling_sequence :=
3681: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_AWT_INT_DISTS';
3682:
3683: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3684:
3685: l_log_msg := 'Begin of procedure '||l_procedure_name;
3686: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3687: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3683: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3684:
3685: l_log_msg := 'Begin of procedure '||l_procedure_name;
3686: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3687: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3688: G_MODULE_NAME || l_procedure_name,
3689: l_log_msg);
3690: END IF;
3691:
3698:
3699: l_log_msg := 'Update ap_invoice_distribution, set accounting_event_id ='
3700: ||to_char(p_event_id);
3701: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3702: FND_LOG.STRING(G_LEVEL_STATEMENT,
3703: G_MODULE_NAME || l_procedure_name,
3704: l_log_msg);
3705: END IF;
3706:
3718:
3719: l_log_msg := 'Update ap_invoice_distribution, set accounting_event_id =
3720: '||to_char(p_event_id);
3721: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3722: FND_LOG.STRING(G_LEVEL_STATEMENT,
3723: G_MODULE_NAME || l_procedure_name,
3724: l_log_msg);
3725: END IF;
3726:
3739: END IF; --event is Payment, Payment Adjustment or Payment Cancellation
3740:
3741: l_log_msg := 'End of procedure '||l_procedure_name;
3742: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3743: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3744: G_MODULE_NAME || l_procedure_name,
3745: l_log_msg);
3746: END IF;
3747:
3810: l_curr_calling_sequence VARCHAR2(2000);
3811:
3812: -- Logging:
3813: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
3814: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3815:
3816: BEGIN
3817:
3818: l_curr_calling_sequence := p_calling_sequence ||
3817:
3818: l_curr_calling_sequence := p_calling_sequence ||
3819: ' -> AP_ACCOUNTING_EVENTS_PKG.BATCH_UPDATE_PAYMENT_INFO';
3820:
3821: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3822:
3823: l_log_msg := 'Begin of procedure '||l_procedure_name;
3824: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3825: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3821: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3822:
3823: l_log_msg := 'Begin of procedure '||l_procedure_name;
3824: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3825: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3826: G_MODULE_NAME || l_procedure_name,
3827: l_log_msg);
3828: END IF;
3829:
3831: LOOP
3832:
3833: l_log_msg := 'Get data from cursor get_payment_info';
3834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3835: FND_LOG.STRING(G_LEVEL_STATEMENT,
3836: G_MODULE_NAME || l_procedure_name,
3837: l_log_msg);
3838: END IF;
3839:
3889: CLOSE get_payment_info;
3890:
3891: l_log_msg := 'End of procedure '||l_procedure_name;
3892: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3893: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3894: G_MODULE_NAME || l_procedure_name,
3895: l_log_msg);
3896: END IF;
3897:
3946: l_curr_calling_sequence VARCHAR2(2000);
3947:
3948: -- Logging:
3949: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
3950: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3951:
3952: BEGIN
3953:
3954: l_curr_calling_sequence :=
3953:
3954: l_curr_calling_sequence :=
3955: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.IS_EVENT_COMPLETE';
3956:
3957: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3958:
3959: l_log_msg := 'Begin of procedure '||l_procedure_name;
3960: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3961: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3957: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3958:
3959: l_log_msg := 'Begin of procedure '||l_procedure_name;
3960: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3961: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3962: G_MODULE_NAME || l_procedure_name,
3963: l_log_msg);
3964: END IF;
3965:
4094: END IF; -- l_count = 0
4095:
4096: l_log_msg := 'End of procedure '||l_procedure_name;
4097: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4098: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4099: G_MODULE_NAME || l_procedure_name,
4100: l_log_msg);
4101: END IF;
4102:
4177: l_curr_calling_sequence VARCHAR2(2000);
4178:
4179: -- Logging:
4180: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
4181: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4182:
4183:
4184: BEGIN
4185:
4185:
4186: l_curr_calling_sequence := p_calling_sequence ||
4187: ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_PAYMENT_ADJ_EVENT';
4188:
4189: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4190:
4191: l_log_msg := 'Begin of procedure '||l_procedure_name;
4192: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4193: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4189: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4190:
4191: l_log_msg := 'Begin of procedure '||l_procedure_name;
4192: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4193: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4194: G_MODULE_NAME || l_procedure_name,
4195: l_log_msg);
4196: END IF;
4197:
4196: END IF;
4197:
4198: l_log_msg := 'Before calling procedure get_payment_info';
4199: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4200: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4201: G_MODULE_NAME || l_procedure_name,
4202: l_log_msg);
4203: END IF;
4204:
4211: );
4212:
4213: l_log_msg := 'After calling procedure get_payment_info';
4214: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4215: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4216: G_MODULE_NAME || l_procedure_name,
4217: l_log_msg);
4218: END IF;
4219:
4218: END IF;
4219:
4220: l_log_msg := 'Before calling procedure get_event_security_context';
4221: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4222: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4223: G_MODULE_NAME || l_procedure_name,
4224: l_log_msg);
4225: END IF;
4226:
4232:
4233:
4234: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4235: l_log_msg := 'After calling procedure get_event_security_context';
4236: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4237: G_MODULE_NAME || l_procedure_name,
4238: l_log_msg);
4239: END IF;
4240:
4239: END IF;
4240:
4241: l_log_msg := 'Before calling procedure get_payment_event_source_info';
4242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4243: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4244: G_MODULE_NAME || l_procedure_name,
4245: l_log_msg);
4246: END IF;
4247:
4254: );
4255:
4256: l_log_msg := 'After calling procedure get_payment_event_source_info';
4257: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4258: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4259: G_MODULE_NAME || l_procedure_name,
4260: l_log_msg);
4261: END IF;
4262:
4268: EXIT WHEN l_event_cur%NOTFOUND;
4269:
4270: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4271: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4272: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4273: G_MODULE_NAME || l_procedure_name,
4274: l_log_msg);
4275: END IF;
4276:
4284: );
4285:
4286: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4287: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4288: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4289: G_MODULE_NAME || l_procedure_name,
4290: l_log_msg);
4291: END IF;
4292:
4334: WHERE AC.check_id = P_check_id;
4335:
4336: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4337: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4338: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4339: G_MODULE_NAME || l_procedure_name,
4340: l_log_msg);
4341: END IF;
4342:
4379: );
4380:
4381: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4382: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4383: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4384: G_MODULE_NAME || l_procedure_name,
4385: l_log_msg);
4386: END IF;
4387: END IF;
4389: p_accounting_event_id := l_accounting_event_id;
4390:
4391: l_log_msg := 'End of procedure '||l_procedure_name;
4392: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4393: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4394: G_MODULE_NAME || l_procedure_name,
4395: l_log_msg);
4396: END IF;
4397:
4560: l_org_id NUMBER;
4561:
4562: -- Logging:
4563: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_CASCADE_EVENTS';
4564: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4565:
4566: l_event_type xla_events.event_type_code%TYPE;
4567: l_pay_type ap_checks_all.payment_type_flag%TYPE;
4568: l_automatic_offsets_flag ap_system_parameters_all.automatic_offsets_flag%TYPE; ---7209263
4573:
4574: l_curr_calling_sequence :=
4575: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_CASCADE_EVENTS';
4576:
4577: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4578:
4579: l_log_msg := 'Begin of procedure '||l_procedure_name;
4580: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4581: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4577: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4578:
4579: l_log_msg := 'Begin of procedure '||l_procedure_name;
4580: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4581: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4582: G_MODULE_NAME || l_procedure_name,
4583: l_log_msg);
4584: END IF;
4585:
4585:
4586: l_log_msg := 'Cascade the prepayment application events';
4587: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4588: l_log_msg := 'Cascade the prepayment application events';
4589: FND_LOG.STRING(G_LEVEL_STATEMENT,
4590: G_MODULE_NAME || l_procedure_name,
4591: l_log_msg);
4592: END IF;
4593:
4604: FOR i IN 1 ..l_prepay_app_invoice_ids.count LOOP
4605:
4606: l_log_msg := 'Before calling procedure create_invoice_event';
4607: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4608: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4609: G_MODULE_NAME || l_procedure_name,
4610: l_log_msg);
4611: END IF;
4612:
4611: END IF;
4612:
4613: l_log_msg := 'Before calling procedure create_invoice_event';
4614: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4615: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4616: G_MODULE_NAME || l_procedure_name,
4617: l_log_msg);
4618: END IF;
4619:
4624: p_calling_sequence => l_curr_calling_sequence);
4625:
4626: l_log_msg := 'After calling procedure create_invoice_event';
4627: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4628: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4629: G_MODULE_NAME || l_procedure_name,
4630: l_log_msg);
4631: END IF;
4632:
4631: END IF;
4632:
4633: l_log_msg := 'Before calling procedure Insert_Prepayment_Header';
4634: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4635: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4636: G_MODULE_NAME || l_procedure_name,
4637: l_log_msg);
4638: END IF;
4639:
4646: p_calling_sequence => l_curr_calling_sequence);
4647:
4648: l_log_msg := 'After calling procedure Insert_prepayment_Header';
4649: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4650: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4651: G_MODULE_NAME || l_procedure_name,
4652: l_log_msg);
4653: END IF;
4654: END LOOP;
4659:
4660:
4661: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4662: l_log_msg := 'cascade the payment events';
4663: FND_LOG.STRING(G_LEVEL_STATEMENT,
4664: G_MODULE_NAME || l_procedure_name,
4665: l_log_msg);
4666: END IF;
4667:
4678: FOR i IN 1 .. l_pay_check_ids.count LOOP
4679:
4680: l_log_msg := 'Before calling procedure create_payment_event';
4681: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4682: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4683: G_MODULE_NAME || l_procedure_name,
4684: l_log_msg);
4685: END IF;
4686:
4714: );
4715:
4716: l_log_msg := 'After calling procedure create_payment_event';
4717: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4718: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4719: G_MODULE_NAME || l_procedure_name,
4720: l_log_msg);
4721: END IF;
4722:
4721: END IF;
4722:
4723: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4724: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4725: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4726: G_MODULE_NAME || l_procedure_name,
4727: l_log_msg);
4728: END IF;
4729:
4767: );
4768:
4769: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4770: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4771: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4772: G_MODULE_NAME || l_procedure_name,
4773: l_log_msg);
4774: END IF;
4775:
4780: CLOSE l_payments_cur;
4781:
4782: l_log_msg := 'Cascade the payment clearing events';
4783: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4784: FND_LOG.STRING(G_LEVEL_STATEMENT,
4785: G_MODULE_NAME || l_procedure_name,
4786: l_log_msg);
4787: END IF;
4788:
4798: FOR i IN 1 .. l_pay_clear_check_ids.count LOOP
4799:
4800: l_log_msg := 'Before calling procedure create_payment_event';
4801: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4802: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4803: G_MODULE_NAME || l_procedure_name,
4804: l_log_msg);
4805: END IF;
4806: /* commented here for bug 7607184
4863: p_calling_sequence => l_curr_calling_sequence);
4864:
4865: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4866: l_log_msg := 'After calling procedure create_payment_event';
4867: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4868: G_MODULE_NAME || l_procedure_name,
4869: l_log_msg);
4870: END IF;
4871:
4888:
4889:
4890: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4891: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4892: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4893: G_MODULE_NAME || l_procedure_name,
4894: l_log_msg);
4895: END IF;
4896:
4935: );
4936:
4937: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY ';
4938: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4939: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4940: G_MODULE_NAME || l_procedure_name,
4941: l_log_msg);
4942: END IF;
4943:
4949:
4950:
4951: l_log_msg := 'Cascade the payment maturity events';
4952: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4953: FND_LOG.STRING(G_LEVEL_STATEMENT,
4954: G_MODULE_NAME || l_procedure_name,
4955: l_log_msg);
4956: END IF;
4957:
4987:
4988:
4989: l_log_msg := 'Before calling procedure create_payment_event';
4990: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4991: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4992: G_MODULE_NAME || l_procedure_name,
4993: l_log_msg);
4994: END IF;
4995:
5001: p_calling_sequence => l_curr_calling_sequence);
5002:
5003: l_log_msg := 'After calling procedure create_payment_event';
5004: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5005: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5006: G_MODULE_NAME || l_procedure_name,
5007: l_log_msg);
5008: END IF;
5009:
5025: */
5026:
5027: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5028: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5029: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5030: G_MODULE_NAME || l_procedure_name,
5031: l_log_msg);
5032: END IF;
5033:
5071: );
5072:
5073: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5075: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5076: G_MODULE_NAME || l_procedure_name,
5077: l_log_msg);
5078: END IF;
5079:
5084: CLOSE l_payment_maturities_cur;
5085:
5086: l_log_msg := 'End of procedure '||l_procedure_name;
5087: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5088: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5089: G_MODULE_NAME || l_procedure_name,
5090: l_log_msg);
5091: END IF;
5092:
5207: l_curr_calling_sequence VARCHAR2(2000);
5208:
5209: -- Logging:
5210: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_INVOICE_CANCEL_EVENT';
5211: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5212:
5213: BEGIN
5214:
5215: l_curr_calling_sequence := p_calling_sequence ||
5214:
5215: l_curr_calling_sequence := p_calling_sequence ||
5216: ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_INVOICE_CANCEL_EVENT';
5217:
5218: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5219:
5220: l_log_msg := 'Begin of procedure '||l_procedure_name;
5221: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5222: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5218: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5219:
5220: l_log_msg := 'Begin of procedure '||l_procedure_name;
5221: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5222: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5223: G_MODULE_NAME || l_procedure_name,
5224: l_log_msg);
5225: END IF;
5226:
5244: WHERE AI.invoice_id = p_invoice_id;
5245:
5246: l_log_msg := 'Before calling procedure create_invoice_event';
5247: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5248: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5249: G_MODULE_NAME || l_procedure_name,
5250: l_log_msg);
5251: END IF;
5252:
5260:
5261: FOR i IN 1 ..l_accounting_event_dates.count LOOP
5262: l_log_msg := 'Before calling procedure create_invoice_event';
5263: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5264: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5265: G_MODULE_NAME || l_procedure_name,
5266: l_log_msg);
5267: END IF;
5268:
5275: );
5276:
5277: l_log_msg := 'After calling procedure create_invoice_event';
5278: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5279: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5280: G_MODULE_NAME || l_procedure_name,
5281: l_log_msg);
5282: END IF;
5283:
5319: -- if we need to update events to No Action.
5320:
5321: l_log_msg :='End of procedure '||l_procedure_name;
5322: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5323: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5324: G_MODULE_NAME || l_procedure_name,
5325: l_log_msg);
5326: END IF;
5327:
5409: l_curr_calling_sequence VARCHAR2(2000);
5410:
5411: -- Logging:
5412: l_procedure_name CONSTANT VARCHAR2(30) := 'NO_ACTION_PMT_EVENT_UPDATE';
5413: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5414:
5415: BEGIN
5416:
5417: l_curr_calling_sequence := p_calling_sequence ||
5416:
5417: l_curr_calling_sequence := p_calling_sequence ||
5418: ' -> AP_ACCOUNTING_EVENTS_PKG.NO_ACTION_PMT_EVENT_UPDATE';
5419:
5420: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5421:
5422: l_log_msg :='Begin of procedure '||l_procedure_name;
5423: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5424: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5420: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5421:
5422: l_log_msg :='Begin of procedure '||l_procedure_name;
5423: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5424: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5425: G_MODULE_NAME || l_procedure_name,
5426: l_log_msg);
5427: END IF;
5428:
5427: END IF;
5428:
5429: l_log_msg :='Before calling procedure get_payment_info';
5430: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5431: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5432: G_MODULE_NAME || l_procedure_name,
5433: l_log_msg);
5434: END IF;
5435:
5442: );
5443:
5444: l_log_msg :='Procedure get_payment_info executed';
5445: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5446: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5447: G_MODULE_NAME || l_procedure_name,
5448: l_log_msg);
5449: END IF;
5450:
5449: END IF;
5450:
5451: l_log_msg :='Before calling procedure get_event_security_context';
5452: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5453: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5454: G_MODULE_NAME || l_procedure_name,
5455: l_log_msg);
5456: END IF;
5457:
5462: );
5463:
5464: l_log_msg :='After calling procedure get_event_security_context';
5465: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5466: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5467: G_MODULE_NAME || l_procedure_name,
5468: l_log_msg);
5469: END IF;
5470:
5469: END IF;
5470:
5471: l_log_msg :='Before calling procedure get_payment_event_source_info';
5472: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5473: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5474: G_MODULE_NAME || l_procedure_name,
5475: l_log_msg);
5476: END IF;
5477:
5484: );
5485:
5486: l_log_msg :='After calling procedure get_payment_event_source_info';
5487: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5488: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5489: G_MODULE_NAME || l_procedure_name,
5490: l_log_msg);
5491: END IF;
5492:
5527: -- 'REFUND CANCELLED' events will be updated.
5528:
5529: l_log_msg :='Before calling P_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5530: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5531: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5532: G_MODULE_NAME || l_procedure_name,
5533: l_log_msg);
5534: END IF;
5535:
5545: );
5546:
5547: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5548: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5549: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5550: G_MODULE_NAME || l_procedure_name,
5551: l_log_msg);
5552: END IF;
5553: END IF;
5574: -- 'PAYMENT UNCLEARED' events will be updated.
5575:
5576: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5577: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5578: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5579: G_MODULE_NAME || l_procedure_name,
5580: l_log_msg);
5581: END IF;
5582:
5592: );
5593:
5594: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5595: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5596: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5597: G_MODULE_NAME || l_procedure_name,
5598: l_log_msg);
5599: END IF;
5600: END IF;
5615: IF (l_accounting_date = p_accounting_date) THEN
5616:
5617: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5618: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5619: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5620: G_MODULE_NAME || l_procedure_name,
5621: l_log_msg);
5622: END IF;
5623:
5633: );
5634:
5635: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
5636: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5637: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5638: G_MODULE_NAME || l_procedure_name,
5639: l_log_msg);
5640: END IF;
5641: END IF;
5643: END IF;
5644:
5645: l_log_msg :='End of procedure '||l_procedure_name;
5646: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5647: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5648: G_MODULE_NAME || l_procedure_name,
5649: l_log_msg);
5650: END IF;
5651:
5859: l_curr_calling_sequence VARCHAR2(2000);
5860:
5861: -- Logging:
5862: l_procedure_name CONSTANT VARCHAR2(30) := 'MULTI_ORG_EVENTS_SWEEP';
5863: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5864:
5865: BEGIN
5866:
5867: l_curr_calling_sequence :=
5866:
5867: l_curr_calling_sequence :=
5868: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.MULTI_ORG_EVENTS_SWEEP';
5869:
5870: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5871:
5872: l_log_msg :='Begin of procedure '||l_procedure_name;
5873: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5874: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5870: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5871:
5872: l_log_msg :='Begin of procedure '||l_procedure_name;
5873: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5874: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5875: G_MODULE_NAME || l_procedure_name,
5876: l_log_msg);
5877: END IF;
5878:
5906:
5907: FOR i IN 1 .. l_event_ids.count LOOP
5908: l_log_msg :='Before calling procedure get_event_security_context';
5909: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5910: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5911: G_MODULE_NAME || l_procedure_name,
5912: l_log_msg);
5913: END IF;
5914:
5919: );
5920:
5921: l_log_msg :='After calling procedure get_event_security_context';
5922: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5923: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5924: G_MODULE_NAME || l_procedure_name,
5925: l_log_msg);
5926: END IF;
5927:
5926: END IF;
5927:
5928: l_log_msg :='Before calling procedure get_invoice_event_source_info';
5929: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5930: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5931: G_MODULE_NAME || l_procedure_name,
5932: l_log_msg);
5933: END IF;
5934:
5941: );
5942:
5943: l_log_msg :='After calling procedure get_invoice_event_source_info';
5944: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5945: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5946: G_MODULE_NAME || l_procedure_name,
5947: l_log_msg);
5948: END IF;
5949:
5948: END IF;
5949:
5950: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
5951: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5952: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5953: G_MODULE_NAME || l_procedure_name,
5954: l_log_msg);
5955: END IF;
5956:
5989: AND aeh.gl_transfer_status_code <> 'Y');
5990:
5991: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
5992: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5993: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5994: G_MODULE_NAME || l_procedure_name,
5995: l_log_msg);
5996: END IF;
5997:
6055: );
6056:
6057: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6058: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6059: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6060: G_MODULE_NAME || l_procedure_name,
6061: l_log_msg);
6062: END IF;
6063:
6097:
6098:
6099: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6100: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6101: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6102: G_MODULE_NAME || l_procedure_name,
6103: l_log_msg);
6104: END IF;
6105: END LOOP;
6119: end if;
6120:
6121: l_log_msg :='End of procedure '||l_procedure_name;
6122: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6123: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6124: G_MODULE_NAME || l_procedure_name,
6125: l_log_msg);
6126: END IF;
6127:
6269: l_curr_calling_sequence VARCHAR2(2000);
6270:
6271: -- Logging:
6272: l_procedure_name CONSTANT VARCHAR2(30) := 'SINGLE_ORG_EVENTS_SWEEP';
6273: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6274:
6275: BEGIN
6276:
6277: l_curr_calling_sequence := p_calling_sequence
6276:
6277: l_curr_calling_sequence := p_calling_sequence
6278: || ' -> AP_ACCOUNTING_EVENTS_PKG.SINGLE_ORG_EVENTS_SWEEP';
6279:
6280: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6281:
6282: l_log_msg :='Begin of procedure '||l_procedure_name;
6283: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6284: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6280: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6281:
6282: l_log_msg :='Begin of procedure '||l_procedure_name;
6283: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6284: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6285: G_MODULE_NAME || l_procedure_name,
6286: l_log_msg);
6287: END IF;
6288:
6315: );
6316:
6317: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6318: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6319: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6320: G_MODULE_NAME || l_procedure_name,
6321: l_log_msg);
6322: END IF;
6323:
6356: AND aeh.gl_transfer_status_code <> 'Y');
6357:
6358: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6359: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6360: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6361: G_MODULE_NAME || l_procedure_name,
6362: l_log_msg);
6363: END IF;
6364:
6417: );
6418:
6419: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6420: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6421: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6422: G_MODULE_NAME || l_procedure_name,
6423: l_log_msg);
6424: END IF;
6425:
6458: AND aeh.gl_transfer_status_code <> 'Y');
6459:
6460: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6461: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6462: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6463: G_MODULE_NAME || l_procedure_name,
6464: l_log_msg);
6465: END IF;
6466:
6481: end if;
6482:
6483: l_log_msg :='End of procedure '||l_procedure_name;
6484: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6485: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6486: G_MODULE_NAME || l_procedure_name,
6487: l_log_msg);
6488: END IF;
6489:
6549: l_curr_calling_sequence VARCHAR2(2000);
6550:
6551: -- Logging:
6552: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_CLASS_CODE';
6553: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6554:
6555: BEGIN
6556:
6557: l_curr_calling_sequence :=
6556:
6557: l_curr_calling_sequence :=
6558: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_CLASS_CODE';
6559:
6560: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6561:
6562: l_log_msg :='Begin of procedure '||l_procedure_name;
6563: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6564: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6560: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6561:
6562: l_log_msg :='Begin of procedure '||l_procedure_name;
6563: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6564: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6565: G_MODULE_NAME || l_procedure_name,
6566: l_log_msg);
6567: END IF;
6568:
6678: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
6679:
6680: -- Logging:
6681: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SECURITY_CONTEXT';
6682: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6683:
6684: BEGIN
6685:
6686: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6682: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6683:
6684: BEGIN
6685:
6686: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6687:
6688: l_log_msg :='Begin of procedure '||l_procedure_name;
6689: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6690: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6686: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6687:
6688: l_log_msg :='Begin of procedure '||l_procedure_name;
6689: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6690: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6691: G_MODULE_NAME || l_procedure_name,
6692: l_log_msg);
6693: END IF;
6694:
6695: l_event_security_context.security_id_int_1 := p_org_id;
6696:
6697: l_log_msg :='End of procedure '||l_procedure_name;
6698: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6699: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6700: G_MODULE_NAME || l_procedure_name,
6701: l_log_msg);
6702: END IF;
6703:
6739: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6740:
6741: -- Logging:
6742: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
6743: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6744:
6745: BEGIN
6746:
6747: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6743: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6744:
6745: BEGIN
6746:
6747: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6748:
6749: l_log_msg :='Begin of procedure '||l_procedure_name;
6750: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6751: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6747: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6748:
6749: l_log_msg :='Begin of procedure '||l_procedure_name;
6750: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6751: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6752: G_MODULE_NAME || l_procedure_name,
6753: l_log_msg);
6754: END IF;
6755:
6766: l_event_source_info.source_id_int_1 := p_invoice_id;
6767:
6768: l_log_msg :='End of procedure '||l_procedure_name;
6769: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6770: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6771: G_MODULE_NAME || l_procedure_name,
6772: l_log_msg);
6773: END IF;
6774:
6811: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
6812:
6813: -- Logging:
6814: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_EVENT_SOURCE_INFO';
6815: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6816:
6817: BEGIN
6818:
6819: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6815: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6816:
6817: BEGIN
6818:
6819: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6820:
6821: l_log_msg :='Begin of procedure '||l_procedure_name;
6822: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6823: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6819: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6820:
6821: l_log_msg :='Begin of procedure '||l_procedure_name;
6822: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6823: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6824: G_MODULE_NAME || l_procedure_name,
6825: l_log_msg);
6826: END IF;
6827:
6838: l_event_source_info.source_id_int_1 := p_check_id;
6839:
6840: l_log_msg :='End of procedure '||l_procedure_name;
6841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6842: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6843: G_MODULE_NAME || l_procedure_name,
6844: l_log_msg);
6845: END IF;
6846:
6883: l_curr_calling_sequence VARCHAR2(2000);
6884:
6885: -- Logging:
6886: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
6887: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6888:
6889: BEGIN
6890:
6891: l_curr_calling_sequence :=
6890:
6891: l_curr_calling_sequence :=
6892: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_INVOICE_INFO';
6893:
6894: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6895:
6896: l_log_msg :='Begin of procedure '||l_procedure_name;
6897: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6898: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6894: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6895:
6896: l_log_msg :='Begin of procedure '||l_procedure_name;
6897: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6898: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6899: G_MODULE_NAME || l_procedure_name,
6900: l_log_msg);
6901: END IF;
6902:
6916: AI.invoice_id = p_invoice_id;
6917:
6918: l_log_msg :='End of procedure '||l_procedure_name;
6919: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6920: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6921: G_MODULE_NAME || l_procedure_name,
6922: l_log_msg);
6923: END IF;
6924:
6968: l_curr_calling_sequence VARCHAR2(2000);
6969:
6970: -- Logging:
6971: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_INFO';
6972: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6973:
6974: BEGIN
6975:
6976: l_curr_calling_sequence :=
6975:
6976: l_curr_calling_sequence :=
6977: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_PAYMENT_INFO';
6978:
6979: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6980:
6981: l_log_msg :='Begin of procedure '||l_procedure_name;
6982: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6983: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6979: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6980:
6981: l_log_msg :='Begin of procedure '||l_procedure_name;
6982: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6983: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6984: G_MODULE_NAME || l_procedure_name,
6985: l_log_msg);
6986: END IF;
6987:
6997: AND nvl(AC.org_id,-99) = nvl(ASP.org_id,-99);
6998:
6999: l_log_msg :='End of procedure '||l_procedure_name;
7000: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7001: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7002: G_MODULE_NAME || l_procedure_name,
7003: l_log_msg);
7004: END IF;
7005:
7048:
7049:
7050: -- Logging:
7051: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_Prepayment_Header';
7052: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7053:
7054: BEGIN
7055:
7056: l_curr_calling_sequence := p_calling_sequence ||
7055:
7056: l_curr_calling_sequence := p_calling_sequence ||
7057: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_PREPAYMENT_HEADER';
7058:
7059: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7060:
7061: l_log_msg :='Begin of procedure '||l_procedure_name;
7062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7063: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7059: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7060:
7061: l_log_msg :='Begin of procedure '||l_procedure_name;
7062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7063: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7064: G_MODULE_NAME || l_procedure_name,
7065: l_log_msg);
7066: END IF;
7067:
7087:
7088: l_log_msg :='End of procedure '||l_procedure_name;
7089:
7090: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7091: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7092: G_MODULE_NAME || l_procedure_name,
7093: l_log_msg);
7094: END IF;
7095:
7148: l_related_prepay_app_event_id NUMBER;
7149:
7150: -- Logging:
7151: l_procedure_name CONSTANT VARCHAR2(30) := 'Insert_Prepayment_Header';
7152: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7153:
7154: --bugfix:4936043
7155: CURSOR prepayment_invoices IS
7156: SELECT AIL.amount,
7173:
7174: l_curr_calling_sequence := p_calling_sequence ||
7175: ' -> AP_ACCOUNTING_EVENTS_PKG.INSERT_PREPAYMENT_HEADER';
7176:
7177: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7178:
7179: l_log_msg :='Begin of procedure '||l_procedure_name;
7180: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7181: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7177: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7178:
7179: l_log_msg :='Begin of procedure '||l_procedure_name;
7180: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7181: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7182: G_MODULE_NAME || l_procedure_name,
7183: l_log_msg);
7184: END IF;
7185:
7292:
7293: l_log_msg :='End of procedure '||l_procedure_name;
7294:
7295: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7296: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7297: G_MODULE_NAME || l_procedure_name,
7298: l_log_msg);
7299: END IF;
7300:
7377:
7378: l_log_msg :='End of procedure '||l_procedure_name;
7379:
7380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7381: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7382: G_MODULE_NAME || l_procedure_name,
7383: l_log_msg);
7384: END IF;
7385: