The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*) into l_count from xdp_adapter_reg
where adapter_display_name = p_AdapterDispName;
select application_mode, adapter_class, connection_required_flag, inbound_required_flag
into l_ApplicationMode, l_AdapterClass, l_ConnReqFlag, l_InboundReqFlag
from xdp_adapter_types_b
where adapter_type = p_AdapterType;
Procedure Update_Adapter(p_ChannelName in varchar2,
p_AdapterName in varchar2,
p_AdapterDispName in varchar2,
p_ConcQID in number,
p_StartupMode in varchar2 default 'MANUAL',
p_UsageCode in varchar2 default 'NORMAL',
p_LogLevel in varchar2 default 'ERROR',
p_CODFlag in varchar2 default 'N',
p_MaxIdleTime in number default 0,
p_LogFileName in varchar2 default NULL,
p_SeqInFE in number default null,
p_CmdLineOpts in varchar2 default NULL,
p_CmdLineArgs in varchar2 default NULL,
p_retcode OUT NOCOPY NUMBER,
p_errbuf OUT NOCOPY VARCHAR2
)
is
l_AdapterLocked varchar2(1) := 'N';
FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.UPDATE_ADAPTER',
'BEGIN:p_ChannelName: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Required parameters are not passed');
XDP_ADAPTER.pv_opUpdate,
l_CurrentStatus) then
raise e_InvalidAdapterState;
select count(*) into l_count from xdp_adapter_reg
where adapter_display_name = p_AdapterDispName and
channel_name <> p_ChannelName;
select xat.application_mode, xat.adapter_class, xat.connection_required_flag, xat.inbound_required_flag
into l_ApplicationMode, l_AdapterClass, l_ConnReqFlag, l_InboundReqFlag
from xdp_adapter_types_b xat, xdp_adapter_reg xar
where xat.adapter_type = xar.adapter_type
and xar.channel_name = p_ChannelName;
XDP_ADAPTER_CORE_DB.UpdateAdapter(
p_ChannelName => p_ChannelName,
p_AdapterName => p_AdapterName,
p_AdapterDispName => p_AdapterDispName,
p_SvcInstId => p_ConcQID,
p_StartupMode => p_StartupMode,
p_UsageCode => p_UsageCode,
p_LogLevel => p_LogLevel,
p_CODFlag => p_CODFlag,
p_MaxIdleTime => p_MaxIdleTime,
p_LogFileName => l_LogFileName,
p_SeqInFE => p_SeqInFE,
p_CmdLineOpts => p_CmdLineOpts,
p_CmdLineArgs => p_CmdLineArgs
);
FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Could not release the lock, Channel name: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Could not release the lock, Channel name: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
fnd_message.set_token('OPERATION', 'Update');
FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Could not release the lock, Channel name: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
END Update_Adapter;
Procedure Delete_Adapter(p_ChannelName in varchar2,
p_retcode OUT NOCOPY NUMBER,
p_errbuf OUT NOCOPY VARCHAR2
)
is
l_AdapterLocked varchar2(1) := 'N';
FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.DELETE_ADAPTER',
'BEGIN:p_ChannelName: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ADAPTER',
'Required parameters are not passed');
XDP_ADAPTER.pv_opDelete,
l_CurrentStatus) then
raise e_InvalidAdapterState;
XDP_ADAPTER_CORE_DB.Delete_Adapter (p_channel_name => p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.DELETE_ADAPTER',
'Could not release the lock, Channel name: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
fnd_message.set_token('OPERATION', 'Delete');
FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.DELETE_ADAPTER',
'Could not release the lock, Channel name: '||p_ChannelName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ADAPTER',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
end Delete_Adapter;
Procedure Delete_All_For_FE (p_FeName in varchar2,
p_retcode OUT NOCOPY NUMBER,
p_errbuf OUT NOCOPY VARCHAR2)
is
l_FeID number := -1;
FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.DELETE_ALL_FOR_FE',
'BEGIN:p_FeName: '||p_FeName);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ALL_FOR_FE',
'Some adapters are running for the FE: '||p_FeName);
XDP_ADAPTER_CORE_DB.Delete_Adapters_For_FE (p_fe_id => l_FeID);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ALL_FOR_FE',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ALL_FOR_FE',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
end Delete_All_For_FE;
Procedure Update_Admin_Request (p_RequestID in number,
p_RequestDate in date default sysdate,
p_RequestedBy in varchar2 default null,
p_Freq in number default null,
p_retcode OUT NOCOPY NUMBER,
p_errbuf OUT NOCOPY VARCHAR2
)
is
e_InvalidRequestDate EXCEPTION;
FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.UPDATE_ADMIN_REQUEST',
'BEGIN:p_RequestID: '||p_RequestID);
'XDP_ADAPTER.UPDATE_ADMIN_REQUEST',
'Required parameters are not passed');
XDP_ADAPTER_CORE_DB.UpdateAdapterAdminReq(
p_RequestID => Update_Admin_Request.p_RequestID,
p_RequestDate => Update_Admin_Request.p_RequestDate,
p_RequestedBy => Update_Admin_Request.p_RequestedBy,
p_Freq => Update_Admin_Request.p_Freq);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADMIN_REQUEST',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.UPDATE_ADMIN_REQUEST',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
end Update_Admin_Request;
Procedure Delete_Admin_Request (p_RequestID in number,
p_retcode OUT NOCOPY NUMBER,
p_errbuf OUT NOCOPY VARCHAR2)
is
l_dummy varchar2(80);
FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.DELETE_ADMIN_REQUEST',
'BEGIN:p_RequestID: '||p_RequestID);
'XDP_ADAPTER.DELETE_ADMIN_REQUEST',
'Required parameters are not passed');
p_RequestID => Delete_Admin_Request.p_RequestID);
FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.DELETE_ADMIN_REQUEST',
'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
end Delete_Admin_Request;
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusStarting);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusRunning);
XDP_ERRORS_PKG.UPDATE_ERROR_COUNT (
p_object_type => XDP_ADAPTER.pv_errorObjectTypeAdapter,
p_object_key => p_ChannelName);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusStopping);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusStopped);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusDeactivated);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusSuspending);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusSuspended);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusResuming);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusRunning);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusConnecting);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusRunning);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusDisconnecting);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusDisconnected);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusTerminating);
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName => p_ChannelName,
p_Status => pv_statusTerminated,
p_ErrorMsg => 'XDP_ADAPTER_TERMINATED');
SELECT 'x' FROM
xdp_fes,
xdp_adapter_reg
WHERE xdp_fes.fe_id = p_fe_id
AND xdp_fes.fe_id = xdp_adapter_reg.fe_id;
SELECT log_file_name, target_node
INTO l_log_file_name, l_target_node
FROM xdp_adapter_reg_v
WHERE channel_name = p_channel_name;
XDP_ADAPTER_CORE_DB.Update_Adapter_Status(
p_ChannelName,
pv_statusStoppedError,
'XDP_ADAPTER_ABNORMAL_EXIT',
'PROCESS_ID='||l_ProcessID||'#XDP#');
-- Could not get lock, Adapter running, update last_verified_date
XDP_ADAPTER_CORE_DB.UpdateAdapter (
p_ChannelName => p_ChannelName,
p_LastVerified => sysdate);
-- Adapter not implemented, so Adapter is 'running', update last_verified_date
XDP_ADAPTER_CORE_DB.UpdateAdapter (
p_ChannelName => p_ChannelName,
p_LastVerified => sysdate);
sql_stmt := 'select CHANNEL_NAME, PROCESS_ID, ADAPTER_STATUS, STATUS_ACTIVE_TIME from XDP_ADAPTER_REG_V a, XDP_ADAPTER_TYPES_B b where ADAPTER_STATUS not in ';
XDP_ADAPTER_CORE_DB.UpdateAdapter(
p_ChannelName => p_ChannelName,
p_Status => pv_statusStopped);
XDP_ERRORS_PKG.UPDATE_ERROR_COUNT (
p_object_type => XDP_ADAPTER.pv_errorObjectTypeAdapter,
p_object_key => p_ChannelName);