[Home] [Help]
1: PACKAGE BODY msc_rel_wf AS
2: /*$Header: MSCRLWFB.pls 120.11 2008/01/07 18:45:19 eychen 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,
691: BEGIN
692:
693: -- first use receiving calendar to offset the post processing lead time
694:
695: dock_date := msc_rel_wf.get_offset_date(p_receiving_calendar,
696: p_instance_id,
697: -1*p_lead_time, p_implement_date);
698:
699: dock_date := msc_drp_util.get_work_day('PREV',p_receiving_calendar,
1468: ||' :out);'
1469: ||' END;';
1470:
1471: MSC_LOG.string ( FND_LOG.LEVEL_ERROR,
1472: 'msc_rel_wf.release_sales_orders',
1473: 'sql statement is : '||lv_sql_stmt);
1474:
1475:
1476: EXECUTE IMMEDIATE lv_sql_stmt
1574: sql_stmt varchar2(500);
1575:
1576:
1577: BEGIN
1578: msc_rel_wf.validate_proj_in_source( p_org_id,
1579: p_project_id,
1580: p_task_id,
1581: p_start_date,
1582: null, -- no date for completion date
2784: -- will use max date for the whole set
2785: for a in 1..v_set_demand_id.count loop
2786: if p_arrival_date <> v_planned_arrival_date(a) then
2787: -- offset max(sch_arrival_date) with lead time to get sch_ship_date
2788: v_ship_date(a) := msc_rel_wf.get_offset_date
2789: ( v_vic_cal_code
2790: , v_inst_id(a)
2791: , v_lead_time(a)*-1
2792: , p_arrival_date);
2793: else
2794: v_ship_date(a) := v_planned_ship_date(a);
2795:
2796: end if;
2797: v_earliest_date(a) := msc_rel_wf.get_offset_date
2798: ( v_vic_cal_code
2799: , v_inst_id(a)
2800: , v_lead_time(a)*-1
2801: , p_earliest_date);
2833: p_ship_date := verify_so_dates(so_rec.schedule_date,
2834: so_rec.request_date,
2835: so_rec.ship_date);
2836: if p_ship_date <> so_rec.planned_ship_date then
2837: p_arrival_date := msc_rel_wf.get_offset_date
2838: ( v_vic_cal_code
2839: , so_rec.inst_id
2840: , so_rec.lead_time
2841: , p_ship_date);
2843: p_arrival_date := so_rec.planned_arrival_date;
2844: end if;
2845: else -- arrival
2846: if so_rec.ship_date <> so_rec.planned_ship_date then
2847: p_arrival_date := msc_rel_wf.get_offset_date
2848: ( v_vic_cal_code
2849: , so_rec.inst_id
2850: , so_rec.lead_time
2851: , so_rec.ship_date);
2856: so_rec.request_date,
2857: p_arrival_date);
2858: p_earliest_date := so_rec.earliest_ship_date;
2859: if p_arrival_date <> so_rec.planned_arrival_date then
2860: p_ship_date := msc_rel_wf.get_offset_date
2861: ( v_vic_cal_code
2862: , so_rec.inst_id
2863: , so_rec.lead_time*-1
2864: , p_arrival_date);
3099: p_planner in varchar2,
3100: p_request_id out nocopy number) IS
3101: p_result boolean;
3102: begin
3103: msc_rel_wf.init_db(p_planner);
3104: p_result := fnd_request.set_mode(true);
3105: -- this will call msc_rel_wf.start_so_release_workflow
3106:
3107: p_request_id := fnd_request.submit_request(
3101: p_result boolean;
3102: begin
3103: msc_rel_wf.init_db(p_planner);
3104: p_result := fnd_request.set_mode(true);
3105: -- this will call msc_rel_wf.start_so_release_workflow
3106:
3107: p_request_id := fnd_request.submit_request(
3108: 'MSC',
3109: 'MSCRLSOWF',
3403:
3404: return p_new_date;
3405: END date_offset;
3406:
3407: END msc_rel_wf;