[Home] [Help]
1: PACKAGE BODY AP_PPA_PKG AS
2: /* $Header: aprddtsb.pls 120.9.12010000.7 2009/12/05 11:55:38 pgayen ship $ */
3:
4: --==========================================================================
5: ---------------------------------------------------------------------------
6: -- Private (Non Public) Procedure Specifications
7: ---------------------------------------------------------------------------
8: --==========================================================================
9: --bug 9162299 : Added variables to be used for fnd logging in print procedure
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PPA_PKG';
11: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
12: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
13: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
14: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PPA_PKG.';
27:
28: --bug 9162299: forward declaration of private procedure to be used for logging
29: PROCEDURE Print( p_debug_info IN VARCHAR2,
30: p_api_name IN VARCHAR2);
322: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
323:
324: -- Update the calling sequence --
325:
326: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
327:
328: l_first_record := TRUE;
329: l_sub_total := 0;
330: l_sub_total_inv :=0;
564: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
565:
566: -- Update the calling sequence --
567:
568: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
569:
570: p_start_date := null;
571:
572: -------------------------------------------------
668: BEGIN
669:
670: -- Update the calling sequence --
671:
672: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
673:
674:
675: SELECT
676: greatest(p_inv_date,
714: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
715:
716: -- Update the calling sequence --
717:
718: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
719:
720:
721: -- Retrieve po terms rank, and terms id and terms name
722:
809: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
810:
811: -- Update the calling sequence --
812:
813: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
814:
815:
816: --------------------------------------------
817: l_debug_info := 'Get Payment Schedule Info';
1043: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1044:
1045: -- Update the calling sequence --
1046:
1047: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1048:
1049: ---------------------------------------------------------------------------
1050: l_debug_info := 'Retrieve invoice_amount and amount_applicable_to_disc';
1051: ---------------------------------------------------------------------------
1100: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1101:
1102: -- Update the calling sequence --
1103:
1104: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1105:
1106:
1107: ----------------------------------------------------------------
1108: l_debug_info := 'Retrieve last_inv_ps_pay_num and gross_amount';
1186: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1187:
1188: -- Update the calling sequence --
1189:
1190: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1191:
1192: --
1193: -- Update the amount_remaining and not updat discount_amount_remaining
1194: -- per discussion with shira and nnakos, this program will populate
1275: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1276:
1277: -- Update the calling sequence --
1278:
1279: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1280:
1281:
1282: DELETE FROM ap_payment_schedules
1283: WHERE invoice_id = p_invoice_id
1352: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1353:
1354: -- Update the calling sequence --
1355:
1356: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1357:
1358: l_debug_info := 'Get minimum_accountable_unit';
1359: print(l_debug_info, l_debug_loc); --bug 9162299
1360:
1669: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
1670:
1671: -- Update the calling sequence --
1672:
1673: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1674:
1675: -- get payment currency code for rounding
1676: SELECT payment_currency_code, org_id
1677: INTO l_pay_curr_code, l_org_id /* Bug 3700128. MOAC Project */
1832: -- Update the calling sequence --
1833: l_debug_info := 'p_curr_ps_pay_num'||p_curr_ps_pay_num||'p_last_term_ps_pay_num'||p_last_term_ps_pay_num;
1834: print(l_debug_info,l_debug_loc); --bug 9162299
1835:
1836: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1837:
1838:
1839: l_curr_ps_pay_num := p_curr_ps_pay_num;
1840:
1992:
1993: BEGIN
1994:
1995: l_debug_loc := 'Update ap_payment_schedules - set gross_amount';
1996: l_curr_calling_sequence := 'AP_PPA_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
1997:
1998: SELECT SUM(gross_amount)
1999: INTO l_pay_sched_total
2000: FROM ap_payment_schedules
2053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,p_debug_info);
2054: END IF;
2055: END Print;
2056:
2057: END AP_PPA_PKG;