[Home] [Help]
1: PACKAGE BODY PSA_MFAR_ADJUSTMENTS AS
2: /* $Header: PSAMFADB.pls 120.22 2006/09/13 12:14:12 agovil ship $ */
3:
4: --
5: -- global variables
3:
4: --
5: -- global variables
6: --
7: g_adjustment_id ar_adjustments_all.adjustment_id%type;
8: g_set_of_books_id ra_customer_trx_all.set_of_books_id%type;
9: g_customer_trx_id ra_cust_trx_line_gl_dist_all.customer_trx_id%type;
10: g_cust_trx_line_id ra_cust_trx_line_gl_dist_all.customer_trx_line_id%type;
11: g_adj_ccid ar_adjustments_all.code_combination_id%type;
7: g_adjustment_id ar_adjustments_all.adjustment_id%type;
8: g_set_of_books_id ra_customer_trx_all.set_of_books_id%type;
9: g_customer_trx_id ra_cust_trx_line_gl_dist_all.customer_trx_id%type;
10: g_cust_trx_line_id ra_cust_trx_line_gl_dist_all.customer_trx_line_id%type;
11: g_adj_ccid ar_adjustments_all.code_combination_id%type;
12: g_adj_amount ar_adjustments_all.amount%type;
13: g_adj_type ar_adjustments_all.type%type;
14: g_run_id NUMBER;
15:
8: g_set_of_books_id ra_customer_trx_all.set_of_books_id%type;
9: g_customer_trx_id ra_cust_trx_line_gl_dist_all.customer_trx_id%type;
10: g_cust_trx_line_id ra_cust_trx_line_gl_dist_all.customer_trx_line_id%type;
11: g_adj_ccid ar_adjustments_all.code_combination_id%type;
12: g_adj_amount ar_adjustments_all.amount%type;
13: g_adj_type ar_adjustments_all.type%type;
14: g_run_id NUMBER;
15:
16: --===========================FND_LOG.START=====================================
9: g_customer_trx_id ra_cust_trx_line_gl_dist_all.customer_trx_id%type;
10: g_cust_trx_line_id ra_cust_trx_line_gl_dist_all.customer_trx_line_id%type;
11: g_adj_ccid ar_adjustments_all.code_combination_id%type;
12: g_adj_amount ar_adjustments_all.amount%type;
13: g_adj_type ar_adjustments_all.type%type;
14: g_run_id NUMBER;
15:
16: --===========================FND_LOG.START=====================================
17: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
19: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
20: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
22: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFADB.PSA_MFAR_ADJUSTMENTS.';
24: --===========================FND_LOG.END=======================================
25:
26: --
27: -- Local Procedures
103: adj.customer_trx_line_id cust_trx_line_id,
104: ard.code_combination_id adj_ccid,
105: adj.amount adj_amount,
106: adj.type adj_type
107: From ar_adjustments adj,
108: ar_distributions ard
109: Where adj.adjustment_id = g_adjustment_id
110: and adj.adjustment_id = ard.source_id
111: and ard.source_table = 'ADJ'
323: -- ========================= FND LOG ===========================
324: RETURN FALSE;
325:
326: WHEN FLEX_COMPARE_ERROR THEN
327: l_exception_error := 'EXCEPTION - FLEX_COMPARE_ERROR PACKAGE - PSA_MFAR_ADJUSTMENTS.CREATE_DISTRIBUTIONS - '||FND_MESSAGE.GET;
328: PSA_MFAR_UTILS.INSERT_DISTRIBUTIONS_LOG (g_run_id, 'ADJUSTMENT', g_customer_trx_id, g_adjustment_id, l_exception_error);
329: p_error_message := l_exception_error;
330: retcode := 'F';
331: -- ========================= FND LOG ===========================
333: -- ========================= FND LOG ===========================
334: RETURN FALSE;
335:
336: WHEN OTHERS THEN
337: l_exception_error := 'EXCEPTION - OTHERS PACKAGE - PSA_MFAR_ADJUSTMENTS.CREATE_DISTRIBUTIONS - '||SQLCODE || ' - ' || SQLERRM;
338: PSA_MFAR_UTILS.INSERT_DISTRIBUTIONS_LOG (g_run_id, 'ADJUSTMENT', g_customer_trx_id, g_adjustment_id, l_exception_error);
339: p_error_message := l_exception_error;
340: retcode := 'F';
341: -- ========================= FND LOG ===========================
386: -- Bug 3140981: c_adj_gl_source to identify the adjustment type's GL Account source
387:
388: CURSOR c_adj_gl_source IS
389: SELECT gl_account_source
390: FROM ar_receivables_trx r, ar_adjustments a
391: WHERE r.receivables_trx_id = a.receivables_trx_id
392: AND a.adjustment_id = g_adjustment_id;
393:
394:
393:
394:
395: l_mf_adjustments_rec c_mf_adjustments%rowtype;
396: p_ccid psa_mf_adj_dist_all.mf_adjustment_ccid%type;
397: l_temp_adj_type ar_adjustments_all.type%type;
398: l_flexbuild_error_reason VARCHAR2(2000);
399: l_total_amount_due NUMBER;
400: l_row_id VARCHAR2(100);
401:
475:
476: IF (g_adj_type = 'LINE') THEN
477:
478: SELECT customer_trx_line_id INTO l_customer_trx_line_id
479: FROM ar_adjustments
480: WHERE adjustment_id = g_adjustment_id;
481:
482: END IF;
483:
739: RETURN TRUE;
740:
741: EXCEPTION
742: WHEN FLEX_BUILD_ERROR THEN
743: l_exception_error := 'EXCEPTION - FLEX_BUILD_ERROR PACKAGE - PSA_MFAR_ADJUSTMENTS.GENERATE_ADJ_DIST '||FND_MESSAGE.GET;
744: PSA_MFAR_UTILS.INSERT_DISTRIBUTIONS_LOG (g_run_id, 'ADJUSTMENT', g_customer_trx_id, g_adjustment_id, l_exception_error);
745: p_error_message := l_exception_error;
746: RETCODE := 'F';
747: -- ========================= FND LOG ===========================
749: -- ========================= FND LOG ===========================
750: RETURN FALSE;
751:
752: WHEN OTHERS THEN
753: l_exception_error := 'EXCEPTION - OTHERS PACKAGE - PSA_MFAR_ADJUSTMENTS.GENERATE_ADJ_DIST '||SQLCODE || ' - ' || SQLERRM;
754: PSA_MFAR_UTILS.INSERT_DISTRIBUTIONS_LOG (g_run_id, 'ADJUSTMENT', g_customer_trx_id, g_adjustment_id, l_exception_error);
755: p_error_message := l_exception_error;
756: RETCODE := 'F';
757: -- ========================= FND LOG ===========================
815: END IF;
816:
817: END FIND_TAX_FREIGHT_LINES;
818:
819: END PSA_MFAR_ADJUSTMENTS;