[Home] [Help]
1: PACKAGE BODY AP_UTILITIES_PKG AS
2: /* $Header: aputilsb.pls 120.30.12010000.3 2009/02/26 11:24:55 rseeta ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_UTILITIES_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
1: PACKAGE BODY AP_UTILITIES_PKG AS
2: /* $Header: aputilsb.pls 120.30.12010000.3 2009/02/26 11:24:55 rseeta ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_UTILITIES_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_UTILITIES_PKG';
21:
22: function AP_Get_Displayed_Field
23: (LookupType IN varchar2
24: ,LookupCode IN varchar2)
182:
183: -------------------------- DEBUG INFORMATION ------------------------------
184: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
185:
186: l_curr_calling_sequence := 'AP_UTILITIES_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
187:
188: l_debug_info := 'Retrieve the precision, mac and functional currency';
189: --AP_LOGGING_PKG.AP_Log(l_debug_info, l_debug_loc);
190: ---------------------------------------------------------------------------
305: -------------------------- DEBUG INFORMATION -------------------------
306: -----
307: --AP_LOGGING_PKG.AP_Begin_Block(l_debug_loc);
308:
309: l_curr_calling_sequence := 'AP_UTILITIES_PKG.'||l_debug_loc||'<-'||p_calling_sequence;
310:
311: -------------------------- DEBUG INFORMATION ------------------------
312: ------
313: l_debug_info := 'Calculate Rounded Amount';
676: begin
677: -- Update the calling sequence
678: --
679: current_calling_sequence :=
680: 'AP_UTILITIES_PKG.get_exchange_rate<-'||P_Calling_Sequence;
681:
682: debug_info := 'Calling GL API to get the rate';
683: l_rate := gl_currency_api.get_rate(p_from_currency_code, p_to_currency_code,
684: p_exchange_date, p_exchange_rate_type);
906:
907: BEGIN
908: -- Update the calling sequence
909: --
910: current_calling_sequence := 'AP_UTILITIES_PKG.Overlay_Segments<-'||P_calling_sequence;
911:
912: -----------------------------------------------------------
913: -- Reject if it's item line but no account info
914: -----------------------------------------------------------
1294:
1295: BEGIN
1296: -- Update the calling sequence
1297: --
1298: current_calling_sequence := 'AP_UTILITIES_PKG.Overlay_Segments<-'||P_calling_sequence;
1299:
1300: -----------------------------------------------------------
1301: -- Reject if it's item line but no account info
1302: -----------------------------------------------------------
1656:
1657: BEGIN
1658: -- Update the calling sequence
1659: --
1660: current_calling_sequence := 'AP_UTILITIES_PKG.Check_Partial<-'||P_calling_sequence;
1661:
1662:
1663:
1664: debug_info := 'Select Charts of Account';
1732:
1733: BEGIN
1734: -- Update the calling sequence
1735: --
1736: current_calling_sequence := 'AP_UTILITIES_PKG.Ccid_Valid<-'||P_calling_sequence;
1737:
1738: debug_info := 'Validate ccid as a whole';
1739:
1740: If (( fnd_flex_keyval.validate_ccid(
1842:
1843: BEGIN
1844: -- Update the calling sequence
1845: --
1846: current_calling_sequence := 'AP_UTILITIES_PKG.mc_flag_enabled<-'||p_calling_sequence;
1847:
1848: debug_info := 'Calling GL package to get a list of reporting set of books';
1849: gl_mc_info.get_associated_sobs (p_sob_id,
1850: p_appl_id, p_org_id, NULL,
1897: begin
1898: -- Update the calling sequence
1899: --
1900: current_calling_sequence :=
1901: 'AP_UTILITIES_PKG.AP_Get_Sob_Order_Col<-'||p_calling_sequence;
1902: debug_info := 'Getting the order column value';
1903: l_primary_sob_id :=GL_MC_INFO.get_source_ledger_id(P_SOB_ID,200,P_ORG_ID,'');
1904:
1905: /*
1942: l_return_val VARCHAR2(2000);
1943: BEGIN
1944: -- Update the calling sequence
1945: --
1946: current_calling_sequence := 'AP_UTILITIES_PKG.get_charge_account<-'||p_calling_sequence;
1947: debug_info := 'Calling fnd function to validate ccid';
1948:
1949: if p_ccid <> -1 then
1950:
2024: AND ail.amount <> 0; -- Bug 6911199. Should ignore 0 Line Amounts.(Also one test case is an open issue)
2025:
2026: BEGIN
2027:
2028: l_curr_calling_sequence := 'AP_UTILITIES_PKG.'||'
2029: <-'||p_calling_sequence;
2030:
2031: l_debug_info := 'Getting org_id';
2032: ---------------------------------------------------------------------
2592: debug_info VARCHAR2(500);
2593:
2594: BEGIN
2595: current_calling_sequence :=
2596: 'AP_UTILITIES_PKG.delete_invoice_from_interface<-'||P_calling_sequence;
2597: debug_info := 'Delete records from rejection and interface tables';
2598:
2599: /* Delete invoices from interface */
2600: forall i in nvl(p_invoice_id_table.first,0)..nvl(p_invoice_id_table.last,0)
2759: is
2760: l_open_gl_date date :='';
2761: l_period_name gl_period_statuses.period_name%TYPE := '';
2762: begin
2763: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, P_org_id);
2764: if l_period_name is null then
2765: ap_utilities_pkg.get_open_gl_date(p_date,
2766: l_period_name,
2767: l_open_gl_date,
2761: l_period_name gl_period_statuses.period_name%TYPE := '';
2762: begin
2763: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, P_org_id);
2764: if l_period_name is null then
2765: ap_utilities_pkg.get_open_gl_date(p_date,
2766: l_period_name,
2767: l_open_gl_date,
2768: P_org_id);
2769: if l_period_name is null then
2794: is
2795: l_open_gl_date date :='';
2796: l_period_name gl_period_statuses.period_name%TYPE := '';
2797: begin
2798: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, p_org_id);
2799: if l_period_name is null then
2800: ap_utilities_pkg.get_open_gl_date(p_date,
2801: l_period_name,
2802: l_open_gl_date,
2796: l_period_name gl_period_statuses.period_name%TYPE := '';
2797: begin
2798: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, p_org_id);
2799: if l_period_name is null then
2800: ap_utilities_pkg.get_open_gl_date(p_date,
2801: l_period_name,
2802: l_open_gl_date,
2803: p_org_id);
2804: if l_period_name is null then
3427: where ael.invoice_distribution_id = aid.charge_applicable_to_dist_id);
3428:
3429: BEGIN
3430:
3431: l_current_calling_sequence := 'AP_UTILITIES_PKG.'
3432: || 'Get_PO_Reversed_Encumb_Amount<-'
3433: || P_calling_sequence;
3434:
3435: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3737:
3738: END get_gl_natural_account;
3739:
3740:
3741: END AP_UTILITIES_PKG;