[Home] [Help]
PACKAGE BODY: APPS.ICX_CAT_POPULATE_BPA_GRP
Source
1 PACKAGE BODY ICX_CAT_POPULATE_BPA_GRP AS
2 /* $Header: ICXGPPBB.pls 120.1 2005/12/13 15:28:01 sbgeorge noship $*/
3
4 -- Constants
5 G_PKG_NAME CONSTANT VARCHAR2(30):='ICX_CAT_POPULATE_BPA_GRP';
6
7 PROCEDURE populateOnlineBlankets
8 ( p_api_version IN NUMBER ,
9 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
10 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
11 p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL ,
12 x_return_status OUT NOCOPY VARCHAR2 ,
13 p_key IN NUMBER
14 )
15 IS
16 l_api_name CONSTANT VARCHAR2(30) := 'populateOnlineBlankets';
17 l_api_version CONSTANT NUMBER := 1.0;
18 l_err_loc PLS_INTEGER;
19 l_start_date DATE;
20 l_end_date DATE;
21 l_log_string VARCHAR2(2000);
22
23 BEGIN
24 l_err_loc := 100;
25 x_return_status := FND_API.G_RET_STS_SUCCESS;
26
27 l_err_loc := 200;
28 -- Standard Start of API savepoint
29 SAVEPOINT populateOnlineBlankets_sp;
30
31 l_err_loc := 300;
32 l_start_date := sysdate;
33
34 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
35 l_log_string := 'Started at:' || TO_CHAR(l_start_date, 'DD-MON-YYYY HH24:MI:SS') ||
36 ', p_api_version:' || p_api_version ||
37 ', p_commit:' || p_commit ||
38 ', p_key:' || p_key ;
39 ICX_CAT_UTIL_PVT.logProcBegin(g_pkg_name, l_api_name, l_log_string);
40 END IF;
41
42 l_err_loc := 400;
43 -- Standard call to check for call compatibility.
44 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
45 p_api_version ,
46 l_api_name ,
47 G_PKG_NAME )
48 THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 l_err_loc := 500;
53 ICX_CAT_UTIL_PVT.setCommitParameter(P_COMMIT);
54
55 l_err_loc := 600;
56 ICX_CAT_POPULATE_PODOCS_PVT.populateOnlineBlankets(p_key);
57
58 l_err_loc := 700;
59 -- Standard check of P_COMMIT
60 IF (FND_API.To_Boolean(P_COMMIT)) THEN
61 l_err_loc := 800;
62 COMMIT;
63 l_err_loc := 900;
64 -- Call the rebuild index
65 ICX_CAT_INTERMEDIA_INDEX_PVT.rebuild_index;
66 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
67 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
68 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
69 'Rebuild indexes called.');
70 END IF;
71 ELSE
72 l_err_loc := 1000;
73 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
74 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
75 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
76 'p_commit is false, so Rebuild indexes is not called.');
77 END IF;
78 END IF;
79
80 l_err_loc := 1100;
81 l_end_date := sysdate;
82 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
83 ICX_CAT_UTIL_PVT.logProcEnd(g_pkg_name, l_api_name,
84 ' done in:' || ICX_CAT_UTIL_PVT.getTimeStats(l_start_date, l_end_date));
85 END IF;
86 EXCEPTION
87 WHEN OTHERS THEN
88 BEGIN
89 ROLLBACK TO populateOnlineBlankets_sp;
90 EXCEPTION
91 WHEN OTHERS THEN
92 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93 FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
94 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
95 'ROLLBACK TO the savepoint caused the exception -->'
96 || SQLERRM);
97 END IF;
98 NULL;
99 END;
100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101 END populateOnlineBlankets;
102
103 PROCEDURE populateOnlineOrgAssgnmnts
104 ( p_api_version IN NUMBER ,
105 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
106 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
107 p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL ,
108 x_return_status OUT NOCOPY VARCHAR2 ,
109 p_key IN NUMBER
110 )
111 IS
112 l_api_name CONSTANT VARCHAR2(30) := 'populateOnlineOrgAssgnmnts';
113 l_api_version CONSTANT NUMBER := 1.0;
114 l_err_loc PLS_INTEGER;
115 l_start_date DATE;
116 l_end_date DATE;
117 l_log_string VARCHAR2(2000);
118
119 BEGIN
120 l_err_loc := 100;
121 x_return_status := FND_API.G_RET_STS_SUCCESS;
122
123 l_err_loc := 200;
124 -- Standard Start of API savepoint
125 SAVEPOINT populateOnlineOrgAssgnmnts_sp;
126
127 l_err_loc := 300;
128 l_start_date := sysdate;
129
130 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131 l_log_string := 'Started at:' || TO_CHAR(l_start_date, 'DD-MON-YYYY HH24:MI:SS') ||
132 ', p_api_version:' || p_api_version ||
133 ', p_commit:' || p_commit ||
134 ', p_key:' || p_key;
135 ICX_CAT_UTIL_PVT.logProcBegin(g_pkg_name, l_api_name, l_log_string);
136 END IF;
137
138 l_err_loc := 400;
139 -- Standard call to check for call compatibility.
140 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
141 p_api_version ,
142 l_api_name ,
143 G_PKG_NAME )
144 THEN
145 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146 END IF;
147
148 l_err_loc := 500;
149 ICX_CAT_UTIL_PVT.setCommitParameter(P_COMMIT);
150
151 l_err_loc := 600;
152 ICX_CAT_POPULATE_PODOCS_PVT.populateOnlineOrgAssgnmnts(p_key);
153
154 l_err_loc := 700;
155 -- Standard check of P_COMMIT
156 IF (FND_API.To_Boolean(P_COMMIT)) THEN
157 l_err_loc := 800;
158 COMMIT;
159 l_err_loc := 900;
160 -- Call the rebuild index
161 ICX_CAT_INTERMEDIA_INDEX_PVT.rebuild_index;
162 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
163 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
164 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
165 'Rebuild indexes called.');
166 END IF;
167 ELSE
168 l_err_loc := 1000;
169 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
171 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
172 'p_commit is false, so Rebuild indexes is not called.');
173 END IF;
174 END IF;
175
176 l_err_loc := 1100;
177 l_end_date := sysdate;
178 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
179 ICX_CAT_UTIL_PVT.logProcEnd(g_pkg_name, l_api_name,
180 ' done in:' || ICX_CAT_UTIL_PVT.getTimeStats(l_start_date, l_end_date));
181 END IF;
182 EXCEPTION
183 WHEN OTHERS THEN
184 BEGIN
185 ROLLBACK TO populateOnlineOrgAssgnmnts_sp;
186 EXCEPTION
187 WHEN OTHERS THEN
188 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
189 FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
190 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
191 'ROLLBACK TO the savepoint caused the exception -->'
192 || SQLERRM);
193 END IF;
194 NULL;
195 END;
196 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197 END populateOnlineOrgAssgnmnts;
198
199 END ICX_CAT_POPULATE_BPA_GRP;