The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Request
( p_component_request_id IN NUMBER)
AS
l_job_id fnd_svc_comp_requests.job_id%TYPE;
SELECT job_id
INTO l_job_id
FROM fnd_svc_comp_requests
WHERE component_request_id = p_component_request_id;
FND_SVC_COMP_REQUESTS_PKG.DELETE_ROW(
x_component_request_id => p_component_request_id);
END Delete_Request;
SELECT a.component_id, event_name, event_params, event_frequency, requested_by_user, component_name,
component_status, component_type, container_type, standalone_container_name
INTO l_component_id, l_event_name, l_event_params, l_event_frequency, l_requested_by_user,
l_component_name, l_component_status, l_component_type, l_container_type, l_container_name
FROM fnd_svc_comp_requests a, fnd_svc_components b
WHERE component_request_id = p_component_request_id and
a.component_id = b.component_id;
SELECT concurrent_queue_name
INTO l_container_name
FROM fnd_svc_components_v
WHERE component_id = l_component_id;
Delete_Request(p_component_request_id => p_component_request_id);
SELECT fnd_svc_comp_requests_h_s.nextval INTO l_request_history_id FROM dual;
FND_SVC_COMP_REQUESTS_H_PKG.Insert_Row
( x_rowid => l_rowid
, x_request_history_id => l_request_history_id
, x_component_id => l_component_id
, x_event_name => l_event_name
, x_request_status => l_Status
, x_requested_by_user => l_requested_by_user
, x_completion_date => SYSDATE
, x_component_name => l_component_name
, x_component_status => l_component_status
, x_component_type => l_component_type
, x_container_type => l_container_type
, x_container_name => l_container_name
, x_event_params => l_event_params
, x_created_by => 0 -- TODO
, x_last_updated_by => 0 -- TODO
, x_last_update_login => 0 -- TODO
);
SELECT c.component_status
FROM fnd_svc_components c
WHERE c.component_type = NVL(p_component_type, c.component_type);
PROCEDURE Insert_Param_Vals
( p_component_type IN VARCHAR2
, p_component_id IN NUMBER)
AS
CURSOR c_params IS
SELECT parameter_id
, default_parameter_value
FROM fnd_svc_comp_params_b
WHERE component_type = p_component_type;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
SELECT fnd_svc_comp_param_vals_s.nextval
INTO l_component_parameter_id
FROM dual;
SELECT customization_level, created_by, last_updated_by, last_update_login
INTO l_customization_level, l_created_by, l_last_updated_by, l_last_update_login
FROM fnd_svc_components
WHERE component_id = p_component_id;
FND_SVC_COMP_PARAM_VALS_PKG.INSERT_ROW
( x_rowid => l_rowid
, x_component_parameter_id => l_component_parameter_id
, x_component_id => p_component_id
, x_parameter_id => param.parameter_id
, x_parameter_value => param.default_parameter_value
, x_customization_level => l_customization_level
, x_created_by => l_created_by
, x_last_updated_by => l_last_updated_by
, x_last_update_login => l_last_update_login
);
WF_CORE.CONTEXT(pv_Package_Name, 'Insert_Param_Vals', p_component_type, p_component_id);
END Insert_Param_Vals;
SELECT module, action
FROM gv$session se
-- WHERE se.module like c_module_name and se.action is not null;
SELECT parameter_value
INTO l_result
FROM fnd_svc_comp_param_vals_v
WHERE parameter_name = p_parameter_name
AND component_id = p_component_id;
select component_status into l_CurrentStatus
from fnd_svc_components where component_id = p_Component_Id;
elsif p_Control_Operation = FND_SVC_COMPONENT.pv_opUpdate then
if l_CurrentStatus in (FND_SVC_COMPONENT.pv_Status_Stopped,
FND_SVC_COMPONENT.pv_Status_Stopped_Error,
FND_SVC_COMPONENT.pv_Status_Not_Configured,
FND_SVC_COMPONENT.pv_Status_Deactivated_User,
FND_SVC_COMPONENT.pv_Status_Deactivated_System) then
l_isValid := true;
elsif p_Control_Operation = FND_SVC_COMPONENT.pv_opDelete then
if l_CurrentStatus in (FND_SVC_COMPONENT.pv_Status_Stopped,
FND_SVC_COMPONENT.pv_Status_Stopped_Error,
FND_SVC_COMPONENT.pv_Status_Not_Configured,
FND_SVC_COMPONENT.pv_Status_Deactivated_User,
FND_SVC_COMPONENT.pv_Status_Deactivated_System) then
l_isValid := true;
select container_type, concurrent_queue_name, standalone_container_name
into p_Container_Type, l_Concurrent_Queue_Name, l_Standalone_Container_Name
from fnd_svc_components_v where component_id = p_Component_Id;
PROCEDURE Update_Status (p_Component_Id IN NUMBER,
p_Status IN VARCHAR2,
p_Status_Info IN VARCHAR2,
p_Last_Updated_By IN NUMBER,
p_Last_Update_Login IN NUMBER)
is
l_component_name fnd_svc_components.component_name%TYPE;
'wf.plsql.FND_SVC_COMPONENT.UPDATE_STATUS.begin',
'p_Component_Id: '||p_Component_Id
||' p_Status: '||p_Status);
UPDATE FND_SVC_COMPONENTS
SET component_status = p_Status,
component_status_info = decode(p_Status_Info, null, component_status_info,
'NULL', null, substrb(p_Status_Info,1,1996)),
last_update_date = sysdate,
last_updated_by = p_Last_Updated_By,
last_update_login = p_Last_Update_Login
WHERE component_id = p_Component_Id;
SELECT TRIM(component_name)
INTO l_component_name
FROM fnd_svc_components
WHERE component_id = p_Component_Id;
WF_CORE.CONTEXT(pv_Package_Name, 'Update_Status', p_Component_Id, p_Status, p_Status_Info);
end Update_Status;
SELECT component_id
INTO l_Component_Id
FROM fnd_svc_components
WHERE component_name = p_component_Name;
Update_Status(p_Component_Id => p_Component_Id,
p_Status => pv_Status_Starting,
p_Status_Info => 'NULL');
Update_Status(p_Component_Id => p_Component_Id, p_Status => pv_Status_Stopping);
XDP_ADAPTER_CORE_DB.Update_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusDeactivated);
Update_Status(p_Component_Id => p_Component_Id, p_Status => pv_Status_Suspending);
Update_Status(p_Component_Id => p_Component_Id, p_Status => pv_Status_Resuming);
select concurrent_queue_name into l_ConcQname from fnd_concurrent_queues
where concurrent_queue_id = ConcQID and application_id = ApplId;
select a.concurrent_queue_id, a.application_id into ConcQId, ApplId
from fnd_concurrent_queues a
where a.concurrent_queue_name = ConcQName;
select component_id
from FND_SVC_COMPONENTS
where component_status not in (FND_SVC_COMPONENT.pv_Status_Stopped,
FND_SVC_COMPONENT.pv_Status_Stopped_Error,
FND_SVC_COMPONENT.pv_Status_Not_Configured,
FND_SVC_COMPONENT.pv_Status_Deactivated_User,
FND_SVC_COMPONENT.pv_Status_Deactivated_System)
and container_type = pv_Container_Type_GSM
and concurrent_queue_id = ConcQId
and application_id = ApplId;
select component_id
from FND_SVC_COMPONENTS
where component_status not in (FND_SVC_COMPONENT.pv_Status_Stopped,
FND_SVC_COMPONENT.pv_Status_Stopped_Error,
FND_SVC_COMPONENT.pv_Status_Not_Configured,
FND_SVC_COMPONENT.pv_Status_Deactivated_User,
FND_SVC_COMPONENT.pv_Status_Deactivated_System)
and container_type = pv_Container_Type_Servlet
and standalone_container_name = StdContainerName;
Update_Status (p_Component_Id => r_conc.component_id,
p_Status => FND_SVC_COMPONENT.pv_Status_Stopped_Error,
p_Status_Info => 'Status has been reset because the Service Component did not stop gracefully.'); -- TODO MLS??
update FND_SVC_COMPONENTS
set component_status = FND_SVC_COMPONENT.pv_Status_Stopped_Error where
component_status = FND_SVC_COMPONENT.pv_Status_Deactivated_System and
concurrent_queue_id = l_concurrent_queue_id and
application_id = l_appl_id and
container_type = pv_Container_Type_GSM;
Update_Status (p_Component_Id => r_std.component_id,
p_Status => FND_SVC_COMPONENT.pv_Status_Stopped_Error,
p_Status_Info => 'Status has been reset because the Service Component did not stop gracefully.'); -- TODO MLS??
update FND_SVC_COMPONENTS
set component_status = FND_SVC_COMPONENT.pv_Status_Stopped_Error where
component_status = FND_SVC_COMPONENT.pv_Status_Deactivated_System and
standalone_container_name = p_container_name and
container_type = pv_Container_Type_Servlet;
select distinct standalone_container_name container_name, container_type
from FND_SVC_COMPONENTS
where container_type = pv_Container_Type_Servlet and standalone_container_name is not null
union
select distinct concurrent_queue_name container_name, container_type
from FND_SVC_COMPONENTS_V
where container_type = pv_Container_Type_GSM and concurrent_queue_name is not null;