169: +-------------------------------------------------------*/
170:
171: exception
172: when others then
173: fnd_message.set_name ('FND', 'CP-Generic oracle error');
174: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
175: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
176: end request_lock;
177:
170:
171: exception
172: when others then
173: fnd_message.set_name ('FND', 'CP-Generic oracle error');
174: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
175: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
176: end request_lock;
177:
178: --
171: exception
172: when others then
173: fnd_message.set_name ('FND', 'CP-Generic oracle error');
174: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
175: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
176: end request_lock;
177:
178: --
179: -- PUBLIC PROCEDURES, FUNCTIONS
204:
205: exception
206: when others then
207: e_code := NFALSE;
208: fnd_message.set_name ('FND', 'CP-Generic oracle error');
209: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
210: fnd_message.set_token ('ROUTINE', 'get_lk_handle', FALSE);
211: end get_lk_handle;
212:
205: exception
206: when others then
207: e_code := NFALSE;
208: fnd_message.set_name ('FND', 'CP-Generic oracle error');
209: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
210: fnd_message.set_token ('ROUTINE', 'get_lk_handle', FALSE);
211: end get_lk_handle;
212:
213: /*------------------------------------------------------------------|
206: when others then
207: e_code := NFALSE;
208: fnd_message.set_name ('FND', 'CP-Generic oracle error');
209: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
210: fnd_message.set_token ('ROUTINE', 'get_lk_handle', FALSE);
211: end get_lk_handle;
212:
213: /*------------------------------------------------------------------|
214: | Bug 2093806: The purpose of Request_Session_Lock is to provide |
273:
274: if (result in (0, 4)) then
275: return;
276: else
277: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
278: fnd_message.set_token ('ROUTINE',
279: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
280: fnd_message.set_token ('RESULT',
281: nvl(to_char(result),'NULL'), FALSE);
274: if (result in (0, 4)) then
275: return;
276: else
277: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
278: fnd_message.set_token ('ROUTINE',
279: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
280: fnd_message.set_token ('RESULT',
281: nvl(to_char(result),'NULL'), FALSE);
282: lk := null;
276: else
277: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
278: fnd_message.set_token ('ROUTINE',
279: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
280: fnd_message.set_token ('RESULT',
281: nvl(to_char(result),'NULL'), FALSE);
282: lk := null;
283: hndl := null;
284: return;
338: | result = (3 or 5 from DBMS_LOCK.Request or |
339: | still NULL from Request_Lock |
340: +-------------------------------------------------------*/
341: alive := NTRUE; -- assume manager alive
342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
343: fnd_message.set_token ('ROUTINE',
344: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
345: FALSE);
346: fnd_message.set_token ('RESULT',
339: | still NULL from Request_Lock |
340: +-------------------------------------------------------*/
341: alive := NTRUE; -- assume manager alive
342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
343: fnd_message.set_token ('ROUTINE',
344: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
345: FALSE);
346: fnd_message.set_token ('RESULT',
347: nvl(to_char(result), 'NULL'), FALSE);
342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
343: fnd_message.set_token ('ROUTINE',
344: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
345: FALSE);
346: fnd_message.set_token ('RESULT',
347: nvl(to_char(result), 'NULL'), FALSE);
348:
349: end if;
350:
457:
458: exception
459: when others then
460: e_code := NFALSE;
461: fnd_message.set_name ('FND', 'CP-Generic oracle error');
462: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
463: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK', FALSE);
464: end request_lock;
465:
458: exception
459: when others then
460: e_code := NFALSE;
461: fnd_message.set_name ('FND', 'CP-Generic oracle error');
462: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
463: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK', FALSE);
464: end request_lock;
465:
466: -- ### OVERLOADED ###
459: when others then
460: e_code := NFALSE;
461: fnd_message.set_name ('FND', 'CP-Generic oracle error');
462: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
463: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK', FALSE);
464: end request_lock;
465:
466: -- ### OVERLOADED ###
467: /*------------------------------------------------------------------|
489:
490: exception
491: when others then
492: e_code := NFALSE;
493: fnd_message.set_name ('FND', 'CP-Generic oracle error');
494: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
495: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
496: end request_lock;
497:
490: exception
491: when others then
492: e_code := NFALSE;
493: fnd_message.set_name ('FND', 'CP-Generic oracle error');
494: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
495: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
496: end request_lock;
497:
498:
491: when others then
492: e_code := NFALSE;
493: fnd_message.set_name ('FND', 'CP-Generic oracle error');
494: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
495: fnd_message.set_token ('ROUTINE', 'REQUEST_LOCK (hndl)', FALSE);
496: end request_lock;
497:
498:
499: procedure release_lock (hndl in varchar2,
512:
513: exception
514: when others then
515: e_code := NFALSE;
516: fnd_message.set_name ('FND', 'CP-Generic oracle error');
517: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
518: fnd_message.set_token ('ROUTINE', 'release_lock', FALSE);
519: end release_lock;
520:
513: exception
514: when others then
515: e_code := NFALSE;
516: fnd_message.set_name ('FND', 'CP-Generic oracle error');
517: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
518: fnd_message.set_token ('ROUTINE', 'release_lock', FALSE);
519: end release_lock;
520:
521:
514: when others then
515: e_code := NFALSE;
516: fnd_message.set_name ('FND', 'CP-Generic oracle error');
517: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
518: fnd_message.set_token ('ROUTINE', 'release_lock', FALSE);
519: end release_lock;
520:
521:
522: procedure clean_mgrs (e_code in out nocopy number) is
633: exception
634: when others then
635: e_code := NFALSE;
636: rollback;
637: fnd_message.set_name ('FND', 'CP-Generic oracle error');
638: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
639: fnd_message.set_token ('ROUTINE', 'monitor_icm', FALSE);
640: end monitor_icm;
641:
634: when others then
635: e_code := NFALSE;
636: rollback;
637: fnd_message.set_name ('FND', 'CP-Generic oracle error');
638: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
639: fnd_message.set_token ('ROUTINE', 'monitor_icm', FALSE);
640: end monitor_icm;
641:
642:
635: e_code := NFALSE;
636: rollback;
637: fnd_message.set_name ('FND', 'CP-Generic oracle error');
638: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
639: fnd_message.set_token ('ROUTINE', 'monitor_icm', FALSE);
640: end monitor_icm;
641:
642:
643: procedure monitor_im (apid in number,
676:
677: exception
678: when others then
679: e_code := NFALSE;
680: fnd_message.set_name ('FND', 'CP-Generic oracle error');
681: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
682: fnd_message.set_token ('ROUTINE', 'monitor_im', FALSE);
683: end monitor_im;
684:
677: exception
678: when others then
679: e_code := NFALSE;
680: fnd_message.set_name ('FND', 'CP-Generic oracle error');
681: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
682: fnd_message.set_token ('ROUTINE', 'monitor_im', FALSE);
683: end monitor_im;
684:
685:
678: when others then
679: e_code := NFALSE;
680: fnd_message.set_name ('FND', 'CP-Generic oracle error');
681: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
682: fnd_message.set_token ('ROUTINE', 'monitor_im', FALSE);
683: end monitor_im;
684:
685:
686: procedure reassign_lkh (e_code in out nocopy number) is
725:
726: exception
727: when others then
728: e_code := NFALSE;
729: fnd_message.set_name ('FND', 'CP-Generic oracle error');
730: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
731: fnd_message.set_token ('ROUTINE', 'reassign_lkh', FALSE);
732: end reassign_lkh;
733:
726: exception
727: when others then
728: e_code := NFALSE;
729: fnd_message.set_name ('FND', 'CP-Generic oracle error');
730: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
731: fnd_message.set_token ('ROUTINE', 'reassign_lkh', FALSE);
732: end reassign_lkh;
733:
734:
727: when others then
728: e_code := NFALSE;
729: fnd_message.set_name ('FND', 'CP-Generic oracle error');
730: fnd_message.set_token ('ERROR', substr (sqlerrm, 1, 30), FALSE);
731: fnd_message.set_token ('ROUTINE', 'reassign_lkh', FALSE);
732: end reassign_lkh;
733:
734:
735: /* function get_inst_num
941:
942: /* If request target node is down, okay to run it */
943: if (dummy >= 1) then
944: retval := NTRUE;
945: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
946: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
947: fnd_message.set_token ('NODE', req_node, FALSE);
948: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
949: fnd_log.message(FND_LOG.LEVEL_EVENT,
942: /* If request target node is down, okay to run it */
943: if (dummy >= 1) then
944: retval := NTRUE;
945: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
946: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
947: fnd_message.set_token ('NODE', req_node, FALSE);
948: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
949: fnd_log.message(FND_LOG.LEVEL_EVENT,
950: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
943: if (dummy >= 1) then
944: retval := NTRUE;
945: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
946: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
947: fnd_message.set_token ('NODE', req_node, FALSE);
948: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
949: fnd_log.message(FND_LOG.LEVEL_EVENT,
950: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
951: FALSE);
978: retval := NFALSE;
979: exit;
980: else
981: retval := NTRUE;
982: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
983: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
984: fnd_message.set_token ('NODE', req_node, FALSE);
985: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
986: fnd_log.message(FND_LOG.LEVEL_EVENT,
979: exit;
980: else
981: retval := NTRUE;
982: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
983: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
984: fnd_message.set_token ('NODE', req_node, FALSE);
985: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
986: fnd_log.message(FND_LOG.LEVEL_EVENT,
987: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
980: else
981: retval := NTRUE;
982: fnd_message.set_name ('FND', 'CONC-REQ NODE NOT HONORED');
983: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
984: fnd_message.set_token ('NODE', req_node, FALSE);
985: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
986: fnd_log.message(FND_LOG.LEVEL_EVENT,
987: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
988: FALSE);