DBA Data[Home] [Help]

APPS.FND_DCP dependencies on FND_DCP

Line 1: package body FND_DCP as

1: package body FND_DCP as
2: /* $Header: AFCPDCPB.pls 120.5.12020000.3 2012/10/11 22:31:51 ckclark ship $ */
3:
4: --
5: -- PRIVATE VARIABLES

Line 26: procedure debug_fnd_dcp (fn in varchar2,

22: --
23:
24: /* Private -- inserts info in FND_CONCURRENT_DEBUG_INFO */
25:
26: procedure debug_fnd_dcp (fn in varchar2,
27: msg in varchar2,
28: txn in number default NULL) is
29: pragma AUTONOMOUS_TRANSACTION;
30: userid number;

Line 42: end debug_fnd_dcp;

38: sysdate, 'TXN NO '|| nvl(to_char(txn),'NULL'), msg);
39:
40: commit;
41:
42: end debug_fnd_dcp;
43:
44: function get_icm_info (logf in out nocopy varchar2,
45: node in out nocopy varchar2,
46: inst in out nocopy varchar2)

Line 69: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.GET_ICM_INFO',

65: and concurrent_queue_id = 1
66: and process_status_code in ('A', 'M', 'K'));
67:
68: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
69: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.GET_ICM_INFO',
70: 'ICM info: cpid=' ||cpid||', node='||node||', inst=' ||inst);
71: end if;
72:
73: return (cpid);

Line 236: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',

232: timeout number;
233: begin
234: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
235: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
236: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',
237: 'request_session_lock called for apid='||to_char(apid)||
238: ', qid='||to_char(qid)||', pid='||to_char(pid));
239: end if;
240:

Line 256: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',

252: timeout := null; -- Others wait MAXWAIT for lock request.
253: end if;
254: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
255: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
256: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',
257: 'lock name='||lk);
258: end if;
259:
260: /*-------------------------------------------------------+

Line 278: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',

274: return;
275: else
276: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
277: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
278: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',
279: 'for lock name='||lk||' hndl='||hndl);
280: end if;
281: end if;
282:

Line 292: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',

288: timeout => timeout,
289: result => result);
290: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
291: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
292: 'fnd.plsql.FND_DCP.REQUEST_SESSION_LOCK',
293: 'result of request_lock: '||to_char(result));
294: end if;
295:
296: if (result in (0, 4)) then

Line 301: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);

297: return;
298: else
299: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
300: fnd_message.set_token ('ROUTINE',
301: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
302: fnd_message.set_token ('RESULT',
303: nvl(to_char(result),'NULL'), FALSE);
304: lk := null;
305: hndl := null;

Line 330: 'fnd.plsql.FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',

326:
327: begin
328: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
329: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
330: 'fnd.plsql.FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
331: 'check_process_status_by_handle called for hndl='||hndl);
332: end if;
333:
334: /*-------------------------------------------------------+

Line 343: 'fnd.plsql.FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',

339: timeout => 0,
340: result => result);
341: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
342: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
343: 'fnd.plsql.FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
344: 'result of request_lock: '||to_char(result));
345: end if;
346:
347: if (result = 0) then

Line 376: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',

372: +-------------------------------------------------------*/
373: alive := NTRUE; -- assume manager alive
374: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
375: fnd_message.set_token ('ROUTINE',
376: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
377: FALSE);
378: fnd_message.set_token ('RESULT',
379: nvl(to_char(result), 'NULL'), FALSE);
380:

Line 539: 'fnd.plsql.FND_DCP.RELEASE_LOCK',

535:
536: begin
537: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
538: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
539: 'fnd.plsql.FND_DCP.RELEASE_LOCK',
540: 'release_lock called for hndl='||hndl);
541: end if;
542: result := dbms_lock.release (hndl);
543:

Line 551: 'fnd.plsql.FND_DCP.RELEASE_LOCK',

547: e_code := NFALSE;
548: end if;
549: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
550: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
551: 'fnd.plsql.FND_DCP.RELEASE_LOCK',
552: 'release result='||to_char(result));
553: end if;
554: exception
555: when others then

Line 608: 'fnd.plsql.FND_DCP.MONITOR_ICM',

604: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
605:
606: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
607: fnd_log.string(FND_LOG.LEVEL_EVENT,
608: 'fnd.plsql.FND_DCP.MONITOR_ICM',
609: 'lock request result='||to_char(result)||' for hndl='||hndl);
610: end if;
611:
612:

Line 624: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

620: end if; -- PMON method TSTAMP/DBLOCK
621:
622: if (cpid is null) then
623: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
624: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
625: 'get_icm_info returned cpid NULL');
626: end if;
627:
628: up := NTRUE;

Line 635: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

631: return;
632:
633: else
634: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
635: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
636: 'get_icm_info returned cpid='||to_char(cpid));
637: end if;
638:
639: lk := FNDCPLK || '0_1_' || cpid;

Line 644: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

640: dbms_lock.allocate_unique (lk, hndl, EON);
641: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
642:
643: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
644: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
645: 'new lock name = '||lk);
646: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
647: 'lock request result='||to_char(result)||' for hndl='||hndl);
648: end if;

Line 646: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

642:
643: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
644: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
645: 'new lock name = '||lk);
646: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
647: 'lock request result='||to_char(result)||' for hndl='||hndl);
648: end if;
649:
650: if (result = 0) then -- Success

Line 916: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

912: begin
913:
914: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
915: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
916: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
917: 'Enter TARGET_NODE_MGR_CHK for manager ('||
918: to_char(my_q_appl_id)|| '/'||my_q_id||
919: ') and request_id '|| to_char(req_id));
920: end if;

Line 930: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

926: where request_id = req_id;
927:
928: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
929: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
930: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
931: 'Target node for request '||to_char(req_id)||' is '||
932: NVL(req_node,'NULL'));
933: end if;
934:

Line 952: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

948: end if;
949:
950: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
951: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
952: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
953: 'Manager node is '||NVL(my_node,'NULL'));
954: end if;
955:
956: /* If request target node matches my node, okay to run it */

Line 974: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

970:
971: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
972: if dummy >= 1 then
973: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
974: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
975: 'Request target node '||req_node||' is DOWN');
976: else
977: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
978: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

Line 978: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

974: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
975: 'Request target node '||req_node||' is DOWN');
976: else
977: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
978: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
979: 'Request target node '||req_node||' is UP');
980: end if;
981: end if;
982:

Line 991: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

987: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
988: fnd_message.set_token ('NODE', req_node, FALSE);
989: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
990: fnd_log.message(FND_LOG.LEVEL_EVENT,
991: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
992: FALSE);
993: end if;
994: end if;
995: end if;

Line 1002: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

998: /* The first available manager we find, exit and return NFALSE */
999: if (retval = NFALSE) then
1000: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1001: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1002: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1003: 'Enter loop to determine if another manager can run');
1004: end if;
1005: for mgr_rec in mgr_cursor(req_id, my_q_appl_id, my_q_id) loop
1006: if ((mgr_rec.active = 'Y')

Line 1013: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

1009: and mgr_rec.target_node = req_node) then
1010: /* Here is an available manager, no need to continue. */
1011: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1012: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1013: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1014: 'Another manager ('||
1015: to_char(mgr_rec.queue_application_id )||'/'||
1016: to_char(mgr_rec.concurrent_queue_id)||
1017: ') can run this request');

Line 1028: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

1024: fnd_message.set_token ('REQID', to_char(req_id), FALSE);
1025: fnd_message.set_token ('NODE', req_node, FALSE);
1026: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1027: fnd_log.message(FND_LOG.LEVEL_EVENT,
1028: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1029: FALSE);
1030: end if;
1031: end if;
1032: end loop;

Line 1038: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

1034:
1035: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1036: if retval = NTRUE then
1037: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1038: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1039: 'Returning retval= NTRUE');
1040: else
1041: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1042: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

Line 1042: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

1038: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1039: 'Returning retval= NTRUE');
1040: else
1041: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1042: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1043: 'Returning retval= NFALSE');
1044: end if;
1045: end if;
1046: return retval;

Line 1084: end FND_DCP;

1080:
1081: end is_dcp;
1082:
1083:
1084: end FND_DCP;