[Home] [Help]
1: PACKAGE BODY AP_PAY_IN_FULL_PKG AS
2: /* $Header: apayfulb.pls 120.19.12010000.7 2009/02/04 09:08:30 ssontine ship $ */
3:
4: ---------------------------------------------------------------------
5: -- Procedure AP_Lock_Invoices parses the P_invoice_id_list and locks all
51: l_payment_num NUMBER;
52: l_log_msg VARCHAR2(240);
53: l_curr_calling_sequence VARCHAR2(2000);
54: BEGIN
55: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_LOCK_INVOICES<-' ||
56: P_calling_sequence;
57:
58: -- Parse P_invoice_id_list and lock invoices
59: --
256: l_discount_available NUMBER := 0;
257: l_log_msg VARCHAR2(240);
258: l_curr_calling_sequence VARCHAR2(2000);
259: BEGIN
260: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_DISCOUNT_AVAILABLE<-' ||
261: P_calling_sequence;
262: l_pos := 1;
263:
264: IF (P_payment_num_list IS NOT NULL) THEN
399: WHERE invoice_id = P_invoice_id
400: AND payment_num = nvl(P_payment_num, payment_num);
401:
402: BEGIN
403: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.GET_SINGLE_PAYMENT_AMOUNT<-' ||
404: P_calling_sequence;
405:
406: l_log_msg := 'Open payments_cursor';
407: OPEN payments_cursor;
512: l_log_msg VARCHAR2(240);
513: l_curr_calling_sequence VARCHAR2(2000);
514:
515: BEGIN
516: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_GET_CHECK_AMOUNT<-' ||
517: P_calling_sequence;
518: l_pos := 1;
519:
520: IF (P_payment_num_list IS NOT NULL) THEN
726: AND APS.invoice_id = AIRP.invoice_id
727: AND APS.payment_num = AIRP.payment_num;
728:
729: BEGIN
730: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.CREATE_SINGLE_PAYMENT<-' ||
731: P_calling_sequence;
732:
733:
734: l_log_msg := 'Open payments_cursor';
816: l_log_msg := 'Get system parameter for tax withholding';
817:
818: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
819: FND_LOG.STRING(G_LEVEL_PROCEDURE,
820: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
821: l_log_msg);
822: END IF;
823:
824: SELECT nvl(awt_include_discount_amt, 'N'),
836: l_log_msg := 'Check if tax should be withheld from invoice:'||
837: to_char(P_invoice_id);
838: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
839: FND_LOG.STRING(G_LEVEL_PROCEDURE,
840: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
841: l_log_msg);
842: END IF;
843: SELECT 'Y',awt_flag
844: INTO l_awt_invoices_exists,l_awt_applied --5745239
858: l_log_msg := 'Distributions Exists -- l_awt_invoices_exists -- '||l_awt_invoices_exists
859: ||' l_awt_applied -- '||l_awt_applied;
860: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
861: FND_LOG.STRING(G_LEVEL_PROCEDURE,
862: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
863: l_log_msg);
864: END IF;
865: exception
866: when no_data_found then
914: l_log_msg := 'l_awt_applied -- '||nvl(l_awt_applied,'NULL')||' l_create_awt_dists_type -- '
915: ||l_create_awt_dists_type||' l_create_awt_invoices_type -- '||l_create_awt_invoices_type;
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:
922: IF (nvl(l_awt_applied,'N') <> 'Y')
926: l_log_msg := 'call to AP_DO_WITHHOLDING with parameters -- p_invoice_id -- '||p_invoice_id
927: ||' p_calling_module -- QUICKCHECK '||'p_amount -- '||l_subject_amount;
928: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
929: FND_LOG.STRING(G_LEVEL_PROCEDURE,
930: G_MODULE_NAME||'AP_PAY_IN_FULL_PKG.DO_AUTOMATIC_WITHHOLDING.begin',
931: l_log_msg);
932: END IF;
933:
934: AP_WITHHOLDING_PKG.AP_Do_Withholding
1407: l_log_msg VARCHAR2(240);
1408: l_curr_calling_sequence VARCHAR2(2000);
1409:
1410: BEGIN
1411: l_curr_calling_sequence := 'AP_PAY_IN_FULL_PKG.AP_CREATE_PAYMENTS<-' ||
1412: P_calling_sequence;
1413: l_pos := 1;
1414:
1415: IF (P_payment_num_list IS NOT NULL) THEN
1557: END IF;
1558: APP_EXCEPTION.RAISE_EXCEPTION;
1559: END AP_Create_Payments;
1560:
1561: END AP_PAY_IN_FULL_PKG;