[Home] [Help]
98: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
99: G_PKG_NAME||': '||l_api_name||'()+');
100: END IF;
101:
102: --fnd_file.put_line(fnd_file.log,'in revert negative journals');
103: BEGIN
104:
105: open journals_with_negative_amts;
106: fetch journals_with_negative_amts bulk collect into journals_tab;
105: open journals_with_negative_amts;
106: fetch journals_with_negative_amts bulk collect into journals_tab;
107: close journals_with_negative_amts;
108:
109: --fnd_file.put_line(fnd_file.log,'in revert negative journals - After journals fetch');
110: open accts_with_negative_amts;
111: fetch accts_with_negative_amts bulk collect into naturalaccts_tab,costcenters_tab;
112: close accts_with_negative_amts;
113:
115: WHEN OTHERS THEN
116:
117: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
118: IF g_debug_flag = 'Y' THEN
119: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
120: END IF;
121: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
122: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
123: END IF;
125: g_retcode := 2;
126: return;
127: END;
128:
129: --fnd_file.put_line(fnd_file.log,'in revert negative journals - After accts fetch');
130:
131: BEGIN
132:
133: update jl_br_sped_extr_data_t a
143: and b.request_id = g_concurrent_request_id
144: and b.field4 like '%###%');
145:
146:
147: --fnd_file.put_line(fnd_file.log,'in revert negative journals - After I250 update');
148: forall i in journals_tab.first .. journals_tab.last
149:
150: update jl_br_sped_extr_data_t a -- need to verify
151: set field4 = (select trim(to_char(sum(to_number(field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.''')),'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.'''))
157: where a.field1 = 'I200'
158: and a.field2 = journals_tab(i)
159: and a.request_id = g_concurrent_request_id;
160:
161: --fnd_file.put_line(fnd_file.log,'in revert negative journals - After I200 update');
162: forall i in naturalaccts_tab.first .. naturalaccts_tab.last
163:
164: update jl_br_sped_extr_data_t a
165: set field6 = (select trim(to_char(nvl(sum(to_number(field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.''')),0),'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.'''))
180: and a.field2 = naturalaccts_tab(i)
181: and a.field3 = costcenters_tab(i)
182: and a.request_id = g_concurrent_request_id;
183:
184: --fnd_file.put_line(fnd_file.log,'in revert negative journals - After I155 update');
185: EXCEPTION
186: WHEN OTHERS THEN
187:
188: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
186: WHEN OTHERS THEN
187:
188: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
189: IF g_debug_flag = 'Y' THEN
190: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
191: END IF;
192: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
193: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
194: END IF;
281: IF p_accounting_type = 'DECENTRALIZED' OR (p_accounting_type='CENTRALIZED' AND p_establishment_id IS NULL) THEN
282: l_estb_acts_as_company := 'N';
283: ELSE
284: l_estb_acts_as_company := 'Y';
285: FND_FILE.PUT_LINE(FND_FILE.LOG,G_PKG_NAME||': '||l_api_name||'(): Establishment Acts as Company');
286: END IF;
287:
288:
289:
317: g_ebtax_municipal_reg_code := p_ebtax_municipal_reg_code;
318:
319: -- Initializing other variables
320:
321: fnd_file.put_line(fnd_file.log,'p_coa_id:'||p_coa_mapping_id||' g_coa_id:'||g_coa_mapping_id);
322:
323: --Deriving Ledger Id to which LE is associated
324:
325:
382: INTO g_period_set_name,g_currency_code,g_accounted_period_type
383: FROM gl_ledgers
384: WHERE ledger_id = g_ledger_id;
385:
386: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Period Set Name: '||g_period_set_name||', Currency Code:'||g_currency_code||', Accounted Period Type :'||g_accounted_period_type);
387:
388: EXCEPTION
389: WHEN NO_DATA_FOUND THEN
390: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
470: AND g_establishment_id is not null; -- running in decentralized mode or in centralized mode for establishment(Establishment acts as company)
471:
472:
473:
474: FND_FILE.PUT(FND_FILE.LOG,'Balancing Segments associated to the Comapny are :');
475:
476: FOR bsv_rec in bsv_cur LOOP --To display balancing segments associated to LE or ESTB (Company)
477:
478: FND_FILE.PUT(FND_FILE.LOG,bsv_rec.jg_info_v1||' ');
474: FND_FILE.PUT(FND_FILE.LOG,'Balancing Segments associated to the Comapny are :');
475:
476: FOR bsv_rec in bsv_cur LOOP --To display balancing segments associated to LE or ESTB (Company)
477:
478: FND_FILE.PUT(FND_FILE.LOG,bsv_rec.jg_info_v1||' ');
479:
480: END LOOP;
481:
482: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
478: FND_FILE.PUT(FND_FILE.LOG,bsv_rec.jg_info_v1||' ');
479:
480: END LOOP;
481:
482: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
483: END IF; -- End for IF l_exclusive_mode ='N'
484:
485: IF p_special_situation_indicator IS NULL THEN
486:
516:
517: BEGIN
518:
519: l_icx_format_mask := NVL(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'RRRR/MM/DD');
520: FND_FILE.PUT_LINE(FND_FILE.LOG,'ICX Date Format Mask : '||l_icx_format_mask);
521: g_start_date := to_date(p_start_date,l_icx_format_mask);
522: g_end_date := to_date(p_end_date,l_icx_format_mask);
523:
524: SELECT period_name
579: END;
580:
581: END IF;
582:
583: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Start_date :'||g_start_date||' End_date: '||g_end_date);
584:
585: BEGIN
586: SELECT application_column_name -- finding which segment column is used for balancing segment storage
587: INTO g_bsv_segment
608: g_retcode := 2;
609: return;
610: END;
611:
612: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Balancing segment: '||g_bsv_segment);
613:
614: BEGIN
615: SELECT application_column_name -- finding which segment column is used for natural account segment storage
616: INTO g_account_segment
638: g_retcode := 2;
639: return;
640: END;
641:
642: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Natural Account segment: '||g_account_segment);
643:
644: BEGIN
645: SELECT application_column_name -- finding which segment column is used for cost center storage
646: INTO g_cost_center_segment
650: AND segment_attribute_type = 'FA_COST_CTR'
651: AND application_id = 101
652: AND id_flex_num = g_chart_of_accounts_id;
653:
654: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Cost center segment: '||g_cost_center_segment);
655:
656: EXCEPTION
657: WHEN NO_DATA_FOUND THEN
658: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
701: g_retcode := 2;
702: return;
703: END;
704:
705: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Value set id for Natural Account :'||g_account_value_set_id);
706:
707: -- Deriving value set id for Cost Center (only if cost center setup was done)
708:
709: IF l_cc_exists_flag <>0 THEN
717: AND id_flex_code ='GL#'
718: AND application_id = 101
719: AND application_column_name = g_cost_center_segment;
720:
721: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Value set id for Cost Center :'||g_cost_center_value_set_id);
722:
723: EXCEPTION
724: WHEN NO_DATA_FOUND THEN
725: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
770: END LOOP;
771:
772: g_exclusion_qualifier_position := nvl(g_exclusion_qualifier_position,99);
773:
774: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped qualifier : '||g_sped_qualifier_position);
775: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of account qualifier : '||g_account_qualifier_position);
776: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped exclusion qualifier : '||g_exclusion_qualifier_position);
777:
778: EXCEPTION
771:
772: g_exclusion_qualifier_position := nvl(g_exclusion_qualifier_position,99);
773:
774: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped qualifier : '||g_sped_qualifier_position);
775: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of account qualifier : '||g_account_qualifier_position);
776: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped exclusion qualifier : '||g_exclusion_qualifier_position);
777:
778: EXCEPTION
779: WHEN OTHERS THEN
772: g_exclusion_qualifier_position := nvl(g_exclusion_qualifier_position,99);
773:
774: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped qualifier : '||g_sped_qualifier_position);
775: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of account qualifier : '||g_account_qualifier_position);
776: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Position of sped exclusion qualifier : '||g_exclusion_qualifier_position);
777:
778: EXCEPTION
779: WHEN OTHERS THEN
780: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
802: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Failed in retrieving Balance Sheet Report ID');
803: END IF;
804: END;
805:
806: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Balance Sheet Report Id : '||g_balance_statement_report_id);
807:
808: BEGIN
809: IF p_income_statement_request_id IS NOT NULL THEN
810: SELECT argument7 --Income Statement report_id
819: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
820: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Failed in retrieving Income Statement Report ID');
821: END IF;
822: END;
823: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Income Statement Report Id : '||g_income_statement_report_id);
824:
825: BEGIN
826:
827: SELECT COUNT(*)
841: END IF;
842: END;
843:
844: IF substr(g_bookkeeping_type,1,1) = 'A' AND g_ap_ar_auxbook_exist = 0 THEN
845: FND_FILE.PUT_LINE(FND_FILE.LOG,'Auxiliary Book is not defined for Book Source AP/AR');
846: END IF;
847:
848:
849:
863: AND r1.column_set_id = r2.axis_set_id
864: ORDER BY r2.sequence)
865: WHERE ROWNUM = 1;
866:
867: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount Type in Balance Sheet Report is :'||l_fsg_output_check);
868:
869: EXCEPTION
870: WHEN NO_DATA_FOUND THEN
871: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
897: AND r1.column_set_id = r2.axis_set_id
898: ORDER BY r2.sequence)
899: WHERE ROWNUM = 1;
900:
901: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount Type in Income Statement Report is :'||l_fsg_output_check);
902:
903: EXCEPTION
904: WHEN NO_DATA_FOUND THEN
905: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1052: WHEN OTHERS THEN
1053:
1054: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1055: IF g_debug_flag = 'Y' THEN
1056: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1057: END IF;
1058: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1059: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1060: END IF;
1109: WHEN OTHERS THEN
1110:
1111: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1112: IF g_debug_flag = 'Y' THEN
1113: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1114: END IF;
1115: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1117: END IF;
1527: EXCEPTION
1528: WHEN OTHERS THEN
1529: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1530: IF g_debug_flag = 'Y' THEN
1531: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1532: END IF;
1533: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1535: END IF;
1533: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1535: END IF;
1536: g_errbuf := 'ERROR While deriving the participant code for journal header_id and line num '||p_je_header_id||'-'||p_je_line_num||SQLERRM;
1537: FND_FILE.PUT_LINE(FND_FILE.LOG, g_errbuf);
1538: return NULL;
1539: END get_participant_code;
1540:
1541: PROCEDURE register_0000 AS
1571: AND rownum=1;
1572:
1573: EXCEPTION
1574: WHEN OTHERS THEN
1575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge city code');
1576: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1577: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge city code');
1579: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1572:
1573: EXCEPTION
1574: WHEN OTHERS THEN
1575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge city code');
1576: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1577: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge city code');
1579: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1580: END IF;
1597: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
1598:
1599: EXCEPTION
1600: WHEN OTHERS THEN
1601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
1602: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1603: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1604: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
1605: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1598:
1599: EXCEPTION
1600: WHEN OTHERS THEN
1601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
1602: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1603: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1604: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
1605: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1606: END IF;
1722: AND rownum=1;
1723:
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
1727: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1728: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1729: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge_city_code');
1730: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1723:
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
1727: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1728: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1729: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge_city_code');
1730: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1731: END IF;
1749: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
1750:
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
1754: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1755: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1756: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
1757: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1750:
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
1754: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1755: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1756: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
1757: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1758: END IF;
1921: ,g_last_update_date
1922: ,g_last_update_login);
1923: EXCEPTION
1924: WHEN OTHERS THEN
1925: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0000 register');
1926: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1927: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1929: END IF;
1922: ,g_last_update_login);
1923: EXCEPTION
1924: WHEN OTHERS THEN
1925: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0000 register');
1926: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1927: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1929: END IF;
1930: g_errbuf := 'ERROR While inserting 0000 register '||SQLERRM;
1979: ,g_last_updated_by
1980: ,g_last_update_date
1981: ,g_last_update_login );
1982:
1983: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
1984:
1985: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1986: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
1987: G_PKG_NAME||': ' ||l_api_name||'()-');
1988: END IF;
1989:
1990: EXCEPTION
1991: WHEN OTHERS THEN
1992: fnd_file.put_line(fnd_file.log,'error in 0001'||sqlcode||sqlerrm);
1993: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1994: IF g_debug_flag = 'Y' THEN
1995: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1996: END IF;
1991: WHEN OTHERS THEN
1992: fnd_file.put_line(fnd_file.log,'error in 0001'||sqlcode||sqlerrm);
1993: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1994: IF g_debug_flag = 'Y' THEN
1995: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1996: END IF;
1997: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1998: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1999: END IF;
2092: AND (nvl(effective_to,sysdate) >= g_end_date OR effective_to IS NULL); -- Registration should be there for entire period.
2093:
2094: END IF; -- End for IF l_estb_acts_as_company='N'
2095:
2096: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
2097:
2098: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2099: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
2100: G_PKG_NAME||': ' ||l_api_name||'()-');
2104: WHEN OTHERS THEN
2105:
2106: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2107: IF g_debug_flag = 'Y' THEN
2108: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
2109: END IF;
2110: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2111: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2112: END IF;
2165: EXCEPTION
2166: WHEN NO_DATA_FOUND THEN
2167: l_main_estb_flag := 'N';
2168: WHEN OTHERS THEN
2169: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving main establishment flag');
2170: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2171: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2172: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving main establishment flag');
2173: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2166: WHEN NO_DATA_FOUND THEN
2167: l_main_estb_flag := 'N';
2168: WHEN OTHERS THEN
2169: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving main establishment flag');
2170: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2171: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2172: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving main establishment flag');
2173: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2174: END IF;
2192: AND rownum = 1 ;
2193:
2194: EXCEPTION
2195: WHEN OTHERS THEN
2196: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
2197: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2198: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2199: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge_city_code');
2200: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2193:
2194: EXCEPTION
2195: WHEN OTHERS THEN
2196: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
2197: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2198: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2199: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state and ibge_city_code');
2200: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2201: END IF;
2218: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
2219:
2220: EXCEPTION
2221: WHEN OTHERS THEN
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while Retrieving cnpj of LE');
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2224: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
2226: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2219:
2220: EXCEPTION
2221: WHEN OTHERS THEN
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while Retrieving cnpj of LE');
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2224: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving cnpj');
2226: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2227: END IF;
2435: ,g_last_update_date
2436: ,g_last_update_login);
2437: EXCEPTION
2438: WHEN OTHERS THEN
2439: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0020 register');
2440: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2441: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2442: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2443: END IF;
2436: ,g_last_update_login);
2437: EXCEPTION
2438: WHEN OTHERS THEN
2439: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0020 register');
2440: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2441: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2442: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2443: END IF;
2444: g_errbuf := 'ERROR While inserting 0020 register '||SQLERRM;
2477: AND rownum = 1;
2478:
2479: EXCEPTION
2480: WHEN OTHERS THEN
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2483: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2484: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state,ibge_city_code of ESTB');
2485: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2478:
2479: EXCEPTION
2480: WHEN OTHERS THEN
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving state and ibge_city_code');
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2483: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2484: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving state,ibge_city_code of ESTB');
2485: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2486: END IF;
2561: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
2562:
2563: EXCEPTION
2564: WHEN OTHERS THEN
2565: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while Retrieving cnpj of ESTB');
2566: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2567: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error while Retrieving cnpj of ESTB');
2569: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2562:
2563: EXCEPTION
2564: WHEN OTHERS THEN
2565: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while Retrieving cnpj of ESTB');
2566: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2567: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error while Retrieving cnpj of ESTB');
2569: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2570: END IF;
2718: ,g_last_update_date
2719: ,g_last_update_login);
2720: EXCEPTION
2721: WHEN OTHERS THEN
2722: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0020 register-establishments');
2723: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2724: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2725: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2726: END IF;
2719: ,g_last_update_login);
2720: EXCEPTION
2721: WHEN OTHERS THEN
2722: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting data into 0020 register-establishments');
2723: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2724: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2725: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2726: END IF;
2727: g_errbuf := 'ERROR While inserting 0020 register '||SQLERRM;
2910: WHERE request_id =g_concurrent_request_id
2911: AND block = '0'
2912: AND field1 = '0150';
2913:
2914: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): 0150 Records Inserted : '||l_count);
2915:
2916: SELECT COUNT(*) INTO l_count
2917: FROM jl_br_sped_extr_data_t
2918: WHERE request_id =g_concurrent_request_id
2917: FROM jl_br_sped_extr_data_t
2918: WHERE request_id =g_concurrent_request_id
2919: AND block = '0'
2920: AND field1 = '0180';
2921: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): 0180 Records Inserted : '||l_count);
2922:
2923: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2924: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
2925: G_PKG_NAME||': ' ||l_api_name||'()-');
2931: WHEN OTHERS THEN
2932:
2933: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2934: IF g_debug_flag = 'Y' THEN
2935: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
2936: END IF;
2937: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2938: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2939: END IF;
2976: ,g_last_updated_by
2977: ,g_last_update_date
2978: ,g_last_update_login );
2979:
2980: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
2981:
2982: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2983: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
2984: G_PKG_NAME||': ' ||l_api_name||'()-');
2987: WHEN OTHERS THEN
2988:
2989: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2990: IF g_debug_flag = 'Y' THEN
2991: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
2992: END IF;
2993: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2994: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2995: END IF;
3032: ,g_last_updated_by
3033: ,g_last_update_date
3034: ,g_last_update_login );
3035:
3036: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
3037:
3038: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3039: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
3040: G_PKG_NAME||': ' ||l_api_name||'()-');
3042: EXCEPTION
3043: WHEN OTHERS THEN
3044: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3045: IF g_debug_flag = 'Y' THEN
3046: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3047: END IF;
3048: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3049: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3050: END IF;
3061: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3062: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
3063: G_PKG_NAME||': '||l_api_name||'()+');
3064: END IF;
3065: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'G_BOOKKEEPING_TYPE: ' ||g_bookkeeping_type);
3066:
3067: INSERT INTO jl_br_sped_extr_data_t
3068: (request_id,
3069: block,
3094: ,g_last_updated_by
3095: ,g_last_update_date
3096: ,g_last_update_login
3097: );
3098: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
3099:
3100: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
3102: G_PKG_NAME||': ' ||l_api_name||'()-');
3105: WHEN OTHERS THEN
3106:
3107: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3108: IF g_debug_flag = 'Y' THEN
3109: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3110: END IF;
3111: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3112: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3113: END IF;
3180: display the auxiliary books for book keeping type 'A'.
3181: If we run with book keeping type 'A/R' then display book of 'R'
3182: If we run with book keeping type 'A/B' then display book of 'B'*/
3183:
3184: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
3185:
3186: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3187: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
3188: G_PKG_NAME||': ' ||l_api_name||'()-');
3192: WHEN OTHERS THEN
3193:
3194: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3195: IF g_debug_flag = 'Y' THEN
3196: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3197: END IF;
3198: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3199: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3200: END IF;
3274: GROUP BY glimp.je_header_id,glimp.je_line_num,jl.code_combination_id,glcc.'||g_account_segment||'
3275: HAVING count(*) >1)';
3276:
3277:
3278: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'query:'||l_query);
3279:
3280: EXECUTE IMMEDIATE l_query;
3281:
3282: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
3278: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'query:'||l_query);
3279:
3280: EXECUTE IMMEDIATE l_query;
3281:
3282: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
3283:
3284: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3285: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
3286: G_PKG_NAME||': ' ||l_api_name||'()-');
3290: EXCEPTION
3291: WHEN OTHERS THEN
3292: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3293: IF g_debug_flag = 'Y' THEN
3294: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3295: END IF;
3296: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3297: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3298: END IF;
3335: AND bk.auxiliary_book_flag ='N';
3336:
3337: EXCEPTION
3338: WHEN OTHERS THEN
3339: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving the Book Information');
3340: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3341: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving the Book Information');
3343: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3336:
3337: EXCEPTION
3338: WHEN OTHERS THEN
3339: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving the Book Information');
3340: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3341: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3342: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving the Book Information');
3343: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3344: END IF;
3370: AND rownum=1;
3371:
3372: EXCEPTION
3373: WHEN OTHERS THEN
3374: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using place of registration');
3375: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3376: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3377: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving nire using place of registration');
3378: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3371:
3372: EXCEPTION
3373: WHEN OTHERS THEN
3374: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using place of registration');
3375: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3376: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3377: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving nire using place of registration');
3378: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3379: END IF;
3394: AND rownum=1;
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using Commercial Law');
3399: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3400: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3401: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving nire using Commercial Law');
3402: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3398: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using Commercial Law');
3399: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3400: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3401: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving nire using Commercial Law');
3402: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3403: END IF;
3418: AND rownum = 1 ;
3419:
3420: EXCEPTION
3421: WHEN OTHERS THEN
3422: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving CNPJ');
3423: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3424: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3425: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3426: END IF;
3419:
3420: EXCEPTION
3421: WHEN OTHERS THEN
3422: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving CNPJ');
3423: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3424: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3425: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3426: END IF;
3427: END;
3443: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
3444:
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
3448: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3449: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3450: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3451: END IF;
3444:
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
3448: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3449: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3450: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3451: END IF;
3452: END;
3472: AND effective_to IS NULL;
3473:
3474: EXCEPTION
3475: WHEN OTHERS THEN
3476: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving conversion Date');
3477: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3478: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3479: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving conversion Date');
3480: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3473:
3474: EXCEPTION
3475: WHEN OTHERS THEN
3476: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving conversion Date');
3477: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3478: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3479: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving conversion Date');
3480: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3481: END IF;
3499: AND bk.auxiliary_book_flag ='N';
3500:
3501: EXCEPTION
3502: WHEN OTHERS THEN
3503: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving the Book Information');
3504: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3505: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3506: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3507: END IF;
3500:
3501: EXCEPTION
3502: WHEN OTHERS THEN
3503: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving the Book Information');
3504: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3505: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3506: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3507: END IF;
3508: END;
3533: AND rownum = 1;
3534:
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using place of registration');
3538: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3539: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3540: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3541: END IF;
3534:
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using place of registration');
3538: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3539: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3540: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3541: END IF;
3542: END;
3556: AND rownum = 1;
3557:
3558: EXCEPTION
3559: WHEN OTHERS THEN
3560: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using Commercial Law');
3561: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3562: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3563: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3564: END IF;
3557:
3558: EXCEPTION
3559: WHEN OTHERS THEN
3560: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving nire using Commercial Law');
3561: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3562: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3563: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3564: END IF;
3565: END;
3579: AND rownum = 1 ;
3580:
3581: EXCEPTION
3582: WHEN OTHERS THEN
3583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving CNPJ');
3584: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3585: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3587: END IF;
3580:
3581: EXCEPTION
3582: WHEN OTHERS THEN
3583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving CNPJ');
3584: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3585: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3586: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3587: END IF;
3588: END;
3603: SELECT decode(length(l_cnpj),15,substr(l_cnpj,2,14),l_cnpj) into l_cnpj from dual;
3604:
3605: EXCEPTION
3606: WHEN OTHERS THEN
3607: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
3608: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3609: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3610: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3611: END IF;
3604:
3605: EXCEPTION
3606: WHEN OTHERS THEN
3607: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving cnpj');
3608: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3609: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3610: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3611: END IF;
3612: END;
3632: AND effective_to IS NULL;
3633:
3634: EXCEPTION
3635: WHEN OTHERS THEN
3636: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving conversion Date');
3637: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3638: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3639: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving conversion Date');
3640: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3633:
3634: EXCEPTION
3635: WHEN OTHERS THEN
3636: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Retrieving conversion Date');
3637: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3638: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3639: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'Error While Retrieving conversion Date');
3640: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3641: END IF;
3710: ,g_last_update_date
3711: ,g_last_update_login);
3712: EXCEPTION
3713: WHEN OTHERS THEN
3714: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting Data into I030 register');
3715: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3716: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3717: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3718: END IF;
3711: ,g_last_update_login);
3712: EXCEPTION
3713: WHEN OTHERS THEN
3714: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Inserting Data into I030 register');
3715: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
3716: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3717: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3718: END IF;
3719: g_errbuf := 'ERROR While inserting 0000 register '||SQLERRM;
3776: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
3777: G_PKG_NAME||': '||l_api_name||'()+');
3778: END IF;
3779:
3780: FND_FILE.put_line(fnd_file.log,'Start Of I050');
3781:
3782: l_query := 'SELECT V.last_update_date
3783: ,V.flex_value_id
3784: ,V.summary_flag
3837: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'I050-Query',l_query);
3838: END IF;
3839:
3840:
3841: --FND_FILE.put_line(fnd_file.log,l_query);
3842:
3843: EXECUTE IMMEDIATE l_query
3844: BULK COLLECT INTO fv_last_update_date
3845: ,fv_id
3886: EXCEPTION
3887: WHEN OTHERS THEN
3888: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3889: IF g_debug_flag = 'Y' THEN
3890: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3891: END IF;
3892: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3893: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3894: END IF;
3922: EXCEPTION
3923: WHEN OTHERS THEN
3924: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3925: IF g_debug_flag = 'Y' THEN
3926: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3927: END IF;
3928: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3929: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,'ERROR in I050, While getting level 1 parent information Flex Value := '||fv_parent_value(i)||' '||SQLERRM);
3930: END IF;
4039: ,g_last_update_login
4040: );
4041:
4042: IF fv_summary_flag(i) = 'N' THEN
4043: --FND_FILE.put_line(fnd_file.log,'Before I051'||fv_child_value(i));
4044: register_I051(fv_child_value(i));
4045:
4046: IF g_bookkeeping_type ='G' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
4047: /* I052 is to display agglutination codes. As we get the agglutination codes
4066: WHEN OTHERS THEN
4067:
4068: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4069: IF g_debug_flag = 'Y' THEN
4070: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4071: END IF;
4072: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4073: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4074: END IF;
4083: l_cnt NUMBER;
4084: l_api_name CONSTANT VARCHAR2(30) :='REGISTER_I051';
4085: BEGIN
4086:
4087: --fnd_file.put_line(fnd_file.log,'coa_id '||g_coa_mapping_id);
4088:
4089: IF g_coa_mapping_id IS NULL THEN
4090: RETURN;
4091: END IF;
4094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
4095: G_PKG_NAME||': '||l_api_name||'()+');
4096: END IF;
4097:
4098: -- fnd_file.put_line(fnd_file.log,'Felx value :'||p_account_flex_value||' G_coa_maping_id :'||g_coa_mapping_id);
4099:
4100: BEGIN
4101:
4102: SELECT count(distinct parent_flex_value) into l_cnt
4114: l_referential_account := NULL;
4115: WHEN OTHERS THEN
4116: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4117: IF g_debug_flag = 'Y' THEN
4118: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4119: END IF;
4120: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4121: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4122: END IF;
4125: return;
4126: END;
4127:
4128: IF l_cnt > 1 THEN
4129: FND_FILE.PUT_LINE(FND_FILE.LOG,'Consolidation is not proper. '||p_account_flex_value||' is associated with more than one referential chart of account');
4130: END IF;
4131:
4132: BEGIN
4133: SELECT parent_flex_value into l_referential_account
4148: l_referential_account := NULL;
4149: WHEN OTHERS THEN
4150: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4151: IF g_debug_flag = 'Y' THEN
4152: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4153: END IF;
4154: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4155: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4156: END IF;
4158: g_retcode := 2;
4159: return;
4160: END;
4161:
4162: --fnd_file.put_line(fnd_file.log,'l_ref_account :'||l_referential_account);
4163: BEGIN
4164:
4165:
4166: /* GETTING ENTITY_RESP_REFERENTIAL_COA IS NOT CONFIRMED. NEED TO RECHECK AGAIN */
4190: l_institution_resp_code := NULL; -- verify
4191: WHEN OTHERS THEN
4192: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4193: IF g_debug_flag = 'Y' THEN
4194: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4195: END IF;
4196: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4197: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4198: END IF;
4248: WHEN OTHERS THEN
4249:
4250: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4251: IF g_debug_flag = 'Y' THEN
4252: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4253: END IF;
4254: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4255: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4256: END IF;
4320: AND r3.sequence = r4.axis_seq
4321: AND :p_account_flex_value >='||g_account_segment||'_LOW
4322: AND :p_account_flex_value <='|| g_account_segment||'_HIGH)';
4323:
4324: --FND_FILE.PUT_LINE(FND_FILE.LOG, sql_stmt);
4325:
4326: EXECUTE IMMEDIATE sql_stmt using p_account_flex_value,p_account_flex_value;
4327:
4328:
4370: AND r3.sequence = r4.axis_seq
4371: AND :p_account_flex_value >='||g_account_segment||'_LOW
4372: AND :p_account_flex_value <='|| g_account_segment||'_HIGH)';
4373:
4374: --FND_FILE.PUT_LINE(FND_FILE.LOG, sql_stmt);
4375:
4376: EXECUTE IMMEDIATE sql_stmt using p_account_flex_value,p_account_flex_value;
4377:
4378:
4385: WHEN OTHERS THEN
4386:
4387: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4388: IF g_debug_flag = 'Y' THEN
4389: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4390: END IF;
4391: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4392: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4393: END IF;
4405: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
4406: G_PKG_NAME||': '||l_api_name||'()+');
4407: END IF;
4408:
4409: -- FND_FILE.PUT_LINE(FND_FILE.LOG,' in register I100');
4410:
4411: IF l_cc_exists_flag = 0 THEN
4412:
4413: RETURN;
4449: AND ('''||l_exclusive_mode||'''=''Y''
4450: OR ('''||l_exclusive_mode ||'''=''N'' AND glcc.'||g_bsv_segment||' in (select jg_info_v1 from jg_zz_vat_trx_gt)))
4451: AND glcc.'||g_cost_center_segment||' =fv.flex_value)';
4452:
4453: -- fnd_file.put_line(fnd_file.log,l_query);
4454:
4455: execute immediate l_query;
4456:
4457: -- FND_FILE.PUT_LINE(FND_FILE.LOG,' after I100');
4453: -- fnd_file.put_line(fnd_file.log,l_query);
4454:
4455: execute immediate l_query;
4456:
4457: -- FND_FILE.PUT_LINE(FND_FILE.LOG,' after I100');
4458:
4459: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
4460:
4461: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4455: execute immediate l_query;
4456:
4457: -- FND_FILE.PUT_LINE(FND_FILE.LOG,' after I100');
4458:
4459: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
4460:
4461: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4462: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
4463: G_PKG_NAME||': ' ||l_api_name||'()-');
4466: EXCEPTION
4467: WHEN OTHERS THEN
4468: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4469: IF g_debug_flag = 'Y' THEN
4470: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4471: END IF;
4472: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4473: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4474: END IF;
4519: ,g_last_update_date
4520: ,g_last_update_login
4521: );
4522:
4523: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
4524:
4525: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4526: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
4527: G_PKG_NAME||': ' ||l_api_name||'()-');
4531: WHEN OTHERS THEN
4532:
4533: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4534: IF g_debug_flag = 'Y' THEN
4535: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4536: END IF;
4537: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4538: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4539: END IF;
4577: ,g_last_update_date
4578: ,g_last_update_login
4579: );
4580:
4581: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
4582:
4583: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4584: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
4585: G_PKG_NAME||': ' ||l_api_name||'()-');
4589: WHEN OTHERS THEN
4590:
4591: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4592: IF g_debug_flag = 'Y' THEN
4593: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4594: END IF;
4595: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4597: END IF;
4734: )
4735: ),0) <> 0 )';
4736:
4737:
4738: -- fnd_file.put_line(fnd_file.log,'I155_query:'||l_query1);
4739:
4740: execute immediate 'INSERT INTO jl_br_sped_extr_data_t
4741: (request_id,
4742: block,
4859: )
4860: ),0) <> 0 )';
4861:
4862:
4863: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
4864:
4865: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4866: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
4867: G_PKG_NAME||': ' ||l_api_name||'()-');
4871: WHEN OTHERS THEN
4872:
4873: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4874: IF g_debug_flag = 'Y' THEN
4875: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
4876: END IF;
4877: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4878: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4879: END IF;
4996: WHEN OTHERS THEN
4997:
4998: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4999: IF g_debug_flag = 'Y' THEN
5000: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5001: END IF;
5002: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5003: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5004: END IF;
5483: WHEN OTHERS THEN
5484:
5485: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5486: IF g_debug_flag = 'Y' THEN
5487: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5488: END IF;
5489: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5490: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5491: END IF;
5540: ,g_last_updated_by
5541: ,g_last_update_date
5542: ,g_last_update_login );
5543:
5544: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
5545:
5546: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5547: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
5548: G_PKG_NAME||': ' ||l_api_name||'()-');
5552: WHEN OTHERS THEN
5553:
5554: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5555: IF g_debug_flag = 'Y' THEN
5556: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5557: END IF;
5558: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5560: END IF;
5647:
5648: END IF;
5649:
5650:
5651: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'I355 Query :'|| l_query);
5652:
5653: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Before execution of dynamic query');
5654:
5655: execute immediate l_query;
5649:
5650:
5651: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'I355 Query :'|| l_query);
5652:
5653: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Before execution of dynamic query');
5654:
5655: execute immediate l_query;
5656:
5657: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After execution of dynamic query');
5653: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Before execution of dynamic query');
5654:
5655: execute immediate l_query;
5656:
5657: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After execution of dynamic query');
5658:
5659: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5660: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
5661: G_PKG_NAME||': ' ||l_api_name||'()-');
5665: WHEN OTHERS THEN
5666:
5667: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5668: IF g_debug_flag = 'Y' THEN
5669: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5670: END IF;
5671: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5672: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5673: END IF;
5712: g_last_updated_by,
5713: g_last_update_date,
5714: g_last_update_login);
5715:
5716: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
5717:
5718: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5719: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
5720: G_PKG_NAME||': ' ||l_api_name||'()-');
5724: WHEN OTHERS THEN
5725:
5726: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5727: IF g_debug_flag = 'Y' THEN
5728: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5729: END IF;
5730: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5731: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5732: END IF;
5770: g_last_updated_by,
5771: g_last_update_date,
5772: g_last_update_login );
5773:
5774: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
5775:
5776: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5777: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
5778: G_PKG_NAME||': ' ||l_api_name||'()-');
5782: WHEN OTHERS THEN
5783:
5784: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5785: IF g_debug_flag = 'Y' THEN
5786: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5787: END IF;
5788: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5789: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5790: END IF;
5851: g_last_updated_by,
5852: g_last_update_date,
5853: g_last_update_login);
5854:
5855: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
5856:
5857: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5858: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
5859: G_PKG_NAME||': ' ||l_api_name||'()-');
5865: WHEN OTHERS THEN
5866:
5867: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5868: IF g_debug_flag = 'Y' THEN
5869: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
5870: END IF;
5871: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5872: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5873: END IF;
5956: AND r.column_set_id =ra.axis_set_id
5957: ORDER BY ra.sequence)
5958: WHERE ROWNUM=1; */
5959:
5960: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Format of number for Balance sheet report :'||l_format);
5961:
5962: FOR J100_rec in J100_recs_by_jcp LOOP
5963:
5964: l_amount := 0;
5963:
5964: l_amount := 0;
5965: l_amount_sign := 1;
5966:
5967: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount before conversion :'||J100_rec.field6);
5968:
5969: l_amount_in_char := trim(J100_rec.field6);
5970:
5971: IF l_icx_num_format = ',.' THEN -- If the data is in 9.999,99 format changing it to 9,999.99 format
5985: ELSE
5986: l_amount := to_number(l_amount_in_char,'999,999,999.999999');
5987: END IF;
5988:
5989: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount after conversion :'||l_amount);
5990:
5991: l_cnt := 0;
5992: SELECT COUNT(*) -- Checking for account assignements
5993: INTO l_cnt
5995: WHERE axis_set_id = l_row_set_id
5996: AND axis_seq = J100_rec.field8;
5997:
5998: IF l_cnt > 0 THEN --account assignments exists
5999: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In acct assignments');
6000: -- FND_FILE.PUT_LINE(FND_FILE.LOG,J100_rec.field8||' '||J100_rec.field6);
6001: l_prev_acct_type := 0;
6002:
6003: OPEN acct_cur FOR 'SELECT '||g_account_segment||'_LOW,'||g_account_segment||'_HIGH
5996: AND axis_seq = J100_rec.field8;
5997:
5998: IF l_cnt > 0 THEN --account assignments exists
5999: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In acct assignments');
6000: -- FND_FILE.PUT_LINE(FND_FILE.LOG,J100_rec.field8||' '||J100_rec.field6);
6001: l_prev_acct_type := 0;
6002:
6003: OPEN acct_cur FOR 'SELECT '||g_account_segment||'_LOW,'||g_account_segment||'_HIGH
6004: FROM rg_report_axis_contents
6019: FROM fnd_flex_values vs
6020: WHERE flex_value_set_id = g_account_value_set_id
6021: AND flex_value BETWEEN acct_low AND acct_high;
6022:
6023: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'acct_type for axis_seq '||J100_rec.field8||' is '||l_acct_type);
6024:
6025: EXCEPTION
6026: WHEN NO_DATA_FOUND THEN
6027: l_acct_type := null;
6024:
6025: EXCEPTION
6026: WHEN NO_DATA_FOUND THEN
6027: l_acct_type := null;
6028: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Account Type found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6029: WHEN TOO_MANY_ROWS THEN --Multiple account types assigned for a account range.
6030: l_acct_type := null;
6031: FND_FILE.PUT_LINE(FND_FILE.LOG,'More Account Types found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6032: WHEN OTHERS THEN
6027: l_acct_type := null;
6028: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Account Type found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6029: WHEN TOO_MANY_ROWS THEN --Multiple account types assigned for a account range.
6030: l_acct_type := null;
6031: FND_FILE.PUT_LINE(FND_FILE.LOG,'More Account Types found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6032: WHEN OTHERS THEN
6033: l_acct_type := null;
6034: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception occured while fetching the Acct Type for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
6030: l_acct_type := null;
6031: FND_FILE.PUT_LINE(FND_FILE.LOG,'More Account Types found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6032: WHEN OTHERS THEN
6033: l_acct_type := null;
6034: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception occured while fetching the Acct Type for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
6036: END;
6037: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Acct low: '||acct_low||' acct high: '||acct_high);
6038:
6031: FND_FILE.PUT_LINE(FND_FILE.LOG,'More Account Types found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6032: WHEN OTHERS THEN
6033: l_acct_type := null;
6034: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception occured while fetching the Acct Type for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
6036: END;
6037: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Acct low: '||acct_low||' acct high: '||acct_high);
6038:
6039: IF l_acct_type is not null THEN
6033: l_acct_type := null;
6034: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception occured while fetching the Acct Type for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
6036: END;
6037: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Acct low: '||acct_low||' acct high: '||acct_high);
6038:
6039: IF l_acct_type is not null THEN
6040: IF l_prev_acct_type <> l_acct_type THEN
6041: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In chk'||l_prev_acct_type||' '||l_acct_type);
6037: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Acct low: '||acct_low||' acct high: '||acct_high);
6038:
6039: IF l_acct_type is not null THEN
6040: IF l_prev_acct_type <> l_acct_type THEN
6041: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In chk'||l_prev_acct_type||' '||l_acct_type);
6042: IF l_prev_acct_type = 0 THEN
6043: l_prev_acct_type := l_acct_type;
6044: ELSE -- the Account type of multiple account assignments are not same.
6045: -- l_acct_type := null;
6042: IF l_prev_acct_type = 0 THEN
6043: l_prev_acct_type := l_acct_type;
6044: ELSE -- the Account type of multiple account assignments are not same.
6045: -- l_acct_type := null;
6046: FND_FILE.PUT_LINE(FND_FILE.LOG,'More Account Types found for Report Id:'||g_balance_statement_report_id||' And Axis Num :'||J100_rec.field8);
6047: END IF;
6048: END IF;
6049: END IF;
6050: END LOOP;
6047: END IF;
6048: END IF;
6049: END IF;
6050: END LOOP;
6051: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'acct_type : '||l_acct_type||'l_prev_acct_type : '||l_prev_acct_type);
6052: CLOSE acct_cur;
6053: ELSE /* If no account assignments exists (means if the fsg row is because of caluculation)*/
6054: l_acct_type := null;
6055: l_prev_acct_type := null;
6055: l_prev_acct_type := null;
6056: END IF;
6057:
6058:
6059: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Before Update');
6060: /*Updating J100 records for account assignments */
6061: UPDATE jl_br_sped_extr_data_t tmp
6062: SET (field2, field3,separator3,
6063: field4 ,
6082: AND r2.axis_seq = J100_rec.field8)
6083: WHERE request_id = g_concurrent_request_id
6084: AND field1 = 'J100'
6085: AND field8 = J100_rec.field8;
6086: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'after Update');
6087:
6088: UPDATE jl_br_sped_extr_data_t
6089: SET record_seq = jl_br_sped_extr_data_t_s.nextval,
6090: -- field8 = null,
6096: WHERE request_id = g_concurrent_request_id
6097: AND field1 = 'J100'
6098: AND field8 = J100_rec.field8;
6099: END LOOP;
6100: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating Acct Type for Calculation rows');
6101: FOR calc_rec in calculations_cursor LOOP
6102: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'seq: '||calc_rec.field8);
6103: l_axis_seq := trim(calc_rec.field8);
6104:
6098: AND field8 = J100_rec.field8;
6099: END LOOP;
6100: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating Acct Type for Calculation rows');
6101: FOR calc_rec in calculations_cursor LOOP
6102: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'seq: '||calc_rec.field8);
6103: l_axis_seq := trim(calc_rec.field8);
6104:
6105: WHILE l_axis_seq IS NOT NULL
6106: LOOP
6112: AND axis_seq = l_axis_seq
6113: AND ROWNUM < 2;
6114: EXCEPTION
6115: WHEN OTHERS THEN
6116: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the acct seq for a calculation');
6117: END;
6118: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_acct_axis_seq: '||l_acct_axis_seq);
6119: l_cnt := 0;
6120: SELECT COUNT(*) -- Checking for account assignements
6114: EXCEPTION
6115: WHEN OTHERS THEN
6116: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the acct seq for a calculation');
6117: END;
6118: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_acct_axis_seq: '||l_acct_axis_seq);
6119: l_cnt := 0;
6120: SELECT COUNT(*) -- Checking for account assignements
6121: INTO l_cnt
6122: FROM rg_report_axis_contents
6121: INTO l_cnt
6122: FROM rg_report_axis_contents
6123: WHERE axis_set_id = l_row_set_id
6124: AND axis_seq = l_acct_axis_seq;
6125: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_cnt: '||l_cnt);
6126:
6127: IF l_cnt >0 THEN
6128: BEGIN
6129: SELECT trim(field4)
6133: AND field1 = 'J100'
6134: AND trim(field8) = trim(l_acct_axis_seq);
6135: EXCEPTION
6136: WHEN OTHERS THEN
6137: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the acct type of account''s axis_seq for calculation');
6138: END;
6139:
6140: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_calc_acct_type: '||l_calc_acct_type);
6141: UPDATE jl_br_sped_extr_data_t
6136: WHEN OTHERS THEN
6137: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the acct type of account''s axis_seq for calculation');
6138: END;
6139:
6140: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_calc_acct_type: '||l_calc_acct_type);
6141: UPDATE jl_br_sped_extr_data_t
6142: SET field4 = l_calc_acct_type
6143: WHERE request_id = g_concurrent_request_id
6144: AND field1 = 'J100'
6143: WHERE request_id = g_concurrent_request_id
6144: AND field1 = 'J100'
6145: AND trim(field8) = trim(calc_rec.field8) ;
6146:
6147: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'after Update');
6148: EXIT;
6149: ELSE
6150: l_axis_seq := trim(l_acct_axis_seq);
6151: END IF;
6172: WHEN OTHERS THEN
6173:
6174: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6175: IF g_debug_flag = 'Y' THEN
6176: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6177: END IF;
6178: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6179: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6180: END IF;
6235: AND r.column_set_id =ra.axis_set_id
6236: ORDER BY ra.sequence)
6237: WHERE ROWNUM=1; */
6238:
6239: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Format of number for Income statement report :'||l_format);
6240:
6241: FOR J150_rec IN J150_recs_by_jcp LOOP
6242: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'IN LOOP'||J150_rec.field8||J150_rec.field5);
6243:
6238:
6239: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Format of number for Income statement report :'||l_format);
6240:
6241: FOR J150_rec IN J150_recs_by_jcp LOOP
6242: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'IN LOOP'||J150_rec.field8||J150_rec.field5);
6243:
6244:
6245: l_amount := 0;
6246: l_amount_sign := 1;
6244:
6245: l_amount := 0;
6246: l_amount_sign := 1;
6247:
6248: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount before conversion :'||J150_rec.field5);
6249: l_amount_in_char := trim(J150_rec.field5);
6250:
6251: IF l_icx_num_format = ',.' THEN -- If the data is in 9.999,99 format changing it to 9,999.99 format
6252:
6264: ELSE
6265: l_amount := to_number(l_amount_in_char,'999,999,999.999999');
6266: END IF;
6267:
6268: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount after conversion :'||l_amount);
6269:
6270: l_cnt := 0;
6271: SELECT COUNT(*) -- Checking for account assignements
6272: INTO l_cnt
6273: FROM rg_report_axis_contents
6274: WHERE axis_set_id = l_row_set_id
6275: AND axis_seq = J150_rec.field8;
6276:
6277: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After cnt'||l_cnt);
6278:
6279: IF l_cnt > 0 THEN --account assignments exists
6280:
6281: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In acct assignments');
6277: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After cnt'||l_cnt);
6278:
6279: IF l_cnt > 0 THEN --account assignments exists
6280:
6281: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In acct assignments');
6282: -- FND_FILE.PUT_LINE(FND_FILE.LOG,J150_rec.field8||' '||J150_rec.field5);
6283:
6284:
6285: UPDATE jl_br_sped_extr_data_t tmp
6278:
6279: IF l_cnt > 0 THEN --account assignments exists
6280:
6281: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'In acct assignments');
6282: -- FND_FILE.PUT_LINE(FND_FILE.LOG,J150_rec.field8||' '||J150_rec.field5);
6283:
6284:
6285: UPDATE jl_br_sped_extr_data_t tmp
6286: SET (field2, field3,separator3, field4 ,separator4,field5,separator5,
6300: AND ROWNUM = 1) --There may exist multiple records in rg_report_contents for a axis_set_id and axis_seq
6301: WHERE request_id = g_concurrent_request_id
6302: AND field1 = 'J150'
6303: AND field8 = J150_rec.field8;
6304: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After update of account assignements');
6305:
6306: ELSE -- If the row is of type calculations.
6307: UPDATE jl_br_sped_extr_data_t tmp
6308: SET (field2, field3,separator3, field4 ,separator4,field5,separator5,
6322: AND ROWNUM = 1) --There may exist multiple records in rg_report_calculations for a axis_set_id and axis_seq
6323: WHERE request_id = g_concurrent_request_id
6324: AND field1 = 'J150'
6325: AND field8 = J150_rec.field8;
6326: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'After update of calculations');
6327: END IF;
6328:
6329: UPDATE jl_br_sped_extr_data_t
6330: SET record_seq = jl_br_sped_extr_data_t_s.nextval,
6349: WHEN OTHERS THEN
6350:
6351: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6352: IF g_debug_flag = 'Y' THEN
6353: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6354: END IF;
6355: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6356: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6357: END IF;
6385: IF g_journal_for_rtf IS NULL THEN
6386: RETURN;
6387: END IF;
6388:
6389: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal for RTF is :'||g_journal_for_rtf);
6390:
6391: IF g_bookkeeping_type = 'G' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
6392:
6393: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6411: EXIT;
6412: WHEN OTHERS THEN
6413: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6414: IF g_debug_flag = 'Y' THEN
6415: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6416: END IF;
6417: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6418: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6419: END IF;
6420: END;
6421:
6422: l_data_length := DBMS_LOB.GETLENGTH(l_lob_data); --getting the total length of rtf file
6423:
6424: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): Length of '||l_file_ids_rec.file_id ||' is:' ||l_data_length);
6425:
6426: WHILE (l_read_length < l_data_length )
6427: LOOP
6428:
6476: EXCEPTION
6477: WHEN OTHERS THEN
6478: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6479: IF g_debug_flag = 'Y' THEN
6480: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6481: END IF;
6482: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6483: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6484: END IF;
6523: l_book_number := null;
6524: WHEN OTHERS THEN
6525: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6526: IF g_debug_flag = 'Y' THEN
6527: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6528: END IF;
6529: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6530: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6531: END IF;
6583: g_last_update_date,
6584: g_last_update_login );
6585:
6586:
6587: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
6588:
6589: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6590: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
6591: G_PKG_NAME||': ' ||l_api_name||'()-');
6595: WHEN OTHERS THEN
6596:
6597: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6598: IF g_debug_flag = 'Y' THEN
6599: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6600: END IF;
6601: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6602: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6603: END IF;
6742: WHEN OTHERS THEN
6743:
6744: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6745: IF g_debug_flag = 'Y' THEN
6746: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6747: END IF;
6748: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6749: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6750: END IF;
6789: g_last_updated_by,
6790: g_last_update_date,
6791: g_last_update_login);
6792:
6793: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
6794:
6795: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6796: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
6797: G_PKG_NAME||': ' ||l_api_name||'()-');
6801: WHEN OTHERS THEN
6802:
6803: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6804: IF g_debug_flag = 'Y' THEN
6805: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6806: END IF;
6807: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6808: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6809: END IF;
6852: g_last_updated_by,
6853: g_last_update_date,
6854: g_last_update_login );
6855:
6856: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
6857:
6858: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6859: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
6860: G_PKG_NAME||': ' ||l_api_name||'()-');
6864: WHEN OTHERS THEN
6865:
6866: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6867: IF g_debug_flag = 'Y' THEN
6868: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
6869: END IF;
6870: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
6871: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
6872: END IF;
6926: AND field1 IS NOT NULL
6927: AND field1 <> '9001'
6928: GROUP BY field1);
6929:
6930: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
6931:
6932: /*9900 register should contain the number of records for each register.
6933: At the time of call to this register_9900, records doesn't exists for 9900, 9990 and 9999 registers.
6934: So need to insert the records 9990 and 9999 registers*/
7062: WHEN OTHERS THEN
7063:
7064: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7065: IF g_debug_flag = 'Y' THEN
7066: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
7067: END IF;
7068: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
7069: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
7070: END IF;
7110: g_last_updated_by,
7111: g_last_update_date,
7112: g_last_update_login );
7113:
7114: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
7115:
7116: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7117: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
7118: G_PKG_NAME||': ' ||l_api_name||'()-');
7122: WHEN OTHERS THEN
7123:
7124: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7125: IF g_debug_flag = 'Y' THEN
7126: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
7127: END IF;
7128: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
7129: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
7130: END IF;
7171: g_last_updated_by,
7172: g_last_update_date,
7173: g_last_update_login);
7174:
7175: -- FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'(): No of Records Inserted:' ||SQL%ROWCOUNT);
7176:
7177: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7178: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
7179: G_PKG_NAME||': ' ||l_api_name||'()-');
7183: WHEN OTHERS THEN
7184:
7185: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7186: IF g_debug_flag = 'Y' THEN
7187: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
7188: END IF;
7189: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
7190: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
7191: END IF;
7216: AND request_id = g_concurrent_request_id)
7217: WHERE field1 = '0001'
7218: AND request_id = g_concurrent_request_id;
7219:
7220: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 0001 register');
7221:
7222: UPDATE jl_br_sped_extr_data_t
7223: SET field2 = (SELECT COUNT(*)
7224: FROM jl_br_sped_extr_data_t
7226: AND request_id = g_concurrent_request_id)
7227: WHERE field1 = '0990'
7228: AND request_id = g_concurrent_request_id;
7229:
7230: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 0990 register');
7231:
7232: UPDATE jl_br_sped_extr_data_t
7233: SET field2 = (SELECT DECODE(COUNT(*),0,1,0)
7234: FROM jl_br_sped_extr_data_t
7236: AND request_id = g_concurrent_request_id)
7237: WHERE field1 = 'I001'
7238: AND request_id = g_concurrent_request_id;
7239:
7240: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated I001 register');
7241:
7242: UPDATE jl_br_sped_extr_data_t
7243: SET field2 = (SELECT COUNT(*)
7244: FROM jl_br_sped_extr_data_t
7246: AND request_id = g_concurrent_request_id)
7247: WHERE field1 = 'I990'
7248: AND request_id = g_concurrent_request_id;
7249:
7250: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated I990 register');
7251:
7252: UPDATE jl_br_sped_extr_data_t
7253: SET field2 = (SELECT DECODE(COUNT(*),0,1,0)
7254: FROM jl_br_sped_extr_data_t
7256: AND request_id = g_concurrent_request_id)
7257: WHERE field1 = 'J001'
7258: AND request_id = g_concurrent_request_id;
7259:
7260: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated J001 register');
7261:
7262: UPDATE jl_br_sped_extr_data_t
7263: SET field6 = (SELECT COUNT(*)
7264: FROM jl_br_sped_extr_data_t
7266: AND field1 IS NOT NULL)
7267: WHERE field1 = 'J900'
7268: AND request_id = g_concurrent_request_id;
7269:
7270: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated J990 register');
7271:
7272: UPDATE jl_br_sped_extr_data_t
7273: SET field2 = (SELECT COUNT(*)
7274: FROM jl_br_sped_extr_data_t
7277: AND field1 IS NOT NULL)
7278: WHERE field1 = 'J990'
7279: AND request_id = g_concurrent_request_id;
7280:
7281: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated J990 register');
7282:
7283: UPDATE jl_br_sped_extr_data_t
7284: SET field2 = (SELECT DECODE(COUNT(*),0,1,0)
7285: FROM jl_br_sped_extr_data_t
7287: AND request_id = g_concurrent_request_id)
7288: WHERE field1 = '9001'
7289: AND request_id = g_concurrent_request_id;
7290:
7291: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 9001 register');
7292:
7293: UPDATE jl_br_sped_extr_data_t
7294: SET field3 = (SELECT COUNT(*)
7295: FROM jl_br_sped_extr_data_t
7298: WHERE field1 = '9900'
7299: AND field2 = '9900'
7300: AND request_id = g_concurrent_request_id;
7301:
7302: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 9900 register');
7303:
7304: UPDATE jl_br_sped_extr_data_t
7305: SET field2 = (SELECT COUNT(*)
7306: FROM jl_br_sped_extr_data_t
7308: AND request_id = g_concurrent_request_id)
7309: WHERE field1 = '9990'
7310: AND request_id = g_concurrent_request_id;
7311:
7312: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 9990 register');
7313:
7314: UPDATE jl_br_sped_extr_data_t
7315: SET field5 = (SELECT COUNT(*)
7316: FROM jl_br_sped_extr_data_t
7318: AND field1 IS NOT NULL)
7319: WHERE field1 = 'I030'
7320: AND request_id = g_concurrent_request_id;
7321:
7322: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated I030 register');
7323:
7324: UPDATE jl_br_sped_extr_data_t
7325: SET field2 = (SELECT COUNT(*)
7326: FROM jl_br_sped_extr_data_t
7328: AND field1 IS NOT NULL)
7329: WHERE field1 = '9999'
7330: AND request_id = g_concurrent_request_id;
7331:
7332: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Updated 9999 register');
7333:
7334: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7335: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
7336: G_PKG_NAME||': '||l_api_name||'()-');
7340: WHEN OTHERS THEN
7341:
7342: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7343: IF g_debug_flag = 'Y' THEN
7344: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
7345: END IF;
7346: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
7347: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
7348: END IF;
7377:
7378: END IF;
7379: EXCEPTION
7380: WHEN OTHERS THEN
7381: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7382: g_errbuf := 'Issue while validation of the special situation start and end date';
7383: g_retcode :=2;
7384: RETURN;
7385: END;
7408: return;
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7413: g_errbuf := 'Erro while verification of previous report runs';
7414: g_retcode :=2;
7415: RETURN;
7416: END; -- End for checking whether the report is finally submitted or not for the period?
7443: g_errbuf := FND_MESSAGE.GET;
7444: g_retcode :=2;
7445: return;
7446: WHEN OTHERS THEN
7447: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7448: g_errbuf := 'Fialed to get book keeping type in validation_before_extract';
7449: g_retcode :=2;
7450: RETURN;
7451: END;
7475: g_errbuf := FND_MESSAGE.GET;
7476: g_retcode :=2;
7477: return;
7478: WHEN OTHERS THEN
7479: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7480: g_errbuf := 'Fialed to get book keeping type in validation_before_extract';
7481: g_retcode :=2;
7482: return;
7483: END;
7508: 'Purchasing','Receivables','Recurring','Revaluation','Revenue','Spreadsheet','Statistical','Transfer');
7509:
7510: IF l_journalsource_check = 1 THEN
7511: -- fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7512: -- fnd_file.put_line(fnd_file.log,fnd_message.get);
7513: fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7514: g_errbuf :=fnd_message.get;
7515: g_retcode :=2;
7516: RETURN;
7519: EXCEPTION
7520: WHEN NO_DATA_FOUND THEN
7521: null;
7522: WHEN OTHERS THEN
7523: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7524: g_errbuf := 'Error occurred while validating the journal sources.';
7525: g_retcode :=2;
7526: RETURN;
7527: END;
7633:
7634:
7635: IF g_bookkeeping_type = 'G' THEN
7636: IF l_cnt > 0 THEN
7637: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7652: END IF;
7653: END IF;
7654:
7655: l_cnt := 0;
7680: HAVING count(*) >1);
7681:
7682: IF g_bookkeeping_type = 'G' THEN
7683: IF l_cnt > 0 THEN
7684: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7701: END IF;
7702: END IF;
7703:
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7701: END IF;
7702: END IF;
7703:
7704: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7771: ,g_last_updated_by
7772: ,g_last_update_date
7773: ,g_last_update_login );
7774:
7775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7776: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_INICIAL');
7777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_INICIAL : '||FND_MESSAGE.GET);
7778:
7779: END IF;
7773: ,g_last_update_login );
7774:
7775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7776: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_INICIAL');
7777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_INICIAL : '||FND_MESSAGE.GET);
7778:
7779: END IF;
7780:
7781: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7839: ,g_last_updated_by
7840: ,g_last_update_date
7841: ,g_last_update_login );
7842:
7843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7844: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_FINAL');
7845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_FINAL : '||FND_MESSAGE.GET);
7846: END IF;
7847: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7841: ,g_last_update_login );
7842:
7843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7844: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_FINAL');
7845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_FINAL : '||FND_MESSAGE.GET);
7846: END IF;
7847: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7849: G_PKG_NAME||': ' ||l_api_name||'(): Validation for ''REGRA_VALIDACAO_SOMA_SALDO_FINAL'' was completed ');
7916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7917: G_PKG_NAME||': ' ||l_api_name||'(): Validation for ''REGRA_VALIDACAO_DEB_DIF_CRED'' was completed ');
7918: END IF;
7919:
7920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7921: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DEB_DIF_CRED');
7922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DEB_DIF_CRED : '||FND_MESSAGE.GET);
7923:
7924: EXCEPTION
7918: END IF;
7919:
7920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7921: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DEB_DIF_CRED');
7922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DEB_DIF_CRED : '||FND_MESSAGE.GET);
7923:
7924: EXCEPTION
7925: WHEN NO_DATA_FOUND THEN
7926: null;
7987: ,g_last_updated_by
7988: ,g_last_update_date
7989: ,g_last_update_login );
7990:
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7989: ,g_last_update_login );
7990:
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7997: LOOP
7990:
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7997: LOOP
7998: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7997: LOOP
7998: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
7999: END LOOP;
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7997: LOOP
7998: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
7999: END LOOP;
8000:
8001: END IF;
8002: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8064: ,g_creation_date
8065: ,g_last_updated_by
8066: ,g_last_update_date
8067: ,g_last_update_login );
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8066: ,g_last_update_date
8067: ,g_last_update_login );
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8074: LOOP
8067: ,g_last_update_login );
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8074: LOOP
8075: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8074: LOOP
8075: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
8076: END LOOP;
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8074: LOOP
8075: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field2||' '||rec.field3);
8076: END LOOP;
8077:
8078: END IF;
8079:
8139: ,g_last_updated_by
8140: ,g_last_update_date
8141: ,g_last_update_login );
8142:
8143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8144: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_DEB : '||FND_MESSAGE.GET);
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8140: ,g_last_update_date
8141: ,g_last_update_login );
8142:
8143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8144: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_DEB : '||FND_MESSAGE.GET);
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8148: LOOP
8141: ,g_last_update_login );
8142:
8143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8144: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_DEB : '||FND_MESSAGE.GET);
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8148: LOOP
8149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8142:
8143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8144: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_DEB : '||FND_MESSAGE.GET);
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8148: LOOP
8149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8150: END LOOP;
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8148: LOOP
8149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8150: END LOOP;
8151: END IF;
8152:
8153: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8211: ,g_last_updated_by
8212: ,g_last_update_date
8213: ,g_last_update_login );
8214:
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8213: ,g_last_update_login );
8214:
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8221: LOOP
8214:
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8221: LOOP
8222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8221: LOOP
8222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8223: END LOOP;
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8221: LOOP
8222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec.field6);
8223: END LOOP;
8224:
8225: END IF;
8226:
8298: ,g_creation_date
8299: ,g_last_updated_by
8300: ,g_last_update_date
8301: ,g_last_update_login );
8302: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8303: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DC_BALANCETE');
8304: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DC_BALANCETE : '||FND_MESSAGE.GET);
8305:
8306: END IF;
8300: ,g_last_update_date
8301: ,g_last_update_login );
8302: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8303: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DC_BALANCETE');
8304: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DC_BALANCETE : '||FND_MESSAGE.GET);
8305:
8306: END IF;
8307:
8308: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8361: ,g_creation_date
8362: ,g_last_updated_by
8363: ,g_last_update_date
8364: ,g_last_update_login );
8365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8366: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8368:
8369: END IF;
8363: ,g_last_update_date
8364: ,g_last_update_login );
8365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8366: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8368:
8369: END IF;
8370:
8371: l_cnt := 0;
8403: ,g_last_updated_by
8404: ,g_last_update_date
8405: ,g_last_update_login );
8406:
8407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8408: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8409: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8410: END IF;
8411:
8405: ,g_last_update_login );
8406:
8407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8408: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8409: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8410: END IF;
8411:
8412: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8413: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8476: END;
8477:
8478: IF l_request_id <> 0 THEN
8479:
8480: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Purging data of request_id:' || l_request_id);
8481:
8482: DELETE --purging the data as user running the extract prg for the combination which is already existing in temp table
8483: FROM jl_br_sped_extr_data_t
8484: WHERE request_id = l_request_id;
8566: AND field1='I250';
8567:
8568: BEGIN
8569:
8570: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameter values:');
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8567:
8568: BEGIN
8569:
8570: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameter values:');
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8568: BEGIN
8569:
8570: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameter values:');
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8569:
8570: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameter values:');
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8570: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameter values:');
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8571: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------');
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Ledger Id :'||p_ledger_id);
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8573: FND_FILE.PUT_LINE(FND_FILE.LOG,'Chart Of Accounts Id :'||p_chart_of_accounts_id);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8574: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Accounting Type:'||p_accounting_type);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8575: FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id :'||p_legal_entity_id);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8576: FND_FILE.PUT_LINE(FND_FILE.LOG,'Establishment Id :'||p_establishment_id);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8577: FND_FILE.PUT_LINE(FND_FILE.LOG,'Is Special Situation :'||p_is_special_situation);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8578: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Name :'||p_period_name);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Type :'||p_period_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8580: FND_FILE.PUT_LINE(FND_FILE.LOG,'01 - Regular Period, 02- Closing Period With Adjustment Period');
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8581: FND_FILE.PUT_LINE(FND_FILE.LOG,'Adjustment Period :'||p_adjustment_period_name);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Special Situation Indicator :'||p_special_situation_indicator);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8583: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period Start Date :'||p_start_date);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8584: FND_FILE.PUT_LINE(FND_FILE.LOG,'Period End Date :'||p_end_date);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8585: FND_FILE.PUT_LINE(FND_FILE.LOG,'Book Keeping Type :'||p_bookkeeping_type);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8586: FND_FILE.PUT_LINE(FND_FILE.LOG,'Participant Type :'||p_participant_type);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8587: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Segment :'||p_accounting_segment_type);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Referential Chart Of Accounts Mapping :'||p_coa_mapping_id);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8589: FND_FILE.PUT_LINE(FND_FILE.LOG,'Balance Sheet Report Name :'||p_balance_statement_request_id);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8590: FND_FILE.PUT_LINE(FND_FILE.LOG,'Income Statement Report Name :'||p_income_statement_request_id);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8591: FND_FILE.PUT_LINE(FND_FILE.LOG,'Agglutination Code Source :'||p_agglutination_code_source);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8592: FND_FILE.PUT_LINE(FND_FILE.LOG,'Journal Source for RTF File :'||p_journal_for_rtf);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8593: FND_FILE.PUT_LINE(FND_FILE.LOG,'Hash Code :'||p_hash_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8594: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Indication :'||p_acct_stmt_ident);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Accounting Statements Header :'||p_acct_stmt_header);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8596: FND_FILE.PUT_LINE(FND_FILE.LOG,'Generate SPED Text File :'||p_gen_sped_text_file);
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8604:
8597: FND_FILE.PUT_LINE(FND_FILE.LOG,'State And Munciple Inscription Source :'||p_inscription_source);
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8604:
8605:
8598: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE State Inscription :'||p_le_state_reg_code);
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8604:
8605:
8606: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------Parameters End-----------------------------------------');
8599: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for LE Munciple Inscription :'||p_le_municipal_reg_code);
8600: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define State Inscription :'||p_state_tax_id);
8601: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax State Inscription :'||p_ebtax_state_reg_code);
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8604:
8605:
8606: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------Parameters End-----------------------------------------');
8607:
8602: FND_FILE.PUT_LINE(FND_FILE.LOG,'Tax Used to define Munciple Inscription :'||p_municipal_reg_tax_id);
8603: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lookup Type for EBTax Munciple Inscription :'||p_ebtax_municipal_reg_code);
8604:
8605:
8606: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------Parameters End-----------------------------------------');
8607:
8608:
8609:
8610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling Initialize proc');
8606: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------Parameters End-----------------------------------------');
8607:
8608:
8609:
8610: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling Initialize proc');
8611:
8612: Initialize (p_ledger_id,
8613: p_chart_of_accounts_id,
8614: p_accounting_type,
8647: retcode := 2;
8648: return;
8649: END IF;
8650:
8651: FND_FILE.PUT_LINE(FND_FILE.LOG,'End of Initialize proc' );
8652: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling validation_before_extract proc' );
8653:
8654: validation_before_extract;
8655:
8648: return;
8649: END IF;
8650:
8651: FND_FILE.PUT_LINE(FND_FILE.LOG,'End of Initialize proc' );
8652: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling validation_before_extract proc' );
8653:
8654: validation_before_extract;
8655:
8656: IF g_retcode = 2 THEN
8658: retcode := 2;
8659: return;
8660: END IF;
8661:
8662: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'END Of validation_before_extract proc' );
8663:
8664: --Start Block 0
8665: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0000 proc');
8666: register_0000;
8661:
8662: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'END Of validation_before_extract proc' );
8663:
8664: --Start Block 0
8665: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0000 proc');
8666: register_0000;
8667: IF g_retcode = 2 THEN
8668: errbuf := g_errbuf;
8669: retcode := 2;
8668: errbuf := g_errbuf;
8669: retcode := 2;
8670: return;
8671: END IF;
8672: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0001 proc');
8673: register_0001;
8674: IF g_retcode = 2 THEN
8675: errbuf := g_errbuf;
8676: retcode := 2;
8675: errbuf := g_errbuf;
8676: retcode := 2;
8677: return;
8678: END IF;
8679: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0007 proc');
8680: register_0007;
8681: IF g_retcode = 2 THEN
8682: errbuf := g_errbuf;
8683: retcode := 2;
8682: errbuf := g_errbuf;
8683: retcode := 2;
8684: return;
8685: END IF;
8686: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0020 proc');
8687: register_0020;
8688: IF g_retcode = 2 THEN
8689: errbuf := g_errbuf;
8690: retcode := 2;
8689: errbuf := g_errbuf;
8690: retcode := 2;
8691: return;
8692: END IF;
8693: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0150_0180 proc');
8694: register_0150_0180;
8695: IF g_retcode = 2 THEN
8696: errbuf := g_errbuf;
8697: retcode := 2;
8696: errbuf := g_errbuf;
8697: retcode := 2;
8698: return;
8699: END IF;
8700: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_0990 proc');
8701: register_0990;
8702: IF g_retcode = 2 THEN
8703: errbuf := g_errbuf;
8704: retcode := 2;
8706: END IF;
8707:
8708: --Start Block I
8709:
8710: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I001 proc');
8711: register_I001;
8712: IF g_retcode = 2 THEN
8713: errbuf := g_errbuf;
8714: retcode := 2;
8714: retcode := 2;
8715: return;
8716: END IF;
8717:
8718: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I010 proc');
8719: register_I010;
8720: IF g_retcode = 2 THEN
8721: errbuf := g_errbuf;
8722: retcode := 2;
8722: retcode := 2;
8723: return;
8724: END IF;
8725:
8726: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I012 proc');
8727: register_I012;
8728: IF g_retcode = 2 THEN
8729: errbuf := g_errbuf;
8730: retcode := 2;
8730: retcode := 2;
8731: return;
8732: END IF;
8733:
8734: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I015 proc');
8735: register_I015;
8736: IF g_retcode = 2 THEN
8737: errbuf := g_errbuf;
8738: retcode := 2;
8745:
8746: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8747: FROM DUAL;
8748:
8749: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling code hook, which populates I015 for Integrated Receiving system');
8750: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Starting Sequence Value :'||l_sequence_value);
8751:
8752: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8753: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Start of Code Hook register_I015');
8746: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8747: FROM DUAL;
8748:
8749: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling code hook, which populates I015 for Integrated Receiving system');
8750: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Starting Sequence Value :'||l_sequence_value);
8751:
8752: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8753: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Start of Code Hook register_I015');
8754: END IF;
8773:
8774: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8775: FROM DUAL;
8776:
8777: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Ending Sequence Value :'||l_sequence_value);
8778: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8779: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Code Hook register_I105 : Ending Sequence Value :'||l_sequence_value);
8780: END IF;
8781:
8779: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Code Hook register_I105 : Ending Sequence Value :'||l_sequence_value);
8780: END IF;
8781:
8782: IF g_retcode = 2 THEN
8783: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error occurred in Custom package JL_BR_SPED_DATA_EXTRACT_PUB.register_I015');
8784: errbuf := g_errbuf;
8785: retcode :=2;
8786: RETURN;
8787: END IF;
8786: RETURN;
8787: END IF;
8788: END IF;
8789:
8790: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I030 proc');
8791: register_I030;
8792: IF g_retcode = 2 THEN
8793: errbuf := g_errbuf;
8794: retcode := 2;
8793: errbuf := g_errbuf;
8794: retcode := 2;
8795: return;
8796: END IF;
8797: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I050 proc');
8798:
8799: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I050:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8800: register_I050;
8801: IF g_retcode = 2 THEN
8795: return;
8796: END IF;
8797: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I050 proc');
8798:
8799: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I050:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8800: register_I050;
8801: IF g_retcode = 2 THEN
8802: errbuf := g_errbuf;
8803: retcode := 2;
8802: errbuf := g_errbuf;
8803: retcode := 2;
8804: return;
8805: END IF;
8806: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I100 proc');
8807:
8808: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I100:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8809: register_I100;
8810: IF g_retcode = 2 THEN
8804: return;
8805: END IF;
8806: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I100 proc');
8807:
8808: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I100:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8809: register_I100;
8810: IF g_retcode = 2 THEN
8811: errbuf := g_errbuf;
8812: retcode := 2;
8811: errbuf := g_errbuf;
8812: retcode := 2;
8813: return;
8814: END IF;
8815: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I150 proc');
8816: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I150:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8817: register_I150;
8818: IF g_retcode = 2 THEN
8819: errbuf := g_errbuf;
8812: retcode := 2;
8813: return;
8814: END IF;
8815: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I150 proc');
8816: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I150:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8817: register_I150;
8818: IF g_retcode = 2 THEN
8819: errbuf := g_errbuf;
8820: retcode := 2;
8822: END IF;
8823:
8824: IF substrb(g_bookkeeping_type,1,1) = 'B' THEN -- I151 register is required only for bookkeeping type 'B'
8825:
8826: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I151:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8827: register_I151;
8828: IF g_retcode = 2 THEN
8829: errbuf := g_errbuf;
8830: retcode := 2;
8831: return;
8832: END IF;
8833:
8834: END IF;
8835: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I155 proc');
8836: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I155:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8837: register_I155;
8838: IF g_retcode = 2 THEN
8839: errbuf := g_errbuf;
8832: END IF;
8833:
8834: END IF;
8835: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I155 proc');
8836: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I155:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8837: register_I155;
8838: IF g_retcode = 2 THEN
8839: errbuf := g_errbuf;
8840: retcode := 2;
8839: errbuf := g_errbuf;
8840: retcode := 2;
8841: return;
8842: END IF;
8843: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I200 proc');
8844: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I200:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8845: register_I200;
8846: IF g_retcode = 2 THEN
8847: errbuf := g_errbuf;
8840: retcode := 2;
8841: return;
8842: END IF;
8843: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I200 proc');
8844: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I200:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8845: register_I200;
8846: IF g_retcode = 2 THEN
8847: errbuf := g_errbuf;
8848: retcode := 2;
8855:
8856: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8857: FROM DUAL;
8858:
8859: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling code hook, which populates I200 and I250 for Integrated Receiving system');
8860: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Starting Sequence Value :'||l_sequence_value);
8861:
8862: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8863: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Start of Code Hook register_I200_I250');
8856: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8857: FROM DUAL;
8858:
8859: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling code hook, which populates I200 and I250 for Integrated Receiving system');
8860: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Starting Sequence Value :'||l_sequence_value);
8861:
8862: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8863: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Start of Code Hook register_I200_I250');
8864: END IF;
8883:
8884: SELECT jl_br_sped_extr_data_t_s.CURRVAL INTO l_sequence_value
8885: FROM DUAL;
8886:
8887: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Code Hook Ending Sequence Value :'||l_sequence_value);
8888: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8889: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Code Hook register_I200_I250 Ending Sequence Value :'||l_sequence_value);
8890: END IF;
8891:
8889: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME, 'Code Hook register_I200_I250 Ending Sequence Value :'||l_sequence_value);
8890: END IF;
8891:
8892: IF g_retcode = 2 THEN
8893: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error occurred in Custom package JL_BR_SPED_DATA_EXTRACT_PUB.register_I200_I250');
8894: errbuf := g_errbuf;
8895: retcode :=2;
8896: RETURN;
8897: END IF;
8897: END IF;
8898: END IF;
8899:
8900:
8901: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I300_I310 proc');
8902: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I300_I310:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8903: register_I300_I310;
8904: IF g_retcode = 2 THEN
8905: errbuf := g_errbuf;
8898: END IF;
8899:
8900:
8901: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I300_I310 proc');
8902: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I300_I310:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8903: register_I300_I310;
8904: IF g_retcode = 2 THEN
8905: errbuf := g_errbuf;
8906: retcode := 2;
8905: errbuf := g_errbuf;
8906: retcode := 2;
8907: return;
8908: END IF;
8909: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I350 proc');
8910: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I350:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8911: register_I350;
8912: IF g_retcode = 2 THEN
8913: errbuf := g_errbuf;
8906: retcode := 2;
8907: return;
8908: END IF;
8909: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I350 proc');
8910: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I350:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8911: register_I350;
8912: IF g_retcode = 2 THEN
8913: errbuf := g_errbuf;
8914: retcode := 2;
8913: errbuf := g_errbuf;
8914: retcode := 2;
8915: return;
8916: END IF;
8917: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I355 proc');
8918: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I355:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8919: register_I355;
8920: IF g_retcode = 2 THEN
8921: errbuf := g_errbuf;
8914: retcode := 2;
8915: return;
8916: END IF;
8917: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I355 proc');
8918: FND_FILE.PUT_LINE(FND_FILE.LOG,'before I355:'||to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
8919: register_I355;
8920: IF g_retcode = 2 THEN
8921: errbuf := g_errbuf;
8922: retcode := 2;
8921: errbuf := g_errbuf;
8922: retcode := 2;
8923: return;
8924: END IF;
8925: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_I990 proc');
8926: register_I990;
8927: IF g_retcode = 2 THEN
8928: errbuf := g_errbuf;
8929: retcode := 2;
8928: errbuf := g_errbuf;
8929: retcode := 2;
8930: return;
8931: END IF;
8932: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J001 proc');
8933: register_J001;
8934: IF g_retcode = 2 THEN
8935: errbuf := g_errbuf;
8936: retcode := 2;
8935: errbuf := g_errbuf;
8936: retcode := 2;
8937: return;
8938: END IF;
8939: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J001 proc');
8940: register_J005;
8941: IF g_retcode = 2 THEN
8942: errbuf := g_errbuf;
8943: retcode := 2;
8958: 'Y' -- Debug flag
8959: );
8960:
8961:
8962: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Request Id: '|| l_request_id);
8963: commit;
8964: --wait till the request completed.
8965: l_return := FND_CONCURRENT.WAIT_FOR_REQUEST( l_request_id,
8966: 1, --interval (no of secs to wait to check the status)
8975: /* Amount column in both J100 and J150 is a required field. So we shouldn't display
8976: the FSG records with the amount as not null. so Delete those records */
8977:
8978: IF l_return THEN
8979: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Return Status: True');
8980: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_status: '||l_status);
8981:
8982: IF l_status = 'Error' THEN --If FSG concurrent program ended in error then error out the data extract progam
8983: errbuf := 'Brazilian Accounting SPED Financial Statements Data Extraction Program Ended in Error.';
8976: the FSG records with the amount as not null. so Delete those records */
8977:
8978: IF l_return THEN
8979: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Return Status: True');
8980: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_status: '||l_status);
8981:
8982: IF l_status = 'Error' THEN --If FSG concurrent program ended in error then error out the data extract progam
8983: errbuf := 'Brazilian Accounting SPED Financial Statements Data Extraction Program Ended in Error.';
8984: retcode := 2;
8993: FROM jl_br_sped_extr_data_t
8994: WHERE request_id = g_concurrent_request_id
8995: AND field1 = 'J100';
8996:
8997: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cnt of rows from FSG for bal: '||l_cnt);
8998:
8999: EXCEPTION
9000: WHEN NO_DATA_FOUND THEN
9001: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found');
8997: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cnt of rows from FSG for bal: '||l_cnt);
8998:
8999: EXCEPTION
9000: WHEN NO_DATA_FOUND THEN
9001: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found');
9002: END;
9003:
9004: DELETE FROM jl_br_sped_extr_data_t
9005: WHERE field1 ='J100'
9017: FROM jl_br_sped_extr_data_t
9018: WHERE request_id = g_concurrent_request_id
9019: AND field1 = 'J100';
9020:
9021: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cnt of rows from FSG for bal: '||l_cnt);
9022:
9023: EXCEPTION
9024: WHEN NO_DATA_FOUND THEN
9025: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found');
9021: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cnt of rows from FSG for bal: '||l_cnt);
9022:
9023: EXCEPTION
9024: WHEN NO_DATA_FOUND THEN
9025: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found');
9026: END;
9027:
9028: IF g_balance_statement_request_id IS NOT NULL THEN
9029: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J100 proc');
9025: FND_FILE.PUT_LINE(FND_FILE.LOG,'No records found');
9026: END;
9027:
9028: IF g_balance_statement_request_id IS NOT NULL THEN
9029: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J100 proc');
9030: register_J100;
9031: IF g_retcode = 2 THEN
9032: errbuf := g_errbuf;
9033: retcode := 2;
9036: return;
9037: END IF;
9038: END IF;
9039: IF g_income_statement_request_id IS NOT NULL THEN
9040: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J150 proc');
9041: register_J150;
9042: IF g_retcode = 2 THEN
9043: errbuf := g_errbuf;
9044: retcode := 2;
9048: END IF;
9049: END IF;
9050:
9051: -- ELSE
9052: -- FND_FILE.PUT_LINE(FND_FILE.LOG , 'Return Status: False');
9053: END IF;
9054:
9055: END IF; -- End for check on FSG request Ids.
9056:
9055: END IF; -- End for check on FSG request Ids.
9056:
9057: END IF; -- End for check on book_keeping_type.
9058:
9059: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'End Of FSG registers');
9060:
9061: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J800 proc');
9062: register_J800;
9063: IF g_retcode = 2 THEN
9057: END IF; -- End for check on book_keeping_type.
9058:
9059: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'End Of FSG registers');
9060:
9061: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J800 proc');
9062: register_J800;
9063: IF g_retcode = 2 THEN
9064: errbuf := g_errbuf;
9065: retcode := 2;
9066: purge_data(g_concurrent_request_id);
9067: commit;
9068: return;
9069: END IF;
9070: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J900 proc');
9071: register_J900;
9072: IF g_retcode = 2 THEN
9073: errbuf := g_errbuf;
9074: retcode := 2;
9075: purge_data(g_concurrent_request_id);
9076: commit;
9077: return;
9078: END IF;
9079: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J930 proc');
9080: register_J930;
9081: IF g_retcode = 2 THEN
9082: errbuf := g_errbuf;
9083: retcode := 2;
9084: purge_data(g_concurrent_request_id);
9085: commit;
9086: return;
9087: END IF;
9088: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_J990 proc');
9089: register_J990;
9090: IF g_retcode = 2 THEN
9091: errbuf := g_errbuf;
9092: retcode := 2;
9093: purge_data(g_concurrent_request_id);
9094: commit;
9095: return;
9096: END IF;
9097: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_9001 proc');
9098: register_9001;
9099: IF g_retcode = 2 THEN
9100: errbuf := g_errbuf;
9101: retcode := 2;
9102: purge_data(g_concurrent_request_id);
9103: commit;
9104: return;
9105: END IF;
9106: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_9900 proc');
9107: register_9900;
9108: IF g_retcode = 2 THEN
9109: errbuf := g_errbuf;
9110: retcode := 2;
9111: purge_data(g_concurrent_request_id);
9112: commit;
9113: return;
9114: END IF;
9115: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_9990 proc');
9116: register_9990;
9117: IF g_retcode = 2 THEN
9118: errbuf := g_errbuf;
9119: retcode := 2;
9120: purge_data(g_concurrent_request_id);
9121: commit;
9122: return;
9123: END IF;
9124: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling register_9999 proc');
9125: register_9999;
9126: IF g_retcode = 2 THEN
9127: errbuf := g_errbuf;
9128: retcode := 2;
9146: /*ASCII characters 32 to 126 are printable characters. But as we even want to remove pipe,don't include chr(124) */
9147:
9148: printable_chars := printable_chars||fnd_global.local_chr(125)||fnd_global.local_chr(126);
9149:
9150: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Removing non printable characters');
9151:
9152: UPDATE jl_br_sped_extr_data_t
9153: SET field2 = translate(field2, printable_chars|| non_printable_chars, printable_chars),
9154: field3 = translate(field3, printable_chars|| non_printable_chars, printable_chars),
9166: field15 = translate(field15, printable_chars|| non_printable_chars, printable_chars)
9167: WHERE request_id = g_concurrent_request_id;
9168:
9169: IF g_bookkeeping_type <> 'B' AND p_revert_negative_journals = 'Y' THEN
9170: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling revert_negative_journals proc');
9171: revert_negative_journals;
9172: END IF;
9173:
9174: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling update_register_cnt proc');
9170: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling revert_negative_journals proc');
9171: revert_negative_journals;
9172: END IF;
9173:
9174: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling update_register_cnt proc');
9175: update_register_cnt;
9176:
9177:
9178:
9175: update_register_cnt;
9176:
9177:
9178:
9179: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling validation_after_extract proc');
9180: validation_after_extract;
9181: IF g_retcode = 2 THEN
9182: errbuf := g_errbuf;
9183: retcode := 2;
9185: commit;
9186: return;
9187: END IF;
9188:
9189: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Calling purge_data proc');
9190: purge_data;
9191: IF g_retcode = 2 THEN
9192: errbuf := g_errbuf;
9193: retcode := 2;
9197: END IF;
9198:
9199:
9200: BEGIN
9201: FND_FILE.PUT_LINE(FND_FILE.LOG,'');
9202: FOR accts_rec in accts_with_invalid_jrl_amounts LOOP
9203:
9204: FND_MESSAGE.SET_NAME('JL','JL_BR_SPED_INVALID_AMOUNTS');
9205: FND_MESSAGE.SET_TOKEN('COD_CTA',accts_rec.natural_acct);
9202: FOR accts_rec in accts_with_invalid_jrl_amounts LOOP
9203:
9204: FND_MESSAGE.SET_NAME('JL','JL_BR_SPED_INVALID_AMOUNTS');
9205: FND_MESSAGE.SET_TOKEN('COD_CTA',accts_rec.natural_acct);
9206: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
9207:
9208: END LOOP;
9209:
9210: EXCEPTION
9234: g_concurrent_request_id, -- request Id of data extract program
9235: 'P' -- preliminary mode
9236: );
9237:
9238: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Request Id: '|| l_request_id);
9239:
9240: END IF; -- End for check on p_gen_sped_text_file.
9241: RETURN;
9242: