63: -- Create an anonymous pl/sql block to call the procedure sum_proc
64: str := 'begin '|| UPPER(sum_proc) || '(); end;';
65:
66: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
67: fnd_message.set_name ('FND', 'CALLING_SUMMARIZER_PROC');
68: fnd_message.set_token ('PROCEDURE',sum_proc, FALSE);
69: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT, ' FND_CONC_SUMMARIZER.execute_summarizer',TRUE);
70: end if;
71:
64: str := 'begin '|| UPPER(sum_proc) || '(); end;';
65:
66: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
67: fnd_message.set_name ('FND', 'CALLING_SUMMARIZER_PROC');
68: fnd_message.set_token ('PROCEDURE',sum_proc, FALSE);
69: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT, ' FND_CONC_SUMMARIZER.execute_summarizer',TRUE);
70: end if;
71:
72: -- Use Dynamic sql to execute the procedure passed as an argument
72: -- Use Dynamic sql to execute the procedure passed as an argument
73: EXECUTE IMMEDIATE str;
74:
75: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
76: fnd_message.set_name ('FND','RETURNING_SUMMARIZER_PROC');
77: fnd_message.set_token ('PROCEDURE',sum_proc, FALSE);
78: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT, ' FND_CONC_SUMMARIZER.execute_summarizer',TRUE);
79: end if;
80:
73: EXECUTE IMMEDIATE str;
74:
75: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
76: fnd_message.set_name ('FND','RETURNING_SUMMARIZER_PROC');
77: fnd_message.set_token ('PROCEDURE',sum_proc, FALSE);
78: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT, ' FND_CONC_SUMMARIZER.execute_summarizer',TRUE);
79: end if;
80:
81: -- Parse the pl/sql table to return name=value separated by ;
95: exception
96:
97: when others then
98: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
99: fnd_message.set_name ('FND', 'SQL-Generic error');
100: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
101: fnd_message.set_token ('REASON', sqlerrm, FALSE);
102: fnd_message.set_token ( 'ROUTINE',' FND_CONC_SUMMARIZER.execute_summarizer', FALSE);
103: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,' FND_CONC_SUMMARIZER.execute_summarizer',FALSE);
96:
97: when others then
98: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
99: fnd_message.set_name ('FND', 'SQL-Generic error');
100: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
101: fnd_message.set_token ('REASON', sqlerrm, FALSE);
102: fnd_message.set_token ( 'ROUTINE',' FND_CONC_SUMMARIZER.execute_summarizer', FALSE);
103: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,' FND_CONC_SUMMARIZER.execute_summarizer',FALSE);
104: end if;
97: when others then
98: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
99: fnd_message.set_name ('FND', 'SQL-Generic error');
100: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
101: fnd_message.set_token ('REASON', sqlerrm, FALSE);
102: fnd_message.set_token ( 'ROUTINE',' FND_CONC_SUMMARIZER.execute_summarizer', FALSE);
103: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,' FND_CONC_SUMMARIZER.execute_summarizer',FALSE);
104: end if;
105: return return_str;
98: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
99: fnd_message.set_name ('FND', 'SQL-Generic error');
100: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
101: fnd_message.set_token ('REASON', sqlerrm, FALSE);
102: fnd_message.set_token ( 'ROUTINE',' FND_CONC_SUMMARIZER.execute_summarizer', FALSE);
103: FND_LOG.MESSAGE(FND_LOG.LEVEL_STATEMENT,' FND_CONC_SUMMARIZER.execute_summarizer',FALSE);
104: end if;
105: return return_str;
106: end;
136: cnt number := 0;
137: --temp_name varchar2(100);
138: begin
139:
140: --temp_name := fnd_message.get_string('FND', 'FND_CONC_REQUESTS');
141:
142: -- FND_CONCURRENT_REQUEST table count
143: select count(*)
144: into cnt
146: where phase_code = 'C';
147:
148: insert_row('Concurrent Requests', to_char(cnt));
149:
150: --temp_name := fnd_message.get_string('FND', 'FND_CONC_PROCESSES');
151:
152: -- FND_CONCURRENT_PROCESSES
153: select count(*)
154: into cnt
156: where process_status_code not in ('A', 'C', 'T', 'M');
157:
158: insert_row('Concurrent Processes', to_char(cnt));
159:
160: --temp_name := fnd_message.get_string('FND', 'FND_CRM_HISTORY');
161:
162: -- FND_CRM_HISTORY
163: select count(*)
164: into cnt
166: where work_start < sysdate -1 ;
167:
168: insert_row('Conflict Resolution History', to_char(cnt));
169:
170: --temp_name := fnd_message.get_string('FND', 'FND_TM_EVENTS');
171:
172: -- FND_TM_EVENTS
173: select count(*)
174: into cnt
176: where event_type in (1,2,3,4) and timestamp < sysdate -1 ;
177:
178: insert_row('Transaction Management Events', to_char(cnt));
179:
180: --temp_name := fnd_message.get_string('FND', 'FND_TEMP_FILES');
181:
182: -- FND_TEMP_FILES
183: select count(*)
184: into cnt