21: --
22: function Get_GSM_Setup_Info(p_value out nocopy clob)
23: return varchar2 is
24:
25: l_service_instances fnd_concurrent.service_instance_tab_type;
26: l_gsm_enabled VARCHAR2(10);
27: l_service_enabed VARCHAR2(20);
28: l_user_concurrent_queue_name VARCHAR2(300);
29: l_temp_result varchar2(32000);
44: select VARIABLE_NAME, VALUE
45: from FND_ENV_CONTEXT
46: where CONCURRENT_PROCESS_ID in
47: (select max(CONCURRENT_PROCESS_ID)
48: from FND_CONCURRENT_PROCESSES fcp , FND_CONCURRENT_QUEUES fcq
49: where fcp.CONCURRENT_QUEUE_ID = fcq.CONCURRENT_QUEUE_ID
50: and fcq.CONCURRENT_QUEUE_NAME= p_qname
51: and fcp.QUEUE_APPLICATION_ID = p_appId )
52: and VARIABLE_NAME in ('APPL_TOP', 'APPLCSF', 'APPLLOG', 'FND_TOP',
76: l_status := 'E';
77: end if;
78:
79: -- Check if ICM is running.
80: FND_CONCURRENT.GET_MANAGER_STATUS (
81: applid => 0,
82: managerid => 1,
83: targetp => l_targetp,
84: activep => l_activep,
114: l_temp_result := l_temp_result||'
115: l_temp_result := l_temp_result||'
158: SELECT user_concurrent_queue_name,
159: concurrent_queue_id,
160: decode(enabled_flag, 'Y', 'ENABLED', 'NOT ENABLED')
161: INTO l_user_concurrent_queue_name, l_managerid, l_service_enabed
162: FROM fnd_concurrent_queues_vl
163: WHERE concurrent_queue_name = l_service_instances(i).instance_name;
164:
165: -- Check if the service is enabled and running,
166: l_temp_result := l_temp_result || '
169:
170: -- Get each Workflow Service Container status.
171: -- MANAGER_TYPE=1052 and CartType is 'AQCART'
172: -- Other errors are being handled within GET_MANAGER_STATUS API itself
173: FND_CONCURRENT.GET_MANAGER_STATUS (
174: applid => l_app_id,
175: managerid => l_managerid,
176: targetp => l_targetp,
177: activep => l_activep,
178: pmon_method => l_pmon_method,
179: callstat => l_callstat);
180:
181: -- l_callstat <>0 mean there is no process exist in
182: -- fnd_concurrent_processes and gv$session
183: IF l_callstat <> 0 THEN
184: l_temp_result := l_temp_result || '
191:
192: END IF;
193:
194: EXCEPTION
195: -- Handle fetch on fnd_concurrent_queues_vl
196: when no_data_found then
197: l_temp_result := l_temp_result || '