[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);
3287: v_MRPFenceDays NUMBER := NULL;
3288: v_Progress VARCHAR2(3) := '010';
3289: -- Bug 4297984
3290: v_MatchAttrTxt VARCHAR2(2000);
3291: v_match_rec RLM_RD_SV.t_generic_rec;
3292: v_Group_rec rlm_dp_sv.t_Group_rec;
3293:
3294: BEGIN
3295: --
3498: --
3499: END IF; --}
3500: --
3501: -- Bug 4297984
3502: RLM_RD_SV.AssignMatchAttribValues(g_ManageDemand_tab(i),v_match_rec);
3503: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3504: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3505: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3506: v_Group_rec := x_Group_rec;
3499: END IF; --}
3500: --
3501: -- Bug 4297984
3502: RLM_RD_SV.AssignMatchAttribValues(g_ManageDemand_tab(i),v_match_rec);
3503: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3504: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3505: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3506: v_Group_rec := x_Group_rec;
3507: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3503: -- RLM_RD_SV.GetMatchAttributes defines the second argument:Group_rec as IN OUT
3504: -- where as in this function (ApplyFFFFences) x_Group_rec is an IN arguement.
3505: -- Hence x_Group_rec cannot be passed as such and the following assignment is done.
3506: v_Group_rec := x_Group_rec;
3507: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3508: --
3509: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3510: --
3511: rlm_message_sv.app_error(
6873: FUNCTION CalculateIntransitQty
6874:
6875: ===========================================================================*/
6876:
6877: /*any changes to this package may be incorporated in the function rlm_managedemand_sv.GetAllIntransitQty and rlm_rd_sv.SynchronizeShipments and vice versa */
6878:
6879:
6880: FUNCTION CalculateIntransitQty(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
6881: x_Group_rec IN rlm_dp_sv.t_Group_rec)
6899: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
6900: v_match_within_rule RLM_CORE_SV.t_Match_rec;
6901: v_match_across_rule RLM_CORE_SV.t_Match_rec;
6902: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
6903: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
6904: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
6905: --
6906:
6907: BEGIN
6927: RETURN v_IntransitQty;
6928: --
6929: ELSIF v_intransit_calc_basis IN (k_RECEIPT, k_SHIPMENT) THEN --Bugfix 6265953
6930: --
6931: RLM_RD_SV.InitializeIntransitParam(x_Sched_rec, x_Group_rec, v_intransit_calc_basis,
6932: v_Shipper_rec, v_Shipment_date);
6933: --
6934: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
6935: --
7079: --
7080: RAISE;
7081: --
7082: WHEN OTHERS THEN
7083: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);
7084: --
7085: IF (l_debug <> -1) THEN
7086: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7087: END IF;
8162: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8163: v_intransit_calc_basis VARCHAR2(15);
8164: v_deliveryID VARCHAR2(35);
8165: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
8166: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
8167: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
8168: --
8169: CURSOR c_Orders IS
8170: SELECT header_id