DBA Data[Home] [Help]

APPS.FV_CGAC_CRT_TAS dependencies on FV_CGAC_CRT_TAS

Line 1: PACKAGE BODY FV_CGAC_CRT_TAS AS

1: PACKAGE BODY FV_CGAC_CRT_TAS AS
2: --$Header: FVCRTTASB.pls 120.26.12020000.2 2013/02/13 14:24:16 snama ship $
3: -- GLOBAL VARIABLES
4: g_coa_id Gl_Sets_Of_Books.chart_of_accounts_id%TYPE;
5: g_module_name VARCHAR2(100) := 'fv.plsql.FV_CGAC_CRT_TAS.';

Line 5: g_module_name VARCHAR2(100) := 'fv.plsql.FV_CGAC_CRT_TAS.';

1: PACKAGE BODY FV_CGAC_CRT_TAS AS
2: --$Header: FVCRTTASB.pls 120.26.12020000.2 2013/02/13 14:24:16 snama ship $
3: -- GLOBAL VARIABLES
4: g_coa_id Gl_Sets_Of_Books.chart_of_accounts_id%TYPE;
5: g_module_name VARCHAR2(100) := 'fv.plsql.FV_CGAC_CRT_TAS.';
6:
7: -- TO RECORD EXCEPTIONS
8: g_error_code NUMBER;
9: g_error BOOLEAN;

Line 18: -- table fv_cgac_crt_tas_temp. This table contains data used

14: -- ------------------------------------------------------------------
15: -- Procedure purge_interface_table
16: -- ------------------------------------------------------------------
17: -- Procedure that is called from Main method to purge the interface
18: -- table fv_cgac_crt_tas_temp. This table contains data used
19: -- for creating the Create Annual Treasury Account Symbols report output.
20: -- ------------------------------------------------------------------
21:
22: PROCEDURE purge_interface_table IS

Line 32: DELETE FROM fv_cgac_crt_tas_temp;

28: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
29: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START CGAC PURGE_INTERFACE_TABLE PROCESS.....');
30: END IF;
31:
32: DELETE FROM fv_cgac_crt_tas_temp;
33: COMMIT;
34:
35: EXCEPTION
36: --

Line 113: cgac_crttas_record FV_CGAC_CRT_TAS_TEMP%ROWTYPE;

109: treasury_symbol_record FV_TREASURY_SYMBOLS%ROWTYPE;
110: fund_values_record FV_FUND_PARAMETERS%ROWTYPE;
111: bud_distr_hdr_record FV_BUDGET_DISTRIBUTION_HDR%ROWTYPE;
112: bud_distr_dtl_record FV_BUDGET_DISTRIBUTION_DTL%ROWTYPE;
113: cgac_crttas_record FV_CGAC_CRT_TAS_TEMP%ROWTYPE;
114:
115: l_max_period GL_PERIODS.PERIOD_NUM%TYPE;
116: l_min_period GL_PERIODS.PERIOD_NUM%TYPE;
117: l_start_date GL_PERIODS.START_DATE%TYPE;

Line 293: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

289:
290: cgac_crttas_record.auto_tas := l_auto_create_flag_tas;
291: -- Bug 10247675
292: IF l_auto_create_flag_tas IS NULL OR l_auto_create_flag_tas = 'N' THEN
293: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
294: END IF;
295:
296: -- Check if Auto create checkbox on TAS/BETC mapping form is checked
297: BEGIN

Line 402: select count(*)into tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where

398: end_year_avail = treasury_symbol_record.end_year_avail and
399: availability_type_code = treasury_symbol_record.availability_type_code and
400: tafs_sub_acct = treasury_symbol_record.tafs_sub_acct);
401:
402: select count(*)into tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where
403: treasury_symbol = treasury_symbol_record.treasury_symbol;
404:
405: IF tas_duplicate_cnt > 0 OR tas_duplicate_cnt1 > 0 THEN
406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate TAS: '||l_ts_str);

Line 409: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

405: IF tas_duplicate_cnt > 0 OR tas_duplicate_cnt1 > 0 THEN
406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate TAS: '||l_ts_str);
407: errbuf := 'New Duplicate Treasury Account Symbol';
408: cgac_crttas_record.error_message := errbuf;
409: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
410: GOTO end_tas;
411: END IF;
412:
413: IF p_run_mode = 'F' then

Line 626: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

622:
623: cgac_crttas_record.auto_fund := l_auto_create_fund;
624:
625: IF l_auto_create_fund IS NOT NULL and l_auto_create_fund = 'N' THEN
626: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
627: END IF;
628:
629: IF l_auto_create_fund IS NOT NULL and l_auto_create_fund = 'Y' THEN
630: IF (fund_values_record.auto_create_fund_value is not null)then

Line 716: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

712: 'Length of fund '||fund_values_record.fund_value|| ' is greater than value set length.
713: Fund length should not be greater than: '|| l_max_fund_value_size);
714: errbuf := 'New fund Exceeds Maximum Fund Length' ;
715: cgac_crttas_record.error_message := errbuf;
716: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
717: GOTO end_fund;
718: END IF;
719: -- Duplicate fund value
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'fund_values_record.fund_value '||fund_values_record.fund_value);

Line 731: select count(*) into fund_duplicate_cnt1 from fv_cgac_crt_tas_temp where

727: select count(*)into fund_duplicate_cnt from fnd_flex_values val, fnd_flex_value_sets vset
728: where val.flex_value = fund_values_record.fund_value and val.flex_value_set_id = vset.flex_value_set_id
729: and vset.flex_value_set_name= x_value_set_name;
730:
731: select count(*) into fund_duplicate_cnt1 from fv_cgac_crt_tas_temp where
732: fund_value = fund_values_record.fund_value;
733:
734: IF (fund_duplicate_cnt IS NOT NULL AND fund_duplicate_cnt > 0) OR (fund_duplicate_cnt1 IS NOT NULL AND fund_duplicate_cnt1 > 0) THEN
735: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Fund: '||fund_values_record.fund_value);

Line 738: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

734: IF (fund_duplicate_cnt IS NOT NULL AND fund_duplicate_cnt > 0) OR (fund_duplicate_cnt1 IS NOT NULL AND fund_duplicate_cnt1 > 0) THEN
735: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Fund: '||fund_values_record.fund_value);
736: errbuf := 'New Duplicate Fund Value';
737: cgac_crttas_record.error_message := errbuf;
738: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
739: -- Bug 10247675
740: -- All duplicate funds should display the error message
741: UPDATE fv_cgac_crt_tas_temp SET error_message = 'New Duplicate Fund Value'
742: WHERE fund_value = fund_values_record.fund_value;

Line 741: UPDATE fv_cgac_crt_tas_temp SET error_message = 'New Duplicate Fund Value'

737: cgac_crttas_record.error_message := errbuf;
738: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
739: -- Bug 10247675
740: -- All duplicate funds should display the error message
741: UPDATE fv_cgac_crt_tas_temp SET error_message = 'New Duplicate Fund Value'
742: WHERE fund_value = fund_values_record.fund_value;
743: GOTO end_fund;
744: END IF;
745: --create fund in the balancing segment

Line 800: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

796: END;
797: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_auto_create_dist'||l_auto_create_dist);
798:
799: -- Inserting data into the interface
800: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
801: IF (SQL%rowcount >0) THEN
802: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted into interface record') ;
803: END IF;
804:

Line 1125: -- fv_cgac_crt_tas_temp

1121: END IF; -- end of IF p_tas_type = "AGENCY_TAS' or p_tas_type = 'BOTH'
1122:
1123: IF p_tas_type = 'BOTH' THEN
1124: -- Check status of completed concurrent program and if complete purge
1125: -- fv_cgac_crt_tas_temp
1126: IF vl_req_id <> 0 THEN
1127: l_call_status := fnd_concurrent.wait_for_request
1128: (
1129: request_id => vl_req_id,

Line 1264: select count(*)into tp_tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where

1260:
1261: select count(*)into tp_tas_duplicate_cnt from fv_tp_treasury_symbols where
1262: treasury_symbol = tp_treasury_symbol_record.treasury_symbol;
1263:
1264: select count(*)into tp_tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where
1265: treasury_symbol = tp_treasury_symbol_record.treasury_symbol;
1266:
1267: IF tp_tas_duplicate_cnt > 0 OR tp_tas_duplicate_cnt1 > 0 THEN
1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Tradning Partner TAS: '||l_tp_ts_str);

Line 1271: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

1267: IF tp_tas_duplicate_cnt > 0 OR tp_tas_duplicate_cnt1 > 0 THEN
1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Tradning Partner TAS: '||l_tp_ts_str);
1269: errbuf := 'New Trading Partner TAS value already exists';
1270: cgac_crttas_record.error_message := errbuf;
1271: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
1272: GOTO end_tp_tas;
1273: END IF;
1274: END IF;
1275:

Line 1277: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;

1273: END IF;
1274: END IF;
1275:
1276: -- Insert into interface table to display on Rxi report
1277: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
1278:
1279: IF (SQL%rowcount >0) THEN
1280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted TP TAS data into interface record') ;
1281: END IF;

Line 1478: END FV_CGAC_CRT_TAS;

1474: RETURN;
1475:
1476: END Main;
1477:
1478: END FV_CGAC_CRT_TAS;