[Home] [Help]
47: rlm_message_sv.initialize_dependency('MANAGE_DEMAND');
48: --
49: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
50: x_Group_rec.IsSourced := FALSE;
51: RLM_RD_SV.g_SourceTab.DELETE;
52: --
53: IF (l_debug <> -1) THEN
54: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_start_date',
55: x_Sched_rec.sched_horizon_start_date);
85: IF v_SourcedDemand_Tab.COUNT > 0 THEN
86: --
87: i := v_Source_Tab.FIRST;
88: WHILE i IS NOT NULL LOOP
89: RLM_RD_SV.g_SourceTab(RLM_RD_SV.g_SourceTab.COUNT+1) := v_Source_Tab(i);
90: i := v_Source_Tab.NEXT(i);
91: END LOOP;
92: --
93: ProcessTable(v_SourcedDemand_Tab);
3233: v_MRPFenceDays NUMBER := NULL;
3234: v_Progress VARCHAR2(3) := '010';
3235: -- Bug 4297984
3236: v_MatchAttrTxt VARCHAR2(2000);
3237: v_match_rec RLM_RD_SV.t_generic_rec;
3238: v_Group_rec rlm_dp_sv.t_Group_rec;
3239:
3240: BEGIN
3241: --
3441: --
3442: END IF; --}
3443: --
3444: -- Bug 4297984
3445: RLM_RD_SV.AssignMatchAttribValues(g_ManageDemand_tab(i),v_match_rec);
3446: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3447: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3448: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3449: v_Group_rec := x_Group_rec;
3442: END IF; --}
3443: --
3444: -- Bug 4297984
3445: RLM_RD_SV.AssignMatchAttribValues(g_ManageDemand_tab(i),v_match_rec);
3446: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3447: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3448: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3449: v_Group_rec := x_Group_rec;
3450: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3446: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3447: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3448: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3449: v_Group_rec := x_Group_rec;
3450: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3451: --
3452: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3453: --
3454: rlm_message_sv.app_error(
6782: FUNCTION CalculateIntransitQty
6783:
6784: ===========================================================================*/
6785:
6786: /*any changes to this package may be incorporated in the function rlm_managedemand_sv.GetAllIntransitQty and rlm_rd_sv.SynchronizeShipments and vice versa */
6787:
6788:
6789: FUNCTION CalculateIntransitQty(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
6790: x_Group_rec IN rlm_dp_sv.t_Group_rec)
6808: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
6809: v_match_within_rule RLM_CORE_SV.t_Match_rec;
6810: v_match_across_rule RLM_CORE_SV.t_Match_rec;
6811: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
6812: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
6813: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
6814: --
6815:
6816: BEGIN
6836: RETURN v_IntransitQty;
6837: --
6838: ELSIF v_intransit_calc_basis IN (k_RECEIPT, k_SHIPMENT) THEN --Bugfix 6265953
6839: --
6840: RLM_RD_SV.InitializeIntransitParam(x_Sched_rec, x_Group_rec, v_intransit_calc_basis,
6841: v_Shipper_rec, v_Shipment_date);
6842: --
6843: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
6844: --
6989: --
6990: RAISE;
6991: --
6992: WHEN OTHERS THEN
6993: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);
6994: --
6995: IF (l_debug <> -1) THEN
6996: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6997: END IF;
8072: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8073: v_intransit_calc_basis VARCHAR2(15);
8074: v_deliveryID VARCHAR2(35);
8075: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
8076: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
8077: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
8078: --
8079: CURSOR c_Orders IS
8080: SELECT header_id