65: l_Calendar_Record BSC_CALENDAR_PUB.Calendar_Type_Record;
66: BEGIN
67: SAVEPOINT CreateCalendarPubSP;
68: FND_MSG_PUB.Initialize;
69: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
70:
71: BSC_CALENDAR_PUB.Validate_Calendar_Action
72: ( p_Api_Version => p_Api_Version
73: , p_Commit => p_Commit
76: , x_Return_Status => x_Return_Status
77: , x_Msg_Count => x_Msg_Count
78: , x_Msg_Data => x_Msg_Data
79: );
80: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal
77: , x_Msg_Count => x_Msg_Count
78: , x_Msg_Data => x_Msg_Data
79: );
80: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal
85: ( p_Api_Version => p_Api_Version
89: , x_Return_Status => x_Return_Status
90: , x_Msg_Count => x_Msg_Count
91: , x_Msg_Data => x_Msg_Data
92: );
93: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: BSC_CALENDAR_PVT.Create_Calendar
90: , x_Msg_Count => x_Msg_Count
91: , x_Msg_Data => x_Msg_Data
92: );
93: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: BSC_CALENDAR_PVT.Create_Calendar
98: ( p_Api_Version => p_Api_Version
101: , x_Return_Status => x_Return_Status
102: , x_Msg_Count => x_Msg_Count
103: , x_Msg_Data => x_Msg_Data
104: );
105: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108:
109: BSC_CALENDAR_PUB.Create_Calendar_Dimension
102: , x_Msg_Count => x_Msg_Count
103: , x_Msg_Data => x_Msg_Data
104: );
105: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108:
109: BSC_CALENDAR_PUB.Create_Calendar_Dimension
110: ( p_Api_Version => p_Api_Version
113: , x_Return_Status => x_Return_Status
114: , x_Msg_Count => x_Msg_Count
115: , x_Msg_Data => x_Msg_Data
116: );
117: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: BSC_CALENDAR_PUB.Create_Calendar_Post_Action
114: , x_Msg_Count => x_Msg_Count
115: , x_Msg_Data => x_Msg_Data
116: );
117: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120:
121: BSC_CALENDAR_PUB.Create_Calendar_Post_Action
122: ( p_Api_Version => p_Api_Version
125: , x_Return_Status => x_Return_Status
126: , x_Msg_Count => x_Msg_Count
127: , x_Msg_Data => x_Msg_Data
128: );
129: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: END IF;
132:
133: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
126: , x_Msg_Count => x_Msg_Count
127: , x_Msg_Data => x_Msg_Data
128: );
129: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: END IF;
132:
133: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
134: COMMIT;
129: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: END IF;
132:
133: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
134: COMMIT;
135: END IF;
136:
137: EXCEPTION
134: COMMIT;
135: END IF;
136:
137: EXCEPTION
138: WHEN FND_API.G_EXC_ERROR THEN
139: ROLLBACK TO CreateCalendarPubSP;
140: IF (x_msg_data IS NULL) THEN
141: FND_MSG_PUB.Count_And_Get
142: ( p_encoded => FND_API.G_FALSE
138: WHEN FND_API.G_EXC_ERROR THEN
139: ROLLBACK TO CreateCalendarPubSP;
140: IF (x_msg_data IS NULL) THEN
141: FND_MSG_PUB.Count_And_Get
142: ( p_encoded => FND_API.G_FALSE
143: , p_count => x_msg_count
144: , p_data => x_msg_data
145: );
146: END IF;
143: , p_count => x_msg_count
144: , p_data => x_msg_data
145: );
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO CreateCalendarPubSP;
150: IF (x_msg_data IS NULL) THEN
151: FND_MSG_PUB.Count_And_Get
144: , p_data => x_msg_data
145: );
146: END IF;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO CreateCalendarPubSP;
150: IF (x_msg_data IS NULL) THEN
151: FND_MSG_PUB.Count_And_Get
152: ( p_encoded => FND_API.G_FALSE
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: ROLLBACK TO CreateCalendarPubSP;
150: IF (x_msg_data IS NULL) THEN
151: FND_MSG_PUB.Count_And_Get
152: ( p_encoded => FND_API.G_FALSE
153: , p_count => x_msg_count
154: , p_data => x_msg_data
155: );
156: END IF;
153: , p_count => x_msg_count
154: , p_data => x_msg_data
155: );
156: END IF;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: WHEN NO_DATA_FOUND THEN
159: ROLLBACK TO CreateCalendarPubSP;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: IF (x_msg_data IS NOT NULL) THEN
156: END IF;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: WHEN NO_DATA_FOUND THEN
159: ROLLBACK TO CreateCalendarPubSP;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: IF (x_msg_data IS NOT NULL) THEN
162: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar ';
163: ELSE
164: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar ';
164: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar ';
165: END IF;
166: WHEN OTHERS THEN
167: ROLLBACK TO CreateCalendarPubSP;
168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169: IF (x_msg_data IS NOT NULL) THEN
170: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar ';
171: ELSE
172: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar ';
190: l_Calendar_Old_Name BSC_SYS_CALENDARS_TL.NAME%TYPE;
191: BEGIN
192: SAVEPOINT UpdateCalendarPubSP;
193: FND_MSG_PUB.Initialize;
194: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
195:
196: SELECT fiscal_year
197: ,start_month
198: ,start_day
219: , x_Return_Status => x_Return_Status
220: , x_Msg_Count => x_Msg_Count
221: , x_Msg_Data => x_Msg_Data
222: );
223: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
226:
227: BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec
220: , x_Msg_Count => x_Msg_Count
221: , x_Msg_Data => x_Msg_Data
222: );
223: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
226:
227: BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec
228: ( p_Api_Version => p_Api_Version
232: , x_Return_Status => x_Return_Status
233: , x_Msg_Count => x_Msg_Count
234: , x_Msg_Data => x_Msg_Data
235: );
236: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: END IF;
239:
240: BSC_CALENDAR_PVT.Update_Calendar
233: , x_Msg_Count => x_Msg_Count
234: , x_Msg_Data => x_Msg_Data
235: );
236: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: END IF;
239:
240: BSC_CALENDAR_PVT.Update_Calendar
241: ( p_Api_Version => p_Api_Version
244: , x_Return_Status => x_Return_Status
245: , x_Msg_Count => x_Msg_Count
246: , x_Msg_Data => x_Msg_Data
247: );
248: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
250: END IF;
251:
252: BSC_CALENDAR_PUB.Update_Calendar_Dimension
245: , x_Msg_Count => x_Msg_Count
246: , x_Msg_Data => x_Msg_Data
247: );
248: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
250: END IF;
251:
252: BSC_CALENDAR_PUB.Update_Calendar_Dimension
253: ( p_Api_Version => p_Api_Version
256: , x_Return_Status => x_Return_Status
257: , x_Msg_Count => x_Msg_Count
258: , x_Msg_Data => x_Msg_Data
259: );
260: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
262: END IF;
263:
264: IF(UPPER(LTRIM(RTRIM(p_Calendar_Record.Name))) <> UPPER(LTRIM(RTRIM(l_Calendar_Old_Name)))) THEN
257: , x_Msg_Count => x_Msg_Count
258: , x_Msg_Data => x_Msg_Data
259: );
260: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
262: END IF;
263:
264: IF(UPPER(LTRIM(RTRIM(p_Calendar_Record.Name))) <> UPPER(LTRIM(RTRIM(l_Calendar_Old_Name)))) THEN
265: BSC_CALENDAR_PVT.Update_PeriodNames_In_Calendar
267: , x_Return_Status => x_Return_Status
268: , x_Msg_Count => x_Msg_Count
269: , x_Msg_Data => x_Msg_Data
270: );
271: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274: END IF;
275:
268: , x_Msg_Count => x_Msg_Count
269: , x_Msg_Data => x_Msg_Data
270: );
271: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274: END IF;
275:
276: BSC_CALENDAR_PUB.Update_Calendar_Post_Action
280: , x_Return_Status => x_Return_Status
281: , x_Msg_Count => x_Msg_Count
282: , x_Msg_Data => x_Msg_Data
283: );
284: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
281: , x_Msg_Count => x_Msg_Count
282: , x_Msg_Data => x_Msg_Data
283: );
284: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
289: COMMIT;
284: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
289: COMMIT;
290: END IF;
291:
292: EXCEPTION
289: COMMIT;
290: END IF;
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: ROLLBACK TO UpdateCalendarPubSP;
295: IF (x_msg_data IS NULL) THEN
296: FND_MSG_PUB.Count_And_Get
297: ( p_encoded => FND_API.G_FALSE
293: WHEN FND_API.G_EXC_ERROR THEN
294: ROLLBACK TO UpdateCalendarPubSP;
295: IF (x_msg_data IS NULL) THEN
296: FND_MSG_PUB.Count_And_Get
297: ( p_encoded => FND_API.G_FALSE
298: , p_count => x_msg_count
299: , p_data => x_msg_data
300: );
301: END IF;
298: , p_count => x_msg_count
299: , p_data => x_msg_data
300: );
301: END IF;
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304: ROLLBACK TO UpdateCalendarPubSP;
305: IF (x_msg_data IS NULL) THEN
306: FND_MSG_PUB.Count_And_Get
299: , p_data => x_msg_data
300: );
301: END IF;
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304: ROLLBACK TO UpdateCalendarPubSP;
305: IF (x_msg_data IS NULL) THEN
306: FND_MSG_PUB.Count_And_Get
307: ( p_encoded => FND_API.G_FALSE
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304: ROLLBACK TO UpdateCalendarPubSP;
305: IF (x_msg_data IS NULL) THEN
306: FND_MSG_PUB.Count_And_Get
307: ( p_encoded => FND_API.G_FALSE
308: , p_count => x_msg_count
309: , p_data => x_msg_data
310: );
311: END IF;
308: , p_count => x_msg_count
309: , p_data => x_msg_data
310: );
311: END IF;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: WHEN NO_DATA_FOUND THEN
314: ROLLBACK TO UpdateCalendarPubSP;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: IF (x_msg_data IS NOT NULL) THEN
311: END IF;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: WHEN NO_DATA_FOUND THEN
314: ROLLBACK TO UpdateCalendarPubSP;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: IF (x_msg_data IS NOT NULL) THEN
317: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar ';
318: ELSE
319: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar ';
319: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar ';
320: END IF;
321: WHEN OTHERS THEN
322: ROLLBACK TO UpdateCalendarPubSP;
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324: IF (x_msg_data IS NOT NULL) THEN
325: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar ';
326: ELSE
327: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar ';
365:
366: BEGIN
367: SAVEPOINT DeleteCalendarPubSP;
368: FND_MSG_PUB.Initialize;
369: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
370:
371: BSC_CALENDAR_PUB.Validate_Calendar_Action
372: ( p_Api_Version => p_Api_Version
373: , p_Commit => p_Commit
376: , x_Return_Status => x_Return_Status
377: , x_Msg_Count => x_Msg_Count
378: , x_Msg_Data => x_Msg_Data
379: );
380: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: FOR CCAL IN C_Clendar_ShortName LOOP
377: , x_Msg_Count => x_Msg_Count
378: , x_Msg_Data => x_Msg_Data
379: );
380: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: FOR CCAL IN C_Clendar_ShortName LOOP
385: l_Calendar_ShortName := CCAL.short_name;
407: , x_return_status => x_Return_Status
408: , x_msg_count => x_Msg_Count
409: , x_msg_data => x_Msg_Data
410: );
411: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END IF;
414:
415: --Delete dimension objects corresponding to periodicities
408: , x_msg_count => x_Msg_Count
409: , x_msg_data => x_Msg_Data
410: );
411: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END IF;
414:
415: --Delete dimension objects corresponding to periodicities
416: FOR CPER in C_Periodicity_ShortNames LOOP
420: , x_return_status => x_Return_Status
421: , x_msg_count => x_Msg_Count
422: , x_msg_data => x_Msg_Data
423: );
424: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: END LOOP;
428: --Delete dimension corresponding to calendar
421: , x_msg_count => x_Msg_Count
422: , x_msg_data => x_Msg_Data
423: );
424: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: END LOOP;
428: --Delete dimension corresponding to calendar
429: BSC_BIS_DIMENSION_PUB.Delete_Dimension
432: , x_return_status => x_Return_Status
433: , x_msg_count => x_Msg_Count
434: , x_msg_data => x_Msg_Data
435: );
436: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: --Delete calendar
440: BSC_CALENDAR_PVT.Delete_Calendar
433: , x_msg_count => x_Msg_Count
434: , x_msg_data => x_Msg_Data
435: );
436: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: --Delete calendar
440: BSC_CALENDAR_PVT.Delete_Calendar
441: ( p_Api_Version => p_Api_Version
444: , x_Return_Status => x_Return_Status
445: , x_Msg_Count => x_Msg_Count
446: , x_Msg_Data => x_Msg_Data
447: );
448: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452:
445: , x_Msg_Count => x_Msg_Count
446: , x_Msg_Data => x_Msg_Data
447: );
448: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452:
453: FOR index_loop IN 1..l_count LOOP
458: , x_Return_Status => x_Return_Status
459: , x_Msg_Count => x_Msg_Count
460: , x_Msg_Data => x_Msg_Data
461: );
462: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF;
465: END IF;
466: END LOOP;
459: , x_Msg_Count => x_Msg_Count
460: , x_Msg_Data => x_Msg_Data
461: );
462: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF;
465: END IF;
466: END LOOP;
467: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF;
465: END IF;
466: END LOOP;
467: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
468: COMMIT;
469: END IF;
470:
471: EXCEPTION
468: COMMIT;
469: END IF;
470:
471: EXCEPTION
472: WHEN FND_API.G_EXC_ERROR THEN
473: ROLLBACK TO DeleteCalendarPubSP;
474: IF (x_msg_data IS NULL) THEN
475: FND_MSG_PUB.Count_And_Get
476: ( p_encoded => FND_API.G_FALSE
472: WHEN FND_API.G_EXC_ERROR THEN
473: ROLLBACK TO DeleteCalendarPubSP;
474: IF (x_msg_data IS NULL) THEN
475: FND_MSG_PUB.Count_And_Get
476: ( p_encoded => FND_API.G_FALSE
477: , p_count => x_msg_count
478: , p_data => x_msg_data
479: );
480: END IF;
477: , p_count => x_msg_count
478: , p_data => x_msg_data
479: );
480: END IF;
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: ROLLBACK TO DeleteCalendarPubSP;
484: IF (x_msg_data IS NULL) THEN
485: FND_MSG_PUB.Count_And_Get
478: , p_data => x_msg_data
479: );
480: END IF;
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: ROLLBACK TO DeleteCalendarPubSP;
484: IF (x_msg_data IS NULL) THEN
485: FND_MSG_PUB.Count_And_Get
486: ( p_encoded => FND_API.G_FALSE
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: ROLLBACK TO DeleteCalendarPubSP;
484: IF (x_msg_data IS NULL) THEN
485: FND_MSG_PUB.Count_And_Get
486: ( p_encoded => FND_API.G_FALSE
487: , p_count => x_msg_count
488: , p_data => x_msg_data
489: );
490: END IF;
487: , p_count => x_msg_count
488: , p_data => x_msg_data
489: );
490: END IF;
491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
492: WHEN NO_DATA_FOUND THEN
493: ROLLBACK TO DeleteCalendarPubSP;
494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495: IF (x_msg_data IS NOT NULL) THEN
490: END IF;
491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
492: WHEN NO_DATA_FOUND THEN
493: ROLLBACK TO DeleteCalendarPubSP;
494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495: IF (x_msg_data IS NOT NULL) THEN
496: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Delete_Calendar ';
497: ELSE
498: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Delete_Calendar ';
498: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Delete_Calendar ';
499: END IF;
500: WHEN OTHERS THEN
501: ROLLBACK TO DeleteCalendarPubSP;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503: IF (x_msg_data IS NOT NULL) THEN
504: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Delete_Calendar ';
505: ELSE
506: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Delete_Calendar ';
530:
531: BEGIN
532:
533: FND_MSG_PUB.Initialize;
534: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
535: IF(p_Action = BSC_PERIODS_UTILITY_PKG.C_CREATE OR p_Action = BSC_PERIODS_UTILITY_PKG.C_UPDATE) THEN
536: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Name) = FND_API.G_TRUE) THEN
537: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_NAME_NULL');
538: FND_MSG_PUB.ADD;
532:
533: FND_MSG_PUB.Initialize;
534: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
535: IF(p_Action = BSC_PERIODS_UTILITY_PKG.C_CREATE OR p_Action = BSC_PERIODS_UTILITY_PKG.C_UPDATE) THEN
536: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Name) = FND_API.G_TRUE) THEN
537: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_NAME_NULL');
538: FND_MSG_PUB.ADD;
539: RAISE FND_API.G_EXC_ERROR;
540: END IF;
535: IF(p_Action = BSC_PERIODS_UTILITY_PKG.C_CREATE OR p_Action = BSC_PERIODS_UTILITY_PKG.C_UPDATE) THEN
536: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Name) = FND_API.G_TRUE) THEN
537: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_NAME_NULL');
538: FND_MSG_PUB.ADD;
539: RAISE FND_API.G_EXC_ERROR;
540: END IF;
541: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Dim_Short_Name) = FND_API.G_TRUE) THEN
542: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_SHORT_NAME_NULL');
543: FND_MSG_PUB.ADD;
537: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_NAME_NULL');
538: FND_MSG_PUB.ADD;
539: RAISE FND_API.G_EXC_ERROR;
540: END IF;
541: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Dim_Short_Name) = FND_API.G_TRUE) THEN
542: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_SHORT_NAME_NULL');
543: FND_MSG_PUB.ADD;
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
540: END IF;
541: IF(BIS_UTILITIES_PVT.Value_Missing_Or_Null(p_Calendar_Record.Dim_Short_Name) = FND_API.G_TRUE) THEN
542: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_SHORT_NAME_NULL');
543: FND_MSG_PUB.ADD;
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546: END IF;
547:
548: IF(p_Action = BSC_PERIODS_UTILITY_PKG.C_CREATE ) THEN
552: WHERE TRIM(calendar_id) = TRIM(p_Calendar_Record.Calendar_Id);
553: IF(l_count > 0)THEN
554: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_ID_EXISTS');
555: FND_MSG_PUB.ADD;
556: RAISE FND_API.G_EXC_ERROR;
557: END IF;
558:
559: SELECT COUNT(1)
560: INTO l_count
563: IF(l_count > 0)THEN
564: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_EXISTS');
565: FND_MESSAGE.SET_TOKEN('CALENDAR_NAME',TRIM(p_Calendar_Record.Name));
566: FND_MSG_PUB.ADD;
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569:
570: SELECT COUNT(1)
571: INTO l_count
573: WHERE TRIM(short_name) = TRIM(p_Calendar_Record.Dim_Short_Name);
574: IF( l_count > 0 ) THEN
575: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_SHORT_NAME_UNIQUE');
576: FND_MSG_PUB.ADD;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579:
580: ELSIF(p_Action = BSC_PERIODS_UTILITY_PKG.C_UPDATE) THEN
581: IF(p_Calendar_Record.Fiscal_Year IS NULL) THEN
580: ELSIF(p_Action = BSC_PERIODS_UTILITY_PKG.C_UPDATE) THEN
581: IF(p_Calendar_Record.Fiscal_Year IS NULL) THEN
582: FND_MESSAGE.SET_NAME('BSC','BSC_FISCAL_YEAR_NULL');
583: FND_MSG_PUB.ADD;
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: SELECT COUNT(1)
588: INTO l_count
591: AND TRIM(short_name) = TRIM(p_Calendar_Record.Dim_Short_Name);
592: IF( l_count > 0 ) THEN
593: FND_MESSAGE.SET_NAME('BSC','BSC_CAL_SHORT_NAME_UNIQUE');
594: FND_MSG_PUB.ADD;
595: RAISE FND_API.G_EXC_ERROR;
596: END IF;
597: ELSIF(p_Action = BSC_PERIODS_UTILITY_PKG.C_DELETE ) THEN
598:
599: l_count := 0;
604: --first check if the calendar passed exists or not
605: IF(l_count = 0 ) THEN
606: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_DEL_ALREADY');
607: FND_MSG_PUB.ADD;
608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609: END IF;
610:
611: l_count := 0;
612: SELECT COUNT(K.INDICATOR)
632: FND_MESSAGE.SET_NAME('BSC','BSC_CALENDAR_USED_IN_OBJECTIVE');
633: FND_MESSAGE.SET_TOKEN('CALENDAR', l_Calendar_Name);
634: FND_MESSAGE.SET_TOKEN('OBJECTIVES', l_Objective_Names);
635: FND_MSG_PUB.ADD;
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: END IF;
638:
639: END IF;
640:
637: END IF;
638:
639: END IF;
640:
641: IF ((p_Commit IS NOT NULL) AND (p_Commit = FND_API.G_TRUE)) THEN
642: COMMIT;
643: END IF;
644:
645: EXCEPTION
642: COMMIT;
643: END IF;
644:
645: EXCEPTION
646: WHEN FND_API.G_EXC_ERROR THEN
647: IF (x_msg_data IS NULL) THEN
648: FND_MSG_PUB.Count_And_Get
649: ( p_encoded => FND_API.G_FALSE
650: , p_count => x_msg_count
645: EXCEPTION
646: WHEN FND_API.G_EXC_ERROR THEN
647: IF (x_msg_data IS NULL) THEN
648: FND_MSG_PUB.Count_And_Get
649: ( p_encoded => FND_API.G_FALSE
650: , p_count => x_msg_count
651: , p_data => x_msg_data
652: );
653: END IF;
650: , p_count => x_msg_count
651: , p_data => x_msg_data
652: );
653: END IF;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
656: IF (x_msg_data IS NULL) THEN
657: FND_MSG_PUB.Count_And_Get
658: ( p_encoded => FND_API.G_FALSE
651: , p_data => x_msg_data
652: );
653: END IF;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
656: IF (x_msg_data IS NULL) THEN
657: FND_MSG_PUB.Count_And_Get
658: ( p_encoded => FND_API.G_FALSE
659: , p_count => x_msg_count
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
656: IF (x_msg_data IS NULL) THEN
657: FND_MSG_PUB.Count_And_Get
658: ( p_encoded => FND_API.G_FALSE
659: , p_count => x_msg_count
660: , p_data => x_msg_data
661: );
662: END IF;
659: , p_count => x_msg_count
660: , p_data => x_msg_data
661: );
662: END IF;
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: WHEN NO_DATA_FOUND THEN
665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
666: IF (x_msg_data IS NOT NULL) THEN
667: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Validate_Calendar_Action ';
661: );
662: END IF;
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: WHEN NO_DATA_FOUND THEN
665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
666: IF (x_msg_data IS NOT NULL) THEN
667: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Validate_Calendar_Action ';
668: ELSE
669: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Validate_Calendar_Action ';
668: ELSE
669: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Validate_Calendar_Action ';
670: END IF;
671: WHEN OTHERS THEN
672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
673: IF (x_msg_data IS NOT NULL) THEN
674: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Validate_Calendar_Action ';
675: ELSE
676: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Validate_Calendar_Action ';
690: )IS
691:
692: BEGIN
693: FND_MSG_PUB.Initialize;
694: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
695:
696: SELECT calendar_id
697: , edw_flag
698: , edw_calendar_id
779:
780:
781: EXCEPTION
782: WHEN NO_DATA_FOUND THEN
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: IF (x_msg_data IS NOT NULL) THEN
785: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec';
786: ELSE
787: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec ';
786: ELSE
787: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec ';
788: END IF;
789: WHEN OTHERS THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: IF (x_msg_data IS NOT NULL) THEN
792: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec ';
793: ELSE
794: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Retrieve_And_Populate_Cal_Rec ';
807:
808: BEGIN
809: SAVEPOINT CreateCalendarPostActionSP;
810: FND_MSG_PUB.Initialize;
811: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
812:
813: BSC_CALENDAR_PUB.Create_Periodicities_Calendar
814: ( p_Api_Version => p_Api_Version
815: , p_Commit => p_Commit
817: , x_Return_Status => x_Return_Status
818: , x_Msg_Count => x_Msg_Count
819: , x_Msg_Data => x_Msg_Data
820: );
821: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824:
825: BSC_UPDATE_UTIL.Populate_Calendar_Tables
818: , x_Msg_Count => x_Msg_Count
819: , x_Msg_Data => x_Msg_Data
820: );
821: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824:
825: BSC_UPDATE_UTIL.Populate_Calendar_Tables
826: ( p_commit => p_Commit
828: , x_return_status => x_Return_Status
829: , x_msg_count => x_Msg_Count
830: , x_msg_data => x_Msg_Data
831: );
832: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
834: END IF;
835:
836: EXCEPTION
829: , x_msg_count => x_Msg_Count
830: , x_msg_data => x_Msg_Data
831: );
832: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
834: END IF;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
834: END IF;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
838: ROLLBACK TO CreateCalendarPostActionSP;
839: IF (x_msg_data IS NULL) THEN
840: FND_MSG_PUB.Count_And_Get
841: ( p_encoded => FND_API.G_FALSE
837: WHEN FND_API.G_EXC_ERROR THEN
838: ROLLBACK TO CreateCalendarPostActionSP;
839: IF (x_msg_data IS NULL) THEN
840: FND_MSG_PUB.Count_And_Get
841: ( p_encoded => FND_API.G_FALSE
842: , p_count => x_msg_count
843: , p_data => x_msg_data
844: );
845: END IF;
842: , p_count => x_msg_count
843: , p_data => x_msg_data
844: );
845: END IF;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
848: ROLLBACK TO CreateCalendarPostActionSP;
849: IF (x_msg_data IS NULL) THEN
850: FND_MSG_PUB.Count_And_Get
843: , p_data => x_msg_data
844: );
845: END IF;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
848: ROLLBACK TO CreateCalendarPostActionSP;
849: IF (x_msg_data IS NULL) THEN
850: FND_MSG_PUB.Count_And_Get
851: ( p_encoded => FND_API.G_FALSE
847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
848: ROLLBACK TO CreateCalendarPostActionSP;
849: IF (x_msg_data IS NULL) THEN
850: FND_MSG_PUB.Count_And_Get
851: ( p_encoded => FND_API.G_FALSE
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
855: END IF;
852: , p_count => x_msg_count
853: , p_data => x_msg_data
854: );
855: END IF;
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
857: WHEN NO_DATA_FOUND THEN
858: ROLLBACK TO CreateCalendarPostActionSP;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: IF (x_msg_data IS NOT NULL) THEN
855: END IF;
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
857: WHEN NO_DATA_FOUND THEN
858: ROLLBACK TO CreateCalendarPostActionSP;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: IF (x_msg_data IS NOT NULL) THEN
861: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar_Post_Action';
862: ELSE
863: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Post_Action ';
863: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Post_Action ';
864: END IF;
865: WHEN OTHERS THEN
866: ROLLBACK TO CreateCalendarPostActionSP;
867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
868: IF (x_msg_data IS NOT NULL) THEN
869: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar_Post_Action ';
870: ELSE
871: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Post_Action ';
886: )IS
887:
888: BEGIN
889: FND_MSG_PUB.Initialize;
890: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
891:
892: x_Calendar_Record := p_Calendar_Record;
893:
894: IF (p_Calendar_Record.Calendar_Id IS NULL) THEN
966: END IF;
967:
968:
969: EXCEPTION
970: WHEN FND_API.G_EXC_ERROR THEN
971: IF (x_msg_data IS NULL) THEN
972: FND_MSG_PUB.Count_And_Get
973: ( p_encoded => FND_API.G_FALSE
974: , p_count => x_msg_count
969: EXCEPTION
970: WHEN FND_API.G_EXC_ERROR THEN
971: IF (x_msg_data IS NULL) THEN
972: FND_MSG_PUB.Count_And_Get
973: ( p_encoded => FND_API.G_FALSE
974: , p_count => x_msg_count
975: , p_data => x_msg_data
976: );
977: END IF;
974: , p_count => x_msg_count
975: , p_data => x_msg_data
976: );
977: END IF;
978: x_return_status := FND_API.G_RET_STS_ERROR;
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (x_msg_data IS NULL) THEN
981: FND_MSG_PUB.Count_And_Get
982: ( p_encoded => FND_API.G_FALSE
975: , p_data => x_msg_data
976: );
977: END IF;
978: x_return_status := FND_API.G_RET_STS_ERROR;
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (x_msg_data IS NULL) THEN
981: FND_MSG_PUB.Count_And_Get
982: ( p_encoded => FND_API.G_FALSE
983: , p_count => x_msg_count
978: x_return_status := FND_API.G_RET_STS_ERROR;
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (x_msg_data IS NULL) THEN
981: FND_MSG_PUB.Count_And_Get
982: ( p_encoded => FND_API.G_FALSE
983: , p_count => x_msg_count
984: , p_data => x_msg_data
985: );
986: END IF;
983: , p_count => x_msg_count
984: , p_data => x_msg_data
985: );
986: END IF;
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: WHEN NO_DATA_FOUND THEN
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: IF (x_msg_data IS NOT NULL) THEN
991: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal';
985: );
986: END IF;
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: WHEN NO_DATA_FOUND THEN
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: IF (x_msg_data IS NOT NULL) THEN
991: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal';
992: ELSE
993: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal ';
992: ELSE
993: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal ';
994: END IF;
995: WHEN OTHERS THEN
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: IF (x_msg_data IS NOT NULL) THEN
998: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal ';
999: ELSE
1000: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Fill_Default_Values_Create_Cal';
1015:
1016: BEGIN
1017: SAVEPOINT UpdateCalendarPostActionSP;
1018: FND_MSG_PUB.Initialize;
1019: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1020:
1021: SELECT property_value
1022: INTO l_System_Stage
1023: from bsc_sys_init
1031: , x_Return_Status => x_Return_Status
1032: , x_Msg_Count => x_Msg_Count
1033: , x_Msg_Data => x_Msg_Data
1034: );
1035: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1037: END IF;
1038:
1039: BSC_CALENDAR_PUB.Flag_Changes_For_Objectives
1032: , x_Msg_Count => x_Msg_Count
1033: , x_Msg_Data => x_Msg_Data
1034: );
1035: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1037: END IF;
1038:
1039: BSC_CALENDAR_PUB.Flag_Changes_For_Objectives
1040: ( p_Api_Version => p_Api_Version
1043: , x_Return_Status => x_Return_Status
1044: , x_Msg_Count => x_Msg_Count
1045: , x_Msg_Data => x_Msg_Data
1046: );
1047: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050:
1051: BSC_UPDATE_UTIL.Populate_Calendar_Tables
1044: , x_Msg_Count => x_Msg_Count
1045: , x_Msg_Data => x_Msg_Data
1046: );
1047: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050:
1051: BSC_UPDATE_UTIL.Populate_Calendar_Tables
1052: ( p_commit => p_Commit
1054: , x_return_status => x_Return_Status
1055: , x_msg_count => x_Msg_Count
1056: , x_msg_data => x_Msg_Data
1057: );
1058: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1060: END IF;
1061:
1062: END IF;
1055: , x_msg_count => x_Msg_Count
1056: , x_msg_data => x_Msg_Data
1057: );
1058: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1060: END IF;
1061:
1062: END IF;
1063:
1062: END IF;
1063:
1064:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: ROLLBACK TO UpdateCalendarPostActionSP;
1068: IF (x_msg_data IS NULL) THEN
1069: FND_MSG_PUB.Count_And_Get
1070: ( p_encoded => FND_API.G_FALSE
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: ROLLBACK TO UpdateCalendarPostActionSP;
1068: IF (x_msg_data IS NULL) THEN
1069: FND_MSG_PUB.Count_And_Get
1070: ( p_encoded => FND_API.G_FALSE
1071: , p_count => x_msg_count
1072: , p_data => x_msg_data
1073: );
1074: END IF;
1071: , p_count => x_msg_count
1072: , p_data => x_msg_data
1073: );
1074: END IF;
1075: x_return_status := FND_API.G_RET_STS_ERROR;
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077: ROLLBACK TO UpdateCalendarPostActionSP;
1078: IF (x_msg_data IS NULL) THEN
1079: FND_MSG_PUB.Count_And_Get
1072: , p_data => x_msg_data
1073: );
1074: END IF;
1075: x_return_status := FND_API.G_RET_STS_ERROR;
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077: ROLLBACK TO UpdateCalendarPostActionSP;
1078: IF (x_msg_data IS NULL) THEN
1079: FND_MSG_PUB.Count_And_Get
1080: ( p_encoded => FND_API.G_FALSE
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077: ROLLBACK TO UpdateCalendarPostActionSP;
1078: IF (x_msg_data IS NULL) THEN
1079: FND_MSG_PUB.Count_And_Get
1080: ( p_encoded => FND_API.G_FALSE
1081: , p_count => x_msg_count
1082: , p_data => x_msg_data
1083: );
1084: END IF;
1081: , p_count => x_msg_count
1082: , p_data => x_msg_data
1083: );
1084: END IF;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086: WHEN NO_DATA_FOUND THEN
1087: ROLLBACK TO UpdateCalendarPostActionSP;
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: IF (x_msg_data IS NOT NULL) THEN
1084: END IF;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086: WHEN NO_DATA_FOUND THEN
1087: ROLLBACK TO UpdateCalendarPostActionSP;
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: IF (x_msg_data IS NOT NULL) THEN
1090: x_msg_data := x_msg_data ||'BSC_CALENDAR_PUB.Update_Calendar_Post_Action ';
1091: ELSE
1092: x_msg_data := SQLERRM || 'at BSC_CALENDAR_PUB.Update_Calendar_Post_Action ';
1092: x_msg_data := SQLERRM || 'at BSC_CALENDAR_PUB.Update_Calendar_Post_Action ';
1093: END IF;
1094: WHEN OTHERS THEN
1095: ROLLBACK TO UpdateCalendarPostActionSP;
1096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1097: IF (x_msg_data IS NOT NULL) THEN
1098: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar_Post_Action ';
1099: ELSE
1100: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar_Post_Action ';
1121: AND S.calendar_id = p_Calendar_Id;
1122:
1123: BEGIN
1124: FND_MSG_PUB.Initialize;
1125: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1126:
1127: FOR CD IN C_FLAG_OBJECTIVES LOOP
1128: BSC_DESIGNER_PVT.ActionFlag_Change(CD.indicator,BSC_DESIGNER_PVT.G_ActionFlag.Update_Update);
1129:
1129:
1130: IF(BSC_PERIODS_UTILITY_PKG.Check_Error_Message('ActionFlag_Change')) THEN
1131: FND_MESSAGE.SET_NAME('BSC','BSC_ERROR_ACTION_FLAG_CHANGE');
1132: FND_MSG_PUB.ADD;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135:
1136: END LOOP;
1137:
1135:
1136: END LOOP;
1137:
1138: EXCEPTION
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: IF (x_msg_data IS NULL) THEN
1141: FND_MSG_PUB.Count_And_Get
1142: ( p_encoded => FND_API.G_FALSE
1143: , p_count => x_msg_count
1138: EXCEPTION
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: IF (x_msg_data IS NULL) THEN
1141: FND_MSG_PUB.Count_And_Get
1142: ( p_encoded => FND_API.G_FALSE
1143: , p_count => x_msg_count
1144: , p_data => x_msg_data
1145: );
1146: END IF;
1143: , p_count => x_msg_count
1144: , p_data => x_msg_data
1145: );
1146: END IF;
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149: IF (x_msg_data IS NULL) THEN
1150: FND_MSG_PUB.Count_And_Get
1151: ( p_encoded => FND_API.G_FALSE
1144: , p_data => x_msg_data
1145: );
1146: END IF;
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149: IF (x_msg_data IS NULL) THEN
1150: FND_MSG_PUB.Count_And_Get
1151: ( p_encoded => FND_API.G_FALSE
1152: , p_count => x_msg_count
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149: IF (x_msg_data IS NULL) THEN
1150: FND_MSG_PUB.Count_And_Get
1151: ( p_encoded => FND_API.G_FALSE
1152: , p_count => x_msg_count
1153: , p_data => x_msg_data
1154: );
1155: END IF;
1152: , p_count => x_msg_count
1153: , p_data => x_msg_data
1154: );
1155: END IF;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: WHEN NO_DATA_FOUND THEN
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1159: IF (x_msg_data IS NOT NULL) THEN
1160: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1154: );
1155: END IF;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: WHEN NO_DATA_FOUND THEN
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1159: IF (x_msg_data IS NOT NULL) THEN
1160: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1161: ELSE
1162: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1161: ELSE
1162: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1163: END IF;
1164: WHEN OTHERS THEN
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: IF (x_msg_data IS NOT NULL) THEN
1167: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1168: ELSE
1169: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Flag_Changes_For_Objectives ';
1211: AND PERIODICITY_TYPE = p_periodicity_type;
1212:
1213: BEGIN
1214: FND_MSG_PUB.Initialize;
1215: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1216: BSC_APPS.Init_Bsc_Apps;
1217: l_Count := 1;
1218:
1219: IF (p_Calendar_Record.Base_Periodicities_Ids IS NOT NULL) THEN
1264:
1265: l_Periodicity_Count := l_Periodicity_Count - 1;
1266: l_Count := l_Count + 1;
1267: END IF;
1268: l_Periodicity_Record.ForceRunPopulateCalendar := FND_API.G_FALSE;
1269:
1270: BSC_PERIODICITIES_PUB.Create_Periodicity
1271: ( p_Api_Version => p_Api_Version
1272: , p_Commit => p_Commit
1304:
1305:
1306:
1307: EXCEPTION
1308: WHEN FND_API.G_EXC_ERROR THEN
1309: IF (x_msg_data IS NULL) THEN
1310: FND_MSG_PUB.Count_And_Get
1311: ( p_encoded => FND_API.G_FALSE
1312: , p_count => x_msg_count
1307: EXCEPTION
1308: WHEN FND_API.G_EXC_ERROR THEN
1309: IF (x_msg_data IS NULL) THEN
1310: FND_MSG_PUB.Count_And_Get
1311: ( p_encoded => FND_API.G_FALSE
1312: , p_count => x_msg_count
1313: , p_data => x_msg_data
1314: );
1315: END IF;
1312: , p_count => x_msg_count
1313: , p_data => x_msg_data
1314: );
1315: END IF;
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1318: IF (x_msg_data IS NULL) THEN
1319: FND_MSG_PUB.Count_And_Get
1320: ( p_encoded => FND_API.G_FALSE
1313: , p_data => x_msg_data
1314: );
1315: END IF;
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1318: IF (x_msg_data IS NULL) THEN
1319: FND_MSG_PUB.Count_And_Get
1320: ( p_encoded => FND_API.G_FALSE
1321: , p_count => x_msg_count
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1318: IF (x_msg_data IS NULL) THEN
1319: FND_MSG_PUB.Count_And_Get
1320: ( p_encoded => FND_API.G_FALSE
1321: , p_count => x_msg_count
1322: , p_data => x_msg_data
1323: );
1324: END IF;
1321: , p_count => x_msg_count
1322: , p_data => x_msg_data
1323: );
1324: END IF;
1325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1326: WHEN NO_DATA_FOUND THEN
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: IF (x_msg_data IS NOT NULL) THEN
1329: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1323: );
1324: END IF;
1325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1326: WHEN NO_DATA_FOUND THEN
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: IF (x_msg_data IS NOT NULL) THEN
1329: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1330: ELSE
1331: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1330: ELSE
1331: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1332: END IF;
1333: WHEN OTHERS THEN
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: IF (x_msg_data IS NOT NULL) THEN
1336: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1337: ELSE
1338: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Periodicities_Calendar ';
1349: )IS
1350: l_Short_Name bsc_sys_calendars_b.short_name%TYPE;
1351: BEGIN
1352: FND_MSG_PUB.Initialize;
1353: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1354:
1355: IF(p_Calendar_Record.Dim_Short_Name IS NULL) THEN
1356: l_Short_Name := BSC_PERIODS_UTILITY_PKG.Get_Unique_Short_Name();
1357: ELSE
1369: , x_return_status => x_Return_Status
1370: , x_msg_count => x_Msg_Count
1371: , x_msg_data => x_Msg_Data
1372: );
1373: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1375: END IF;
1376:
1377: UPDATE bsc_sys_calendars_b
1370: , x_msg_count => x_Msg_Count
1371: , x_msg_data => x_Msg_Data
1372: );
1373: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1375: END IF;
1376:
1377: UPDATE bsc_sys_calendars_b
1378: SET short_name = l_Short_Name
1379: WHERE calendar_id = p_Calendar_Record.calendar_id;
1380:
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: IF (x_msg_data IS NULL) THEN
1385: FND_MSG_PUB.Count_And_Get
1386: ( p_encoded => FND_API.G_FALSE
1387: , p_count => x_msg_count
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: IF (x_msg_data IS NULL) THEN
1385: FND_MSG_PUB.Count_And_Get
1386: ( p_encoded => FND_API.G_FALSE
1387: , p_count => x_msg_count
1388: , p_data => x_msg_data
1389: );
1390: END IF;
1387: , p_count => x_msg_count
1388: , p_data => x_msg_data
1389: );
1390: END IF;
1391: x_return_status := FND_API.G_RET_STS_ERROR;
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: IF (x_msg_data IS NULL) THEN
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_encoded => FND_API.G_FALSE
1388: , p_data => x_msg_data
1389: );
1390: END IF;
1391: x_return_status := FND_API.G_RET_STS_ERROR;
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: IF (x_msg_data IS NULL) THEN
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_encoded => FND_API.G_FALSE
1396: , p_count => x_msg_count
1391: x_return_status := FND_API.G_RET_STS_ERROR;
1392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1393: IF (x_msg_data IS NULL) THEN
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_encoded => FND_API.G_FALSE
1396: , p_count => x_msg_count
1397: , p_data => x_msg_data
1398: );
1399: END IF;
1396: , p_count => x_msg_count
1397: , p_data => x_msg_data
1398: );
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: WHEN NO_DATA_FOUND THEN
1402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1403: IF (x_msg_data IS NOT NULL) THEN
1404: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1398: );
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: WHEN NO_DATA_FOUND THEN
1402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1403: IF (x_msg_data IS NOT NULL) THEN
1404: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1405: ELSE
1406: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1405: ELSE
1406: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1407: END IF;
1408: WHEN OTHERS THEN
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1410: IF (x_msg_data IS NOT NULL) THEN
1411: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1412: ELSE
1413: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Create_Calendar_Dimension ';
1431: l_Short_Name bsc_sys_calendars_b.short_name%TYPE;
1432: l_dim_obj_shortNames VARCHAR2(32000);
1433: BEGIN
1434: FND_MSG_PUB.Initialize;
1435: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1436:
1437: FOR CD IN C_comma_objNames LOOP
1438: IF(l_dim_obj_shortNames IS NULL) THEN
1439: l_dim_obj_shortNames := CD.obj_short_name;
1455: , x_msg_count => x_msg_count
1456: , x_msg_data => x_msg_data
1457: );
1458:
1459: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462:
1463:
1456: , x_msg_data => x_msg_data
1457: );
1458:
1459: IF(x_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462:
1463:
1464: EXCEPTION
1461: END IF;
1462:
1463:
1464: EXCEPTION
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: IF (x_msg_data IS NULL) THEN
1467: FND_MSG_PUB.Count_And_Get
1468: ( p_encoded => FND_API.G_FALSE
1469: , p_count => x_msg_count
1464: EXCEPTION
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: IF (x_msg_data IS NULL) THEN
1467: FND_MSG_PUB.Count_And_Get
1468: ( p_encoded => FND_API.G_FALSE
1469: , p_count => x_msg_count
1470: , p_data => x_msg_data
1471: );
1472: END IF;
1469: , p_count => x_msg_count
1470: , p_data => x_msg_data
1471: );
1472: END IF;
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: IF (x_msg_data IS NULL) THEN
1476: FND_MSG_PUB.Count_And_Get
1477: ( p_encoded => FND_API.G_FALSE
1470: , p_data => x_msg_data
1471: );
1472: END IF;
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: IF (x_msg_data IS NULL) THEN
1476: FND_MSG_PUB.Count_And_Get
1477: ( p_encoded => FND_API.G_FALSE
1478: , p_count => x_msg_count
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: IF (x_msg_data IS NULL) THEN
1476: FND_MSG_PUB.Count_And_Get
1477: ( p_encoded => FND_API.G_FALSE
1478: , p_count => x_msg_count
1479: , p_data => x_msg_data
1480: );
1481: END IF;
1478: , p_count => x_msg_count
1479: , p_data => x_msg_data
1480: );
1481: END IF;
1482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1483: WHEN NO_DATA_FOUND THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: IF (x_msg_data IS NOT NULL) THEN
1486: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar_Dimension ';
1480: );
1481: END IF;
1482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1483: WHEN NO_DATA_FOUND THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: IF (x_msg_data IS NOT NULL) THEN
1486: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar_Dimension ';
1487: ELSE
1488: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar_Dimension ';
1487: ELSE
1488: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar_Dimension ';
1489: END IF;
1490: WHEN OTHERS THEN
1491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: IF (x_msg_data IS NOT NULL) THEN
1493: x_msg_data := x_msg_data||' -> BSC_CALENDAR_PUB.Update_Calendar_Dimension ';
1494: ELSE
1495: x_msg_data := SQLERRM||' at BSC_CALENDAR_PUB.Update_Calendar_Dimension ';