[Home] [Help]
66: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
67:
68: FUNCTION compare_columns(
69: p_approval_details_rec IN Approval_Details_Rec_Type
70: ) RETURN VARCHAR2; -- FND_API.g_true/g_false
71:
72: FUNCTION seed_needs_update(
73: p_approval_details_rec IN Approval_Details_Rec_Type
74: ) RETURN VARCHAR2; -- FND_API.g_true/g_false
70: ) RETURN VARCHAR2; -- FND_API.g_true/g_false
71:
72: FUNCTION seed_needs_update(
73: p_approval_details_rec IN Approval_Details_Rec_Type
74: ) RETURN VARCHAR2; -- FND_API.g_true/g_false
75:
76: -- Check_Approval_Dtls_Req_Items
77: PROCEDURE Check_Approval_Dtls_Req_Items (
78: p_approval_details_rec IN Approval_Details_Rec_Type,
110:
111: FUNCTION Check_Dates_Overlap (
112: p_approval_details_rec IN Approval_Details_Rec_Type,
113: p_validation_mode IN VARCHAR2
114: ) RETURN VARCHAR2; -- FND_API.g_true/g_false
115:
116:
117: PROCEDURE Check_Unique_Rule (
118: p_approval_details_rec IN Approval_Details_Rec_Type,
116:
117: PROCEDURE Check_Unique_Rule (
118: p_approval_details_rec IN Approval_Details_Rec_Type,
119: x_exist_rule_name OUT NOCOPY VARCHAR2,
120: x_return_status OUT NOCOPY VARCHAR2 -- FND_API.g_true/g_false
121: );
122:
123: PROCEDURE Get_Approval_Rule_Name(
124: p_approval_detail_id IN NUMBER,
134: END;
135:
136: FUNCTION Is_Usage_Lite(
137: p_custom_setup_id IN NUMBER
138: ) RETURN VARCHAR2 -- FND_API.g_true/g_false
139: IS
140: l_usage VARCHAR2(30);
141: BEGIN
142: SELECT usage
144: FROM ams_custom_setups_b
145: WHERE custom_setup_id = p_custom_setup_id;
146:
147: IF l_usage = 'LITE' THEN
148: return FND_API.g_true;
149: ELSE
150: return FND_API.g_false;
151: END IF;
152: EXCEPTION
146:
147: IF l_usage = 'LITE' THEN
148: return FND_API.g_true;
149: ELSE
150: return FND_API.g_false;
151: END IF;
152: EXCEPTION
153: WHEN NO_DATA_FOUND THEN
154: return FND_API.g_false;
150: return FND_API.g_false;
151: END IF;
152: EXCEPTION
153: WHEN NO_DATA_FOUND THEN
154: return FND_API.g_false;
155: END;
156:
157:
158: --------------------------------------------------------------------
172: -- Raise exception in case of duplicates.
173: -- 4. If a flag column is passed in, check if it is 'Y' or 'N'.
174: -- Raise exception for invalid flag.
175: -- 5. If a flag column is not passed in, default it to 'Y' or 'N'.
176: -- 6. Please don't pass in any FND_API.g_mess_char/num/date.
177: --------------------------------------------------------------------
178: PROCEDURE Create_approval_details (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
176: -- 6. Please don't pass in any FND_API.g_mess_char/num/date.
177: --------------------------------------------------------------------
178: PROCEDURE Create_approval_details (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
181: p_commit IN VARCHAR2 := FND_API.g_false,
182: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
183: x_return_status OUT NOCOPY VARCHAR2,
184: x_msg_count OUT NOCOPY NUMBER,
177: --------------------------------------------------------------------
178: PROCEDURE Create_approval_details (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
181: p_commit IN VARCHAR2 := FND_API.g_false,
182: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
183: x_return_status OUT NOCOPY VARCHAR2,
184: x_msg_count OUT NOCOPY NUMBER,
185: x_msg_data OUT NOCOPY VARCHAR2,
178: PROCEDURE Create_approval_details (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
181: p_commit IN VARCHAR2 := FND_API.g_false,
182: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
183: x_return_status OUT NOCOPY VARCHAR2,
184: x_msg_count OUT NOCOPY NUMBER,
185: x_msg_data OUT NOCOPY VARCHAR2,
186: p_approval_details_rec IN Approval_Details_Rec_Type,
211: IF (AMS_DEBUG_HIGH_ON) THEN
212:
213: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
214: END IF;
215: IF FND_API.to_boolean (p_init_msg_list) THEN
216: FND_MSG_PUB.initialize;
217: END IF;
218: IF NOT FND_API.compatible_api_call (
219: L_API_VERSION,
214: END IF;
215: IF FND_API.to_boolean (p_init_msg_list) THEN
216: FND_MSG_PUB.initialize;
217: END IF;
218: IF NOT FND_API.compatible_api_call (
219: L_API_VERSION,
220: p_api_version,
221: L_API_NAME,
222: G_PKG_NAME
220: p_api_version,
221: L_API_NAME,
222: G_PKG_NAME
223: ) THEN
224: RAISE FND_API.g_exc_unexpected_error;
225: END IF;
226: x_return_status := FND_API.g_ret_sts_success;
227:
228:
222: G_PKG_NAME
223: ) THEN
224: RAISE FND_API.g_exc_unexpected_error;
225: END IF;
226: x_return_status := FND_API.g_ret_sts_success;
227:
228:
229: ----------------Similar Rule Already Exists Or Not ---------------------------
230:
230:
231: Check_Unique_Rule(p_approval_details_rec => l_Approval_Details_rec,
232: x_exist_rule_name => l_exist_rule_name,
233: x_return_status => l_return_status);
234: IF l_return_status = FND_API.g_true THEN
235: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
236: FND_MESSAGE.set_name ('AMS', 'AMS_APPR_RULE_EXISTS');
237: FND_MESSAGE.set_token('EXIST_RULE_NAME', l_exist_rule_name);
238: FND_MSG_PUB.add;
236: FND_MESSAGE.set_name ('AMS', 'AMS_APPR_RULE_EXISTS');
237: FND_MESSAGE.set_token('EXIST_RULE_NAME', l_exist_rule_name);
238: FND_MSG_PUB.add;
239: END IF;
240: RAISE FND_API.g_exc_error;
241: END IF;
242:
243: ----------------------- validate -----------------------
244: IF (AMS_DEBUG_HIGH_ON) THEN
254: x_msg_count => x_msg_count,
255: x_msg_data => x_msg_data,
256: p_approval_details_rec => l_Approval_Details_rec
257: );
258: IF l_return_status = FND_API.g_ret_sts_error THEN
259: RAISE FND_API.g_exc_error;
260: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
261: RAISE FND_API.g_exc_unexpected_error;
262: END IF;
255: x_msg_data => x_msg_data,
256: p_approval_details_rec => l_Approval_Details_rec
257: );
258: IF l_return_status = FND_API.g_ret_sts_error THEN
259: RAISE FND_API.g_exc_error;
260: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
261: RAISE FND_API.g_exc_unexpected_error;
262: END IF;
263: --
256: p_approval_details_rec => l_Approval_Details_rec
257: );
258: IF l_return_status = FND_API.g_ret_sts_error THEN
259: RAISE FND_API.g_exc_error;
260: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
261: RAISE FND_API.g_exc_unexpected_error;
262: END IF;
263: --
264: -- Check for the ID.
257: );
258: IF l_return_status = FND_API.g_ret_sts_error THEN
259: RAISE FND_API.g_exc_error;
260: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
261: RAISE FND_API.g_exc_unexpected_error;
262: END IF;
263: --
264: -- Check for the ID.
265: --
326: --
327: -- END of API body.
328: --
329: -- Standard check of p_commit.
330: IF FND_API.To_Boolean ( p_commit ) THEN
331: COMMIT WORK;
332: END IF;
333: FND_MSG_PUB.count_and_get(
334: p_encoded => FND_API.g_false,
330: IF FND_API.To_Boolean ( p_commit ) THEN
331: COMMIT WORK;
332: END IF;
333: FND_MSG_PUB.count_and_get(
334: p_encoded => FND_API.g_false,
335: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
338: IF (AMS_DEBUG_HIGH_ON) THEN
340: AMS_Utility_PVT.debug_message (l_full_name || ': End');
341: END IF;
342:
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: ROLLBACK TO Create_Approval_Details;
346: x_return_status := FND_API.g_ret_sts_error;
347: FND_MSG_PUB.count_and_get(
348: p_encoded => FND_API.g_false,
342:
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: ROLLBACK TO Create_Approval_Details;
346: x_return_status := FND_API.g_ret_sts_error;
347: FND_MSG_PUB.count_and_get(
348: p_encoded => FND_API.g_false,
349: p_count => x_msg_count,
350: p_data => x_msg_data
344: WHEN FND_API.g_exc_error THEN
345: ROLLBACK TO Create_Approval_Details;
346: x_return_status := FND_API.g_ret_sts_error;
347: FND_MSG_PUB.count_and_get(
348: p_encoded => FND_API.g_false,
349: p_count => x_msg_count,
350: p_data => x_msg_data
351: );
352: WHEN FND_API.g_exc_unexpected_error THEN
348: p_encoded => FND_API.g_false,
349: p_count => x_msg_count,
350: p_data => x_msg_data
351: );
352: WHEN FND_API.g_exc_unexpected_error THEN
353: ROLLBACK TO Create_Approval_Details;
354: x_return_status := FND_API.g_ret_sts_unexp_error ;
355: FND_MSG_PUB.count_and_get (
356: p_encoded => FND_API.g_false,
350: p_data => x_msg_data
351: );
352: WHEN FND_API.g_exc_unexpected_error THEN
353: ROLLBACK TO Create_Approval_Details;
354: x_return_status := FND_API.g_ret_sts_unexp_error ;
355: FND_MSG_PUB.count_and_get (
356: p_encoded => FND_API.g_false,
357: p_count => x_msg_count,
358: p_data => x_msg_data
352: WHEN FND_API.g_exc_unexpected_error THEN
353: ROLLBACK TO Create_Approval_Details;
354: x_return_status := FND_API.g_ret_sts_unexp_error ;
355: FND_MSG_PUB.count_and_get (
356: p_encoded => FND_API.g_false,
357: p_count => x_msg_count,
358: p_data => x_msg_data
359: );
360: WHEN OTHERS THEN
358: p_data => x_msg_data
359: );
360: WHEN OTHERS THEN
361: ROLLBACK TO Create_Approval_Details;
362: x_return_status := FND_API.g_ret_sts_unexp_error ;
363: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
364: THEN
365: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
366: END IF;
364: THEN
365: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
366: END IF;
367: FND_MSG_PUB.count_and_get (
368: p_encoded => FND_API.g_false,
369: p_count => x_msg_count,
370: p_data => x_msg_data
371: );
372: END Create_approval_details;
381: -- p_approval_details_rec: the record representing AMS_APPROVAL_DETAILS_VL (without the ROW_ID column).
382: --
383: -- NOTES
384: -- 1. Raise exception if the object_version_number doesn't match.
385: -- 2. If an attribute is passed in as FND_API.g_miss_char/num/date,
386: -- that column won't be updated.
387: --------------------------------------------------------------------
388: PROCEDURE Update_approval_details (
389: p_api_version IN NUMBER,
386: -- that column won't be updated.
387: --------------------------------------------------------------------
388: PROCEDURE Update_approval_details (
389: p_api_version IN NUMBER,
390: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
391: p_commit IN VARCHAR2 := FND_API.g_false,
392: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
393:
394: x_return_status OUT NOCOPY VARCHAR2,
387: --------------------------------------------------------------------
388: PROCEDURE Update_approval_details (
389: p_api_version IN NUMBER,
390: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
391: p_commit IN VARCHAR2 := FND_API.g_false,
392: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
393:
394: x_return_status OUT NOCOPY VARCHAR2,
395: x_msg_count OUT NOCOPY NUMBER,
388: PROCEDURE Update_approval_details (
389: p_api_version IN NUMBER,
390: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
391: p_commit IN VARCHAR2 := FND_API.g_false,
392: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
393:
394: x_return_status OUT NOCOPY VARCHAR2,
395: x_msg_count OUT NOCOPY NUMBER,
396: x_msg_data OUT NOCOPY VARCHAR2,
419: IF (AMS_DEBUG_HIGH_ON) THEN
420:
421: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
422: END IF;
423: IF FND_API.to_boolean (p_init_msg_list) THEN
424: FND_MSG_PUB.initialize;
425: END IF;
426: IF NOT FND_API.compatible_api_call(
427: l_api_version,
422: END IF;
423: IF FND_API.to_boolean (p_init_msg_list) THEN
424: FND_MSG_PUB.initialize;
425: END IF;
426: IF NOT FND_API.compatible_api_call(
427: l_api_version,
428: p_api_version,
429: l_api_name,
430: g_pkg_name
428: p_api_version,
429: l_api_name,
430: g_pkg_name
431: ) THEN
432: RAISE FND_API.g_exc_unexpected_error;
433: END IF;
434: x_return_status := FND_API.g_ret_sts_success;
435:
436:
430: g_pkg_name
431: ) THEN
432: RAISE FND_API.g_exc_unexpected_error;
433: END IF;
434: x_return_status := FND_API.g_ret_sts_success;
435:
436:
437: ----------------Similar Rule Already Exists Or Not ---------------------------
438: Check_Unique_Rule(p_approval_details_rec => l_Approval_Details_rec,
437: ----------------Similar Rule Already Exists Or Not ---------------------------
438: Check_Unique_Rule(p_approval_details_rec => l_Approval_Details_rec,
439: x_exist_rule_name => l_exist_rule_name,
440: x_return_status => l_return_status);
441: IF l_return_status = FND_API.g_true THEN
442: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
443: FND_MESSAGE.set_name ('AMS', 'AMS_APPR_RULE_EXISTS');
444: FND_MESSAGE.set_token('EXIST_RULE_NAME',l_exist_rule_name);
445: FND_MSG_PUB.add;
443: FND_MESSAGE.set_name ('AMS', 'AMS_APPR_RULE_EXISTS');
444: FND_MESSAGE.set_token('EXIST_RULE_NAME',l_exist_rule_name);
445: FND_MSG_PUB.add;
446: END IF;
447: RAISE FND_API.g_exc_error;
448: END IF;
449:
450: ----------------------- validate ----------------------
451: IF (AMS_DEBUG_HIGH_ON) THEN
454: END IF;
455: -- replace g_miss_char/num/date with current column values
456: Complete_approval_details_Rec(p_approval_details_rec,l_approval_details_Rec);
457: IF l_approval_details_Rec.seeded_flag = 'Y' THEN
458: IF compare_columns(l_approval_details_Rec) = FND_API.g_false THEN
459: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
460: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_SEED_DATA');
461: FND_MSG_PUB.add;
462: END IF;
459: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
460: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_SEED_DATA');
461: FND_MSG_PUB.add;
462: END IF;
463: RAISE FND_API.g_exc_error;
464: END IF;
465: ELSE
466: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
467: Check_approval_details_Items (
468: p_approval_details_rec => l_approval_details_Rec ,
469: p_validation_mode => JTF_PLSQL_API.g_update,
470: x_return_status => l_return_status
471: );
472: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
473: RAISE FND_API.g_exc_unexpected_error;
474: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
475: RAISE FND_API.g_exc_error;
476: END IF;
469: p_validation_mode => JTF_PLSQL_API.g_update,
470: x_return_status => l_return_status
471: );
472: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
473: RAISE FND_API.g_exc_unexpected_error;
474: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
475: RAISE FND_API.g_exc_error;
476: END IF;
477: END IF;
470: x_return_status => l_return_status
471: );
472: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
473: RAISE FND_API.g_exc_unexpected_error;
474: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
475: RAISE FND_API.g_exc_error;
476: END IF;
477: END IF;
478: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
471: );
472: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
473: RAISE FND_API.g_exc_unexpected_error;
474: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
475: RAISE FND_API.g_exc_error;
476: END IF;
477: END IF;
478: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
479: Check_approval_details_Record (
480: p_approval_details_rec => p_approval_details_rec,
481: p_complete_rec => l_approval_details_rec,
482: x_return_status => l_return_status
483: );
484: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
485: RAISE FND_API.g_exc_unexpected_error;
486: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
487: RAISE FND_API.g_exc_error;
488: END IF;
481: p_complete_rec => l_approval_details_rec,
482: x_return_status => l_return_status
483: );
484: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
485: RAISE FND_API.g_exc_unexpected_error;
486: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
487: RAISE FND_API.g_exc_error;
488: END IF;
489: END IF;
482: x_return_status => l_return_status
483: );
484: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
485: RAISE FND_API.g_exc_unexpected_error;
486: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
487: RAISE FND_API.g_exc_error;
488: END IF;
489: END IF;
490: END IF; -- check for seeded flag
483: );
484: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
485: RAISE FND_API.g_exc_unexpected_error;
486: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
487: RAISE FND_API.g_exc_error;
488: END IF;
489: END IF;
490: END IF; -- check for seeded flag
491: -- Check to see if the row is seeded if the row is seeded then can't update
490: END IF; -- check for seeded flag
491: -- Check to see if the row is seeded if the row is seeded then can't update
492: -- modified.. enabled flag for seeded rows can be updated.. added seed_needs_ -- update function
493: IF l_approval_details_rec.seeded_flag='N'
494: OR seed_needs_update(l_approval_details_rec) = FND_API.g_true
495: THEN
496: -------------------------- update --------------------
497: IF (AMS_DEBUG_HIGH_ON) THEN
498:
505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
506: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
507: FND_MSG_PUB.add;
508: END IF;
509: RAISE FND_API.g_exc_error;
510: else
511: CLOSE c_rec_exists;
512: end IF;
513:
538: X_LAST_UPDATE_LOGIN => FND_GLOBAL.Conc_Login_Id
539: );
540: END IF;-- ending if loop for second seeded_flag check
541: -------------------- finish --------------------------
542: IF FND_API.to_boolean (p_commit) THEN
543: COMMIT;
544: END IF;
545: FND_MSG_PUB.count_and_get (
546: p_encoded => FND_API.g_false,
542: IF FND_API.to_boolean (p_commit) THEN
543: COMMIT;
544: END IF;
545: FND_MSG_PUB.count_and_get (
546: p_encoded => FND_API.g_false,
547: p_count => x_msg_count,
548: p_data => x_msg_data
549: );
550: IF (AMS_DEBUG_HIGH_ON) THEN
552: AMS_Utility_PVT.debug_message (l_full_name || ': End');
553: END IF;
554:
555: EXCEPTION
556: WHEN FND_API.g_exc_error THEN
557: ROLLBACK TO Update_approval_details;
558: x_return_status := FND_API.g_ret_sts_error;
559: FND_MSG_PUB.count_and_get (
560: p_encoded => FND_API.g_false,
554:
555: EXCEPTION
556: WHEN FND_API.g_exc_error THEN
557: ROLLBACK TO Update_approval_details;
558: x_return_status := FND_API.g_ret_sts_error;
559: FND_MSG_PUB.count_and_get (
560: p_encoded => FND_API.g_false,
561: p_count => x_msg_count,
562: p_data => x_msg_data
556: WHEN FND_API.g_exc_error THEN
557: ROLLBACK TO Update_approval_details;
558: x_return_status := FND_API.g_ret_sts_error;
559: FND_MSG_PUB.count_and_get (
560: p_encoded => FND_API.g_false,
561: p_count => x_msg_count,
562: p_data => x_msg_data
563: );
564:
561: p_count => x_msg_count,
562: p_data => x_msg_data
563: );
564:
565: WHEN FND_API.g_exc_unexpected_error THEN
566: ROLLBACK TO Update_approval_details;
567: x_return_status := FND_API.g_ret_sts_unexp_error ;
568: FND_MSG_PUB.count_and_get (
569: p_encoded => FND_API.g_false,
563: );
564:
565: WHEN FND_API.g_exc_unexpected_error THEN
566: ROLLBACK TO Update_approval_details;
567: x_return_status := FND_API.g_ret_sts_unexp_error ;
568: FND_MSG_PUB.count_and_get (
569: p_encoded => FND_API.g_false,
570: p_count => x_msg_count,
571: p_data => x_msg_data
565: WHEN FND_API.g_exc_unexpected_error THEN
566: ROLLBACK TO Update_approval_details;
567: x_return_status := FND_API.g_ret_sts_unexp_error ;
568: FND_MSG_PUB.count_and_get (
569: p_encoded => FND_API.g_false,
570: p_count => x_msg_count,
571: p_data => x_msg_data
572: );
573:
572: );
573:
574: WHEN OTHERS THEN
575: ROLLBACK TO Update_approval_details;
576: x_return_status := FND_API.g_ret_sts_unexp_error ;
577: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
578: THEN
579: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
580: END IF;
578: THEN
579: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
580: END IF;
581: FND_MSG_PUB.count_and_get (
582: p_encoded => FND_API.g_false,
583: p_count => x_msg_count,
584: p_data => x_msg_data
585: );
586: END Update_approval_details;
602: -- 1. Raise exception if the object_version_number doesn't match.
603: --------------------------------------------------------------------
604: PROCEDURE Delete_approval_details (
605: p_api_version IN NUMBER,
606: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
607: p_commit IN VARCHAR2 := FND_API.g_false,
608: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
609:
610: x_return_status OUT NOCOPY VARCHAR2,
603: --------------------------------------------------------------------
604: PROCEDURE Delete_approval_details (
605: p_api_version IN NUMBER,
606: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
607: p_commit IN VARCHAR2 := FND_API.g_false,
608: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
609:
610: x_return_status OUT NOCOPY VARCHAR2,
611: x_msg_count OUT NOCOPY NUMBER,
604: PROCEDURE Delete_approval_details (
605: p_api_version IN NUMBER,
606: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
607: p_commit IN VARCHAR2 := FND_API.g_false,
608: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
609:
610: x_return_status OUT NOCOPY VARCHAR2,
611: x_msg_count OUT NOCOPY NUMBER,
612: x_msg_data OUT NOCOPY VARCHAR2,
639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
640: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
641: FND_MSG_PUB.add;
642: END IF;
643: RAISE FND_API.g_exc_error;
644: END IF;
645: CLOSE c_approval_details;
646: --------------------- initialize -----------------------
647: SAVEPOINT Delete_approval_details;
648: IF (AMS_DEBUG_HIGH_ON) THEN
649:
650: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
651: END IF;
652: IF FND_API.to_boolean (p_init_msg_list) THEN
653: FND_MSG_PUB.initialize;
654: END IF;
655: IF NOT FND_API.compatible_api_call (
656: l_api_version,
651: END IF;
652: IF FND_API.to_boolean (p_init_msg_list) THEN
653: FND_MSG_PUB.initialize;
654: END IF;
655: IF NOT FND_API.compatible_api_call (
656: l_api_version,
657: p_api_version,
658: l_api_name,
659: g_pkg_name
657: p_api_version,
658: l_api_name,
659: g_pkg_name
660: ) THEN
661: RAISE FND_API.g_exc_unexpected_error;
662: END IF;
663: x_return_status := FND_API.g_ret_sts_success;
664:
665: ------------------------ delete ------------------------
659: g_pkg_name
660: ) THEN
661: RAISE FND_API.g_exc_unexpected_error;
662: END IF;
663: x_return_status := FND_API.g_ret_sts_success;
664:
665: ------------------------ delete ------------------------
666: IF (AMS_DEBUG_HIGH_ON) THEN
667:
674: ELSE
675: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
676: FND_MESSAGE.set_name ('AMS', 'AMS_API_SEED_DATA');
677: FND_MSG_PUB.add;
678: RAISE FND_API.g_exc_error;
679: END IF;
680: END IF;
681: -------------------- finish --------------------------
682: IF FND_API.to_boolean (p_commit) THEN
678: RAISE FND_API.g_exc_error;
679: END IF;
680: END IF;
681: -------------------- finish --------------------------
682: IF FND_API.to_boolean (p_commit) THEN
683: COMMIT;
684: END IF;
685: FND_MSG_PUB.count_and_get (
686: p_encoded => FND_API.g_false,
682: IF FND_API.to_boolean (p_commit) THEN
683: COMMIT;
684: END IF;
685: FND_MSG_PUB.count_and_get (
686: p_encoded => FND_API.g_false,
687: p_count => x_msg_count,
688: p_data => x_msg_data
689: );
690: IF (AMS_DEBUG_HIGH_ON) THEN
692: AMS_Utility_PVT.debug_message (l_full_name || ': End');
693: END IF;
694:
695: EXCEPTION
696: WHEN FND_API.g_exc_error THEN
697: ROLLBACK TO Delete_approval_details;
698: x_return_status := FND_API.g_ret_sts_error;
699: FND_MSG_PUB.count_and_get (
700: p_encoded => FND_API.g_false,
694:
695: EXCEPTION
696: WHEN FND_API.g_exc_error THEN
697: ROLLBACK TO Delete_approval_details;
698: x_return_status := FND_API.g_ret_sts_error;
699: FND_MSG_PUB.count_and_get (
700: p_encoded => FND_API.g_false,
701: p_count => x_msg_count,
702: p_data => x_msg_data
696: WHEN FND_API.g_exc_error THEN
697: ROLLBACK TO Delete_approval_details;
698: x_return_status := FND_API.g_ret_sts_error;
699: FND_MSG_PUB.count_and_get (
700: p_encoded => FND_API.g_false,
701: p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704:
701: p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704:
705: WHEN FND_API.g_exc_unexpected_error THEN
706: ROLLBACK TO Delete_approval_details;
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: FND_MSG_PUB.count_and_get (
709: p_encoded => FND_API.g_false,
703: );
704:
705: WHEN FND_API.g_exc_unexpected_error THEN
706: ROLLBACK TO Delete_approval_details;
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: FND_MSG_PUB.count_and_get (
709: p_encoded => FND_API.g_false,
710: p_count => x_msg_count,
711: p_data => x_msg_data
705: WHEN FND_API.g_exc_unexpected_error THEN
706: ROLLBACK TO Delete_approval_details;
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: FND_MSG_PUB.count_and_get (
709: p_encoded => FND_API.g_false,
710: p_count => x_msg_count,
711: p_data => x_msg_data
712: );
713:
712: );
713:
714: WHEN OTHERS THEN
715: ROLLBACK TO Delete_approval_details;
716: x_return_status := FND_API.g_ret_sts_unexp_error ;
717: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
718: THEN
719: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
720: END IF;
718: THEN
719: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
720: END IF;
721: FND_MSG_PUB.count_and_get (
722: p_encoded => FND_API.g_false,
723: p_count => x_msg_count,
724: p_data => x_msg_data
725: );
726: END Delete_approval_details;
742: -- 1. Raise exception if the object_version_number doesn't match.
743: --------------------------------------------------------------------
744: PROCEDURE Lock_approval_details (
745: p_api_version IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
747: p_commit IN VARCHAR2 := FND_API.g_false,
748: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
743: --------------------------------------------------------------------
744: PROCEDURE Lock_approval_details (
745: p_api_version IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
747: p_commit IN VARCHAR2 := FND_API.g_false,
748: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
751: x_msg_count OUT NOCOPY NUMBER,
744: PROCEDURE Lock_approval_details (
745: p_api_version IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
747: p_commit IN VARCHAR2 := FND_API.g_false,
748: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
751: x_msg_count OUT NOCOPY NUMBER,
752: x_msg_data OUT NOCOPY VARCHAR2,
769: -- p_approval_details_rec: the record representing AMS_APPROVAL_DETAILS_VL (without ROW_ID).
770: --
771: -- NOTES
772: -- 1. p_approval_details_rec should be the complete approval_details record.
773: -- There should not be any FND_API.g_miss_char/num/date in it.
774: -- 2. If FND_API.g_miss_char/num/date is in the record, then raise
775: -- an exception, as those values are not handled.
776: --------------------------------------------------------------------
777: PROCEDURE Validate_approval_details (
770: --
771: -- NOTES
772: -- 1. p_approval_details_rec should be the complete approval_details record.
773: -- There should not be any FND_API.g_miss_char/num/date in it.
774: -- 2. If FND_API.g_miss_char/num/date is in the record, then raise
775: -- an exception, as those values are not handled.
776: --------------------------------------------------------------------
777: PROCEDURE Validate_approval_details (
778: p_api_version IN NUMBER,
775: -- an exception, as those values are not handled.
776: --------------------------------------------------------------------
777: PROCEDURE Validate_approval_details (
778: p_api_version IN NUMBER,
779: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
780: p_commit IN VARCHAR2 := FND_API.g_false,
781: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
782:
783: x_return_status OUT NOCOPY VARCHAR2,
776: --------------------------------------------------------------------
777: PROCEDURE Validate_approval_details (
778: p_api_version IN NUMBER,
779: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
780: p_commit IN VARCHAR2 := FND_API.g_false,
781: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
782:
783: x_return_status OUT NOCOPY VARCHAR2,
784: x_msg_count OUT NOCOPY NUMBER,
777: PROCEDURE Validate_approval_details (
778: p_api_version IN NUMBER,
779: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
780: p_commit IN VARCHAR2 := FND_API.g_false,
781: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
782:
783: x_return_status OUT NOCOPY VARCHAR2,
784: x_msg_count OUT NOCOPY NUMBER,
785: x_msg_data OUT NOCOPY VARCHAR2,
797: IF (AMS_DEBUG_HIGH_ON) THEN
798:
799: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
800: END IF;
801: IF FND_API.to_boolean (p_init_msg_list) THEN
802: FND_MSG_PUB.initialize;
803: END IF;
804: IF NOT FND_API.compatible_api_call (
805: l_api_version,
800: END IF;
801: IF FND_API.to_boolean (p_init_msg_list) THEN
802: FND_MSG_PUB.initialize;
803: END IF;
804: IF NOT FND_API.compatible_api_call (
805: l_api_version,
806: p_api_version,
807: l_api_name,
808: g_pkg_name
806: p_api_version,
807: l_api_name,
808: g_pkg_name
809: ) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812: x_return_status := FND_API.g_ret_sts_success;
813:
814: ---------------------- validate ------------------------
808: g_pkg_name
809: ) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812: x_return_status := FND_API.g_ret_sts_success;
813:
814: ---------------------- validate ------------------------
815: IF (AMS_DEBUG_HIGH_ON) THEN
816:
821: p_approval_details_rec => p_approval_details_rec,
822: p_validation_mode => JTF_PLSQL_API.g_create,
823: x_return_status => l_return_status
824: );
825: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
826: RAISE FND_API.g_exc_unexpected_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: END IF;
822: p_validation_mode => JTF_PLSQL_API.g_create,
823: x_return_status => l_return_status
824: );
825: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
826: RAISE FND_API.g_exc_unexpected_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: END IF;
830: END IF;
823: x_return_status => l_return_status
824: );
825: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
826: RAISE FND_API.g_exc_unexpected_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: END IF;
830: END IF;
831: IF (AMS_DEBUG_HIGH_ON) THEN
824: );
825: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
826: RAISE FND_API.g_exc_unexpected_error;
827: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: END IF;
830: END IF;
831: IF (AMS_DEBUG_HIGH_ON) THEN
832:
837: p_approval_details_rec => p_approval_details_rec,
838: p_complete_rec => NULL,
839: x_return_status => l_return_status
840: );
841: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
844: RAISE FND_API.g_exc_error;
845: END IF;
838: p_complete_rec => NULL,
839: x_return_status => l_return_status
840: );
841: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
844: RAISE FND_API.g_exc_error;
845: END IF;
846: END IF;
839: x_return_status => l_return_status
840: );
841: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
844: RAISE FND_API.g_exc_error;
845: END IF;
846: END IF;
847: -----------------check the start date <= end date ------
840: );
841: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
844: RAISE FND_API.g_exc_error;
845: END IF;
846: END IF;
847: -----------------check the start date <= end date ------
848:
847: -----------------check the start date <= end date ------
848:
849: -------------------- finish --------------------------
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: IF (AMS_DEBUG_HIGH_ON) THEN
856:
857: AMS_Utility_PVT.debug_message (l_full_name || ': End');
858: END IF;
859: EXCEPTION
860: WHEN FND_API.g_exc_error THEN
861: x_return_status := FND_API.g_ret_sts_error;
862: FND_MSG_PUB.count_and_get (
863: p_encoded => FND_API.g_false,
864: p_count => x_msg_count,
857: AMS_Utility_PVT.debug_message (l_full_name || ': End');
858: END IF;
859: EXCEPTION
860: WHEN FND_API.g_exc_error THEN
861: x_return_status := FND_API.g_ret_sts_error;
862: FND_MSG_PUB.count_and_get (
863: p_encoded => FND_API.g_false,
864: p_count => x_msg_count,
865: p_data => x_msg_data
859: EXCEPTION
860: WHEN FND_API.g_exc_error THEN
861: x_return_status := FND_API.g_ret_sts_error;
862: FND_MSG_PUB.count_and_get (
863: p_encoded => FND_API.g_false,
864: p_count => x_msg_count,
865: p_data => x_msg_data
866: );
867: WHEN FND_API.g_exc_unexpected_error THEN
863: p_encoded => FND_API.g_false,
864: p_count => x_msg_count,
865: p_data => x_msg_data
866: );
867: WHEN FND_API.g_exc_unexpected_error THEN
868: x_return_status := FND_API.g_ret_sts_unexp_error ;
869: FND_MSG_PUB.count_and_get (
870: p_encoded => FND_API.g_false,
871: p_count => x_msg_count,
864: p_count => x_msg_count,
865: p_data => x_msg_data
866: );
867: WHEN FND_API.g_exc_unexpected_error THEN
868: x_return_status := FND_API.g_ret_sts_unexp_error ;
869: FND_MSG_PUB.count_and_get (
870: p_encoded => FND_API.g_false,
871: p_count => x_msg_count,
872: p_data => x_msg_data
866: );
867: WHEN FND_API.g_exc_unexpected_error THEN
868: x_return_status := FND_API.g_ret_sts_unexp_error ;
869: FND_MSG_PUB.count_and_get (
870: p_encoded => FND_API.g_false,
871: p_count => x_msg_count,
872: p_data => x_msg_data
873: );
874: WHEN OTHERS THEN
871: p_count => x_msg_count,
872: p_data => x_msg_data
873: );
874: WHEN OTHERS THEN
875: x_return_status := FND_API.g_ret_sts_unexp_error;
876: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
877: THEN
878: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
879: END IF;
877: THEN
878: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
879: END IF;
880: FND_MSG_PUB.count_and_get (
881: p_encoded => FND_API.g_false,
882: p_count => x_msg_count,
883: p_data => x_msg_data
884: );
885:
915: --dbms_output.put_line('st > ed ');
916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
917: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_SD_BFR_ED');
918: FND_MSG_PUB.add;
919: x_return_status := FND_API.g_ret_sts_error;
920: RETURN;
921: END IF;
922: END IF;
923:
922: END IF;
923:
924: If (p_approval_details_rec.approval_type = 'BUDGET' )THEN
925: -- if (p_approval_details_rec.approval_object = 'CSCH') THEN -- R12
926: -- if Is_Usage_Lite(p_approval_details_rec.custom_setup_id) = FND_API.g_false THEN -- R12
927: if((p_approval_details_rec.approval_limit_from is NULL
928: or p_approval_details_rec.approval_limit_from = FND_API.g_miss_num)
929: AND(p_approval_details_rec.approval_limit_to is NULL
930: OR p_approval_details_rec.approval_limit_to = FND_API.g_miss_num))THEN
924: If (p_approval_details_rec.approval_type = 'BUDGET' )THEN
925: -- if (p_approval_details_rec.approval_object = 'CSCH') THEN -- R12
926: -- if Is_Usage_Lite(p_approval_details_rec.custom_setup_id) = FND_API.g_false THEN -- R12
927: if((p_approval_details_rec.approval_limit_from is NULL
928: or p_approval_details_rec.approval_limit_from = FND_API.g_miss_num)
929: AND(p_approval_details_rec.approval_limit_to is NULL
930: OR p_approval_details_rec.approval_limit_to = FND_API.g_miss_num))THEN
931: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
926: -- if Is_Usage_Lite(p_approval_details_rec.custom_setup_id) = FND_API.g_false THEN -- R12
927: if((p_approval_details_rec.approval_limit_from is NULL
928: or p_approval_details_rec.approval_limit_from = FND_API.g_miss_num)
929: AND(p_approval_details_rec.approval_limit_to is NULL
930: OR p_approval_details_rec.approval_limit_to = FND_API.g_miss_num))THEN
931: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
933: FND_MESSAGE.set_name('AMS', 'AMS_APPR_BGT_NO_MIN_AMT');
934: FND_MSG_PUB.add;
931: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
933: FND_MESSAGE.set_name('AMS', 'AMS_APPR_BGT_NO_MIN_AMT');
934: FND_MSG_PUB.add;
935: x_return_status := FND_API.g_ret_sts_error;
936: RETURN;
937: END IF;
938: END IF;
939: -- END IF;
948:
949: END IF;
950: -- For Claims, negative max amount is OK
951: If (p_approval_details_rec.approval_limit_to IS NOT NULL
952: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num
953: AND p_approval_details_rec.approval_limit_to < 0
954: AND p_approval_details_rec.approval_object <> 'CLAM')
955: THEN
956: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
956: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
957: -- FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_NO_CURR');
958: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_MAX_AMT_LS_ZERO');
959: FND_MSG_PUB.add;
960: x_return_status := FND_API.g_ret_sts_error;
961: RETURN;
962: END IF;
963: END IF;
964:
970:
971: END IF;
972: -- For Claims, negative min amount is OK
973: If (p_approval_details_rec.approval_limit_from IS NOT NULL
974: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num
975: AND p_approval_details_rec.approval_limit_from < 0
976: AND p_approval_details_rec.approval_object <> 'CLAM')
977: THEN
978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
979: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_MIN_AMT_LS_ZERO');
980: --dbms_output.put_line('AMS_APPR_DTL_MIN_AMT_LS_ZERO');
981: FND_MSG_PUB.add;
982: x_return_status := FND_API.g_ret_sts_error;
983: RETURN;
984: END IF;
985: END IF;
986:
995: --dbms_output.put_line('AMS_APPR_MIN_MAX_AMT_ERR');
996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
997: FND_MESSAGE.set_name('AMS', 'AMS_APPR_MIN_MAX_AMT_ERR');
998: FND_MSG_PUB.add;
999: x_return_status := FND_API.g_ret_sts_error;
1000: RETURN;
1001: END IF;
1002: END IF;
1003:
1008: AMS_Utility_PVT.debug_message ('Inside Check_approval_details_Items2');
1009:
1010: END IF;
1011: If (((p_approval_details_rec.approval_limit_to IS NOT NULL
1012: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1013: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1014: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1015: AND (p_approval_details_rec.currency_code is NULL
1016: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1010: END IF;
1011: If (((p_approval_details_rec.approval_limit_to IS NOT NULL
1012: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1013: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1014: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1015: AND (p_approval_details_rec.currency_code is NULL
1016: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1017: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1018: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1012: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1013: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1014: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1015: AND (p_approval_details_rec.currency_code is NULL
1016: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1017: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1018: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1019: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_NO_CURR');
1020: FND_MSG_PUB.add;
1017: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1018: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1019: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_NO_CURR');
1020: FND_MSG_PUB.add;
1021: x_return_status := FND_API.g_ret_sts_error;
1022: RETURN;
1023: END IF;
1024: END IF;
1025: --END IF; -- VMODUR 24-Jul-2002
1034: Check_approval_dtls_Req_Items (
1035: p_approval_details_rec => p_approval_details_rec,
1036: x_return_status => x_return_status
1037: );
1038: IF x_return_status <> FND_API.g_ret_sts_success THEN
1039: RETURN;
1040: END IF;
1041: --
1042: IF (AMS_DEBUG_HIGH_ON) THEN
1048: p_approval_details_rec => p_approval_details_rec,
1049: p_validation_mode => p_validation_mode,
1050: x_return_status => x_return_status
1051: );
1052: IF x_return_status <> FND_API.g_ret_sts_success THEN
1053:
1054: RETURN;
1055: END IF;
1056: IF (AMS_DEBUG_HIGH_ON) THEN
1061: p_approval_details_rec => p_approval_details_rec,
1062: x_return_status => x_return_status
1063: );
1064:
1065: IF x_return_status <> FND_API.g_ret_sts_success THEN
1066: RETURN;
1067: END IF;
1068: */
1069: IF (AMS_DEBUG_HIGH_ON) THEN
1073: Check_approval_dtls_Lkup_Items (
1074: p_approval_details_rec => p_approval_details_rec,
1075: x_return_status => x_return_status
1076: );
1077: IF x_return_status <> FND_API.g_ret_sts_success THEN
1078: RETURN;
1079: END IF;
1080: IF (AMS_DEBUG_HIGH_ON) THEN
1081:
1084: Check_approval_dtls_Flag_Items(
1085: p_approval_details_rec => p_approval_details_rec,
1086: x_return_status => x_return_status
1087: );
1088: IF x_return_status <> FND_API.g_ret_sts_success THEN
1089: RETURN;
1090: END IF;
1091: /*
1092: --- some logic
1098: --dbms_output.put_line('st > ed ');
1099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1100: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_SD_BFR_ED');
1101: FND_MSG_PUB.add;
1102: x_return_status := FND_API.g_ret_sts_error;
1103: RETURN;
1104: END IF;
1105: END IF;
1106: IF (AMS_DEBUG_HIGH_ON) THEN
1108: AMS_Utility_PVT.debug_message ('Inside Check_approval_details_Items10');
1109: END IF;
1110: If (p_approval_details_rec.approval_type = 'BUDGET' )THEN
1111: if((p_approval_details_rec.approval_limit_from is NULL
1112: or p_approval_details_rec.approval_limit_from = FND_API.g_miss_num)
1113: AND(p_approval_details_rec.approval_limit_to is NULL
1114: OR p_approval_details_rec.approval_limit_to = FND_API.g_miss_num))THEN
1115: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1110: If (p_approval_details_rec.approval_type = 'BUDGET' )THEN
1111: if((p_approval_details_rec.approval_limit_from is NULL
1112: or p_approval_details_rec.approval_limit_from = FND_API.g_miss_num)
1113: AND(p_approval_details_rec.approval_limit_to is NULL
1114: OR p_approval_details_rec.approval_limit_to = FND_API.g_miss_num))THEN
1115: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1117: FND_MESSAGE.set_name('AMS', 'AMS_APPR_BGT_NO_MIN_AMT');
1118: FND_MSG_PUB.add;
1115: -- dbms_output.put_line('AMS_APPR_BGT_NO_MIN_AMT');
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1117: FND_MESSAGE.set_name('AMS', 'AMS_APPR_BGT_NO_MIN_AMT');
1118: FND_MSG_PUB.add;
1119: x_return_status := FND_API.g_ret_sts_error;
1120: RETURN;
1121: END IF;
1122: END IF;
1123: END IF;
1129: --dbms_output.put_line('AMS_APPR_MIN_MAX_AMT_ERR');
1130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1131: FND_MESSAGE.set_name('AMS', 'AMS_APPR_MIN_MAX_AMT_ERR');
1132: FND_MSG_PUB.add;
1133: x_return_status := FND_API.g_ret_sts_error;
1134: RETURN;
1135: END IF;
1136: END IF;
1137: IF (AMS_DEBUG_HIGH_ON) THEN
1138:
1139: AMS_Utility_PVT.debug_message ('Inside Check_approval_details_Items12');
1140: END IF;
1141: If (((p_approval_details_rec.approval_limit_to IS NOT NULL
1142: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1143: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1144: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1145: AND (p_approval_details_rec.currency_code is NULL
1146: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1140: END IF;
1141: If (((p_approval_details_rec.approval_limit_to IS NOT NULL
1142: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1143: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1144: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1145: AND (p_approval_details_rec.currency_code is NULL
1146: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1147: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1142: AND p_approval_details_rec.approval_limit_to <> FND_API.g_miss_num)
1143: OR (p_approval_details_rec.approval_limit_from IS NOT NULL
1144: AND p_approval_details_rec.approval_limit_from <> FND_API.g_miss_num))
1145: AND (p_approval_details_rec.currency_code is NULL
1146: OR p_approval_details_rec.currency_code = FND_API.g_miss_char)) THEN
1147: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1149: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_NO_CURR');
1150: FND_MSG_PUB.add;
1147: --dbms_output.put_line('AMS_APPR_DTL_NO_CURR');
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1149: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DTL_NO_CURR');
1150: FND_MSG_PUB.add;
1151: x_return_status := FND_API.g_ret_sts_error;
1152: RETURN;
1153: END IF;
1154: END IF;
1155: */
1163: -- Check the record level business rules.
1164: --
1165: -- PARAMETERS
1166: -- p_approval_details_rec: the record to be validated; may contain attributes
1167: -- as FND_API.g_miss_char/num/date
1168: -- p_complete_rec: the complete record after all "g_miss" items
1169: -- have been replaced by current database values
1170: ---------------------------------------------------------------------
1171: PROCEDURE Check_approval_details_Record (
1181: if p_complete_rec.start_date_active IS NOT NULL then
1182: l_start_date_active := p_complete_rec.start_date_active;
1183: else
1184: if p_approval_details_rec.start_date_active is NOT NULL AND
1185: p_approval_details_rec.start_date_active <> FND_API.g_miss_date then
1186: l_start_date_active := p_approval_details_rec.start_date_active;
1187: end if;
1188: end if;
1189: if p_complete_rec.end_date_active IS NOT NULL then
1189: if p_complete_rec.end_date_active IS NOT NULL then
1190: l_end_date_active := p_complete_rec.end_date_active;
1191: else
1192: if p_approval_details_rec.end_date_active is NOT NULL AND
1193: p_approval_details_rec.end_date_active <> FND_API.g_miss_date then
1194: l_end_date_active := p_approval_details_rec.end_date_active;
1195: end if;
1196: end if;
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1193: p_approval_details_rec.end_date_active <> FND_API.g_miss_date then
1194: l_end_date_active := p_approval_details_rec.end_date_active;
1195: end if;
1196: end if;
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1198: IF l_start_date_active IS NOT NULL AND l_end_date_active IS NOT NULL THEN
1199: IF l_start_date_active > l_end_date_active THEN
1200: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1201: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_FROMDT_GTR_TODT');
1200: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1201: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_FROMDT_GTR_TODT');
1202: FND_MSG_PUB.add;
1203: END IF;
1204: x_return_status := FND_API.g_ret_sts_error;
1205: RETURN;
1206: END IF;
1207: END IF;
1208: END Check_approval_details_Record;
1210: -- PROCEDURE
1211: -- Init_approval_details_Rec
1212: --
1213: -- PURPOSE
1214: -- Initialize all attributes to be FND_API.g_miss_char/num/date.
1215: ---------------------------------------------------------------------
1216: PROCEDURE Init_approval_details_Rec (
1217: x_approval_details_rec OUT NOCOPY approval_details_Rec_Type
1218: ) IS
1216: PROCEDURE Init_approval_details_Rec (
1217: x_approval_details_rec OUT NOCOPY approval_details_Rec_Type
1218: ) IS
1219: BEGIN
1220: x_approval_details_rec.approval_detail_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1217: x_approval_details_rec OUT NOCOPY approval_details_Rec_Type
1218: ) IS
1219: BEGIN
1220: x_approval_details_rec.approval_detail_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1218: ) IS
1219: BEGIN
1220: x_approval_details_rec.approval_detail_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1219: BEGIN
1220: x_approval_details_rec.approval_detail_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1220: x_approval_details_rec.approval_detail_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1221: x_approval_details_rec.start_date_active := FND_API.g_miss_date;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1222: x_approval_details_rec.end_date_active := FND_API.g_miss_date;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1223: x_approval_details_rec.object_version_number := FND_API.g_miss_num;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1224: --x_approval_details_rec.security_group_id := FND_API.g_miss_num;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1225: x_approval_details_rec.business_group_id := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1226: x_approval_details_rec.business_unit_id := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1227: x_approval_details_rec.organization_id := FND_API.g_miss_num;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1228: x_approval_details_rec.custom_setup_id := FND_API.g_miss_num;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1229: x_approval_details_rec.approval_object := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1230: x_approval_details_rec.approval_object_type := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1231: x_approval_details_rec.approval_type := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1232: x_approval_details_rec.approval_priority := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1240: x_approval_details_rec.description := FND_API.g_miss_char;
1233: x_approval_details_rec.approval_limit_to := FND_API.g_miss_num;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1240: x_approval_details_rec.description := FND_API.g_miss_char;
1241: END;
1234: x_approval_details_rec.approval_limit_from := FND_API.g_miss_num;
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1240: x_approval_details_rec.description := FND_API.g_miss_char;
1241: END;
1242:
1235: x_approval_details_rec.seeded_flag := FND_API.g_miss_char;
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1240: x_approval_details_rec.description := FND_API.g_miss_char;
1241: END;
1242:
1243: ---------------------------------------------------------------------
1236: x_approval_details_rec.active_flag := FND_API.g_miss_char;
1237: x_approval_details_rec.currency_code := FND_API.g_miss_char;
1238: x_approval_details_rec.user_country_code := FND_API.g_miss_char;
1239: x_approval_details_rec.name := FND_API.g_miss_char;
1240: x_approval_details_rec.description := FND_API.g_miss_char;
1241: END;
1242:
1243: ---------------------------------------------------------------------
1244: -- PROCEDURE
1245: -- Complete_approval_details_Rec
1246: --
1247: -- PURPOSE
1248: -- For Update_approval_details, some attributes may be passed in as
1249: -- FND_API.g_miss_char/num/date if the user doesn't want to
1250: -- update those attributes. This procedure will replace the
1251: -- "g_miss" attributes with current database values.
1252: --
1253: -- PARAMETERS
1251: -- "g_miss" attributes with current database values.
1252: --
1253: -- PARAMETERS
1254: -- p_approval_details_rec: the record which may contain attributes as
1255: -- FND_API.g_miss_char/num/date
1256: -- x_complete_rec: the complete record after all "g_miss" items
1257: -- have been replaced by current database values
1258: -- Changes have been made as g_miss_xxxx is no longer used
1259: ---------------------------------------------------------------------
1280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1281: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1282: FND_MSG_PUB.add;
1283: END IF;
1284: RAISE FND_API.g_exc_error;
1285: END IF;
1286: CLOSE c_approval_details;
1287: --
1288: If p_approval_details_rec.approval_detail_id is null THEN
1483: l_count := 0;
1484: END;
1485: end if;
1486: IF l_count = 0 THEN
1487: RETURN FND_API.g_false;
1488: ELSE
1489: RETURN FND_API.g_true;
1490: END IF;
1491: END compare_columns;
1485: end if;
1486: IF l_count = 0 THEN
1487: RETURN FND_API.g_false;
1488: ELSE
1489: RETURN FND_API.g_true;
1490: END IF;
1491: END compare_columns;
1492:
1493: ---------------------------------------------------------
1513: l_count := 0;
1514: END;
1515:
1516: IF l_count = 0 THEN
1517: RETURN FND_API.g_true; -- needs update
1518: ELSE
1519: RETURN FND_API.g_false; -- doesnt need update
1520: END IF;
1521: END seed_needs_update;
1515:
1516: IF l_count = 0 THEN
1517: RETURN FND_API.g_true; -- needs update
1518: ELSE
1519: RETURN FND_API.g_false; -- doesnt need update
1520: END IF;
1521: END seed_needs_update;
1522:
1523: -------------------------------------------------------------
1533: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1534: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_NAME');
1535: FND_MSG_PUB.add;
1536: END IF;
1537: x_return_status := FND_API.g_ret_sts_error;
1538: RETURN;
1539: END IF;
1540:
1541: END;
1582: IF (AMS_DEBUG_HIGH_ON) THEN
1583:
1584: AMS_UTILITY_PVT.debug_message('Private API:Check_Approval_Dtls_UK_Items');
1585: END IF;
1586: x_return_status := FND_API.G_RET_STS_SUCCESS;
1587:
1588: --Validate unique approval_id
1589: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1590: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1596: 'approval_detail_id = ''' || p_approval_details_rec.approval_detail_id ||
1597: ''' AND approval_detail_id <> ' || p_approval_details_rec.approval_detail_id);
1598: END IF;
1599:
1600: IF l_valid_flag = FND_API.g_false THEN
1601: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1602: THEN
1603: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DUPLICATE_ID');
1604: FND_MSG_PUB.add;
1602: THEN
1603: FND_MESSAGE.set_name('AMS', 'AMS_APPR_DUPLICATE_ID');
1604: FND_MSG_PUB.add;
1605: END IF;
1606: x_return_status := FND_API.g_ret_sts_error;
1607: RETURN;
1608: END IF;
1609:
1610: --Validate unique apporval rule name
1613: /*
1614:
1615: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1616: 'ams_approval_details_vl', 'NAME = ''' || p_approval_details_rec.name ||
1617: ''' AND approval_detail_id <> ' || NVL(p_approval_details_rec.approval_detail_id,FND_API.G_MISS_NUM));
1618: */
1619:
1620: OPEN c_rule_name(p_approval_details_rec.name,NVL(p_approval_details_rec.approval_detail_id,FND_API.G_MISS_NUM));
1621: FETCH c_rule_name INTO l_valid_flag;
1616: 'ams_approval_details_vl', 'NAME = ''' || p_approval_details_rec.name ||
1617: ''' AND approval_detail_id <> ' || NVL(p_approval_details_rec.approval_detail_id,FND_API.G_MISS_NUM));
1618: */
1619:
1620: OPEN c_rule_name(p_approval_details_rec.name,NVL(p_approval_details_rec.approval_detail_id,FND_API.G_MISS_NUM));
1621: FETCH c_rule_name INTO l_valid_flag;
1622: IF c_rule_name%NOTFOUND THEN
1623: NULL;
1624: END IF;
1634: END IF;
1635: FND_MESSAGE.set_name('AMS', 'AMS_DUP_NAME');
1636: FND_MSG_PUB.add;
1637: END IF;
1638: x_return_status := FND_API.g_ret_sts_error;
1639: RETURN;
1640: END IF;
1641:
1642:
1651: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1652: FND_MESSAGE.set_name ('AMS', 'AMS_DUP_NAME');
1653: FND_MSG_PUB.add;
1654: END IF;
1655: x_return_status := FND_API.g_ret_sts_error;
1656: RETURN;
1657: END IF;
1658:
1659: END IF;
1664: OPEN c_appr_name1(P_approval_details_rec.name);
1665: fetch c_appr_name1 into l_dummy;
1666: close c_appr_name1;
1667: IF l_dummy <> 1 THEN
1668: l_valid_flag := FND_API.g_false;
1669: END IF;
1670: ELSE
1671: OPEN c_appr_name2(P_approval_details_rec.name, P_approval_details_rec.approval_detail_id);
1672: fetch c_appr_name2 into l_dummy;
1671: OPEN c_appr_name2(P_approval_details_rec.name, P_approval_details_rec.approval_detail_id);
1672: fetch c_appr_name2 into l_dummy;
1673: close c_appr_name2;
1674: IF l_dummy <> 1 THEN
1675: l_valid_flag := FND_API.g_false;
1676: END IF;
1677: END IF;
1678:
1679:
1676: END IF;
1677: END IF;
1678:
1679:
1680: IF l_valid_flag = FND_API.g_false THEN
1681: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1682: FND_MESSAGE.set_name ('AMS', 'AMS_DUP_NAME');
1683: FND_MSG_PUB.add;
1684: END IF;
1681: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1682: FND_MESSAGE.set_name ('AMS', 'AMS_DUP_NAME');
1683: FND_MSG_PUB.add;
1684: END IF;
1685: x_return_status := FND_API.g_ret_sts_error;
1686: RETURN;
1687: END IF;
1688:
1689: */
1691: Budget, we call Amounts Over Lap function with in Dates Overlap function which checks for Budget
1692: Overlap.
1693: */
1694:
1695: IF( Check_Dates_Overlap ( p_approval_details_rec , p_validation_mode)) = FND_API.g_true THEN
1696: RAISE FND_API.g_exc_error;
1697: END IF;
1698:
1699: END Check_Approval_Dtls_UK_Items;
1692: Overlap.
1693: */
1694:
1695: IF( Check_Dates_Overlap ( p_approval_details_rec , p_validation_mode)) = FND_API.g_true THEN
1696: RAISE FND_API.g_exc_error;
1697: END IF;
1698:
1699: END Check_Approval_Dtls_UK_Items;
1700: -------------------------------------------------------------
1737: where EXISTS (select 1 FROM ams_custom_setups_b
1738: WHERE enabled_flag = 'Y'
1739: AND object_type = p_lookup_code);
1740: BEGIN
1741: x_return_status := FND_API.G_RET_STS_SUCCESS;
1742: -- check approval_object
1743: IF (AMS_DEBUG_HIGH_ON) THEN
1744:
1745: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items0');
1743: IF (AMS_DEBUG_HIGH_ON) THEN
1744:
1745: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items0');
1746: END IF;
1747: If p_approval_details_rec.approval_object <> FND_API.g_miss_char THEN
1748: ams_utility_pvt.get_lookup_meaning( 'AMS_APPROVAL_RULE_FOR',
1749: p_approval_details_rec.approval_object,
1750: x_return_status,
1751: l_meaning
1749: p_approval_details_rec.approval_object,
1750: x_return_status,
1751: l_meaning
1752: );
1753: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1755: FND_MESSAGE.set_name('AMS', 'AMS_BAD_APPROVAL_OBJECT_TYPE');
1756: FND_MSG_PUB.add;
1757: RETURN;
1761: IF (AMS_DEBUG_HIGH_ON) THEN
1762:
1763: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items1');
1764: END IF;
1765: If p_approval_details_rec.approval_type <> FND_API.g_miss_char THEN
1766: ams_utility_pvt.get_lookup_meaning( 'AMS_APPROVAL_TYPE',
1767: p_approval_details_rec.approval_type,
1768: x_return_status,
1769: l_meaning
1767: p_approval_details_rec.approval_type,
1768: x_return_status,
1769: l_meaning
1770: );
1771: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1772: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1773: FND_MESSAGE.set_name('AMS', 'AMS_INVALID_APPROVAL_TYPE');
1774: FND_MSG_PUB.add;
1775: RETURN;
1779: IF (AMS_DEBUG_HIGH_ON) THEN
1780:
1781: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items2');
1782: END IF;
1783: If (p_approval_details_rec.approval_object_type <> FND_API.g_miss_char
1784: AND p_approval_details_rec.approval_object_type IS NOT NULL) THEN
1785: IF (AMS_DEBUG_HIGH_ON) THEN
1786:
1787: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items21');
1797: IF l_dummy <> 1 THEN
1798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1799: FND_MESSAGE.set_name('AMS', 'AMS_BAD_APPROVAL_OBJECT_TYPE');
1800: FND_MSG_PUB.add;
1801: x_return_status := FND_API.g_ret_sts_error;
1802: RETURN;
1803: END IF;
1804: END IF;
1805: ELSIF p_approval_details_rec.approval_object = 'CAMP' OR
1819: p_approval_details_rec.approval_object_type,
1820: x_return_status,
1821: l_meaning
1822: );
1823: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1825: FND_MESSAGE.set_name('AMS', 'AMS_BAD_APPROVAL_OBJECT_TYPE');
1826: FND_MSG_PUB.add;
1827: RETURN;
1833:
1834: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items4');
1835: END IF;
1836: IF (p_approval_details_rec.approval_priority IS NOT NULL AND
1837: p_approval_details_rec.approval_priority <> FND_API.g_miss_char) THEN
1838: IF p_approval_details_rec.approval_object = 'CAMP' OR
1839: p_approval_details_rec.approval_object = 'EVEH' OR
1840: p_approval_details_rec.approval_object = 'EVEO' then
1841: ams_utility_pvt.get_lookup_meaning( 'AMS_PRIORITY',
1842: p_approval_details_rec.approval_priority,
1843: x_return_status,
1844: l_meaning
1845: );
1846: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1847: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1848: FND_MESSAGE.set_name('AMS', 'AMS_APPR_NO_PRIORITY_LKUP');
1849: FND_MSG_PUB.add;
1850: RETURN;
1856:
1857: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items5');
1858: END IF;
1859:
1860: If p_approval_details_rec.custom_setup_id <> FND_API.g_miss_num THEN
1861: IF p_approval_details_rec.approval_object <> FND_API.g_miss_char THEN
1862: IF p_approval_details_rec.approval_object = 'CAMP' THEN
1863: open c_cust_setup_id_c_exists(p_approval_details_rec.custom_setup_id);
1864: fetch c_cust_setup_id_c_exists INTO l_dummy;
1857: AMS_Utility_PVT.debug_message ('Inside Check_FK__Items5');
1858: END IF;
1859:
1860: If p_approval_details_rec.custom_setup_id <> FND_API.g_miss_num THEN
1861: IF p_approval_details_rec.approval_object <> FND_API.g_miss_char THEN
1862: IF p_approval_details_rec.approval_object = 'CAMP' THEN
1863: open c_cust_setup_id_c_exists(p_approval_details_rec.custom_setup_id);
1864: fetch c_cust_setup_id_c_exists INTO l_dummy;
1865: close c_cust_setup_id_c_exists;
1866: IF l_dummy <> 1 THEN
1867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1868: FND_MESSAGE.set_name('AMS', 'AMS_BAD_CUSTOM_SETUP_ID');
1869: FND_MSG_PUB.add;
1870: x_return_status := FND_API.g_ret_sts_error;
1871: RETURN;
1872: END IF;
1873: END IF;
1874: ELSIF p_approval_details_rec.approval_object = 'EVEH'
1880: IF l_dummy <> 1 THEN
1881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1882: FND_MESSAGE.set_name('AMS', 'AMS_BAD_CUSTOM_SETUP_ID');
1883: FND_MSG_PUB.add;
1884: x_return_status := FND_API.g_ret_sts_error;
1885: RETURN;
1886: END IF;
1887: END IF;
1888: END IF;
1900: IF l_count = 0 then
1901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1902: FND_MESSAGE.set_name('AMS', 'AMS_BAD_BU_ID');
1903: FND_MSG_PUB.add;
1904: x_return_status := FND_API.g_ret_sts_error;
1905: RETURN;
1906: END IF;
1907: END IF;
1908: END IF;
1918: IF l_count = 0 then
1919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1920: FND_MESSAGE.set_name('AMS', 'AMS_BAD_ORG_ID');
1921: FND_MSG_PUB.add;
1922: x_return_status := FND_API.g_ret_sts_error;
1923: RETURN;
1924: END IF;
1925: END IF;
1926: END IF;
1932: p_approval_details_rec IN Approval_Details_Rec_Type,
1933: x_return_status OUT NOCOPY VARCHAR2
1934: )IS
1935: BEGIN
1936: x_return_status := FND_API.G_RET_STS_SUCCESS;
1937: END Check_Approval_Dtls_Lkup_Items;
1938:
1939: -------------------------------------------------------------
1940: -- Check_Approval_Dtls_Flag_Items
1943: p_approval_details_rec IN Approval_Details_Rec_Type,
1944: x_return_status OUT NOCOPY VARCHAR2
1945: ) IS
1946: BEGIN
1947: x_return_status := FND_API.G_RET_STS_SUCCESS;
1948: END Check_Approval_Dtls_Flag_Items;
1949: --------------------------------------------------------------------
1950:
1951: -------------------------------------------------------------
1966: l_approval_id NUMBER;
1967: p_max_amount NUMBER := p_approval_details_rec.approval_limit_to;
1968: p_min_amount NUMBER := p_approval_details_rec.approval_limit_from;
1969: l_id NUMBER := 1;
1970: amount_overlap BOOLEAN := FND_API.to_boolean(FND_API.g_false);
1971: l_rule_name VARCHAR2(240);
1972:
1973: CURSOR c_approval_rule (l_approval_id IN NUMBER)IS
1974: SELECT approval_limit_from, approval_limit_to
1986: CLOSE c_approval_rule;
1987:
1988: IF ( l_max_amount IS NULL AND l_min_amount IS NOT NULL AND p_min_amount IS NOT NULL AND p_max_amount IS NOT NULL) THEN
1989: IF ( p_max_amount > l_min_amount) THEN
1990: amount_overlap := FND_API.to_boolean(FND_API.g_true);
1991: END IF;
1992: END IF;
1993:
1994: IF NOT amount_overlap AND
1993:
1994: IF NOT amount_overlap AND
1995: (l_max_amount IS NOT NULL AND l_min_amount IS NOT NULL AND p_max_amount IS NULL AND p_min_amount IS NOT NULL) THEN
1996: IF ( p_min_amount < l_max_amount) THEN
1997: amount_overlap := FND_API.to_boolean(FND_API.g_true);
1998: END IF;
1999: END IF;
2000:
2001: -- Condition added by VMODUR for bug 2340052
2003: IF NOT amount_overlap AND
2004: (l_min_amount IS NOT NULL and l_max_amount IS NULL and p_min_amount IS NOT NULL and p_max_amount IS NULL) THEN
2005:
2006: IF (p_min_amount >= l_min_amount) THEN
2007: amount_overlap := FND_API.to_boolean(FND_API.g_true);
2008: END IF;
2009: END IF;
2010:
2011: IF NOT amount_overlap AND
2016: IF (AMS_DEBUG_HIGH_ON) THEN
2017:
2018: Ams_Utility_Pvt.debug_message('The budget range is overlapping with that of existing rule ');
2019: END IF;
2020: amount_overlap := FND_API.to_boolean(FND_API.g_true);
2021:
2022: ELSIF ( p_max_amount > l_min_amount AND p_max_amount <= l_max_amount ) THEN
2023: IF (AMS_DEBUG_HIGH_ON) THEN
2024:
2023: IF (AMS_DEBUG_HIGH_ON) THEN
2024:
2025: Ams_Utility_Pvt.debug_message('The budget range is overlapping with that of existing rule ');
2026: END IF;
2027: amount_overlap := FND_API.to_boolean(FND_API.g_true);
2028:
2029: ELSIF ( p_min_amount < l_min_amount AND p_max_amount > l_max_amount ) THEN
2030: IF (AMS_DEBUG_HIGH_ON) THEN
2031:
2030: IF (AMS_DEBUG_HIGH_ON) THEN
2031:
2032: Ams_Utility_Pvt.debug_message('The budget range is overlapping with that of existing rule ');
2033: END IF;
2034: amount_overlap := FND_API.to_boolean(FND_API.g_true);
2035:
2036: END IF;
2037:
2038: END IF;
2041: Get_Approval_Rule_Name(p_approval_detail_id => l_approval_id,
2042: x_rule_name => l_rule_name);
2043:
2044: x_exist_rule_name := l_rule_name;
2045: x_return_status := FND_API.g_true;
2046: EXIT;
2047: ELSE
2048: x_return_status := FND_API.g_false;
2049: END IF;
2044: x_exist_rule_name := l_rule_name;
2045: x_return_status := FND_API.g_true;
2046: EXIT;
2047: ELSE
2048: x_return_status := FND_API.g_false;
2049: END IF;
2050:
2051: END LOOP;
2052:
2060: x_return_status OUT NOCOPY VARCHAR2
2061: )
2062: IS
2063: l_count NUMBER := 0;
2064: l_miss_num NUMBER := FND_API.g_miss_num;
2065: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2066: l_miss_date DATE := FND_API.g_miss_date;
2067: l_approval_detail_id NUMBER;
2068: l_approval_rule_name AMS_APPROVAL_DETAILS_V.Name%TYPE;
2061: )
2062: IS
2063: l_count NUMBER := 0;
2064: l_miss_num NUMBER := FND_API.g_miss_num;
2065: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2066: l_miss_date DATE := FND_API.g_miss_date;
2067: l_approval_detail_id NUMBER;
2068: l_approval_rule_name AMS_APPROVAL_DETAILS_V.Name%TYPE;
2069:
2062: IS
2063: l_count NUMBER := 0;
2064: l_miss_num NUMBER := FND_API.g_miss_num;
2065: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2066: l_miss_date DATE := FND_API.g_miss_date;
2067: l_approval_detail_id NUMBER;
2068: l_approval_rule_name AMS_APPROVAL_DETAILS_V.Name%TYPE;
2069:
2070: CURSOR c_approval_unique IS
2095:
2096: IF l_approval_detail_id IS NOT NULL THEN
2097: IF p_approval_details_rec.approval_detail_id IS NOT NULL THEN
2098: IF l_approval_detail_id <> p_approval_details_rec.approval_detail_id THEN
2099: x_return_status := Fnd_Api.g_true;
2100: ELSE
2101: x_return_status := Fnd_Api.g_false;
2102: END IF;
2103: ELSE
2097: IF p_approval_details_rec.approval_detail_id IS NOT NULL THEN
2098: IF l_approval_detail_id <> p_approval_details_rec.approval_detail_id THEN
2099: x_return_status := Fnd_Api.g_true;
2100: ELSE
2101: x_return_status := Fnd_Api.g_false;
2102: END IF;
2103: ELSE
2104: x_return_status := Fnd_Api.g_true;
2105: END IF;
2100: ELSE
2101: x_return_status := Fnd_Api.g_false;
2102: END IF;
2103: ELSE
2104: x_return_status := Fnd_Api.g_true;
2105: END IF;
2106: ELSE
2107: x_return_status := Fnd_Api.g_false;
2108: END IF;
2103: ELSE
2104: x_return_status := Fnd_Api.g_true;
2105: END IF;
2106: ELSE
2107: x_return_status := Fnd_Api.g_false;
2108: END IF;
2109:
2110: x_exist_rule_name := l_approval_rule_name;
2111: END Check_Unique_Rule;
2129: l_approval_detail_id NUMBER ;
2130:
2131: l_temp NUMBER := 0;
2132:
2133: l_miss_num NUMBER := FND_API.g_miss_num;
2134: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2135: l_miss_date DATE := FND_API.g_miss_date;
2136: l_rule_name VARCHAR2(240);
2137: l_return_status VARCHAR2(1);
2130:
2131: l_temp NUMBER := 0;
2132:
2133: l_miss_num NUMBER := FND_API.g_miss_num;
2134: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2135: l_miss_date DATE := FND_API.g_miss_date;
2136: l_rule_name VARCHAR2(240);
2137: l_return_status VARCHAR2(1);
2138:
2131: l_temp NUMBER := 0;
2132:
2133: l_miss_num NUMBER := FND_API.g_miss_num;
2134: l_miss_char VARCHAR2(30) := FND_API.g_miss_char;
2135: l_miss_date DATE := FND_API.g_miss_date;
2136: l_rule_name VARCHAR2(240);
2137: l_return_status VARCHAR2(1);
2138:
2139:
2182:
2183: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2184: Fnd_Message.set_name('AMS', 'AMS_APRD_START_DATE_NO_UPDATE');
2185: Fnd_Msg_Pub.ADD;
2186: RETURN FND_API.g_true;
2187: END IF;
2188:
2189: END IF;
2190:
2198:
2199: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2200: Fnd_Message.set_name('AMS', 'AMS_APRD_START_DATE_LT_SYSDATE');
2201: Fnd_Msg_Pub.ADD;
2202: RETURN FND_API.g_true;
2203: END IF;
2204: END IF;
2205:
2206:
2220:
2221: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2222: Fnd_Message.set_name('AMS', 'AMS_APRD_START_DATE_LT_SYSDATE');
2223: Fnd_Msg_Pub.ADD;
2224: RETURN FND_API.g_true;
2225: END IF;
2226: END IF;
2227:
2228: END IF;
2236:
2237: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2238: Fnd_Message.set_name('AMS', 'AMS_APRD_START_DATE_LT_SYSDATE');
2239: Fnd_Msg_Pub.ADD;
2240: RETURN FND_API.g_true;
2241: END IF;
2242: END IF;
2243:
2244: IF (p_end_date IS NOT NULL AND p_end_date < trunc(SYSDATE)) THEN
2249:
2250: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2251: Fnd_Message.set_name('AMS', 'AMS_APRD_END_DATE_LT_SYSDATE');
2252: Fnd_Msg_Pub.ADD;
2253: RETURN FND_API.g_true;
2254: END IF;
2255: END IF;
2256:
2257: IF (p_start_date IS NOT NULL AND p_end_date IS NOT NULL) THEN
2263:
2264: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2265: Fnd_Message.set_name('AMS', 'AMS_APRD_ED_DATE_LT_ST_DATE');
2266: Fnd_Msg_Pub.ADD;
2267: RETURN FND_API.g_true;
2268: END IF;
2269: END IF;
2270: END IF;
2271:
2411: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2412: Fnd_Message.set_name('AMS', 'AMS_APRD_DATE_OVERLAP');
2413: Fnd_Message.set_token('EXIST_RULE_NAME', l_rule_name);
2414: Fnd_Msg_Pub.ADD;
2415: RETURN FND_API.g_true;
2416: END IF;
2417: END IF;
2418: --ELSIF (p_approval_details_rec.approval_type = 'BUDGET') THEN --- VMODUR 30-Oct-2003
2419: -- Change because claims etc. are not being checked for Amt Overlap
2422: Check_Approval_Amounts_Overlap (p_approval_details_rec => p_approval_details_rec,
2423: p_appoval_ids => v_approvalIds,
2424: x_exist_rule_name => l_rule_name,
2425: x_return_status => l_return_status);
2426: IF l_return_status = FND_API.g_true THEN
2427: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2428: Fnd_Message.set_name('AMS', 'AMS_APRD_MIN_MAX_AMT_OVERLAP');
2429: Fnd_Message.set_token('EXIST_RULE_NAME', l_rule_name);
2430: Fnd_Msg_Pub.ADD;
2427: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2428: Fnd_Message.set_name('AMS', 'AMS_APRD_MIN_MAX_AMT_OVERLAP');
2429: Fnd_Message.set_token('EXIST_RULE_NAME', l_rule_name);
2430: Fnd_Msg_Pub.ADD;
2431: RETURN FND_API.g_true;
2432: END IF;
2433: END IF;
2434: END IF;
2435: END IF;
2433: END IF;
2434: END IF;
2435: END IF;
2436:
2437: RETURN FND_API.g_false;
2438:
2439: END Check_Dates_Overlap;
2440: --------------------------------------------------------------------
2441: