1 PACKAGE BODY CSM_HA_SERVICE_PUB AS
2 /* $Header: csmhsrvb.pls 120.0.12010000.1 2010/04/08 06:39:15 saradhak noship $*/
3
4 Function GET_HA_STATUS return VARCHAR2
5 IS
6 BEGIN
7 return NVL(CSM_HA_EVENT_PKG.GET_HA_PROFILE_VALUE,'HA_STOP');
8 END GET_HA_STATUS;
9
10 /*
11 For all "enabled" checks,
12 If profile value=HA_RECORD , return value of ENABLED_ON_RECORD column
13 If profile value=HA_APPLY , return value of ENABLED_ON_APPLY column
14 If profile value=HA_STOP , return NULL - for no information
15 */
16
17 Function IS_WF_ITEM_TYPE_ENABLED( p_item_type IN VARCHAR2) return VARCHAR2
18 IS
19 CURSOR c_status IS
20 SELECT DECODE(CSM_HA_SERVICE_PUB.GET_HA_STATUS,
21 'HA_RECORD',ENABLED_ON_RECORD,
22 'HA_APPLY',ENABLED_ON_APPLY)
23 FROM CSM_HA_ACTIVE_WF_COMPONENTS
24 WHERE WF_ITEM_TYPE=p_item_type;
25
26 l_status VARCHAR2(1);
27 BEGIN
28
29 OPEN c_status;
30 FETCH c_status INTO l_status;
31 CLOSE c_status;
32
33 return l_status;
34
35 END IS_WF_ITEM_TYPE_ENABLED;
36
37 Function IS_WF_EVENT_ENABLED( p_event_name IN VARCHAR2) return VARCHAR2
38 IS
39 CURSOR c_status IS
40 SELECT DECODE(CSM_HA_SERVICE_PUB.GET_HA_STATUS,
41 'HA_RECORD',ENABLED_ON_RECORD,
42 'HA_APPLY',ENABLED_ON_APPLY)
43 FROM CSM_HA_ACTIVE_WF_COMPONENTS
44 WHERE WF_EVENT_NAME=p_event_name
45 AND WF_EVENT_SUBSCRIPTION_GUID IS NULL;
46
47 l_status VARCHAR2(1);
48 BEGIN
49
50 OPEN c_status;
51 FETCH c_status INTO l_status;
52 CLOSE c_status;
53
54 return l_status;
55
56 END IS_WF_EVENT_ENABLED;
57
58 Function IS_WF_BES_ENABLED(p_sub_guid IN RAW) return VARCHAR2
59 IS
60 CURSOR c_status IS
61 SELECT DECODE(CSM_HA_SERVICE_PUB.GET_HA_STATUS,
62 'HA_RECORD',ENABLED_ON_RECORD,
63 'HA_APPLY',ENABLED_ON_APPLY)
64 FROM CSM_HA_ACTIVE_WF_COMPONENTS
65 WHERE WF_EVENT_NAME IS NOT NULL
66 AND WF_EVENT_SUBSCRIPTION_GUID =p_sub_guid;
67
68 l_status VARCHAR2(1);
69 BEGIN
70
71 OPEN c_status;
72 FETCH c_status INTO l_status;
73 CLOSE c_status;
74
75 return l_status;
76 END IS_WF_BES_ENABLED;
77
78 END CSM_HA_SERVICE_PUB;
79