2933: IS
2934:
2935: i NUMBER;
2936: j NUMBER;
2937: v_Input_rec rlm_ship_delivery_pattern_sv.t_InputRec;
2938: v_Output_tab rlm_ship_delivery_pattern_sv.t_OutputTable;
2939: v_message_tab rlm_ship_delivery_pattern_sv.t_errormsgtable;
2940: v_ReturnStatus NUMBER;
2941: v_Progress VARCHAR2(3) := '010';
2934:
2935: i NUMBER;
2936: j NUMBER;
2937: v_Input_rec rlm_ship_delivery_pattern_sv.t_InputRec;
2938: v_Output_tab rlm_ship_delivery_pattern_sv.t_OutputTable;
2939: v_message_tab rlm_ship_delivery_pattern_sv.t_errormsgtable;
2940: v_ReturnStatus NUMBER;
2941: v_Progress VARCHAR2(3) := '010';
2942: e_SDPFailed EXCEPTION;
2935: i NUMBER;
2936: j NUMBER;
2937: v_Input_rec rlm_ship_delivery_pattern_sv.t_InputRec;
2938: v_Output_tab rlm_ship_delivery_pattern_sv.t_OutputTable;
2939: v_message_tab rlm_ship_delivery_pattern_sv.t_errormsgtable;
2940: v_ReturnStatus NUMBER;
2941: v_Progress VARCHAR2(3) := '010';
2942: e_SDPFailed EXCEPTION;
2943: v_ATP BOOLEAN;
3093: --
3094: END LOOP;
3095: --
3096: IF ((v_ReturnStatus = 2) or
3097: (v_ReturnStatus = RLM_SHIP_DELIVERY_PATTERN_SV.g_RaiseErr)) THEN
3098: --
3099: IF (l_debug <> -1) THEN
3100: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus',v_ReturnStatus);
3101: rlm_core_sv.dlog(C_DEBUG,'RLM_CALCULATE_SHIP_DATE_FAILED');