2730: l_login_id NUMBER;
2731: l_prog_appid NUMBER;
2732: l_prog_id NUMBER;
2733: l_request_id NUMBER;
2734: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2735: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2736: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2737: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2738: l_change_name VARCHAR2(240); -- Bug 3032565
2731: l_prog_appid NUMBER;
2732: l_prog_id NUMBER;
2733: l_request_id NUMBER;
2734: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2735: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2736: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2737: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2738: l_change_name VARCHAR2(240); -- Bug 3032565
2739: BEGIN
2732: l_prog_id NUMBER;
2733: l_request_id NUMBER;
2734: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2735: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2736: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2737: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2738: l_change_name VARCHAR2(240); -- Bug 3032565
2739: BEGIN
2740:
2733: l_request_id NUMBER;
2734: l_std_item_access NUMBER := Eng_Globals.Get_STD_Item_Access;
2735: l_oc_item_access NUMBER := Eng_Globals.Get_OC_Item_Access;
2736: l_pln_item_access NUMBER := Eng_Globals.Get_PLN_Item_Access;
2737: l_mdl_item_access NUMBER := Eng_Globals.Get_MDL_Item_Access;
2738: l_change_name VARCHAR2(240); -- Bug 3032565
2739: BEGIN
2740:
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739: BEGIN
2740:
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742:
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2746: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2747: l_prog_id := ENG_GLOBALS.Get_prog_id;
2740:
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742:
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2746: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2747: l_prog_id := ENG_GLOBALS.Get_prog_id;
2748:
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742:
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2746: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2747: l_prog_id := ENG_GLOBALS.Get_prog_id;
2748:
2749: IF (g_control_rec.caller_type = 'FORM' AND
2742:
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2746: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2747: l_prog_id := ENG_GLOBALS.Get_prog_id;
2748:
2749: IF (g_control_rec.caller_type = 'FORM' AND
2750: g_control_rec.validation_controller = 'MAIN_EFFECTS')
2743: l_user_id := Eng_Globals.Get_User_Id;
2744: l_login_id := Eng_Globals.Get_Login_Id;
2745: l_request_id := ENG_GLOBALS.Get_request_id;
2746: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
2747: l_prog_id := ENG_GLOBALS.Get_prog_id;
2748:
2749: IF (g_control_rec.caller_type = 'FORM' AND
2750: g_control_rec.validation_controller = 'MAIN_EFFECTS')
2751: OR
2866: -- Mark ECO as 'Cancelled' and process children accordingly
2867:
2868: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2869: , change_order => p_ECO_rec.ECO_Name
2870: , user_id => ENG_GLOBALS.Get_user_id
2871: , login => ENG_GLOBALS.Get_login_id
2872: , req_id => ENG_GLOBALS.Get_request_id
2873: , prog_id => ENG_GLOBALS.Get_prog_id
2874: , prog_appid => ENG_GLOBALS.Get_prog_appid
2867:
2868: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2869: , change_order => p_ECO_rec.ECO_Name
2870: , user_id => ENG_GLOBALS.Get_user_id
2871: , login => ENG_GLOBALS.Get_login_id
2872: , req_id => ENG_GLOBALS.Get_request_id
2873: , prog_id => ENG_GLOBALS.Get_prog_id
2874: , prog_appid => ENG_GLOBALS.Get_prog_appid
2875: , orig_sysref => p_ECO_rec.original_system_reference
2868: Cancel_Eco ( org_id => p_Unexp_ECO_rec.organization_id
2869: , change_order => p_ECO_rec.ECO_Name
2870: , user_id => ENG_GLOBALS.Get_user_id
2871: , login => ENG_GLOBALS.Get_login_id
2872: , req_id => ENG_GLOBALS.Get_request_id
2873: , prog_id => ENG_GLOBALS.Get_prog_id
2874: , prog_appid => ENG_GLOBALS.Get_prog_appid
2875: , orig_sysref => p_ECO_rec.original_system_reference
2876: , p_cancel_comments => p_ECO_rec.cancellation_comments
2869: , change_order => p_ECO_rec.ECO_Name
2870: , user_id => ENG_GLOBALS.Get_user_id
2871: , login => ENG_GLOBALS.Get_login_id
2872: , req_id => ENG_GLOBALS.Get_request_id
2873: , prog_id => ENG_GLOBALS.Get_prog_id
2874: , prog_appid => ENG_GLOBALS.Get_prog_appid
2875: , orig_sysref => p_ECO_rec.original_system_reference
2876: , p_cancel_comments => p_ECO_rec.cancellation_comments
2877: -- Added by MK on 09/01/2000
2870: , user_id => ENG_GLOBALS.Get_user_id
2871: , login => ENG_GLOBALS.Get_login_id
2872: , req_id => ENG_GLOBALS.Get_request_id
2873: , prog_id => ENG_GLOBALS.Get_prog_id
2874: , prog_appid => ENG_GLOBALS.Get_prog_appid
2875: , orig_sysref => p_ECO_rec.original_system_reference
2876: , p_cancel_comments => p_ECO_rec.cancellation_comments
2877: -- Added by MK on 09/01/2000
2878: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2883:
2884: -- Check that the user has access to the BOM Item Type
2885: -- of the revised item
2886: --
2887: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2888: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2889: Eng_Globals.Get_MDL_Item_Access IS NULL
2890: THEN
2891: --
2884: -- Check that the user has access to the BOM Item Type
2885: -- of the revised item
2886: --
2887: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2888: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2889: Eng_Globals.Get_MDL_Item_Access IS NULL
2890: THEN
2891: --
2892: -- Get respective profile values
2885: -- of the revised item
2886: --
2887: IF Eng_Globals.Get_STD_Item_Access IS NULL AND
2888: Eng_Globals.Get_PLN_Item_Access IS NULL AND
2889: Eng_Globals.Get_MDL_Item_Access IS NULL
2890: THEN
2891: --
2892: -- Get respective profile values
2893: --
2892: -- Get respective profile values
2893: --
2894: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'
2895: THEN
2896: Eng_Globals.Set_STD_Item_Access
2897: ( p_std_item_access => 4);
2898: ELSE
2899: Eng_Globals.Set_STD_Item_Access
2900: ( p_std_item_access => NULL);
2895: THEN
2896: Eng_Globals.Set_STD_Item_Access
2897: ( p_std_item_access => 4);
2898: ELSE
2899: Eng_Globals.Set_STD_Item_Access
2900: ( p_std_item_access => NULL);
2901: END IF;
2902:
2903: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2901: END IF;
2902:
2903: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2904: THEN
2905: Eng_Globals.Set_MDL_Item_Access
2906: ( p_mdl_item_access => 1);
2907: Eng_Globals.Set_OC_Item_Access
2908: ( p_oc_item_access => 2);
2909: ELSE
2903: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
2904: THEN
2905: Eng_Globals.Set_MDL_Item_Access
2906: ( p_mdl_item_access => 1);
2907: Eng_Globals.Set_OC_Item_Access
2908: ( p_oc_item_access => 2);
2909: ELSE
2910: Eng_Globals.Set_MDL_Item_Access
2911: ( p_mdl_item_access => NULL);
2906: ( p_mdl_item_access => 1);
2907: Eng_Globals.Set_OC_Item_Access
2908: ( p_oc_item_access => 2);
2909: ELSE
2910: Eng_Globals.Set_MDL_Item_Access
2911: ( p_mdl_item_access => NULL);
2912: Eng_Globals.Set_OC_Item_Access
2913: ( p_oc_item_access => NULL);
2914: END IF;
2908: ( p_oc_item_access => 2);
2909: ELSE
2910: Eng_Globals.Set_MDL_Item_Access
2911: ( p_mdl_item_access => NULL);
2912: Eng_Globals.Set_OC_Item_Access
2913: ( p_oc_item_access => NULL);
2914: END IF;
2915:
2916: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
2914: END IF;
2915:
2916: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
2917: THEN
2918: Eng_Globals.Set_PLN_Item_Access
2919: ( p_pln_item_access => 3);
2920: ELSE
2921: Eng_Globals.Set_PLN_Item_Access
2922: ( p_pln_item_access => NULL);
2917: THEN
2918: Eng_Globals.Set_PLN_Item_Access
2919: ( p_pln_item_access => 3);
2920: ELSE
2921: Eng_Globals.Set_PLN_Item_Access
2922: ( p_pln_item_access => NULL);
2923: END IF;
2924: END IF;
2925:
2922: ( p_pln_item_access => NULL);
2923: END IF;
2924: END IF;
2925:
2926: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2927: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2928: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2929: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2930:
2923: END IF;
2924: END IF;
2925:
2926: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2927: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2928: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2929: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2930:
2931: UPDATE eng_revised_items eri
2924: END IF;
2925:
2926: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2927: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2928: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2929: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2930:
2931: UPDATE eng_revised_items eri
2932: SET eri.status_type = p_Unexp_ECO_rec.status_type,
2925:
2926: l_std_item_access := Eng_Globals.Get_STD_Item_Access;
2927: l_oc_item_access := Eng_Globals.Get_OC_Item_Access;
2928: l_pln_item_access := Eng_Globals.Get_PLN_Item_Access;
2929: l_mdl_item_access := Eng_Globals.Get_MDL_Item_Access;
2930:
2931: UPDATE eng_revised_items eri
2932: SET eri.status_type = p_Unexp_ECO_rec.status_type,
2933: -- If ECO status is 'Scheduled', set Auto-Implement Date to SYSDATE, else NULL
2992: -- Procedure to default lifecycle phases for ERP ECOs
2993: Procedure Default_Lifecycle_phases
2994: ( p_change_id IN NUMBER )
2995: IS
2996: l_user_id NUMBER := Eng_Globals.Get_User_Id;
2997: l_login_id NUMBER := Eng_Globals.Get_Login_Id;
2998: l_seq_no NUMBER := 0 ;
2999: l_lifecycle_phase_id NUMBER;
3000: phase_types phase_list_type;
2993: Procedure Default_Lifecycle_phases
2994: ( p_change_id IN NUMBER )
2995: IS
2996: l_user_id NUMBER := Eng_Globals.Get_User_Id;
2997: l_login_id NUMBER := Eng_Globals.Get_Login_Id;
2998: l_seq_no NUMBER := 0 ;
2999: l_lifecycle_phase_id NUMBER;
3000: phase_types phase_list_type;
3001:
3093: BEGIN
3094:
3095: x_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3100: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3101: l_prog_id := ENG_GLOBALS.Get_prog_id;
3094:
3095: x_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3100: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3101: l_prog_id := ENG_GLOBALS.Get_prog_id;
3102:
3095: x_return_status := FND_API.G_RET_STS_SUCCESS;
3096:
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3100: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3101: l_prog_id := ENG_GLOBALS.Get_prog_id;
3102:
3103:
3096:
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3100: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3101: l_prog_id := ENG_GLOBALS.Get_prog_id;
3102:
3103:
3104: -- Bug 3032565 Defaulted Change Name
3097: l_user_id := Eng_Globals.Get_User_Id;
3098: l_login_id := Eng_Globals.Get_Login_Id;
3099: l_request_id := ENG_GLOBALS.Get_request_id;
3100: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
3101: l_prog_id := ENG_GLOBALS.Get_prog_id;
3102:
3103:
3104: -- Bug 3032565 Defaulted Change Name
3105: IF (p_ECO_rec.change_name is null OR p_ECO_rec.change_name = '')
3665: ;
3666:
3667: x_ECO_rec := l_ECO_rec;
3668: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3669: x_return_status := Eng_Globals.G_RECORD_FOUND;
3670:
3671: EXCEPTION
3672:
3673: WHEN NO_DATA_FOUND THEN
3673: WHEN NO_DATA_FOUND THEN
3674:
3675: x_ECO_rec := l_ECO_rec;
3676: x_ECO_Unexp_rec := l_ECO_Unexp_Rec;
3677: x_return_status := Eng_Globals.G_RECORD_NOT_FOUND;
3678:
3679: WHEN OTHERS THEN
3680:
3681: x_err_text := G_PKG_NAME ||
3712: l_user_id := p_user_id ;
3713:
3714: ELSE
3715:
3716: l_user_id := Eng_Globals.Get_User_Id;
3717: l_login_id := Eng_Globals.Get_Login_Id;
3718: l_request_id := ENG_GLOBALS.Get_request_id;
3719:
3720: END IF ;
3713:
3714: ELSE
3715:
3716: l_user_id := Eng_Globals.Get_User_Id;
3717: l_login_id := Eng_Globals.Get_Login_Id;
3718: l_request_id := ENG_GLOBALS.Get_request_id;
3719:
3720: END IF ;
3721:
3714: ELSE
3715:
3716: l_user_id := Eng_Globals.Get_User_Id;
3717: l_login_id := Eng_Globals.Get_Login_Id;
3718: l_request_id := ENG_GLOBALS.Get_request_id;
3719:
3720: END IF ;
3721:
3722: -- Approve Change
4196: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4197:
4198: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4199: THEN
4200: Error_Handler.Log_Error ( p_who_rec => ENG_GLOBALS.G_WHO_REC
4201: , p_msg_name => 'OE_LOCK_ROW_DELETED'
4202: , x_err_text => x_err_text );
4203: END IF;
4204:
4208: x_ECO_rec.return_status := FND_API.G_RET_STS_ERROR;
4209:
4210: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4211: THEN
4212: Error_Handler.Log_Error( p_who_rec => ENG_GLOBALS.G_WHO_REC
4213: , p_msg_name => 'OE_LOCK_ROW_ALREADY_LOCKED'
4214: , x_err_text => x_err_text );
4215: END IF;
4216:
4291: BEGIN
4292:
4293: l_return_status := FND_API.G_RET_STS_SUCCESS;
4294:
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4298: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
4299: l_prog_id := ENG_GLOBALS.Get_prog_id;
4292:
4293: l_return_status := FND_API.G_RET_STS_SUCCESS;
4294:
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4298: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
4299: l_prog_id := ENG_GLOBALS.Get_prog_id;
4300:
4293: l_return_status := FND_API.G_RET_STS_SUCCESS;
4294:
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4298: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
4299: l_prog_id := ENG_GLOBALS.Get_prog_id;
4300:
4301: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
4294:
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4298: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
4299: l_prog_id := ENG_GLOBALS.Get_prog_id;
4300:
4301: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
4302: FETCH Getsubject INTO subject_type;
4295: l_user_id := Eng_Globals.Get_User_Id;
4296: l_login_id := Eng_Globals.Get_Login_Id;
4297: l_request_id := ENG_GLOBALS.Get_request_id;
4298: l_prog_appid := ENG_GLOBALS.Get_prog_appid;
4299: l_prog_id := ENG_GLOBALS.Get_prog_id;
4300:
4301: OPEN Getsubject (p_ECO_Unexp_Rec. Change_Order_Type_Id);
4302: FETCH Getsubject INTO subject_type;
4303: CLOSE Getsubject;
4510: l_change_subject_unexp_rec.lifecycle_state_id := null;
4511: END IF;
4512: -- End Changes
4513:
4514: IF p_eco_rec.transaction_type = Eng_Globals.G_OPR_CREATE THEN
4515: SELECT eng_change_subjects_s.nextval INTO l_change_subject_unexp_rec.change_subject_id
4516: FROM SYS.DUAL;
4517:
4518:
4649: l_request_id,
4650: l_prog_appid,
4651: l_prog_id,sysdate);
4652: END IF;
4653: ELSIF p_eco_rec.transaction_type = Eng_Globals.G_OPR_UPDATE THEN
4654: UPDATE eng_change_subjects SET
4655: pk1_value = l_change_subject_unexp_rec.pk1_value,
4656: pk2_value = l_change_subject_unexp_rec.pk2_value,
4657: pk3_value = l_change_subject_unexp_rec.pk3_value