[Home] [Help]
1: PACKAGE BODY AP_ACCOUNTING_PAY_PKG AS
2: /* $Header: apacpayb.pls 120.12.12010000.4 2008/09/04 14:06:27 imandal 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
47: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
48:
49: BEGIN
50:
51: l_curr_calling_sequence := 'AP_Accounting_Pay_Pkg.Do_Pay_Accounting<- ' ||
52: p_calling_sequence;
53:
54: -- Logging Infra: Setting up runtime level
55: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
272: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
273:
274: BEGIN
275:
276: l_curr_calling_sequence := 'AP_Accounting_Pay_Pkg.Do_Pay_Accounting<- ' ||
277: p_calling_sequence;
278:
279: -- Logging Infra: Procedure level
280: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
329: l_pay_sum NUMBER;
330:
331: BEGIN
332:
333: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
334: P_Calling_Sequence;
335:
336:
337:
369: l_inv_dist_sum NUMBER;
370:
371: BEGIN
372:
373: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
374: P_Calling_Sequence;
375:
376:
377:
410: l_bank_curr_sum NUMBER;
411:
412: BEGIN
413:
414: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Pay_Sum<- ' ||
415: P_Calling_Sequence;
416:
417:
418: SELECT SUM(APHD.Bank_Curr_Amount)
449: l_prepay_sum NUMBER;
450:
451: BEGIN
452:
453: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Prepay_Sum<- ' ||
454: P_Calling_Sequence;
455:
456:
457: SELECT SUM(APAD.Amount)
485: l_tax_diff_sum NUMBER;
486:
487: BEGIN
488:
489: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Prepay_Sum<- ' ||
490: P_Calling_Sequence;
491:
492:
493: SELECT SUM(APAD.Amount)
521: l_discount_sum NUMBER;
522:
523: BEGIN
524:
525: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
526: P_Calling_Sequence;
527:
528:
529: SELECT SUM(APHD.Amount)
560: l_discount_sum NUMBER;
561:
562: BEGIN
563:
564: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
565: P_Calling_Sequence;
566:
567:
568: SELECT SUM(APHD.Invoice_Dist_Amount)
600: l_discount_sum NUMBER;
601:
602: BEGIN
603:
604: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Casc_Discount_Sum<- ' ||
605: P_Calling_Sequence;
606:
607:
608: SELECT SUM(APHD.Bank_Curr_Amount)
644: l_bank_curr_sum NUMBER;
645:
646: BEGIN
647:
648: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Pay_Sum<- ' ||
649: P_Calling_Sequence;
650:
651: IF (P_Transaction_Type IN ('PAYMENT CLEARED', 'PAYMENT CLEARING ADJUSTED')) THEN
652:
735: l_prepay_sum NUMBER;
736:
737: BEGIN
738:
739: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Prepay_Sum<- ' ||
740: P_Calling_Sequence;
741:
742:
743: SELECT SUM(APAD.Amount)
785:
786: BEGIN
787:
788:
789: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Is_Final_Payment<-' ||
790: P_Calling_Sequence;
791:
792:
793: /* We need to get the paid amount for a particular transaction type
992: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
993:
994: BEGIN
995:
996: l_curr_calling_sequence := 'AP_ACCOUNTING_PAY_PKG.Get_Base_Amount<-'
997: || P_calling_sequence;
998:
999:
1000:
1063:
1064: END Get_Base_Amount;
1065:
1066:
1067: END AP_ACCOUNTING_PAY_PKG;