57: RETURN (bal_segment_value);
58:
59: EXCEPTION
60: WHEN NO_DATA_FOUND THEN
61: fnd_file.put_line(fnd_file.log,' No record was returned for the GL_Balancing segment. Error : ' || SUBSTR(SQLERRM,1,200));
62: RETURN NULL;
63: WHEN OTHERS THEN
64: fnd_file.put_line(fnd_file.log,' Error in GET_BSV function : ' || SUBSTR(SQLERRM,1,200));
65: RETURN NULL;
60: WHEN NO_DATA_FOUND THEN
61: fnd_file.put_line(fnd_file.log,' No record was returned for the GL_Balancing segment. Error : ' || SUBSTR(SQLERRM,1,200));
62: RETURN NULL;
63: WHEN OTHERS THEN
64: fnd_file.put_line(fnd_file.log,' Error in GET_BSV function : ' || SUBSTR(SQLERRM,1,200));
65: RETURN NULL;
66: END get_bsv;
67:
68: -----------------------------------------
144: AND rownum=1;
145:
146: BEGIN
147:
148: fnd_file.put_line(fnd_file.log,'p_reporting_level: '
149: ||p_reporting_level);
150: fnd_file.put_line(fnd_file.log,'p_vat_reporting_entity_id: '
151: ||p_vat_reporting_entity_id);
152: fnd_file.put_line(fnd_file.log,'p_bsv: '
146: BEGIN
147:
148: fnd_file.put_line(fnd_file.log,'p_reporting_level: '
149: ||p_reporting_level);
150: fnd_file.put_line(fnd_file.log,'p_vat_reporting_entity_id: '
151: ||p_vat_reporting_entity_id);
152: fnd_file.put_line(fnd_file.log,'p_bsv: '
153: ||p_bsv);
154: fnd_file.put_line(fnd_file.log,'p_period: '
148: fnd_file.put_line(fnd_file.log,'p_reporting_level: '
149: ||p_reporting_level);
150: fnd_file.put_line(fnd_file.log,'p_vat_reporting_entity_id: '
151: ||p_vat_reporting_entity_id);
152: fnd_file.put_line(fnd_file.log,'p_bsv: '
153: ||p_bsv);
154: fnd_file.put_line(fnd_file.log,'p_period: '
155: ||p_period);
156:
150: fnd_file.put_line(fnd_file.log,'p_vat_reporting_entity_id: '
151: ||p_vat_reporting_entity_id);
152: fnd_file.put_line(fnd_file.log,'p_bsv: '
153: ||p_bsv);
154: fnd_file.put_line(fnd_file.log,'p_period: '
155: ||p_period);
156:
157: OPEN c_is_upgrade_customer;
158: FETCH c_is_upgrade_customer INTO l_is_upgrade_customer;
160:
161: IF l_is_upgrade_customer = 0 THEN
162:
163: FND_MESSAGE.SET_NAME('JG','JG_ZZ_VAT_PRE_REP_PROC_NREQ');
164: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
165: return;
166:
167: END IF;
168:
243:
244: END IF;
245:
246:
247: fnd_file.put_line(fnd_file.log,'Ledger ID: '
248: ||l_ledger_id);
249: fnd_file.put_line(fnd_file.log,'BSV VAT Reporting Entity ID: '
250: ||l_bsv_vat_rep_entity_id);
251: fnd_file.put_line(fnd_file.log,'Driving Date Code: '
245:
246:
247: fnd_file.put_line(fnd_file.log,'Ledger ID: '
248: ||l_ledger_id);
249: fnd_file.put_line(fnd_file.log,'BSV VAT Reporting Entity ID: '
250: ||l_bsv_vat_rep_entity_id);
251: fnd_file.put_line(fnd_file.log,'Driving Date Code: '
252: ||l_driving_date_code);
253: fnd_file.put_line(fnd_file.log,'Lega VAT Reporting Entity ID: '
247: fnd_file.put_line(fnd_file.log,'Ledger ID: '
248: ||l_ledger_id);
249: fnd_file.put_line(fnd_file.log,'BSV VAT Reporting Entity ID: '
250: ||l_bsv_vat_rep_entity_id);
251: fnd_file.put_line(fnd_file.log,'Driving Date Code: '
252: ||l_driving_date_code);
253: fnd_file.put_line(fnd_file.log,'Lega VAT Reporting Entity ID: '
254: ||l_mapping_rep_entity_id);
255:
249: fnd_file.put_line(fnd_file.log,'BSV VAT Reporting Entity ID: '
250: ||l_bsv_vat_rep_entity_id);
251: fnd_file.put_line(fnd_file.log,'Driving Date Code: '
252: ||l_driving_date_code);
253: fnd_file.put_line(fnd_file.log,'Lega VAT Reporting Entity ID: '
254: ||l_mapping_rep_entity_id);
255:
256: SELECT start_date ,
257: end_date
453: l_update_query_ar := REPLACE( l_update_query_ar,'$l_legal_entity_id$',l_legal_entity_id);
454: l_update_query_ar := REPLACE( l_update_query_ar,'$p_chart_of_account_id$',p_chart_of_account_id);
455: l_update_query_ar := REPLACE( l_update_query_ar,'$p_bsv$',p_bsv);
456:
457: fnd_file.put_line(fnd_file.log,'l_update_query_ap :='||l_update_query_ap);
458: fnd_file.put_line(fnd_file.log,'l_update_query_ar :='||l_update_query_ar);
459:
460: EXECUTE IMMEDIATE l_update_query_ap;
461:
454: l_update_query_ar := REPLACE( l_update_query_ar,'$p_chart_of_account_id$',p_chart_of_account_id);
455: l_update_query_ar := REPLACE( l_update_query_ar,'$p_bsv$',p_bsv);
456:
457: fnd_file.put_line(fnd_file.log,'l_update_query_ap :='||l_update_query_ap);
458: fnd_file.put_line(fnd_file.log,'l_update_query_ar :='||l_update_query_ar);
459:
460: EXECUTE IMMEDIATE l_update_query_ap;
461:
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
458: fnd_file.put_line(fnd_file.log,'l_update_query_ar :='||l_update_query_ar);
459:
460: EXECUTE IMMEDIATE l_update_query_ap;
461:
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Rows updated: '||To_char(SQL%RowCount));
464:
465: EXECUTE IMMEDIATE l_update_query_ar;
466: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
459:
460: EXECUTE IMMEDIATE l_update_query_ap;
461:
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Rows updated: '||To_char(SQL%RowCount));
464:
465: EXECUTE IMMEDIATE l_update_query_ar;
466: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
467: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Rows updated: '||To_char(SQL%RowCount));
462: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Rows updated: '||To_char(SQL%RowCount));
464:
465: EXECUTE IMMEDIATE l_update_query_ar;
466: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
467: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Rows updated: '||To_char(SQL%RowCount));
468:
469: IF l_driving_date_code_es = 'GL-TRX' THEN
470: l_driving_date_code := 'TRX';
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Rows updated: '||To_char(SQL%RowCount));
464:
465: EXECUTE IMMEDIATE l_update_query_ar;
466: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Driving Date Code :'||l_driving_date_code);
467: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Rows updated: '||To_char(SQL%RowCount));
468:
469: IF l_driving_date_code_es = 'GL-TRX' THEN
470: l_driving_date_code := 'TRX';
471: l_driving_date_code_es := NULL;
487:
488: EXCEPTION
489: WHEN OTHERS THEN
490: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
491: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
492: FND_MSG_PUB.Add;
493: IF (g_level_unexpected >= g_current_runtime_level ) THEN
494: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME, g_error_buffer);
495: END IF;