1: PACKAGE BODY AP_ACCOUNTING_PAY_PKG AS
2: /* $Header: apacpayb.pls 120.47.12020000.3 2012/10/04 06:34:19 rseeta ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCOUNTING_PAY_PKG.';
13: -- Logging Infra
14:
15: -------------------------------------------------------------------------------
16: -- PROCEDURE Do_Pay_Accounting
58: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
59:
60: BEGIN
61:
62: l_curr_calling_sequence := 'AP_Accounting_Pay_Pkg.Do_Pay_Accounting<- ' ||
63: p_calling_sequence;
64:
65: -- Logging Infra: Setting up runtime level
66: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
382: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
383:
384: BEGIN
385:
386: l_curr_calling_sequence := 'AP_Accounting_Pay_Pkg.Do_Pay_Accounting<- ' ||
387: p_calling_sequence;
388:
389: -- Logging Infra: Procedure level
390: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
439: l_pay_sum NUMBER;
440:
441: BEGIN
442:
443: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
444: P_Calling_Sequence;
445:
446:
447:
479: l_inv_dist_sum NUMBER;
480:
481: BEGIN
482:
483: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
484: P_Calling_Sequence;
485:
486:
487:
520: l_bank_curr_sum NUMBER;
521:
522: BEGIN
523:
524: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
525: P_Calling_Sequence;
526:
527:
528: SELECT SUM(APHD.Bank_Curr_Amount)
559: l_prepay_sum NUMBER;
560:
561: BEGIN
562:
563: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Prepay_Sum<- ' ||
564: P_Calling_Sequence;
565:
566:
567: SELECT SUM(APAD.Amount)
595: l_tax_diff_sum NUMBER;
596:
597: BEGIN
598:
599: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Prepay_Sum<- ' ||
600: P_Calling_Sequence;
601:
602:
603: SELECT SUM(APAD.Amount)
631: l_discount_sum NUMBER;
632:
633: BEGIN
634:
635: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
636: P_Calling_Sequence;
637:
638:
639: SELECT SUM(APHD.Amount)
670: l_discount_sum NUMBER;
671:
672: BEGIN
673:
674: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
675: P_Calling_Sequence;
676:
677:
678: SELECT SUM(APHD.Invoice_Dist_Amount)
710: l_discount_sum NUMBER;
711:
712: BEGIN
713:
714: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
715: P_Calling_Sequence;
716:
717:
718: SELECT SUM(APHD.Bank_Curr_Amount)
754: l_bank_curr_sum NUMBER;
755:
756: BEGIN
757:
758: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Pay_Sum<- ' ||
759: P_Calling_Sequence;
760:
761: IF (P_Transaction_Type IN ('PAYMENT CLEARED', 'PAYMENT CLEARING ADJUSTED')) THEN
762:
933: l_bank_curr_sum NUMBER;
934:
935: BEGIN
936:
937: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Pay_Base_Sum<- ' ||
938: P_Calling_Sequence;
939:
940: IF (P_Transaction_Type IN ('PAYMENT CLEARED', 'PAYMENT CLEARING ADJUSTED')) THEN
941:
1087: l_prepay_sum NUMBER;
1088:
1089: BEGIN
1090:
1091: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Prepay_Sum<- ' ||
1092: P_Calling_Sequence;
1093:
1094:
1095: SELECT SUM(APAD.Amount)
1137: l_curr_calling_sequence VARCHAR2(2000);
1138:
1139: BEGIN
1140:
1141: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Prepay_Base_Sum<- ' ||
1142: P_Calling_Sequence;
1143:
1144: SELECT SUM( APAD.Base_Amount )
1145: , SUM( APAD.Base_Amt_At_Prepay_XRate )
1211:
1212: BEGIN
1213:
1214:
1215: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Is_Final_Payment<-' ||
1216: P_Calling_Sequence;
1217:
1218: -- add this call for Bug10183934
1219: IF NOT Is_Upgrade_Proration_Exists(
1507: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1508:
1509: BEGIN
1510:
1511: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Base_Amount<-'
1512: || P_calling_sequence;
1513:
1514:
1515:
1654: l_curr_calling_sequence VARCHAR2(2000);
1655:
1656: BEGIN
1657:
1658: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Base_Amount<-'
1659: || P_calling_sequence;
1660:
1661: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1662: l_log_msg := 'Begin of the Procedure Prorate_Historical_Dists';
1797: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1798:
1799: BEGIN
1800:
1801: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Is_Final_Payment<-' ||
1802: P_Calling_Sequence;
1803:
1804: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1805: l_log_msg := 'Begin of is_final_event function call and parameters are' ||
1979: l_upg_pay_all_actg_for_inv NUMBER;
1980:
1981: BEGIN
1982:
1983: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.is_upgrade_proration_exists<-' ||P_Calling_Sequence;
1984:
1985: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1986: l_log_msg := 'Check is_upgrade_proration_exists for : '|| P_Rounding_Method;
1987: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name, l_log_msg);
2198: END IF;
2199:
2200: END Is_Upgrade_Proration_Exists;
2201:
2202: END AP_ACCOUNTING_PAY_PKG;