225:
226: C_LINES_PER_COMMIT CONSTANT NUMBER := 5000;
227:
228: g_current_runtime_level NUMBER;
229: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
230: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
231: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
232: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
233: g_error_buffer VARCHAR2(100);
226: C_LINES_PER_COMMIT CONSTANT NUMBER := 5000;
227:
228: g_current_runtime_level NUMBER;
229: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
230: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
231: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
232: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
233: g_error_buffer VARCHAR2(100);
234:
227:
228: g_current_runtime_level NUMBER;
229: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
230: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
231: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
232: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
233: g_error_buffer VARCHAR2(100);
234:
235: G_INCLUDE_ACCOUNTING_SEGMENTS VARCHAR2(1);
228: g_current_runtime_level NUMBER;
229: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
230: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
231: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
232: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
233: g_error_buffer VARCHAR2(100);
234:
235: G_INCLUDE_ACCOUNTING_SEGMENTS VARCHAR2(1);
236: G_GL_OR_TRX_DATE_FILTER VARCHAR2(1);--BugFix5347188
297:
298: BEGIN
299:
300: IF (g_level_procedure >= g_current_runtime_level ) THEN
301: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.ASSIGN_GL_GLOBAL_VARIABLES.BEGIN',
302: 'ZX_GL_EXTRACT_PKG: ASSIGN_GL_GLOBAL_VARIABLES(+)');
303: END IF;
304: g_legal_entity_id := P_TRL_GLOBAL_VARIABLES_REC.LEGAL_ENTITY_ID;
305: G_REQUEST_ID := P_TRL_GLOBAL_VARIABLES_REC.REQUEST_ID;
354: G_GL_OR_TRX_DATE_FILTER := P_TRL_GLOBAL_VARIABLES_REC.GL_OR_TRX_DATE_FILTER;--BugFix:5347188
355:
356:
357: IF (g_level_procedure >= g_current_runtime_level ) THEN
358: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.ASSIGN_GL_GLOBAL_VARIABLES.END',
359: 'ZX_GL_EXTRACT_PKG: ASSIGN_GL_GLOBAL_VARIABLES(-)');
360: END IF;
361:
362: END ASSIGN_GL_GLOBAL_VARIABLES;
384: P_TRL_GLOBAL_VARIABLES_REC IN OUT NOCOPY ZX_EXTRACT_PKG.TRL_GLOBAL_VARIABLES_REC_TYPE
385: ) IS
386: BEGIN
387:
388: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
389:
390: IF (g_level_procedure >= g_current_runtime_level ) THEN
391: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_TAX_DATA.BEGIN',
392: 'ZX_GL_EXTRACT_PKG: INSERT_TAX_DATA(+)');
387:
388: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
389:
390: IF (g_level_procedure >= g_current_runtime_level ) THEN
391: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_TAX_DATA.BEGIN',
392: 'ZX_GL_EXTRACT_PKG: INSERT_TAX_DATA(+)');
393: END IF;
394:
395: ASSIGN_GL_GLOBAL_VARIABLES(
403: FETCH_GL_TRX_INFO;
404: -- END IF;
405:
406: IF (g_level_procedure >= g_current_runtime_level ) THEN
407: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_TAX_DATA.END',
408: 'ZX_GL_EXTRACT_PKG: INSERT_TAX_DATA(+)');
409: END IF;
410:
411: -- assign the output global variable
474: BEGIN
475:
476:
477: IF (g_level_procedure >= g_current_runtime_level ) THEN
478: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL.BEGIN',
479: 'ZX_GL_EXTRACT_PKG: BUILD_SQL(+)');
480: END IF;
481:
482: -- New Where Clause Predicates :
697: --AND GCC2.SEGMENT1 BETWEEN '' AND ''
698:
699: l_count := 0;
700: IF (g_level_procedure >= g_current_runtime_level ) THEN
701: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
702: 'L_WHERE_GL_FLEX = '||L_WHERE_GL_FLEX);
703: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
704: 'L_WHERE_GL_FLEX : Call to gl_mc_info.get_bal_seg_values');
705: END IF;
699: l_count := 0;
700: IF (g_level_procedure >= g_current_runtime_level ) THEN
701: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
702: 'L_WHERE_GL_FLEX = '||L_WHERE_GL_FLEX);
703: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
704: 'L_WHERE_GL_FLEX : Call to gl_mc_info.get_bal_seg_values');
705: END IF;
706:
707: -- For Legal Entity Level build predicate for blancing segments criteria
711: l_bal_value :=gl_mc_info.get_bal_seg_values(NULL,g_legal_entity_id,NULL,l_bsv_flag, l_bsv_list);
712: l_count := l_bsv_list.count;
713:
714: IF (g_level_procedure >= g_current_runtime_level ) THEN
715: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
716: 'L_WHERE_GL_FLEX : After Call to gl_mc_info.get_bal_seg_values'||to_char(l_count)||l_bsv_flag);
717: END IF;
718:
719: IF l_count > 0 THEN
728: L_WHERE_GL_FLEX := L_WHERE_GL_FLEX||',''';
729: end if;
730: -- l_bsv_in := l_bsv_in||'''||l_bsv||''
731: IF (g_level_procedure >= g_current_runtime_level ) THEN
732: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
733: 'L_WHERE_GL_FLEX :'||L_WHERE_GL_FLEX);
734: END IF;
735:
736: END LOOP;
736: END LOOP;
737:
738: L_WHERE_GL_FLEX := L_WHERE_GL_FLEX||' )';
739: IF (g_level_procedure >= g_current_runtime_level ) THEN
740: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
741: 'L_WHERE_GL_FLEX : After Call to gl_mc_info.get_bal_seg_values');
742: END IF;
743:
744: IF l_bal_value then
742: END IF;
743:
744: IF l_bal_value then
745: IF (g_level_procedure >= g_current_runtime_level ) THEN
746: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
747: 'L_WHERE_GL_FLEX : bal value ');
748: END IF;
749: END IF;
750: END IF; -- g_legal_entity_id ---
756: L_WHERE_GL_FLEX := L_WHERE_GL_FLEX_LE ||l_bsv;
757: END If;
758:
759: IF (g_level_procedure >= g_current_runtime_level ) THEN
760: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
761: 'L_WHERE_GL_FLEX : '||L_WHERE_GL_FLEX);
762: END IF;
763:
764: ***/
783: IF G_SUMMARY_LEVEL = 'TRANSACTION' THEN
784:
785:
786: IF (g_level_procedure >= g_current_runtime_level ) THEN
787: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
788: 'ZX_GL_EXTRACT_PKG: SQL-1');
789: END IF;
790:
791: --New Dyanamic SQL
1024: ELSIF g_summary_level IN ('TRANSACTION_LINE',
1025: 'TRANSACTION_DISTRIBUTION') THEN
1026:
1027: IF (g_level_procedure >= g_current_runtime_level ) THEN
1028: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
1029: 'ZX_GL_EXTRACT_PKG: SQL-2');
1030: END IF;
1031:
1032: l_column_list_gl :=
1233: END IF;
1234:
1235:
1236: IF (g_level_procedure >= g_current_runtime_level ) THEN
1237: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL.END',
1238: 'ZX_GL_EXTRACT_PKG: BUILD_SQL(-)');
1239: END IF;
1240:
1241: EXCEPTION
1244: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
1245: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','populate_tax_data- '|| g_error_buffer);
1246: FND_MSG_PUB.Add;
1247: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1248: FND_LOG.STRING(g_level_unexpected,
1249: 'ZX.TRL.ZX_GL_EXTRACT_PKG.BUILD_SQL',
1250: g_error_buffer);
1251: END IF;
1252:
1354: i NUMBER := 0;
1355:
1356: begin
1357:
1358: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1359:
1360: IF ( g_level_procedure>= g_current_runtime_level ) THEN
1361: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG','ZX_GL_EXTRACT_PKG.prorated_tax(+)');
1362: END IF;
1357:
1358: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1359:
1360: IF ( g_level_procedure>= g_current_runtime_level ) THEN
1361: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG','ZX_GL_EXTRACT_PKG.prorated_tax(+)');
1362: END IF;
1363:
1364: --Bug 5338150
1365: pr_tax_rec.edr:= null;
1369: pr_tax_rec.acr := null;
1370: pr_tax_rec.aam := null;
1371:
1372: IF ( g_level_statement>= g_current_runtime_level ) THEN
1373: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','In the Beginning : Displaying the parameters for the function prorated_tax ');
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1370: pr_tax_rec.aam := null;
1371:
1372: IF ( g_level_statement>= g_current_runtime_level ) THEN
1373: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','In the Beginning : Displaying the parameters for the function prorated_tax ');
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1371:
1372: IF ( g_level_statement>= g_current_runtime_level ) THEN
1373: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','In the Beginning : Displaying the parameters for the function prorated_tax ');
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1372: IF ( g_level_statement>= g_current_runtime_level ) THEN
1373: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','In the Beginning : Displaying the parameters for the function prorated_tax ');
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1373: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','In the Beginning : Displaying the parameters for the function prorated_tax ');
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1374: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_trx_id : '||p_trx_id);
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1375: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_ledger_id : '||p_ledger_id);
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1376: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_doc_seq_id : '||p_doc_seq_id);
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1377: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_code_id : '||p_tax_code_id);
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1378: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_code_comb_id :' ||p_code_comb_id );
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1379: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_class : '||p_tax_class );
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1380: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_doc_identifier :'||p_tax_doc_identifier );
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1381: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_name : '||p_tax_cust_name );
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1382: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_cust_reference : '||p_tax_cust_reference );
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1383: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_tax_reg_number : '||p_tax_reg_number );
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1384: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_seq_name :' ||p_seq_name );
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1392: END IF ;
1385: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','p_column_name : '||p_column_name );
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1392: END IF ;
1393:
1386: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Initial Values in pr_tax_rec record');
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1392: END IF ;
1393:
1394: if (pr_tax_rec.edr is null and
1387: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1388: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1389: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1390: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1391: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1392: END IF ;
1393:
1394: if (pr_tax_rec.edr is null and
1395: pr_tax_rec.ecr is null and
1402: --
1403: i := i + 1;
1404:
1405: IF ( g_level_statement>= g_current_runtime_level ) THEN
1406: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG',' Values for i : '||i);
1407: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG',' l_tax_rec_temp.tax_group_id : '||l_tax_rec_temp.tax_group_id);
1408: END IF ;
1409:
1410: open l_denominator_csr(l_tax_rec_temp.tax_group_id);
1403: i := i + 1;
1404:
1405: IF ( g_level_statement>= g_current_runtime_level ) THEN
1406: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG',' Values for i : '||i);
1407: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG',' l_tax_rec_temp.tax_group_id : '||l_tax_rec_temp.tax_group_id);
1408: END IF ;
1409:
1410: open l_denominator_csr(l_tax_rec_temp.tax_group_id);
1411: fetch l_denominator_csr into l_denominator;
1411: fetch l_denominator_csr into l_denominator;
1412: close l_denominator_csr;
1413: --
1414: IF ( g_level_statement>= g_current_runtime_level ) THEN
1415: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_denominator1 : '||l_denominator);
1416: END IF ;
1417: /* Code added by SSWAYAMP for bug 1742970 */
1418:
1419: if l_denominator = 0 then
1425: close l_denominator_csr1;
1426: end if;
1427:
1428: IF ( g_level_statement>= g_current_runtime_level ) THEN
1429: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_denominator 2: '||l_denominator);
1430: END IF ;
1431: /* End of Bug 1742970 */
1432:
1433: --bug2242602
1440: arp_util_tax.debug('l_denominator :'||to_char(l_denominator));
1441: END IF;
1442:
1443: IF ( g_level_statement>= g_current_runtime_level ) THEN
1444: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.etaxableam : '|| l_tax_rec_temp.etaxableam);
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1441: END IF;
1442:
1443: IF ( g_level_statement>= g_current_runtime_level ) THEN
1444: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.etaxableam : '|| l_tax_rec_temp.etaxableam);
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1442:
1443: IF ( g_level_statement>= g_current_runtime_level ) THEN
1444: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.etaxableam : '|| l_tax_rec_temp.etaxableam);
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.aam : '|| l_tax_rec_temp.aam);
1443: IF ( g_level_statement>= g_current_runtime_level ) THEN
1444: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.etaxableam : '|| l_tax_rec_temp.etaxableam);
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.aam : '|| l_tax_rec_temp.aam);
1451: END IF ;
1444: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.etaxableam : '|| l_tax_rec_temp.etaxableam);
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.aam : '|| l_tax_rec_temp.aam);
1451: END IF ;
1452: --
1445: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','Values fetched from l_tax_csr : for pr_tax_rec record');
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.aam : '|| l_tax_rec_temp.aam);
1451: END IF ;
1452: --
1453: pr_tax_rec.edr := nvl(pr_tax_rec.edr,0) +
1446: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.ecr : '|| l_tax_rec_temp.ecr);
1447: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.eam : '|| l_tax_rec_temp.eam);
1448: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.adr : '|| l_tax_rec_temp.adr);
1449: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.acr : '|| l_tax_rec_temp.acr);
1450: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','l_tax_rec_temp.aam : '|| l_tax_rec_temp.aam);
1451: END IF ;
1452: --
1453: pr_tax_rec.edr := nvl(pr_tax_rec.edr,0) +
1454: (l_tax_rec_temp.edr*l_tax_rec_temp.etaxableam/l_denominator);
1464: (l_tax_rec_temp.aam*l_tax_rec_temp.etaxableam/l_denominator);
1465: --
1466:
1467: IF ( g_level_statement>= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1465: --
1466:
1467: IF ( g_level_statement>= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1473: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1466:
1467: IF ( g_level_statement>= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1473: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1474: END IF ;
1467: IF ( g_level_statement>= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1473: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1474: END IF ;
1475:
1468: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.edr : '||pr_tax_rec.edr);
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1473: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1474: END IF ;
1475:
1476: end loop;
1469: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.ecr : '||pr_tax_rec.ecr);
1470: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.eam : '|| pr_tax_rec.eam);
1471: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.adr : '|| pr_tax_rec.adr);
1472: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.acr :'||to_char(pr_tax_rec.acr));
1473: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG','pr_tax_rec.aam : '|| pr_tax_rec.aam);
1474: END IF ;
1475:
1476: end loop;
1477: --
1509: l_amount := 0;
1510: end if;
1511: --
1512: IF ( g_level_statement>= g_current_runtime_level ) THEN
1513: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG',
1514: ' p_column_name : '||p_column_name||' l_amount : '||l_amount);
1515: END IF ;
1516:
1517: IF PG_DEBUG = 'Y' THEN
1540: BEGIN
1541:
1542:
1543: IF (g_level_procedure >= g_current_runtime_level ) THEN
1544: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1545: 'INSERT_GL_SUB_ITF(+)');
1546: END IF;
1547: for m in 1..nvl(gt_ledger_id.COUNT,0) loop
1548:
1546: END IF;
1547: for m in 1..nvl(gt_ledger_id.COUNT,0) loop
1548:
1549: IF (g_level_statement >= g_current_runtime_level ) THEN
1550: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1551: 'Taxable Amt '||to_char(GT_TAXABLE_AMT_FUNCL_CURR(m)));
1552: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1553: 'Tax Amt '||to_char(GT_TAX_AMT(m)));
1554: END IF;
1548:
1549: IF (g_level_statement >= g_current_runtime_level ) THEN
1550: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1551: 'Taxable Amt '||to_char(GT_TAXABLE_AMT_FUNCL_CURR(m)));
1552: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1553: 'Tax Amt '||to_char(GT_TAX_AMT(m)));
1554: END IF;
1555:
1556:
1868: TO_CHAR(nvl(gt_ledger_id.COUNT, 0)));
1869: END IF;
1870:
1871: IF (g_level_procedure >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1873: 'Number of GL rows successfully inserted ='||TO_CHAR(nvl(gt_ledger_id.COUNT, 0)));
1874: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF.END',
1875: 'INSERT_GL_SUB_ITF(-)');
1876: END IF;
1870:
1871: IF (g_level_procedure >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1873: 'Number of GL rows successfully inserted ='||TO_CHAR(nvl(gt_ledger_id.COUNT, 0)));
1874: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF.END',
1875: 'INSERT_GL_SUB_ITF(-)');
1876: END IF;
1877:
1878: EXCEPTION
1881: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
1882: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','populate_tax_data- '|| g_error_buffer);
1883: FND_MSG_PUB.Add;
1884: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1885: FND_LOG.STRING(g_level_unexpected,
1886: 'ZX.TRL.ZX_GL_EXTRACT_PKG.INSERT_GL_SUB_ITF',
1887: g_error_buffer);
1888: END IF;
1889:
1923: l_sql9 varchar2(3500);
1924: BEGIN
1925:
1926: IF (g_level_procedure >= g_current_runtime_level ) THEN
1927: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO.BEGIN',
1928: 'ZX_GL_EXTRACT_PKG: FETCH_GL_TRX_INFO(+)');
1929: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO',
1930: 'FETCH_GL_TRX_INFO : Open zx_rep_detail_csr ');
1931: END IF;
1925:
1926: IF (g_level_procedure >= g_current_runtime_level ) THEN
1927: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO.BEGIN',
1928: 'ZX_GL_EXTRACT_PKG: FETCH_GL_TRX_INFO(+)');
1929: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO',
1930: 'FETCH_GL_TRX_INFO : Open zx_rep_detail_csr ');
1931: END IF;
1932:
1933: L_SQL_STATEMENT_GL := L_COLUMN_LIST_GL ||
1936:
1937:
1938: IF (g_level_procedure >= g_current_runtime_level ) THEN
1939: l_sql1 := substr(L_SQL_STATEMENT_GL,1,3000);
1940: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql1);
1941: l_sql2 := substr(L_SQL_STATEMENT_GL,3001,3000);
1942: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql2);
1943: l_sql3 := substr(L_SQL_STATEMENT_GL,6001,3000);
1944: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql3);
1938: IF (g_level_procedure >= g_current_runtime_level ) THEN
1939: l_sql1 := substr(L_SQL_STATEMENT_GL,1,3000);
1940: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql1);
1941: l_sql2 := substr(L_SQL_STATEMENT_GL,3001,3000);
1942: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql2);
1943: l_sql3 := substr(L_SQL_STATEMENT_GL,6001,3000);
1944: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql3);
1945: l_sql4 := substr(L_SQL_STATEMENT_GL,9001,3000);
1946: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql4);
1940: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql1);
1941: l_sql2 := substr(L_SQL_STATEMENT_GL,3001,3000);
1942: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql2);
1943: l_sql3 := substr(L_SQL_STATEMENT_GL,6001,3000);
1944: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql3);
1945: l_sql4 := substr(L_SQL_STATEMENT_GL,9001,3000);
1946: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql4);
1947: l_sql5 := substr(L_SQL_STATEMENT_GL,12001,3000);
1948: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql5);
1942: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql2);
1943: l_sql3 := substr(L_SQL_STATEMENT_GL,6001,3000);
1944: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql3);
1945: l_sql4 := substr(L_SQL_STATEMENT_GL,9001,3000);
1946: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql4);
1947: l_sql5 := substr(L_SQL_STATEMENT_GL,12001,3000);
1948: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql5);
1949: l_sql6 := substr(L_SQL_STATEMENT_GL,15001,3000);
1950: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql6);
1944: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql3);
1945: l_sql4 := substr(L_SQL_STATEMENT_GL,9001,3000);
1946: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql4);
1947: l_sql5 := substr(L_SQL_STATEMENT_GL,12001,3000);
1948: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql5);
1949: l_sql6 := substr(L_SQL_STATEMENT_GL,15001,3000);
1950: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql6);
1951: l_sql7 := substr(L_SQL_STATEMENT_GL,18001,3000);
1952: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql7);
1946: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql4);
1947: l_sql5 := substr(L_SQL_STATEMENT_GL,12001,3000);
1948: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql5);
1949: l_sql6 := substr(L_SQL_STATEMENT_GL,15001,3000);
1950: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql6);
1951: l_sql7 := substr(L_SQL_STATEMENT_GL,18001,3000);
1952: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql7);
1953: l_sql8 := substr(L_SQL_STATEMENT_GL,21001,3000);
1954: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql8);
1948: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql5);
1949: l_sql6 := substr(L_SQL_STATEMENT_GL,15001,3000);
1950: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql6);
1951: l_sql7 := substr(L_SQL_STATEMENT_GL,18001,3000);
1952: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql7);
1953: l_sql8 := substr(L_SQL_STATEMENT_GL,21001,3000);
1954: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql8);
1955: END IF;
1956:
1950: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql6);
1951: l_sql7 := substr(L_SQL_STATEMENT_GL,18001,3000);
1952: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql7);
1953: l_sql8 := substr(L_SQL_STATEMENT_GL,21001,3000);
1954: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO SQL', 'L_SQL_STATEMENT_GL : '||l_sql8);
1955: END IF;
1956:
1957: OPEN zx_rep_detail_csr FOR L_SQL_STATEMENT_GL USING
1958: G_GL_DATE_LOW,
1988: -- G_EXCISE_TAX;
1989:
1990:
1991: IF (g_level_procedure >= g_current_runtime_level ) THEN
1992: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO',
1993: 'FETCH_GL_TRX_INFO : After Open zx_rep_detail_csr ');
1994: END IF;
1995:
1996: --
2096: gt_accounting_date(i);
2097:
2098:
2099: IF (g_level_procedure >= g_current_runtime_level ) THEN
2100: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.fetch_tax_info',
2101: 'Before insert GL Tax lines :' ||to_char(GT_TRX_ID.count));
2102: END IF;
2103:
2104: IF zx_rep_detail_csr%FOUND THEN
2135: END IF;
2136: END LOOP;
2137:
2138: IF (g_level_procedure >= g_current_runtime_level ) THEN
2139: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_GL_TRX_INFO.END',
2140: 'ZX_GL_EXTRACT_PKG: FETCH_GL_TRX_INFO(-)');
2141: END IF;
2142:
2143: EXCEPTION
2146: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
2147: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','populate_tax_data- '|| g_error_buffer);
2148: FND_MSG_PUB.Add;
2149: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2150: FND_LOG.STRING(g_level_unexpected,
2151: 'ZX.TRL.ZX_GL_EXTRACT_PKG.FETCH_TAX_INFO',
2152: g_error_buffer);
2153: END IF;
2154:
2261: l_taxable_amt_funcl_curr number;
2262: l_account_type VARCHAR2(1);
2263: BEGIN
2264:
2265: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2266: g_request_id := P_TRL_GLOBAL_VARIABLES_REC.request_id;
2267:
2268: IF (g_level_procedure >= g_current_runtime_level ) THEN
2269: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.UPDATE_ADDITIONAL_INFO.BEGIN',
2265: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2266: g_request_id := P_TRL_GLOBAL_VARIABLES_REC.request_id;
2267:
2268: IF (g_level_procedure >= g_current_runtime_level ) THEN
2269: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.UPDATE_ADDITIONAL_INFO.BEGIN',
2270: 'ZX_GL_EXTRACT_PKG:UPDATE_ADDITIONAL_INFO(+)');
2271: END IF;
2272:
2273: l_balancing_segment := fa_rx_flex_pkg.flex_sql(
2392: GT_TAX_JURISDICTION_CODE(i),
2393: i );
2394:
2395: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2396: FND_LOG.STRING(g_level_unexpected,
2397: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.BEGIN',
2398: 'tax '||GT_TAX(i)||' tax regime code '||GT_TAX_REGIME_CODE(i)||' Jurisdiction '||GT_TAX_JURISDICTION_CODE(i));
2399: END IF;
2400:
2428: P_QUALIFIER => 'ALL',
2429: P_CCID => GT_ACTG_LINE_CCID(i));
2430:
2431: IF (g_level_procedure >= g_current_runtime_level ) THEN
2432: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.UPDATE_ADDITIONAL_INFO',
2433: 'Account Flexfield = '||GT_ACCOUNT_FLEXFIELD(i));
2434: END IF;
2435:
2436: GT_ACCOUNT_DESCRIPTION(i) := FA_RX_FLEX_PKG.GET_DESCRIPTION(
2440: P_QUALIFIER => 'ALL',
2441: P_DATA => GT_ACCOUNT_FLEXFIELD(i));
2442:
2443: IF (g_level_procedure >= g_current_runtime_level ) THEN
2444: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.UPDATE_ADDITIONAL_INFO',
2445: 'Account Description = '||GT_ACCOUNT_DESCRIPTION(i));
2446: END IF;
2447:
2448: END IF;
2484:
2485: END LOOP;
2486:
2487: IF (g_level_procedure >= g_current_runtime_level ) THEN
2488: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.UPDATE_ADDITIONAL_INFO.END',
2489: 'ZX_GL_EXTRACT_PKG:UPDATE_ADDITIONAL_INFO(-)');
2490: END IF;
2491: END UPDATE_ADDITIONAL_INFO;
2492:
2579:
2580: BEGIN
2581:
2582: IF (g_level_procedure >= g_current_runtime_level ) THEN
2583: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS.BEGIN',
2584: 'ZX_GL_EXTRACT_PKG: GET_ACCOUNTING_SEGMENTS(+)');
2585: END IF;
2586:
2587: L_TRX_ARAP_BALANCING_SEGMENT := NULL;
2620: EXECUTE IMMEDIATE L_SQL_STATEMENT2 INTO L_ACCT_SEG_VAL
2621: USING L_CCID;
2622:
2623: IF (g_level_procedure >= g_current_runtime_level ) THEN
2624: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2625: 'trx_id - tax_code_id - ccid - L_ACCT_SEG_VAL '||to_char(P_TRX_ID)||'-'||to_char(P_TRX_LINE_ID)||to_char(P_TAX_CODE_ID) ||'-'||to_char(L_CCID)||L_ACCT_SEG_VAL);
2626: END IF;
2627:
2628:
2635: P_QUALIFIER => 'ALL',
2636: P_CCID => l_ccid);
2637:
2638: IF (g_level_procedure >= g_current_runtime_level ) THEN
2639: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2640: 'Taxable Line Account Flexfield = '||L_TRX_CONTROL_ACCFLEXFIELD);
2641: END IF;
2642:
2643: L_TRX_TAXABLE_ACCOUNT_DESC := FA_RX_FLEX_PKG.GET_DESCRIPTION(
2647: P_QUALIFIER => 'ALL',
2648: P_DATA => L_TRX_CONTROL_ACCFLEXFIELD);
2649:
2650: IF (g_level_procedure >= g_current_runtime_level ) THEN
2651: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2652: 'Account Description for Taxable Line CCID = '||L_TRX_TAXABLE_ACCOUNT_DESC);
2653: END IF;
2654:
2655: END IF ;
2704: L_TRX_TAXABLE_NATURAL_ACCOUNT := L_TRX_ARAP_NATURAL_ACCOUNT;
2705: END LOOP;
2706:
2707: IF (g_level_procedure >= g_current_runtime_level ) THEN
2708: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2709: 'Trx Balancing Segment = '||L_TRX_ARAP_BALANCING_SEGMENT);
2710: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2711: 'Trx Natural A/c Segment = '||L_TRX_ARAP_NATURAL_ACCOUNT);
2712: END IF;
2706:
2707: IF (g_level_procedure >= g_current_runtime_level ) THEN
2708: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2709: 'Trx Balancing Segment = '||L_TRX_ARAP_BALANCING_SEGMENT);
2710: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2711: 'Trx Natural A/c Segment = '||L_TRX_ARAP_NATURAL_ACCOUNT);
2712: END IF;
2713:
2714: IF TAXABLE_ACCT_CURSOR%ISOPEN THEN
2755:
2756: END LOOP;
2757:
2758: IF (g_level_procedure >= g_current_runtime_level ) THEN
2759: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2760: 'Taxable Balancing Segment = '||L_TRX_TAXABLE_BAL_SEG);
2761: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2762: 'Taxable Natural A/c Segment = '||L_TRX_TAXABLE_NATURAL_ACCOUNT);
2763: END IF;
2757:
2758: IF (g_level_procedure >= g_current_runtime_level ) THEN
2759: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2760: 'Taxable Balancing Segment = '||L_TRX_TAXABLE_BAL_SEG);
2761: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2762: 'Taxable Natural A/c Segment = '||L_TRX_TAXABLE_NATURAL_ACCOUNT);
2763: END IF;
2764:
2765: IF TAX_ACCT_CURSOR%ISOPEN THEN
2805:
2806: END LOOP;
2807: */
2808: IF (g_level_procedure >= g_current_runtime_level ) THEN
2809: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2810: 'Tax Balancing Segment = '||L_TRX_TAX_BALANCING_SEGMENT);
2811: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2812: 'Tax Natural A/c Segment = '||L_TRX_TAX_NATURAL_ACCOUNT);
2813: END IF;
2807: */
2808: IF (g_level_procedure >= g_current_runtime_level ) THEN
2809: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2810: 'Tax Balancing Segment = '||L_TRX_TAX_BALANCING_SEGMENT);
2811: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2812: 'Tax Natural A/c Segment = '||L_TRX_TAX_NATURAL_ACCOUNT);
2813: END IF;
2814:
2815: /* IF CONTROL_ACCT_CURSOR%ISOPEN THEN
2829: P_TRX_TAXABLE_BALSEG_DESC := L_TRX_TAXABLE_BALSEG_DESC;
2830: P_TRX_TAXABLE_NATACCT_DESC := L_TRX_TAXABLE_NATACCT_DESC;
2831:
2832: IF (g_level_procedure >= g_current_runtime_level ) THEN
2833: FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS.END',
2834: 'ZX_GL_EXTRACT_PKG: GET_ACCOUNTING_SEGMENTS(-)');
2835: END IF;
2836:
2837: EXCEPTION
2840: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
2841: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','get_accounting_segments- '|| g_error_buffer);
2842: FND_MSG_PUB.Add;
2843: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2844: FND_LOG.STRING(g_level_unexpected,
2845: 'ZX.TRL.ZX_GL_EXTRACT_PKG.GET_ACCOUNTING_SEGMENTS',
2846: g_error_buffer);
2847: END IF;
2848:
2874: l_return_status varchar2(30);
2875: BEGIN
2876:
2877: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2878: FND_LOG.STRING(g_level_unexpected,
2879: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.BEGIN',
2880: 'populate_tax_reg_num(+) ');
2881: END IF;
2882:
2882:
2883: IF P_TRL_GLOBAL_VARIABLES_REC.legal_entity_id is NULL THEN
2884:
2885: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2886: FND_LOG.STRING(g_level_unexpected,
2887: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.BEGIN',
2888: 'Null LE ID Found');
2889: FND_LOG.STRING(g_level_unexpected,
2890: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.END',
2885: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2886: FND_LOG.STRING(g_level_unexpected,
2887: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.BEGIN',
2888: 'Null LE ID Found');
2889: FND_LOG.STRING(g_level_unexpected,
2890: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.END',
2891: 'populate_tax_reg_num(-) ');
2892: END IF;
2893: GT_TAX_REG_NUM(i) := NULL;
2915: WHEN NO_DATA_FOUND THEN
2916: GT_TAX_REG_NUM(i) := NULL;
2917: END;
2918: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2919: FND_LOG.STRING(g_level_unexpected,
2920: 'ZX.TRL.ZX_GL_POPULATE_PKG.populate_tax_reg_num.END',
2921: 'populate_tax_reg_num(-) ');
2922: END IF;
2923: END populate_tax_reg_num;