[Home] [Help]
460: SELECT fts.treasury_symbol
461: INTO v_treasury_symbol
462: FROM fv_fund_parameters ffp,
463: fv_treasury_symbols fts,
464: gl_code_combinations glc
465: WHERE DECODE(lv_bal_seg_name, 'SEGMENT1', glc.segment1, 'SEGMENT2', glc.segment2, 'SEGMENT3', glc.segment3, 'SEGMENT4',
466: glc.segment4, 'SEGMENT5', glc.segment5, 'SEGMENT6', glc.segment6, 'SEGMENT7', glc.segment7, 'SEGMENT8', glc.segment8, 'SEGMENT9',
467: glc.segment9, 'SEGMENT10',glc.segment10, 'SEGMENT11',glc.segment11,'SEGMENT12',glc.segment12, 'SEGMENT13',glc.segment13,'SEGMENT14',
468: glc.segment14, 'SEGMENT15',glc.segment15,'SEGMENT16',glc.segment16, 'SEGMENT17',glc.segment17,'SEGMENT18',glc.segment18, 'SEGMENT19',
489: -- Function to get the transaction exception category
490: -- based on the passed transaction record values
491: 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
492: IS
493: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
494: BEGIN
495: v_trx_excpt_cat := NULL;
496: -- Get the exception only if the account class is not REC
497: IF transaction_rec.account_class <> 'REC' THEN -- REC check
762: -- Parameter : Code combination Id
763: -- Return Value : GL Account Number
764: FUNCTION gl_account_num(p_ccid NUMBER) RETURN VARCHAR2
765: IS
766: l_gl_account_num gl_code_combinations.segment1%TYPE;
767: l_module_name VARCHAR2(200);
768: BEGIN
769: l_module_name:=g_module_name||'gl_account_num';
770:
803: glc.segment28, 'SEGMENT29',
804: glc.segment29,'SEGMENT30',
805: glc.segment30)
806: INTO l_gl_account_num
807: FROM gl_code_combinations glc
808: WHERE code_combination_id = p_ccid
809: AND glc.chart_of_accounts_id = flex_num;
810:
811: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
876: -- The Function will set the p_valid_falg to 'Y' is the passed SGL Account is
877: -- USSGL Account else to 'N''
878: FUNCTION get_ussgl_account(p_gl_account_num IN VARCHAR2, p_valid_flag OUT NOCOPY VARCHAR2) RETURN VARCHAR2
879: IS
880: l_parent_gl_account_num gl_code_combinations.segment1%TYPE;
881: l_enabled_flag VARCHAR2(1);
882: BEGIN
883: --Check for the Validity of the SGL Account
884: SELECT ussgl_enabled_flag
938:
939: --Function to get the SGL Exception
940: FUNCTION get_sgl_exception(p_acct_num VARCHAR2, p_sgl_acct_num OUT NOCOPY VARCHAR2) RETURN VARCHAR2
941: IS
942: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
943: l_valid_flag VARCHAR2(1);
944: BEGIN
945: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
946: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'IPAC FY2003-04 GET SGL EXCEPTION');
1194: l_ignore_budgetary_flag VARCHAR2(1);
1195: l_drcr_acct Gl_Ussgl_Account_Pairs.dr_account_segment_value%TYPE;
1196: trx_rec fv_ipac_trx_all%ROWTYPE;
1197: v_commitment_id ra_customer_trx_all.initial_customer_trx_id%TYPE;
1198: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
1199: l_module_name VARCHAR2(200) ;
1200: l_bill_to_address_id Number;
1201: BEGIN
1202: l_module_name := g_module_name || 'main';
1691: -- l_event_type_code VARCHAR2(30);
1692: l_ae_header_id NUMBER;
1693: l_amount NUMBER;
1694: l_cr_dr_flag VARCHAR2(1);
1695: l_gl_account_num gl_code_combinations.segment1%TYPE;
1696: l_trx_dist_id NUMBER;
1697: l_trx_line_no NUMBER;
1698: l_trx_number VARCHAR2(20);
1699: l_trx_date DATE;
1705: x_errbuf VARCHAR2(1000);
1706: x_retcode NUMBER;
1707: x_request_id NUMBER;
1708: sgl_acct_num varchar2(30);
1709: l_sgl_acct_num gl_code_combinations.segment1%TYPE;
1710: l_module_name VARCHAR2(200) ;
1711: -- l_event_stat VARCHAR2(1);
1712: l_is_line_no BOOLEAN;
1713: