59: x_return_status varchar2(1) := 'E';
60: tmpindex NUMBER := 0;
61: p_ret_msg varchar2(200) := null;
62: p_release_by_user varchar2(3):=null ;
63: -- nvl(FND_PROFILE.value('MSC_RELEASED_BY_USER_ONLY'),'N');
64:
65:
66: p_plan_id number := pid;
67: p_plan_org_id number;
762: l_pref_release_vmi varchar2(10);
763: l_include_so varchar2(10);
764: l_temp Number;
765:
766: l_user_id number := nvl(FND_PROFILE.VALUE('USER_ID'),1);
767: l_plan_type number :=1 ; -- temp set as ASCP plan
768:
769: CURSOR empl_C IS
770: SELECT mp.employee_id
883:
884:
885:
886: if p_in_source_plan = 1 then
887: p_rel_schd_OK := nvl(fnd_profile.value('MSC_DRP_RELEASE_FROM_MRP'),'N');
888:
889: if (p_rel_schd_OK = 'N') then
890:
891: p_rel_error := FND_MESSAGE.GET_STRING('MRP', 'MSC_IN_SOURCE_PLAN');
901: -- child supply are on hand or make planned order
902: */
903:
904: p_valid := null;
905: if (nvl(FND_PROFILE.VALUE('MSC_REL_ONLY_ONHAND_SUPPLY'),'N') = 'Y'
906: and p_order_type = 5 and p_org_id = p_source_org_id) then
907: p_valid := MSC_SELECT_ALL_FOR_RELEASE_PUB.child_supplies_onhand(
908: p_plan_id, p_transaction_id);
909: if p_valid > 0 then
1183: end test_permission;
1184:
1185: Function save_user_profile(name in varchar2, value in varchar2) return number is
1186: begin
1187: if fnd_profile.save_user(name,value) then
1188: return 1;
1189: else
1190: return 2 ;
1191: end if;