8: p_JobNumber OUT NOCOPY number )
9: IS
10: l_tmpdate varchar2(4000);
11: BEGIN
12: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
13: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.SUBMITADAPTERADMINJOB',
14: 'BEGIN:p_request: '||p_request);
15: END IF;
16:
9: IS
10: l_tmpdate varchar2(4000);
11: BEGIN
12: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
13: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.SUBMITADAPTERADMINJOB',
14: 'BEGIN:p_request: '||p_request);
15: END IF;
16:
17: if p_RunFreq is not null then
24: what => pv_jobAdapterAdmin || '('||to_char(p_request)||');',
25: next_date => p_RunDate,
26: interval =>l_tmpdate);
27:
28: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
29: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.SUBMITADAPTERADMINJOB',
30: 'END:Job: '||p_JobNumber);
31: END IF;
32:
25: next_date => p_RunDate,
26: interval =>l_tmpdate);
27:
28: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
29: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.SUBMITADAPTERADMINJOB',
30: 'END:Job: '||p_JobNumber);
31: END IF;
32:
33: END SubmitAdapterAdminJob;
40: p_Freq in number )
41: is
42: l_tmpdate varchar2(4000);
43: begin
44: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
45: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.UPDATEDBJOB',
46: 'BEGIN:p_request: '||p_request);
47: END IF;
48:
41: is
42: l_tmpdate varchar2(4000);
43: begin
44: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
45: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.UPDATEDBJOB',
46: 'BEGIN:p_request: '||p_request);
47: END IF;
48:
49: if p_Freq is not null then
78:
79: l_User varchar2(40);
80:
81: BEGIN
82: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
83: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
84: 'BEGIN:p_request: '||p_request);
85: END IF;
86:
79: l_User varchar2(40);
80:
81: BEGIN
82: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
83: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
84: 'BEGIN:p_request: '||p_request);
85: END IF;
86:
87: BEGIN
103: -- request is not there? Maybe, request got deleted and job is still
104: -- getting executed. Donot do anything, return
105: -- With the deletion of request, job for future will anyway be deleted
106:
107: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
108: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
109: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
110: 'After FetchAdapterAdminReqInfo, SQLCODE: '||SQLCODE);
111: END IF;
104: -- getting executed. Donot do anything, return
105: -- With the deletion of request, job for future will anyway be deleted
106:
107: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
108: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
109: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
110: 'After FetchAdapterAdminReqInfo, SQLCODE: '||SQLCODE);
111: END IF;
112: return;
111: END IF;
112: return;
113: END;
114:
115: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
116: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
117: 'Request Type: '||l_requestCode||
118: ', Job no.: '||l_job_no||
119: ', Channel name: '||l_ChannelName);
112: return;
113: END;
114:
115: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
116: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
117: 'Request Type: '||l_requestCode||
118: ', Job no.: '||l_job_no||
119: ', Channel name: '||l_ChannelName);
120: END IF;
146:
147: -- Could get the lock after 1 HOUR, continue
148: -- Following operation will also not get lock
149: -- and the logic will flow.
150: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
151: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
152: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
153: 'Could get lock after waiting for :'||l_LockTimeout||' secs');
154: END IF;
147: -- Could get the lock after 1 HOUR, continue
148: -- Following operation will also not get lock
149: -- and the logic will flow.
150: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
151: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
152: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
153: 'Could get lock after waiting for :'||l_LockTimeout||' secs');
154: END IF;
155: end if;
179: l_ChannelName, l_requestCode, '',
180: l_RetCode, l_ErrorMsg);
181: end if;
182:
183: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
184: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
185: 'After adapter operation, Return code: '||l_RetCode);
186: END IF;
187:
180: l_RetCode, l_ErrorMsg);
181: end if;
182:
183: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
184: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
185: 'After adapter operation, Return code: '||l_RetCode);
186: END IF;
187:
188: l_Status := XDP_ADAPTER.pv_adminStatusCompleted;
200: end if;
201:
202: if l_Freq is null then
203:
204: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
205: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT,
206: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
207: 'Frequency is null, removing job');
208: END IF;
201:
202: if l_Freq is null then
203:
204: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
205: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT,
206: 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
207: 'Frequency is null, removing job');
208: END IF;
209: -- dbms_output.put_line('No Freq found... updating req');
212: p_request, l_RetCode, l_ErrorMsg);
213: -- Donot care for l_RetCode
214: end if;
215:
216: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
217: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
218: 'Request audited with status: '||l_Status);
219: END IF;
220:
213: -- Donot care for l_RetCode
214: end if;
215:
216: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
217: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
218: 'Request audited with status: '||l_Status);
219: END IF;
220:
221: XDP_ADAPTER_CORE_DB.Audit_Adapter_Admin_Request (
233: EXCEPTION
234: WHEN OTHERS THEN
235: -- Can come here only because of some SQL error in XDP_ADAPTER_CORE_DB.Audit_Adapter_Admin_Request
236: -- Still we need to commit;
237: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
238: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
239: 'Unhandled error, SQLCODE: '||SQLCODE);
240: END IF;
241: l_Status := XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName => l_ChannelName);
234: WHEN OTHERS THEN
235: -- Can come here only because of some SQL error in XDP_ADAPTER_CORE_DB.Audit_Adapter_Admin_Request
236: -- Still we need to commit;
237: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN -- Fix: 4256771, dbhagat, 28 Apr 05
238: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CRON_UTIL.EXECUTE_ADAPTER_ADMIN',
239: 'Unhandled error, SQLCODE: '||SQLCODE);
240: END IF;
241: l_Status := XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName => l_ChannelName);
242: commit;