[Home] [Help]
266: PROCEDURE Validate_next_status(
267: p_curr_status IN VARCHAR2,
268: p_next_status IN VARCHAR2,
269: p_system_status_type IN VARCHAR2,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: x_return_status OUT NOCOPY VARCHAR2,
272: x_msg_count OUT NOCOPY NUMBER,
273: x_msg_data OUT NOCOPY VARCHAR2)
274: IS
294:
295: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
296: END IF;
297: -- Initialize API return status to SUCCESS
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299:
300:
301: -- Initialize message list if p_init_msg_list is set to TRUE.
302: IF FND_API.to_Boolean( p_init_msg_list )
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299:
300:
301: -- Initialize message list if p_init_msg_list is set to TRUE.
302: IF FND_API.to_Boolean( p_init_msg_list )
303: THEN
304: FND_MSG_PUB.initialize;
305: END IF;
306:
306:
307: OPEN c_status_check;
308: FETCH c_status_check INTO l_status_check;
309: IF c_status_check%NOTFOUND THEN
310: x_return_status := FND_API.g_ret_sts_error;
311: END IF;
312:
313: CLOSE c_status_check;
314:
325: );
326: EXCEPTION
327:
328: WHEN AMS_Utility_PVT.resource_locked THEN
329: x_return_status := FND_API.g_ret_sts_error;
330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
331: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
332: FND_MSG_PUB.add;
333: END IF;
331: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
332: FND_MSG_PUB.add;
333: END IF;
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336: ROLLBACK TO VALIDATE_NEXT_STATUS;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: -- Standard call to get message count and if count=1, get the message
339: FND_MSG_PUB.Count_And_Get (
333: END IF;
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336: ROLLBACK TO VALIDATE_NEXT_STATUS;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: -- Standard call to get message count and if count=1, get the message
339: FND_MSG_PUB.Count_And_Get (
340: p_encoded => FND_API.G_FALSE,
341: p_count => x_msg_count,
336: ROLLBACK TO VALIDATE_NEXT_STATUS;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: -- Standard call to get message count and if count=1, get the message
339: FND_MSG_PUB.Count_And_Get (
340: p_encoded => FND_API.G_FALSE,
341: p_count => x_msg_count,
342: p_data => x_msg_data
343: );
344:
341: p_count => x_msg_count,
342: p_data => x_msg_data
343: );
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: ROLLBACK TO VALIDATE_NEXT_STATUS;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: -- Standard call to get message count and if count=1, get the message
349: FND_MSG_PUB.Count_And_Get (
343: );
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: ROLLBACK TO VALIDATE_NEXT_STATUS;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: -- Standard call to get message count and if count=1, get the message
349: FND_MSG_PUB.Count_And_Get (
350: p_encoded => FND_API.G_FALSE,
351: p_count => x_msg_count,
346: ROLLBACK TO VALIDATE_NEXT_STATUS;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: -- Standard call to get message count and if count=1, get the message
349: FND_MSG_PUB.Count_And_Get (
350: p_encoded => FND_API.G_FALSE,
351: p_count => x_msg_count,
352: p_data => x_msg_data
353: );
354:
353: );
354:
355: WHEN OTHERS THEN
356: ROLLBACK TO VALIDATE_NEXT_STATUS;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
359: THEN
360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
361: END IF;
360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
361: END IF;
362: -- Standard call to get message count and if count=1, get the message
363: FND_MSG_PUB.Count_And_Get (
364: p_encoded => FND_API.G_FALSE,
365: p_count => x_msg_count,
366: p_data => x_msg_data
367: );
368: End validate_next_status;
369:
370: -- Hint: Primary key needs to be returned.
371: PROCEDURE Lock_dm_model(
372: P_Api_Version_Number IN NUMBER,
373: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
374: X_Return_Status OUT NOCOPY VARCHAR2,
375: X_Msg_Count OUT NOCOPY NUMBER,
376: X_Msg_Data OUT NOCOPY VARCHAR2,
377: p_MODEL_ID IN NUMBER,
404: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
405: END IF;
406:
407: -- Initialize message list if p_init_msg_list is set to TRUE.
408: IF FND_API.to_Boolean( p_init_msg_list )
409: THEN
410: FND_MSG_PUB.initialize;
411: END IF;
412:
410: FND_MSG_PUB.initialize;
411: END IF;
412:
413: -- Standard call to check for call compatibility.
414: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
415: p_api_version_number,
416: l_api_name,
417: G_PKG_NAME)
418: THEN
415: p_api_version_number,
416: l_api_name,
417: G_PKG_NAME)
418: THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
422:
423: -- Initialize API return status to SUCCESS
420: END IF;
421:
422:
423: -- Initialize API return status to SUCCESS
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425:
426:
427: ------------------------ lock -------------------------
428:
438: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
439: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
440: FND_MSG_PUB.add;
441: END IF;
442: RAISE FND_API.g_exc_error;
443: END IF;
444:
445: CLOSE c_dm_model_b;
446:
445: CLOSE c_dm_model_b;
446:
447: -------------------- finish --------------------------
448: FND_MSG_PUB.count_and_get(
449: p_encoded => FND_API.g_false,
450: p_count => x_msg_count,
451: p_data => x_msg_data);
452: IF (AMS_DEBUG_HIGH_ON) THEN
453:
455: END IF;
456: EXCEPTION
457:
458: WHEN AMS_Utility_PVT.resource_locked THEN
459: x_return_status := FND_API.g_ret_sts_error;
460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
461: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
462: FND_MSG_PUB.add;
463: END IF;
461: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
462: FND_MSG_PUB.add;
463: END IF;
464:
465: WHEN FND_API.G_EXC_ERROR THEN
466: ROLLBACK TO LOCK_DM_MODEL_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
463: END IF;
464:
465: WHEN FND_API.G_EXC_ERROR THEN
466: ROLLBACK TO LOCK_DM_MODEL_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
470: p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
466: ROLLBACK TO LOCK_DM_MODEL_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: -- Standard call to get message count and if count=1, get the message
469: FND_MSG_PUB.Count_And_Get (
470: p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
472: p_data => x_msg_data
473: );
474:
471: p_count => x_msg_count,
472: p_data => x_msg_data
473: );
474:
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: ROLLBACK TO LOCK_DM_MODEL_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: -- Standard call to get message count and if count=1, get the message
479: FND_MSG_PUB.Count_And_Get (
473: );
474:
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: ROLLBACK TO LOCK_DM_MODEL_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: -- Standard call to get message count and if count=1, get the message
479: FND_MSG_PUB.Count_And_Get (
480: p_encoded => FND_API.G_FALSE,
481: p_count => x_msg_count,
476: ROLLBACK TO LOCK_DM_MODEL_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: -- Standard call to get message count and if count=1, get the message
479: FND_MSG_PUB.Count_And_Get (
480: p_encoded => FND_API.G_FALSE,
481: p_count => x_msg_count,
482: p_data => x_msg_data
483: );
484:
483: );
484:
485: WHEN OTHERS THEN
486: ROLLBACK TO LOCK_DM_MODEL_PVT;
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
489: THEN
490: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
491: END IF;
490: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
491: END IF;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
494: p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data
497: );
498: End Lock_dm_model;
501:
502: -- Hint: Primary key needs to be returned.
503: PROCEDURE Create_dm_model(
504: P_Api_Version_Number IN NUMBER,
505: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
506: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
507: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
508:
509: X_Return_Status OUT NOCOPY VARCHAR2,
502: -- Hint: Primary key needs to be returned.
503: PROCEDURE Create_dm_model(
504: P_Api_Version_Number IN NUMBER,
505: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
506: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
507: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
508:
509: X_Return_Status OUT NOCOPY VARCHAR2,
510: X_Msg_Count OUT NOCOPY NUMBER,
503: PROCEDURE Create_dm_model(
504: P_Api_Version_Number IN NUMBER,
505: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
506: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
507: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
508:
509: X_Return_Status OUT NOCOPY VARCHAR2,
510: X_Msg_Count OUT NOCOPY NUMBER,
511: X_Msg_Data OUT NOCOPY VARCHAR2,
521: L_DEFAULT_POSITIVE_VALUE CONSTANT VARCHAR2(30) := '1';
522:
523: l_return_status_full VARCHAR2(1);
524: l_object_version_number NUMBER := 1;
525: l_org_id NUMBER := FND_API.G_MISS_NUM;
526: l_dm_model_count NUMBER;
527: l_dm_model_rec AMS_dm_model_PVT.DM_MODEL_Rec_Type := p_dm_model_rec;
528:
529: l_access_rec AMS_Access_PVT.access_rec_type;
552: -- Standard Start of API savepoint
553: SAVEPOINT CREATE_DM_MODEL_PVT;
554:
555: -- Standard call to check for call compatibility.
556: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
557: p_api_version_number,
558: l_api_name,
559: G_PKG_NAME)
560: THEN
557: p_api_version_number,
558: l_api_name,
559: G_PKG_NAME)
560: THEN
561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
562: END IF;
563:
564: -- Initialize message list if p_init_msg_list is set to TRUE.
565: IF FND_API.to_Boolean( p_init_msg_list )
561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
562: END IF;
563:
564: -- Initialize message list if p_init_msg_list is set to TRUE.
565: IF FND_API.to_Boolean( p_init_msg_list )
566: THEN
567: FND_MSG_PUB.initialize;
568: END IF;
569:
567: FND_MSG_PUB.initialize;
568: END IF;
569:
570: -- Initialize API return status to SUCCESS
571: x_return_status := FND_API.G_RET_STS_SUCCESS;
572:
573: -- Debug Message
574: IF (AMS_DEBUG_HIGH_ON) THEN
575:
583: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
584: FND_MESSAGE.Set_Name('AMS', 'USER_PROFILE_MISSING');
585: FND_MSG_PUB.ADD;
586: END IF;
587: RAISE FND_API.G_EXC_ERROR;
588: END IF;
589:
590: -- try to generate a unique id from the sequence
591: IF l_dm_model_rec.model_id IS NULL OR l_dm_model_rec.model_id = FND_API.G_MISS_NUM THEN
587: RAISE FND_API.G_EXC_ERROR;
588: END IF;
589:
590: -- try to generate a unique id from the sequence
591: IF l_dm_model_rec.model_id IS NULL OR l_dm_model_rec.model_id = FND_API.G_MISS_NUM THEN
592: LOOP
593: -- dbms_output.put_line('MODEL ID = ' ||l_MODEL_ID);
594: OPEN c_dm_model_seq;
595: FETCH c_dm_model_seq INTO l_dm_model_rec.model_id;
610: OPEN c_custom_setup_id;
611: FETCH c_custom_setup_id INTO l_dm_model_rec.custom_setup_id;
612: CLOSE c_custom_setup_id;
613:
614: IF l_dm_model_rec.country_id IS NULL OR l_dm_model_rec.country_id = FND_API.g_miss_num THEN
615: l_dm_model_rec.country_id := FND_PROFILE.value ('AMS_SRCGEN_USER_CITY');
616: END IF;
617:
618: IF l_dm_model_rec.row_selection_type IS NULL OR l_dm_model_rec.row_selection_type = FND_API.g_miss_char THEN
614: IF l_dm_model_rec.country_id IS NULL OR l_dm_model_rec.country_id = FND_API.g_miss_num THEN
615: l_dm_model_rec.country_id := FND_PROFILE.value ('AMS_SRCGEN_USER_CITY');
616: END IF;
617:
618: IF l_dm_model_rec.row_selection_type IS NULL OR l_dm_model_rec.row_selection_type = FND_API.g_miss_char THEN
619: l_dm_model_rec.row_selection_type := L_DEFAULT_SELECTION_TYPE;
620: END IF;
621:
622: -- Assign a default user status if neither id or code are passed.
619: l_dm_model_rec.row_selection_type := L_DEFAULT_SELECTION_TYPE;
620: END IF;
621:
622: -- Assign a default user status if neither id or code are passed.
623: IF NVL (l_dm_model_rec.user_status_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND NVL (l_dm_model_rec.status_code, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
624: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, G_DEFAULT_STATUS);
625: FETCH c_user_status_id INTO l_dm_model_rec.user_status_id;
626: CLOSE c_user_status_id;
627: ELSIF NVL (l_dm_model_rec.user_status_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
623: IF NVL (l_dm_model_rec.user_status_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND NVL (l_dm_model_rec.status_code, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
624: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, G_DEFAULT_STATUS);
625: FETCH c_user_status_id INTO l_dm_model_rec.user_status_id;
626: CLOSE c_user_status_id;
627: ELSIF NVL (l_dm_model_rec.user_status_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
628: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, l_dm_model_rec.status_code);
629: FETCH c_user_status_id INTO l_dm_model_rec.user_status_id;
630: CLOSE c_user_status_id;
631: END IF;
636:
637: l_dm_model_rec.status_date := SYSDATE;
638:
639: -- validate the input values
640: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
641: -- Debug message
642: IF (AMS_DEBUG_HIGH_ON) THEN
643:
644: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model');
646:
647: -- Invoke validation procedures
648: Validate_dm_model(
649: p_api_version_number => 1.0,
650: p_init_msg_list => FND_API.G_FALSE,
651: p_validation_level => p_validation_level,
652: p_validation_mode => JTF_PLSQL_API.g_create,
653: p_dm_model_rec => l_dm_model_rec,
654: x_return_status => x_return_status,
655: x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data);
657: END IF;
658:
659: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
660: RAISE FND_API.G_EXC_ERROR;
661: END IF;
662:
663:
656: x_msg_data => x_msg_data);
657: END IF;
658:
659: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
660: RAISE FND_API.G_EXC_ERROR;
661: END IF;
662:
663:
664:
741: l_access_rec.delete_flag := 'N';
742:
743: AMS_Access_PVT.create_access (
744: p_api_version => 1.0,
745: p_init_msg_list => FND_API.G_FALSE,
746: p_commit => FND_API.G_FALSE,
747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
748: x_return_status => x_return_status,
749: x_msg_count => x_msg_count,
742:
743: AMS_Access_PVT.create_access (
744: p_api_version => 1.0,
745: p_init_msg_list => FND_API.G_FALSE,
746: p_commit => FND_API.G_FALSE,
747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
748: x_return_status => x_return_status,
749: x_msg_count => x_msg_count,
750: x_msg_data => x_msg_data,
743: AMS_Access_PVT.create_access (
744: p_api_version => 1.0,
745: p_init_msg_list => FND_API.G_FALSE,
746: p_commit => FND_API.G_FALSE,
747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
748: x_return_status => x_return_status,
749: x_msg_count => x_msg_count,
750: x_msg_data => x_msg_data,
751: p_access_rec => l_access_rec,
750: x_msg_data => x_msg_data,
751: p_access_rec => l_access_rec,
752: x_access_id => l_access_rec.activity_access_id
753: );
754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
755: RAISE FND_API.G_EXC_ERROR;
756: END IF;
757: --
758: -- End of API body
751: p_access_rec => l_access_rec,
752: x_access_id => l_access_rec.activity_access_id
753: );
754: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
755: RAISE FND_API.G_EXC_ERROR;
756: END IF;
757: --
758: -- End of API body
759: --
758: -- End of API body
759: --
760:
761: -- Standard check for p_commit
762: IF FND_API.to_Boolean( p_commit ) THEN
763: COMMIT WORK;
764: END IF;
765:
766: -- Debug Message
776: );
777: EXCEPTION
778:
779: WHEN AMS_Utility_PVT.resource_locked THEN
780: x_return_status := FND_API.g_ret_sts_error;
781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
782: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
783: FND_MSG_PUB.add;
784: END IF;
782: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
783: FND_MSG_PUB.add;
784: END IF;
785:
786: WHEN FND_API.G_EXC_ERROR THEN
787: ROLLBACK TO CREATE_DM_MODEL_PVT;
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: -- Standard call to get message count and if count=1, get the message
790: FND_MSG_PUB.Count_And_Get (
784: END IF;
785:
786: WHEN FND_API.G_EXC_ERROR THEN
787: ROLLBACK TO CREATE_DM_MODEL_PVT;
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: -- Standard call to get message count and if count=1, get the message
790: FND_MSG_PUB.Count_And_Get (
791: p_encoded => FND_API.G_FALSE,
792: p_count => x_msg_count,
787: ROLLBACK TO CREATE_DM_MODEL_PVT;
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: -- Standard call to get message count and if count=1, get the message
790: FND_MSG_PUB.Count_And_Get (
791: p_encoded => FND_API.G_FALSE,
792: p_count => x_msg_count,
793: p_data => x_msg_data
794: );
795:
792: p_count => x_msg_count,
793: p_data => x_msg_data
794: );
795:
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO CREATE_DM_MODEL_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: -- Standard call to get message count and if count=1, get the message
800: FND_MSG_PUB.Count_And_Get (
794: );
795:
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO CREATE_DM_MODEL_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: -- Standard call to get message count and if count=1, get the message
800: FND_MSG_PUB.Count_And_Get (
801: p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
797: ROLLBACK TO CREATE_DM_MODEL_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: -- Standard call to get message count and if count=1, get the message
800: FND_MSG_PUB.Count_And_Get (
801: p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data
804: );
805:
804: );
805:
806: WHEN OTHERS THEN
807: ROLLBACK TO CREATE_DM_MODEL_PVT;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
810: THEN
811: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
812: END IF;
811: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
812: END IF;
813: -- Standard call to get message count and if count=1, get the message
814: FND_MSG_PUB.Count_And_Get (
815: p_encoded => FND_API.G_FALSE,
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819: End Create_dm_model;
820:
821:
822: PROCEDURE Update_dm_model(
823: p_api_version_number IN NUMBER,
824: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
825: p_commit IN VARCHAR2 := FND_API.G_FALSE,
826: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
827: x_return_status OUT NOCOPY VARCHAR2,
828: x_msg_count OUT NOCOPY NUMBER,
821:
822: PROCEDURE Update_dm_model(
823: p_api_version_number IN NUMBER,
824: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
825: p_commit IN VARCHAR2 := FND_API.G_FALSE,
826: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
827: x_return_status OUT NOCOPY VARCHAR2,
828: x_msg_count OUT NOCOPY NUMBER,
829: x_msg_data OUT NOCOPY VARCHAR2,
822: PROCEDURE Update_dm_model(
823: p_api_version_number IN NUMBER,
824: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
825: p_commit IN VARCHAR2 := FND_API.G_FALSE,
826: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
827: x_return_status OUT NOCOPY VARCHAR2,
828: x_msg_count OUT NOCOPY NUMBER,
829: x_msg_data OUT NOCOPY VARCHAR2,
830: p_dm_model_rec IN DM_MODEL_Rec_Type,
867: -- Standard Start of API savepoint
868: SAVEPOINT UPDATE_DM_MODEL_PVT;
869:
870: -- Standard call to check for call compatibility.
871: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
872: p_api_version_number,
873: l_api_name,
874: G_PKG_NAME)
875: THEN
872: p_api_version_number,
873: l_api_name,
874: G_PKG_NAME)
875: THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878:
879: -- Initialize message list if p_init_msg_list is set to TRUE.
880: IF FND_API.to_Boolean( p_init_msg_list )
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878:
879: -- Initialize message list if p_init_msg_list is set to TRUE.
880: IF FND_API.to_Boolean( p_init_msg_list )
881: THEN
882: FND_MSG_PUB.initialize;
883: END IF;
884:
887: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
888: END IF;
889:
890: -- Initialize API return status to SUCCESS
891: x_return_status := FND_API.G_RET_STS_SUCCESS;
892:
893: -- Initialize build process flag to 'N'
894: l_build_started := 'N';
895:
922: -- Check if the user is resubmitting the update request (via browser refresh button
923: -- or by pressing the "update" button again) before re-loading the record.
924: IF (p_dm_model_rec.object_version_number <> l_ref_model_rec.object_version_number) THEN
925: AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
929: --
930: -- Process workflow based on the scheduled date
939: -- and build will be started.
940:
941: IF (l_ref_model_rec.status_code = G_DEFAULT_STATUS OR -- DRAFT
942: l_ref_model_rec.status_code = G_MODEL_STATUS_INVALID OR
943: l_ref_model_rec.status_code = G_MODEL_STATUS_FAILED) AND p_dm_model_rec.scheduled_date <> FND_API.G_MISS_DATE THEN
944:
945: -- First check that the target is enabled
946: AMS_DM_TARGET_PVT.is_target_enabled(
947: p_target_id => l_ref_model_rec.target_id ,
981: p_orig_status_id => l_ref_model_rec.user_status_id,
982: x_tar_model_rec => l_tar_model_rec,
983: x_return_status => x_return_status
984: );
985: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
986: x_return_status := 'W';
987: RETURN;
988: END IF;
989:
1031: p_scheduled_timezone_id => l_tar_model_rec.scheduled_timezone_id,
1032: x_new_itemkey => l_wf_itemkey,
1033: x_return_status => x_return_status
1034: );
1035: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1036:
1037: -- if we cannot change the schedule, may be the process has been purged,
1038: -- then we go ahead and submit a new process and get a new wf_itemkey
1039: IF (AMS_DEBUG_HIGH_ON) THEN
1060: p_orig_status_id => l_ref_model_rec.user_status_id,
1061: x_tar_model_rec => l_tar_model_rec,
1062: x_return_status => x_return_status
1063: );
1064: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1065: x_return_status := 'W';
1066: RETURN;
1067: END IF;
1068: IF (AMS_DEBUG_HIGH_ON) THEN
1119: p_orig_status_id => l_ref_model_rec.user_status_id,
1120: x_tar_model_rec => l_tar_model_rec,
1121: x_return_status => x_return_status
1122: );
1123: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1124: x_return_status := 'W';
1125: RETURN;
1126: END IF;
1127:
1132: IF (AMS_DEBUG_HIGH_ON) THEN
1133: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' l_monitor_url = ' || l_monitor_url );
1134: END IF;
1135:
1136: ELSIF l_ref_model_rec.status_code = G_MODEL_STATUS_PREVIEWING AND l_ref_model_rec.scheduled_date <> FND_API.G_MISS_DATE THEN
1137:
1138: -- First check that the target is enabled
1139: AMS_DM_TARGET_PVT.is_target_enabled(
1140: p_target_id => l_tar_model_rec.target_id ,
1195: p_orig_status_id => l_user_status_id,
1196: x_tar_model_rec => l_tar_model_rec,
1197: x_return_status => x_return_status
1198: );
1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1200: x_return_status := 'W';
1201: RETURN;
1202: END IF;
1203: IF (AMS_DEBUG_HIGH_ON) THEN
1250: x_return_status => x_return_status,
1251: x_msg_count => x_msg_count,
1252: x_msg_data => x_msg_data);
1253:
1254: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1257:
1258: l_tar_model_rec.status_date := sysdate;
1251: x_msg_count => x_msg_count,
1252: x_msg_data => x_msg_data);
1253:
1254: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1257:
1258: l_tar_model_rec.status_date := sysdate;
1259: END IF;
1258: l_tar_model_rec.status_date := sysdate;
1259: END IF;
1260:
1261: --if no user_status_id passing, keep the current status_code value
1262: IF l_tar_model_rec.user_status_id = FND_API.G_MISS_NUM THEN
1263: l_tar_model_rec.status_code := l_ref_model_rec.status_code;
1264: END IF;
1265:
1266: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1262: IF l_tar_model_rec.user_status_id = FND_API.G_MISS_NUM THEN
1263: l_tar_model_rec.status_code := l_ref_model_rec.status_code;
1264: END IF;
1265:
1266: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1267: -- Debug message
1268: IF (AMS_DEBUG_HIGH_ON) THEN
1269: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model');
1270: END IF;
1271:
1272: -- Invoke validation procedures
1273: Validate_dm_model(
1274: p_api_version_number => 1.0,
1275: p_init_msg_list => FND_API.G_FALSE,
1276: p_validation_level => p_validation_level,
1277: p_validation_mode => jtf_plsql_api.g_update,
1278: p_dm_model_rec => l_tar_model_rec,
1279: x_return_status => x_return_status,
1279: x_return_status => x_return_status,
1280: x_msg_count => x_msg_count,
1281: x_msg_data => x_msg_data);
1282: END IF;
1283: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1286:
1287:
1280: x_msg_count => x_msg_count,
1281: x_msg_data => x_msg_data);
1282: END IF;
1283: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1286:
1287:
1288: -- Debug Message
1348: );
1349: EXCEPTION
1350: WHEN NO_DATA_FOUND THEN
1351: AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
1352: RAISE FND_API.G_EXC_ERROR;
1353: END;
1354:
1355: x_object_version_number := l_tar_model_rec.object_version_number + 1;
1356:
1354:
1355: x_object_version_number := l_tar_model_rec.object_version_number + 1;
1356:
1357: -- Change the owner in the access table
1358: IF (l_tar_model_rec.owner_user_id <> FND_API.G_MISS_NUM AND l_tar_model_rec.owner_user_id <> l_ref_model_rec.owner_user_id) THEN
1359: AMS_Access_PVT.update_object_owner (
1360: p_api_version => 1.0,
1361: p_init_msg_list => FND_API.G_FALSE,
1362: p_commit => FND_API.G_FALSE,
1357: -- Change the owner in the access table
1358: IF (l_tar_model_rec.owner_user_id <> FND_API.G_MISS_NUM AND l_tar_model_rec.owner_user_id <> l_ref_model_rec.owner_user_id) THEN
1359: AMS_Access_PVT.update_object_owner (
1360: p_api_version => 1.0,
1361: p_init_msg_list => FND_API.G_FALSE,
1362: p_commit => FND_API.G_FALSE,
1363: p_validation_level => p_validation_level,
1364: x_return_status => x_return_status,
1365: x_msg_count => x_msg_count,
1358: IF (l_tar_model_rec.owner_user_id <> FND_API.G_MISS_NUM AND l_tar_model_rec.owner_user_id <> l_ref_model_rec.owner_user_id) THEN
1359: AMS_Access_PVT.update_object_owner (
1360: p_api_version => 1.0,
1361: p_init_msg_list => FND_API.G_FALSE,
1362: p_commit => FND_API.G_FALSE,
1363: p_validation_level => p_validation_level,
1364: x_return_status => x_return_status,
1365: x_msg_count => x_msg_count,
1366: x_msg_data => x_msg_data,
1368: p_object_id => l_tar_model_rec.model_id,
1369: p_resource_id => l_tar_model_rec.owner_user_id,
1370: p_old_resource_id => l_ref_model_rec.owner_user_id
1371: );
1372: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1373: RAISE FND_API.G_EXC_ERROR;
1374: END IF;
1375: END IF;
1376:
1369: p_resource_id => l_tar_model_rec.owner_user_id,
1370: p_old_resource_id => l_ref_model_rec.owner_user_id
1371: );
1372: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1373: RAISE FND_API.G_EXC_ERROR;
1374: END IF;
1375: END IF;
1376:
1377: --
1378: -- End of API body.
1379: --
1380:
1381: -- Standard check for p_commit
1382: IF FND_API.to_Boolean( p_commit ) THEN
1383: COMMIT WORK;
1384: END IF;
1385:
1386:
1402:
1403: EXCEPTION
1404:
1405: WHEN AMS_Utility_PVT.resource_locked THEN
1406: x_return_status := FND_API.g_ret_sts_error;
1407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1408: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1409: FND_MSG_PUB.add;
1410: END IF;
1408: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1409: FND_MSG_PUB.add;
1410: END IF;
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1410: END IF;
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1417: p_encoded => FND_API.G_FALSE,
1418: p_count => x_msg_count,
1413: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: -- Standard call to get message count and if count=1, get the message
1416: FND_MSG_PUB.Count_And_Get (
1417: p_encoded => FND_API.G_FALSE,
1418: p_count => x_msg_count,
1419: p_data => x_msg_data
1420: );
1421:
1418: p_count => x_msg_count,
1419: p_data => x_msg_data
1420: );
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1420: );
1421:
1422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1423: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1427: p_encoded => FND_API.G_FALSE,
1428: p_count => x_msg_count,
1423: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: -- Standard call to get message count and if count=1, get the message
1426: FND_MSG_PUB.Count_And_Get (
1427: p_encoded => FND_API.G_FALSE,
1428: p_count => x_msg_count,
1429: p_data => x_msg_data
1430: );
1431:
1430: );
1431:
1432: WHEN OTHERS THEN
1433: ROLLBACK TO UPDATE_DM_MODEL_PVT;
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1436: THEN
1437: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1438: END IF;
1437: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1438: END IF;
1439: -- Standard call to get message count and if count=1, get the message
1440: FND_MSG_PUB.Count_And_Get (
1441: p_encoded => FND_API.G_FALSE,
1442: p_count => x_msg_count,
1443: p_data => x_msg_data
1444: );
1445: End Update_dm_model;
1446:
1447:
1448: PROCEDURE Delete_dm_model(
1449: p_api_version_number IN NUMBER,
1450: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1451: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1452: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1453: x_return_status OUT NOCOPY VARCHAR2,
1454: x_msg_count OUT NOCOPY NUMBER,
1447:
1448: PROCEDURE Delete_dm_model(
1449: p_api_version_number IN NUMBER,
1450: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1451: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1452: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1453: x_return_status OUT NOCOPY VARCHAR2,
1454: x_msg_count OUT NOCOPY NUMBER,
1455: x_msg_data OUT NOCOPY VARCHAR2,
1448: PROCEDURE Delete_dm_model(
1449: p_api_version_number IN NUMBER,
1450: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1451: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1452: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1453: x_return_status OUT NOCOPY VARCHAR2,
1454: x_msg_count OUT NOCOPY NUMBER,
1455: x_msg_data OUT NOCOPY VARCHAR2,
1456: p_model_id IN NUMBER,
1466: -- Standard Start of API savepoint
1467: SAVEPOINT DELETE_DM_MODEL_PVT;
1468:
1469: -- Standard call to check for call compatibility.
1470: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1471: p_api_version_number,
1472: l_api_name,
1473: G_PKG_NAME)
1474: THEN
1471: p_api_version_number,
1472: l_api_name,
1473: G_PKG_NAME)
1474: THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: -- Initialize message list if p_init_msg_list is set to TRUE.
1479: IF FND_API.to_Boolean( p_init_msg_list )
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: -- Initialize message list if p_init_msg_list is set to TRUE.
1479: IF FND_API.to_Boolean( p_init_msg_list )
1480: THEN
1481: FND_MSG_PUB.initialize;
1482: END IF;
1483:
1488: END IF;
1489:
1490:
1491: -- Initialize API return status to SUCCESS
1492: x_return_status := FND_API.G_RET_STS_SUCCESS;
1493:
1494: --
1495: -- Api body
1496: --
1506: AMS_DM_MODELS_B_PKG.Delete_Row(p_model_id => p_model_id);
1507:
1508: EXCEPTION
1509: WHEN NO_DATA_FOUND THEN
1510: RAISE FND_API.G_EXC_ERROR;
1511: END;
1512: --
1513: -- End of API body
1514: --
1513: -- End of API body
1514: --
1515:
1516: -- Standard check for p_commit
1517: IF FND_API.to_Boolean( p_commit )
1518: THEN
1519: COMMIT WORK;
1520: END IF;
1521:
1533: );
1534: EXCEPTION
1535:
1536: WHEN AMS_Utility_PVT.resource_locked THEN
1537: x_return_status := FND_API.g_ret_sts_error;
1538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1539: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1540: FND_MSG_PUB.add;
1541: END IF;
1539: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1540: FND_MSG_PUB.add;
1541: END IF;
1542:
1543: WHEN FND_API.G_EXC_ERROR THEN
1544: ROLLBACK TO DELETE_DM_MODEL_PVT;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1541: END IF;
1542:
1543: WHEN FND_API.G_EXC_ERROR THEN
1544: ROLLBACK TO DELETE_DM_MODEL_PVT;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1548: p_encoded => FND_API.G_FALSE,
1549: p_count => x_msg_count,
1544: ROLLBACK TO DELETE_DM_MODEL_PVT;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1548: p_encoded => FND_API.G_FALSE,
1549: p_count => x_msg_count,
1550: p_data => x_msg_data
1551: );
1552:
1549: p_count => x_msg_count,
1550: p_data => x_msg_data
1551: );
1552:
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: ROLLBACK TO DELETE_DM_MODEL_PVT;
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: -- Standard call to get message count and if count=1, get the message
1557: FND_MSG_PUB.Count_And_Get (
1551: );
1552:
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: ROLLBACK TO DELETE_DM_MODEL_PVT;
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: -- Standard call to get message count and if count=1, get the message
1557: FND_MSG_PUB.Count_And_Get (
1558: p_encoded => FND_API.G_FALSE,
1559: p_count => x_msg_count,
1554: ROLLBACK TO DELETE_DM_MODEL_PVT;
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: -- Standard call to get message count and if count=1, get the message
1557: FND_MSG_PUB.Count_And_Get (
1558: p_encoded => FND_API.G_FALSE,
1559: p_count => x_msg_count,
1560: p_data => x_msg_data
1561: );
1562:
1561: );
1562:
1563: WHEN OTHERS THEN
1564: ROLLBACK TO DELETE_DM_MODEL_PVT;
1565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1566: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1567: THEN
1568: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1569: END IF;
1568: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1569: END IF;
1570: -- Standard call to get message count and if count=1, get the message
1571: FND_MSG_PUB.Count_And_Get (
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data
1575: );
1576: End Delete_dm_model;
1587: IF (AMS_DEBUG_HIGH_ON) THEN
1588:
1589: AMS_UTILITY_PVT.debug_message('Private API:check_dm_model_fk_items');
1590: END IF;
1591: x_return_status := FND_API.g_ret_sts_success;
1592: --------------------owner_user_id---------------------------
1593: IF p_dm_model_rec.owner_user_id <> FND_API.g_miss_num THEN
1594: IF AMS_Utility_PVT.check_fk_exists(
1595: 'jtf_rs_resource_extns',
1589: AMS_UTILITY_PVT.debug_message('Private API:check_dm_model_fk_items');
1590: END IF;
1591: x_return_status := FND_API.g_ret_sts_success;
1592: --------------------owner_user_id---------------------------
1593: IF p_dm_model_rec.owner_user_id <> FND_API.g_miss_num THEN
1594: IF AMS_Utility_PVT.check_fk_exists(
1595: 'jtf_rs_resource_extns',
1596: 'resource_id',
1597: p_dm_model_rec.owner_user_id
1594: IF AMS_Utility_PVT.check_fk_exists(
1595: 'jtf_rs_resource_extns',
1596: 'resource_id',
1597: p_dm_model_rec.owner_user_id
1598: ) = FND_API.g_false
1599: THEN
1600: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'OWNER_USER_ID');
1601: x_return_status := FND_API.g_ret_sts_error;
1602: END IF;
1597: p_dm_model_rec.owner_user_id
1598: ) = FND_API.g_false
1599: THEN
1600: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'OWNER_USER_ID');
1601: x_return_status := FND_API.g_ret_sts_error;
1602: END IF;
1603: END IF;
1604:
1605: --------------------- user_status_id ------------------------
1602: END IF;
1603: END IF;
1604:
1605: --------------------- user_status_id ------------------------
1606: IF p_dm_model_rec.user_status_id <> FND_API.g_miss_num THEN
1607: IF AMS_Utility_PVT.check_fk_exists(
1608: 'ams_user_statuses_b',
1609: 'user_status_id',
1610: p_dm_model_rec.user_status_id
1607: IF AMS_Utility_PVT.check_fk_exists(
1608: 'ams_user_statuses_b',
1609: 'user_status_id',
1610: p_dm_model_rec.user_status_id
1611: ) = FND_API.g_false
1612: THEN
1613: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'USER_STATUS_ID');
1614: x_return_status := FND_API.g_ret_sts_error;
1615: END IF;
1610: p_dm_model_rec.user_status_id
1611: ) = FND_API.g_false
1612: THEN
1613: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'USER_STATUS_ID');
1614: x_return_status := FND_API.g_ret_sts_error;
1615: END IF;
1616: END IF;
1617:
1618: --------------------- target_id ------------------------
1615: END IF;
1616: END IF;
1617:
1618: --------------------- target_id ------------------------
1619: IF p_dm_model_rec.target_id <> FND_API.g_miss_num THEN
1620: IF AMS_Utility_PVT.check_fk_exists(
1621: 'ams_dm_targets_b',
1622: 'target_id',
1623: p_dm_model_rec.target_id
1620: IF AMS_Utility_PVT.check_fk_exists(
1621: 'ams_dm_targets_b',
1622: 'target_id',
1623: p_dm_model_rec.target_id
1624: ) = FND_API.g_false
1625: THEN
1626: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'TARGET_ID');
1627: x_return_status := FND_API.g_ret_sts_error;
1628: END IF;
1623: p_dm_model_rec.target_id
1624: ) = FND_API.g_false
1625: THEN
1626: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'TARGET_ID');
1627: x_return_status := FND_API.g_ret_sts_error;
1628: END IF;
1629: END IF;
1630:
1631: END check_dm_model_fk_items;
1643: IF (AMS_DEBUG_HIGH_ON) THEN
1644:
1645: AMS_UTILITY_PVT.debug_message('Private API:check_dm_model_lookup_items');
1646: END IF;
1647: x_return_status := FND_API.g_ret_sts_success;
1648:
1649: /*lookup type can be get from the detail design doc */
1650: ----------------------- model_type ------------------------
1651: IF p_dm_model_rec.model_type <> FND_API.g_miss_char THEN
1647: x_return_status := FND_API.g_ret_sts_success;
1648:
1649: /*lookup type can be get from the detail design doc */
1650: ----------------------- model_type ------------------------
1651: IF p_dm_model_rec.model_type <> FND_API.g_miss_char THEN
1652: IF AMS_Utility_PVT.check_lookup_exists(
1653: p_lookup_type => 'AMS_DM_MODEL_TYPE',
1654: p_lookup_code => p_dm_model_rec.model_type
1655: ) = FND_API.g_false
1651: IF p_dm_model_rec.model_type <> FND_API.g_miss_char THEN
1652: IF AMS_Utility_PVT.check_lookup_exists(
1653: p_lookup_type => 'AMS_DM_MODEL_TYPE',
1654: p_lookup_code => p_dm_model_rec.model_type
1655: ) = FND_API.g_false
1656: THEN
1657: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1658: FND_MESSAGE.set_name('AMS', 'AMS_API_INVALID_LOOKUP');
1659: FND_MESSAGE.set_token ('LOOKUP_CODE', p_dm_model_rec.model_type);
1659: FND_MESSAGE.set_token ('LOOKUP_CODE', p_dm_model_rec.model_type);
1660: FND_MESSAGE.set_token ('COLUMN_NAME', 'MODEL_TYPE');
1661: FND_MSG_PUB.add;
1662: END IF;
1663: x_return_status := FND_API.g_ret_sts_error;
1664: END IF;
1665: END IF;
1666:
1667: ------------------ status_code ---------------------------------------
1664: END IF;
1665: END IF;
1666:
1667: ------------------ status_code ---------------------------------------
1668: IF p_dm_model_rec.status_code <> FND_API.g_miss_char THEN
1669: IF AMS_Utility_PVT.check_lookup_exists(
1670: p_lookup_type => 'AMS_DM_MODEL_STATUS',
1671: p_lookup_code => p_dm_model_rec.status_code
1672: ) = FND_API.g_false
1668: IF p_dm_model_rec.status_code <> FND_API.g_miss_char THEN
1669: IF AMS_Utility_PVT.check_lookup_exists(
1670: p_lookup_type => 'AMS_DM_MODEL_STATUS',
1671: p_lookup_code => p_dm_model_rec.status_code
1672: ) = FND_API.g_false
1673: THEN
1674: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1675: FND_MESSAGE.set_name('AMS', 'AMS_API_INVALID_LOOKUP');
1676: FND_MESSAGE.set_token ('LOOKUP_CODE', p_dm_model_rec.status_code);
1676: FND_MESSAGE.set_token ('LOOKUP_CODE', p_dm_model_rec.status_code);
1677: FND_MESSAGE.set_token ('COLUMN_NAME', 'STATUS_CODE');
1678: FND_MSG_PUB.add;
1679: END IF;
1680: x_return_status := FND_API.g_ret_sts_error;
1681: END IF;
1682: END IF;
1683:
1684: ------------------ target_group_type ---------------------------------------
1684: ------------------ target_group_type ---------------------------------------
1685: /* the following should be uncommentted when data is ready */
1686:
1687: /*** choang - 05-jun-2002 - OBSELETED
1688: IF p_dm_model_rec.target_group_type <> FND_API.g_miss_char THEN
1689: IF AMS_Utility_PVT.check_lookup_exists(
1690: p_lookup_type => 'AMS_DM_TARGET_GROUP_TYPE',
1691: p_lookup_code => p_dm_model_rec.target_group_type
1692: ) = FND_API.g_false
1688: IF p_dm_model_rec.target_group_type <> FND_API.g_miss_char THEN
1689: IF AMS_Utility_PVT.check_lookup_exists(
1690: p_lookup_type => 'AMS_DM_TARGET_GROUP_TYPE',
1691: p_lookup_code => p_dm_model_rec.target_group_type
1692: ) = FND_API.g_false
1693: THEN
1694: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1695: THEN
1696: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_BAD_TARGET_GROUP');
1696: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_BAD_TARGET_GROUP');
1697: FND_MSG_PUB.add;
1698: END IF;
1699:
1700: x_return_status := FND_API.g_ret_sts_error;
1701: END IF;
1702: END IF;
1703: ***/
1704: END check_dm_model_lookup_items;
1730: IF (AMS_DEBUG_HIGH_ON) THEN
1731:
1732: AMS_UTILITY_PVT.debug_message('Private API:check_dm_model_uk_items');
1733: END IF;
1734: x_return_status := FND_API.g_ret_sts_success;
1735:
1736: --Validate unique model_id
1737: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1738: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1744: 'MODEL_ID = ''' || p_dm_model_rec.model_id ||
1745: ''' AND MODEL_ID <> ' || p_dm_model_rec.model_id);
1746: END IF;
1747:
1748: IF l_valid_flag = FND_API.g_false THEN
1749: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1750: THEN
1751: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_DUPLICATE_ID');
1752: FND_MSG_PUB.add;
1750: THEN
1751: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_DUPLICATE_ID');
1752: FND_MSG_PUB.add;
1753: END IF;
1754: x_return_status := FND_API.g_ret_sts_error;
1755: END IF;
1756:
1757: --Validate unique model_name
1758: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1769: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1770: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_DUPLICATE_NAME');
1771: FND_MSG_PUB.add;
1772: END IF;
1773: x_return_status := FND_API.g_ret_sts_error;
1774: END IF;
1775:
1776: END check_dm_model_uk_items;
1777:
1789: x_return_status OUT NOCOPY VARCHAR2
1790: )
1791: IS
1792: BEGIN
1793: x_return_status := FND_API.g_ret_sts_success;
1794:
1795: --for update API, check if NULL value, if the parameter is missing,
1796: --it is handled by table handler
1797:
1800: IF (AMS_DEBUG_HIGH_ON) THEN
1801: ams_utility_pvt.debug_message('Private API:check_dm_model_req_items for update');
1802: END IF;
1803:
1804: IF (p_dm_model_rec.model_id IS NULL OR p_dm_model_rec.model_id = FND_API.G_MISS_NUM) THEN
1805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1806: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_MODEL_ID');
1807: FND_MSG_PUB.add;
1808: END IF;
1805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1806: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_MODEL_ID');
1807: FND_MSG_PUB.add;
1808: END IF;
1809: x_return_status := FND_API.g_ret_sts_error;
1810: END IF;
1811:
1812: IF (p_dm_model_rec.object_version_number IS NULL OR p_dm_model_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1813: AMS_Utility_PVT.error_message ('AMS_MODEL_NO_OBJ_VERSION');
1808: END IF;
1809: x_return_status := FND_API.g_ret_sts_error;
1810: END IF;
1811:
1812: IF (p_dm_model_rec.object_version_number IS NULL OR p_dm_model_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1813: AMS_Utility_PVT.error_message ('AMS_MODEL_NO_OBJ_VERSION');
1814: x_return_status := FND_API.g_ret_sts_error;
1815: END IF;
1816:
1810: END IF;
1811:
1812: IF (p_dm_model_rec.object_version_number IS NULL OR p_dm_model_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1813: AMS_Utility_PVT.error_message ('AMS_MODEL_NO_OBJ_VERSION');
1814: x_return_status := FND_API.g_ret_sts_error;
1815: END IF;
1816:
1817: IF p_dm_model_rec.model_type IS NULL THEN
1818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1819: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_MODEL_TYPE');
1820: FND_MSG_PUB.add;
1821: END IF;
1822: x_return_status := FND_API.g_ret_sts_error;
1823: END IF;
1824:
1825: IF p_dm_model_rec.user_status_id IS NULL THEN
1826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1827: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_USER_STATUS_ID');
1828: FND_MSG_PUB.add;
1829: END IF;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: END IF;
1832:
1833: IF p_dm_model_rec.status_code IS NULL THEN
1834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1835: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_STATUS_CODE');
1836: FND_MSG_PUB.add;
1837: END IF;
1838: x_return_status := FND_API.g_ret_sts_error;
1839: END IF;
1840:
1841: IF p_dm_model_rec.status_date IS NULL THEN
1842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1843: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_STATUS_DATE');
1844: FND_MSG_PUB.add;
1845: END IF;
1846: x_return_status := FND_API.g_ret_sts_error;
1847: END IF;
1848:
1849: IF p_dm_model_rec.owner_user_id IS NULL THEN
1850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1851: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_OWNER_USER_ID');
1852: FND_MSG_PUB.add;
1853: END IF;
1854: x_return_status := FND_API.g_ret_sts_error;
1855: END IF;
1856:
1857: /*** choang - 05-jun-2002 - OBSELETED
1858: IF p_dm_model_rec.target_group_type IS NULL THEN
1859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1860: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_TARGET_GROUP_TYPE');
1861: FND_MSG_PUB.add;
1862: END IF;
1863: x_return_status := FND_API.g_ret_sts_error;
1864: END IF;
1865: ***/
1866:
1867: IF p_dm_model_rec.RESULTS_FLAG IS NULL THEN
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1869: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_RESULTS_FLAG');
1870: FND_MSG_PUB.add;
1871: END IF;
1872: x_return_status := FND_API.g_ret_sts_error;
1873: END IF;
1874:
1875: IF p_dm_model_rec.LOGS_FLAG IS NULL THEN
1876: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1876: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1877: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_LOGS_FLAG');
1878: FND_MSG_PUB.add;
1879: END IF;
1880: x_return_status := FND_API.g_ret_sts_error;
1881: END IF;
1882:
1883:
1884: IF p_dm_model_rec.row_selection_type IS NULL THEN
1885: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1886: FND_MESSAGE.set_name('AMS', 'AMS_MODEL_NO_ROW_SELECT_TYPE');
1887: FND_MSG_PUB.add;
1888: END IF;
1889: x_return_status := FND_API.g_ret_sts_error;
1890: RETURN;
1891: END IF;
1892:
1893: -- nyostos Feb 13, 2003. Added check for model name in case the mandatory rule
1893: -- nyostos Feb 13, 2003. Added check for model name in case the mandatory rule
1894: -- for model name is missing
1895: IF p_dm_model_rec.model_name IS NULL THEN
1896: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_NAME');
1897: x_return_status := FND_API.g_ret_sts_error;
1898: END IF;
1899:
1900: IF p_dm_model_rec.target_id IS NULL THEN
1901: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID');
1898: END IF;
1899:
1900: IF p_dm_model_rec.target_id IS NULL THEN
1901: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID');
1902: x_return_status := FND_API.g_ret_sts_error;
1903: END IF;
1904:
1905: ELSE
1906: -- nyostos Feb 13, 2003. Added check for NULL values on Create
1909: IF (AMS_DEBUG_HIGH_ON) THEN
1910: ams_utility_pvt.debug_message('Private API:check_dm_model_req_items for create');
1911: END IF;
1912:
1913: IF p_dm_model_rec.model_type = FND_API.G_MISS_CHAR OR p_dm_model_rec.model_type IS NULL THEN
1914: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_TYPE');
1915: x_return_status := FND_API.g_ret_sts_error;
1916: END IF;
1917:
1911: END IF;
1912:
1913: IF p_dm_model_rec.model_type = FND_API.G_MISS_CHAR OR p_dm_model_rec.model_type IS NULL THEN
1914: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_TYPE');
1915: x_return_status := FND_API.g_ret_sts_error;
1916: END IF;
1917:
1918: IF p_dm_model_rec.user_status_id = FND_API.G_MISS_NUM OR p_dm_model_rec.user_status_id IS NULL THEN
1919: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID');
1914: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_TYPE');
1915: x_return_status := FND_API.g_ret_sts_error;
1916: END IF;
1917:
1918: IF p_dm_model_rec.user_status_id = FND_API.G_MISS_NUM OR p_dm_model_rec.user_status_id IS NULL THEN
1919: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID');
1920: x_return_status := FND_API.g_ret_sts_error;
1921: END IF;
1922:
1916: END IF;
1917:
1918: IF p_dm_model_rec.user_status_id = FND_API.G_MISS_NUM OR p_dm_model_rec.user_status_id IS NULL THEN
1919: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID');
1920: x_return_status := FND_API.g_ret_sts_error;
1921: END IF;
1922:
1923: IF p_dm_model_rec.status_code = FND_API.G_MISS_CHAR OR p_dm_model_rec.status_code IS NULL THEN
1924: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE');
1919: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID');
1920: x_return_status := FND_API.g_ret_sts_error;
1921: END IF;
1922:
1923: IF p_dm_model_rec.status_code = FND_API.G_MISS_CHAR OR p_dm_model_rec.status_code IS NULL THEN
1924: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE');
1925: x_return_status := FND_API.g_ret_sts_error;
1926: END IF;
1927:
1921: END IF;
1922:
1923: IF p_dm_model_rec.status_code = FND_API.G_MISS_CHAR OR p_dm_model_rec.status_code IS NULL THEN
1924: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE');
1925: x_return_status := FND_API.g_ret_sts_error;
1926: END IF;
1927:
1928: IF p_dm_model_rec.status_date = FND_API.G_MISS_DATE OR p_dm_model_rec.status_date IS NULL THEN
1929: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_DATE');
1924: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE');
1925: x_return_status := FND_API.g_ret_sts_error;
1926: END IF;
1927:
1928: IF p_dm_model_rec.status_date = FND_API.G_MISS_DATE OR p_dm_model_rec.status_date IS NULL THEN
1929: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_DATE');
1930: x_return_status := FND_API.g_ret_sts_error;
1931: END IF;
1932:
1926: END IF;
1927:
1928: IF p_dm_model_rec.status_date = FND_API.G_MISS_DATE OR p_dm_model_rec.status_date IS NULL THEN
1929: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_DATE');
1930: x_return_status := FND_API.g_ret_sts_error;
1931: END IF;
1932:
1933: IF (p_dm_model_rec.owner_user_id = FND_API.G_MISS_NUM) OR p_dm_model_rec.owner_user_id IS NULL THEN
1934: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OWNER_USER_ID');
1929: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_DATE');
1930: x_return_status := FND_API.g_ret_sts_error;
1931: END IF;
1932:
1933: IF (p_dm_model_rec.owner_user_id = FND_API.G_MISS_NUM) OR p_dm_model_rec.owner_user_id IS NULL THEN
1934: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OWNER_USER_ID');
1935: x_return_status := FND_API.g_ret_sts_error;
1936: END IF;
1937:
1931: END IF;
1932:
1933: IF (p_dm_model_rec.owner_user_id = FND_API.G_MISS_NUM) OR p_dm_model_rec.owner_user_id IS NULL THEN
1934: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OWNER_USER_ID');
1935: x_return_status := FND_API.g_ret_sts_error;
1936: END IF;
1937:
1938: /**** - choang - 05-jun-2002 - OBSELETED
1939: IF p_dm_model_rec.target_group_type = FND_API.G_MISS_CHAR THEN
1935: x_return_status := FND_API.g_ret_sts_error;
1936: END IF;
1937:
1938: /**** - choang - 05-jun-2002 - OBSELETED
1939: IF p_dm_model_rec.target_group_type = FND_API.G_MISS_CHAR THEN
1940: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_GROUP_TYPE');
1941: x_return_status := FND_API.g_ret_sts_error;
1942: END IF;
1943: ***/
1937:
1938: /**** - choang - 05-jun-2002 - OBSELETED
1939: IF p_dm_model_rec.target_group_type = FND_API.G_MISS_CHAR THEN
1940: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_GROUP_TYPE');
1941: x_return_status := FND_API.g_ret_sts_error;
1942: END IF;
1943: ***/
1944: -- nyostos Feb 13, 2003. Added check for model name in case the mandatory rule
1945: -- for model name is missing
1942: END IF;
1943: ***/
1944: -- nyostos Feb 13, 2003. Added check for model name in case the mandatory rule
1945: -- for model name is missing
1946: IF p_dm_model_rec.model_name = FND_API.G_MISS_CHAR OR p_dm_model_rec.model_name IS NULL THEN
1947: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_NAME');
1948: x_return_status := FND_API.g_ret_sts_error;
1949: END IF;
1950:
1944: -- nyostos Feb 13, 2003. Added check for model name in case the mandatory rule
1945: -- for model name is missing
1946: IF p_dm_model_rec.model_name = FND_API.G_MISS_CHAR OR p_dm_model_rec.model_name IS NULL THEN
1947: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_NAME');
1948: x_return_status := FND_API.g_ret_sts_error;
1949: END IF;
1950:
1951: IF p_dm_model_rec.target_id = FND_API.G_MISS_NUM OR p_dm_model_rec.target_id IS NULL THEN
1952: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID');
1947: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'MODEL_NAME');
1948: x_return_status := FND_API.g_ret_sts_error;
1949: END IF;
1950:
1951: IF p_dm_model_rec.target_id = FND_API.G_MISS_NUM OR p_dm_model_rec.target_id IS NULL THEN
1952: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID');
1953: x_return_status := FND_API.g_ret_sts_error;
1954: END IF;
1955:
1949: END IF;
1950:
1951: IF p_dm_model_rec.target_id = FND_API.G_MISS_NUM OR p_dm_model_rec.target_id IS NULL THEN
1952: AMS_Utility_PVT.error_message ('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID');
1953: x_return_status := FND_API.g_ret_sts_error;
1954: END IF;
1955:
1956: END IF;
1957:
1978: Check_dm_model_uk_items(
1979: p_dm_model_rec =>p_dm_model_rec,
1980: p_validation_mode => p_validation_mode,
1981: x_return_status => x_return_status);
1982: IF x_return_status <> FND_API.g_ret_sts_success THEN
1983: RETURN;
1984: END IF;
1985:
1986: -- Check Items Required/NOT NULL API calls
1990: Check_dm_model_req_items(
1991: p_dm_model_rec =>p_dm_model_rec,
1992: p_validation_mode => p_validation_mode,
1993: x_return_status => x_return_status);
1994: IF x_return_status <> FND_API.g_ret_sts_success THEN
1995: RETURN;
1996: END IF;
1997:
1998: -- Check Items Foreign Key API calls
2001: END IF;
2002: Check_dm_model_fk_items(
2003: p_dm_model_rec =>p_dm_model_rec,
2004: x_return_status => x_return_status);
2005: IF x_return_status <> FND_API.g_ret_sts_success THEN
2006: RETURN;
2007: END IF;
2008:
2009: -- Check Items Lookup API calls
2012: END IF;
2013: Check_dm_model_lookup_items(
2014: p_dm_model_rec =>p_dm_model_rec,
2015: x_return_status => x_return_status);
2016: IF x_return_status <> FND_API.g_ret_sts_success THEN
2017: RETURN;
2018: END IF;
2019:
2020: -- Start add rosharma 28-Nov-2002
2019:
2020: -- Start add rosharma 28-Nov-2002
2021: -- Min records should be number and more than 0, if entered
2022: IF p_dm_model_rec.min_records IS NOT NULL AND
2023: p_dm_model_rec.min_records <> FND_API.g_miss_num THEN
2024: DECLARE
2025: l_min_rec NUMBER;
2026: BEGIN
2027: l_min_rec := TO_NUMBER (p_dm_model_rec.min_records);
2026: BEGIN
2027: l_min_rec := TO_NUMBER (p_dm_model_rec.min_records);
2028: IF l_min_rec < 0 THEN
2029: AMS_Utility_PVT.error_message ('AMS_DM_NEGATIVE_NUMBER' , 'FIELD' , 'MIN_RECORDS');
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031: RETURN;
2032: END IF;
2033: EXCEPTION
2034: WHEN VALUE_ERROR THEN
2032: END IF;
2033: EXCEPTION
2034: WHEN VALUE_ERROR THEN
2035: AMS_Utility_PVT.error_message ('AMS_DM_NOT_NUMBER' , 'FIELD' , 'MIN_RECORDS');
2036: x_return_status := FND_API.G_RET_STS_ERROR;
2037: RETURN;
2038: END;
2039: END IF;
2040:
2039: END IF;
2040:
2041: -- Max records should be number and more than 0, if entered
2042: IF p_dm_model_rec.max_records IS NOT NULL AND
2043: p_dm_model_rec.max_records <> FND_API.g_miss_num THEN
2044: DECLARE
2045: l_max_rec NUMBER;
2046: BEGIN
2047: l_max_rec := TO_NUMBER (p_dm_model_rec.max_records);
2046: BEGIN
2047: l_max_rec := TO_NUMBER (p_dm_model_rec.max_records);
2048: IF l_max_rec < 0 THEN
2049: AMS_Utility_PVT.error_message ('AMS_DM_NEGATIVE_NUMBER' , 'FIELD' , 'MAX_RECORDS');
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051: RETURN;
2052: END IF;
2053: EXCEPTION
2054: WHEN VALUE_ERROR THEN
2052: END IF;
2053: EXCEPTION
2054: WHEN VALUE_ERROR THEN
2055: AMS_Utility_PVT.error_message ('AMS_DM_NOT_NUMBER' , 'FIELD' , 'MAX_RECORDS');
2056: x_return_status := FND_API.G_RET_STS_ERROR;
2057: RETURN;
2058: END;
2059: END IF;
2060: -- End add rosharma 28-Nov-2002
2069: -- callout to check_access.
2070: ---------------------------------------------------------------------------------------
2071: PROCEDURE Validate_dm_model_rec(
2072: P_Api_Version_Number IN NUMBER,
2073: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2074: p_validation_mode IN VARCHAR2,
2075: X_Return_Status OUT NOCOPY VARCHAR2,
2076: X_Msg_Count OUT NOCOPY NUMBER,
2077: X_Msg_Data OUT NOCOPY VARCHAR2,
2088: WHERE model_id = p_model_id;
2089: l_reference_rec c_reference%ROWTYPE;
2090: BEGIN
2091: -- Initialize message list if p_init_msg_list is set to TRUE.
2092: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2093: FND_MSG_PUB.initialize;
2094: END IF;
2095:
2096: -- Initialize API return status to SUCCESS
2093: FND_MSG_PUB.initialize;
2094: END IF;
2095:
2096: -- Initialize API return status to SUCCESS
2097: x_return_status := FND_API.G_RET_STS_SUCCESS;
2098:
2099: -- Hint: Validate data
2100: -- If data not valid
2101: -- THEN
2098:
2099: -- Hint: Validate data
2100: -- If data not valid
2101: -- THEN
2102: -- x_return_status := FND_API.G_RET_STS_ERROR;
2103:
2104: IF p_validation_mode = JTF_PLSQL_API.G_UPDATE THEN
2105: l_context_resource_id := AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id);
2106:
2113: p_validation_mode => p_validation_mode,
2114: x_return_status => x_return_status
2115: );
2116:
2117: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2118: RAISE FND_API.G_EXC_ERROR;
2119: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2114: x_return_status => x_return_status
2115: );
2116:
2117: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2118: RAISE FND_API.G_EXC_ERROR;
2119: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122:
2115: );
2116:
2117: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2118: RAISE FND_API.G_EXC_ERROR;
2119: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122:
2123: -- the owner in the context needs to be the
2116:
2117: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2118: RAISE FND_API.G_EXC_ERROR;
2119: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122:
2123: -- the owner in the context needs to be the
2124: -- same as the owner of the record in order
2132: );
2133:
2134: IF l_is_owner = 'N' AND NOT AMS_Access_PVT.Check_Admin_Access(l_context_resource_id) THEN
2135: AMS_Utility_PVT.error_message ('AMS_PRIC_UPDT_OWNER_PERM');
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: END IF;
2138: END IF;
2139: END IF;
2140:
2140:
2141: -- Start add rosharma 28-Nov-2002
2142: -- Max records must be more than Min records, if both are entered
2143: IF p_dm_model_rec.min_records IS NOT NULL AND
2144: p_dm_model_rec.min_records <> FND_API.g_miss_num AND
2145: p_dm_model_rec.max_records IS NOT NULL AND
2146: p_dm_model_rec.max_records <> FND_API.g_miss_num THEN
2147: DECLARE
2148: l_min_rec NUMBER;
2142: -- Max records must be more than Min records, if both are entered
2143: IF p_dm_model_rec.min_records IS NOT NULL AND
2144: p_dm_model_rec.min_records <> FND_API.g_miss_num AND
2145: p_dm_model_rec.max_records IS NOT NULL AND
2146: p_dm_model_rec.max_records <> FND_API.g_miss_num THEN
2147: DECLARE
2148: l_min_rec NUMBER;
2149: l_max_rec NUMBER;
2150: BEGIN
2151: l_min_rec := TO_NUMBER (p_dm_model_rec.min_records);
2152: l_max_rec := TO_NUMBER (p_dm_model_rec.max_records);
2153: IF l_max_rec < l_min_rec THEN
2154: AMS_Utility_PVT.error_message ('AMS_DM_MIN_MORE_THAN_MAX');
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: RETURN;
2157: END IF;
2158: END;
2159: END IF;
2161: -- If selection is every Nth row, there must be a value in number of rows
2162: -- and it must be greater than 0
2163: IF p_dm_model_rec.row_selection_type = 'NTH_RECORD' THEN
2164: IF p_dm_model_rec.every_nth_row IS NULL OR
2165: p_dm_model_rec.every_nth_row = FND_API.g_miss_num THEN
2166: AMS_Utility_PVT.error_message ('AMS_DM_NO_NTH_RECORD');
2167: x_return_status := FND_API.G_RET_STS_ERROR;
2168: RETURN;
2169: END IF;
2163: IF p_dm_model_rec.row_selection_type = 'NTH_RECORD' THEN
2164: IF p_dm_model_rec.every_nth_row IS NULL OR
2165: p_dm_model_rec.every_nth_row = FND_API.g_miss_num THEN
2166: AMS_Utility_PVT.error_message ('AMS_DM_NO_NTH_RECORD');
2167: x_return_status := FND_API.G_RET_STS_ERROR;
2168: RETURN;
2169: END IF;
2170: --check for valid number
2171: DECLARE
2173: BEGIN
2174: l_nth_row := ROUND(TO_NUMBER (p_dm_model_rec.every_nth_row));
2175: IF l_nth_row <= 0 THEN
2176: AMS_Utility_PVT.error_message ('AMS_DM_INVALID_NTH_ROW');
2177: x_return_status := FND_API.G_RET_STS_ERROR;
2178: RETURN;
2179: END IF;
2180: EXCEPTION
2181: WHEN VALUE_ERROR THEN
2179: END IF;
2180: EXCEPTION
2181: WHEN VALUE_ERROR THEN
2182: AMS_Utility_PVT.error_message ('AMS_DM_NOT_NUMBER' , 'FIELD' , 'EVERY_NTH_ROW');
2183: x_return_status := FND_API.G_RET_STS_ERROR;
2184: RETURN;
2185: END;
2186: END IF;
2187:
2188: -- If selection is random, there must be a value in random percentage
2189: -- and it must be between 0 and 100
2190: IF p_dm_model_rec.row_selection_type = 'RANDOM' THEN
2191: IF p_dm_model_rec.pct_random IS NULL OR
2192: p_dm_model_rec.pct_random = FND_API.g_miss_num THEN
2193: AMS_Utility_PVT.error_message ('AMS_DM_NO_PCT_RANDOM');
2194: x_return_status := FND_API.G_RET_STS_ERROR;
2195: RETURN;
2196: END IF;
2190: IF p_dm_model_rec.row_selection_type = 'RANDOM' THEN
2191: IF p_dm_model_rec.pct_random IS NULL OR
2192: p_dm_model_rec.pct_random = FND_API.g_miss_num THEN
2193: AMS_Utility_PVT.error_message ('AMS_DM_NO_PCT_RANDOM');
2194: x_return_status := FND_API.G_RET_STS_ERROR;
2195: RETURN;
2196: END IF;
2197: --check for valid number
2198: DECLARE
2200: BEGIN
2201: l_pct_random := TO_NUMBER (p_dm_model_rec.pct_random);
2202: IF l_pct_random <= 0 OR l_pct_random > 100 THEN
2203: AMS_Utility_PVT.error_message ('AMS_DM_INVALID_PCT_RANDOM');
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: RETURN;
2206: END IF;
2207: EXCEPTION
2208: WHEN VALUE_ERROR THEN
2206: END IF;
2207: EXCEPTION
2208: WHEN VALUE_ERROR THEN
2209: AMS_Utility_PVT.error_message ('AMS_DM_NOT_NUMBER' , 'FIELD' , 'PCT_RANDOM');
2210: x_return_status := FND_API.G_RET_STS_ERROR;
2211: RETURN;
2212: END;
2213: END IF;
2214: -- End add rosharma 28-Nov-2002
2247: FETCH c_complete INTO l_model_rec;
2248: IF c_complete%NOTFOUND THEN
2249: CLOSE c_complete;
2250: AMS_Utility_PVT.error_message ('AMS_MODEL_BAD_ID');
2251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2252: END IF;
2253: CLOSE c_complete;
2254:
2255: -- model_id
2252: END IF;
2253: CLOSE c_complete;
2254:
2255: -- model_id
2256: IF p_dm_model_rec.model_id = FND_API.g_miss_num THEN
2257: x_complete_rec.model_id := l_model_rec.model_id;
2258: END IF;
2259:
2260: -- last_update_date
2257: x_complete_rec.model_id := l_model_rec.model_id;
2258: END IF;
2259:
2260: -- last_update_date
2261: IF p_dm_model_rec.last_update_date = FND_API.g_miss_date THEN
2262: x_complete_rec.last_update_date := l_model_rec.last_update_date;
2263: END IF;
2264:
2265: -- last_updated_by
2262: x_complete_rec.last_update_date := l_model_rec.last_update_date;
2263: END IF;
2264:
2265: -- last_updated_by
2266: IF p_dm_model_rec.last_updated_by = FND_API.g_miss_num THEN
2267: x_complete_rec.last_updated_by := l_model_rec.last_updated_by;
2268: END IF;
2269:
2270: -- creation_date
2267: x_complete_rec.last_updated_by := l_model_rec.last_updated_by;
2268: END IF;
2269:
2270: -- creation_date
2271: IF p_dm_model_rec.creation_date = FND_API.g_miss_date THEN
2272: x_complete_rec.creation_date := l_model_rec.creation_date;
2273: END IF;
2274:
2275: -- created_by
2272: x_complete_rec.creation_date := l_model_rec.creation_date;
2273: END IF;
2274:
2275: -- created_by
2276: IF p_dm_model_rec.created_by = FND_API.g_miss_num THEN
2277: x_complete_rec.created_by := l_model_rec.created_by;
2278: END IF;
2279:
2280: -- last_update_login
2277: x_complete_rec.created_by := l_model_rec.created_by;
2278: END IF;
2279:
2280: -- last_update_login
2281: IF p_dm_model_rec.last_update_login = FND_API.g_miss_num THEN
2282: x_complete_rec.last_update_login := l_model_rec.last_update_login;
2283: END IF;
2284:
2285: -- org_id
2282: x_complete_rec.last_update_login := l_model_rec.last_update_login;
2283: END IF;
2284:
2285: -- org_id
2286: IF p_dm_model_rec.org_id = FND_API.g_miss_num THEN
2287: x_complete_rec.org_id := l_model_rec.org_id;
2288: END IF;
2289:
2290: -- object_version_number
2287: x_complete_rec.org_id := l_model_rec.org_id;
2288: END IF;
2289:
2290: -- object_version_number
2291: IF p_dm_model_rec.object_version_number = FND_API.g_miss_num THEN
2292: x_complete_rec.object_version_number := l_model_rec.object_version_number;
2293: END IF;
2294:
2295: -- model_type
2292: x_complete_rec.object_version_number := l_model_rec.object_version_number;
2293: END IF;
2294:
2295: -- model_type
2296: IF p_dm_model_rec.model_type = FND_API.g_miss_char THEN
2297: x_complete_rec.model_type := l_model_rec.model_type;
2298: END IF;
2299:
2300: -- user_status_id
2297: x_complete_rec.model_type := l_model_rec.model_type;
2298: END IF;
2299:
2300: -- user_status_id
2301: IF p_dm_model_rec.user_status_id = FND_API.g_miss_num THEN
2302: x_complete_rec.user_status_id := l_model_rec.user_status_id;
2303: END IF;
2304:
2305: -- status_code
2302: x_complete_rec.user_status_id := l_model_rec.user_status_id;
2303: END IF;
2304:
2305: -- status_code
2306: IF p_dm_model_rec.status_code = FND_API.g_miss_char THEN
2307: x_complete_rec.status_code := l_model_rec.status_code;
2308: END IF;
2309:
2310: -- status_date
2307: x_complete_rec.status_code := l_model_rec.status_code;
2308: END IF;
2309:
2310: -- status_date
2311: IF p_dm_model_rec.status_date = FND_API.g_miss_date THEN
2312: x_complete_rec.status_date := l_model_rec.status_date;
2313: END IF;
2314:
2315: -- owner_user_id
2312: x_complete_rec.status_date := l_model_rec.status_date;
2313: END IF;
2314:
2315: -- owner_user_id
2316: IF p_dm_model_rec.owner_user_id = FND_API.g_miss_num THEN
2317: x_complete_rec.owner_user_id := l_model_rec.owner_user_id;
2318: END IF;
2319:
2320: -- last_build_date
2317: x_complete_rec.owner_user_id := l_model_rec.owner_user_id;
2318: END IF;
2319:
2320: -- last_build_date
2321: IF p_dm_model_rec.last_build_date = FND_API.g_miss_date THEN
2322: x_complete_rec.last_build_date := l_model_rec.last_build_date;
2323: END IF;
2324:
2325: -- scheduled_date
2322: x_complete_rec.last_build_date := l_model_rec.last_build_date;
2323: END IF;
2324:
2325: -- scheduled_date
2326: IF p_dm_model_rec.scheduled_date = FND_API.g_miss_date THEN
2327: x_complete_rec.scheduled_date := l_model_rec.scheduled_date;
2328: END IF;
2329:
2330: -- scheduled_timezone_id
2327: x_complete_rec.scheduled_date := l_model_rec.scheduled_date;
2328: END IF;
2329:
2330: -- scheduled_timezone_id
2331: IF p_dm_model_rec.scheduled_timezone_id = FND_API.g_miss_num THEN
2332: x_complete_rec.scheduled_timezone_id := l_model_rec.scheduled_timezone_id;
2333: END IF;
2334:
2335: -- expiration_date
2332: x_complete_rec.scheduled_timezone_id := l_model_rec.scheduled_timezone_id;
2333: END IF;
2334:
2335: -- expiration_date
2336: IF p_dm_model_rec.expiration_date = FND_API.g_miss_date THEN
2337: x_complete_rec.expiration_date := l_model_rec.expiration_date;
2338: END IF;
2339:
2340: -- results_flag
2337: x_complete_rec.expiration_date := l_model_rec.expiration_date;
2338: END IF;
2339:
2340: -- results_flag
2341: IF p_dm_model_rec.results_flag = FND_API.g_miss_char THEN
2342: x_complete_rec.results_flag := l_model_rec.results_flag;
2343: END IF;
2344:
2345: -- logs_flag
2342: x_complete_rec.results_flag := l_model_rec.results_flag;
2343: END IF;
2344:
2345: -- logs_flag
2346: IF p_dm_model_rec.logs_flag = FND_API.g_miss_char THEN
2347: x_complete_rec.logs_flag := l_model_rec.logs_flag;
2348: END IF;
2349:
2350: -- target_field
2347: x_complete_rec.logs_flag := l_model_rec.logs_flag;
2348: END IF;
2349:
2350: -- target_field
2351: IF p_dm_model_rec.target_field = FND_API.g_miss_char THEN
2352: x_complete_rec.target_field := l_model_rec.target_field;
2353: END IF;
2354:
2355: -- target_type
2352: x_complete_rec.target_field := l_model_rec.target_field;
2353: END IF;
2354:
2355: -- target_type
2356: IF p_dm_model_rec.target_type = FND_API.g_miss_char THEN
2357: x_complete_rec.target_type := l_model_rec.target_type;
2358: END IF;
2359:
2360: -- target_positive_value
2357: x_complete_rec.target_type := l_model_rec.target_type;
2358: END IF;
2359:
2360: -- target_positive_value
2361: IF p_dm_model_rec.target_positive_value = FND_API.g_miss_char THEN
2362: x_complete_rec.target_positive_value := l_model_rec.target_positive_value;
2363: END IF;
2364:
2365: -- total_records
2362: x_complete_rec.target_positive_value := l_model_rec.target_positive_value;
2363: END IF;
2364:
2365: -- total_records
2366: IF p_dm_model_rec.total_records = FND_API.g_miss_num THEN
2367: x_complete_rec.total_records := l_model_rec.total_records;
2368: END IF;
2369:
2370: -- total_positives
2367: x_complete_rec.total_records := l_model_rec.total_records;
2368: END IF;
2369:
2370: -- total_positives
2371: IF p_dm_model_rec.total_positives = FND_API.g_miss_num THEN
2372: x_complete_rec.total_positives := l_model_rec.total_positives;
2373: END IF;
2374:
2375: -- min_records
2372: x_complete_rec.total_positives := l_model_rec.total_positives;
2373: END IF;
2374:
2375: -- min_records
2376: IF p_dm_model_rec.min_records = FND_API.g_miss_num THEN
2377: x_complete_rec.min_records := l_model_rec.min_records;
2378: END IF;
2379:
2380: -- max_records
2377: x_complete_rec.min_records := l_model_rec.min_records;
2378: END IF;
2379:
2380: -- max_records
2381: IF p_dm_model_rec.max_records = FND_API.g_miss_num THEN
2382: x_complete_rec.max_records := l_model_rec.max_records;
2383: END IF;
2384:
2385: -- row_selection_type
2382: x_complete_rec.max_records := l_model_rec.max_records;
2383: END IF;
2384:
2385: -- row_selection_type
2386: IF p_dm_model_rec.row_selection_type = FND_API.g_miss_char THEN
2387: x_complete_rec.row_selection_type := l_model_rec.row_selection_type;
2388: END IF;
2389:
2390: -- every_nth_row
2387: x_complete_rec.row_selection_type := l_model_rec.row_selection_type;
2388: END IF;
2389:
2390: -- every_nth_row
2391: IF p_dm_model_rec.every_nth_row = FND_API.g_miss_num THEN
2392: x_complete_rec.every_nth_row := l_model_rec.every_nth_row;
2393: END IF;
2394:
2395: -- pct_random
2392: x_complete_rec.every_nth_row := l_model_rec.every_nth_row;
2393: END IF;
2394:
2395: -- pct_random
2396: IF p_dm_model_rec.pct_random = FND_API.g_miss_num THEN
2397: x_complete_rec.pct_random := l_model_rec.pct_random;
2398: END IF;
2399:
2400: -- performance
2397: x_complete_rec.pct_random := l_model_rec.pct_random;
2398: END IF;
2399:
2400: -- performance
2401: IF p_dm_model_rec.performance = FND_API.g_miss_num THEN
2402: x_complete_rec.performance := l_model_rec.performance;
2403: END IF;
2404:
2405: -- target_group_type
2402: x_complete_rec.performance := l_model_rec.performance;
2403: END IF;
2404:
2405: -- target_group_type
2406: IF p_dm_model_rec.target_group_type = FND_API.g_miss_char THEN
2407: x_complete_rec.target_group_type := l_model_rec.target_group_type;
2408: END IF;
2409:
2410: -- darwin_model_ref
2407: x_complete_rec.target_group_type := l_model_rec.target_group_type;
2408: END IF;
2409:
2410: -- darwin_model_ref
2411: IF p_dm_model_rec.darwin_model_ref = FND_API.g_miss_char THEN
2412: x_complete_rec.darwin_model_ref := l_model_rec.darwin_model_ref;
2413: END IF;
2414:
2415: -- attribute_category
2412: x_complete_rec.darwin_model_ref := l_model_rec.darwin_model_ref;
2413: END IF;
2414:
2415: -- attribute_category
2416: IF p_dm_model_rec.attribute_category = FND_API.g_miss_char THEN
2417: x_complete_rec.attribute_category := l_model_rec.attribute_category;
2418: END IF;
2419:
2420: -- attribute1
2417: x_complete_rec.attribute_category := l_model_rec.attribute_category;
2418: END IF;
2419:
2420: -- attribute1
2421: IF p_dm_model_rec.attribute1 = FND_API.g_miss_char THEN
2422: x_complete_rec.attribute1 := l_model_rec.attribute1;
2423: END IF;
2424:
2425: -- attribute2
2422: x_complete_rec.attribute1 := l_model_rec.attribute1;
2423: END IF;
2424:
2425: -- attribute2
2426: IF p_dm_model_rec.attribute2 = FND_API.g_miss_char THEN
2427: x_complete_rec.attribute2 := l_model_rec.attribute2;
2428: END IF;
2429:
2430: -- attribute3
2427: x_complete_rec.attribute2 := l_model_rec.attribute2;
2428: END IF;
2429:
2430: -- attribute3
2431: IF p_dm_model_rec.attribute3 = FND_API.g_miss_char THEN
2432: x_complete_rec.attribute3 := l_model_rec.attribute3;
2433: END IF;
2434:
2435: -- attribute4
2432: x_complete_rec.attribute3 := l_model_rec.attribute3;
2433: END IF;
2434:
2435: -- attribute4
2436: IF p_dm_model_rec.attribute4 = FND_API.g_miss_char THEN
2437: x_complete_rec.attribute4 := l_model_rec.attribute4;
2438: END IF;
2439:
2440: -- attribute5
2437: x_complete_rec.attribute4 := l_model_rec.attribute4;
2438: END IF;
2439:
2440: -- attribute5
2441: IF p_dm_model_rec.attribute5 = FND_API.g_miss_char THEN
2442: x_complete_rec.attribute5 := l_model_rec.attribute5;
2443: END IF;
2444:
2445: -- attribute6
2442: x_complete_rec.attribute5 := l_model_rec.attribute5;
2443: END IF;
2444:
2445: -- attribute6
2446: IF p_dm_model_rec.attribute6 = FND_API.g_miss_char THEN
2447: x_complete_rec.attribute6 := l_model_rec.attribute6;
2448: END IF;
2449:
2450: -- attribute7
2447: x_complete_rec.attribute6 := l_model_rec.attribute6;
2448: END IF;
2449:
2450: -- attribute7
2451: IF p_dm_model_rec.attribute7 = FND_API.g_miss_char THEN
2452: x_complete_rec.attribute7 := l_model_rec.attribute7;
2453: END IF;
2454:
2455: -- attribute8
2452: x_complete_rec.attribute7 := l_model_rec.attribute7;
2453: END IF;
2454:
2455: -- attribute8
2456: IF p_dm_model_rec.attribute8 = FND_API.g_miss_char THEN
2457: x_complete_rec.attribute8 := l_model_rec.attribute8;
2458: END IF;
2459:
2460: -- attribute9
2457: x_complete_rec.attribute8 := l_model_rec.attribute8;
2458: END IF;
2459:
2460: -- attribute9
2461: IF p_dm_model_rec.attribute9 = FND_API.g_miss_char THEN
2462: x_complete_rec.attribute9 := l_model_rec.attribute9;
2463: END IF;
2464:
2465: -- attribute10
2462: x_complete_rec.attribute9 := l_model_rec.attribute9;
2463: END IF;
2464:
2465: -- attribute10
2466: IF p_dm_model_rec.attribute10 = FND_API.g_miss_char THEN
2467: x_complete_rec.attribute10 := l_model_rec.attribute10;
2468: END IF;
2469:
2470: -- attribute11
2467: x_complete_rec.attribute10 := l_model_rec.attribute10;
2468: END IF;
2469:
2470: -- attribute11
2471: IF p_dm_model_rec.attribute11 = FND_API.g_miss_char THEN
2472: x_complete_rec.attribute11 := l_model_rec.attribute11;
2473: END IF;
2474:
2475: -- attribute12
2472: x_complete_rec.attribute11 := l_model_rec.attribute11;
2473: END IF;
2474:
2475: -- attribute12
2476: IF p_dm_model_rec.attribute12 = FND_API.g_miss_char THEN
2477: x_complete_rec.attribute12 := l_model_rec.attribute12;
2478: END IF;
2479:
2480: -- attribute13
2477: x_complete_rec.attribute12 := l_model_rec.attribute12;
2478: END IF;
2479:
2480: -- attribute13
2481: IF p_dm_model_rec.attribute13 = FND_API.g_miss_char THEN
2482: x_complete_rec.attribute13 := l_model_rec.attribute13;
2483: END IF;
2484:
2485: -- attribute14
2482: x_complete_rec.attribute13 := l_model_rec.attribute13;
2483: END IF;
2484:
2485: -- attribute14
2486: IF p_dm_model_rec.attribute14 = FND_API.g_miss_char THEN
2487: x_complete_rec.attribute14 := l_model_rec.attribute14;
2488: END IF;
2489:
2490: -- attribute15
2487: x_complete_rec.attribute14 := l_model_rec.attribute14;
2488: END IF;
2489:
2490: -- attribute15
2491: IF p_dm_model_rec.attribute15 = FND_API.g_miss_char THEN
2492: x_complete_rec.attribute15 := l_model_rec.attribute15;
2493: END IF;
2494:
2495: -- best_subtree
2492: x_complete_rec.attribute15 := l_model_rec.attribute15;
2493: END IF;
2494:
2495: -- best_subtree
2496: IF p_dm_model_rec.best_subtree = FND_API.g_miss_num THEN
2497: x_complete_rec.best_subtree := l_model_rec.best_subtree;
2498: END IF;
2499:
2500: -- custom_setup_id
2497: x_complete_rec.best_subtree := l_model_rec.best_subtree;
2498: END IF;
2499:
2500: -- custom_setup_id
2501: IF p_dm_model_rec.custom_setup_id = FND_API.g_miss_num THEN
2502: x_complete_rec.custom_setup_id := l_model_rec.custom_setup_id;
2503: END IF;
2504:
2505: -- country_id
2502: x_complete_rec.custom_setup_id := l_model_rec.custom_setup_id;
2503: END IF;
2504:
2505: -- country_id
2506: IF p_dm_model_rec.country_id = FND_API.g_miss_num THEN
2507: x_complete_rec.country_id := l_model_rec.country_id;
2508: END IF;
2509:
2510: -- wf_itemkey
2507: x_complete_rec.country_id := l_model_rec.country_id;
2508: END IF;
2509:
2510: -- wf_itemkey
2511: IF p_dm_model_rec.wf_itemkey = FND_API.g_miss_char THEN
2512: x_complete_rec.wf_itemkey := l_model_rec.wf_itemkey;
2513: END IF;
2514:
2515: -- target_id
2512: x_complete_rec.wf_itemkey := l_model_rec.wf_itemkey;
2513: END IF;
2514:
2515: -- target_id
2516: IF p_dm_model_rec.target_id = FND_API.g_miss_num THEN
2517: x_complete_rec.target_id := l_model_rec.target_id;
2518: END IF;
2519:
2520: END Complete_dm_model_rec;
2527: -- 21-Feb-2001 choang Added p_validation_mode to validate_rec callout.
2528: -------------------------------------------------------------------------------------
2529: PROCEDURE Validate_dm_model(
2530: p_api_version_number IN NUMBER,
2531: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2532: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2533: p_validation_mode IN VARCHAR2,
2534: p_dm_model_rec IN DM_MODEL_Rec_Type,
2535: x_return_status OUT NOCOPY VARCHAR2,
2528: -------------------------------------------------------------------------------------
2529: PROCEDURE Validate_dm_model(
2530: p_api_version_number IN NUMBER,
2531: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2532: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2533: p_validation_mode IN VARCHAR2,
2534: p_dm_model_rec IN DM_MODEL_Rec_Type,
2535: x_return_status OUT NOCOPY VARCHAR2,
2536: x_msg_count OUT NOCOPY NUMBER,
2550:
2551: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
2552: END IF;
2553: -- Initialize API return status to SUCCESS
2554: x_return_status := FND_API.G_RET_STS_SUCCESS;
2555:
2556: -- Standard call to check for call compatibility.
2557: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2558: p_api_version_number,
2553: -- Initialize API return status to SUCCESS
2554: x_return_status := FND_API.G_RET_STS_SUCCESS;
2555:
2556: -- Standard call to check for call compatibility.
2557: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2558: p_api_version_number,
2559: l_api_name,
2560: g_pkg_name)
2561: THEN
2558: p_api_version_number,
2559: l_api_name,
2560: g_pkg_name)
2561: THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564:
2565: -- Initialize message list if p_init_msg_list is set to TRUE.
2566: IF FND_API.to_Boolean( p_init_msg_list )
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564:
2565: -- Initialize message list if p_init_msg_list is set to TRUE.
2566: IF FND_API.to_Boolean( p_init_msg_list )
2567: THEN
2568: FND_MSG_PUB.initialize;
2569: END IF;
2570: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2575: Check_dm_model_items(
2576: p_dm_model_rec => p_dm_model_rec,
2577: p_validation_mode => p_validation_mode,
2578: x_return_status => x_return_status);
2579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2583: END IF;
2576: p_dm_model_rec => p_dm_model_rec,
2577: p_validation_mode => p_validation_mode,
2578: x_return_status => x_return_status);
2579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2583: END IF;
2584: END IF;
2577: p_validation_mode => p_validation_mode,
2578: x_return_status => x_return_status);
2579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2583: END IF;
2584: END IF;
2585:
2578: x_return_status => x_return_status);
2579: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2583: END IF;
2584: END IF;
2585:
2586: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2585:
2586: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2587: Validate_dm_model_rec (
2588: p_api_version_number => 1.0,
2589: p_init_msg_list => fnd_api.g_false,
2590: p_validation_mode => p_validation_mode,
2591: x_return_status => x_return_status,
2592: x_msg_count => x_msg_count,
2593: x_msg_data => x_msg_data,
2591: x_return_status => x_return_status,
2592: x_msg_count => x_msg_count,
2593: x_msg_data => x_msg_data,
2594: p_dm_model_rec => p_dm_model_rec);
2595: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2596: RAISE FND_API.G_EXC_ERROR;
2597: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2599: END IF;
2592: x_msg_count => x_msg_count,
2593: x_msg_data => x_msg_data,
2594: p_dm_model_rec => p_dm_model_rec);
2595: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2596: RAISE FND_API.G_EXC_ERROR;
2597: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2599: END IF;
2600: END IF;
2593: x_msg_data => x_msg_data,
2594: p_dm_model_rec => p_dm_model_rec);
2595: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2596: RAISE FND_API.G_EXC_ERROR;
2597: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2599: END IF;
2600: END IF;
2601:
2594: p_dm_model_rec => p_dm_model_rec);
2595: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2596: RAISE FND_API.G_EXC_ERROR;
2597: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2599: END IF;
2600: END IF;
2601:
2602:
2612: p_data => x_msg_data
2613: );
2614: EXCEPTION
2615: WHEN AMS_Utility_PVT.resource_locked THEN
2616: x_return_status := FND_API.g_ret_sts_error;
2617: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2618: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2619: FND_MSG_PUB.add;
2620: END IF;
2617: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2618: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2619: FND_MSG_PUB.add;
2620: END IF;
2621: WHEN FND_API.G_EXC_ERROR THEN
2622: ROLLBACK TO VALIDATE_DM_MODEL;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: -- Standard call to get message count and if count=1, get the message
2625: FND_MSG_PUB.Count_And_Get (
2619: FND_MSG_PUB.add;
2620: END IF;
2621: WHEN FND_API.G_EXC_ERROR THEN
2622: ROLLBACK TO VALIDATE_DM_MODEL;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: -- Standard call to get message count and if count=1, get the message
2625: FND_MSG_PUB.Count_And_Get (
2626: p_encoded => FND_API.G_FALSE,
2627: p_count => x_msg_count,
2622: ROLLBACK TO VALIDATE_DM_MODEL;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: -- Standard call to get message count and if count=1, get the message
2625: FND_MSG_PUB.Count_And_Get (
2626: p_encoded => FND_API.G_FALSE,
2627: p_count => x_msg_count,
2628: p_data => x_msg_data
2629: );
2630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2626: p_encoded => FND_API.G_FALSE,
2627: p_count => x_msg_count,
2628: p_data => x_msg_data
2629: );
2630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2631: ROLLBACK TO VALIDATE_DM_MODEL;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: -- Standard call to get message count and if count=1, get the message
2634: FND_MSG_PUB.Count_And_Get (
2628: p_data => x_msg_data
2629: );
2630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2631: ROLLBACK TO VALIDATE_DM_MODEL;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: -- Standard call to get message count and if count=1, get the message
2634: FND_MSG_PUB.Count_And_Get (
2635: p_encoded => FND_API.G_FALSE,
2636: p_count => x_msg_count,
2631: ROLLBACK TO VALIDATE_DM_MODEL;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: -- Standard call to get message count and if count=1, get the message
2634: FND_MSG_PUB.Count_And_Get (
2635: p_encoded => FND_API.G_FALSE,
2636: p_count => x_msg_count,
2637: p_data => x_msg_data
2638: );
2639: WHEN OTHERS THEN
2637: p_data => x_msg_data
2638: );
2639: WHEN OTHERS THEN
2640: ROLLBACK TO VALIDATE_DM_MODEL;
2641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2642: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2643: THEN
2644: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2645: END IF;
2644: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2645: END IF;
2646: -- Standard call to get message count and if count=1, get the message
2647: FND_MSG_PUB.Count_And_Get (
2648: p_encoded => FND_API.G_FALSE,
2649: p_count => x_msg_count,
2650: p_data => x_msg_data
2651: );
2652: End Validate_dm_model;
2667: -- user id of the currently logged in user.
2668: l_owner_user_id NUMBER := AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id);
2669: BEGIN
2670: -- Initialize API return status to SUCCESS
2671: x_return_status := FND_API.G_RET_STS_SUCCESS;
2672:
2673: --IF (AMS_DEBUG_HIGH_ON) THENams_utility_pvt.debug_message ('qualifier: ' || l_model_qualifier || ' id: ' || p_model_rec.model_id || ' resource: ' || l_owner_user_id);END IF;
2674: -- validate access privileges
2675: IF AMS_Access_PVT.check_update_access (
2677: p_object_type => L_MODEL_QUALIFIER,
2678: p_user_or_role_id => l_owner_user_id,
2679: p_user_or_role_type => L_ACCESS_TYPE_USER) = 'N' THEN
2680: AMS_Utility_PVT.error_message ('AMS_MODEL_NO_UPDATE_ACCESS');
2681: x_return_status := FND_API.G_RET_STS_ERROR;
2682: END IF;
2683: END check_access;
2684:
2685:
2747: IS
2748: l_user_status_id VARCHAR2(30);
2749: BEGIN
2750: -- Initialize API return status to SUCCESS
2751: x_return_status := FND_API.G_RET_STS_SUCCESS;
2752:
2753: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, p_status_code);
2754: FETCH c_user_status_id INTO l_user_status_id;
2755: CLOSE c_user_status_id;
2780: IS
2781: l_user_status_id NUMBER;
2782: BEGIN
2783: -- Initialize API return status to SUCCESS
2784: x_return_status := FND_API.G_RET_STS_SUCCESS;
2785:
2786: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, G_MODEL_STATUS_AVAILABLE);
2787: FETCH c_user_status_id INTO l_user_status_id;
2788: CLOSE c_user_status_id;
2806: IS
2807: l_user_status_id NUMBER;
2808: BEGIN
2809: -- Initialize API return status to SUCCESS
2810: x_return_status := FND_API.G_RET_STS_SUCCESS;
2811:
2812: OPEN c_user_status_id (G_MODEL_STATUS_TYPE, p_status_code);
2813: FETCH c_user_status_id INTO l_user_status_id;
2814: CLOSE c_user_status_id;
2868: p_msg_data => L_API_NAME || ': begin '
2869: );
2870:
2871: -- Initialize API return status to SUCCESS
2872: x_return_status := FND_API.G_RET_STS_SUCCESS;
2873:
2874: -- Load the model record to get the original status and wf_itemkey
2875: OPEN c_ref_model (p_model_id);
2876: FETCH c_ref_model INTO l_ref_model_rec;
2895: x_return_status => x_return_status
2896: );
2897:
2898:
2899: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2900: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2901: -- Report that an error occurred, but ifgnore it and proceed with re-setting
2902: -- the Model status.
2903: AMS_Utility_PVT.create_log (
2896: );
2897:
2898:
2899: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2900: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2901: -- Report that an error occurred, but ifgnore it and proceed with re-setting
2902: -- the Model status.
2903: AMS_Utility_PVT.create_log (
2904: x_return_status => l_return_status,
2906: p_log_used_by_id => p_model_id,
2907: p_msg_data => L_API_NAME || ': Error while canceling Model Build '
2908: );
2909:
2910: --RAISE FND_API.G_EXC_ERROR;
2911: ELSE
2912: AMS_Utility_PVT.create_log (
2913: x_return_status => l_return_status,
2914: p_arc_log_used_by => G_OBJECT_TYPE_MODEL,
2961: ELSE
2962: -- No Build Request/Process to cancel
2963: -- Set x_return_status to expected error. This will results in a different message
2964: -- displayed to the user
2965: x_return_status := FND_API.G_RET_STS_ERROR;
2966: AMS_Utility_PVT.create_log (
2967: x_return_status => l_return_status,
2968: p_arc_log_used_by => G_OBJECT_TYPE_MODEL,
2969: p_log_used_by_id => p_model_id,
2973: ELSE
2974: -- No Build Request/Process to cancel
2975: -- Set x_return_status to expected error. This will results in a different message
2976: -- displayed to the user
2977: x_return_status := FND_API.G_RET_STS_ERROR;
2978: AMS_Utility_PVT.create_log (
2979: x_return_status => l_return_status,
2980: p_arc_log_used_by => G_OBJECT_TYPE_MODEL,
2981: p_log_used_by_id => p_model_id,
3042: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Start');
3043: END IF;
3044:
3045: -- Initialize API return status to SUCCESS
3046: x_return_status := FND_API.G_RET_STS_SUCCESS;
3047:
3048: -- Load the model record to get the original status
3049: OPEN c_ref_model (p_model_id);
3050: FETCH c_ref_model INTO l_ref_model_rec;
3087: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Cannot Proceed with Preview');
3088: END IF;
3089: -- Set x_return_status to expected error. This will results in a different message
3090: -- displayed to the user
3091: x_return_status := FND_API.G_RET_STS_ERROR;
3092: RETURN;
3093: END IF;
3094:
3095: dataToPreview (p_model_id, l_data_exists_flag);
3110: x_tar_model_rec => l_tar_model_rec,
3111: x_return_status => x_return_status
3112: );
3113:
3114: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3115: IF (AMS_DEBUG_HIGH_ON) THEN
3116:
3117: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Error from wf_startPreviewProcess');
3118: END IF;
3117: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Error from wf_startPreviewProcess');
3118: END IF;
3119: -- Set x_return_status to unexpected error. This will results in a different message
3120: -- displayed to the user
3121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3122: RAISE FND_API.G_EXC_ERROR;
3123: END IF;
3124:
3125: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
3118: END IF;
3119: -- Set x_return_status to unexpected error. This will results in a different message
3120: -- displayed to the user
3121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3122: RAISE FND_API.G_EXC_ERROR;
3123: END IF;
3124:
3125: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
3126: -- to be displayed on a custom confirmation message.
3194: -- 20-Apr-2001 sveerave Changed column names to be of application column names from db column names
3195: -- in get_column_value call-out.
3196: PROCEDURE copy_model (
3197: p_api_version IN NUMBER,
3198: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3199: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3200: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3201: x_return_status OUT NOCOPY VARCHAR2,
3202: x_msg_count OUT NOCOPY NUMBER,
3195: -- in get_column_value call-out.
3196: PROCEDURE copy_model (
3197: p_api_version IN NUMBER,
3198: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3199: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3200: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3201: x_return_status OUT NOCOPY VARCHAR2,
3202: x_msg_count OUT NOCOPY NUMBER,
3203: x_msg_data OUT NOCOPY VARCHAR2,
3196: PROCEDURE copy_model (
3197: p_api_version IN NUMBER,
3198: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3199: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3200: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3201: x_return_status OUT NOCOPY VARCHAR2,
3202: x_msg_count OUT NOCOPY NUMBER,
3203: x_msg_data OUT NOCOPY VARCHAR2,
3204: p_source_object_id IN NUMBER,
3241: -- Standard Start of API savepoint
3242: SAVEPOINT ams_model_pvt_copy_model;
3243:
3244: -- Standard call to check for call compatibility.
3245: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3246: p_api_version,
3247: l_api_name,
3248: G_PKG_NAME)
3249: THEN
3246: p_api_version,
3247: l_api_name,
3248: G_PKG_NAME)
3249: THEN
3250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3251: END IF;
3252:
3253: -- Initialize message list if p_init_msg_list is set to TRUE.
3254: IF FND_API.to_Boolean( p_init_msg_list )THEN
3250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3251: END IF;
3252:
3253: -- Initialize message list if p_init_msg_list is set to TRUE.
3254: IF FND_API.to_Boolean( p_init_msg_list )THEN
3255: FND_MSG_PUB.initialize;
3256: END IF;
3257:
3258: IF (AMS_DEBUG_HIGH_ON) THEN
3263:
3264: END IF;
3265:
3266: -- Initialize API return status to SUCCESS
3267: x_return_status := FND_API.G_RET_STS_SUCCESS;
3268:
3269: --
3270: -- Start of API body.
3271: --
3338: --end comment rosharma 04-sep-2003 bug # 3127555
3339:
3340: AMS_DM_Model_PVT.create_dm_model (
3341: p_api_version_number => 1.0,
3342: p_init_msg_list => FND_API.G_FALSE,
3343: p_commit => FND_API.G_FALSE,
3344: p_validation_level => p_validation_level,
3345: x_return_status => x_return_status,
3346: x_msg_count => x_msg_count,
3339:
3340: AMS_DM_Model_PVT.create_dm_model (
3341: p_api_version_number => 1.0,
3342: p_init_msg_list => FND_API.G_FALSE,
3343: p_commit => FND_API.G_FALSE,
3344: p_validation_level => p_validation_level,
3345: x_return_status => x_return_status,
3346: x_msg_count => x_msg_count,
3347: x_msg_data => x_msg_data,
3348: p_dm_model_rec => l_model_rec,
3349: x_custom_setup_id => l_custom_setup_id,
3350: x_model_id => l_new_model_id
3351: );
3352: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355:
3356: -- copy training data
3349: x_custom_setup_id => l_custom_setup_id,
3350: x_model_id => l_new_model_id
3351: );
3352: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355:
3356: -- copy training data
3357: IF AMS_CpyUtility_PVT.is_copy_attribute (AMS_CopyElements_PVT.G_ATTRIBUTE_TRNG, p_attributes_table) = FND_API.G_TRUE THEN
3353: RAISE FND_API.G_EXC_ERROR;
3354: END IF;
3355:
3356: -- copy training data
3357: IF AMS_CpyUtility_PVT.is_copy_attribute (AMS_CopyElements_PVT.G_ATTRIBUTE_TRNG, p_attributes_table) = FND_API.G_TRUE THEN
3358:
3359: -- fix for bug 4333415. Workbook has to be copied for custom model also
3360: AMS_CopyElements_PVT.copy_list_select_actions (
3361: p_api_version => 1.0,
3358:
3359: -- fix for bug 4333415. Workbook has to be copied for custom model also
3360: AMS_CopyElements_PVT.copy_list_select_actions (
3361: p_api_version => 1.0,
3362: p_init_msg_list => FND_API.G_FALSE,
3363: p_commit => FND_API.G_FALSE,
3364: x_return_status => x_return_status,
3365: x_msg_count => x_msg_count,
3366: x_msg_data => x_msg_data,
3359: -- fix for bug 4333415. Workbook has to be copied for custom model also
3360: AMS_CopyElements_PVT.copy_list_select_actions (
3361: p_api_version => 1.0,
3362: p_init_msg_list => FND_API.G_FALSE,
3363: p_commit => FND_API.G_FALSE,
3364: x_return_status => x_return_status,
3365: x_msg_count => x_msg_count,
3366: x_msg_data => x_msg_data,
3367: p_object_type => G_OBJECT_TYPE_MODEL,
3376: CLOSE c_data_source;
3377:
3378: AMS_Adv_Filter_PVT.copy_filter_data (
3379: p_api_version => 1.0,
3380: p_init_msg_list => FND_API.G_FALSE,
3381: p_commit => FND_API.G_FALSE,
3382: p_validation_level => p_validation_level,
3383: p_objType => G_OBJECT_TYPE_MODEL,
3384: p_old_objectId => p_source_object_id,
3377:
3378: AMS_Adv_Filter_PVT.copy_filter_data (
3379: p_api_version => 1.0,
3380: p_init_msg_list => FND_API.G_FALSE,
3381: p_commit => FND_API.G_FALSE,
3382: p_validation_level => p_validation_level,
3383: p_objType => G_OBJECT_TYPE_MODEL,
3384: p_old_objectId => p_source_object_id,
3385: p_new_objectId => l_new_model_id,
3405: p_errmsg => l_errmsg
3406: );
3407:
3408: IF (l_errnum <> 0) THEN
3409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3410: END IF;
3411: END IF;
3412: END IF;
3413: -- kbasavar end changes
3410: END IF;
3411: END IF;
3412: END IF;
3413: -- kbasavar end changes
3414: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3415: RAISE FND_API.G_EXC_ERROR;
3416: END IF;
3417: END IF;
3418:
3411: END IF;
3412: END IF;
3413: -- kbasavar end changes
3414: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3415: RAISE FND_API.G_EXC_ERROR;
3416: END IF;
3417: END IF;
3418:
3419: -- copy team
3416: END IF;
3417: END IF;
3418:
3419: -- copy team
3420: IF AMS_CpyUtility_PVT.is_copy_attribute (AMS_CopyElements_PVT.G_ATTRIBUTE_TEAM, p_attributes_table) = FND_API.G_TRUE THEN
3421: AMS_CopyElements_PVT.copy_act_access (
3422: p_src_act_type => G_OBJECT_TYPE_MODEL,
3423: p_new_act_type => G_OBJECT_TYPE_MODEL,
3424: p_src_act_id => p_source_object_id,
3441: -- End of API body.
3442: --
3443:
3444: -- Standard check for p_commit
3445: IF FND_API.to_Boolean( p_commit ) THEN
3446: COMMIT WORK;
3447: END IF;
3448:
3449:
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3461: EXCEPTION
3462: WHEN FND_API.G_EXC_ERROR THEN
3463: ROLLBACK TO ams_model_pvt_copy_model;
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: -- Standard call to get message count and if count=1, get the message
3466: FND_MSG_PUB.Count_And_Get (
3460: );
3461: EXCEPTION
3462: WHEN FND_API.G_EXC_ERROR THEN
3463: ROLLBACK TO ams_model_pvt_copy_model;
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: -- Standard call to get message count and if count=1, get the message
3466: FND_MSG_PUB.Count_And_Get (
3467: p_encoded => FND_API.G_FALSE,
3468: p_count => x_msg_count,
3463: ROLLBACK TO ams_model_pvt_copy_model;
3464: x_return_status := FND_API.G_RET_STS_ERROR;
3465: -- Standard call to get message count and if count=1, get the message
3466: FND_MSG_PUB.Count_And_Get (
3467: p_encoded => FND_API.G_FALSE,
3468: p_count => x_msg_count,
3469: p_data => x_msg_data
3470: );
3471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3467: p_encoded => FND_API.G_FALSE,
3468: p_count => x_msg_count,
3469: p_data => x_msg_data
3470: );
3471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3472: ROLLBACK TO ams_model_pvt_copy_model;
3473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3474: -- Standard call to get message count and if count=1, get the message
3475: FND_MSG_PUB.Count_And_Get (
3469: p_data => x_msg_data
3470: );
3471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3472: ROLLBACK TO ams_model_pvt_copy_model;
3473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3474: -- Standard call to get message count and if count=1, get the message
3475: FND_MSG_PUB.Count_And_Get (
3476: p_encoded => FND_API.G_FALSE,
3477: p_count => x_msg_count,
3472: ROLLBACK TO ams_model_pvt_copy_model;
3473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3474: -- Standard call to get message count and if count=1, get the message
3475: FND_MSG_PUB.Count_And_Get (
3476: p_encoded => FND_API.G_FALSE,
3477: p_count => x_msg_count,
3478: p_data => x_msg_data
3479: );
3480: WHEN OTHERS THEN
3478: p_data => x_msg_data
3479: );
3480: WHEN OTHERS THEN
3481: ROLLBACK TO ams_model_pvt_copy_model;
3482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3484: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3485: END IF;
3486: -- Standard call to get message count and if count=1, get the message
3484: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3485: END IF;
3486: -- Standard call to get message count and if count=1, get the message
3487: FND_MSG_PUB.Count_And_Get (
3488: p_encoded => FND_API.G_FALSE,
3489: p_count => x_msg_count,
3490: p_data => x_msg_data
3491: );
3492: END copy_model;
3502: IS
3503: l_user_status_id VARCHAR2(30);
3504: BEGIN
3505: -- Initialize API return status to SUCCESS
3506: x_return_status := FND_API.G_RET_STS_SUCCESS;
3507:
3508:
3509: -- When the Model status is BUILDING, then we cleanup previous
3510: -- Model results.
3543: x_return_status => x_return_status,
3544: x_user_time_id => x_tar_model_rec.scheduled_timezone_id,
3545: x_user_time_name => l_user_timezone_name
3546: );
3547: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3548: RAISE FND_API.G_EXC_ERROR;
3549: END IF;
3550: ELSE
3551: x_tar_model_rec.scheduled_timezone_id := p_scheduled_timezone_id;
3544: x_user_time_id => x_tar_model_rec.scheduled_timezone_id,
3545: x_user_time_name => l_user_timezone_name
3546: );
3547: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3548: RAISE FND_API.G_EXC_ERROR;
3549: END IF;
3550: ELSE
3551: x_tar_model_rec.scheduled_timezone_id := p_scheduled_timezone_id;
3552: END IF;
3576: x_itemkey => x_tar_model_rec.wf_itemkey
3577: );
3578:
3579: IF x_tar_model_rec.wf_itemkey IS NULL THEN
3580: x_return_status := FND_API.g_ret_sts_error;
3581: END IF;
3582:
3583: END wf_startprocess;
3584:
3606: x_return_status => x_return_status,
3607: x_sys_time_id => x_tar_model_rec.scheduled_timezone_id,
3608: x_sys_time_name => l_user_timezone_name
3609: );
3610: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3611: AMS_UTILITY_PVT.debug_message(' Error in get_user_timezone.');
3612: RAISE FND_API.G_EXC_ERROR;
3613: END IF;
3614:
3608: x_sys_time_name => l_user_timezone_name
3609: );
3610: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3611: AMS_UTILITY_PVT.debug_message(' Error in get_user_timezone.');
3612: RAISE FND_API.G_EXC_ERROR;
3613: END IF;
3614:
3615: -- When we submit a Preview request, we clean up all the previous
3616: -- Model results since we assume that the data selections may have
3641: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' End');
3642: END IF;
3643:
3644: IF x_tar_model_rec.wf_itemkey IS NULL THEN
3645: x_return_status := FND_API.g_ret_sts_error;
3646: --RAISE FND_API.G_EXC_ERROR;
3647: END IF;
3648:
3649:
3642: END IF;
3643:
3644: IF x_tar_model_rec.wf_itemkey IS NULL THEN
3645: x_return_status := FND_API.g_ret_sts_error;
3646: --RAISE FND_API.G_EXC_ERROR;
3647: END IF;
3648:
3649:
3650: END wf_startPreviewProcess;