[Home] [Help]
1: PACKAGE BODY msc_rel_wf AS
2: /*$Header: MSCRLWFB.pls 120.22 2012/03/22 07:23:25 giyer ship $ */
3:
4: g_item_type varchar2(10) := 'MSCRELWF';
5:
209: p_process varchar2) IS
210: p_result boolean;
211: p_request_id number;
212: Begin
213: msc_rel_wf.init_db(p_planner);
214: p_result := fnd_request.set_mode(true);
215: -- this will call mrp_rel_wf.reschedule_po_wf
216:
217: p_request_id := fnd_request.submit_request(
353:
354: wf_engine.StartProcess( itemtype => g_item_type,
355: itemkey => p_item_key);
356: exception when others then
357: wf_core.context('MSC_REL_WF', 'notify planner', p_item_key,g_item_type);
358: raise;
359: END notify_planner_decline;
360:
361: PROCEDURE Select_buyer_supplier( itemtype in varchar2,
710: close mfg_calendar_code;
711:
712: -- dbms_output.put_line(' p_implement_date ' || to_char(p_implement_date, 'MM/DD/YYYY HH24:MI:SS'));
713: --dbms_output.put_line (' l_mfg_calendar = ' || l_mfg_calendar);
714: dock_date := msc_rel_wf.get_offset_date(l_mfg_calendar,
715: p_instance_id,
716: -1*p_lead_time, p_implement_date);
717:
718: dock_date := msc_drp_util.get_work_day('PREV',p_receiving_calendar,
1698: ||' :out);'
1699: ||' END;';
1700:
1701: MSC_LOG.string ( FND_LOG.LEVEL_ERROR,
1702: 'msc_rel_wf.release_sales_orders',
1703: 'sql statement is : '||lv_sql_stmt);
1704:
1705:
1706: EXECUTE IMMEDIATE lv_sql_stmt
1809: sql_stmt varchar2(500);
1810:
1811:
1812: BEGIN
1813: msc_rel_wf.validate_proj_in_source( p_org_id,
1814: p_project_id,
1815: p_task_id,
1816: p_start_date,
1817: null, -- no date for completion date
3049: -- will use max date for the whole set
3050: for a in 1..v_set_demand_id.count loop
3051: if p_arrival_date <> v_planned_arrival_date(a) then
3052: -- offset max(sch_arrival_date) with lead time to get sch_ship_date
3053: v_ship_date(a) := msc_rel_wf.get_offset_date
3054: ( v_vic_cal_code
3055: , v_inst_id(a)
3056: , v_lead_time(a)*-1
3057: , p_arrival_date);
3058: else
3059: v_ship_date(a) := v_planned_ship_date(a);
3060:
3061: end if;
3062: v_earliest_date(a) := msc_rel_wf.get_offset_date
3063: ( v_vic_cal_code
3064: , v_inst_id(a)
3065: , v_lead_time(a)*-1
3066: , p_earliest_date);
3098: p_ship_date := verify_so_dates(so_rec.schedule_date,
3099: so_rec.request_date,
3100: so_rec.ship_date);
3101: if p_ship_date <> so_rec.planned_ship_date then
3102: p_arrival_date := msc_rel_wf.get_offset_date
3103: ( v_vic_cal_code
3104: , so_rec.inst_id
3105: , so_rec.lead_time
3106: , p_ship_date);
3108: p_arrival_date := so_rec.planned_arrival_date;
3109: end if;
3110: else -- arrival
3111: if so_rec.ship_date <> so_rec.planned_ship_date then
3112: p_arrival_date := msc_rel_wf.get_offset_date
3113: ( v_vic_cal_code
3114: , so_rec.inst_id
3115: , so_rec.lead_time
3116: , so_rec.ship_date);
3121: so_rec.request_date,
3122: p_arrival_date);
3123: p_earliest_date := so_rec.earliest_ship_date;
3124: if p_arrival_date <> so_rec.planned_arrival_date then
3125: p_ship_date := msc_rel_wf.get_offset_date
3126: ( v_vic_cal_code
3127: , so_rec.inst_id
3128: , so_rec.lead_time*-1
3129: , p_arrival_date);
3364: p_planner in varchar2,
3365: p_request_id out nocopy number) IS
3366: p_result boolean;
3367: begin
3368: msc_rel_wf.init_db(p_planner);
3369: p_result := fnd_request.set_mode(true);
3370: -- this will call msc_rel_wf.start_so_release_workflow
3371:
3372: p_request_id := fnd_request.submit_request(
3366: p_result boolean;
3367: begin
3368: msc_rel_wf.init_db(p_planner);
3369: p_result := fnd_request.set_mode(true);
3370: -- this will call msc_rel_wf.start_so_release_workflow
3371:
3372: p_request_id := fnd_request.submit_request(
3373: 'MSC',
3374: 'MSCRLSOWF',
3693:
3694: return p_new_date;
3695: END date_offset;
3696:
3697: END msc_rel_wf;