1 PACKAGE FND_APPS_MODE_UTIL AUTHID CURRENT_USER AS
2 /* $Header: AFOAMAPMDS.pls 115.1 2004/09/02 19:26:22 rmohan noship $ */
3
4 ---Common Constants
5 MAINTENANCE_MODE CONSTANT VARCHAR2(20) := 'MAINT';
6 NORMAL_MODE CONSTANT VARCHAR2(20) := 'NORMAL';
7 FUZZY_MODE CONSTANT VARCHAR2(20) := 'FUZZY';
8 DISABLEDL_MODE CONSTANT VARCHAR2(20) := 'DISABLED';
9
10
11 /**
12 * This function will return true if Application System is in Maintenance Mode
13 * else false
14 **/
15 function IS_IN_MAINTENANCE_MODE return boolean;
16
17
18 /**
19 * This function will return true if Application System is in Normal Mode
20 * else false.
21 **/
22 function IS_IN_NORMAL_MODE return boolean;
23
24
25 /**
26 * This function will return current mode of the Application System.
27 **/
28 function GET_CURRENT_MODE return varchar2;
29
30
31 /**
32 * It will set the Application System in Normal Mode.
33 * param retcode out type - values 0, 1
34 * 0 - Successful completion of procedure.
35 * errbuf will be null
36 * 1 - Error occurred and Application System mode is not changed.
37 * errbuf will have error message.
38 * param errbuf out type - If any error occurs it will have error message
39 * else null
40 **/
41 procedure SET_TO_NORMAL_MODE(retcode out NOCOPY number
42 , errbuf out NOCOPY varchar2);
43
44
45 /**
46 * It will set the Application System in Maintenance Mode.
47 * param retcode out type - values 0, 1
48 * 0 - Successful completion of procedure.
49 * errbuf will be null
50 * 1 - Error occurred and Application System mode is not changed.
51 * errbuf will have error message.
52 * param errbuf out type - If any error occurs it will have error message
53 * else null
54 **/
55 procedure SET_TO_MAINTENANCE_MODE(retcode out NOCOPY number
56 , errbuf out NOCOPY varchar2);
57
58
59 /**
60 * Do not use this API because this APIS is for internal fnd usage
61 * to accmodate following cases during patching.
62 * If Instance doesn't have APPS_MAINTENANCE_MODE profile option
63 * still we want to disable the workflow event.
64 * If profile option exist it will be set to MAINT.
65 *
66 * It will set the Application System in Maintenance Mode.
67 * param retcode out type - values 0, 1.
68 * 0 - Successful completion of procedure.
69 * errbuf will be null
70 * 1 - Error occurred and Application System mode is not changed.
71 * errbuf will have error message.
72 * param errbuf out type - If any error occurs it will have error message
73 * else null
74 **/
75 procedure SET_MAINT_MODE_PATCH_MP11510(retcode out NOCOPY number
76 , errbuf out NOCOPY varchar2);
77
78 /**
79 * Do not use this API because this APIS is for internal fnd usage
80 * to accmodate following cases during patching.
81 * If Instance doesn't have APPS_MAINTENANCE_MODE profile option
82 * still we want to enable the workflow event.
83 * If profile option exist it will be set to NORMAL.
84 *
85 * It will set the Application System in Normal Mode.
86 * param retcode out type - values 0, 1.
87 * 0 - Successful completion of procedure.
88 * errbuf will be null
89 * 1 - Error occurred and Application System mode is not changed.
90 * errbuf will have error message.
91 * param errbuf out type - If any error occurs it will have error message
92 * else null
93 **/
94 procedure SET_NORMAL_MODE_PATCH_MP11510(retcode out NOCOPY number
95 , errbuf out NOCOPY varchar2);
96
97
98
99 /**
100 * For Testing all API's
101 * After testing it will put the Apps mode in the original state.
102 **/
103 ---procedure TEST;
104
105
106 END FND_APPS_MODE_UTIL;