[Home] [Help]
1: PACKAGE BODY AP_ACCOUNTING_EVENTS_PKG AS
2: /* $Header: apeventb.pls 120.123.12020000.3 2012/09/26 07:11:41 aaalla 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.123.12020000.3 2012/09/26 07:11:41 aaalla 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.123.12020000.3 2012/09/26 07:11:41 aaalla 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.
271: l_curr_calling_sequence VARCHAR2(2000);
272:
273: -- Logging:
274: l_procedure_name CONSTANT VARCHAR2(30) := 'delete_invoice_event';
275: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
276:
277: l_event_status VARCHAR2(1);
278: l_legal_entity_id NUMBER(15);
279: l_ledger_id NUMBER(15);
286:
287: l_curr_calling_sequence :=
288: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_EVENTS';
289:
290: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
291:
292: l_log_msg := 'Begin of procedure '|| l_procedure_name;
293: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
294: FND_LOG.STRING(G_LEVEL_PROCEDURE,
290: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
291:
292: l_log_msg := 'Begin of procedure '|| l_procedure_name;
293: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
294: FND_LOG.STRING(G_LEVEL_PROCEDURE,
295: G_MODULE_NAME||l_procedure_name||'.begin',
296: l_log_msg);
297: END IF;
298: get_invoice_info
404: l_curr_calling_sequence VARCHAR2(2000);
405:
406: -- Logging:
407: l_procedure_name CONSTANT VARCHAR2(30) := 'Create_Events';
408: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
409:
410: BEGIN
411:
412: l_curr_calling_sequence :=
411:
412: l_curr_calling_sequence :=
413: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_EVENTS';
414:
415: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416:
417: l_log_msg := 'Begin of procedure '|| l_procedure_name;
418: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
419: FND_LOG.STRING(G_LEVEL_PROCEDURE,
415: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416:
417: l_log_msg := 'Begin of procedure '|| l_procedure_name;
418: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
419: FND_LOG.STRING(G_LEVEL_PROCEDURE,
420: G_MODULE_NAME||l_procedure_name||'.begin',
421: l_log_msg);
422: END IF;
423:
433: WHEN ('INVOICES') THEN
434:
435: l_log_msg := 'Before calling procedure Derive_invoice_events';
436: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
437: FND_LOG.STRING(G_LEVEL_PROCEDURE,
438: G_MODULE_NAME || l_procedure_name,
439: l_log_msg);
440: END IF;
441:
443: p_calling_sequence => l_curr_calling_sequence);
444:
445: l_log_msg := 'After Calling Derive_invoice_events procedure';
446: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
447: FND_LOG.STRING(G_LEVEL_PROCEDURE,
448: G_MODULE_NAME || l_procedure_name,
449: l_log_msg);
450: END IF;
451:
455: WHEN ('INVOICE CANCELLATION') THEN
456:
457: l_log_msg := 'Before calling procedure Derive_invoice_cancel_events';
458: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
459: FND_LOG.STRING(G_LEVEL_PROCEDURE,
460: G_MODULE_NAME || l_procedure_name,
461: l_log_msg);
462: END IF;
463:
466: p_calling_sequence => l_curr_calling_sequence);
467:
468: l_log_msg := 'After calling procedure Derive_invoice_cancel_event';
469: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
470: FND_LOG.STRING(G_LEVEL_PROCEDURE,
471: G_MODULE_NAME || l_procedure_name,
472: l_log_msg);
473: END IF;
474: ------------------------------------------------------------
477: WHEN ('PAYMENT') THEN
478:
479: l_log_msg := 'Before calling procedure create_payment_event';
480: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
481: FND_LOG.STRING(G_LEVEL_PROCEDURE,
482: G_MODULE_NAME || l_procedure_name,
483: l_log_msg);
484: END IF;
485:
496: p_calling_sequence => l_curr_calling_sequence);
497:
498: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
500: FND_LOG.STRING(G_LEVEL_STATEMENT,
501: G_MODULE_NAME || l_procedure_name,
502: l_log_msg);
503: END IF;
504:
503: END IF;
504:
505: l_log_msg := 'After calling procedure create_payment_event';
506: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
507: FND_LOG.STRING(G_LEVEL_PROCEDURE,
508: G_MODULE_NAME || l_procedure_name,
509: l_log_msg);
510: END IF;
511: ------------------------------------------------------------
515:
516:
517: l_log_msg := 'Before calling procedure derive_payment_adj_event';
518: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
519: FND_LOG.STRING(G_LEVEL_PROCEDURE,
520: G_MODULE_NAME || l_procedure_name,
521: l_log_msg);
522: END IF;
523:
529: p_calling_sequence => l_curr_calling_sequence);
530:
531: l_log_msg := 'After calling procedure derive_payment_adj_event';
532: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
533: FND_LOG.STRING(G_LEVEL_PROCEDURE,
534: G_MODULE_NAME || l_procedure_name,
535: l_log_msg);
536: END IF;
537: ------------------------------------------------------------
540: WHEN ('PAYMENT ADJUSTMENT') THEN
541:
542: l_log_msg := 'Before calling procedure derive_payment_adj_event';
543: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
544: FND_LOG.STRING(G_LEVEL_PROCEDURE,
545: G_MODULE_NAME || l_procedure_name,
546: l_log_msg);
547: END IF;
548:
554: p_calling_sequence => l_curr_calling_sequence);
555:
556: l_log_msg := 'After calling procedure derive_payment_adj_event';
557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
558: FND_LOG.STRING(G_LEVEL_PROCEDURE,
559: G_MODULE_NAME || l_procedure_name,
560: l_log_msg);
561: END IF;
562: ------------------------------------------------------------
565: WHEN ('UPGRADED MANUAL REVERSED PAYMENT') THEN
566:
567: l_log_msg := 'Before calling procedure derive_payment_adj_event';
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;
573:
579: p_calling_sequence => l_curr_calling_sequence);
580:
581: l_log_msg := 'After calling procedure derive_payment_adj_event';
582: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
583: FND_LOG.STRING(G_LEVEL_PROCEDURE,
584: G_MODULE_NAME || l_procedure_name,
585: l_log_msg);
586: END IF;
587:
591: WHEN ('UPGRADED MANUAL ADJUSTED PAYMENT') THEN
592:
593: l_log_msg := 'Before calling procedure derive_payment_adj_event';
594: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
595: FND_LOG.STRING(G_LEVEL_PROCEDURE,
596: G_MODULE_NAME || l_procedure_name,
597: l_log_msg);
598: END IF;
599:
605: p_calling_sequence => l_curr_calling_sequence);
606:
607: l_log_msg := 'After calling procedure derive_payment_adj_event';
608: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
609: FND_LOG.STRING(G_LEVEL_PROCEDURE,
610: G_MODULE_NAME || l_procedure_name,
611: l_log_msg);
612: END IF;
613:
626: -- Step 1: Create payment event
627: ----------------------------------------------------
628: l_log_msg := 'Before calling procedure create_payment_event';
629: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(G_LEVEL_PROCEDURE,
631: G_MODULE_NAME || l_procedure_name,
632: l_log_msg);
633: END IF;
634:
640: p_calling_sequence => l_curr_calling_sequence);
641:
642: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
643: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
644: FND_LOG.STRING(G_LEVEL_STATEMENT,
645: G_MODULE_NAME || l_procedure_name,
646: l_log_msg);
647: END IF;
648:
647: END IF;
648:
649: l_log_msg := 'After calling Procedure create_payment_event';
650: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
651: FND_LOG.STRING(G_LEVEL_PROCEDURE,
652: G_MODULE_NAME || l_procedure_name,
653: l_log_msg);
654: END IF;
655:
659: -- Step 2: calling update payment event to 'No Action'
660: -----------------------------------------------------
661: l_log_msg := 'comment out procedure no_action_pmt_event_update';
662: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
663: FND_LOG.STRING(G_LEVEL_PROCEDURE,
664: G_MODULE_NAME || l_procedure_name,
665: l_log_msg);
666: END IF;
667:
674: p_calling_sequence => l_curr_calling_sequence);
675:
676: l_log_msg := 'After calling procedure no_action_pmt_event_update';
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; End of comment out */
682:
687:
688:
689: l_log_msg := 'Before calling procedure create_payment_event';
690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
691: FND_LOG.STRING(G_LEVEL_PROCEDURE,
692: G_MODULE_NAME || l_procedure_name,
693: l_log_msg);
694: END IF;
695:
700: p_calling_sequence => l_curr_calling_sequence);
701:
702: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
704: FND_LOG.STRING(G_LEVEL_STATEMENT,
705: G_MODULE_NAME || l_procedure_name,
706: l_log_msg);
707: END IF;
708:
707: END IF;
708:
709: l_log_msg := 'After calling procedure create_payment_event';
710: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
711: FND_LOG.STRING(G_LEVEL_PROCEDURE,
712: G_MODULE_NAME || l_procedure_name,
713: l_log_msg);
714: END IF;
715:
722: -- Step 1: Create payment event
723: ----------------------------------------------------
724: l_log_msg := 'Before calling procedure create_payment_event';
725: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
726: FND_LOG.STRING(G_LEVEL_PROCEDURE,
727: G_MODULE_NAME || l_procedure_name,
728: l_log_msg);
729: END IF;
730:
737: );
738:
739: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
740: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
741: FND_LOG.STRING(G_LEVEL_STATEMENT,
742: G_MODULE_NAME || l_procedure_name,
743: l_log_msg);
744: END IF;
745:
744: END IF;
745:
746: l_log_msg := 'After calling procedure create_payment_event';
747: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
748: FND_LOG.STRING(G_LEVEL_PROCEDURE,
749: G_MODULE_NAME || l_procedure_name,
750: l_log_msg);
751: END IF;
752:
754: -- Step 2: Update payment event to 'No Action'
755: ----------------------------------------------------
756: l_log_msg := 'comment out calling procedure no_action_pmt_event_update';
757: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
758: FND_LOG.STRING(G_LEVEL_PROCEDURE,
759: G_MODULE_NAME || l_procedure_name,
760: l_log_msg);
761: END IF;
762:
771: );
772:
773: l_log_msg := 'After calling procedure no_action_pmt_event_update';
774: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
775: FND_LOG.STRING(G_LEVEL_PROCEDURE,
776: G_MODULE_NAME || l_procedure_name,
777: l_log_msg);
778: END IF; End of comment out */
779:
783: WHEN ('PAYMENT MATURITY') THEN
784:
785: l_log_msg := 'Before calling procedure create_payment_event';
786: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
787: FND_LOG.STRING(G_LEVEL_PROCEDURE,
788: G_MODULE_NAME || l_procedure_name,
789: l_log_msg);
790: END IF;
791:
798: );
799:
800: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
802: FND_LOG.STRING(G_LEVEL_STATEMENT,
803: G_MODULE_NAME || l_procedure_name,
804: l_log_msg);
805: END IF;
806:
805: END IF;
806:
807: l_log_msg := 'After calling procedure create_payment_event';
808: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
809: FND_LOG.STRING(G_LEVEL_PROCEDURE,
810: G_MODULE_NAME || l_procedure_name,
811: l_log_msg);
812: END IF;
813:
820: -- Step 1: Create payment event
821: ----------------------------------------------------
822: l_log_msg := 'Before calling procedure create_payment_event';
823: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
824: FND_LOG.STRING(G_LEVEL_PROCEDURE,
825: G_MODULE_NAME || l_procedure_name,
826: l_log_msg);
827: END IF;
828:
835: );
836:
837: l_log_msg := 'p_accounting_event_id = '|| p_accounting_event_id;
838: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
839: FND_LOG.STRING(G_LEVEL_STATEMENT,
840: G_MODULE_NAME || l_procedure_name,
841: l_log_msg);
842: END IF;
843:
842: END IF;
843:
844: l_log_msg := 'After calling procedure create_payment_event';
845: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
846: FND_LOG.STRING(G_LEVEL_PROCEDURE,
847: G_MODULE_NAME || l_procedure_name,
848: l_log_msg);
849: END IF;
850:
852: -- Step 2: Update payment event status to 'No Action'
853: ----------------------------------------------------
854: l_log_msg := 'comment out procedure no_action_pmt_event_update';
855: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
856: FND_LOG.STRING(G_LEVEL_PROCEDURE,
857: G_MODULE_NAME || l_procedure_name,
858: l_log_msg);
859: END IF;
860:
869: );
870:
871: l_log_msg := 'After Calling procedure no_pmt_event_update';
872: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
873: FND_LOG.STRING(G_LEVEL_PROCEDURE,
874: G_MODULE_NAME || l_procedure_name,
875: l_log_msg);
876: END IF; End of comment out */
877:
881: ||l_curr_calling_sequence
882: ||' Error:Wrong p_event_type= '
883: ||p_event_type;
884: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
885: FND_LOG.STRING(G_LEVEL_EXCEPTION,
886: G_MODULE_NAME || l_procedure_name,
887: l_log_msg);
888: END IF;
889:
892: END CASE; --p_event_type
893:
894: l_log_msg := 'End of procedure '|| l_procedure_name;
895: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
896: FND_LOG.STRING(G_LEVEL_PROCEDURE,
897: G_MODULE_NAME||l_procedure_name||'.end',
898: l_log_msg);
899: END IF;
900:
1051: l_transaction_date AP_INVOICES_ALL.invoice_date%TYPE;
1052:
1053: -- Logging:
1054: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_INVOICE_EVENTS';
1055: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1056:
1057: TYPE l_inv_dist_list IS TABLE OF ap_invoice_distributions.invoice_distribution_id%TYPE;
1058: l_inv_dist_tab l_inv_dist_list;
1059:
1061:
1062: l_curr_calling_sequence :=
1063: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_INVOICE_EVENTS';
1064:
1065: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1066:
1067: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1068: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1069: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1065: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1066:
1067: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1068: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1069: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1070: G_MODULE_NAME||l_procedure_name||'.begin',
1071: l_log_msg);
1072: END IF;
1073:
1124: EXCEPTION
1125: WHEN NO_DATA_FOUND THEN
1126: l_log_msg := 'When no_data_found';
1127: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1128: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1129: G_MODULE_NAME || l_procedure_name,
1130: l_log_msg);
1131: END IF;
1132:
1131: END IF;
1132:
1133: l_log_msg := 'Before calling procedure create_invoice_event';
1134: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1135: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1136: G_MODULE_NAME || l_procedure_name,
1137: l_log_msg);
1138: END IF;
1139:
1145:
1146:
1147: l_log_msg := 'After calling procedure create_invoice_event';
1148: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1149: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1150: G_MODULE_NAME || l_procedure_name,
1151: l_log_msg);
1152: END IF;
1153:
1151: l_log_msg);
1152: END IF;
1153:
1154: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1155: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1156: G_MODULE_NAME || l_procedure_name,
1157: l_log_msg);
1158: END IF;
1159:
1169: p_calling_sequence => l_curr_calling_sequence);
1170:
1171: l_log_msg := 'After calling procedure update_prepayment_header';
1172: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1173: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1174: G_MODULE_NAME || l_procedure_name,
1175: l_log_msg);
1176: END IF;
1177: END;
1201: IF l_prepay_app_event_id <> -1 THEN
1202:
1203: l_log_msg := 'Before calling procedure get_invoice_info';
1204: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1205: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1206: G_MODULE_NAME || l_procedure_name,
1207: l_log_msg);
1208: END IF;
1209:
1215: p_calling_sequence => l_curr_calling_sequence);
1216:
1217: l_log_msg := 'After calling procedure get_insert_info executed';
1218: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1219: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1220: G_MODULE_NAME || l_procedure_name,
1221: l_log_msg);
1222: END IF;
1223:
1222: END IF;
1223:
1224: l_log_msg :='Before calling proc get_event_security_context';
1225: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1226: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1227: G_MODULE_NAME || l_procedure_name,
1228: l_log_msg);
1229: END IF;
1230:
1233: p_calling_sequence => l_curr_calling_sequence);
1234:
1235: l_log_msg := 'After calling proc get_event_security_context';
1236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1237: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1238: G_MODULE_NAME || l_procedure_name,
1239: l_log_msg);
1240: END IF;
1241:
1240: END IF;
1241:
1242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1243: l_log_msg := 'Before calling proc get_invoice_event_source_info';
1244: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1245: G_MODULE_NAME || l_procedure_name,
1246: l_log_msg);
1247: END IF;
1248:
1254: p_calling_sequence => l_curr_calling_sequence);
1255:
1256: l_log_msg := 'After calling proc get_invoice_envent_source_info';
1257: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1258: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1259: G_MODULE_NAME || l_procedure_name,
1260: l_log_msg);
1261: END IF;
1262:
1261: END IF;
1262:
1263: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1264: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1265: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1266: G_MODULE_NAME || l_procedure_name,
1267: l_log_msg);
1268: END IF;
1269:
1284: p_calling_sequence => l_curr_calling_sequence);
1285:
1286: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1287: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1288: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1289: G_MODULE_NAME || l_procedure_name,
1290: l_log_msg);
1291: END IF; End comment out */
1292:
1291: END IF; End comment out */
1292:
1293: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1294: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1295: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1296: G_MODULE_NAME || l_procedure_name,
1297: l_log_msg);
1298: END IF;
1299:
1313: p_calling_sequence => l_curr_calling_sequence);
1314:
1315: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1316: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1317: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1318: G_MODULE_NAME || l_procedure_name,
1319: l_log_msg);
1320: END IF; End of comment out */
1321:
1323: l_Accounting_date:= event_dist_rec.accounting_date;
1324:
1325: l_log_msg := 'prepay_adj_event loop begin.';
1326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1327: FND_LOG.STRING(G_LEVEL_STATEMENT,
1328: G_MODULE_NAME || l_procedure_name,
1329: l_log_msg);
1330: END IF;
1331:
1335: l_Accounting_date) LOOP
1336:
1337: l_log_msg := 'Inside the prepay_adj_events cursor loop';
1338: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1339: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1340: G_MODULE_NAME || l_procedure_name,
1341: l_log_msg);
1342: END IF;
1343:
1359: p_calling_sequence => l_curr_calling_sequence);
1360:
1361: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT';
1362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1363: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1364: G_MODULE_NAME || l_procedure_name,
1365: l_log_msg);
1366: END IF; --bug 8547225, uncommented the call to update_event
1367:
1368: END LOOP; --prepay_adj_events
1369:
1370: l_log_msg := 'prepay_adj_event loop end.';
1371: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1372: FND_LOG.STRING(G_LEVEL_STATEMENT,
1373: G_MODULE_NAME || l_procedure_name,
1374: l_log_msg);
1375: END IF;
1376: END IF;
1394: WHERE AI.invoice_id = p_invoice_id;
1395:
1396: l_log_msg := 'Before calling procedure create_invoice_event';
1397: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1398: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1399: G_MODULE_NAME || l_procedure_name,
1400: l_log_msg);
1401: END IF;
1402:
1409: );
1410:
1411: l_log_msg := 'After calling procedure create_invoice_event executed';
1412: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1413: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1414: G_MODULE_NAME || l_procedure_name,
1415: l_log_msg);
1416: END IF;
1417:
1502: IF (l_accounting_event_id IS NULL) THEN
1503:
1504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1505: l_log_msg := 'Before calling procedure create_invoice_event';
1506: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1507: G_MODULE_NAME || l_procedure_name,
1508: l_log_msg);
1509: END IF;
1510:
1517: );
1518:
1519: l_log_msg := 'After calling procedure create_invoice_event executed';
1520: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1521: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1522: G_MODULE_NAME || l_procedure_name,
1523: l_log_msg);
1524: END IF;
1525:
1537: THEN
1538:
1539: l_log_msg := 'Before calling procedure derive_cascade_events';
1540: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1541: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1542: G_MODULE_NAME || l_procedure_name,
1543: l_log_msg);
1544: END IF;
1545:
1553: );
1554:
1555: l_log_msg := 'After calling proc derive_cascade_events executed';
1556: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1557: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1558: G_MODULE_NAME || l_procedure_name,
1559: l_log_msg);
1560: END IF;
1561: END IF;
1599: );
1600:
1601: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1602: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1603: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1604: G_MODULE_NAME || l_procedure_name,
1605: l_log_msg);
1606: END IF;
1607:
1617: );
1618:
1619: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
1620: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1621: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1622: G_MODULE_NAME || l_procedure_name,
1623: l_log_msg);
1624: END IF;
1625:
1722: THEN
1723:
1724: l_log_msg := 'Before calling procedure derive_cascade_events';
1725: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1726: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1727: G_MODULE_NAME || l_procedure_name,
1728: l_log_msg);
1729: END IF;
1730:
1738: );
1739:
1740: l_log_msg := 'After calling proc derive_cascade_events executed';
1741: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1742: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1743: G_MODULE_NAME || l_procedure_name,
1744: l_log_msg);
1745: END IF;
1746: END IF;
1752: -- bug9441420
1753: l_log_msg := 'before calling the procedure Set_Prepay_Event_Noaction '||
1754: 'for invoice_id :'||P_Invoice_ID;
1755: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1756: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1757: G_MODULE_NAME || l_procedure_name,
1758: l_log_msg);
1759: END IF;
1760:
1764:
1765: l_log_msg := 'After calling the procedure Set_Prepay_Event_Noaction '||
1766: 'for invoice_id :'||P_Invoice_ID;
1767: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1768: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1769: G_MODULE_NAME || l_procedure_name,
1770: l_log_msg);
1771: END IF;
1772:
1771: END IF;
1772:
1773: l_log_msg := 'End of procedure '|| l_procedure_name;
1774: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1775: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1776: G_MODULE_NAME||l_procedure_name||'.begin',
1777: l_log_msg);
1778: END IF;
1779:
1837: l_curr_calling_sequence VARCHAR2(2000);
1838:
1839: -- Logging:
1840: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_INVOICE_EVENT';
1841: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1842:
1843: BEGIN
1844:
1845: l_curr_calling_sequence :=
1844:
1845: l_curr_calling_sequence :=
1846: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_INVOICE_EVENT';
1847:
1848: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1849:
1850: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1851: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1852: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1848: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1849:
1850: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1851: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1852: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1853: G_MODULE_NAME || l_procedure_name,
1854: l_log_msg);
1855: END IF;
1856:
1888: );
1889:
1890: l_log_msg := 'End of procedure '|| l_procedure_name;
1891: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1892: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1893: G_MODULE_NAME || l_procedure_name,
1894: l_log_msg);
1895: END IF;
1896:
1895: END IF;
1896:
1897: l_log_msg := 'Calling proc AP_XLA_EVENTS_PKG.CREATE_EVENT and return';
1898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1900: G_MODULE_NAME || l_procedure_name,
1901: l_log_msg);
1902: END IF;
1903:
1981: l_curr_calling_sequence VARCHAR2(2000);
1982:
1983: -- Logging:
1984: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_PAYMENT_EVENT';
1985: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1986: l_when_to_acct ap_system_parameters.when_to_account_pmt%TYPE; --bug 8771563
1987:
1988: -- Bug 7374984.
1989: -- Cursor to get all the unaccounted maturity and clearing transactions
2062:
2063: l_curr_calling_sequence :=
2064: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_PAYMENT_EVENT';
2065:
2066: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2067:
2068: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2069: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2070: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2066: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2067:
2068: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2069: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2070: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2071: G_MODULE_NAME || l_procedure_name,
2072: l_log_msg);
2073: END IF;
2074:
2116: );
2117:
2118: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.CREATE_EVENT';
2119: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2120: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2121: G_MODULE_NAME || l_procedure_name,
2122: l_log_msg);
2123: END IF;
2124:
2256: );
2257:
2258: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.CREATE_EVENT';
2259: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2260: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2261: G_MODULE_NAME || l_procedure_name,
2262: l_log_msg);
2263: END IF;
2264:
2277:
2278: l_log_msg := 'l_matured_events_count = '
2279: ||to_char(l_matured_events_count);
2280: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2281: FND_LOG.STRING(G_LEVEL_STATEMENT,
2282: G_MODULE_NAME || l_procedure_name,
2283: l_log_msg);
2284: END IF;
2285:
2291:
2292: l_log_msg := 'l_unmatured_events_count = '
2293: ||to_char(l_unmatured_events_count);
2294: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2295: FND_LOG.STRING(G_LEVEL_STATEMENT,
2296: G_MODULE_NAME || l_procedure_name,
2297: l_log_msg);
2298: END IF;
2299:
2315: where check_id = P_check_id;
2316:
2317: l_log_msg := 'Before ap_reconciliation_pkg.recon_payment_history';
2318: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2319: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2320: G_MODULE_NAME || l_procedure_name,
2321: l_log_msg);
2322: END IF;
2323:
2348: X_CALLING_SEQUENCE => l_curr_calling_sequence);
2349:
2350: l_log_msg := 'After ap_reconciliation_pkg.recon_payment_history';
2351: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2352: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2353: G_MODULE_NAME || l_procedure_name,
2354: l_log_msg);
2355: END IF;
2356: END IF;
2356: END IF;
2357:
2358: l_log_msg := 'Open Cursor c_unacct_pmt_events';
2359: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2360: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2361: G_MODULE_NAME || l_procedure_name,
2362: l_log_msg);
2363: END IF;
2364:
2375:
2376: l_log_msg := 'Event id that needs to be set to no action ' ||
2377: l_accounting_event_id;
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:
2393: );
2394:
2395: l_log_msg := 'End of call to AP_XLA_EVENTS_PKG.UPDATE_EVENT';
2396: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2397: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2398: G_MODULE_NAME || l_procedure_name,
2399: l_log_msg);
2400: END IF;
2401:
2423:
2424: l_log_msg := 'Event id that needs to be set to no action ' ||
2425: l_accounting_event_id;
2426: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2427: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2428: G_MODULE_NAME || l_procedure_name,
2429: l_log_msg);
2430: END IF;
2431:
2441: );
2442:
2443: l_log_msg := 'End of call to AP_XLA_EVENTS_PKG.UPDATE_EVENT';
2444: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2445: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2446: G_MODULE_NAME || l_procedure_name,
2447: l_log_msg);
2448: END IF;
2449:
2455: --changes for bug 7594938 ends
2456:
2457: l_log_msg := 'End of procedure'||l_procedure_name;
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:
2517: l_curr_calling_sequence VARCHAR2(2000);
2518:
2519: -- Logging:
2520: l_procedure_name CONSTANT VARCHAR2(30) := 'update_invoice_events_status';
2521: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2522: --7011943
2523: l_count NUMBER;
2524: l_check_id NUMBER;
2525: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
2533:
2534: l_curr_calling_sequence := p_calling_sequence ||
2535: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_INVOICE_EVENTS_STATUS';
2536:
2537: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2538:
2539: l_log_msg := 'Begin of procedure '||l_procedure_name;
2540: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2541: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2537: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2538:
2539: l_log_msg := 'Begin of procedure '||l_procedure_name;
2540: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2541: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2542: G_MODULE_NAME || l_procedure_name,
2543: l_log_msg);
2544: END IF;
2545:
2598: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2599:
2600: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2601: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2602: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2603: G_MODULE_NAME || l_procedure_name,
2604: l_log_msg);
2605: END IF;
2606:
2618: );
2619:
2620: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2622: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2623: G_MODULE_NAME || l_procedure_name,
2624: l_log_msg);
2625: END IF;
2626:
2630:
2631: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2632:
2633: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2634: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2635: G_MODULE_NAME || l_procedure_name,
2636: l_log_msg);
2637: END IF;
2638:
2650: );
2651:
2652: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2653: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2654: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2655: G_MODULE_NAME || l_procedure_name,
2656: l_log_msg);
2657: END IF;
2658:
2664: LOOP
2665:
2666: l_log_msg := 'Open cursor l_invoice_distributions_cur';
2667: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2668: FND_LOG.STRING(G_LEVEL_STATEMENT,
2669: G_MODULE_NAME || l_procedure_name,
2670: l_log_msg);
2671: END IF;
2672:
2678: FOR i IN 1 ..l_accounting_event_ids.count LOOP
2679:
2680: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2681: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2682: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2683: G_MODULE_NAME || l_procedure_name,
2684: l_log_msg);
2685: END IF;
2686:
2748: --bug 7011943
2749: l_event_source_info := l_event_source_info_temp;
2750: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2751: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2752: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2753: G_MODULE_NAME || l_procedure_name,
2754: l_log_msg);
2755: END IF;
2756:
2761: l_event_info.event_status_code <> l_invoice_event_status) THEN
2762:
2763: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
2764: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2765: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2766: G_MODULE_NAME || l_procedure_name,
2767: l_log_msg);
2768: END IF;
2769:
2779: );
2780:
2781: l_log_msg := 'After AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2782: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2783: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2784: G_MODULE_NAME || l_procedure_name,
2785: l_log_msg);
2786: END IF;
2787: END IF;
2806: ||' Error: '
2807: ||SQLERRM;
2808: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
2809:
2810: FND_LOG.STRING(G_LEVEL_EXCEPTION,
2811: G_MODULE_NAME || l_procedure_name,
2812: l_log_msg);
2813: END IF;
2814:
2843: LOOP
2844:
2845: l_log_msg := 'Cursor l_invoice_payment_cur ';
2846: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2847: FND_LOG.STRING(G_LEVEL_STATEMENT,
2848: G_MODULE_NAME || l_procedure_name,
2849: l_log_msg);
2850: END IF;
2851:
2865: l_last_check_id := l_curr_check_id;
2866:
2867: l_log_msg := 'Before calling proc get_payment_event_source_info';
2868: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2869: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2870: G_MODULE_NAME || l_procedure_name,
2871: l_log_msg);
2872: END IF;
2873:
2880: );
2881:
2882: l_log_msg := 'After calling get_payment_event_source_info';
2883: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2884: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2885: G_MODULE_NAME || l_procedure_name,
2886: l_log_msg);
2887: END IF;
2888:
2895: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
2896:
2897: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EIXSTS';
2898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2900: G_MODULE_NAME || l_procedure_name,
2901: l_log_msg);
2902: END IF;
2903:
2916:
2917: l_log_msg := 'After AP_ACCOUNTING_EVENT_PKG.'
2918: ||'get_payment_event_source_info';
2919: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2920: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2921: G_MODULE_NAME || l_procedure_name,
2922: l_log_msg);
2923: END IF;
2924:
2927: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
2928:
2929: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2931: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2932: G_MODULE_NAME || l_procedure_name,
2933: l_log_msg);
2934: END IF;
2935:
2947: );
2948:
2949: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
2950: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2951: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2952: G_MODULE_NAME || l_procedure_name,
2953: l_log_msg);
2954: END IF;
2955: END IF;
2959: IF (l_do_updates_flag) THEN
2960:
2961: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2962: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2963: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2964: G_MODULE_NAME || l_procedure_name,
2965: l_log_msg);
2966: END IF;
2967:
2975: );
2976:
2977: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
2978: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2979: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2980: G_MODULE_NAME || l_procedure_name,
2981: l_log_msg);
2982: END IF;
2983:
2987: l_event_info.event_status_code <> l_payment_event_status) THEN
2988:
2989: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
2990: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2991: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2992: G_MODULE_NAME || l_procedure_name,
2993: l_log_msg);
2994: END IF;
2995:
3005: );
3006:
3007: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_INFO';
3008: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3009: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3010: G_MODULE_NAME || l_procedure_name,
3011: l_log_msg);
3012: END IF;
3013: END IF;
3028: ||l_curr_calling_sequence
3029: ||' Error: '
3030: ||SQLERRM;
3031: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
3032: FND_LOG.STRING(G_LEVEL_EXCEPTION,
3033: G_MODULE_NAME || l_procedure_name,
3034: l_log_msg);
3035: END IF;
3036: RAISE;
3037: END;
3038:
3039: l_log_msg := 'End of procedure '||l_procedure_name;
3040: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3041: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3042: G_MODULE_NAME || l_procedure_name,
3043: l_log_msg);
3044: END IF;
3045:
3096: l_curr_calling_sequence VARCHAR2(2000);
3097:
3098: -- Logging:
3099: l_procedure_name CONSTANT VARCHAR2(30) := 'UPDATE_PAYMENT_EVENTS_STATUS';
3100: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3101: --7011943
3102: l_count NUMBER;
3103: l_check_id NUMBER;
3104: l_pmt_awt_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
3109:
3110: l_curr_calling_sequence := p_calling_sequence ||
3111: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_PAYMENT_EVENTS_STATUS';
3112:
3113: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3114:
3115: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3116: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3117: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3113: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3114:
3115: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3116: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3117: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3118: G_MODULE_NAME || l_procedure_name,
3119: l_log_msg);
3120: END IF;
3121:
3141: BEGIN
3142:
3143: l_log_msg := 'Open cursor l_invoice_distributions_cur';
3144: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3145: FND_LOG.STRING(G_LEVEL_STATEMENT,
3146: G_MODULE_NAME || l_procedure_name,
3147: l_log_msg);
3148: END IF;
3149:
3167: l_last_invoice_id := l_curr_invoice_id;
3168:
3169: l_log_msg := 'Before calling procedure get_invoice_info';
3170: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3171: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3172: G_MODULE_NAME || l_procedure_name,
3173: l_log_msg);
3174: END IF;
3175:
3183: );
3184:
3185: l_log_msg := 'After calling procedure get_invoice_info';
3186: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3187: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3188: G_MODULE_NAME || l_procedure_name,
3189: l_log_msg);
3190: END IF;
3191:
3190: END IF;
3191:
3192: l_log_msg := 'Before calling procedure get_event_security_context';
3193: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3194: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3195: G_MODULE_NAME || l_procedure_name,
3196: l_log_msg);
3197: END IF;
3198:
3203: );
3204:
3205: l_log_msg := 'After calling procedure get_event_security_context';
3206: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3207: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3208: G_MODULE_NAME || l_procedure_name,
3209: l_log_msg);
3210: END IF;
3211:
3210: END IF;
3211:
3212: l_log_msg := 'Before calling get_invoice_event_source_info';
3213: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3214: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3215: G_MODULE_NAME || l_procedure_name,
3216: l_log_msg);
3217: END IF;
3218:
3225: );
3226: l_event_source_info_temp := l_event_source_info; --7011943
3227: l_log_msg := 'After calling procedure get_invoice_info';
3228: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3229: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3230: G_MODULE_NAME || l_procedure_name,
3231: l_log_msg);
3232: END IF;
3233:
3239: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3240:
3241: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3242: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3243: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3244: G_MODULE_NAME || l_procedure_name,
3245: l_log_msg);
3246: END IF;
3247:
3259: );
3260:
3261: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3262: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3263: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3264: G_MODULE_NAME || l_procedure_name,
3265: l_log_msg);
3266: END IF;
3267: ELSE
3269: l_invoice_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3270:
3271: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3274: G_MODULE_NAME || l_procedure_name,
3275: l_log_msg);
3276: END IF;
3277:
3288: p_calling_sequence => l_curr_calling_sequence);
3289:
3290: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3291: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3292: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3293: G_MODULE_NAME || l_procedure_name,
3294: l_log_msg);
3295: END IF;
3296:
3301: IF (l_do_updates_flag) THEN
3302:
3303: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3305: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3306: G_MODULE_NAME || l_procedure_name,
3307: l_log_msg);
3308: END IF;
3309: --bug 7011943
3351: l_event_source_info := l_event_source_info_temp;
3352:
3353: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3354: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3355: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3356: G_MODULE_NAME || l_procedure_name,
3357: l_log_msg);
3358: END IF;
3359:
3363: l_event_info.event_status_code <> l_invoice_event_status) THEN
3364:
3365: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3366: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3367: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3368: G_MODULE_NAME || l_procedure_name,
3369: l_log_msg);
3370: END IF;
3371:
3380: p_calling_sequence => l_curr_calling_sequence);
3381:
3382: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3383: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3384: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3385: G_MODULE_NAME || l_procedure_name,
3386: l_log_msg);
3387: END IF;
3388: END IF;
3406: ||l_curr_calling_sequence
3407: ||' Error: '
3408: ||SQLERRM;
3409: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
3410: FND_LOG.STRING(G_LEVEL_EXCEPTION,
3411: G_MODULE_NAME || l_procedure_name,
3412: l_log_msg);
3413: END IF;
3414: RAISE;
3429: BEGIN
3430:
3431: l_log_msg := 'Before calling procedure get_payment_info';
3432: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3433: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3434: G_MODULE_NAME || l_procedure_name,
3435: l_log_msg);
3436: END IF;
3437:
3444: );
3445:
3446: l_log_msg := 'After calling procedure get_payment_info';
3447: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3448: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3449: G_MODULE_NAME || l_procedure_name,
3450: l_log_msg);
3451: END IF;
3452:
3451: END IF;
3452:
3453: l_log_msg := 'Before calling procedure get_event_security_context';
3454: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3455: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3456: G_MODULE_NAME || l_procedure_name,
3457: l_log_msg);
3458: END IF;
3459:
3464: );
3465:
3466: l_log_msg := 'After calling procedure get_event_security_context';
3467: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3468: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3469: G_MODULE_NAME || l_procedure_name,
3470: l_log_msg);
3471: END IF;
3472:
3471: END IF;
3472:
3473: l_log_msg := 'Before calling procedure get_payment_event_source_info';
3474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3475: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3476: G_MODULE_NAME || l_procedure_name,
3477: l_log_msg);
3478: END IF;
3479:
3486: );
3487:
3488: l_log_msg := 'After calling procedure get_payment_event_source_info';
3489: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3490: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3491: G_MODULE_NAME || l_procedure_name,
3492: l_log_msg);
3493: END IF;
3494:
3500: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
3501:
3502: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3503: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3504: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3505: G_MODULE_NAME || l_procedure_name,
3506: l_log_msg);
3507: END IF;
3508:
3520: );
3521:
3522: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3523: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3524: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3525: G_MODULE_NAME || l_procedure_name,
3526: l_log_msg);
3527: END IF;
3528:
3531: l_payment_event_status := XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE;
3532:
3533: l_log_msg := 'Before calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3534: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3535: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3536: G_MODULE_NAME || l_procedure_name,
3537: l_log_msg);
3538: END IF;
3539:
3551: );
3552:
3553: l_log_msg := 'After calling procedure AP_XLA_EVENTS_PKG.EVENT_EXISTS';
3554: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3555: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3556: G_MODULE_NAME || l_procedure_name,
3557: l_log_msg);
3558: END IF;
3559:
3565: LOOP
3566:
3567: l_log_msg := 'Fetch data from cursor l_invoice_payments_cur';
3568: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3569: FND_LOG.STRING(G_LEVEL_STATEMENT,
3570: G_MODULE_NAME || l_procedure_name,
3571: l_log_msg);
3572: END IF;
3573:
3577: LIMIT 1000;
3578:
3579: l_log_msg := 'Begin loop for l_accounting_event_ids';
3580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3581: FND_LOG.STRING(G_LEVEL_STATEMENT,
3582: G_MODULE_NAME || l_procedure_name,
3583: l_log_msg);
3584: END IF;
3585:
3586: FOR i IN 1 ..l_accounting_event_ids.count LOOP
3587:
3588: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3589: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3590: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3591: G_MODULE_NAME || l_procedure_name,
3592: l_log_msg);
3593: END IF;
3594:
3602: );
3603:
3604: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
3605: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3606: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3607: G_MODULE_NAME || l_procedure_name,
3608: l_log_msg);
3609: END IF;
3610:
3614: l_event_info.event_status_code <> l_payment_event_status) THEN
3615:
3616: l_log_msg := 'Before AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3618: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3619: G_MODULE_NAME || l_procedure_name,
3620: l_log_msg);
3621: END IF;
3622:
3637: );
3638:
3639: l_log_msg := 'After AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
3640: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3641: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3642: G_MODULE_NAME || l_procedure_name,
3643: l_log_msg);
3644: END IF;
3645:
3652: CLOSE l_invoice_payments_cur;
3653:
3654: l_log_msg := 'End loop for l_accounting_event_ids';
3655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3656: FND_LOG.STRING(G_LEVEL_STATEMENT,
3657: G_MODULE_NAME || l_procedure_name,
3658: l_log_msg);
3659: END IF;
3660: END IF; -- l_do_updates_flag
3668: ||l_curr_calling_sequence
3669: ||' Error: '
3670: ||SQLERRM;
3671: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
3672: FND_LOG.STRING(G_LEVEL_EXCEPTION,
3673: G_MODULE_NAME || l_procedure_name,
3674: l_log_msg);
3675: END IF;
3676: RAISE;
3677: END;
3678:
3679: l_log_msg := 'End of procedure '||l_procedure_name;
3680: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3681: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3682: G_MODULE_NAME || l_procedure_name,
3683: l_log_msg);
3684: END IF;
3685:
3730:
3731: -- Logging:
3732: --4700081
3733: l_procedure_name CONSTANT VARCHAR2(40) := 'update_payment_batch_event_status';
3734: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3735:
3736: BEGIN
3737:
3738: l_curr_calling_sequence := p_calling_sequence ||
3737:
3738: l_curr_calling_sequence := p_calling_sequence ||
3739: ' -> AP_ACCOUNTING_EVENTS_PKG.update_payment_batch_event_status';
3740:
3741: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3742:
3743: l_log_msg := 'Begin of procedure'||l_procedure_name;
3744: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3745: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3741: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3742:
3743: l_log_msg := 'Begin of procedure'||l_procedure_name;
3744: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3745: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3746: G_MODULE_NAME || l_procedure_name,
3747: l_log_msg);
3748: END IF;
3749:
3758: IF ( l_record_count <> 0 ) THEN
3759:
3760: l_log_msg := 'update the gt table set event status = no action';
3761: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3762: FND_LOG.STRING(G_LEVEL_STATEMENT,
3763: G_MODULE_NAME || l_procedure_name,
3764: l_log_msg);
3765: END IF;
3766:
3775: and AC.org_id = p_org_id );
3776:
3777: l_log_msg := 'update the gt table in success and call the api';
3778: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3779: FND_LOG.STRING(G_LEVEL_STATEMENT,
3780: G_MODULE_NAME || l_procedure_name,
3781: l_log_msg);
3782: END IF;
3783:
3784: XLA_EVENTS_PUB_PKG.update_bulk_event_statuses(p_application_id => '200');
3785:
3786: l_log_msg := 'after calling xla update status api';
3787: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3788: FND_LOG.STRING(G_LEVEL_STATEMENT,
3789: G_MODULE_NAME || l_procedure_name,
3790: l_log_msg);
3791: END IF;
3792:
3793: ELSE
3794:
3795: l_log_msg := 'XLA_EVENTS_INT_GT TABLE Has no records';
3796: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3797: FND_LOG.STRING(G_LEVEL_STATEMENT,
3798: G_MODULE_NAME || l_procedure_name,
3799: l_log_msg);
3800: END IF;
3801: APP_EXCEPTION.RAISE_EXCEPTION();
3802: END IF;
3803:
3804: l_log_msg := 'End of the procedure';
3805: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3806: FND_LOG.STRING(G_LEVEL_STATEMENT,
3807: G_MODULE_NAME || l_procedure_name,
3808: l_log_msg);
3809: END IF;
3810:
3864: l_count NUMBER := 0;
3865:
3866: -- Logging:
3867: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_PAYMENT_BATCH_EVENTS';
3868: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3869:
3870: --bug 8358552 starts
3871: l_dummy number;
3872: --bug 8358552 ends
3875:
3876: l_curr_calling_sequence := p_calling_sequence ||
3877: ' -> AP_ACCOUNTING_EVENTS_PKG.CREATE_PAYMENT_BATCH_EVENTS';
3878:
3879: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3880:
3881: l_log_msg := 'Begin of procedure'||l_procedure_name;
3882: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3879: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3880:
3881: l_log_msg := 'Begin of procedure'||l_procedure_name;
3882: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3884: G_MODULE_NAME || l_procedure_name,
3885: l_log_msg);
3886:
3887: END IF;
3890: 'p_org_id = '|| p_org_id ||
3891: 'p_completed_pmts_group_id = '|| p_completed_pmts_group_id ||
3892: 'p_checkrun_name = '|| p_checkrun_name;
3893: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3894: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3895: G_MODULE_NAME || l_procedure_name,
3896: l_log_msg);
3897:
3898: END IF;
3900: BEGIN
3901:
3902: l_log_msg := 'Begin to clean up the xla_event_gt_table';
3903: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3904: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3905: G_MODULE_NAME || l_procedure_name,
3906: l_log_msg);
3907: END IF;
3908:
3910: WHERE application_id = 200;
3911:
3912: l_log_msg := 'After clean up the xla_event_gt_table';
3913: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3914: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3915: G_MODULE_NAME || l_procedure_name,
3916: l_log_msg);
3917: END IF;
3918:
3921: BEGIN
3922:
3923: l_log_msg := 'create event for group_id = ' || p_completed_pmts_group_id ;
3924: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3925: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3926: G_MODULE_NAME || l_procedure_name,
3927: l_log_msg);
3928: END IF;
3929:
3973: INTO l_count
3974: FROM XLA_EVENTS_INT_GT;
3975:
3976: l_log_msg := 'event gt table has record number = '|| l_count;
3977: FND_LOG.STRING(G_LEVEL_STATEMENT,
3978: G_MODULE_NAME || l_procedure_name,
3979: l_log_msg);
3980: END IF;
3981:
3982: EXCEPTION
3983: WHEN OTHERS THEN
3984: l_log_msg := 'unknown exception '||SQLERRM||' when try to insert into xla gt table';
3985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3986: FND_LOG.STRING(G_LEVEL_STATEMENT,
3987: G_MODULE_NAME || l_procedure_name,
3988: l_log_msg);
3989: END IF;
3990: fnd_file.put_line(FND_FILE.LOG,l_log_msg||'|'||SQLERRM||' - '||systimestamp); --Bug 14279929
3992: END;
3993:
3994: l_log_msg := 'after insert into xla_event_gt table';
3995: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3996: FND_LOG.STRING(G_LEVEL_STATEMENT,
3997: G_MODULE_NAME || l_procedure_name,
3998: l_log_msg);
3999: END IF;
4000:
4008: END;
4009:
4010: l_log_msg := 'After calling the sla create_bulk_events';
4011: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4012: FND_LOG.STRING(G_LEVEL_STATEMENT,
4013: G_MODULE_NAME || l_procedure_name,
4014: l_log_msg);
4015: END IF;
4016:
4015: END IF;
4016:
4017: l_log_msg := 'Right before insert into ap_payment_history table';
4018: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4019: FND_LOG.STRING(G_LEVEL_STATEMENT,
4020: G_MODULE_NAME || l_procedure_name,
4021: l_log_msg);
4022: END IF;
4023:
4113: AND ac.completed_pmts_group_id = p_completed_pmts_group_id
4114: AND ac.org_id = p_org_id;
4115:
4116: l_log_msg := 'payment history has record number = '|| l_count;
4117: FND_LOG.STRING(G_LEVEL_STATEMENT,
4118: G_MODULE_NAME || l_procedure_name,
4119: l_log_msg);
4120: END IF;
4121:
4130: AND ac.org_id = p_org_id
4131: AND rownum = 1;
4132:
4133: l_log_msg := ' one account event_id created = '|| l_count;
4134: FND_LOG.STRING(G_LEVEL_STATEMENT,
4135: G_MODULE_NAME || l_procedure_name,
4136: l_log_msg);
4137: END IF;
4138:
4139: EXCEPTION
4140: WHEN OTHERS THEN
4141: l_log_msg := 'unknown exception '||SQLERRM||' when try to insert ap_payment_history table';
4142: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4143: FND_LOG.STRING(G_LEVEL_STATEMENT,
4144: G_MODULE_NAME || l_procedure_name,
4145: l_log_msg);
4146: END IF;
4147: fnd_file.put_line(FND_FILE.LOG,l_log_msg||'|'||SQLERRM||' - '||systimestamp); --Bug 14279929
4150: END;
4151:
4152: l_log_msg := 'After insert ap_payment_history_table and end the procedure';
4153: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4154: FND_LOG.STRING(G_LEVEL_STATEMENT,
4155: G_MODULE_NAME || l_procedure_name,
4156: l_log_msg);
4157: END IF;
4158:
4213: l_curr_calling_sequence VARCHAR2(2000);
4214:
4215: -- Logging:
4216: l_procedure_name CONSTANT VARCHAR2(30) := 'UPDATE_AWT_INT_DISTS';
4217: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4218:
4219: BEGIN
4220:
4221: l_curr_calling_sequence :=
4220:
4221: l_curr_calling_sequence :=
4222: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_AWT_INT_DISTS';
4223:
4224: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4225:
4226: l_log_msg := 'Begin of procedure '||l_procedure_name;
4227: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4228: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4224: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4225:
4226: l_log_msg := 'Begin of procedure '||l_procedure_name;
4227: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4228: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4229: G_MODULE_NAME || l_procedure_name,
4230: l_log_msg);
4231: END IF;
4232:
4239:
4240: l_log_msg := 'Update ap_invoice_distribution, set accounting_event_id ='
4241: ||to_char(p_event_id);
4242: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4243: FND_LOG.STRING(G_LEVEL_STATEMENT,
4244: G_MODULE_NAME || l_procedure_name,
4245: l_log_msg);
4246: END IF;
4247:
4259:
4260: l_log_msg := 'Update ap_invoice_distribution, set accounting_event_id =
4261: '||to_char(p_event_id);
4262: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4263: FND_LOG.STRING(G_LEVEL_STATEMENT,
4264: G_MODULE_NAME || l_procedure_name,
4265: l_log_msg);
4266: END IF;
4267:
4280: END IF; --event is Payment, Payment Adjustment or Payment Cancellation
4281:
4282: l_log_msg := 'End of procedure '||l_procedure_name;
4283: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4284: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4285: G_MODULE_NAME || l_procedure_name,
4286: l_log_msg);
4287: END IF;
4288:
4359: l_curr_calling_sequence VARCHAR2(2000);
4360:
4361: -- Logging:
4362: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
4363: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4364:
4365: BEGIN
4366:
4367: l_curr_calling_sequence := p_calling_sequence ||
4366:
4367: l_curr_calling_sequence := p_calling_sequence ||
4368: ' -> AP_ACCOUNTING_EVENTS_PKG.BATCH_UPDATE_PAYMENT_INFO';
4369:
4370: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4371:
4372: l_log_msg := 'Begin of procedure '||l_procedure_name;
4373: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4374: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4370: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4371:
4372: l_log_msg := 'Begin of procedure '||l_procedure_name;
4373: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4374: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4375: G_MODULE_NAME || l_procedure_name,
4376: l_log_msg);
4377: END IF;
4378:
4380: LOOP
4381:
4382: l_log_msg := 'Get data from cursor get_payment_info';
4383: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
4384: FND_LOG.STRING(G_LEVEL_STATEMENT,
4385: G_MODULE_NAME || l_procedure_name,
4386: l_log_msg);
4387: END IF;
4388:
4458: CLOSE get_payment_info;
4459:
4460: l_log_msg := 'End of procedure '||l_procedure_name;
4461: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4462: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4463: G_MODULE_NAME || l_procedure_name,
4464: l_log_msg);
4465: END IF;
4466:
4516: l_curr_calling_sequence VARCHAR2(2000);
4517:
4518: -- Logging:
4519: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
4520: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4521:
4522: BEGIN
4523:
4524: l_curr_calling_sequence :=
4523:
4524: l_curr_calling_sequence :=
4525: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.IS_EVENT_COMPLETE';
4526:
4527: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4528:
4529: l_log_msg := 'Begin of procedure '||l_procedure_name;
4530: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4531: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4527: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4528:
4529: l_log_msg := 'Begin of procedure '||l_procedure_name;
4530: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4531: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4532: G_MODULE_NAME || l_procedure_name,
4533: l_log_msg);
4534: END IF;
4535:
4664: END IF; -- l_count = 0
4665:
4666: l_log_msg := 'End of procedure '||l_procedure_name;
4667: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4668: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4669: G_MODULE_NAME || l_procedure_name,
4670: l_log_msg);
4671: END IF;
4672:
4747: l_curr_calling_sequence VARCHAR2(2000);
4748:
4749: -- Logging:
4750: l_procedure_name CONSTANT VARCHAR2(30) := 'BATCH_UPDATE_PAYMENT_INFO';
4751: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4752:
4753:
4754: BEGIN
4755:
4755:
4756: l_curr_calling_sequence := p_calling_sequence ||
4757: ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_PAYMENT_ADJ_EVENT';
4758:
4759: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4760:
4761: l_log_msg := 'Begin of procedure '||l_procedure_name;
4762: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4763: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4759: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4760:
4761: l_log_msg := 'Begin of procedure '||l_procedure_name;
4762: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4763: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4764: G_MODULE_NAME || l_procedure_name,
4765: l_log_msg);
4766: END IF;
4767:
4766: END IF;
4767:
4768: l_log_msg := 'Before calling procedure get_payment_info';
4769: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4770: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4771: G_MODULE_NAME || l_procedure_name,
4772: l_log_msg);
4773: END IF;
4774:
4781: );
4782:
4783: l_log_msg := 'After calling procedure get_payment_info';
4784: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4785: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4786: G_MODULE_NAME || l_procedure_name,
4787: l_log_msg);
4788: END IF;
4789:
4788: END IF;
4789:
4790: l_log_msg := 'Before calling procedure get_event_security_context';
4791: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4792: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4793: G_MODULE_NAME || l_procedure_name,
4794: l_log_msg);
4795: END IF;
4796:
4802:
4803:
4804: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4805: l_log_msg := 'After calling procedure get_event_security_context';
4806: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4807: G_MODULE_NAME || l_procedure_name,
4808: l_log_msg);
4809: END IF;
4810:
4809: END IF;
4810:
4811: l_log_msg := 'Before calling procedure get_payment_event_source_info';
4812: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4813: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4814: G_MODULE_NAME || l_procedure_name,
4815: l_log_msg);
4816: END IF;
4817:
4824: );
4825:
4826: l_log_msg := 'After calling procedure get_payment_event_source_info';
4827: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4828: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4829: G_MODULE_NAME || l_procedure_name,
4830: l_log_msg);
4831: END IF;
4832:
4838: EXIT WHEN l_event_cur%NOTFOUND;
4839:
4840: l_log_msg := 'Before calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4842: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4843: G_MODULE_NAME || l_procedure_name,
4844: l_log_msg);
4845: END IF;
4846:
4854: );
4855:
4856: l_log_msg := 'After calling AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
4857: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4858: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4859: G_MODULE_NAME || l_procedure_name,
4860: l_log_msg);
4861: END IF;
4862:
4906: WHERE AC.check_id = P_check_id;
4907:
4908: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4909: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4910: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4911: G_MODULE_NAME || l_procedure_name,
4912: l_log_msg);
4913: END IF;
4914:
4951: );
4952:
4953: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
4954: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4955: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4956: G_MODULE_NAME || l_procedure_name,
4957: l_log_msg);
4958: END IF;
4959: END IF;
4961: p_accounting_event_id := l_accounting_event_id;
4962:
4963: l_log_msg := 'End of procedure '||l_procedure_name;
4964: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4965: FND_LOG.STRING(G_LEVEL_PROCEDURE,
4966: G_MODULE_NAME || l_procedure_name,
4967: l_log_msg);
4968: END IF;
4969:
5247: l_org_id NUMBER;
5248:
5249: -- Logging:
5250: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_CASCADE_EVENTS';
5251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5252:
5253: l_event_type xla_events.event_type_code%TYPE;
5254: l_pay_type ap_checks_all.payment_type_flag%TYPE;
5255: l_automatic_offsets_flag ap_system_parameters_all.automatic_offsets_flag%TYPE; ---7209263
5275:
5276: l_curr_calling_sequence :=
5277: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_CASCADE_EVENTS';
5278:
5279: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5280:
5281: l_log_msg := 'Begin of procedure '||l_procedure_name;
5282: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5283: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5279: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5280:
5281: l_log_msg := 'Begin of procedure '||l_procedure_name;
5282: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5283: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5284: G_MODULE_NAME || l_procedure_name,
5285: l_log_msg);
5286: END IF;
5287:
5287:
5288: l_log_msg := 'Cascade the prepayment application events';
5289: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
5290: l_log_msg := 'Cascade the prepayment application events';
5291: FND_LOG.STRING(G_LEVEL_STATEMENT,
5292: G_MODULE_NAME || l_procedure_name,
5293: l_log_msg);
5294: END IF;
5295:
5335: IF l_count > 0 THEN
5336:
5337: l_log_msg := 'Before calling procedure create_invoice_event';
5338: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5339: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5340: G_MODULE_NAME || l_procedure_name,
5341: l_log_msg);
5342: END IF;
5343:
5342: END IF;
5343:
5344: l_log_msg := 'Before calling procedure create_invoice_event';
5345: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5346: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5347: G_MODULE_NAME || l_procedure_name,
5348: l_log_msg);
5349: END IF;
5350:
5355: p_calling_sequence => l_curr_calling_sequence);
5356:
5357: l_log_msg := 'After calling procedure create_invoice_event';
5358: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5359: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5360: G_MODULE_NAME || l_procedure_name,
5361: l_log_msg);
5362: END IF;
5363:
5362: END IF;
5363:
5364: l_log_msg := 'Before calling procedure Insert_Prepayment_Header';
5365: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5366: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5367: G_MODULE_NAME || l_procedure_name,
5368: l_log_msg);
5369: END IF;
5370:
5377: p_calling_sequence => l_curr_calling_sequence);
5378:
5379: l_log_msg := 'After calling procedure Insert_prepayment_Header';
5380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5381: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5382: G_MODULE_NAME || l_procedure_name,
5383: l_log_msg);
5384: END IF;
5385:
5392:
5393:
5394: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
5395: l_log_msg := 'cascade the payment events';
5396: FND_LOG.STRING(G_LEVEL_STATEMENT,
5397: G_MODULE_NAME || l_procedure_name,
5398: l_log_msg);
5399: END IF;
5400:
5411: FOR i IN 1 .. l_pay_check_ids.count LOOP
5412:
5413: l_log_msg := 'Before calling procedure create_payment_event';
5414: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5415: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5416: G_MODULE_NAME || l_procedure_name,
5417: l_log_msg);
5418: END IF;
5419:
5452: );
5453:
5454: l_log_msg := 'After calling procedure create_payment_event';
5455: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5456: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5457: G_MODULE_NAME || l_procedure_name,
5458: l_log_msg);
5459: END IF;
5460:
5459: END IF;
5460:
5461: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5462: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5463: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5464: G_MODULE_NAME || l_procedure_name,
5465: l_log_msg);
5466: END IF;
5467:
5505: );
5506:
5507: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5508: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5509: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5510: G_MODULE_NAME || l_procedure_name,
5511: l_log_msg);
5512: END IF;
5513:
5518: CLOSE l_payments_cur;
5519:
5520: l_log_msg := 'Cascade the payment clearing events';
5521: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
5522: FND_LOG.STRING(G_LEVEL_STATEMENT,
5523: G_MODULE_NAME || l_procedure_name,
5524: l_log_msg);
5525: END IF;
5526:
5536: FOR i IN 1 .. l_pay_clear_check_ids.count LOOP
5537:
5538: l_log_msg := 'Before calling procedure create_payment_event';
5539: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5540: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5541: G_MODULE_NAME || l_procedure_name,
5542: l_log_msg);
5543: END IF;
5544: /* commented here for bug 7607184
5624: p_calling_sequence => l_curr_calling_sequence);
5625:
5626: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5627: l_log_msg := 'After calling procedure create_payment_event';
5628: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5629: G_MODULE_NAME || l_procedure_name,
5630: l_log_msg);
5631: END IF;
5632:
5649:
5650:
5651: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5652: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5653: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5654: G_MODULE_NAME || l_procedure_name,
5655: l_log_msg);
5656: END IF;
5657:
5696: );
5697:
5698: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY ';
5699: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5700: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5701: G_MODULE_NAME || l_procedure_name,
5702: l_log_msg);
5703: END IF;
5704:
5710:
5711:
5712: l_log_msg := 'Cascade the payment maturity events';
5713: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
5714: FND_LOG.STRING(G_LEVEL_STATEMENT,
5715: G_MODULE_NAME || l_procedure_name,
5716: l_log_msg);
5717: END IF;
5718:
5745: CLOSE c_get_payment_info;
5746:
5747: l_log_msg := 'Before calling procedure create_payment_event';
5748: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5749: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5750: G_MODULE_NAME || l_procedure_name,
5751: l_log_msg);
5752: END IF;
5753:
5765: p_calling_sequence => l_curr_calling_sequence);
5766:
5767: l_log_msg := 'After calling procedure create_payment_event';
5768: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5769: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5770: G_MODULE_NAME || l_procedure_name,
5771: l_log_msg);
5772: END IF;
5773:
5789: */
5790:
5791: l_log_msg := 'Before AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5792: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5793: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5794: G_MODULE_NAME || l_procedure_name,
5795: l_log_msg);
5796: END IF;
5797:
5835: );
5836:
5837: l_log_msg := 'After AP_RECONCILIATION_PKG.INSERT_PAYMENT_HISTORY';
5838: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5839: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5840: G_MODULE_NAME || l_procedure_name,
5841: l_log_msg);
5842: END IF;
5843:
5848: CLOSE l_payment_maturities_cur;
5849:
5850: l_log_msg := 'End of procedure '||l_procedure_name;
5851: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5852: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5853: G_MODULE_NAME || l_procedure_name,
5854: l_log_msg);
5855: END IF;
5856:
5960: l_curr_calling_sequence VARCHAR2(2000);
5961:
5962: -- Logging:
5963: l_procedure_name CONSTANT VARCHAR2(30) := 'DERIVE_INVOICE_CANCEL_EVENT';
5964: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5965:
5966: BEGIN
5967:
5968: l_curr_calling_sequence := p_calling_sequence ||
5967:
5968: l_curr_calling_sequence := p_calling_sequence ||
5969: ' -> AP_ACCOUNTING_EVENTS_PKG.DERIVE_INVOICE_CANCEL_EVENT';
5970:
5971: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5972:
5973: l_log_msg := 'Begin of procedure '||l_procedure_name;
5974: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5975: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5971: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5972:
5973: l_log_msg := 'Begin of procedure '||l_procedure_name;
5974: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5975: FND_LOG.STRING(G_LEVEL_PROCEDURE,
5976: G_MODULE_NAME || l_procedure_name,
5977: l_log_msg);
5978: END IF;
5979:
5997: WHERE AI.invoice_id = p_invoice_id;
5998:
5999: l_log_msg := 'Before calling procedure create_invoice_event';
6000: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6001: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6002: G_MODULE_NAME || l_procedure_name,
6003: l_log_msg);
6004: END IF;
6005:
6013:
6014: FOR i IN 1 ..l_accounting_event_dates.count LOOP
6015: l_log_msg := 'Before calling procedure create_invoice_event';
6016: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6017: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6018: G_MODULE_NAME || l_procedure_name,
6019: l_log_msg);
6020: END IF;
6021:
6028: );
6029:
6030: l_log_msg := 'After calling procedure create_invoice_event';
6031: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6032: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6033: G_MODULE_NAME || l_procedure_name,
6034: l_log_msg);
6035: END IF;
6036:
6072: -- if we need to update events to No Action.
6073:
6074: l_log_msg :='End of procedure '||l_procedure_name;
6075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6076: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6077: G_MODULE_NAME || l_procedure_name,
6078: l_log_msg);
6079: END IF;
6080:
6153: l_curr_calling_sequence VARCHAR2(2000);
6154:
6155: -- Logging:
6156: l_procedure_name CONSTANT VARCHAR2(30) := 'NO_ACTION_PMT_EVENT_UPDATE';
6157: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6158:
6159: BEGIN
6160:
6161: l_curr_calling_sequence := p_calling_sequence ||
6160:
6161: l_curr_calling_sequence := p_calling_sequence ||
6162: ' -> AP_ACCOUNTING_EVENTS_PKG.NO_ACTION_PMT_EVENT_UPDATE';
6163:
6164: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6165:
6166: l_log_msg :='Begin of procedure '||l_procedure_name;
6167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6168: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6164: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6165:
6166: l_log_msg :='Begin of procedure '||l_procedure_name;
6167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6168: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6169: G_MODULE_NAME || l_procedure_name,
6170: l_log_msg);
6171: END IF;
6172:
6171: END IF;
6172:
6173: l_log_msg :='Before calling procedure get_payment_info';
6174: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6175: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6176: G_MODULE_NAME || l_procedure_name,
6177: l_log_msg);
6178: END IF;
6179:
6186: );
6187:
6188: l_log_msg :='Procedure get_payment_info executed';
6189: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6190: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6191: G_MODULE_NAME || l_procedure_name,
6192: l_log_msg);
6193: END IF;
6194:
6193: END IF;
6194:
6195: l_log_msg :='Before calling procedure get_event_security_context';
6196: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6197: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6198: G_MODULE_NAME || l_procedure_name,
6199: l_log_msg);
6200: END IF;
6201:
6206: );
6207:
6208: l_log_msg :='After calling procedure get_event_security_context';
6209: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6210: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6211: G_MODULE_NAME || l_procedure_name,
6212: l_log_msg);
6213: END IF;
6214:
6213: END IF;
6214:
6215: l_log_msg :='Before calling procedure get_payment_event_source_info';
6216: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6217: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6218: G_MODULE_NAME || l_procedure_name,
6219: l_log_msg);
6220: END IF;
6221:
6228: );
6229:
6230: l_log_msg :='After calling procedure get_payment_event_source_info';
6231: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6232: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6233: G_MODULE_NAME || l_procedure_name,
6234: l_log_msg);
6235: END IF;
6236:
6271: -- 'REFUND CANCELLED' events will be updated.
6272:
6273: l_log_msg :='Before calling P_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6274: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6275: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6276: G_MODULE_NAME || l_procedure_name,
6277: l_log_msg);
6278: END IF;
6279:
6289: );
6290:
6291: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6293: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6294: G_MODULE_NAME || l_procedure_name,
6295: l_log_msg);
6296: END IF;
6297: END IF;
6318: -- 'PAYMENT UNCLEARED' events will be updated.
6319:
6320: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6321: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6322: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6323: G_MODULE_NAME || l_procedure_name,
6324: l_log_msg);
6325: END IF;
6326:
6336: );
6337:
6338: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6339: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6340: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6341: G_MODULE_NAME || l_procedure_name,
6342: l_log_msg);
6343: END IF;
6344: END IF;
6359: IF (l_accounting_date = p_accounting_date) THEN
6360:
6361: l_log_msg :='Before calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6363: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6364: G_MODULE_NAME || l_procedure_name,
6365: l_log_msg);
6366: END IF;
6367:
6377: );
6378:
6379: l_log_msg :='After calling AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
6380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6381: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6382: G_MODULE_NAME || l_procedure_name,
6383: l_log_msg);
6384: END IF;
6385: END IF;
6387: END IF;
6388:
6389: l_log_msg :='End of procedure '||l_procedure_name;
6390: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6391: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6392: G_MODULE_NAME || l_procedure_name,
6393: l_log_msg);
6394: END IF;
6395:
6603: l_curr_calling_sequence VARCHAR2(2000);
6604:
6605: -- Logging:
6606: l_procedure_name CONSTANT VARCHAR2(30) := 'MULTI_ORG_EVENTS_SWEEP';
6607: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6608:
6609: BEGIN
6610:
6611: l_curr_calling_sequence :=
6610:
6611: l_curr_calling_sequence :=
6612: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.MULTI_ORG_EVENTS_SWEEP';
6613:
6614: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6615:
6616: l_log_msg :='Begin of procedure '||l_procedure_name;
6617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6618: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6614: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6615:
6616: l_log_msg :='Begin of procedure '||l_procedure_name;
6617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6618: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6619: G_MODULE_NAME || l_procedure_name,
6620: l_log_msg);
6621: END IF;
6622:
6650:
6651: FOR i IN 1 .. l_event_ids.count LOOP
6652: l_log_msg :='Before calling procedure get_event_security_context';
6653: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6654: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6655: G_MODULE_NAME || l_procedure_name,
6656: l_log_msg);
6657: END IF;
6658:
6663: );
6664:
6665: l_log_msg :='After calling procedure get_event_security_context';
6666: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6667: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6668: G_MODULE_NAME || l_procedure_name,
6669: l_log_msg);
6670: END IF;
6671:
6670: END IF;
6671:
6672: l_log_msg :='Before calling procedure get_invoice_event_source_info';
6673: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6674: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6675: G_MODULE_NAME || l_procedure_name,
6676: l_log_msg);
6677: END IF;
6678:
6685: );
6686:
6687: l_log_msg :='After calling procedure get_invoice_event_source_info';
6688: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6689: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6690: G_MODULE_NAME || l_procedure_name,
6691: l_log_msg);
6692: END IF;
6693:
6692: END IF;
6693:
6694: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6695: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6696: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6697: G_MODULE_NAME || l_procedure_name,
6698: l_log_msg);
6699: END IF;
6700:
6733: AND aeh.gl_transfer_status_code <> 'Y');
6734:
6735: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6736: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6737: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6738: G_MODULE_NAME || l_procedure_name,
6739: l_log_msg);
6740: END IF;
6741:
6799: );
6800:
6801: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6802: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6803: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6804: G_MODULE_NAME || l_procedure_name,
6805: l_log_msg);
6806: END IF;
6807:
6841:
6842:
6843: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
6844: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6845: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6846: G_MODULE_NAME || l_procedure_name,
6847: l_log_msg);
6848: END IF;
6849: END LOOP;
6863: end if;
6864:
6865: l_log_msg :='End of procedure '||l_procedure_name;
6866: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6867: FND_LOG.STRING(G_LEVEL_PROCEDURE,
6868: G_MODULE_NAME || l_procedure_name,
6869: l_log_msg);
6870: END IF;
6871:
7013: l_curr_calling_sequence VARCHAR2(2000);
7014:
7015: -- Logging:
7016: l_procedure_name CONSTANT VARCHAR2(30) := 'SINGLE_ORG_EVENTS_SWEEP';
7017: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7018:
7019: BEGIN
7020:
7021: l_curr_calling_sequence := p_calling_sequence
7020:
7021: l_curr_calling_sequence := p_calling_sequence
7022: || ' -> AP_ACCOUNTING_EVENTS_PKG.SINGLE_ORG_EVENTS_SWEEP';
7023:
7024: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7025:
7026: l_log_msg :='Begin of procedure '||l_procedure_name;
7027: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7028: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7024: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7025:
7026: l_log_msg :='Begin of procedure '||l_procedure_name;
7027: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7028: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7029: G_MODULE_NAME || l_procedure_name,
7030: l_log_msg);
7031: END IF;
7032:
7059: );
7060:
7061: l_log_msg :='Before calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
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:
7100: AND aeh.gl_transfer_status_code <> 'Y');
7101:
7102: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7103: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7104: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7105: G_MODULE_NAME || l_procedure_name,
7106: l_log_msg);
7107: END IF;
7108:
7161: );
7162:
7163: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7164: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7165: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7166: G_MODULE_NAME || l_procedure_name,
7167: l_log_msg);
7168: END IF;
7169:
7202: AND aeh.gl_transfer_status_code <> 'Y');
7203:
7204: l_log_msg :='After calling procedure AP_XLA_EVENTS_PKG.UPDATE_EVENT';
7205: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7206: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7207: G_MODULE_NAME || l_procedure_name,
7208: l_log_msg);
7209: END IF;
7210:
7225: end if;
7226:
7227: l_log_msg :='End of procedure '||l_procedure_name;
7228: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7229: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7230: G_MODULE_NAME || l_procedure_name,
7231: l_log_msg);
7232: END IF;
7233:
7293: l_curr_calling_sequence VARCHAR2(2000);
7294:
7295: -- Logging:
7296: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_CLASS_CODE';
7297: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7298:
7299: BEGIN
7300:
7301: l_curr_calling_sequence :=
7300:
7301: l_curr_calling_sequence :=
7302: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_CLASS_CODE';
7303:
7304: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7305:
7306: l_log_msg :='Begin of procedure '||l_procedure_name;
7307: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7308: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7304: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7305:
7306: l_log_msg :='Begin of procedure '||l_procedure_name;
7307: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7308: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7309: G_MODULE_NAME || l_procedure_name,
7310: l_log_msg);
7311: END IF;
7312:
7423: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
7424:
7425: -- Logging:
7426: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SECURITY_CONTEXT';
7427: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7428:
7429: BEGIN
7430:
7431: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7427: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7428:
7429: BEGIN
7430:
7431: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7432:
7433: l_log_msg :='Begin of procedure '||l_procedure_name;
7434: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7435: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7431: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7432:
7433: l_log_msg :='Begin of procedure '||l_procedure_name;
7434: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7435: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7436: G_MODULE_NAME || l_procedure_name,
7437: l_log_msg);
7438: END IF;
7439:
7440: l_event_security_context.security_id_int_1 := p_org_id;
7441:
7442: l_log_msg :='End of procedure '||l_procedure_name;
7443: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7444: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7445: G_MODULE_NAME || l_procedure_name,
7446: l_log_msg);
7447: END IF;
7448:
7484: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7485:
7486: -- Logging:
7487: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
7488: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7489:
7490: BEGIN
7491:
7492: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7488: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7489:
7490: BEGIN
7491:
7492: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7493:
7494: l_log_msg :='Begin of procedure '||l_procedure_name;
7495: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7496: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7492: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7493:
7494: l_log_msg :='Begin of procedure '||l_procedure_name;
7495: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7496: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7497: G_MODULE_NAME || l_procedure_name,
7498: l_log_msg);
7499: END IF;
7500:
7511: l_event_source_info.source_id_int_1 := p_invoice_id;
7512:
7513: l_log_msg :='End of procedure '||l_procedure_name;
7514: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7515: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7516: G_MODULE_NAME || l_procedure_name,
7517: l_log_msg);
7518: END IF;
7519:
7556: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
7557:
7558: -- Logging:
7559: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_EVENT_SOURCE_INFO';
7560: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7561:
7562: BEGIN
7563:
7564: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7560: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7561:
7562: BEGIN
7563:
7564: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7565:
7566: l_log_msg :='Begin of procedure '||l_procedure_name;
7567: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7568: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7564: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7565:
7566: l_log_msg :='Begin of procedure '||l_procedure_name;
7567: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7568: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7569: G_MODULE_NAME || l_procedure_name,
7570: l_log_msg);
7571: END IF;
7572:
7583: l_event_source_info.source_id_int_1 := p_check_id;
7584:
7585: l_log_msg :='End of procedure '||l_procedure_name;
7586: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7587: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7588: G_MODULE_NAME || l_procedure_name,
7589: l_log_msg);
7590: END IF;
7591:
7628: l_curr_calling_sequence VARCHAR2(2000);
7629:
7630: -- Logging:
7631: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_EVENT_SOURCE_INFO';
7632: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7633:
7634: BEGIN
7635:
7636: l_curr_calling_sequence :=
7635:
7636: l_curr_calling_sequence :=
7637: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_INVOICE_INFO';
7638:
7639: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7640:
7641: l_log_msg :='Begin of procedure '||l_procedure_name;
7642: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7643: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7639: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7640:
7641: l_log_msg :='Begin of procedure '||l_procedure_name;
7642: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7643: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7644: G_MODULE_NAME || l_procedure_name,
7645: l_log_msg);
7646: END IF;
7647:
7661: AI.invoice_id = p_invoice_id;
7662:
7663: l_log_msg :='End of procedure '||l_procedure_name;
7664: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7665: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7666: G_MODULE_NAME || l_procedure_name,
7667: l_log_msg);
7668: END IF;
7669:
7713: l_curr_calling_sequence VARCHAR2(2000);
7714:
7715: -- Logging:
7716: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PAYMENT_INFO';
7717: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7718:
7719: BEGIN
7720:
7721: l_curr_calling_sequence :=
7720:
7721: l_curr_calling_sequence :=
7722: p_calling_sequence || ' -> AP_ACCOUNTING_EVENTS_PKG.GET_PAYMENT_INFO';
7723:
7724: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7725:
7726: l_log_msg :='Begin of procedure '||l_procedure_name;
7727: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7728: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7724: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7725:
7726: l_log_msg :='Begin of procedure '||l_procedure_name;
7727: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7728: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7729: G_MODULE_NAME || l_procedure_name,
7730: l_log_msg);
7731: END IF;
7732:
7742: AND nvl(AC.org_id,-99) = nvl(ASP.org_id,-99);
7743:
7744: l_log_msg :='End of procedure '||l_procedure_name;
7745: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7746: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7747: G_MODULE_NAME || l_procedure_name,
7748: l_log_msg);
7749: END IF;
7750:
7793: l_related_prepay_app_event_id AP_PREPAY_HISTORY_ALL.related_prepay_app_event_id%TYPE;
7794:
7795: -- Logging:
7796: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_Prepayment_Header';
7797: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7798:
7799: BEGIN
7800:
7801: l_curr_calling_sequence := p_calling_sequence ||
7800:
7801: l_curr_calling_sequence := p_calling_sequence ||
7802: ' -> AP_ACCOUNTING_EVENTS_PKG.UPDATE_PREPAYMENT_HEADER';
7803:
7804: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7805:
7806: l_log_msg :='Begin of procedure '||l_procedure_name;
7807: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7808: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7804: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7805:
7806: l_log_msg :='Begin of procedure '||l_procedure_name;
7807: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7808: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7809: G_MODULE_NAME || l_procedure_name,
7810: l_log_msg);
7811: END IF;
7812:
7853:
7854: l_log_msg :='End of procedure '||l_procedure_name;
7855:
7856: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7857: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7858: G_MODULE_NAME || l_procedure_name,
7859: l_log_msg);
7860: END IF;
7861:
7914: l_related_prepay_app_event_id NUMBER;
7915:
7916: -- Logging:
7917: l_procedure_name CONSTANT VARCHAR2(30) := 'Insert_Prepayment_Header';
7918: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
7919:
7920: --bugfix:4936043
7921: CURSOR prepayment_invoices IS
7922: SELECT AIL.amount,
7939:
7940: l_curr_calling_sequence := p_calling_sequence ||
7941: ' -> AP_ACCOUNTING_EVENTS_PKG.INSERT_PREPAYMENT_HEADER';
7942:
7943: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7944:
7945: l_log_msg :='Begin of procedure '||l_procedure_name;
7946: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7947: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7943: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7944:
7945: l_log_msg :='Begin of procedure '||l_procedure_name;
7946: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
7947: FND_LOG.STRING(G_LEVEL_PROCEDURE,
7948: G_MODULE_NAME || l_procedure_name,
7949: l_log_msg);
7950: END IF;
7951:
8059:
8060: l_log_msg :='End of procedure '||l_procedure_name;
8061:
8062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8063: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8064: G_MODULE_NAME || l_procedure_name,
8065: l_log_msg);
8066: END IF;
8067:
8145:
8146: l_log_msg :='End of procedure '||l_procedure_name;
8147:
8148: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8149: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8150: G_MODULE_NAME || l_procedure_name,
8151: l_log_msg);
8152: END IF;
8153:
8247: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
8248: l_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
8249: l_accounting_event_id XLA_EVENTS.event_id%TYPE;
8250: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
8251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
8252:
8253: l_procedure_name CONSTANT VARCHAR2(30) := 'Set_Prepay_Event_Noaction';
8254:
8255: BEGIN
8256:
8257: l_curr_calling_sequence :=
8258: 'Set_Prepay_Event_Noaction <- '||p_calling_sequence;
8259:
8260: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8261:
8262: l_log_msg := 'Begin of procedure '|| l_procedure_name;
8263: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8264: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8260: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8261:
8262: l_log_msg := 'Begin of procedure '|| l_procedure_name;
8263: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8264: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8265: G_MODULE_NAME||l_procedure_name||'.begin',
8266: l_log_msg);
8267: END IF;
8268:
8267: END IF;
8268:
8269: l_log_msg := 'Before calling procedure get_invoice_info';
8270: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8271: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8272: G_MODULE_NAME || l_procedure_name,
8273: l_log_msg);
8274: END IF;
8275:
8282: p_calling_sequence => l_curr_calling_sequence);
8283:
8284: l_log_msg := 'After calling procedure get_insert_info executed';
8285: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8286: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8287: G_MODULE_NAME || l_procedure_name,
8288: l_log_msg);
8289: END IF;
8290:
8289: END IF;
8290:
8291: l_log_msg :='Before calling proc get_event_security_context';
8292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8293: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8294: G_MODULE_NAME || l_procedure_name,
8295: l_log_msg);
8296: END IF;
8297:
8301: p_calling_sequence => l_curr_calling_sequence);
8302:
8303: l_log_msg := 'After calling proc get_event_security_context';
8304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8305: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8306: G_MODULE_NAME || l_procedure_name,
8307: l_log_msg);
8308: END IF;
8309:
8308: END IF;
8309:
8310: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8311: l_log_msg := 'Before calling proc get_invoice_event_source_info';
8312: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8313: G_MODULE_NAME || l_procedure_name,
8314: l_log_msg);
8315: END IF;
8316:
8322: p_calling_sequence => l_curr_calling_sequence);
8323:
8324: l_log_msg := 'After calling proc get_invoice_envent_source_info';
8325: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8326: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8327: G_MODULE_NAME || l_procedure_name,
8328: l_log_msg);
8329: END IF;
8330:
8338:
8339: l_log_msg := 'Calling the Update event api for accounting event'||
8340: l_accounting_event_id;
8341: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8342: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8343: G_MODULE_NAME || l_procedure_name,
8344: l_log_msg);
8345: END IF;
8346:
8356:
8357: l_log_msg := 'After Calling the Update event api for accounting event'||
8358: l_accounting_event_id;
8359: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
8360: FND_LOG.STRING(G_LEVEL_PROCEDURE,
8361: G_MODULE_NAME || l_procedure_name,
8362: l_log_msg);
8363: END IF;
8364: