214: l_Number NUMBER;
215: l_PlanType NUMBER;
216: BEGIN
217: -- query user id, responsibility id and security group id
218: MSC_WS_COMMON.GET_PERMISSION_IDS(l_String, g_UserId, l_ResponsibilityId, l_SecurityGroupId, UserName, RespName, RespAppName, SecurityGroupName, Language);
219: IF (l_String <> 'OK') THEN
220: Status := l_String;
221: RETURN;
222: END IF;
220: Status := l_String;
221: RETURN;
222: END IF;
223:
224: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
225: IF (l_String <> 'OK') THEN
226: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
227: IF (l_String <> 'OK') THEN
228: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
222: END IF;
223:
224: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
225: IF (l_String <> 'OK') THEN
226: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
227: IF (l_String <> 'OK') THEN
228: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
229: IF (l_String <> 'OK') THEN
230: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
224: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
225: IF (l_String <> 'OK') THEN
226: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
227: IF (l_String <> 'OK') THEN
228: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
229: IF (l_String <> 'OK') THEN
230: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
231: IF (l_String <> 'OK') THEN
232: Status := l_String;
226: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
227: IF (l_String <> 'OK') THEN
228: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
229: IF (l_String <> 'OK') THEN
230: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
231: IF (l_String <> 'OK') THEN
232: Status := l_String;
233: RETURN;
234: END IF;
235: END IF;
236: END IF;
237: END IF;
238:
239: IF MSC_WS_COMMON.BOOL_TO_NUMBER(CopyOptionsOnly) = MSC_UTIL.SYS_YES THEN
240: /*
241: The Copy Plan Options Only feature is not implemented yet, will do it later.
242: */
243: ProcessId := -1;
299: argument1 => SrcPlanId,
300: argument2 => DestPlanName,
301: argument3 => DestPlanDesc,
302: argument4 => l_DestOrgSelection,
303: argument5 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestATP),
304: argument6 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestProd),
305: argument7 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestNoti),
306: argument8 => to_char(DestInacOn, 'DD-MM-YYYY'),
307: argument9 => l_OrgId,
300: argument2 => DestPlanName,
301: argument3 => DestPlanDesc,
302: argument4 => l_DestOrgSelection,
303: argument5 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestATP),
304: argument6 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestProd),
305: argument7 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestNoti),
306: argument8 => to_char(DestInacOn, 'DD-MM-YYYY'),
307: argument9 => l_OrgId,
308: argument10 => l_InsId
301: argument3 => DestPlanDesc,
302: argument4 => l_DestOrgSelection,
303: argument5 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestATP),
304: argument6 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestProd),
305: argument7 => MSC_WS_COMMON.BOOL_TO_NUMBER(DestNoti),
306: argument8 => to_char(DestInacOn, 'DD-MM-YYYY'),
307: argument9 => l_OrgId,
308: argument10 => l_InsId
309: );
339: l_SecurityGroupId NUMBER;
340: l_Number NUMBER;
341: BEGIN
342: -- query user id, responsibility id and security group id
343: MSC_WS_COMMON.GET_PERMISSION_IDS(l_String, g_UserId, l_ResponsibilityId, l_SecurityGroupId, UserName, RespName, RespAppName, SecurityGroupName, Language);
344: IF (l_String <> 'OK') THEN
345: Status := l_String;
346: RETURN;
347: END IF;
345: Status := l_String;
346: RETURN;
347: END IF;
348:
349: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
350: IF (l_String <> 'OK') THEN
351: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
352: IF (l_String <> 'OK') THEN
353: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
347: END IF;
348:
349: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
350: IF (l_String <> 'OK') THEN
351: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
352: IF (l_String <> 'OK') THEN
353: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
354: IF (l_String <> 'OK') THEN
355: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
349: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
350: IF (l_String <> 'OK') THEN
351: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
352: IF (l_String <> 'OK') THEN
353: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
354: IF (l_String <> 'OK') THEN
355: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
356: IF (l_String <> 'OK') THEN
357: Status := l_String;
351: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
352: IF (l_String <> 'OK') THEN
353: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
354: IF (l_String <> 'OK') THEN
355: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
356: IF (l_String <> 'OK') THEN
357: Status := l_String;
358: RETURN;
359: END IF;
370: RETURN;
371: END IF;
372:
373: -- Hardcoding to mfg, Advanced Supply Chain Planner for prototype
374: -- this init function call is embedded in MSC_WS_COMMON.VALIDATE_USER_RESP
375: -- fnd_global.apps_initialize(1068, 21634, 724);
376:
377: -- Update the MSC_DESIGNATORS table to disable it to prevent further
378: -- activities, such as plan launch while the purge is taking place
428: g_ErrorCode := '';
429: ProcessId := -1;
430:
431: -- query user id, responsibility id and security group id
432: MSC_WS_COMMON.GET_PERMISSION_IDS(l_String, g_UserId, l_ResponsibilityId, l_SecurityGroupId, UserName, RespName, RespAppName, SecurityGroupName, Language);
433: IF (l_String <> 'OK') THEN
434: Status := l_String;
435: RETURN;
436: END IF;
434: Status := l_String;
435: RETURN;
436: END IF;
437:
438: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
439: IF (l_String <> 'OK') THEN
440: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
441: IF (l_String <> 'OK') THEN
442: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
436: END IF;
437:
438: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
439: IF (l_String <> 'OK') THEN
440: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
441: IF (l_String <> 'OK') THEN
442: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
443: IF (l_String <> 'OK') THEN
444: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
438: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SCP',l_SecurityGroupId);
439: IF (l_String <> 'OK') THEN
440: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
441: IF (l_String <> 'OK') THEN
442: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
443: IF (l_String <> 'OK') THEN
444: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
445: IF (l_String <> 'OK') THEN
446: Status := l_String;
440: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRO',l_SecurityGroupId);
441: IF (l_String <> 'OK') THEN
442: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCDP',l_SecurityGroupId);
443: IF (l_String <> 'OK') THEN
444: MSC_WS_COMMON.VALIDATE_USER_RESP_FUNC(l_String, g_UserId, l_ResponsibilityId, 'MSCFPCMN-SRP',l_SecurityGroupId);
445: IF (l_String <> 'OK') THEN
446: Status := l_String;
447: RETURN;
448: END IF;