[Home] [Help]
69: FROM ozf_threshold_rules_all
70: WHERE threshold_id = p_threshold_id;
71:
72: BEGIN
73: x_return_status := fnd_api.g_ret_sts_success;
74: IF G_DEBUG THEN
75: OZF_UTILITY_PVT.debug_message('Check Date: start');
76: END IF;
77:
76: END IF;
77:
78: -- compare the start date and the end date
79: IF p_start_date > p_end_date THEN
80: x_return_status := fnd_api.g_ret_sts_error;
81: ozf_utility_pvt.error_message('OZF_STARTDATE_OUT_ENDDATE');
82: RETURN;
83: END IF;
84:
89: LOOP
90: --BEGIN
91: IF p_start_date > rule.start_date
92: OR p_end_date < rule.end_date THEN
93: x_return_status := fnd_api.g_ret_sts_error;
94: ozf_utility_pvt.error_message('OZF_TRSH_OUT_THRESHOLD_RULE');
95: RETURN;
96: END IF;
97: -- END;
103: AND p_start_period_name IS NULL
104: AND p_end_period_name IS NULL THEN
105: RETURN;
106: ELSIF p_threshold_calendar IS NULL THEN
107: x_return_status := fnd_api.g_ret_sts_error;
108: ozf_utility_pvt.error_message('OZF_FUND_NO_CALENDAR');
109: RETURN;
110: END IF;
111:
114: FETCH c_threshold_calendar INTO l_local;
115: CLOSE c_threshold_calendar;
116:
117: IF l_local IS NULL THEN
118: x_return_status := fnd_api.g_ret_sts_error;
119: ozf_utility_pvt.error_message('OZF_FUND_BAD_CALENDAR');
120: RETURN;
121: END IF;
122:
126: FETCH c_start_period INTO l_start_start, l_start_end;
127: CLOSE c_start_period;
128:
129: IF l_start_start IS NULL THEN
130: x_return_status := fnd_api.g_ret_sts_error;
131: ozf_utility_pvt.error_message('OZF_FUND_BAD_START_PERIOD');
132: RETURN;
133: ELSIF p_start_date < l_start_start
134: OR p_start_date > l_start_end THEN
131: ozf_utility_pvt.error_message('OZF_FUND_BAD_START_PERIOD');
132: RETURN;
133: ELSIF p_start_date < l_start_start
134: OR p_start_date > l_start_end THEN
135: x_return_status := fnd_api.g_ret_sts_error;
136: ozf_utility_pvt.error_message('OZF_THRESHOLD_OUT_START_PERIOD');
137: RETURN;
138: END IF;
139: END IF;
144: FETCH c_end_period INTO l_end_start, l_end_end;
145: CLOSE c_end_period;
146:
147: IF l_end_end IS NULL THEN
148: x_return_status := fnd_api.g_ret_sts_error;
149: ozf_utility_pvt.error_message('OZF_FUND_BAD_END_PERIOD');
150: RETURN;
151: ELSIF p_end_date < l_end_start
152: OR p_end_date > l_end_end THEN
149: ozf_utility_pvt.error_message('OZF_FUND_BAD_END_PERIOD');
150: RETURN;
151: ELSIF p_end_date < l_end_start
152: OR p_end_date > l_end_end THEN
153: x_return_status := fnd_api.g_ret_sts_error;
154: ozf_utility_pvt.error_message('OZF_THRESHOLD_OUT_END_PERIOD');
155: RETURN;
156: END IF;
157: END IF;
166:
167: -- Hint: Primary key needs to be returned.
168: PROCEDURE Create_Threshold(
169: p_api_version_number IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173:
174: x_return_status OUT NOCOPY VARCHAR2,
167: -- Hint: Primary key needs to be returned.
168: PROCEDURE Create_Threshold(
169: p_api_version_number IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173:
174: x_return_status OUT NOCOPY VARCHAR2,
175: x_msg_count OUT NOCOPY NUMBER,
168: PROCEDURE Create_Threshold(
169: p_api_version_number IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173:
174: x_return_status OUT NOCOPY VARCHAR2,
175: x_msg_count OUT NOCOPY NUMBER,
176: x_msg_data OUT NOCOPY VARCHAR2,
203: -- Standard Start of API savepoint
204: SAVEPOINT CREATE_Threshold_PVT;
205:
206: -- Standard call to check for call compatibility.
207: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
208: p_api_version_number,
209: l_api_name,
210: G_PKG_NAME)
211: THEN
208: p_api_version_number,
209: l_api_name,
210: G_PKG_NAME)
211: THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE.
216: IF FND_API.to_Boolean( p_init_msg_list )
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE.
216: IF FND_API.to_Boolean( p_init_msg_list )
217: THEN
218: FND_MSG_PUB.initialize;
219: END IF;
220:
224: END IF;
225:
226:
227: -- Initialize API return status to SUCCESS
228: x_return_status := FND_API.G_RET_STS_SUCCESS;
229:
230: -- Local variable initialization
231:
232: IF p_threshold_rec.THRESHOLD_ID IS NULL OR p_threshold_rec.THRESHOLD_ID = FND_API.g_miss_num THEN
228: x_return_status := FND_API.G_RET_STS_SUCCESS;
229:
230: -- Local variable initialization
231:
232: IF p_threshold_rec.THRESHOLD_ID IS NULL OR p_threshold_rec.THRESHOLD_ID = FND_API.g_miss_num THEN
233: LOOP
234: l_dummy := NULL;
235: OPEN c_id;
236: FETCH c_id INTO l_THRESHOLD_ID;
244: END IF;
245:
246: -- default threshold calendar
247: IF (p_threshold_rec.threshold_calendar IS NULL
248: OR p_threshold_rec.threshold_calendar = fnd_api.g_miss_char)
249: AND ( p_threshold_rec.start_period_name IS NOT NULL
250: OR p_threshold_rec.end_period_name IS NOT NULL) THEN
251: l_threshold_calendar := fnd_profile.VALUE('AMS_CAMPAIGN_DEFAULT_CALENDER');
252: END IF;
251: l_threshold_calendar := fnd_profile.VALUE('AMS_CAMPAIGN_DEFAULT_CALENDER');
252: END IF;
253:
254: ------------------- check calendar ----------------------
255: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
256: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
257: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
258: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
259: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
252: END IF;
253:
254: ------------------- check calendar ----------------------
255: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
256: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
257: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
258: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
259: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
260: check_threshold_calendar(
253:
254: ------------------- check calendar ----------------------
255: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
256: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
257: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
258: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
259: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
260: check_threshold_calendar(
261: null
254: ------------------- check calendar ----------------------
255: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
256: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
257: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
258: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
259: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
260: check_threshold_calendar(
261: null
262: ,l_threshold_calendar
255: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
256: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
257: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
258: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
259: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
260: check_threshold_calendar(
261: null
262: ,l_threshold_calendar
263: ,p_threshold_rec.start_period_name
265: ,p_threshold_rec.start_date_active
266: ,p_threshold_rec.end_date_active
267: ,l_return_status);
268:
269: IF l_return_status <> fnd_api.g_ret_sts_success THEN
270: --x_return_status := l_return_status;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273: END IF;
267: ,l_return_status);
268:
269: IF l_return_status <> fnd_api.g_ret_sts_success THEN
270: --x_return_status := l_return_status;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273: END IF;
274:
275:
279:
280: IF FND_GLOBAL.User_Id IS NULL
281: THEN
282: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
283: RAISE FND_API.G_EXC_ERROR;
284: END IF;
285:
286: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
287: THEN
282: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
283: RAISE FND_API.G_EXC_ERROR;
284: END IF;
285:
286: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
287: THEN
288: -- Debug message
289: IF G_DEBUG THEN
290: OZF_UTILITY_PVT.debug_message('Private API: Validate_Threshold ');
292:
293: -- Invoke validation procedures
294: Validate_threshold(
295: p_api_version_number => 1.0,
296: p_init_msg_list => FND_API.G_FALSE,
297: p_validation_level => p_validation_level,
298: p_threshold_rec => p_threshold_rec,
299: x_return_status => x_return_status,
300: x_msg_count => x_msg_count,
300: x_msg_count => x_msg_count,
301: x_msg_data => x_msg_data);
302: END IF;
303:
304: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
305: RAISE FND_API.G_EXC_ERROR;
306: END IF;
307:
308:
301: x_msg_data => x_msg_data);
302: END IF;
303:
304: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
305: RAISE FND_API.G_EXC_ERROR;
306: END IF;
307:
308:
309: -- Debug Message
355: p_source_lang => p_threshold_rec.source_lang,
356: p_threshold_type => p_threshold_rec.threshold_type
357: );
358:
359: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362: --
363: -- End of API body
356: p_threshold_type => p_threshold_rec.threshold_type
357: );
358:
359: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362: --
363: -- End of API body
364: --
363: -- End of API body
364: --
365:
366: -- Standard check for p_commit
367: IF FND_API.to_Boolean( p_commit )
368: THEN
369: COMMIT WORK;
370: END IF;
371:
382: );
383: EXCEPTION
384:
385: WHEN OZF_Utility_PVT.resource_locked THEN
386: x_return_status := FND_API.g_ret_sts_error;
387: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
388:
389: WHEN FND_API.G_EXC_ERROR THEN
390: ROLLBACK TO CREATE_Threshold_PVT;
385: WHEN OZF_Utility_PVT.resource_locked THEN
386: x_return_status := FND_API.g_ret_sts_error;
387: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
388:
389: WHEN FND_API.G_EXC_ERROR THEN
390: ROLLBACK TO CREATE_Threshold_PVT;
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: -- Standard call to get message count and if count=1, get the message
393: FND_MSG_PUB.Count_And_Get (
387: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
388:
389: WHEN FND_API.G_EXC_ERROR THEN
390: ROLLBACK TO CREATE_Threshold_PVT;
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: -- Standard call to get message count and if count=1, get the message
393: FND_MSG_PUB.Count_And_Get (
394: p_encoded => FND_API.G_FALSE,
395: p_count => x_msg_count,
390: ROLLBACK TO CREATE_Threshold_PVT;
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: -- Standard call to get message count and if count=1, get the message
393: FND_MSG_PUB.Count_And_Get (
394: p_encoded => FND_API.G_FALSE,
395: p_count => x_msg_count,
396: p_data => x_msg_data
397: );
398:
395: p_count => x_msg_count,
396: p_data => x_msg_data
397: );
398:
399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400: ROLLBACK TO CREATE_Threshold_PVT;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
397: );
398:
399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400: ROLLBACK TO CREATE_Threshold_PVT;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE,
405: p_count => x_msg_count,
400: ROLLBACK TO CREATE_Threshold_PVT;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
408:
407: );
408:
409: WHEN OTHERS THEN
410: ROLLBACK TO CREATE_Threshold_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
415: END IF;
414: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
415: END IF;
416: -- Standard call to get message count and if count=1, get the message
417: FND_MSG_PUB.Count_And_Get (
418: p_encoded => FND_API.G_FALSE,
419: p_count => x_msg_count,
420: p_data => x_msg_data
421: );
422: End Create_Threshold;
423:
424:
425: PROCEDURE Update_Threshold(
426: p_api_version_number IN NUMBER,
427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
430:
431: x_return_status OUT NOCOPY VARCHAR2,
424:
425: PROCEDURE Update_Threshold(
426: p_api_version_number IN NUMBER,
427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
430:
431: x_return_status OUT NOCOPY VARCHAR2,
432: x_msg_count OUT NOCOPY NUMBER,
425: PROCEDURE Update_Threshold(
426: p_api_version_number IN NUMBER,
427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
430:
431: x_return_status OUT NOCOPY VARCHAR2,
432: x_msg_count OUT NOCOPY NUMBER,
433: x_msg_data OUT NOCOPY VARCHAR2,
459: -- Standard Start of API savepoint
460: SAVEPOINT UPDATE_Threshold_PVT;
461:
462: -- Standard call to check for call compatibility.
463: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
464: p_api_version_number,
465: l_api_name,
466: G_PKG_NAME)
467: THEN
464: p_api_version_number,
465: l_api_name,
466: G_PKG_NAME)
467: THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: END IF;
470:
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF FND_API.to_Boolean( p_init_msg_list )
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: END IF;
470:
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF FND_API.to_Boolean( p_init_msg_list )
473: THEN
474: FND_MSG_PUB.initialize;
475: END IF;
476:
480: END IF;
481:
482:
483: -- Initialize API return status to SUCCESS
484: x_return_status := FND_API.G_RET_STS_SUCCESS;
485:
486: -- Debug Message
487: IF G_DEBUG THEN
488: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select '|| p_threshold_rec.THRESHOLD_ID);
496: If ( c_get_Threshold%NOTFOUND) THEN
497: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
498: p_token_name => 'INFO',
499: p_token_value => 'Threshold') ;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502: -- Debug Message
503: IF G_DEBUG THEN
504: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
506: CLOSE c_get_Threshold;
507:
508:
509: If (l_tar_threshold_rec.object_version_number is NULL or
510: l_tar_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) Then
511: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
512: p_token_name => 'COLUMN',
513: p_token_value => 'Last_Update_Date') ;
514: raise FND_API.G_EXC_ERROR;
510: l_tar_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) Then
511: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
512: p_token_name => 'COLUMN',
513: p_token_value => 'Last_Update_Date') ;
514: raise FND_API.G_EXC_ERROR;
515: End if;
516: -- Check Whether record has been changed by someone else
517: If (l_tar_threshold_rec.object_version_number <> l_ref_threshold_rec.object_version_number) Then
518: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
517: If (l_tar_threshold_rec.object_version_number <> l_ref_threshold_rec.object_version_number) Then
518: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
519: p_token_name => 'INFO',
520: p_token_value => 'Threshold') ;
521: raise FND_API.G_EXC_ERROR;
522: End if;
523:
524:
525: Complete_threshold_Rec(
548: p_validation_mode => JTF_PLSQL_API.g_update,
549: x_return_status => x_return_status
550: );
551:
552: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
553: RAISE FND_API.G_EXC_ERROR;
554: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: END IF;
549: x_return_status => x_return_status
550: );
551:
552: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
553: RAISE FND_API.G_EXC_ERROR;
554: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: END IF;
557: END IF;
550: );
551:
552: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
553: RAISE FND_API.G_EXC_ERROR;
554: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: END IF;
557: END IF;
558:
551:
552: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
553: RAISE FND_API.G_EXC_ERROR;
554: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: END IF;
557: END IF;
558:
559: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
558:
559: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
560: Validate_threshold_Rec(
561: p_api_version_number => 1.0,
562: p_init_msg_list => FND_API.G_FALSE,
563: x_return_status => x_return_status,
564: x_msg_count => x_msg_count,
565: x_msg_data => x_msg_data,
566: p_threshold_rec => l_threshold_rec);
564: x_msg_count => x_msg_count,
565: x_msg_data => x_msg_data,
566: p_threshold_rec => l_threshold_rec);
567:
568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
565: x_msg_data => x_msg_data,
566: p_threshold_rec => l_threshold_rec);
567:
568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
566: p_threshold_rec => l_threshold_rec);
567:
568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
574:
567:
568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
574:
575:
625: -- End of API body.
626: --
627:
628: -- Standard check for p_commit
629: IF FND_API.to_Boolean( p_commit )
630: THEN
631: COMMIT WORK;
632: END IF;
633:
645: );
646: EXCEPTION
647:
648: WHEN OZF_Utility_PVT.resource_locked THEN
649: x_return_status := FND_API.g_ret_sts_error;
650: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
651:
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO UPDATE_Threshold_PVT;
648: WHEN OZF_Utility_PVT.resource_locked THEN
649: x_return_status := FND_API.g_ret_sts_error;
650: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
651:
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO UPDATE_Threshold_PVT;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: -- Standard call to get message count and if count=1, get the message
656: FND_MSG_PUB.Count_And_Get (
650: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
651:
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO UPDATE_Threshold_PVT;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: -- Standard call to get message count and if count=1, get the message
656: FND_MSG_PUB.Count_And_Get (
657: p_encoded => FND_API.G_FALSE,
658: p_count => x_msg_count,
653: ROLLBACK TO UPDATE_Threshold_PVT;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: -- Standard call to get message count and if count=1, get the message
656: FND_MSG_PUB.Count_And_Get (
657: p_encoded => FND_API.G_FALSE,
658: p_count => x_msg_count,
659: p_data => x_msg_data
660: );
661:
658: p_count => x_msg_count,
659: p_data => x_msg_data
660: );
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: ROLLBACK TO UPDATE_Threshold_PVT;
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
660: );
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: ROLLBACK TO UPDATE_Threshold_PVT;
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
668: p_count => x_msg_count,
663: ROLLBACK TO UPDATE_Threshold_PVT;
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671:
670: );
671:
672: WHEN OTHERS THEN
673: ROLLBACK TO UPDATE_Threshold_PVT;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
676: THEN
677: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
678: END IF;
677: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
678: END IF;
679: -- Standard call to get message count and if count=1, get the message
680: FND_MSG_PUB.Count_And_Get (
681: p_encoded => FND_API.G_FALSE,
682: p_count => x_msg_count,
683: p_data => x_msg_data
684: );
685: End Update_Threshold;
686:
687:
688: PROCEDURE Delete_Threshold(
689: p_api_version_number IN NUMBER,
690: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
691: p_commit IN VARCHAR2 := FND_API.G_FALSE,
692: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
693: x_return_status OUT NOCOPY VARCHAR2,
694: x_msg_count OUT NOCOPY NUMBER,
687:
688: PROCEDURE Delete_Threshold(
689: p_api_version_number IN NUMBER,
690: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
691: p_commit IN VARCHAR2 := FND_API.G_FALSE,
692: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
693: x_return_status OUT NOCOPY VARCHAR2,
694: x_msg_count OUT NOCOPY NUMBER,
695: x_msg_data OUT NOCOPY VARCHAR2,
688: PROCEDURE Delete_Threshold(
689: p_api_version_number IN NUMBER,
690: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
691: p_commit IN VARCHAR2 := FND_API.G_FALSE,
692: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
693: x_return_status OUT NOCOPY VARCHAR2,
694: x_msg_count OUT NOCOPY NUMBER,
695: x_msg_data OUT NOCOPY VARCHAR2,
696: p_threshold_id IN NUMBER,
706: -- Standard Start of API savepoint
707: SAVEPOINT DELETE_Threshold_PVT;
708:
709: -- Standard call to check for call compatibility.
710: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
711: p_api_version_number,
712: l_api_name,
713: G_PKG_NAME)
714: THEN
711: p_api_version_number,
712: l_api_name,
713: G_PKG_NAME)
714: THEN
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list )
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list )
720: THEN
721: FND_MSG_PUB.initialize;
722: END IF;
723:
727: END IF;
728:
729:
730: -- Initialize API return status to SUCCESS
731: x_return_status := FND_API.G_RET_STS_SUCCESS;
732:
733: --
734: -- Api body
735: --
745: -- End of API body
746: --
747:
748: -- Standard check for p_commit
749: IF FND_API.to_Boolean( p_commit )
750: THEN
751: COMMIT WORK;
752: END IF;
753:
764: );
765: EXCEPTION
766:
767: WHEN OZF_Utility_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Threshold_PVT;
767: WHEN OZF_Utility_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Threshold_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Threshold_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
772: ROLLBACK TO DELETE_Threshold_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO DELETE_Threshold_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO DELETE_Threshold_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
782: ROLLBACK TO DELETE_Threshold_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
790:
789: );
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO DELETE_Threshold_PVT;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804: End Delete_Threshold;
807:
808: -- Hint: Primary key needs to be returned.
809: PROCEDURE Lock_Threshold(
810: p_api_version_number IN NUMBER,
811: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
812:
813: x_return_status OUT NOCOPY VARCHAR2,
814: x_msg_count OUT NOCOPY NUMBER,
815: x_msg_data OUT NOCOPY VARCHAR2,
838: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
839: END IF;
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
843: THEN
844: FND_MSG_PUB.initialize;
845: END IF;
846:
844: FND_MSG_PUB.initialize;
845: END IF;
846:
847: -- Standard call to check for call compatibility.
848: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
849: p_api_version_number,
850: l_api_name,
851: G_PKG_NAME)
852: THEN
849: p_api_version_number,
850: l_api_name,
851: G_PKG_NAME)
852: THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855:
856:
857: -- Initialize API return status to SUCCESS
854: END IF;
855:
856:
857: -- Initialize API return status to SUCCESS
858: x_return_status := FND_API.G_RET_STS_SUCCESS;
859:
860:
861: ------------------------ lock -------------------------
862:
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
874: FND_MSG_PUB.add;
875: END IF;
876: RAISE FND_API.g_exc_error;
877: END IF;
878:
879: CLOSE c_Threshold;
880:
879: CLOSE c_Threshold;
880:
881: -------------------- finish --------------------------
882: FND_MSG_PUB.count_and_get(
883: p_encoded => FND_API.g_false,
884: p_count => x_msg_count,
885: p_data => x_msg_data);
886: IF G_DEBUG THEN
887: OZF_Utility_PVT.debug_message(l_full_name ||': end');
888: END IF;
889: EXCEPTION
890:
891: WHEN OZF_Utility_PVT.resource_locked THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
894:
895: WHEN FND_API.G_EXC_ERROR THEN
896: ROLLBACK TO LOCK_Threshold_PVT;
891: WHEN OZF_Utility_PVT.resource_locked THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
894:
895: WHEN FND_API.G_EXC_ERROR THEN
896: ROLLBACK TO LOCK_Threshold_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: -- Standard call to get message count and if count=1, get the message
899: FND_MSG_PUB.Count_And_Get (
893: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
894:
895: WHEN FND_API.G_EXC_ERROR THEN
896: ROLLBACK TO LOCK_Threshold_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: -- Standard call to get message count and if count=1, get the message
899: FND_MSG_PUB.Count_And_Get (
900: p_encoded => FND_API.G_FALSE,
901: p_count => x_msg_count,
896: ROLLBACK TO LOCK_Threshold_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: -- Standard call to get message count and if count=1, get the message
899: FND_MSG_PUB.Count_And_Get (
900: p_encoded => FND_API.G_FALSE,
901: p_count => x_msg_count,
902: p_data => x_msg_data
903: );
904:
901: p_count => x_msg_count,
902: p_data => x_msg_data
903: );
904:
905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: ROLLBACK TO LOCK_Threshold_PVT;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: -- Standard call to get message count and if count=1, get the message
909: FND_MSG_PUB.Count_And_Get (
903: );
904:
905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: ROLLBACK TO LOCK_Threshold_PVT;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: -- Standard call to get message count and if count=1, get the message
909: FND_MSG_PUB.Count_And_Get (
910: p_encoded => FND_API.G_FALSE,
911: p_count => x_msg_count,
906: ROLLBACK TO LOCK_Threshold_PVT;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: -- Standard call to get message count and if count=1, get the message
909: FND_MSG_PUB.Count_And_Get (
910: p_encoded => FND_API.G_FALSE,
911: p_count => x_msg_count,
912: p_data => x_msg_data
913: );
914:
913: );
914:
915: WHEN OTHERS THEN
916: ROLLBACK TO LOCK_Threshold_PVT;
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
919: THEN
920: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
921: END IF;
920: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
921: END IF;
922: -- Standard call to get message count and if count=1, get the message
923: FND_MSG_PUB.Count_And_Get (
924: p_encoded => FND_API.G_FALSE,
925: p_count => x_msg_count,
926: p_data => x_msg_data
927: );
928: End Lock_Threshold;
935: IS
936: l_valid_flag VARCHAR2(1);
937:
938: BEGIN
939: x_return_status := FND_API.g_ret_sts_success;
940: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
941: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
942: 'OZF_THRESHOLDS_ALL_B',
943: 'THRESHOLD_ID = ''' || p_threshold_rec.THRESHOLD_ID ||''''
949: ''' AND THRESHOLD_ID <> ' || p_threshold_rec.THRESHOLD_ID
950: );
951: END IF;
952:
953: IF l_valid_flag = FND_API.g_false THEN
954: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_THRESHOLD_ID_DUPLICATE');
955: x_return_status := FND_API.g_ret_sts_error;
956: RETURN;
957: END IF;
951: END IF;
952:
953: IF l_valid_flag = FND_API.g_false THEN
954: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_THRESHOLD_ID_DUPLICATE');
955: x_return_status := FND_API.g_ret_sts_error;
956: RETURN;
957: END IF;
958:
959: END check_threshold_uk_items;
964: x_return_status OUT NOCOPY VARCHAR2
965: )
966: IS
967: BEGIN
968: x_return_status := FND_API.g_ret_sts_success;
969: /*
970: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
971:
972:
969: /*
970: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
971:
972:
973: IF p_threshold_rec.threshold_id = FND_API.g_miss_num OR p_threshold_rec.threshold_id IS NULL THEN
974: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_threshold_id');
975: x_return_status := FND_API.g_ret_sts_error;
976: RETURN;
977: END IF;
971:
972:
973: IF p_threshold_rec.threshold_id = FND_API.g_miss_num OR p_threshold_rec.threshold_id IS NULL THEN
974: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_threshold_id');
975: x_return_status := FND_API.g_ret_sts_error;
976: RETURN;
977: END IF;
978:
979:
976: RETURN;
977: END IF;
978:
979:
980: IF p_threshold_rec.last_update_date = FND_API.g_miss_date OR p_threshold_rec.last_update_date IS NULL THEN
981: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_date');
982: x_return_status := FND_API.g_ret_sts_error;
983: RETURN;
984: END IF;
978:
979:
980: IF p_threshold_rec.last_update_date = FND_API.g_miss_date OR p_threshold_rec.last_update_date IS NULL THEN
981: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_date');
982: x_return_status := FND_API.g_ret_sts_error;
983: RETURN;
984: END IF;
985:
986:
983: RETURN;
984: END IF;
985:
986:
987: IF p_threshold_rec.last_updated_by = FND_API.g_miss_num OR p_threshold_rec.last_updated_by IS NULL THEN
988: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_by');
989: x_return_status := FND_API.g_ret_sts_error;
990: RETURN;
991: END IF;
985:
986:
987: IF p_threshold_rec.last_updated_by = FND_API.g_miss_num OR p_threshold_rec.last_updated_by IS NULL THEN
988: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_by');
989: x_return_status := FND_API.g_ret_sts_error;
990: RETURN;
991: END IF;
992:
993:
990: RETURN;
991: END IF;
992:
993:
994: IF p_threshold_rec.creation_date = FND_API.g_miss_date OR p_threshold_rec.creation_date IS NULL THEN
995: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_creation_date');
996: x_return_status := FND_API.g_ret_sts_error;
997: RETURN;
998: END IF;
992:
993:
994: IF p_threshold_rec.creation_date = FND_API.g_miss_date OR p_threshold_rec.creation_date IS NULL THEN
995: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_creation_date');
996: x_return_status := FND_API.g_ret_sts_error;
997: RETURN;
998: END IF;
999:
1000:
997: RETURN;
998: END IF;
999:
1000:
1001: IF p_threshold_rec.created_by = FND_API.g_miss_num OR p_threshold_rec.created_by IS NULL THEN
1002: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_created_by');
1003: x_return_status := FND_API.g_ret_sts_error;
1004: RETURN;
1005: END IF;
999:
1000:
1001: IF p_threshold_rec.created_by = FND_API.g_miss_num OR p_threshold_rec.created_by IS NULL THEN
1002: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_created_by');
1003: x_return_status := FND_API.g_ret_sts_error;
1004: RETURN;
1005: END IF;
1006:
1007:
1004: RETURN;
1005: END IF;
1006:
1007:
1008: IF p_threshold_rec.owner = FND_API.g_miss_num OR p_threshold_rec.owner IS NULL THEN
1009: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_owner');
1010: x_return_status := FND_API.g_ret_sts_error;
1011: RETURN;
1012: END IF;
1006:
1007:
1008: IF p_threshold_rec.owner = FND_API.g_miss_num OR p_threshold_rec.owner IS NULL THEN
1009: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_owner');
1010: x_return_status := FND_API.g_ret_sts_error;
1011: RETURN;
1012: END IF;
1013: ELSE
1014:
1014:
1015:
1016: IF p_threshold_rec.threshold_id IS NULL THEN
1017: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_threshold_id');
1018: x_return_status := FND_API.g_ret_sts_error;
1019: RETURN;
1020: END IF;
1021:
1022:
1021:
1022:
1023: IF p_threshold_rec.last_update_date IS NULL THEN
1024: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_date');
1025: x_return_status := FND_API.g_ret_sts_error;
1026: RETURN;
1027: END IF;
1028:
1029:
1028:
1029:
1030: IF p_threshold_rec.last_updated_by IS NULL THEN
1031: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_last_upd_by');
1032: x_return_status := FND_API.g_ret_sts_error;
1033: RETURN;
1034: END IF;
1035:
1036:
1035:
1036:
1037: IF p_threshold_rec.creation_date IS NULL THEN
1038: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_creation_date');
1039: x_return_status := FND_API.g_ret_sts_error;
1040: RETURN;
1041: END IF;
1042:
1043:
1042:
1043:
1044: IF p_threshold_rec.created_by IS NULL THEN
1045: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_created_by');
1046: x_return_status := FND_API.g_ret_sts_error;
1047: RETURN;
1048: END IF;
1049:
1050:
1049:
1050:
1051: IF p_threshold_rec.owner IS NULL THEN
1052: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_threshold_NO_owner');
1053: x_return_status := FND_API.g_ret_sts_error;
1054: RETURN;
1055:
1056: END IF;
1057: END IF;
1063: x_return_status OUT NOCOPY VARCHAR2
1064: )
1065: IS
1066: BEGIN
1067: x_return_status := FND_API.g_ret_sts_success;
1068:
1069: -- Enter custom code here
1070:
1071: END check_threshold_FK_items;
1075: x_return_status OUT NOCOPY VARCHAR2
1076: )
1077: IS
1078: BEGIN
1079: x_return_status := FND_API.g_ret_sts_success;
1080:
1081: -- Enter custom code here
1082:
1083: END check_threshold_Lookup_items;
1095: check_threshold_uk_items(
1096: p_threshold_rec => p_threshold_rec,
1097: p_validation_mode => p_validation_mode,
1098: x_return_status => x_return_status);
1099: IF x_return_status <> FND_API.g_ret_sts_success THEN
1100: RETURN;
1101: END IF;
1102:
1103: -- Check Items Required/NOT NULL API calls
1105: check_threshold_req_items(
1106: p_threshold_rec => p_threshold_rec,
1107: p_validation_mode => p_validation_mode,
1108: x_return_status => x_return_status);
1109: IF x_return_status <> FND_API.g_ret_sts_success THEN
1110: RETURN;
1111: END IF;
1112: -- Check Items Foreign Keys API calls
1113:
1113:
1114: check_threshold_FK_items(
1115: p_threshold_rec => p_threshold_rec,
1116: x_return_status => x_return_status);
1117: IF x_return_status <> FND_API.g_ret_sts_success THEN
1118: RETURN;
1119: END IF;
1120: -- Check Items Lookups
1121:
1121:
1122: check_threshold_Lookup_items(
1123: p_threshold_rec => p_threshold_rec,
1124: x_return_status => x_return_status);
1125: IF x_return_status <> FND_API.g_ret_sts_success THEN
1126: RETURN;
1127: END IF;
1128:
1129: END Check_threshold_Items;
1154: FETCH c_complete INTO l_threshold_rec;
1155: CLOSE c_complete;
1156:
1157: -- threshold_id
1158: IF p_threshold_rec.threshold_id = FND_API.g_miss_num THEN
1159: x_complete_rec.threshold_id := NULL;
1160: END IF;
1161: IF p_threshold_rec.threshold_id IS NULL THEN
1162: x_complete_rec.threshold_id := l_threshold_rec.threshold_id;
1162: x_complete_rec.threshold_id := l_threshold_rec.threshold_id;
1163: END IF;
1164:
1165: -- last_update_date
1166: IF p_threshold_rec.last_update_date = FND_API.g_miss_date THEN
1167: x_complete_rec.last_update_date := NULL;
1168: END IF;
1169: IF p_threshold_rec.last_update_date IS NULL THEN
1170: x_complete_rec.last_update_date := l_threshold_rec.last_update_date;
1170: x_complete_rec.last_update_date := l_threshold_rec.last_update_date;
1171: END IF;
1172:
1173: -- last_updated_by
1174: IF p_threshold_rec.last_updated_by = FND_API.g_miss_num THEN
1175: x_complete_rec.last_updated_by := NULL;
1176: END IF;
1177: IF p_threshold_rec.last_updated_by IS NULL THEN
1178: x_complete_rec.last_updated_by := l_threshold_rec.last_updated_by;
1178: x_complete_rec.last_updated_by := l_threshold_rec.last_updated_by;
1179: END IF;
1180:
1181: -- last_update_login
1182: IF p_threshold_rec.last_update_login = FND_API.g_miss_num THEN
1183: x_complete_rec.last_update_login := NULL;
1184: END IF;
1185: IF p_threshold_rec.last_update_login IS NULL THEN
1186: x_complete_rec.last_update_login := l_threshold_rec.last_update_login;
1186: x_complete_rec.last_update_login := l_threshold_rec.last_update_login;
1187: END IF;
1188:
1189: -- creation_date
1190: IF p_threshold_rec.creation_date = FND_API.g_miss_date THEN
1191: x_complete_rec.creation_date := NULL;
1192: END IF;
1193: IF p_threshold_rec.creation_date IS NULL THEN
1194: x_complete_rec.creation_date := l_threshold_rec.creation_date;
1194: x_complete_rec.creation_date := l_threshold_rec.creation_date;
1195: END IF;
1196:
1197: -- created_by
1198: IF p_threshold_rec.created_by = FND_API.g_miss_num THEN
1199: x_complete_rec.created_by := NULL;
1200: END IF;
1201: IF p_threshold_rec.created_by IS NULL THEN
1202: x_complete_rec.created_by := l_threshold_rec.created_by;
1202: x_complete_rec.created_by := l_threshold_rec.created_by;
1203: END IF;
1204:
1205: -- created_from
1206: IF p_threshold_rec.created_from = FND_API.g_miss_char THEN
1207: x_complete_rec.created_from := NULL;
1208: END IF;
1209: IF p_threshold_rec.created_from IS NULL THEN
1210: x_complete_rec.created_from := l_threshold_rec.created_from;
1210: x_complete_rec.created_from := l_threshold_rec.created_from;
1211: END IF;
1212:
1213: -- request_id
1214: IF p_threshold_rec.request_id = FND_API.g_miss_num THEN
1215: x_complete_rec.request_id := NULL;
1216: END IF;
1217: IF p_threshold_rec.request_id IS NULL THEN
1218: x_complete_rec.request_id := l_threshold_rec.request_id;
1218: x_complete_rec.request_id := l_threshold_rec.request_id;
1219: END IF;
1220:
1221: -- program_application_id
1222: IF p_threshold_rec.program_application_id = FND_API.g_miss_num THEN
1223: x_complete_rec.program_application_id := NULL;
1224: END IF;
1225: IF p_threshold_rec.program_application_id IS NULL THEN
1226: x_complete_rec.program_application_id := l_threshold_rec.program_application_id;
1226: x_complete_rec.program_application_id := l_threshold_rec.program_application_id;
1227: END IF;
1228:
1229: -- program_id
1230: IF p_threshold_rec.program_id = FND_API.g_miss_num THEN
1231: x_complete_rec.program_id := NULL;
1232: END IF;
1233: IF p_threshold_rec.program_id IS NULL THEN
1234: x_complete_rec.program_id := l_threshold_rec.program_id;
1234: x_complete_rec.program_id := l_threshold_rec.program_id;
1235: END IF;
1236:
1237: -- program_update_date
1238: IF p_threshold_rec.program_update_date = FND_API.g_miss_date THEN
1239: x_complete_rec.program_update_date := NULL;
1240: END IF;
1241: IF p_threshold_rec.program_update_date IS NULL THEN
1242: x_complete_rec.program_update_date := l_threshold_rec.program_update_date;
1242: x_complete_rec.program_update_date := l_threshold_rec.program_update_date;
1243: END IF;
1244:
1245: -- threshold_calendar
1246: IF p_threshold_rec.threshold_calendar = FND_API.g_miss_char THEN
1247: x_complete_rec.threshold_calendar := NULL;
1248: END IF;
1249: IF p_threshold_rec.threshold_calendar IS NULL THEN
1250: x_complete_rec.threshold_calendar := l_threshold_rec.threshold_calendar;
1250: x_complete_rec.threshold_calendar := l_threshold_rec.threshold_calendar;
1251: END IF;
1252:
1253: -- start_period_name
1254: IF p_threshold_rec.start_period_name = FND_API.g_miss_char THEN
1255: x_complete_rec.start_period_name := NULL;
1256: END IF;
1257: IF p_threshold_rec.start_period_name IS NULL THEN
1258: x_complete_rec.start_period_name := l_threshold_rec.start_period_name;
1258: x_complete_rec.start_period_name := l_threshold_rec.start_period_name;
1259: END IF;
1260:
1261: -- end_period_name
1262: IF p_threshold_rec.end_period_name = FND_API.g_miss_char THEN
1263: x_complete_rec.end_period_name := NULL;
1264: END IF;
1265: IF p_threshold_rec.end_period_name IS NULL THEN
1266: x_complete_rec.end_period_name := l_threshold_rec.end_period_name;
1266: x_complete_rec.end_period_name := l_threshold_rec.end_period_name;
1267: END IF;
1268:
1269: -- start_date_active
1270: IF p_threshold_rec.start_date_active = FND_API.g_miss_date THEN
1271: x_complete_rec.start_date_active := NULL;
1272: END IF;
1273: IF p_threshold_rec.start_date_active IS NULL THEN
1274: x_complete_rec.start_date_active := l_threshold_rec.start_date_active;
1274: x_complete_rec.start_date_active := l_threshold_rec.start_date_active;
1275: END IF;
1276:
1277: -- end_date_active
1278: IF p_threshold_rec.end_date_active = FND_API.g_miss_date THEN
1279: x_complete_rec.end_date_active := NULL;
1280: END IF;
1281: IF p_threshold_rec.end_date_active IS NULL THEN
1282: x_complete_rec.end_date_active := l_threshold_rec.end_date_active;
1282: x_complete_rec.end_date_active := l_threshold_rec.end_date_active;
1283: END IF;
1284:
1285: -- owner
1286: IF p_threshold_rec.owner = FND_API.g_miss_num THEN
1287: x_complete_rec.owner := NULL;
1288: END IF;
1289: IF p_threshold_rec.owner IS NULL THEN
1290: x_complete_rec.owner := l_threshold_rec.owner;
1290: x_complete_rec.owner := l_threshold_rec.owner;
1291: END IF;
1292:
1293: -- enable_flag
1294: IF p_threshold_rec.enable_flag = FND_API.g_miss_char THEN
1295: x_complete_rec.enable_flag := NULL;
1296: END IF;
1297: IF p_threshold_rec.enable_flag IS NULL THEN
1298: x_complete_rec.enable_flag := l_threshold_rec.enable_flag;
1298: x_complete_rec.enable_flag := l_threshold_rec.enable_flag;
1299: END IF;
1300:
1301: -- attribute1
1302: IF p_threshold_rec.attribute1 = FND_API.g_miss_char THEN
1303: x_complete_rec.attribute1 := NULL;
1304: END IF;
1305: IF p_threshold_rec.attribute1 IS NULL THEN
1306: x_complete_rec.attribute1 := l_threshold_rec.attribute1;
1306: x_complete_rec.attribute1 := l_threshold_rec.attribute1;
1307: END IF;
1308:
1309: -- attribute2
1310: IF p_threshold_rec.attribute2 = FND_API.g_miss_char THEN
1311: x_complete_rec.attribute2 := NULL;
1312: END IF;
1313: IF p_threshold_rec.attribute2 IS NULL THEN
1314: x_complete_rec.attribute2 := l_threshold_rec.attribute2;
1314: x_complete_rec.attribute2 := l_threshold_rec.attribute2;
1315: END IF;
1316:
1317: -- attribute3
1318: IF p_threshold_rec.attribute3 = FND_API.g_miss_char THEN
1319: x_complete_rec.attribute3 := NULL;
1320: END IF;
1321: IF p_threshold_rec.attribute3 IS NULL THEN
1322: x_complete_rec.attribute3 := l_threshold_rec.attribute3;
1322: x_complete_rec.attribute3 := l_threshold_rec.attribute3;
1323: END IF;
1324:
1325: -- attribute4
1326: IF p_threshold_rec.attribute4 = FND_API.g_miss_char THEN
1327: x_complete_rec.attribute4 := NULL;
1328: END IF;
1329: IF p_threshold_rec.attribute4 IS NULL THEN
1330: x_complete_rec.attribute4 := l_threshold_rec.attribute4;
1330: x_complete_rec.attribute4 := l_threshold_rec.attribute4;
1331: END IF;
1332:
1333: -- attribute5
1334: IF p_threshold_rec.attribute5 = FND_API.g_miss_char THEN
1335: x_complete_rec.attribute5 := NULL;
1336: END IF;
1337: IF p_threshold_rec.attribute5 IS NULL THEN
1338: x_complete_rec.attribute5 := l_threshold_rec.attribute5;
1338: x_complete_rec.attribute5 := l_threshold_rec.attribute5;
1339: END IF;
1340:
1341: -- attribute6
1342: IF p_threshold_rec.attribute6 = FND_API.g_miss_char THEN
1343: x_complete_rec.attribute6 := NULL;
1344: END IF;
1345: IF p_threshold_rec.attribute6 IS NULL THEN
1346: x_complete_rec.attribute6 := l_threshold_rec.attribute6;
1346: x_complete_rec.attribute6 := l_threshold_rec.attribute6;
1347: END IF;
1348:
1349: -- attribute7
1350: IF p_threshold_rec.attribute7 = FND_API.g_miss_char THEN
1351: x_complete_rec.attribute7 := NULL;
1352: END IF;
1353: IF p_threshold_rec.attribute7 IS NULL THEN
1354: x_complete_rec.attribute7 := l_threshold_rec.attribute7;
1354: x_complete_rec.attribute7 := l_threshold_rec.attribute7;
1355: END IF;
1356:
1357: -- attribute8
1358: IF p_threshold_rec.attribute8 = FND_API.g_miss_char THEN
1359: x_complete_rec.attribute8 := NULL;
1360: END IF;
1361: IF p_threshold_rec.attribute8 IS NULL THEN
1362: x_complete_rec.attribute8 := l_threshold_rec.attribute8;
1362: x_complete_rec.attribute8 := l_threshold_rec.attribute8;
1363: END IF;
1364:
1365: -- attribute9
1366: IF p_threshold_rec.attribute9 = FND_API.g_miss_char THEN
1367: x_complete_rec.attribute9 := NULL;
1368: END IF;
1369: IF p_threshold_rec.attribute9 IS NULL THEN
1370: x_complete_rec.attribute9 := l_threshold_rec.attribute9;
1370: x_complete_rec.attribute9 := l_threshold_rec.attribute9;
1371: END IF;
1372:
1373: -- attribute10
1374: IF p_threshold_rec.attribute10 = FND_API.g_miss_char THEN
1375: x_complete_rec.attribute10 := NULL;
1376: END IF;
1377: IF p_threshold_rec.attribute10 IS NULL THEN
1378: x_complete_rec.attribute10 := l_threshold_rec.attribute10;
1378: x_complete_rec.attribute10 := l_threshold_rec.attribute10;
1379: END IF;
1380:
1381: -- attribute11
1382: IF p_threshold_rec.attribute11 = FND_API.g_miss_char THEN
1383: x_complete_rec.attribute11 := NULL;
1384: END IF;
1385: IF p_threshold_rec.attribute11 IS NULL THEN
1386: x_complete_rec.attribute11 := l_threshold_rec.attribute11;
1386: x_complete_rec.attribute11 := l_threshold_rec.attribute11;
1387: END IF;
1388:
1389: -- attribute12
1390: IF p_threshold_rec.attribute12 = FND_API.g_miss_char THEN
1391: x_complete_rec.attribute12 := NULL;
1392: END IF;
1393: IF p_threshold_rec.attribute12 IS NULL THEN
1394: x_complete_rec.attribute12 := l_threshold_rec.attribute12;
1394: x_complete_rec.attribute12 := l_threshold_rec.attribute12;
1395: END IF;
1396:
1397: -- attribute13
1398: IF p_threshold_rec.attribute13 = FND_API.g_miss_char THEN
1399: x_complete_rec.attribute13 := NULL;
1400: END IF;
1401: IF p_threshold_rec.attribute13 IS NULL THEN
1402: x_complete_rec.attribute13 := l_threshold_rec.attribute13;
1402: x_complete_rec.attribute13 := l_threshold_rec.attribute13;
1403: END IF;
1404:
1405: -- attribute14
1406: IF p_threshold_rec.attribute14 = FND_API.g_miss_char THEN
1407: x_complete_rec.attribute14 := NULL;
1408: END IF;
1409: IF p_threshold_rec.attribute14 IS NULL THEN
1410: x_complete_rec.attribute14 := l_threshold_rec.attribute14;
1410: x_complete_rec.attribute14 := l_threshold_rec.attribute14;
1411: END IF;
1412:
1413: -- attribute15
1414: IF p_threshold_rec.attribute15 = FND_API.g_miss_char THEN
1415: x_complete_rec.attribute15 := NULL;
1416: END IF;
1417: IF p_threshold_rec.attribute15 IS NULL THEN
1418: x_complete_rec.attribute15 := l_threshold_rec.attribute15;
1418: x_complete_rec.attribute15 := l_threshold_rec.attribute15;
1419: END IF;
1420:
1421: -- org_id
1422: IF p_threshold_rec.org_id = FND_API.g_miss_num THEN
1423: x_complete_rec.org_id := NULL;
1424: END IF;
1425: IF p_threshold_rec.org_id IS NULL THEN
1426: x_complete_rec.org_id := l_threshold_rec.org_id;
1426: x_complete_rec.org_id := l_threshold_rec.org_id;
1427: END IF;
1428:
1429: -- security_group_id
1430: IF p_threshold_rec.security_group_id = FND_API.g_miss_num THEN
1431: x_complete_rec.security_group_id := NULL;
1432: END IF;
1433: IF p_threshold_rec.security_group_id IS NULL THEN
1434: x_complete_rec.security_group_id := l_threshold_rec.security_group_id;
1434: x_complete_rec.security_group_id := l_threshold_rec.security_group_id;
1435: END IF;
1436:
1437: -- object_version_number
1438: IF p_threshold_rec.object_version_number = FND_API.g_miss_num THEN
1439: x_complete_rec.object_version_number := NULL;
1440: END IF;
1441: IF p_threshold_rec.object_version_number IS NULL THEN
1442: x_complete_rec.object_version_number := l_threshold_rec.object_version_number;
1442: x_complete_rec.object_version_number := l_threshold_rec.object_version_number;
1443: END IF;
1444:
1445: -- threshold_type
1446: IF p_threshold_rec.threshold_type = FND_API.g_miss_char THEN
1447: x_complete_rec.threshold_type := NULL;
1448: END IF;
1449: IF p_threshold_rec.threshold_type IS NULL THEN
1450: x_complete_rec.threshold_type := l_threshold_rec.threshold_type;
1449: IF p_threshold_rec.threshold_type IS NULL THEN
1450: x_complete_rec.threshold_type := l_threshold_rec.threshold_type;
1451: END IF;
1452:
1453: IF p_threshold_rec.language = FND_API.g_miss_char THEN
1454: x_complete_rec.language := NULL;
1455: END IF;
1456:
1457: -- Note: Developers need to modify the procedure
1458: -- to handle any business specific requirements.
1459: END Complete_threshold_Rec;
1460: PROCEDURE Validate_threshold(
1461: p_api_version_number IN NUMBER,
1462: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_threshold_rec IN threshold_rec_type,
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1459: END Complete_threshold_Rec;
1460: PROCEDURE Validate_threshold(
1461: p_api_version_number IN NUMBER,
1462: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_threshold_rec IN threshold_rec_type,
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1467: x_msg_data OUT NOCOPY VARCHAR2
1476: -- Standard Start of API savepoint
1477: SAVEPOINT VALIDATE_Threshold_;
1478:
1479: -- Standard call to check for call compatibility.
1480: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1481: p_api_version_number,
1482: l_api_name,
1483: G_PKG_NAME)
1484: THEN
1481: p_api_version_number,
1482: l_api_name,
1483: G_PKG_NAME)
1484: THEN
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: END IF;
1487:
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1489: IF FND_API.to_Boolean( p_init_msg_list )
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: END IF;
1487:
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1489: IF FND_API.to_Boolean( p_init_msg_list )
1490: THEN
1491: FND_MSG_PUB.initialize;
1492: END IF;
1493: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1496: p_validation_mode => JTF_PLSQL_API.g_create,
1497: x_return_status => x_return_status
1498: );
1499:
1500: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1497: x_return_status => x_return_status
1498: );
1499:
1500: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1498: );
1499:
1500: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1506:
1499:
1500: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505: END IF;
1506:
1507: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1506:
1507: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1508: Validate_threshold_Rec(
1509: p_api_version_number => 1.0,
1510: p_init_msg_list => FND_API.G_FALSE,
1511: x_return_status => x_return_status,
1512: x_msg_count => x_msg_count,
1513: x_msg_data => x_msg_data,
1514: p_threshold_rec => l_threshold_rec);
1512: x_msg_count => x_msg_count,
1513: x_msg_data => x_msg_data,
1514: p_threshold_rec => l_threshold_rec);
1515:
1516: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1513: x_msg_data => x_msg_data,
1514: p_threshold_rec => l_threshold_rec);
1515:
1516: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END IF;
1514: p_threshold_rec => l_threshold_rec);
1515:
1516: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END IF;
1522:
1515:
1516: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1517: RAISE FND_API.G_EXC_ERROR;
1518: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: END IF;
1522:
1523:
1527: END IF;
1528:
1529:
1530: -- Initialize API return status to SUCCESS
1531: x_return_status := FND_API.G_RET_STS_SUCCESS;
1532:
1533:
1534: -- Debug Message
1535: IF G_DEBUG THEN
1543: );
1544: EXCEPTION
1545:
1546: WHEN OZF_Utility_PVT.resource_locked THEN
1547: x_return_status := FND_API.g_ret_sts_error;
1548: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1549:
1550: WHEN FND_API.G_EXC_ERROR THEN
1551: ROLLBACK TO VALIDATE_Threshold_;
1546: WHEN OZF_Utility_PVT.resource_locked THEN
1547: x_return_status := FND_API.g_ret_sts_error;
1548: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1549:
1550: WHEN FND_API.G_EXC_ERROR THEN
1551: ROLLBACK TO VALIDATE_Threshold_;
1552: x_return_status := FND_API.G_RET_STS_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1548: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1549:
1550: WHEN FND_API.G_EXC_ERROR THEN
1551: ROLLBACK TO VALIDATE_Threshold_;
1552: x_return_status := FND_API.G_RET_STS_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1551: ROLLBACK TO VALIDATE_Threshold_;
1552: x_return_status := FND_API.G_RET_STS_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1559:
1556: p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1559:
1560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1561: ROLLBACK TO VALIDATE_Threshold_;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: -- Standard call to get message count and if count=1, get the message
1564: FND_MSG_PUB.Count_And_Get (
1558: );
1559:
1560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1561: ROLLBACK TO VALIDATE_Threshold_;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: -- Standard call to get message count and if count=1, get the message
1564: FND_MSG_PUB.Count_And_Get (
1565: p_encoded => FND_API.G_FALSE,
1566: p_count => x_msg_count,
1561: ROLLBACK TO VALIDATE_Threshold_;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: -- Standard call to get message count and if count=1, get the message
1564: FND_MSG_PUB.Count_And_Get (
1565: p_encoded => FND_API.G_FALSE,
1566: p_count => x_msg_count,
1567: p_data => x_msg_data
1568: );
1569:
1568: );
1569:
1570: WHEN OTHERS THEN
1571: ROLLBACK TO VALIDATE_Threshold_;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1574: THEN
1575: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1576: END IF;
1575: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1576: END IF;
1577: -- Standard call to get message count and if count=1, get the message
1578: FND_MSG_PUB.Count_And_Get (
1579: p_encoded => FND_API.G_FALSE,
1580: p_count => x_msg_count,
1581: p_data => x_msg_data
1582: );
1583: End Validate_Threshold;
1584:
1585:
1586: PROCEDURE Validate_threshold_rec(
1587: p_api_version_number IN NUMBER,
1588: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1589: x_return_status OUT NOCOPY VARCHAR2,
1590: x_msg_count OUT NOCOPY NUMBER,
1591: x_msg_data OUT NOCOPY VARCHAR2,
1592: p_threshold_rec IN threshold_rec_type
1594: IS
1595: l_return_status VARCHAR2(30);
1596: BEGIN
1597: -- Initialize message list if p_init_msg_list is set to TRUE.
1598: IF FND_API.to_Boolean( p_init_msg_list )
1599: THEN
1600: FND_MSG_PUB.initialize;
1601: END IF;
1602:
1600: FND_MSG_PUB.initialize;
1601: END IF;
1602:
1603: -- Initialize API return status to SUCCESS
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605:
1606: ------------------- check calendar ----------------------
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1603: -- Initialize API return status to SUCCESS
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605:
1606: ------------------- check calendar ----------------------
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1609: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
1610: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
1611: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605:
1606: ------------------- check calendar ----------------------
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1609: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
1610: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
1611: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
1612: check_threshold_calendar(
1605:
1606: ------------------- check calendar ----------------------
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1609: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
1610: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
1611: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
1612: check_threshold_calendar(
1613: p_threshold_rec.threshold_id
1606: ------------------- check calendar ----------------------
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1609: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
1610: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
1611: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
1612: check_threshold_calendar(
1613: p_threshold_rec.threshold_id
1614: ,p_threshold_rec.threshold_calendar
1607: IF p_threshold_rec.threshold_calendar <> fnd_api.g_miss_char
1608: OR p_threshold_rec.start_period_name <> fnd_api.g_miss_char
1609: OR p_threshold_rec.end_period_name <> fnd_api.g_miss_char
1610: OR p_threshold_rec.start_date_active <> fnd_api.g_miss_date
1611: OR p_threshold_rec.end_date_active <> fnd_api.g_miss_date THEN
1612: check_threshold_calendar(
1613: p_threshold_rec.threshold_id
1614: ,p_threshold_rec.threshold_calendar
1615: ,p_threshold_rec.start_period_name
1617: ,p_threshold_rec.start_date_active
1618: ,p_threshold_rec.end_date_active
1619: ,l_return_status);
1620:
1621: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1622: x_return_status := l_return_status;
1623: END IF;
1624: END IF;
1625: