[Home] [Help]
PACKAGE BODY: APPS.CSC_PROF_COLOR_CODE_PUB
Source
1 PACKAGE BODY CSC_PROF_COLOR_CODE_PUB as
2 /* $Header: cscppccb.pls 115.6 2002/11/29 04:21:54 bhroy ship $ */
3 -- Start of Comments
4 -- Package name : CSC_PROF_COLOR_CODE_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSC_PROF_COLOR_CODE_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cscppccb.pls';
13
14 -- Start of Comments
15 -- ***************** Private Conversion Routines Values -> Ids **************
16 -- Purpose
17 --
18 -- This procedure takes a public PROF_COLOR_CODE record as input. It may contain
19 -- values or ids. All values are then converted into ids and a
20 -- private PROF_COLOR_CODErecord is returned for the private
21 -- API call.
22 --
23 -- Conversions:
24 --
25 -- Notes
26 --
27 -- End of Comments
28
29 PROCEDURE Convert_pub_to_pvt_Rec (
30 P_prof_color_rec IN prof_color_Rec_Type := G_MISS_prof_color_rec_type_REC,
31 x_pvt_prof_color_rec OUT NOCOPY CSC_PROF_COLOR_CODE_PVT.prof_color_Rec_Type
32 )
33 IS
34 l_any_errors BOOLEAN := FALSE;
35 BEGIN
36 x_pvt_prof_color_rec.COLOR_CODE := P_prof_color_rec.COLOR_CODE;
37 x_pvt_prof_color_rec.RATING_CODE := P_prof_color_rec.RATING_CODE;
38 x_pvt_prof_color_rec.LAST_UPDATE_DATE := P_prof_color_rec.LAST_UPDATE_DATE;
39 x_pvt_prof_color_rec.LAST_UPDATED_BY := P_prof_color_rec.LAST_UPDATED_BY;
40 x_pvt_prof_color_rec.CREATION_DATE := P_prof_color_rec.CREATION_DATE;
41 x_pvt_prof_color_rec.CREATED_BY := P_prof_color_rec.CREATED_BY;
42 x_pvt_prof_color_rec.LAST_UPDATE_LOGIN := P_prof_color_rec.LAST_UPDATE_LOGIN;
43
44 -- If there is an error in conversion precessing, raise an error.
45 IF l_any_errors
46 THEN
47 raise FND_API.G_EXC_ERROR;
48 END IF;
49 END Convert_pub_to_pvt_Rec;
50
51 PROCEDURE Convert_Columns_to_Rec (
52 p_COLOR_CODE VARCHAR2 DEFAULT NULL,
53 p_RATING_CODE VARCHAR2,
54 p_LAST_UPDATE_DATE DATE,
55 p_LAST_UPDATED_BY NUMBER,
56 p_CREATION_DATE DATE,
57 p_CREATED_BY NUMBER,
58 p_LAST_UPDATE_LOGIN NUMBER,
59 x_prof_color_rec OUT NOCOPY prof_color_Rec_Type
60 )
61 IS
62 BEGIN
63
64 x_prof_color_rec.COLOR_CODE := p_COLOR_CODE;
65 x_prof_color_rec.RATING_CODE := p_RATING_CODE;
66 x_prof_color_rec.created_by := p_created_by;
67 x_prof_color_rec.creation_date := p_creation_date;
68 x_prof_color_rec.last_updated_by := p_last_updated_by;
69 x_prof_color_rec.last_update_date := p_last_update_date;
70 x_prof_color_rec.last_update_login := p_last_update_login;
71
72 END Convert_Columns_to_Rec;
73
74 PROCEDURE Create_prof_color_code(
75 P_Api_Version_Number IN NUMBER,
76 P_Init_Msg_List IN VARCHAR2,
77 P_Commit IN VARCHAR2,
78 px_COLOR_CODE IN OUT NOCOPY VARCHAR2 ,
79 p_RATING_CODE VARCHAR2,
80 p_LAST_UPDATE_DATE DATE,
81 p_LAST_UPDATED_BY NUMBER,
82 p_CREATION_DATE DATE,
83 p_CREATED_BY NUMBER,
84 p_LAST_UPDATE_LOGIN NUMBER,
85 X_Return_Status OUT NOCOPY VARCHAR2,
86 X_Msg_Count OUT NOCOPY NUMBER,
87 X_Msg_Data OUT NOCOPY VARCHAR2
88 )
89
90 IS
91 l_prof_color_rec prof_color_Rec_Type;
92 BEGIN
93 Convert_Columns_to_Rec (
94 p_RATING_CODE=> p_RATING_CODE ,
95 p_LAST_UPDATE_DATE =>p_LAST_UPDATE_DATE ,
96 P_LAST_UPDATED_BY=>p_LAST_UPDATED_BY ,
97 p_CREATION_DATE=>p_CREATION_DATE ,
98 p_CREATED_BY=>p_CREATED_BY ,
99 p_LAST_UPDATE_LOGIN=>p_LAST_UPDATE_LOGIN ,
100 x_prof_color_rec=>l_prof_color_rec );
101
102 Create_prof_color_code(
103 P_Api_Version_Number => P_Api_Version_Number,
104 P_Init_Msg_List => P_Init_Msg_List,
105 P_Commit => P_Commit,
106 P_prof_color_rec => l_prof_color_rec,
107 PX_COLOR_CODE => PX_COLOR_CODE,
108 X_Return_Status => X_Return_Status,
109 X_Msg_Count => X_Msg_Count,
110 X_Msg_Data => X_Msg_Data );
111
112 END Create_prof_color_code;
113
114 PROCEDURE Create_prof_color_code(
115 P_Api_Version_Number IN NUMBER,
116 P_Init_Msg_List IN VARCHAR2,
117 P_Commit IN VARCHAR2,
118 P_prof_color_rec IN prof_color_Rec_Type,
119 px_COLOR_CODE IN OUT NOCOPY VARCHAR2,
120 X_Return_Status OUT NOCOPY VARCHAR2,
121 X_Msg_Count OUT NOCOPY NUMBER,
122 X_Msg_Data OUT NOCOPY VARCHAR2
123 )
124
125 IS
126 l_api_name CONSTANT VARCHAR2(30) := 'Create_prof_color_code';
127 l_api_version_number CONSTANT NUMBER := 2.0;
128 l_pvt_prof_color_rec CSC_PROF_COLOR_CODE_PVT.prof_color_Rec_Type;
129 BEGIN
130 -- Standard Start of API savepoint
131 SAVEPOINT CREATE_PROF_COLOR_CODE_PUB;
132
133 -- Standard call to check for call compatibility.
134 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
135 p_api_version_number,
136 l_api_name,
137 G_PKG_NAME)
138 THEN
139 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140 END IF;
141
142
143 -- Initialize message list if p_init_msg_list is set to TRUE.
144 IF FND_API.to_Boolean( p_init_msg_list )
145 THEN
146 FND_MSG_PUB.initialize;
147 END IF;
148
149
150
151 -- Initialize API return status to SUCCESS
152 x_return_status := FND_API.G_RET_STS_SUCCESS;
153
154 --
155 -- API body
156 --
157
158 Convert_pub_to_pvt_Rec (
159 P_prof_color_rec => p_prof_color_rec,
160 x_pvt_prof_color_rec => l_pvt_prof_color_rec
161 );
162
163
164 CSC_prof_color_code_PVT.Create_prof_color_code(
165 P_Api_Version_Number => 2.0,
166 P_Init_Msg_List => FND_API.G_FALSE,
167 P_Commit => FND_API.G_FALSE,
168 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
169 P_prof_color_rec => l_pvt_prof_color_rec ,
170 PX_COLOR_CODE => px_COLOR_CODE,
171 X_Return_Status => x_return_status,
172 X_Msg_Count => x_msg_count,
173 X_Msg_Data => x_msg_data);
174
175
176
177 -- Check return status from the above procedure call
178 IF x_return_status = FND_API.G_RET_STS_ERROR then
179 raise FND_API.G_EXC_ERROR;
180 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
181 raise FND_API.G_EXC_UNEXPECTED_ERROR;
182 END IF;
183
184 --
185 -- End of API body.
186 --
187
188 -- Standard check for p_commit
189 IF FND_API.to_Boolean( p_commit )
190 THEN
191 COMMIT WORK;
192 END IF;
193
194
195
196 -- Standard call to get message count and if count is 1, get message info.
197 FND_MSG_PUB.Count_And_Get
198 ( p_count => x_msg_count,
199 p_data => x_msg_data
200 );
201
202 EXCEPTION
203 WHEN FND_API.G_EXC_ERROR THEN
204 ROLLBACK TO CREATE_PROF_COLOR_CODE_PUB;
205 x_return_status := FND_API.G_RET_STS_ERROR ;
206 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
207 p_data => x_msg_data) ;
208
209 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210 ROLLBACK TO CREATE_PROF_COLOR_CODE_PUB;
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
212 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
213 p_data => x_msg_data) ;
214
215 WHEN OTHERS THEN
216 ROLLBACK TO CREATE_PROF_COLOR_CODE_PUB;
217 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
218 IF FND_MSG_PUB.Check_Msg_Level
219 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
220 THEN
221 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
222 END IF ;
223 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
224 p_data => x_msg_data) ;
225 End Create_prof_color_code;
226
227
228 PROCEDURE Update_prof_color_code(
229 P_Api_Version_Number IN NUMBER,
230 P_Init_Msg_List IN VARCHAR2,
231 P_Commit IN VARCHAR2,
232 p_COLOR_CODE VARCHAR2,
233 p_RATING_CODE VARCHAR2,
234 p_LAST_UPDATE_DATE DATE,
235 p_LAST_UPDATED_BY NUMBER,
236 p_CREATION_DATE DATE,
237 p_CREATED_BY NUMBER,
238 p_LAST_UPDATE_LOGIN NUMBER,
239 X_Return_Status OUT NOCOPY VARCHAR2,
240 X_Msg_Count OUT NOCOPY NUMBER,
241 X_Msg_Data OUT NOCOPY VARCHAR2
242 )
243
244 IS
245 l_prof_color_rec prof_color_Rec_Type;
246 BEGIN
247
248 Convert_Columns_to_Rec (
249 p_COLOR_CODE ,
250 p_RATING_CODE ,
251 p_LAST_UPDATE_DATE ,
252 p_LAST_UPDATED_BY ,
253 p_CREATION_DATE ,
254 p_CREATED_BY ,
255 p_LAST_UPDATE_LOGIN ,
256 l_prof_color_rec );
257
258 Update_prof_color_code(
259 P_Api_Version_Number => P_Api_Version_Number,
260 P_Init_Msg_List => P_Init_Msg_List,
261 P_Commit => P_Commit,
262 P_prof_color_rec => l_prof_color_rec,
263 X_Return_Status => X_Return_Status,
264 X_Msg_Count => X_Msg_Count,
265 X_Msg_Data => X_Msg_Data );
266
267
268 END Update_prof_color_code;
269
270
271 PROCEDURE Update_prof_color_code(
272 P_Api_Version_Number IN NUMBER,
273 P_Init_Msg_List IN VARCHAR2,
274 P_Commit IN VARCHAR2,
275 P_prof_color_rec IN prof_color_Rec_Type,
276 X_Return_Status OUT NOCOPY VARCHAR2,
277 X_Msg_Count OUT NOCOPY NUMBER,
278 X_Msg_Data OUT NOCOPY VARCHAR2
279 )
280
281 IS
282 l_api_name CONSTANT VARCHAR2(30) := 'Update_prof_color_code';
283 l_api_version_number CONSTANT NUMBER := 1.0;
284 l_pvt_prof_color_rec CSC_PROF_COLOR_CODE_PVT.prof_color_Rec_Type;
285 BEGIN
286 -- Standard Start of API savepoint
287 SAVEPOINT UPDATE_PROF_COLOR_CODE_PUB;
288
289 -- Standard call to check for call compatibility.
290 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
291 p_api_version_number,
292 l_api_name,
293 G_PKG_NAME)
294 THEN
295 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
296 END IF;
297
298
299 -- Initialize message list if p_init_msg_list is set to TRUE.
300 IF FND_API.to_Boolean( p_init_msg_list )
301 THEN
302 FND_MSG_PUB.initialize;
303 END IF;
304
305
306
307 -- Initialize API return status to SUCCESS
308 x_return_status := FND_API.G_RET_STS_SUCCESS;
309
310 --
311 -- API body
312 --
313
314 Convert_pub_to_pvt_Rec (
315 P_prof_color_rec => p_prof_color_rec,
316 x_pvt_prof_color_rec => l_pvt_prof_color_rec
317 );
318
319
320 CSC_prof_color_code_PVT.Update_prof_color_code(
321 P_Api_Version_Number => 1.0,
322 P_Init_Msg_List => FND_API.G_FALSE,
323 P_Commit => p_commit,
324 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
325 P_prof_color_rec => l_pvt_prof_color_rec ,
326 X_Return_Status => x_return_status,
327 X_Msg_Count => x_msg_count,
328 X_Msg_Data => x_msg_data);
329
330
331
332 -- Check return status from the above procedure call
333 IF x_return_status = FND_API.G_RET_STS_ERROR then
334 raise FND_API.G_EXC_ERROR;
335 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
336 raise FND_API.G_EXC_UNEXPECTED_ERROR;
337 END IF;
338
339 --
340 -- End of API body
341 --
342
343 -- Standard check for p_commit
344 IF FND_API.to_Boolean( p_commit )
345 THEN
346 COMMIT WORK;
347 END IF;
348
349
350
351 -- Standard call to get message count and if count is 1, get message info.
352 FND_MSG_PUB.Count_And_Get
353 ( p_count => x_msg_count,
354 p_data => x_msg_data
355 );
356
357 EXCEPTION
358 WHEN FND_API.G_EXC_ERROR THEN
359 ROLLBACK TO UPDATE_PROF_COLOR_CODE_PUB;
360 x_return_status := FND_API.G_RET_STS_ERROR ;
361 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
362 p_data => x_msg_data) ;
363
364 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365 ROLLBACK TO UPDATE_PROF_COLOR_CODE_PUB;
366 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
368 p_data => x_msg_data) ;
369
370 WHEN OTHERS THEN
371 ROLLBACK TO UPDATE_PROF_COLOR_CODE_PUB;
372 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
373 IF FND_MSG_PUB.Check_Msg_Level
374 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
375 THEN
376 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
377 END IF ;
378 FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
379 p_data => x_msg_data) ;
380
381
382 End Update_prof_color_code;
383
384 End CSC_PROF_COLOR_CODE_PUB;