1 package FND_DCP as
2 /* $Header: AFCPDCPS.pls 120.3 2007/12/07 19:09:32 ckclark ship $ */
3
4 procedure get_lk_handle (apid in number,
5 qid in number,
6 pid in number,
7 hndl in out nocopy varchar2,
8 e_code in out nocopy number,
9 exp_sec in number default 86400000);
10
11 procedure check_process_status_by_handle (hndl in varchar2,
12 result out nocopy number,
13 alive out nocopy number);
14
15 procedure check_process_status_by_ids (apid in number,
16 qid in number,
17 pid in number,
18 result out nocopy number,
19 alive out nocopy number);
20
21 procedure request_session_lock (apid in number,
22 qid in number,
23 pid in number,
24 lk in out nocopy varchar2,
25 hndl in out nocopy varchar2,
26 result in out nocopy number);
27
28 -- ### OVERLOADED ###
29 /*------------------------------------------------------------------|
30 | Obsolete: Please use request_session_lock, |
31 | check_process_status_by_handle, or |
32 | check_process_status_by_ids |
33 +------------------------------------------------------------------*/
34 procedure request_lock (apid in number,
35 qid in number,
36 pid in number,
37 lk in out nocopy varchar2,
38 hndl in out nocopy varchar2,
39 e_code in out nocopy number);
40
41 -- ### OVERLOADED ###
42 /*------------------------------------------------------------------|
43 | Obsolete: Please use request_session_lock, |
44 | check_process_status_by_handle, or |
45 | check_process_status_by_ids |
46 +------------------------------------------------------------------*/
47 procedure request_lock (hndl in varchar2,
48 status in out nocopy number,
49 e_code in out nocopy number);
50
51 procedure release_lock (hndl in varchar2,
52 e_code in out nocopy number);
53
54 procedure reassign_lkh (e_code in out nocopy number);
55
56 procedure clean_mgrs (e_code in out nocopy number);
57
58 procedure monitor_icm (hndl in out nocopy varchar2,
59 up in out nocopy number,
60 logf in out nocopy varchar2,
61 node in out nocopy varchar2,
62 inst in out nocopy varchar2,
63 cpid in out nocopy number,
64 mthd in number, -- PMON method
65 e_code in out nocopy number);
66
67 procedure monitor_im (apid in number,
68 qid in number,
69 pid in number,
70 cnode in varchar2,
71 status in out nocopy number,
72 e_code in out nocopy number);
73
74 /* function get_inst_num
75 *
76 * This function is used to determine the OPS instance
77 * to which a manager should "specialize". For Parallel
78 * Concurrent Processing, we want the a manager to
79 * service requests only for the instance associated with
80 * its primary node.
81 *
82 */
83 function get_inst_num (queue_appl_id in number,
84 queue_id in number,
85 current_node in varchar2)
86 return number;
87
88 /* function target_node_mgr_chk
89 * If a request is targeted to a specific node, the concurrent
90 * manager will use this function in his request query (afpgrq)
91 * to filter it out if it doesn't meet any of the following conditions:
92 * a) request's target node is the same as manager's current node
93 * b) request's target node is different from manager's current node, but the
94 * FND_NODES status is 'N' or node_mode is not 'O' (online).
95 * c) There are no managers specialized to run this request on request's
96 * target node
97 *
98 * Parameters:
99 * request_id - id of request that is targeted to a secific node
100 *
101 * Returns:
102 * NTRUE/TRUE/1 if this request can appear in query results
103 * NFALSE/FALSE/0 if this request should be filtered from query results
104 *
105 * Assumptions:
106 * The manager's target_node in fnd_concurrent_queues is it's current
107 * node. This should always be true for active managers in afpgrq.
108 *
109 * Error conditions:
110 *
111 * All other exceptions are unhandled.
112 */
113
114 function target_node_mgr_chk (req_id in number) return number;
115
116 --
117 -- Name
118 -- is_dcp
119 -- Purpose
120 -- Returns TRUE if the environment has multiple CP nodes,
121 -- FALSE if not.
122 --
123 -- Parameters:
124 -- None
125 --
126 -- Returns:
127 -- NTRUE/TRUE/1 - environment is DCP
128 -- NFALSE/FALSE/0 - environment is non-DCP
129 --
130 function is_dcp return number;
131
132 end FND_DCP;