141:
142: l_term_adapters_list term_adapters_tab;
143: l_term_adapter_count number := 0;
144: begin
145: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
146: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
147: 'BEGIN:p_CPID: '||p_CPID);
148: end if;
149:
142: l_term_adapters_list term_adapters_tab;
143: l_term_adapter_count number := 0;
144: begin
145: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
146: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
147: 'BEGIN:p_CPID: '||p_CPID);
148: end if;
149:
150: p_AdapterInfo := 'NONE';
172: p_errbuf => l_ErrorMsg
173: );
174:
175: if (l_RetCode <> 0) then
176: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
177: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
178: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
179: 'XDP_ADAPTER.VERIFY_RUNNING_ADAPTERS returned error: '||
180: l_RetCode||', Desc: '||l_ErrorMsg);
173: );
174:
175: if (l_RetCode <> 0) then
176: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
177: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
178: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
179: 'XDP_ADAPTER.VERIFY_RUNNING_ADAPTERS returned error: '||
180: l_RetCode||', Desc: '||l_ErrorMsg);
181: end if;
189: for v_AdapterPID in XDP_ADAPTER_CORE_DB.G_Get_Running_Adapters (l_ConcQID) loop
190:
191: if (((v_AdapterPID.is_implemented = 'Y') and (v_AdapterPID.process_id > 0)) or
192: (v_AdapterPID.is_implemented = 'N')) then
193: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
194: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
195: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
196: 'Stopping adapter: '||v_AdapterPID.channel_name);
197: end if;
190:
191: if (((v_AdapterPID.is_implemented = 'Y') and (v_AdapterPID.process_id > 0)) or
192: (v_AdapterPID.is_implemented = 'N')) then
193: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
194: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
195: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
196: 'Stopping adapter: '||v_AdapterPID.channel_name);
197: end if;
198: l_AdapterTobeTerminated := FALSE;
224: -- dbms_output.put_line('l_Retcode: ' || l_RetCode);
225: -- dbms_output.put_line('l_ErrorMsg: ' || l_ErrorMsg);
226:
227: l_AdapterTobeTerminated := TRUE;
228: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
229: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
230: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
231: 'Adapter stop failed with error: '||l_RetCode||', error msg: '||l_ErrorMsg);
232: end if;
225: -- dbms_output.put_line('l_ErrorMsg: ' || l_ErrorMsg);
226:
227: l_AdapterTobeTerminated := TRUE;
228: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
229: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
230: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
231: 'Adapter stop failed with error: '||l_RetCode||', error msg: '||l_ErrorMsg);
232: end if;
233:
231: 'Adapter stop failed with error: '||l_RetCode||', error msg: '||l_ErrorMsg);
232: end if;
233:
234: elsif (l_retcode = XDP_ADAPTER.pv_retAdapterCannotLockReqSub) then
235: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
236: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
237: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
238: 'Adapter stop request submitted');
239: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
232: end if;
233:
234: elsif (l_retcode = XDP_ADAPTER.pv_retAdapterCannotLockReqSub) then
235: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
236: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
237: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
238: 'Adapter stop request submitted');
239: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
240: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
235: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
236: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
237: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
238: 'Adapter stop request submitted');
239: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
240: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
241: l_ErrorMsg);
242: end if;
243:
249: else
250: -- Success, InvalidState, CommFailed case
251: -- InvalidState means already stoppped
252: -- CommFailed means adapter will stop on its own
253: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
254: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
255: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
256: 'Adapter successfully stopped');
257: end if;
250: -- Success, InvalidState, CommFailed case
251: -- InvalidState means already stoppped
252: -- CommFailed means adapter will stop on its own
253: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
254: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
255: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
256: 'Adapter successfully stopped');
257: end if;
258: end if;
263: -- on their own
264:
265: if ((v_AdapterPID.process_id > 0) and
266: (l_AdapterToBeTerminated = TRUE)) then
267: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
268: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
269: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
270: 'Adapter '||v_AdapterPID.channel_name||
271: ' will be forcefully terminated');
264:
265: if ((v_AdapterPID.process_id > 0) and
266: (l_AdapterToBeTerminated = TRUE)) then
267: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
268: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
269: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
270: 'Adapter '||v_AdapterPID.channel_name||
271: ' will be forcefully terminated');
272: end if;
326:
327: END IF;
328: END LOOP;
329: END IF;
330: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
331: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
332: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
333: 'Adapters to be forcefully stopped: '||p_AdapterInfo);
334: end if;
327: END IF;
328: END LOOP;
329: END IF;
330: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
331: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
332: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
333: 'Adapters to be forcefully stopped: '||p_AdapterInfo);
334: end if;
335:
334: end if;
335:
336: else
337: -- dbms_output.put_line('ConcQID: ' || l_ConcQID);
338: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
339: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
340: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
341: 'Could not get concurrent queue id for CPID: '||p_CPID);
342: end if;
335:
336: else
337: -- dbms_output.put_line('ConcQID: ' || l_ConcQID);
338: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
339: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
340: 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
341: 'Could not get concurrent queue id for CPID: '||p_CPID);
342: end if;
343: end if;
343: end if;
344:
345: exception
346: when others then
347: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
348: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
349: 'Unhandled error, SQLCODE: '||SQLCODE);
350: end if;
351:
344:
345: exception
346: when others then
347: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
348: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PERFORM_STOP_PROCESSING',
349: 'Unhandled error, SQLCODE: '||SQLCODE);
350: end if;
351:
352: end Perform_Stop_Processing;
382: l_req NUMBER;
383: l_job NUMBER;
384:
385: begin
386: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
387: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
388: 'BEGIN:p_CPID: '||p_CPID);
389: end if;
390:
383: l_job NUMBER;
384:
385: begin
386: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
387: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
388: 'BEGIN:p_CPID: '||p_CPID);
389: end if;
390:
391: p_AdapterInfo := 'NONE';
403: p_errbuf => l_ErrorMsg
404: );
405:
406: if (l_RetCode = 0) then
407: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
408: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
409: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
410: 'Adapters to be resetted: '||p_AdapterInfo);
411: end if;
404: );
405:
406: if (l_RetCode = 0) then
407: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
408: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
409: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
410: 'Adapters to be resetted: '||p_AdapterInfo);
411: end if;
412: else
409: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
410: 'Adapters to be resetted: '||p_AdapterInfo);
411: end if;
412: else
413: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
414: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
415: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
416: 'XDP_ADAPTER.VERIFY_RUNNING_ADAPTERS returned error: '||
417: l_RetCode||', Desc: '||l_ErrorMsg);
410: 'Adapters to be resetted: '||p_AdapterInfo);
411: end if;
412: else
413: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
414: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
415: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
416: 'XDP_ADAPTER.VERIFY_RUNNING_ADAPTERS returned error: '||
417: l_RetCode||', Desc: '||l_ErrorMsg);
418: end if;
426: XDP_ADAPTER.Reset_SysDeactivated_Adapters (p_controller_instance_id => l_ConcQID);
427:
428: else
429: -- dbms_output.put_line('ConcQID: ' || l_ConcQID);
430: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
431: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
432: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
433: 'Could not get concurrent queue id for CPID: '||p_CPID);
434: end if;
427:
428: else
429: -- dbms_output.put_line('ConcQID: ' || l_ConcQID);
430: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
431: FND_LOG.STRING (FND_LOG.LEVEL_ERROR,
432: 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
433: 'Could not get concurrent queue id for CPID: '||p_CPID);
434: end if;
435: end if;
436:
437: exception
438: when others then
439: p_AdapterInfo := 'NONE';
440: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
441: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
442: 'Unhandled error, SQLCODE: '||SQLCODE);
443: end if;
444:
437: exception
438: when others then
439: p_AdapterInfo := 'NONE';
440: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
441: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PERFORM_START_PROCESSING',
442: 'Unhandled error, SQLCODE: '||SQLCODE);
443: end if;
444:
445: end Perform_Start_Processing;
530:
531: if p_Operation = XDP_ADAPTER.pv_opConnect or p_Operation = XDP_ADAPTER.pv_opResume then
532: -- Release adapter lock
533: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
534: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
535: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
536: 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
537: 'Could not release the lock, Channel name: '||p_ChannelName);
538: end if;
531: if p_Operation = XDP_ADAPTER.pv_opConnect or p_Operation = XDP_ADAPTER.pv_opResume then
532: -- Release adapter lock
533: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
534: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
535: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
536: 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
537: 'Could not release the lock, Channel name: '||p_ChannelName);
538: end if;
539: end if;
543:
544: exception
545: when others then
546: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
547: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
548: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
549: 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
550: 'Could not release the lock, Channel name: '||p_ChannelName);
551: end if;
544: exception
545: when others then
546: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
547: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
548: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
549: 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
550: 'Could not release the lock, Channel name: '||p_ChannelName);
551: end if;
552: end if;
549: 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
550: 'Could not release the lock, Channel name: '||p_ChannelName);
551: end if;
552: end if;
553: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
554: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
555: 'Unhandled error, SQLCODE: '||SQLCODE);
556: end if;
557: rollback;
550: 'Could not release the lock, Channel name: '||p_ChannelName);
551: end if;
552: end if;
553: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
554: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_CONTROLLER_CORE.PROCESS_CONTROL_COMMAND',
555: 'Unhandled error, SQLCODE: '||SQLCODE);
556: end if;
557: rollback;
558: p_Status := XDP_ADAPTER_CORE.pv_ProcessCommandError;
567: is
568: l_Status varchar2(4000);
569:
570: begin
571: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
572: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
573: 'BEGIN:p_ChannelName: '||p_ChannelName);
574: end if;
575: p_retcode := 0;
568: l_Status varchar2(4000);
569:
570: begin
571: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
572: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
573: 'BEGIN:p_ChannelName: '||p_ChannelName);
574: end if;
575: p_retcode := 0;
576: p_errbuf := '';
588:
589: -- Cannot use Verify_Adapter API as call to update row has to be autonomous
590: if not XDP_ADAPTER_CORE_DB.Verify_Adapter (p_ChannelName) then
591: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
592: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
593: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.VALIDATE_OPERATION',
594: 'Could not release the lock, Channel name: '||p_ChannelName);
595: end if;
596: end if;
589: -- Cannot use Verify_Adapter API as call to update row has to be autonomous
590: if not XDP_ADAPTER_CORE_DB.Verify_Adapter (p_ChannelName) then
591: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
592: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
593: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.VALIDATE_OPERATION',
594: 'Could not release the lock, Channel name: '||p_ChannelName);
595: end if;
596: end if;
597: p_retCode := XDP_ADAPTER.pv_retAdapterCommFailed;
614: p_retCode := XDP_ADAPTER.pv_retAdapterOtherError;
615: END IF;
616:
617: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
618: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
619: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
620: 'Could not release the lock, Channel name: '||p_ChannelName);
621: end if;
622: end if;
615: END IF;
616:
617: if XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N' then
618: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
619: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
620: 'Could not release the lock, Channel name: '||p_ChannelName);
621: end if;
622: end if;
623:
624: exception
625:
626: when others then
627: if (XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N') then
628: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
629: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
630: 'Could not release the lock, Channel name: '||p_ChannelName);
631: end if;
632: end if;
625:
626: when others then
627: if (XDP_ADAPTER_CORE_DB.ReleaseAdapterLock(p_ChannelName) = 'N') then
628: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
629: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
630: 'Could not release the lock, Channel name: '||p_ChannelName);
631: end if;
632: end if;
633:
632: end if;
633:
634: p_retCode := SQLCODE;
635: p_errbuf := SQLERRM;
636: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
637: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
638: 'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
639: end if;
640: end Stop_Impl_Adapter;
633:
634: p_retCode := SQLCODE;
635: p_errbuf := SQLERRM;
636: if( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
637: FND_LOG.STRING (FND_LOG.LEVEL_ERROR, 'XDP_ADAPTER.STOP_IMPL_ADAPTER',
638: 'Error code: '||p_retCode||' ,Error desc: '||p_errbuf);
639: end if;
640: end Stop_Impl_Adapter;
641: