[Home] [Help]
1: PACKAGE BODY RLM_RD_SV as
2: /*$Header: RLMDPRDB.pls 120.24 2011/12/20 07:59:08 sunilku ship $*/
3: /*===========================================================================*/
4: --
5: l_DEBUG NUMBER := NVL(fnd_profile.value('RLM_DEBUG_MODE'),-1);
150: --
151: WHEN OTHERS THEN
152: --
153: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
154: rlm_message_sv.sql_error('rlm_rd_sv.RecDemand',x_progress);
155: --
156: IF (l_debug <> -1) THEN
157: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
158: END IF;
424: raise e_group_error;
425: --
426: WHEN OTHERS THEN
427: --
428: rlm_message_sv.sql_error('rlm_rd_sv.RecGroupDemand',x_progress);
429: --
430: IF (l_debug <> -1) THEN
431: rlm_core_sv.dpop(k_SDEBUG);
432: END IF;
694: raise e_group_error;
695: --
696: WHEN OTHERS THEN
697: --
698: rlm_message_sv.sql_error('rlm_rd_sv.CallSetups',x_progress);
699: --
700: IF (l_debug <> -1) THEN
701: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
702: END IF;
790: --
791: raise;
792: --
793: WHEN OTHERS THEN
794: rlm_message_sv.sql_error('rlm_rd_sv.ExecOperations', x_progress);
795: --
796: IF (l_debug <> -1) THEN
797: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
798: END IF;
894: --
895: raise e_group_error;
896:
897: WHEN OTHERS THEN
898: rlm_message_sv.sql_error('rlm_rd_sv.CancelPreHorizonNATS',x_progress);
899: --
900: IF (l_debug <> -1) THEN
901: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
902: END IF;
910:
911: FUNCTION ProcessConstraint
912:
913: ===========================================================================*/
914: FUNCTION ProcessConstraint(x_Key_rec IN RLM_RD_SV.t_Key_rec,
915: x_Qty_rec OUT NOCOPY t_Qty_rec,
916: x_Operation IN VARCHAR2,
917: x_OperationQty IN NUMBER := 0)
918: RETURN BOOLEAN
990: RETURN(b_Result);
991: --
992: EXCEPTION
993: WHEN OTHERS THEN
994: rlm_message_sv.sql_error('rlm_rd_sv.ProcessConstraint',x_progress);
995: --
996: IF (l_debug <> -1) THEN
997: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
998: END IF;
1051: END IF;
1052:
1053: EXCEPTION
1054: WHEN OTHERS THEN
1055: rlm_message_sv.sql_error('rlm_rd_sv.FetchGroup',x_progress);
1056: --
1057: IF (l_debug <> -1) THEN
1058: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1059: END IF;
1068:
1069: ===========================================================================*/
1070:
1071: FUNCTION RemainOnFile(x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
1072: x_Key_rec IN RLM_RD_SV.t_Key_rec)
1073: RETURN BOOLEAN
1074: IS
1075: v_Progress VARCHAR2(3) := '010';
1076: BEGIN
1114: EXCEPTION
1115:
1116: WHEN OTHERS THEN
1117: --
1118: rlm_message_sv.sql_error('RLM_RD_SV.RemainOnFile', v_Progress);
1119: IF (l_debug <> -1) THEN
1120: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1121: END IF;
1122: RAISE;
1129:
1130: ===========================================================================*/
1131: PROCEDURE DeleteRequirement(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1132: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
1133: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
1134: x_Reconcile IN BOOLEAN,
1135: x_DeleteQty OUT NOCOPY NUMBER)
1136: IS
1137:
1526: RAISE;
1527: --
1528: WHEN OTHERS THEN
1529: --
1530: rlm_message_sv.sql_error('rlm_rd_sv.DeleteRequirement',x_progress);
1531: --
1532: IF (l_debug <> -1) THEN
1533: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1534: END IF;
1543:
1544: ===========================================================================*/
1545: PROCEDURE InsertRequirement(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1546: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
1547: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
1548: x_Reconcile IN BOOLEAN,
1549: x_Quantity IN OUT NOCOPY NUMBER)
1550: IS
1551:
2044: END IF; /*IF g_inc_exception */ --Bugfix 6159269
2045:
2046: -- Bug 4297984 End
2047: WHEN OTHERS THEN
2048: rlm_message_sv.sql_error('rlm_rd_sv.InsertRequirement',x_progress);
2049: --
2050: IF (l_debug <> -1) THEN
2051: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2052: END IF;
2061:
2062: ===========================================================================*/
2063: PROCEDURE UpdateRequirement(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
2064: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
2065: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
2066: x_Quantity IN NUMBER)
2067: IS
2068:
2069: v_Qty_rec t_Qty_rec;
2306: END IF;
2307: --
2308: EXCEPTION
2309: WHEN OTHERS THEN
2310: rlm_message_sv.sql_error('rlm_rd_sv.UpdateRequirement',x_progress);
2311: --
2312: IF (l_debug <> -1) THEN
2313: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2314: END IF;
2321:
2322: PROCEDURE GetQtyRec
2323:
2324: ===========================================================================*/
2325: PROCEDURE GetQtyRec(x_Key_rec IN RLM_RD_SV.t_Key_rec,
2326: x_Qty_rec OUT NOCOPY t_Qty_rec)
2327: IS
2328:
2329: x_progress VARCHAR2(3) := '010';
2335: END IF;
2336:
2337: EXCEPTION
2338: WHEN OTHERS THEN
2339: rlm_message_sv.sql_error('rlm_rd_sv.GetQtyRec',x_progress);
2340: --
2341: IF (l_debug <> -1) THEN
2342: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2343: END IF;
2351:
2352: PROCEDURE GetReq
2353:
2354: ===========================================================================*/
2355: PROCEDURE GetReq(x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec)
2356: IS
2357: x_progress VARCHAR2(3) := '010';
2358:
2359: BEGIN
2373: END IF;
2374: --
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377: rlm_message_sv.sql_error('rlm_rd_sv.GetReq',x_progress);
2378: --
2379: IF (l_debug <> -1) THEN
2380: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2381: END IF;
2389:
2390: PROCEDURE GetDemand
2391:
2392: ===========================================================================*/
2393: PROCEDURE GetDemand(x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
2394: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec)
2395: IS
2396: x_progress VARCHAR2(3) := '010';
2397: v_sql VARCHAR2(32000);
2583: END IF;
2584: --
2585: EXCEPTION
2586: WHEN OTHERS THEN
2587: rlm_message_sv.sql_error('rlm_rd_sv.GetDemand',x_progress);
2588: --
2589: IF (l_debug <> -1) THEN
2590: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2591: END IF;
2601:
2602: ===========================================================================*/
2603: PROCEDURE InitializeDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
2604: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
2605: x_Key_rec IN RLM_RD_SV.t_Key_rec,
2606: x_Demand_ref IN OUT NOCOPY t_Cursor_ref,
2607: x_DemandType IN VARCHAR2)
2608: IS
2609: x_progress VARCHAR2(3) := '010';
3511: WHEN e_no_init THEN
3512: rlm_core_sv.dpop(k_SDEBUG,'Demand Type is not ATS or NATS');
3513:
3514: WHEN OTHERS THEN
3515: rlm_message_sv.sql_error('rlm_rd_sv.InitializeDemand',x_progress);
3516: --
3517: IF (l_debug <> -1) THEN
3518: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3519: END IF;
3527: PROCEDURE InitializeSoGroup
3528:
3529: ===========================================================================*/
3530: PROCEDURE InitializeSoGroup(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3531: x_Group_ref IN OUT NOCOPY rlm_rd_sv.t_Cursor_ref,
3532: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec)
3533: IS
3534: x_progress VARCHAR2(3) := '010';
3535:
3584: END IF;
3585: --
3586: EXCEPTION
3587: WHEN OTHERS THEN
3588: rlm_message_sv.sql_error('rlm_rd_sv.InitializeSoGroup',x_progress);
3589: --
3590: IF (l_debug <> -1) THEN
3591: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3592: END IF;
3833: END IF;
3834: --
3835: EXCEPTION
3836: WHEN OTHERS THEN
3837: rlm_message_sv.sql_error('rlm_rd_sv.InitializeReq',x_progress);
3838: --
3839: IF (l_debug <> -1) THEN
3840: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3841: END IF;
3852:
3853: ===========================================================================*/
3854: PROCEDURE CancelRequirement(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3855: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
3856: x_Key_rec IN RLM_RD_SV.t_Key_rec,
3857: x_CancelQty IN NUMBER)
3858: IS
3859: x_progress VARCHAR2(3) := '010';
3860:
3872: END IF;
3873: --
3874: EXCEPTION
3875: WHEN OTHERS THEN
3876: rlm_message_sv.sql_error('rlm_rd_sv.CancelRequirement',x_progress);
3877: --
3878: IF (l_debug <> -1) THEN
3879: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3880: END IF;
4073: v_Key_rec.req_rec.industry_attribute1 := g_RecCUM_tab(v_Count).cust_record_year;
4074: END IF;
4075: -- Bugfix 7007638 End
4076:
4077: RLM_RD_SV.StoreShipments(x_Sched_rec, x_Group_rec,
4078: v_Key_rec, v_Intransit);
4079: --
4080: END IF;
4081: --
4245: rlm_core_sv.dpop(k_SDEBUG,'e_cumDiscrete');
4246: END IF;
4247: --
4248: WHEN OTHERS THEN
4249: rlm_message_sv.sql_error('rlm_rd_sv.SynchronizeShipments',x_progress);
4250: --
4251: IF (l_debug <> -1) THEN
4252: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4253: END IF;
4279: RETURN('Y');
4280:
4281: EXCEPTION
4282: WHEN OTHERS THEN
4283: rlm_message_sv.sql_error('rlm_rd_sv.MatchWithin',x_progress);
4284: --
4285: IF (l_debug <> -1) THEN
4286: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4287: END IF;
4312: RETURN('Y');
4313:
4314: EXCEPTION
4315: WHEN OTHERS THEN
4316: rlm_message_sv.sql_error('rlm_rd_sv.MatchAcross',x_progress);
4317: --
4318: IF (l_debug <> -1) THEN
4319: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4320: END IF;
4330:
4331: ===========================================================================*/
4332: PROCEDURE StoreShipments(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4333: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
4334: x_Key_rec IN RLM_RD_SV.t_Key_rec,
4335: x_Quantity IN NUMBER)
4336: IS
4337:
4338: v_Index NUMBER;
4420: END IF;
4421: --
4422: EXCEPTION
4423: WHEN OTHERS THEN
4424: rlm_message_sv.sql_error('rlm_rd_sv.StoreShipments',x_progress);
4425: --
4426: IF (l_debug <> -1) THEN
4427: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4428: END IF;
4437: PROCEDURE ReconcileShipments
4438:
4439: ===========================================================================*/
4440: PROCEDURE ReconcileShipments(x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
4441: x_Key_rec IN RLM_RD_SV.t_Key_rec,
4442: x_Quantity IN OUT NOCOPY NUMBER)
4443: IS
4444:
4445: v_Index NUMBER;
4500: END IF;
4501: --
4502: EXCEPTION
4503: WHEN OTHERS THEN
4504: rlm_message_sv.sql_error('rlm_rd_sv.ReconcileShipments',x_progress);
4505: --
4506: IF (l_debug <> -1) THEN
4507: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4508: END IF;
4516: FUNCTION MatchShipments
4517:
4518: ===========================================================================*/
4519: FUNCTION MatchShipments(x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
4520: x_Current_rec IN RLM_RD_SV.t_Generic_rec,
4521: x_Index OUT NOCOPY NUMBER)
4522: RETURN BOOLEAN
4523: IS
4524: x_progress VARCHAR2(3) := '010';
4589: RETURN(b_Match);
4590:
4591: EXCEPTION
4592: WHEN OTHERS THEN
4593: rlm_message_sv.sql_error('rlm_rd_sv.MatchShipments',x_progress);
4594: --
4595: IF (l_debug <> -1) THEN
4596: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4597: END IF;
5671: RETURN(b_Match);
5672: --
5673: EXCEPTION
5674: WHEN OTHERS THEN
5675: rlm_message_sv.sql_error('rlm_rd_sv.MatchFrozen',x_progress);
5676: --
5677: IF (l_debug <> -1) THEN
5678: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5679: END IF;
6808: RETURN(b_Match);
6809: --
6810: EXCEPTION
6811: WHEN OTHERS THEN
6812: rlm_message_sv.sql_error('rlm_rd_sv.MatchReconcile',x_progress);
6813: --
6814: IF (l_debug <> -1) THEN
6815: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6816: END IF;
6826:
6827: ===========================================================================*/
6828: PROCEDURE StoreReconcile(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
6829: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
6830: x_Key_rec IN RLM_RD_SV.t_Key_rec,
6831: x_Quantity IN NUMBER)
6832: IS
6833: --
6834: v_Index NUMBER;
6879: END IF;
6880:
6881: EXCEPTION
6882: WHEN OTHERS THEN
6883: rlm_message_sv.sql_error('rlm_rd_sv.StoreReconcile',x_progress);
6884: --
6885: IF (l_debug <> -1) THEN
6886: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6887: END IF;
6896: PROCEDURE Reconcile
6897:
6898: ===========================================================================*/
6899: PROCEDURE Reconcile(x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
6900: x_Key_rec IN RLM_RD_SV.t_Key_rec,
6901: x_Quantity IN OUT NOCOPY NUMBER)
6902: IS
6903:
6904: v_Index NUMBER;
6967: END IF;
6968: --
6969: EXCEPTION
6970: WHEN OTHERS THEN
6971: rlm_message_sv.sql_error('rlm_rd_sv.Reconcile',x_progress);
6972: --
6973: IF (l_debug <> -1) THEN
6974: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6975: END IF;
6983:
6984: FUNCTION AttributeChange
6985:
6986: ===========================================================================*/
6987: FUNCTION AttributeChange(x_Key_rec IN RLM_RD_SV.t_Key_rec)
6988: RETURN BOOLEAN
6989: IS
6990:
6991: b_Result BOOLEAN := TRUE;
7208: RETURN(b_Change);
7209:
7210: EXCEPTION
7211: WHEN OTHERS THEN
7212: rlm_message_sv.sql_error('rlm_rd_sv.AttributeChange',x_progress);
7213: --
7214: IF (l_debug <> -1) THEN
7215: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7216: END IF;
7340: --
7341: raise e_group_error;
7342:
7343: WHEN OTHERS THEN
7344: rlm_message_sv.sql_error('rlm_rd_sv.ProcessPreHorizonATS',x_progress);
7345: --
7346: IF (l_debug <> -1) THEN
7347: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7348: END IF;
8607: --
8608: raise e_group_error;
8609:
8610: WHEN OTHERS THEN
8611: rlm_message_sv.sql_error('rlm_rd_sv.ProcessOld',x_progress);
8612: --
8613: IF (l_debug <> -1) THEN
8614: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8615: END IF;
8624: FUNCTION FetchReq
8625:
8626: ===========================================================================*/
8627: FUNCTION FetchReq(x_Req_ref IN OUT NOCOPY t_Cursor_ref,
8628: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
8629: x_oe_line_id OUT NOCOPY NUMBER,
8630: x_SumOrderedQty OUT NOCOPY NUMBER,
8631: x_ScheduleType OUT NOCOPY VARCHAR2)
8632: RETURN BOOLEAN
8751: END IF;
8752: --
8753: EXCEPTION
8754: WHEN OTHERS THEN
8755: rlm_message_sv.sql_error('rlm_rd_sv.FetchReq',x_progress);
8756: --
8757: IF (l_debug <> -1) THEN
8758: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8759: END IF;
8768: FUNCTION FetchDemand
8769:
8770: ===========================================================================*/
8771: FUNCTION FetchDemand(x_Demand_ref IN OUT NOCOPY t_Cursor_ref,
8772: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec)
8773: RETURN BOOLEAN
8774: IS
8775: x_progress VARCHAR2(3) := '010';
8776:
8879: END IF;
8880:
8881: EXCEPTION
8882: WHEN OTHERS THEN
8883: rlm_message_sv.sql_error('rlm_rd_sv.FetchDemand',x_progress);
8884: --
8885: IF (l_debug <> -1) THEN
8886: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8887: END IF;
8949: END IF;
8950:
8951: EXCEPTION
8952: WHEN OTHERS THEN
8953: rlm_message_sv.sql_error('rlm_rd_sv.SchedulePrecedence',x_progress);
8954: --
8955: IF (l_debug <> -1) THEN
8956: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8957: END IF;
8961: END SchedulePrecedence;
8962:
8963:
8964: PROCEDURE CountMatchedDemand(x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
8965: x_key_rec IN RLM_RD_SV.t_Key_rec,
8966: x_rlm_line_id IN NUMBER,
8967: x_oe_line_id IN NUMBER,
8968: x_DemandCount IN OUT NOCOPY NUMBER,
8969: x_SumOrderedQty IN OUT NOCOPY NUMBER,
9037: --
9038: raise e_group_error;
9039:
9040: WHEN OTHERS THEN
9041: rlm_message_sv.sql_error('rlm_rd_sv.CountMatchedDemand',x_progress);
9042: --
9043: IF (l_debug <> -1) THEN
9044: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9045: END IF;
9050:
9051:
9052: PROCEDURE ReconcileAction(x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
9053: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
9054: x_key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
9055: x_line_id_tab IN RLM_RD_SV.t_matching_line,
9056: x_DemandCount IN NUMBER,
9057: x_SumOrderedQty IN NUMBER,
9058: x_DemandType IN VARCHAR2)
9051:
9052: PROCEDURE ReconcileAction(x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
9053: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
9054: x_key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
9055: x_line_id_tab IN RLM_RD_SV.t_matching_line,
9056: x_DemandCount IN NUMBER,
9057: x_SumOrderedQty IN NUMBER,
9058: x_DemandType IN VARCHAR2)
9059: IS
9135: --
9136: raise e_group_error;
9137:
9138: WHEN OTHERS THEN
9139: rlm_message_sv.sql_error('rlm_rd_sv.ReconcileAction',x_progress);
9140: --
9141: IF (l_debug <> -1) THEN
9142: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9143: END IF;
10177:
10178: EXCEPTION
10179:
10180: WHEN OTHERS THEN
10181: rlm_message_sv.sql_error('rlm_rd_sv.BuildMatchQuery',x_progress);
10182: IF (l_debug <> -1) THEN
10183: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10184: END IF;
10185: RAISE;
10649: --
10650: raise e_group_error;
10651:
10652: WHEN OTHERS THEN
10653: rlm_message_sv.sql_error('rlm_rd_sv.ProcessATS',x_progress);
10654: --
10655: IF (l_debug <> -1) THEN
10656: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10657: END IF;
10955: --
10956: raise e_group_error;
10957:
10958: WHEN OTHERS THEN
10959: rlm_message_sv.sql_error('rlm_rd_sv.ProcessNATS',x_progress);
10960: --
10961: IF (l_debug <> -1) THEN
10962: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10963: END IF;
10973:
10974: ===========================================================================*/
10975: PROCEDURE UpdateDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
10976: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
10977: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
10978: x_SumOrderedQty IN NUMBER,
10979: x_DemandType IN VARCHAR2)
10980: IS
10981:
11057: END IF;
11058: --
11059: EXCEPTION
11060: WHEN OTHERS THEN
11061: rlm_message_sv.sql_error('rlm_rd_sv.UpdateDemand',x_progress);
11062: --
11063: IF (l_debug <> -1) THEN
11064: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11065: END IF;
11075:
11076: ===========================================================================*/
11077: PROCEDURE DeleteDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11078: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11079: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11080: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref)
11081: IS
11082:
11083: v_DeleteQty NUMBER;
11076: ===========================================================================*/
11077: PROCEDURE DeleteDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11078: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11079: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11080: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref)
11081: IS
11082:
11083: v_DeleteQty NUMBER;
11084: x_progress VARCHAR2(3) := '010';
11118: --
11119: raise e_group_error;
11120:
11121: WHEN OTHERS THEN
11122: rlm_message_sv.sql_error('rlm_rd_sv.DeleteDemand',x_progress);
11123: --
11124: IF (l_debug <> -1) THEN
11125: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11126: END IF;
11136:
11137: ===========================================================================*/
11138: PROCEDURE IncreaseDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11139: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11140: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11141: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
11142: x_SumOrderedQty IN NUMBER)
11143: IS
11144: --
11137: ===========================================================================*/
11138: PROCEDURE IncreaseDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11139: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11140: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11141: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
11142: x_SumOrderedQty IN NUMBER)
11143: IS
11144: --
11145: v_QtyDelta NUMBER;
11310: END IF;
11311: --
11312: EXCEPTION
11313: WHEN OTHERS THEN
11314: rlm_message_sv.sql_error('rlm_rd_sv.IncreaseDemand',x_progress);
11315: --
11316: IF (l_debug <> -1) THEN
11317: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11318: END IF;
11328:
11329: ===========================================================================*/
11330: PROCEDURE DecreaseDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11331: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11332: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11333: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
11334: x_SumOrderedQty IN NUMBER)
11335: IS
11336:
11329: ===========================================================================*/
11330: PROCEDURE DecreaseDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11331: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11332: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11333: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
11334: x_SumOrderedQty IN NUMBER)
11335: IS
11336:
11337: v_QtyDelta NUMBER;
11520: --
11521: raise e_group_error;
11522:
11523: WHEN OTHERS THEN
11524: rlm_message_sv.sql_error('rlm_rd_sv.DecreaseDemand',x_progress);
11525: --
11526: IF (l_debug <> -1) THEN
11527: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11528: END IF;
11538:
11539: ===========================================================================*/
11540: PROCEDURE OtherDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11541: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11542: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11543: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref)
11544: IS
11545:
11546: v_Qty_rec t_Qty_rec;
11539: ===========================================================================*/
11540: PROCEDURE OtherDemand(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
11541: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
11542: x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
11543: x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref)
11544: IS
11545:
11546: v_Qty_rec t_Qty_rec;
11547: x_progress VARCHAR2(3) := '010';
11766: END IF;
11767: --
11768: EXCEPTION
11769: WHEN OTHERS THEN
11770: rlm_message_sv.sql_error('rlm_rd_sv.OtherDemand',x_progress);
11771: --
11772: IF (l_debug <> -1) THEN
11773: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11774: END IF;
11782:
11783: PROCEDURE SetOperation
11784:
11785: ===========================================================================*/
11786: PROCEDURE SetOperation(x_Key_rec IN RLM_RD_SV.t_Key_rec,
11787: x_Operation IN VARCHAR2,
11788: x_Quantity IN NUMBER := NULL)
11789: IS
11790:
11915: END IF;
11916: --
11917: EXCEPTION
11918: WHEN OTHERS THEN
11919: rlm_message_sv.sql_error('rlm_rd_sv.SetOperation',x_progress);
11920: --
11921: IF (l_debug <> -1) THEN
11922: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11923: END IF;
11970: RETURN TRUE;
11971: --
11972: EXCEPTION
11973: WHEN OTHERS THEN
11974: rlm_message_sv.sql_error('rlm_rd_sv.IsLineConsumable',x_progress);
11975: --
11976: IF (l_debug <> -1) THEN
11977: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
11978: END IF;
12077: EXCEPTION
12078: --
12079: WHEN OTHERS THEN
12080: --
12081: rlm_message_sv.sql_error('rlm_rd_sv.UpdateGroupStatus',x_progress);
12082: --
12083: IF (l_debug <> -1) THEN
12084: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
12085: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHER - sql error');
12151: EXCEPTION
12152: --
12153: WHEN OTHERS THEN
12154: --
12155: rlm_message_sv.sql_error('rlm_rd_sv.IsFrozen', x_progress);
12156: --
12157: IF (l_debug <> -1) THEN
12158: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
12159: END IF;
12208: --
12209: RETURN FALSE;
12210: --
12211: WHEN OTHERS THEN
12212: rlm_message_sv.sql_error('rlm_rd_sv.LockHeaders',x_progress);
12213: --
12214: IF (l_debug <> -1) THEN
12215: rlm_core_sv.dlog(k_DEBUG,'REturning FALSE OTHERS ');
12216: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
12255: EXCEPTION
12256: --
12257: WHEN OTHERS THEN
12258: --
12259: rlm_message_sv.sql_error('rlm_rd_sv.UpdateHeaderStatus',x_progress);
12260: --
12261: IF (l_debug <> -1) THEN
12262: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
12263: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHER - sql error');
12321: --
12322: RETURN FALSE;
12323: --
12324: WHEN OTHERS THEN
12325: rlm_message_sv.sql_error('rlm_rd_sv.LockLines',x_progress);
12326: --
12327: IF (l_debug <> -1) THEN
12328: rlm_core_sv.dlog(k_DEBUG,'REturning FALSE OTHERS ');
12329: rlm_core_sv.dlog(k_DEBUG,'progress',x_Progress);
12341: ===========================================================================*/
12342:
12343: PROCEDURE CheckTolerance(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
12344: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
12345: x_Key_rec IN RLM_RD_SV.t_Key_rec,
12346: x_OldQty IN NUMBER,
12347: x_NewQty IN NUMBER)
12348: IS
12349:
12418: EXCEPTION
12419: --
12420: WHEN OTHERS THEN
12421: --
12422: rlm_message_sv.sql_error('rlm_rd_sv.CheckTolerance', v_Progress);
12423: --
12424: IF (l_debug <> -1) THEN
12425: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: OTHERS - sql error');
12426: END IF;
12590:
12591: ===========================================================================*/
12592: PROCEDURE GetTPContext( x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
12593: x_group_rec IN rlm_dp_sv.t_Group_rec,
12594: x_req_rec IN rlm_rd_sv.t_generic_rec,
12595: x_customer_number OUT NOCOPY VARCHAR2,
12596: x_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
12597: x_bill_to_ece_locn_code OUT NOCOPY VARCHAR2,
12598: x_inter_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
12596: x_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
12597: x_bill_to_ece_locn_code OUT NOCOPY VARCHAR2,
12598: x_inter_ship_to_ece_locn_code OUT NOCOPY VARCHAR2,
12599: x_tp_group_code OUT NOCOPY VARCHAR2,
12600: x_key_rec IN rlm_rd_sv.t_key_rec)
12601: IS
12602:
12603: --
12604: v_Progress VARCHAR2(3) := '010';
12805: rlm_core_sv.dpop(k_SDEBUG);
12806: END IF;
12807: --
12808: WHEN OTHERS THEN
12809: rlm_message_sv.sql_error('rlm_rd_sv.GetTPContext',v_Progress);
12810: --
12811: IF (l_debug <> -1) THEN
12812: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
12813: END IF;
12891: END IF;
12892: --
12893: EXCEPTION
12894: WHEN OTHERS THEN
12895: rlm_message_sv.sql_error('RLM_RD_SV.InitializeMatchRec', x_progress);
12896: --
12897: IF (l_debug <> -1) THEN
12898: rlm_core_sv.dpop(k_SDEBUG, 'EXCEPTION: ' || SUBSTR(SQLERRM,1,200));
12899: END IF;
12975: END IF;
12976: --
12977: EXCEPTION
12978: WHEN OTHERS THEN
12979: rlm_message_sv.sql_error('RLM_RD_SV.FetchMatchRec', x_progress);
12980: --
12981: IF (l_debug <> -1) THEN
12982: rlm_core_sv.dpop(k_SDEBUG, 'EXCEPTION: ' || SUBSTR(SQLERRM,1,200));
12983: END IF;
13563: EXCEPTION
13564: --
13565: WHEN OTHERS THEN
13566: --
13567: rlm_message_sv.sql_error('RLM_RD_SV.MRPOnly', v_Progress);
13568: --
13569: IF (l_debug <> -1) THEN
13570: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
13571: END IF;
13934: PROCEDURE InitializeBlktGroup
13935:
13936: ===========================================================================*/
13937: PROCEDURE InitializeBlktGrp(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
13938: x_Group_ref IN OUT NOCOPY rlm_rd_sv.t_Cursor_ref,
13939: x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec)
13940: IS
13941: --
13942: x_progress VARCHAR2(3) := '010';
13998: --
13999: EXCEPTION
14000: --
14001: WHEN OTHERS THEN
14002: rlm_message_sv.sql_error('rlm_rd_sv.InitializeBlktGrp',x_progress);
14003: --
14004: IF (l_debug <> -1) THEN
14005: rlm_core_sv.dlog(k_DEBUG, 'When others of InitializeBlktGrp');
14006: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
14068: --
14069: EXCEPTION
14070: --
14071: WHEN OTHERS THEN
14072: rlm_message_sv.sql_error('rlm_rd_sv.FetchBlktGrp',x_progress);
14073: --
14074: IF (l_debug <> -1) THEN
14075: rlm_core_sv.dlog(k_DEBUG, 'When others of FetchBlktGrp');
14076: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
14120: EXCEPTION
14121: --
14122: WHEN OTHERS THEN
14123: --
14124: rlm_message_sv.sql_error('rlm_rd_sv.BuildBindVarTab3',x_progress);
14125: --
14126: IF (l_debug <> -1) THEN
14127: rlm_core_sv.dpop(k_SDEBUG, 'Exception ' || substr(SQLERRM, 1, 200));
14128: END IF;
14177: EXCEPTION
14178: --
14179: WHEN OTHERS THEN
14180: --
14181: rlm_message_sv.sql_error('rlm_rd_sv.BuildBindVarTab5',x_progress);
14182: --
14183: IF (l_debug <> -1) THEN
14184: rlm_core_sv.dpop(k_SDEBUG, 'Exception ' || substr(SQLERRM, 1, 200));
14185: END IF;
14219: EXCEPTION
14220: --
14221: WHEN OTHERS THEN
14222: --
14223: rlm_message_sv.sql_error('rlm_rd_sv.BuildBindVarTab2',x_progress);
14224: --
14225: IF (l_debug <> -1) THEN
14226: rlm_core_sv.dpop(k_SDEBUG, 'Exception ' || substr(SQLERRM, 1, 200));
14227: END IF;
14237:
14238: ==============================================================================*/
14239: PROCEDURE SourceCUMIntransitQty(x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
14240: x_Group_rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
14241: x_Cum_rec IN RLM_RD_SV.t_Ship_rec) --Bugfix 7007638
14242: IS
14243: --
14244: i NUMBER;
14245: j NUMBER;
14310: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
14311: v_Key_rec.req_rec.industry_attribute1 := x_Cum_rec.cust_record_year;
14312: END IF;
14313: -- Bugfix 7007638 End
14314: RLM_RD_SV.StoreShipments(x_Sched_rec, x_Group_rec, v_Key_rec,
14315: v_SrcIntransitTab(i).intransit_qty);
14316: --
14317: END IF;
14318: --
14329: EXCEPTION
14330: --
14331: WHEN OTHERS THEN
14332: --
14333: rlm_message_sv.sql_error('RLM_RD_SV.SourceCUMIntransitQty',v_Progress);
14334: --
14335: IF (l_debug <> -1) THEN
14336: rlm_core_sv.dlog(k_DEBUG,'progress',v_Progress);
14337: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
14513: rlm_core_sv.dpop(k_SDEBUG);
14514: END IF;
14515: --
14516: WHEN OTHERS THEN
14517: rlm_message_sv.sql_error('rlm_rd_sv.CalculateCUMIntransit',v_progress);
14518: --
14519: IF (l_debug <> -1) THEN
14520: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
14521: END IF;
14533: for the dem_rec component of x_Key_rec. This is currently only called from
14534: procedure ProcessOld() and can eventually be used to eliminate calls to GetDemand().
14535:
14536: ==============================================================================*/
14537: PROCEDURE AssignOEAttribValues(x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
14538: p_OEDemand_rec IN RLM_RD_SV.t_OEDemand_rec) IS
14539: BEGIN
14540: --
14541: IF (l_debug <> -1) THEN
14534: procedure ProcessOld() and can eventually be used to eliminate calls to GetDemand().
14535:
14536: ==============================================================================*/
14537: PROCEDURE AssignOEAttribValues(x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
14538: p_OEDemand_rec IN RLM_RD_SV.t_OEDemand_rec) IS
14539: BEGIN
14540: --
14541: IF (l_debug <> -1) THEN
14542: rlm_core_sv.dpush(k_SDEBUG, 'AssignOEAttribValues');
14612: EXCEPTION
14613: --
14614: WHEN OTHERS THEN
14615: --
14616: rlm_message_sv.sql_error('RLM_RD_SV.AssignOEAttribValues', '010');
14617: --
14618: IF (l_debug <> -1) THEN
14619: rlm_core_sv.dlog(k_DEBUG, 'Unexpected error', SUBSTRB(SQLERRM, 1, 200));
14620: rlm_core_sv.dpop(k_SDEBUG);
14880: --}
14881: EXCEPTION
14882: WHEN OTHERS THEN
14883: --
14884: rlm_message_sv.sql_error('RLM_RD_SV.FrozenFenceWarning', '010');
14885: --
14886: IF (l_debug <> -1) THEN
14887: rlm_core_sv.dlog(k_DEBUG, 'Unexpected error', SUBSTRB(SQLERRM, 1, 200));
14888: rlm_core_sv.dpop(k_SDEBUG);
15157: --
15158: EXCEPTION
15159: WHEN OTHERS THEN
15160: --
15161: rlm_message_sv.sql_error('RLM_RD_SV.GetMatchAttributes', '010');
15162: --
15163: IF (l_debug <> -1) THEN
15164: rlm_core_sv.dlog(k_DEBUG, 'Unexpected error', SUBSTRB(SQLERRM, 1, 200));
15165: rlm_core_sv.dpop(k_SDEBUG);
15283:
15284: ===========================================================================*/
15285: -- Bug 4297984
15286: PROCEDURE AssignMatchAttribValues ( x_req_rec IN rlm_interface_lines_all%ROWTYPE,
15287: x_match_rec IN OUT NOCOPY RLM_RD_SV.t_generic_rec)
15288: IS
15289:
15290: BEGIN
15291: --
15288: IS
15289:
15290: BEGIN
15291: --
15292: -- The x_match_rec populated here will be passed to RLM_RD_SV.GetMatchAttributes
15293: -- where we retrieve only the additional matching attribute columns. Hence only the
15294: -- additional matching attribute columns are populated here and the remaining fields
15295: -- defined in RLM_RD_SV.t_Generic_rec will be NULL. The function is needed
15296: -- as the RLM_RD_SV.GetMatchAttributes requires a RLM_RD_SV.t_Generic_rec argument type.
15291: --
15292: -- The x_match_rec populated here will be passed to RLM_RD_SV.GetMatchAttributes
15293: -- where we retrieve only the additional matching attribute columns. Hence only the
15294: -- additional matching attribute columns are populated here and the remaining fields
15295: -- defined in RLM_RD_SV.t_Generic_rec will be NULL. The function is needed
15296: -- as the RLM_RD_SV.GetMatchAttributes requires a RLM_RD_SV.t_Generic_rec argument type.
15297: --
15298: x_match_rec.cust_po_number := x_req_rec.cust_po_number ;
15299: x_match_rec.customer_item_revision := x_req_rec.customer_item_revision ;
15292: -- The x_match_rec populated here will be passed to RLM_RD_SV.GetMatchAttributes
15293: -- where we retrieve only the additional matching attribute columns. Hence only the
15294: -- additional matching attribute columns are populated here and the remaining fields
15295: -- defined in RLM_RD_SV.t_Generic_rec will be NULL. The function is needed
15296: -- as the RLM_RD_SV.GetMatchAttributes requires a RLM_RD_SV.t_Generic_rec argument type.
15297: --
15298: x_match_rec.cust_po_number := x_req_rec.cust_po_number ;
15299: x_match_rec.customer_item_revision := x_req_rec.customer_item_revision ;
15300: x_match_rec.customer_dock_code := x_req_rec.customer_dock_code ;
15430: EXCEPTION
15431:
15432: WHEN OTHERS THEN
15433: --
15434: rlm_message_sv.sql_error('rlm_rd_sv.PopulateReconcileCumRec',
15435: v_Progress);
15436: --
15437: IF (l_debug <> -1) THEN
15438: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
15540: RETURN(b_Match);
15541: --
15542: EXCEPTION
15543: WHEN OTHERS THEN
15544: rlm_message_sv.sql_error('rlm_rd_sv.Match_PO_RY_Reconcile',x_progress);
15545: --
15546: IF (l_debug <> -1) THEN
15547: rlm_core_sv.dpop(k_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
15548: END IF;
15551:
15552: END Match_PO_RY_Reconcile;
15553: --Bugfix 7007638 End
15554:
15555: END RLM_RD_SV;