The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(*)
INTO qcount
FROM fnd_concurrent_queues
WHERE UPPER(node_name) =UPPER(node)
AND TO_NUMBER(manager_type) = (select service_id
FROM fnd_cp_services where service_handle='OAMGCS');
SELECT count(*)
INTO ncount
FROM fnd_concurrent_queues
WHERE concurrent_queue_name = mgr_name;
SELECT fnd_concurrent_queues_s.nextval
INTO dummy
FROM dual;
DELETE FROM fnd_concurrent_queues_tl
WHERE concurrent_queue_name = mgr_name;
error_message:='Concurrent Manager not found to update OAM GCS';
PROCEDURE UPDATE_GCS
Procedure to update a service instance
PARAMETERS
node node name to use as service instance
Oracle_home Value of ORACLE_HOME for the node specified
Interval
*/
PROCEDURE update_gcs(node IN varchar2,Oracle_home IN varchar2 DEFAULT null, rti_dir IN varchar2 DEFAULT null,interval IN number DEFAULT 300000)
IS
mgr_name VARCHAR2(36);
SELECT concurrent_queue_id INTO queue_id
FROM fnd_concurrent_queues
WHERE application_id=0 AND concurrent_queue_name LIKE mgr_name;
/* Update the workshift for this queue_id with new svc_params */
UPDATE fnd_concurrent_queue_size
SET service_parameters = svcparams
WHERE concurrent_queue_id = queue_id AND queue_application_id = 0;
error_message:='Concurrent Manager not found to update OAM GCS';
FND_MESSAGE.SET_NAME('FND','FND_OAMGCS_UPDATE_ERR');
FND_LOG.MESSAGE (FND_LOG.LEVEL_ERROR,'FND.PLSQL.AFAMGCSB.OAM_GCS.UPDATE_OAMGCS',TRUE);
END update_gcs;
PROCEDURE DELETE_GCS
Procedure to delete a service instance
PARAMETERS
node node name to use as service instance
*/
PROCEDURE delete_gcs(node IN varchar2)
IS
mgr_name VARCHAR2(36);
DELETE FROM fnd_concurrent_queues
WHERE application_id=0 AND concurrent_queue_name LIKE mgr_name and UPPER(node_name)=upper(node);
END delete_gcs;
SELECT count(concurrent_queue_id) into instance_count
FROM
fnd_concurrent_queues where concurrent_queue_name like mgr_name AND
upper(node_name) = upper(node);
SELECT application_id,concurrent_queue_id INTO appl_id,conc_queue_id FROM fnd_concurrent_queues
where concurrent_queue_name like mgr_name
AND upper(node_name) = upper(node);