[Home] [Help]
1: PACKAGE BODY AP_PAY_IN_FULL_PKG AS
2: /* $Header: apayfulb.pls 120.34.12020000.7 2013/01/23 06:50:54 harsanan ship $ */
3:
4: ---------------------------------------------------------------------
5: -- Procedure AP_Lock_Invoices parses the P_invoice_id_list and locks all
56: l_result varchar2(1) := FND_API.G_TRUE;
57: -- Bug 8209483
58:
59: BEGIN
60: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_LOCK_INVOICES<-' ||
61: P_calling_sequence;
62:
63: -- Parse P_invoice_id_list and lock invoices
64: --
304: l_discount_available NUMBER := 0;
305: l_log_msg VARCHAR2(240);
306: l_curr_calling_sequence VARCHAR2(2000);
307: BEGIN
308: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_DISCOUNT_AVAILABLE<-' ||
309: P_calling_sequence;
310: l_pos := 1;
311:
312: IF (P_payment_num_list IS NOT NULL) THEN
447: WHERE invoice_id = P_invoice_id
448: AND payment_num = nvl(P_payment_num, payment_num);
449:
450: BEGIN
451: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.GET_SINGLE_PAYMENT_AMOUNT<-' ||
452: P_calling_sequence;
453:
454: l_log_msg := 'Open payments_cursor';
455: OPEN payments_cursor;
560: l_log_msg VARCHAR2(240);
561: l_curr_calling_sequence VARCHAR2(2000);
562:
563: BEGIN
564: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_GET_CHECK_AMOUNT<-' ||
565: P_calling_sequence;
566: l_pos := 1;
567:
568: IF (P_payment_num_list IS NOT NULL) THEN
777: AND APS.invoice_id = AIRP.invoice_id
778: AND APS.payment_num = AIRP.payment_num;
779:
780: BEGIN
781: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.CREATE_SINGLE_PAYMENT<-' ||
782: P_calling_sequence;
783:
784:
785: l_log_msg := 'Open payments_cursor';
872: l_log_msg := 'Get system parameter for tax withholding';
873:
874: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
875: FND_LOG.STRING(G_LEVEL_PROCEDURE,
876: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
877: l_log_msg);
878: END IF;
879:
880: SELECT nvl(awt_include_discount_amt, 'N'),
892: l_log_msg := 'Check if tax should be withheld from invoice:'||
893: to_char(P_invoice_id);
894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
895: FND_LOG.STRING(G_LEVEL_PROCEDURE,
896: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
897: l_log_msg);
898: END IF;
899: SELECT 'Y',awt_flag
900: INTO l_awt_invoices_exists,l_awt_applied --5745239
914: l_log_msg := 'Distributions Exists -- l_awt_invoices_exists -- '||l_awt_invoices_exists
915: ||' l_awt_applied -- '||l_awt_applied;
916: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
917: FND_LOG.STRING(G_LEVEL_PROCEDURE,
918: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
919: l_log_msg);
920: END IF;
921: exception
922: when no_data_found then
995: l_log_msg := 'l_awt_applied -- '||nvl(l_awt_applied,'NULL')||' l_create_awt_dists_type -- '
996: ||l_create_awt_dists_type||' l_create_awt_invoices_type -- '||l_create_awt_invoices_type;
997: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
998: FND_LOG.STRING(G_LEVEL_PROCEDURE,
999: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
1000: l_log_msg);
1001: END IF;
1002:
1003: IF (nvl(l_awt_applied,'N') <> 'Y')
1007: l_log_msg := 'call to AP_DO_WITHHOLDING with parameters -- p_invoice_id -- '||p_invoice_id
1008: ||' p_calling_module -- QUICKCHECK '||'p_amount -- '||l_subject_amount;
1009: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1010: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1011: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
1012: l_log_msg);
1013: END IF;
1014:
1015: /*
1586: l_log_msg VARCHAR2(240);
1587: l_curr_calling_sequence VARCHAR2(2000);
1588:
1589: BEGIN
1590: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_CREATE_PAYMENTS<-' ||
1591: P_calling_sequence;
1592: l_pos := 1;
1593:
1594: IF (P_payment_num_list IS NOT NULL) THEN
1736: END IF;
1737: APP_EXCEPTION.RAISE_EXCEPTION;
1738: END AP_Create_Payments;
1739:
1740: END AP_PAY_IN_FULL_PKG;