[Home] [Help]
86: error out nocopy number, terminated out nocopy number) is
87: begin
88: select count(*)
89: into normal
90: from fnd_concurrent_requests
91: where status_code = 'C';
92:
93: select count(*)
94: into warning
91: where status_code = 'C';
92:
93: select count(*)
94: into warning
95: from fnd_concurrent_requests
96: where status_code = 'G';
97:
98: select count(*)
99: into error
96: where status_code = 'G';
97:
98: select count(*)
99: into error
100: from fnd_concurrent_requests
101: where status_code = 'E';
102:
103: select count(*)
104: into terminated
101: where status_code = 'E';
102:
103: select count(*)
104: into terminated
105: from fnd_concurrent_requests
106: where status_code = 'X';
107: end;
108:
109:
124: standby out nocopy number) is
125: begin
126: select count(*)
127: into normal
128: from fnd_concurrent_requests
129: where status_code = 'I'
130: and requested_start_date <= sysdate
131: and hold_flag = 'N';
132:
131: and hold_flag = 'N';
132:
133: select count(*)
134: into standby
135: from fnd_concurrent_requests
136: where status_code = 'Q'
137: and requested_start_date <= sysdate
138: and hold_flag = 'N';
139:
138: and hold_flag = 'N';
139:
140: select count(*)
141: into scheduled
142: from fnd_concurrent_requests
143: where (status_code = 'P' or
144: (status_code in ('I', 'Q') and requested_start_date > sysdate))
145: and hold_flag = 'N';
146: end;
161: procedure CONC_MGR_PROCS (running_reqs out nocopy number, mgr_procs out nocopy number) is
162: begin
163: select count(*)
164: into running_reqs
165: from fnd_concurrent_requests
166: where status_code = 'R'
167: or status_code = 'T';
168:
169: select sum(running_processes)
167: or status_code = 'T';
168:
169: select sum(running_processes)
170: into mgr_procs
171: from fnd_concurrent_queues
172: where manager_type = '1';
173: end;
174:
175: --
252:
253: -- Following is just a place holder .. the logic should change ..
254: --
255: if (ManagerType is not null) then
256: Update Fnd_Concurrent_Queues
257: Set Diagnostic_Level = DiagLevel
258: Where Manager_Type = ManagerType;
259: else
260: Update Fnd_Concurrent_Queues
256: Update Fnd_Concurrent_Queues
257: Set Diagnostic_Level = DiagLevel
258: Where Manager_Type = ManagerType;
259: else
260: Update Fnd_Concurrent_Queues
261: Set Diagnostic_Level = DiagLevel
262: Where Application_ID = Application
263: and Concurrent_queue_ID = QueueID;
264: end if;
338: callstat number;
339:
340: cursor svc_cursor (svc_id number) is
341: select application_id, concurrent_queue_id
342: from fnd_concurrent_queues
343: where (max_processes > 0 or running_processes > 0)
344: and manager_type = svc_id;
345:
346: begin
349:
350: for svc_rec in svc_cursor(service_id) loop
351: appl_id := svc_rec.application_id;
352: conc_queue_id := svc_rec.concurrent_queue_id;
353: fnd_concurrent.get_manager_status( appl_id,
354: conc_queue_id,
355: tmp_target,
356: tmp_actual,
357: pmon,
373: if ( actual < target) then
374:
375: /* Are all of the service processes for an instance down? */
376: select count(*) into n
377: from fnd_concurrent_queues
378: where running_processes = 0
379: and max_processes > 0;
380:
381: if ( n > 0) then /* All processes for an instance are down. */
464: begin
465:
466: error_code := 0;
467:
468: fnd_concurrent.get_manager_status(appl_id,
469: conc_queue_id,
470: target,
471: actual,
472: pmon,
559:
560: cursor svc_cursor (tnode varchar2, inode varchar2) is
561: select application_id, concurrent_queue_id,
562: manager_type, max_processes, running_processes
563: from fnd_concurrent_queues
564: where target_node = tnode
565: or (target_node is null and tnode = inode);
566:
567: begin
566:
567: begin
568: /* Get ICM_NODE */
569: select target_node into icm_node
570: from fnd_concurrent_queues
571: where concurrent_queue_id = 1
572: and application_id = 0;
573:
574: total_target := 0;
584: */
585: appl_id := svc_rec.application_id;
586: conc_queue_id := svc_rec.concurrent_queue_id;
587:
588: fnd_concurrent.get_manager_status(appl_id,
589: conc_queue_id,
590: target,
591: actual,
592: pmon,