429: G_PKG_NAME||': '||l_api_name||'()+');
430: END IF;
431:
432: IF p_debug_flag = 'Y' THEN
433: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
434: END IF;
435:
436: -- Initialize the parameters:
437: initialize(
651: l_ledger := NULL;
652: END IF;
653:
654: IF g_debug_flag = 'Y' THEN
655: fnd_file.put_line(fnd_file.log,
656: 'Following parameters are passed to Tax_Date_Maintenance_Program...' );
657: fnd_file.put_line(fnd_file.log,
658: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
659: fnd_file.put_line(fnd_file.log,
653:
654: IF g_debug_flag = 'Y' THEN
655: fnd_file.put_line(fnd_file.log,
656: 'Following parameters are passed to Tax_Date_Maintenance_Program...' );
657: fnd_file.put_line(fnd_file.log,
658: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
659: fnd_file.put_line(fnd_file.log,
660: 'P_LEDGER = '|| l_ledger);
661: fnd_file.put_line(fnd_file.log,
655: fnd_file.put_line(fnd_file.log,
656: 'Following parameters are passed to Tax_Date_Maintenance_Program...' );
657: fnd_file.put_line(fnd_file.log,
658: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
659: fnd_file.put_line(fnd_file.log,
660: 'P_LEDGER = '|| l_ledger);
661: fnd_file.put_line(fnd_file.log,
662: ' P_END_DATE = '|| l_global_variables_rec.tax_invoice_date_high );
663: fnd_file.put_line(fnd_file.log,
657: fnd_file.put_line(fnd_file.log,
658: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
659: fnd_file.put_line(fnd_file.log,
660: 'P_LEDGER = '|| l_ledger);
661: fnd_file.put_line(fnd_file.log,
662: ' P_END_DATE = '|| l_global_variables_rec.tax_invoice_date_high );
663: fnd_file.put_line(fnd_file.log,
664: ' P_SOURCE = ' || l_global_variables_rec.source );
665: fnd_file.put_line(fnd_file.log,
659: fnd_file.put_line(fnd_file.log,
660: 'P_LEDGER = '|| l_ledger);
661: fnd_file.put_line(fnd_file.log,
662: ' P_END_DATE = '|| l_global_variables_rec.tax_invoice_date_high );
663: fnd_file.put_line(fnd_file.log,
664: ' P_SOURCE = ' || l_global_variables_rec.source );
665: fnd_file.put_line(fnd_file.log,
666: ' P_DEBUG_FLAG = '|| p_debug_flag );
667: END IF;
661: fnd_file.put_line(fnd_file.log,
662: ' P_END_DATE = '|| l_global_variables_rec.tax_invoice_date_high );
663: fnd_file.put_line(fnd_file.log,
664: ' P_SOURCE = ' || l_global_variables_rec.source );
665: fnd_file.put_line(fnd_file.log,
666: ' P_DEBUG_FLAG = '|| p_debug_flag );
667: END IF;
668:
669: tax_date_maintenance_program (
778: G_PKG_NAME||': ' ||l_api_name||'()-');
779: END IF;
780:
781: IF p_debug_flag = 'Y' THEN
782: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
783: END IF;
784:
785: EXCEPTION
786: WHEN OTHERS THEN
786: WHEN OTHERS THEN
787: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
788:
789: IF p_debug_flag = 'Y' THEN
790: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
791: END IF;
792:
793: FND_MSG_PUB.Add;
794: IF (g_level_unexpected >= g_current_runtime_level ) THEN
830: G_PKG_NAME||': '||l_api_name||'()+');
831: END IF;
832:
833: IF g_debug_flag = 'Y' THEN
834: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
835: END IF;
836:
837: /*Set the return status to Success */
838: x_return_status := FND_API.G_RET_STS_SUCCESS;
850: G_PKG_NAME||': ' ||l_api_name||'()-');
851: END IF;
852:
853: IF g_debug_flag = 'Y' THEN
854: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
855: END IF;
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
860: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
861:
862: IF g_debug_flag = 'Y' THEN
863: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
864: END IF;
865:
866: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
867: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
972: 'P_RETCODE = '||P_RETCODE);
973: END IF;
974:
975: IF p_debug_flag = 'Y' THEN
976: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
977: END IF;
978:
979: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'start ..');
980: P_GLOBAL_VARIABLES_REC.REPORTING_ENTITY_LEVEL := P_REPORTING_LEVEL;
975: IF p_debug_flag = 'Y' THEN
976: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
977: END IF;
978:
979: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'start ..');
980: P_GLOBAL_VARIABLES_REC.REPORTING_ENTITY_LEVEL := P_REPORTING_LEVEL;
981: P_GLOBAL_VARIABLES_REC.LEDGER := P_LEDGER;
982: P_GLOBAL_VARIABLES_REC.BSV := P_BSV;
983: P_GLOBAL_VARIABLES_REC.VAT_REPORTING_ENTITY_ID := P_VAT_REPORTING_ENTITY_ID;
1009: G_PKG_NAME||': ' ||l_api_name||'()-');
1010: END IF;
1011:
1012: IF p_debug_flag = 'Y' THEN
1013: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
1014: END IF;
1015:
1016: EXCEPTION
1017: WHEN OTHERS THEN
1020: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, g_error_buffer);
1021: END IF;
1022:
1023: IF p_debug_flag = 'Y' THEN
1024: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1025: END IF;
1026: P_GLOBAL_VARIABLES_REC.RETCODE := 2;
1027:
1028: END initialize;
1065: /*Set the return status to Success */
1066: x_return_status := FND_API.G_RET_STS_SUCCESS;
1067:
1068: IF g_debug_flag = 'Y' THEN
1069: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
1070: END IF;
1071:
1072:
1073: SELECT start_date,
1094: G_PKG_NAME||': ' ||l_api_name||'()-');
1095: END IF;
1096:
1097: IF g_debug_flag = 'Y' THEN
1098: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
1099: END IF;
1100:
1101: EXCEPTION
1102: WHEN OTHERS THEN
1104:
1105: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1106:
1107: IF g_debug_flag = 'Y' THEN
1108: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1109: END IF;
1110:
1111: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1112: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1155: /*Set the return status to Success */
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: IF g_debug_flag = 'Y' THEN
1159: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
1160: END IF;
1161:
1162: SELECT legal_entity_id,
1163: tax_regime_code,
1194: G_PKG_NAME||': ' ||l_api_name||'()-');
1195: END IF;
1196:
1197: IF g_debug_flag = 'Y' THEN
1198: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
1199: END IF;
1200:
1201: EXCEPTION
1202: WHEN OTHERS THEN
1204:
1205: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1206:
1207: IF g_debug_flag = 'Y' THEN
1208: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1209: END IF;
1210:
1211: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1212: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1244: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
1245: END IF;
1246:
1247: IF g_debug_flag = 'Y' THEN
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
1249: END IF;
1250:
1251: --Find out the last final reported period
1252: l_last_processed_date := JG_ZZ_VAT_REP_UTILITY.get_last_processed_date(
1274: 'Last Processed Date : ' || to_char(l_last_processed_date));
1275: END IF;
1276:
1277: IF g_debug_flag = 'Y' THEN
1278: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
1279: END IF;
1280:
1281: EXCEPTION
1282: WHEN OTHERS THEN
1282: WHEN OTHERS THEN
1283: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1284:
1285: IF g_debug_flag = 'Y' THEN
1286: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1287: END IF;
1288:
1289: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1324:
1325: END IF;
1326:
1327: IF g_debug_flag = 'Y' THEN
1328: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
1329: END IF;
1330:
1331: gt_vat_transaction_id.delete;
1332: gt_reporting_status_id.delete;
1561: G_PKG_NAME||': ' ||l_api_name||'()-');
1562: END IF;
1563:
1564: IF g_debug_flag = 'Y' THEN
1565: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
1566: END IF;
1567:
1568: EXCEPTION
1569: WHEN OTHERS THEN
1572: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
1573: END IF;
1574:
1575: IF g_debug_flag = 'Y' THEN
1576: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
1577: END IF;
1578: -- l_GLOBAL_VARIABLES_REC.RETCODE := 2;
1579:
1580: END init_gt_variables;
1627: G_PKG_NAME||': '||l_api_name||'()+');
1628: END IF;
1629:
1630: IF g_debug_flag = 'Y' THEN
1631: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
1632: END IF;
1633:
1634: OPEN trl_tax_data_csr FOR 'SELECT
1635: CON.REP_ENTITY_ID ,
2105:
2106: END LOOP;
2107: CLOSE trl_tax_data_csr;
2108: IF g_debug_flag = 'Y' THEN
2109: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
2110: END IF;
2111:
2112: EXCEPTION
2113: WHEN OTHERS THEN
2113: WHEN OTHERS THEN
2114: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2115:
2116: IF g_debug_flag = 'Y' THEN
2117: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
2118: END IF;
2119:
2120: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2121: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2159: G_PKG_NAME||': '||l_api_name||'(+)');
2160: END IF;
2161:
2162: IF g_debug_flag = 'Y' THEN
2163: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
2164: END IF;
2165:
2166: l_count := GT_TRX_ID.COUNT;
2167:
2649: ' Record successfully inserted = ' ||to_char(l_count));
2650: END IF;
2651:
2652: IF g_debug_flag = 'Y' THEN
2653: FND_FILE.PUT_LINE(FND_FILE.LOG,'Record successfully inserted = ' ||to_char(l_count));
2654: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
2655: END IF;
2656:
2657: EXCEPTION
2650: END IF;
2651:
2652: IF g_debug_flag = 'Y' THEN
2653: FND_FILE.PUT_LINE(FND_FILE.LOG,'Record successfully inserted = ' ||to_char(l_count));
2654: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
2655: END IF;
2656:
2657: EXCEPTION
2658: WHEN OTHERS THEN
2659: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2660: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2661:
2662: IF g_debug_flag = 'Y' THEN
2663: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
2664: END IF;
2665:
2666: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
2667: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
2771: G_PKG_NAME||': '||l_api_name||'()+');
2772: END IF;
2773:
2774: IF g_debug_flag = 'Y' THEN
2775: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
2776: END IF;
2777:
2778: -- Check the Reporting Entity Level.
2779: IF p_global_variables_rec.REPORTING_ENTITY_LEVEL = 'LEDGER' or
2788: OPEN last_report_date(p_global_variables_rec.vat_reporting_entity_id);
2789: FETCH last_report_date INTO l_last_start_date,l_last_end_date;
2790: CLOSE last_report_date;
2791:
2792: FND_FILE.put_line(FND_FILE.log,'Last_Reported_Start_Date '|| l_last_start_date);
2793: IF p_global_variables_rec.TAX_INVOICE_DATE_HIGH <= l_last_end_date THEN
2794: l_reported_status := NULL;
2795: END IF;
2796: --Bug6835573
2890: END IF;
2891:
2892: IF g_debug_flag = 'Y' THEN
2893:
2894: fnd_file.put_line(fnd_file.log,
2895: 'Following parameters are passed to TRL...' );
2896: fnd_file.put_line(fnd_file.log,
2897: 'P_REPORTING_LEVEL = ' || l_reporting_level );
2898: fnd_file.put_line(fnd_file.log,
2892: IF g_debug_flag = 'Y' THEN
2893:
2894: fnd_file.put_line(fnd_file.log,
2895: 'Following parameters are passed to TRL...' );
2896: fnd_file.put_line(fnd_file.log,
2897: 'P_REPORTING_LEVEL = ' || l_reporting_level );
2898: fnd_file.put_line(fnd_file.log,
2899: 'P_REPORTING_CONTEXT = ' || l_reporting_context );
2900: fnd_file.put_line(fnd_file.log,
2894: fnd_file.put_line(fnd_file.log,
2895: 'Following parameters are passed to TRL...' );
2896: fnd_file.put_line(fnd_file.log,
2897: 'P_REPORTING_LEVEL = ' || l_reporting_level );
2898: fnd_file.put_line(fnd_file.log,
2899: 'P_REPORTING_CONTEXT = ' || l_reporting_context );
2900: fnd_file.put_line(fnd_file.log,
2901: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
2902: fnd_file.put_line(fnd_file.log,
2896: fnd_file.put_line(fnd_file.log,
2897: 'P_REPORTING_LEVEL = ' || l_reporting_level );
2898: fnd_file.put_line(fnd_file.log,
2899: 'P_REPORTING_CONTEXT = ' || l_reporting_context );
2900: fnd_file.put_line(fnd_file.log,
2901: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
2902: fnd_file.put_line(fnd_file.log,
2903: ' P_PRODUCT = ' || p_global_variables_rec.SOURCE );
2904: fnd_file.put_line(fnd_file.log,
2898: fnd_file.put_line(fnd_file.log,
2899: 'P_REPORTING_CONTEXT = ' || l_reporting_context );
2900: fnd_file.put_line(fnd_file.log,
2901: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
2902: fnd_file.put_line(fnd_file.log,
2903: ' P_PRODUCT = ' || p_global_variables_rec.SOURCE );
2904: fnd_file.put_line(fnd_file.log,
2905: ' P_FIRST_PARTY_TAX_REG_NUM = ' || l_trn );
2906: fnd_file.put_line(fnd_file.log,
2900: fnd_file.put_line(fnd_file.log,
2901: 'P_LEGAL_ENTITY_ID = '|| l_legal_entity_id);
2902: fnd_file.put_line(fnd_file.log,
2903: ' P_PRODUCT = ' || p_global_variables_rec.SOURCE );
2904: fnd_file.put_line(fnd_file.log,
2905: ' P_FIRST_PARTY_TAX_REG_NUM = ' || l_trn );
2906: fnd_file.put_line(fnd_file.log,
2907: ' P_TRX_DATE_LOW = '|| l_trx_date_low );
2908: fnd_file.put_line(fnd_file.log,
2902: fnd_file.put_line(fnd_file.log,
2903: ' P_PRODUCT = ' || p_global_variables_rec.SOURCE );
2904: fnd_file.put_line(fnd_file.log,
2905: ' P_FIRST_PARTY_TAX_REG_NUM = ' || l_trn );
2906: fnd_file.put_line(fnd_file.log,
2907: ' P_TRX_DATE_LOW = '|| l_trx_date_low );
2908: fnd_file.put_line(fnd_file.log,
2909: ' P_TRX_DATE_HIGH = '|| l_trx_date_high);
2910: fnd_file.put_line(fnd_file.log,
2904: fnd_file.put_line(fnd_file.log,
2905: ' P_FIRST_PARTY_TAX_REG_NUM = ' || l_trn );
2906: fnd_file.put_line(fnd_file.log,
2907: ' P_TRX_DATE_LOW = '|| l_trx_date_low );
2908: fnd_file.put_line(fnd_file.log,
2909: ' P_TRX_DATE_HIGH = '|| l_trx_date_high);
2910: fnd_file.put_line(fnd_file.log,
2911: ' P_GL_DATE_LOW = '|| l_gl_date_low );
2912: fnd_file.put_line(fnd_file.log,
2906: fnd_file.put_line(fnd_file.log,
2907: ' P_TRX_DATE_LOW = '|| l_trx_date_low );
2908: fnd_file.put_line(fnd_file.log,
2909: ' P_TRX_DATE_HIGH = '|| l_trx_date_high);
2910: fnd_file.put_line(fnd_file.log,
2911: ' P_GL_DATE_LOW = '|| l_gl_date_low );
2912: fnd_file.put_line(fnd_file.log,
2913: ' P_GL_DATE_HIGH = '|| l_gl_date_high);
2914: fnd_file.put_line(fnd_file.log,
2908: fnd_file.put_line(fnd_file.log,
2909: ' P_TRX_DATE_HIGH = '|| l_trx_date_high);
2910: fnd_file.put_line(fnd_file.log,
2911: ' P_GL_DATE_LOW = '|| l_gl_date_low );
2912: fnd_file.put_line(fnd_file.log,
2913: ' P_GL_DATE_HIGH = '|| l_gl_date_high);
2914: fnd_file.put_line(fnd_file.log,
2915: ' P_TAX_INVOICE_DATE_LOW = '|| l_tax_invoice_date_low );
2916: fnd_file.put_line(fnd_file.log,
2910: fnd_file.put_line(fnd_file.log,
2911: ' P_GL_DATE_LOW = '|| l_gl_date_low );
2912: fnd_file.put_line(fnd_file.log,
2913: ' P_GL_DATE_HIGH = '|| l_gl_date_high);
2914: fnd_file.put_line(fnd_file.log,
2915: ' P_TAX_INVOICE_DATE_LOW = '|| l_tax_invoice_date_low );
2916: fnd_file.put_line(fnd_file.log,
2917: ' P_TAX_INVOICE_DATE_HIGH = '|| l_tax_invoice_date_high);
2918: fnd_file.put_line(fnd_file.log,
2912: fnd_file.put_line(fnd_file.log,
2913: ' P_GL_DATE_HIGH = '|| l_gl_date_high);
2914: fnd_file.put_line(fnd_file.log,
2915: ' P_TAX_INVOICE_DATE_LOW = '|| l_tax_invoice_date_low );
2916: fnd_file.put_line(fnd_file.log,
2917: ' P_TAX_INVOICE_DATE_HIGH = '|| l_tax_invoice_date_high);
2918: fnd_file.put_line(fnd_file.log,
2919: ' P_ACCOUNTING_STATUS = '|| l_accounting_status );
2920: fnd_file.put_line(fnd_file.log,
2914: fnd_file.put_line(fnd_file.log,
2915: ' P_TAX_INVOICE_DATE_LOW = '|| l_tax_invoice_date_low );
2916: fnd_file.put_line(fnd_file.log,
2917: ' P_TAX_INVOICE_DATE_HIGH = '|| l_tax_invoice_date_high);
2918: fnd_file.put_line(fnd_file.log,
2919: ' P_ACCOUNTING_STATUS = '|| l_accounting_status );
2920: fnd_file.put_line(fnd_file.log,
2921: ' P_INCLUDE_ACCOUNTING_SEGMENTS = '|| l_include_acc_segments );
2922: fnd_file.put_line(fnd_file.log,
2916: fnd_file.put_line(fnd_file.log,
2917: ' P_TAX_INVOICE_DATE_HIGH = '|| l_tax_invoice_date_high);
2918: fnd_file.put_line(fnd_file.log,
2919: ' P_ACCOUNTING_STATUS = '|| l_accounting_status );
2920: fnd_file.put_line(fnd_file.log,
2921: ' P_INCLUDE_ACCOUNTING_SEGMENTS = '|| l_include_acc_segments );
2922: fnd_file.put_line(fnd_file.log,
2923: ' P_TAX_REGIME_CODE = '|| p_global_variables_rec.TAX_REGIME_CODE);
2924: fnd_file.put_line(fnd_file.log,
2918: fnd_file.put_line(fnd_file.log,
2919: ' P_ACCOUNTING_STATUS = '|| l_accounting_status );
2920: fnd_file.put_line(fnd_file.log,
2921: ' P_INCLUDE_ACCOUNTING_SEGMENTS = '|| l_include_acc_segments );
2922: fnd_file.put_line(fnd_file.log,
2923: ' P_TAX_REGIME_CODE = '|| p_global_variables_rec.TAX_REGIME_CODE);
2924: fnd_file.put_line(fnd_file.log,
2925: 'P_GL_OR_TRX_DATE_FILTER = '||p_global_variables_rec.gl_or_trx_date_filter);
2926: fnd_file.put_line(fnd_file.log,
2920: fnd_file.put_line(fnd_file.log,
2921: ' P_INCLUDE_ACCOUNTING_SEGMENTS = '|| l_include_acc_segments );
2922: fnd_file.put_line(fnd_file.log,
2923: ' P_TAX_REGIME_CODE = '|| p_global_variables_rec.TAX_REGIME_CODE);
2924: fnd_file.put_line(fnd_file.log,
2925: 'P_GL_OR_TRX_DATE_FILTER = '||p_global_variables_rec.gl_or_trx_date_filter);
2926: fnd_file.put_line(fnd_file.log,
2927: 'P_REPORTED_STATUS = '||l_reported_status);
2928:
2922: fnd_file.put_line(fnd_file.log,
2923: ' P_TAX_REGIME_CODE = '|| p_global_variables_rec.TAX_REGIME_CODE);
2924: fnd_file.put_line(fnd_file.log,
2925: 'P_GL_OR_TRX_DATE_FILTER = '||p_global_variables_rec.gl_or_trx_date_filter);
2926: fnd_file.put_line(fnd_file.log,
2927: 'P_REPORTED_STATUS = '||l_reported_status);
2928:
2929: END IF;
2930:
3016: G_PKG_NAME||': ' ||l_api_name||'()-');
3017: END IF;
3018:
3019: IF g_debug_flag = 'Y' THEN
3020: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
3021: END IF;
3022:
3023: EXCEPTION
3024: WHEN OTHERS THEN
3025: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3026: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3027:
3028: IF g_debug_flag = 'Y' THEN
3029: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3030: END IF;
3031:
3032: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3033: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3079: G_PKG_NAME||': '||l_api_name||'()+');
3080: END IF;
3081:
3082: IF g_debug_flag = 'Y' THEN
3083: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
3084: END IF;
3085:
3086: -- populate temp table with the intersecting data.
3087: INSERT INTO JG_ZZ_VAT_TRX_GT
3165: ,G_PKG_NAME||': ' ||l_api_name||'()-');
3166: END IF;
3167:
3168: IF g_debug_flag = 'Y' THEN
3169: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
3170: END IF;
3171:
3172: EXCEPTION
3173: WHEN OTHERS THEN
3174: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3175: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3176:
3177: IF g_debug_flag = 'Y' THEN
3178: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3179: END IF;
3180:
3181: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3182: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3303: G_PKG_NAME||': '||l_api_name||'()+');
3304: END IF;
3305:
3306: IF g_debug_flag = 'Y' THEN
3307: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
3308: END IF;
3309:
3310: OPEN c_finalrep_exist ;
3311: FETCH c_finalrep_exist INTO l_count ;
3366: xv_return_message := FND_MESSAGE.GET;
3367: -- xv_return_status := fnd_api.g_ret_sts_error;
3368:
3369: IF g_debug_flag = 'Y' THEN
3370: FND_FILE.PUT_LINE(FND_FILE.LOG,xv_return_message);
3371: END IF;
3372:
3373: OPEN c_get_finalrep_trx_for_upd;
3374:
3405:
3406: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3407: xv_return_status := l_return_status;
3408: xv_return_message := l_return_message;
3409: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error occurred in the
3410: procedure zx_extract_pkg.zx_upd_legal_reporting_status :'||l_return_message);
3411: END IF;
3412:
3413: END IF; --IF l_count > 0 then
3415: /* None of the transactions in GTT are finally reported
3416: => Delete from box_allocs, box_errors, trx_details */
3417:
3418: IF g_debug_flag = 'Y' THEN
3419: FND_FILE.PUT_LINE(FND_FILE.LOG, 'None of the transactions in GTT are finally reported');
3420: END IF;
3421:
3422:
3423: OPEN c_vat_transaction_id ;
3453: G_PKG_NAME||': ' || l_api_name||'()-');
3454: END IF;
3455:
3456: IF g_debug_flag = 'Y' THEN
3457: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
3458: END IF;
3459:
3460:
3461: EXCEPTION
3469: END IF;
3470: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3471:
3472: IF g_debug_flag = 'Y' THEN
3473: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3474: END IF;
3475:
3476: END purge_report_finalrep ;
3477:
3526: G_PKG_NAME||': ' || l_api_name||'()-');
3527: END IF;
3528:
3529: IF g_debug_flag = 'Y' THEN
3530: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
3531: END IF;
3532:
3533:
3534: EXCEPTION
3538: END IF;
3539: g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3540:
3541: IF g_debug_flag = 'Y' THEN
3542: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
3543: END IF;
3544: RETURN;
3545: END log_file ;
3546:
3681: ' P_SOURCE = ' || p_source);
3682: END IF;
3683:
3684: IF g_debug_flag = 'Y' THEN
3685: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': '||l_api_name||'()+');
3686: END IF;
3687:
3688: x_return_status := FND_API.G_RET_STS_SUCCESS;
3689: x_errbuf := NULL;
3849: G_PKG_NAME||': ' ||l_api_name||'()-');
3850: END IF;
3851:
3852: IF g_debug_flag = 'Y' THEN
3853: FND_FILE.PUT_LINE(FND_FILE.LOG, G_PKG_NAME||': ' ||l_api_name||'()-');
3854: END IF;
3855:
3856: EXCEPTION
3857: WHEN OTHERS THEN