[Home] [Help]
1: PACKAGE BODY AP_INVOICE_LINES_PKG as
2: /* $Header: apinlinb.pls 120.64.12010000.10 2008/12/04 11:47:49 njakkula ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_INVOICE_LINES_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
1: PACKAGE BODY AP_INVOICE_LINES_PKG as
2: /* $Header: apinlinb.pls 120.64.12010000.10 2008/12/04 11:47:49 njakkula ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_INVOICE_LINES_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(100) := 'AP.PLSQL.AP_INVOICE_LINES_PKG.';
21:
22: PROCEDURE Print (p_api_name IN VARCHAR2, p_debug_info IN VARCHAR2);
23:
24: -----------------------------------------------------------------------
30: X_vendor_id IN AP_INVOICES.VENDOR_ID%TYPE,
31: X_invoice_date IN AP_INVOICES.INVOICE_DATE%TYPE,
32: X_invoice_lines_rec IN AP_INVOICES_PKG.r_invoice_line_rec,
33: X_line_source IN VARCHAR2,
34: X_dist_tab IN OUT NOCOPY AP_INVOICE_LINES_PKG.dist_tab_type,
35: X_dist_set_total_percent IN NUMBER,
36: X_exchange_rate IN AP_INVOICES.EXCHANGE_RATE%TYPE,
37: X_exchange_rate_type IN AP_INVOICES.EXCHANGE_RATE_TYPE%TYPE,
38: X_exchange_date IN AP_INVOICES.EXCHANGE_DATE%TYPE,
167:
168: -- Update the calling sequence
169: --
170: current_calling_sequence :=
171: 'AP_INVOICE_LINES_PKG.generate_dist_tab_for_dist_set<-'
172: ||X_calling_sequence;
173: l_api_name := 'Generate_Dist_Tab_For_Dist_Set';
174: --------------------------------------------------------------
175: -- Step 1
1198: l_msg_count NUMBER;
1199: l_msg_data VARCHAR2(30);
1200: l_error_code VARCHAR2(30);
1201:
1202: y_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
1203:
1204: current_calling_sequence VARCHAR2(1000);
1205: debug_info VARCHAR2(2000);
1206: debug_context VARCHAR2(1000);
1208:
1209: BEGIN
1210: -- Update the calling sequence
1211: --
1212: current_calling_sequence := 'AP_INVOICE_LINES_PKG.insert_from_dist_set<-'
1213: ||X_calling_sequence;
1214: --------------------------------------------------------------
1215: -- Step 1 - Validate that distribution set was passed or
1216: -- get it from the line IF line already exists.
1960: l_shipment_qty_financed := 0;
1961:
1962: l_api_name := 'Discard_Inv_Line';
1963:
1964: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
1965: P_calling_sequence;
1966:
1967: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1968: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');
1964: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
1965: P_calling_sequence;
1966:
1967: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1968: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');
1969: END IF;
1970:
1971:
1972: SELECT invoice_type_lookup_code,
2120: l_debug_info := 'Reverse charge distributions';
2121: Print (l_api_name,l_debug_info);
2122: ----------------------------------------------------------------------------
2123:
2124: if not ap_invoice_lines_pkg.reverse_charge_distributions
2125: (p_inv_line_rec => l_chrg_line_rec
2126: ,p_calling_mode => p_calling_mode
2127: ,x_error_code => l_error_code
2128: ,x_debug_info => l_debug_info
2580:
2581: IF ( l_distribution_count <> 0 ) THEN
2582:
2583: l_debug_info := 'Get the maximum distribution line number';
2584: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num(
2585: p_line_rec.invoice_id,
2586: p_line_rec.line_number);
2587:
2588: /*-----------------------------------------------------------------+
3269: END IF;
3270:
3271: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3272: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
3273: 'AP_INVOICE_LINES_PKG.Discard_Inv_Line(-)');
3274: END IF;
3275:
3276: p_error_code := NULL;
3277: RETURN (TRUE);
3322: l_api_name := 'Reverse_Charge_Distributions';
3323: ------------------------------------------------------
3324: Print (l_api_name,'Reverse_Charge_Distributions (+)');
3325: ------------------------------------------------------
3326: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
3327:
3328:
3329: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
3330: (p_inv_line_rec.invoice_id,
3325: ------------------------------------------------------
3326: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
3327:
3328:
3329: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
3330: (p_inv_line_rec.invoice_id,
3331: p_inv_line_rec.line_number);
3332:
3333: ------------------------------------------------------
3682: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name,p_debug_info);
3683: END IF;
3684: END Print;
3685:
3686: END AP_INVOICE_LINES_PKG;
3687: