83: ,p_message IN VARCHAR2)
84: IS
85: BEGIN
86:
87: IF(p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
88: THEN
89: fnd_log.STRING(LOG_LEVEL => p_level
90: ,MODULE => p_module
91: ,MESSAGE => p_message
85: BEGIN
86:
87: IF(p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
88: THEN
89: fnd_log.STRING(LOG_LEVEL => p_level
90: ,MODULE => p_module
91: ,MESSAGE => p_message
92: );
93: END IF;
203:
204:
205: BEGIN
206:
207: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
208: THEN
209: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
210: , G_MODULE_PREFIX || l_procedure_name
211: ,'Begin Procedure. ');
205: BEGIN
206:
207: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
208: THEN
209: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
210: , G_MODULE_PREFIX || l_procedure_name
211: ,'Begin Procedure. ');
212: END IF;
213:
210: , G_MODULE_PREFIX || l_procedure_name
211: ,'Begin Procedure. ');
212: END IF;
213:
214: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
215: THEN
216: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin Split_trx');
217:
218:
212: END IF;
213:
214: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
215: THEN
216: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin Split_trx');
217:
218:
219: END IF;
220: -- init all nested table
234: AR_GTA_SYSTEM_PARAMETERS_all
235: WHERE org_id = p_org_id;
236:
237: -- begin log
238: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
239: THEN
240: --fnd_file.put_line(fnd_file.LOG, 'l_split_flag:'||l_split_flag);
241: log(FND_LOG.LEVEL_PROCEDURE
242: , G_MODULE_PREFIX || l_procedure_name
237: -- begin log
238: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
239: THEN
240: --fnd_file.put_line(fnd_file.LOG, 'l_split_flag:'||l_split_flag);
241: log(FND_LOG.LEVEL_PROCEDURE
242: , G_MODULE_PREFIX || l_procedure_name
243: , 'l_split_flag:'||l_split_flag);
244: END IF;
245: -- end log
246:
247: EXCEPTION
248: -- no data found , raise a data error
249: WHEN no_data_found THEN
250: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
251: THEN
252: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
253: , G_MODULE_PREFIX || l_procedure_name
254: , 'no data found');
248: -- no data found , raise a data error
249: WHEN no_data_found THEN
250: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
251: THEN
252: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
253: , G_MODULE_PREFIX || l_procedure_name
254: , 'no data found');
255:
256: --AR_GTA_SYS_CONFIG_MISSING
254: , 'no data found');
255:
256: --AR_GTA_SYS_CONFIG_MISSING
257: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
258: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
259: , G_MODULE_PREFIX || l_procedure_name
260: , fnd_message.get());
261:
262: END IF;
275: AND rule_header_id = p_transfer_id;
276: EXCEPTION
277: -- no data found , raise a data error
278: WHEN no_data_found THEN
279: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
280: THEN
281: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
282: , G_MODULE_PREFIX || l_procedure_name
283: , 'no data found');
277: -- no data found , raise a data error
278: WHEN no_data_found THEN
279: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
280: THEN
281: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
282: , G_MODULE_PREFIX || l_procedure_name
283: , 'no data found');
284:
285: --AR_GTA_SYS_CONFIG_MISSING
283: , 'no data found');
284:
285: --AR_GTA_SYS_CONFIG_MISSING
286: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
287: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
288: , G_MODULE_PREFIX || l_procedure_name
289: , fnd_message.get());
290:
291: END IF;
294: END;
295:
296:
297: -- begin log
298: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_sales_list_flag:'||l_sales_list_flag);
301: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'begin split_trx_loop......');
302: END IF;
296:
297: -- begin log
298: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_sales_list_flag:'||l_sales_list_flag);
301: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'begin split_trx_loop......');
302: END IF;
303: -- end log
304:
297: -- begin log
298: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_sales_list_flag:'||l_sales_list_flag);
301: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'begin split_trx_loop......');
302: END IF;
303: -- end log
304:
305:
307: -- begin split trx
308: l_trx_index := P_GTA_TRX_Tbl.FIRST;
309:
310: -- begin log
311: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
312: THEN
313: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_trx_index......'||l_trx_index);
314: END IF;
315: -- end log
309:
310: -- begin log
311: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
312: THEN
313: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_trx_index......'||l_trx_index);
314: END IF;
315: -- end log
316:
317:
331: , x_TRX_Tbl => l_gta_taxreg_trx_tbl);
332: -- end split by tax registration number
333:
334: -- begin log
335: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
336: THEN
337: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End Split_trx_by_taxreg_number:'||l_gta_taxreg_trx_tbl.COUNT);
338: END IF;
339: -- end log
333:
334: -- begin log
335: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
336: THEN
337: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End Split_trx_by_taxreg_number:'||l_gta_taxreg_trx_tbl.COUNT);
338: END IF;
339: -- end log
340:
341: -- begin split by tax rate
345: -- end split by tax rate
346:
347:
348: -- begin log
349: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
350: THEN
351: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End split_trx_by_rate:'||l_gta_rate_trx_tbl.COUNT);
352: END IF;
353: -- end log
347:
348: -- begin log
349: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
350: THEN
351: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End split_trx_by_rate:'||l_gta_rate_trx_tbl.COUNT);
352: END IF;
353: -- end log
354:
355: -- loop by a new trx nested table which split by rate
366: , x_trx_type => l_trx_type);
367:
368:
369: -- begin log
370: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
371: THEN
372: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_trx_rate_index:'||l_trx_rate_index);
373: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_trx_type:'||l_trx_type);
374: END IF;
368:
369: -- begin log
370: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
371: THEN
372: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_trx_rate_index:'||l_trx_rate_index);
373: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_trx_type:'||l_trx_type);
374: END IF;
375: -- end log
376:
369: -- begin log
370: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
371: THEN
372: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_trx_rate_index:'||l_trx_rate_index);
373: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_trx_type:'||l_trx_type);
374: END IF;
375: -- end log
376:
377: -- IS CM ?\
415: , x_max_line => l_max_line
416: );
417:
418: -- begin log
419: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
420: THEN
421: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'get_max_amount_line');
422: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_amount:'||l_max_amount);
423: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_line:'||l_max_line);
417:
418: -- begin log
419: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
420: THEN
421: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'get_max_amount_line');
422: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_amount:'||l_max_amount);
423: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_line:'||l_max_line);
424: END IF;
425: -- end log
418: -- begin log
419: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
420: THEN
421: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'get_max_amount_line');
422: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_amount:'||l_max_amount);
423: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_line:'||l_max_line);
424: END IF;
425: -- end log
426: --The following code is Modifie by Yao for bug#8605196 to support discount line
419: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
420: THEN
421: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'get_max_amount_line');
422: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_amount:'||l_max_amount);
423: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_max_line:'||l_max_line);
424: END IF;
425: -- end log
426: --The following code is Modifie by Yao for bug#8605196 to support discount line
427: -- get lines number and amount
441: -- if the trx is regular and don't need split, push it into rusult
442: IF l_sum_of_amount
444: -- begin log
445: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
446: THEN
447: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_sum_of_amount
449: -- end log
443: THEN
444: -- begin log
445: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
446: THEN
447: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_sum_of_amount
449: -- end log
450:
451: -- insert trx into result table
488: l_functional_price:= round(l_GTA_TRX_line_old.amount/l_GTA_TRX_line_old.quantity, 6);
489: --------------------------------------------------------------------------
490:
491: -- begin log
492: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
493: THEN
494: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name
495: , 'l_functional_price:'||l_functional_price);
496: END IF;
490:
491: -- begin log
492: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
493: THEN
494: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name
495: , 'l_functional_price:'||l_functional_price);
496: END IF;
497: -- end log
498: -- 25-Apr-2006: Jogen Hu bug 5168852
501: IF l_accumulated_amount <= l_max_amount AND l_processing_row+l_discount_row *=*/ l_max_line
502: THEN
503:
504: -- begin log
505: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
506: THEN
507: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_accumulated_amount <= l_max_amount AND l_processing_row *=*/ l_max_line');
508: END IF;
509: -- end log
503:
504: -- begin log
505: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
506: THEN
507: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_accumulated_amount <= l_max_amount AND l_processing_row *=*/ l_max_line');
508: END IF;
509: -- end log
510:
511: IF l_processing_row = l_GTA_TRX.trx_lines.COUNT
525: ELSIF l_processing_row+l_discount_row >= l_max_line AND l_sales_list_flag = 'Y' AND l_accumulated_amount <= l_max_amount
526: THEN
527:
528: -- begin log
529: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_processing_row >= l_max_line AND l_sales_list_flag = ''Y'' AND l_accumulated_amount <= l_max_amount');
532: END IF;
533: -- end log
527:
528: -- begin log
529: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_processing_row >= l_max_line AND l_sales_list_flag = ''Y'' AND l_accumulated_amount <= l_max_amount');
532: END IF;
533: -- end log
534:
535: IF l_processing_row = l_GTA_TRX.trx_lines.COUNT
642: */
643: ELSIF l_accumulated_amount > l_max_amount
644: THEN
645: -- begin log
646: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
647: THEN
648: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_accumulated_amount > l_max_amount');
649: END IF;
650: -- end log
644: THEN
645: -- begin log
646: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
647: THEN
648: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_accumulated_amount > l_max_amount');
649: END IF;
650: -- end log
651:
652: l_trx_lines := l_GTA_TRX.trx_lines;
1243: l_trx_index := P_GTA_TRX_Tbl.NEXT(l_trx_index);
1244:
1245: END LOOP; -- end loop by P_gta_trx_tbl /*l_trx_index IS NOT NULL*/
1246:
1247: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1248: THEN
1249: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1250: , G_MODULE_PREFIX || l_procedure_name
1251: ,'End Procedure. ');
1245: END LOOP; -- end loop by P_gta_trx_tbl /*l_trx_index IS NOT NULL*/
1246:
1247: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1248: THEN
1249: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1250: , G_MODULE_PREFIX || l_procedure_name
1251: ,'End Procedure. ');
1252: END IF;
1253:
1252: END IF;
1253:
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1257: THEN
1258: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1259: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1260: , Sqlcode||Sqlerrm);
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1257: THEN
1258: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1259: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1260: , Sqlcode||Sqlerrm);
1261: END IF;
1262: RAISE;
1286: l_gta_header_id ar_gta_trx_headers.gta_trx_header_id%TYPE;
1287: l_gta_trx_header_rec AR_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE;
1288:
1289: BEGIN
1290: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1291: THEN
1292: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1293: , G_MODULE_PREFIX || l_procedure_name
1294: ,'Begin Procedure. ');
1288:
1289: BEGIN
1290: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1291: THEN
1292: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1293: , G_MODULE_PREFIX || l_procedure_name
1294: ,'Begin Procedure. ');
1295: END IF;
1296:
1313: || l_GTA_TRX_Header_rec.version;
1314:
1315: x_GTA_TRX_Header_Rec := l_gta_trx_header_rec;
1316:
1317: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1318: THEN
1319: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1320: , G_MODULE_PREFIX || l_procedure_name
1321: ,'End Procedure. ');
1315: x_GTA_TRX_Header_Rec := l_gta_trx_header_rec;
1316:
1317: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1318: THEN
1319: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1320: , G_MODULE_PREFIX || l_procedure_name
1321: ,'End Procedure. ');
1322: END IF;
1323:
1322: END IF;
1323:
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1327: THEN
1328: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1329: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1330: , Sqlcode||Sqlerrm);
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1327: THEN
1328: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1329: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1330: , Sqlcode||Sqlerrm);
1331: END IF;
1332: RAISE;
1364: l_index NUMBER;
1365: l_procedure_name VARCHAR2(50):='Split_Nested_Table';
1366:
1367: BEGIN
1368: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1369: THEN
1370: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1371: , G_MODULE_PREFIX || l_procedure_name
1372: ,'Begin Procedure. ');
1366:
1367: BEGIN
1368: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1369: THEN
1370: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1371: , G_MODULE_PREFIX || l_procedure_name
1372: ,'Begin Procedure. ');
1373: END IF;
1374:
1401:
1402: x_first_lines := l_first_lines;
1403: x_last_lines := l_last_lines;
1404:
1405: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1406: THEN
1407: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1408: , G_MODULE_PREFIX || l_procedure_name
1409: ,'End Procedure. ');
1403: x_last_lines := l_last_lines;
1404:
1405: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1406: THEN
1407: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1408: , G_MODULE_PREFIX || l_procedure_name
1409: ,'End Procedure. ');
1410: END IF;
1411:
1410: END IF;
1411:
1412: EXCEPTION
1413: WHEN OTHERS THEN
1414: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1415: THEN
1416: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1417: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1418: , Sqlcode||Sqlerrm);
1412: EXCEPTION
1413: WHEN OTHERS THEN
1414: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1415: THEN
1416: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1417: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1418: , Sqlcode||Sqlerrm);
1419: END IF;
1420: RAISE;
1445: l_index NUMBER; -- loop index
1446:
1447: BEGIN
1448:
1449: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1450: THEN
1451: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1452: , G_MODULE_PREFIX || l_procedure_name
1453: ,'Begin Procedure. ');
1447: BEGIN
1448:
1449: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1450: THEN
1451: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1452: , G_MODULE_PREFIX || l_procedure_name
1453: ,'Begin Procedure. ');
1454: END IF;
1455:
1493:
1494: END IF;
1495: --12/06/2006 Shujuan Yan bug 5168900
1496:
1497: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1498: THEN
1499: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1500: , G_MODULE_PREFIX || l_procedure_name
1501: ,'Begin Procedure. ');
1495: --12/06/2006 Shujuan Yan bug 5168900
1496:
1497: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1498: THEN
1499: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1500: , G_MODULE_PREFIX || l_procedure_name
1501: ,'Begin Procedure. ');
1502: END IF;
1503:
1502: END IF;
1503:
1504: EXCEPTION
1505: WHEN OTHERS THEN
1506: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1507: THEN
1508: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1509: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1510: , Sqlcode||Sqlerrm);
1504: EXCEPTION
1505: WHEN OTHERS THEN
1506: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1507: THEN
1508: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1509: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1510: , Sqlcode||Sqlerrm);
1511: END IF;
1512: RAISE;
1545: l_warning_record_count NUMBER;
1546: l_customer_trx_id NUMBER(15);
1547:
1548: BEGIN
1549: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1550: THEN
1551: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1552: , G_MODULE_PREFIX || l_procedure_name
1553: ,'Begin Procedure. ');
1547:
1548: BEGIN
1549: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1550: THEN
1551: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1552: , G_MODULE_PREFIX || l_procedure_name
1553: ,'Begin Procedure. ');
1554: END IF;
1555:
1576: AND ctt.Org_Id = h.Org_Id
1577: AND h.customer_trx_id = p_gta_trx_rec.trx_header.ra_trx_id;
1578: EXCEPTION
1579: WHEN no_data_found THEN
1580: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1581: THEN
1582: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
1583: , G_MODULE_PREFIX || l_procedure_name
1584: ,'No data found. ');
1578: EXCEPTION
1579: WHEN no_data_found THEN
1580: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1581: THEN
1582: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
1583: , G_MODULE_PREFIX || l_procedure_name
1584: ,'No data found. ');
1585: END IF;
1586: END;
1634:
1635: END IF;/*l_warning_record_count = 0*/
1636:
1637:
1638: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1639: THEN
1640: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1641: , G_MODULE_PREFIX || l_procedure_name
1642: ,'Begin Procedure. ');
1636:
1637:
1638: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1639: THEN
1640: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1641: , G_MODULE_PREFIX || l_procedure_name
1642: ,'Begin Procedure. ');
1643: END IF;
1644:
1643: END IF;
1644:
1645: EXCEPTION
1646: WHEN OTHERS THEN
1647: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1648: THEN
1649: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1650: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1651: , Sqlcode||Sqlerrm);
1645: EXCEPTION
1646: WHEN OTHERS THEN
1647: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1648: THEN
1649: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1650: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1651: , Sqlcode||Sqlerrm);
1652: END IF;
1653: RAISE;
1685: l_trx_header_new AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1686: l_trx_rate_index NUMBER; -- index for nested table loop
1687: l_index NUMBER; -- index for nested table loop
1688: BEGIN
1689: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1690: THEN
1691: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1692: , G_MODULE_PREFIX || l_procedure_name
1693: ,'Begin Procedure. ');
1687: l_index NUMBER; -- index for nested table loop
1688: BEGIN
1689: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1690: THEN
1691: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1692: , G_MODULE_PREFIX || l_procedure_name
1693: ,'Begin Procedure. ');
1694: END IF;
1695: -- init l_gta_rate_trx_tbl
1766:
1767: -- output
1768: x_trx_tbl := l_gta_rate_trx_tbl;
1769:
1770: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1771: THEN
1772: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1773: , G_MODULE_PREFIX || l_procedure_name
1774: ,'Begin Procedure. ');
1768: x_trx_tbl := l_gta_rate_trx_tbl;
1769:
1770: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1771: THEN
1772: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1773: , G_MODULE_PREFIX || l_procedure_name
1774: ,'Begin Procedure. ');
1775: END IF;
1776:
1775: END IF;
1776:
1777: EXCEPTION
1778: WHEN OTHERS THEN
1779: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1780: THEN
1781: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1782: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1783: , Sqlcode||Sqlerrm);
1777: EXCEPTION
1778: WHEN OTHERS THEN
1779: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1780: THEN
1781: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1782: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1783: , Sqlcode||Sqlerrm);
1784: END IF;
1785: RAISE;
1816: l_trx_rate_index NUMBER; -- index for nested table loop
1817: l_index NUMBER; -- index for nested table loop
1818: l_gta_index NUMBER; -- index for nested table loop
1819: BEGIN
1820: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1821: THEN
1822: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1823: , G_MODULE_PREFIX || l_procedure_name
1824: ,'Begin Procedure. ');
1818: l_gta_index NUMBER; -- index for nested table loop
1819: BEGIN
1820: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1821: THEN
1822: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1823: , G_MODULE_PREFIX || l_procedure_name
1824: ,'Begin Procedure. ');
1825: END IF;
1826: -- init l_gta_rate_trx_tbl
1903:
1904: -- output
1905: x_trx_tbl := l_gta_rate_trx_tbl;
1906:
1907: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1908: THEN
1909: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1910: , G_MODULE_PREFIX || l_procedure_name
1911: ,'Begin Procedure. ');
1905: x_trx_tbl := l_gta_rate_trx_tbl;
1906:
1907: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1908: THEN
1909: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1910: , G_MODULE_PREFIX || l_procedure_name
1911: ,'Begin Procedure. ');
1912: END IF;
1913:
1912: END IF;
1913:
1914: EXCEPTION
1915: WHEN OTHERS THEN
1916: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1917: THEN
1918: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1919: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1920: , Sqlcode||Sqlerrm);
1914: EXCEPTION
1915: WHEN OTHERS THEN
1916: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1917: THEN
1918: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1919: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1920: , Sqlcode||Sqlerrm);
1921: END IF;
1922: RAISE;
1948: l_procedure_name VARCHAR2(30) := 'get_trx_type';
1949: l_trx_id ra_customer_trx_all.customer_trx_id%TYPE;
1950: l_trx_type ra_cust_trx_types_all.type%TYPE;
1951: BEGIN
1952: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1953: THEN
1954: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1955: , G_MODULE_PREFIX || l_procedure_name
1956: ,'Begin Procedure. ');
1950: l_trx_type ra_cust_trx_types_all.type%TYPE;
1951: BEGIN
1952: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1953: THEN
1954: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1955: , G_MODULE_PREFIX || l_procedure_name
1956: ,'Begin Procedure. ');
1957: END IF;
1958:
1982: AND ctt.org_id = p_org_id
1983: AND h.customer_trx_id = l_trx_id;
1984: EXCEPTION
1985: WHEN OTHERS THEN
1986: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1987: THEN
1988: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1989: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1990: , Sqlcode||Sqlerrm);
1984: EXCEPTION
1985: WHEN OTHERS THEN
1986: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1987: THEN
1988: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
1989: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
1990: , Sqlcode||Sqlerrm);
1991: END IF;
1992: RAISE;
1995: END IF;/*p_gta_trx.trx_header.ra_trx_id IS NOT NULL*/
1996:
1997: x_trx_type := l_trx_type;
1998:
1999: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2000: THEN
2001: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2002: , G_MODULE_PREFIX || l_procedure_name
2003: ,'Begin Procedure. ');
1997: x_trx_type := l_trx_type;
1998:
1999: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2000: THEN
2001: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2002: , G_MODULE_PREFIX || l_procedure_name
2003: ,'Begin Procedure. ');
2004: END IF;
2005:
2004: END IF;
2005:
2006: EXCEPTION
2007: WHEN OTHERS THEN
2008: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2009: THEN
2010: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2011: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2012: , Sqlcode||Sqlerrm);
2006: EXCEPTION
2007: WHEN OTHERS THEN
2008: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2009: THEN
2010: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2011: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2012: , Sqlcode||Sqlerrm);
2013: END IF;
2014: RAISE;
2048: l_trx_line_index NUMBER;
2049: l_invoice_type ar_gta_trx_headers_all.invoice_type%TYPE; --added by subba for R12.1
2050: l_sales_list_flag ar_gta_rule_headers_all.Sales_List_Flag%TYPE;--added by Yao Zhang for bug 7758496
2051: BEGIN
2052: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2053: THEN
2054: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2055: , G_MODULE_PREFIX || l_procedure_name
2056: ,'Begin Procedure. ');
2050: l_sales_list_flag ar_gta_rule_headers_all.Sales_List_Flag%TYPE;--added by Yao Zhang for bug 7758496
2051: BEGIN
2052: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2053: THEN
2054: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2055: , G_MODULE_PREFIX || l_procedure_name
2056: ,'Begin Procedure. ');
2057: END IF;
2058:
2082: AND limits.org_id = p_org_id;
2083:
2084: EXCEPTION
2085: WHEN no_data_found THEN
2086: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2087: THEN
2088: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2089: , G_MODULE_PREFIX || l_procedure_name
2090: , 'no data found');
2084: EXCEPTION
2085: WHEN no_data_found THEN
2086: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2087: THEN
2088: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2089: , G_MODULE_PREFIX || l_procedure_name
2090: , 'no data found');
2091:
2092: --AR_GTA_SYS_CONFIG_MISSING
2090: , 'no data found');
2091:
2092: --AR_GTA_SYS_CONFIG_MISSING
2093: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2094: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2095: , G_MODULE_PREFIX || l_procedure_name
2096: , fnd_message.get());
2097:
2098: END IF;
2112: AND rule_header_id = p_transfer_id;
2113: EXCEPTION
2114: -- no data found , raise a data error
2115: WHEN no_data_found THEN
2116: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2117: THEN
2118: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2119: , G_MODULE_PREFIX || l_procedure_name
2120: , 'no data found');
2114: -- no data found , raise a data error
2115: WHEN no_data_found THEN
2116: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2117: THEN
2118: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2119: , G_MODULE_PREFIX || l_procedure_name
2120: , 'no data found');
2121:
2122: --AR_GTA_SYS_CONFIG_MISSING
2120: , 'no data found');
2121:
2122: --AR_GTA_SYS_CONFIG_MISSING
2123: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2124: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2125: , G_MODULE_PREFIX || l_procedure_name
2126: , fnd_message.get());
2127:
2128: END IF;
2161: THEN
2162: x_result := FALSE;
2163: END IF;/*l_sum_of_amount > l_max_amount OR l_lines_number > l_max_line*/
2164:
2165: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2166: THEN
2167: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2168: , G_MODULE_PREFIX || l_procedure_name
2169: ,'End Procedure. ');
2163: END IF;/*l_sum_of_amount > l_max_amount OR l_lines_number > l_max_line*/
2164:
2165: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2166: THEN
2167: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2168: , G_MODULE_PREFIX || l_procedure_name
2169: ,'End Procedure. ');
2170: END IF;
2171:
2170: END IF;
2171:
2172: EXCEPTION
2173: WHEN OTHERS THEN
2174: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2175: THEN
2176: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2177: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2178: , Sqlcode||Sqlerrm);
2172: EXCEPTION
2173: WHEN OTHERS THEN
2174: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2175: THEN
2176: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2177: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2178: , Sqlcode||Sqlerrm);
2179: END IF;
2180: RAISE;
2209: l_max_amount NUMBER;
2210: l_max_line NUMBER;
2211: l_error_string VARCHAR2(2000); --added by subba.
2212: BEGIN
2213: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2214: THEN
2215: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2216: , G_MODULE_PREFIX || l_procedure_name
2217: ,'Begin Procedure. ');
2211: l_error_string VARCHAR2(2000); --added by subba.
2212: BEGIN
2213: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2214: THEN
2215: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2216: , G_MODULE_PREFIX || l_procedure_name
2217: ,'Begin Procedure. ');
2218: END IF;
2219:
2217: ,'Begin Procedure. ');
2218: END IF;
2219:
2220: -- begin log
2221: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2222: THEN
2223: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin get_max_amount_line '||'p_org_id:'||P_org_id);
2224: END IF;
2225: -- end log
2219:
2220: -- begin log
2221: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2222: THEN
2223: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin get_max_amount_line '||'p_org_id:'||P_org_id);
2224: END IF;
2225: -- end log
2226:
2227: l_gta_trx := p_gta_trx;
2227: l_gta_trx := p_gta_trx;
2228: l_fp_reg_num := l_gta_trx.trx_lines(1).fp_tax_registration_number;
2229:
2230: -- begin log
2231: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2232: THEN
2233: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_fp_reg_num: '||l_fp_reg_num);
2234: END IF;
2235: -- end log
2229:
2230: -- begin log
2231: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2232: THEN
2233: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'l_fp_reg_num: '||l_fp_reg_num);
2234: END IF;
2235: -- end log
2236: /* 28/12/07 commented by Subba to change the logic for R12.1
2237: BEGIN
2247: AND limits.org_id = p_org_id;
2248:
2249: EXCEPTION
2250: WHEN no_data_found THEN
2251: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2252: THEN
2253: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2254: , G_MODULE_PREFIX || l_procedure_name
2255: , 'no data found');
2249: EXCEPTION
2250: WHEN no_data_found THEN
2251: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2252: THEN
2253: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2254: , G_MODULE_PREFIX || l_procedure_name
2255: , 'no data found');
2256:
2257: --AR_GTA_SYS_CONFIG_MISSING
2255: , 'no data found');
2256:
2257: --AR_GTA_SYS_CONFIG_MISSING
2258: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2259: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED
2260: , G_MODULE_PREFIX || l_procedure_name
2261: , fnd_message.get());
2262:
2263: END IF;
2300:
2301:
2302:
2303:
2304: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2306: ,G_MODULE_PREFIX || l_procedure_name
2307: ,'no data found for max_amt and mx_num_line'
2308: );
2301:
2302:
2303:
2304: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2306: ,G_MODULE_PREFIX || l_procedure_name
2307: ,'no data found for max_amt and mx_num_line'
2308: );
2309: END IF;
2318: x_max_amount := l_max_amount;
2319: END IF ; /*l_max_line IS NOT NULL AND l_max_amount IS NOT NULL*/
2320:
2321: -- begin log
2322: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2323: THEN
2324: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_max_amount_line:'||l_fp_reg_num);
2325: END IF;
2326: -- end log
2320:
2321: -- begin log
2322: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2323: THEN
2324: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_max_amount_line:'||l_fp_reg_num);
2325: END IF;
2326: -- end log
2327:
2328: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2324: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End get_max_amount_line:'||l_fp_reg_num);
2325: END IF;
2326: -- end log
2327:
2328: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2329: THEN
2330: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2331: , G_MODULE_PREFIX || l_procedure_name
2332: ,'Begin Procedure. ');
2326: -- end log
2327:
2328: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2329: THEN
2330: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2331: , G_MODULE_PREFIX || l_procedure_name
2332: ,'Begin Procedure. ');
2333: END IF;
2334:
2333: END IF;
2334:
2335: EXCEPTION
2336: WHEN OTHERS THEN
2337: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2338: THEN
2339: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2340: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2341: , Sqlcode||Sqlerrm);
2335: EXCEPTION
2336: WHEN OTHERS THEN
2337: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2338: THEN
2339: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2340: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2341: , Sqlcode||Sqlerrm);
2342: END IF;
2343: RAISE;
2380: l_error_string VARCHAR2(500);
2381:
2382: BEGIN
2383:
2384: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2385: THEN
2386: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2387: , G_MODULE_PREFIX || l_procedure_name
2388: ,'Begin Procedure. ');
2382: BEGIN
2383:
2384: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2385: THEN
2386: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2387: , G_MODULE_PREFIX || l_procedure_name
2388: ,'Begin Procedure. ');
2389: END IF;
2390:
2388: ,'Begin Procedure. ');
2389: END IF;
2390:
2391: -- begin log
2392: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2393: THEN
2394: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin filter_credit_memo');
2395: END IF;
2396: -- end log
2390:
2391: -- begin log
2392: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2393: THEN
2394: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Begin filter_credit_memo');
2395: END IF;
2396: -- end log
2397:
2398: -- init x_gta_Trx_tbl
2427: IF l_result = FALSE
2428: THEN
2429: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_EXCEED_LIMIT');
2430: l_error_string := fnd_message.GET();
2431: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2432: THEN
2433: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
2434: , G_MODULE_PREFIX || l_procedure_name
2435: , l_error_string
2429: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_EXCEED_LIMIT');
2430: l_error_string := fnd_message.GET();
2431: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2432: THEN
2433: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION
2434: , G_MODULE_PREFIX || l_procedure_name
2435: , l_error_string
2436: );
2437: END IF;
2443: x_gta_trx_tbl(x_gta_trx_tbl.COUNT) := l_gta_trx;
2444:
2445: ELSE /*l_trx_type = 'CM'*/
2446: -- begin log
2447: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2448: THEN
2449: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Is not a CM');
2450: END IF;
2451: -- end log
2445: ELSE /*l_trx_type = 'CM'*/
2446: -- begin log
2447: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2448: THEN
2449: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'Is not a CM');
2450: END IF;
2451: -- end log
2452:
2453: x_gta_trx_tbl.EXTEND;
2492: END;
2493: l_index := p_gta_trx_tbl.NEXT(l_index);
2494: END LOOP;/*l_index IS NOT NULL*/
2495:
2496: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2497: THEN
2498: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2499: , G_MODULE_PREFIX || l_procedure_name
2500: ,'Begin Procedure. ');
2494: END LOOP;/*l_index IS NOT NULL*/
2495:
2496: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2497: THEN
2498: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
2499: , G_MODULE_PREFIX || l_procedure_name
2500: ,'Begin Procedure. ');
2501: END IF;
2502:
2500: ,'Begin Procedure. ');
2501: END IF;
2502:
2503: -- begin log
2504: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2505: THEN
2506: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End filter_credit_memo');
2507: END IF;
2508: -- end log
2502:
2503: -- begin log
2504: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2505: THEN
2506: log(FND_LOG.LEVEL_PROCEDURE,G_MODULE_PREFIX || l_procedure_name, 'End filter_credit_memo');
2507: END IF;
2508: -- end log
2509:
2510: EXCEPTION
2508: -- end log
2509:
2510: EXCEPTION
2511: WHEN OTHERS THEN
2512: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2513: THEN
2514: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2515: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2516: , Sqlcode||Sqlerrm);
2510: EXCEPTION
2511: WHEN OTHERS THEN
2512: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2513: THEN
2514: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
2515: , G_MODULE_PREFIX || l_procedure_name || '. OTHER_EXCEPTION '
2516: , Sqlcode||Sqlerrm);
2517: END IF;
2518: RAISE;