2303: l_login_id NUMBER;
2304: l_prog_appid NUMBER;
2305: l_prog_id NUMBER;
2306: l_request_id NUMBER;
2307: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2308: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2309: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2310: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2311: l_change_name VARCHAR2(240); -- Bug 3032565
2304: l_prog_appid NUMBER;
2305: l_prog_id NUMBER;
2306: l_request_id NUMBER;
2307: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2308: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2309: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2310: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2311: l_change_name VARCHAR2(240); -- Bug 3032565
2312: BEGIN
2305: l_prog_id NUMBER;
2306: l_request_id NUMBER;
2307: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2308: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2309: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2310: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2311: l_change_name VARCHAR2(240); -- Bug 3032565
2312: BEGIN
2313:
2306: l_request_id NUMBER;
2307: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2308: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2309: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2310: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2311: l_change_name VARCHAR2(240); -- Bug 3032565
2312: BEGIN
2313:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2312: BEGIN
2313:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2319: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2320: l_prog_id := ENG_GLOBALS.Get_prog_id;
2313:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2319: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2320: l_prog_id := ENG_GLOBALS.Get_prog_id;
2321:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315:
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2319: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2320: l_prog_id := ENG_GLOBALS.Get_prog_id;
2321:
2322: IF (g_control_rec.caller_type = 'FORM' AND
2315:
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2319: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2320: l_prog_id := ENG_GLOBALS.Get_prog_id;
2321:
2322: IF (g_control_rec.caller_type = 'FORM' AND
2323: g_control_rec.validation_controller = 'MAIN_EFFECTS')
2316: l_user_id := Eng_Globals.Get_User_Id;
2317: l_login_id := Eng_Globals.Get_Login_Id;
2318: l_request_id := ENG_GLOBALS.Get_request_id;
2319: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2320: l_prog_id := ENG_GLOBALS.Get_prog_id;
2321:
2322: IF (g_control_rec.caller_type = 'FORM' AND
2323: g_control_rec.validation_controller = 'MAIN_EFFECTS')
2324: OR
2439: -- Mark ECO as 'Cancelled' and process children accordingly
2440:
2441: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2442: , change_order => p_ECO_rec.ECO_Name
2443: , user_id => ENG_GLOBALS.Get_user_id
2444: , login => ENG_GLOBALS.Get_login_id
2445: , req_id => ENG_GLOBALS.Get_request_id
2446: , prog_id => ENG_GLOBALS.Get_prog_id
2447: , prog_appid => ENG_GLOBALS.Get_prog_appid
2440:
2441: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2442: , change_order => p_ECO_rec.ECO_Name
2443: , user_id => ENG_GLOBALS.Get_user_id
2444: , login => ENG_GLOBALS.Get_login_id
2445: , req_id => ENG_GLOBALS.Get_request_id
2446: , prog_id => ENG_GLOBALS.Get_prog_id
2447: , prog_appid => ENG_GLOBALS.Get_prog_appid
2448: , orig_sysref => p_ECO_rec.original_system_reference
2441: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2442: , change_order => p_ECO_rec.ECO_Name
2443: , user_id => ENG_GLOBALS.Get_user_id
2444: , login => ENG_GLOBALS.Get_login_id
2445: , req_id => ENG_GLOBALS.Get_request_id
2446: , prog_id => ENG_GLOBALS.Get_prog_id
2447: , prog_appid => ENG_GLOBALS.Get_prog_appid
2448: , orig_sysref => p_ECO_rec.original_system_reference
2449: , p_cancel_comments => p_ECO_rec.cancellation_comments
2442: , change_order => p_ECO_rec.ECO_Name
2443: , user_id => ENG_GLOBALS.Get_user_id
2444: , login => ENG_GLOBALS.Get_login_id
2445: , req_id => ENG_GLOBALS.Get_request_id
2446: , prog_id => ENG_GLOBALS.Get_prog_id
2447: , prog_appid => ENG_GLOBALS.Get_prog_appid
2448: , orig_sysref => p_ECO_rec.original_system_reference
2449: , p_cancel_comments => p_ECO_rec.cancellation_comments
2450: -- Added by MK on 09/01/2000
2443: , user_id => ENG_GLOBALS.Get_user_id
2444: , login => ENG_GLOBALS.Get_login_id
2445: , req_id => ENG_GLOBALS.Get_request_id
2446: , prog_id => ENG_GLOBALS.Get_prog_id
2447: , prog_appid => ENG_GLOBALS.Get_prog_appid
2448: , orig_sysref => p_ECO_rec.original_system_reference
2449: , p_cancel_comments => p_ECO_rec.cancellation_comments
2450: -- Added by MK on 09/01/2000
2451: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2456:
2457: -- Check that the user has access to the BOM Item Type
2458: -- of the revised item
2459: --
2460: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2461: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2462: Eng_Globals.Get_MDL_Item_Access IS NULL
2463: THEN
2464: --
2457: -- Check that the user has access to the BOM Item Type
2458: -- of the revised item
2459: --
2460: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2461: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2462: Eng_Globals.Get_MDL_Item_Access IS NULL
2463: THEN
2464: --
2465: -- Get respective profile values
2458: -- of the revised item
2459: --
2460: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2461: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2462: Eng_Globals.Get_MDL_Item_Access IS NULL
2463: THEN
2464: --
2465: -- Get respective profile values
2466: --
2465: -- Get respective profile values
2466: --
2467: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'
2468: THEN
2469: Eng_Globals.Set_STD_Item_Access
2470: ( p_std_item_access => 4);
2471: ELSE
2472: Eng_Globals.Set_STD_Item_Access
2473: ( p_std_item_access => NULL);
2468: THEN
2469: Eng_Globals.Set_STD_Item_Access
2470: ( p_std_item_access => 4);
2471: ELSE
2472: Eng_Globals.Set_STD_Item_Access
2473: ( p_std_item_access => NULL);
2474: END IF;
2475:
2476: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2474: END IF;
2475:
2476: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2477: THEN
2478: Eng_Globals.Set_MDL_Item_Access
2479: ( p_mdl_item_access => 1);
2480: Eng_Globals.Set_OC_Item_Access
2481: ( p_oc_item_access => 2);
2482: ELSE
2476: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2477: THEN
2478: Eng_Globals.Set_MDL_Item_Access
2479: ( p_mdl_item_access => 1);
2480: Eng_Globals.Set_OC_Item_Access
2481: ( p_oc_item_access => 2);
2482: ELSE
2483: Eng_Globals.Set_MDL_Item_Access
2484: ( p_mdl_item_access => NULL);
2479: ( p_mdl_item_access => 1);
2480: Eng_Globals.Set_OC_Item_Access
2481: ( p_oc_item_access => 2);
2482: ELSE
2483: Eng_Globals.Set_MDL_Item_Access
2484: ( p_mdl_item_access => NULL);
2485: Eng_Globals.Set_OC_Item_Access
2486: ( p_oc_item_access => NULL);
2487: END IF;
2481: ( p_oc_item_access => 2);
2482: ELSE
2483: Eng_Globals.Set_MDL_Item_Access
2484: ( p_mdl_item_access => NULL);
2485: Eng_Globals.Set_OC_Item_Access
2486: ( p_oc_item_access => NULL);
2487: END IF;
2488:
2489: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
2487: END IF;
2488:
2489: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
2490: THEN
2491: Eng_Globals.Set_PLN_Item_Access
2492: ( p_pln_item_access => 3);
2493: ELSE
2494: Eng_Globals.Set_PLN_Item_Access
2495: ( p_pln_item_access => NULL);
2490: THEN
2491: Eng_Globals.Set_PLN_Item_Access
2492: ( p_pln_item_access => 3);
2493: ELSE
2494: Eng_Globals.Set_PLN_Item_Access
2495: ( p_pln_item_access => NULL);
2496: END IF;
2497: END IF;
2498:
2495: ( p_pln_item_access => NULL);
2496: END IF;
2497: END IF;
2498:
2499: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2500: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2501: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2502: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2503:
2496: END IF;
2497: END IF;
2498:
2499: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2500: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2501: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2502: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2503:
2504: UPDATE eng_revised_items eri
2497: END IF;
2498:
2499: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2500: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2501: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2502: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2503:
2504: UPDATE eng_revised_items eri
2505: SET eri.status_type = p_Unexp_ECO_rec.status_type,
2498:
2499: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2500: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2501: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2502: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2503:
2504: UPDATE eng_revised_items eri
2505: SET eri.status_type = p_Unexp_ECO_rec.status_type,
2506: -- If ECO status is 'Scheduled', set Auto-Implement Date to SYSDATE, else NULL
2565: -- Procedure to default lifecycle phases for ERP ECOs
2566: Procedure Default_Lifecycle_phases
2567: ( p_change_id IN NUMBER )
2568: IS
2569: l_user_id NUMBER := Eng_Globals.Get_User_Id;
2570: l_login_id NUMBER := Eng_Globals.Get_Login_Id;
2571: l_seq_no NUMBER := 0 ;
2572: l_lifecycle_phase_id NUMBER;
2573: phase_types phase_list_type;
2566: Procedure Default_Lifecycle_phases
2567: ( p_change_id IN NUMBER )
2568: IS
2569: l_user_id NUMBER := Eng_Globals.Get_User_Id;
2570: l_login_id NUMBER := Eng_Globals.Get_Login_Id;
2571: l_seq_no NUMBER := 0 ;
2572: l_lifecycle_phase_id NUMBER;
2573: phase_types phase_list_type;
2574:
2666: BEGIN
2667:
2668: x_return_status := FND_API.G_RET_STS_SUCCESS;
2669:
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2673: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2674: l_prog_id := ENG_GLOBALS.Get_prog_id;
2667:
2668: x_return_status := FND_API.G_RET_STS_SUCCESS;
2669:
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2673: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2674: l_prog_id := ENG_GLOBALS.Get_prog_id;
2675:
2668: x_return_status := FND_API.G_RET_STS_SUCCESS;
2669:
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2673: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2674: l_prog_id := ENG_GLOBALS.Get_prog_id;
2675:
2676:
2669:
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2673: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2674: l_prog_id := ENG_GLOBALS.Get_prog_id;
2675:
2676:
2677: -- Bug 3032565 Defaulted Change Name
2670: l_user_id := Eng_Globals.Get_User_Id;
2671: l_login_id := Eng_Globals.Get_Login_Id;
2672: l_request_id := ENG_GLOBALS.Get_request_id;
2673: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2674: l_prog_id := ENG_GLOBALS.Get_prog_id;
2675:
2676:
2677: -- Bug 3032565 Defaulted Change Name
2678: IF (p_ECO_rec.change_name is null OR p_ECO_rec.change_name = '')
3236: ;
3237:
3238: x_ECO_rec := l_ECO_rec;
3239: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3240: x_return_status := Eng_Globals.G_RECORD_FOUND;
3241:
3242: EXCEPTION
3243:
3244: WHEN NO_DATA_FOUND THEN
3244: WHEN NO_DATA_FOUND THEN
3245:
3246: x_ECO_rec := l_ECO_rec;
3247: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3248: x_return_status := Eng_Globals.G_RECORD_NOT_FOUND;
3249:
3250: WHEN OTHERS THEN
3251:
3252: x_err_text := G_PKG_NAME ||
3283: l_user_id := p_user_id ;
3284:
3285: ELSE
3286:
3287: l_user_id := Eng_Globals.Get_User_Id;
3288: l_login_id := Eng_Globals.Get_Login_Id;
3289: l_request_id := ENG_GLOBALS.Get_request_id;
3290:
3291: END IF ;
3284:
3285: ELSE
3286:
3287: l_user_id := Eng_Globals.Get_User_Id;
3288: l_login_id := Eng_Globals.Get_Login_Id;
3289: l_request_id := ENG_GLOBALS.Get_request_id;
3290:
3291: END IF ;
3292:
3285: ELSE
3286:
3287: l_user_id := Eng_Globals.Get_User_Id;
3288: l_login_id := Eng_Globals.Get_Login_Id;
3289: l_request_id := ENG_GLOBALS.Get_request_id;
3290:
3291: END IF ;
3292:
3293: -- Approve Change
3767: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3768:
3769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3770: THEN
3771: Error_Handler.Log_Error ( p_who_rec => ENG_GLOBALS.G_WHO_REC
3772: , p_msg_name => 'OE_LOCK_ROW_DELETED'
3773: , x_err_text => x_err_text );
3774: END IF;
3775:
3779: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
3780:
3781: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3782: THEN
3783: Error_Handler.Log_Error( p_who_rec => ENG_GLOBALS.G_WHO_REC
3784: , p_msg_name => 'OE_LOCK_ROW_ALREADY_LOCKED'
3785: , x_err_text => x_err_text );
3786: END IF;
3787:
3862: BEGIN
3863:
3864: l_return_status := FND_API.G_RET_STS_SUCCESS;
3865:
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3869: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3870: l_prog_id := ENG_GLOBALS.Get_prog_id;
3863:
3864: l_return_status := FND_API.G_RET_STS_SUCCESS;
3865:
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3869: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3870: l_prog_id := ENG_GLOBALS.Get_prog_id;
3871:
3864: l_return_status := FND_API.G_RET_STS_SUCCESS;
3865:
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3869: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3870: l_prog_id := ENG_GLOBALS.Get_prog_id;
3871:
3872: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
3865:
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3869: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3870: l_prog_id := ENG_GLOBALS.Get_prog_id;
3871:
3872: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
3873: FETCH Getsubject INTO subject_type;
3866: l_user_id := Eng_Globals.Get_User_Id;
3867: l_login_id := Eng_Globals.Get_Login_Id;
3868: l_request_id := ENG_GLOBALS.Get_request_id;
3869: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3870: l_prog_id := ENG_GLOBALS.Get_prog_id;
3871:
3872: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
3873: FETCH Getsubject INTO subject_type;
3874: CLOSE Getsubject;
4081: l_change_subject_unexp_rec.lifecycle_state_id := null;
4082: END IF;
4083: -- End Changes
4084:
4085: IF p_eco_rec.transaction_type = Eng_Globals.G_OPR_CREATE THEN
4086: SELECT eng_change_subjects_s.nextval INTO l_change_subject_unexp_rec.change_subject_id
4087: FROM SYS.DUAL;
4088:
4089:
4220: l_request_id,
4221: l_prog_appid,
4222: l_prog_id,sysdate);
4223: END IF;
4224: ELSIF p_eco_rec.transaction_type = Eng_Globals.G_OPR_UPDATE THEN
4225: UPDATE eng_change_subjects SET
4226: pk1_value = l_change_subject_unexp_rec.pk1_value,
4227: pk2_value = l_change_subject_unexp_rec.pk2_value,
4228: pk3_value = l_change_subject_unexp_rec.pk3_value