[Home] [Help]
PACKAGE BODY: APPS.WSH_CAL_ASG_PKG
Source
1 PACKAGE BODY WSH_CAL_ASG_PKG AS
2 -- $Header: WSHCAPKB.pls 115.10 2003/07/22 07:50:03 msutar ship $
3
4 --===================
5 -- CONSTANTS
6 --===================
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'WSH_CAL_ASG_PKG';
8 -- add your constants here if any
9
10 --========================================================================
11 -- PROCEDURE : Create_Cal_Asg PUBLIC
12 -- PARAMETERS: p_api_version_number known api versionerror buffer
13 -- p_init_msg_list FND_API.G_TRUE to reset list
14 -- x_return_status return status
15 -- x_msg_count number of messages in the list
16 -- x_msg_data text of messages
17 -- VERSION : current version 1.0
18 -- initial version 1.0
19 -- COMMENT : Sets up a transportation calendar
20 --========================================================================
21 PROCEDURE Create_Cal_Asg
22 ( p_api_version_number IN NUMBER
23 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24 , p_cal_asg_info IN CalAsgRecType DEFAULT NULL
25 , x_return_status OUT NOCOPY VARCHAR2
26 , x_msg_count OUT NOCOPY NUMBER
27 , x_msg_data OUT NOCOPY VARCHAR2
28 , x_Calendar_Aassignment_Id OUT NOCOPY NUMBER
29 )
30 IS
31 -- <insert here your local variables declaration>
32 l_api_version_number CONSTANT NUMBER := 1.0;
33 l_api_name CONSTANT VARCHAR2(30):= 'Create_Cal_Asg';
34
35 CURSOR get_cal_id IS
36 SELECT WSH_CALENDAR_ASSIGNMENTS_S.NextVal
37 FROM sys.dual;
38
39 l_cal_id NUMBER;
40
41 --
42 l_debug_on BOOLEAN;
43 --
44 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_CAL_ASG';
45 --
46 BEGIN
47 -- Standard call to check for call compatibility
48 --
49 -- Debug Statements
50 --
51 --
52 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
53 --
54 IF l_debug_on IS NULL
55 THEN
56 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
57 END IF;
58 --
59 IF l_debug_on THEN
60 WSH_DEBUG_SV.push(l_module_name);
61 --
62 WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION_NUMBER',P_API_VERSION_NUMBER);
63 WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
64 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CALENDAR_TYPE',p_cal_asg_info.CALENDAR_TYPE);
65 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ASSOCIATION_TYPE',p_cal_asg_info.ASSOCIATION_TYPE);
66 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ENABLED_FLAG',p_cal_asg_info.ENABLED_FLAG);
67 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CALENDAR_CODE',p_cal_asg_info.CALENDAR_CODE);
68 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ORGANIZATION_ID',p_cal_asg_info.ORGANIZATION_ID);
69 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.LOCATION_ID',p_cal_asg_info.LOCATION_ID);
70 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.VENDOR_ID',p_cal_asg_info.VENDOR_ID);
71 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.VENDOR_SITE_ID',p_cal_asg_info.VENDOR_SITE_ID);
72 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CUSTOMER_ID',p_cal_asg_info.CUSTOMER_ID);
73 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CUSTOMER_SITE_USE_ID',p_cal_asg_info.CUSTOMER_SITE_USE_ID);
74 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.REIGHT_CODE',p_cal_asg_info.FREIGHT_CODE);
75 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.FREIGHT_ORG_ID',p_cal_asg_info.FREIGHT_ORG_ID);
76 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CARRIER_ID',p_cal_asg_info.VENDOR_ID);
77 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CARRIER_SITE_ID',p_cal_asg_info.VENDOR_SITE_ID);
78 END IF;
79 --
80 IF NOT FND_API.Compatible_API_Call
81 ( l_api_version_number
82 , p_api_version_number
83 , l_api_name
84 , G_PKG_NAME
85 )
86 THEN
87 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88 END IF;
89
90 -- Initialize message stack if required
91 IF FND_API.to_Boolean(p_init_msg_list)
92 THEN
93 FND_MSG_PUB.initialize;
94 END IF;
95
96 -- <begin procedure logic>
97 OPEN get_cal_id;
98 FETCH get_cal_id INTO l_cal_id;
99 CLOSE get_cal_id;
100
101 x_Calendar_Aassignment_Id := l_cal_id;
102
103 INSERT INTO WSH_CALENDAR_ASSIGNMENTS
104 (CALENDAR_ASSIGNMENT_ID,
105 CALENDAR_CODE,
106 CALENDAR_TYPE,
107 ASSOCIATION_TYPE,
108 ENABLED_FLAG,
109 ORGANIZATION_ID,
110 LOCATION_ID,
111 VENDOR_ID,
112 VENDOR_SITE_ID,
113 CUSTOMER_ID,
114 CUSTOMER_SITE_USE_ID,
115 FREIGHT_CODE,
116 FREIGHT_ORG_ID,
117 CARRIER_ID,
118 CARRIER_SITE_ID,
119 LAST_UPDATE_DATE,
120 LAST_UPDATED_BY,
121 CREATION_DATE,
122 CREATED_BY,
123 LAST_UPDATE_LOGIN,
124 ATTRIBUTE_CATEGORY,
125 ATTRIBUTE1,
126 ATTRIBUTE2,
127 ATTRIBUTE3,
128 ATTRIBUTE4,
129 ATTRIBUTE5,
130 ATTRIBUTE6,
131 ATTRIBUTE7,
132 ATTRIBUTE8,
133 ATTRIBUTE9,
134 ATTRIBUTE10,
135 ATTRIBUTE11,
136 ATTRIBUTE12,
137 ATTRIBUTE13,
138 ATTRIBUTE14,
139 ATTRIBUTE15
140 )
141 VALUES
142 (l_cal_id,
143 p_cal_asg_info.calendar_code,
144 p_cal_asg_info.calendar_type,
145 p_cal_asg_info.association_type,
146 p_cal_asg_info.enabled_flag,
147 p_cal_asg_info.organization_id,
148 p_cal_asg_info.location_id,
149 p_cal_asg_info.vendor_id,
150 p_cal_asg_info.vendor_site_id,
151 p_cal_asg_info.customer_id,
152 p_cal_asg_info.customer_site_use_id,
153 p_cal_asg_info.freight_code,
154 p_cal_asg_info.freight_org_id,
155 p_cal_asg_info.carrier_id,
156 p_cal_asg_info.carrier_site_id,
157 sysdate,
158 fnd_global.user_id,
159 sysdate,
160 fnd_global.user_id,
161 fnd_global.login_id,
162 p_cal_asg_info.ATTRIBUTE_CATEGORY,
163 p_cal_asg_info.ATTRIBUTE1,
164 p_cal_asg_info.ATTRIBUTE2,
165 p_cal_asg_info.ATTRIBUTE3,
166 p_cal_asg_info.ATTRIBUTE4,
167 p_cal_asg_info.ATTRIBUTE5,
168 p_cal_asg_info.ATTRIBUTE6,
169 p_cal_asg_info.ATTRIBUTE7,
170 p_cal_asg_info.ATTRIBUTE8,
171 p_cal_asg_info.ATTRIBUTE9,
172 p_cal_asg_info.ATTRIBUTE10,
173 p_cal_asg_info.ATTRIBUTE11,
174 p_cal_asg_info.ATTRIBUTE12,
175 p_cal_asg_info.ATTRIBUTE13,
176 p_cal_asg_info.ATTRIBUTE14,
177 p_cal_asg_info.ATTRIBUTE15
178 );
179
180 -- <end of API logic>
181 -- report success
182 -- commenting out as this value is set in above procedure
183 x_return_status := FND_API.G_RET_STS_SUCCESS;
184 FND_MSG_PUB.Count_And_Get
185 ( p_count => x_msg_count
186 , p_data => x_msg_data
187 );
188 --
189 -- Debug Statements
190 --
191 IF l_debug_on THEN
192 WSH_DEBUG_SV.pop(l_module_name);
193 END IF;
194 --
195 EXCEPTION
196
197 WHEN FND_API.G_EXC_ERROR THEN
198 x_return_status := FND_API.G_RET_STS_ERROR;
199 -- Get message count and data
200 FND_MSG_PUB.Count_And_Get
201 ( p_count => x_msg_count
202 , p_data => x_msg_data
203 );
204
205 --
206 -- Debug Statements
207 --
208 IF l_debug_on THEN
209 WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
210 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
211 END IF;
212 --
213 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
215 -- Get message count and data
216 FND_MSG_PUB.Count_And_Get
217 ( p_count => x_msg_count
218 , p_data => x_msg_data
219 );
220
221 --
222 -- Debug Statements
223 --
224 IF l_debug_on THEN
225 WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
226 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
227 END IF;
228 --
229 WHEN OTHERS THEN
230 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
231 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
232 THEN
233 FND_MSG_PUB.Add_Exc_Msg
234 ( G_PKG_NAME
235 , 'Create_Cal_Asg'
236 );
237 END IF;
238 -- Get message count and data
239 FND_MSG_PUB.Count_And_Get
240 ( p_count => x_msg_count
241 , p_data => x_msg_data
242 );
243 --
244 -- Debug Statements
245 --
246 IF l_debug_on THEN
247 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
248 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
249 END IF;
250 --
251 END Create_Cal_Asg;
252 --========================================================================
253 -- PROCEDURE : Update_Cal_Asg PUBLIC
254 -- PARAMETERS: p_api_version_number known api versionerror buffer
255 -- p_init_msg_list FND_API.G_TRUE to reset list
256 -- x_return_status return status
257 -- x_msg_count number of messages in the list
258 -- x_msg_data text of messages
259 -- p_calendar_assignment_id Primary Key
260 -- p_calendar_code New Calendar Code
261 -- p_enabled_flag Is calendar enabled?
262 -- VERSION : current version 1.0
263 -- initial version 1.0
264 -- COMMENT : Updates the calendar code for an association
265 --========================================================================
266 PROCEDURE Update_Cal_Asg
267 ( p_api_version_number IN NUMBER
268 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
269 , p_calendar_asgmt_id IN NUMBER
270 , p_cal_asg_info IN CalAsgRecType DEFAULT NULL
271 , x_return_status OUT NOCOPY VARCHAR2
272 , x_msg_count OUT NOCOPY NUMBER
273 , x_msg_data OUT NOCOPY VARCHAR2
274 ) IS
275 l_api_version_number CONSTANT NUMBER := 1.0;
276 l_api_name CONSTANT VARCHAR2(30):= 'Update_Cal_Asg';
277 -- <insert here your local variables declaration>
278 --
279 l_debug_on BOOLEAN;
280 --
281 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_CAL_ASG';
282 --
283 BEGIN
284 -- Standard call to check for call compatibility
285 --
286 -- Debug Statements
287 --
288 --
289 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
290 --
291 IF l_debug_on IS NULL
292 THEN
293 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
294 END IF;
295 --
296 IF l_debug_on THEN
297 WSH_DEBUG_SV.push(l_module_name);
298 --
299 WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION_NUMBER',P_API_VERSION_NUMBER);
300 WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
301 WSH_DEBUG_SV.log(l_module_name,'p_calendar_asgmt_id',p_calendar_asgmt_id);
302 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CALENDAR_CODE',p_cal_asg_info.CALENDAR_CODE);
303 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ENABLED_FLAG',p_cal_asg_info.ENABLED_FLAG);
304 END IF;
305 --
306 IF NOT FND_API.Compatible_API_Call
307 ( l_api_version_number
308 , p_api_version_number
309 , l_api_name
310 , G_PKG_NAME
311 )
312 THEN
313 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314 END IF;
315 -- Initialize message stack if required
316 IF FND_API.to_Boolean(p_init_msg_list)
317 THEN
318 FND_MSG_PUB.initialize;
319 END IF;
320
321 -- <begin procedure logic>
322 UPDATE WSH_CALENDAR_ASSIGNMENTS
323 SET ENABLED_FLAG = p_cal_asg_info.enabled_flag
324 , CALENDAR_CODE = p_cal_asg_info.calendar_code
325 , ATTRIBUTE_CATEGORY = p_cal_asg_info.ATTRIBUTE_CATEGORY
326 , ATTRIBUTE1 = p_cal_asg_info.ATTRIBUTE1
327 , ATTRIBUTE2 = p_cal_asg_info.ATTRIBUTE2
328 , ATTRIBUTE3 = p_cal_asg_info.ATTRIBUTE3
329 , ATTRIBUTE4 = p_cal_asg_info.ATTRIBUTE4
330 , ATTRIBUTE5 = p_cal_asg_info.ATTRIBUTE5
331 , ATTRIBUTE6 = p_cal_asg_info.ATTRIBUTE6
332 , ATTRIBUTE7 = p_cal_asg_info.ATTRIBUTE7
333 , ATTRIBUTE8 = p_cal_asg_info.ATTRIBUTE8
334 , ATTRIBUTE9 = p_cal_asg_info.ATTRIBUTE9
335 , ATTRIBUTE10 = p_cal_asg_info.ATTRIBUTE10
336 , ATTRIBUTE11 = p_cal_asg_info.ATTRIBUTE11
337 , ATTRIBUTE12 = p_cal_asg_info.ATTRIBUTE12
338 , ATTRIBUTE13 = p_cal_asg_info.ATTRIBUTE13
339 , ATTRIBUTE14 = p_cal_asg_info.ATTRIBUTE14
340 , ATTRIBUTE15 = p_cal_asg_info.ATTRIBUTE15
341 , LAST_UPDATE_DATE = sysdate
342 , LAST_UPDATED_BY = FND_GLOBAL.user_id
343 , LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
344 WHERE CALENDAR_ASSIGNMENT_ID = p_calendar_asgmt_id;
345
349
346 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
347 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348 END IF;
350 -- <end of API logic>
351 -- report success
352 x_return_status := FND_API.G_RET_STS_SUCCESS;
353 FND_MSG_PUB.Count_And_Get
354 ( p_count => x_msg_count
355 , p_data => x_msg_data
356 );
357 --
358 -- Debug Statements
359 --
360 IF l_debug_on THEN
361 WSH_DEBUG_SV.pop(l_module_name);
362 END IF;
363 --
364 EXCEPTION
365 WHEN FND_API.G_EXC_ERROR THEN
366 x_return_status := FND_API.G_RET_STS_ERROR;
367 -- Get message count and data
368 FND_MSG_PUB.Count_And_Get
369 ( p_count => x_msg_count
370 , p_data => x_msg_data
371 );
372 --
373 -- Debug Statements
374 --
375 IF l_debug_on THEN
376 WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
377 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
378 END IF;
379 --
380 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
382 -- Get message count and data
383 FND_MSG_PUB.Count_And_Get
384 ( p_count => x_msg_count
385 , p_data => x_msg_data
386 );
387
388 --
389 -- Debug Statements
390 --
391 IF l_debug_on THEN
392 WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
393 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
394 END IF;
395 --
396 WHEN OTHERS THEN
397 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
398 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
399 THEN
400 FND_MSG_PUB.Add_Exc_Msg
401 ( G_PKG_NAME
402 , 'Update_Cal_Asg'
403 );
404 END IF;
405 -- Get message count and data
406 FND_MSG_PUB.Count_And_Get
407 ( p_count => x_msg_count
408 , p_data => x_msg_data
409 );
410 --
411 -- Debug Statements
412 --
413 IF l_debug_on THEN
414 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
415 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
416 END IF;
417 --
418 END Update_Cal_Asg;
419 --========================================================================
420 -- PROCEDURE : Lock_Cal_Asg PUBLIC
421 -- PARAMETERS: p_calendar_assignment_id Primary key
422 -- VERSION : current version 1.0
423 -- initial version 1.0
424 -- COMMENT : Validates a shipping or receiving date against a shipping
425 --========================================================================
426 PROCEDURE Lock_Cal_Asg
427 ( p_calendar_assignment_id IN NUMBER
428 , p_cal_asg_info IN CalAsgRecType DEFAULT NULL
429 )
430 IS
431 CURSOR lock_row IS
432 SELECT CALENDAR_CODE,
433 ENABLED_FLAG,
434 ATTRIBUTE_CATEGORY,
435 ATTRIBUTE1,
436 ATTRIBUTE2,
437 ATTRIBUTE3,
438 ATTRIBUTE4,
439 ATTRIBUTE5,
440 ATTRIBUTE6,
441 ATTRIBUTE7,
442 ATTRIBUTE8,
443 ATTRIBUTE9,
444 ATTRIBUTE10,
445 ATTRIBUTE11,
446 ATTRIBUTE12,
447 ATTRIBUTE13,
448 ATTRIBUTE14,
449 ATTRIBUTE15
450 FROM wsh_calendar_assignments
451 WHERE calendar_assignment_id = p_calendar_assignment_id
452 FOR UPDATE OF calendar_assignment_id NOWAIT;
453
454 Recinfo lock_row%ROWTYPE;
455 --
456 l_debug_on BOOLEAN;
457 --
458 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'LOCK_CAL_ASG';
459 --
460 BEGIN
461 --
462 -- Debug Statements
463 --
464 --
465 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
466 --
467 IF l_debug_on IS NULL
468 THEN
469 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
470 END IF;
471 --
472 IF l_debug_on THEN
473 WSH_DEBUG_SV.push(l_module_name);
474 --
475 WSH_DEBUG_SV.log(l_module_name,'P_CALENDAR_ASSIGNMENT_ID',P_CALENDAR_ASSIGNMENT_ID);
476 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.CALENDAR_CODE',p_cal_asg_info.CALENDAR_CODE);
477 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ENABLED_FLAG',p_cal_asg_info.ENABLED_FLAG);
478 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE_CATEGORY',p_cal_asg_info.ATTRIBUTE_CATEGORY);
479 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE1',p_cal_asg_info.ATTRIBUTE1);
480 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE2',p_cal_asg_info.ATTRIBUTE2);
481 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE3',p_cal_asg_info.ATTRIBUTE3);
482 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE4',p_cal_asg_info.ATTRIBUTE4);
483 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE5',p_cal_asg_info.ATTRIBUTE5);
484 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE6',p_cal_asg_info.ATTRIBUTE6);
485 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE7',p_cal_asg_info.ATTRIBUTE7);
489 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE11',p_cal_asg_info.ATTRIBUTE11);
486 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE8',p_cal_asg_info.ATTRIBUTE8);
487 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE9',p_cal_asg_info.ATTRIBUTE9);
488 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE10',p_cal_asg_info.ATTRIBUTE10);
490 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE12',p_cal_asg_info.ATTRIBUTE12);
491 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE13',p_cal_asg_info.ATTRIBUTE13);
492 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE14',p_cal_asg_info.ATTRIBUTE14);
493 WSH_DEBUG_SV.log(l_module_name,'p_cal_asg_info.ATTRIBUTE15',p_cal_asg_info.ATTRIBUTE15);
494 END IF;
495 --
496 OPEN lock_row;
497 FETCH lock_row INTO Recinfo;
498 IF (lock_row%NOTFOUND) THEN
499 CLOSE lock_row;
500 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
501 WSH_UTIL_CORE.ADD_MESSAGE('E');
502 APP_EXCEPTION.Raise_exception;
503 END IF;
504 CLOSE lock_row;
505 IF (((recinfo.CALENDAR_CODE = p_cal_asg_info.CALENDAR_CODE)
506 OR ((recinfo.CALENDAR_CODE is null) AND (p_cal_asg_info.CALENDAR_CODE is null)))
507 AND ((recinfo.ENABLED_FLAG = p_cal_asg_info.ENABLED_FLAG)
508 OR ((recinfo.ENABLED_FLAG is null) AND (p_cal_asg_info.ENABLED_FLAG is null)))
509 AND ((recinfo.ATTRIBUTE_CATEGORY = p_cal_asg_info.ATTRIBUTE_CATEGORY)
510 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (p_cal_asg_info.ATTRIBUTE_CATEGORY is null)))
511 AND ((recinfo.ATTRIBUTE1 = p_cal_asg_info.ATTRIBUTE1)
512 OR ((recinfo.ATTRIBUTE1 is null) AND (p_cal_asg_info.ATTRIBUTE1 is null)))
513 AND ((recinfo.ATTRIBUTE2 = p_cal_asg_info.ATTRIBUTE2)
514 OR ((recinfo.ATTRIBUTE2 is null) AND (p_cal_asg_info.ATTRIBUTE2 is null)))
515 AND ((recinfo.ATTRIBUTE3 = p_cal_asg_info.ATTRIBUTE3)
516 OR ((recinfo.ATTRIBUTE3 is null) AND (p_cal_asg_info.ATTRIBUTE3 is null)))
517 AND ((recinfo.ATTRIBUTE4 = p_cal_asg_info.ATTRIBUTE4)
518 OR ((recinfo.ATTRIBUTE4 is null) AND (p_cal_asg_info.ATTRIBUTE4 is null)))
519 AND ((recinfo.ATTRIBUTE5 = p_cal_asg_info.ATTRIBUTE5)
520 OR ((recinfo.ATTRIBUTE5 is null) AND (p_cal_asg_info.ATTRIBUTE5 is null)))
521 AND ((recinfo.ATTRIBUTE6 = p_cal_asg_info.ATTRIBUTE6)
522 OR ((recinfo.ATTRIBUTE6 is null) AND (p_cal_asg_info.ATTRIBUTE6 is null)))
523 AND ((recinfo.ATTRIBUTE7 = p_cal_asg_info.ATTRIBUTE7)
524 OR ((recinfo.ATTRIBUTE7 is null) AND (p_cal_asg_info.ATTRIBUTE7 is null)))
525 AND ((recinfo.ATTRIBUTE8 = p_cal_asg_info.ATTRIBUTE8)
526 OR ((recinfo.ATTRIBUTE8 is null) AND (p_cal_asg_info.ATTRIBUTE8 is null)))
527 AND ((recinfo.ATTRIBUTE9 = p_cal_asg_info.ATTRIBUTE9)
528 OR ((recinfo.ATTRIBUTE9 is null) AND (p_cal_asg_info.ATTRIBUTE9 is null)))
529 AND ((recinfo.ATTRIBUTE10 = p_cal_asg_info.ATTRIBUTE10)
530 OR ((recinfo.ATTRIBUTE10 is null) AND (p_cal_asg_info.ATTRIBUTE10 is null)))
531 AND ((recinfo.ATTRIBUTE11 = p_cal_asg_info.ATTRIBUTE11)
532 OR ((recinfo.ATTRIBUTE11 is null) AND (p_cal_asg_info.ATTRIBUTE11 is null)))
533 AND ((recinfo.ATTRIBUTE12 = p_cal_asg_info.ATTRIBUTE12)
534 OR ((recinfo.ATTRIBUTE12 is null) AND (p_cal_asg_info.ATTRIBUTE12 is null)))
535 AND ((recinfo.ATTRIBUTE13 = p_cal_asg_info.ATTRIBUTE13)
536 OR ((recinfo.ATTRIBUTE13 is null) AND (p_cal_asg_info.ATTRIBUTE13 is null)))
537 AND ((recinfo.ATTRIBUTE14 = p_cal_asg_info.ATTRIBUTE14)
538 OR ((recinfo.ATTRIBUTE14 is null) AND (p_cal_asg_info.ATTRIBUTE14 is null)))
539 AND ((recinfo.ATTRIBUTE15 = p_cal_asg_info.ATTRIBUTE15)
540 OR ((recinfo.ATTRIBUTE15 is null) AND (p_cal_asg_info.ATTRIBUTE15 is null)))
541 ) THEN
542 --
543 -- Debug Statements
544 --
545 IF l_debug_on THEN
546 WSH_DEBUG_SV.pop(l_module_name);
547 END IF;
548 --
549 RETURN;
550 ELSE
551 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
552 WSH_UTIL_CORE.ADD_MESSAGE('E');
553 APP_EXCEPTION.Raise_Exception;
554 END IF;
555 --
556 -- Debug Statements
557 --
558 IF l_debug_on THEN
559 WSH_DEBUG_SV.pop(l_module_name);
560 END IF;
561 --
562 END Lock_Cal_Asg;
563 --========================================================================
564 -- PROCEDURE : Delete_Cal_Asg PUBLIC
565 -- PARAMETERS: p_api_version_number known api versionerror buffer
566 -- p_init_msg_list FND_API.G_TRUE to reset list
567 -- x_return_status return status
568 -- x_msg_count number of messages in the list
569 -- x_msg_data text of messages
570 -- p_rowid Row ID to lock
571 -- p_calendar_assignment_id primary key
572 -- VERSION : current version 1.0
573 -- initial version 1.0
574 -- COMMENT : Deletes a calendar assignment.
575 -- The order in which it looks at the parameters
576 -- are:
577 -- - p_rowid
578 -- - p_calendar_assignment_id
579 --========================================================================
580 PROCEDURE Delete_Cal_Asg
581 ( p_api_version_number IN NUMBER
582 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
586 , p_calendar_assignment_id IN NUMBER
583 , x_return_status OUT NOCOPY VARCHAR2
584 , x_msg_count OUT NOCOPY NUMBER
585 , x_msg_data OUT NOCOPY VARCHAR2
587 ) IS
588
589 l_debug_on BOOLEAN;
590 --
591 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_CAL_ASG';
592 --
593 BEGIN
594 --
595 -- Debug Statements
596 --
597 --
598 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
599 --
600 IF l_debug_on IS NULL
601 THEN
602 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
603 END IF;
604 --
605 IF l_debug_on THEN
606 WSH_DEBUG_SV.push(l_module_name);
607 --
608 WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION_NUMBER',P_API_VERSION_NUMBER);
609 WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
610 WSH_DEBUG_SV.log(l_module_name,'P_CALENDAR_ASSIGNMENT_ID',P_CALENDAR_ASSIGNMENT_ID);
611 END IF;
612 --
613 IF p_calendar_assignment_id IS NOT NULL THEN
614 DELETE FROM wsh_calendar_assignments
615 WHERE calendar_assignment_id = p_calendar_assignment_id;
616 END IF;
617 --
618 -- Debug Statements
619 --
620 IF l_debug_on THEN
621 WSH_DEBUG_SV.pop(l_module_name);
622 END IF;
623 --
624 END Delete_Cal_Asg;
625
626 END WSH_CAL_ASG_PKG;