[Home] [Help]
1: PACKAGE BODY AP_PREPAY_PKG AS
2: /*$Header: aprepayb.pls 120.62.12020000.5 2012/10/08 07:04:46 harsanan ship $*/
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PREPAY_PKG';
1: PACKAGE BODY AP_PREPAY_PKG AS
2: /*$Header: aprepayb.pls 120.62.12020000.5 2012/10/08 07:04:46 harsanan ship $*/
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PREPAY_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
17: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
18: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
20: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PREPAY_PKG.';
22:
23: FUNCTION Check_Supplier_Consistency (
24: p_prepay_num IN VARCHAR2,
25: p_vendor_id IN NUMBER) RETURN VARCHAR2
126:
127: BEGIN
128: l_api_name := 'Check_Prepayment_Invoice';
129: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
130: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Check_Prepayment_Invoice(+)');
131: END IF;
132:
133:
134: l_debug_info := 'Check if the prepayment invoice is a valid invoice ';
162: AND vendor_id = p_vendor_id;
163: END IF;
164:
165: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
166: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Check_Prepayment_Invoice(-)');
167: END IF;
168:
169: RETURN (l_reject_code);
170:
455: BEGIN
456: l_api_name := 'Validate_Prepay_Info';
457:
458: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
459: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Validate_Prepay_Info(+)');
460: END IF;
461:
462: IF p_prepay_case_name = 'DO_NOTHING_CASE' THEN
463:
663: RETURN (l_reject_code);
664: END IF;
665:
666: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Validate_Prepay_Info(-)');
668: END IF;
669:
670: RETURN (l_reject_code);
671:
690:
691: BEGIN
692: l_api_name := 'Get_Prepay_Case_Name';
693: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
694: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Get_Prepay_Case_Name(+)');
695: END IF;
696:
697: l_debug_info := 'Derive case name';
698: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
757:
758: END IF;
759:
760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
761: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Get_Prepay_Case_Name(-)');
762: END IF;
763:
764: RETURN (l_prepay_case_name);
765:
950: p_vendor_id IN NUMBER,
951: p_calling_sequence IN VARCHAR2,
952: p_request_id IN NUMBER,
953: p_invoice_id IN NUMBER, -- Bug 6394865
954: p_prepay_appl_info OUT NOCOPY ap_prepay_pkg.prepay_appl_tab)
955: IS
956:
957: l_application_result BOOLEAN;
958: l_apply_amount_remaining NUMBER;
1202:
1203: l_api_name := 'Check_Prepay_Info_Import';
1204:
1205: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1206: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Check_Prepay_Info_Import(+)');
1207: END IF;
1208:
1209: p_prepay_invoice_id := p_import_invoice_id;
1210:
1257: RETURN (l_reject_code);
1258: END IF;
1259:
1260: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1261: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Check_Prepay_Info_Import(-)');
1262: END IF;
1263:
1264: RETURN (l_reject_code);
1265:
1278: p_prepay_included IN VARCHAR2,
1279: p_import_invoice_id IN NUMBER,
1280: p_vendor_id IN NUMBER,
1281: p_request_id IN NUMBER,
1282: p_prepay_appl_info OUT NOCOPY ap_prepay_pkg.prepay_appl_tab,
1283: p_calling_sequence IN VARCHAR2) IS
1284:
1285: l_apply_amount NUMBER;
1286: BEGIN
1330: p_prepay_included IN VARCHAR2,
1331: p_user_id IN NUMBER,
1332: p_last_update_login IN NUMBER,
1333: p_calling_sequence IN VARCHAR2,
1334: p_prepay_appl_log OUT NOCOPY ap_prepay_pkg.Prepay_Appl_Log_Tab)
1335: IS
1336: l_prepay_apply_amount NUMBER;
1337: l_loop_counter BINARY_INTEGER;
1338: l_dummy BOOLEAN;
1336: l_prepay_apply_amount NUMBER;
1337: l_loop_counter BINARY_INTEGER;
1338: l_dummy BOOLEAN;
1339: l_error_message VARCHAR2(2000);
1340: l_prepay_appl_info ap_prepay_pkg.prepay_appl_tab;
1341: l_prepay_dist_info AP_PREPAY_PKG.PREPAY_DIST_TAB_TYPE;
1342: l_curr_calling_sequence VARCHAR2(2000);
1343: BEGIN
1344:
1337: l_loop_counter BINARY_INTEGER;
1338: l_dummy BOOLEAN;
1339: l_error_message VARCHAR2(2000);
1340: l_prepay_appl_info ap_prepay_pkg.prepay_appl_tab;
1341: l_prepay_dist_info AP_PREPAY_PKG.PREPAY_DIST_TAB_TYPE;
1342: l_curr_calling_sequence VARCHAR2(2000);
1343: BEGIN
1344:
1345:
1344:
1345:
1346: l_curr_calling_sequence := 'Apply_Prepay_Import <-'||p_calling_sequence;
1347:
1348: AP_PREPAY_PKG.Get_Prepay_Info_Import(
1349: P_Prepay_Case_Name => p_prepay_case_name,
1350: P_Prepay_Invoice_Id => p_prepay_invoice_id,
1351: P_Prepay_Num => p_prepay_num,
1352: P_Prepay_Line_Num => p_prepay_line_num,
1364:
1365: FOR l_loop_counter IN NVL(l_prepay_appl_info.FIRST,0) .. NVL(l_prepay_appl_info.LAST,0) LOOP
1366:
1367: -- Call the Apply_Prepay_line API to apply the prepayment
1368: IF (AP_PREPAY_PKG.Apply_Prepay_Line (
1369: l_prepay_appl_info(l_loop_counter).prepay_invoice_id,
1370: l_prepay_appl_info(l_loop_counter).prepay_line_num,
1371: l_prepay_dist_info,
1372: 'Y',
1412:
1413: FUNCTION Apply_Prepay_Line (
1414: P_PREPAY_INVOICE_ID IN NUMBER,
1415: P_PREPAY_LINE_NUM IN NUMBER,
1416: P_PREPAY_DIST_INFO IN OUT NOCOPY AP_PREPAY_PKG.PREPAY_DIST_TAB_TYPE,
1417: P_PRORATE_FLAG IN VARCHAR2,
1418: P_INVOICE_ID IN NUMBER,
1419: /*Contract Payments*/
1420: P_INVOICE_LINE_NUMBER IN NUMBER DEFAULT NULL,
1488: l_prepay_ln_s_pa_quantity ap_invoice_lines_all.pa_quantity%TYPE;
1489: l_prepay_ln_s_stat_amount ap_invoice_lines_all.stat_amount%TYPE;
1490:
1491: -- PREPAY distributions related variables
1492: l_prepay_dist_info AP_PREPAY_PKG.PREPAY_DIST_TAB_TYPE;
1493: l_max_dist_number
1494: ap_invoice_distributions_all.distribution_line_number%TYPE;
1495: l_loop_counter BINARY_INTEGER := 1;
1496: l_loop_variable BINARY_INTEGER;
1664:
1665: l_api_name := 'Apply_Prepay_Line';
1666:
1667: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1668: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Apply_Prepay_Line(+)');
1669: END IF;
1670:
1671: -- ==========================================================
1672: -- Step 0: Get Base Currency Code
1989: -- calling mode is 'PREPAYMENT APPLICATION', not for
1990: -- RECOUPMENT.
1991: -- ===========================================================
1992: /*Bug 14213367: Added parameters to the debug info*/
1993: l_debug_info := 'Call Ap_Prepay_Pkg.Insert_Prepay_Line. p_prepay_invoice_id: '||
1994: p_prepay_invoice_id|| ',p_prepay_line_num: '||p_prepay_line_num||',p_invoice_id: '||
1995: p_invoice_id||',l_prepay_ln_number: '||l_prepay_ln_number;
1996: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1996: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1998: END IF;
1999:
2000: l_dummy := AP_PREPAY_PKG.INSERT_PREPAY_LINE(
2001: p_prepay_invoice_id,
2002: p_prepay_line_num,
2003: p_invoice_id,
2004: l_prepay_ln_number,
2649: l_invoice_line_number := l_prepay_ln_number;
2650: END IF;
2651:
2652: /*Bug 14213367:Added input parameter to the debug info */
2653: l_debug_info := 'Call Ap_Prepay_Pkg.Insert_Prepay_Dists. l_invoice_line_number: '||
2654: l_invoice_line_number;
2655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2657: END IF;
2655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2657: END IF;
2658:
2659: l_dummy := AP_PREPAY_PKG.INSERT_PREPAY_DISTS(
2660: p_prepay_invoice_id,
2661: p_prepay_line_num,
2662: p_invoice_id,
2663: l_std_inv_batch_id,
2820: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2821: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2822: END IF;
2823:
2824: l_dummy := AP_PREPAY_PKG.Update_Prepayment(
2825: l_prepay_dist_info,
2826: p_prepay_invoice_id,
2827: p_prepay_line_num,
2828: p_invoice_id,
2855: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2856: END IF;
2857:
2858:
2859: l_dummy := AP_PREPAY_PKG.Update_PO_Receipt_Info(
2860: l_prepay_dist_info,
2861: p_prepay_invoice_id,
2862: p_prepay_line_num,
2863: p_invoice_id,
2953: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2954: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2955: END IF;
2956:
2957: l_dummy := AP_PREPAY_PKG.Update_Payment_Schedule(
2958: p_invoice_id,
2959: p_prepay_invoice_id,
2960: p_prepay_line_num,
2961: l_ppay_apply_amt_in_pay_curr,
3006: --IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3007: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3008: --END IF;
3009:
3010: -- l_dummy := AP_PREPAY_PKG.Update_Rounding_Amounts(
3011: -- p_prepay_invoice_id,
3012: -- p_prepay_line_num,
3013: -- p_invoice_id,
3014: -- l_invoice_line_number,
3042: -- Hence we can return TRUE to the calling module.
3043: -- ===========================================================
3044:
3045: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3046: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Apply_Prepay_Line(-)');
3047: END IF;
3048:
3049: RETURN (TRUE);
3050:
3127: l_current_calling_sequence := 'Insert_Prepay_Line<-'
3128: ||p_calling_sequence;
3129:
3130: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3131: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Insert_Prepay_Line(+)');
3132: END IF;
3133:
3134: l_debug_info := 'Insert PREPAY Line';
3135: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3452: WHERE invoice_id = p_prepay_invoice_id
3453: AND line_number = p_prepay_line_num;
3454:
3455: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3456: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Insert_Prepay_Line(-)');
3457: END IF;
3458:
3459: RETURN (TRUE);
3460: EXCEPTION
3502: P_prepay_line_num IN NUMBER,
3503: P_invoice_id IN NUMBER,
3504: P_batch_id IN NUMBER,
3505: P_line_number IN NUMBER,
3506: P_prepay_dist_info IN OUT NOCOPY AP_PREPAY_PKG.Prepay_Dist_Tab_Type,
3507: P_user_id IN NUMBER,
3508: P_last_update_login IN NUMBER,
3509: P_calling_sequence IN VARCHAR2,
3510: P_error_message OUT NOCOPY VARCHAR2)
3526: l_api_name := 'Insert_Prepay_Dists';
3527: l_calling_program := p_calling_sequence;
3528:
3529: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Insert_Prepay_Dists(+)');
3531: END IF;
3532:
3533: l_debug_info := 'Insert PREPAY Distributions';
3534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4019: -- END IF;
4020: END LOOP;
4021:
4022: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4023: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Insert_Prepay_Dists(-)');
4024: END IF;
4025:
4026: RETURN (TRUE);
4027: EXCEPTION
4058: END Insert_Prepay_Dists;
4059:
4060:
4061: FUNCTION Update_Prepayment(
4062: p_prepay_dist_info IN AP_PREPAY_PKG.Prepay_Dist_Tab_Type,
4063: p_prepay_invoice_id IN NUMBER,
4064: p_prepay_line_num IN NUMBER,
4065: p_invoice_id IN NUMBER,
4066: p_invoice_line_num IN NUMBER,
4080: BEGIN
4081:
4082: l_api_name := 'Update_Prepayment';
4083: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4084: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_Prepayment(+)');
4085: END IF;
4086:
4087: l_current_calling_sequence := 'update_prepayment<-' ||p_calling_sequence;
4088:
4110: AND arl.chrg_invoice_line_number = dp.invoice_line_number));
4111:
4112:
4113: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_Prepayment(-)');
4115: END IF;
4116:
4117: RETURN (TRUE);
4118:
4147: END Update_Prepayment;
4148:
4149:
4150: FUNCTION Update_PO_Receipt_Info(
4151: p_prepay_dist_info IN AP_PREPAY_PKG.Prepay_Dist_Tab_Type,
4152: p_prepay_invoice_id IN NUMBER,
4153: p_prepay_line_num IN NUMBER,
4154: p_invoice_id IN NUMBER,
4155: p_invoice_line_num IN NUMBER,
4225:
4226: l_current_calling_sequence := 'update_po_receipt_info<-'||
4227: p_calling_sequence;
4228: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4229: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_PO_Receipt_Info(+)');
4230: END IF;
4231:
4232: l_debug_info := 'Create l_po_ap_dist_rec object';
4233: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4387: X_Return_Status => l_return_status,
4388: X_Msg_Data => l_msg_data);
4389:
4390: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_PO_Receipt_Info(-)');
4392: END IF;
4393:
4394: RETURN (TRUE);
4395: EXCEPTION
4480: l_current_calling_sequence := 'update_payment_schedule<-'||
4481: p_calling_sequence;
4482:
4483: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4484: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_Payment_Schedule(+)');
4485: END IF;
4486:
4487: IF (p_invoice_id IS NULL OR
4488: p_apply_amount IS NULL OR
4682:
4683: --END IF;
4684:
4685: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4686: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_PREPAY_PKG.Update_Payment_Schedule(-)');
4687: END IF;
4688:
4689: RETURN (TRUE);
4690:
4762: l_ppay_inv_pay_cross_rate_date ap_invoices_all.payment_cross_rate_date%TYPE;
4763: l_ppay_inv_pay_cross_rate_type ap_invoices_all.payment_cross_rate_type%TYPE;
4764: l_ppay_apply_amt_in_pay_curr NUMBER;
4765: l_prepay_line_rec ap_invoice_lines_all%ROWTYPE;
4766: l_prepay_dist_info AP_PREPAY_PKG.prepay_dist_tab_type;
4767: l_debug_info VARCHAR2(4000); --Changed length from 100 to 4000 (8534097)
4768: l_current_calling_sequence VARCHAR2(2000);
4769: l_calling_program VARCHAR2(1000);
4770: l_result BOOLEAN;
4944: */
4945: -- ===========================================================
4946: -- Step 6: Update Prepayment
4947: -- ===========================================================
4948: l_dummy := AP_PREPAY_PKG.Update_Prepayment(
4949: l_prepay_dist_info,
4950: p_prepay_invoice_id,
4951: p_prepay_line_num,
4952: p_invoice_id,
4963: -- ===========================================================
4964: -- Step 7: Update PO/RCV information
4965: -- ===========================================================
4966:
4967: l_dummy := AP_PREPAY_PKG.Update_PO_Receipt_Info(
4968: l_prepay_dist_info,
4969: p_prepay_invoice_id,
4970: p_prepay_line_num,
4971: p_invoice_id,
4985: -- Step 8: Update Payment Schedules
4986: -- ===========================================================
4987:
4988: IF NVL(p_prepay_included, 'N') = 'N' THEN
4989: l_dummy := AP_PREPAY_PKG.Update_Payment_Schedule (
4990: p_invoice_id,
4991: p_prepay_invoice_id,
4992: p_prepay_line_num,
4993: l_ppay_apply_amt_in_pay_curr,
5069: p_calling_sequence IN VARCHAR2,
5070: p_error_message OUT NOCOPY VARCHAR2)
5071: RETURN BOOLEAN IS
5072:
5073: l_prepay_dist_info AP_PREPAY_PKG.PREPAY_DIST_TAB_TYPE;
5074:
5075: l_prepay_id NUMBER;
5076: l_prepay_num VARCHAR2(50);
5077: l_prepay_ln_num NUMBER;
5150: END IF;
5151:
5152: l_apply_amount_remaining := l_apply_amount_remaining - l_apply_amount;
5153:
5154: l_result := AP_PREPAY_PKG.Apply_Prepay_Line (
5155: l_prepay_id,
5156: l_prepay_ln_num,
5157: l_prepay_dist_info,
5158: 'Y',
5226:
5227: END Apply_Prepay_FR_Prepay;
5228:
5229:
5230: END AP_PREPAY_PKG;