[Home] [Help]
39: --
40: BEGIN
41: --
42: IF (l_debug <> -1) THEN
43: rlm_core_sv.dpush(C_SDEBUG,'ManageDemand');
44: rlm_core_sv.dlog(C_DEBUG,'InterfaceHeaderId',x_InterfaceHeaderId);
45: END IF;
46: --
47: rlm_message_sv.initialize_dependency('MANAGE_DEMAND');
40: BEGIN
41: --
42: IF (l_debug <> -1) THEN
43: rlm_core_sv.dpush(C_SDEBUG,'ManageDemand');
44: rlm_core_sv.dlog(C_DEBUG,'InterfaceHeaderId',x_InterfaceHeaderId);
45: END IF;
46: --
47: rlm_message_sv.initialize_dependency('MANAGE_DEMAND');
48: --
45: END IF;
46: --
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
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);
56: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_end_date',
57: x_Sched_rec.sched_horizon_end_date);
58: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_purpose',
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);
56: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_end_date',
57: x_Sched_rec.sched_horizon_end_date);
58: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_purpose',
59: x_Sched_rec.schedule_purpose);
60: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_type',x_Sched_rec.schedule_type);
54: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_start_date',
55: x_Sched_rec.sched_horizon_start_date);
56: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_end_date',
57: x_Sched_rec.sched_horizon_end_date);
58: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_purpose',
59: x_Sched_rec.schedule_purpose);
60: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_type',x_Sched_rec.schedule_type);
61: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.header_id',x_Sched_rec.header_id);
62: END IF;
56: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.sched_horizon_end_date',
57: x_Sched_rec.sched_horizon_end_date);
58: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_purpose',
59: x_Sched_rec.schedule_purpose);
60: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_type',x_Sched_rec.schedule_type);
61: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.header_id',x_Sched_rec.header_id);
62: END IF;
63: --
64: x_HeaderStatus := x_sched_rec.process_status;
57: x_Sched_rec.sched_horizon_end_date);
58: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_purpose',
59: x_Sched_rec.schedule_purpose);
60: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.schedule_type',x_Sched_rec.schedule_type);
61: rlm_core_sv.dlog(C_DEBUG, 'x_Sched_rec.header_id',x_Sched_rec.header_id);
62: END IF;
63: --
64: x_HeaderStatus := x_sched_rec.process_status;
65: --
134: --
135: RLM_TPA_SV.DeriveRSO(x_Sched_rec, v_SrcGroup_rec, l_ReturnStatus);
136: --
137: IF (l_debug <> -1) THEN
138: rlm_core_sv.dlog(C_DEBUG, 'DeriveRSO return status', l_ReturnStatus);
139: END IF;
140: --
141: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
142: --
137: IF (l_debug <> -1) THEN
138: rlm_core_sv.dlog(C_DEBUG, 'DeriveRSO return status', l_ReturnStatus);
139: END IF;
140: --
141: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
142: --
143: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
144: --
145: END IF;
139: END IF;
140: --
141: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
142: --
143: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
144: --
145: END IF;
146: --
147: END IF;
160: --
161: RLM_TPA_SV.DeriveRSO(x_Sched_rec, x_Group_rec, l_ReturnStatus);
162: --
163: IF (l_debug <> -1) THEN
164: rlm_core_sv.dlog(C_DEBUG, 'DeriveRSO return status', l_ReturnStatus);
165: END IF;
166: --
167: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
168: --
163: IF (l_debug <> -1) THEN
164: rlm_core_sv.dlog(C_DEBUG, 'DeriveRSO return status', l_ReturnStatus);
165: END IF;
166: --
167: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
168: --
169: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
170: --
171: END IF;
165: END IF;
166: --
167: IF l_ReturnStatus <> rlm_core_sv.k_PROC_SUCCESS THEN
168: --
169: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
170: --
171: END IF;
172: --
173: END IF;
173: END IF;
174: --
175: END IF;
176: --
177: --x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
178: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpop(C_SDEBUG);
181: END IF;
176: --
177: --x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
178: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpop(C_SDEBUG);
181: END IF;
182: --
183: EXCEPTION
184: --
183: EXCEPTION
184: --
185: WHEN e_GroupError THEN
186: --
187: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
188: --
189: IF (l_debug <> -1) THEN
190: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
191: rlm_core_sv.dpop(C_SDEBUG, 'GROUP ERROR');
186: --
187: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
188: --
189: IF (l_debug <> -1) THEN
190: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
191: rlm_core_sv.dpop(C_SDEBUG, 'GROUP ERROR');
192: END IF;
193: --
194: WHEN e_linesLocked THEN
187: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
188: --
189: IF (l_debug <> -1) THEN
190: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
191: rlm_core_sv.dpop(C_SDEBUG, 'GROUP ERROR');
192: END IF;
193: --
194: WHEN e_linesLocked THEN
195: --
192: END IF;
193: --
194: WHEN e_linesLocked THEN
195: --
196: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
197: rlm_message_sv.app_error(
198: x_ExceptionLevel => rlm_message_sv.k_error_level,
199: x_MessageName => 'RLM_LOCK_NOT_OBTAINED',
200: x_InterfaceHeaderId => x_sched_rec.header_id,
207: x_Token1 => 'SCHED_REF',
208: x_Value1 => x_sched_rec.schedule_reference_num);
209: --
210: IF (l_debug <> -1) THEN
211: rlm_core_sv.dpop(C_SDEBUG, 'RLM_LOCK_NOT_OBTAINED');
212: END IF;
213: --
214: WHEN NO_DATA_FOUND THEN
215: --
212: END IF;
213: --
214: WHEN NO_DATA_FOUND THEN
215: --
216: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
217: --
218: IF (l_debug <> -1) THEN
219: rlm_core_sv.dlog(C_DEBUG,'No header found with the headerID',
220: x_InterfaceHeaderId);
215: --
216: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
217: --
218: IF (l_debug <> -1) THEN
219: rlm_core_sv.dlog(C_DEBUG,'No header found with the headerID',
220: x_InterfaceHeaderId);
221: rlm_core_sv.dpop(C_SDEBUG, 'NO_DATA_FOUND');
222: END IF;
223: --
217: --
218: IF (l_debug <> -1) THEN
219: rlm_core_sv.dlog(C_DEBUG,'No header found with the headerID',
220: x_InterfaceHeaderId);
221: rlm_core_sv.dpop(C_SDEBUG, 'NO_DATA_FOUND');
222: END IF;
223: --
224: WHEN OTHERS THEN
225: --
222: END IF;
223: --
224: WHEN OTHERS THEN
225: --
226: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
227: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand', v_Progress);
228: --
229: IF (l_debug <> -1) THEN
230: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
226: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
227: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand', v_Progress);
228: --
229: IF (l_debug <> -1) THEN
230: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
231: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
232: END IF;
233: --
234: raise;
227: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand', v_Progress);
228: --
229: IF (l_debug <> -1) THEN
230: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
231: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
232: END IF;
233: --
234: raise;
235: --
252: --
253: BEGIN
254: --
255: IF (l_debug <> -1) THEN
256: rlm_core_sv.dpush(C_SDEBUG,'ManageGroupDemand');
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
253: BEGIN
254: --
255: IF (l_debug <> -1) THEN
256: rlm_core_sv.dpush(C_SDEBUG,'ManageGroupDemand');
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
254: --
255: IF (l_debug <> -1) THEN
256: rlm_core_sv.dpush(C_SDEBUG,'ManageGroupDemand');
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
262: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.blanket_number);
255: IF (l_debug <> -1) THEN
256: rlm_core_sv.dpush(C_SDEBUG,'ManageGroupDemand');
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
262: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.blanket_number);
263: END IF;
256: rlm_core_sv.dpush(C_SDEBUG,'ManageGroupDemand');
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
262: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.blanket_number);
263: END IF;
264: --
257: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',x_Group_rec.ship_from_org_id);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
262: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.blanket_number);
263: END IF;
264: --
265: CallSetups(x_Sched_rec, x_Group_rec);
258: rlm_core_sv.dlog('ship_to_address_id', x_Group_rec.ship_to_address_id);
259: rlm_core_sv.dlog('inventory_item_id', x_Group_rec.inventory_item_id);
260: rlm_core_sv.dlog('customer_item_id', x_Group_rec.customer_item_id);
261: rlm_core_sv.dlog(C_DEBUG, 'Order Header Id', x_Group_rec.order_header_id);
262: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.blanket_number);
263: END IF;
264: --
265: CallSetups(x_Sched_rec, x_Group_rec);
266: --
304: --
305: IF x_Group_rec.blanket_number IS NOT NULL THEN
306: --
307: IF (l_debug <> -1) THEN
308: rlm_core_sv.dlog(C_DEBUG, 'Blanket Version of Update', x_Group_rec.blanket_number);
309: END IF;
310: --
311: UPDATE rlm_schedule_lines_all sl
312: SET process_status = rlm_core_sv.k_PS_Processed
308: rlm_core_sv.dlog(C_DEBUG, 'Blanket Version of Update', x_Group_rec.blanket_number);
309: END IF;
310: --
311: UPDATE rlm_schedule_lines_all sl
312: SET process_status = rlm_core_sv.k_PS_Processed
313: WHERE header_id = x_Sched_rec.schedule_header_id
314: AND line_id IN (
315: SELECT schedule_line_id
316: FROM rlm_interface_lines il
318: AND il.ship_from_org_id = x_Group_rec.ship_from_org_id
319: AND il.ship_to_address_id = x_Group_rec.ship_to_address_id
320: AND il.customer_item_id = x_Group_rec.customer_item_id
321: AND il.blanket_number = x_Group_rec.blanket_number
322: AND il.process_status = rlm_core_sv.k_PS_Processed
323: );
324: --
325: ELSE
326: --
324: --
325: ELSE
326: --
327: IF (l_debug <> -1) THEN
328: rlm_core_sv.dlog(C_DEBUG, 'Sales order version of Update', x_Group_rec.order_header_id);
329: END IF;
330: --
331: UPDATE rlm_schedule_lines_all sl
332: SET process_status = rlm_core_sv.k_PS_Processed
328: rlm_core_sv.dlog(C_DEBUG, 'Sales order version of Update', x_Group_rec.order_header_id);
329: END IF;
330: --
331: UPDATE rlm_schedule_lines_all sl
332: SET process_status = rlm_core_sv.k_PS_Processed
333: WHERE header_id = x_Sched_rec.schedule_header_id
334: AND line_id IN (
335: SELECT schedule_line_id
336: FROM rlm_interface_lines il
338: AND il.ship_from_org_id = x_Group_rec.ship_from_org_id
339: AND il.ship_to_address_id = x_Group_rec.ship_to_address_id
340: AND il.customer_item_id = x_Group_rec.customer_item_id
341: AND il.order_header_id = x_Group_rec.order_header_id
342: AND il.process_status = rlm_core_sv.k_PS_Processed
343: );
344: --
345: END IF;
346: --
344: --
345: END IF;
346: --
347: IF (l_debug <> -1) THEN
348: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
349: END IF;
350: --
351: END IF;
352: --
351: END IF;
352: --
353: END IF;
354: --
355: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
356: --
357: IF (l_debug <> -1) THEN
358: rlm_core_sv.dpop(C_SDEBUG);
359: END IF;
354: --
355: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
356: --
357: IF (l_debug <> -1) THEN
358: rlm_core_sv.dpop(C_SDEBUG);
359: END IF;
360: --
361: EXCEPTION
362: --
361: EXCEPTION
362: --
363: WHEN e_GroupError THEN
364: --
365: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
366: --
367: IF (l_debug <> -1) THEN
368: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
369: x_Group_rec.ship_from_org_id);
364: --
365: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
366: --
367: IF (l_debug <> -1) THEN
368: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
369: x_Group_rec.ship_from_org_id);
370: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
371: rlm_core_sv.dpop(C_SDEBUG);
372: END IF;
366: --
367: IF (l_debug <> -1) THEN
368: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
369: x_Group_rec.ship_from_org_id);
370: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
371: rlm_core_sv.dpop(C_SDEBUG);
372: END IF;
373: --
374: raise e_GroupError;
367: IF (l_debug <> -1) THEN
368: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
369: x_Group_rec.ship_from_org_id);
370: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
371: rlm_core_sv.dpop(C_SDEBUG);
372: END IF;
373: --
374: raise e_GroupError;
375: --
374: raise e_GroupError;
375: --
376: WHEN OTHERS THEN
377: --
378: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
379: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
380: v_Progress);
381: --
382: IF (l_debug <> -1) THEN
379: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
380: v_Progress);
381: --
382: IF (l_debug <> -1) THEN
383: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
384: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
385: END IF;
386: --
387: raise;
380: v_Progress);
381: --
382: IF (l_debug <> -1) THEN
383: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
384: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
385: END IF;
386: --
387: raise;
388: --
426: --
427: BEGIN
428:
429: IF (l_debug <> -1) THEN
430: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
431: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
432: x_Sched_rec.Schedule_header_id);
433: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
434: x_Group_rec.ship_to_address_id);
427: BEGIN
428:
429: IF (l_debug <> -1) THEN
430: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
431: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
432: x_Sched_rec.Schedule_header_id);
433: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
434: x_Group_rec.ship_to_address_id);
435: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
429: IF (l_debug <> -1) THEN
430: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
431: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
432: x_Sched_rec.Schedule_header_id);
433: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
434: x_Group_rec.ship_to_address_id);
435: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
436: x_Group_rec.inventory_item_id);
437: END IF;
431: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
432: x_Sched_rec.Schedule_header_id);
433: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
434: x_Group_rec.ship_to_address_id);
435: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
436: x_Group_rec.inventory_item_id);
437: END IF;
438: --
439: OPEN c_LastReceipt;
448: --
449: CLOSE c_LastReceipt;
450: --
451: IF (l_debug <> -1) THEN
452: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
453: g_LastReceipt_rec.primary_quantity);
454: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
455: g_LastReceipt_rec.cust_record_year);
456: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
450: --
451: IF (l_debug <> -1) THEN
452: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
453: g_LastReceipt_rec.primary_quantity);
454: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
455: g_LastReceipt_rec.cust_record_year);
456: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
457: g_LastReceipt_rec.start_date_time);
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
452: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
453: g_LastReceipt_rec.primary_quantity);
454: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
455: g_LastReceipt_rec.cust_record_year);
456: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
457: g_LastReceipt_rec.start_date_time);
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
459: rlm_core_sv.dpop(C_SDEBUG);
460: END IF;
454: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
455: g_LastReceipt_rec.cust_record_year);
456: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
457: g_LastReceipt_rec.start_date_time);
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
459: rlm_core_sv.dpop(C_SDEBUG);
460: END IF;
461: --
462: EXCEPTION
455: g_LastReceipt_rec.cust_record_year);
456: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
457: g_LastReceipt_rec.start_date_time);
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
459: rlm_core_sv.dpop(C_SDEBUG);
460: END IF;
461: --
462: EXCEPTION
463: --
465: rlm_message_sv.sql_error('rlm_manage_demand_sv.PopulateLastReceiptRec',
466: v_Progress);
467: --
468: IF (l_debug <> -1) THEN
469: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
470: END IF;
471: --
472: raise;
473:
514:
515: BEGIN
516: --
517: IF (l_debug <> -1) THEN
518: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
519: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
520: x_Sched_rec.Schedule_header_id);
521: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
522: x_Group_rec.ship_to_address_id);
515: BEGIN
516: --
517: IF (l_debug <> -1) THEN
518: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
519: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
520: x_Sched_rec.Schedule_header_id);
521: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
522: x_Group_rec.ship_to_address_id);
523: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
517: IF (l_debug <> -1) THEN
518: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
519: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
520: x_Sched_rec.Schedule_header_id);
521: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
522: x_Group_rec.ship_to_address_id);
523: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
524: x_Group_rec.inventory_item_id);
525: END IF;
519: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
520: x_Sched_rec.Schedule_header_id);
521: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
522: x_Group_rec.ship_to_address_id);
523: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
524: x_Group_rec.inventory_item_id);
525: END IF;
526: --Bugfix 7007638 Start --Modified Select statment into cursor to fetch more than one Shp/Rcv record per group
527: --Record type is converted to PL/SQL table
548: g_CUM_tab(v_Count).line_id := g_CUM_rec.line_id;
549: g_CUM_tab(v_Count).found := g_CUM_rec.found;
550:
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
549: g_CUM_tab(v_Count).found := g_CUM_rec.found;
550:
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
557: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
550:
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
557: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
558: END IF;
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
557: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
558: END IF;
559:
552: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
557: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
558: END IF;
559:
560: v_Count := v_Count + 1;
553: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
554: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
555: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
556: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
557: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
558: END IF;
559:
560: v_Count := v_Count + 1;
561:
564: CLOSE c_CUMRec;
565: --Bugfix 7007638 End
566:
567: IF (l_debug <> -1) THEN
568: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT);
569: rlm_core_sv.dpop(C_SDEBUG);
570: END IF;
571: --
572: EXCEPTION
565: --Bugfix 7007638 End
566:
567: IF (l_debug <> -1) THEN
568: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT);
569: rlm_core_sv.dpop(C_SDEBUG);
570: END IF;
571: --
572: EXCEPTION
573:
577: --
578: g_CUM_rec.found := k_FALSE;
579: --
580: IF (l_debug <> -1) THEN
581: rlm_core_sv.dlog(C_DEBUG,'g_CUM_rec.found', g_CUM_rec.found);
582: rlm_core_sv.dpop(C_SDEBUG);
583: END IF;
584: --
585: WHEN TOO_MANY_ROWS THEN
578: g_CUM_rec.found := k_FALSE;
579: --
580: IF (l_debug <> -1) THEN
581: rlm_core_sv.dlog(C_DEBUG,'g_CUM_rec.found', g_CUM_rec.found);
582: rlm_core_sv.dpop(C_SDEBUG);
583: END IF;
584: --
585: WHEN TOO_MANY_ROWS THEN
586: --
593: x_ScheduleLineId => NULL,
594: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
595: x_OrderLineId => NULL,
596: x_Token1 => 'SHIP_FROM',
597: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
598: x_Token2 => 'SHIP_TO',
599: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
600: x_Token3 => 'CITEM',
601: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
595: x_OrderLineId => NULL,
596: x_Token1 => 'SHIP_FROM',
597: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
598: x_Token2 => 'SHIP_TO',
599: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
600: x_Token3 => 'CITEM',
601: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
602: --
603: IF (l_debug <> -1) THEN
597: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
598: x_Token2 => 'SHIP_TO',
599: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
600: x_Token3 => 'CITEM',
601: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
602: --
603: IF (l_debug <> -1) THEN
604: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
605: detail type 4 and subtype = cumulative');
600: x_Token3 => 'CITEM',
601: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
602: --
603: IF (l_debug <> -1) THEN
604: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
605: detail type 4 and subtype = cumulative');
606: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
607: rlm_core_sv.dpop(C_SDEBUG);
608: END IF;
602: --
603: IF (l_debug <> -1) THEN
604: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
605: detail type 4 and subtype = cumulative');
606: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
607: rlm_core_sv.dpop(C_SDEBUG);
608: END IF;
609: --
610: RAISE e_GroupError;
603: IF (l_debug <> -1) THEN
604: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
605: detail type 4 and subtype = cumulative');
606: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
607: rlm_core_sv.dpop(C_SDEBUG);
608: END IF;
609: --
610: RAISE e_GroupError;
611: --*/
614: rlm_message_sv.sql_error('rlm_manage_demand.PopulateCUMRec',
615: v_Progress);
616: --
617: IF (l_debug <> -1) THEN
618: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
619: END IF;
620: --
621: raise;
622:
642: AND customer_item_id = x_Group_rec.customer_item_id
643: AND inventory_item_id = x_Group_rec.inventory_item_id
644: AND item_detail_type IN (k_PAST_DUE_FIRM, k_FIRM_DEMAND,
645: k_FORECAST_DEMAND, k_MRP_FORECAST,k_FIRM_DEMAND)
646: AND process_status = rlm_core_sv.k_PS_AVAILABLE
647: ORDER BY START_DATE_TIME;
648:
649: CURSOR c_DemandCum IS
650: SELECT *
655: AND customer_item_id = x_Group_rec.customer_item_id
656: AND inventory_item_id = x_Group_rec.inventory_item_id
657: AND item_detail_type IN (k_PAST_DUE_FIRM, k_FIRM_DEMAND,
658: k_FORECAST_DEMAND, k_MRP_FORECAST,k_SHIP_RECEIPT_INFO)
659: AND process_status = rlm_core_sv.k_PS_AVAILABLE
660: ORDER BY START_DATE_TIME;
661:
662: --
663: v_Demand_rec rlm_interface_lines%ROWTYPE;
666: --
667: BEGIN
668: --
669: IF (l_debug <> -1) THEN
670: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
671: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
672: x_Group_rec.ship_from_org_id);
673: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
674: x_Group_rec.ship_to_address_id);
667: BEGIN
668: --
669: IF (l_debug <> -1) THEN
670: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
671: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
672: x_Group_rec.ship_from_org_id);
673: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
674: x_Group_rec.ship_to_address_id);
675: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
669: IF (l_debug <> -1) THEN
670: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
671: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
672: x_Group_rec.ship_from_org_id);
673: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
674: x_Group_rec.ship_to_address_id);
675: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
676: x_Group_rec.inventory_item_id);
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
671: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
672: x_Group_rec.ship_from_org_id);
673: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
674: x_Group_rec.ship_to_address_id);
675: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
676: x_Group_rec.inventory_item_id);
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
678: x_Group_rec.customer_item_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
673: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
674: x_Group_rec.ship_to_address_id);
675: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
676: x_Group_rec.inventory_item_id);
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
678: x_Group_rec.customer_item_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
680: END IF;
681: --
675: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
676: x_Group_rec.inventory_item_id);
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
678: x_Group_rec.customer_item_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
680: END IF;
681: --
682: g_ManageDemand_tab.DELETE;
683:
694: v_Count := v_Count + 1;
695: END LOOP;
696: --
697: IF (l_debug <> -1) THEN
698: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',g_ManageDemand_tab.COUNT);
699: END IF;
700: --
701: CLOSE c_DemandCum;
702: --
713: v_Count := v_Count + 1;
714: END LOOP;
715: --
716: IF (l_debug <> -1) THEN
717: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',g_ManageDemand_tab.COUNT);
718: END IF;
719: --
720: CLOSE c_Demand;
721: --
721: --
722: END IF;
723: --
724: IF (l_debug <> -1) THEN
725: rlm_core_sv.dpop(C_SDEBUG);
726: END IF;
727: --
728: EXCEPTION
729: --
731: --
732: rlm_message_sv.sql_error('rlm_manage_demand.PopulateMD',v_Progress);
733: --
734: IF (l_debug <> -1) THEN
735: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
736: END IF;
737: --
738: raise;
739: --
755:
756: BEGIN
757:
758: IF (l_debug <> -1) THEN
759: rlm_core_sv.dpush(C_SDEBUG,'UOMConversion');
760: -- note: need to find customer_uom_code?
761: rlm_core_sv.dpop(C_SDEBUG);
762: END IF;
763:
757:
758: IF (l_debug <> -1) THEN
759: rlm_core_sv.dpush(C_SDEBUG,'UOMConversion');
760: -- note: need to find customer_uom_code?
761: rlm_core_sv.dpop(C_SDEBUG);
762: END IF;
763:
764: EXCEPTION
765:
766: WHEN OTHERS THEN
767: rlm_message_sv.sql_error('rlm_manage_demand_sv.UOMConversion', v_Progress);
768: --
769: IF (l_debug <> -1) THEN
770: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
771: END IF;
772: --
773: raise;
774:
807: --
808: BEGIN
809: --
810: IF (l_debug <> -1) THEN
811: rlm_core_sv.dpush(C_SDEBUG,'CUMDiscrepancyCheck');
812: rlm_core_sv.dlog(C_DEBUG,'cum_control_code',
813: x_Group_rec.setup_terms_rec.cum_control_code);
814: END IF;
815: --
808: BEGIN
809: --
810: IF (l_debug <> -1) THEN
811: rlm_core_sv.dpush(C_SDEBUG,'CUMDiscrepancyCheck');
812: rlm_core_sv.dlog(C_DEBUG,'cum_control_code',
813: x_Group_rec.setup_terms_rec.cum_control_code);
814: END IF;
815: --
816: v_Progress := '020';
819:
820: BEGIN
821:
822: IF (l_debug <> -1) THEN
823: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found',g_CUM_tab(v_Count).found); --Bugfix 7007638
824: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',g_CUM_tab(v_Count).primary_quantity); --Bugfix 7007638
825: END IF;
826: -- This assignment is done in order to get the current record during the error processing
827: v_current_rec := v_Count; --Bugfix 7007638
820: BEGIN
821:
822: IF (l_debug <> -1) THEN
823: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found',g_CUM_tab(v_Count).found); --Bugfix 7007638
824: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',g_CUM_tab(v_Count).primary_quantity); --Bugfix 7007638
825: END IF;
826: -- This assignment is done in order to get the current record during the error processing
827: v_current_rec := v_Count; --Bugfix 7007638
828: --
850: END IF;
851: --Bugfix 7007638
852: --
853: IF (l_debug <> -1) THEN
854: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.calc_cum_flag',
855: x_Group_rec.setup_terms_rec.calc_cum_flag);
856: END IF;
857: --
858: IF x_Group_rec.setup_terms_rec.calc_cum_flag = 'N' THEN
890: --
891: v_Progress := '030';
892: --
893: IF (l_debug <> -1) THEN
894: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
895: v_cum_key_record.customer_id);
896: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
897: v_cum_key_record.customer_item_id);
898: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
892: --
893: IF (l_debug <> -1) THEN
894: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
895: v_cum_key_record.customer_id);
896: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
897: v_cum_key_record.customer_item_id);
898: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
899: v_cum_key_record.inventory_item_id);
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
894: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
895: v_cum_key_record.customer_id);
896: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
897: v_cum_key_record.customer_item_id);
898: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
899: v_cum_key_record.inventory_item_id);
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
901: v_cum_key_record.ship_from_org_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
896: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
897: v_cum_key_record.customer_item_id);
898: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
899: v_cum_key_record.inventory_item_id);
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
901: v_cum_key_record.ship_from_org_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
903: ,v_cum_key_record.intrmd_ship_to_address_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
898: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
899: v_cum_key_record.inventory_item_id);
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
901: v_cum_key_record.ship_from_org_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
903: ,v_cum_key_record.intrmd_ship_to_address_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
905: v_cum_key_record.ship_to_address_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
901: v_cum_key_record.ship_from_org_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
903: ,v_cum_key_record.intrmd_ship_to_address_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
905: v_cum_key_record.ship_to_address_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
907: v_cum_key_record.bill_to_address_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
903: ,v_cum_key_record.intrmd_ship_to_address_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
905: v_cum_key_record.ship_to_address_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
907: v_cum_key_record.bill_to_address_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
909: v_cum_key_record.purchase_order_number);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
905: v_cum_key_record.ship_to_address_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
907: v_cum_key_record.bill_to_address_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
909: v_cum_key_record.purchase_order_number);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
911: v_cum_key_record.cust_record_year);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
907: v_cum_key_record.bill_to_address_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
909: v_cum_key_record.purchase_order_number);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
911: v_cum_key_record.cust_record_year);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
913: ,v_cum_key_record.cum_start_date);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
909: v_cum_key_record.purchase_order_number);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
911: v_cum_key_record.cust_record_year);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
913: ,v_cum_key_record.cum_start_date);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
915: v_cum_key_record.create_cum_key_flag);
916: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
911: v_cum_key_record.cust_record_year);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
913: ,v_cum_key_record.cum_start_date);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
915: v_cum_key_record.create_cum_key_flag);
916: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
917: END IF;
918: --
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
913: ,v_cum_key_record.cum_start_date);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
915: v_cum_key_record.create_cum_key_flag);
916: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
917: END IF;
918: --
919: RLM_TPA_SV.CalculateCumKey(v_cum_key_record,v_cum_record);
920: --
918: --
919: RLM_TPA_SV.CalculateCumKey(v_cum_key_record,v_cum_record);
920: --
921: IF (l_debug <> -1) THEN
922: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.record_return_status',
923: v_cum_record.record_return_status);
924: END IF;
925: --
926: IF v_cum_record.record_return_status THEN
925: --
926: IF v_cum_record.record_return_status THEN
927: --
928: IF (l_debug <> -1) THEN
929: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
930: v_cum_record.msg_data);
931: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
932: v_cum_record.cum_key_id);
933: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
927: --
928: IF (l_debug <> -1) THEN
929: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
930: v_cum_record.msg_data);
931: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
932: v_cum_record.cum_key_id);
933: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
934: v_cum_record.cum_start_date);
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
929: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
930: v_cum_record.msg_data);
931: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
932: v_cum_record.cum_key_id);
933: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
934: v_cum_record.cum_start_date);
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
936: v_cum_record.shipped_quantity);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
931: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
932: v_cum_record.cum_key_id);
933: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
934: v_cum_record.cum_start_date);
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
936: v_cum_record.shipped_quantity);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
938: v_cum_record.actual_shipment_date);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
933: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
934: v_cum_record.cum_start_date);
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
936: v_cum_record.shipped_quantity);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
938: v_cum_record.actual_shipment_date);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
940: v_cum_record.cum_key_created_flag);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
936: v_cum_record.shipped_quantity);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
938: v_cum_record.actual_shipment_date);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
940: v_cum_record.cum_key_created_flag);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
942: v_cum_record.cum_qty);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
938: v_cum_record.actual_shipment_date);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
940: v_cum_record.cum_key_created_flag);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
942: v_cum_record.cum_qty);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
944: v_cum_record.as_of_date_cum_qty);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
940: v_cum_record.cum_key_created_flag);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
942: v_cum_record.cum_qty);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
944: v_cum_record.as_of_date_cum_qty);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
946: v_cum_record.cum_qty_to_be_accumulated);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
942: v_cum_record.cum_qty);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
944: v_cum_record.as_of_date_cum_qty);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
946: v_cum_record.cum_qty_to_be_accumulated);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
948: v_cum_record.last_cum_qty_update_date);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
944: v_cum_record.as_of_date_cum_qty);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
946: v_cum_record.cum_qty_to_be_accumulated);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
948: v_cum_record.last_cum_qty_update_date);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
950: v_cum_record.cust_uom_code);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
946: v_cum_record.cum_qty_to_be_accumulated);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
948: v_cum_record.last_cum_qty_update_date);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
950: v_cum_record.cust_uom_code);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
952: v_cum_record.use_ship_incl_rule_flag);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
948: v_cum_record.last_cum_qty_update_date);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
950: v_cum_record.cust_uom_code);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
952: v_cum_record.use_ship_incl_rule_flag);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
954: v_cum_record.shipment_rule_code);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
950: v_cum_record.cust_uom_code);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
952: v_cum_record.use_ship_incl_rule_flag);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
954: v_cum_record.shipment_rule_code);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
956: ,v_cum_record.yesterday_time_cutoff);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
952: v_cum_record.use_ship_incl_rule_flag);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
954: v_cum_record.shipment_rule_code);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
956: ,v_cum_record.yesterday_time_cutoff);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
958: v_cum_record.last_update_date);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
954: v_cum_record.shipment_rule_code);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
956: ,v_cum_record.yesterday_time_cutoff);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
958: v_cum_record.last_update_date);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
960: v_cum_record.as_of_date_time);
961: END IF;
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
956: ,v_cum_record.yesterday_time_cutoff);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
958: v_cum_record.last_update_date);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
960: v_cum_record.as_of_date_time);
961: END IF;
962: --
963: IF v_cum_record.cum_key_id IS NULL THEN
973: --
974: END IF;
975: --
976: IF (l_debug <> -1) THEN
977: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
978: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
979: g_CUM_tab(v_Count).primary_quantity);
980: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
981: v_cum_record.cum_qty);
974: END IF;
975: --
976: IF (l_debug <> -1) THEN
977: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
978: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
979: g_CUM_tab(v_Count).primary_quantity);
980: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
981: v_cum_record.cum_qty);
982: END IF;
976: IF (l_debug <> -1) THEN
977: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
978: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
979: g_CUM_tab(v_Count).primary_quantity);
980: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
981: v_cum_record.cum_qty);
982: END IF;
983: --
984: IF x_Group_rec.setup_terms_rec.cum_org_level_code NOT IN (
990: --
991: v_Intransit := RLM_TPA_SV.CalculateIntransitQty(x_Sched_rec,
992: x_Group_rec);
993: IF (l_debug <> -1) THEN
994: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
995: END IF;
996: --
997: v_SupQty := v_cum_record.cum_qty +
998: v_cum_record.cum_qty_to_be_accumulated +
998: v_cum_record.cum_qty_to_be_accumulated +
999: NVL(v_cum_record.cum_qty_after_cutoff,0) - v_Intransit;
1000: --
1001: IF (l_debug <> -1) THEN
1002: rlm_core_sv.dlog(C_DEBUG,'v_SupQty', v_SupQty);
1003: END IF;
1004: --
1005: IF g_CUM_tab(v_Count).primary_quantity <> v_SupQty THEN
1006: --
1004: --
1005: IF g_CUM_tab(v_Count).primary_quantity <> v_SupQty THEN
1006: --
1007: IF (l_debug <> -1) THEN
1008: rlm_core_sv.dlog(C_DEBUG,'NOT ALL');
1009: END IF;
1010: --
1011: v_Progress := '120';
1012: raise e_CUMDiscrepancy;
1019: --
1020: g_AllIntransitQty := RLM_TPA_SV.GetIntransitAcrossOrgs(x_Sched_rec, x_Group_rec, v_cum_record.cum_key_id);
1021: --
1022: IF (l_debug <> -1) THEN
1023: rlm_core_sv.dlog(C_DEBUG, 'g_AllIntransitQty', g_AllIntransitQty);
1024: END IF;
1025: --
1026: v_SupQty := v_cum_record.cum_qty +
1027: v_cum_record.cum_qty_to_be_accumulated +
1028: NVL(v_cum_record.cum_qty_after_cutoff,0)
1029: - NVL(g_AllIntransitQty,0);
1030: --
1031: IF (l_debug <> -1) THEN
1032: rlm_core_sv.dlog(C_DEBUG,'v_SupQty', v_SupQty);
1033: END IF;
1034: --
1035: IF g_CUM_tab(v_Count).item_detail_quantity <> v_SupQty THEN
1036: --
1034: --
1035: IF g_CUM_tab(v_Count).item_detail_quantity <> v_SupQty THEN
1036: --
1037: IF (l_debug <> -1) THEN
1038: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity',
1039: g_CUM_tab(v_Count).item_detail_quantity);
1040: END IF;
1041: --
1042: v_Progress := '120';
1087: x_Token1 => 'CUSTCM',
1088: x_Value1 => g_CUM_tab(v_current_rec).primary_quantity, --Bugfix 7007638
1089: x_Token2 => 'GROUP', --Bugfix 7007638
1090: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1091: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1092: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1093: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1094: v_control_value,
1095: x_Token3 => 'SUPCUM',
1088: x_Value1 => g_CUM_tab(v_current_rec).primary_quantity, --Bugfix 7007638
1089: x_Token2 => 'GROUP', --Bugfix 7007638
1090: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1091: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1092: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1093: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1094: v_control_value,
1095: x_Token3 => 'SUPCUM',
1096: x_Value3 => v_SupQty);
1089: x_Token2 => 'GROUP', --Bugfix 7007638
1090: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1091: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1092: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1093: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1094: v_control_value,
1095: x_Token3 => 'SUPCUM',
1096: x_Value3 => v_SupQty);
1097: --
1095: x_Token3 => 'SUPCUM',
1096: x_Value3 => v_SupQty);
1097: --
1098: IF (l_debug <> -1) THEN
1099: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1100: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1101: END IF;
1102: --
1103: WHEN e_CUMDiscrepancyAll THEN
1096: x_Value3 => v_SupQty);
1097: --
1098: IF (l_debug <> -1) THEN
1099: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1100: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1101: END IF;
1102: --
1103: WHEN e_CUMDiscrepancyAll THEN
1104: --
1136: x_Token1 => 'CUSTCM',
1137: x_Value1 => g_CUM_tab(v_current_rec).item_detail_quantity, --Bugfix 7007638
1138: x_Token2 => 'GROUP', --Bugfix 7007638
1139: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1140: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1141: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1142: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1143: v_control_value,
1144: x_Token3 => 'SUPCUM',
1137: x_Value1 => g_CUM_tab(v_current_rec).item_detail_quantity, --Bugfix 7007638
1138: x_Token2 => 'GROUP', --Bugfix 7007638
1139: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1140: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1141: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1142: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1143: v_control_value,
1144: x_Token3 => 'SUPCUM',
1145: x_Value3 => v_SupQty);
1138: x_Token2 => 'GROUP', --Bugfix 7007638
1139: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1140: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1141: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1142: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1143: v_control_value,
1144: x_Token3 => 'SUPCUM',
1145: x_Value3 => v_SupQty);
1146: --
1144: x_Token3 => 'SUPCUM',
1145: x_Value3 => v_SupQty);
1146: --
1147: IF (l_debug <> -1) THEN
1148: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1149: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1150: END IF;
1151: --
1152: WHEN e_NoCumKey THEN
1145: x_Value3 => v_SupQty);
1146: --
1147: IF (l_debug <> -1) THEN
1148: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1149: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1150: END IF;
1151: --
1152: WHEN e_NoCumKey THEN
1153: --
1183: x_OrderLineId => NULL,
1184: x_GroupInfo => TRUE,
1185: x_Token1 => 'GROUP', --Bugfix 7007638
1186: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1187: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1188: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1189: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1190: v_control_value);
1191: --
1184: x_GroupInfo => TRUE,
1185: x_Token1 => 'GROUP', --Bugfix 7007638
1186: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1187: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1188: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1189: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1190: v_control_value);
1191: --
1192: IF (l_debug <> -1) THEN
1185: x_Token1 => 'GROUP', --Bugfix 7007638
1186: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1187: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1188: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1189: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1190: v_control_value);
1191: --
1192: IF (l_debug <> -1) THEN
1193: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1189: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1190: v_control_value);
1191: --
1192: IF (l_debug <> -1) THEN
1193: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1194: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1195: END IF;
1196: --
1197: WHEN e_NoCUMAtItem THEN
1190: v_control_value);
1191: --
1192: IF (l_debug <> -1) THEN
1193: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1194: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1195: END IF;
1196: --
1197: WHEN e_NoCUMAtItem THEN
1198: --
1227: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
1228: x_OrderLineId => NULL,
1229: x_GroupInfo => TRUE,
1230: -- x_Token1 => 'CITEM',
1231: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1232: x_Token1 => 'GROUP', --Bugfix 7007638
1233: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1234: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1235: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1230: -- x_Token1 => 'CITEM',
1231: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1232: x_Token1 => 'GROUP', --Bugfix 7007638
1233: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1234: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1235: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1236: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1237: v_control_value);
1238: --
1231: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1232: x_Token1 => 'GROUP', --Bugfix 7007638
1233: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1234: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1235: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1236: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1237: v_control_value);
1238: --
1239: IF (l_debug <> -1) THEN
1232: x_Token1 => 'GROUP', --Bugfix 7007638
1233: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1234: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1235: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1236: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1237: v_control_value);
1238: --
1239: IF (l_debug <> -1) THEN
1240: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1236: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1237: v_control_value);
1238: --
1239: IF (l_debug <> -1) THEN
1240: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1241: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1242: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1243: END IF;
1244: --
1237: v_control_value);
1238: --
1239: IF (l_debug <> -1) THEN
1240: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1241: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1242: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1243: END IF;
1244: --
1245: END;
1238: --
1239: IF (l_debug <> -1) THEN
1240: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1241: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1242: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1243: END IF;
1244: --
1245: END;
1246: END LOOP; --Bugfix 7007638
1245: END;
1246: END LOOP; --Bugfix 7007638
1247: --
1248: IF (l_debug <> -1) THEN
1249: rlm_core_sv.dpop(C_SDEBUG);
1250: END IF;
1251: --
1252: EXCEPTION
1253: --
1288: x_OrderLineId => NULL,
1289: x_GroupInfo => TRUE,
1290: x_Token1 => 'GROUP', --Bugfix 7007638
1291: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1292: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1293: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1294: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1295: v_control_value,
1296: x_Token2 => 'ERRORMSG',
1289: x_GroupInfo => TRUE,
1290: x_Token1 => 'GROUP', --Bugfix 7007638
1291: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1292: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1293: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1294: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1295: v_control_value,
1296: x_Token2 => 'ERRORMSG',
1297: x_Value2 => v_cum_record.msg_data);
1290: x_Token1 => 'GROUP', --Bugfix 7007638
1291: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1292: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1293: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1294: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1295: v_control_value,
1296: x_Token2 => 'ERRORMSG',
1297: x_Value2 => v_cum_record.msg_data);
1298: --
1296: x_Token2 => 'ERRORMSG',
1297: x_Value2 => v_cum_record.msg_data);
1298: --
1299: IF (l_debug <> -1) THEN
1300: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1301: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1302: rlm_core_sv.dpop(C_SDEBUG);
1303: END IF;
1304: --
1297: x_Value2 => v_cum_record.msg_data);
1298: --
1299: IF (l_debug <> -1) THEN
1300: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1301: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1302: rlm_core_sv.dpop(C_SDEBUG);
1303: END IF;
1304: --
1305: raise e_GroupError;
1298: --
1299: IF (l_debug <> -1) THEN
1300: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1301: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1302: rlm_core_sv.dpop(C_SDEBUG);
1303: END IF;
1304: --
1305: raise e_GroupError;
1306: --
1321: x_Token1 => 'ERROR',
1322: x_Value1 => v_cum_record.msg_data);
1323: --
1324: IF (l_debug <> -1) THEN
1325: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCUM API Failed',
1326: v_cum_record.msg_data);
1327: rlm_core_sv.dpop(C_SDEBUG);
1328: END IF;
1329: --
1323: --
1324: IF (l_debug <> -1) THEN
1325: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCUM API Failed',
1326: v_cum_record.msg_data);
1327: rlm_core_sv.dpop(C_SDEBUG);
1328: END IF;
1329: --
1330: raise e_GroupError;
1331: --
1334: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',
1335: v_Progress);
1336: --
1337: IF (l_debug <> -1) THEN
1338: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1339: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1340: END IF;
1341: --
1342: raise;
1335: v_Progress);
1336: --
1337: IF (l_debug <> -1) THEN
1338: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1339: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1340: END IF;
1341: --
1342: raise;
1343:
1358: --
1359: BEGIN
1360: --
1361: IF (l_debug <> -1) THEN
1362: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1363: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1364: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1365: END IF;
1366: --
1359: BEGIN
1360: --
1361: IF (l_debug <> -1) THEN
1362: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1363: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1364: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1365: END IF;
1366: --
1367: IF x_Operation = k_DELETE THEN
1360: --
1361: IF (l_debug <> -1) THEN
1362: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1363: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1364: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1365: END IF;
1366: --
1367: IF x_Operation = k_DELETE THEN
1368: --
1377: --
1378: ELSIF x_Operation = k_UPDATE THEN
1379: --
1380: IF (l_debug <> -1) THEN
1381: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1382: END IF;
1383: --
1384: IF nvl(x_ManageDemand_rec.program_id,k_NULL) NOT IN (k_INSERT, k_DELETE)
1385: THEN
1392: x_ManageDemand_rec.program_id := x_Operation;
1393: END IF;
1394: --
1395: IF (l_debug <> -1) THEN
1396: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1397: rlm_core_sv.dpop(C_SDEBUG);
1398: END IF;
1399: --
1400: EXCEPTION
1393: END IF;
1394: --
1395: IF (l_debug <> -1) THEN
1396: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1397: rlm_core_sv.dpop(C_SDEBUG);
1398: END IF;
1399: --
1400: EXCEPTION
1401: --
1403: --
1404: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1405: --
1406: IF (l_debug <> -1) THEN
1407: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1408: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1409: END IF;
1410: --
1411: raise;
1404: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1405: --
1406: IF (l_debug <> -1) THEN
1407: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1408: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1409: END IF;
1410: --
1411: raise;
1412: --
1435: --
1436: BEGIN
1437: --
1438: IF (l_debug <> -1) THEN
1439: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1440: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1441: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1442: END IF;
1443:
1436: BEGIN
1437: --
1438: IF (l_debug <> -1) THEN
1439: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1440: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1441: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1442: END IF;
1443:
1444: --Bugfix 7007638 --Replaced all occurrences of record type g_CUM_rec with PL/SQL table g_CUM_tab.
1437: --
1438: IF (l_debug <> -1) THEN
1439: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1440: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1441: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1442: END IF;
1443:
1444: --Bugfix 7007638 --Replaced all occurrences of record type g_CUM_rec with PL/SQL table g_CUM_tab.
1445:
1450: v_cum_record.cum_key_id := NULL;
1451: v_EarlierDiscreteQty := 0; --Bugfix 7007638
1452: --
1453: IF (l_debug <> -1) THEN
1454: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1455: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1456: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1457: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1458: END IF;
1451: v_EarlierDiscreteQty := 0; --Bugfix 7007638
1452: --
1453: IF (l_debug <> -1) THEN
1454: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1455: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1456: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1457: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1458: END IF;
1459: --
1452: --
1453: IF (l_debug <> -1) THEN
1454: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1455: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1456: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1457: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1458: END IF;
1459: --
1460: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1453: IF (l_debug <> -1) THEN
1454: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1455: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1456: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1457: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1458: END IF;
1459: --
1460: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1461: --Displaying values as part of Bugfix 7007638
1459: --
1460: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1461: --Displaying values as part of Bugfix 7007638
1462: IF (l_debug <> -1) THEN
1463: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1464: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1465: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1466: END IF;
1467:
1460: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1461: --Displaying values as part of Bugfix 7007638
1462: IF (l_debug <> -1) THEN
1463: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1464: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1465: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1466: END IF;
1467:
1468: --Bugfix 7007638 --Added IF Condition
1461: --Displaying values as part of Bugfix 7007638
1462: IF (l_debug <> -1) THEN
1463: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1464: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1465: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1466: END IF;
1467:
1468: --Bugfix 7007638 --Added IF Condition
1469: IF (x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') AND
1570: NVL(v_cum_record.cum_qty_after_cutoff,0) +
1571: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1572: --
1573: IF (l_debug <> -1) THEN
1574: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1575: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1576: v_cum_record.cum_qty_after_cutoff);
1577: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1578: v_cum_record.cum_qty_to_be_accumulated);
1571: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1572: --
1573: IF (l_debug <> -1) THEN
1574: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1575: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1576: v_cum_record.cum_qty_after_cutoff);
1577: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1578: v_cum_record.cum_qty_to_be_accumulated);
1579: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1573: IF (l_debug <> -1) THEN
1574: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1575: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1576: v_cum_record.cum_qty_after_cutoff);
1577: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1578: v_cum_record.cum_qty_to_be_accumulated);
1579: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1580: END IF;
1581: --
1575: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1576: v_cum_record.cum_qty_after_cutoff);
1577: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1578: v_cum_record.cum_qty_to_be_accumulated);
1579: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1580: END IF;
1581: --
1582: END IF; --first time in the loop
1583: --
1581: --
1582: END IF; --first time in the loop
1583: --
1584: IF (l_debug <> -1) THEN
1585: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',
1586: g_ManageDemand_tab(v_Count).primary_quantity);
1587: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').primary_quantity',
1588: g_CUM_tab(v_Count1).primary_quantity);
1589:
1583: --
1584: IF (l_debug <> -1) THEN
1585: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',
1586: g_ManageDemand_tab(v_Count).primary_quantity);
1587: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').primary_quantity',
1588: g_CUM_tab(v_Count1).primary_quantity);
1589:
1590: END IF;
1591: -- Bug 4468377
1600: - v_supplier_total_qty
1601: - v_EarlierDiscreteQty;
1602: --
1603: IF (l_debug <> -1) THEN
1604: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
1605: g_ManageDemand_tab(v_Count).primary_quantity);
1606: END IF;
1607: --
1608: g_ManageDemand_tab(v_Count).qty_type_code := 'ACTUAL';
1624: --x_Token1 => 'SCHEDLINE', --Bugfix 7007638
1625: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1626: x_Token1 => 'GROUP', --Bugfix 7007638
1627: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1628: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1629: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1630: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1631: v_control_value);
1632: --
1625: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1626: x_Token1 => 'GROUP', --Bugfix 7007638
1627: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1628: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1629: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1630: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1631: v_control_value);
1632: --
1633: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1626: x_Token1 => 'GROUP', --Bugfix 7007638
1627: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1628: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1629: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1630: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1631: v_control_value);
1632: --
1633: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1634: --
1636: --
1637: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1638: --
1639: IF (l_debug <> -1) THEN
1640: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1641: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1642: g_ManageDemand_tab(v_Count).primary_quantity);
1643: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1644: g_ManageDemand_tab(v_Count).qty_type_code);
1637: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1638: --
1639: IF (l_debug <> -1) THEN
1640: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1641: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1642: g_ManageDemand_tab(v_Count).primary_quantity);
1643: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1644: g_ManageDemand_tab(v_Count).qty_type_code);
1645: END IF;
1639: IF (l_debug <> -1) THEN
1640: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1641: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1642: g_ManageDemand_tab(v_Count).primary_quantity);
1643: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1644: g_ManageDemand_tab(v_Count).qty_type_code);
1645: END IF;
1646: --
1647: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1647: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1648: g_ManageDemand_tab(v_Count).primary_quantity;
1649: --
1650: IF (l_debug <> -1) THEN
1651: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1652: END IF;
1653: --
1654: END IF;
1655: --
1665:
1666: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1667: --
1668: IF (l_debug <> -1) THEN
1669: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || v_Count || ').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1670: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1671: END IF;
1672: --
1673: -- This assignment is done in order to get the current record during
1666: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1667: --
1668: IF (l_debug <> -1) THEN
1669: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || v_Count || ').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1670: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1671: END IF;
1672: --
1673: -- This assignment is done in order to get the current record during
1674: -- the error processing
1738: NVL(v_cum_record.cum_qty_after_cutoff,0) +
1739: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1740: --
1741: IF (l_debug <> -1) THEN
1742: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1743: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1744: v_cum_record.cum_qty_after_cutoff);
1745: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1746: v_cum_record.cum_qty_to_be_accumulated);
1739: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1740: --
1741: IF (l_debug <> -1) THEN
1742: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1743: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1744: v_cum_record.cum_qty_after_cutoff);
1745: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1746: v_cum_record.cum_qty_to_be_accumulated);
1747: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1741: IF (l_debug <> -1) THEN
1742: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1743: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1744: v_cum_record.cum_qty_after_cutoff);
1745: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1746: v_cum_record.cum_qty_to_be_accumulated);
1747: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1748: END IF;
1749: --
1743: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1744: v_cum_record.cum_qty_after_cutoff);
1745: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1746: v_cum_record.cum_qty_to_be_accumulated);
1747: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1748: END IF;
1749: --
1750: END IF; --first time in the loop
1751: --
1749: --
1750: END IF; --first time in the loop
1751: --
1752: IF (l_debug <> -1) THEN
1753: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',g_ManageDemand_tab(v_Count).primary_quantity);
1754: END IF;
1755: -- Bug 4436335
1756: IF (g_ManageDemand_tab(v_Count).uom_code <> v_cum_record.cust_uom_code) THEN
1757: --
1764: - v_supplier_total_qty
1765: - v_EarlierDiscreteQty;
1766: --
1767: IF (l_debug <> -1) THEN
1768: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
1769: g_ManageDemand_tab(v_Count).primary_quantity);
1770: END IF;
1771: --
1772: g_ManageDemand_tab(v_Count).qty_type_code := 'ACTUAL';
1788: --x_Token1 => 'SCHEDLINE', --Bugfix 7007638
1789: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1790: x_Token1 => 'GROUP', --Bugfix 7007638
1791: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1792: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1793: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1794: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1795: v_control_value);
1796: --
1789: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1790: x_Token1 => 'GROUP', --Bugfix 7007638
1791: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1792: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1793: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1794: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1795: v_control_value);
1796: --
1797: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1790: x_Token1 => 'GROUP', --Bugfix 7007638
1791: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1792: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1793: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1794: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1795: v_control_value);
1796: --
1797: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1798: --
1800: --
1801: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1802: --
1803: IF (l_debug <> -1) THEN
1804: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1805: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1806: g_ManageDemand_tab(v_Count).primary_quantity);
1807: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1808: g_ManageDemand_tab(v_Count).qty_type_code);
1801: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1802: --
1803: IF (l_debug <> -1) THEN
1804: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1805: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1806: g_ManageDemand_tab(v_Count).primary_quantity);
1807: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1808: g_ManageDemand_tab(v_Count).qty_type_code);
1809: END IF;
1803: IF (l_debug <> -1) THEN
1804: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1805: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1806: g_ManageDemand_tab(v_Count).primary_quantity);
1807: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1808: g_ManageDemand_tab(v_Count).qty_type_code);
1809: END IF;
1810: --
1811: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1811: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1812: g_ManageDemand_tab(v_Count).primary_quantity;
1813: --
1814: IF (l_debug <> -1) THEN
1815: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1816: END IF;
1817: --
1818: END IF;
1819: --
1821: --
1822: END IF; --g_CUM_tab.COUNT
1823: --
1824: IF (l_debug <> -1) THEN
1825: rlm_core_sv.dpop(C_SDEBUG);
1826: END IF;
1827: --
1828: EXCEPTION
1829: --
1839: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
1840: x_OrderLineId => NULL,
1841: x_Token1 => 'GROUP', --Bugfix 7007638
1842: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1843: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1844: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1845: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1846: v_control_value);
1847: --
1840: x_OrderLineId => NULL,
1841: x_Token1 => 'GROUP', --Bugfix 7007638
1842: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1843: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1844: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1845: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1846: v_control_value);
1847: --
1848: IF (l_debug <> -1) THEN
1841: x_Token1 => 'GROUP', --Bugfix 7007638
1842: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1843: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1844: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1845: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1846: v_control_value);
1847: --
1848: IF (l_debug <> -1) THEN
1849: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1845: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1846: v_control_value);
1847: --
1848: IF (l_debug <> -1) THEN
1849: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1850: rlm_core_sv.dpop(C_SDEBUG);
1851: END IF;
1852: --
1853: raise e_GroupError;
1846: v_control_value);
1847: --
1848: IF (l_debug <> -1) THEN
1849: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1850: rlm_core_sv.dpop(C_SDEBUG);
1851: END IF;
1852: --
1853: raise e_GroupError;
1854: --
1868: x_ScheduleLineId => NULL,
1869: x_Token1 => 'LINE_UOM',
1870: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1871: x_Token2 => 'GROUP',
1872: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1873: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1874: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1875: x_Token3 => 'REQ_DATE',
1876: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1869: x_Token1 => 'LINE_UOM',
1870: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1871: x_Token2 => 'GROUP',
1872: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1873: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1874: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1875: x_Token3 => 'REQ_DATE',
1876: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1877: x_Token4 => 'CUM_UOM',
1870: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1871: x_Token2 => 'GROUP',
1872: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1873: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1874: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1875: x_Token3 => 'REQ_DATE',
1876: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1877: x_Token4 => 'CUM_UOM',
1878: x_value4 => v_cum_record.cust_uom_code,
1881: nvl(g_ManageDemand_tab(v_current_rec).cust_model_serial_number,'NULL') || '-' ||
1882: nvl(g_ManageDemand_tab(v_current_rec).customer_job,'NULL'));
1883: --
1884: IF (l_debug <> -1) THEN
1885: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1886: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1887: rlm_core_sv.dpop(C_SDEBUG);
1888: END IF;
1889: --
1882: nvl(g_ManageDemand_tab(v_current_rec).customer_job,'NULL'));
1883: --
1884: IF (l_debug <> -1) THEN
1885: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1886: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1887: rlm_core_sv.dpop(C_SDEBUG);
1888: END IF;
1889: --
1890: ELSE
1883: --
1884: IF (l_debug <> -1) THEN
1885: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1886: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1887: rlm_core_sv.dpop(C_SDEBUG);
1888: END IF;
1889: --
1890: ELSE
1891: --
1898: x_ScheduleLineId => g_ManageDemand_tab(v_current_rec).schedule_line_id,
1899: x_Token1 => 'LINE_UOM',
1900: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1901: x_Token2 => 'GROUP',
1902: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1903: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1904: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1905: x_Token3 => 'REQ_DATE',
1906: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1899: x_Token1 => 'LINE_UOM',
1900: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1901: x_Token2 => 'GROUP',
1902: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1903: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1904: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1905: x_Token3 => 'REQ_DATE',
1906: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1907: x_Token4 => 'CUM_UOM',
1900: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1901: x_Token2 => 'GROUP',
1902: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1903: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1904: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1905: x_Token3 => 'REQ_DATE',
1906: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1907: x_Token4 => 'CUM_UOM',
1908: x_value4 => v_cum_record.cust_uom_code,
1906: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1907: x_Token4 => 'CUM_UOM',
1908: x_value4 => v_cum_record.cust_uom_code,
1909: x_Token5 => 'SCHEDULE_LINE',
1910: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1911: --
1912: IF (l_debug <> -1) THEN
1913: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1914: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1909: x_Token5 => 'SCHEDULE_LINE',
1910: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1911: --
1912: IF (l_debug <> -1) THEN
1913: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1914: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1915: rlm_core_sv.dpop(C_SDEBUG);
1916: END IF;
1917: --
1910: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1911: --
1912: IF (l_debug <> -1) THEN
1913: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1914: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1915: rlm_core_sv.dpop(C_SDEBUG);
1916: END IF;
1917: --
1918: END IF;
1911: --
1912: IF (l_debug <> -1) THEN
1913: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1914: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1915: rlm_core_sv.dpop(C_SDEBUG);
1916: END IF;
1917: --
1918: END IF;
1919: --
1924: --
1925: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1926: --
1927: IF (l_debug <> -1) THEN
1928: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1929: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1930: END IF;
1931: --
1932: raise;
1925: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1926: --
1927: IF (l_debug <> -1) THEN
1928: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1929: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1930: END IF;
1931: --
1932: raise;
1933: --
2136: --
2137: BEGIN
2138: --
2139: IF (l_debug <> -1) THEN
2140: rlm_core_sv.dpush(C_SDEBUG,'ApplySourceRules');
2141: END IF;
2142: --
2143: --global_atp
2144: IF IsATPItem(x_group_rec.ship_from_org_id,
2152: --
2153: fnd_profile.get('RLM_MSC_MRP_ASSIGN_SET', v_assign_set);
2154: --
2155: IF (l_debug <> -1) THEN
2156: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set', v_assign_set);
2157: END IF;
2158: --
2159: IF NVL(v_assign_set, 'N') = 'N' THEN
2160: --
2174: AND organization_id = x_Group_rec.ship_from_org_id
2175: AND sr_instance_id IN (SELECT instance_id FROM mrp_ap_apps_instances);
2176: --
2177: IF (l_debug <> -1) THEN
2178: rlm_core_sv.dlog(C_DEBUG, 'sr_item_id', sr_item_id);
2179: END IF;
2180: --
2181: OPEN c_MSC_site;
2182: --
2196: WHEN NO_DATA_FOUND THEN
2197: --
2198: v_count_msc := 0;
2199: IF (l_debug <> -1) THEN
2200: rlm_core_sv.dlog(C_DEBUG, 'No data found for inventory item',
2201: x_Group_rec.inventory_item_id );
2202: END IF;
2203: --
2204: WHEN OTHERS THEN
2204: WHEN OTHERS THEN
2205: --
2206: v_count_msc := 0;
2207: IF (l_debug <> -1) THEN
2208: rlm_core_sv.dlog(C_DEBUG, 'In when others' || SUBSTR(SQLERRM,1,200));
2209: END IF;
2210: --
2211: END;
2212: --
2212: --
2213: v_source_level := 'SITE';
2214: --
2215: IF (l_debug <> -1) THEN
2216: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2217: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2218: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2219: END IF;
2220: --
2213: v_source_level := 'SITE';
2214: --
2215: IF (l_debug <> -1) THEN
2216: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2217: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2218: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2219: END IF;
2220: --
2221: IF (l_debug <> -1) THEN
2214: --
2215: IF (l_debug <> -1) THEN
2216: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2217: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2218: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2219: END IF;
2220: --
2221: IF (l_debug <> -1) THEN
2222: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_site: v_count_msc', v_count_msc);
2218: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2219: END IF;
2220: --
2221: IF (l_debug <> -1) THEN
2222: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_site: v_count_msc', v_count_msc);
2223: END IF;
2224: --
2225: IF v_count_msc = 1 THEN -- first level of hierarchy: MSC SITE --{
2226: --
2249: CLOSE c_MSC_item; --bug 4570658
2250: v_source_level := 'ITEM';
2251: --
2252: IF (l_debug <> -1) THEN
2253: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_item: v_count_msc', v_count_msc);
2254: END IF;
2255: --
2256: IF v_count_msc = 1 THEN -- exactly one sourcing rule in ITEM --{
2257: --
2279: v_count_mrp := c_MRP_site%ROWCOUNT;
2280: v_source_level := 'SITE';
2281: --
2282: IF (l_debug <> -1) THEN
2283: rlm_core_sv.dlog(C_DEBUG, 'c_MRP_site: v_count_mrp', v_count_mrp);
2284: END IF;
2285: --
2286: IF v_count_mrp = 1 THEN --{
2287: --
2310: CLOSE c_MRP_item; --bug 4570658
2311: v_source_level := 'ITEM';
2312: --
2313: IF (l_debug <> -1) THEN
2314: rlm_core_sv.dlog(C_DEBUG, 'c_MRP_item: v_count_mrp', v_count_mrp);
2315: END IF;
2316: --
2317: IF v_count_mrp = 1 THEN --{
2318: --
2340: --
2341: END IF; --}
2342: --
2343: IF (l_debug <> -1) THEN
2344: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2341: END IF; --}
2342: --
2343: IF (l_debug <> -1) THEN
2344: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2349: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2342: --
2343: IF (l_debug <> -1) THEN
2344: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2349: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2350: END IF;
2343: IF (l_debug <> -1) THEN
2344: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2349: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2350: END IF;
2351: --
2344: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2349: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2350: END IF;
2351: --
2352: --open cursors based on source (MSC or MRP) and source level (SITE, ITEM, or PRFL).
2345: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2346: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2347: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2348: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2349: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2350: END IF;
2351: --
2352: --open cursors based on source (MSC or MRP) and source level (SITE, ITEM, or PRFL).
2353: --
2376: AND (SYSDATE BETWEEN effective_date AND
2377: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2378: --
2379: IF (l_debug <> -1) THEN
2380: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum sourcing level', v_srcng_lvl);
2381: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum Rank', v_rank);
2382: END IF;
2383: --
2384: FOR c_rec IN c_MSC_site_profile(sr_item_id,
2377: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2378: --
2379: IF (l_debug <> -1) THEN
2380: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum sourcing level', v_srcng_lvl);
2381: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum Rank', v_rank);
2382: END IF;
2383: --
2384: FOR c_rec IN c_MSC_site_profile(sr_item_id,
2385: x_Group_rec.ship_from_org_id,
2411: AND (SYSDATE BETWEEN effective_date AND
2412: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2413: --
2414: IF (l_debug <> -1) THEN
2415: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum sourcing level', v_srcng_lvl);
2416: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum Rank', v_rank);
2417: END IF;
2418: --
2419: FOR c_rec IN c_MSC_item_profile(sr_item_id,
2412: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2413: --
2414: IF (l_debug <> -1) THEN
2415: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum sourcing level', v_srcng_lvl);
2416: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum Rank', v_rank);
2417: END IF;
2418: --
2419: FOR c_rec IN c_MSC_item_profile(sr_item_id,
2420: x_Group_rec.ship_from_org_id,
2446: AND (SYSDATE BETWEEN effective_date AND
2447: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2448: --
2449: IF (l_debug <> -1) THEN
2450: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum sourcing level', v_srcng_lvl);
2451: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum Rank', v_rank);
2452: END IF;
2453: --
2454: FOR c_rec IN c_MRP_site_profile(x_Group_rec.inventory_item_id,
2447: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2448: --
2449: IF (l_debug <> -1) THEN
2450: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum sourcing level', v_srcng_lvl);
2451: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum Rank', v_rank);
2452: END IF;
2453: --
2454: FOR c_rec IN c_MRP_site_profile(x_Group_rec.inventory_item_id,
2455: x_Group_rec.ship_from_org_id,
2482: AND (SYSDATE BETWEEN effective_date AND
2483: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2484: --
2485: IF (l_debug <> -1) THEN
2486: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum sourcing level', v_srcng_lvl);
2487: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum Rank', v_rank);
2488: END IF;
2489: --
2490: FOR c_rec IN c_MRP_item_profile(x_Group_rec.inventory_item_id,
2483: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR SYSDATE < effective_date); --Bugfix 6051397
2484: --
2485: IF (l_debug <> -1) THEN
2486: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum sourcing level', v_srcng_lvl);
2487: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum Rank', v_rank);
2488: END IF;
2489: --
2490: FOR c_rec IN c_MRP_item_profile(x_Group_rec.inventory_item_id,
2491: x_Group_rec.ship_from_org_id,
2508: --
2509: END IF; --}
2510: --
2511: IF (l_debug <> -1) THEN
2512: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab.COUNT',
2513: g_ManageDemand_tab.COUNT);
2514: END IF;
2515: --
2516: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2515: --
2516: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2517: --
2518: IF (l_debug <> -1) THEN
2519: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2520: g_ManageDemand_tab(i).qty_type_code);
2521: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2522: x_Group_rec.setup_terms_rec.cum_control_code);
2523: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2517: --
2518: IF (l_debug <> -1) THEN
2519: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2520: g_ManageDemand_tab(i).qty_type_code);
2521: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2522: x_Group_rec.setup_terms_rec.cum_control_code);
2523: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2524: x_Group_rec.setup_terms_rec.cum_org_level_code);
2525: END IF;
2519: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2520: g_ManageDemand_tab(i).qty_type_code);
2521: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2522: x_Group_rec.setup_terms_rec.cum_control_code);
2523: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2524: x_Group_rec.setup_terms_rec.cum_org_level_code);
2525: END IF;
2526: --
2527:
2541: IF v_Ind_Source = 0 THEN
2542: v_Ind_Source := v_Ind_Source + 1;
2543: x_Source_Tab(v_Ind_Source).allocation_percent := 100;
2544: x_Source_Tab(v_Ind_Source).organization_id := x_Group_rec.ship_from_org_id;
2545: rlm_core_sv.dlog(C_DEBUG, 'No Sourcing Rule found for this line ');
2546: END IF;
2547: --Bugfix 6051397 End
2548:
2549:
2555: 'BILL_TO_ALL_SHIP_FROMS',
2556: 'DELIVER_TO_ALL_SHIP_FROMS') THEN
2557: --
2558: IF (l_debug <> -1) THEN
2559: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUMORGLEVEL_INVALID');
2560: --
2561: --bug 1497386 fix: schedule line id is passed instead of null
2562: --
2563: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2559: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUMORGLEVEL_INVALID');
2560: --
2561: --bug 1497386 fix: schedule line id is passed instead of null
2562: --
2563: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2564: g_ManageDemand_tab(i).schedule_line_id );
2565: END IF;
2566: --
2567: rlm_message_sv.app_error(
2575: x_OrderLineId => NULL,
2576: --x_ErrorText => 'Sourcing Rules with CUM Organization Level
2577: --will result in cum discrepancies',
2578: x_Token1 => 'CUMORGLEVEL',
2579: x_value1 => rlm_core_sv.get_lookup_meaning(
2580: 'RLM_CUM_ORG_LEVEL',
2581: x_Group_rec.setup_terms_rec.cum_org_level_code));
2582:
2583: --
2594: v_SumQty := 0;
2595: v_org_found := FALSE;
2596: --
2597: IF (l_debug <> -1) THEN
2598: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab.COUNT', x_Source_tab.COUNT);
2599: END IF;
2600: --
2601: FOR j IN 1..x_Source_tab.COUNT LOOP
2602: --
2600: --
2601: FOR j IN 1..x_Source_tab.COUNT LOOP
2602: --
2603: IF (l_debug <> -1) THEN
2604: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_Tab(' || i || ').ship_from_org_id', g_ManageDemand_Tab(i).ship_from_org_id);
2605: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').organization_id', x_Source_tab(j).organization_id);
2606: END IF;
2607: --
2608: IF g_ManageDemand_Tab(i).ship_from_org_id =
2601: FOR j IN 1..x_Source_tab.COUNT LOOP
2602: --
2603: IF (l_debug <> -1) THEN
2604: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_Tab(' || i || ').ship_from_org_id', g_ManageDemand_Tab(i).ship_from_org_id);
2605: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').organization_id', x_Source_tab(j).organization_id);
2606: END IF;
2607: --
2608: IF g_ManageDemand_Tab(i).ship_from_org_id =
2609: x_Source_tab(j).organization_id THEN
2608: IF g_ManageDemand_Tab(i).ship_from_org_id =
2609: x_Source_tab(j).organization_id THEN
2610: --
2611: IF (l_debug <> -1) THEN
2612: rlm_core_sv.dlog(C_DEBUG, 'Org Found in Source Rules');
2613: END IF;
2614: --
2615: v_org_found := TRUE;
2616: --
2614: --
2615: v_org_found := TRUE;
2616: --
2617: IF (l_debug <> -1) THEN
2618: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').allocation_percent',
2619: x_Source_tab(j).allocation_percent);
2620: END IF;
2621: --
2622: IF x_Source_tab(j).allocation_percent = 0 THEN
2634: --
2635: g_ManageDemand_tab(i).line_source := 'SOURCED';
2636: --
2637: IF (l_debug <> -1) THEN
2638: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2639: g_ManageDemand_tab(i).primary_quantity);
2640: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').line_source',
2641: g_ManageDemand_tab(i).line_source);
2642: END IF;
2636: --
2637: IF (l_debug <> -1) THEN
2638: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2639: g_ManageDemand_tab(i).primary_quantity);
2640: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').line_source',
2641: g_ManageDemand_tab(i).line_source);
2642: END IF;
2643: --
2644: v_SumQty := v_SumQty +
2644: v_SumQty := v_SumQty +
2645: TRUNC(v_OrigQty * x_Source_tab(j).allocation_percent/100);
2646: --
2647: IF (l_debug <> -1) THEN
2648: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2649: END IF;
2650: --
2651: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
2652: --
2654: --
2655: ELSIF x_Source_tab(j).allocation_percent <> 0 THEN
2656: -- Add a new line at the end
2657: IF (l_debug <> -1) THEN
2658: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab('|| j || ').organization_id',
2659: x_Source_tab(j).organization_id);
2660: END IF;
2661: --
2662: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT + 1) :=
2673: --
2674: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source := 'SOURCED';
2675: --
2676: IF (l_debug <> -1) THEN
2677: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2678: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2679: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2680: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2681: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2675: --
2676: IF (l_debug <> -1) THEN
2677: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2678: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2679: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2680: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2681: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2682: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2683: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2677: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2678: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2679: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2680: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2681: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2682: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2683: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2684: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).schedule_item_num);
2685: END IF;
2679: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2680: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2681: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2682: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2683: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2684: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).schedule_item_num);
2685: END IF;
2686: --
2687: v_SumQty := v_SumQty +
2687: v_SumQty := v_SumQty +
2688: TRUNC(v_OrigQty * x_Source_tab(j).allocation_percent/100);
2689: --
2690: IF (l_debug <> -1) THEN
2691: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2692: END IF;
2693: --
2694: SetOperation(x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT),k_INSERT);
2695: --
2700: -- Now add the remaining quantity the truncated quantity to the
2701: -- saveIndex record
2702: --
2703: IF (l_debug <> -1) THEN
2704: rlm_core_sv.dlog(C_DEBUG, 'v_OrigQty', v_OrigQty);
2705: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2706: END IF;
2707: --
2708: IF NOT v_org_found THEN
2701: -- saveIndex record
2702: --
2703: IF (l_debug <> -1) THEN
2704: rlm_core_sv.dlog(C_DEBUG, 'v_OrigQty', v_OrigQty);
2705: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2706: END IF;
2707: --
2708: IF NOT v_org_found THEN
2709: --
2713: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity +
2714: v_OrigQty - v_SumQty;
2715: --
2716: IF (l_debug <> -1) THEN
2717: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(COUNT).primary_quantity'
2718: ,x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2719: END IF;
2720: --
2721: ELSE
2723: g_ManageDemand_tab(i).primary_quantity :=
2724: g_ManageDemand_tab(i).primary_quantity + v_OrigQty - v_SumQty;
2725: --
2726: IF (l_debug <> -1) THEN
2727: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2728: g_ManageDemand_tab(i).primary_quantity);
2729: END IF;
2730: --
2731: END IF;
2730: --
2731: END IF;
2732: --
2733: IF (l_debug <> -1) THEN
2734: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2735: g_ManageDemand_tab(i).primary_quantity);
2736: END IF;
2737: --
2738: ELSE
2737: --
2738: ELSE
2739: --
2740: IF (l_debug <> -1) THEN
2741: rlm_core_sv.dlog(C_DEBUG, 'Line already sourced need not apply source rules ');
2742: END IF;
2743: --
2744: END IF;
2745: --
2745: --
2746: END LOOP;
2747: --
2748: IF (l_debug <> -1) THEN
2749: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.Count',
2750: x_SourcedDemand_Tab.Count);
2751: END IF;
2752: --
2753: IF x_SourcedDemand_Tab.COUNT > 0 THEN
2765: v_tmpGroup_rec.ship_to_address_id :=
2766: x_SourcedDemand_Tab(k).ship_to_address_id;
2767: --
2768: IF (l_debug <> -1) THEN
2769: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2770: x_SourcedDemand_Tab(k).ship_from_org_id);
2771: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2772: x_SourcedDemand_Tab(k).customer_item_id);
2773: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2767: --
2768: IF (l_debug <> -1) THEN
2769: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2770: x_SourcedDemand_Tab(k).ship_from_org_id);
2771: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2772: x_SourcedDemand_Tab(k).customer_item_id);
2773: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2774: x_SourcedDemand_Tab(k).ship_to_address_id);
2775: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2769: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2770: x_SourcedDemand_Tab(k).ship_from_org_id);
2771: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2772: x_SourcedDemand_Tab(k).customer_item_id);
2773: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2774: x_SourcedDemand_Tab(k).ship_to_address_id);
2775: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2776: x_SourcedDemand_Tab(k).line_id);
2777: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2771: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2772: x_SourcedDemand_Tab(k).customer_item_id);
2773: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2774: x_SourcedDemand_Tab(k).ship_to_address_id);
2775: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2776: x_SourcedDemand_Tab(k).line_id);
2777: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2778: x_SourcedDemand_Tab(k).schedule_line_id);
2779: END IF;
2773: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2774: x_SourcedDemand_Tab(k).ship_to_address_id);
2775: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2776: x_SourcedDemand_Tab(k).line_id);
2777: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2778: x_SourcedDemand_Tab(k).schedule_line_id);
2779: END IF;
2780: --
2781: -- This is done so that the inventory item id is re calculated in orgDependentIds.
2799: rlm_validatedemand_sv.k_MRP_SOURCED);
2800: --
2801: --
2802: IF (l_debug <> -1) THEN
2803: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2804: x_SourcedDemand_Tab(k).process_status);
2805: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2806: x_SourcedDemand_Tab(k).ship_from_org_id);
2807: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2801: --
2802: IF (l_debug <> -1) THEN
2803: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2804: x_SourcedDemand_Tab(k).process_status);
2805: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2806: x_SourcedDemand_Tab(k).ship_from_org_id);
2807: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2808: x_SourcedDemand_Tab(k).order_header_id);
2809: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2803: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2804: x_SourcedDemand_Tab(k).process_status);
2805: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2806: x_SourcedDemand_Tab(k).ship_from_org_id);
2807: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2808: x_SourcedDemand_Tab(k).order_header_id);
2809: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2810: x_SourcedDemand_Tab(k).blanket_number);
2811: END IF;
2805: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2806: x_SourcedDemand_Tab(k).ship_from_org_id);
2807: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2808: x_SourcedDemand_Tab(k).order_header_id);
2809: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2810: x_SourcedDemand_Tab(k).blanket_number);
2811: END IF;
2812: --
2813: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2809: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2810: x_SourcedDemand_Tab(k).blanket_number);
2811: END IF;
2812: --
2813: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2814: --
2815: IF (l_debug <> -1) THEN
2816: rlm_core_sv.dpop(C_SDEBUG);
2817: END IF;
2812: --
2813: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2814: --
2815: IF (l_debug <> -1) THEN
2816: rlm_core_sv.dpop(C_SDEBUG);
2817: END IF;
2818: --
2819: RAISE e_GroupError;
2820: --
2824: --
2825: END IF;
2826: --
2827: IF (l_debug <> -1) THEN
2828: rlm_core_sv.dpop(C_SDEBUG);
2829: END IF;
2830: --
2831: EXCEPTION
2832: --
2833: --global_atp
2834: WHEN ByPassATP THEN
2835: --
2836: IF (l_debug <> -1) THEN
2837: rlm_core_sv.dlog(C_DEBUG,'No need to apply sourcing rule to ATP item');
2838: rlm_core_sv.dpop(C_SDEBUG);
2839: END IF;
2840:
2841: WHEN e_GroupError THEN
2834: WHEN ByPassATP THEN
2835: --
2836: IF (l_debug <> -1) THEN
2837: rlm_core_sv.dlog(C_DEBUG,'No need to apply sourcing rule to ATP item');
2838: rlm_core_sv.dpop(C_SDEBUG);
2839: END IF;
2840:
2841: WHEN e_GroupError THEN
2842: --
2840:
2841: WHEN e_GroupError THEN
2842: --
2843: IF (l_debug <> -1) THEN
2844: rlm_core_sv.dpop(C_SDEBUG);
2845: END IF;
2846: --
2847: RAISE;
2848:
2849:
2850: WHEN e_NoSrcRulesSetup THEN
2851: --
2852: IF (l_debug <> -1) THEN
2853: rlm_core_sv.dlog(C_DEBUG,'No Source rules setup for Inv Item ',
2854: x_group_rec.inventory_item_id);
2855: rlm_core_sv.dpop(C_SDEBUG);
2856: END IF;
2857: --
2851: --
2852: IF (l_debug <> -1) THEN
2853: rlm_core_sv.dlog(C_DEBUG,'No Source rules setup for Inv Item ',
2854: x_group_rec.inventory_item_id);
2855: rlm_core_sv.dpop(C_SDEBUG);
2856: END IF;
2857: --
2858: WHEN OTHERS THEN
2859: --
2859: --
2860: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2861: v_Progress);
2862: IF (l_debug <> -1) THEN
2863: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2864: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2865: END IF;
2866: --
2867: RAISE;
2860: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2861: v_Progress);
2862: IF (l_debug <> -1) THEN
2863: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2864: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2865: END IF;
2866: --
2867: RAISE;
2868:
2890:
2891: BEGIN
2892: --
2893: IF (l_debug <> -1) THEN
2894: rlm_core_sv.dpush(C_SDEBUG,'CalculateShipDate');
2895: END IF;
2896: --
2897: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2898: --
2905: --
2906: IF g_ManageDemand_tab(i).request_date IS NOT NULL THEN
2907: --
2908: IF (l_debug <> -1) THEN
2909: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2910: g_ManageDemand_tab(i).request_date);
2911: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2912: g_ManageDemand_tab(i).schedule_date);
2913: rlm_core_sv.dlog(C_DEBUG,'No Need to calculate the ship date as it is already calculated. Just make sure it is not past-due');
2907: --
2908: IF (l_debug <> -1) THEN
2909: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2910: g_ManageDemand_tab(i).request_date);
2911: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2912: g_ManageDemand_tab(i).schedule_date);
2913: rlm_core_sv.dlog(C_DEBUG,'No Need to calculate the ship date as it is already calculated. Just make sure it is not past-due');
2914: END IF;
2915: --
2909: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2910: g_ManageDemand_tab(i).request_date);
2911: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2912: g_ManageDemand_tab(i).schedule_date);
2913: rlm_core_sv.dlog(C_DEBUG,'No Need to calculate the ship date as it is already calculated. Just make sure it is not past-due');
2914: END IF;
2915: --
2916: IF v_ATP = TRUE THEN
2917: --
2920: --
2921: END IF;
2922: --
2923: IF (l_debug <> -1) THEN
2924: rlm_core_sv.dlog(C_DEBUG,'v_ATP', v_ATP);
2925: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date after',
2926: g_ManageDemand_tab(i).schedule_date);
2927: END IF;
2928: --
2921: END IF;
2922: --
2923: IF (l_debug <> -1) THEN
2924: rlm_core_sv.dlog(C_DEBUG,'v_ATP', v_ATP);
2925: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date after',
2926: g_ManageDemand_tab(i).schedule_date);
2927: END IF;
2928: --
2929: ELSE
2959: v_Input_rec.exclude_non_workdays_flag := x_Group_rec.setup_terms_rec.exclude_non_workdays_flag;
2960:
2961: --
2962: IF (l_debug <> -1) THEN
2963: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
2964: v_Input_rec.ShipDeliveryRuleName);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2961: --
2962: IF (l_debug <> -1) THEN
2963: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
2964: v_Input_rec.ShipDeliveryRuleName);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2962: IF (l_debug <> -1) THEN
2963: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
2964: v_Input_rec.ShipDeliveryRuleName);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2963: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
2964: v_Input_rec.ShipDeliveryRuleName);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2964: v_Input_rec.ShipDeliveryRuleName);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2965: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2966: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2967: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2968: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2969: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2970: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2971: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2972: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2973: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2981: v_Input_rec.supplier_shp_calendar_cd);
2974: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
2975: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2981: v_Input_rec.supplier_shp_calendar_cd);
2982: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
2976: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
2977: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2981: v_Input_rec.supplier_shp_calendar_cd);
2982: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
2983: v_Input_rec.sched_horizon_start_date);
2984: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
2978: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
2979: v_Input_rec.customer_rcv_calendar_cd);
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2981: v_Input_rec.supplier_shp_calendar_cd);
2982: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
2983: v_Input_rec.sched_horizon_start_date);
2984: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
2985: v_Input_rec.use_edi_sdp_code_flag);
2986: END IF;
2980: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
2981: v_Input_rec.supplier_shp_calendar_cd);
2982: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
2983: v_Input_rec.sched_horizon_start_date);
2984: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
2985: v_Input_rec.use_edi_sdp_code_flag);
2986: END IF;
2987: --
2988: rlm_tpa_sv.calc_scheduled_ship_date(v_Input_rec,
2990: v_message_tab,
2991: v_ReturnStatus);
2992: --
2993: IF (l_debug <> -1) THEN
2994: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus ', v_ReturnStatus);
2995: rlm_core_sv.dlog(C_DEBUG,'v_message_tab.COUNT ', v_message_tab.COUNT);
2996: END IF;
2997: --
2998: FOR j in 1..v_message_tab.COUNT LOOP
2991: v_ReturnStatus);
2992: --
2993: IF (l_debug <> -1) THEN
2994: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus ', v_ReturnStatus);
2995: rlm_core_sv.dlog(C_DEBUG,'v_message_tab.COUNT ', v_message_tab.COUNT);
2996: END IF;
2997: --
2998: FOR j in 1..v_message_tab.COUNT LOOP
2999: --
3012: x_Token1 => 'ERROR',
3013: x_value1 => v_message_tab(j).ErrMessage);
3014: --
3015: IF (l_debug <> -1) THEN
3016: rlm_core_sv.dlog(C_DEBUG,v_message_tab(j).ErrMessage);
3017: END IF;
3018: --
3019: ELSIF v_message_tab(j).ErrType = 0 THEN
3020: --
3031: x_Token1 => 'ERROR',
3032: x_value1 => v_message_tab(j).ErrMessage);
3033: --
3034: IF (l_debug <> -1) THEN
3035: rlm_core_sv.dlog(C_DEBUG,v_message_tab(j).ErrMessage);
3036: END IF;
3037: --
3038: END IF;
3039: --
3042: IF ((v_ReturnStatus = 2) or
3043: (v_ReturnStatus = RLM_SHIP_DELIVERY_PATTERN_SV.g_RaiseErr)) THEN
3044: --
3045: IF (l_debug <> -1) THEN
3046: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus',v_ReturnStatus);
3047: rlm_core_sv.dlog(C_DEBUG,'RLM_CALCULATE_SHIP_DATE_FAILED');
3048: END IF;
3049: --
3050: raise e_SDPFailed;
3043: (v_ReturnStatus = RLM_SHIP_DELIVERY_PATTERN_SV.g_RaiseErr)) THEN
3044: --
3045: IF (l_debug <> -1) THEN
3046: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus',v_ReturnStatus);
3047: rlm_core_sv.dlog(C_DEBUG,'RLM_CALCULATE_SHIP_DATE_FAILED');
3048: END IF;
3049: --
3050: raise e_SDPFailed;
3051: --
3051: --
3052: ELSE -- the return status not error
3053: --
3054: IF (l_debug <> -1) THEN
3055: rlm_core_sv.dlog(C_DEBUG,'v_Output_tab.COUNT',v_Output_tab.COUNT);
3056: END IF;
3057: --
3058: FOR j IN 1..v_Output_tab.COUNT LOOP
3059: -- The first line should be updated the rest inserted
3060: --
3061: IF j = 1 THEN
3062: --
3063: IF (l_debug <> -1) THEN
3064: rlm_core_sv.dlog(C_DEBUG,'updating the first line');
3065: END IF;
3066: --
3067: g_ManageDemand_tab(i).request_date :=
3068: v_Output_tab(j).PlannedShipmentDate;
3066: --
3067: g_ManageDemand_tab(i).request_date :=
3068: v_Output_tab(j).PlannedShipmentDate;
3069: IF (l_debug <> -1) THEN
3070: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.request_date',
3071: g_ManageDemand_tab(i).request_date);
3072: END IF;
3073: --
3074: IF v_input_rec.ATPItemFlag = TRUE THEN
3082: --
3083: END IF;
3084: --
3085: IF (l_debug <> -1) THEN
3086: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.SCHEDULE_DATE',
3087: g_ManageDemand_tab(i).SCHEDULE_DATE);
3088: END IF;
3089: --
3090: g_ManageDemand_tab(i).primary_quantity :=
3090: g_ManageDemand_tab(i).primary_quantity :=
3091: v_Output_tab(j).PrimaryQuantity;
3092: --
3093: IF (l_debug <> -1) THEN
3094: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.primary_quantity',
3095: g_ManageDemand_tab(i).primary_quantity);
3096: END IF;
3097: --
3098: g_ManageDemand_tab(i).item_detail_subtype :=
3098: g_ManageDemand_tab(i).item_detail_subtype :=
3099: v_Output_tab(j).ItemDetailSubtype;
3100: --
3101: IF (l_debug <> -1) THEN
3102: rlm_core_sv.dlog(C_DEBUG,'item_detail_subtype',
3103: g_ManageDemand_tab(i).item_detail_subtype);
3104: END IF;
3105: --
3106: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3105: --
3106: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3107: --
3108: IF (l_debug <> -1) THEN
3109: rlm_core_sv.dlog(C_DEBUG,'Set operation to update');
3110: END IF;
3111: --
3112: ELSE -- J<> 1 i.e. there are multiple lines in output tab
3113: --
3113: --
3114: g_ManageDemand_tab(g_ManageDemand_tab.COUNT+1):=g_ManageDemand_tab(i);
3115: --
3116: IF (l_debug <> -1) THEN
3117: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand.Count',
3118: g_ManageDemand_tab.COUNT);
3119: END IF;
3120: --
3121: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE :=
3121: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE :=
3122: v_Output_tab(j).PlannedShipmentDate;
3123: --
3124: IF (l_debug <> -1) THEN
3125: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.REQUEST_DATE',
3126: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE);
3127: END IF;
3128: --
3129: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE :=
3129: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE :=
3130: v_Output_tab(j).PlannedShipmentDate;
3131: --
3132: IF (l_debug <> -1) THEN
3133: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.SCHEDULE_DATE',
3134: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE);
3135: END IF;
3136: --
3137: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity :=
3137: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity :=
3138: v_Output_tab(j).PrimaryQuantity;
3139: --
3140: IF (l_debug <> -1) THEN
3141: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.primary_quantity',
3142: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
3143: END IF;
3144: --
3145: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype :=
3145: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype :=
3146: v_Output_tab(j).ItemDetailSubtype;
3147: --
3148: IF (l_debug <> -1) THEN
3149: rlm_core_sv.dlog(C_DEBUG,'item_detail_subtype',
3150: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype);
3151: END IF;
3152: --
3153: SetOperation(g_ManageDemand_tab(g_ManageDemand_tab.COUNT), k_INSERT);
3152: --
3153: SetOperation(g_ManageDemand_tab(g_ManageDemand_tab.COUNT), k_INSERT);
3154: --
3155: IF (l_debug <> -1) THEN
3156: rlm_core_sv.dlog(C_DEBUG,'Set operation to insert');
3157: END IF;
3158: --
3159: IF v_Output_tab(j).ReturnMessage IS NOT NULL THEN
3160: --
3158: --
3159: IF v_Output_tab(j).ReturnMessage IS NOT NULL THEN
3160: --
3161: IF (l_debug <> -1) THEN
3162: rlm_core_sv.dlog(C_DEBUG,'Return message from SDP APIs: ',
3163: v_Output_tab(j).ReturnMessage);
3164: END IF;
3165: --
3166: END IF;
3175: --
3176: END LOOP;
3177: --
3178: IF (l_debug <> -1) THEN
3179: rlm_core_sv.dpop(C_SDEBUG);
3180: END IF;
3181: --
3182: EXCEPTION
3183: --
3183: --
3184: WHEN e_SDPFailed THEN
3185: --
3186: IF (l_debug <> -1) THEN
3187: rlm_core_sv.dpop(C_SDEBUG);
3188: END IF;
3189: --
3190: raise e_GroupError;
3191: --
3191: --
3192: WHEN NO_DATA_FOUND THEN
3193: --
3194: IF (l_debug <> -1) THEN
3195: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
3196: rlm_core_sv.dpop(C_SDEBUG);
3197: END IF;
3198: --
3199: WHEN OTHERS THEN
3192: WHEN NO_DATA_FOUND THEN
3193: --
3194: IF (l_debug <> -1) THEN
3195: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
3196: rlm_core_sv.dpop(C_SDEBUG);
3197: END IF;
3198: --
3199: WHEN OTHERS THEN
3200: --
3198: --
3199: WHEN OTHERS THEN
3200: --
3201: IF (l_debug <> -1) THEN
3202: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3203: rlm_core_sv.dpop(C_SDEBUG);
3204: END IF;
3205: --
3206: raise;
3199: WHEN OTHERS THEN
3200: --
3201: IF (l_debug <> -1) THEN
3202: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3203: rlm_core_sv.dpop(C_SDEBUG);
3204: END IF;
3205: --
3206: raise;
3207: END CalculateShipDate;
3239:
3240: BEGIN
3241: --
3242: IF (l_debug <> -1) THEN
3243: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3244: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3245: x_Sched_rec.Schedule_type);
3246: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3247: TRUNC(SYSDATE));
3240: BEGIN
3241: --
3242: IF (l_debug <> -1) THEN
3243: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3244: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3245: x_Sched_rec.Schedule_type);
3246: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3247: TRUNC(SYSDATE));
3248: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3242: IF (l_debug <> -1) THEN
3243: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3244: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3245: x_Sched_rec.Schedule_type);
3246: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3247: TRUNC(SYSDATE));
3248: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3249: x_Sched_rec.sched_horizon_start_date);
3250: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3244: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3245: x_Sched_rec.Schedule_type);
3246: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3247: TRUNC(SYSDATE));
3248: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3249: x_Sched_rec.sched_horizon_start_date);
3250: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3251: x_Sched_rec.sched_horizon_end_date);
3252: END IF;
3246: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3247: TRUNC(SYSDATE));
3248: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3249: x_Sched_rec.sched_horizon_start_date);
3250: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3251: x_Sched_rec.sched_horizon_end_date);
3252: END IF;
3253: --
3254: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
3253: --
3254: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
3255:
3256: IF (l_debug <> -1) THEN
3257: rlm_core_sv.dlog(C_DEBUG,'PLANNING');
3258: END IF;
3259: --
3260: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.pln_frozen_day_from;
3261: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.pln_frozen_day_to;
3270:
3271: ELSIF x_Sched_rec.Schedule_type = k_SHIPPING THEN
3272: --
3273: IF (l_debug <> -1) THEN
3274: rlm_core_sv.dlog(C_DEBUG,'SHIPPING');
3275: END IF;
3276: --
3277: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.shp_frozen_day_from;
3278: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.shp_frozen_day_to;
3285:
3286: ELSIF x_Sched_rec.Schedule_type = k_SEQUENCED THEN
3287: --
3288: IF (l_debug <> -1) THEN
3289: rlm_core_sv.dlog(C_DEBUG,'SEQUENCED');
3290: END IF;
3291: --
3292: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.seq_frozen_day_from;
3293: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.seq_frozen_day_to;
3300:
3301: END IF;
3302:
3303: IF (l_debug <> -1) THEN
3304: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3301: END IF;
3302:
3303: IF (l_debug <> -1) THEN
3304: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3302:
3303: IF (l_debug <> -1) THEN
3304: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3303: IF (l_debug <> -1) THEN
3304: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3311: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3304: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3311: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3312: END IF;
3305: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3311: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3312: END IF;
3313:
3306: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3311: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3312: END IF;
3313:
3314: IF v_FrozenFenceDayFrom IS NOT NULL THEN
3307: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3308: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3309: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3310: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3311: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3312: END IF;
3313:
3314: IF v_FrozenFenceDayFrom IS NOT NULL THEN
3315: v_FrozenFenceDays := v_FrozenFenceDayTo - v_FrozenFenceDayFrom + 1;
3320: IF v_FirmFenceDayFrom IS NOT NULL THEN
3321: IF v_FirmFenceDayFrom <> 0 THEN
3322: --
3323: IF (l_debug <> -1) THEN
3324: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3325: END IF;
3326: --
3327: v_FirmFenceDays := v_FirmFenceDayTo - v_FirmFenceDayFrom + 1;
3328: ELSE
3335: IF v_ForecastFenceDayFrom IS NOT NULL THEN
3336: IF v_ForecastFenceDayFrom <> 0 THEN
3337: --
3338: IF (l_debug <> -1) THEN
3339: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3340: END IF;
3341: --
3342: v_ForecastFenceDays := v_ForecastFenceDayTo - v_ForecastFenceDayFrom + 1;
3343: ELSE
3350: IF v_MRPFenceDayFrom IS NOT NULL THEN
3351: IF v_MRPFenceDayFrom <> 0 THEN
3352: --
3353: IF (l_debug <> -1) THEN
3354: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3355: END IF;
3356: --
3357: v_MRPFenceDays := v_MRPFenceDayTo - v_MRPFenceDayFrom + 1;
3358: ELSE
3362: v_MRPFenceDays := NULL;
3363: END IF;
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3367: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3368: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3369: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3370: END IF;
3363: END IF;
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3367: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3368: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3369: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3370: END IF;
3371: --
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3367: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3368: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3369: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3370: END IF;
3371: --
3372: /* checking for past due demand and giving a warning message */
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3367: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3368: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3369: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3370: END IF;
3371: --
3372: /* checking for past due demand and giving a warning message */
3373: --
3373: --
3374: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3375: --
3376: IF (l_debug <> -1) THEN
3377: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3378: g_ManageDemand_tab(i).request_date);
3379: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3380: g_ManageDemand_tab(i).schedule_date);
3381: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3375: --
3376: IF (l_debug <> -1) THEN
3377: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3378: g_ManageDemand_tab(i).request_date);
3379: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3380: g_ManageDemand_tab(i).schedule_date);
3381: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3382: g_ManageDemand_tab(i).item_detail_type);
3383: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3377: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3378: g_ManageDemand_tab(i).request_date);
3379: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3380: g_ManageDemand_tab(i).schedule_date);
3381: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3382: g_ManageDemand_tab(i).item_detail_type);
3383: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3384: g_ManageDemand_tab(i).process_status);
3385: END IF;
3379: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3380: g_ManageDemand_tab(i).schedule_date);
3381: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3382: g_ManageDemand_tab(i).item_detail_type);
3383: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3384: g_ManageDemand_tab(i).process_status);
3385: END IF;
3386: --
3387: IF (g_ManageDemand_tab(i).request_date <
3395: --
3396: g_ManageDemand_tab(i).item_detail_type := k_FIRM_DEMAND;
3397: --
3398: IF (l_debug <> -1) THEN
3399: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3400: g_ManageDemand_tab(i).item_detail_type);
3401: rlm_core_sv.dlog(C_DEBUG,'k_FIRM_DEMAND', k_FIRM_DEMAND);
3402: END IF;
3403: --
3397: --
3398: IF (l_debug <> -1) THEN
3399: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3400: g_ManageDemand_tab(i).item_detail_type);
3401: rlm_core_sv.dlog(C_DEBUG,'k_FIRM_DEMAND', k_FIRM_DEMAND);
3402: END IF;
3403: --
3404: ELSE --}{
3405: --
3411: --
3412: END IF; --}
3413: --
3414: IF (l_debug <> -1) THEN
3415: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3416: g_ManageDemand_tab(i).item_detail_type);
3417: rlm_core_sv.dlog(C_DEBUG,'k_FORECAST_DEMAND', k_FORECAST_DEMAND);
3418: END IF;
3419: --
3413: --
3414: IF (l_debug <> -1) THEN
3415: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3416: g_ManageDemand_tab(i).item_detail_type);
3417: rlm_core_sv.dlog(C_DEBUG,'k_FORECAST_DEMAND', k_FORECAST_DEMAND);
3418: END IF;
3419: --
3420: ELSE --}{
3421: --
3427: --
3428: END IF; --}
3429: --
3430: IF (l_debug <> -1) THEN
3431: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3432: g_ManageDemand_tab(i).item_detail_type);
3433: rlm_core_sv.dlog(C_DEBUG,'k_MRP_FORECAST', k_MRP_FORECAST);
3434: END IF;
3435: --
3429: --
3430: IF (l_debug <> -1) THEN
3431: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3432: g_ManageDemand_tab(i).item_detail_type);
3433: rlm_core_sv.dlog(C_DEBUG,'k_MRP_FORECAST', k_MRP_FORECAST);
3434: END IF;
3435: --
3436: END IF; --}
3437: --
3462: x_OrderLineId => NULL,
3463: x_token1 => 'QUANTITY',
3464: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3465: x_Token2 => 'GROUP',
3466: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3467: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3468: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3469: x_token3 => 'REQ_DATE',
3470: x_value3 => g_ManageDemand_tab(i).request_date,
3463: x_token1 => 'QUANTITY',
3464: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3465: x_Token2 => 'GROUP',
3466: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3467: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3468: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3469: x_token3 => 'REQ_DATE',
3470: x_value3 => g_ManageDemand_tab(i).request_date,
3471: x_token4 => 'START_DATE_TIME',
3464: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3465: x_Token2 => 'GROUP',
3466: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3467: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3468: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3469: x_token3 => 'REQ_DATE',
3470: x_value3 => g_ManageDemand_tab(i).request_date,
3471: x_token4 => 'START_DATE_TIME',
3472: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3479: x_Token7 => 'MATCH_ATTR',
3480: x_value7 => v_MatchAttrTxt);
3481: --
3482: IF (l_debug <> -1) THEN
3483: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND_SEQ');
3484: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3485: g_ManageDemand_tab(i).item_detail_type);
3486: END IF;
3487: --
3480: x_value7 => v_MatchAttrTxt);
3481: --
3482: IF (l_debug <> -1) THEN
3483: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND_SEQ');
3484: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3485: g_ManageDemand_tab(i).item_detail_type);
3486: END IF;
3487: --
3488: ELSE --}{
3498: x_OrderLineId => NULL,
3499: x_token1 => 'QUANTITY',
3500: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3501: x_Token2 => 'GROUP',
3502: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3503: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3504: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3505: x_token3 => 'REQ_DATE',
3506: x_value3 => g_ManageDemand_tab(i).request_date,
3499: x_token1 => 'QUANTITY',
3500: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3501: x_Token2 => 'GROUP',
3502: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3503: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3504: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3505: x_token3 => 'REQ_DATE',
3506: x_value3 => g_ManageDemand_tab(i).request_date,
3507: x_token4 => 'START_DATE_TIME',
3500: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3501: x_Token2 => 'GROUP',
3502: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3503: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3504: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3505: x_token3 => 'REQ_DATE',
3506: x_value3 => g_ManageDemand_tab(i).request_date,
3507: x_token4 => 'START_DATE_TIME',
3508: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3508: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3509: x_token5 => 'PROCDATE',
3510: x_value5 => sysdate,
3511: x_Token6 => 'SCHEDULE_LINE',
3512: x_value6 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(i).schedule_line_id),
3513: x_Token7 => 'MATCH_ATTR',
3514: x_value7 => v_MatchAttrTxt);
3515: --
3516: IF (l_debug <> -1) THEN
3513: x_Token7 => 'MATCH_ATTR',
3514: x_value7 => v_MatchAttrTxt);
3515: --
3516: IF (l_debug <> -1) THEN
3517: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND');
3518: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3519: g_ManageDemand_tab(i).item_detail_type);
3520: END IF;
3521: --
3514: x_value7 => v_MatchAttrTxt);
3515: --
3516: IF (l_debug <> -1) THEN
3517: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND');
3518: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3519: g_ManageDemand_tab(i).item_detail_type);
3520: END IF;
3521: --
3522: END IF; --}
3530: IF v_FirmFenceDays IS NOT NULL OR v_ForecastFenceDays IS NOT NULL
3531: OR v_FrozenFenceDays IS NOT NULL OR v_MRPFenceDays IS NOT NULL THEN --{
3532: --
3533: IF (l_debug <> -1) THEN
3534: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',
3535: g_ManageDemand_tab.COUNT);
3536: END IF;
3537: --
3538: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3537: --
3538: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3539: --
3540: IF (l_debug <> -1) THEN
3541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3542: g_ManageDemand_tab(i).request_date);
3543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3544: g_ManageDemand_tab(i).item_detail_type);
3545: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3539: --
3540: IF (l_debug <> -1) THEN
3541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3542: g_ManageDemand_tab(i).request_date);
3543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3544: g_ManageDemand_tab(i).item_detail_type);
3545: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3546: g_ManageDemand_tab(i).process_status);
3547: END IF;
3541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3542: g_ManageDemand_tab(i).request_date);
3543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3544: g_ManageDemand_tab(i).item_detail_type);
3545: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3546: g_ManageDemand_tab(i).process_status);
3547: END IF;
3548: --
3549:
3562: IF (v_FirmFenceDays = 0 AND
3563: v_ForecastFenceDays = 0 AND v_MRPFenceDays > 0) THEN --{
3564:
3565: IF (l_debug <> -1) THEN
3566: rlm_core_sv.dlog(C_DEBUG, 'Firm and forecast fences are set to zero');
3567: rlm_core_sv.dlog(C_DEBUG, 'MRP forecast fences are set to not-null values');
3568: END IF;
3569: --
3570: IF (g_ManageDemand_tab(i).request_date BETWEEN
3563: v_ForecastFenceDays = 0 AND v_MRPFenceDays > 0) THEN --{
3564:
3565: IF (l_debug <> -1) THEN
3566: rlm_core_sv.dlog(C_DEBUG, 'Firm and forecast fences are set to zero');
3567: rlm_core_sv.dlog(C_DEBUG, 'MRP forecast fences are set to not-null values');
3568: END IF;
3569: --
3570: IF (g_ManageDemand_tab(i).request_date BETWEEN
3571: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3571: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3572: (TRUNC(SYSDATE) + v_MRPFenceDayTo - 1)) THEN --{
3573: --
3574: IF (l_debug <> -1) THEN
3575: rlm_core_sv.dlog(C_DEBUG, 'request date is within MRP fences');
3576: END IF;
3577: --
3578: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3579: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3580: --
3581: ELSE --}{
3582: --
3583: IF (l_debug <> -1) THEN
3584: rlm_core_sv.dlog(C_DEBUG, 'request date outside MRP fences');
3585: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3586: END IF;
3587: --
3588: IsLineProcessed := TRUE;
3581: ELSE --}{
3582: --
3583: IF (l_debug <> -1) THEN
3584: rlm_core_sv.dlog(C_DEBUG, 'request date outside MRP fences');
3585: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3586: END IF;
3587: --
3588: IsLineProcessed := TRUE;
3589: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3585: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3586: END IF;
3587: --
3588: IsLineProcessed := TRUE;
3589: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3590: --Bug 5208135
3591: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3592: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3593: END IF;
3596: --
3597: END IF; --}
3598: ELSIF v_FirmFenceDays = 0 THEN --}{
3599: --
3600: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3601: IsLineProcessed := TRUE;
3602: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3603: --
3604: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3603: --
3604: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3605: --
3606: IF (l_debug <> -1) THEN
3607: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFROM',v_FirmFenceDayFrom);
3608: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3609: END IF;
3610: --
3611: -- Bug 4207235
3604: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3605: --
3606: IF (l_debug <> -1) THEN
3607: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFROM',v_FirmFenceDayFrom);
3608: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3609: END IF;
3610: --
3611: -- Bug 4207235
3612: --
3617: g_ManageDemand_tab(i).request_date < (TRUNC(SYSDATE) + v_FirmFenceDayTo) AND
3618: g_ManageDemand_tab(i).request_date >=(TRUNC(SYSDATE) + v_FirmFenceDayFrom - 1) ) THEN --{
3619: --
3620: IF (l_debug <> -1) THEN
3621: rlm_core_sv.dlog(C_DEBUG,'request_date within firm fence');
3622: END IF;
3623: --
3624: g_ManageDemand_tab(i).item_detail_type := k_FIRM_DEMAND;
3625: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3627: ELSIF (g_ManageDemand_tab(i).request_date >=
3628: (TRUNC(SYSDATE) + v_FirmFenceDayTo)) THEN --}{
3629: --
3630: IF (l_debug <> -1) THEN
3631: rlm_core_sv.dlog(C_DEBUG,'request_date outside firm fence');
3632: END IF;
3633: --
3634: IF v_ForecastFenceDays = 0 THEN --{
3635: --
3634: IF v_ForecastFenceDays = 0 THEN --{
3635: --
3636: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3637: g_ManageDemand_tab(i).process_status
3638: := rlm_core_sv.k_PS_PROCESSED;
3639: IsLineProcessed := TRUE;
3640: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3641: --
3642: ELSIF v_ForecastFenceDays is NOT NULL THEN --}{
3641: --
3642: ELSIF v_ForecastFenceDays is NOT NULL THEN --}{
3643: --
3644: IF (l_debug <> -1) THEN
3645: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',
3646: v_ForecastFenceDays);
3647: END IF;
3648: --
3649: IF(g_ManageDemand_tab(i).request_date <
3650: (TRUNC(SYSDATE) +
3651: v_ForecastFenceDayTo))THEN --{
3652: --
3653: IF (l_debug <> -1) THEN
3654: rlm_core_sv.dlog(C_DEBUG,'request_date inside oe forecast fence');
3655: END IF;
3656: --
3657: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3658: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3660: ELSIF(g_ManageDemand_tab(i).request_date >=
3661: (TRUNC(SYSDATE) + v_ForecastFenceDayTo))THEN --}{
3662: --
3663: IF (l_debug <> -1) THEN
3664: rlm_core_sv.dlog(C_DEBUG,'request_date outside oe forecast fence');
3665: END IF;
3666: --
3667: IF v_MRPFenceDays = 0 THEN --{
3668: --
3667: IF v_MRPFenceDays = 0 THEN --{
3668: --
3669: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3670: g_ManageDemand_tab(i).process_status
3671: := rlm_core_sv.k_PS_PROCESSED;
3672: IsLineProcessed := TRUE;
3673: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3674: --
3675: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3677: IF (g_ManageDemand_tab(i).request_date <
3678: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --{
3679: --
3680: IF (l_debug <> -1) THEN
3681: rlm_core_sv.dlog(C_DEBUG,
3682: 'request_date inside MRP forecast fence');
3683: END IF;
3684: --
3685: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3688: ELSIF (g_ManageDemand_tab(i).request_date >=
3689: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{
3690: --
3691: IF (l_debug <> -1) THEN
3692: rlm_core_sv.dlog(C_DEBUG,
3693: 'request_date outside MRP forecast fence');
3694: END IF;
3695: --
3696: g_ManageDemand_tab(i).process_status
3693: 'request_date outside MRP forecast fence');
3694: END IF;
3695: --
3696: g_ManageDemand_tab(i).process_status
3697: := rlm_core_sv.k_PS_PROCESSED;
3698: --Bug 5208135
3699: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3700: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3701: END IF;
3712: ELSE --}{
3713: --
3714: /* IF OE forecast fence is NULL */
3715: IF (l_debug <> -1) THEN
3716: rlm_core_sv.dlog(C_DEBUG,'OE Forecast fence NULL' );
3717: END IF;
3718: --
3719: IF v_MRPFenceDays = 0 THEN --{
3720: --
3718: --
3719: IF v_MRPFenceDays = 0 THEN --{
3720: --
3721: IF (l_debug <> -1) THEN
3722: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3723: g_ManageDemand_tab(i).item_detail_type );
3724: END IF;
3725: --
3726: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3725: --
3726: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3727: --
3728: g_ManageDemand_tab(i).process_status
3729: := rlm_core_sv.k_PS_PROCESSED;
3730: IsLineProcessed := TRUE;
3731: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3732: --
3733: END IF; --}
3734: --
3735: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3736: --
3737: IF (l_debug <> -1) THEN
3738: rlm_core_sv.dlog(C_DEBUG,'MRP Forecast fence NOT NULL' );
3739: END IF;
3740: --
3741: IF (g_ManageDemand_tab(i).request_date BETWEEN
3742: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3742: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3743: (TRUNC(SYSDATE) + v_MRPFenceDayTo - 1)) THEN --{
3744: --
3745: IF (l_debug <> -1) THEN
3746: rlm_core_sv.dlog(C_DEBUG,
3747: 'request_date inside MRP forecast fence');
3748: END IF;
3749: --
3750: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3753: ELSIF (g_ManageDemand_tab(i).request_date >=
3754: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{
3755: --
3756: IF (l_debug <> -1) THEN
3757: rlm_core_sv.dlog(C_DEBUG,
3758: 'request_date outside MRP forecast fence');
3759: END IF;
3760: --
3761: g_ManageDemand_tab(i).process_status
3758: 'request_date outside MRP forecast fence');
3759: END IF;
3760: --
3761: g_ManageDemand_tab(i).process_status
3762: := rlm_core_sv.k_PS_PROCESSED;
3763: --Bug 5208135
3764: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3765: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3766: END IF;
3779: ELSE --}{
3780: --
3781: /* if firmfence is null */
3782: IF (l_debug <> -1) THEN
3783: rlm_core_sv.dlog(C_DEBUG, 'firm fence is null');
3784: END IF;
3785: --
3786: IF v_ForecastFenceDays = 0 THEN --{
3787: --
3785: --
3786: IF v_ForecastFenceDays = 0 THEN --{
3787: --
3788: IF (l_debug <> -1) THEN
3789: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3790: g_ManageDemand_tab(i).item_detail_type );
3791: END IF;
3792: --
3793: IF g_ManageDemand_tab(i).item_detail_type = k_FORECAST_DEMAND OR
3792: --
3793: IF g_ManageDemand_tab(i).item_detail_type = k_FORECAST_DEMAND OR
3794: g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3795: --
3796: g_ManageDemand_tab(i).process_status:= rlm_core_sv.k_PS_PROCESSED;
3797: IsLineProcessed := TRUE;
3798: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3799: --
3800: END IF; --}
3801: --
3802: ELSIF v_ForecastFenceDays IS NOT NULL THEN --}{
3803: --
3804: IF (l_debug <> -1) THEN
3805: rlm_core_sv.dlog(C_DEBUG, 'OE forecast fence not null');
3806: END IF;
3807: --
3808: IF (g_ManageDemand_tab(i).request_date <
3809: (TRUNC(SYSDATE) + v_ForecastFenceDayTo))
3812: (TRUNC(SYSDATE) +
3813: v_ForecastFenceDayFrom - 1)) THEN --{
3814: --
3815: IF (l_debug <> -1) THEN
3816: rlm_core_sv.dlog(C_DEBUG,'request_date inside oe forecast fence');
3817: END IF;
3818: --
3819: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3820: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3823: (TRUNC(SYSDATE) +
3824: v_ForecastFenceDayTo))THEN --}{
3825: --
3826: IF (l_debug <> -1) THEN
3827: rlm_core_sv.dlog(C_DEBUG,'request_date outside oe forecast fence');
3828: END IF;
3829: --
3830: IF v_MRPFenceDays = 0 THEN --{
3831: --
3830: IF v_MRPFenceDays = 0 THEN --{
3831: --
3832: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3833: g_ManageDemand_tab(i).process_status
3834: := rlm_core_sv.k_PS_PROCESSED;
3835: IsLineProcessed := TRUE;
3836: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3837: --
3838: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3840: IF (g_ManageDemand_tab(i).request_date <
3841: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --{
3842: --
3843: IF (l_debug <> -1) THEN
3844: rlm_core_sv.dlog(C_DEBUG,
3845: 'request_date inside MRP forecast fence');
3846: END IF;
3847: --
3848: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3851: ELSIF (g_ManageDemand_tab(i).request_date >=
3852: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{
3853: --
3854: IF (l_debug <> -1) THEN
3855: rlm_core_sv.dlog(C_DEBUG,
3856: 'request_date outside MRP forecast fence');
3857: END IF;
3858: --
3859: g_ManageDemand_tab(i).process_status
3856: 'request_date outside MRP forecast fence');
3857: END IF;
3858: --
3859: g_ManageDemand_tab(i).process_status
3860: := rlm_core_sv.k_PS_PROCESSED;
3861: --Bug 5208135
3862: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3863: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3864: END IF;
3873: ELSE --}{
3874: --
3875: /* IF OE forecast fence is NULL */
3876: IF (l_debug <> -1) THEN
3877: rlm_core_sv.dlog(C_DEBUG,'OE Forecast fence NULL' );
3878: END IF;
3879: --
3880: IF v_MRPFenceDays = 0 THEN --{
3881: --
3879: --
3880: IF v_MRPFenceDays = 0 THEN --{
3881: --
3882: IF (l_debug <> -1) THEN
3883: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3884: g_ManageDemand_tab(i).item_detail_type );
3885: END IF;
3886: --
3887: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3886: --
3887: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3888: --
3889: g_ManageDemand_tab(i).process_status
3890: := rlm_core_sv.k_PS_PROCESSED;
3891: IsLineProcessed := TRUE;
3892: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3893: --
3894: END IF; --}
3895: --
3896: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3897: --
3898: IF (l_debug <> -1) THEN
3899: rlm_core_sv.dlog(C_DEBUG,'MRP Forecast fence NOT NULL' );
3900: END IF;
3901: --
3902: IF (g_ManageDemand_tab(i).request_date BETWEEN
3903: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3903: (TRUNC(SYSDATE) + v_MRPFenceDayFrom - 1) AND
3904: (TRUNC(SYSDATE) + v_MRPFenceDayTo - 1)) THEN --{
3905: --
3906: IF (l_debug <> -1) THEN
3907: rlm_core_sv.dlog(C_DEBUG,
3908: 'request_date inside MRP forecast fence');
3909: END IF;
3910: --
3911: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3914: ELSIF (g_ManageDemand_tab(i).request_date >=
3915: (TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{
3916: --
3917: IF (l_debug <> -1) THEN
3918: rlm_core_sv.dlog(C_DEBUG,
3919: 'request_date outside MRP forecast fence');
3920: END IF;
3921: --
3922: g_ManageDemand_tab(i).process_status
3919: 'request_date outside MRP forecast fence');
3920: END IF;
3921: --
3922: g_ManageDemand_tab(i).process_status
3923: := rlm_core_sv.k_PS_PROCESSED;
3924: --Bug 5208135
3925: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3926: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3927: END IF;
3943: AND g_ManageDemand_tab(i).item_detail_type <> k_MRP_FORECAST
3944: AND nvl(v_FirmFenceDays,-99) <> 0 --bug 3562125
3945: THEN --{
3946: --
3947: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_FROZEN_FIRM;
3948: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3949: --
3950: END IF; --}
3951: --
3949: --
3950: END IF; --}
3951: --
3952: IF (l_debug <> -1) THEN
3953: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3954: g_ManageDemand_tab(i).item_detail_type);
3955: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3956: g_ManageDemand_tab(i).process_status);
3957: END IF;
3951: --
3952: IF (l_debug <> -1) THEN
3953: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3954: g_ManageDemand_tab(i).item_detail_type);
3955: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3956: g_ManageDemand_tab(i).process_status);
3957: END IF;
3958: --
3959: END LOOP; --}
3963: END IF; --}
3964: --
3965: IF IsLineProcessed THEN
3966: IF (l_debug <> -1) THEN
3967: rlm_core_sv.dlog('Some of the lines are in fully processed state');
3968: END IF;
3969: END IF;
3970: --
3971: IF (l_debug <> -1) THEN
3968: END IF;
3969: END IF;
3970: --
3971: IF (l_debug <> -1) THEN
3972: rlm_core_sv.dpop(C_SDEBUG);
3973: END IF;
3974: --
3975: EXCEPTION
3976: --
3976: --
3977: WHEN NO_DATA_FOUND THEN
3978: --
3979: IF (l_debug <> -1) THEN
3980: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
3981: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3982: rlm_core_sv.dpop(C_SDEBUG);
3983: END IF;
3984: --
3977: WHEN NO_DATA_FOUND THEN
3978: --
3979: IF (l_debug <> -1) THEN
3980: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
3981: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3982: rlm_core_sv.dpop(C_SDEBUG);
3983: END IF;
3984: --
3985: WHEN OTHERS THEN
3978: --
3979: IF (l_debug <> -1) THEN
3980: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
3981: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3982: rlm_core_sv.dpop(C_SDEBUG);
3983: END IF;
3984: --
3985: WHEN OTHERS THEN
3986: --
3986: --
3987: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3988: --
3989: IF (l_debug <> -1) THEN
3990: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
3991: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3992: END IF;
3993: --
3994: raise;
3987: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3988: --
3989: IF (l_debug <> -1) THEN
3990: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
3991: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3992: END IF;
3993: --
3994: raise;
3995:
4009:
4010: BEGIN
4011: --
4012: IF (l_debug <> -1) THEN
4013: rlm_core_sv.dpush(C_SDEBUG,'ProcessTable');
4014: rlm_core_sv.dlog(C_DEBUG,'x_Demand_tab.COUNT',x_Demand_tab.COUNT);
4015: END IF;
4016: --
4017: FOR i IN 1..x_Demand_tab.COUNT LOOP
4010: BEGIN
4011: --
4012: IF (l_debug <> -1) THEN
4013: rlm_core_sv.dpush(C_SDEBUG,'ProcessTable');
4014: rlm_core_sv.dlog(C_DEBUG,'x_Demand_tab.COUNT',x_Demand_tab.COUNT);
4015: END IF;
4016: --
4017: FOR i IN 1..x_Demand_tab.COUNT LOOP
4018: --
4016: --
4017: FOR i IN 1..x_Demand_tab.COUNT LOOP
4018: --
4019: IF (l_debug <> -1) THEN
4020: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4017: FOR i IN 1..x_Demand_tab.COUNT LOOP
4018: --
4019: IF (l_debug <> -1) THEN
4020: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4018: --
4019: IF (l_debug <> -1) THEN
4020: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4019: IF (l_debug <> -1) THEN
4020: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4020: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4021: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4022: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4030: x_Demand_tab(i).ship_from_org_id);
4023: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4030: x_Demand_tab(i).ship_from_org_id);
4031: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4024: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4030: x_Demand_tab(i).ship_from_org_id);
4031: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4032: END IF;
4025: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4026: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4030: x_Demand_tab(i).ship_from_org_id);
4031: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4032: END IF;
4033: --
4027: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4028: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4029: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4030: x_Demand_tab(i).ship_from_org_id);
4031: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4032: END IF;
4033: --
4034: IF x_Demand_tab(i).program_id = k_DELETE THEN
4035: DeleteReq(x_Demand_tab(i));
4040: END IF;
4041: END LOOP;
4042: --
4043: IF (l_debug <> -1) THEN
4044: rlm_core_sv.dpop(C_SDEBUG);
4045: END IF;
4046: --
4047: EXCEPTION
4048:
4050: rlm_message_sv.sql_error('rlm_manage_demand_sv.ProcessTable',
4051: v_Progress);
4052: --
4053: IF (l_debug <> -1) THEN
4054: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4055: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4056: END IF;
4057: --
4058: raise;
4051: v_Progress);
4052: --
4053: IF (l_debug <> -1) THEN
4054: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4055: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4056: END IF;
4057: --
4058: raise;
4059:
4074:
4075: BEGIN
4076: --
4077: IF (l_debug <> -1) THEN
4078: rlm_core_sv.dpush(C_SDEBUG,'DeleteReq');
4079: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_id',x_ManageDemand_rec.line_id);
4080: END IF;
4081: --
4082: DELETE rlm_interface_lines
4075: BEGIN
4076: --
4077: IF (l_debug <> -1) THEN
4078: rlm_core_sv.dpush(C_SDEBUG,'DeleteReq');
4079: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_id',x_ManageDemand_rec.line_id);
4080: END IF;
4081: --
4082: DELETE rlm_interface_lines
4083: WHERE line_id = x_ManageDemand_rec.line_id;
4090: --SET interface_line_id = NULL
4091: --WHERE line_id = x_ManageDemand_rec.schedule_line_id;
4092: --
4093: IF (l_debug <> -1) THEN
4094: rlm_core_sv.dpop(C_SDEBUG);
4095: END IF;
4096:
4097: EXCEPTION
4098:
4100: rlm_message_sv.sql_error('rlm_manage_demand_sv.DeleteReq',
4101: v_Progress);
4102: --
4103: IF (l_debug <> -1) THEN
4104: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4105: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4106: END IF;
4107: --
4108: raise;
4101: v_Progress);
4102: --
4103: IF (l_debug <> -1) THEN
4104: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4105: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4106: END IF;
4107: --
4108: raise;
4109:
4124: --
4125: BEGIN
4126: --
4127: IF (l_debug <> -1) THEN
4128: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4129: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4130: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4131: x_ManageDemand_rec.primary_quantity);
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4125: BEGIN
4126: --
4127: IF (l_debug <> -1) THEN
4128: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4129: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4130: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4131: x_ManageDemand_rec.primary_quantity);
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4133: x_ManageDemand_rec.ship_from_org_id);
4126: --
4127: IF (l_debug <> -1) THEN
4128: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4129: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4130: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4131: x_ManageDemand_rec.primary_quantity);
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4133: x_ManageDemand_rec.ship_from_org_id);
4134: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4128: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4129: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4130: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4131: x_ManageDemand_rec.primary_quantity);
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4133: x_ManageDemand_rec.ship_from_org_id);
4134: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4135: x_ManageDemand_rec.item_detail_type);
4136: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4130: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4131: x_ManageDemand_rec.primary_quantity);
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4133: x_ManageDemand_rec.ship_from_org_id);
4134: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4135: x_ManageDemand_rec.item_detail_type);
4136: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4137: x_ManageDemand_rec.item_detail_subtype);
4138: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4132: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4133: x_ManageDemand_rec.ship_from_org_id);
4134: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4135: x_ManageDemand_rec.item_detail_type);
4136: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4137: x_ManageDemand_rec.item_detail_subtype);
4138: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4139: x_ManageDemand_rec.line_source);
4140: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4134: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4135: x_ManageDemand_rec.item_detail_type);
4136: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4137: x_ManageDemand_rec.item_detail_subtype);
4138: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4139: x_ManageDemand_rec.line_source);
4140: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4141: x_ManageDemand_rec.qty_type_code);
4142: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4136: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4137: x_ManageDemand_rec.item_detail_subtype);
4138: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4139: x_ManageDemand_rec.line_source);
4140: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4141: x_ManageDemand_rec.qty_type_code);
4142: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4143: x_ManageDemand_rec.org_id);
4144: END IF;
4138: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4139: x_ManageDemand_rec.line_source);
4140: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4141: x_ManageDemand_rec.qty_type_code);
4142: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4143: x_ManageDemand_rec.org_id);
4144: END IF;
4145: --
4146: IF x_ManageDemand_rec.org_id IS NULL THEN
4701: WHERE line_id = x_ManageDemand_rec.schedule_line_id
4702: AND x_ManageDemand_rec.line_source = 'SOURCED';
4703: --
4704: IF (l_debug <> -1) THEN
4705: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4706: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4707: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4708: END IF;
4709: --
4702: AND x_ManageDemand_rec.line_source = 'SOURCED';
4703: --
4704: IF (l_debug <> -1) THEN
4705: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4706: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4707: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4708: END IF;
4709: --
4710: IF (l_debug <> -1) THEN
4703: --
4704: IF (l_debug <> -1) THEN
4705: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4706: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4707: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4708: END IF;
4709: --
4710: IF (l_debug <> -1) THEN
4711: rlm_core_sv.dpop(C_SDEBUG);
4707: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4708: END IF;
4709: --
4710: IF (l_debug <> -1) THEN
4711: rlm_core_sv.dpop(C_SDEBUG);
4712: END IF;
4713: --
4714: EXCEPTION
4715: --
4721: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4722: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4723: --
4724: IF (l_debug <> -1) THEN
4725: rlm_core_sv.dlog(C_DEBUG, 'Null Org ID detected during Insert');
4726: rlm_core_sv.dpop(C_SDEBUG);
4727: END IF;
4728: --
4729: RAISE;
4722: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4723: --
4724: IF (l_debug <> -1) THEN
4725: rlm_core_sv.dlog(C_DEBUG, 'Null Org ID detected during Insert');
4726: rlm_core_sv.dpop(C_SDEBUG);
4727: END IF;
4728: --
4729: RAISE;
4730: --
4732: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertReq',
4733: v_Progress);
4734: --
4735: IF (l_debug <> -1) THEN
4736: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4737: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4738: END IF;
4739: --
4740: raise;
4733: v_Progress);
4734: --
4735: IF (l_debug <> -1) THEN
4736: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4737: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4738: END IF;
4739: --
4740: raise;
4741:
4755:
4756: BEGIN
4757: --
4758: IF (l_debug <> -1) THEN
4759: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4760: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4761: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4762: x_ManageDemand_rec.primary_quantity);
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4756: BEGIN
4757: --
4758: IF (l_debug <> -1) THEN
4759: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4760: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4761: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4762: x_ManageDemand_rec.primary_quantity);
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4764: x_ManageDemand_rec.ship_from_org_id);
4757: --
4758: IF (l_debug <> -1) THEN
4759: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4760: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4761: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4762: x_ManageDemand_rec.primary_quantity);
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4764: x_ManageDemand_rec.ship_from_org_id);
4765: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4759: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4760: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4761: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4762: x_ManageDemand_rec.primary_quantity);
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4764: x_ManageDemand_rec.ship_from_org_id);
4765: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4766: x_ManageDemand_rec.item_detail_type);
4767: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4761: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4762: x_ManageDemand_rec.primary_quantity);
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4764: x_ManageDemand_rec.ship_from_org_id);
4765: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4766: x_ManageDemand_rec.item_detail_type);
4767: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4768: x_ManageDemand_rec.item_detail_subtype);
4769: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4763: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4764: x_ManageDemand_rec.ship_from_org_id);
4765: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4766: x_ManageDemand_rec.item_detail_type);
4767: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4768: x_ManageDemand_rec.item_detail_subtype);
4769: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4770: x_ManageDemand_rec.line_source);
4771: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4765: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4766: x_ManageDemand_rec.item_detail_type);
4767: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4768: x_ManageDemand_rec.item_detail_subtype);
4769: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4770: x_ManageDemand_rec.line_source);
4771: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4772: x_ManageDemand_rec.qty_type_code);
4773: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4767: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4768: x_ManageDemand_rec.item_detail_subtype);
4769: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4770: x_ManageDemand_rec.line_source);
4771: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4772: x_ManageDemand_rec.qty_type_code);
4773: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4774: x_ManageDemand_rec.order_header_id);
4775: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4769: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4770: x_ManageDemand_rec.line_source);
4771: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4772: x_ManageDemand_rec.qty_type_code);
4773: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4774: x_ManageDemand_rec.order_header_id);
4775: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4776: x_ManageDemand_rec.blanket_number);
4777: END IF;
4771: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4772: x_ManageDemand_rec.qty_type_code);
4773: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4774: x_ManageDemand_rec.order_header_id);
4775: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4776: x_ManageDemand_rec.blanket_number);
4777: END IF;
4778: --
4779: UPDATE rlm_interface_lines_all
4788: process_status = x_ManageDemand_rec.process_status
4789: WHERE line_id = x_ManageDemand_rec.line_id;
4790: --
4791: IF (l_debug <> -1) THEN
4792: rlm_core_sv.dpop(C_SDEBUG);
4793: END IF;
4794: --
4795: EXCEPTION
4796:
4798: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateReq',
4799: v_Progress);
4800: --
4801: IF (l_debug <> -1) THEN
4802: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4803: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4804: END IF;
4805: --
4806: raise;
4799: v_Progress);
4800: --
4801: IF (l_debug <> -1) THEN
4802: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4803: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4804: END IF;
4805: --
4806: raise;
4807:
4822:
4823: BEGIN
4824: --
4825: IF (l_debug <> -1) THEN
4826: rlm_core_sv.dpush(C_SDEBUG,'UpdateSchedule');
4827: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.schedule_line_id',
4828: x_ManageDemand_rec.schedule_line_id);
4829: END IF;
4830: --
4823: BEGIN
4824: --
4825: IF (l_debug <> -1) THEN
4826: rlm_core_sv.dpush(C_SDEBUG,'UpdateSchedule');
4827: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.schedule_line_id',
4828: x_ManageDemand_rec.schedule_line_id);
4829: END IF;
4830: --
4831: IF x_ManageDemand_rec.program_id <> k_INSERT THEN
4834: SET interface_line_id = x_AggregateDemand_rec.line_id
4835: WHERE line_id = x_ManageDemand_rec.schedule_line_id;
4836: --
4837: IF (l_debug <> -1) THEN
4838: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated',SQL%ROWCOUNT);
4839: END IF;
4840: --
4841: END IF;
4842: --
4840: --
4841: END IF;
4842: --
4843: IF (l_debug <> -1) THEN
4844: rlm_core_sv.dpop(C_SDEBUG);
4845: END IF;
4846: --
4847: EXCEPTION
4848:
4849: WHEN OTHERS THEN
4850: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4851: --
4852: IF (l_debug <> -1) THEN
4853: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4854: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4855: END IF;
4856: --
4857: raise;
4850: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4851: --
4852: IF (l_debug <> -1) THEN
4853: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4854: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4855: END IF;
4856: --
4857: raise;
4858:
4882: --
4883: BEGIN
4884: --
4885: IF (l_debug <> -1) THEN
4886: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4887: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4888: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4889: g_ManageDemand_tab(x_Index).line_id);
4890: END IF;
4883: BEGIN
4884: --
4885: IF (l_debug <> -1) THEN
4886: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4887: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4888: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4889: g_ManageDemand_tab(x_Index).line_id);
4890: END IF;
4891: --
4884: --
4885: IF (l_debug <> -1) THEN
4886: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4887: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4888: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4889: g_ManageDemand_tab(x_Index).line_id);
4890: END IF;
4891: --
4892: /* note: 866 attributes still need to be determined */
4898: x_ExcpTab(x_ExcpTab.COUNT + 1).industry_attribute15 := 'N';
4899: x := x_ExcpTab.COUNT;
4900: --
4901: IF (l_debug <> -1) THEN
4902: rlm_core_sv.dlog(C_DEBUG, 'x_AggregateDemand_tab.COUNT',
4903: x_AggregateDemand_tab.COUNT);
4904: END IF;
4905: --
4906: b_match := TRUE;
4959: IF NVL(g_ManageDemand_tab(x_Index).request_date, k_DNULL) <>
4960: NVL(g_ManageDemand_tab(j).request_date, k_DNULL) THEN
4961: b_Match := FALSE;
4962: IF (l_debug <> -1) THEN
4963: rlm_core_sv.dlog(C_DEBUG, 'Request Date as match attribute is enforced so the MRP lines splitted by SDP rule are not aggregated');
4964: END IF;
4965: ELSE
4966: x_ExcpTab(x).request_date := 'Y';
4967: END IF;
5337:
5338: IF b_Match THEN
5339: --
5340: IF (l_debug <> -1) THEN
5341: rlm_core_sv.dlog(C_DEBUG,'match found');
5342: END IF;
5343: --
5344: IF x_AggregateDemand_tab(k).program_id IS NULL THEN
5345: --
5358: x_AggregateDemand_tab(k).primary_quantity +
5359: g_ManageDemand_tab(j).primary_quantity;
5360: --
5361: IF (l_debug <> -1) THEN
5362: rlm_core_sv.dlog(C_DEBUG,'Line to be deleted',
5363: g_ManageDemand_tab(j).line_id);
5364: END IF;
5365: --
5366: SetOperation(g_ManageDemand_tab(j), k_DELETE);
5377: END LOOP;
5378:
5379: --
5380: IF (l_debug <> -1) THEN
5381: rlm_core_sv.dpop(C_SDEBUG);
5382: END IF;
5383: --
5384: EXCEPTION
5385: --
5387: --
5388: rlm_message_sv.sql_error('rlm_manage_demand_sv.MatchDemand', v_Progress);
5389: --
5390: IF (l_debug <> -1) THEN
5391: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5392: END IF;
5393: --
5394: raise;
5395:
5413:
5414: BEGIN
5415: --
5416: IF (l_debug <> -1) THEN
5417: rlm_core_sv.dpush(C_SDEBUG,'AggregateDemand');
5418: END IF;
5419: --
5420: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
5421: --
5437: --
5438: FOR i IN 0..v_Delete_tab.COUNT-1 LOOP
5439: --
5440: IF (l_debug <> -1) THEN
5441: rlm_core_sv.dlog(C_DEBUG,'Line to be deleted',
5442: g_ManageDemand_tab(v_Delete_tab(i)).line_id);
5443: END IF;
5444: --
5445: SetOperation(g_ManageDemand_tab(v_Delete_tab(i)), k_DELETE);
5453: g_ManageDemand_tab(g_ManageDemand_tab.COUNT + 1) :=
5454: v_AggregateDemand_tab(i);
5455: --
5456: IF (l_debug <> -1) THEN
5457: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5458: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5459: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5460: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5461: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5455: --
5456: IF (l_debug <> -1) THEN
5457: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5458: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5459: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5460: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5461: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5462: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).intmed_ship_to_org_id);
5463: END IF;
5457: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5458: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5459: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5460: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5461: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5462: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).intmed_ship_to_org_id);
5463: END IF;
5464: --
5465: END IF;
5466: --
5467: END LOOP;
5468: --
5469: IF (l_debug <> -1) THEN
5470: rlm_core_sv.dpop(C_SDEBUG);
5471: END IF;
5472: --
5473: EXCEPTION
5474:
5475: WHEN OTHERS THEN
5476: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5477: --
5478: IF (l_debug <> -1) THEN
5479: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5480: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5481: END IF;
5482: --
5483: raise;
5476: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5477: --
5478: IF (l_debug <> -1) THEN
5479: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5480: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5481: END IF;
5482: --
5483: raise;
5484:
5499:
5500: BEGIN
5501:
5502: IF (l_debug <> -1) THEN
5503: rlm_core_sv.dpush(C_SDEBUG,'SortDemand');
5504: END IF;
5505:
5506: i := g_ManageDemand_tab.FIRST;
5507: LOOP
5506: i := g_ManageDemand_tab.FIRST;
5507: LOOP
5508: --
5509: IF (l_debug <> -1) THEN
5510: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5511: g_ManageDemand_tab(i).line_id);
5512: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5513: g_ManageDemand_tab(i).request_date);
5514: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5508: --
5509: IF (l_debug <> -1) THEN
5510: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5511: g_ManageDemand_tab(i).line_id);
5512: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5513: g_ManageDemand_tab(i).request_date);
5514: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5515: g_ManageDemand_tab(i).program_id);
5516: END IF;
5510: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5511: g_ManageDemand_tab(i).line_id);
5512: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5513: g_ManageDemand_tab(i).request_date);
5514: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5515: g_ManageDemand_tab(i).program_id);
5516: END IF;
5517: --
5518: EXIT WHEN i = g_ManageDemand_tab.LAST ;
5521: --
5522: END LOOP;
5523: --
5524: IF (l_debug <> -1) THEN
5525: rlm_core_sv.dlog(C_DEBUG, 'Call QuickSort');
5526: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT', g_ManageDemand_tab.COUNT);
5527: END IF;
5528: --
5529: QuickSort(1, g_ManageDemand_tab.COUNT);
5522: END LOOP;
5523: --
5524: IF (l_debug <> -1) THEN
5525: rlm_core_sv.dlog(C_DEBUG, 'Call QuickSort');
5526: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT', g_ManageDemand_tab.COUNT);
5527: END IF;
5528: --
5529: QuickSort(1, g_ManageDemand_tab.COUNT);
5530: --
5528: --
5529: QuickSort(1, g_ManageDemand_tab.COUNT);
5530: --
5531: IF (l_debug <> -1) THEN
5532: rlm_core_sv.dlog(C_DEBUG, 'Return QuickSort');
5533: END IF;
5534: --
5535: --InsertionSort(1,g_ManageDemand_tab.COUNT);
5536: i := g_ManageDemand_tab.FIRST;
5537: --
5538: LOOP
5539: --
5540: IF (l_debug <> -1) THEN
5541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5542: g_ManageDemand_tab(i).line_id);
5543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5544: g_ManageDemand_tab(i).request_date);
5545: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5539: --
5540: IF (l_debug <> -1) THEN
5541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5542: g_ManageDemand_tab(i).line_id);
5543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5544: g_ManageDemand_tab(i).request_date);
5545: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5546: g_ManageDemand_tab(i).primary_quantity);
5547: END IF;
5541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5542: g_ManageDemand_tab(i).line_id);
5543: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5544: g_ManageDemand_tab(i).request_date);
5545: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5546: g_ManageDemand_tab(i).primary_quantity);
5547: END IF;
5548: --
5549: EXIT WHEN i = g_ManageDemand_tab.LAST ;
5552: --
5553: END LOOP;
5554:
5555: IF (l_debug <> -1) THEN
5556: rlm_core_sv.dpop(C_SDEBUG);
5557: END IF;
5558:
5559: EXCEPTION
5560:
5561: WHEN OTHERS THEN
5562: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5563: --
5564: IF (l_debug <> -1) THEN
5565: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5566: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5567: END IF;
5568: --
5569: raise;
5562: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5563: --
5564: IF (l_debug <> -1) THEN
5565: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5566: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5567: END IF;
5568: --
5569: raise;
5570:
5588:
5589: BEGIN
5590:
5591: IF (l_debug <> -1) THEN
5592: rlm_core_sv.dpush(C_SDEBUG,'QuickSort');
5593: END IF;
5594:
5595: low := First;
5596: high := Last;
5621: Quicksort(Low, Last);
5622: END IF;
5623:
5624: IF (l_debug <> -1) THEN
5625: rlm_core_sv.dpop(C_SDEBUG);
5626: END IF;
5627:
5628: EXCEPTION
5629:
5630: WHEN OTHERS THEN
5631: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5632: --
5633: IF (l_debug <> -1) THEN
5634: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5635: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5636: END IF;
5637: --
5638: raise;
5631: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5632: --
5633: IF (l_debug <> -1) THEN
5634: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5635: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5636: END IF;
5637: --
5638: raise;
5639: END QuickSort;
5652: v_Progress VARCHAR2(3) := '010';
5653:
5654: BEGIN
5655:
5656: -- rlm_core_sv.dpush(C_SDEBUG,'Swap');
5657:
5658: T := g_ManageDemand_tab(i);
5659: g_ManageDemand_tab(i) := g_ManageDemand_tab(j);
5660: g_ManageDemand_tab(j) := T;
5658: T := g_ManageDemand_tab(i);
5659: g_ManageDemand_tab(i) := g_ManageDemand_tab(j);
5660: g_ManageDemand_tab(j) := T;
5661:
5662: -- rlm_core_sv.dpop(C_SDEBUG);
5663:
5664: EXCEPTION
5665:
5666: WHEN OTHERS THEN
5666: WHEN OTHERS THEN
5667: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5668: --
5669: IF (l_debug <> -1) THEN
5670: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5671: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5672: END IF;
5673: --
5674: raise;
5667: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5668: --
5669: IF (l_debug <> -1) THEN
5670: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5671: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5672: END IF;
5673: --
5674: raise;
5675:
5693:
5694: BEGIN
5695: --
5696: IF (l_debug <> -1) THEN
5697: rlm_core_sv.dpush(C_SDEBUG,'InsertionSort');
5698: END IF;
5699: --
5700: FOR i IN lo+1..hi LOOP
5701: v := g_ManageDemand_tab(i);
5707: g_ManageDemand_tab(j) := v;
5708: END LOOP;
5709: --
5710: IF (l_debug <> -1) THEN
5711: rlm_core_sv.dpop(C_SDEBUG);
5712: END IF;
5713: --
5714: EXCEPTION
5715:
5716: WHEN OTHERS THEN
5717: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5718: --
5719: IF (l_debug <> -1) THEN
5720: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5721: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5722: END IF;
5723: --
5724: raise;
5717: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5718: --
5719: IF (l_debug <> -1) THEN
5720: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5721: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5722: END IF;
5723: --
5724: raise;
5725:
5749:
5750: BEGIN
5751: --
5752: IF (l_debug <> -1) THEN
5753: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5754: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5755: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5756: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5757: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5750: BEGIN
5751: --
5752: IF (l_debug <> -1) THEN
5753: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5754: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5755: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5756: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5757: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5758: END IF;
5752: IF (l_debug <> -1) THEN
5753: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5754: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5755: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5756: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5757: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5758: END IF;
5759: --
5760: IF x_Group_rec.setup_terms_rec.round_to_std_pack_flag = 'Y' THEN
5768: --
5769: FOR i IN 1..g_ManageDemand_Tab.COUNT LOOP
5770: --
5771: IF (l_debug <> -1) THEN
5772: rlm_core_sv.dlog(C_DEBUG,'program_id ',g_ManageDemand_tab(i).program_id);
5773: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5774: END IF;
5775: --
5776: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5769: FOR i IN 1..g_ManageDemand_Tab.COUNT LOOP
5770: --
5771: IF (l_debug <> -1) THEN
5772: rlm_core_sv.dlog(C_DEBUG,'program_id ',g_ManageDemand_tab(i).program_id);
5773: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5774: END IF;
5775: --
5776: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5777: --
5775: --
5776: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5777: --
5778: IF (l_debug <> -1) THEN
5779: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5780: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
5781: g_ManageDemand_Tab(i).primary_quantity);
5782: END IF;
5783: --
5776: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5777: --
5778: IF (l_debug <> -1) THEN
5779: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5780: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
5781: g_ManageDemand_Tab(i).primary_quantity);
5782: END IF;
5783: --
5784: v_qty_before_round := v_qty_before_round +
5790: --
5791: v_StdPackQty := x_Group_rec.setup_terms_rec.std_pack_qty;
5792: --
5793: IF (l_debug <> -1) THEN
5794: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty before rounding',
5795: v_qty_before_round);
5796: rlm_core_sv.dlog(C_DEBUG, 'Table COUNT ',g_ManageDemand_tab.COUNT);
5797: END IF;
5798: --
5792: --
5793: IF (l_debug <> -1) THEN
5794: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty before rounding',
5795: v_qty_before_round);
5796: rlm_core_sv.dlog(C_DEBUG, 'Table COUNT ',g_ManageDemand_tab.COUNT);
5797: END IF;
5798: --
5799: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5800: --
5798: --
5799: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5800: --
5801: IF (l_debug <> -1) THEN
5802: rlm_core_sv.dlog(C_DEBUG, 'i ',i);
5803: rlm_core_sv.dlog(C_DEBUG, 'program_id',g_ManageDemand_tab(i).program_id);
5804: END IF;
5805: --
5806: -- Do not consider the lines which have been marked for deletion
5799: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5800: --
5801: IF (l_debug <> -1) THEN
5802: rlm_core_sv.dlog(C_DEBUG, 'i ',i);
5803: rlm_core_sv.dlog(C_DEBUG, 'program_id',g_ManageDemand_tab(i).program_id);
5804: END IF;
5805: --
5806: -- Do not consider the lines which have been marked for deletion
5807: -- either by aggregration or other ways for Round to std pack calculation
5808: --
5809: IF(g_ManageDemand_tab(i).program_id <> k_DELETE) THEN
5810: --
5811: IF (l_debug <> -1) THEN
5812: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5813: g_ManageDemand_tab(i).primary_quantity);
5814: END IF;
5815: --
5816: v_ModQty := MOD(g_ManageDemand_tab(i).primary_quantity, v_StdPackQty);
5815: --
5816: v_ModQty := MOD(g_ManageDemand_tab(i).primary_quantity, v_StdPackQty);
5817: --
5818: IF (l_debug <> -1) THEN
5819: rlm_core_sv.dlog(C_DEBUG, 'ModQty',v_ModQty);
5820: END IF;
5821: --
5822: IF v_ModQty <> 0 THEN
5823: --
5823: --
5824: v_QtyToAdd := v_StdPackQty - v_ModQty;
5825: --
5826: IF (l_debug <> -1) THEN
5827: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd',v_QtyToAdd);
5828: END IF;
5829: --
5830: g_ManageDemand_tab(i).primary_quantity :=
5831: g_ManageDemand_tab(i).primary_quantity
5836: v_Sum := 0;
5837: j := i + 1;
5838: --
5839: IF (l_debug <> -1) THEN
5840: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5841: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5842: g_ManageDemand_tab(i).primary_quantity);
5843: END IF;
5844: --
5837: j := i + 1;
5838: --
5839: IF (l_debug <> -1) THEN
5840: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5841: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5842: g_ManageDemand_tab(i).primary_quantity);
5843: END IF;
5844: --
5845: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5844: --
5845: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5846: --
5847: IF (l_debug <> -1) THEN
5848: rlm_core_sv.dlog(C_DEBUG, 'j ',j);
5849: rlm_core_sv.dlog(C_DEBUG, 'program_id',
5850: g_ManageDemand_tab(j).program_id );
5851: END IF;
5852: --
5845: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5846: --
5847: IF (l_debug <> -1) THEN
5848: rlm_core_sv.dlog(C_DEBUG, 'j ',j);
5849: rlm_core_sv.dlog(C_DEBUG, 'program_id',
5850: g_ManageDemand_tab(j).program_id );
5851: END IF;
5852: --
5853: IF (g_ManageDemand_tab(j).program_id <> k_DELETE) THEN
5855: -- Do not consider the lines which have been marked
5856: -- for deletion
5857: --
5858: IF (l_debug <> -1) THEN
5859: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5860: g_ManageDemand_tab(j).primary_quantity);
5861: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5862: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5863: END IF;
5857: --
5858: IF (l_debug <> -1) THEN
5859: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5860: g_ManageDemand_tab(j).primary_quantity);
5861: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5862: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5863: END IF;
5864: --
5865: IF g_ManageDemand_tab(j).primary_quantity >
5858: IF (l_debug <> -1) THEN
5859: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5860: g_ManageDemand_tab(j).primary_quantity);
5861: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5862: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5863: END IF;
5864: --
5865: IF g_ManageDemand_tab(j).primary_quantity >
5866: (v_QtyToAdd - v_Sum) THEN
5870: - (v_QtyToAdd - v_Sum);
5871: v_Sum := v_QtyToAdd;
5872: --
5873: IF (l_debug <> -1) THEN
5874: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5875: g_ManageDemand_tab(j).primary_quantity);
5876: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5877: END IF;
5878: --
5872: --
5873: IF (l_debug <> -1) THEN
5874: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5875: g_ManageDemand_tab(j).primary_quantity);
5876: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5877: END IF;
5878: --
5879: SetOperation(g_ManageDemand_tab(j), k_UPDATE);
5880: --
5882: --
5883: v_Sum := v_Sum + g_ManageDemand_tab(j).primary_quantity;
5884: --
5885: IF (l_debug <> -1) THEN
5886: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5887: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5888: g_ManageDemand_tab(j).primary_quantity);
5889: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5890: END IF;
5883: v_Sum := v_Sum + g_ManageDemand_tab(j).primary_quantity;
5884: --
5885: IF (l_debug <> -1) THEN
5886: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5887: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5888: g_ManageDemand_tab(j).primary_quantity);
5889: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5890: END IF;
5891: --
5885: IF (l_debug <> -1) THEN
5886: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5887: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5888: g_ManageDemand_tab(j).primary_quantity);
5889: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5890: END IF;
5891: --
5892: g_ManageDemand_tab(j).primary_quantity := 0;
5893: SetOperation(g_ManageDemand_tab(j), k_UPDATE);
5932: --
5933: END LOOP;
5934: --
5935: IF (l_debug <> -1) THEN
5936: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty after rounding',
5937: v_qty_after_round);
5938: END IF;
5939: --
5940: IF v_qty_after_round > v_qty_before_round THEN
5939: --
5940: IF v_qty_after_round > v_qty_before_round THEN
5941: --
5942: IF (l_debug <> -1) THEN
5943: rlm_core_sv.dlog(C_DEBUG,'WARNING overshipment has occured by qty = '
5944: ,v_qty_after_round - v_qty_before_round);
5945: END IF;
5946: --
5947: rlm_message_sv.app_error(
5954: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
5955: x_OrderLineId => NULL,
5956: --x_ErrorText => 'Overshipment for Item',
5957: x_token1 => 'CUSTITEM',
5958: x_value1 => rlm_core_sv.get_item_number(g_ManageDemand_tab(g_ManageDemand_tab.COUNT).customer_item_id),
5959: x_token2 => 'OVRQTY',
5960: x_value2 => v_qty_after_round - v_qty_before_round);
5961: --
5962: --
5964: --
5965: END IF;
5966: --
5967: IF (l_debug <> -1) THEN
5968: rlm_core_sv.dpop(C_SDEBUG);
5969: END IF;
5970: --
5971: EXCEPTION
5972:
5972:
5973: WHEN NO_DATA_FOUND THEN
5974: --
5975: IF (l_debug <> -1) THEN
5976: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5977: END IF;
5978:
5979: WHEN OTHERS THEN
5980: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
5980: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
5981: v_Progress);
5982: --
5983: IF (l_debug <> -1) THEN
5984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5985: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5986: END IF;
5987: --
5988: raise;
5981: v_Progress);
5982: --
5983: IF (l_debug <> -1) THEN
5984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5985: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5986: END IF;
5987: --
5988: raise;
5989:
6001:
6002: BEGIN
6003:
6004: IF (l_debug <> -1) THEN
6005: rlm_core_sv.dpush(C_SDEBUG,'InitializeMdGroup');
6006: END IF;
6007:
6008: OPEN x_Group_ref FOR
6009: SELECT rih.customer_id,
6024: WHERE rih.header_id = x_Sched_rec.header_id
6025: AND rih.org_id = ril.org_id
6026: AND ril.header_id = rih.header_id
6027: AND ril.industry_attribute15 = x_Group_rec.ship_from_org_id
6028: AND ril.process_status = rlm_core_sv.k_PS_AVAILABLE
6029: AND ril.customer_item_id = x_Group_rec.customer_item_id
6030: --AND ril.inventory_item_id = x_Group_rec.inventory_item_id
6031: AND ril.ship_to_address_id = x_Group_rec.ship_to_address_id
6032: GROUP BY rih.customer_id,
6048: will be 2 lines which will be inserted but having the same
6049: match attributes */
6050:
6051: IF (l_debug <> -1) THEN
6052: rlm_core_sv.dpop(C_SDEBUG);
6053: END IF;
6054:
6055: EXCEPTION
6056: WHEN OTHERS THEN
6055: EXCEPTION
6056: WHEN OTHERS THEN
6057: --
6058: IF (l_debug <> -1) THEN
6059: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6060: END IF;
6061: --
6062: raise;
6063:
6074: IS
6075: BEGIN
6076:
6077: IF (l_debug <> -1) THEN
6078: rlm_core_sv.dpush(C_SDEBUG,'FetchGroup');
6079: END IF;
6080:
6081: FETCH x_Group_ref INTO
6082: x_Group_rec.customer_id,
6093: -- x_Group_rec.cust_production_seq_num;
6094: IF x_Group_ref%NOTFOUND THEN
6095: --
6096: IF (l_debug <> -1) THEN
6097: rlm_core_sv.dpop(C_SDEBUG, 'false');
6098: END IF;
6099: --
6100: RETURN(FALSE);
6101: ELSE
6100: RETURN(FALSE);
6101: ELSE
6102: --
6103: IF (l_debug <> -1) THEN
6104: rlm_core_sv.dpop(C_SDEBUG, 'true');
6105: END IF;
6106: --
6107: RETURN(TRUE);
6108: END IF;
6110: EXCEPTION
6111: WHEN OTHERS THEN
6112: --
6113: IF (l_debug <> -1) THEN
6114: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6115: END IF;
6116: --
6117: raise;
6118:
6136: --
6137: BEGIN
6138: --
6139: IF (l_debug <> -1) THEN
6140: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6141: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6142: x_Group_rec.ship_from_org_id);
6143: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6144: x_Group_rec.customer_id);
6137: BEGIN
6138: --
6139: IF (l_debug <> -1) THEN
6140: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6141: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6142: x_Group_rec.ship_from_org_id);
6143: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6144: x_Group_rec.customer_id);
6145: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6139: IF (l_debug <> -1) THEN
6140: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6141: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6142: x_Group_rec.ship_from_org_id);
6143: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6144: x_Group_rec.customer_id);
6145: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6146: x_Group_rec.ship_to_address_id);
6147: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6141: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6142: x_Group_rec.ship_from_org_id);
6143: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6144: x_Group_rec.customer_id);
6145: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6146: x_Group_rec.ship_to_address_id);
6147: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6148: x_Group_rec.customer_item_id);
6149: END IF;
6143: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6144: x_Group_rec.customer_id);
6145: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6146: x_Group_rec.ship_to_address_id);
6147: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6148: x_Group_rec.customer_item_id);
6149: END IF;
6150: --
6151: -- NOTE: call rla setups to populate setup info in the group rec:
6161: v_ReturnMsg,
6162: v_ReturnStatus);
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6166: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6167: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6162: v_ReturnStatus);
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6166: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6167: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6170: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6166: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6167: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6170: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6171: v_SetupTerms_rec.header_id);
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6166: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6167: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6170: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6171: v_SetupTerms_rec.header_id);
6172: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6166: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6167: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6170: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6171: v_SetupTerms_rec.header_id);
6172: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6173: v_SetupTerms_rec.blanket_number);
6174: END IF;
6168: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6169: v_SetupTerms_rec.schedule_hierarchy_code);
6170: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6171: v_SetupTerms_rec.header_id);
6172: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6173: v_SetupTerms_rec.blanket_number);
6174: END IF;
6175: --
6176: IF v_ReturnStatus THEN
6205: --
6206: x_Group_rec.match_across := v_SetupTerms_rec.match_across_key;
6207: --
6208: IF (l_debug <> -1) THEN
6209: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_within',
6210: x_Group_rec.match_within);
6211: END IF;
6212: --
6213: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6209: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_within',
6210: x_Group_rec.match_within);
6211: END IF;
6212: --
6213: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6214: x_Group_rec.match_within);
6215: --
6216: IF (l_debug <> -1) THEN
6217: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6213: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6214: x_Group_rec.match_within);
6215: --
6216: IF (l_debug <> -1) THEN
6217: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6218: x_Group_rec.match_across);
6219: END IF;
6220: --
6221: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6217: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6218: x_Group_rec.match_across);
6219: END IF;
6220: --
6221: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6222: x_Group_rec.match_across);
6223: --
6224: IF (l_debug <> -1) THEN
6225: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6221: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6222: x_Group_rec.match_across);
6223: --
6224: IF (l_debug <> -1) THEN
6225: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6226: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6227: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6228: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6229: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6223: --
6224: IF (l_debug <> -1) THEN
6225: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6226: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6227: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6228: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6229: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6230: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6231: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6225: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6226: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6227: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6228: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6229: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6230: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6231: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6232: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6233: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6227: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6228: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6229: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6230: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6231: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6232: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6233: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6234: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6235: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6229: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6230: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6231: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6232: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6233: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6234: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6235: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6236: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6237: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6231: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6232: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6233: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6234: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6235: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6236: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6237: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6238: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6239: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6233: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6234: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6235: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6236: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6237: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6238: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6239: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6240: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6241: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6235: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6236: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6237: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6238: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6239: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6240: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6241: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6242: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6243: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6237: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6238: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6239: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6240: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6241: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6242: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6243: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6244: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6245: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6239: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6240: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6241: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6242: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6243: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6244: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6245: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6246: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6247: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6241: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6242: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6243: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6244: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6245: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6246: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6247: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6248: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6249: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6243: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6244: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6245: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6246: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6247: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6248: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6249: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6250: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6251: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6245: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6246: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6247: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6248: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6249: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6250: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6251: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6252: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6253: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6247: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6248: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6249: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6250: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6251: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6252: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6253: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6254: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6255: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6249: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6250: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6251: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6252: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6253: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6254: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6255: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6256: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6257: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6251: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6252: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6253: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6254: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6255: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6256: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6257: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6258: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6259: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6253: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6254: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6255: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6256: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6257: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6258: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6259: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6260: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6261: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6255: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6256: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6257: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6258: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6259: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6260: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6261: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6262: x_Group_rec.schedule_type_one);
6263: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6257: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6258: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6259: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6260: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6261: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6262: x_Group_rec.schedule_type_one);
6263: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6264: x_Group_rec.schedule_type_two);
6265: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6259: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6260: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6261: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6262: x_Group_rec.schedule_type_one);
6263: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6264: x_Group_rec.schedule_type_two);
6265: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6266: x_Group_rec.schedule_type_three);
6267: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6261: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6262: x_Group_rec.schedule_type_one);
6263: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6264: x_Group_rec.schedule_type_two);
6265: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6266: x_Group_rec.schedule_type_three);
6267: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6268: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6269: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6263: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6264: x_Group_rec.schedule_type_two);
6265: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6266: x_Group_rec.schedule_type_three);
6267: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6268: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6269: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6270: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6271: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6265: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6266: x_Group_rec.schedule_type_three);
6267: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6268: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6269: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6270: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6271: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6272: x_Group_rec.setup_terms_rec.ship_method);
6273: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6267: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6268: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6269: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6270: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6271: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6272: x_Group_rec.setup_terms_rec.ship_method);
6273: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6274: x_Group_rec.setup_terms_rec.intransit_time);
6275: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6269: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6270: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6271: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6272: x_Group_rec.setup_terms_rec.ship_method);
6273: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6274: x_Group_rec.setup_terms_rec.intransit_time);
6275: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6276: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6277: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6271: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6272: x_Group_rec.setup_terms_rec.ship_method);
6273: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6274: x_Group_rec.setup_terms_rec.intransit_time);
6275: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6276: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6277: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6278: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6279: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6273: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6274: x_Group_rec.setup_terms_rec.intransit_time);
6275: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6276: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6277: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6278: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6279: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6280: x_Group_rec.setup_terms_rec.time_uom_code);
6281: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6275: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6276: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6277: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6278: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6279: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6280: x_Group_rec.setup_terms_rec.time_uom_code);
6281: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6282: x_Group_rec.setup_terms_rec.cum_control_code);
6283: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6277: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6278: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6279: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6280: x_Group_rec.setup_terms_rec.time_uom_code);
6281: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6282: x_Group_rec.setup_terms_rec.cum_control_code);
6283: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6284: x_Group_rec.setup_terms_rec.exclude_non_workdays_flag);
6285: END IF;
6279: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6280: x_Group_rec.setup_terms_rec.time_uom_code);
6281: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6282: x_Group_rec.setup_terms_rec.cum_control_code);
6283: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6284: x_Group_rec.setup_terms_rec.exclude_non_workdays_flag);
6285: END IF;
6286: --
6287: ELSE
6286: --
6287: ELSE
6288: --
6289: IF (l_debug <> -1) THEN
6290: rlm_core_sv.dlog(C_DEBUG,'setups failed');
6291: END IF;
6292: --
6293: raise e_SetupAPIFailed;
6294: --
6294: --
6295: END IF;
6296: --
6297: IF (l_debug <> -1) THEN
6298: rlm_core_sv.dpop(C_SDEBUG);
6299: END IF;
6300: --
6301: EXCEPTION
6302: WHEN e_SetupAPIFailed THEN
6333: x_Token1 => 'ERROR',
6334: x_value1 => v_ReturnMsg);
6335: --
6336: IF (l_debug <> -1) THEN
6337: rlm_core_sv.dpop(C_SDEBUG);
6338: END IF;
6339: --
6340: raise e_GroupError;
6341: --
6341: --
6342: WHEN OTHERS THEN
6343: --
6344: IF (l_debug <> -1) THEN
6345: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6346: END IF;
6347: --
6348: raise;
6349:
6373: --and schedule_item_num = x_GroupRec.schedule_item_num
6374: and order_header_id = x_GroupRec.Order_header_id
6375: -- Perf change
6376: --and cust_production_seq_num = x_GroupRec.cust_production_seq_num
6377: and process_status = rlm_core_sv.k_PS_AVAILABLE
6378: FOR UPDATE NOWAIT;
6379: --
6380: CURSOR c_blanket IS
6381: SELECT *
6384: and customer_item_id = x_GroupRec.customer_item_id
6385: and ship_from_org_id = x_GroupRec.ship_from_org_id
6386: and ship_to_org_id = x_GroupRec.ship_to_org_id
6387: and blanket_number = x_GroupRec.blanket_number
6388: and process_status = rlm_core_sv.k_PS_AVAILABLE
6389: FOR UPDATE NOWAIT;
6390:
6391: BEGIN
6392: --
6390:
6391: BEGIN
6392: --
6393: IF (l_debug <> -1) THEN
6394: rlm_core_sv.dpush(C_SDEBUG,'LockLines');
6395: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_INTERFACE_LINES');
6396: END IF;
6397: --
6398: IF x_GroupRec.blanket_number is NULL THEN
6391: BEGIN
6392: --
6393: IF (l_debug <> -1) THEN
6394: rlm_core_sv.dpush(C_SDEBUG,'LockLines');
6395: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_INTERFACE_LINES');
6396: END IF;
6397: --
6398: IF x_GroupRec.blanket_number is NULL THEN
6399: --
6407: --
6408: END IF;
6409: --
6410: IF (l_debug <> -1) THEN
6411: rlm_core_sv.dpop(C_SDEBUG);
6412: END IF;
6413: --
6414: RETURN(TRUE);
6415:
6416: EXCEPTION
6417: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
6418: --
6419: IF (l_debug <> -1) THEN
6420: rlm_core_sv.dpop(C_SDEBUG);
6421: END IF;
6422: --
6423: RETURN(FALSE);
6424:
6425: WHEN OTHERS THEN
6426: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6427: --
6428: IF (l_debug <> -1) THEN
6429: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6430: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6431: END IF;
6432: --
6433: RAISE;
6426: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6427: --
6428: IF (l_debug <> -1) THEN
6429: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6430: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6431: END IF;
6432: --
6433: RAISE;
6434:
6449:
6450: BEGIN
6451: --
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6454: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6455: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6456: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6457: END IF;
6450: BEGIN
6451: --
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6454: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6455: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6456: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6457: END IF;
6458: --
6451: --
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6454: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6455: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6456: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6457: END IF;
6458: --
6459: UPDATE rlm_interface_headers_all
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6454: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6455: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6456: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6457: END IF;
6458: --
6459: UPDATE rlm_interface_headers_all
6460: SET process_status = x_ProcessStatus
6460: SET process_status = x_ProcessStatus
6461: WHERE header_id = x_HeaderId;
6462: --
6463: IF (l_debug <> -1) THEN
6464: rlm_core_sv.dlog(C_DEBUG,'Number of Interface header updated',SQL%ROWCOUNT);
6465: END IF;
6466: --
6467: UPDATE rlm_schedule_headers_all
6468: SET process_status = x_ProcessStatus
6468: SET process_status = x_ProcessStatus
6469: WHERE header_id = x_ScheduleHeaderId;
6470: --
6471: IF (l_debug <> -1) THEN
6472: rlm_core_sv.dlog(C_DEBUG,'Number of schedule header updated',SQL%ROWCOUNT);
6473: END IF;
6474: --
6475: IF (l_debug <> -1) THEN
6476: rlm_core_sv.dpop(C_SDEBUG);
6472: rlm_core_sv.dlog(C_DEBUG,'Number of schedule header updated',SQL%ROWCOUNT);
6473: END IF;
6474: --
6475: IF (l_debug <> -1) THEN
6476: rlm_core_sv.dpop(C_SDEBUG);
6477: END IF;
6478: --
6479: EXCEPTION
6480: WHEN NO_DATA_FOUND THEN
6479: EXCEPTION
6480: WHEN NO_DATA_FOUND THEN
6481: --
6482: IF (l_debug <> -1) THEN
6483: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6484: rlm_core_sv.dpop(C_SDEBUG);
6485: END IF;
6486:
6487: WHEN OTHERS THEN
6480: WHEN NO_DATA_FOUND THEN
6481: --
6482: IF (l_debug <> -1) THEN
6483: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6484: rlm_core_sv.dpop(C_SDEBUG);
6485: END IF;
6486:
6487: WHEN OTHERS THEN
6488: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6487: WHEN OTHERS THEN
6488: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6489: --
6490: IF (l_debug <> -1) THEN
6491: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6492: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6493: END IF;
6494:
6495: END UpdateHeaderStatus;
6488: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6489: --
6490: IF (l_debug <> -1) THEN
6491: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6492: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6493: END IF;
6494:
6495: END UpdateHeaderStatus;
6496:
6511: --
6512: BEGIN
6513: --
6514: IF (l_debug <> -1) THEN
6515: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6516: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6517: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6518: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6519: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6512: BEGIN
6513: --
6514: IF (l_debug <> -1) THEN
6515: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6516: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6517: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6518: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6519: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6520: END IF;
6513: --
6514: IF (l_debug <> -1) THEN
6515: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6516: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6517: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6518: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6519: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6520: END IF;
6521: --
6514: IF (l_debug <> -1) THEN
6515: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6516: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6517: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6518: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6519: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6520: END IF;
6521: --
6522: IF x_UpdateLevel = 'GROUP' THEN
6515: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6516: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6517: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6518: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6519: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6520: END IF;
6521: --
6522: IF x_UpdateLevel = 'GROUP' THEN
6523: --
6521: --
6522: IF x_UpdateLevel = 'GROUP' THEN
6523: --
6524: IF (l_debug <> -1) THEN
6525: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6526: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6527: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6528: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6529: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6522: IF x_UpdateLevel = 'GROUP' THEN
6523: --
6524: IF (l_debug <> -1) THEN
6525: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6526: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6527: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6528: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6529: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6530: x_GroupRec.cust_production_seq_num);*/
6523: --
6524: IF (l_debug <> -1) THEN
6525: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6526: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6527: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6528: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6529: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6530: x_GroupRec.cust_production_seq_num);*/
6531: END IF;
6524: IF (l_debug <> -1) THEN
6525: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6526: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6527: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6528: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6529: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6530: x_GroupRec.cust_production_seq_num);*/
6531: END IF;
6532:
6525: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6526: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6527: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6528: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6529: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6530: x_GroupRec.cust_production_seq_num);*/
6531: END IF;
6532:
6533: --
6540: and order_header_id = x_GroupRec.Order_header_id
6541: -- Perf change
6542: /*and nvl(cust_production_seq_num,k_VNULL) =
6543: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6544: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6545: rlm_core_sv.k_PS_FROZEN_FIRM);
6546: --
6547: IF (l_debug <> -1) THEN
6548: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6541: -- Perf change
6542: /*and nvl(cust_production_seq_num,k_VNULL) =
6543: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6544: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6545: rlm_core_sv.k_PS_FROZEN_FIRM);
6546: --
6547: IF (l_debug <> -1) THEN
6548: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6549: END IF;
6544: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6545: rlm_core_sv.k_PS_FROZEN_FIRM);
6546: --
6547: IF (l_debug <> -1) THEN
6548: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6549: END IF;
6550: --
6551: UPDATE rlm_schedule_lines
6552: SET process_status = x_ProcessStatus
6557: -- and order_header_id = x_GroupRec.Order_header_id
6558: -- Perf change
6559: /*and nvl(cust_production_seq_num, k_VNULL) =
6560: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6561: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6562: rlm_core_sv.k_PS_FROZEN_FIRM);
6563: --
6564: IF (l_debug <> -1) THEN
6565: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6558: -- Perf change
6559: /*and nvl(cust_production_seq_num, k_VNULL) =
6560: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6561: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6562: rlm_core_sv.k_PS_FROZEN_FIRM);
6563: --
6564: IF (l_debug <> -1) THEN
6565: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6566: END IF;
6561: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6562: rlm_core_sv.k_PS_FROZEN_FIRM);
6563: --
6564: IF (l_debug <> -1) THEN
6565: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6566: END IF;
6567: --
6568: ELSIF x_UpdateLevel = 'ALL' THEN
6569: --
6569: --
6570: UPDATE rlm_interface_lines
6571: SET process_status = x_ProcessStatus
6572: WHERE header_id = x_HeaderId
6573: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6574: --
6575: IF (l_debug <> -1) THEN
6576: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6577: END IF;
6572: WHERE header_id = x_HeaderId
6573: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6574: --
6575: IF (l_debug <> -1) THEN
6576: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6577: END IF;
6578: --
6579: UPDATE rlm_schedule_lines
6580: SET process_status = x_ProcessStatus
6578: --
6579: UPDATE rlm_schedule_lines
6580: SET process_status = x_ProcessStatus
6581: WHERE header_id = x_ScheduleHeaderId
6582: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6583: --
6584: IF (l_debug <> -1) THEN
6585: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6586: END IF;
6581: WHERE header_id = x_ScheduleHeaderId
6582: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6583: --
6584: IF (l_debug <> -1) THEN
6585: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6586: END IF;
6587: --
6588: END IF;
6589: --
6587: --
6588: END IF;
6589: --
6590: IF (l_debug <> -1) THEN
6591: rlm_core_sv.dpop(C_SDEBUG);
6592: END IF;
6593: --
6594: EXCEPTION
6595: --
6595: --
6596: WHEN NO_DATA_FOUND THEN
6597: --
6598: IF (l_debug <> -1) THEN
6599: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6600: rlm_core_sv.dpop(C_SDEBUG);
6601: END IF;
6602: --
6603: WHEN OTHERS THEN
6596: WHEN NO_DATA_FOUND THEN
6597: --
6598: IF (l_debug <> -1) THEN
6599: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6600: rlm_core_sv.dpop(C_SDEBUG);
6601: END IF;
6602: --
6603: WHEN OTHERS THEN
6604: --
6604: --
6605: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6606: --
6607: IF (l_debug <> -1) THEN
6608: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6609: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6610: END IF;
6611: --
6612: END UpdateGroupStatus;
6605: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6606: --
6607: IF (l_debug <> -1) THEN
6608: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6609: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6610: END IF;
6611: --
6612: END UpdateGroupStatus;
6613:
6625: --
6626: BEGIN
6627: --
6628: IF (l_debug <> -1) THEN
6629: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6630: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6631: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6632: END IF;
6633: --
6626: BEGIN
6627: --
6628: IF (l_debug <> -1) THEN
6629: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6630: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6631: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6632: END IF;
6633: --
6634: IF (x_LeadUom = 'DAY') THEN
6627: --
6628: IF (l_debug <> -1) THEN
6629: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6630: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6631: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6632: END IF;
6633: --
6634: IF (x_LeadUom = 'DAY') THEN
6635: --
6633: --
6634: IF (x_LeadUom = 'DAY') THEN
6635: --
6636: IF (l_debug <> -1) THEN
6637: rlm_core_sv.dpop(C_SDEBUG);
6638: END IF;
6639: --
6640: RETURN x_LeadTime;
6641: --
6641: --
6642: ELSIF (x_LeadUom = 'HR') THEN
6643: --
6644: IF (l_debug <> -1) THEN
6645: rlm_core_sv.dpop(C_SDEBUG);
6646: END IF;
6647: --
6648: RETURN (x_LeadTime/24);
6649: --
6649: --
6650: ELSE
6651: --
6652: IF (l_debug <> -1) THEN
6653: rlm_core_sv.dpop(C_SDEBUG);
6654: END IF;
6655: --
6656: RETURN x_LeadTime;
6657: --
6663: rlm_message_sv.sql_error('rlm_managedemand_sv.GetConvertedLeadTime',
6664: x_progress);
6665: --
6666: IF (l_debug <> -1) THEN
6667: rlm_core_sv.dpop(C_SDEBUG);
6668: END IF;
6669: --
6670: raise;
6671:
6689: --
6690: BEGIN
6691: --
6692: IF (l_debug <> -1) THEN
6693: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6694: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6695: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6696: x_sched_rec.ece_tp_translator_code);
6697: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6690: BEGIN
6691: --
6692: IF (l_debug <> -1) THEN
6693: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6694: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6695: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6696: x_sched_rec.ece_tp_translator_code);
6697: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6698: x_sched_rec.ece_tp_location_code_ext);
6691: --
6692: IF (l_debug <> -1) THEN
6693: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6694: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6695: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6696: x_sched_rec.ece_tp_translator_code);
6697: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6698: x_sched_rec.ece_tp_location_code_ext);
6699: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6693: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6694: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6695: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6696: x_sched_rec.ece_tp_translator_code);
6697: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6698: x_sched_rec.ece_tp_location_code_ext);
6699: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6700: x_group_rec.ship_to_address_id);
6701: END IF;
6695: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6696: x_sched_rec.ece_tp_translator_code);
6697: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6698: x_sched_rec.ece_tp_location_code_ext);
6699: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6700: x_group_rec.ship_to_address_id);
6701: END IF;
6702: --
6703: IF x_sched_rec.ECE_TP_LOCATION_CODE_EXT is NOT NULL THEN
6745: --
6746: END IF;
6747: --
6748: IF (l_debug <> -1) THEN
6749: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6746: END IF;
6747: --
6748: IF (l_debug <> -1) THEN
6749: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6754: rlm_core_sv.dpop(C_SDEBUG);
6747: --
6748: IF (l_debug <> -1) THEN
6749: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6754: rlm_core_sv.dpop(C_SDEBUG);
6755: END IF;
6748: IF (l_debug <> -1) THEN
6749: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6754: rlm_core_sv.dpop(C_SDEBUG);
6755: END IF;
6756: --
6749: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6754: rlm_core_sv.dpop(C_SDEBUG);
6755: END IF;
6756: --
6757: EXCEPTION
6750: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6751: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6752: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6753: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6754: rlm_core_sv.dpop(C_SDEBUG);
6755: END IF;
6756: --
6757: EXCEPTION
6758: --
6760: --
6761: x_customer_number := NULL;
6762: --
6763: IF (l_debug <> -1) THEN
6764: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
6765: rlm_core_sv.dpop(C_SDEBUG);
6766: END IF;
6767: --
6768: WHEN OTHERS THEN
6761: x_customer_number := NULL;
6762: --
6763: IF (l_debug <> -1) THEN
6764: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
6765: rlm_core_sv.dpop(C_SDEBUG);
6766: END IF;
6767: --
6768: WHEN OTHERS THEN
6769: --
6769: --
6770: rlm_message_sv.sql_error('rlm_ManageDemand_sv.GetTPContext',v_Progress);
6771: --
6772: IF (l_debug <> -1) THEN
6773: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6774: END IF;
6775: --
6776: raise;
6777:
6805: --
6806: v_intransit_calc_basis VARCHAR2(15);
6807: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_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
6806: v_intransit_calc_basis VARCHAR2(15);
6807: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_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
6817:
6818: IF (l_debug <> -1) THEN
6819: rlm_core_sv.dpush(C_SDEBUG,'CalculateIntransitQty');
6820: END IF;
6821: --
6822: v_intransit_calc_basis := UPPER(x_Group_rec.setup_terms_rec.intransit_calc_basis);
6823: --
6821: --
6822: v_intransit_calc_basis := UPPER(x_Group_rec.setup_terms_rec.intransit_calc_basis);
6823: --
6824: IF (l_debug <> -1) THEN
6825: rlm_core_sv.dlog(C_DEBUG, 'Intransit Calc. basis', v_intransit_calc_basis);
6826: END IF;
6827: --
6828: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6829: --
6827: --
6828: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6829: --
6830: IF (l_debug <> -1) THEN
6831: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6832: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6833: rlm_core_sv.dpop(C_SDEBUG);
6834: END IF;
6835: --
6828: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6829: --
6830: IF (l_debug <> -1) THEN
6831: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6832: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6833: rlm_core_sv.dpop(C_SDEBUG);
6834: END IF;
6835: --
6836: RETURN v_IntransitQty;
6829: --
6830: IF (l_debug <> -1) THEN
6831: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6832: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6833: rlm_core_sv.dpop(C_SDEBUG);
6834: END IF;
6835: --
6836: RETURN v_IntransitQty;
6837: --
6862: v_InTransitQty,
6863: v_return_status);
6864: --
6865: IF (l_debug <> -1) THEN
6866: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
6867: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6868: END IF;
6869: --
6870: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6863: v_return_status);
6864: --
6865: IF (l_debug <> -1) THEN
6866: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
6867: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6868: END IF;
6869: --
6870: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6871: --
6869: --
6870: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6871: --
6872: IF (l_debug <> -1) THEN
6873: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
6874: END IF;
6875: --
6876: RAISE e_group_error;
6877: --
6877: --
6878: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
6879: --
6880: IF (l_debug <> -1) THEN
6881: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
6882: END IF;
6883: --
6884: RAISE e_group_error;
6885: --
6885: --
6886: END IF;
6887: --
6888: IF (l_debug <> -1) THEN
6889: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6890: rlm_core_sv.dpop(C_SDEBUG);
6891: END IF;
6892: --
6893: RETURN (v_InTransitQty);
6886: END IF;
6887: --
6888: IF (l_debug <> -1) THEN
6889: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6890: rlm_core_sv.dpop(C_SDEBUG);
6891: END IF;
6892: --
6893: RETURN (v_InTransitQty);
6894: --
6904: --Purchase Order
6905: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
6906: --
6907: IF (l_debug <> -1) THEN
6908: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY PURCHASE ORDER');
6909: END IF;
6910:
6911: IF x_group_rec.match_across_rec.cust_po_number = 'Y' THEN
6912: v_Group_rec.match_across_rec.cust_po_number := 'Y';
6920: --Record Keeping Year
6921: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
6922: --
6923: IF (l_debug <> -1) THEN
6924: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY RECORD YEAR');
6925: END IF;
6926:
6927: IF x_group_rec.match_across_rec.industry_attribute1 = 'Y' THEN
6928: v_Group_rec.match_across_rec.industry_attribute1 := 'Y';
6952: IF (v_min_horizon_date IS NOT NULL ) THEN
6953: --
6954:
6955: IF (l_debug <> -1) THEN
6956: rlm_core_sv.dlog(C_DEBUG, 'v_min_request_date', v_min_horizon_date);
6957: END IF;
6958: --
6959: IF TO_DATE(v_min_horizon_date,'RRRR/MM/DD HH24:MI:SS') > x_Sched_rec.sched_horizon_start_date THEN
6960: --
6962: --
6963: END IF;
6964: --
6965: IF (l_debug <> -1) THEN
6966: rlm_core_sv.dlog(C_DEBUG, 'v_min_horizon_date', v_min_horizon_date);
6967: END IF;
6968:
6969: RLM_EXTINTERFACE_SV.GetIntransitShippedLines(x_Sched_rec,
6970: v_Group_rec,
6971: v_match_rec_shipline,
6972: v_min_horizon_date,
6973: v_InTransitQty);
6974: IF (l_debug <> -1) THEN
6975: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
6976: END IF;
6977:
6978: RETURN v_IntransitQty;
6979:
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;
6998: --
6999: raise;
7000:
7106: v_ReturnMsg VARCHAR2(2000);
7107: e_SetupAPIFailed EXCEPTION;
7108: v_order_header_id NUMBER;
7109: --
7110: v_match_within_rule RLM_CORE_SV.t_Match_rec;
7111: v_match_across_rule RLM_CORE_SV.t_Match_rec;
7112: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
7113: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
7114: v_intransit_calc_basis VARCHAR2(15);
7107: e_SetupAPIFailed EXCEPTION;
7108: v_order_header_id NUMBER;
7109: --
7110: v_match_within_rule RLM_CORE_SV.t_Match_rec;
7111: v_match_across_rule RLM_CORE_SV.t_Match_rec;
7112: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
7113: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
7114: v_intransit_calc_basis VARCHAR2(15);
7115: v_deliveryID VARCHAR2(35);
7118:
7119: BEGIN
7120:
7121: IF (l_debug <> -1) THEN
7122: rlm_core_sv.dpush(C_SDEBUG,'GetAllIntransitQty');
7123: END IF;
7124: --
7125: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
7126: --
7124: --
7125: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
7126: --
7127: IF (l_debug <> -1) THEN
7128: rlm_core_sv.dlog(C_DEBUG,'count', x_Source_Tab.COUNT);
7129: END IF;
7130: --
7131: FOR i IN 1 .. x_Source_Tab.COUNT LOOP
7132:
7132:
7133: BEGIN /* outer begin */
7134: --
7135: IF (l_debug <> -1) THEN
7136: rlm_core_sv.dlog(C_DEBUG, 'Loop Counter', i);
7137: rlm_core_sv.dlog(C_DEBUG, 'Src Orgzn ID', x_Source_Tab(i).organization_id);
7138: END IF;
7139: --
7140: BEGIN
7133: BEGIN /* outer begin */
7134: --
7135: IF (l_debug <> -1) THEN
7136: rlm_core_sv.dlog(C_DEBUG, 'Loop Counter', i);
7137: rlm_core_sv.dlog(C_DEBUG, 'Src Orgzn ID', x_Source_Tab(i).organization_id);
7138: END IF;
7139: --
7140: BEGIN
7141:
7169: x_Token1 => 'ERROR',
7170: x_value1 => v_ReturnMsg);
7171: --
7172: IF (l_debug <> -1) THEN
7173: rlm_core_sv.dpop(C_SDEBUG);
7174: END IF;
7175: --
7176: raise e_group_error;
7177: --
7178:
7179: WHEN OTHERS THEN
7180: --
7181: IF (l_debug <> -1) THEN
7182: rlm_core_sv.dpop(C_SDEBUG);
7183: END IF;
7184: --
7185: raise e_group_error;
7186:
7186:
7187: END; /* get_setup_terms */
7188: --
7189: IF (l_debug <> -1) THEN
7190: rlm_core_sv.dlog(C_DEBUG,'order_header_id', v_order_header_id);
7191: rlm_core_sv.dlog(C_DEBUG, 'Intransit calc. basis', v_SetupTerms_rec.intransit_calc_basis);
7192: END IF;
7193: --
7194: IF (v_SetupTerms_rec.time_uom_code = 'HR') THEN
7187: END; /* get_setup_terms */
7188: --
7189: IF (l_debug <> -1) THEN
7190: rlm_core_sv.dlog(C_DEBUG,'order_header_id', v_order_header_id);
7191: rlm_core_sv.dlog(C_DEBUG, 'Intransit calc. basis', v_SetupTerms_rec.intransit_calc_basis);
7192: END IF;
7193: --
7194: IF (v_SetupTerms_rec.time_uom_code = 'HR') THEN
7195: v_intransit_time := nvl(v_SetupTerms_rec.intransit_time,0)/24;
7208: --
7209: IF (c_LastReceipt%NOTFOUND) THEN
7210: --
7211: IF (l_debug <> -1) THEN
7212: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule');
7213: END IF;
7214: --
7215: v_shipment_date := x_Sched_rec.sched_generation_date - v_intransit_time;
7216: v_shipper_rec.shipper_Id1 := NULL;
7221: --
7222: ELSIF (v_deliveryID is NOT NULL) THEN
7223: --
7224: IF (l_debug <> -1) THEN
7225: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
7226: END IF;
7227: --
7228: FOR v_RctSID in c_RctShipperIds LOOP
7229: --
7233: --
7234: v_count := v_count + 1;
7235: --
7236: IF (l_debug <> -1) THEN
7237: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7238: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7239: rlm_core_sv.dlog(C_DEBUG,'i', i);
7240: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7241: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7234: v_count := v_count + 1;
7235: --
7236: IF (l_debug <> -1) THEN
7237: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7238: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7239: rlm_core_sv.dlog(C_DEBUG,'i', i);
7240: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7241: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7242: END IF;
7235: --
7236: IF (l_debug <> -1) THEN
7237: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7238: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7239: rlm_core_sv.dlog(C_DEBUG,'i', i);
7240: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7241: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7242: END IF;
7243: --
7236: IF (l_debug <> -1) THEN
7237: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7238: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7239: rlm_core_sv.dlog(C_DEBUG,'i', i);
7240: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7241: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7242: END IF;
7243: --
7244: IF v_count = 1 THEN
7237: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7238: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7239: rlm_core_sv.dlog(C_DEBUG,'i', i);
7240: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7241: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7242: END IF;
7243: --
7244: IF v_count = 1 THEN
7245: --
7267: --
7268: ELSIF (v_shipment_date is NOT NULL) THEN
7269: --
7270: IF (l_debug <> -1) THEN
7271: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
7272: END IF;
7273: --
7274: v_shipment_date := v_shipment_Date - v_intransit_time;
7275: v_shipper_rec.shipper_Id1 := NULL;
7289: --
7290: IF (c_LastShipment%NOTFOUND) THEN
7291: --
7292: IF (l_debug <> -1) THEN
7293: rlm_core_sv.dlog(C_DEBUG, 'No shipment line, so shipment date = sched_gen_Date');
7294: END IF;
7295: --
7296: v_shipment_date := x_Sched_rec.sched_generation_date;
7297: v_shipper_rec.shipper_Id1 := NULL;
7302: --
7303: ELSIF (v_deliveryID is NOT NULL) THEN
7304: --
7305: IF (l_debug <> -1) THEN
7306: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
7307: END IF;
7308: --
7309: FOR v_ShpSID IN c_ShpShipperIds LOOP
7310: --
7314: --
7315: v_count := v_count + 1;
7316: --
7317: IF (l_debug <> -1) THEN
7318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7322: END IF;
7315: v_count := v_count + 1;
7316: --
7317: IF (l_debug <> -1) THEN
7318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7322: END IF;
7323: --
7316: --
7317: IF (l_debug <> -1) THEN
7318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7322: END IF;
7323: --
7324: IF v_count = 1 THEN
7317: IF (l_debug <> -1) THEN
7318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7322: END IF;
7323: --
7324: IF v_count = 1 THEN
7325: --
7347: --
7348: ELSIF (v_shipment_date is NOT NULL) THEN
7349: --
7350: IF (l_debug <> -1) THEN
7351: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
7352: END IF;
7353: --
7354: v_shipper_rec.shipper_Id1 := NULL;
7355: v_Shipper_rec.shipper_Id2 := NULL;
7383: v_InTransitQty,
7384: v_return_status);
7385: --
7386: IF (l_debug <> -1) THEN
7387: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
7388: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
7389: END IF;
7390: --
7391: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7384: v_return_status);
7385: --
7386: IF (l_debug <> -1) THEN
7387: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
7388: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
7389: END IF;
7390: --
7391: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7392: --
7390: --
7391: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7392: --
7393: IF (l_debug <> -1) THEN
7394: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
7395: END IF;
7396: --
7397: RAISE e_group_error;
7398: --
7398: --
7399: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7400: --
7401: IF (l_debug <> -1) THEN
7402: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
7403: END IF;
7404: --
7405: RAISE e_group_error;
7406: --
7415: EXCEPTION
7416: WHEN e_IntransitNone THEN
7417: --
7418: IF (l_debug <> -1) THEN
7419: rlm_core_sv.dlog(C_DEBUG, 'e_IntransitNone');
7420: rlm_core_sv.dlog(C_DEBUG, 'Skipping intransit calns for orgId', x_Source_Tab(i).organization_id);
7421: END IF;
7422:
7423: END; /* outer begin */
7416: WHEN e_IntransitNone THEN
7417: --
7418: IF (l_debug <> -1) THEN
7419: rlm_core_sv.dlog(C_DEBUG, 'e_IntransitNone');
7420: rlm_core_sv.dlog(C_DEBUG, 'Skipping intransit calns for orgId', x_Source_Tab(i).organization_id);
7421: END IF;
7422:
7423: END; /* outer begin */
7424:
7424:
7425: END LOOP;
7426: --
7427: IF (l_debug <> -1) THEN
7428: rlm_core_sv.dpop(C_SDEBUG);
7429: END IF;
7430: --
7431: return v_Total_Qty;
7432: --
7439: WHEN OTHERS THEN
7440: rlm_message_sv.sql_error('GetAllIntransitQty',x_progress);
7441: --
7442: IF (l_debug <> -1) THEN
7443: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7444: END IF;
7445: --
7446: RAISE;
7447:
7447:
7448: END GetAllIntransitQty;
7449:
7450:
7451: PROCEDURE InitializeMatchCriteria(x_match_within_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_Rec,
7452: x_match_across_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_rec)
7453: IS
7454:
7455: BEGIN
7448: END GetAllIntransitQty;
7449:
7450:
7451: PROCEDURE InitializeMatchCriteria(x_match_within_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_Rec,
7452: x_match_across_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_rec)
7453: IS
7454:
7455: BEGIN
7456: --
7454:
7455: BEGIN
7456: --
7457: IF (l_debug <> -1) THEN
7458: rlm_core_sv.dpush(C_SDEBUG, 'InitializeMatchCriteria');
7459: END IF;
7460: --
7461: x_match_within_rule.cust_production_line := 'N';
7462: x_match_within_rule.customer_dock_code := 'N';
7538: x_match_across_rule.attribute14 := 'N';
7539: x_match_across_rule.attribute15 := 'N';
7540: --
7541: IF (l_debug <> -1) THEN
7542: rlm_core_sv.dpop(C_SDEBUG, 'InitializeMatchCriteria');
7543: END IF;
7544: --
7545: END InitializeMatchCriteria;
7546:
7558: v_atp_components_flag VARCHAR2(1);
7559: BEGIN
7560: --
7561: IF (l_debug <> -1) THEN
7562: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7563: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7564: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7565: END IF;
7566: --
7559: BEGIN
7560: --
7561: IF (l_debug <> -1) THEN
7562: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7563: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7564: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7565: END IF;
7566: --
7567: SELECT atp_flag, atp_components_flag
7560: --
7561: IF (l_debug <> -1) THEN
7562: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7563: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7564: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7565: END IF;
7566: --
7567: SELECT atp_flag, atp_components_flag
7568: INTO v_atp_flag, v_atp_components_flag
7572:
7573: IF v_atp_flag = 'Y' OR v_atp_components_flag = 'Y' THEN
7574: --
7575: IF (l_debug <> -1) THEN
7576: rlm_core_sv.dpop(C_SDEBUG, 'TRUE');
7577: END IF;
7578: --
7579: RETURN TRUE;
7580: ELSE
7579: RETURN TRUE;
7580: ELSE
7581: --
7582: IF (l_debug <> -1) THEN
7583: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
7584: END IF;
7585: --
7586: RETURN FALSE;
7587: END IF;
7589: EXCEPTION
7590: WHEN NO_DATA_FOUND THEN
7591: --
7592: IF (l_debug <> -1) THEN
7593: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
7594: END IF;
7595: --
7596: RETURN FALSE;
7597:
7597:
7598: WHEN OTHERS THEN
7599: --
7600: IF (l_debug <> -1) THEN
7601: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
7602: END IF;
7603: --
7604: RAISE;
7605:
7614: IS
7615: v_shipFrom org_organization_definitions.organization_code%TYPE;
7616: v_shipTo HZ_CUST_ACCT_SITES_ALL.ece_tp_location_code%TYPE; -- Parameter definition is changed as per TCA obsolescence project.
7617: v_Item mtl_customer_items.customer_item_number%TYPE;
7618: v_excpRec rlm_core_sv.t_Match_rec;
7619:
7620:
7621: BEGIN
7622: --
7620:
7621: BEGIN
7622: --
7623: IF (l_debug <> -1) THEN
7624: rlm_core_sv.dpush(C_SDEBUG,'ReportExc');
7625: END IF;
7626: --
7627: IF (l_debug <> -1) THEN
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7624: rlm_core_sv.dpush(C_SDEBUG,'ReportExc');
7625: END IF;
7626: --
7627: IF (l_debug <> -1) THEN
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7629: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7630: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7631: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7632: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7625: END IF;
7626: --
7627: IF (l_debug <> -1) THEN
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7629: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7630: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7631: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7632: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7633: END IF;
7626: --
7627: IF (l_debug <> -1) THEN
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7629: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7630: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7631: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7632: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7633: END IF;
7634: --
7627: IF (l_debug <> -1) THEN
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7629: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7630: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7631: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7632: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7633: END IF;
7634: --
7635: FOR i IN 1..x_ExcpTab.COUNT LOOP
7628: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7629: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7630: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7631: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7632: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7633: END IF;
7634: --
7635: FOR i IN 1..x_ExcpTab.COUNT LOOP
7636: IF x_ExcpTab(i).cust_production_line = 'Y' THEN
7767: --
7768: END LOOP;
7769:
7770: --Prepare to print warnings
7771: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7772: --
7773: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7774: --
7775: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7769:
7770: --Prepare to print warnings
7771: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7772: --
7773: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7774: --
7775: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7776: --
7777: IF (l_debug <> -1) THEN
7771: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7772: --
7773: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7774: --
7775: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7776: --
7777: IF (l_debug <> -1) THEN
7778: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7779: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7774: --
7775: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7776: --
7777: IF (l_debug <> -1) THEN
7778: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7779: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7780: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7781: END IF;
7782: --
7775: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7776: --
7777: IF (l_debug <> -1) THEN
7778: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7779: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7780: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7781: END IF;
7782: --
7783: IF v_excpRec.cust_production_line = 'Y' THEN
7776: --
7777: IF (l_debug <> -1) THEN
7778: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7779: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7780: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7781: END IF;
7782: --
7783: IF v_excpRec.cust_production_line = 'Y' THEN
7784: printMessage(k_CUST_PRODUCTION_LINE,v_shipFrom,v_shipTo,v_item);
7912: printMessage(k_ATTRIBUTE15,v_shipFrom,v_shipTo,v_item);
7913: END IF;
7914: --
7915: IF (l_debug <> -1) THEN
7916: rlm_core_sv.dpop(C_SDEBUG,'ReportExc');
7917: END IF;
7918: --
7919: EXCEPTION
7920: WHEN OTHERS THEN
7919: EXCEPTION
7920: WHEN OTHERS THEN
7921: --
7922: IF (l_debug <> -1) THEN
7923: rlm_core_sv.dpop(C_SDEBUG,'Error '|| SUBSTR(SQLERRM,1,200));
7924: END IF;
7925: --
7926: END ReportExc;
7927:
7937: IS
7938: BEGIN
7939: --
7940: IF (l_debug <> -1) THEN
7941: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
7942: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
7943: END IF;
7944: --
7945: rlm_message_sv.app_error(
7938: BEGIN
7939: --
7940: IF (l_debug <> -1) THEN
7941: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
7942: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
7943: END IF;
7944: --
7945: rlm_message_sv.app_error(
7946: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7947: x_MessageName => 'RLM_DUPLICATE_LINES',
7948: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
7949: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,
7950: x_token1=> 'MATCH_ATTRIBUTE',
7951: x_value1=> rlm_core_sv.get_lookup_meaning(
7952: 'RLM_OPTIONAL_MATCH_ATTRIBUTES',
7953: x_lookupCode),
7954: x_token2=> 'SF',
7955: x_value2=> x_shipFrom,
7958: x_token4=> 'CI',
7959: x_value4=> x_customerItem);
7960: --
7961: IF (l_debug <> -1) THEN
7962: rlm_core_sv.dpop(C_SDEBUG,'printMessage ');
7963: END IF;
7964: --
7965: EXCEPTION
7966: WHEN OTHERS THEN
7965: EXCEPTION
7966: WHEN OTHERS THEN
7967: --
7968: IF (l_debug <> -1) THEN
7969: rlm_core_sv.dpop(C_SDEBUG,'Exception '|| SUBSTR(SQLERRM,1,200));
7970: END IF;
7971: --
7972: raise;
7973: --
8065: i NUMBER;
8066: v_ReturnStatus BOOLEAN;
8067: v_ReturnMsg VARCHAR2(2000);
8068: --
8069: v_match_within_rule RLM_CORE_SV.t_Match_rec;
8070: v_match_across_rule RLM_CORE_SV.t_Match_rec;
8071: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
8072: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8073: v_intransit_calc_basis VARCHAR2(15);
8066: v_ReturnStatus BOOLEAN;
8067: v_ReturnMsg VARCHAR2(2000);
8068: --
8069: v_match_within_rule RLM_CORE_SV.t_Match_rec;
8070: v_match_across_rule RLM_CORE_SV.t_Match_rec;
8071: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
8072: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8073: v_intransit_calc_basis VARCHAR2(15);
8074: v_deliveryID VARCHAR2(35);
8090: --
8091: BEGIN
8092: --
8093: IF (l_debug <> -1) THEN
8094: rlm_core_sv.dpush(C_SDEBUG, 'GetIntransitAcrossOrgs');
8095: rlm_core_sv.dlog(C_DEBUG, 'CUM Key ID', x_cum_key_id);
8096: END IF;
8097: --
8098: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8091: BEGIN
8092: --
8093: IF (l_debug <> -1) THEN
8094: rlm_core_sv.dpush(C_SDEBUG, 'GetIntransitAcrossOrgs');
8095: rlm_core_sv.dlog(C_DEBUG, 'CUM Key ID', x_cum_key_id);
8096: END IF;
8097: --
8098: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8099: --
8097: --
8098: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8099: --
8100: IF (l_debug <> -1) THEN
8101: rlm_core_sv.dlog(C_DEBUG, 'Intran. calc.basis', x_Group_rec.setup_terms_rec.intransit_calc_basis);
8102: END IF;
8103: --
8104: IF (x_Group_rec.setup_terms_rec.time_uom_code = 'HR') THEN
8105: v_intransit_time := nvl(x_Group_rec.setup_terms_rec.intransit_time,0)/24;
8110: IF (x_Group_rec.setup_terms_rec.intransit_calc_basis = k_NONE OR
8111: x_Group_rec.setup_terms_rec.intransit_calc_basis is NULL) THEN
8112: --
8113: IF (l_debug <> -1) THEN
8114: rlm_core_sv.dlog(C_DEBUG, 'No intransit qty calculations');
8115: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8116: END IF;
8117: --
8118: RETURN v_IntransitQty;
8111: x_Group_rec.setup_terms_rec.intransit_calc_basis is NULL) THEN
8112: --
8113: IF (l_debug <> -1) THEN
8114: rlm_core_sv.dlog(C_DEBUG, 'No intransit qty calculations');
8115: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8116: END IF;
8117: --
8118: RETURN v_IntransitQty;
8119: --
8133: v_Shipper_rec.shipper_Id3 := NULL;
8134: v_Shipper_rec.shipper_Id3 := NULL;
8135: --
8136: IF (l_debug <> -1) THEN
8137: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule, using Sched Gen date');
8138: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8139: END IF;
8140: --
8141: ELSIF (v_deliveryID is NOT NULL) THEN
8134: v_Shipper_rec.shipper_Id3 := NULL;
8135: --
8136: IF (l_debug <> -1) THEN
8137: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule, using Sched Gen date');
8138: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8139: END IF;
8140: --
8141: ELSIF (v_deliveryID is NOT NULL) THEN
8142: --
8140: --
8141: ELSIF (v_deliveryID is NOT NULL) THEN
8142: --
8143: IF (l_debug <> -1) THEN
8144: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
8145: END IF;
8146: --
8147: FOR v_RctSID in c_RctShipperIds LOOP
8148: --
8152: --
8153: v_count := v_count + 1;
8154: --
8155: IF (l_debug <> -1) THEN
8156: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8157: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8158: rlm_core_sv.dlog(C_DEBUG,'i', i);
8159: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8160: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8153: v_count := v_count + 1;
8154: --
8155: IF (l_debug <> -1) THEN
8156: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8157: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8158: rlm_core_sv.dlog(C_DEBUG,'i', i);
8159: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8160: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8161: END IF;
8154: --
8155: IF (l_debug <> -1) THEN
8156: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8157: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8158: rlm_core_sv.dlog(C_DEBUG,'i', i);
8159: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8160: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8161: END IF;
8162: --
8155: IF (l_debug <> -1) THEN
8156: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8157: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8158: rlm_core_sv.dlog(C_DEBUG,'i', i);
8159: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8160: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8161: END IF;
8162: --
8163: IF v_count = 1 THEN
8156: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8157: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8158: rlm_core_sv.dlog(C_DEBUG,'i', i);
8159: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8160: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8161: END IF;
8162: --
8163: IF v_count = 1 THEN
8164: v_shipper_rec.shipper_Id1 := v_RctSID.shipper_Id;
8183: v_Shipper_rec.shipper_Id3 := NULL;
8184: v_Shipper_rec.shipper_Id3 := NULL;
8185: --
8186: IF (l_debug <> -1) THEN
8187: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8188: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8189: END IF;
8190: --
8191: END IF;
8184: v_Shipper_rec.shipper_Id3 := NULL;
8185: --
8186: IF (l_debug <> -1) THEN
8187: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8188: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8189: END IF;
8190: --
8191: END IF;
8192: --
8206: v_Shipper_rec.shipper_Id4 := NULL;
8207: v_Shipper_rec.shipper_Id5 := NULL;
8208: --
8209: IF (l_debug <> -1) THEN
8210: rlm_core_sv.dlog(C_DEBUG, 'No shipment line, so shipment date = sched_gen_Date', v_shipment_date);
8211: END IF;
8212: --
8213: ELSIF (v_deliveryID is NOT NULL) THEN
8214: --
8212: --
8213: ELSIF (v_deliveryID is NOT NULL) THEN
8214: --
8215: IF (l_debug <> -1) THEN
8216: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
8217: END IF;
8218: --
8219: FOR v_ShpSID IN c_ShpShipperIds LOOP
8220: --
8224: --
8225: v_count := v_count + 1;
8226: --
8227: IF (l_debug <> -1) THEN
8228: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8229: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8230: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8231: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8232: END IF;
8225: v_count := v_count + 1;
8226: --
8227: IF (l_debug <> -1) THEN
8228: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8229: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8230: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8231: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8232: END IF;
8233: --
8226: --
8227: IF (l_debug <> -1) THEN
8228: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8229: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8230: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8231: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8232: END IF;
8233: --
8234: IF v_count = 1 THEN
8227: IF (l_debug <> -1) THEN
8228: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8229: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8230: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8231: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8232: END IF;
8233: --
8234: IF v_count = 1 THEN
8235: v_shipper_rec.shipper_Id1 := v_ShpSID.shipper_Id;
8247: --
8248: ELSIF (v_shipment_date is NOT NULL) THEN
8249: --
8250: IF (l_debug <> -1) THEN
8251: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8252: END IF;
8253: --
8254: v_shipper_rec.shipper_Id1 := NULL;
8255: v_Shipper_rec.shipper_Id2 := NULL;
8267: --
8268: v_order_header_id := c_Orders_rec.header_id;
8269: --
8270: IF (l_debug <> -1) THEN
8271: rlm_core_sv.dlog(C_DEBUG, 'Order Header ID', v_order_header_id);
8272: END IF;
8273: --
8274: RLM_EXTINTERFACE_SV.getIntransitQty (
8275: x_Group_rec.customer_id,
8292: v_InTransitQty_tmp,
8293: v_return_status);
8294: --
8295: IF (l_debug <> -1) THEN
8296: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
8297: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8298: END IF;
8299: --
8300: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8293: v_return_status);
8294: --
8295: IF (l_debug <> -1) THEN
8296: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
8297: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8298: END IF;
8299: --
8300: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8301: --
8298: END IF;
8299: --
8300: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8301: --
8302: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
8303: RAISE e_group_error;
8304: --
8305: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8306: --
8303: RAISE e_group_error;
8304: --
8305: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8306: --
8307: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
8308: RAISE e_group_error;
8309: --
8310: END IF;
8311: --
8313: --
8314: END LOOP;
8315: --
8316: IF (l_debug <> -1) THEN
8317: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8318: END IF;
8319: return v_IntransitQty; -- Bug 4535823
8320: --
8321: --Bugfix 6265953 START
8329: --Purchase Order
8330: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
8331: --
8332: IF (l_debug <> -1) THEN
8333: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY PURCHASE ORDER');
8334: END IF;
8335:
8336: IF x_group_rec.match_across_rec.cust_po_number = 'Y' THEN
8337: v_Group_rec.match_across_rec.cust_po_number := 'Y';
8345: --Record Keeping Year
8346: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
8347: --
8348: IF (l_debug <> -1) THEN
8349: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY RECORD YEAR');
8350: END IF;
8351:
8352: IF x_group_rec.match_across_rec.industry_attribute1 = 'Y' THEN
8353: v_Group_rec.match_across_rec.industry_attribute1 := 'Y';
8377: IF (v_min_horizon_date IS NOT NULL ) THEN
8378: --
8379:
8380: IF (l_debug <> -1) THEN
8381: rlm_core_sv.dlog(C_DEBUG, 'v_min_request_date', v_min_horizon_date);
8382: END IF;
8383: --
8384: IF TO_DATE(v_min_horizon_date,'RRRR/MM/DD HH24:MI:SS') > x_Sched_rec.sched_horizon_start_date THEN
8385: --
8387: --
8388: END IF;
8389: --
8390: IF (l_debug <> -1) THEN
8391: rlm_core_sv.dlog(C_DEBUG, 'v_min_horizon_date', v_min_horizon_date);
8392: END IF;
8393:
8394: FOR c_Orders_rec IN c_Orders LOOP
8395:
8396: v_Group_rec.order_header_id := c_Orders_rec.header_id;
8397: v_Group_rec.ship_from_org_id := NULL;
8398:
8399: IF (l_debug <> -1) THEN
8400: rlm_core_sv.dlog(C_DEBUG, 'Order Header ID', v_Group_rec.order_header_id);
8401: END IF;
8402:
8403: RLM_EXTINTERFACE_SV.GetIntransitShippedLines(x_Sched_rec,
8404: v_Group_rec,
8405: v_match_rec_shipline,
8406: v_min_horizon_date,
8407: v_InTransitQty_tmp);
8408: IF (l_debug <> -1) THEN
8409: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8410: END IF;
8411:
8412: v_IntransitQty := v_IntransitQty + v_IntransitQty_tmp;
8413: --
8413: --
8414: END LOOP;
8415:
8416: IF (l_debug <> -1) THEN
8417: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8418: END IF;
8419:
8420: RETURN v_IntransitQty;
8421:
8431: WHEN OTHERS THEN
8432: rlm_message_sv.sql_error('GetIntransitAcrossOrgs',x_progress);
8433: --
8434: IF (l_debug <> -1) THEN
8435: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8436: END IF;
8437: --
8438: RAISE;
8439: END GetIntransitAcrossOrgs;