30: BEGIN
31: G_MRP_DEBUG := FND_PROFILE.VALUE('MRP_DEBUG') ; /*2663505*/
32:
33: /*----------------------------------------+
34: | Update mrp_plans with plan horizon date |
35: +----------------------------------------*/
36:
37: IF G_MRP_DEBUG = 'Y' THEN /*2663505*/
38:
44:
45: var_new_date := MRP_CALENDAR.NEXT_WORK_DAY(arg_org_id,1,
46: TO_DATE(TO_CHAR(add_months(sysdate, NVL(months, 12)),
47: 'YYYY/MM/DD HH24:MI:SS'), 'YYYY/MM/DD HH24:MI:SS')) ;
48: UPDATE mrp_plans
49: SET curr_cutoff_date = var_new_date,
50: plan_completion_date = NULL,
51: data_completion_date = NULL
52: WHERE organization_id = arg_org_id
54: COMMIT;
55: ELSE
56:
57: var_new_date := MRP_CALENDAR.NEXT_WORK_DAY(arg_org_id,1,TO_DATE(arg_plan_horizon, 'YYYY/MM/DD HH24:MI:SS')) ;
58: UPDATE mrp_plans
59: SET curr_cutoff_date = var_new_date,
60: plan_completion_date = NULL,
61: data_completion_date = NULL
62: WHERE organization_id = arg_org_id