[Home] [Help]
14: ===========================================================================*/
15:
16: PROCEDURE ManageDemand(x_InterfaceHeaderId IN NUMBER,
17: x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
18: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
19: x_ReturnStatus OUT NOCOPY NUMBER)
20: IS
21: --
22: v_Progress VARCHAR2(30) := '010';
20: IS
21: --
22: v_Progress VARCHAR2(30) := '010';
23: v_SrcGroup_ref t_Cursor_ref;
24: v_SrcGroup_rec rlm_dp_sv.t_Group_rec;
25: v_SourcedDemand_Tab t_MD_Tab;
26: v_HeaderLockStatus NUMBER;
27: v_LineLockStatus NUMBER;
28: e_headerLocked EXCEPTION;
241:
242: ===========================================================================*/
243:
244: PROCEDURE ManageGroupDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
245: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
246: x_ReturnStatus OUT NOCOPY NUMBER)
247: IS
248: --
249: v_Progress VARCHAR2(30) := '010';
394:
395: ===========================================================================*/
396:
397: PROCEDURE PopulateLastReceiptRec(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
398: x_Group_rec IN rlm_dp_sv.t_Group_rec)
399: IS
400: --
401: CURSOR c_LastReceipt IS
402: SELECT x_group_rec.customer_id,
479:
480: ===========================================================================*/
481:
482: PROCEDURE PopulateCUMRec(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
483: x_Group_rec IN rlm_dp_sv.t_Group_rec)
484: IS
485: --Created cursor for Bugfix 7007638
486: CURSOR c_CUMRec IS
487: SELECT x_group_rec.customer_id,
628:
629: ===========================================================================*/
630:
631: PROCEDURE PopulateMD(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
632: x_Group_rec IN rlm_dp_sv.t_Group_rec,
633: x_IncludeCUM IN VARCHAR2)
634: IS
635: --
636: CURSOR c_Demand IS
744: PROCEDURE NAME: UOMConversion
745:
746: ===========================================================================*/
747:
748: PROCEDURE UOMConversion(x_Group_rec IN rlm_dp_sv.t_Group_rec)
749: IS
750:
751: v_Count NUMBER := 1;
752: v_CustomerUOMCode VARCHAR2(30) := NULL;
781:
782: ===========================================================================*/
783:
784: PROCEDURE CUMDiscrepancyCheck( x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
785: x_Group_rec IN rlm_dp_sv.t_Group_rec)
786: IS
787: --
788: v_ReturnStatus VARCHAR2(30) := 'SUCCESS';
789: v_Progress VARCHAR2(3) := '010';
1418:
1419: ===========================================================================*/
1420:
1421: PROCEDURE CUMToDiscrete(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1422: x_Group_rec IN rlm_dp_sv.t_Group_rec)
1423: IS
1424: --
1425: v_current_rec NUMBER;
1426: v_EarlierDiscreteQty NUMBER := 0;
1938: PROCEDURE NAME: ApplySourceRules
1939:
1940: ===========================================================================*/
1941: PROCEDURE ApplySourceRules(x_Sched_rec IN rlm_interface_headers%ROWTYPE,
1942: x_Group_rec IN rlm_dp_sv.t_Group_rec,
1943: x_SourcedDemand_tab OUT NOCOPY rlm_manage_demand_sv.t_MD_Tab,
1944: x_Source_Tab OUT NOCOPY rlm_manage_demand_sv.t_Source_Tab)
1945: IS
1946: --
2117: e_NoSrcRulesSetup EXCEPTION;
2118: e_NoSrItemId EXCEPTION;
2119: v_org_found BOOLEAN DEFAULT FALSE;
2120: v_current_rec NUMBER;
2121: v_tmpGroup_rec rlm_dp_sv.t_Group_Rec;
2122: v_count_msc NUMBER DEFAULT 0;
2123: v_count_mrp NUMBER DEFAULT 0;
2124: v_normal_source VARCHAR2(3) DEFAULT 'MSC';
2125: v_source_level VARCHAR2(4) DEFAULT 'SITE'; -- possible values 'SITE', 'ITEM', 'PRFL'
2874:
2875: ===========================================================================*/
2876:
2877: PROCEDURE CalculateShipDate(x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
2878: x_Group_rec IN rlm_dp_sv.t_Group_rec)
2879: IS
2880:
2881: i NUMBER;
2882: j NUMBER;
3213:
3214: ===========================================================================*/
3215:
3216: PROCEDURE ApplyFFFFences(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3217: x_Group_rec IN rlm_dp_sv.t_Group_rec,
3218: IsLineProcessed IN OUT NOCOPY BOOLEAN)
3219: IS
3220:
3221: i NUMBER;
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: --
3242: IF (l_debug <> -1) THEN
4864: PROCEDURE NAME: MatchDemand
4865:
4866: ===========================================================================*/
4867:
4868: PROCEDURE MatchDemand(x_Group_rec IN rlm_dp_sv.t_Group_rec,
4869: x_Index IN NUMBER,
4870: x_AggregateDemand_tab IN OUT NOCOPY t_MD_tab,
4871: x_Delete_tab IN OUT NOCOPY t_Number_tab,
4872: x_ExcpTab IN OUT NOCOPY t_Match_Tab)
5401: PROCEDURE NAME: AggregateDemand
5402:
5403: ===========================================================================*/
5404:
5405: PROCEDURE AggregateDemand(x_Group_rec IN rlm_dp_sv.t_Group_rec)
5406: IS
5407:
5408: i NUMBER;
5409: v_Delete_tab t_Number_tab;
5732:
5733: ===========================================================================*/
5734:
5735: PROCEDURE RoundStandardPack(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
5736: x_Group_rec IN rlm_dp_sv.t_Group_rec)
5737: IS
5738:
5739: v_RoundPack VARCHAR(1);
5740: v_StdPackQty NUMBER;
5995:
5996: ===========================================================================*/
5997: PROCEDURE InitializeMdGroup(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
5998: x_Group_ref IN OUT NOCOPY rlm_manage_demand_sv.t_Cursor_ref,
5999: x_Group_rec IN rlm_dp_sv.t_Group_rec)
6000: IS
6001:
6002: BEGIN
6003:
6068: FUNCTION FetchGroup
6069:
6070: ===========================================================================*/
6071: FUNCTION FetchGroup(x_Group_ref IN OUT NOCOPY t_Cursor_ref,
6072: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec)
6073: RETURN BOOLEAN
6074: IS
6075: BEGIN
6076:
6123: PROCEDURE CallSetups
6124:
6125: ===========================================================================*/
6126: PROCEDURE CallSetups(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
6127: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec)
6128: IS
6129:
6130: v_SetupTerms_rec rlm_setup_terms_sv.setup_terms_rec_typ;
6131: v_TermsLevel VARCHAR2(30) := NULL;
6355:
6356: ===========================================================================*/
6357:
6358: FUNCTION LockLines (x_headerId IN NUMBER,
6359: x_GroupRec IN rlm_dp_sv.t_Group_rec)
6360: RETURN BOOLEAN
6361: IS
6362: --
6363: x_progress VARCHAR2(3) := '010';
6501: ===========================================================================*/
6502:
6503: PROCEDURE UpdateGroupStatus (x_HeaderId IN NUMBER,
6504: x_ScheduleHeaderId IN NUMBER,
6505: x_GroupRec IN rlm_dp_sv.t_Group_rec,
6506: x_ProcessStatus IN NUMBER,
6507: x_UpdateLevel IN VARCHAR2)
6508: IS
6509: --
6676: FUNCTION NAME: GetTPContext
6677:
6678: ===========================================================================*/
6679: PROCEDURE GetTPContext( x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
6680: x_group_rec IN rlm_dp_sv.t_Group_rec,
6681: x_customer_number OUT NOCOPY VARCHAR2,
6682: x_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
6683: x_bill_to_ece_locn_code OUT NOCOPY VARCHAR2,
6684: x_inter_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
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)
6791: RETURN NUMBER
6792: IS
6793: --
6794: v_InTransitQty NUMBER := 0;
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
6817:
7001: END CalculateIntransitQty;
7002:
7003:
7004: FUNCTION GetAllIntransitQty(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
7005: x_Group_rec IN rlm_dp_sv.t_Group_rec,
7006: x_Source_Tab IN RLM_MANAGE_DEMAND_SV.t_Source_Tab)
7007: RETURN NUMBER
7008: IS
7009:
7977: -- Bug 2788014: Calculate intransit quantities across orgs and orders
7978: -- if CUM org level is xxx/All Ship Froms
7979: --
7980: FUNCTION GetIntransitAcrossOrgs(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
7981: x_Group_rec IN rlm_dp_sv.t_Group_rec,
7982: x_cum_key_id IN NUMBER)
7983: RETURN NUMBER IS
7984: -- The shipper ID is stored in the item_detail_ref_value_1 field
7985: -- when the item detail type = 4 and the sub type = 'RECEIPT', 'SHIPMENT'
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
8081: FROM oe_order_lines