[Home] [Help]
468: SELECT fts.treasury_symbol
469: INTO v_treasury_symbol
470: FROM fv_fund_parameters ffp,
471: fv_treasury_symbols fts,
472: gl_code_combinations glc
473: WHERE DECODE(lv_bal_seg_name, 'SEGMENT1', glc.segment1, 'SEGMENT2', glc.segment2, 'SEGMENT3', glc.segment3, 'SEGMENT4',
474: glc.segment4, 'SEGMENT5', glc.segment5, 'SEGMENT6', glc.segment6, 'SEGMENT7', glc.segment7, 'SEGMENT8', glc.segment8, 'SEGMENT9',
475: glc.segment9, 'SEGMENT10',glc.segment10, 'SEGMENT11',glc.segment11,'SEGMENT12',glc.segment12, 'SEGMENT13',glc.segment13,'SEGMENT14',
476: glc.segment14, 'SEGMENT15',glc.segment15,'SEGMENT16',glc.segment16, 'SEGMENT17',glc.segment17,'SEGMENT18',glc.segment18, 'SEGMENT19',
497: -- Function to get the transaction exception category
498: -- based on the passed transaction record values
499: FUNCTION get_trx_exception( transaction_rec IN OUT NOCOPY fv_ipac_trx_all%ROWTYPE, p_cust_trx_line_id NUMBER, p_bill_to_address_id NUMBER) RETURN VARCHAR2
500: IS
501: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
502: BEGIN
503: v_trx_excpt_cat := NULL;
504: -- Get the exception only if the account class is not REC
505: IF transaction_rec.account_class <> 'REC' THEN -- REC check
778: -- Parameter : Code combination Id
779: -- Return Value : GL Account Number
780: FUNCTION gl_account_num(p_ccid NUMBER) RETURN VARCHAR2
781: IS
782: l_gl_account_num gl_code_combinations.segment1%TYPE;
783: l_module_name VARCHAR2(200);
784: BEGIN
785: l_module_name:=g_module_name||'gl_account_num';
786:
819: glc.segment28, 'SEGMENT29',
820: glc.segment29,'SEGMENT30',
821: glc.segment30)
822: INTO l_gl_account_num
823: FROM gl_code_combinations glc
824: WHERE code_combination_id = p_ccid
825: AND glc.chart_of_accounts_id = flex_num;
826:
827: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
892: -- The Function will set the p_valid_falg to 'Y' is the passed SGL Account is
893: -- USSGL Account else to 'N''
894: FUNCTION get_ussgl_account(p_gl_account_num IN VARCHAR2, p_valid_flag OUT NOCOPY VARCHAR2) RETURN VARCHAR2
895: IS
896: l_parent_gl_account_num gl_code_combinations.segment1%TYPE;
897: l_enabled_flag VARCHAR2(1);
898: BEGIN
899: --Check for the Validity of the SGL Account
900: SELECT ussgl_enabled_flag
954:
955: --Function to get the SGL Exception
956: FUNCTION get_sgl_exception(p_acct_num VARCHAR2, p_sgl_acct_num OUT NOCOPY VARCHAR2) RETURN VARCHAR2
957: IS
958: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
959: l_valid_flag VARCHAR2(1);
960: BEGIN
961: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
962: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'IPAC FY2003-04 GET SGL EXCEPTION');
1210: l_ignore_budgetary_flag VARCHAR2(1);
1211: l_drcr_acct Gl_Ussgl_Account_Pairs.dr_account_segment_value%TYPE;
1212: trx_rec fv_ipac_trx_all%ROWTYPE;
1213: v_commitment_id ra_customer_trx_all.initial_customer_trx_id%TYPE;
1214: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
1215: l_module_name VARCHAR2(200) ;
1216: l_bill_to_address_id Number;
1217: BEGIN
1218: l_module_name := g_module_name || 'main';
1732: -- l_event_type_code VARCHAR2(30);
1733: l_ae_header_id NUMBER;
1734: l_amount NUMBER;
1735: l_cr_dr_flag VARCHAR2(1);
1736: l_gl_account_num gl_code_combinations.segment1%TYPE;
1737: l_trx_dist_id NUMBER;
1738: l_trx_line_no NUMBER;
1739: l_trx_number VARCHAR2(20);
1740: l_trx_date DATE;
1746: x_errbuf VARCHAR2(1000);
1747: x_retcode NUMBER;
1748: x_request_id NUMBER;
1749: sgl_acct_num varchar2(30);
1750: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
1751: l_module_name VARCHAR2(200) ;
1752: -- l_event_stat VARCHAR2(1);
1753: l_is_line_no BOOLEAN;
1754: