APPS.MSC_RP_PUB dependencies on MSC_PLANS

Line 121: from msc_plans where plan_id=arg_plan_id;

117:
118: cursor get_plan(arg_plan_id number) is
119: select nvl(criteria_changed,0),
120: nvl(supply_inclusion_option,0)
121: from msc_plans where plan_id=arg_plan_id;
122:
123: cursor get_criteria(arg_plan_id number) is
124: select
125: criteria_id, table_name,criteria_condition,criteria_value,saved_query_keys from msc_rp_selection_criteria

Line 386: 3) Copy ASCP plan's msc_plans.ascp_plan_version to rp plan's msc_plans.ascp_plan_version, ascp msc_plans.plan_id to msc_plans.ascp_plan_id

382: 1)If exsiting RP plan target,
383: a. Capture plan Id, and required plan params
384: b. purge plan rows in plan options tables,
385: 2)Insert plan rows with ASCP options
386: 3) Copy ASCP plan's msc_plans.ascp_plan_version to rp plan's msc_plans.ascp_plan_version, ascp msc_plans.plan_id to msc_plans.ascp_plan_id
387:
388: 4. Return Success
389:
390: */

Line 440: from msc_plans mp, msc_designators desig where mp.compile_designator=arg_plan_name

436: l_sr_instance_id number:=RP_NULL_VALUE;
437:
438: cursor plan_exists(arg_plan_name varchar2) is
439: select mp.plan_id,nvl(mp.ascp_plan_version,RP_NULL_VALUE), mp.plan_type, desig.designator_id, ascp_plan_id
440: from msc_plans mp, msc_designators desig where mp.compile_designator=arg_plan_name
441: and mp.compile_designator=desig.designator;
442:
443: cursor assert_user_access(arg_plan_id number) is
444: select 1

Line 445: from msc_plans mp, msc_rp_plan_access mpa

441: and mp.compile_designator=desig.designator;
442:
443: cursor assert_user_access(arg_plan_id number) is
444: select 1
445: from msc_plans mp, msc_rp_plan_access mpa
446: where mp.plan_id=mpa.plan_id(+)
447: and
448: (
449: nvl(mp.private_plan,2) =2 --is public plan

Line 461: from msc_plans mp, msc_designators desig where mp.plan_id=arg_plan_id

457: and mp.plan_id=arg_plan_id;
458:
459: cursor get_options(arg_plan_id number) is
460: select mp.description,mp.category_set_id,mp.daily_cutoff_bucket
461: from msc_plans mp, msc_designators desig where mp.plan_id=arg_plan_id
462: and mp.compile_designator=desig.designator;
463:
464: /*l_prog_seq number;
465: cursor prog_seq is

Line 476: Msc_Plans

472: Where (Designator, Organization_Id, Sr_Instance_Id) =
473: (Select
474: Compile_Designator, Organization_Id, Sr_Instance_Id
475: From
476: Msc_Plans
477: Where
478: Plan_Id=p_plan_id);
479:
480: begin

Line 653: Copy ASCP plan's msc_plans.ascp_plan_version to rp plan's msc_plans.ascp_plan_version,

649: );
650: rp_debug('after copy options');
651: --plan options is copied. Now link the copy plans.
652: /*
653: Copy ASCP plan's msc_plans.ascp_plan_version to rp plan's msc_plans.ascp_plan_version,
654: ascp msc_plans.plan_id to msc_plans.ascp_plan_id
655:
656: */
657: msc_copy_plan_options.link_Plans

Line 654: ascp msc_plans.plan_id to msc_plans.ascp_plan_id

650: rp_debug('after copy options');
651: --plan options is copied. Now link the copy plans.
652: /*
653: Copy ASCP plan's msc_plans.ascp_plan_version to rp plan's msc_plans.ascp_plan_version,
654: ascp msc_plans.plan_id to msc_plans.ascp_plan_id
655:
656: */
657: msc_copy_plan_options.link_Plans
658: (

Line 700: update MSC_PLANS

696: BEGIN
697: EXIT WHEN l_Counter > l_max_tries;
698: l_Counter := l_Counter + 1;
699:
700: update MSC_PLANS
701: set
702: ascp_plan_id=ascp_id,
703: ascp_plan_version=l_ascp_plan_version,
704: category_set_id=l_category_set_id,

Line 860: update MSC_PLANS

856: BEGIN
857: EXIT WHEN l_Counter > l_max_tries;
858: l_Counter := l_Counter + 1;
859:
860: update MSC_PLANS
861: set
862: request_id=request_id1
863: where plan_id = rp_id;
864: exit;

Line 956: update MSC_PLANS

952: BEGIN
953: EXIT WHEN l_Counter > l_max_tries;
954: l_Counter := l_Counter + 1;
955:
956: update MSC_PLANS
957: set
958: request_id=request_id2,
959: has_run=1,
960: status=1

Line 1042: select rowid from msc_plans

1038: l_Counter NUMBER :=0;
1039: l_max_tries CONSTANT Number := 100000;
1040:
1041: cursor c_lock_child_plans(var_plan_id in number) is
1042: select rowid from msc_plans
1043: where base_plan_id=arg_plan_id
1044: for update of plan_completion_date,has_run,base_plan_id nowait;
1045:
1046: TYPE tab_type IS TABLE OF ROWID INDEX BY BINARY_INTEGER;

Line 1053: rp_debug('In process_child_rp_plans: Attempting to update Msc_Plans for child rp plans...');

1049: begin
1050: rp_debug('Debug Only: In process_child_rp_plans...');
1051: --Step 1: Check for lock and update child plan rows
1052: savepoint BF_UPD_CHILD_RP;
1053: rp_debug('In process_child_rp_plans: Attempting to update Msc_Plans for child rp plans...');
1054: l_Counter := 0;
1055: rp_debug('Debug Only: Attempting to lock any child plans...');
1056: LOOP
1057: BEGIN

Line 1067: UPDATE MSC_PLANS

1063:
1064: rp_debug('Debug Only: Got count of child plans...'||l_rowlist.count);
1065:
1066: FORALL I IN 1..l_rowlist.count
1067: UPDATE MSC_PLANS
1068: SET plan_completion_date=null,
1069: has_run=0,
1070: base_plan_id=null
1071: WHERE ROWID=l_rowlist(I);

Line 1081: rp_debug('Unable to lock msc_plans for updating Calculate lateness constraints.');

1077: IF c_lock_child_plans%ISOPEN THEN
1078: CLOSE c_lock_child_plans;
1079: END IF;
1080: IF l_Counter > l_max_tries THEN
1081: rp_debug('Unable to lock msc_plans for updating Calculate lateness constraints.');
1082: --RAISE;
1083: rollback to BF_UPD_CHILD_RP;
1084: EXIT;
1085: END IF;

Line 1087: rp_debug('Unable to lock/update msc_plans row after: ('||l_Counter||') Tries...');

1083: rollback to BF_UPD_CHILD_RP;
1084: EXIT;
1085: END IF;
1086: IF TRUNC(l_Counter/100)*100 = l_Counter THEN
1087: rp_debug('Unable to lock/update msc_plans row after: ('||l_Counter||') Tries...');
1088: END IF;
1089: END;
1090: END LOOP;
1091: rp_debug('Debug Only: Out of lock loop...');