39: -- Set default directory in CASE if the profile option
40: -- BIS_DEBUG_LOG_DIRECTORY is not set up
41: ------------------------------------------------------
42: if l_dir is NULL THEN
43: l_dir := FII_UTIL.get_utl_file_dir;
44: end if;
45:
46: ----------------------------------------------------------------
47: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
43: l_dir := FII_UTIL.get_utl_file_dir;
44: end if;
45:
46: ----------------------------------------------------------------
47: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
48: -- AND BIS_DEBUG_LOG_DIRECTORY AND set up the directory WHERE
49: -- the log files AND output files are written to
50: ----------------------------------------------------------------
51: FII_UTIL.initialize('FII_AR_TPDUE_TBL_REFRESH.log',
47: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
48: -- AND BIS_DEBUG_LOG_DIRECTORY AND set up the directory WHERE
49: -- the log files AND output files are written to
50: ----------------------------------------------------------------
51: FII_UTIL.initialize('FII_AR_TPDUE_TBL_REFRESH.log',
52: 'FII_AR_TPDUE_TBL_REFRESH.out',l_dir,
53: 'FII_AR_TPDUE_TBL_REFRESH');
54:
55: g_phase := 'Obtain FII schema name AND other info';
54:
55: g_phase := 'Obtain FII schema name AND other info';
56:
57: -- Obtain FII schema name
58: g_schema_name := FII_UTIL.get_schema_name ('FII');
59:
60: -- Obtain user ID, login ID AND sysdate
61: g_fii_user_id := FND_GLOBAL.USER_ID;
62: g_fii_login_id := FND_GLOBAL.LOGIN_ID;
65:
66: g_phase := 'Check FII schema name AND other info';
67: -- If any of the above values is not set, error out
68: IF (g_fii_user_id is NULL OR g_fii_login_id is NULL) THEN
69: FII_UTIL.Write_Log ('>>> Failed Intialization (login info not available)');
70: RAISE G_LOGIN_INFO_NOT_AVABLE;
71: END IF;
72:
73: -- Determine if process will be run in debug mode
71: END IF;
72:
73: -- Determine if process will be run in debug mode
74: IF g_debug_flag = 'Y' THEN
75: FII_UTIL.Write_Log ('Debug On');
76: ELSE
77: FII_UTIL.Write_Log ('Debug Off');
78: END IF;
79:
73: -- Determine if process will be run in debug mode
74: IF g_debug_flag = 'Y' THEN
75: FII_UTIL.Write_Log ('Debug On');
76: ELSE
77: FII_UTIL.Write_Log ('Debug Off');
78: END IF;
79:
80: IF g_debug_flag = 'Y' THEN
81: FII_UTIL.Write_Log ('Initialize: Now start processing... ');
77: FII_UTIL.Write_Log ('Debug Off');
78: END IF;
79:
80: IF g_debug_flag = 'Y' THEN
81: FII_UTIL.Write_Log ('Initialize: Now start processing... ');
82: End If;
83:
84: Exception
85:
83:
84: Exception
85:
86: When others THEN
87: FII_UTIL.Write_Log ('Unexpected error WHEN calling Initialize...');
88: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
89: FII_UTIL.Write_Log ('Error Message: '|| substr(sqlerrm,1,180));
90: RAISE;
91:
84: Exception
85:
86: When others THEN
87: FII_UTIL.Write_Log ('Unexpected error WHEN calling Initialize...');
88: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
89: FII_UTIL.Write_Log ('Error Message: '|| substr(sqlerrm,1,180));
90: RAISE;
91:
92: END Initialize;
85:
86: When others THEN
87: FII_UTIL.Write_Log ('Unexpected error WHEN calling Initialize...');
88: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
89: FII_UTIL.Write_Log ('Error Message: '|| substr(sqlerrm,1,180));
90: RAISE;
91:
92: END Initialize;
93:
109: BEGIN
110: g_self_msg := FND_MESSAGE.get_string('FII', 'FII_AR_SELF');
111: g_phase := 'Entering FII_AR_TPDUE_BASE_F';
112: IF g_debug_flag = 'Y' THEN
113: FII_UTIL.Write_Log ('> Entering FII_AR_TPDUE_BASE_F');
114: FII_UTIL.start_timer();
115: END IF;
116:
117:
110: g_self_msg := FND_MESSAGE.get_string('FII', 'FII_AR_SELF');
111: g_phase := 'Entering FII_AR_TPDUE_BASE_F';
112: IF g_debug_flag = 'Y' THEN
113: FII_UTIL.Write_Log ('> Entering FII_AR_TPDUE_BASE_F');
114: FII_UTIL.start_timer();
115: END IF;
116:
117:
118: g_phase := 'Populate l_this_date FROM BIS_SYSTEM_DATE';
154:
155: FROM DUAL;*/
156:
157: IF g_debug_flag = 'Y' THEN
158: FII_UTIL.Write_Log ('>> l_this_date = ' || l_this_date);
159: END IF;
160:
161: --Always do a full refresh for snapshot tables
162: g_phase := 'Truncate table FII_AR_TPDUE_BASE_F';
159: END IF;
160:
161: --Always do a full refresh for snapshot tables
162: g_phase := 'Truncate table FII_AR_TPDUE_BASE_F';
163: FII_UTIL.truncate_table ('FII_AR_TPDUE_BASE_F', 'FII', g_retcode);
164:
165: g_phase := 'Starting to populate table FII_AR_TPDUE_BASE_F';
166: IF g_debug_flag = 'Y' THEN
167: FII_UTIL.Write_Log ('>> Starting to populate table FII_AR_TPDUE_BASE_F');
163: FII_UTIL.truncate_table ('FII_AR_TPDUE_BASE_F', 'FII', g_retcode);
164:
165: g_phase := 'Starting to populate table FII_AR_TPDUE_BASE_F';
166: IF g_debug_flag = 'Y' THEN
167: FII_UTIL.Write_Log ('>> Starting to populate table FII_AR_TPDUE_BASE_F');
168: END IF;
169:
170:
171: --------------------------------------------------------------------------
291:
292:
293:
294: IF g_debug_flag = 'Y' THEN
295: FII_UTIL.stop_timer();
296: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F from fii_ar_net_rec_base_mv has been populated successfully');
297: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
298: FII_UTIL.print_timer();
299: END IF;
292:
293:
294: IF g_debug_flag = 'Y' THEN
295: FII_UTIL.stop_timer();
296: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F from fii_ar_net_rec_base_mv has been populated successfully');
297: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
298: FII_UTIL.print_timer();
299: END IF;
300: commit;
293:
294: IF g_debug_flag = 'Y' THEN
295: FII_UTIL.stop_timer();
296: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F from fii_ar_net_rec_base_mv has been populated successfully');
297: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
298: FII_UTIL.print_timer();
299: END IF;
300: commit;
301: --------------------------------------------------------------------------
294: IF g_debug_flag = 'Y' THEN
295: FII_UTIL.stop_timer();
296: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F from fii_ar_net_rec_base_mv has been populated successfully');
297: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
298: FII_UTIL.print_timer();
299: END IF;
300: commit;
301: --------------------------------------------------------------------------
302: --Insert data FROM fii_ar_disputes_base_mv by joining
392:
393:
394:
395: IF g_debug_flag = 'Y' THEN
396: FII_UTIL.stop_timer();
397: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F has been populated from fii_ar_disputes_base_mv successfully');
398: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
399: FII_UTIL.print_timer();
400: END IF;
393:
394:
395: IF g_debug_flag = 'Y' THEN
396: FII_UTIL.stop_timer();
397: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F has been populated from fii_ar_disputes_base_mv successfully');
398: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
399: FII_UTIL.print_timer();
400: END IF;
401:
394:
395: IF g_debug_flag = 'Y' THEN
396: FII_UTIL.stop_timer();
397: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F has been populated from fii_ar_disputes_base_mv successfully');
398: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
399: FII_UTIL.print_timer();
400: END IF;
401:
402: g_phase := 'Gather table stats for FII_AR_TPDUE_BASE_F';
395: IF g_debug_flag = 'Y' THEN
396: FII_UTIL.stop_timer();
397: FII_UTIL.Write_Log ('FII_AR_TPDUE_BASE_F has been populated from fii_ar_disputes_base_mv successfully');
398: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
399: FII_UTIL.print_timer();
400: END IF;
401:
402: g_phase := 'Gather table stats for FII_AR_TPDUE_BASE_F';
403: fnd_stats.gather_table_stats (ownname=>g_schema_name,
406: g_phase := 'Commit the change';
407: commit;
408:
409: IF g_debug_flag = 'Y' THEN
410: FII_UTIL.Write_Log ('< Leaving FII_AR_TPDUE_BASE_F');
411: FII_UTIL.Write_Log (' ');
412: END IF;
413:
414: EXCEPTION
407: commit;
408:
409: IF g_debug_flag = 'Y' THEN
410: FII_UTIL.Write_Log ('< Leaving FII_AR_TPDUE_BASE_F');
411: FII_UTIL.Write_Log (' ');
412: END IF;
413:
414: EXCEPTION
415: WHEN no_data_found THEN
418: token_num => 0);
419: raise;
420:
421: WHEN OTHERS THEN
422: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_BASE_F ');
423: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
424: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
425: rollback;
426: raise;
419: raise;
420:
421: WHEN OTHERS THEN
422: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_BASE_F ');
423: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
424: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
425: rollback;
426: raise;
427:
420:
421: WHEN OTHERS THEN
422: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_BASE_F ');
423: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
424: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
425: rollback;
426: raise;
427:
428: END REFRESH_AR_TPDUE_BASE_F;
445: BEGIN
446:
447: g_phase := 'Entering FII_AR_TPDUE_AGRT_F';
448: IF g_debug_flag = 'Y' THEN
449: FII_UTIL.Write_Log ('> Entering FII_AR_TPDUE_AGRT_F');
450: FII_UTIL.start_timer();
451: END IF;
452:
453:
446:
447: g_phase := 'Entering FII_AR_TPDUE_AGRT_F';
448: IF g_debug_flag = 'Y' THEN
449: FII_UTIL.Write_Log ('> Entering FII_AR_TPDUE_AGRT_F');
450: FII_UTIL.start_timer();
451: END IF;
452:
453:
454: g_phase := 'Populate l_this_date FROM BIS_SYSTEM_DATE';
485:
486: FROM DUAL;*/
487:
488: IF g_debug_flag = 'Y' THEN
489: FII_UTIL.Write_Log ('>> l_this_date = ' || l_this_date);
490: END IF;
491:
492: --Always do a full refresh for snapshot tables
493: g_phase := 'Truncate table FII_AR_TPDUE_AGRT_F';
490: END IF;
491:
492: --Always do a full refresh for snapshot tables
493: g_phase := 'Truncate table FII_AR_TPDUE_AGRT_F';
494: FII_UTIL.truncate_table ('FII_AR_TPDUE_AGRT_F', 'FII', g_retcode);
495:
496: g_phase := 'Starting to populate table FII_AR_TPDUE_AGRT_F';
497: IF g_debug_flag = 'Y' THEN
498: FII_UTIL.Write_Log ('>> Starting to populate table FII_AR_TPDUE_AGRT_F');
494: FII_UTIL.truncate_table ('FII_AR_TPDUE_AGRT_F', 'FII', g_retcode);
495:
496: g_phase := 'Starting to populate table FII_AR_TPDUE_AGRT_F';
497: IF g_debug_flag = 'Y' THEN
498: FII_UTIL.Write_Log ('>> Starting to populate table FII_AR_TPDUE_AGRT_F');
499: END IF;
500:
501:
502: --------------------------------------------------------------------------
626:
627:
628:
629: IF g_debug_flag = 'Y' THEN
630: FII_UTIL.stop_timer();
631: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F from fii_ar_net_rec_agrt_mv has been populated successfully');
632: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
633: FII_UTIL.print_timer();
634: END IF;
627:
628:
629: IF g_debug_flag = 'Y' THEN
630: FII_UTIL.stop_timer();
631: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F from fii_ar_net_rec_agrt_mv has been populated successfully');
632: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
633: FII_UTIL.print_timer();
634: END IF;
635: commit;
628:
629: IF g_debug_flag = 'Y' THEN
630: FII_UTIL.stop_timer();
631: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F from fii_ar_net_rec_agrt_mv has been populated successfully');
632: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
633: FII_UTIL.print_timer();
634: END IF;
635: commit;
636: --------------------------------------------------------------------------
629: IF g_debug_flag = 'Y' THEN
630: FII_UTIL.stop_timer();
631: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F from fii_ar_net_rec_agrt_mv has been populated successfully');
632: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
633: FII_UTIL.print_timer();
634: END IF;
635: commit;
636: --------------------------------------------------------------------------
637: --Insert data FROM fii_ar_disputes_agrt_mv by joining
731: CUST_CHILD_PARTY_ID;
732:
733:
734: IF g_debug_flag = 'Y' THEN
735: FII_UTIL.stop_timer();
736: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F has been populated from fii_ar_disputes_agrt_mv successfully');
737: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
738: FII_UTIL.print_timer();
739: END IF;
732:
733:
734: IF g_debug_flag = 'Y' THEN
735: FII_UTIL.stop_timer();
736: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F has been populated from fii_ar_disputes_agrt_mv successfully');
737: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
738: FII_UTIL.print_timer();
739: END IF;
740:
733:
734: IF g_debug_flag = 'Y' THEN
735: FII_UTIL.stop_timer();
736: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F has been populated from fii_ar_disputes_agrt_mv successfully');
737: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
738: FII_UTIL.print_timer();
739: END IF;
740:
741: g_phase := 'Gather table stats for FII_AR_TPDUE_AGRT_F';
734: IF g_debug_flag = 'Y' THEN
735: FII_UTIL.stop_timer();
736: FII_UTIL.Write_Log ('FII_AR_TPDUE_AGRT_F has been populated from fii_ar_disputes_agrt_mv successfully');
737: FII_UTIL.Write_Log ('Inserted ' || SQL%ROWCOUNT || ' rows');
738: FII_UTIL.print_timer();
739: END IF;
740:
741: g_phase := 'Gather table stats for FII_AR_TPDUE_AGRT_F';
742: fnd_stats.gather_table_stats (ownname=>g_schema_name,
745: g_phase := 'Commit the change';
746: commit;
747:
748: IF g_debug_flag = 'Y' THEN
749: FII_UTIL.Write_Log ('< Leaving FII_AR_TPDUE_AGRT_F');
750: FII_UTIL.Write_Log (' ');
751: END IF;
752:
753: EXCEPTION
746: commit;
747:
748: IF g_debug_flag = 'Y' THEN
749: FII_UTIL.Write_Log ('< Leaving FII_AR_TPDUE_AGRT_F');
750: FII_UTIL.Write_Log (' ');
751: END IF;
752:
753: EXCEPTION
754: WHEN no_data_found THEN
757: token_num => 0);
758: raise;
759:
760: WHEN OTHERS THEN
761: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_AGRT_F ');
762: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
763: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
764: rollback;
765: raise;
758: raise;
759:
760: WHEN OTHERS THEN
761: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_AGRT_F ');
762: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
763: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
764: rollback;
765: raise;
766:
759:
760: WHEN OTHERS THEN
761: FII_UTIL.Write_Log ('Other error in REFRESH_AR_TPDUE_AGRT_F ');
762: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
763: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
764: rollback;
765: raise;
766:
767: END REFRESH_AR_TPDUE_AGRT_F;
781: Begin
782:
783: g_phase := 'Entering Main';
784: IF g_debug_flag = 'Y' THEN
785: FII_UTIL.Write_Log ('Entering Main');
786: END IF;
787:
788: g_phase := 'Calling Initialize';
789: IF g_debug_flag = 'Y' THEN
786: END IF;
787:
788: g_phase := 'Calling Initialize';
789: IF g_debug_flag = 'Y' THEN
790: FII_UTIL.Write_Log ('Calling Initialize');
791: END IF;
792:
793: Initialize;
794:
793: Initialize;
794:
795: g_phase := 'Populating FII_AR_TPDUE_BASE_F';
796: IF g_debug_flag = 'Y' THEN
797: FII_UTIL.Write_Log ('Populating FII_AR_TPDUE_BASE_F');
798: END IF;
799:
800: REFRESH_AR_TPDUE_BASE_F;
801:
800: REFRESH_AR_TPDUE_BASE_F;
801:
802: g_phase := 'Populating FII_AR_TPDUE_AGRT_F';
803: IF g_debug_flag = 'Y' THEN
804: FII_UTIL.Write_Log ('Populating FII_AR_TPDUE_AGRT_F');
805: END IF;
806:
807: REFRESH_AR_TPDUE_AGRT_F;
808:
808:
809:
810: g_phase := 'Exiting after successful completion';
811: IF g_debug_flag = 'Y' THEN
812: FII_UTIL.Write_Log ('Exiting after successful completion');
813: END IF;
814:
815:
816: EXCEPTION
816: EXCEPTION
817:
818: WHEN OTHERS THEN
819:
820: FII_UTIL.Write_Log ('Other error in Main ');
821: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
822: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
823:
824: FND_CONCURRENT.Af_Rollback;
817:
818: WHEN OTHERS THEN
819:
820: FII_UTIL.Write_Log ('Other error in Main ');
821: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
822: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
823:
824: FND_CONCURRENT.Af_Rollback;
825: retcode := sqlcode;
818: WHEN OTHERS THEN
819:
820: FII_UTIL.Write_Log ('Other error in Main ');
821: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
822: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
823:
824: FND_CONCURRENT.Af_Rollback;
825: retcode := sqlcode;
826: errbuf := sqlerrm;