21:
22: --==========================================================================
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_ap_match_tax_proc_pkg';
25: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
22: --==========================================================================
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_ap_match_tax_proc_pkg';
25: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_ap_match_tax_proc_pkg';
25: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
31: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'jai_ap_match_tax_proc_pkg';
25: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
31: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'JAI.PLSQL.jai_ap_match_tax_proc_pkg.';
25: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
31: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'JAI.PLSQL.jai_ap_match_tax_proc_pkg.';
33: G_JAI_APPLICATION_ID CONSTANT NUMBER := 7000;
26: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
31: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'JAI.PLSQL.jai_ap_match_tax_proc_pkg.';
33: G_JAI_APPLICATION_ID CONSTANT NUMBER := 7000;
34: G_PRODUCT_TABLE CONSTANT VARCHAR2(30) := 'JAI_CMN_DOCUMENT_TAXES';
27: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
29: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
30: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
31: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'JAI.PLSQL.jai_ap_match_tax_proc_pkg.';
33: G_JAI_APPLICATION_ID CONSTANT NUMBER := 7000;
34: G_PRODUCT_TABLE CONSTANT VARCHAR2(30) := 'JAI_CMN_DOCUMENT_TAXES';
35: G_MATCH_PRODUCT_TABLE CONSTANT VARCHAR2(30) := 'JAI_AP_MATCH_INV_TAXES';
88: l_api_name CONSTANT VARCHAR2(30) := 'get_service_account';
89: BEGIN
90:
91:
92: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
94: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters: p_rematch,'||p_rematch||'()+');
95: END IF;
96:
89: BEGIN
90:
91:
92: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
94: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters: p_rematch,'||p_rematch||'()+');
95: END IF;
96:
97: IF p_rematch = 'PO_MATCHING' THEN
90:
91:
92: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
94: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters: p_rematch,'||p_rematch||'()+');
95: END IF;
96:
97: IF p_rematch = 'PO_MATCHING' THEN
98: lb_charge_service_interim := TRUE;
127: ,p_organization_id => p_organization_id
128: ,p_location_id => p_location_id
129: ,p_tax_type => p_tax_type
130: ,p_account_name => jai_constants.recovery_interim);
131: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'recovery interim acct: '||ln_service_interim_account);
133: END IF;
134:
135: RETURN ln_service_interim_account;
128: ,p_location_id => p_location_id
129: ,p_tax_type => p_tax_type
130: ,p_account_name => jai_constants.recovery_interim);
131: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'recovery interim acct: '||ln_service_interim_account);
133: END IF;
134:
135: RETURN ln_service_interim_account;
136: ELSIF lb_service_reverse_charge THEN
139: ,p_organization_id => p_organization_id
140: ,p_location_id => p_location_id
141: ,p_tax_type => p_tax_type
142: ,p_account_name => 'REVERSE_CHARGE');
143: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'REVERSE_CHARGE acct: '||ln_service_reverse_account);
145: END IF;
146: RETURN ln_service_reverse_account;
147: ELSIF lb_service_reverse_liablility THEN
140: ,p_location_id => p_location_id
141: ,p_tax_type => p_tax_type
142: ,p_account_name => 'REVERSE_CHARGE');
143: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'REVERSE_CHARGE acct: '||ln_service_reverse_account);
145: END IF;
146: RETURN ln_service_reverse_account;
147: ELSIF lb_service_reverse_liablility THEN
148: ln_service_interim_account := jai_cmn_rgm_recording_pkg.get_account(p_regime_id => ln_service_regime_id
150: ,p_organization_id => p_organization_id
151: ,p_location_id => p_location_id
152: ,p_tax_type => p_tax_type
153: ,p_account_name => jai_constants.liability_interim);
154: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'ln_service_interim_liablity: '||ln_service_interim_account);
156: END IF;
157: RETURN ln_service_interim_account;
158: ELSE
151: ,p_location_id => p_location_id
152: ,p_tax_type => p_tax_type
153: ,p_account_name => jai_constants.liability_interim);
154: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'ln_service_interim_liablity: '||ln_service_interim_account);
156: END IF;
157: RETURN ln_service_interim_account;
158: ELSE
159: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'ln_service_interim_liablity: '||ln_service_interim_account);
156: END IF;
157: RETURN ln_service_interim_account;
158: ELSE
159: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
160: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'return null. ');
161: END IF;
162:
163: RETURN NULL;
156: END IF;
157: RETURN ln_service_interim_account;
158: ELSE
159: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
160: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'return null. ');
161: END IF;
162:
163: RETURN NULL;
164: END IF;
161: END IF;
162:
163: RETURN NULL;
164: END IF;
165: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
166: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
167: END IF;
168: EXCEPTION
169: WHEN OTHERS THEN
162:
163: RETURN NULL;
164: END IF;
165: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
166: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
167: END IF;
168: EXCEPTION
169: WHEN OTHERS THEN
170: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
167: END IF;
168: EXCEPTION
169: WHEN OTHERS THEN
170: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
172: END IF;
173: app_exception.raise_exception;
174: END get_service_account;
175:
189: l_api_name CONSTANT VARCHAR2(30) := 'update_payment_schedule';
190: BEGIN
191:
192:
193: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
194: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
195: END IF;
196:
197:
190: BEGIN
191:
192:
193: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
194: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
195: END IF;
196:
197:
198: Fnd_File.put_line(Fnd_File.LOG, 'Start of function update_payment_schedule');
260: end if;
261:
262:
263: return true;
264: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
265: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
266: END IF;
267: EXCEPTION
268: WHEN OTHERS THEN
261:
262:
263: return true;
264: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
265: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
266: END IF;
267: EXCEPTION
268: WHEN OTHERS THEN
269: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
266: END IF;
267: EXCEPTION
268: WHEN OTHERS THEN
269: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
270: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
271: END IF;
272: app_exception.raise_exception;
273:
274:
348: WHERE invoice_id = pn_invoice_id;
349: l_api_name CONSTANT VARCHAR2(30) := 'copy_tax_from_po_rcv';
350: BEGIN
351:
352: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
354: END IF;
355:
356:
349: l_api_name CONSTANT VARCHAR2(30) := 'copy_tax_from_po_rcv';
350: BEGIN
351:
352: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
354: END IF;
355:
356:
357: OPEN c_inv_line;
365: OPEN c_inv_source;
366: FETCH c_inv_source INTO lv_source;
367: CLOSE c_inv_source;
368:
369: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
370: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:Pn_invoice_id,'||Pn_invoice_id||',pn_invoice_line_num'||pn_invoice_line_num
371: ||',pv_rematch:'||pv_rematch||',lv_source:'||lv_source||'invoice_dist_id:'||r_ap_inv_dist_item.invoice_distribution_id
372: ||',pn_shipment_hdr_id:'||pn_shipment_hdr_id||',pn_shipment_line_id:'||pn_shipment_line_id
373: );
366: FETCH c_inv_source INTO lv_source;
367: CLOSE c_inv_source;
368:
369: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
370: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters:Pn_invoice_id,'||Pn_invoice_id||',pn_invoice_line_num'||pn_invoice_line_num
371: ||',pv_rematch:'||pv_rematch||',lv_source:'||lv_source||'invoice_dist_id:'||r_ap_inv_dist_item.invoice_distribution_id
372: ||',pn_shipment_hdr_id:'||pn_shipment_hdr_id||',pn_shipment_line_id:'||pn_shipment_line_id
373: );
374: END IF;
374: END IF;
375: FOR indx IN p_tax_line_tbl.FIRST .. p_tax_line_tbl.LAST
376: LOOP
377: l_tax_rec := p_tax_line_tbl(indx);
378: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters in p_tax_line_tbl,tax_id:'||
380: l_tax_rec.tax_id||',tax_line_no:'||l_tax_rec.tax_line_no||',tax_type:'||
381: l_tax_rec.tax_type||',tax_name'||l_tax_rec.tax_name||',tax_amount:'||
382: l_tax_rec.tax_amount||',rounding_factor'||l_tax_rec.rounding_factor||',modvat_flag:'||
375: FOR indx IN p_tax_line_tbl.FIRST .. p_tax_line_tbl.LAST
376: LOOP
377: l_tax_rec := p_tax_line_tbl(indx);
378: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'parameters in p_tax_line_tbl,tax_id:'||
380: l_tax_rec.tax_id||',tax_line_no:'||l_tax_rec.tax_line_no||',tax_type:'||
381: l_tax_rec.tax_type||',tax_name'||l_tax_rec.tax_name||',tax_amount:'||
382: l_tax_rec.tax_amount||',rounding_factor'||l_tax_rec.rounding_factor||',modvat_flag:'||
383: l_tax_rec.modvat_flag||',inc_tax_flag'||l_tax_rec.inc_tax_flag||',reverse_charge_flag:'||
400: ,pn_rvs_charge_liability_acct=>ln_rvs_liablity_acct
401: ,pn_incls_acct_id => ln_incls_acct_id
402: ,pr_ap_inv_dist_tax => r_ap_inv_dist_tax
403: );
404: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
405: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'out parameters after prepare_copy_tax,ln_lines_to_insert:'||
406: ln_lines_to_insert||',lv_accrue_on_receipt_flag:'||lv_accrue_on_receipt_flag||',lv_is_item_an_expense:'||
407: lv_is_item_an_expense||',lv_tax_type'||lv_tax_type||',ln_rec_tax_amt:'||
408: ln_rec_tax_amt||',ln_nrec_tax_amt'||ln_nrec_tax_amt||',ln_inclurec_tax_amt:'||
401: ,pn_incls_acct_id => ln_incls_acct_id
402: ,pr_ap_inv_dist_tax => r_ap_inv_dist_tax
403: );
404: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
405: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'out parameters after prepare_copy_tax,ln_lines_to_insert:'||
406: ln_lines_to_insert||',lv_accrue_on_receipt_flag:'||lv_accrue_on_receipt_flag||',lv_is_item_an_expense:'||
407: lv_is_item_an_expense||',lv_tax_type'||lv_tax_type||',ln_rec_tax_amt:'||
408: ln_rec_tax_amt||',ln_nrec_tax_amt'||ln_nrec_tax_amt||',ln_inclurec_tax_amt:'||
409: ln_inclurec_tax_amt||',ln_currency_precision'||ln_currency_precision||',ln_rvs_liablity_acct:'||
432:
433: END LOOP;
434:
435:
436: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
437: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
438: END IF;
439: EXCEPTION
440: WHEN OTHERS THEN
433: END LOOP;
434:
435:
436: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
437: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
438: END IF;
439: EXCEPTION
440: WHEN OTHERS THEN
441: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
438: END IF;
439: EXCEPTION
440: WHEN OTHERS THEN
441: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
442: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
443: END IF;
444: app_exception.raise_exception;
445:
446: END copy_tax_from_po_rcv;
643: l_api_name CONSTANT VARCHAR2(30) := 'populate_tax_to_ap';
644: BEGIN
645:
646:
647: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
648: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||'invoice_id:'
649: ||pr_ap_inv_line_item.invoice_id||'ln_invoice_id:'||ln_invoice_id );
650: END IF;
651: -- Cursor to select maximum line number from invoice lines for particular invoice
644: BEGIN
645:
646:
647: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
648: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||'invoice_id:'
649: ||pr_ap_inv_line_item.invoice_id||'ln_invoice_id:'||ln_invoice_id );
650: END IF;
651: -- Cursor to select maximum line number from invoice lines for particular invoice
652: SELECT max(line_number)
953: END IF; --(NVL(r_tax_lines_r ec.inc_tax_flag,'N') = 'N')
954: ln_dist_code_combination_id := nvl(ln_dist_code_combination_id,pr_ap_inv_dist_tax.dist_code_combination_id);
955:
956:
957: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'inclusive case?'||NVL(p_tax_line_rec.inc_tax_flag,'N')||'line:'
959: ||line||',v_tax_amount,'||v_tax_amount||',lv_tax_line_amount,'||lv_tax_line_amount||',lv_modvat_flag'||lv_modvat_flag
960: ||',lv_ap_line_to_inst_flag:'||lv_ap_line_to_inst_flag||',lv_tax_line_to_inst_flag:'||lv_tax_line_to_inst_flag
961: ||',ln_dist_code_combination_id:'||ln_dist_code_combination_id ||'v_assets_tracking_flag:'||v_assets_tracking_flag
954: ln_dist_code_combination_id := nvl(ln_dist_code_combination_id,pr_ap_inv_dist_tax.dist_code_combination_id);
955:
956:
957: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'inclusive case?'||NVL(p_tax_line_rec.inc_tax_flag,'N')||'line:'
959: ||line||',v_tax_amount,'||v_tax_amount||',lv_tax_line_amount,'||lv_tax_line_amount||',lv_modvat_flag'||lv_modvat_flag
960: ||',lv_ap_line_to_inst_flag:'||lv_ap_line_to_inst_flag||',lv_tax_line_to_inst_flag:'||lv_tax_line_to_inst_flag
961: ||',ln_dist_code_combination_id:'||ln_dist_code_combination_id ||'v_assets_tracking_flag:'||v_assets_tracking_flag
962: ||',ln_tax_precision'|| ln_tax_precision||',pn_currency_precision '||pn_currency_precision||',ln_project_id:'||ln_project_id ||'ln_task_id:'||ln_task_id );
1383: lr_ap_inv_line_incl_tax.reference_key1 := p_tax_line_rec.tax_id;
1384: lr_ap_inv_line_incl_tax.reference_key2 := pr_ap_inv_line_item.line_number;
1385: END IF;
1386:
1387: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Before inserting
1389: Inclusive Service tax lines for POT into ap_line ');
1390: END IF;
1391:
1384: lr_ap_inv_line_incl_tax.reference_key2 := pr_ap_inv_line_item.line_number;
1385: END IF;
1386:
1387: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Before inserting
1389: Inclusive Service tax lines for POT into ap_line ');
1390: END IF;
1391:
1392: jai_ap_match_tax_proc_pkg.insert_ap_inv_line( p_ap_invoice_lines_all_rec => lr_ap_inv_line_incl_tax);
1411: THEN
1412: lr_ap_inv_dist_incl_tax.charge_applicable_to_dist_id := pr_ap_inv_dist_item.invoice_distribution_id;
1413: END IF;
1414:
1415: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Before inserting
1417: Inclusive Service tax lines for POT into ap_dist ');
1418: END IF;
1419: v_invoice_distribution_id := jai_ap_match_tax_proc_pkg.insert_ap_inv_dist( p_ap_invoice_dist_all_rec => lr_ap_inv_dist_incl_tax);
1412: lr_ap_inv_dist_incl_tax.charge_applicable_to_dist_id := pr_ap_inv_dist_item.invoice_distribution_id;
1413: END IF;
1414:
1415: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Before inserting
1417: Inclusive Service tax lines for POT into ap_dist ');
1418: END IF;
1419: v_invoice_distribution_id := jai_ap_match_tax_proc_pkg.insert_ap_inv_dist( p_ap_invoice_dist_all_rec => lr_ap_inv_dist_incl_tax);
1420:
1442: lr_ap_inv_line_liability.amount := -abs(lr_ap_inv_line_liability.amount);
1443: lr_ap_inv_line_liability.LINE_NUMBER := ln_inv_line_num;
1444: jai_ap_match_tax_proc_pkg.insert_ap_inv_line( p_ap_invoice_lines_all_rec => lr_ap_inv_line_liability);
1445:
1446: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1447: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'insert_ap_inv_line liability line for reverse charge with amt:'||lr_ap_inv_line_liability.amount);
1448: END IF;
1449: lr_ap_inv_dist_liability.INVOICE_LINE_NUMBER := ln_inv_line_num;
1450: v_liability_inv_dist_id := jai_ap_match_tax_proc_pkg.insert_ap_inv_dist(lr_ap_inv_dist_liability);
1443: lr_ap_inv_line_liability.LINE_NUMBER := ln_inv_line_num;
1444: jai_ap_match_tax_proc_pkg.insert_ap_inv_line( p_ap_invoice_lines_all_rec => lr_ap_inv_line_liability);
1445:
1446: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1447: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'insert_ap_inv_line liability line for reverse charge with amt:'||lr_ap_inv_line_liability.amount);
1448: END IF;
1449: lr_ap_inv_dist_liability.INVOICE_LINE_NUMBER := ln_inv_line_num;
1450: v_liability_inv_dist_id := jai_ap_match_tax_proc_pkg.insert_ap_inv_dist(lr_ap_inv_dist_liability);
1451: END IF;
1477: where invoice_id = ln_invoice_id;
1478: end if;
1479:
1480: end if;
1481: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1482: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1483: END IF;
1484: EXCEPTION
1485: WHEN OTHERS THEN
1478: end if;
1479:
1480: end if;
1481: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1482: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1483: END IF;
1484: EXCEPTION
1485: WHEN OTHERS THEN
1486: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1483: END IF;
1484: EXCEPTION
1485: WHEN OTHERS THEN
1486: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1487: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1488: END IF;
1489: app_exception.raise_exception;
1490:
1491: END populate_tax_to_ap;
1662:
1663:
1664: l_api_name CONSTANT VARCHAR2(30) := 'prepare_copy_tax';
1665: BEGIN
1666: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1668: END IF;
1669: OPEN for_org_id;
1670: FETCH for_org_id INTO for_org_id_rec;
1663:
1664: l_api_name CONSTANT VARCHAR2(30) := 'prepare_copy_tax';
1665: BEGIN
1666: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1668: END IF;
1669: OPEN for_org_id;
1670: FETCH for_org_id INTO for_org_id_rec;
1671: CLOSE for_org_id;
1971: pr_ap_inv_dist_tax.pa_addition_flag := lv_pa_addition_flag;
1972: pr_ap_inv_dist_tax.distribution_class := lv_dist_class;
1973: pr_ap_inv_dist_tax.dist_match_type := pr_ap_inv_dist_item.dist_match_type;
1974:
1975: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1976: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1977: END IF;
1978: EXCEPTION
1979: WHEN OTHERS THEN
1972: pr_ap_inv_dist_tax.distribution_class := lv_dist_class;
1973: pr_ap_inv_dist_tax.dist_match_type := pr_ap_inv_dist_item.dist_match_type;
1974:
1975: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1976: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
1977: END IF;
1978: EXCEPTION
1979: WHEN OTHERS THEN
1980: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1977: END IF;
1978: EXCEPTION
1979: WHEN OTHERS THEN
1980: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1981: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1982: END IF;
1983: app_exception.raise_exception;
1984:
1985:
1989: p_jai_ap_match_taxes_rec IN JAI_AP_MATCH_INV_TAXES%ROWTYPE
1990: )IS
1991: l_api_name CONSTANT VARCHAR2(50) := 'insert_jai_ap_match()';
1992: BEGIN
1993: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1994: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1995: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_jai_ap_match_taxes_rec.INVOICE_LINE_NUMBER);
1996:
1997: END IF;
1990: )IS
1991: l_api_name CONSTANT VARCHAR2(50) := 'insert_jai_ap_match()';
1992: BEGIN
1993: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1994: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1995: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_jai_ap_match_taxes_rec.INVOICE_LINE_NUMBER);
1996:
1997: END IF;
1998:
1991: l_api_name CONSTANT VARCHAR2(50) := 'insert_jai_ap_match()';
1992: BEGIN
1993: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1994: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1995: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_jai_ap_match_taxes_rec.INVOICE_LINE_NUMBER);
1996:
1997: END IF;
1998:
1999: INSERT INTO JAI_AP_MATCH_INV_TAXES
2072: );
2073:
2074:
2075:
2076: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2078: END IF;
2079: EXCEPTION
2080: WHEN OTHERS THEN
2073:
2074:
2075:
2076: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2077: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2078: END IF;
2079: EXCEPTION
2080: WHEN OTHERS THEN
2081: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2078: END IF;
2079: EXCEPTION
2080: WHEN OTHERS THEN
2081: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2082: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2083: END IF;
2084: app_exception.raise_exception;
2085:
2086: END insert_jai_ap_match;
2089: p_ap_invoice_lines_all_rec IN ap_invoice_lines_all%ROWTYPE
2090: )IS
2091: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_line()';
2092: BEGIN
2093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_lines_all_rec.LINE_NUMBER);
2096: END IF;
2097:
2090: )IS
2091: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_line()';
2092: BEGIN
2093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_lines_all_rec.LINE_NUMBER);
2096: END IF;
2097:
2098: INSERT INTO ap_invoice_lines_all
2091: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_line()';
2092: BEGIN
2093: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_lines_all_rec.LINE_NUMBER);
2096: END IF;
2097:
2098: INSERT INTO ap_invoice_lines_all
2099: (INVOICE_ID
2504: ,p_ap_invoice_lines_all_rec.PAY_AWT_GROUP_ID
2505: );
2506:
2507:
2508: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2510: END IF;
2511: EXCEPTION
2512: WHEN OTHERS THEN
2505: );
2506:
2507:
2508: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2509: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
2510: END IF;
2511: EXCEPTION
2512: WHEN OTHERS THEN
2513: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2510: END IF;
2511: EXCEPTION
2512: WHEN OTHERS THEN
2513: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2514: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2515: END IF;
2516: app_exception.raise_exception;
2517: END insert_ap_inv_line;
2518:
2525:
2526: ln_dist_id NUMBER;
2527: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_dist()';
2528: BEGIN
2529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_dist_all_rec.INVOICE_LINE_NUMBER);
2532: END IF;
2533: OPEN c_get_inv_dist_id;
2526: ln_dist_id NUMBER;
2527: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_dist()';
2528: BEGIN
2529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_dist_all_rec.INVOICE_LINE_NUMBER);
2532: END IF;
2533: OPEN c_get_inv_dist_id;
2534: FETCH c_get_inv_dist_id INTO ln_dist_id;
2527: l_api_name CONSTANT VARCHAR2(50) := 'insert_ap_inv_dist()';
2528: BEGIN
2529: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'invoice line num: '||p_ap_invoice_dist_all_rec.INVOICE_LINE_NUMBER);
2532: END IF;
2533: OPEN c_get_inv_dist_id;
2534: FETCH c_get_inv_dist_id INTO ln_dist_id;
2535: CLOSE c_get_inv_dist_id;
3026: ,p_ap_invoice_dist_all_rec.PAY_AWT_GROUP_ID
3027: );
3028:
3029: RETURN ln_dist_id;
3030: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3031: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3032: END IF;
3033: EXCEPTION
3034: WHEN OTHERS THEN
3027: );
3028:
3029: RETURN ln_dist_id;
3030: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3031: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3032: END IF;
3033: EXCEPTION
3034: WHEN OTHERS THEN
3035: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3032: END IF;
3033: EXCEPTION
3034: WHEN OTHERS THEN
3035: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3036: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3037: END IF;
3038: app_exception.raise_exception;
3039: END insert_ap_inv_dist;
3040:
3138: v_initial_count NUMBER := 0;
3139: v_count NUMBER := 0;
3140: l_api_name CONSTANT VARCHAR2(50) := 'get_match_type()';
3141: BEGIN
3142: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3144: END IF;
3145:
3146: OPEN c_invoice_line;
3139: v_count NUMBER := 0;
3140: l_api_name CONSTANT VARCHAR2(50) := 'get_match_type()';
3141: BEGIN
3142: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3144: END IF;
3145:
3146: OPEN c_invoice_line;
3147: FETCH c_invoice_line INTO r_ap_inv_line_item;
3314:
3315: IF pv_match_type = 'PAY_ON_RECEIPT' AND r_ap_inv_line_item.rcv_transaction_id IS NOT NULL THEN
3316: pv_match_type := 'RCV_MATCHING';
3317: END IF;
3318: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3320: END IF;
3321: EXCEPTION
3322: WHEN OTHERS THEN
3315: IF pv_match_type = 'PAY_ON_RECEIPT' AND r_ap_inv_line_item.rcv_transaction_id IS NOT NULL THEN
3316: pv_match_type := 'RCV_MATCHING';
3317: END IF;
3318: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3320: END IF;
3321: EXCEPTION
3322: WHEN OTHERS THEN
3323: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3320: END IF;
3321: EXCEPTION
3322: WHEN OTHERS THEN
3323: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3324: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3325: END IF;
3326: app_exception.raise_exception;
3327: END get_match_type;
3328: FUNCTION apportion_tax_4_price_cor_inv
3432: ln_apportn_factor_for_adhoc NUMBER;
3433: ln_apported_tax_amount NUMBER;
3434: l_api_name CONSTANT VARCHAR2(30) := 'tax_apportion_convert';
3435: BEGIN
3436: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3437: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3438: END IF;
3439:
3440: IF nvl(pv_adhoc_flag,'N') = 'Y' THEN
3433: ln_apported_tax_amount NUMBER;
3434: l_api_name CONSTANT VARCHAR2(30) := 'tax_apportion_convert';
3435: BEGIN
3436: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3437: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3438: END IF;
3439:
3440: IF nvl(pv_adhoc_flag,'N') = 'Y' THEN
3441:
3466: END IF;
3467: ln_apported_tax_amount := nvl(ln_apported_tax_amount,-1);
3468:
3469: RETURN ln_apported_tax_amount;
3470: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3471: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3472: END IF;
3473: EXCEPTION
3474: WHEN OTHERS THEN
3467: ln_apported_tax_amount := nvl(ln_apported_tax_amount,-1);
3468:
3469: RETURN ln_apported_tax_amount;
3470: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3471: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3472: END IF;
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3472: END IF;
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3476: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3477: END IF;
3478: app_exception.raise_exception;
3479:
3480: END tax_apportion_convert;
3509: FETCH c_rcv_organization_id
3510: INTO pn_organization_id, pn_location_id;
3511: CLOSE c_rcv_organization_id;
3512: END IF;
3513: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3515: END IF;
3516: EXCEPTION
3517: WHEN OTHERS THEN
3510: INTO pn_organization_id, pn_location_id;
3511: CLOSE c_rcv_organization_id;
3512: END IF;
3513: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name);
3515: END IF;
3516: EXCEPTION
3517: WHEN OTHERS THEN
3518: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3515: END IF;
3516: EXCEPTION
3517: WHEN OTHERS THEN
3518: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3519: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3520: END IF;
3521: app_exception.raise_exception;
3522:
3523: