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 2007/12/28 19:41:22 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 279: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);

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;
283: hndl := null;

Line 344: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',

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);
348:

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

563: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
564:
565: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
566: fnd_log.string(FND_LOG.LEVEL_EVENT,
567: 'fnd.plsql.FND_DCP.MONITOR_ICM',
568: 'lock request result='||to_char(result)||' for hndl='||hndl);
569: end if;
570:
571:

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

579: end if; -- PMON method TSTAMP/DBLOCK
580:
581: if (cpid is null) then
582: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
583: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
584: 'get_icm_info returned cpid NULL');
585: end if;
586:
587: up := NTRUE;

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

590: return;
591:
592: else
593: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
594: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
595: 'get_icm_info returned cpid='||to_char(cpid));
596: end if;
597:
598: lk := FNDCPLK || '0_1_' || cpid;

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

599: dbms_lock.allocate_unique (lk, hndl, EON);
600: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
601:
602: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
603: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
604: 'new lock name = '||lk);
605: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
606: 'lock request result='||to_char(result)||' for hndl='||hndl);
607: end if;

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

601:
602: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
603: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
604: 'new lock name = '||lk);
605: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
606: 'lock request result='||to_char(result)||' for hndl='||hndl);
607: end if;
608:
609: if (result = 0) then -- Success

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

871: begin
872:
873: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
874: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
875: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
876: 'Enter TARGET_NODE_MGR_CHK for manager ('||
877: to_char(my_q_appl_id)|| '/'||my_q_id||
878: ') and request_id '|| to_char(req_id));
879: end if;

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

885: where request_id = req_id;
886:
887: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
888: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
889: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
890: 'Target node for request '||to_char(req_id)||' is '||
891: NVL(req_node,'NULL'));
892: end if;
893:

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

907: end if;
908:
909: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
910: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
911: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
912: 'Manager node is '||NVL(my_node,'NULL'));
913: end if;
914:
915: /* If request target node matches my node, okay to run it */

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

929:
930: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
931: if dummy >= 1 then
932: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
933: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
934: 'Request target node '||req_node||' is DOWN');
935: else
936: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
937: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

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

933: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
934: 'Request target node '||req_node||' is DOWN');
935: else
936: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
937: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
938: 'Request target node '||req_node||' is UP');
939: end if;
940: end if;
941:

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

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);
952: end if;
953: end if;
954: end if;

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

957: /* The first available manager we find, exit and return NFALSE */
958: if (retval = NFALSE) then
959: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
960: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
961: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
962: 'Enter loop to determine if another manager can run');
963: end if;
964: for mgr_rec in mgr_cursor(req_id, my_q_appl_id, my_q_id) loop
965: if ((mgr_rec.active = 'Y')

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

968: and mgr_rec.target_node = req_node) then
969: /* Here is an available manager, no need to continue. */
970: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
971: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
972: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
973: 'Another manager ('||
974: to_char(mgr_rec.queue_application_id )||'/'||
975: to_char(mgr_rec.concurrent_queue_id)||
976: ') can run this request');

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

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);
989: end if;
990: end if;
991: end loop;

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

993:
994: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
995: if retval = NTRUE then
996: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
997: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
998: 'Returning retval= NTRUE');
999: else
1000: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1001: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',

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

997: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
998: 'Returning retval= NTRUE');
999: else
1000: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1001: 'fnd.plsql.FND_DCP.TARGET_NODE_MGR_CHK',
1002: 'Returning retval= NFALSE');
1003: end if;
1004: end if;
1005: return retval;

Line 1043: end FND_DCP;

1039:
1040: end is_dcp;
1041:
1042:
1043: end FND_DCP;