84: l_stmt VARCHAR2(100);
85: BEGIN
86: l_stmt := 'TRUNCATE table '||g_fii_schema||'.'||p_table_name;
87: if g_debug_flag = 'Y' then
88: FII_UTIL.put_line('');
89: FII_UTIL.put_line(l_stmt);
90: end if;
91: EXECUTE IMMEDIATE l_stmt;
92:
85: BEGIN
86: l_stmt := 'TRUNCATE table '||g_fii_schema||'.'||p_table_name;
87: if g_debug_flag = 'Y' then
88: FII_UTIL.put_line('');
89: FII_UTIL.put_line(l_stmt);
90: end if;
91: EXECUTE IMMEDIATE l_stmt;
92:
93: EXCEPTION
117: --Unapplied Receipt Bucket
118: --------------------------------------------
119: g_state := 'Getting unapplied receipts aging bucket ranges';
120: if g_debug_flag = 'Y' then
121: FII_UTIL.put_line(g_state);
122: end if;
123:
124: select bb.name,
125: bbc.range1_low, bbc.range1_high-1,
142: g_rct_bucket_3_low := 61;--21;
143: g_rct_bucket_3_high := null; --always null
144: */
145: if g_debug_flag = 'Y' then
146: FII_UTIL.put_line(g_rct_bucket_name ||' bucket definition:');
147: FII_UTIL.put_line(g_rct_bucket_1_low||'-'||g_rct_bucket_1_high||', '||
148: g_rct_bucket_2_low||'-'||g_rct_bucket_2_high||', '||
149: g_rct_bucket_3_low||'-'||g_rct_bucket_3_high);
150: end if;
143: g_rct_bucket_3_high := null; --always null
144: */
145: if g_debug_flag = 'Y' then
146: FII_UTIL.put_line(g_rct_bucket_name ||' bucket definition:');
147: FII_UTIL.put_line(g_rct_bucket_1_low||'-'||g_rct_bucket_1_high||', '||
148: g_rct_bucket_2_low||'-'||g_rct_bucket_2_high||', '||
149: g_rct_bucket_3_low||'-'||g_rct_bucket_3_high);
150: end if;
151: /*
154: g_rct_bucket_2_low||'-'||g_rct_bucket_2_high||', '||
155: g_rct_bucket_3_low||'-'||g_rct_bucket_3_high);
156: */
157: if g_debug_flag = 'Y' then
158: FII_UTIL.put_line('Validating restrictions on '||g_rct_bucket_name||' bucket definition');
159: end if;
160:
161: IF (g_rct_bucket_1_low is null
162: or g_rct_bucket_1_low <> 0
186: --Current receivables bucket
187: ------------------------------------------------
188: g_state := 'Getting current receivables aging bucket ranges';
189: if g_debug_flag = 'Y' then
190: FII_UTIL.put_line(g_state);
191: end if;
192:
193: select bb.name,
194: bbc.range1_low, bbc.range1_high-1,
212: g_current_bucket_3_high := null; --always null
213: */
214:
215: if g_debug_flag = 'Y' then
216: FII_UTIL.put_line('FII Current Receivables bucket definition:');
217: FII_UTIL.put_line(g_current_bucket_1_low||'-'||g_current_bucket_1_high||', '||
218: g_current_bucket_2_low||'-'||g_current_bucket_2_high||', '||
219: g_current_bucket_3_low||'-'||g_current_bucket_3_high);
220: end if;
213: */
214:
215: if g_debug_flag = 'Y' then
216: FII_UTIL.put_line('FII Current Receivables bucket definition:');
217: FII_UTIL.put_line(g_current_bucket_1_low||'-'||g_current_bucket_1_high||', '||
218: g_current_bucket_2_low||'-'||g_current_bucket_2_high||', '||
219: g_current_bucket_3_low||'-'||g_current_bucket_3_high);
220: end if;
221: /*
224: g_current_bucket_2_low||'-'||g_current_bucket_2_high||', '||
225: g_current_bucket_3_low||'-'||g_current_bucket_3_high);
226: */
227: if g_debug_flag = 'Y' then
228: FII_UTIL.put_line('Validating restrictions on '||g_current_bucket_name||' bucket definition');
229: end if;
230:
231: IF (g_current_bucket_1_low is null
232: or g_current_bucket_1_low <> 0
257: --Past Due receivables bucket
258: ------------------------------------------------
259: g_state := 'Getting past due receivables aging bucket ranges';
260: if g_debug_flag = 'Y' then
261: FII_UTIL.put_line(g_state);
262: end if;
263:
264: select bb.name,
265: bbc.range1_low, bbc.range1_high-1,
298: g_past_due_bucket_7_low := null;--181;
299: g_past_due_bucket_7_high := null;--
300: */
301: if g_debug_flag = 'Y' then
302: FII_UTIL.put_line('FII Past Due Receivables bucket definition:');
303: FII_UTIL.put_line(g_past_due_bucket_1_low||'-'||g_past_due_bucket_1_high||', '||
304: g_past_due_bucket_2_low||'-'||g_past_due_bucket_2_high||', '||
305: g_past_due_bucket_3_low||'-'||g_past_due_bucket_3_high||', '||
306: g_past_due_bucket_4_low||'-'||g_past_due_bucket_4_high||', '||
299: g_past_due_bucket_7_high := null;--
300: */
301: if g_debug_flag = 'Y' then
302: FII_UTIL.put_line('FII Past Due Receivables bucket definition:');
303: FII_UTIL.put_line(g_past_due_bucket_1_low||'-'||g_past_due_bucket_1_high||', '||
304: g_past_due_bucket_2_low||'-'||g_past_due_bucket_2_high||', '||
305: g_past_due_bucket_3_low||'-'||g_past_due_bucket_3_high||', '||
306: g_past_due_bucket_4_low||'-'||g_past_due_bucket_4_high||', '||
307: g_past_due_bucket_5_low||'-'||g_past_due_bucket_5_high||', '||
318: g_past_due_bucket_6_low||'-'||g_past_due_bucket_6_high||', '||
319: g_past_due_bucket_7_low||'-'||g_past_due_bucket_7_high);
320: */
321: if g_debug_flag = 'Y' then
322: FII_UTIL.put_line('Validating restrictions on '||g_past_due_bucket_name||' bucket definition');
323: end if;
324:
325: IF (g_past_due_bucket_1_low is null
326: or g_past_due_bucket_1_low <> 1
380: EXCEPTION
381: WHEN G_INVALID_BUCKET_DEF THEN
382: g_retcode:= -1;
383: g_exception_msg := g_retcode || ':' || g_errbuf;
384: FII_UTIL.put_line('Error occured while ' || g_state);
385: FII_UTIL.put_line(g_exception_msg);
386: FII_UTIL.write_output(g_errbuf);
387: RAISE;
388: WHEN OTHERS THEN
381: WHEN G_INVALID_BUCKET_DEF THEN
382: g_retcode:= -1;
383: g_exception_msg := g_retcode || ':' || g_errbuf;
384: FII_UTIL.put_line('Error occured while ' || g_state);
385: FII_UTIL.put_line(g_exception_msg);
386: FII_UTIL.write_output(g_errbuf);
387: RAISE;
388: WHEN OTHERS THEN
389: g_retcode := -1;
382: g_retcode:= -1;
383: g_exception_msg := g_retcode || ':' || g_errbuf;
384: FII_UTIL.put_line('Error occured while ' || g_state);
385: FII_UTIL.put_line(g_exception_msg);
386: FII_UTIL.write_output(g_errbuf);
387: RAISE;
388: WHEN OTHERS THEN
389: g_retcode := -1;
390: g_errbuf := '
410:
411: BEGIN
412:
413: if g_debug_flag = 'Y' then
414: FII_UTIL.put_line('g_collection_criteria = '||g_collection_criteria);
415: end if;
416:
417: g_state := 'Initializing the global variables';
418:
419: -- Find the schema owner
420: IF (FND_INSTALLATION.GET_APP_INFO('FII', l_status, l_industry, g_fii_schema)) THEN
421: NULL;
422: if g_debug_flag = 'Y' then
423: FII_UTIL.put_line('g_fii_schema is '||g_fii_schema);
424: end if;
425: END IF;
426:
427: if g_debug_flag = 'Y' then
424: end if;
425: END IF;
426:
427: if g_debug_flag = 'Y' then
428: FII_UTIL.put_line('Initializing the Global Currency Precision');
429: end if;
430:
431: g_primary_mau := nvl(fii_currency.get_mau_primary, 0.01 );
432: g_secondary_mau:= nvl(fii_currency.get_mau_secondary, 0.01);
431: g_primary_mau := nvl(fii_currency.get_mau_primary, 0.01 );
432: g_secondary_mau:= nvl(fii_currency.get_mau_secondary, 0.01);
433:
434: if g_debug_flag = 'Y' then
435: FII_UTIL.put_line('Initializing the Global Currencies');
436: end if;
437:
438: g_prim_currency := bis_common_parameters.get_currency_code;
439: g_sec_currency := bis_common_parameters.get_secondary_currency_code;
438: g_prim_currency := bis_common_parameters.get_currency_code;
439: g_sec_currency := bis_common_parameters.get_secondary_currency_code;
440:
441: if g_debug_flag = 'Y' then
442: FII_UTIL.put_line('Initializing Global Currency Rate Types');
443: end if;
444:
445: g_prim_rate_type := bis_common_parameters.get_rate_type;
446: g_sec_rate_type := bis_common_parameters.get_secondary_rate_type;
445: g_prim_rate_type := bis_common_parameters.get_rate_type;
446: g_sec_rate_type := bis_common_parameters.get_secondary_rate_type;
447:
448: if g_debug_flag = 'Y' then
449: FII_UTIL.put_line('Initializing the Global Start Date');
450: end if;
451:
452: g_global_start_date := to_date(fnd_profile.value('BIS_GLOBAL_START_DATE'),'MM/DD/YYYY');
453:
451:
452: g_global_start_date := to_date(fnd_profile.value('BIS_GLOBAL_START_DATE'),'MM/DD/YYYY');
453:
454: if g_debug_flag = 'Y' then
455: FII_UTIL.put_line('g_global_start_date = '||g_global_start_date);
456: end if;
457:
458: l_global_param_list(1) := 'BIS_GLOBAL_START_DATE';
459: l_global_param_list(2) := 'BIS_PRIMARY_CURRENCY_CODE';
474: RAISE G_LOGIN_INFO_NOT_AVABLE;
475: END IF;
476:
477: if g_debug_flag = 'Y' then
478: FII_UTIL.put_line('User ID: ' || g_fii_user_id || ' Login ID: ' || g_fii_login_id);
479: end if;
480:
481: EXCEPTION
482: WHEN G_LOGIN_INFO_NOT_AVABLE THEN
514:
515: g_state := 'Loading data into rates table FII_AR_CURR_RATES_T';
516:
517: if g_debug_flag = 'Y' then
518: fii_util.put_line(' ');
519: fii_util.put_line(g_state);
520: fii_util.start_timer;
521: fii_util.put_line('');
522: end if;
515: g_state := 'Loading data into rates table FII_AR_CURR_RATES_T';
516:
517: if g_debug_flag = 'Y' then
518: fii_util.put_line(' ');
519: fii_util.put_line(g_state);
520: fii_util.start_timer;
521: fii_util.put_line('');
522: end if;
523:
516:
517: if g_debug_flag = 'Y' then
518: fii_util.put_line(' ');
519: fii_util.put_line(g_state);
520: fii_util.start_timer;
521: fii_util.put_line('');
522: end if;
523:
524: INSERT /*+ append */ INTO FII_AR_CURR_RATES_T
517: if g_debug_flag = 'Y' then
518: fii_util.put_line(' ');
519: fii_util.put_line(g_state);
520: fii_util.start_timer;
521: fii_util.put_line('');
522: end if;
523:
524: INSERT /*+ append */ INTO FII_AR_CURR_RATES_T
525: (SELECT sob.currency_code fc_code,
583: conversion_date);
584:
585:
586: if g_debug_flag = 'Y' then
587: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
588: fii_util.stop_timer;
589: fii_util.print_timer('Duration');
590: end if;
591:
584:
585:
586: if g_debug_flag = 'Y' then
587: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
588: fii_util.stop_timer;
589: fii_util.print_timer('Duration');
590: end if;
591:
592: COMMIT;
585:
586: if g_debug_flag = 'Y' then
587: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
588: fii_util.stop_timer;
589: fii_util.print_timer('Duration');
590: end if;
591:
592: COMMIT;
593: /*
612: WHEN OTHERS THEN
613: g_errbuf:=sqlerrm;
614: g_retcode:= -1;
615: g_exception_msg := g_retcode || ':' || g_errbuf;
616: FII_UTIL.put_line('Error occured while ' || g_state);
617: FII_UTIL.put_line(g_exception_msg);
618: RAISE;
619:
620: END Insert_Rates;
613: g_errbuf:=sqlerrm;
614: g_retcode:= -1;
615: g_exception_msg := g_retcode || ':' || g_errbuf;
616: FII_UTIL.put_line('Error occured while ' || g_state);
617: FII_UTIL.put_line(g_exception_msg);
618: RAISE;
619:
620: END Insert_Rates;
621:
650: BEGIN
651: g_state := 'Checking to see which additional rates need to be defined, if any';
652:
653: if g_debug_flag = 'Y' then
654: fii_util.put_line(' ');
655: fii_util.put_line(g_state);
656: fii_util.start_timer;
657: fii_util.put_line('');
658: end if;
651: g_state := 'Checking to see which additional rates need to be defined, if any';
652:
653: if g_debug_flag = 'Y' then
654: fii_util.put_line(' ');
655: fii_util.put_line(g_state);
656: fii_util.start_timer;
657: fii_util.put_line('');
658: end if;
659:
652:
653: if g_debug_flag = 'Y' then
654: fii_util.put_line(' ');
655: fii_util.put_line(g_state);
656: fii_util.start_timer;
657: fii_util.put_line('');
658: end if;
659:
660: SELECT COUNT(*)
653: if g_debug_flag = 'Y' then
654: fii_util.put_line(' ');
655: fii_util.put_line(g_state);
656: fii_util.start_timer;
657: fii_util.put_line('');
658: end if;
659:
660: SELECT COUNT(*)
661: INTO l_miss_rates_prim
710: WHEN OTHERS THEN
711: g_errbuf:=sqlerrm;
712: g_retcode:= -1;
713: g_exception_msg := g_retcode || ':' || g_errbuf;
714: FII_UTIL.put_line('Error occured while ' || g_state);
715: FII_UTIL.put_line(g_exception_msg);
716: RAISE;
717: END Verify_Missing_Rates;
718:
711: g_errbuf:=sqlerrm;
712: g_retcode:= -1;
713: g_exception_msg := g_retcode || ':' || g_errbuf;
714: FII_UTIL.put_line('Error occured while ' || g_state);
715: FII_UTIL.put_line(g_exception_msg);
716: RAISE;
717: END Verify_Missing_Rates;
718:
719:
732: TRUNCATE_TABLE('FII_AR_PMT_SCHEDULES_F');
733:
734: g_state := 'Populating FII_AR_PMT_SCHEDULES_F';
735: if g_debug_flag = 'Y' then
736: FII_UTIL.put_line(g_state);
737: FII_UTIL.start_timer;
738: FII_UTIL.put_line('');
739: end if;
740:
733:
734: g_state := 'Populating FII_AR_PMT_SCHEDULES_F';
735: if g_debug_flag = 'Y' then
736: FII_UTIL.put_line(g_state);
737: FII_UTIL.start_timer;
738: FII_UTIL.put_line('');
739: end if;
740:
741:
734: g_state := 'Populating FII_AR_PMT_SCHEDULES_F';
735: if g_debug_flag = 'Y' then
736: FII_UTIL.put_line(g_state);
737: FII_UTIL.start_timer;
738: FII_UTIL.put_line('');
739: end if;
740:
741:
742: INSERT /*+ append parallel(F) */ INTO FII_AR_PMT_SCHEDULES_F F
1079: AND trunc(least(nvl(sch.exchange_date,sch.trx_date),sysdate)) = rt.conversion_date;
1080:
1081:
1082: if g_debug_flag = 'Y' then
1083: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
1084: FII_UTIL.stop_timer;
1085: FII_UTIL.print_timer('Duration');
1086: FII_UTIL.put_line('');
1087: end if;
1080:
1081:
1082: if g_debug_flag = 'Y' then
1083: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
1084: FII_UTIL.stop_timer;
1085: FII_UTIL.print_timer('Duration');
1086: FII_UTIL.put_line('');
1087: end if;
1088:
1081:
1082: if g_debug_flag = 'Y' then
1083: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
1084: FII_UTIL.stop_timer;
1085: FII_UTIL.print_timer('Duration');
1086: FII_UTIL.put_line('');
1087: end if;
1088:
1089: g_state := 'Analyzing FII_AR_PMT_SCHEDULES_F table';
1082: if g_debug_flag = 'Y' then
1083: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
1084: FII_UTIL.stop_timer;
1085: FII_UTIL.print_timer('Duration');
1086: FII_UTIL.put_line('');
1087: end if;
1088:
1089: g_state := 'Analyzing FII_AR_PMT_SCHEDULES_F table';
1090: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_PMT_SCHEDULES_F');
1122: WHEN OTHERS THEN
1123: g_errbuf:=sqlerrm;
1124: g_retcode:= -1;
1125: g_exception_msg := g_retcode || ':' || g_errbuf;
1126: FII_UTIL.put_line('Error occured while ' || g_state);
1127: FII_UTIL.put_line(g_exception_msg);
1128: RAISE;
1129:
1130: END POPULATE_PAYMENT_SCHEDULES;
1123: g_errbuf:=sqlerrm;
1124: g_retcode:= -1;
1125: g_exception_msg := g_retcode || ':' || g_errbuf;
1126: FII_UTIL.put_line('Error occured while ' || g_state);
1127: FII_UTIL.put_line(g_exception_msg);
1128: RAISE;
1129:
1130: END POPULATE_PAYMENT_SCHEDULES;
1131:
1142: TRUNCATE_TABLE('FII_AR_DISPUTE_HISTORY_F');
1143:
1144: g_state := 'Populating FII_AR_DISPUTE_HISTORY_F';
1145: if g_debug_flag = 'Y' then
1146: FII_UTIL.put_line(g_state);
1147: FII_UTIL.start_timer;
1148: FII_UTIL.put_line('');
1149: end if;
1150:
1143:
1144: g_state := 'Populating FII_AR_DISPUTE_HISTORY_F';
1145: if g_debug_flag = 'Y' then
1146: FII_UTIL.put_line(g_state);
1147: FII_UTIL.start_timer;
1148: FII_UTIL.put_line('');
1149: end if;
1150:
1151: INSERT INTO FII_AR_DISPUTE_HISTORY_F
1144: g_state := 'Populating FII_AR_DISPUTE_HISTORY_F';
1145: if g_debug_flag = 'Y' then
1146: FII_UTIL.put_line(g_state);
1147: FII_UTIL.start_timer;
1148: FII_UTIL.put_line('');
1149: end if;
1150:
1151: INSERT INTO FII_AR_DISPUTE_HISTORY_F
1152: (dispute_history_id,
1215: AND sob.currency_code = rt.fc_code
1216: AND trunc(least(nvl(sch.exchange_date,sch.trx_date),sysdate)) = rt.conversion_date;
1217:
1218: if g_debug_flag = 'Y' then
1219: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
1220: FII_UTIL.stop_timer;
1221: FII_UTIL.print_timer('Duration');
1222: FII_UTIL.put_line('');
1223: end if;
1216: AND trunc(least(nvl(sch.exchange_date,sch.trx_date),sysdate)) = rt.conversion_date;
1217:
1218: if g_debug_flag = 'Y' then
1219: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
1220: FII_UTIL.stop_timer;
1221: FII_UTIL.print_timer('Duration');
1222: FII_UTIL.put_line('');
1223: end if;
1224:
1217:
1218: if g_debug_flag = 'Y' then
1219: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
1220: FII_UTIL.stop_timer;
1221: FII_UTIL.print_timer('Duration');
1222: FII_UTIL.put_line('');
1223: end if;
1224:
1225: g_state := 'Analyzing FII_AR_DISPUTE_HISTORY_F table';
1218: if g_debug_flag = 'Y' then
1219: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
1220: FII_UTIL.stop_timer;
1221: FII_UTIL.print_timer('Duration');
1222: FII_UTIL.put_line('');
1223: end if;
1224:
1225: g_state := 'Analyzing FII_AR_DISPUTE_HISTORY_F table';
1226: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_DISPUTE_HISTORY_F');
1229: WHEN OTHERS THEN
1230: g_errbuf:=sqlerrm;
1231: g_retcode:= -1;
1232: g_exception_msg := g_retcode || ':' || g_errbuf;
1233: FII_UTIL.put_line('Error occured while ' || g_state);
1234: FII_UTIL.put_line(g_exception_msg);
1235: RAISE;
1236:
1237: END POPULATE_DISPUTES;
1230: g_errbuf:=sqlerrm;
1231: g_retcode:= -1;
1232: g_exception_msg := g_retcode || ':' || g_errbuf;
1233: FII_UTIL.put_line('Error occured while ' || g_state);
1234: FII_UTIL.put_line(g_exception_msg);
1235: RAISE;
1236:
1237: END POPULATE_DISPUTES;
1238:
1251: TRUNCATE_TABLE('FII_AR_TRANSACTIONS_F');
1252:
1253: g_state := 'Populating FII_AR_TRANSACTIONS_F';
1254: if g_debug_flag = 'Y' then
1255: FII_UTIL.put_line(g_state);
1256: FII_UTIL.start_timer;
1257: FII_UTIL.put_line('');
1258: end if;
1259:
1252:
1253: g_state := 'Populating FII_AR_TRANSACTIONS_F';
1254: if g_debug_flag = 'Y' then
1255: FII_UTIL.put_line(g_state);
1256: FII_UTIL.start_timer;
1257: FII_UTIL.put_line('');
1258: end if;
1259:
1260: INSERT /*+ append parallel(F) */ INTO FII_AR_TRANSACTIONS_F F
1253: g_state := 'Populating FII_AR_TRANSACTIONS_F';
1254: if g_debug_flag = 'Y' then
1255: FII_UTIL.put_line(g_state);
1256: FII_UTIL.start_timer;
1257: FII_UTIL.put_line('');
1258: end if;
1259:
1260: INSERT /*+ append parallel(F) */ INTO FII_AR_TRANSACTIONS_F F
1261: (customer_trx_id,
1401: trx.created_by,
1402: trx.creation_date;
1403:
1404: if g_debug_flag = 'Y' then
1405: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
1406: FII_UTIL.stop_timer;
1407: FII_UTIL.print_timer('Duration');
1408: FII_UTIL.put_line('');
1409: end if;
1402: trx.creation_date;
1403:
1404: if g_debug_flag = 'Y' then
1405: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
1406: FII_UTIL.stop_timer;
1407: FII_UTIL.print_timer('Duration');
1408: FII_UTIL.put_line('');
1409: end if;
1410:
1403:
1404: if g_debug_flag = 'Y' then
1405: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
1406: FII_UTIL.stop_timer;
1407: FII_UTIL.print_timer('Duration');
1408: FII_UTIL.put_line('');
1409: end if;
1410:
1411: g_state := 'Analyzing FII_AR_TRANSACTIONS_F table';
1404: if g_debug_flag = 'Y' then
1405: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
1406: FII_UTIL.stop_timer;
1407: FII_UTIL.print_timer('Duration');
1408: FII_UTIL.put_line('');
1409: end if;
1410:
1411: g_state := 'Analyzing FII_AR_TRANSACTIONS_F table';
1412: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_TRANSACTIONS_F');
1415: WHEN OTHERS THEN
1416: g_errbuf:=sqlerrm;
1417: g_retcode:= -1;
1418: g_exception_msg := g_retcode || ':' || g_errbuf;
1419: FII_UTIL.put_line('Error occured while ' || g_state);
1420: FII_UTIL.put_line(g_exception_msg);
1421: RAISE;
1422:
1423: END POPULATE_TRANSACTIONS;
1416: g_errbuf:=sqlerrm;
1417: g_retcode:= -1;
1418: g_exception_msg := g_retcode || ':' || g_errbuf;
1419: FII_UTIL.put_line('Error occured while ' || g_state);
1420: FII_UTIL.put_line(g_exception_msg);
1421: RAISE;
1422:
1423: END POPULATE_TRANSACTIONS;
1424:
1435: TRUNCATE_TABLE('FII_AR_ADJUSTMENTS_F');
1436:
1437: g_state := 'Populating FII_AR_ADJUSTMENTS_F';
1438: if g_debug_flag = 'Y' then
1439: FII_UTIL.put_line(g_state);
1440: FII_UTIL.start_timer;
1441: FII_UTIL.put_line('');
1442: end if;
1443:
1436:
1437: g_state := 'Populating FII_AR_ADJUSTMENTS_F';
1438: if g_debug_flag = 'Y' then
1439: FII_UTIL.put_line(g_state);
1440: FII_UTIL.start_timer;
1441: FII_UTIL.put_line('');
1442: end if;
1443:
1444: INSERT /*+ append */ INTO FII_AR_ADJUSTMENTS_F
1437: g_state := 'Populating FII_AR_ADJUSTMENTS_F';
1438: if g_debug_flag = 'Y' then
1439: FII_UTIL.put_line(g_state);
1440: FII_UTIL.start_timer;
1441: FII_UTIL.put_line('');
1442: end if;
1443:
1444: INSERT /*+ append */ INTO FII_AR_ADJUSTMENTS_F
1445: (adjustment_id,
1532: AND par.set_of_books_id = sob.set_of_books_id
1533: AND sob.currency_code = rt.fc_code
1534: AND trunc(least(nvl(trx.exchange_date,trx.trx_date),sysdate)) = rt.conversion_date;
1535: if g_debug_flag = 'Y' then
1536: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
1537: FII_UTIL.stop_timer;
1538: FII_UTIL.print_timer('Duration');
1539: FII_UTIL.put_line('');
1540: end if;
1533: AND sob.currency_code = rt.fc_code
1534: AND trunc(least(nvl(trx.exchange_date,trx.trx_date),sysdate)) = rt.conversion_date;
1535: if g_debug_flag = 'Y' then
1536: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
1537: FII_UTIL.stop_timer;
1538: FII_UTIL.print_timer('Duration');
1539: FII_UTIL.put_line('');
1540: end if;
1541:
1534: AND trunc(least(nvl(trx.exchange_date,trx.trx_date),sysdate)) = rt.conversion_date;
1535: if g_debug_flag = 'Y' then
1536: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
1537: FII_UTIL.stop_timer;
1538: FII_UTIL.print_timer('Duration');
1539: FII_UTIL.put_line('');
1540: end if;
1541:
1542: g_state := 'Analyzing FII_AR_ADJUSTMENTS_F table';
1535: if g_debug_flag = 'Y' then
1536: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
1537: FII_UTIL.stop_timer;
1538: FII_UTIL.print_timer('Duration');
1539: FII_UTIL.put_line('');
1540: end if;
1541:
1542: g_state := 'Analyzing FII_AR_ADJUSTMENTS_F table';
1543: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_ADJUSTMENTS_F');
1546: WHEN OTHERS THEN
1547: g_errbuf:=sqlerrm;
1548: g_retcode:= -1;
1549: g_exception_msg := g_retcode || ':' || g_errbuf;
1550: FII_UTIL.put_line('Error occured while ' || g_state);
1551: FII_UTIL.put_line(g_exception_msg);
1552: RAISE;
1553:
1554: END POPULATE_ADJUSTMENTS;
1547: g_errbuf:=sqlerrm;
1548: g_retcode:= -1;
1549: g_exception_msg := g_retcode || ':' || g_errbuf;
1550: FII_UTIL.put_line('Error occured while ' || g_state);
1551: FII_UTIL.put_line(g_exception_msg);
1552: RAISE;
1553:
1554: END POPULATE_ADJUSTMENTS;
1555:
1570: TRUNCATE_TABLE('FII_AR_RECEIPTS_F');
1571:
1572: g_state := 'Populating FII_AR_RECEIPTS_F';
1573: if g_debug_flag = 'Y' then
1574: FII_UTIL.put_line(g_state);
1575: FII_UTIL.start_timer;
1576: FII_UTIL.put_line('');
1577: end if;
1578:
1571:
1572: g_state := 'Populating FII_AR_RECEIPTS_F';
1573: if g_debug_flag = 'Y' then
1574: FII_UTIL.put_line(g_state);
1575: FII_UTIL.start_timer;
1576: FII_UTIL.put_line('');
1577: end if;
1578:
1579: INSERT /*+ append parallel(F) */ INTO FII_AR_RECEIPTS_F F
1572: g_state := 'Populating FII_AR_RECEIPTS_F';
1573: if g_debug_flag = 'Y' then
1574: FII_UTIL.put_line(g_state);
1575: FII_UTIL.start_timer;
1576: FII_UTIL.put_line('');
1577: end if;
1578:
1579: INSERT /*+ append parallel(F) */ INTO FII_AR_RECEIPTS_F F
1580: (receivable_application_id,
1857: then 1
1858: else trxsch.payment_schedule_id end) is not null;
1859:
1860: if g_debug_flag = 'Y' then
1861: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
1862: FII_UTIL.stop_timer;
1863: FII_UTIL.print_timer('Duration');
1864: FII_UTIL.put_line('');
1865: end if;
1858: else trxsch.payment_schedule_id end) is not null;
1859:
1860: if g_debug_flag = 'Y' then
1861: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
1862: FII_UTIL.stop_timer;
1863: FII_UTIL.print_timer('Duration');
1864: FII_UTIL.put_line('');
1865: end if;
1866:
1859:
1860: if g_debug_flag = 'Y' then
1861: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
1862: FII_UTIL.stop_timer;
1863: FII_UTIL.print_timer('Duration');
1864: FII_UTIL.put_line('');
1865: end if;
1866:
1867: g_state := 'Analyzing FII_AR_RECEIPTS_F table';
1860: if g_debug_flag = 'Y' then
1861: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
1862: FII_UTIL.stop_timer;
1863: FII_UTIL.print_timer('Duration');
1864: FII_UTIL.put_line('');
1865: end if;
1866:
1867: g_state := 'Analyzing FII_AR_RECEIPTS_F table';
1868: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_RECEIPTS_F');
1900: WHEN OTHERS THEN
1901: g_errbuf:=sqlerrm;
1902: g_retcode:= -1;
1903: g_exception_msg := g_retcode || ':' || g_errbuf;
1904: FII_UTIL.put_line('Error occured while ' || g_state);
1905: FII_UTIL.put_line(g_exception_msg);
1906: RAISE;
1907:
1908: END POPULATE_RECEIPTS;
1901: g_errbuf:=sqlerrm;
1902: g_retcode:= -1;
1903: g_exception_msg := g_retcode || ':' || g_errbuf;
1904: FII_UTIL.put_line('Error occured while ' || g_state);
1905: FII_UTIL.put_line(g_exception_msg);
1906: RAISE;
1907:
1908: END POPULATE_RECEIPTS;
1909:
1920: TRUNCATE_TABLE('FII_AR_SCHEDULED_DISC_F');
1921:
1922: g_state := 'Populating FII_AR_SCHEDULED_DISC_F';
1923: if g_debug_flag = 'Y' then
1924: FII_UTIL.put_line(g_state);
1925: FII_UTIL.start_timer;
1926: FII_UTIL.put_line('');
1927: end if;
1928:
1921:
1922: g_state := 'Populating FII_AR_SCHEDULED_DISC_F';
1923: if g_debug_flag = 'Y' then
1924: FII_UTIL.put_line(g_state);
1925: FII_UTIL.start_timer;
1926: FII_UTIL.put_line('');
1927: end if;
1928:
1929:
1922: g_state := 'Populating FII_AR_SCHEDULED_DISC_F';
1923: if g_debug_flag = 'Y' then
1924: FII_UTIL.put_line(g_state);
1925: FII_UTIL.start_timer;
1926: FII_UTIL.put_line('');
1927: end if;
1928:
1929:
1930: INSERT INTO FII_AR_SCHEDULED_DISC_F
2011: GROUP BY term_id,
2012: sequence_num;
2013:
2014: if g_debug_flag = 'Y' then
2015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_SCHEDULED_DISC_F');
2016: FII_UTIL.stop_timer;
2017: FII_UTIL.print_timer('Duration');
2018: FII_UTIL.put_line('');
2019: end if;
2012: sequence_num;
2013:
2014: if g_debug_flag = 'Y' then
2015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_SCHEDULED_DISC_F');
2016: FII_UTIL.stop_timer;
2017: FII_UTIL.print_timer('Duration');
2018: FII_UTIL.put_line('');
2019: end if;
2020:
2013:
2014: if g_debug_flag = 'Y' then
2015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_SCHEDULED_DISC_F');
2016: FII_UTIL.stop_timer;
2017: FII_UTIL.print_timer('Duration');
2018: FII_UTIL.put_line('');
2019: end if;
2020:
2021: g_state := 'Analyzing FII_AR_SCHEDULED_DISC_F table';
2014: if g_debug_flag = 'Y' then
2015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_SCHEDULED_DISC_F');
2016: FII_UTIL.stop_timer;
2017: FII_UTIL.print_timer('Duration');
2018: FII_UTIL.put_line('');
2019: end if;
2020:
2021: g_state := 'Analyzing FII_AR_SCHEDULED_DISC_F table';
2022: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_SCHEDULED_DISC_F');
2025: WHEN OTHERS THEN
2026: g_errbuf:=sqlerrm;
2027: g_retcode:= -1;
2028: g_exception_msg := g_retcode || ':' || g_errbuf;
2029: FII_UTIL.put_line('Error occured while ' || g_state);
2030: FII_UTIL.put_line(g_exception_msg);
2031: RAISE;
2032:
2033: END POPULATE_SCHEDULED_DISCOUNTS;
2026: g_errbuf:=sqlerrm;
2027: g_retcode:= -1;
2028: g_exception_msg := g_retcode || ':' || g_errbuf;
2029: FII_UTIL.put_line('Error occured while ' || g_state);
2030: FII_UTIL.put_line(g_exception_msg);
2031: RAISE;
2032:
2033: END POPULATE_SCHEDULED_DISCOUNTS;
2034:
2064: SELECT 10 marker FROM DUAL WHERE g_past_due_bucket_7_low is not null);
2065:
2066: g_state := 'Populating FII_AR_AGING_RECEIVABLES';
2067: if g_debug_flag = 'Y' then
2068: FII_UTIL.put_line(g_state);
2069: FII_UTIL.start_timer;
2070: FII_UTIL.put_line('');
2071: end if;
2072:
2065:
2066: g_state := 'Populating FII_AR_AGING_RECEIVABLES';
2067: if g_debug_flag = 'Y' then
2068: FII_UTIL.put_line(g_state);
2069: FII_UTIL.start_timer;
2070: FII_UTIL.put_line('');
2071: end if;
2072:
2073: INSERT /*+ append parallel(F) */ INTO FII_AR_AGING_RECEIVABLES F
2066: g_state := 'Populating FII_AR_AGING_RECEIVABLES';
2067: if g_debug_flag = 'Y' then
2068: FII_UTIL.put_line(g_state);
2069: FII_UTIL.start_timer;
2070: FII_UTIL.put_line('');
2071: end if;
2072:
2073: INSERT /*+ append parallel(F) */ INTO FII_AR_AGING_RECEIVABLES F
2074: (time_id,
3264: aging_flag;
3265:
3266:
3267: if g_debug_flag = 'Y' then
3268: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIVABLES');
3269: FII_UTIL.stop_timer;
3270: FII_UTIL.print_timer('Duration');
3271: FII_UTIL.put_line('');
3272: end if;
3265:
3266:
3267: if g_debug_flag = 'Y' then
3268: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIVABLES');
3269: FII_UTIL.stop_timer;
3270: FII_UTIL.print_timer('Duration');
3271: FII_UTIL.put_line('');
3272: end if;
3273:
3266:
3267: if g_debug_flag = 'Y' then
3268: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIVABLES');
3269: FII_UTIL.stop_timer;
3270: FII_UTIL.print_timer('Duration');
3271: FII_UTIL.put_line('');
3272: end if;
3273:
3274: g_state := 'Analyzing FII_AR_AGING_RECEIVABLES table';
3267: if g_debug_flag = 'Y' then
3268: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIVABLES');
3269: FII_UTIL.stop_timer;
3270: FII_UTIL.print_timer('Duration');
3271: FII_UTIL.put_line('');
3272: end if;
3273:
3274: g_state := 'Analyzing FII_AR_AGING_RECEIVABLES table';
3275: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_AGING_RECEIVABLES');
3278: WHEN OTHERS THEN
3279: g_errbuf:=sqlerrm;
3280: g_retcode:= -1;
3281: g_exception_msg := g_retcode || ':' || g_errbuf;
3282: FII_UTIL.put_line('Error occured while ' || g_state);
3283: FII_UTIL.put_line(g_exception_msg);
3284: RAISE;
3285:
3286: END POPULATE_RECEIVABLES_AGING;
3279: g_errbuf:=sqlerrm;
3280: g_retcode:= -1;
3281: g_exception_msg := g_retcode || ':' || g_errbuf;
3282: FII_UTIL.put_line('Error occured while ' || g_state);
3283: FII_UTIL.put_line(g_exception_msg);
3284: RAISE;
3285:
3286: END POPULATE_RECEIVABLES_AGING;
3287:
3310: SELECT 3 marker FROM DUAL WHERE g_rct_bucket_3_low is not null);
3311:
3312: g_state := 'Populating FII_AR_AGING_RECEIPTS';
3313: if g_debug_flag = 'Y' then
3314: FII_UTIL.put_line(g_state);
3315: FII_UTIL.start_timer;
3316: FII_UTIL.put_line('');
3317: end if;
3318:
3311:
3312: g_state := 'Populating FII_AR_AGING_RECEIPTS';
3313: if g_debug_flag = 'Y' then
3314: FII_UTIL.put_line(g_state);
3315: FII_UTIL.start_timer;
3316: FII_UTIL.put_line('');
3317: end if;
3318:
3319:
3312: g_state := 'Populating FII_AR_AGING_RECEIPTS';
3313: if g_debug_flag = 'Y' then
3314: FII_UTIL.put_line(g_state);
3315: FII_UTIL.start_timer;
3316: FII_UTIL.put_line('');
3317: end if;
3318:
3319:
3320: INSERT /*+ append parallel(F) */ INTO FII_AR_AGING_RECEIPTS F
3613: or
3614: sum(aging_bucket_3_amount_func) <>0;
3615:
3616: if g_debug_flag = 'Y' then
3617: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIPTS');
3618: FII_UTIL.stop_timer;
3619: FII_UTIL.print_timer('Duration');
3620: FII_UTIL.put_line('');
3621: end if;
3614: sum(aging_bucket_3_amount_func) <>0;
3615:
3616: if g_debug_flag = 'Y' then
3617: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIPTS');
3618: FII_UTIL.stop_timer;
3619: FII_UTIL.print_timer('Duration');
3620: FII_UTIL.put_line('');
3621: end if;
3622:
3615:
3616: if g_debug_flag = 'Y' then
3617: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIPTS');
3618: FII_UTIL.stop_timer;
3619: FII_UTIL.print_timer('Duration');
3620: FII_UTIL.put_line('');
3621: end if;
3622:
3623: g_state := 'Analyzing FII_AR_AGING_RECEIPTS table';
3616: if g_debug_flag = 'Y' then
3617: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_RECEIPTS');
3618: FII_UTIL.stop_timer;
3619: FII_UTIL.print_timer('Duration');
3620: FII_UTIL.put_line('');
3621: end if;
3622:
3623: g_state := 'Analyzing FII_AR_AGING_RECEIPTS table';
3624: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_AGING_RECEIPTS');
3627: WHEN OTHERS THEN
3628: g_errbuf:=sqlerrm;
3629: g_retcode:= -1;
3630: g_exception_msg := g_retcode || ':' || g_errbuf;
3631: FII_UTIL.put_line('Error occured while ' || g_state);
3632: FII_UTIL.put_line(g_exception_msg);
3633: RAISE;
3634:
3635: END POPULATE_RECEIPTS_AGING;
3628: g_errbuf:=sqlerrm;
3629: g_retcode:= -1;
3630: g_exception_msg := g_retcode || ':' || g_errbuf;
3631: FII_UTIL.put_line('Error occured while ' || g_state);
3632: FII_UTIL.put_line(g_exception_msg);
3633: RAISE;
3634:
3635: END POPULATE_RECEIPTS_AGING;
3636:
3645: TRUNCATE_TABLE('FII_AR_AGING_DISPUTES');
3646:
3647: g_state := 'Populating FII_AR_AGING_DISPUTES';
3648: if g_debug_flag = 'Y' then
3649: FII_UTIL.put_line(g_state);
3650: FII_UTIL.start_timer;
3651: FII_UTIL.put_line('');
3652: end if;
3653:
3646:
3647: g_state := 'Populating FII_AR_AGING_DISPUTES';
3648: if g_debug_flag = 'Y' then
3649: FII_UTIL.put_line(g_state);
3650: FII_UTIL.start_timer;
3651: FII_UTIL.put_line('');
3652: end if;
3653:
3654: INSERT /*+ append parallel(D) */ INTO FII_AR_AGING_DISPUTES D
3647: g_state := 'Populating FII_AR_AGING_DISPUTES';
3648: if g_debug_flag = 'Y' then
3649: FII_UTIL.put_line(g_state);
3650: FII_UTIL.start_timer;
3651: FII_UTIL.put_line('');
3652: end if;
3653:
3654: INSERT /*+ append parallel(D) */ INTO FII_AR_AGING_DISPUTES D
3655: (time_id,
3903: sum(past_due_dispute_amount_func) <> 0;
3904:
3905:
3906: if g_debug_flag = 'Y' then
3907: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_DISPUTES');
3908: FII_UTIL.stop_timer;
3909: FII_UTIL.print_timer('Duration');
3910: FII_UTIL.put_line('');
3911: end if;
3904:
3905:
3906: if g_debug_flag = 'Y' then
3907: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_DISPUTES');
3908: FII_UTIL.stop_timer;
3909: FII_UTIL.print_timer('Duration');
3910: FII_UTIL.put_line('');
3911: end if;
3912:
3905:
3906: if g_debug_flag = 'Y' then
3907: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_DISPUTES');
3908: FII_UTIL.stop_timer;
3909: FII_UTIL.print_timer('Duration');
3910: FII_UTIL.put_line('');
3911: end if;
3912:
3913: g_state := 'Analyzing FII_AR_AGING_DISPUTES table';
3906: if g_debug_flag = 'Y' then
3907: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_AGING_DISPUTES');
3908: FII_UTIL.stop_timer;
3909: FII_UTIL.print_timer('Duration');
3910: FII_UTIL.put_line('');
3911: end if;
3912:
3913: g_state := 'Analyzing FII_AR_AGING_DISPUTES table';
3914: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_AGING_DISPUTES');
3917: WHEN OTHERS THEN
3918: g_errbuf:=sqlerrm;
3919: g_retcode:= -1;
3920: g_exception_msg := g_retcode || ':' || g_errbuf;
3921: FII_UTIL.put_line('Error occured while ' || g_state);
3922: FII_UTIL.put_line(g_exception_msg);
3923: RAISE;
3924:
3925: END POPULATE_DISPUTES_AGING;
3918: g_errbuf:=sqlerrm;
3919: g_retcode:= -1;
3920: g_exception_msg := g_retcode || ':' || g_errbuf;
3921: FII_UTIL.put_line('Error occured while ' || g_state);
3922: FII_UTIL.put_line(g_exception_msg);
3923: RAISE;
3924:
3925: END POPULATE_DISPUTES_AGING;
3926:
3936: TRUNCATE_TABLE('FII_AR_HELP_MKT_CLASSES');
3937:
3938: g_state := 'Populating fii_ar_help_mkt_classes';
3939: if g_debug_flag = 'Y' then
3940: FII_UTIL.put_line(g_state);
3941: FII_UTIL.start_timer;
3942: FII_UTIL.put_line('');
3943: end if;
3944:
3937:
3938: g_state := 'Populating fii_ar_help_mkt_classes';
3939: if g_debug_flag = 'Y' then
3940: FII_UTIL.put_line(g_state);
3941: FII_UTIL.start_timer;
3942: FII_UTIL.put_line('');
3943: end if;
3944:
3945: INSERT into fii_ar_help_mkt_classes
3938: g_state := 'Populating fii_ar_help_mkt_classes';
3939: if g_debug_flag = 'Y' then
3940: FII_UTIL.put_line(g_state);
3941: FII_UTIL.start_timer;
3942: FII_UTIL.put_line('');
3943: end if;
3944:
3945: INSERT into fii_ar_help_mkt_classes
3946: (class_category,
3976: g_fii_login_id --LAST_UPDATE_LOGIN
3977: FROM dual;
3978:
3979: if g_debug_flag = 'Y' then
3980: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_MKT_CLASSES');
3981: FII_UTIL.stop_timer;
3982: FII_UTIL.print_timer('Duration');
3983: FII_UTIL.put_line('');
3984: end if;
3977: FROM dual;
3978:
3979: if g_debug_flag = 'Y' then
3980: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_MKT_CLASSES');
3981: FII_UTIL.stop_timer;
3982: FII_UTIL.print_timer('Duration');
3983: FII_UTIL.put_line('');
3984: end if;
3985:
3978:
3979: if g_debug_flag = 'Y' then
3980: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_MKT_CLASSES');
3981: FII_UTIL.stop_timer;
3982: FII_UTIL.print_timer('Duration');
3983: FII_UTIL.put_line('');
3984: end if;
3985:
3986: g_state := 'Truncating table: FII_AR_HELP_COLLECTORS';
3979: if g_debug_flag = 'Y' then
3980: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_MKT_CLASSES');
3981: FII_UTIL.stop_timer;
3982: FII_UTIL.print_timer('Duration');
3983: FII_UTIL.put_line('');
3984: end if;
3985:
3986: g_state := 'Truncating table: FII_AR_HELP_COLLECTORS';
3987: TRUNCATE_TABLE('FII_AR_HELP_COLLECTORS');
3987: TRUNCATE_TABLE('FII_AR_HELP_COLLECTORS');
3988:
3989: g_state := 'Populating FII_AR_HELP_COLLECTORS';
3990: if g_debug_flag = 'Y' then
3991: FII_UTIL.put_line(g_state);
3992: FII_UTIL.start_timer;
3993: FII_UTIL.put_line('');
3994: end if;
3995:
3988:
3989: g_state := 'Populating FII_AR_HELP_COLLECTORS';
3990: if g_debug_flag = 'Y' then
3991: FII_UTIL.put_line(g_state);
3992: FII_UTIL.start_timer;
3993: FII_UTIL.put_line('');
3994: end if;
3995:
3996: INSERT into fii_ar_help_collectors
3989: g_state := 'Populating FII_AR_HELP_COLLECTORS';
3990: if g_debug_flag = 'Y' then
3991: FII_UTIL.put_line(g_state);
3992: FII_UTIL.start_timer;
3993: FII_UTIL.put_line('');
3994: end if;
3995:
3996: INSERT into fii_ar_help_collectors
3997: (collector_id,
4011: FROM ar_collectors c
4012: WHERE exists (select 'x' from fii_collectors hz where hz.collector_id = c.collector_id);
4013:
4014: if g_debug_flag = 'Y' then
4015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_COLLECTORS');
4016: FII_UTIL.stop_timer;
4017: FII_UTIL.print_timer('Duration');
4018: FII_UTIL.put_line('');
4019: end if;
4012: WHERE exists (select 'x' from fii_collectors hz where hz.collector_id = c.collector_id);
4013:
4014: if g_debug_flag = 'Y' then
4015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_COLLECTORS');
4016: FII_UTIL.stop_timer;
4017: FII_UTIL.print_timer('Duration');
4018: FII_UTIL.put_line('');
4019: end if;
4020:
4013:
4014: if g_debug_flag = 'Y' then
4015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_COLLECTORS');
4016: FII_UTIL.stop_timer;
4017: FII_UTIL.print_timer('Duration');
4018: FII_UTIL.put_line('');
4019: end if;
4020:
4021: g_state := 'Analyzing FII_AR_HELP_MKT_CLASSES table';
4014: if g_debug_flag = 'Y' then
4015: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_HELP_COLLECTORS');
4016: FII_UTIL.stop_timer;
4017: FII_UTIL.print_timer('Duration');
4018: FII_UTIL.put_line('');
4019: end if;
4020:
4021: g_state := 'Analyzing FII_AR_HELP_MKT_CLASSES table';
4022: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_HELP_MKT_CLASSES');
4029: WHEN OTHERS THEN
4030: g_errbuf:=sqlerrm;
4031: g_retcode:= -1;
4032: g_exception_msg := g_retcode || ':' || g_errbuf;
4033: FII_UTIL.put_line('Error occured while ' || g_state);
4034: FII_UTIL.put_line(g_exception_msg);
4035: RAISE;
4036:
4037: END POPULATE_HELPER_TABLES;
4030: g_errbuf:=sqlerrm;
4031: g_retcode:= -1;
4032: g_exception_msg := g_retcode || ':' || g_errbuf;
4033: FII_UTIL.put_line('Error occured while ' || g_state);
4034: FII_UTIL.put_line(g_exception_msg);
4035: RAISE;
4036:
4037: END POPULATE_HELPER_TABLES;
4038:
4058:
4059: BEGIN
4060: g_state := 'Inside the procedure COLLECT';
4061: if g_debug_flag = 'Y' then
4062: FII_UTIL.put_line(g_state);
4063: end if;
4064:
4065: Retcode := 0;
4066:
4067: ------------------------------------------------------
4068: -- Set default directory in case if the profile option
4069: -- BIS_DEBUG_LOG_DIRECTORY is not set up
4070: ------------------------------------------------------
4071: l_dir:=FII_UTIL.get_utl_file_dir;
4072:
4073: ----------------------------------------------------------------
4074: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
4075: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
4070: ------------------------------------------------------
4071: l_dir:=FII_UTIL.get_utl_file_dir;
4072:
4073: ----------------------------------------------------------------
4074: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
4075: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
4076: -- the log files and output files are written to
4077: ----------------------------------------------------------------
4078: FII_UTIL.initialize('FII_AR_FACTS_AGING_INIT.log','FII_AR_FACTS_AGING_INIT.out',l_dir, 'FII_AR_FACTS_AGING_INIT');
4074: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
4075: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
4076: -- the log files and output files are written to
4077: ----------------------------------------------------------------
4078: FII_UTIL.initialize('FII_AR_FACTS_AGING_INIT.log','FII_AR_FACTS_AGING_INIT.out',l_dir, 'FII_AR_FACTS_AGING_INIT');
4079:
4080: EXECUTE IMMEDIATE 'ALTER SESSION SET MAX_DUMP_FILE_SIZE=UNLIMITED';
4081: EXECUTE IMMEDIATE 'alter session enable parallel dml';
4082:
4080: EXECUTE IMMEDIATE 'ALTER SESSION SET MAX_DUMP_FILE_SIZE=UNLIMITED';
4081: EXECUTE IMMEDIATE 'alter session enable parallel dml';
4082:
4083: if g_debug_flag = 'Y' then
4084: FII_UTIL.put_line('-------------------------------------------------');
4085: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
4086: FII_UTIL.put_line('-------------------------------------------------');
4087: end if;
4088:
4081: EXECUTE IMMEDIATE 'alter session enable parallel dml';
4082:
4083: if g_debug_flag = 'Y' then
4084: FII_UTIL.put_line('-------------------------------------------------');
4085: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
4086: FII_UTIL.put_line('-------------------------------------------------');
4087: end if;
4088:
4089: INIT;
4082:
4083: if g_debug_flag = 'Y' then
4084: FII_UTIL.put_line('-------------------------------------------------');
4085: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
4086: FII_UTIL.put_line('-------------------------------------------------');
4087: end if;
4088:
4089: INIT;
4090:
4088:
4089: INIT;
4090:
4091: if g_debug_flag = 'Y' then
4092: FII_UTIL.put_line('-------------------------------------------------');
4093: FII_UTIL.put_line('Populating fii_ar_setup with ''BIS: Party Market Classification Type''');
4094: FII_UTIL.put_line('-------------------------------------------------');
4095: end if;
4096:
4089: INIT;
4090:
4091: if g_debug_flag = 'Y' then
4092: FII_UTIL.put_line('-------------------------------------------------');
4093: FII_UTIL.put_line('Populating fii_ar_setup with ''BIS: Party Market Classification Type''');
4094: FII_UTIL.put_line('-------------------------------------------------');
4095: end if;
4096:
4097: UPDATE FII_AR_SETUP
4090:
4091: if g_debug_flag = 'Y' then
4092: FII_UTIL.put_line('-------------------------------------------------');
4093: FII_UTIL.put_line('Populating fii_ar_setup with ''BIS: Party Market Classification Type''');
4094: FII_UTIL.put_line('-------------------------------------------------');
4095: end if;
4096:
4097: UPDATE FII_AR_SETUP
4098: SET class_category = nvl(fnd_profile.value('BIS_CUST_CLASS_TYPE'),-1),
4118:
4119: END IF;
4120:
4121: if g_debug_flag = 'Y' then
4122: FII_UTIL.put_line('-------------------------------------------------');
4123: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
4124: FII_UTIL.put_line('-------------------------------------------------');
4125: end if;
4126:
4119: END IF;
4120:
4121: if g_debug_flag = 'Y' then
4122: FII_UTIL.put_line('-------------------------------------------------');
4123: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
4124: FII_UTIL.put_line('-------------------------------------------------');
4125: end if;
4126:
4127: POPULATE_HELPER_TABLES;
4120:
4121: if g_debug_flag = 'Y' then
4122: FII_UTIL.put_line('-------------------------------------------------');
4123: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
4124: FII_UTIL.put_line('-------------------------------------------------');
4125: end if;
4126:
4127: POPULATE_HELPER_TABLES;
4128:
4127: POPULATE_HELPER_TABLES;
4128:
4129:
4130: if g_debug_flag = 'Y' then
4131: FII_UTIL.put_line('-------------------------------------------------');
4132: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
4133: FII_UTIL.put_line('-------------------------------------------------');
4134: end if;
4135:
4128:
4129:
4130: if g_debug_flag = 'Y' then
4131: FII_UTIL.put_line('-------------------------------------------------');
4132: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
4133: FII_UTIL.put_line('-------------------------------------------------');
4134: end if;
4135:
4136: GET_BUCKET_RANGES;
4129:
4130: if g_debug_flag = 'Y' then
4131: FII_UTIL.put_line('-------------------------------------------------');
4132: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
4133: FII_UTIL.put_line('-------------------------------------------------');
4134: end if;
4135:
4136: GET_BUCKET_RANGES;
4137:
4138:
4139: g_state := 'Truncating table FII_AR_CURR_RATES_T';
4140: TRUNCATE_TABLE('FII_AR_CURR_RATES_T');
4141: if g_debug_flag = 'Y' then
4142: FII_UTIL.put_line('-------------------------------------------------');
4143: FII_UTIL.put_line('Calling the Insert_Rates procedure to insert the missing rate info');
4144: FII_UTIL.put_line('-------------------------------------------------');
4145: end if;
4146:
4139: g_state := 'Truncating table FII_AR_CURR_RATES_T';
4140: TRUNCATE_TABLE('FII_AR_CURR_RATES_T');
4141: if g_debug_flag = 'Y' then
4142: FII_UTIL.put_line('-------------------------------------------------');
4143: FII_UTIL.put_line('Calling the Insert_Rates procedure to insert the missing rate info');
4144: FII_UTIL.put_line('-------------------------------------------------');
4145: end if;
4146:
4147: INSERT_RATES;
4140: TRUNCATE_TABLE('FII_AR_CURR_RATES_T');
4141: if g_debug_flag = 'Y' then
4142: FII_UTIL.put_line('-------------------------------------------------');
4143: FII_UTIL.put_line('Calling the Insert_Rates procedure to insert the missing rate info');
4144: FII_UTIL.put_line('-------------------------------------------------');
4145: end if;
4146:
4147: INSERT_RATES;
4148:
4147: INSERT_RATES;
4148:
4149:
4150: if g_debug_flag = 'Y' then
4151: FII_UTIL.put_line('-------------------------------------------------');
4152: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
4153: FII_UTIL.put_line('-------------------------------------------------');
4154: end if;
4155:
4148:
4149:
4150: if g_debug_flag = 'Y' then
4151: FII_UTIL.put_line('-------------------------------------------------');
4152: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
4153: FII_UTIL.put_line('-------------------------------------------------');
4154: end if;
4155:
4156: IF (VERIFY_MISSING_RATES = -1) THEN
4149:
4150: if g_debug_flag = 'Y' then
4151: FII_UTIL.put_line('-------------------------------------------------');
4152: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
4153: FII_UTIL.put_line('-------------------------------------------------');
4154: end if;
4155:
4156: IF (VERIFY_MISSING_RATES = -1) THEN
4157: g_retcode := -1;
4167: ELSE
4168:
4169:
4170: if g_debug_flag = 'Y' then
4171: FII_UTIL.put_line('-------------------------------------------------');
4172: FII_UTIL.put_line('Calling procedure POPULATE_PAYMENT_SCHEDULES');
4173: FII_UTIL.put_line('-------------------------------------------------');
4174: end if;
4175: POPULATE_PAYMENT_SCHEDULES;
4168:
4169:
4170: if g_debug_flag = 'Y' then
4171: FII_UTIL.put_line('-------------------------------------------------');
4172: FII_UTIL.put_line('Calling procedure POPULATE_PAYMENT_SCHEDULES');
4173: FII_UTIL.put_line('-------------------------------------------------');
4174: end if;
4175: POPULATE_PAYMENT_SCHEDULES;
4176:
4169:
4170: if g_debug_flag = 'Y' then
4171: FII_UTIL.put_line('-------------------------------------------------');
4172: FII_UTIL.put_line('Calling procedure POPULATE_PAYMENT_SCHEDULES');
4173: FII_UTIL.put_line('-------------------------------------------------');
4174: end if;
4175: POPULATE_PAYMENT_SCHEDULES;
4176:
4177:
4175: POPULATE_PAYMENT_SCHEDULES;
4176:
4177:
4178: if g_debug_flag = 'Y' then
4179: FII_UTIL.put_line('-------------------------------------------------');
4180: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES');
4181: FII_UTIL.put_line('-------------------------------------------------');
4182: end if;
4183: POPULATE_DISPUTES;
4176:
4177:
4178: if g_debug_flag = 'Y' then
4179: FII_UTIL.put_line('-------------------------------------------------');
4180: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES');
4181: FII_UTIL.put_line('-------------------------------------------------');
4182: end if;
4183: POPULATE_DISPUTES;
4184:
4177:
4178: if g_debug_flag = 'Y' then
4179: FII_UTIL.put_line('-------------------------------------------------');
4180: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES');
4181: FII_UTIL.put_line('-------------------------------------------------');
4182: end if;
4183: POPULATE_DISPUTES;
4184:
4185:
4183: POPULATE_DISPUTES;
4184:
4185:
4186: if g_debug_flag = 'Y' then
4187: FII_UTIL.put_line('-------------------------------------------------');
4188: FII_UTIL.put_line('Calling procedure POPULATE_TRANSACTIONS');
4189: FII_UTIL.put_line('-------------------------------------------------');
4190: end if;
4191: POPULATE_TRANSACTIONS;
4184:
4185:
4186: if g_debug_flag = 'Y' then
4187: FII_UTIL.put_line('-------------------------------------------------');
4188: FII_UTIL.put_line('Calling procedure POPULATE_TRANSACTIONS');
4189: FII_UTIL.put_line('-------------------------------------------------');
4190: end if;
4191: POPULATE_TRANSACTIONS;
4192:
4185:
4186: if g_debug_flag = 'Y' then
4187: FII_UTIL.put_line('-------------------------------------------------');
4188: FII_UTIL.put_line('Calling procedure POPULATE_TRANSACTIONS');
4189: FII_UTIL.put_line('-------------------------------------------------');
4190: end if;
4191: POPULATE_TRANSACTIONS;
4192:
4193:
4191: POPULATE_TRANSACTIONS;
4192:
4193:
4194: if g_debug_flag = 'Y' then
4195: FII_UTIL.put_line('-------------------------------------------------');
4196: FII_UTIL.put_line('Calling procedure POPULATE_ADJUSTMENTS');
4197: FII_UTIL.put_line('-------------------------------------------------');
4198: end if;
4199: POPULATE_ADJUSTMENTS;
4192:
4193:
4194: if g_debug_flag = 'Y' then
4195: FII_UTIL.put_line('-------------------------------------------------');
4196: FII_UTIL.put_line('Calling procedure POPULATE_ADJUSTMENTS');
4197: FII_UTIL.put_line('-------------------------------------------------');
4198: end if;
4199: POPULATE_ADJUSTMENTS;
4200:
4193:
4194: if g_debug_flag = 'Y' then
4195: FII_UTIL.put_line('-------------------------------------------------');
4196: FII_UTIL.put_line('Calling procedure POPULATE_ADJUSTMENTS');
4197: FII_UTIL.put_line('-------------------------------------------------');
4198: end if;
4199: POPULATE_ADJUSTMENTS;
4200:
4201:
4199: POPULATE_ADJUSTMENTS;
4200:
4201:
4202: if g_debug_flag = 'Y' then
4203: FII_UTIL.put_line('-------------------------------------------------');
4204: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS');
4205: FII_UTIL.put_line('-------------------------------------------------');
4206: end if;
4207: POPULATE_RECEIPTS;
4200:
4201:
4202: if g_debug_flag = 'Y' then
4203: FII_UTIL.put_line('-------------------------------------------------');
4204: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS');
4205: FII_UTIL.put_line('-------------------------------------------------');
4206: end if;
4207: POPULATE_RECEIPTS;
4208:
4201:
4202: if g_debug_flag = 'Y' then
4203: FII_UTIL.put_line('-------------------------------------------------');
4204: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS');
4205: FII_UTIL.put_line('-------------------------------------------------');
4206: end if;
4207: POPULATE_RECEIPTS;
4208:
4209:
4207: POPULATE_RECEIPTS;
4208:
4209:
4210: if g_debug_flag = 'Y' then
4211: FII_UTIL.put_line('-------------------------------------------------');
4212: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
4213: FII_UTIL.put_line('-------------------------------------------------');
4214: end if;
4215: POPULATE_SCHEDULED_DISCOUNTS;
4208:
4209:
4210: if g_debug_flag = 'Y' then
4211: FII_UTIL.put_line('-------------------------------------------------');
4212: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
4213: FII_UTIL.put_line('-------------------------------------------------');
4214: end if;
4215: POPULATE_SCHEDULED_DISCOUNTS;
4216:
4209:
4210: if g_debug_flag = 'Y' then
4211: FII_UTIL.put_line('-------------------------------------------------');
4212: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
4213: FII_UTIL.put_line('-------------------------------------------------');
4214: end if;
4215: POPULATE_SCHEDULED_DISCOUNTS;
4216:
4217:
4215: POPULATE_SCHEDULED_DISCOUNTS;
4216:
4217:
4218: if g_debug_flag = 'Y' then
4219: FII_UTIL.put_line('-------------------------------------------------');
4220: FII_UTIL.put_line('Calling procedure POPULATE_RECEIVABLES_AGING');
4221: FII_UTIL.put_line('-------------------------------------------------');
4222: end if;
4223: POPULATE_RECEIVABLES_AGING;
4216:
4217:
4218: if g_debug_flag = 'Y' then
4219: FII_UTIL.put_line('-------------------------------------------------');
4220: FII_UTIL.put_line('Calling procedure POPULATE_RECEIVABLES_AGING');
4221: FII_UTIL.put_line('-------------------------------------------------');
4222: end if;
4223: POPULATE_RECEIVABLES_AGING;
4224:
4217:
4218: if g_debug_flag = 'Y' then
4219: FII_UTIL.put_line('-------------------------------------------------');
4220: FII_UTIL.put_line('Calling procedure POPULATE_RECEIVABLES_AGING');
4221: FII_UTIL.put_line('-------------------------------------------------');
4222: end if;
4223: POPULATE_RECEIVABLES_AGING;
4224:
4225:
4223: POPULATE_RECEIVABLES_AGING;
4224:
4225:
4226: if g_debug_flag = 'Y' then
4227: FII_UTIL.put_line('-------------------------------------------------');
4228: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS_AGING');
4229: FII_UTIL.put_line('-------------------------------------------------');
4230: end if;
4231: POPULATE_RECEIPTS_AGING;
4224:
4225:
4226: if g_debug_flag = 'Y' then
4227: FII_UTIL.put_line('-------------------------------------------------');
4228: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS_AGING');
4229: FII_UTIL.put_line('-------------------------------------------------');
4230: end if;
4231: POPULATE_RECEIPTS_AGING;
4232:
4225:
4226: if g_debug_flag = 'Y' then
4227: FII_UTIL.put_line('-------------------------------------------------');
4228: FII_UTIL.put_line('Calling procedure POPULATE_RECEIPTS_AGING');
4229: FII_UTIL.put_line('-------------------------------------------------');
4230: end if;
4231: POPULATE_RECEIPTS_AGING;
4232:
4233:
4231: POPULATE_RECEIPTS_AGING;
4232:
4233:
4234: if g_debug_flag = 'Y' then
4235: FII_UTIL.put_line('-------------------------------------------------');
4236: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES_AGING');
4237: FII_UTIL.put_line('-------------------------------------------------');
4238: FII_UTIL.put_line('');
4239: end if;
4232:
4233:
4234: if g_debug_flag = 'Y' then
4235: FII_UTIL.put_line('-------------------------------------------------');
4236: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES_AGING');
4237: FII_UTIL.put_line('-------------------------------------------------');
4238: FII_UTIL.put_line('');
4239: end if;
4240: POPULATE_DISPUTES_AGING;
4233:
4234: if g_debug_flag = 'Y' then
4235: FII_UTIL.put_line('-------------------------------------------------');
4236: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES_AGING');
4237: FII_UTIL.put_line('-------------------------------------------------');
4238: FII_UTIL.put_line('');
4239: end if;
4240: POPULATE_DISPUTES_AGING;
4241:
4234: if g_debug_flag = 'Y' then
4235: FII_UTIL.put_line('-------------------------------------------------');
4236: FII_UTIL.put_line('Calling procedure POPULATE_DISPUTES_AGING');
4237: FII_UTIL.put_line('-------------------------------------------------');
4238: FII_UTIL.put_line('');
4239: end if;
4240: POPULATE_DISPUTES_AGING;
4241:
4242: g_state := 'Logging program sysdate as ar_last_update_date in fii_change_log table';
4270:
4271: COMMIT;
4272:
4273: if g_debug_flag = 'Y' then
4274: FII_UTIL.put_line('return code is ' || retcode);
4275: end if;
4276:
4277: g_retcode := 0;
4278:
4282: g_retcode:= -1;
4283: retcode := g_retcode;
4284: g_exception_msg := g_retcode || ':' || g_errbuf;
4285: if g_debug_flag = 'Y' then
4286: FII_UTIL.put_line('Error occured while: ' || g_state);
4287: end if;
4288: FII_UTIL.put_line(g_exception_msg);
4289: /*
4290: dbms_output.put_line('Error occured while: ' || g_state);
4284: g_exception_msg := g_retcode || ':' || g_errbuf;
4285: if g_debug_flag = 'Y' then
4286: FII_UTIL.put_line('Error occured while: ' || g_state);
4287: end if;
4288: FII_UTIL.put_line(g_exception_msg);
4289: /*
4290: dbms_output.put_line('Error occured while: ' || g_state);
4291: dbms_output.put_line('Error Message: ' || g_exception_msg);
4292: */
4304: BEGIN
4305:
4306: g_state := 'Getting data from fii_change_log';
4307: if g_debug_flag = 'Y' then
4308: FII_UTIL.put_line(g_state);
4309: FII_UTIL.put_line('');
4310: end if;
4311:
4312: select to_date(item_value,'MM/DD/YYYY HH24:MI:SS') into G_LAST_UPDATE_DATE
4305:
4306: g_state := 'Getting data from fii_change_log';
4307: if g_debug_flag = 'Y' then
4308: FII_UTIL.put_line(g_state);
4309: FII_UTIL.put_line('');
4310: end if;
4311:
4312: select to_date(item_value,'MM/DD/YYYY HH24:MI:SS') into G_LAST_UPDATE_DATE
4313: from fii_change_log
4321: from fii_change_log
4322: where log_item = 'AR_MAX_RECEIVABLE_APPLICATION_ID';
4323:
4324: if g_debug_flag = 'Y' then
4325: FII_UTIL.put_line('G_LAST_UPDATE_DATE is ' ||
4326: to_char(G_LAST_UPDATE_DATE,'MM/DD/YYYY HH24:MI:SS'));
4327: FII_UTIL.put_line('G_MAX_PAYMENT_SCHEDULE_ID is ' ||
4328: G_MAX_PAYMENT_SCHEDULE_ID);
4329: FII_UTIL.put_line('G_MAX_RECEIVABLE_APPL_ID is ' ||
4323:
4324: if g_debug_flag = 'Y' then
4325: FII_UTIL.put_line('G_LAST_UPDATE_DATE is ' ||
4326: to_char(G_LAST_UPDATE_DATE,'MM/DD/YYYY HH24:MI:SS'));
4327: FII_UTIL.put_line('G_MAX_PAYMENT_SCHEDULE_ID is ' ||
4328: G_MAX_PAYMENT_SCHEDULE_ID);
4329: FII_UTIL.put_line('G_MAX_RECEIVABLE_APPL_ID is ' ||
4330: G_MAX_RECEIVABLE_APPL_ID);
4331: FII_UTIL.put_line('');
4325: FII_UTIL.put_line('G_LAST_UPDATE_DATE is ' ||
4326: to_char(G_LAST_UPDATE_DATE,'MM/DD/YYYY HH24:MI:SS'));
4327: FII_UTIL.put_line('G_MAX_PAYMENT_SCHEDULE_ID is ' ||
4328: G_MAX_PAYMENT_SCHEDULE_ID);
4329: FII_UTIL.put_line('G_MAX_RECEIVABLE_APPL_ID is ' ||
4330: G_MAX_RECEIVABLE_APPL_ID);
4331: FII_UTIL.put_line('');
4332: end if;
4333:
4327: FII_UTIL.put_line('G_MAX_PAYMENT_SCHEDULE_ID is ' ||
4328: G_MAX_PAYMENT_SCHEDULE_ID);
4329: FII_UTIL.put_line('G_MAX_RECEIVABLE_APPL_ID is ' ||
4330: G_MAX_RECEIVABLE_APPL_ID);
4331: FII_UTIL.put_line('');
4332: end if;
4333:
4334: g_state := 'Populating FII_AR_PAYSCH_INSERT_GT';
4335: if g_debug_flag = 'Y' then
4332: end if;
4333:
4334: g_state := 'Populating FII_AR_PAYSCH_INSERT_GT';
4335: if g_debug_flag = 'Y' then
4336: FII_UTIL.put_line(g_state);
4337: FII_UTIL.start_timer;
4338: FII_UTIL.put_line('');
4339: end if;
4340:
4333:
4334: g_state := 'Populating FII_AR_PAYSCH_INSERT_GT';
4335: if g_debug_flag = 'Y' then
4336: FII_UTIL.put_line(g_state);
4337: FII_UTIL.start_timer;
4338: FII_UTIL.put_line('');
4339: end if;
4340:
4341: -- PaySch Insert
4334: g_state := 'Populating FII_AR_PAYSCH_INSERT_GT';
4335: if g_debug_flag = 'Y' then
4336: FII_UTIL.put_line(g_state);
4337: FII_UTIL.start_timer;
4338: FII_UTIL.put_line('');
4339: end if;
4340:
4341: -- PaySch Insert
4342: insert into FII_AR_PAYSCH_INSERT_GT
4379: g_global_start_date
4380: ;
4381:
4382: if g_debug_flag = 'Y' then
4383: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_INSERT_GT');
4384: FII_UTIL.stop_timer;
4385: FII_UTIL.print_timer('Duration');
4386: FII_UTIL.put_line('');
4387: end if;
4380: ;
4381:
4382: if g_debug_flag = 'Y' then
4383: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_INSERT_GT');
4384: FII_UTIL.stop_timer;
4385: FII_UTIL.print_timer('Duration');
4386: FII_UTIL.put_line('');
4387: end if;
4388:
4381:
4382: if g_debug_flag = 'Y' then
4383: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_INSERT_GT');
4384: FII_UTIL.stop_timer;
4385: FII_UTIL.print_timer('Duration');
4386: FII_UTIL.put_line('');
4387: end if;
4388:
4389: g_state := 'Populating FII_AR_DISP_UPDATE_GT';
4382: if g_debug_flag = 'Y' then
4383: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_INSERT_GT');
4384: FII_UTIL.stop_timer;
4385: FII_UTIL.print_timer('Duration');
4386: FII_UTIL.put_line('');
4387: end if;
4388:
4389: g_state := 'Populating FII_AR_DISP_UPDATE_GT';
4390: if g_debug_flag = 'Y' then
4387: end if;
4388:
4389: g_state := 'Populating FII_AR_DISP_UPDATE_GT';
4390: if g_debug_flag = 'Y' then
4391: FII_UTIL.put_line(g_state);
4392: FII_UTIL.start_timer;
4393: FII_UTIL.put_line('');
4394: end if;
4395:
4388:
4389: g_state := 'Populating FII_AR_DISP_UPDATE_GT';
4390: if g_debug_flag = 'Y' then
4391: FII_UTIL.put_line(g_state);
4392: FII_UTIL.start_timer;
4393: FII_UTIL.put_line('');
4394: end if;
4395:
4396: -- PaySch Update 1
4389: g_state := 'Populating FII_AR_DISP_UPDATE_GT';
4390: if g_debug_flag = 'Y' then
4391: FII_UTIL.put_line(g_state);
4392: FII_UTIL.start_timer;
4393: FII_UTIL.put_line('');
4394: end if;
4395:
4396: -- PaySch Update 1
4397: insert into FII_AR_DISP_UPDATE_GT
4420: )
4421: ;
4422:
4423: if g_debug_flag = 'Y' then
4424: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISP_UPDATE_GT');
4425: FII_UTIL.stop_timer;
4426: FII_UTIL.print_timer('Duration');
4427: FII_UTIL.put_line('');
4428: end if;
4421: ;
4422:
4423: if g_debug_flag = 'Y' then
4424: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISP_UPDATE_GT');
4425: FII_UTIL.stop_timer;
4426: FII_UTIL.print_timer('Duration');
4427: FII_UTIL.put_line('');
4428: end if;
4429:
4422:
4423: if g_debug_flag = 'Y' then
4424: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISP_UPDATE_GT');
4425: FII_UTIL.stop_timer;
4426: FII_UTIL.print_timer('Duration');
4427: FII_UTIL.put_line('');
4428: end if;
4429:
4430: g_state := 'Populating FII_AR_ADJ_UPDATE_GT';
4423: if g_debug_flag = 'Y' then
4424: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISP_UPDATE_GT');
4425: FII_UTIL.stop_timer;
4426: FII_UTIL.print_timer('Duration');
4427: FII_UTIL.put_line('');
4428: end if;
4429:
4430: g_state := 'Populating FII_AR_ADJ_UPDATE_GT';
4431: if g_debug_flag = 'Y' then
4428: end if;
4429:
4430: g_state := 'Populating FII_AR_ADJ_UPDATE_GT';
4431: if g_debug_flag = 'Y' then
4432: FII_UTIL.put_line(g_state);
4433: FII_UTIL.start_timer;
4434: FII_UTIL.put_line('');
4435: end if;
4436:
4429:
4430: g_state := 'Populating FII_AR_ADJ_UPDATE_GT';
4431: if g_debug_flag = 'Y' then
4432: FII_UTIL.put_line(g_state);
4433: FII_UTIL.start_timer;
4434: FII_UTIL.put_line('');
4435: end if;
4436:
4437: -- PaySch Update 2
4430: g_state := 'Populating FII_AR_ADJ_UPDATE_GT';
4431: if g_debug_flag = 'Y' then
4432: FII_UTIL.put_line(g_state);
4433: FII_UTIL.start_timer;
4434: FII_UTIL.put_line('');
4435: end if;
4436:
4437: -- PaySch Update 2
4438: insert into FII_AR_ADJ_UPDATE_GT
4472: and last_update_date <= g_sysdate_time
4473: ;
4474:
4475: if g_debug_flag = 'Y' then
4476: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJ_UPDATE_GT');
4477: FII_UTIL.stop_timer;
4478: FII_UTIL.print_timer('Duration');
4479: FII_UTIL.put_line('');
4480: end if;
4473: ;
4474:
4475: if g_debug_flag = 'Y' then
4476: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJ_UPDATE_GT');
4477: FII_UTIL.stop_timer;
4478: FII_UTIL.print_timer('Duration');
4479: FII_UTIL.put_line('');
4480: end if;
4481:
4474:
4475: if g_debug_flag = 'Y' then
4476: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJ_UPDATE_GT');
4477: FII_UTIL.stop_timer;
4478: FII_UTIL.print_timer('Duration');
4479: FII_UTIL.put_line('');
4480: end if;
4481:
4482: g_state := 'Populating FII_AR_RECAPP_INSERT_GT';
4475: if g_debug_flag = 'Y' then
4476: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJ_UPDATE_GT');
4477: FII_UTIL.stop_timer;
4478: FII_UTIL.print_timer('Duration');
4479: FII_UTIL.put_line('');
4480: end if;
4481:
4482: g_state := 'Populating FII_AR_RECAPP_INSERT_GT';
4483: if g_debug_flag = 'Y' then
4480: end if;
4481:
4482: g_state := 'Populating FII_AR_RECAPP_INSERT_GT';
4483: if g_debug_flag = 'Y' then
4484: FII_UTIL.put_line(g_state);
4485: FII_UTIL.start_timer;
4486: FII_UTIL.put_line('');
4487: end if;
4488:
4481:
4482: g_state := 'Populating FII_AR_RECAPP_INSERT_GT';
4483: if g_debug_flag = 'Y' then
4484: FII_UTIL.put_line(g_state);
4485: FII_UTIL.start_timer;
4486: FII_UTIL.put_line('');
4487: end if;
4488:
4489: -- PaySch Update 3
4482: g_state := 'Populating FII_AR_RECAPP_INSERT_GT';
4483: if g_debug_flag = 'Y' then
4484: FII_UTIL.put_line(g_state);
4485: FII_UTIL.start_timer;
4486: FII_UTIL.put_line('');
4487: end if;
4488:
4489: -- PaySch Update 3
4490: insert into FII_AR_RECAPP_INSERT_GT
4572: and application_type = 'CM')
4573: ;
4574:
4575: if g_debug_flag = 'Y' then
4576: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_INSERT_GT');
4577: FII_UTIL.stop_timer;
4578: FII_UTIL.print_timer('Duration');
4579: FII_UTIL.put_line('');
4580: end if;
4573: ;
4574:
4575: if g_debug_flag = 'Y' then
4576: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_INSERT_GT');
4577: FII_UTIL.stop_timer;
4578: FII_UTIL.print_timer('Duration');
4579: FII_UTIL.put_line('');
4580: end if;
4581:
4574:
4575: if g_debug_flag = 'Y' then
4576: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_INSERT_GT');
4577: FII_UTIL.stop_timer;
4578: FII_UTIL.print_timer('Duration');
4579: FII_UTIL.put_line('');
4580: end if;
4581:
4582: g_state := 'Populating FII_AR_TRANS_DELETE_GT';
4575: if g_debug_flag = 'Y' then
4576: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_INSERT_GT');
4577: FII_UTIL.stop_timer;
4578: FII_UTIL.print_timer('Duration');
4579: FII_UTIL.put_line('');
4580: end if;
4581:
4582: g_state := 'Populating FII_AR_TRANS_DELETE_GT';
4583: if g_debug_flag = 'Y' then
4580: end if;
4581:
4582: g_state := 'Populating FII_AR_TRANS_DELETE_GT';
4583: if g_debug_flag = 'Y' then
4584: FII_UTIL.put_line(g_state);
4585: FII_UTIL.start_timer;
4586: FII_UTIL.put_line('');
4587: end if;
4588:
4581:
4582: g_state := 'Populating FII_AR_TRANS_DELETE_GT';
4583: if g_debug_flag = 'Y' then
4584: FII_UTIL.put_line(g_state);
4585: FII_UTIL.start_timer;
4586: FII_UTIL.put_line('');
4587: end if;
4588:
4589: -- PaySch Delete 1
4582: g_state := 'Populating FII_AR_TRANS_DELETE_GT';
4583: if g_debug_flag = 'Y' then
4584: FII_UTIL.put_line(g_state);
4585: FII_UTIL.start_timer;
4586: FII_UTIL.put_line('');
4587: end if;
4588:
4589: -- PaySch Delete 1
4590: insert into FII_AR_TRANS_DELETE_GT
4598: and last_update_date <= g_sysdate_time
4599: ;
4600:
4601: if g_debug_flag = 'Y' then
4602: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANS_DELETE_GT');
4603: FII_UTIL.stop_timer;
4604: FII_UTIL.print_timer('Duration');
4605: FII_UTIL.put_line('');
4606: end if;
4599: ;
4600:
4601: if g_debug_flag = 'Y' then
4602: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANS_DELETE_GT');
4603: FII_UTIL.stop_timer;
4604: FII_UTIL.print_timer('Duration');
4605: FII_UTIL.put_line('');
4606: end if;
4607:
4600:
4601: if g_debug_flag = 'Y' then
4602: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANS_DELETE_GT');
4603: FII_UTIL.stop_timer;
4604: FII_UTIL.print_timer('Duration');
4605: FII_UTIL.put_line('');
4606: end if;
4607:
4608: -- PaySch Delete 2
4601: if g_debug_flag = 'Y' then
4602: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANS_DELETE_GT');
4603: FII_UTIL.stop_timer;
4604: FII_UTIL.print_timer('Duration');
4605: FII_UTIL.put_line('');
4606: end if;
4607:
4608: -- PaySch Delete 2
4609: /*
4614: */
4615:
4616: g_state := 'Populating FII_AR_RECAPP_DELETE_GT';
4617: if g_debug_flag = 'Y' then
4618: FII_UTIL.put_line(g_state);
4619: FII_UTIL.start_timer;
4620: FII_UTIL.put_line('');
4621: end if;
4622:
4615:
4616: g_state := 'Populating FII_AR_RECAPP_DELETE_GT';
4617: if g_debug_flag = 'Y' then
4618: FII_UTIL.put_line(g_state);
4619: FII_UTIL.start_timer;
4620: FII_UTIL.put_line('');
4621: end if;
4622:
4623: -- PaySch Delete 3
4616: g_state := 'Populating FII_AR_RECAPP_DELETE_GT';
4617: if g_debug_flag = 'Y' then
4618: FII_UTIL.put_line(g_state);
4619: FII_UTIL.start_timer;
4620: FII_UTIL.put_line('');
4621: end if;
4622:
4623: -- PaySch Delete 3
4624: insert into FII_AR_RECAPP_DELETE_GT
4635: )
4636: ;
4637:
4638: if g_debug_flag = 'Y' then
4639: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_DELETE_GT');
4640: FII_UTIL.stop_timer;
4641: FII_UTIL.print_timer('Duration');
4642: FII_UTIL.put_line('');
4643: end if;
4636: ;
4637:
4638: if g_debug_flag = 'Y' then
4639: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_DELETE_GT');
4640: FII_UTIL.stop_timer;
4641: FII_UTIL.print_timer('Duration');
4642: FII_UTIL.put_line('');
4643: end if;
4644:
4637:
4638: if g_debug_flag = 'Y' then
4639: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_DELETE_GT');
4640: FII_UTIL.stop_timer;
4641: FII_UTIL.print_timer('Duration');
4642: FII_UTIL.put_line('');
4643: end if;
4644:
4645: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT';
4638: if g_debug_flag = 'Y' then
4639: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_DELETE_GT');
4640: FII_UTIL.stop_timer;
4641: FII_UTIL.print_timer('Duration');
4642: FII_UTIL.put_line('');
4643: end if;
4644:
4645: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT';
4646: if g_debug_flag = 'Y' then
4643: end if;
4644:
4645: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT';
4646: if g_debug_flag = 'Y' then
4647: FII_UTIL.put_line(g_state);
4648: FII_UTIL.start_timer;
4649: FII_UTIL.put_line('');
4650: end if;
4651:
4644:
4645: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT';
4646: if g_debug_flag = 'Y' then
4647: FII_UTIL.put_line(g_state);
4648: FII_UTIL.start_timer;
4649: FII_UTIL.put_line('');
4650: end if;
4651:
4652: insert into FII_AR_PAYSCH_MERGE_GT
4645: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT';
4646: if g_debug_flag = 'Y' then
4647: FII_UTIL.put_line(g_state);
4648: FII_UTIL.start_timer;
4649: FII_UTIL.put_line('');
4650: end if;
4651:
4652: insert into FII_AR_PAYSCH_MERGE_GT
4653: (
4727: and CLASS IN ('INV', 'DM', 'CB', 'CM', 'DEP', 'BR', 'PMT');
4728: --and decode(g_collection_criteria, 'GL', gl_date, trx_date) >= g_global_start_date;
4729:
4730: if g_debug_flag = 'Y' then
4731: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_MERGE_GT');
4732: FII_UTIL.stop_timer;
4733: FII_UTIL.print_timer('Duration');
4734: FII_UTIL.put_line('');
4735: end if;
4728: --and decode(g_collection_criteria, 'GL', gl_date, trx_date) >= g_global_start_date;
4729:
4730: if g_debug_flag = 'Y' then
4731: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_MERGE_GT');
4732: FII_UTIL.stop_timer;
4733: FII_UTIL.print_timer('Duration');
4734: FII_UTIL.put_line('');
4735: end if;
4736:
4729:
4730: if g_debug_flag = 'Y' then
4731: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_MERGE_GT');
4732: FII_UTIL.stop_timer;
4733: FII_UTIL.print_timer('Duration');
4734: FII_UTIL.put_line('');
4735: end if;
4736:
4737: g_state := 'Populating FII_AR_PAYSCH_DELETE_GT';
4730: if g_debug_flag = 'Y' then
4731: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_MERGE_GT');
4732: FII_UTIL.stop_timer;
4733: FII_UTIL.print_timer('Duration');
4734: FII_UTIL.put_line('');
4735: end if;
4736:
4737: g_state := 'Populating FII_AR_PAYSCH_DELETE_GT';
4738: if g_debug_flag = 'Y' then
4735: end if;
4736:
4737: g_state := 'Populating FII_AR_PAYSCH_DELETE_GT';
4738: if g_debug_flag = 'Y' then
4739: FII_UTIL.put_line(g_state);
4740: FII_UTIL.start_timer;
4741: FII_UTIL.put_line('');
4742: end if;
4743:
4736:
4737: g_state := 'Populating FII_AR_PAYSCH_DELETE_GT';
4738: if g_debug_flag = 'Y' then
4739: FII_UTIL.put_line(g_state);
4740: FII_UTIL.start_timer;
4741: FII_UTIL.put_line('');
4742: end if;
4743:
4744: insert into FII_AR_PAYSCH_DELETE_GT
4737: g_state := 'Populating FII_AR_PAYSCH_DELETE_GT';
4738: if g_debug_flag = 'Y' then
4739: FII_UTIL.put_line(g_state);
4740: FII_UTIL.start_timer;
4741: FII_UTIL.put_line('');
4742: end if;
4743:
4744: insert into FII_AR_PAYSCH_DELETE_GT
4745: (
4762: from FII_AR_RECAPP_DELETE_GT
4763: ;
4764:
4765: if g_debug_flag = 'Y' then
4766: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_DELETE_GT');
4767: FII_UTIL.stop_timer;
4768: FII_UTIL.print_timer('Duration');
4769: FII_UTIL.put_line('');
4770: end if;
4763: ;
4764:
4765: if g_debug_flag = 'Y' then
4766: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_DELETE_GT');
4767: FII_UTIL.stop_timer;
4768: FII_UTIL.print_timer('Duration');
4769: FII_UTIL.put_line('');
4770: end if;
4771:
4764:
4765: if g_debug_flag = 'Y' then
4766: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_DELETE_GT');
4767: FII_UTIL.stop_timer;
4768: FII_UTIL.print_timer('Duration');
4769: FII_UTIL.put_line('');
4770: end if;
4771:
4772: EXCEPTION
4765: if g_debug_flag = 'Y' then
4766: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_PAYSCH_DELETE_GT');
4767: FII_UTIL.stop_timer;
4768: FII_UTIL.print_timer('Duration');
4769: FII_UTIL.put_line('');
4770: end if;
4771:
4772: EXCEPTION
4773:
4777: ---------------------------------
4778: Error in Procedure: Inc_Prepare
4779: Message: '||sqlerrm;
4780: g_exception_msg := g_retcode || ':' || g_errbuf;
4781: FII_UTIL.put_line('Error occured while ' || g_state);
4782: FII_UTIL.put_line(g_exception_msg);
4783: RAISE;
4784:
4785: END Inc_Prepare;
4778: Error in Procedure: Inc_Prepare
4779: Message: '||sqlerrm;
4780: g_exception_msg := g_retcode || ':' || g_errbuf;
4781: FII_UTIL.put_line('Error occured while ' || g_state);
4782: FII_UTIL.put_line(g_exception_msg);
4783: RAISE;
4784:
4785: END Inc_Prepare;
4786:
4793:
4794: g_state := 'Loading data into rates table FII_AR_CURR_RATES_T';
4795:
4796: if g_debug_flag = 'Y' then
4797: fii_util.put_line(' ');
4798: fii_util.put_line(g_state);
4799: fii_util.start_timer;
4800: fii_util.put_line('');
4801: end if;
4794: g_state := 'Loading data into rates table FII_AR_CURR_RATES_T';
4795:
4796: if g_debug_flag = 'Y' then
4797: fii_util.put_line(' ');
4798: fii_util.put_line(g_state);
4799: fii_util.start_timer;
4800: fii_util.put_line('');
4801: end if;
4802:
4795:
4796: if g_debug_flag = 'Y' then
4797: fii_util.put_line(' ');
4798: fii_util.put_line(g_state);
4799: fii_util.start_timer;
4800: fii_util.put_line('');
4801: end if;
4802:
4803: INSERT /*+ append */ INTO FII_AR_CURR_RATES_T
4796: if g_debug_flag = 'Y' then
4797: fii_util.put_line(' ');
4798: fii_util.put_line(g_state);
4799: fii_util.start_timer;
4800: fii_util.put_line('');
4801: end if;
4802:
4803: INSERT /*+ append */ INTO FII_AR_CURR_RATES_T
4804: (SELECT sob.currency_code fc_code,
4839: conversion_date);
4840:
4841:
4842: if g_debug_flag = 'Y' then
4843: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
4844: fii_util.stop_timer;
4845: fii_util.print_timer('Duration');
4846: end if;
4847:
4840:
4841:
4842: if g_debug_flag = 'Y' then
4843: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
4844: fii_util.stop_timer;
4845: fii_util.print_timer('Duration');
4846: end if;
4847:
4848: COMMIT;
4841:
4842: if g_debug_flag = 'Y' then
4843: fii_util.put_line('Processed '||SQL%ROWCOUNT||' rows');
4844: fii_util.stop_timer;
4845: fii_util.print_timer('Duration');
4846: end if;
4847:
4848: COMMIT;
4849: /*
4868: WHEN OTHERS THEN
4869: g_errbuf:=sqlerrm;
4870: g_retcode:= -1;
4871: g_exception_msg := g_retcode || ':' || g_errbuf;
4872: FII_UTIL.put_line('Error occured while ' || g_state);
4873: FII_UTIL.put_line(g_exception_msg);
4874: RAISE;
4875:
4876: END Inc_RATES;
4869: g_errbuf:=sqlerrm;
4870: g_retcode:= -1;
4871: g_exception_msg := g_retcode || ':' || g_errbuf;
4872: FII_UTIL.put_line('Error occured while ' || g_state);
4873: FII_UTIL.put_line(g_exception_msg);
4874: RAISE;
4875:
4876: END Inc_RATES;
4877:
4892: */
4893:
4894: g_state := 'Deleting records from FII_AR_PMT_SCHEDULES_F';
4895: if g_debug_flag = 'Y' then
4896: FII_UTIL.put_line(g_state);
4897: FII_UTIL.start_timer;
4898: FII_UTIL.put_line('');
4899: end if;
4900:
4893:
4894: g_state := 'Deleting records from FII_AR_PMT_SCHEDULES_F';
4895: if g_debug_flag = 'Y' then
4896: FII_UTIL.put_line(g_state);
4897: FII_UTIL.start_timer;
4898: FII_UTIL.put_line('');
4899: end if;
4900:
4901: delete from fii_ar_pmt_schedules_f
4894: g_state := 'Deleting records from FII_AR_PMT_SCHEDULES_F';
4895: if g_debug_flag = 'Y' then
4896: FII_UTIL.put_line(g_state);
4897: FII_UTIL.start_timer;
4898: FII_UTIL.put_line('');
4899: end if;
4900:
4901: delete from fii_ar_pmt_schedules_f
4902: where PAYMENT_SCHEDULE_ID in (
4905: from FII_AR_PAYSCH_DELETE_GT
4906: );
4907:
4908: if g_debug_flag = 'Y' then
4909: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_PMT_SCHEDULES_F');
4910: FII_UTIL.stop_timer;
4911: FII_UTIL.print_timer('Duration');
4912: FII_UTIL.put_line('');
4913: end if;
4906: );
4907:
4908: if g_debug_flag = 'Y' then
4909: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_PMT_SCHEDULES_F');
4910: FII_UTIL.stop_timer;
4911: FII_UTIL.print_timer('Duration');
4912: FII_UTIL.put_line('');
4913: end if;
4914:
4907:
4908: if g_debug_flag = 'Y' then
4909: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_PMT_SCHEDULES_F');
4910: FII_UTIL.stop_timer;
4911: FII_UTIL.print_timer('Duration');
4912: FII_UTIL.put_line('');
4913: end if;
4914:
4915: commit;
4908: if g_debug_flag = 'Y' then
4909: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_PMT_SCHEDULES_F');
4910: FII_UTIL.stop_timer;
4911: FII_UTIL.print_timer('Duration');
4912: FII_UTIL.put_line('');
4913: end if;
4914:
4915: commit;
4916:
4915: commit;
4916:
4917: g_state := 'Merging into FII_AR_PMT_SCHEDULES_F';
4918: if g_debug_flag = 'Y' then
4919: FII_UTIL.put_line(g_state);
4920: FII_UTIL.start_timer;
4921: FII_UTIL.put_line('');
4922: end if;
4923:
4916:
4917: g_state := 'Merging into FII_AR_PMT_SCHEDULES_F';
4918: if g_debug_flag = 'Y' then
4919: FII_UTIL.put_line(g_state);
4920: FII_UTIL.start_timer;
4921: FII_UTIL.put_line('');
4922: end if;
4923:
4924: merge into fii_ar_pmt_schedules_f old using (
4917: g_state := 'Merging into FII_AR_PMT_SCHEDULES_F';
4918: if g_debug_flag = 'Y' then
4919: FII_UTIL.put_line(g_state);
4920: FII_UTIL.start_timer;
4921: FII_UTIL.put_line('');
4922: end if;
4923:
4924: merge into fii_ar_pmt_schedules_f old using (
4925: -- POPULATE_PAYMENT_SCHEDULES
5223: dlt.LAST_UPDATE_LOGIN
5224: );
5225:
5226: if g_debug_flag = 'Y' then
5227: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
5228: FII_UTIL.stop_timer;
5229: FII_UTIL.print_timer('Duration');
5230: FII_UTIL.put_line('');
5231: end if;
5224: );
5225:
5226: if g_debug_flag = 'Y' then
5227: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
5228: FII_UTIL.stop_timer;
5229: FII_UTIL.print_timer('Duration');
5230: FII_UTIL.put_line('');
5231: end if;
5232:
5225:
5226: if g_debug_flag = 'Y' then
5227: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
5228: FII_UTIL.stop_timer;
5229: FII_UTIL.print_timer('Duration');
5230: FII_UTIL.put_line('');
5231: end if;
5232:
5233: g_state := 'Analyzing FII_AR_PMT_SCHEDULES_F table';
5226: if g_debug_flag = 'Y' then
5227: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_PMT_SCHEDULES_F');
5228: FII_UTIL.stop_timer;
5229: FII_UTIL.print_timer('Duration');
5230: FII_UTIL.put_line('');
5231: end if;
5232:
5233: g_state := 'Analyzing FII_AR_PMT_SCHEDULES_F table';
5234: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_PMT_SCHEDULES_F');
5266: WHEN OTHERS THEN
5267: g_errbuf:=sqlerrm;
5268: g_retcode:= -1;
5269: g_exception_msg := g_retcode || ':' || g_errbuf;
5270: FII_UTIL.put_line('Error occured while ' || g_state);
5271: FII_UTIL.put_line(g_exception_msg);
5272: RAISE;
5273:
5274: END Inc_PAYMENT_SCHEDULES;
5267: g_errbuf:=sqlerrm;
5268: g_retcode:= -1;
5269: g_exception_msg := g_retcode || ':' || g_errbuf;
5270: FII_UTIL.put_line('Error occured while ' || g_state);
5271: FII_UTIL.put_line(g_exception_msg);
5272: RAISE;
5273:
5274: END Inc_PAYMENT_SCHEDULES;
5275:
5287: */
5288:
5289: g_state := 'Deleting FII_AR_DISPUTE_HISTORY_F';
5290: if g_debug_flag = 'Y' then
5291: FII_UTIL.put_line(g_state);
5292: FII_UTIL.start_timer;
5293: FII_UTIL.put_line('');
5294: end if;
5295:
5288:
5289: g_state := 'Deleting FII_AR_DISPUTE_HISTORY_F';
5290: if g_debug_flag = 'Y' then
5291: FII_UTIL.put_line(g_state);
5292: FII_UTIL.start_timer;
5293: FII_UTIL.put_line('');
5294: end if;
5295:
5296: delete from fii_ar_dispute_history_f
5289: g_state := 'Deleting FII_AR_DISPUTE_HISTORY_F';
5290: if g_debug_flag = 'Y' then
5291: FII_UTIL.put_line(g_state);
5292: FII_UTIL.start_timer;
5293: FII_UTIL.put_line('');
5294: end if;
5295:
5296: delete from fii_ar_dispute_history_f
5297: where PAYMENT_SCHEDULE_ID in (
5300: from FII_AR_PAYSCH_DELETE_GT
5301: );
5302:
5303: if g_debug_flag = 'Y' then
5304: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_DISPUTE_HISTORY_F');
5305: FII_UTIL.stop_timer;
5306: FII_UTIL.print_timer('Duration');
5307: FII_UTIL.put_line('');
5308: end if;
5301: );
5302:
5303: if g_debug_flag = 'Y' then
5304: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_DISPUTE_HISTORY_F');
5305: FII_UTIL.stop_timer;
5306: FII_UTIL.print_timer('Duration');
5307: FII_UTIL.put_line('');
5308: end if;
5309:
5302:
5303: if g_debug_flag = 'Y' then
5304: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_DISPUTE_HISTORY_F');
5305: FII_UTIL.stop_timer;
5306: FII_UTIL.print_timer('Duration');
5307: FII_UTIL.put_line('');
5308: end if;
5309:
5310: commit;
5303: if g_debug_flag = 'Y' then
5304: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_DISPUTE_HISTORY_F');
5305: FII_UTIL.stop_timer;
5306: FII_UTIL.print_timer('Duration');
5307: FII_UTIL.put_line('');
5308: end if;
5309:
5310: commit;
5311:
5310: commit;
5311:
5312: g_state := 'Merging into FII_AR_DISPUTE_HISTORY_F';
5313: if g_debug_flag = 'Y' then
5314: FII_UTIL.put_line(g_state);
5315: FII_UTIL.start_timer;
5316: FII_UTIL.put_line('');
5317: end if;
5318:
5311:
5312: g_state := 'Merging into FII_AR_DISPUTE_HISTORY_F';
5313: if g_debug_flag = 'Y' then
5314: FII_UTIL.put_line(g_state);
5315: FII_UTIL.start_timer;
5316: FII_UTIL.put_line('');
5317: end if;
5318:
5319: merge into fii_ar_dispute_history_f old using (
5312: g_state := 'Merging into FII_AR_DISPUTE_HISTORY_F';
5313: if g_debug_flag = 'Y' then
5314: FII_UTIL.put_line(g_state);
5315: FII_UTIL.start_timer;
5316: FII_UTIL.put_line('');
5317: end if;
5318:
5319: merge into fii_ar_dispute_history_f old using (
5320: -- POPULATE_DISPUTES
5451: dlt.LAST_UPDATE_LOGIN
5452: );
5453:
5454: if g_debug_flag = 'Y' then
5455: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
5456: FII_UTIL.stop_timer;
5457: FII_UTIL.print_timer('Duration');
5458: FII_UTIL.put_line('');
5459: end if;
5452: );
5453:
5454: if g_debug_flag = 'Y' then
5455: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
5456: FII_UTIL.stop_timer;
5457: FII_UTIL.print_timer('Duration');
5458: FII_UTIL.put_line('');
5459: end if;
5460:
5453:
5454: if g_debug_flag = 'Y' then
5455: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
5456: FII_UTIL.stop_timer;
5457: FII_UTIL.print_timer('Duration');
5458: FII_UTIL.put_line('');
5459: end if;
5460:
5461: g_state := 'Analyzing FII_AR_DISPUTE_HISTORY_F table';
5454: if g_debug_flag = 'Y' then
5455: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_DISPUTE_HISTORY_F');
5456: FII_UTIL.stop_timer;
5457: FII_UTIL.print_timer('Duration');
5458: FII_UTIL.put_line('');
5459: end if;
5460:
5461: g_state := 'Analyzing FII_AR_DISPUTE_HISTORY_F table';
5462: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_DISPUTE_HISTORY_F');
5465: WHEN OTHERS THEN
5466: g_errbuf:=sqlerrm;
5467: g_retcode:= -1;
5468: g_exception_msg := g_retcode || ':' || g_errbuf;
5469: FII_UTIL.put_line('Error occured while ' || g_state);
5470: FII_UTIL.put_line(g_exception_msg);
5471: RAISE;
5472:
5473: END Inc_DISPUTES;
5466: g_errbuf:=sqlerrm;
5467: g_retcode:= -1;
5468: g_exception_msg := g_retcode || ':' || g_errbuf;
5469: FII_UTIL.put_line('Error occured while ' || g_state);
5470: FII_UTIL.put_line(g_exception_msg);
5471: RAISE;
5472:
5473: END Inc_DISPUTES;
5474:
5489: */
5490:
5491: g_state := 'Deleting FII_AR_TRANSACTIONS_F';
5492: if g_debug_flag = 'Y' then
5493: FII_UTIL.put_line(g_state);
5494: FII_UTIL.start_timer;
5495: FII_UTIL.put_line('');
5496: end if;
5497:
5490:
5491: g_state := 'Deleting FII_AR_TRANSACTIONS_F';
5492: if g_debug_flag = 'Y' then
5493: FII_UTIL.put_line(g_state);
5494: FII_UTIL.start_timer;
5495: FII_UTIL.put_line('');
5496: end if;
5497:
5498: delete from fii_ar_transactions_f
5491: g_state := 'Deleting FII_AR_TRANSACTIONS_F';
5492: if g_debug_flag = 'Y' then
5493: FII_UTIL.put_line(g_state);
5494: FII_UTIL.start_timer;
5495: FII_UTIL.put_line('');
5496: end if;
5497:
5498: delete from fii_ar_transactions_f
5499: where CUSTOMER_TRX_ID in (
5502: from FII_AR_TRANS_DELETE_GT
5503: );
5504:
5505: if g_debug_flag = 'Y' then
5506: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_TRANSACTIONS_F');
5507: FII_UTIL.stop_timer;
5508: FII_UTIL.print_timer('Duration');
5509: FII_UTIL.put_line('');
5510: end if;
5503: );
5504:
5505: if g_debug_flag = 'Y' then
5506: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_TRANSACTIONS_F');
5507: FII_UTIL.stop_timer;
5508: FII_UTIL.print_timer('Duration');
5509: FII_UTIL.put_line('');
5510: end if;
5511:
5504:
5505: if g_debug_flag = 'Y' then
5506: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_TRANSACTIONS_F');
5507: FII_UTIL.stop_timer;
5508: FII_UTIL.print_timer('Duration');
5509: FII_UTIL.put_line('');
5510: end if;
5511:
5512: commit;
5505: if g_debug_flag = 'Y' then
5506: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_TRANSACTIONS_F');
5507: FII_UTIL.stop_timer;
5508: FII_UTIL.print_timer('Duration');
5509: FII_UTIL.put_line('');
5510: end if;
5511:
5512: commit;
5513:
5512: commit;
5513:
5514: g_state := 'Merging into FII_AR_TRANSACTIONS_F';
5515: if g_debug_flag = 'Y' then
5516: FII_UTIL.put_line(g_state);
5517: FII_UTIL.start_timer;
5518: FII_UTIL.put_line('');
5519: end if;
5520:
5513:
5514: g_state := 'Merging into FII_AR_TRANSACTIONS_F';
5515: if g_debug_flag = 'Y' then
5516: FII_UTIL.put_line(g_state);
5517: FII_UTIL.start_timer;
5518: FII_UTIL.put_line('');
5519: end if;
5520:
5521: merge into fii_ar_transactions_f old using (
5514: g_state := 'Merging into FII_AR_TRANSACTIONS_F';
5515: if g_debug_flag = 'Y' then
5516: FII_UTIL.put_line(g_state);
5517: FII_UTIL.start_timer;
5518: FII_UTIL.put_line('');
5519: end if;
5520:
5521: merge into fii_ar_transactions_f old using (
5522: -- POPULATE_TRANSACTIONS
5816: dlt.LAST_UPDATE_LOGIN
5817: );
5818:
5819: if g_debug_flag = 'Y' then
5820: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
5821: FII_UTIL.stop_timer;
5822: FII_UTIL.print_timer('Duration');
5823: FII_UTIL.put_line('');
5824: end if;
5817: );
5818:
5819: if g_debug_flag = 'Y' then
5820: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
5821: FII_UTIL.stop_timer;
5822: FII_UTIL.print_timer('Duration');
5823: FII_UTIL.put_line('');
5824: end if;
5825:
5818:
5819: if g_debug_flag = 'Y' then
5820: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
5821: FII_UTIL.stop_timer;
5822: FII_UTIL.print_timer('Duration');
5823: FII_UTIL.put_line('');
5824: end if;
5825:
5826: g_state := 'Analyzing FII_AR_TRANSACTIONS_F table';
5819: if g_debug_flag = 'Y' then
5820: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_TRANSACTIONS_F');
5821: FII_UTIL.stop_timer;
5822: FII_UTIL.print_timer('Duration');
5823: FII_UTIL.put_line('');
5824: end if;
5825:
5826: g_state := 'Analyzing FII_AR_TRANSACTIONS_F table';
5827: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_TRANSACTIONS_F');
5830: WHEN OTHERS THEN
5831: g_errbuf:=sqlerrm;
5832: g_retcode:= -1;
5833: g_exception_msg := g_retcode || ':' || g_errbuf;
5834: FII_UTIL.put_line('Error occured while ' || g_state);
5835: FII_UTIL.put_line(g_exception_msg);
5836: RAISE;
5837:
5838: END Inc_TRANSACTIONS;
5831: g_errbuf:=sqlerrm;
5832: g_retcode:= -1;
5833: g_exception_msg := g_retcode || ':' || g_errbuf;
5834: FII_UTIL.put_line('Error occured while ' || g_state);
5835: FII_UTIL.put_line(g_exception_msg);
5836: RAISE;
5837:
5838: END Inc_TRANSACTIONS;
5839:
5852: */
5853:
5854: g_state := 'Merging into FII_AR_ADJUSTMENTS_F';
5855: if g_debug_flag = 'Y' then
5856: FII_UTIL.put_line(g_state);
5857: FII_UTIL.start_timer;
5858: FII_UTIL.put_line('');
5859: end if;
5860:
5853:
5854: g_state := 'Merging into FII_AR_ADJUSTMENTS_F';
5855: if g_debug_flag = 'Y' then
5856: FII_UTIL.put_line(g_state);
5857: FII_UTIL.start_timer;
5858: FII_UTIL.put_line('');
5859: end if;
5860:
5861: merge into fii_ar_adjustments_f old using (
5854: g_state := 'Merging into FII_AR_ADJUSTMENTS_F';
5855: if g_debug_flag = 'Y' then
5856: FII_UTIL.put_line(g_state);
5857: FII_UTIL.start_timer;
5858: FII_UTIL.put_line('');
5859: end if;
5860:
5861: merge into fii_ar_adjustments_f old using (
5862: /* insert into fii_ar_adjustments_f
6039: );
6040:
6041:
6042: if g_debug_flag = 'Y' then
6043: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
6044: FII_UTIL.stop_timer;
6045: FII_UTIL.print_timer('Duration');
6046: FII_UTIL.put_line('');
6047: end if;
6040:
6041:
6042: if g_debug_flag = 'Y' then
6043: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
6044: FII_UTIL.stop_timer;
6045: FII_UTIL.print_timer('Duration');
6046: FII_UTIL.put_line('');
6047: end if;
6048:
6041:
6042: if g_debug_flag = 'Y' then
6043: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
6044: FII_UTIL.stop_timer;
6045: FII_UTIL.print_timer('Duration');
6046: FII_UTIL.put_line('');
6047: end if;
6048:
6049: g_state := 'Analyzing FII_AR_ADJUSTMENTS_F table';
6042: if g_debug_flag = 'Y' then
6043: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_ADJUSTMENTS_F');
6044: FII_UTIL.stop_timer;
6045: FII_UTIL.print_timer('Duration');
6046: FII_UTIL.put_line('');
6047: end if;
6048:
6049: g_state := 'Analyzing FII_AR_ADJUSTMENTS_F table';
6050: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_ADJUSTMENTS_F');
6053: WHEN OTHERS THEN
6054: g_errbuf:=sqlerrm;
6055: g_retcode:= -1;
6056: g_exception_msg := g_retcode || ':' || g_errbuf;
6057: FII_UTIL.put_line('Error occured while ' || g_state);
6058: FII_UTIL.put_line(g_exception_msg);
6059: RAISE;
6060:
6061: END Inc_ADJUSTMENTS;
6054: g_errbuf:=sqlerrm;
6055: g_retcode:= -1;
6056: g_exception_msg := g_retcode || ':' || g_errbuf;
6057: FII_UTIL.put_line('Error occured while ' || g_state);
6058: FII_UTIL.put_line(g_exception_msg);
6059: RAISE;
6060:
6061: END Inc_ADJUSTMENTS;
6062:
6079: */
6080:
6081: g_state := 'Populating FII_AR_RECAPP_MERGE_GT';
6082: if g_debug_flag = 'Y' then
6083: FII_UTIL.put_line(g_state);
6084: FII_UTIL.start_timer;
6085: FII_UTIL.put_line('');
6086: end if;
6087:
6080:
6081: g_state := 'Populating FII_AR_RECAPP_MERGE_GT';
6082: if g_debug_flag = 'Y' then
6083: FII_UTIL.put_line(g_state);
6084: FII_UTIL.start_timer;
6085: FII_UTIL.put_line('');
6086: end if;
6087:
6088: insert into FII_AR_RECAPP_MERGE_GT
6081: g_state := 'Populating FII_AR_RECAPP_MERGE_GT';
6082: if g_debug_flag = 'Y' then
6083: FII_UTIL.put_line(g_state);
6084: FII_UTIL.start_timer;
6085: FII_UTIL.put_line('');
6086: end if;
6087:
6088: insert into FII_AR_RECAPP_MERGE_GT
6089: (
6378: */
6379: ;
6380:
6381: if g_debug_flag = 'Y' then
6382: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_MERGE_GT');
6383: FII_UTIL.stop_timer;
6384: FII_UTIL.print_timer('Duration');
6385: FII_UTIL.put_line('');
6386: end if;
6379: ;
6380:
6381: if g_debug_flag = 'Y' then
6382: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_MERGE_GT');
6383: FII_UTIL.stop_timer;
6384: FII_UTIL.print_timer('Duration');
6385: FII_UTIL.put_line('');
6386: end if;
6387:
6380:
6381: if g_debug_flag = 'Y' then
6382: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_MERGE_GT');
6383: FII_UTIL.stop_timer;
6384: FII_UTIL.print_timer('Duration');
6385: FII_UTIL.put_line('');
6386: end if;
6387:
6388: g_state := 'Deleting FII_AR_RECEIPTS_F';
6381: if g_debug_flag = 'Y' then
6382: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECAPP_MERGE_GT');
6383: FII_UTIL.stop_timer;
6384: FII_UTIL.print_timer('Duration');
6385: FII_UTIL.put_line('');
6386: end if;
6387:
6388: g_state := 'Deleting FII_AR_RECEIPTS_F';
6389: if g_debug_flag = 'Y' then
6386: end if;
6387:
6388: g_state := 'Deleting FII_AR_RECEIPTS_F';
6389: if g_debug_flag = 'Y' then
6390: FII_UTIL.put_line(g_state);
6391: FII_UTIL.start_timer;
6392: FII_UTIL.put_line('');
6393: end if;
6394:
6387:
6388: g_state := 'Deleting FII_AR_RECEIPTS_F';
6389: if g_debug_flag = 'Y' then
6390: FII_UTIL.put_line(g_state);
6391: FII_UTIL.start_timer;
6392: FII_UTIL.put_line('');
6393: end if;
6394:
6395: delete from fii_ar_receipts_f
6388: g_state := 'Deleting FII_AR_RECEIPTS_F';
6389: if g_debug_flag = 'Y' then
6390: FII_UTIL.put_line(g_state);
6391: FII_UTIL.start_timer;
6392: FII_UTIL.put_line('');
6393: end if;
6394:
6395: delete from fii_ar_receipts_f
6396: where RECEIVABLE_APPLICATION_ID in (
6410: from FII_AR_RECAPP_DELETE_GT
6411: );
6412:
6413: if g_debug_flag = 'Y' then
6414: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_RECEIPTS_F');
6415: FII_UTIL.stop_timer;
6416: FII_UTIL.print_timer('Duration');
6417: FII_UTIL.put_line('');
6418: end if;
6411: );
6412:
6413: if g_debug_flag = 'Y' then
6414: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_RECEIPTS_F');
6415: FII_UTIL.stop_timer;
6416: FII_UTIL.print_timer('Duration');
6417: FII_UTIL.put_line('');
6418: end if;
6419:
6412:
6413: if g_debug_flag = 'Y' then
6414: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_RECEIPTS_F');
6415: FII_UTIL.stop_timer;
6416: FII_UTIL.print_timer('Duration');
6417: FII_UTIL.put_line('');
6418: end if;
6419:
6420: commit;
6413: if g_debug_flag = 'Y' then
6414: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from FII_AR_RECEIPTS_F');
6415: FII_UTIL.stop_timer;
6416: FII_UTIL.print_timer('Duration');
6417: FII_UTIL.put_line('');
6418: end if;
6419:
6420: commit;
6421:
6420: commit;
6421:
6422: g_state := 'Merging into FII_AR_RECEIPTS_F';
6423: if g_debug_flag = 'Y' then
6424: FII_UTIL.put_line(g_state);
6425: FII_UTIL.start_timer;
6426: FII_UTIL.put_line('');
6427: end if;
6428:
6421:
6422: g_state := 'Merging into FII_AR_RECEIPTS_F';
6423: if g_debug_flag = 'Y' then
6424: FII_UTIL.put_line(g_state);
6425: FII_UTIL.start_timer;
6426: FII_UTIL.put_line('');
6427: end if;
6428:
6429: merge into fii_ar_receipts_f old using (
6422: g_state := 'Merging into FII_AR_RECEIPTS_F';
6423: if g_debug_flag = 'Y' then
6424: FII_UTIL.put_line(g_state);
6425: FII_UTIL.start_timer;
6426: FII_UTIL.put_line('');
6427: end if;
6428:
6429: merge into fii_ar_receipts_f old using (
6430: select
6656: dlt.LAST_UPDATE_LOGIN
6657: );
6658:
6659: if g_debug_flag = 'Y' then
6660: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
6661: FII_UTIL.stop_timer;
6662: FII_UTIL.print_timer('Duration');
6663: FII_UTIL.put_line('');
6664: end if;
6657: );
6658:
6659: if g_debug_flag = 'Y' then
6660: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
6661: FII_UTIL.stop_timer;
6662: FII_UTIL.print_timer('Duration');
6663: FII_UTIL.put_line('');
6664: end if;
6665:
6658:
6659: if g_debug_flag = 'Y' then
6660: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
6661: FII_UTIL.stop_timer;
6662: FII_UTIL.print_timer('Duration');
6663: FII_UTIL.put_line('');
6664: end if;
6665:
6666: g_state := 'Analyzing FII_AR_RECEIPTS_F table';
6659: if g_debug_flag = 'Y' then
6660: FII_UTIL.put_line('Merged ' ||SQL%ROWCOUNT|| ' records into FII_AR_RECEIPTS_F');
6661: FII_UTIL.stop_timer;
6662: FII_UTIL.print_timer('Duration');
6663: FII_UTIL.put_line('');
6664: end if;
6665:
6666: g_state := 'Analyzing FII_AR_RECEIPTS_F table';
6667: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'FII_AR_RECEIPTS_F');
6699: WHEN OTHERS THEN
6700: g_errbuf:=sqlerrm;
6701: g_retcode:= -1;
6702: g_exception_msg := g_retcode || ':' || g_errbuf;
6703: FII_UTIL.put_line('Error occured while ' || g_state);
6704: FII_UTIL.put_line(g_exception_msg);
6705: RAISE;
6706:
6707: END Inc_RECEIPTS;
6700: g_errbuf:=sqlerrm;
6701: g_retcode:= -1;
6702: g_exception_msg := g_retcode || ':' || g_errbuf;
6703: FII_UTIL.put_line('Error occured while ' || g_state);
6704: FII_UTIL.put_line(g_exception_msg);
6705: RAISE;
6706:
6707: END Inc_RECEIPTS;
6708:
6717: BEGIN
6718:
6719: g_state := 'Populating fii_ar_aging_receivables in incremental mode';
6720: if g_debug_flag = 'Y' then
6721: FII_UTIL.put_line(g_state);
6722: FII_UTIL.start_timer;
6723: FII_UTIL.put_line('');
6724: end if;
6725:
6718:
6719: g_state := 'Populating fii_ar_aging_receivables in incremental mode';
6720: if g_debug_flag = 'Y' then
6721: FII_UTIL.put_line(g_state);
6722: FII_UTIL.start_timer;
6723: FII_UTIL.put_line('');
6724: end if;
6725:
6726: --Remove 3
6719: g_state := 'Populating fii_ar_aging_receivables in incremental mode';
6720: if g_debug_flag = 'Y' then
6721: FII_UTIL.put_line(g_state);
6722: FII_UTIL.start_timer;
6723: FII_UTIL.put_line('');
6724: end if;
6725:
6726: --Remove 3
6727: INSERT INTO fii_ar_aging_receivables
7932: action,
7933: aging_flag;
7934:
7935: if g_debug_flag = 'Y' then
7936: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receivables in incremental mode');
7937: FII_UTIL.stop_timer;
7938: FII_UTIL.print_timer('Duration');
7939: FII_UTIL.put_line('');
7940: end if;
7933: aging_flag;
7934:
7935: if g_debug_flag = 'Y' then
7936: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receivables in incremental mode');
7937: FII_UTIL.stop_timer;
7938: FII_UTIL.print_timer('Duration');
7939: FII_UTIL.put_line('');
7940: end if;
7941:
7934:
7935: if g_debug_flag = 'Y' then
7936: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receivables in incremental mode');
7937: FII_UTIL.stop_timer;
7938: FII_UTIL.print_timer('Duration');
7939: FII_UTIL.put_line('');
7940: end if;
7941:
7942: g_state := 'Analyzing fii_ar_aging_receivables table';
7935: if g_debug_flag = 'Y' then
7936: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receivables in incremental mode');
7937: FII_UTIL.stop_timer;
7938: FII_UTIL.print_timer('Duration');
7939: FII_UTIL.put_line('');
7940: end if;
7941:
7942: g_state := 'Analyzing fii_ar_aging_receivables table';
7943: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'fii_ar_aging_receivables');
7946: WHEN OTHERS THEN
7947: g_errbuf:=sqlerrm;
7948: g_retcode:= -1;
7949: g_exception_msg := g_retcode || ':' || g_errbuf;
7950: FII_UTIL.put_line('Error occured while ' || g_state);
7951: FII_UTIL.put_line(g_exception_msg);
7952: RAISE;
7953:
7954: END Inc_RECEIVABLES_AGING;
7947: g_errbuf:=sqlerrm;
7948: g_retcode:= -1;
7949: g_exception_msg := g_retcode || ':' || g_errbuf;
7950: FII_UTIL.put_line('Error occured while ' || g_state);
7951: FII_UTIL.put_line(g_exception_msg);
7952: RAISE;
7953:
7954: END Inc_RECEIVABLES_AGING;
7955:
8005: BEGIN
8006:
8007: g_state := 'Populating memory structures for fii_ar_aging_receipts';
8008: if g_debug_flag = 'Y' then
8009: FII_UTIL.put_line(g_state);
8010: FII_UTIL.start_timer;
8011: FII_UTIL.put_line('');
8012: end if;
8013:
8006:
8007: g_state := 'Populating memory structures for fii_ar_aging_receipts';
8008: if g_debug_flag = 'Y' then
8009: FII_UTIL.put_line(g_state);
8010: FII_UTIL.start_timer;
8011: FII_UTIL.put_line('');
8012: end if;
8013:
8014: --INSERT INTO fii_ar_aging_receipts_t
8007: g_state := 'Populating memory structures for fii_ar_aging_receipts';
8008: if g_debug_flag = 'Y' then
8009: FII_UTIL.put_line(g_state);
8010: FII_UTIL.start_timer;
8011: FII_UTIL.put_line('');
8012: end if;
8013:
8014: --INSERT INTO fii_ar_aging_receipts_t
8015: SELECT time_id,
8297: or
8298: sum(aging_bucket_3_amount_func) <>0;
8299:
8300: if g_debug_flag = 'Y' then
8301: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into memory structures related to fii_ar_aging_receipts.');
8302: FII_UTIL.stop_timer;
8303: FII_UTIL.print_timer('Duration');
8304: FII_UTIL.put_line('');
8305: end if;
8298: sum(aging_bucket_3_amount_func) <>0;
8299:
8300: if g_debug_flag = 'Y' then
8301: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into memory structures related to fii_ar_aging_receipts.');
8302: FII_UTIL.stop_timer;
8303: FII_UTIL.print_timer('Duration');
8304: FII_UTIL.put_line('');
8305: end if;
8306:
8299:
8300: if g_debug_flag = 'Y' then
8301: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into memory structures related to fii_ar_aging_receipts.');
8302: FII_UTIL.stop_timer;
8303: FII_UTIL.print_timer('Duration');
8304: FII_UTIL.put_line('');
8305: end if;
8306:
8307: g_state := 'Updating fii_ar_aging_receipts';
8300: if g_debug_flag = 'Y' then
8301: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into memory structures related to fii_ar_aging_receipts.');
8302: FII_UTIL.stop_timer;
8303: FII_UTIL.print_timer('Duration');
8304: FII_UTIL.put_line('');
8305: end if;
8306:
8307: g_state := 'Updating fii_ar_aging_receipts';
8308: if g_debug_flag = 'Y' then
8305: end if;
8306:
8307: g_state := 'Updating fii_ar_aging_receipts';
8308: if g_debug_flag = 'Y' then
8309: FII_UTIL.put_line(g_state);
8310: FII_UTIL.start_timer;
8311: FII_UTIL.put_line('');
8312: end if;
8313:
8306:
8307: g_state := 'Updating fii_ar_aging_receipts';
8308: if g_debug_flag = 'Y' then
8309: FII_UTIL.put_line(g_state);
8310: FII_UTIL.start_timer;
8311: FII_UTIL.put_line('');
8312: end if;
8313:
8314: IF time_id_MS.First is not null Then
8307: g_state := 'Updating fii_ar_aging_receipts';
8308: if g_debug_flag = 'Y' then
8309: FII_UTIL.put_line(g_state);
8310: FII_UTIL.start_timer;
8311: FII_UTIL.put_line('');
8312: end if;
8313:
8314: IF time_id_MS.First is not null Then
8315:
8338:
8339: End If;
8340:
8341: if g_debug_flag = 'Y' then
8342: FII_UTIL.put_line('Updated ' ||SQL%ROWCOUNT|| ' records in fii_ar_aging_receipts');
8343: FII_UTIL.stop_timer;
8344: FII_UTIL.print_timer('Duration');
8345: FII_UTIL.put_line('');
8346: end if;
8339: End If;
8340:
8341: if g_debug_flag = 'Y' then
8342: FII_UTIL.put_line('Updated ' ||SQL%ROWCOUNT|| ' records in fii_ar_aging_receipts');
8343: FII_UTIL.stop_timer;
8344: FII_UTIL.print_timer('Duration');
8345: FII_UTIL.put_line('');
8346: end if;
8347:
8340:
8341: if g_debug_flag = 'Y' then
8342: FII_UTIL.put_line('Updated ' ||SQL%ROWCOUNT|| ' records in fii_ar_aging_receipts');
8343: FII_UTIL.stop_timer;
8344: FII_UTIL.print_timer('Duration');
8345: FII_UTIL.put_line('');
8346: end if;
8347:
8348: g_state := 'Inserting into fii_ar_aging_receipts';
8341: if g_debug_flag = 'Y' then
8342: FII_UTIL.put_line('Updated ' ||SQL%ROWCOUNT|| ' records in fii_ar_aging_receipts');
8343: FII_UTIL.stop_timer;
8344: FII_UTIL.print_timer('Duration');
8345: FII_UTIL.put_line('');
8346: end if;
8347:
8348: g_state := 'Inserting into fii_ar_aging_receipts';
8349: if g_debug_flag = 'Y' then
8346: end if;
8347:
8348: g_state := 'Inserting into fii_ar_aging_receipts';
8349: if g_debug_flag = 'Y' then
8350: FII_UTIL.put_line(g_state);
8351: FII_UTIL.start_timer;
8352: FII_UTIL.put_line('');
8353: end if;
8354:
8347:
8348: g_state := 'Inserting into fii_ar_aging_receipts';
8349: if g_debug_flag = 'Y' then
8350: FII_UTIL.put_line(g_state);
8351: FII_UTIL.start_timer;
8352: FII_UTIL.put_line('');
8353: end if;
8354:
8355: IF time_id_MS.First is not null Then
8348: g_state := 'Inserting into fii_ar_aging_receipts';
8349: if g_debug_flag = 'Y' then
8350: FII_UTIL.put_line(g_state);
8351: FII_UTIL.start_timer;
8352: FII_UTIL.put_line('');
8353: end if;
8354:
8355: IF time_id_MS.First is not null Then
8356:
8371:
8372: End If;
8373:
8374: if g_debug_flag = 'Y' then
8375: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receipts');
8376: FII_UTIL.stop_timer;
8377: FII_UTIL.print_timer('Duration');
8378: FII_UTIL.put_line('');
8379: end if;
8372: End If;
8373:
8374: if g_debug_flag = 'Y' then
8375: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receipts');
8376: FII_UTIL.stop_timer;
8377: FII_UTIL.print_timer('Duration');
8378: FII_UTIL.put_line('');
8379: end if;
8380:
8373:
8374: if g_debug_flag = 'Y' then
8375: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receipts');
8376: FII_UTIL.stop_timer;
8377: FII_UTIL.print_timer('Duration');
8378: FII_UTIL.put_line('');
8379: end if;
8380:
8381: g_state := 'Analyzing fii_ar_aging_receipts table';
8374: if g_debug_flag = 'Y' then
8375: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_receipts');
8376: FII_UTIL.stop_timer;
8377: FII_UTIL.print_timer('Duration');
8378: FII_UTIL.put_line('');
8379: end if;
8380:
8381: g_state := 'Analyzing fii_ar_aging_receipts table';
8382: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'fii_ar_aging_receipts');
8385: WHEN OTHERS THEN
8386: g_errbuf:=sqlerrm;
8387: g_retcode:= -1;
8388: g_exception_msg := g_retcode || ':' || g_errbuf;
8389: FII_UTIL.put_line('Error occured while ' || g_state);
8390: FII_UTIL.put_line(g_exception_msg);
8391: RAISE;
8392:
8393: END Inc_RECEIPTS_AGING;
8386: g_errbuf:=sqlerrm;
8387: g_retcode:= -1;
8388: g_exception_msg := g_retcode || ':' || g_errbuf;
8389: FII_UTIL.put_line('Error occured while ' || g_state);
8390: FII_UTIL.put_line(g_exception_msg);
8391: RAISE;
8392:
8393: END Inc_RECEIPTS_AGING;
8394:
8402: BEGIN
8403:
8404: g_state := 'Inserting into fii_ar_aging_disputes';
8405: if g_debug_flag = 'Y' then
8406: FII_UTIL.put_line(g_state);
8407: FII_UTIL.start_timer;
8408: FII_UTIL.put_line('');
8409: end if;
8410:
8403:
8404: g_state := 'Inserting into fii_ar_aging_disputes';
8405: if g_debug_flag = 'Y' then
8406: FII_UTIL.put_line(g_state);
8407: FII_UTIL.start_timer;
8408: FII_UTIL.put_line('');
8409: end if;
8410:
8411: INSERT INTO FII_AR_AGING_DISPUTES
8404: g_state := 'Inserting into fii_ar_aging_disputes';
8405: if g_debug_flag = 'Y' then
8406: FII_UTIL.put_line(g_state);
8407: FII_UTIL.start_timer;
8408: FII_UTIL.put_line('');
8409: end if;
8410:
8411: INSERT INTO FII_AR_AGING_DISPUTES
8412: (time_id,
8675:
8676:
8677:
8678: if g_debug_flag = 'Y' then
8679: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_disputes.');
8680: FII_UTIL.stop_timer;
8681: FII_UTIL.print_timer('Duration');
8682: FII_UTIL.put_line('');
8683: end if;
8676:
8677:
8678: if g_debug_flag = 'Y' then
8679: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_disputes.');
8680: FII_UTIL.stop_timer;
8681: FII_UTIL.print_timer('Duration');
8682: FII_UTIL.put_line('');
8683: end if;
8684:
8677:
8678: if g_debug_flag = 'Y' then
8679: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_disputes.');
8680: FII_UTIL.stop_timer;
8681: FII_UTIL.print_timer('Duration');
8682: FII_UTIL.put_line('');
8683: end if;
8684:
8685: g_state := 'Analyzing fii_ar_aging_disputes table';
8678: if g_debug_flag = 'Y' then
8679: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' records into fii_ar_aging_disputes.');
8680: FII_UTIL.stop_timer;
8681: FII_UTIL.print_timer('Duration');
8682: FII_UTIL.put_line('');
8683: end if;
8684:
8685: g_state := 'Analyzing fii_ar_aging_disputes table';
8686: FND_STATS.GATHER_TABLE_STATS(g_fii_schema,'fii_ar_aging_disputes');
8689: WHEN OTHERS THEN
8690: g_errbuf:=sqlerrm;
8691: g_retcode:= -1;
8692: g_exception_msg := g_retcode || ':' || g_errbuf;
8693: FII_UTIL.put_line('Error occured while ' || g_state);
8694: FII_UTIL.put_line(g_exception_msg);
8695: RAISE;
8696:
8697: END Inc_DISPUTES_AGING;
8690: g_errbuf:=sqlerrm;
8691: g_retcode:= -1;
8692: g_exception_msg := g_retcode || ':' || g_errbuf;
8693: FII_UTIL.put_line('Error occured while ' || g_state);
8694: FII_UTIL.put_line(g_exception_msg);
8695: RAISE;
8696:
8697: END Inc_DISPUTES_AGING;
8698:
8721: BEGIN
8722:
8723: g_state := 'Started CLEAN_REC_AGING';
8724: if g_debug_flag = 'Y' then
8725: FII_UTIL.put_line(g_state);
8726: end if;
8727:
8728: SELECT payment_schedule_id, customer_trx_id, min_date
8729: BULK COLLECT INTO sch_id_array, trx_id_array, min_date_array
8751:
8752:
8753: g_state := 'Deleting from fii_ar_aging_receivables';
8754: if g_debug_flag = 'Y' then
8755: FII_UTIL.put_line(g_state);
8756: end if;
8757:
8758: IF trx_id_array.First is not null Then
8759:
8766: and ag.event_date >= min_date_array(i));
8767: End If;
8768:
8769: if g_debug_flag = 'Y' then
8770: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receivables.');
8771: FII_UTIL.stop_timer;
8772: FII_UTIL.print_timer('Duration');
8773: FII_UTIL.put_line('');
8774: end if;
8767: End If;
8768:
8769: if g_debug_flag = 'Y' then
8770: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receivables.');
8771: FII_UTIL.stop_timer;
8772: FII_UTIL.print_timer('Duration');
8773: FII_UTIL.put_line('');
8774: end if;
8775:
8768:
8769: if g_debug_flag = 'Y' then
8770: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receivables.');
8771: FII_UTIL.stop_timer;
8772: FII_UTIL.print_timer('Duration');
8773: FII_UTIL.put_line('');
8774: end if;
8775:
8776: EXCEPTION
8769: if g_debug_flag = 'Y' then
8770: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receivables.');
8771: FII_UTIL.stop_timer;
8772: FII_UTIL.print_timer('Duration');
8773: FII_UTIL.put_line('');
8774: end if;
8775:
8776: EXCEPTION
8777: WHEN OTHERS THEN
8777: WHEN OTHERS THEN
8778: g_errbuf:=sqlerrm;
8779: g_retcode:= -1;
8780: g_exception_msg := g_retcode || ':' || g_errbuf;
8781: FII_UTIL.put_line('Error occured while ' || g_state);
8782: FII_UTIL.put_line(g_exception_msg);
8783: RAISE;
8784:
8785: --dbms_output.put_line('Error occured while ' || g_state);
8778: g_errbuf:=sqlerrm;
8779: g_retcode:= -1;
8780: g_exception_msg := g_retcode || ':' || g_errbuf;
8781: FII_UTIL.put_line('Error occured while ' || g_state);
8782: FII_UTIL.put_line(g_exception_msg);
8783: RAISE;
8784:
8785: --dbms_output.put_line('Error occured while ' || g_state);
8786: --dbms_output.put_line(g_exception_msg);
8806: BEGIN
8807:
8808: g_state := 'Started CLEAN_RCT_AGING';
8809: if g_debug_flag = 'Y' then
8810: FII_UTIL.put_line(g_state);
8811: end if;
8812:
8813: SELECT cash_receipt_id, actual_date_closed
8814: BULK COLLECT INTO rct_id_array, date_closed_array
8837: and rct.header_status in ('REV','NSF','STOP') );
8838:
8839: g_state := 'Deleting from fii_ar_aging_receipts';
8840: if g_debug_flag = 'Y' then
8841: FII_UTIL.put_line(g_state);
8842: end if;
8843:
8844: If rct_id_array.First is not null Then
8845:
8850:
8851: End If;
8852:
8853: if g_debug_flag = 'Y' then
8854: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receipts.');
8855: FII_UTIL.stop_timer;
8856: FII_UTIL.print_timer('Duration');
8857: FII_UTIL.put_line('');
8858: end if;
8851: End If;
8852:
8853: if g_debug_flag = 'Y' then
8854: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receipts.');
8855: FII_UTIL.stop_timer;
8856: FII_UTIL.print_timer('Duration');
8857: FII_UTIL.put_line('');
8858: end if;
8859:
8852:
8853: if g_debug_flag = 'Y' then
8854: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receipts.');
8855: FII_UTIL.stop_timer;
8856: FII_UTIL.print_timer('Duration');
8857: FII_UTIL.put_line('');
8858: end if;
8859:
8860: EXCEPTION
8853: if g_debug_flag = 'Y' then
8854: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_receipts.');
8855: FII_UTIL.stop_timer;
8856: FII_UTIL.print_timer('Duration');
8857: FII_UTIL.put_line('');
8858: end if;
8859:
8860: EXCEPTION
8861: WHEN OTHERS THEN
8861: WHEN OTHERS THEN
8862: g_errbuf:=sqlerrm;
8863: g_retcode:= -1;
8864: g_exception_msg := g_retcode || ':' || g_errbuf;
8865: FII_UTIL.put_line('Error occured while ' || g_state);
8866: FII_UTIL.put_line(g_exception_msg);
8867: RAISE;
8868:
8869: END;
8862: g_errbuf:=sqlerrm;
8863: g_retcode:= -1;
8864: g_exception_msg := g_retcode || ':' || g_errbuf;
8865: FII_UTIL.put_line('Error occured while ' || g_state);
8866: FII_UTIL.put_line(g_exception_msg);
8867: RAISE;
8868:
8869: END;
8870:
8890: BEGIN
8891:
8892: g_state := 'Started CLEAN_DISP_AGING';
8893: if g_debug_flag = 'Y' then
8894: FII_UTIL.put_line(g_state);
8895: end if;
8896:
8897: SELECT payment_schedule_id, customer_trx_id, min_date
8898: BULK COLLECT INTO sch_id_array, trx_id_array, min_date_array
8920: );
8921:
8922: g_state := 'Deleting from fii_ar_aging_disputes';
8923: if g_debug_flag = 'Y' then
8924: FII_UTIL.put_line(g_state);
8925: end if;
8926:
8927: If min_date_array.First is not null Then
8928:
8936:
8937: End If;
8938:
8939: if g_debug_flag = 'Y' then
8940: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_disputes.');
8941: FII_UTIL.stop_timer;
8942: FII_UTIL.print_timer('Duration');
8943: FII_UTIL.put_line('');
8944: end if;
8937: End If;
8938:
8939: if g_debug_flag = 'Y' then
8940: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_disputes.');
8941: FII_UTIL.stop_timer;
8942: FII_UTIL.print_timer('Duration');
8943: FII_UTIL.put_line('');
8944: end if;
8945:
8938:
8939: if g_debug_flag = 'Y' then
8940: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_disputes.');
8941: FII_UTIL.stop_timer;
8942: FII_UTIL.print_timer('Duration');
8943: FII_UTIL.put_line('');
8944: end if;
8945:
8946: EXCEPTION
8939: if g_debug_flag = 'Y' then
8940: FII_UTIL.put_line('Deleted ' ||SQL%ROWCOUNT|| ' records from fii_ar_aging_disputes.');
8941: FII_UTIL.stop_timer;
8942: FII_UTIL.print_timer('Duration');
8943: FII_UTIL.put_line('');
8944: end if;
8945:
8946: EXCEPTION
8947: WHEN OTHERS THEN
8947: WHEN OTHERS THEN
8948: g_errbuf:=sqlerrm;
8949: g_retcode:= -1;
8950: g_exception_msg := g_retcode || ':' || g_errbuf;
8951: FII_UTIL.put_line('Error occured while ' || g_state);
8952: FII_UTIL.put_line(g_exception_msg);
8953: RAISE;
8954:
8955: --dbms_output.put_line('Error occured while ' || g_state);
8948: g_errbuf:=sqlerrm;
8949: g_retcode:= -1;
8950: g_exception_msg := g_retcode || ':' || g_errbuf;
8951: FII_UTIL.put_line('Error occured while ' || g_state);
8952: FII_UTIL.put_line(g_exception_msg);
8953: RAISE;
8954:
8955: --dbms_output.put_line('Error occured while ' || g_state);
8956: --dbms_output.put_line(g_exception_msg);
8970: BEGIN
8971:
8972: g_state := 'Populating FII_AR_PAYSCH_MERGE_GT from fii_ar_aging_receivables';
8973: if g_debug_flag = 'Y' then
8974: FII_UTIL.put_line(g_state);
8975: end if;
8976:
8977: --FII_AR_PAYSCH_MERGE_GT already contains:
8978: --trx_ids of new payment schedules
8991: from fii_ar_paysch_merge_gt t
8992: where t.customer_trx_id = ag.customer_trx_id));
8993:
8994: if g_debug_flag = 'Y' then
8995: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_PAYSCH_MERGE_GT.');
8996: FII_UTIL.stop_timer;
8997: FII_UTIL.print_timer('Duration');
8998: FII_UTIL.put_line('');
8999: end if;
8992: where t.customer_trx_id = ag.customer_trx_id));
8993:
8994: if g_debug_flag = 'Y' then
8995: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_PAYSCH_MERGE_GT.');
8996: FII_UTIL.stop_timer;
8997: FII_UTIL.print_timer('Duration');
8998: FII_UTIL.put_line('');
8999: end if;
9000:
8993:
8994: if g_debug_flag = 'Y' then
8995: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_PAYSCH_MERGE_GT.');
8996: FII_UTIL.stop_timer;
8997: FII_UTIL.print_timer('Duration');
8998: FII_UTIL.put_line('');
8999: end if;
9000:
9001: EXCEPTION
8994: if g_debug_flag = 'Y' then
8995: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_PAYSCH_MERGE_GT.');
8996: FII_UTIL.stop_timer;
8997: FII_UTIL.print_timer('Duration');
8998: FII_UTIL.put_line('');
8999: end if;
9000:
9001: EXCEPTION
9002: WHEN OTHERS THEN
9002: WHEN OTHERS THEN
9003: g_errbuf:=sqlerrm;
9004: g_retcode:= -1;
9005: g_exception_msg := g_retcode || ':' || g_errbuf;
9006: FII_UTIL.put_line('Error occured while ' || g_state);
9007: FII_UTIL.put_line(g_exception_msg);
9008: RAISE;
9009:
9010: END;
9003: g_errbuf:=sqlerrm;
9004: g_retcode:= -1;
9005: g_exception_msg := g_retcode || ':' || g_errbuf;
9006: FII_UTIL.put_line('Error occured while ' || g_state);
9007: FII_UTIL.put_line(g_exception_msg);
9008: RAISE;
9009:
9010: END;
9011:
9023: BEGIN
9024:
9025: g_state := 'Populating FII_AR_INC_RCT_AGING_T from fii_ar_receipts_f';
9026: if g_debug_flag = 'Y' then
9027: FII_UTIL.put_line(g_state);
9028: end if;
9029:
9030: --trx_ids that have new applications
9031: --These are already in FII_AR_RECAPP_MERGE_GT
9031: --These are already in FII_AR_RECAPP_MERGE_GT
9032:
9033: g_state := 'Populating FII_AR_RECAPP_MERGE_GT from fii_ar_aging_receipts';
9034: if g_debug_flag = 'Y' then
9035: FII_UTIL.put_line(g_state);
9036: end if;
9037:
9038: --Insert rct ids that are already in aging table but not yet aged completely
9039: INSERT INTO FII_AR_RECAPP_MERGE_GT
9163: and rct.application_type = 'CASH'
9164: and rct.amount_applied_rct_func <> 0);
9165:
9166: if g_debug_flag = 'Y' then
9167: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_RECAPP_MERGE_GT.');
9168: FII_UTIL.stop_timer;
9169: FII_UTIL.print_timer('Duration');
9170: FII_UTIL.put_line('');
9171: end if;
9164: and rct.amount_applied_rct_func <> 0);
9165:
9166: if g_debug_flag = 'Y' then
9167: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_RECAPP_MERGE_GT.');
9168: FII_UTIL.stop_timer;
9169: FII_UTIL.print_timer('Duration');
9170: FII_UTIL.put_line('');
9171: end if;
9172:
9165:
9166: if g_debug_flag = 'Y' then
9167: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_RECAPP_MERGE_GT.');
9168: FII_UTIL.stop_timer;
9169: FII_UTIL.print_timer('Duration');
9170: FII_UTIL.put_line('');
9171: end if;
9172:
9173: EXCEPTION
9166: if g_debug_flag = 'Y' then
9167: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_RECAPP_MERGE_GT.');
9168: FII_UTIL.stop_timer;
9169: FII_UTIL.print_timer('Duration');
9170: FII_UTIL.put_line('');
9171: end if;
9172:
9173: EXCEPTION
9174: WHEN OTHERS THEN
9174: WHEN OTHERS THEN
9175: g_errbuf:=sqlerrm;
9176: g_retcode:= -1;
9177: g_exception_msg := g_retcode || ':' || g_errbuf;
9178: FII_UTIL.put_line('Error occured while ' || g_state);
9179: FII_UTIL.put_line(g_exception_msg);
9180: RAISE;
9181:
9182: END;
9175: g_errbuf:=sqlerrm;
9176: g_retcode:= -1;
9177: g_exception_msg := g_retcode || ':' || g_errbuf;
9178: FII_UTIL.put_line('Error occured while ' || g_state);
9179: FII_UTIL.put_line(g_exception_msg);
9180: RAISE;
9181:
9182: END;
9183:
9193: BEGIN
9194:
9195: g_state := 'Populating FII_AR_DISP_UPDATE_GT from fii_ar_aging_disputes';
9196: if g_debug_flag = 'Y' then
9197: FII_UTIL.put_line(g_state);
9198: end if;
9199:
9200: --FII_AR_DISP_UPDATE_GT already contains:
9201: --sch_ids of new and updated disputes
9212: from FII_AR_DISP_UPDATE_GT t
9213: where t.payment_schedule_id = ag.payment_schedule_id));
9214:
9215: if g_debug_flag = 'Y' then
9216: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_DISP_UPDATE_GT.');
9217: FII_UTIL.stop_timer;
9218: FII_UTIL.print_timer('Duration');
9219: FII_UTIL.put_line('');
9220: end if;
9213: where t.payment_schedule_id = ag.payment_schedule_id));
9214:
9215: if g_debug_flag = 'Y' then
9216: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_DISP_UPDATE_GT.');
9217: FII_UTIL.stop_timer;
9218: FII_UTIL.print_timer('Duration');
9219: FII_UTIL.put_line('');
9220: end if;
9221:
9214:
9215: if g_debug_flag = 'Y' then
9216: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_DISP_UPDATE_GT.');
9217: FII_UTIL.stop_timer;
9218: FII_UTIL.print_timer('Duration');
9219: FII_UTIL.put_line('');
9220: end if;
9221:
9222: EXCEPTION
9215: if g_debug_flag = 'Y' then
9216: FII_UTIL.put_line('Inserted ' ||SQL%ROWCOUNT|| ' additional records into FII_AR_DISP_UPDATE_GT.');
9217: FII_UTIL.stop_timer;
9218: FII_UTIL.print_timer('Duration');
9219: FII_UTIL.put_line('');
9220: end if;
9221:
9222: EXCEPTION
9223: WHEN OTHERS THEN
9223: WHEN OTHERS THEN
9224: g_errbuf:=sqlerrm;
9225: g_retcode:= -1;
9226: g_exception_msg := g_retcode || ':' || g_errbuf;
9227: FII_UTIL.put_line('Error occured while ' || g_state);
9228: FII_UTIL.put_line(g_exception_msg);
9229: RAISE;
9230:
9231: END POPULATE_INCREMENTAL_DISP_IDS;
9224: g_errbuf:=sqlerrm;
9225: g_retcode:= -1;
9226: g_exception_msg := g_retcode || ':' || g_errbuf;
9227: FII_UTIL.put_line('Error occured while ' || g_state);
9228: FII_UTIL.put_line(g_exception_msg);
9229: RAISE;
9230:
9231: END POPULATE_INCREMENTAL_DISP_IDS;
9232:
9248:
9249: BEGIN
9250: g_state := 'Inside the procedure Inc_Extraction';
9251: if g_debug_flag = 'Y' then
9252: FII_UTIL.put_line(g_state);
9253: end if;
9254:
9255: Retcode := 0;
9256:
9257: ------------------------------------------------------
9258: -- Set default directory in case if the profile option
9259: -- BIS_DEBUG_LOG_DIRECTORY is not set up
9260: ------------------------------------------------------
9261: l_dir:=FII_UTIL.get_utl_file_dir;
9262:
9263: ----------------------------------------------------------------
9264: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
9265: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
9260: ------------------------------------------------------
9261: l_dir:=FII_UTIL.get_utl_file_dir;
9262:
9263: ----------------------------------------------------------------
9264: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
9265: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
9266: -- the log files and output files are written to
9267: ----------------------------------------------------------------
9268: FII_UTIL.initialize('FII_AR_FACTS_AGING_INIT.log','FII_AR_FACTS_AGING_INIT.out',l_dir, 'FII_AR_FACTS_AGING_INIT');
9264: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
9265: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
9266: -- the log files and output files are written to
9267: ----------------------------------------------------------------
9268: FII_UTIL.initialize('FII_AR_FACTS_AGING_INIT.log','FII_AR_FACTS_AGING_INIT.out',l_dir, 'FII_AR_FACTS_AGING_INIT');
9269:
9270: EXECUTE IMMEDIATE 'ALTER SESSION SET MAX_DUMP_FILE_SIZE=UNLIMITED';
9271:
9272: if g_debug_flag = 'Y' then
9269:
9270: EXECUTE IMMEDIATE 'ALTER SESSION SET MAX_DUMP_FILE_SIZE=UNLIMITED';
9271:
9272: if g_debug_flag = 'Y' then
9273: FII_UTIL.put_line('-------------------------------------------------');
9274: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
9275: FII_UTIL.put_line('-------------------------------------------------');
9276: end if;
9277:
9270: EXECUTE IMMEDIATE 'ALTER SESSION SET MAX_DUMP_FILE_SIZE=UNLIMITED';
9271:
9272: if g_debug_flag = 'Y' then
9273: FII_UTIL.put_line('-------------------------------------------------');
9274: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
9275: FII_UTIL.put_line('-------------------------------------------------');
9276: end if;
9277:
9278: INIT;
9271:
9272: if g_debug_flag = 'Y' then
9273: FII_UTIL.put_line('-------------------------------------------------');
9274: FII_UTIL.put_line('Calling the Init procedure to initialize the global variables');
9275: FII_UTIL.put_line('-------------------------------------------------');
9276: end if;
9277:
9278: INIT;
9279:
9277:
9278: INIT;
9279:
9280: if g_debug_flag = 'Y' then
9281: FII_UTIL.put_line('-------------------------------------------------');
9282: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
9283: FII_UTIL.put_line('-------------------------------------------------');
9284: end if;
9285:
9278: INIT;
9279:
9280: if g_debug_flag = 'Y' then
9281: FII_UTIL.put_line('-------------------------------------------------');
9282: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
9283: FII_UTIL.put_line('-------------------------------------------------');
9284: end if;
9285:
9286: POPULATE_HELPER_TABLES;
9279:
9280: if g_debug_flag = 'Y' then
9281: FII_UTIL.put_line('-------------------------------------------------');
9282: FII_UTIL.put_line('Populating dimension helper tables fii_ar_help_mkt_classes and fii_ar_help_collectors');
9283: FII_UTIL.put_line('-------------------------------------------------');
9284: end if;
9285:
9286: POPULATE_HELPER_TABLES;
9287:
9285:
9286: POPULATE_HELPER_TABLES;
9287:
9288: if g_debug_flag = 'Y' then
9289: FII_UTIL.put_line('-------------------------------------------------');
9290: FII_UTIL.put_line('Calling the Inc_Prepare procedure to prepare for the incremental load');
9291: FII_UTIL.put_line('-------------------------------------------------');
9292: end if;
9293:
9286: POPULATE_HELPER_TABLES;
9287:
9288: if g_debug_flag = 'Y' then
9289: FII_UTIL.put_line('-------------------------------------------------');
9290: FII_UTIL.put_line('Calling the Inc_Prepare procedure to prepare for the incremental load');
9291: FII_UTIL.put_line('-------------------------------------------------');
9292: end if;
9293:
9294: Inc_Prepare;
9287:
9288: if g_debug_flag = 'Y' then
9289: FII_UTIL.put_line('-------------------------------------------------');
9290: FII_UTIL.put_line('Calling the Inc_Prepare procedure to prepare for the incremental load');
9291: FII_UTIL.put_line('-------------------------------------------------');
9292: end if;
9293:
9294: Inc_Prepare;
9295:
9294: Inc_Prepare;
9295:
9296:
9297: if g_debug_flag = 'Y' then
9298: FII_UTIL.put_line('-------------------------------------------------');
9299: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
9300: FII_UTIL.put_line('-------------------------------------------------');
9301: end if;
9302:
9295:
9296:
9297: if g_debug_flag = 'Y' then
9298: FII_UTIL.put_line('-------------------------------------------------');
9299: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
9300: FII_UTIL.put_line('-------------------------------------------------');
9301: end if;
9302:
9303: GET_BUCKET_RANGES;
9296:
9297: if g_debug_flag = 'Y' then
9298: FII_UTIL.put_line('-------------------------------------------------');
9299: FII_UTIL.put_line('Calling the GET_BUCKET_RANGES procedure to load and validate bucket range definitions');
9300: FII_UTIL.put_line('-------------------------------------------------');
9301: end if;
9302:
9303: GET_BUCKET_RANGES;
9304:
9306: g_state := 'Truncating table FII_AR_CURR_RATES_T';
9307: TRUNCATE_TABLE('FII_AR_CURR_RATES_T');
9308:
9309: if g_debug_flag = 'Y' then
9310: FII_UTIL.put_line('-------------------------------------------------');
9311: FII_UTIL.put_line('Calling the Inc_RATES procedure to insert the missing rate info');
9312: FII_UTIL.put_line('-------------------------------------------------');
9313: end if;
9314:
9307: TRUNCATE_TABLE('FII_AR_CURR_RATES_T');
9308:
9309: if g_debug_flag = 'Y' then
9310: FII_UTIL.put_line('-------------------------------------------------');
9311: FII_UTIL.put_line('Calling the Inc_RATES procedure to insert the missing rate info');
9312: FII_UTIL.put_line('-------------------------------------------------');
9313: end if;
9314:
9315: Inc_RATES;
9308:
9309: if g_debug_flag = 'Y' then
9310: FII_UTIL.put_line('-------------------------------------------------');
9311: FII_UTIL.put_line('Calling the Inc_RATES procedure to insert the missing rate info');
9312: FII_UTIL.put_line('-------------------------------------------------');
9313: end if;
9314:
9315: Inc_RATES;
9316:
9314:
9315: Inc_RATES;
9316:
9317: if g_debug_flag = 'Y' then
9318: FII_UTIL.put_line('-------------------------------------------------');
9319: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
9320: FII_UTIL.put_line('-------------------------------------------------');
9321: end if;
9322:
9315: Inc_RATES;
9316:
9317: if g_debug_flag = 'Y' then
9318: FII_UTIL.put_line('-------------------------------------------------');
9319: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
9320: FII_UTIL.put_line('-------------------------------------------------');
9321: end if;
9322:
9323: IF (VERIFY_MISSING_RATES = -1) THEN
9316:
9317: if g_debug_flag = 'Y' then
9318: FII_UTIL.put_line('-------------------------------------------------');
9319: FII_UTIL.put_line('Calling the Verify_Missing_Rates procedure');
9320: FII_UTIL.put_line('-------------------------------------------------');
9321: end if;
9322:
9323: IF (VERIFY_MISSING_RATES = -1) THEN
9324: g_retcode := -1;
9332: -----------------------------------------------------------------------
9333: ELSE
9334:
9335: if g_debug_flag = 'Y' then
9336: FII_UTIL.put_line('-------------------------------------------------');
9337: FII_UTIL.put_line('Calling procedure Inc_PAYMENT_SCHEDULES');
9338: FII_UTIL.put_line('-------------------------------------------------');
9339: end if;
9340: Inc_PAYMENT_SCHEDULES;
9333: ELSE
9334:
9335: if g_debug_flag = 'Y' then
9336: FII_UTIL.put_line('-------------------------------------------------');
9337: FII_UTIL.put_line('Calling procedure Inc_PAYMENT_SCHEDULES');
9338: FII_UTIL.put_line('-------------------------------------------------');
9339: end if;
9340: Inc_PAYMENT_SCHEDULES;
9341:
9334:
9335: if g_debug_flag = 'Y' then
9336: FII_UTIL.put_line('-------------------------------------------------');
9337: FII_UTIL.put_line('Calling procedure Inc_PAYMENT_SCHEDULES');
9338: FII_UTIL.put_line('-------------------------------------------------');
9339: end if;
9340: Inc_PAYMENT_SCHEDULES;
9341:
9342:
9340: Inc_PAYMENT_SCHEDULES;
9341:
9342:
9343: if g_debug_flag = 'Y' then
9344: FII_UTIL.put_line('-------------------------------------------------');
9345: FII_UTIL.put_line('Calling procedure Inc_DISPUTES');
9346: FII_UTIL.put_line('-------------------------------------------------');
9347: end if;
9348: Inc_DISPUTES;
9341:
9342:
9343: if g_debug_flag = 'Y' then
9344: FII_UTIL.put_line('-------------------------------------------------');
9345: FII_UTIL.put_line('Calling procedure Inc_DISPUTES');
9346: FII_UTIL.put_line('-------------------------------------------------');
9347: end if;
9348: Inc_DISPUTES;
9349:
9342:
9343: if g_debug_flag = 'Y' then
9344: FII_UTIL.put_line('-------------------------------------------------');
9345: FII_UTIL.put_line('Calling procedure Inc_DISPUTES');
9346: FII_UTIL.put_line('-------------------------------------------------');
9347: end if;
9348: Inc_DISPUTES;
9349:
9350:
9348: Inc_DISPUTES;
9349:
9350:
9351: if g_debug_flag = 'Y' then
9352: FII_UTIL.put_line('-------------------------------------------------');
9353: FII_UTIL.put_line('Calling procedure Inc_TRANSACTIONS');
9354: FII_UTIL.put_line('-------------------------------------------------');
9355: end if;
9356: Inc_TRANSACTIONS;
9349:
9350:
9351: if g_debug_flag = 'Y' then
9352: FII_UTIL.put_line('-------------------------------------------------');
9353: FII_UTIL.put_line('Calling procedure Inc_TRANSACTIONS');
9354: FII_UTIL.put_line('-------------------------------------------------');
9355: end if;
9356: Inc_TRANSACTIONS;
9357:
9350:
9351: if g_debug_flag = 'Y' then
9352: FII_UTIL.put_line('-------------------------------------------------');
9353: FII_UTIL.put_line('Calling procedure Inc_TRANSACTIONS');
9354: FII_UTIL.put_line('-------------------------------------------------');
9355: end if;
9356: Inc_TRANSACTIONS;
9357:
9358:
9356: Inc_TRANSACTIONS;
9357:
9358:
9359: if g_debug_flag = 'Y' then
9360: FII_UTIL.put_line('-------------------------------------------------');
9361: FII_UTIL.put_line('Calling procedure Inc_ADJUSTMENTS');
9362: FII_UTIL.put_line('-------------------------------------------------');
9363: end if;
9364: Inc_ADJUSTMENTS;
9357:
9358:
9359: if g_debug_flag = 'Y' then
9360: FII_UTIL.put_line('-------------------------------------------------');
9361: FII_UTIL.put_line('Calling procedure Inc_ADJUSTMENTS');
9362: FII_UTIL.put_line('-------------------------------------------------');
9363: end if;
9364: Inc_ADJUSTMENTS;
9365:
9358:
9359: if g_debug_flag = 'Y' then
9360: FII_UTIL.put_line('-------------------------------------------------');
9361: FII_UTIL.put_line('Calling procedure Inc_ADJUSTMENTS');
9362: FII_UTIL.put_line('-------------------------------------------------');
9363: end if;
9364: Inc_ADJUSTMENTS;
9365:
9366:
9364: Inc_ADJUSTMENTS;
9365:
9366:
9367: if g_debug_flag = 'Y' then
9368: FII_UTIL.put_line('-------------------------------------------------');
9369: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS');
9370: FII_UTIL.put_line('-------------------------------------------------');
9371: end if;
9372: Inc_RECEIPTS;
9365:
9366:
9367: if g_debug_flag = 'Y' then
9368: FII_UTIL.put_line('-------------------------------------------------');
9369: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS');
9370: FII_UTIL.put_line('-------------------------------------------------');
9371: end if;
9372: Inc_RECEIPTS;
9373:
9366:
9367: if g_debug_flag = 'Y' then
9368: FII_UTIL.put_line('-------------------------------------------------');
9369: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS');
9370: FII_UTIL.put_line('-------------------------------------------------');
9371: end if;
9372: Inc_RECEIPTS;
9373:
9374:
9373:
9374:
9375: /*
9376: if g_debug_flag = 'Y' then
9377: FII_UTIL.put_line('-------------------------------------------------');
9378: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
9379: FII_UTIL.put_line('-------------------------------------------------');
9380: end if;
9381: POPULATE_SCHEDULED_DISCOUNTS;
9374:
9375: /*
9376: if g_debug_flag = 'Y' then
9377: FII_UTIL.put_line('-------------------------------------------------');
9378: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
9379: FII_UTIL.put_line('-------------------------------------------------');
9380: end if;
9381: POPULATE_SCHEDULED_DISCOUNTS;
9382: */
9375: /*
9376: if g_debug_flag = 'Y' then
9377: FII_UTIL.put_line('-------------------------------------------------');
9378: FII_UTIL.put_line('Calling procedure POPULATE_SCHEDULED_DISCOUNTS');
9379: FII_UTIL.put_line('-------------------------------------------------');
9380: end if;
9381: POPULATE_SCHEDULED_DISCOUNTS;
9382: */
9383:
9384: ----------------------------------------------------------
9385: ---------- Inc load of FII_AR_AGING_RECEIVABLES-----------
9386: ----------------------------------------------------------
9387: if g_debug_flag = 'Y' then
9388: FII_UTIL.put_line('-------------------------------------------------');
9389: FII_UTIL.put_line('Calling the CLEAN_REC_AGING procedure to delete from fii_ar_aging_receivables');
9390: FII_UTIL.put_line('-------------------------------------------------');
9391: end if;
9392: CLEAN_REC_AGING;
9385: ---------- Inc load of FII_AR_AGING_RECEIVABLES-----------
9386: ----------------------------------------------------------
9387: if g_debug_flag = 'Y' then
9388: FII_UTIL.put_line('-------------------------------------------------');
9389: FII_UTIL.put_line('Calling the CLEAN_REC_AGING procedure to delete from fii_ar_aging_receivables');
9390: FII_UTIL.put_line('-------------------------------------------------');
9391: end if;
9392: CLEAN_REC_AGING;
9393:
9386: ----------------------------------------------------------
9387: if g_debug_flag = 'Y' then
9388: FII_UTIL.put_line('-------------------------------------------------');
9389: FII_UTIL.put_line('Calling the CLEAN_REC_AGING procedure to delete from fii_ar_aging_receivables');
9390: FII_UTIL.put_line('-------------------------------------------------');
9391: end if;
9392: CLEAN_REC_AGING;
9393:
9394: if g_debug_flag = 'Y' then
9391: end if;
9392: CLEAN_REC_AGING;
9393:
9394: if g_debug_flag = 'Y' then
9395: FII_UTIL.put_line('-------------------------------------------------');
9396: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_IDS procedure');
9397: FII_UTIL.put_line('-------------------------------------------------');
9398: end if;
9399: POPULATE_INCREMENTAL_IDS;
9392: CLEAN_REC_AGING;
9393:
9394: if g_debug_flag = 'Y' then
9395: FII_UTIL.put_line('-------------------------------------------------');
9396: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_IDS procedure');
9397: FII_UTIL.put_line('-------------------------------------------------');
9398: end if;
9399: POPULATE_INCREMENTAL_IDS;
9400:
9393:
9394: if g_debug_flag = 'Y' then
9395: FII_UTIL.put_line('-------------------------------------------------');
9396: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_IDS procedure');
9397: FII_UTIL.put_line('-------------------------------------------------');
9398: end if;
9399: POPULATE_INCREMENTAL_IDS;
9400:
9401: if g_debug_flag = 'Y' then
9398: end if;
9399: POPULATE_INCREMENTAL_IDS;
9400:
9401: if g_debug_flag = 'Y' then
9402: FII_UTIL.put_line('-------------------------------------------------');
9403: FII_UTIL.put_line('Calling procedure Inc_RECEIVABLES_AGING');
9404: FII_UTIL.put_line('-------------------------------------------------');
9405: end if;
9406: Inc_RECEIVABLES_AGING;
9399: POPULATE_INCREMENTAL_IDS;
9400:
9401: if g_debug_flag = 'Y' then
9402: FII_UTIL.put_line('-------------------------------------------------');
9403: FII_UTIL.put_line('Calling procedure Inc_RECEIVABLES_AGING');
9404: FII_UTIL.put_line('-------------------------------------------------');
9405: end if;
9406: Inc_RECEIVABLES_AGING;
9407:
9400:
9401: if g_debug_flag = 'Y' then
9402: FII_UTIL.put_line('-------------------------------------------------');
9403: FII_UTIL.put_line('Calling procedure Inc_RECEIVABLES_AGING');
9404: FII_UTIL.put_line('-------------------------------------------------');
9405: end if;
9406: Inc_RECEIVABLES_AGING;
9407:
9408: ----------------------------------------------------------
9408: ----------------------------------------------------------
9409: ---------- Inc load of FII_AR_AGING_RECEIPTS--------------
9410: ----------------------------------------------------------
9411: if g_debug_flag = 'Y' then
9412: FII_UTIL.put_line('-------------------------------------------------');
9413: FII_UTIL.put_line('Calling the CLEAN_RCT_AGING procedure to delete from fii_ar_aging_receipts');
9414: FII_UTIL.put_line('-------------------------------------------------');
9415: end if;
9416: CLEAN_RCT_AGING;
9409: ---------- Inc load of FII_AR_AGING_RECEIPTS--------------
9410: ----------------------------------------------------------
9411: if g_debug_flag = 'Y' then
9412: FII_UTIL.put_line('-------------------------------------------------');
9413: FII_UTIL.put_line('Calling the CLEAN_RCT_AGING procedure to delete from fii_ar_aging_receipts');
9414: FII_UTIL.put_line('-------------------------------------------------');
9415: end if;
9416: CLEAN_RCT_AGING;
9417:
9410: ----------------------------------------------------------
9411: if g_debug_flag = 'Y' then
9412: FII_UTIL.put_line('-------------------------------------------------');
9413: FII_UTIL.put_line('Calling the CLEAN_RCT_AGING procedure to delete from fii_ar_aging_receipts');
9414: FII_UTIL.put_line('-------------------------------------------------');
9415: end if;
9416: CLEAN_RCT_AGING;
9417:
9418: if g_debug_flag = 'Y' then
9415: end if;
9416: CLEAN_RCT_AGING;
9417:
9418: if g_debug_flag = 'Y' then
9419: FII_UTIL.put_line('-------------------------------------------------');
9420: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_RCT_IDS procedure');
9421: FII_UTIL.put_line('-------------------------------------------------');
9422: end if;
9423: POPULATE_INCREMENTAL_RCT_IDS;
9416: CLEAN_RCT_AGING;
9417:
9418: if g_debug_flag = 'Y' then
9419: FII_UTIL.put_line('-------------------------------------------------');
9420: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_RCT_IDS procedure');
9421: FII_UTIL.put_line('-------------------------------------------------');
9422: end if;
9423: POPULATE_INCREMENTAL_RCT_IDS;
9424:
9417:
9418: if g_debug_flag = 'Y' then
9419: FII_UTIL.put_line('-------------------------------------------------');
9420: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_RCT_IDS procedure');
9421: FII_UTIL.put_line('-------------------------------------------------');
9422: end if;
9423: POPULATE_INCREMENTAL_RCT_IDS;
9424:
9425: if g_debug_flag = 'Y' then
9422: end if;
9423: POPULATE_INCREMENTAL_RCT_IDS;
9424:
9425: if g_debug_flag = 'Y' then
9426: FII_UTIL.put_line('-------------------------------------------------');
9427: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS_AGING');
9428: FII_UTIL.put_line('-------------------------------------------------');
9429: end if;
9430: Inc_RECEIPTS_AGING;
9423: POPULATE_INCREMENTAL_RCT_IDS;
9424:
9425: if g_debug_flag = 'Y' then
9426: FII_UTIL.put_line('-------------------------------------------------');
9427: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS_AGING');
9428: FII_UTIL.put_line('-------------------------------------------------');
9429: end if;
9430: Inc_RECEIPTS_AGING;
9431:
9424:
9425: if g_debug_flag = 'Y' then
9426: FII_UTIL.put_line('-------------------------------------------------');
9427: FII_UTIL.put_line('Calling procedure Inc_RECEIPTS_AGING');
9428: FII_UTIL.put_line('-------------------------------------------------');
9429: end if;
9430: Inc_RECEIPTS_AGING;
9431:
9432: ----------------------------------------------------------
9432: ----------------------------------------------------------
9433: ---------- Inc load of FII_AR_AGING_DISPUTES--------------
9434: ----------------------------------------------------------
9435: if g_debug_flag = 'Y' then
9436: FII_UTIL.put_line('-------------------------------------------------');
9437: FII_UTIL.put_line('Calling the CLEAN_DISP_AGING procedure to delete from fii_ar_aging_disputes');
9438: FII_UTIL.put_line('-------------------------------------------------');
9439: end if;
9440: CLEAN_DISP_AGING;
9433: ---------- Inc load of FII_AR_AGING_DISPUTES--------------
9434: ----------------------------------------------------------
9435: if g_debug_flag = 'Y' then
9436: FII_UTIL.put_line('-------------------------------------------------');
9437: FII_UTIL.put_line('Calling the CLEAN_DISP_AGING procedure to delete from fii_ar_aging_disputes');
9438: FII_UTIL.put_line('-------------------------------------------------');
9439: end if;
9440: CLEAN_DISP_AGING;
9441:
9434: ----------------------------------------------------------
9435: if g_debug_flag = 'Y' then
9436: FII_UTIL.put_line('-------------------------------------------------');
9437: FII_UTIL.put_line('Calling the CLEAN_DISP_AGING procedure to delete from fii_ar_aging_disputes');
9438: FII_UTIL.put_line('-------------------------------------------------');
9439: end if;
9440: CLEAN_DISP_AGING;
9441:
9442: if g_debug_flag = 'Y' then
9439: end if;
9440: CLEAN_DISP_AGING;
9441:
9442: if g_debug_flag = 'Y' then
9443: FII_UTIL.put_line('-------------------------------------------------');
9444: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_DISP_IDS procedure');
9445: FII_UTIL.put_line('-------------------------------------------------');
9446: end if;
9447: POPULATE_INCREMENTAL_DISP_IDS;
9440: CLEAN_DISP_AGING;
9441:
9442: if g_debug_flag = 'Y' then
9443: FII_UTIL.put_line('-------------------------------------------------');
9444: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_DISP_IDS procedure');
9445: FII_UTIL.put_line('-------------------------------------------------');
9446: end if;
9447: POPULATE_INCREMENTAL_DISP_IDS;
9448:
9441:
9442: if g_debug_flag = 'Y' then
9443: FII_UTIL.put_line('-------------------------------------------------');
9444: FII_UTIL.put_line('Calling the POPULATE_INCREMENTAL_DISP_IDS procedure');
9445: FII_UTIL.put_line('-------------------------------------------------');
9446: end if;
9447: POPULATE_INCREMENTAL_DISP_IDS;
9448:
9449: if g_debug_flag = 'Y' then
9446: end if;
9447: POPULATE_INCREMENTAL_DISP_IDS;
9448:
9449: if g_debug_flag = 'Y' then
9450: FII_UTIL.put_line('-------------------------------------------------');
9451: FII_UTIL.put_line('Calling procedure Inc_DISPUTES_AGING');
9452: FII_UTIL.put_line('-------------------------------------------------');
9453: FII_UTIL.put_line('');
9454: end if;
9447: POPULATE_INCREMENTAL_DISP_IDS;
9448:
9449: if g_debug_flag = 'Y' then
9450: FII_UTIL.put_line('-------------------------------------------------');
9451: FII_UTIL.put_line('Calling procedure Inc_DISPUTES_AGING');
9452: FII_UTIL.put_line('-------------------------------------------------');
9453: FII_UTIL.put_line('');
9454: end if;
9455: Inc_DISPUTES_AGING;
9448:
9449: if g_debug_flag = 'Y' then
9450: FII_UTIL.put_line('-------------------------------------------------');
9451: FII_UTIL.put_line('Calling procedure Inc_DISPUTES_AGING');
9452: FII_UTIL.put_line('-------------------------------------------------');
9453: FII_UTIL.put_line('');
9454: end if;
9455: Inc_DISPUTES_AGING;
9456:
9449: if g_debug_flag = 'Y' then
9450: FII_UTIL.put_line('-------------------------------------------------');
9451: FII_UTIL.put_line('Calling procedure Inc_DISPUTES_AGING');
9452: FII_UTIL.put_line('-------------------------------------------------');
9453: FII_UTIL.put_line('');
9454: end if;
9455: Inc_DISPUTES_AGING;
9456:
9457:
9488:
9489: COMMIT;
9490:
9491: if g_debug_flag = 'Y' then
9492: FII_UTIL.put_line('return code is ' || retcode);
9493: end if;
9494:
9495: g_retcode := 0;
9496:
9500: g_retcode:= -1;
9501: retcode := g_retcode;
9502: g_exception_msg := g_retcode || ':' || g_errbuf;
9503: if g_debug_flag = 'Y' then
9504: FII_UTIL.put_line('Error occured while: ' || g_state);
9505: end if;
9506: FII_UTIL.put_line(g_exception_msg);
9507:
9508: -- dbms_output.put_line('Error occured while: ' || g_state);
9502: g_exception_msg := g_retcode || ':' || g_errbuf;
9503: if g_debug_flag = 'Y' then
9504: FII_UTIL.put_line('Error occured while: ' || g_state);
9505: end if;
9506: FII_UTIL.put_line(g_exception_msg);
9507:
9508: -- dbms_output.put_line('Error occured while: ' || g_state);
9509: -- dbms_output.put_line('Error Message: ' || g_exception_msg);
9510: