108: G_SEEDED_ID_THRESHOLD CONSTANT NUMBER := 10000;
109: --end changes rosharma 20-aug-2003 bug 3104201
110:
111: /***
112: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
113: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
114: ***/
115:
116: -- global cursors
109: --end changes rosharma 20-aug-2003 bug 3104201
110:
111: /***
112: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
113: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
114: ***/
115:
116: -- global cursors
117: CURSOR c_user_status_id (p_status_type IN VARCHAR2, p_status_code IN VARCHAR2) IS
476:
477: -- ******************************************************************
478: -- Validate Environment
479: -- ******************************************************************
480: IF FND_GLOBAL.User_Id IS NULL THEN
481: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
482: FND_MESSAGE.Set_Name('AMS', 'USER_PROFILE_MISSING');
483: FND_MSG_PUB.ADD;
484: END IF;
581: -- Invoke table handler(AMS_DM_scoreS_B_PKG.Insert_Row)
582: AMS_DM_scoreS_B_PKG.Insert_Row(
583: p_score_id => l_score_rec.score_ID,
584: p_last_update_date => SYSDATE,
585: p_last_updated_by => FND_GLOBAL.USER_ID,
586: p_creation_date => SYSDATE,
587: p_created_by => FND_GLOBAL.USER_ID,
588: p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
589: p_object_version_number => l_object_version_number,
583: p_score_id => l_score_rec.score_ID,
584: p_last_update_date => SYSDATE,
585: p_last_updated_by => FND_GLOBAL.USER_ID,
586: p_creation_date => SYSDATE,
587: p_created_by => FND_GLOBAL.USER_ID,
588: p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
589: p_object_version_number => l_object_version_number,
590: p_model_id => l_score_rec.model_id,
591: p_user_status_id => l_score_rec.user_status_id,
584: p_last_update_date => SYSDATE,
585: p_last_updated_by => FND_GLOBAL.USER_ID,
586: p_creation_date => SYSDATE,
587: p_created_by => FND_GLOBAL.USER_ID,
588: p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
589: p_object_version_number => l_object_version_number,
590: p_model_id => l_score_rec.model_id,
591: p_user_status_id => l_score_rec.user_status_id,
592: p_status_code => l_score_rec.status_code,
1235: -- Invoke table handler(AMS_DM_scoreS_B_PKG.Update_Row)
1236: AMS_DM_scoreS_B_PKG.Update_Row(
1237: p_score_ID => l_tar_score_rec.score_id,
1238: p_LAST_UPDATE_DATE => SYSDATE,
1239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1240: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1241: p_OBJECT_VERSION_NUMBER => l_tar_score_rec.OBJECT_VERSION_NUMBER,
1242: p_MODEL_ID => l_tar_score_rec.MODEL_ID,
1243: p_USER_STATUS_ID => l_tar_score_rec.USER_STATUS_ID,
1236: AMS_DM_scoreS_B_PKG.Update_Row(
1237: p_score_ID => l_tar_score_rec.score_id,
1238: p_LAST_UPDATE_DATE => SYSDATE,
1239: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1240: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1241: p_OBJECT_VERSION_NUMBER => l_tar_score_rec.OBJECT_VERSION_NUMBER,
1242: p_MODEL_ID => l_tar_score_rec.MODEL_ID,
1243: p_USER_STATUS_ID => l_tar_score_rec.USER_STATUS_ID,
1244: p_STATUS_CODE => l_tar_score_rec.status_code,
2269: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2270: END IF;
2271:
2272: IF p_validation_mode = JTF_PLSQL_API.g_update THEN
2273: l_context_resource_id := AMS_Utility_PVT.get_resource_id(FND_GLOBAL.user_id);
2274:
2275: OPEN c_reference(p_score_rec.score_id);
2276: FETCH c_reference INTO l_reference_rec;
2277: CLOSE c_reference;
2394: IF (AMS_DEBUG_HIGH_ON) THEN
2395:
2396:
2397:
2398: ams_utility_pvt.debug_message ('score id: ' || p_score_rec.score_id || ' owner: ' || fnd_global.user_id);
2399:
2400: END IF;
2401: -- validate access privileges
2402: IF AMS_Access_PVT.check_update_access (
2401: -- validate access privileges
2402: IF AMS_Access_PVT.check_update_access (
2403: p_object_id => p_score_rec.score_id,
2404: p_object_type => G_OBJECT_TYPE_SCORE,
2405: p_user_or_role_id => AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id),
2406: p_user_or_role_type => L_ACCESS_TYPE_USER) = 'N' THEN
2407: AMS_Utility_PVT.error_message ('AMS_SCOR_NO_UPDATE_ACCESS');
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: END IF;
2445: CLOSE c_user_status_id;
2446:
2447: UPDATE ams_dm_models_all_b
2448: SET last_update_date = SYSDATE
2449: , last_updated_by = FND_GLOBAL.user_id
2450: , last_update_login = FND_GLOBAL.conc_login_id
2451: , object_version_number = object_version_number + 1
2452: , status_code = G_STATUS_AVAILABLE
2453: , user_status_id = l_model_status_id
2446:
2447: UPDATE ams_dm_models_all_b
2448: SET last_update_date = SYSDATE
2449: , last_updated_by = FND_GLOBAL.user_id
2450: , last_update_login = FND_GLOBAL.conc_login_id
2451: , object_version_number = object_version_number + 1
2452: , status_code = G_STATUS_AVAILABLE
2453: , user_status_id = l_model_status_id
2454: , status_date = SYSDATE
2461: CLOSE c_user_status_id;
2462:
2463: UPDATE ams_dm_scores_all_b
2464: SET last_update_date = SYSDATE
2465: , last_updated_by = FND_GLOBAL.user_id
2466: , last_update_login = FND_GLOBAL.conc_login_id
2467: , object_version_number = object_version_number + 1
2468: , status_code = p_status_code
2469: , user_status_id = l_user_status_id
2462:
2463: UPDATE ams_dm_scores_all_b
2464: SET last_update_date = SYSDATE
2465: , last_updated_by = FND_GLOBAL.user_id
2466: , last_update_login = FND_GLOBAL.conc_login_id
2467: , object_version_number = object_version_number + 1
2468: , status_code = p_status_code
2469: , user_status_id = l_user_status_id
2470: , status_date = SYSDATE
2507: CLOSE c_user_status_id;
2508:
2509: UPDATE ams_dm_models_all_b
2510: SET last_update_date = SYSDATE
2511: , last_updated_by = FND_GLOBAL.user_id
2512: , last_update_login = FND_GLOBAL.conc_login_id
2513: , object_version_number = object_version_number + 1
2514: , status_code = G_STATUS_AVAILABLE
2515: , user_status_id = l_model_status_id
2508:
2509: UPDATE ams_dm_models_all_b
2510: SET last_update_date = SYSDATE
2511: , last_updated_by = FND_GLOBAL.user_id
2512: , last_update_login = FND_GLOBAL.conc_login_id
2513: , object_version_number = object_version_number + 1
2514: , status_code = G_STATUS_AVAILABLE
2515: , user_status_id = l_model_status_id
2516: , status_date = SYSDATE
2524:
2525: UPDATE ams_dm_scores_all_b
2526: SET object_version_number = object_version_number + 1
2527: , last_update_date = SYSDATE
2528: , last_updated_by = FND_GLOBAL.user_id
2529: , status_date = SYSDATE
2530: , status_code = p_status_code
2531: , user_status_id = l_user_status_id
2532: , score_date = SYSDATE
2548: )
2549: IS
2550: L_SCORE_QUALIFIER CONSTANT VARCHAR2(30) := 'SCOR';
2551: L_ACCESS_TYPE_USER CONSTANT VARCHAR2(30) := 'USER';
2552: l_owner_user_id NUMBER := AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id);
2553:
2554: l_proceedWithPreviewFlag VARCHAR2(1);
2555: l_data_exists_flag VARCHAR2(1);
2556: l_target_id NUMBER;
2670: UPDATE ams_dm_scores_all_b
2671: SET logs_flag = 'Y',
2672: object_version_number = object_version_number + 1,
2673: last_update_date = SYSDATE,
2674: last_updated_by = FND_GLOBAL.user_id,
2675: status_date = SYSDATE,
2676: status_code = l_tar_score_rec.status_code,
2677: user_status_id = l_tar_score_rec.user_status_id,
2678: wf_itemkey = l_tar_score_rec.wf_itemkey
3062: CLOSE c_user_status_id;
3063:
3064: UPDATE ams_dm_models_all_b
3065: SET last_update_date = SYSDATE
3066: , last_updated_by = FND_GLOBAL.user_id
3067: , last_update_login = FND_GLOBAL.conc_login_id
3068: , object_version_number = object_version_number + 1
3069: , status_code = G_STATUS_SCORING
3070: , user_status_id = l_model_status_id
3063:
3064: UPDATE ams_dm_models_all_b
3065: SET last_update_date = SYSDATE
3066: , last_updated_by = FND_GLOBAL.user_id
3067: , last_update_login = FND_GLOBAL.conc_login_id
3068: , object_version_number = object_version_number + 1
3069: , status_code = G_STATUS_SCORING
3070: , user_status_id = l_model_status_id
3071: , status_date = SYSDATE
3077: CLOSE c_user_status_id;
3078:
3079: UPDATE ams_dm_scores_all_b
3080: SET last_update_date = SYSDATE
3081: , last_updated_by = FND_GLOBAL.user_id
3082: , last_update_login = FND_GLOBAL.conc_login_id
3083: , object_version_number = object_version_number + 1
3084: , status_code = G_STATUS_SCORING
3085: , user_status_id = l_user_status_id
3078:
3079: UPDATE ams_dm_scores_all_b
3080: SET last_update_date = SYSDATE
3081: , last_updated_by = FND_GLOBAL.user_id
3082: , last_update_login = FND_GLOBAL.conc_login_id
3083: , object_version_number = object_version_number + 1
3084: , status_code = G_STATUS_SCORING
3085: , user_status_id = l_user_status_id
3086: , status_date = SYSDATE
3294: -- update the Scoring Run record with new status code and id and with NULL wf_itemkey
3295: UPDATE ams_dm_scores_all_b
3296: SET object_version_number = object_version_number + 1,
3297: last_update_date = SYSDATE,
3298: last_updated_by = FND_GLOBAL.user_id,
3299: status_date = SYSDATE,
3300: status_code = l_ref_score_rec.status_code,
3301: user_status_id = l_ref_score_rec.user_status_id,
3302: wf_itemkey = l_ref_score_rec.wf_itemkey,
3310: CLOSE c_user_status_id;
3311:
3312: UPDATE ams_dm_models_all_b
3313: SET last_update_date = SYSDATE
3314: , last_updated_by = FND_GLOBAL.user_id
3315: , last_update_login = FND_GLOBAL.conc_login_id
3316: , object_version_number = object_version_number + 1
3317: , status_code = G_STATUS_AVAILABLE
3318: , user_status_id = l_model_status_id
3311:
3312: UPDATE ams_dm_models_all_b
3313: SET last_update_date = SYSDATE
3314: , last_updated_by = FND_GLOBAL.user_id
3315: , last_update_login = FND_GLOBAL.conc_login_id
3316: , object_version_number = object_version_number + 1
3317: , status_code = G_STATUS_AVAILABLE
3318: , user_status_id = l_model_status_id
3319: , status_date = SYSDATE
3812: -- update the Scoring Run record with new status code and id and with NULL wf_itemkey
3813: -- UPDATE ams_dm_scores_all_b
3814: -- SET object_version_number = object_version_number + 1,
3815: -- last_update_date = SYSDATE,
3816: -- last_updated_by = FND_GLOBAL.user_id,
3817: -- status_date = SYSDATE,
3818: -- status_code = G_STATUS_INVALID,
3819: -- user_status_id = l_status_id
3820: -- WHERE score_id = p_score_id;
3820: -- WHERE score_id = p_score_id;
3821:
3822: UPDATE ams_dm_scores_all_b
3823: SET last_update_date = SYSDATE,
3824: last_updated_by = FND_GLOBAL.user_id,
3825: status_date = SYSDATE,
3826: status_code = G_STATUS_INVALID,
3827: user_status_id = l_status_id
3828: WHERE score_id = p_score_id;