[Home] [Help]
1: PACKAGE BODY AP_UTILITIES_PKG AS
2: /* $Header: aputilsb.pls 120.51.12020000.2 2012/07/13 19:42:12 mkmeda 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.51.12020000.2 2012/07/13 19:42:12 mkmeda 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);
910:
911: BEGIN
912: -- Update the calling sequence
913: --
914: current_calling_sequence := 'AP_UTILITIES_PKG.Overlay_Segments<-'||P_calling_sequence;
915:
916: -----------------------------------------------------------
917: -- Reject if it's item line but no account info
918: -----------------------------------------------------------
1298:
1299: BEGIN
1300: -- Update the calling sequence
1301: --
1302: current_calling_sequence := 'AP_UTILITIES_PKG.Overlay_Segments<-'||P_calling_sequence;
1303:
1304: -----------------------------------------------------------
1305: -- Reject if it's item line but no account info
1306: -----------------------------------------------------------
1660:
1661: BEGIN
1662: -- Update the calling sequence
1663: --
1664: current_calling_sequence := 'AP_UTILITIES_PKG.Check_Partial<-'||P_calling_sequence;
1665:
1666:
1667:
1668: debug_info := 'Select Charts of Account';
1736:
1737: BEGIN
1738: -- Update the calling sequence
1739: --
1740: current_calling_sequence := 'AP_UTILITIES_PKG.Ccid_Valid<-'||P_calling_sequence;
1741:
1742: debug_info := 'Validate ccid as a whole';
1743:
1744: If (( fnd_flex_keyval.validate_ccid(
1846:
1847: BEGIN
1848: -- Update the calling sequence
1849: --
1850: current_calling_sequence := 'AP_UTILITIES_PKG.mc_flag_enabled<-'||p_calling_sequence;
1851:
1852: debug_info := 'Calling GL package to get a list of reporting set of books';
1853: gl_mc_info.get_associated_sobs (p_sob_id,
1854: p_appl_id, p_org_id, NULL,
1901: begin
1902: -- Update the calling sequence
1903: --
1904: current_calling_sequence :=
1905: 'AP_UTILITIES_PKG.AP_Get_Sob_Order_Col<-'||p_calling_sequence;
1906: debug_info := 'Getting the order column value';
1907: l_primary_sob_id :=GL_MC_INFO.get_source_ledger_id(P_SOB_ID,200,P_ORG_ID,'');
1908:
1909: /*
1946: l_return_val VARCHAR2(2000);
1947: BEGIN
1948: -- Update the calling sequence
1949: --
1950: current_calling_sequence := 'AP_UTILITIES_PKG.get_charge_account<-'||p_calling_sequence;
1951: debug_info := 'Calling fnd function to validate ccid';
1952:
1953: if p_ccid <> -1 then
1954:
2028: AND ail.amount <> 0; -- Bug 6911199. Should ignore 0 Line Amounts.(Also one test case is an open issue)
2029:
2030: BEGIN
2031:
2032: l_curr_calling_sequence := 'AP_UTILITIES_PKG.'||'
2033: <-'||p_calling_sequence;
2034:
2035: l_debug_info := 'Getting org_id';
2036: ---------------------------------------------------------------------
2254: nvl(liability_post_lookup_code, 'NONE')
2255: INTO l_primary_sob_id,
2256: l_liability_post_lookup_code
2257: FROM ap_system_parameters
2258: where org_id = nvl(AP_UTILITIES_PKG.g_org_id,org_id); /*Bug11720134*/
2259:
2260: SELECT chart_of_accounts_id
2261: INTO l_chart_of_accts_id
2262: FROM gl_sets_of_books
2597: debug_info VARCHAR2(500);
2598:
2599: BEGIN
2600: current_calling_sequence :=
2601: 'AP_UTILITIES_PKG.delete_invoice_from_interface<-'||P_calling_sequence;
2602: debug_info := 'Delete records from rejection and interface tables';
2603:
2604: /* Delete invoices from interface */
2605: forall i in nvl(p_invoice_id_table.first,0)..nvl(p_invoice_id_table.last,0)
2764: is
2765: l_open_gl_date date :='';
2766: l_period_name gl_period_statuses.period_name%TYPE := '';
2767: begin
2768: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, P_org_id);
2769: if l_period_name is null then
2770: ap_utilities_pkg.get_open_gl_date(p_date,
2771: l_period_name,
2772: l_open_gl_date,
2766: l_period_name gl_period_statuses.period_name%TYPE := '';
2767: begin
2768: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, P_org_id);
2769: if l_period_name is null then
2770: ap_utilities_pkg.get_open_gl_date(p_date,
2771: l_period_name,
2772: l_open_gl_date,
2773: P_org_id);
2774: if l_period_name is null then
2799: is
2800: l_open_gl_date date :='';
2801: l_period_name gl_period_statuses.period_name%TYPE := '';
2802: begin
2803: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, p_org_id);
2804: if l_period_name is null then
2805: ap_utilities_pkg.get_open_gl_date(p_date,
2806: l_period_name,
2807: l_open_gl_date,
2801: l_period_name gl_period_statuses.period_name%TYPE := '';
2802: begin
2803: l_period_name := ap_utilities_pkg.get_current_gl_date(p_date, p_org_id);
2804: if l_period_name is null then
2805: ap_utilities_pkg.get_open_gl_date(p_date,
2806: l_period_name,
2807: l_open_gl_date,
2808: p_org_id);
2809: if l_period_name is null then
2840: p_expenditure_org_id IN
2841: AP_INVOICE_DISTRIBUTIONS.EXPENDITURE_ORGANIZATION_ID%TYPE,
2842: p_expenditure_item_date IN
2843: AP_INVOICE_DISTRIBUTIONS.EXPENDITURE_ITEM_DATE%TYPE,
2844: p_invoice_attribute_rec IN AP_UTILITIES_PKG.r_invoice_attribute_rec, --bug 8713737
2845: p_billable_flag IN VARCHAR2, --Bug6523162
2846: p_employee_ccid IN NUMBER, --Bug5003249
2847: p_web_parameter_id IN NUMBER, --Bug5003249
2848: p_invoice_type_lookup_code IN VARCHAR2, --Bug5003249
3469: where ael.invoice_distribution_id = aid.charge_applicable_to_dist_id);
3470:
3471: BEGIN
3472:
3473: l_current_calling_sequence := 'AP_UTILITIES_PKG.'
3474: || 'Get_PO_Reversed_Encumb_Amount<-'
3475: || P_calling_sequence;
3476:
3477: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4041:
4042: --End 8691645
4043:
4044:
4045: END AP_UTILITIES_PKG;