[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 ship_from_org_id = x_Group_rec.ship_from_org_id --Bugfix 12863728
315: AND ship_to_address_id = x_Group_rec.ship_to_address_id --Bugfix 12863728
316: AND customer_item_id = x_Group_rec.customer_item_id --Bugfix 12863728
321: AND il.ship_from_org_id = x_Group_rec.ship_from_org_id
322: AND il.ship_to_address_id = x_Group_rec.ship_to_address_id
323: AND il.customer_item_id = x_Group_rec.customer_item_id
324: AND il.blanket_number = x_Group_rec.blanket_number
325: AND il.process_status = rlm_core_sv.k_PS_Processed
326: );
327: --
328: ELSE
329: --
327: --
328: ELSE
329: --
330: IF (l_debug <> -1) THEN
331: rlm_core_sv.dlog(C_DEBUG, 'Sales order version of Update', x_Group_rec.order_header_id);
332: END IF;
333: --
334: UPDATE rlm_schedule_lines_all sl
335: SET process_status = rlm_core_sv.k_PS_Processed
331: rlm_core_sv.dlog(C_DEBUG, 'Sales order version of Update', x_Group_rec.order_header_id);
332: END IF;
333: --
334: UPDATE rlm_schedule_lines_all sl
335: SET process_status = rlm_core_sv.k_PS_Processed
336: WHERE header_id = x_Sched_rec.schedule_header_id
337: AND ship_from_org_id = x_Group_rec.ship_from_org_id --Bugfix 12863728
338: AND ship_to_address_id = x_Group_rec.ship_to_address_id --Bugfix 12863728
339: AND customer_item_id = x_Group_rec.customer_item_id --Bugfix 12863728
344: AND il.ship_from_org_id = x_Group_rec.ship_from_org_id
345: AND il.ship_to_address_id = x_Group_rec.ship_to_address_id
346: AND il.customer_item_id = x_Group_rec.customer_item_id
347: AND il.order_header_id = x_Group_rec.order_header_id
348: AND il.process_status = rlm_core_sv.k_PS_Processed
349: );
350: --
351: END IF;
352: --
350: --
351: END IF;
352: --
353: IF (l_debug <> -1) THEN
354: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
355: END IF;
356: --
357: END IF;
358: --
357: END IF;
358: --
359: END IF;
360: --
361: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
362: --
363: IF (l_debug <> -1) THEN
364: rlm_core_sv.dpop(C_SDEBUG);
365: END IF;
360: --
361: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
362: --
363: IF (l_debug <> -1) THEN
364: rlm_core_sv.dpop(C_SDEBUG);
365: END IF;
366: --
367: EXCEPTION
368: --
367: EXCEPTION
368: --
369: WHEN e_GroupError THEN
370: --
371: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
372: --
373: IF (l_debug <> -1) THEN
374: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
375: x_Group_rec.ship_from_org_id);
370: --
371: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
372: --
373: IF (l_debug <> -1) THEN
374: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
375: x_Group_rec.ship_from_org_id);
376: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
377: rlm_core_sv.dpop(C_SDEBUG);
378: END IF;
372: --
373: IF (l_debug <> -1) THEN
374: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
375: x_Group_rec.ship_from_org_id);
376: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
377: rlm_core_sv.dpop(C_SDEBUG);
378: END IF;
379: --
380: raise e_GroupError;
373: IF (l_debug <> -1) THEN
374: rlm_core_sv.dlog(C_DEBUG,'GroupError for',
375: x_Group_rec.ship_from_org_id);
376: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
377: rlm_core_sv.dpop(C_SDEBUG);
378: END IF;
379: --
380: raise e_GroupError;
381: --
380: raise e_GroupError;
381: --
382: WHEN OTHERS THEN
383: --
384: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
385: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
386: v_Progress);
387: --
388: IF (l_debug <> -1) THEN
385: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
386: v_Progress);
387: --
388: IF (l_debug <> -1) THEN
389: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
390: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
391: END IF;
392: --
393: raise;
386: v_Progress);
387: --
388: IF (l_debug <> -1) THEN
389: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
390: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
391: END IF;
392: --
393: raise;
394: --
432: --
433: BEGIN
434:
435: IF (l_debug <> -1) THEN
436: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
437: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
438: x_Sched_rec.Schedule_header_id);
439: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
440: x_Group_rec.ship_to_address_id);
433: BEGIN
434:
435: IF (l_debug <> -1) THEN
436: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
437: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
438: x_Sched_rec.Schedule_header_id);
439: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
440: x_Group_rec.ship_to_address_id);
441: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
435: IF (l_debug <> -1) THEN
436: rlm_core_sv.dpush(C_SDEBUG,'PopulateLastReceiptRec');
437: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
438: x_Sched_rec.Schedule_header_id);
439: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
440: x_Group_rec.ship_to_address_id);
441: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
442: x_Group_rec.inventory_item_id);
443: END IF;
437: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
438: x_Sched_rec.Schedule_header_id);
439: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
440: x_Group_rec.ship_to_address_id);
441: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
442: x_Group_rec.inventory_item_id);
443: END IF;
444: --
445: OPEN c_LastReceipt;
454: --
455: CLOSE c_LastReceipt;
456: --
457: IF (l_debug <> -1) THEN
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
459: g_LastReceipt_rec.primary_quantity);
460: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
461: g_LastReceipt_rec.cust_record_year);
462: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
456: --
457: IF (l_debug <> -1) THEN
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
459: g_LastReceipt_rec.primary_quantity);
460: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
461: g_LastReceipt_rec.cust_record_year);
462: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
463: g_LastReceipt_rec.start_date_time);
464: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
458: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.primary_quantity',
459: g_LastReceipt_rec.primary_quantity);
460: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
461: g_LastReceipt_rec.cust_record_year);
462: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
463: g_LastReceipt_rec.start_date_time);
464: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
465: rlm_core_sv.dpop(C_SDEBUG);
466: END IF;
460: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.cust_record_year',
461: g_LastReceipt_rec.cust_record_year);
462: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
463: g_LastReceipt_rec.start_date_time);
464: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
465: rlm_core_sv.dpop(C_SDEBUG);
466: END IF;
467: --
468: EXCEPTION
461: g_LastReceipt_rec.cust_record_year);
462: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.start_date_time',
463: g_LastReceipt_rec.start_date_time);
464: rlm_core_sv.dlog(C_DEBUG,'g_LastReceipt_rec.found', g_LastReceipt_rec.found);
465: rlm_core_sv.dpop(C_SDEBUG);
466: END IF;
467: --
468: EXCEPTION
469: --
471: rlm_message_sv.sql_error('rlm_manage_demand_sv.PopulateLastReceiptRec',
472: v_Progress);
473: --
474: IF (l_debug <> -1) THEN
475: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
476: END IF;
477: --
478: raise;
479:
520:
521: BEGIN
522: --
523: IF (l_debug <> -1) THEN
524: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
525: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
526: x_Sched_rec.Schedule_header_id);
527: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
528: x_Group_rec.ship_to_address_id);
521: BEGIN
522: --
523: IF (l_debug <> -1) THEN
524: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
525: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
526: x_Sched_rec.Schedule_header_id);
527: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
528: x_Group_rec.ship_to_address_id);
529: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
523: IF (l_debug <> -1) THEN
524: rlm_core_sv.dpush(C_SDEBUG,'PopulateCUMRec');
525: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
526: x_Sched_rec.Schedule_header_id);
527: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
528: x_Group_rec.ship_to_address_id);
529: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
530: x_Group_rec.inventory_item_id);
531: END IF;
525: rlm_core_sv.dlog(C_DEBUG,'x_Sched_rec.Schedule_header_id',
526: x_Sched_rec.Schedule_header_id);
527: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
528: x_Group_rec.ship_to_address_id);
529: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
530: x_Group_rec.inventory_item_id);
531: END IF;
532: --Bugfix 7007638 Start --Modified Select statment into cursor to fetch more than one Shp/Rcv record per group
533: --Record type is converted to PL/SQL table
554: g_CUM_tab(v_Count).line_id := g_CUM_rec.line_id;
555: g_CUM_tab(v_Count).found := g_CUM_rec.found;
556:
557: IF (l_debug <> -1) THEN
558: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
555: g_CUM_tab(v_Count).found := g_CUM_rec.found;
556:
557: IF (l_debug <> -1) THEN
558: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
563: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
556:
557: IF (l_debug <> -1) THEN
558: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
563: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
564: END IF;
557: IF (l_debug <> -1) THEN
558: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
563: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
564: END IF;
565:
558: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').purchase_order_number', g_CUM_tab(v_Count).purchase_order_number);
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
563: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
564: END IF;
565:
566: v_Count := v_Count + 1;
559: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity', g_CUM_tab(v_Count).primary_quantity);
560: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity', g_CUM_tab(v_Count).item_detail_quantity);
561: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').start_date_time', g_CUM_tab(v_Count).start_date_time);
562: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').cust_record_year', g_CUM_tab(v_Count).cust_record_year);
563: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found', g_CUM_tab(v_Count).found);
564: END IF;
565:
566: v_Count := v_Count + 1;
567:
570: CLOSE c_CUMRec;
571: --Bugfix 7007638 End
572:
573: IF (l_debug <> -1) THEN
574: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT);
575: rlm_core_sv.dpop(C_SDEBUG);
576: END IF;
577: --
578: EXCEPTION
571: --Bugfix 7007638 End
572:
573: IF (l_debug <> -1) THEN
574: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT);
575: rlm_core_sv.dpop(C_SDEBUG);
576: END IF;
577: --
578: EXCEPTION
579:
583: --
584: g_CUM_rec.found := k_FALSE;
585: --
586: IF (l_debug <> -1) THEN
587: rlm_core_sv.dlog(C_DEBUG,'g_CUM_rec.found', g_CUM_rec.found);
588: rlm_core_sv.dpop(C_SDEBUG);
589: END IF;
590: --
591: WHEN TOO_MANY_ROWS THEN
584: g_CUM_rec.found := k_FALSE;
585: --
586: IF (l_debug <> -1) THEN
587: rlm_core_sv.dlog(C_DEBUG,'g_CUM_rec.found', g_CUM_rec.found);
588: rlm_core_sv.dpop(C_SDEBUG);
589: END IF;
590: --
591: WHEN TOO_MANY_ROWS THEN
592: --
599: x_ScheduleLineId => NULL,
600: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
601: x_OrderLineId => NULL,
602: x_Token1 => 'SHIP_FROM',
603: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
604: x_Token2 => 'SHIP_TO',
605: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
606: x_Token3 => 'CITEM',
607: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
601: x_OrderLineId => NULL,
602: x_Token1 => 'SHIP_FROM',
603: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
604: x_Token2 => 'SHIP_TO',
605: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
606: x_Token3 => 'CITEM',
607: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
608: --
609: IF (l_debug <> -1) THEN
603: x_Value1 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id),
604: x_Token2 => 'SHIP_TO',
605: x_Value2 => rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id),
606: x_Token3 => 'CITEM',
607: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
608: --
609: IF (l_debug <> -1) THEN
610: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
611: detail type 4 and subtype = cumulative');
606: x_Token3 => 'CITEM',
607: x_Value3 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
608: --
609: IF (l_debug <> -1) THEN
610: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
611: detail type 4 and subtype = cumulative');
612: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
613: rlm_core_sv.dpop(C_SDEBUG);
614: END IF;
608: --
609: IF (l_debug <> -1) THEN
610: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
611: detail type 4 and subtype = cumulative');
612: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
613: rlm_core_sv.dpop(C_SDEBUG);
614: END IF;
615: --
616: RAISE e_GroupError;
609: IF (l_debug <> -1) THEN
610: rlm_core_sv.dlog(C_DEBUG,'Too many rows found for item
611: detail type 4 and subtype = cumulative');
612: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_MULTIPLE_ITM_CUM_DTL_FOUND');
613: rlm_core_sv.dpop(C_SDEBUG);
614: END IF;
615: --
616: RAISE e_GroupError;
617: --*/
620: rlm_message_sv.sql_error('rlm_manage_demand.PopulateCUMRec',
621: v_Progress);
622: --
623: IF (l_debug <> -1) THEN
624: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
625: END IF;
626: --
627: raise;
628:
648: AND customer_item_id = x_Group_rec.customer_item_id
649: AND inventory_item_id = x_Group_rec.inventory_item_id
650: AND item_detail_type IN (k_PAST_DUE_FIRM, k_FIRM_DEMAND,
651: k_FORECAST_DEMAND, k_MRP_FORECAST,k_FIRM_DEMAND)
652: AND process_status = rlm_core_sv.k_PS_AVAILABLE
653: ORDER BY START_DATE_TIME;
654:
655: CURSOR c_DemandCum IS
656: SELECT *
661: AND customer_item_id = x_Group_rec.customer_item_id
662: AND inventory_item_id = x_Group_rec.inventory_item_id
663: AND item_detail_type IN (k_PAST_DUE_FIRM, k_FIRM_DEMAND,
664: k_FORECAST_DEMAND, k_MRP_FORECAST,k_SHIP_RECEIPT_INFO)
665: AND process_status = rlm_core_sv.k_PS_AVAILABLE
666: ORDER BY START_DATE_TIME;
667:
668: --
669: v_Demand_rec rlm_interface_lines%ROWTYPE;
672: --
673: BEGIN
674: --
675: IF (l_debug <> -1) THEN
676: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
678: x_Group_rec.ship_from_org_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
680: x_Group_rec.ship_to_address_id);
673: BEGIN
674: --
675: IF (l_debug <> -1) THEN
676: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
678: x_Group_rec.ship_from_org_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
680: x_Group_rec.ship_to_address_id);
681: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
675: IF (l_debug <> -1) THEN
676: rlm_core_sv.dpush(C_SDEBUG,'PopulateMD');
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
678: x_Group_rec.ship_from_org_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
680: x_Group_rec.ship_to_address_id);
681: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
682: x_Group_rec.inventory_item_id);
683: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
677: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
678: x_Group_rec.ship_from_org_id);
679: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
680: x_Group_rec.ship_to_address_id);
681: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
682: x_Group_rec.inventory_item_id);
683: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
684: x_Group_rec.customer_item_id);
685: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
679: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
680: x_Group_rec.ship_to_address_id);
681: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
682: x_Group_rec.inventory_item_id);
683: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
684: x_Group_rec.customer_item_id);
685: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
686: END IF;
687: --
681: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.inventory_item_id',
682: x_Group_rec.inventory_item_id);
683: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
684: x_Group_rec.customer_item_id);
685: rlm_core_sv.dlog(C_DEBUG,'x_IncludeCUM', x_IncludeCUM);
686: END IF;
687: --
688: g_ManageDemand_tab.DELETE;
689:
700: v_Count := v_Count + 1;
701: END LOOP;
702: --
703: IF (l_debug <> -1) THEN
704: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',g_ManageDemand_tab.COUNT);
705: END IF;
706: --
707: CLOSE c_DemandCum;
708: --
719: v_Count := v_Count + 1;
720: END LOOP;
721: --
722: IF (l_debug <> -1) THEN
723: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',g_ManageDemand_tab.COUNT);
724: END IF;
725: --
726: CLOSE c_Demand;
727: --
727: --
728: END IF;
729: --
730: IF (l_debug <> -1) THEN
731: rlm_core_sv.dpop(C_SDEBUG);
732: END IF;
733: --
734: EXCEPTION
735: --
737: --
738: rlm_message_sv.sql_error('rlm_manage_demand.PopulateMD',v_Progress);
739: --
740: IF (l_debug <> -1) THEN
741: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
742: END IF;
743: --
744: raise;
745: --
761:
762: BEGIN
763:
764: IF (l_debug <> -1) THEN
765: rlm_core_sv.dpush(C_SDEBUG,'UOMConversion');
766: -- note: need to find customer_uom_code?
767: rlm_core_sv.dpop(C_SDEBUG);
768: END IF;
769:
763:
764: IF (l_debug <> -1) THEN
765: rlm_core_sv.dpush(C_SDEBUG,'UOMConversion');
766: -- note: need to find customer_uom_code?
767: rlm_core_sv.dpop(C_SDEBUG);
768: END IF;
769:
770: EXCEPTION
771:
772: WHEN OTHERS THEN
773: rlm_message_sv.sql_error('rlm_manage_demand_sv.UOMConversion', v_Progress);
774: --
775: IF (l_debug <> -1) THEN
776: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
777: END IF;
778: --
779: raise;
780:
813: --
814: BEGIN
815: --
816: IF (l_debug <> -1) THEN
817: rlm_core_sv.dpush(C_SDEBUG,'CUMDiscrepancyCheck');
818: rlm_core_sv.dlog(C_DEBUG,'cum_control_code',
819: x_Group_rec.setup_terms_rec.cum_control_code);
820: END IF;
821: --
814: BEGIN
815: --
816: IF (l_debug <> -1) THEN
817: rlm_core_sv.dpush(C_SDEBUG,'CUMDiscrepancyCheck');
818: rlm_core_sv.dlog(C_DEBUG,'cum_control_code',
819: x_Group_rec.setup_terms_rec.cum_control_code);
820: END IF;
821: --
822: v_Progress := '020';
825:
826: BEGIN
827:
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found',g_CUM_tab(v_Count).found); --Bugfix 7007638
830: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',g_CUM_tab(v_Count).primary_quantity); --Bugfix 7007638
831: END IF;
832: -- This assignment is done in order to get the current record during the error processing
833: v_current_rec := v_Count; --Bugfix 7007638
826: BEGIN
827:
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').found',g_CUM_tab(v_Count).found); --Bugfix 7007638
830: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',g_CUM_tab(v_Count).primary_quantity); --Bugfix 7007638
831: END IF;
832: -- This assignment is done in order to get the current record during the error processing
833: v_current_rec := v_Count; --Bugfix 7007638
834: --
856: END IF;
857: --Bugfix 7007638
858: --
859: IF (l_debug <> -1) THEN
860: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.calc_cum_flag',
861: x_Group_rec.setup_terms_rec.calc_cum_flag);
862: END IF;
863: --
864: IF x_Group_rec.setup_terms_rec.calc_cum_flag = 'N' THEN
896: --
897: v_Progress := '030';
898: --
899: IF (l_debug <> -1) THEN
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
901: v_cum_key_record.customer_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
903: v_cum_key_record.customer_item_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
898: --
899: IF (l_debug <> -1) THEN
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
901: v_cum_key_record.customer_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
903: v_cum_key_record.customer_item_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
905: v_cum_key_record.inventory_item_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
900: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_id',
901: v_cum_key_record.customer_id);
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
903: v_cum_key_record.customer_item_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
905: v_cum_key_record.inventory_item_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
907: v_cum_key_record.ship_from_org_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
902: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.customer_item_id',
903: v_cum_key_record.customer_item_id);
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
905: v_cum_key_record.inventory_item_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
907: v_cum_key_record.ship_from_org_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
909: ,v_cum_key_record.intrmd_ship_to_address_id);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
904: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.inventory_item_id',
905: v_cum_key_record.inventory_item_id);
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
907: v_cum_key_record.ship_from_org_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
909: ,v_cum_key_record.intrmd_ship_to_address_id);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
911: v_cum_key_record.ship_to_address_id);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
906: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_from_org_id',
907: v_cum_key_record.ship_from_org_id);
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
909: ,v_cum_key_record.intrmd_ship_to_address_id);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
911: v_cum_key_record.ship_to_address_id);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
913: v_cum_key_record.bill_to_address_id);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
908: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.intrmd_ship_to_address_id'
909: ,v_cum_key_record.intrmd_ship_to_address_id);
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
911: v_cum_key_record.ship_to_address_id);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
913: v_cum_key_record.bill_to_address_id);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
915: v_cum_key_record.purchase_order_number);
916: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
910: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.ship_to_address_id',
911: v_cum_key_record.ship_to_address_id);
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
913: v_cum_key_record.bill_to_address_id);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
915: v_cum_key_record.purchase_order_number);
916: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
917: v_cum_key_record.cust_record_year);
918: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
912: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.bill_to_address_id',
913: v_cum_key_record.bill_to_address_id);
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
915: v_cum_key_record.purchase_order_number);
916: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
917: v_cum_key_record.cust_record_year);
918: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
919: ,v_cum_key_record.cum_start_date);
920: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
914: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.purchase_order_number',
915: v_cum_key_record.purchase_order_number);
916: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
917: v_cum_key_record.cust_record_year);
918: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
919: ,v_cum_key_record.cum_start_date);
920: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
921: v_cum_key_record.create_cum_key_flag);
922: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
916: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cust_record_year',
917: v_cum_key_record.cust_record_year);
918: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
919: ,v_cum_key_record.cum_start_date);
920: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
921: v_cum_key_record.create_cum_key_flag);
922: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
923: END IF;
924: --
918: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.cum_start_date'
919: ,v_cum_key_record.cum_start_date);
920: rlm_core_sv.dlog(C_DEBUG,'v_cum_key_record.create_cum_key_flag',
921: v_cum_key_record.create_cum_key_flag);
922: rlm_core_sv.dlog(C_DEBUG,'call cum api for calculate cum key');
923: END IF;
924: --
925: RLM_TPA_SV.CalculateCumKey(v_cum_key_record,v_cum_record);
926: --
924: --
925: RLM_TPA_SV.CalculateCumKey(v_cum_key_record,v_cum_record);
926: --
927: IF (l_debug <> -1) THEN
928: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.record_return_status',
929: v_cum_record.record_return_status);
930: END IF;
931: --
932: IF v_cum_record.record_return_status THEN
931: --
932: IF v_cum_record.record_return_status THEN
933: --
934: IF (l_debug <> -1) THEN
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
936: v_cum_record.msg_data);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
938: v_cum_record.cum_key_id);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
933: --
934: IF (l_debug <> -1) THEN
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
936: v_cum_record.msg_data);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
938: v_cum_record.cum_key_id);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
940: v_cum_record.cum_start_date);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
935: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.msg_data',
936: v_cum_record.msg_data);
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
938: v_cum_record.cum_key_id);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
940: v_cum_record.cum_start_date);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
942: v_cum_record.shipped_quantity);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
937: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_id',
938: v_cum_record.cum_key_id);
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
940: v_cum_record.cum_start_date);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
942: v_cum_record.shipped_quantity);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
944: v_cum_record.actual_shipment_date);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
939: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_start_date',
940: v_cum_record.cum_start_date);
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
942: v_cum_record.shipped_quantity);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
944: v_cum_record.actual_shipment_date);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
946: v_cum_record.cum_key_created_flag);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
941: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipped_quantity',
942: v_cum_record.shipped_quantity);
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
944: v_cum_record.actual_shipment_date);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
946: v_cum_record.cum_key_created_flag);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
948: v_cum_record.cum_qty);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
943: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.actual_shipment_date',
944: v_cum_record.actual_shipment_date);
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
946: v_cum_record.cum_key_created_flag);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
948: v_cum_record.cum_qty);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
950: v_cum_record.as_of_date_cum_qty);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
945: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_key_created_flag',
946: v_cum_record.cum_key_created_flag);
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
948: v_cum_record.cum_qty);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
950: v_cum_record.as_of_date_cum_qty);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
952: v_cum_record.cum_qty_to_be_accumulated);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
947: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
948: v_cum_record.cum_qty);
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
950: v_cum_record.as_of_date_cum_qty);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
952: v_cum_record.cum_qty_to_be_accumulated);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
954: v_cum_record.last_cum_qty_update_date);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
949: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_cum_qty',
950: v_cum_record.as_of_date_cum_qty);
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
952: v_cum_record.cum_qty_to_be_accumulated);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
954: v_cum_record.last_cum_qty_update_date);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
956: v_cum_record.cust_uom_code);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
951: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty_to_be_accumulated',
952: v_cum_record.cum_qty_to_be_accumulated);
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
954: v_cum_record.last_cum_qty_update_date);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
956: v_cum_record.cust_uom_code);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
958: v_cum_record.use_ship_incl_rule_flag);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
953: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_cum_qty_update_date',
954: v_cum_record.last_cum_qty_update_date);
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
956: v_cum_record.cust_uom_code);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
958: v_cum_record.use_ship_incl_rule_flag);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
960: v_cum_record.shipment_rule_code);
961: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
955: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cust_uom_code',
956: v_cum_record.cust_uom_code);
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
958: v_cum_record.use_ship_incl_rule_flag);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
960: v_cum_record.shipment_rule_code);
961: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
962: ,v_cum_record.yesterday_time_cutoff);
963: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
957: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.use_ship_incl_rule_flag',
958: v_cum_record.use_ship_incl_rule_flag);
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
960: v_cum_record.shipment_rule_code);
961: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
962: ,v_cum_record.yesterday_time_cutoff);
963: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
964: v_cum_record.last_update_date);
965: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
959: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.shipment_rule_code',
960: v_cum_record.shipment_rule_code);
961: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
962: ,v_cum_record.yesterday_time_cutoff);
963: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
964: v_cum_record.last_update_date);
965: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
966: v_cum_record.as_of_date_time);
967: END IF;
961: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.yesterday_time_cutoff'
962: ,v_cum_record.yesterday_time_cutoff);
963: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.last_update_date',
964: v_cum_record.last_update_date);
965: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.as_of_date_time',
966: v_cum_record.as_of_date_time);
967: END IF;
968: --
969: IF v_cum_record.cum_key_id IS NULL THEN
979: --
980: END IF;
981: --
982: IF (l_debug <> -1) THEN
983: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
984: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
985: g_CUM_tab(v_Count).primary_quantity);
986: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
987: v_cum_record.cum_qty);
980: END IF;
981: --
982: IF (l_debug <> -1) THEN
983: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
984: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
985: g_CUM_tab(v_Count).primary_quantity);
986: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
987: v_cum_record.cum_qty);
988: END IF;
982: IF (l_debug <> -1) THEN
983: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
984: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').primary_quantity',
985: g_CUM_tab(v_Count).primary_quantity);
986: rlm_core_sv.dlog(C_DEBUG,'v_cum_record.cum_qty',
987: v_cum_record.cum_qty);
988: END IF;
989: --
990: IF x_Group_rec.setup_terms_rec.cum_org_level_code NOT IN (
996: --
997: v_Intransit := RLM_TPA_SV.CalculateIntransitQty(x_Sched_rec,
998: x_Group_rec);
999: IF (l_debug <> -1) THEN
1000: rlm_core_sv.dlog(C_DEBUG,'v_Intransit', v_Intransit);
1001: END IF;
1002: --
1003: v_SupQty := v_cum_record.cum_qty +
1004: v_cum_record.cum_qty_to_be_accumulated +
1004: v_cum_record.cum_qty_to_be_accumulated +
1005: NVL(v_cum_record.cum_qty_after_cutoff,0) - v_Intransit;
1006: --
1007: IF (l_debug <> -1) THEN
1008: rlm_core_sv.dlog(C_DEBUG,'v_SupQty', v_SupQty);
1009: END IF;
1010: --
1011: IF g_CUM_tab(v_Count).primary_quantity <> v_SupQty THEN
1012: --
1010: --
1011: IF g_CUM_tab(v_Count).primary_quantity <> v_SupQty THEN
1012: --
1013: IF (l_debug <> -1) THEN
1014: rlm_core_sv.dlog(C_DEBUG,'NOT ALL');
1015: END IF;
1016: --
1017: v_Progress := '120';
1018: raise e_CUMDiscrepancy;
1025: --
1026: g_AllIntransitQty := RLM_TPA_SV.GetIntransitAcrossOrgs(x_Sched_rec, x_Group_rec, v_cum_record.cum_key_id);
1027: --
1028: IF (l_debug <> -1) THEN
1029: rlm_core_sv.dlog(C_DEBUG, 'g_AllIntransitQty', g_AllIntransitQty);
1030: END IF;
1031: --
1032: v_SupQty := v_cum_record.cum_qty +
1033: v_cum_record.cum_qty_to_be_accumulated +
1034: NVL(v_cum_record.cum_qty_after_cutoff,0)
1035: - NVL(g_AllIntransitQty,0);
1036: --
1037: IF (l_debug <> -1) THEN
1038: rlm_core_sv.dlog(C_DEBUG,'v_SupQty', v_SupQty);
1039: END IF;
1040: --
1041: IF g_CUM_tab(v_Count).item_detail_quantity <> v_SupQty THEN
1042: --
1040: --
1041: IF g_CUM_tab(v_Count).item_detail_quantity <> v_SupQty THEN
1042: --
1043: IF (l_debug <> -1) THEN
1044: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count||').item_detail_quantity',
1045: g_CUM_tab(v_Count).item_detail_quantity);
1046: END IF;
1047: --
1048: v_Progress := '120';
1093: x_Token1 => 'CUSTCM',
1094: x_Value1 => g_CUM_tab(v_current_rec).primary_quantity, --Bugfix 7007638
1095: x_Token2 => 'GROUP', --Bugfix 7007638
1096: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1097: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1098: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1099: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1100: v_control_value,
1101: x_Token3 => 'SUPCUM',
1094: x_Value1 => g_CUM_tab(v_current_rec).primary_quantity, --Bugfix 7007638
1095: x_Token2 => 'GROUP', --Bugfix 7007638
1096: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1097: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1098: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1099: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1100: v_control_value,
1101: x_Token3 => 'SUPCUM',
1102: x_Value3 => v_SupQty);
1095: x_Token2 => 'GROUP', --Bugfix 7007638
1096: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1097: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1098: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1099: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1100: v_control_value,
1101: x_Token3 => 'SUPCUM',
1102: x_Value3 => v_SupQty);
1103: --
1101: x_Token3 => 'SUPCUM',
1102: x_Value3 => v_SupQty);
1103: --
1104: IF (l_debug <> -1) THEN
1105: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1106: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1107: END IF;
1108: --
1109: WHEN e_CUMDiscrepancyAll THEN
1102: x_Value3 => v_SupQty);
1103: --
1104: IF (l_debug <> -1) THEN
1105: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1106: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1107: END IF;
1108: --
1109: WHEN e_CUMDiscrepancyAll THEN
1110: --
1142: x_Token1 => 'CUSTCM',
1143: x_Value1 => g_CUM_tab(v_current_rec).item_detail_quantity, --Bugfix 7007638
1144: x_Token2 => 'GROUP', --Bugfix 7007638
1145: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1146: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1147: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1148: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1149: v_control_value,
1150: x_Token3 => 'SUPCUM',
1143: x_Value1 => g_CUM_tab(v_current_rec).item_detail_quantity, --Bugfix 7007638
1144: x_Token2 => 'GROUP', --Bugfix 7007638
1145: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1146: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1147: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1148: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1149: v_control_value,
1150: x_Token3 => 'SUPCUM',
1151: x_Value3 => v_SupQty);
1144: x_Token2 => 'GROUP', --Bugfix 7007638
1145: x_value2 => '-'||v_control_text||' '|| --Bugfix 7007638
1146: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1147: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1148: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1149: v_control_value,
1150: x_Token3 => 'SUPCUM',
1151: x_Value3 => v_SupQty);
1152: --
1150: x_Token3 => 'SUPCUM',
1151: x_Value3 => v_SupQty);
1152: --
1153: IF (l_debug <> -1) THEN
1154: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1155: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1156: END IF;
1157: --
1158: WHEN e_NoCumKey THEN
1151: x_Value3 => v_SupQty);
1152: --
1153: IF (l_debug <> -1) THEN
1154: rlm_core_sv.dlog(C_DEBUG,'WARNING : CUM Discrepancy found between customer cum and supplier cum');
1155: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1156: END IF;
1157: --
1158: WHEN e_NoCumKey THEN
1159: --
1189: x_OrderLineId => NULL,
1190: x_GroupInfo => TRUE,
1191: x_Token1 => 'GROUP', --Bugfix 7007638
1192: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1193: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1194: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1195: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1196: v_control_value);
1197: --
1190: x_GroupInfo => TRUE,
1191: x_Token1 => 'GROUP', --Bugfix 7007638
1192: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1193: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1194: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1195: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1196: v_control_value);
1197: --
1198: IF (l_debug <> -1) THEN
1191: x_Token1 => 'GROUP', --Bugfix 7007638
1192: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1193: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1194: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1195: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1196: v_control_value);
1197: --
1198: IF (l_debug <> -1) THEN
1199: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1195: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1196: v_control_value);
1197: --
1198: IF (l_debug <> -1) THEN
1199: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1200: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1201: END IF;
1202: --
1203: WHEN e_NoCUMAtItem THEN
1196: v_control_value);
1197: --
1198: IF (l_debug <> -1) THEN
1199: rlm_core_sv.dlog('No CUM Key Found need not calculate the supplier cum');
1200: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1201: END IF;
1202: --
1203: WHEN e_NoCUMAtItem THEN
1204: --
1233: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
1234: x_OrderLineId => NULL,
1235: x_GroupInfo => TRUE,
1236: -- x_Token1 => 'CITEM',
1237: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1238: x_Token1 => 'GROUP', --Bugfix 7007638
1239: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1240: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1241: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1236: -- x_Token1 => 'CITEM',
1237: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1238: x_Token1 => 'GROUP', --Bugfix 7007638
1239: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1240: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1241: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1242: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1243: v_control_value);
1244: --
1237: -- x_Value1 => rlm_core_sv.get_item_number(x_group_rec.customer_item_id));
1238: x_Token1 => 'GROUP', --Bugfix 7007638
1239: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1240: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1241: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1242: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1243: v_control_value);
1244: --
1245: IF (l_debug <> -1) THEN
1238: x_Token1 => 'GROUP', --Bugfix 7007638
1239: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1240: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1241: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1242: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1243: v_control_value);
1244: --
1245: IF (l_debug <> -1) THEN
1246: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1242: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1243: v_control_value);
1244: --
1245: IF (l_debug <> -1) THEN
1246: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1247: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1248: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1249: END IF;
1250: --
1243: v_control_value);
1244: --
1245: IF (l_debug <> -1) THEN
1246: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1247: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1248: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1249: END IF;
1250: --
1251: END;
1244: --
1245: IF (l_debug <> -1) THEN
1246: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1247: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1248: rlm_core_sv.dlog(C_DEBUG,'CUM overwritten at item level no cum required');
1249: END IF;
1250: --
1251: END;
1252: END LOOP; --Bugfix 7007638
1251: END;
1252: END LOOP; --Bugfix 7007638
1253: --
1254: IF (l_debug <> -1) THEN
1255: rlm_core_sv.dpop(C_SDEBUG);
1256: END IF;
1257: --
1258: EXCEPTION
1259: --
1294: x_OrderLineId => NULL,
1295: x_GroupInfo => TRUE,
1296: x_Token1 => 'GROUP', --Bugfix 7007638
1297: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1298: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1299: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1300: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1301: v_control_value,
1302: x_Token2 => 'ERRORMSG',
1295: x_GroupInfo => TRUE,
1296: x_Token1 => 'GROUP', --Bugfix 7007638
1297: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1298: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1299: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1300: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1301: v_control_value,
1302: x_Token2 => 'ERRORMSG',
1303: x_Value2 => v_cum_record.msg_data);
1296: x_Token1 => 'GROUP', --Bugfix 7007638
1297: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1298: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1299: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1300: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1301: v_control_value,
1302: x_Token2 => 'ERRORMSG',
1303: x_Value2 => v_cum_record.msg_data);
1304: --
1302: x_Token2 => 'ERRORMSG',
1303: x_Value2 => v_cum_record.msg_data);
1304: --
1305: IF (l_debug <> -1) THEN
1306: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1307: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1308: rlm_core_sv.dpop(C_SDEBUG);
1309: END IF;
1310: --
1303: x_Value2 => v_cum_record.msg_data);
1304: --
1305: IF (l_debug <> -1) THEN
1306: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1307: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1308: rlm_core_sv.dpop(C_SDEBUG);
1309: END IF;
1310: --
1311: raise e_GroupError;
1304: --
1305: IF (l_debug <> -1) THEN
1306: rlm_core_sv.dlog(C_DEBUG,'CalculateCUMkey API Failed',v_cum_record.msg_data);
1307: rlm_core_sv.dlog(C_DEBUG, 'v_InterfaceLineId', v_InterfaceLineId);
1308: rlm_core_sv.dpop(C_SDEBUG);
1309: END IF;
1310: --
1311: raise e_GroupError;
1312: --
1327: x_Token1 => 'ERROR',
1328: x_Value1 => v_cum_record.msg_data);
1329: --
1330: IF (l_debug <> -1) THEN
1331: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCUM API Failed',
1332: v_cum_record.msg_data);
1333: rlm_core_sv.dpop(C_SDEBUG);
1334: END IF;
1335: --
1329: --
1330: IF (l_debug <> -1) THEN
1331: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCUM API Failed',
1332: v_cum_record.msg_data);
1333: rlm_core_sv.dpop(C_SDEBUG);
1334: END IF;
1335: --
1336: raise e_GroupError;
1337: --
1340: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',
1341: v_Progress);
1342: --
1343: IF (l_debug <> -1) THEN
1344: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1345: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1346: END IF;
1347: --
1348: raise;
1341: v_Progress);
1342: --
1343: IF (l_debug <> -1) THEN
1344: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1345: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1346: END IF;
1347: --
1348: raise;
1349:
1364: --
1365: BEGIN
1366: --
1367: IF (l_debug <> -1) THEN
1368: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1369: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1370: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1371: END IF;
1372: --
1365: BEGIN
1366: --
1367: IF (l_debug <> -1) THEN
1368: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1369: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1370: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1371: END IF;
1372: --
1373: IF x_Operation = k_DELETE THEN
1366: --
1367: IF (l_debug <> -1) THEN
1368: rlm_core_sv.dpush(C_SDEBUG,'SetOperation');
1369: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1370: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1371: END IF;
1372: --
1373: IF x_Operation = k_DELETE THEN
1374: --
1383: --
1384: ELSIF x_Operation = k_UPDATE THEN
1385: --
1386: IF (l_debug <> -1) THEN
1387: rlm_core_sv.dlog(C_DEBUG,'x_Operation',x_Operation);
1388: END IF;
1389: --
1390: IF nvl(x_ManageDemand_rec.program_id,k_NULL) NOT IN (k_INSERT, k_DELETE)
1391: THEN
1398: x_ManageDemand_rec.program_id := x_Operation;
1399: END IF;
1400: --
1401: IF (l_debug <> -1) THEN
1402: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1403: rlm_core_sv.dpop(C_SDEBUG);
1404: END IF;
1405: --
1406: EXCEPTION
1399: END IF;
1400: --
1401: IF (l_debug <> -1) THEN
1402: rlm_core_sv.dlog(C_DEBUG,'program_id',x_ManageDemand_rec.program_id);
1403: rlm_core_sv.dpop(C_SDEBUG);
1404: END IF;
1405: --
1406: EXCEPTION
1407: --
1409: --
1410: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1411: --
1412: IF (l_debug <> -1) THEN
1413: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1414: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1415: END IF;
1416: --
1417: raise;
1410: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1411: --
1412: IF (l_debug <> -1) THEN
1413: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1414: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1415: END IF;
1416: --
1417: raise;
1418: --
1441: --
1442: BEGIN
1443: --
1444: IF (l_debug <> -1) THEN
1445: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1446: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1447: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1448: END IF;
1449:
1442: BEGIN
1443: --
1444: IF (l_debug <> -1) THEN
1445: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1446: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1447: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1448: END IF;
1449:
1450: --Bugfix 7007638 --Replaced all occurrences of record type g_CUM_rec with PL/SQL table g_CUM_tab.
1443: --
1444: IF (l_debug <> -1) THEN
1445: rlm_core_sv.dpush(C_SDEBUG,'CUMToDiscrete');
1446: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1447: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab.COUNT',g_CUM_tab.COUNT); --Bugfix 7007638
1448: END IF;
1449:
1450: --Bugfix 7007638 --Replaced all occurrences of record type g_CUM_rec with PL/SQL table g_CUM_tab.
1451:
1456: v_cum_record.cum_key_id := NULL;
1457: v_EarlierDiscreteQty := 0; --Bugfix 7007638
1458: --
1459: IF (l_debug <> -1) THEN
1460: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1461: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1462: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1463: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1464: END IF;
1457: v_EarlierDiscreteQty := 0; --Bugfix 7007638
1458: --
1459: IF (l_debug <> -1) THEN
1460: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1461: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1462: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1463: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1464: END IF;
1465: --
1458: --
1459: IF (l_debug <> -1) THEN
1460: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1461: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1462: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1463: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1464: END IF;
1465: --
1466: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1459: IF (l_debug <> -1) THEN
1460: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1461: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1462: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').purchase_order_number',g_CUM_tab(v_Count1).purchase_order_number);
1463: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').cust_record_year',g_CUM_tab(v_Count1).cust_record_year);
1464: END IF;
1465: --
1466: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1467: --Displaying values as part of Bugfix 7007638
1465: --
1466: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1467: --Displaying values as part of Bugfix 7007638
1468: IF (l_debug <> -1) THEN
1469: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1470: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1471: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1472: END IF;
1473:
1466: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1467: --Displaying values as part of Bugfix 7007638
1468: IF (l_debug <> -1) THEN
1469: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1470: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1471: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1472: END IF;
1473:
1474: --Bugfix 7007638 --Added IF Condition
1467: --Displaying values as part of Bugfix 7007638
1468: IF (l_debug <> -1) THEN
1469: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1470: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').cust_po_number',g_ManageDemand_tab(v_Count).cust_po_number);
1471: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||v_Count||').industry_attribute1',g_ManageDemand_tab(v_Count).industry_attribute1);
1472: END IF;
1473:
1474: --Bugfix 7007638 --Added IF Condition
1475: IF (x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') AND
1576: NVL(v_cum_record.cum_qty_after_cutoff,0) +
1577: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1578: --
1579: IF (l_debug <> -1) THEN
1580: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1581: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1582: v_cum_record.cum_qty_after_cutoff);
1583: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1584: v_cum_record.cum_qty_to_be_accumulated);
1577: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1578: --
1579: IF (l_debug <> -1) THEN
1580: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1581: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1582: v_cum_record.cum_qty_after_cutoff);
1583: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1584: v_cum_record.cum_qty_to_be_accumulated);
1585: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1579: IF (l_debug <> -1) THEN
1580: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1581: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1582: v_cum_record.cum_qty_after_cutoff);
1583: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1584: v_cum_record.cum_qty_to_be_accumulated);
1585: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1586: END IF;
1587: --
1581: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1582: v_cum_record.cum_qty_after_cutoff);
1583: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1584: v_cum_record.cum_qty_to_be_accumulated);
1585: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1586: END IF;
1587: --
1588: END IF; --first time in the loop
1589: --
1587: --
1588: END IF; --first time in the loop
1589: --
1590: IF (l_debug <> -1) THEN
1591: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',
1592: g_ManageDemand_tab(v_Count).primary_quantity);
1593: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').primary_quantity',
1594: g_CUM_tab(v_Count1).primary_quantity);
1595:
1589: --
1590: IF (l_debug <> -1) THEN
1591: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',
1592: g_ManageDemand_tab(v_Count).primary_quantity);
1593: rlm_core_sv.dlog(C_DEBUG,'g_CUM_tab('||v_Count1||').primary_quantity',
1594: g_CUM_tab(v_Count1).primary_quantity);
1595:
1596: END IF;
1597: -- Bug 4468377
1606: - v_supplier_total_qty
1607: - v_EarlierDiscreteQty;
1608: --
1609: IF (l_debug <> -1) THEN
1610: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
1611: g_ManageDemand_tab(v_Count).primary_quantity);
1612: END IF;
1613: --
1614: g_ManageDemand_tab(v_Count).qty_type_code := 'ACTUAL';
1630: --x_Token1 => 'SCHEDLINE', --Bugfix 7007638
1631: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1632: x_Token1 => 'GROUP', --Bugfix 7007638
1633: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1634: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1635: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1636: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1637: v_control_value);
1638: --
1631: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1632: x_Token1 => 'GROUP', --Bugfix 7007638
1633: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1634: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1635: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1636: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1637: v_control_value);
1638: --
1639: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1632: x_Token1 => 'GROUP', --Bugfix 7007638
1633: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1634: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1635: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1636: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1637: v_control_value);
1638: --
1639: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1640: --
1642: --
1643: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1644: --
1645: IF (l_debug <> -1) THEN
1646: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1647: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1648: g_ManageDemand_tab(v_Count).primary_quantity);
1649: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1650: g_ManageDemand_tab(v_Count).qty_type_code);
1643: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1644: --
1645: IF (l_debug <> -1) THEN
1646: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1647: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1648: g_ManageDemand_tab(v_Count).primary_quantity);
1649: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1650: g_ManageDemand_tab(v_Count).qty_type_code);
1651: END IF;
1645: IF (l_debug <> -1) THEN
1646: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1647: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1648: g_ManageDemand_tab(v_Count).primary_quantity);
1649: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1650: g_ManageDemand_tab(v_Count).qty_type_code);
1651: END IF;
1652: --
1653: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1653: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1654: g_ManageDemand_tab(v_Count).primary_quantity;
1655: --
1656: IF (l_debug <> -1) THEN
1657: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1658: END IF;
1659: --
1660: END IF;
1661: --
1671:
1672: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1673: --
1674: IF (l_debug <> -1) THEN
1675: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || v_Count || ').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1676: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1677: END IF;
1678: --
1679: -- This assignment is done in order to get the current record during
1672: FOR v_Count IN 1..g_ManageDemand_tab.COUNT LOOP
1673: --
1674: IF (l_debug <> -1) THEN
1675: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || v_Count || ').qty_type_code', g_ManageDemand_tab(v_Count).qty_type_code);
1676: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',x_Group_rec.setup_terms_rec.cum_control_code);
1677: END IF;
1678: --
1679: -- This assignment is done in order to get the current record during
1680: -- the error processing
1744: NVL(v_cum_record.cum_qty_after_cutoff,0) +
1745: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1746: --
1747: IF (l_debug <> -1) THEN
1748: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1749: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1750: v_cum_record.cum_qty_after_cutoff);
1751: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1752: v_cum_record.cum_qty_to_be_accumulated);
1745: NVL(v_cum_record.cum_qty_to_be_accumulated,0);
1746: --
1747: IF (l_debug <> -1) THEN
1748: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1749: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1750: v_cum_record.cum_qty_after_cutoff);
1751: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1752: v_cum_record.cum_qty_to_be_accumulated);
1753: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1747: IF (l_debug <> -1) THEN
1748: rlm_core_sv.dlog(C_DEBUG,'cum_qty',v_cum_record.cum_qty);
1749: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1750: v_cum_record.cum_qty_after_cutoff);
1751: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1752: v_cum_record.cum_qty_to_be_accumulated);
1753: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1754: END IF;
1755: --
1749: rlm_core_sv.dlog(C_DEBUG,'cum_qty_after_cutoff',
1750: v_cum_record.cum_qty_after_cutoff);
1751: rlm_core_sv.dlog(C_DEBUG,'cum_qty_to_be_accumulated',
1752: v_cum_record.cum_qty_to_be_accumulated);
1753: rlm_core_sv.dlog(C_DEBUG,'v_supplier_total_qty',v_supplier_total_qty);
1754: END IF;
1755: --
1756: END IF; --first time in the loop
1757: --
1755: --
1756: END IF; --first time in the loop
1757: --
1758: IF (l_debug <> -1) THEN
1759: rlm_core_sv.dlog(C_DEBUG,'earlier primary_quantity',g_ManageDemand_tab(v_Count).primary_quantity);
1760: END IF;
1761: -- Bug 4436335
1762: IF (g_ManageDemand_tab(v_Count).uom_code <> v_cum_record.cust_uom_code) THEN
1763: --
1770: - v_supplier_total_qty
1771: - v_EarlierDiscreteQty;
1772: --
1773: IF (l_debug <> -1) THEN
1774: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
1775: g_ManageDemand_tab(v_Count).primary_quantity);
1776: END IF;
1777: --
1778: g_ManageDemand_tab(v_Count).qty_type_code := 'ACTUAL';
1794: --x_Token1 => 'SCHEDLINE', --Bugfix 7007638
1795: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1796: x_Token1 => 'GROUP', --Bugfix 7007638
1797: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1798: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1799: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1800: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1801: v_control_value);
1802: --
1795: --x_value1 => g_ManageDemand_tab(v_Count).line_number); --Bugfix 7007638
1796: x_Token1 => 'GROUP', --Bugfix 7007638
1797: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1798: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1799: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1800: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1801: v_control_value);
1802: --
1803: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1796: x_Token1 => 'GROUP', --Bugfix 7007638
1797: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1798: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1799: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1800: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1801: v_control_value);
1802: --
1803: g_ManageDemand_tab(v_Count).primary_quantity := 0;
1804: --
1806: --
1807: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1808: --
1809: IF (l_debug <> -1) THEN
1810: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1811: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1812: g_ManageDemand_tab(v_Count).primary_quantity);
1813: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1814: g_ManageDemand_tab(v_Count).qty_type_code);
1807: SetOperation(g_ManageDemand_tab(v_Count), k_UPDATE);
1808: --
1809: IF (l_debug <> -1) THEN
1810: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1811: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1812: g_ManageDemand_tab(v_Count).primary_quantity);
1813: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1814: g_ManageDemand_tab(v_Count).qty_type_code);
1815: END IF;
1809: IF (l_debug <> -1) THEN
1810: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1811: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.primary_quantity',
1812: g_ManageDemand_tab(v_Count).primary_quantity);
1813: rlm_core_sv.dlog(C_DEBUG,'final g_ManageDemand_tab.qty_type_code',
1814: g_ManageDemand_tab(v_Count).qty_type_code);
1815: END IF;
1816: --
1817: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1817: v_EarlierDiscreteQty := v_EarlierDiscreteQty +
1818: g_ManageDemand_tab(v_Count).primary_quantity;
1819: --
1820: IF (l_debug <> -1) THEN
1821: rlm_core_sv.dlog(C_DEBUG,'v_EarlierDiscreteQty',v_EarlierDiscreteQty);
1822: END IF;
1823: --
1824: END IF;
1825: --
1827: --
1828: END IF; --g_CUM_tab.COUNT
1829: --
1830: IF (l_debug <> -1) THEN
1831: rlm_core_sv.dpop(C_SDEBUG);
1832: END IF;
1833: --
1834: EXCEPTION
1835: --
1845: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
1846: x_OrderLineId => NULL,
1847: x_Token1 => 'GROUP', --Bugfix 7007638
1848: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1849: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1850: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1851: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1852: v_control_value);
1853: --
1846: x_OrderLineId => NULL,
1847: x_Token1 => 'GROUP', --Bugfix 7007638
1848: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1849: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1850: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1851: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1852: v_control_value);
1853: --
1854: IF (l_debug <> -1) THEN
1847: x_Token1 => 'GROUP', --Bugfix 7007638
1848: x_value1 => '-'||v_control_text||' '|| --Bugfix 7007638
1849: rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
1850: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
1851: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1852: v_control_value);
1853: --
1854: IF (l_debug <> -1) THEN
1855: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1851: rlm_core_sv.get_item_number(x_group_rec.customer_item_id)||'-'||
1852: v_control_value);
1853: --
1854: IF (l_debug <> -1) THEN
1855: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1856: rlm_core_sv.dpop(C_SDEBUG);
1857: END IF;
1858: --
1859: raise e_GroupError;
1852: v_control_value);
1853: --
1854: IF (l_debug <> -1) THEN
1855: rlm_core_sv.dlog('No CUM Key Found Cannot calculate the supplier cum');
1856: rlm_core_sv.dpop(C_SDEBUG);
1857: END IF;
1858: --
1859: raise e_GroupError;
1860: --
1874: x_ScheduleLineId => NULL,
1875: x_Token1 => 'LINE_UOM',
1876: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1877: x_Token2 => 'GROUP',
1878: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1879: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1880: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1881: x_Token3 => 'REQ_DATE',
1882: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1875: x_Token1 => 'LINE_UOM',
1876: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1877: x_Token2 => 'GROUP',
1878: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1879: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1880: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1881: x_Token3 => 'REQ_DATE',
1882: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1883: x_Token4 => 'CUM_UOM',
1876: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1877: x_Token2 => 'GROUP',
1878: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1879: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1880: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1881: x_Token3 => 'REQ_DATE',
1882: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1883: x_Token4 => 'CUM_UOM',
1884: x_value4 => v_cum_record.cust_uom_code,
1887: nvl(g_ManageDemand_tab(v_current_rec).cust_model_serial_number,'NULL') || '-' ||
1888: nvl(g_ManageDemand_tab(v_current_rec).customer_job,'NULL'));
1889: --
1890: IF (l_debug <> -1) THEN
1891: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1892: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1893: rlm_core_sv.dpop(C_SDEBUG);
1894: END IF;
1895: --
1888: nvl(g_ManageDemand_tab(v_current_rec).customer_job,'NULL'));
1889: --
1890: IF (l_debug <> -1) THEN
1891: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1892: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1893: rlm_core_sv.dpop(C_SDEBUG);
1894: END IF;
1895: --
1896: ELSE
1889: --
1890: IF (l_debug <> -1) THEN
1891: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1892: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH_SEQ',g_ManageDemand_tab(v_current_rec).line_id);
1893: rlm_core_sv.dpop(C_SDEBUG);
1894: END IF;
1895: --
1896: ELSE
1897: --
1904: x_ScheduleLineId => g_ManageDemand_tab(v_current_rec).schedule_line_id,
1905: x_Token1 => 'LINE_UOM',
1906: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1907: x_Token2 => 'GROUP',
1908: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1909: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1910: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1911: x_Token3 => 'REQ_DATE',
1912: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1905: x_Token1 => 'LINE_UOM',
1906: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1907: x_Token2 => 'GROUP',
1908: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1909: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1910: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1911: x_Token3 => 'REQ_DATE',
1912: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1913: x_Token4 => 'CUM_UOM',
1906: x_value1 => g_ManageDemand_tab(v_current_rec).uom_code,
1907: x_Token2 => 'GROUP',
1908: x_value2 => rlm_core_sv.get_ship_from(x_Group_rec.ship_from_org_id) || '-' ||
1909: rlm_core_sv.get_ship_to(x_Group_rec.ship_to_address_id) || '-' ||
1910: rlm_core_sv.get_item_number(x_Group_rec.customer_item_id),
1911: x_Token3 => 'REQ_DATE',
1912: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1913: x_Token4 => 'CUM_UOM',
1914: x_value4 => v_cum_record.cust_uom_code,
1912: x_value3 => g_ManageDemand_tab(v_current_rec).start_date_time,
1913: x_Token4 => 'CUM_UOM',
1914: x_value4 => v_cum_record.cust_uom_code,
1915: x_Token5 => 'SCHEDULE_LINE',
1916: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1917: --
1918: IF (l_debug <> -1) THEN
1919: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1920: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1915: x_Token5 => 'SCHEDULE_LINE',
1916: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1917: --
1918: IF (l_debug <> -1) THEN
1919: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1920: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1921: rlm_core_sv.dpop(C_SDEBUG);
1922: END IF;
1923: --
1916: x_value5 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(v_current_rec).schedule_line_id));
1917: --
1918: IF (l_debug <> -1) THEN
1919: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1920: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1921: rlm_core_sv.dpop(C_SDEBUG);
1922: END IF;
1923: --
1924: END IF;
1917: --
1918: IF (l_debug <> -1) THEN
1919: rlm_core_sv.dlog(C_DEBUG,'Incoming Uom does not match with CUM key Uom');
1920: rlm_core_sv.dlog(C_DEBUG,'RLM_CUM_UOM_MISMATCH',g_ManageDemand_tab(v_current_rec).line_id);
1921: rlm_core_sv.dpop(C_SDEBUG);
1922: END IF;
1923: --
1924: END IF;
1925: --
1930: --
1931: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1932: --
1933: IF (l_debug <> -1) THEN
1934: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1935: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1936: END IF;
1937: --
1938: raise;
1931: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1932: --
1933: IF (l_debug <> -1) THEN
1934: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1935: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1936: END IF;
1937: --
1938: raise;
1939: --
2174: --
2175: BEGIN
2176: --
2177: IF (l_debug <> -1) THEN
2178: rlm_core_sv.dpush(C_SDEBUG,'ApplySourceRules');
2179: END IF;
2180: --
2181: --global_atp
2182: IF IsATPItem(x_group_rec.ship_from_org_id,
2190: --
2191: fnd_profile.get('RLM_MSC_MRP_ASSIGN_SET', v_assign_set);
2192: --
2193: IF (l_debug <> -1) THEN
2194: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set', v_assign_set);
2195: END IF;
2196: --
2197: IF NVL(v_assign_set, 'N') = 'N' THEN
2198: --
2212: AND organization_id = x_Group_rec.ship_from_org_id
2213: AND sr_instance_id IN (SELECT instance_id FROM mrp_ap_apps_instances);
2214: --
2215: IF (l_debug <> -1) THEN
2216: rlm_core_sv.dlog(C_DEBUG, 'sr_item_id', sr_item_id);
2217: END IF;
2218: --
2219: OPEN c_MSC_site;
2220: --
2234: WHEN NO_DATA_FOUND THEN
2235: --
2236: v_count_msc := 0;
2237: IF (l_debug <> -1) THEN
2238: rlm_core_sv.dlog(C_DEBUG, 'No data found for inventory item',
2239: x_Group_rec.inventory_item_id );
2240: END IF;
2241: --
2242: WHEN OTHERS THEN
2242: WHEN OTHERS THEN
2243: --
2244: v_count_msc := 0;
2245: IF (l_debug <> -1) THEN
2246: rlm_core_sv.dlog(C_DEBUG, 'In when others' || SUBSTR(SQLERRM,1,200));
2247: END IF;
2248: --
2249: END;
2250: --
2250: --
2251: v_source_level := 'SITE';
2252: --
2253: IF (l_debug <> -1) THEN
2254: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2255: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2256: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2257: END IF;
2258: --
2251: v_source_level := 'SITE';
2252: --
2253: IF (l_debug <> -1) THEN
2254: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2255: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2256: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2257: END IF;
2258: --
2259: IF (l_debug <> -1) THEN
2252: --
2253: IF (l_debug <> -1) THEN
2254: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2255: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2256: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2257: END IF;
2258: --
2259: IF (l_debug <> -1) THEN
2260: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_site: v_count_msc', v_count_msc);
2256: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2257: END IF;
2258: --
2259: IF (l_debug <> -1) THEN
2260: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_site: v_count_msc', v_count_msc);
2261: END IF;
2262: --
2263: IF v_count_msc = 1 THEN -- first level of hierarchy: MSC SITE --{
2264: --
2287: CLOSE c_MSC_item; --bug 4570658
2288: v_source_level := 'ITEM';
2289: --
2290: IF (l_debug <> -1) THEN
2291: rlm_core_sv.dlog(C_DEBUG, 'c_MSC_item: v_count_msc', v_count_msc);
2292: END IF;
2293: --
2294: IF v_count_msc = 1 THEN -- exactly one sourcing rule in ITEM --{
2295: --
2317: v_count_mrp := c_MRP_site%ROWCOUNT;
2318: v_source_level := 'SITE';
2319: --
2320: IF (l_debug <> -1) THEN
2321: rlm_core_sv.dlog(C_DEBUG, 'c_MRP_site: v_count_mrp', v_count_mrp);
2322: END IF;
2323: --
2324: IF v_count_mrp = 1 THEN --{
2325: --
2348: CLOSE c_MRP_item; --bug 4570658
2349: v_source_level := 'ITEM';
2350: --
2351: IF (l_debug <> -1) THEN
2352: rlm_core_sv.dlog(C_DEBUG, 'c_MRP_item: v_count_mrp', v_count_mrp);
2353: END IF;
2354: --
2355: IF v_count_mrp = 1 THEN --{
2356: --
2378: --
2379: END IF; --}
2380: --
2381: IF (l_debug <> -1) THEN
2382: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2379: END IF; --}
2380: --
2381: IF (l_debug <> -1) THEN
2382: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2387: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2380: --
2381: IF (l_debug <> -1) THEN
2382: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2387: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2388: END IF;
2381: IF (l_debug <> -1) THEN
2382: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2387: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2388: END IF;
2389: --
2382: rlm_core_sv.dlog(C_DEBUG, 'v_normal_source', v_normal_source);
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2387: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2388: END IF;
2389: --
2390: --open cursors based on source (MSC or MRP) and source level (SITE, ITEM, or PRFL).
2383: rlm_core_sv.dlog(C_DEBUG, 'v_assign_set_id', v_assign_set_id);
2384: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.inventory_item_id', x_Group_rec.inventory_item_id);
2385: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
2386: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_site_use_id', x_Group_rec.ship_to_site_use_id);
2387: rlm_core_sv.dlog(C_DEBUG, 'v_source_level', v_source_level);
2388: END IF;
2389: --
2390: --open cursors based on source (MSC or MRP) and source level (SITE, ITEM, or PRFL).
2391: --
2418: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR rlm_dp_sv.g_dsp_start_time < effective_date); --Bugfix 6051397
2419: --Bugfix 10053830 End
2420: --
2421: IF (l_debug <> -1) THEN
2422: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum sourcing level', v_srcng_lvl);
2423: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum Rank', v_rank);
2424: END IF;
2425: --
2426: FOR c_rec IN c_MSC_site_profile(sr_item_id,
2419: --Bugfix 10053830 End
2420: --
2421: IF (l_debug <> -1) THEN
2422: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum sourcing level', v_srcng_lvl);
2423: rlm_core_sv.dlog(C_DEBUG, 'MSC Site: Minimum Rank', v_rank);
2424: END IF;
2425: --
2426: FOR c_rec IN c_MSC_site_profile(sr_item_id,
2427: x_Group_rec.ship_from_org_id,
2457: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR rlm_dp_sv.g_dsp_start_time < effective_date); --Bugfix 6051397
2458: --Bugfix 10053830 End
2459: --
2460: IF (l_debug <> -1) THEN
2461: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum sourcing level', v_srcng_lvl);
2462: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum Rank', v_rank);
2463: END IF;
2464: --
2465: FOR c_rec IN c_MSC_item_profile(sr_item_id,
2458: --Bugfix 10053830 End
2459: --
2460: IF (l_debug <> -1) THEN
2461: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum sourcing level', v_srcng_lvl);
2462: rlm_core_sv.dlog(C_DEBUG, 'MSC Item: Minimum Rank', v_rank);
2463: END IF;
2464: --
2465: FOR c_rec IN c_MSC_item_profile(sr_item_id,
2466: x_Group_rec.ship_from_org_id,
2496: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR rlm_dp_sv.g_dsp_start_time < effective_date); --Bugfix 6051397
2497: --Bugfix 10053830 End
2498: --
2499: IF (l_debug <> -1) THEN
2500: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum sourcing level', v_srcng_lvl);
2501: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum Rank', v_rank);
2502: END IF;
2503: --
2504: FOR c_rec IN c_MRP_site_profile(x_Group_rec.inventory_item_id,
2497: --Bugfix 10053830 End
2498: --
2499: IF (l_debug <> -1) THEN
2500: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum sourcing level', v_srcng_lvl);
2501: rlm_core_sv.dlog(C_DEBUG, 'MRP Site: Minimum Rank', v_rank);
2502: END IF;
2503: --
2504: FOR c_rec IN c_MRP_site_profile(x_Group_rec.inventory_item_id,
2505: x_Group_rec.ship_from_org_id,
2536: NVL(disable_date, TO_DATE('31/12/4712', 'DD/MM/YYYY')) OR rlm_dp_sv.g_dsp_start_time < effective_date); --Bugfix 6051397
2537: --Bugfix 10053830 End
2538: --
2539: IF (l_debug <> -1) THEN
2540: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum sourcing level', v_srcng_lvl);
2541: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum Rank', v_rank);
2542: END IF;
2543: --
2544: FOR c_rec IN c_MRP_item_profile(x_Group_rec.inventory_item_id,
2537: --Bugfix 10053830 End
2538: --
2539: IF (l_debug <> -1) THEN
2540: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum sourcing level', v_srcng_lvl);
2541: rlm_core_sv.dlog(C_DEBUG, 'MRP Item: Minimum Rank', v_rank);
2542: END IF;
2543: --
2544: FOR c_rec IN c_MRP_item_profile(x_Group_rec.inventory_item_id,
2545: x_Group_rec.ship_from_org_id,
2562: --
2563: END IF; --}
2564: --
2565: IF (l_debug <> -1) THEN
2566: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab.COUNT',
2567: g_ManageDemand_tab.COUNT);
2568: END IF;
2569: --
2570: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2569: --
2570: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2571: --
2572: IF (l_debug <> -1) THEN
2573: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2574: g_ManageDemand_tab(i).qty_type_code);
2575: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2576: x_Group_rec.setup_terms_rec.cum_control_code);
2577: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2571: --
2572: IF (l_debug <> -1) THEN
2573: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2574: g_ManageDemand_tab(i).qty_type_code);
2575: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2576: x_Group_rec.setup_terms_rec.cum_control_code);
2577: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2578: x_Group_rec.setup_terms_rec.cum_org_level_code);
2579: END IF;
2573: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').qty_type_code',
2574: g_ManageDemand_tab(i).qty_type_code);
2575: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_control_code',
2576: x_Group_rec.setup_terms_rec.cum_control_code);
2577: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.setup_terms_rec.cum_org_level_code',
2578: x_Group_rec.setup_terms_rec.cum_org_level_code);
2579: END IF;
2580: --
2581:
2595: IF v_Ind_Source = 0 THEN
2596: v_Ind_Source := v_Ind_Source + 1;
2597: x_Source_Tab(v_Ind_Source).allocation_percent := 100;
2598: x_Source_Tab(v_Ind_Source).organization_id := x_Group_rec.ship_from_org_id;
2599: rlm_core_sv.dlog(C_DEBUG, 'No Sourcing Rule found for this line ');
2600: END IF;
2601: --Bugfix 6051397 End
2602:
2603:
2609: 'BILL_TO_ALL_SHIP_FROMS',
2610: 'DELIVER_TO_ALL_SHIP_FROMS') THEN
2611: --
2612: IF (l_debug <> -1) THEN
2613: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUMORGLEVEL_INVALID');
2614: --
2615: --bug 1497386 fix: schedule line id is passed instead of null
2616: --
2617: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2613: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUMORGLEVEL_INVALID');
2614: --
2615: --bug 1497386 fix: schedule line id is passed instead of null
2616: --
2617: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2618: g_ManageDemand_tab(i).schedule_line_id );
2619: END IF;
2620: --
2621: rlm_message_sv.app_error(
2629: x_OrderLineId => NULL,
2630: --x_ErrorText => 'Sourcing Rules with CUM Organization Level
2631: --will result in cum discrepancies',
2632: x_Token1 => 'CUMORGLEVEL',
2633: x_value1 => rlm_core_sv.get_lookup_meaning(
2634: 'RLM_CUM_ORG_LEVEL',
2635: x_Group_rec.setup_terms_rec.cum_org_level_code));
2636:
2637: --
2648: v_SumQty := 0;
2649: v_org_found := FALSE;
2650: --
2651: IF (l_debug <> -1) THEN
2652: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab.COUNT', x_Source_tab.COUNT);
2653: END IF;
2654: --
2655: FOR j IN 1..x_Source_tab.COUNT LOOP
2656: --
2654: --
2655: FOR j IN 1..x_Source_tab.COUNT LOOP
2656: --
2657: IF (l_debug <> -1) THEN
2658: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_Tab(' || i || ').ship_from_org_id', g_ManageDemand_Tab(i).ship_from_org_id);
2659: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').organization_id', x_Source_tab(j).organization_id);
2660: END IF;
2661: --
2662: IF g_ManageDemand_Tab(i).ship_from_org_id =
2655: FOR j IN 1..x_Source_tab.COUNT LOOP
2656: --
2657: IF (l_debug <> -1) THEN
2658: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_Tab(' || i || ').ship_from_org_id', g_ManageDemand_Tab(i).ship_from_org_id);
2659: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').organization_id', x_Source_tab(j).organization_id);
2660: END IF;
2661: --
2662: IF g_ManageDemand_Tab(i).ship_from_org_id =
2663: x_Source_tab(j).organization_id THEN
2662: IF g_ManageDemand_Tab(i).ship_from_org_id =
2663: x_Source_tab(j).organization_id THEN
2664: --
2665: IF (l_debug <> -1) THEN
2666: rlm_core_sv.dlog(C_DEBUG, 'Org Found in Source Rules');
2667: END IF;
2668: --
2669: v_org_found := TRUE;
2670: --
2668: --
2669: v_org_found := TRUE;
2670: --
2671: IF (l_debug <> -1) THEN
2672: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab(' || j || ').allocation_percent',
2673: x_Source_tab(j).allocation_percent);
2674: END IF;
2675: --
2676: IF x_Source_tab(j).allocation_percent = 0 THEN
2688: --
2689: g_ManageDemand_tab(i).line_source := 'SOURCED';
2690: --
2691: IF (l_debug <> -1) THEN
2692: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2693: g_ManageDemand_tab(i).primary_quantity);
2694: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').line_source',
2695: g_ManageDemand_tab(i).line_source);
2696: END IF;
2690: --
2691: IF (l_debug <> -1) THEN
2692: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2693: g_ManageDemand_tab(i).primary_quantity);
2694: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').line_source',
2695: g_ManageDemand_tab(i).line_source);
2696: END IF;
2697: --
2698: v_SumQty := v_SumQty +
2698: v_SumQty := v_SumQty +
2699: TRUNC(v_OrigQty * x_Source_tab(j).allocation_percent/100);
2700: --
2701: IF (l_debug <> -1) THEN
2702: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2703: END IF;
2704: --
2705: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
2706: --
2708: --
2709: ELSIF x_Source_tab(j).allocation_percent <> 0 THEN
2710: -- Add a new line at the end
2711: IF (l_debug <> -1) THEN
2712: rlm_core_sv.dlog(C_DEBUG, 'x_Source_tab('|| j || ').organization_id',
2713: x_Source_tab(j).organization_id);
2714: END IF;
2715: --
2716: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT + 1) :=
2727: --
2728: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source := 'SOURCED';
2729: --
2730: IF (l_debug <> -1) THEN
2731: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2732: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2733: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2734: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2735: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2729: --
2730: IF (l_debug <> -1) THEN
2731: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2732: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2733: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2734: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2735: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2736: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2737: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2731: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.primary_quantity',
2732: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2733: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2734: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2735: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2736: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2737: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2738: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).schedule_item_num);
2739: END IF;
2733: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.ship_from_org_id',
2734: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).ship_from_org_id);
2735: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.line_source',
2736: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).line_source);
2737: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.schedule_item_num',
2738: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).schedule_item_num);
2739: END IF;
2740: --
2741: v_SumQty := v_SumQty +
2741: v_SumQty := v_SumQty +
2742: TRUNC(v_OrigQty * x_Source_tab(j).allocation_percent/100);
2743: --
2744: IF (l_debug <> -1) THEN
2745: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2746: END IF;
2747: --
2748: SetOperation(x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT),k_INSERT);
2749: --
2754: -- Now add the remaining quantity the truncated quantity to the
2755: -- saveIndex record
2756: --
2757: IF (l_debug <> -1) THEN
2758: rlm_core_sv.dlog(C_DEBUG, 'v_OrigQty', v_OrigQty);
2759: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2760: END IF;
2761: --
2762: IF NOT v_org_found THEN
2755: -- saveIndex record
2756: --
2757: IF (l_debug <> -1) THEN
2758: rlm_core_sv.dlog(C_DEBUG, 'v_OrigQty', v_OrigQty);
2759: rlm_core_sv.dlog(C_DEBUG, 'v_SumQty', v_SumQty);
2760: END IF;
2761: --
2762: IF NOT v_org_found THEN
2763: --
2767: x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity +
2768: v_OrigQty - v_SumQty;
2769: --
2770: IF (l_debug <> -1) THEN
2771: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(COUNT).primary_quantity'
2772: ,x_SourcedDemand_Tab(x_SourcedDemand_Tab.COUNT).primary_quantity);
2773: END IF;
2774: --
2775: ELSE
2777: g_ManageDemand_tab(i).primary_quantity :=
2778: g_ManageDemand_tab(i).primary_quantity + v_OrigQty - v_SumQty;
2779: --
2780: IF (l_debug <> -1) THEN
2781: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2782: g_ManageDemand_tab(i).primary_quantity);
2783: END IF;
2784: --
2785: END IF;
2784: --
2785: END IF;
2786: --
2787: IF (l_debug <> -1) THEN
2788: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(' || i || ').primary_quantity',
2789: g_ManageDemand_tab(i).primary_quantity);
2790: END IF;
2791: --
2792: ELSE
2791: --
2792: ELSE
2793: --
2794: IF (l_debug <> -1) THEN
2795: rlm_core_sv.dlog(C_DEBUG, 'Line already sourced need not apply source rules ');
2796: END IF;
2797: --
2798: END IF;
2799: --
2799: --
2800: END LOOP;
2801: --
2802: IF (l_debug <> -1) THEN
2803: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab.Count',
2804: x_SourcedDemand_Tab.Count);
2805: END IF;
2806: --
2807: IF x_SourcedDemand_Tab.COUNT > 0 THEN
2819: v_tmpGroup_rec.ship_to_address_id :=
2820: x_SourcedDemand_Tab(k).ship_to_address_id;
2821: --
2822: IF (l_debug <> -1) THEN
2823: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2824: x_SourcedDemand_Tab(k).ship_from_org_id);
2825: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2826: x_SourcedDemand_Tab(k).customer_item_id);
2827: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2821: --
2822: IF (l_debug <> -1) THEN
2823: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2824: x_SourcedDemand_Tab(k).ship_from_org_id);
2825: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2826: x_SourcedDemand_Tab(k).customer_item_id);
2827: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2828: x_SourcedDemand_Tab(k).ship_to_address_id);
2829: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2823: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2824: x_SourcedDemand_Tab(k).ship_from_org_id);
2825: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2826: x_SourcedDemand_Tab(k).customer_item_id);
2827: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2828: x_SourcedDemand_Tab(k).ship_to_address_id);
2829: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2830: x_SourcedDemand_Tab(k).line_id);
2831: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2825: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').customer_item_id',
2826: x_SourcedDemand_Tab(k).customer_item_id);
2827: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2828: x_SourcedDemand_Tab(k).ship_to_address_id);
2829: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2830: x_SourcedDemand_Tab(k).line_id);
2831: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2832: x_SourcedDemand_Tab(k).schedule_line_id);
2833: END IF;
2827: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_to_address_id',
2828: x_SourcedDemand_Tab(k).ship_to_address_id);
2829: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').line_id',
2830: x_SourcedDemand_Tab(k).line_id);
2831: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').schedule_line_id',
2832: x_SourcedDemand_Tab(k).schedule_line_id);
2833: END IF;
2834: --
2835: -- This is done so that the inventory item id is re calculated in orgDependentIds.
2853: rlm_validatedemand_sv.k_MRP_SOURCED);
2854: --
2855: --
2856: IF (l_debug <> -1) THEN
2857: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2858: x_SourcedDemand_Tab(k).process_status);
2859: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2860: x_SourcedDemand_Tab(k).ship_from_org_id);
2861: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2855: --
2856: IF (l_debug <> -1) THEN
2857: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2858: x_SourcedDemand_Tab(k).process_status);
2859: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2860: x_SourcedDemand_Tab(k).ship_from_org_id);
2861: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2862: x_SourcedDemand_Tab(k).order_header_id);
2863: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2857: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').process_status',
2858: x_SourcedDemand_Tab(k).process_status);
2859: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2860: x_SourcedDemand_Tab(k).ship_from_org_id);
2861: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2862: x_SourcedDemand_Tab(k).order_header_id);
2863: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2864: x_SourcedDemand_Tab(k).blanket_number);
2865: END IF;
2859: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').ship_from_org_id',
2860: x_SourcedDemand_Tab(k).ship_from_org_id);
2861: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').order_header_id',
2862: x_SourcedDemand_Tab(k).order_header_id);
2863: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2864: x_SourcedDemand_Tab(k).blanket_number);
2865: END IF;
2866: --
2867: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2863: rlm_core_sv.dlog(C_DEBUG, 'x_SourcedDemand_Tab(' || k || ').blanket_number',
2864: x_SourcedDemand_Tab(k).blanket_number);
2865: END IF;
2866: --
2867: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2868: --
2869: IF (l_debug <> -1) THEN
2870: rlm_core_sv.dpop(C_SDEBUG);
2871: END IF;
2866: --
2867: IF x_SourcedDemand_tab(k).process_status = rlm_core_sv.k_PS_ERROR THEN
2868: --
2869: IF (l_debug <> -1) THEN
2870: rlm_core_sv.dpop(C_SDEBUG);
2871: END IF;
2872: --
2873: RAISE e_GroupError;
2874: --
2878: --
2879: END IF;
2880: --
2881: IF (l_debug <> -1) THEN
2882: rlm_core_sv.dpop(C_SDEBUG);
2883: END IF;
2884: --
2885: EXCEPTION
2886: --
2887: --global_atp
2888: WHEN ByPassATP THEN
2889: --
2890: IF (l_debug <> -1) THEN
2891: rlm_core_sv.dlog(C_DEBUG,'No need to apply sourcing rule to ATP item');
2892: rlm_core_sv.dpop(C_SDEBUG);
2893: END IF;
2894:
2895: WHEN e_GroupError THEN
2888: WHEN ByPassATP THEN
2889: --
2890: IF (l_debug <> -1) THEN
2891: rlm_core_sv.dlog(C_DEBUG,'No need to apply sourcing rule to ATP item');
2892: rlm_core_sv.dpop(C_SDEBUG);
2893: END IF;
2894:
2895: WHEN e_GroupError THEN
2896: --
2894:
2895: WHEN e_GroupError THEN
2896: --
2897: IF (l_debug <> -1) THEN
2898: rlm_core_sv.dpop(C_SDEBUG);
2899: END IF;
2900: --
2901: RAISE;
2902:
2903:
2904: WHEN e_NoSrcRulesSetup THEN
2905: --
2906: IF (l_debug <> -1) THEN
2907: rlm_core_sv.dlog(C_DEBUG,'No Source rules setup for Inv Item ',
2908: x_group_rec.inventory_item_id);
2909: rlm_core_sv.dpop(C_SDEBUG);
2910: END IF;
2911: --
2905: --
2906: IF (l_debug <> -1) THEN
2907: rlm_core_sv.dlog(C_DEBUG,'No Source rules setup for Inv Item ',
2908: x_group_rec.inventory_item_id);
2909: rlm_core_sv.dpop(C_SDEBUG);
2910: END IF;
2911: --
2912: WHEN OTHERS THEN
2913: --
2913: --
2914: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2915: v_Progress);
2916: IF (l_debug <> -1) THEN
2917: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2918: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2919: END IF;
2920: --
2921: RAISE;
2914: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2915: v_Progress);
2916: IF (l_debug <> -1) THEN
2917: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2918: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2919: END IF;
2920: --
2921: RAISE;
2922:
2944:
2945: BEGIN
2946: --
2947: IF (l_debug <> -1) THEN
2948: rlm_core_sv.dpush(C_SDEBUG,'CalculateShipDate');
2949: END IF;
2950: --
2951: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
2952: --
2959: --
2960: IF g_ManageDemand_tab(i).request_date IS NOT NULL THEN
2961: --
2962: IF (l_debug <> -1) THEN
2963: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2964: g_ManageDemand_tab(i).request_date);
2965: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2966: g_ManageDemand_tab(i).schedule_date);
2967: 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');
2961: --
2962: IF (l_debug <> -1) THEN
2963: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2964: g_ManageDemand_tab(i).request_date);
2965: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2966: g_ManageDemand_tab(i).schedule_date);
2967: 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');
2968: END IF;
2969: --
2963: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date ',
2964: g_ManageDemand_tab(i).request_date);
2965: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date before',
2966: g_ManageDemand_tab(i).schedule_date);
2967: 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');
2968: END IF;
2969: --
2970: IF v_ATP = TRUE THEN
2971: --
2974: --
2975: END IF;
2976: --
2977: IF (l_debug <> -1) THEN
2978: rlm_core_sv.dlog(C_DEBUG,'v_ATP', v_ATP);
2979: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date after',
2980: g_ManageDemand_tab(i).schedule_date);
2981: END IF;
2982: --
2975: END IF;
2976: --
2977: IF (l_debug <> -1) THEN
2978: rlm_core_sv.dlog(C_DEBUG,'v_ATP', v_ATP);
2979: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date after',
2980: g_ManageDemand_tab(i).schedule_date);
2981: END IF;
2982: --
2983: ELSE
3013: v_Input_rec.exclude_non_workdays_flag := x_Group_rec.setup_terms_rec.exclude_non_workdays_flag;
3014:
3015: --
3016: IF (l_debug <> -1) THEN
3017: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
3018: v_Input_rec.ShipDeliveryRuleName);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3015: --
3016: IF (l_debug <> -1) THEN
3017: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
3018: v_Input_rec.ShipDeliveryRuleName);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3016: IF (l_debug <> -1) THEN
3017: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
3018: v_Input_rec.ShipDeliveryRuleName);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3017: rlm_core_sv.dlog(C_DEBUG,'ShipDeliveryRuleName ',
3018: v_Input_rec.ShipDeliveryRuleName);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3018: v_Input_rec.ShipDeliveryRuleName);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3019: rlm_core_sv.dlog(C_DEBUG,'CustomerId ', v_Input_rec.CustomerId);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3020: rlm_core_sv.dlog(C_DEBUG,'DateTypeCode ', v_Input_rec.DateTypeCode);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3021: rlm_core_sv.dlog(C_DEBUG,'StartDateTime ', v_Input_rec.StartDateTime);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3022: rlm_core_sv.dlog(C_DEBUG,'ShipToAddressId ', v_Input_rec.ShipToAddressId);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3023: rlm_core_sv.dlog(C_DEBUG,'ShipFromOrgId ', v_Input_rec.ShipFromOrgId);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3024: rlm_core_sv.dlog(C_DEBUG,'CustomerItemId ', v_Input_rec.CustomerItemId);
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3025: rlm_core_sv.dlog(C_DEBUG,'ATPITemFlag ', v_Input_rec.ATPItemFlag);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3026: rlm_core_sv.dlog(C_DEBUG,'PrimaryQuantity ', v_Input_rec.PrimaryQuantity);
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3027: rlm_core_sv.dlog(C_DEBUG,'EndDateTime ', v_Input_rec.EndDateTime);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3035: v_Input_rec.supplier_shp_calendar_cd);
3028: rlm_core_sv.dlog(C_DEBUG,'DefaultSDP ', v_Input_rec.DefaultSDP);
3029: rlm_core_sv.dlog(C_DEBUG,'ship_method ', v_Input_rec.ship_method);
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3035: v_Input_rec.supplier_shp_calendar_cd);
3036: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
3030: rlm_core_sv.dlog(C_DEBUG,'intransit_time ', v_Input_rec.intransit_time);
3031: rlm_core_sv.dlog(C_DEBUG,'time_uom_code ', v_Input_rec.time_uom_code);
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3035: v_Input_rec.supplier_shp_calendar_cd);
3036: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
3037: v_Input_rec.sched_horizon_start_date);
3038: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
3032: rlm_core_sv.dlog(C_DEBUG,'customer_rcv_calendar_cd ',
3033: v_Input_rec.customer_rcv_calendar_cd);
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3035: v_Input_rec.supplier_shp_calendar_cd);
3036: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
3037: v_Input_rec.sched_horizon_start_date);
3038: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
3039: v_Input_rec.use_edi_sdp_code_flag);
3040: END IF;
3034: rlm_core_sv.dlog(C_DEBUG,'supplier_shp_calendar_cd ',
3035: v_Input_rec.supplier_shp_calendar_cd);
3036: rlm_core_sv.dlog(C_DEBUG,'sched_horizon_start_date ',
3037: v_Input_rec.sched_horizon_start_date);
3038: rlm_core_sv.dlog(C_DEBUG,'use_edi_sdp_code_flag ',
3039: v_Input_rec.use_edi_sdp_code_flag);
3040: END IF;
3041: --
3042: rlm_tpa_sv.calc_scheduled_ship_date(v_Input_rec,
3044: v_message_tab,
3045: v_ReturnStatus);
3046: --
3047: IF (l_debug <> -1) THEN
3048: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus ', v_ReturnStatus);
3049: rlm_core_sv.dlog(C_DEBUG,'v_message_tab.COUNT ', v_message_tab.COUNT);
3050: END IF;
3051: --
3052: FOR j in 1..v_message_tab.COUNT LOOP
3045: v_ReturnStatus);
3046: --
3047: IF (l_debug <> -1) THEN
3048: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus ', v_ReturnStatus);
3049: rlm_core_sv.dlog(C_DEBUG,'v_message_tab.COUNT ', v_message_tab.COUNT);
3050: END IF;
3051: --
3052: FOR j in 1..v_message_tab.COUNT LOOP
3053: --
3066: x_Token1 => 'ERROR',
3067: x_value1 => v_message_tab(j).ErrMessage);
3068: --
3069: IF (l_debug <> -1) THEN
3070: rlm_core_sv.dlog(C_DEBUG,v_message_tab(j).ErrMessage);
3071: END IF;
3072: --
3073: ELSIF v_message_tab(j).ErrType = 0 THEN
3074: --
3085: x_Token1 => 'ERROR',
3086: x_value1 => v_message_tab(j).ErrMessage);
3087: --
3088: IF (l_debug <> -1) THEN
3089: rlm_core_sv.dlog(C_DEBUG,v_message_tab(j).ErrMessage);
3090: END IF;
3091: --
3092: END IF;
3093: --
3096: IF ((v_ReturnStatus = 2) or
3097: (v_ReturnStatus = RLM_SHIP_DELIVERY_PATTERN_SV.g_RaiseErr)) THEN
3098: --
3099: IF (l_debug <> -1) THEN
3100: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus',v_ReturnStatus);
3101: rlm_core_sv.dlog(C_DEBUG,'RLM_CALCULATE_SHIP_DATE_FAILED');
3102: END IF;
3103: --
3104: raise e_SDPFailed;
3097: (v_ReturnStatus = RLM_SHIP_DELIVERY_PATTERN_SV.g_RaiseErr)) THEN
3098: --
3099: IF (l_debug <> -1) THEN
3100: rlm_core_sv.dlog(C_DEBUG,'v_ReturnStatus',v_ReturnStatus);
3101: rlm_core_sv.dlog(C_DEBUG,'RLM_CALCULATE_SHIP_DATE_FAILED');
3102: END IF;
3103: --
3104: raise e_SDPFailed;
3105: --
3105: --
3106: ELSE -- the return status not error
3107: --
3108: IF (l_debug <> -1) THEN
3109: rlm_core_sv.dlog(C_DEBUG,'v_Output_tab.COUNT',v_Output_tab.COUNT);
3110: END IF;
3111: --
3112: FOR j IN 1..v_Output_tab.COUNT LOOP
3113: -- The first line should be updated the rest inserted
3114: --
3115: IF j = 1 THEN
3116: --
3117: IF (l_debug <> -1) THEN
3118: rlm_core_sv.dlog(C_DEBUG,'updating the first line');
3119: END IF;
3120: --
3121: g_ManageDemand_tab(i).request_date :=
3122: v_Output_tab(j).PlannedShipmentDate;
3120: --
3121: g_ManageDemand_tab(i).request_date :=
3122: v_Output_tab(j).PlannedShipmentDate;
3123: IF (l_debug <> -1) THEN
3124: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.request_date',
3125: g_ManageDemand_tab(i).request_date);
3126: END IF;
3127: --
3128: IF v_input_rec.ATPItemFlag = TRUE THEN
3136: --
3137: END IF;
3138: --
3139: IF (l_debug <> -1) THEN
3140: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.SCHEDULE_DATE',
3141: g_ManageDemand_tab(i).SCHEDULE_DATE);
3142: END IF;
3143: --
3144: g_ManageDemand_tab(i).primary_quantity :=
3144: g_ManageDemand_tab(i).primary_quantity :=
3145: v_Output_tab(j).PrimaryQuantity;
3146: --
3147: IF (l_debug <> -1) THEN
3148: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.primary_quantity',
3149: g_ManageDemand_tab(i).primary_quantity);
3150: END IF;
3151: --
3152: g_ManageDemand_tab(i).item_detail_subtype :=
3152: g_ManageDemand_tab(i).item_detail_subtype :=
3153: v_Output_tab(j).ItemDetailSubtype;
3154: --
3155: IF (l_debug <> -1) THEN
3156: rlm_core_sv.dlog(C_DEBUG,'item_detail_subtype',
3157: g_ManageDemand_tab(i).item_detail_subtype);
3158: END IF;
3159: --
3160: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3159: --
3160: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3161: --
3162: IF (l_debug <> -1) THEN
3163: rlm_core_sv.dlog(C_DEBUG,'Set operation to update');
3164: END IF;
3165: --
3166: ELSE -- J<> 1 i.e. there are multiple lines in output tab
3167: --
3167: --
3168: g_ManageDemand_tab(g_ManageDemand_tab.COUNT+1):=g_ManageDemand_tab(i);
3169: --
3170: IF (l_debug <> -1) THEN
3171: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand.Count',
3172: g_ManageDemand_tab.COUNT);
3173: END IF;
3174: --
3175: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE :=
3175: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE :=
3176: v_Output_tab(j).PlannedShipmentDate;
3177: --
3178: IF (l_debug <> -1) THEN
3179: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.REQUEST_DATE',
3180: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).REQUEST_DATE);
3181: END IF;
3182: --
3183: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE :=
3183: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE :=
3184: v_Output_tab(j).PlannedShipmentDate;
3185: --
3186: IF (l_debug <> -1) THEN
3187: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.SCHEDULE_DATE',
3188: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).SCHEDULE_DATE);
3189: END IF;
3190: --
3191: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity :=
3191: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity :=
3192: v_Output_tab(j).PrimaryQuantity;
3193: --
3194: IF (l_debug <> -1) THEN
3195: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.primary_quantity',
3196: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
3197: END IF;
3198: --
3199: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype :=
3199: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype :=
3200: v_Output_tab(j).ItemDetailSubtype;
3201: --
3202: IF (l_debug <> -1) THEN
3203: rlm_core_sv.dlog(C_DEBUG,'item_detail_subtype',
3204: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).item_detail_subtype);
3205: END IF;
3206: --
3207: SetOperation(g_ManageDemand_tab(g_ManageDemand_tab.COUNT), k_INSERT);
3206: --
3207: SetOperation(g_ManageDemand_tab(g_ManageDemand_tab.COUNT), k_INSERT);
3208: --
3209: IF (l_debug <> -1) THEN
3210: rlm_core_sv.dlog(C_DEBUG,'Set operation to insert');
3211: END IF;
3212: --
3213: IF v_Output_tab(j).ReturnMessage IS NOT NULL THEN
3214: --
3212: --
3213: IF v_Output_tab(j).ReturnMessage IS NOT NULL THEN
3214: --
3215: IF (l_debug <> -1) THEN
3216: rlm_core_sv.dlog(C_DEBUG,'Return message from SDP APIs: ',
3217: v_Output_tab(j).ReturnMessage);
3218: END IF;
3219: --
3220: END IF;
3229: --
3230: END LOOP;
3231: --
3232: IF (l_debug <> -1) THEN
3233: rlm_core_sv.dpop(C_SDEBUG);
3234: END IF;
3235: --
3236: EXCEPTION
3237: --
3237: --
3238: WHEN e_SDPFailed THEN
3239: --
3240: IF (l_debug <> -1) THEN
3241: rlm_core_sv.dpop(C_SDEBUG);
3242: END IF;
3243: --
3244: raise e_GroupError;
3245: --
3245: --
3246: WHEN NO_DATA_FOUND THEN
3247: --
3248: IF (l_debug <> -1) THEN
3249: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
3250: rlm_core_sv.dpop(C_SDEBUG);
3251: END IF;
3252: --
3253: WHEN OTHERS THEN
3246: WHEN NO_DATA_FOUND THEN
3247: --
3248: IF (l_debug <> -1) THEN
3249: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
3250: rlm_core_sv.dpop(C_SDEBUG);
3251: END IF;
3252: --
3253: WHEN OTHERS THEN
3254: --
3252: --
3253: WHEN OTHERS THEN
3254: --
3255: IF (l_debug <> -1) THEN
3256: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3257: rlm_core_sv.dpop(C_SDEBUG);
3258: END IF;
3259: --
3260: raise;
3253: WHEN OTHERS THEN
3254: --
3255: IF (l_debug <> -1) THEN
3256: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3257: rlm_core_sv.dpop(C_SDEBUG);
3258: END IF;
3259: --
3260: raise;
3261: END CalculateShipDate;
3293:
3294: BEGIN
3295: --
3296: IF (l_debug <> -1) THEN
3297: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3298: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3299: x_Sched_rec.Schedule_type);
3300: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3301: TRUNC(SYSDATE));
3294: BEGIN
3295: --
3296: IF (l_debug <> -1) THEN
3297: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3298: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3299: x_Sched_rec.Schedule_type);
3300: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3301: TRUNC(SYSDATE));
3302: rlm_core_sv.dlog(C_DEBUG,'TRUNC(rlm_dp_sv.g_dsp_start_time)',
3296: IF (l_debug <> -1) THEN
3297: rlm_core_sv.dpush(C_SDEBUG,'ApplyFFFFences');
3298: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3299: x_Sched_rec.Schedule_type);
3300: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3301: TRUNC(SYSDATE));
3302: rlm_core_sv.dlog(C_DEBUG,'TRUNC(rlm_dp_sv.g_dsp_start_time)',
3303: TRUNC(rlm_dp_sv.g_dsp_start_time)); --Bugfix 10053830
3304: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3298: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.Schedule_type',
3299: x_Sched_rec.Schedule_type);
3300: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3301: TRUNC(SYSDATE));
3302: rlm_core_sv.dlog(C_DEBUG,'TRUNC(rlm_dp_sv.g_dsp_start_time)',
3303: TRUNC(rlm_dp_sv.g_dsp_start_time)); --Bugfix 10053830
3304: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3305: x_Sched_rec.sched_horizon_start_date);
3306: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3300: rlm_core_sv.dlog(C_DEBUG,'TRUNC(SYSDATE)',
3301: TRUNC(SYSDATE));
3302: rlm_core_sv.dlog(C_DEBUG,'TRUNC(rlm_dp_sv.g_dsp_start_time)',
3303: TRUNC(rlm_dp_sv.g_dsp_start_time)); --Bugfix 10053830
3304: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3305: x_Sched_rec.sched_horizon_start_date);
3306: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3307: x_Sched_rec.sched_horizon_end_date);
3308: END IF;
3302: rlm_core_sv.dlog(C_DEBUG,'TRUNC(rlm_dp_sv.g_dsp_start_time)',
3303: TRUNC(rlm_dp_sv.g_dsp_start_time)); --Bugfix 10053830
3304: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_start_date',
3305: x_Sched_rec.sched_horizon_start_date);
3306: rlm_core_sv.dlog(C_DEBUG,' x_Sched_rec.sched_horizon_end_date',
3307: x_Sched_rec.sched_horizon_end_date);
3308: END IF;
3309: --
3310: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
3309: --
3310: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
3311:
3312: IF (l_debug <> -1) THEN
3313: rlm_core_sv.dlog(C_DEBUG,'PLANNING');
3314: END IF;
3315: --
3316: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.pln_frozen_day_from;
3317: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.pln_frozen_day_to;
3326:
3327: ELSIF x_Sched_rec.Schedule_type = k_SHIPPING THEN
3328: --
3329: IF (l_debug <> -1) THEN
3330: rlm_core_sv.dlog(C_DEBUG,'SHIPPING');
3331: END IF;
3332: --
3333: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.shp_frozen_day_from;
3334: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.shp_frozen_day_to;
3341:
3342: ELSIF x_Sched_rec.Schedule_type = k_SEQUENCED THEN
3343: --
3344: IF (l_debug <> -1) THEN
3345: rlm_core_sv.dlog(C_DEBUG,'SEQUENCED');
3346: END IF;
3347: --
3348: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.seq_frozen_day_from;
3349: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.seq_frozen_day_to;
3356:
3357: END IF;
3358:
3359: IF (l_debug <> -1) THEN
3360: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3357: END IF;
3358:
3359: IF (l_debug <> -1) THEN
3360: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3358:
3359: IF (l_debug <> -1) THEN
3360: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3359: IF (l_debug <> -1) THEN
3360: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3367: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3360: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayFrom',v_FrozenFenceDayFrom);
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3367: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3368: END IF;
3361: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDayTo',v_FrozenFenceDayTo);
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3367: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3368: END IF;
3369:
3362: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3367: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3368: END IF;
3369:
3370: IF v_FrozenFenceDayFrom IS NOT NULL THEN
3363: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3364: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3365: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayTo',v_ForecastFenceDayTo);
3366: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3367: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayTo',v_MRPFenceDayTo);
3368: END IF;
3369:
3370: IF v_FrozenFenceDayFrom IS NOT NULL THEN
3371: v_FrozenFenceDays := v_FrozenFenceDayTo - v_FrozenFenceDayFrom + 1;
3376: IF v_FirmFenceDayFrom IS NOT NULL THEN
3377: IF v_FirmFenceDayFrom <> 0 THEN
3378: --
3379: IF (l_debug <> -1) THEN
3380: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFrom',v_FirmFenceDayFrom);
3381: END IF;
3382: --
3383: v_FirmFenceDays := v_FirmFenceDayTo - v_FirmFenceDayFrom + 1;
3384: ELSE
3391: IF v_ForecastFenceDayFrom IS NOT NULL THEN
3392: IF v_ForecastFenceDayFrom <> 0 THEN
3393: --
3394: IF (l_debug <> -1) THEN
3395: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDayFrom',v_ForecastFenceDayFrom);
3396: END IF;
3397: --
3398: v_ForecastFenceDays := v_ForecastFenceDayTo - v_ForecastFenceDayFrom + 1;
3399: ELSE
3406: IF v_MRPFenceDayFrom IS NOT NULL THEN
3407: IF v_MRPFenceDayFrom <> 0 THEN
3408: --
3409: IF (l_debug <> -1) THEN
3410: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDayFrom',v_MRPFenceDayFrom);
3411: END IF;
3412: --
3413: v_MRPFenceDays := v_MRPFenceDayTo - v_MRPFenceDayFrom + 1;
3414: ELSE
3418: v_MRPFenceDays := NULL;
3419: END IF;
3420: --
3421: IF (l_debug <> -1) THEN
3422: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3423: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3424: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3425: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3426: END IF;
3419: END IF;
3420: --
3421: IF (l_debug <> -1) THEN
3422: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3423: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3424: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3425: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3426: END IF;
3427: --
3420: --
3421: IF (l_debug <> -1) THEN
3422: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3423: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3424: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3425: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3426: END IF;
3427: --
3428: /* checking for past due demand and giving a warning message */
3421: IF (l_debug <> -1) THEN
3422: rlm_core_sv.dlog(C_DEBUG,'v_FrozenFenceDays',v_FrozenFenceDays);
3423: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDays',v_FirmFenceDays);
3424: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',v_ForecastFenceDays);
3425: rlm_core_sv.dlog(C_DEBUG,'v_MRPFenceDays',v_MRPFenceDays);
3426: END IF;
3427: --
3428: /* checking for past due demand and giving a warning message */
3429: --
3429: --
3430: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3431: --
3432: IF (l_debug <> -1) THEN
3433: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3434: g_ManageDemand_tab(i).request_date);
3435: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3436: g_ManageDemand_tab(i).schedule_date);
3437: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3431: --
3432: IF (l_debug <> -1) THEN
3433: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3434: g_ManageDemand_tab(i).request_date);
3435: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3436: g_ManageDemand_tab(i).schedule_date);
3437: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3438: g_ManageDemand_tab(i).item_detail_type);
3439: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3433: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3434: g_ManageDemand_tab(i).request_date);
3435: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3436: g_ManageDemand_tab(i).schedule_date);
3437: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3438: g_ManageDemand_tab(i).item_detail_type);
3439: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3440: g_ManageDemand_tab(i).process_status);
3441: END IF;
3435: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').schedule_date',
3436: g_ManageDemand_tab(i).schedule_date);
3437: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3438: g_ManageDemand_tab(i).item_detail_type);
3439: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3440: g_ManageDemand_tab(i).process_status);
3441: END IF;
3442: --
3443: IF (g_ManageDemand_tab(i).request_date <
3452: --
3453: g_ManageDemand_tab(i).item_detail_type := k_FIRM_DEMAND;
3454: --
3455: IF (l_debug <> -1) THEN
3456: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3457: g_ManageDemand_tab(i).item_detail_type);
3458: rlm_core_sv.dlog(C_DEBUG,'k_FIRM_DEMAND', k_FIRM_DEMAND);
3459: END IF;
3460: --
3454: --
3455: IF (l_debug <> -1) THEN
3456: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3457: g_ManageDemand_tab(i).item_detail_type);
3458: rlm_core_sv.dlog(C_DEBUG,'k_FIRM_DEMAND', k_FIRM_DEMAND);
3459: END IF;
3460: --
3461: ELSE --}{
3462: --
3468: --
3469: END IF; --}
3470: --
3471: IF (l_debug <> -1) THEN
3472: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3473: g_ManageDemand_tab(i).item_detail_type);
3474: rlm_core_sv.dlog(C_DEBUG,'k_FORECAST_DEMAND', k_FORECAST_DEMAND);
3475: END IF;
3476: --
3470: --
3471: IF (l_debug <> -1) THEN
3472: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3473: g_ManageDemand_tab(i).item_detail_type);
3474: rlm_core_sv.dlog(C_DEBUG,'k_FORECAST_DEMAND', k_FORECAST_DEMAND);
3475: END IF;
3476: --
3477: ELSE --}{
3478: --
3484: --
3485: END IF; --}
3486: --
3487: IF (l_debug <> -1) THEN
3488: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3489: g_ManageDemand_tab(i).item_detail_type);
3490: rlm_core_sv.dlog(C_DEBUG,'k_MRP_FORECAST', k_MRP_FORECAST);
3491: END IF;
3492: --
3486: --
3487: IF (l_debug <> -1) THEN
3488: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3489: g_ManageDemand_tab(i).item_detail_type);
3490: rlm_core_sv.dlog(C_DEBUG,'k_MRP_FORECAST', k_MRP_FORECAST);
3491: END IF;
3492: --
3493: END IF; --}
3494: --
3519: x_OrderLineId => NULL,
3520: x_token1 => 'QUANTITY',
3521: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3522: x_Token2 => 'GROUP',
3523: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3524: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3525: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3526: x_token3 => 'REQ_DATE',
3527: x_value3 => g_ManageDemand_tab(i).request_date,
3520: x_token1 => 'QUANTITY',
3521: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3522: x_Token2 => 'GROUP',
3523: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3524: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3525: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3526: x_token3 => 'REQ_DATE',
3527: x_value3 => g_ManageDemand_tab(i).request_date,
3528: x_token4 => 'START_DATE_TIME',
3521: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3522: x_Token2 => 'GROUP',
3523: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3524: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3525: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3526: x_token3 => 'REQ_DATE',
3527: x_value3 => g_ManageDemand_tab(i).request_date,
3528: x_token4 => 'START_DATE_TIME',
3529: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3536: x_Token7 => 'MATCH_ATTR',
3537: x_value7 => v_MatchAttrTxt);
3538: --
3539: IF (l_debug <> -1) THEN
3540: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND_SEQ');
3541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3542: g_ManageDemand_tab(i).item_detail_type);
3543: END IF;
3544: --
3537: x_value7 => v_MatchAttrTxt);
3538: --
3539: IF (l_debug <> -1) THEN
3540: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND_SEQ');
3541: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3542: g_ManageDemand_tab(i).item_detail_type);
3543: END IF;
3544: --
3545: ELSE --}{
3555: x_OrderLineId => NULL,
3556: x_token1 => 'QUANTITY',
3557: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3558: x_Token2 => 'GROUP',
3559: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3560: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3561: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3562: x_token3 => 'REQ_DATE',
3563: x_value3 => g_ManageDemand_tab(i).request_date,
3556: x_token1 => 'QUANTITY',
3557: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3558: x_Token2 => 'GROUP',
3559: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3560: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3561: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3562: x_token3 => 'REQ_DATE',
3563: x_value3 => g_ManageDemand_tab(i).request_date,
3564: x_token4 => 'START_DATE_TIME',
3557: x_value1 => g_ManageDemand_tab(i).primary_quantity,
3558: x_Token2 => 'GROUP',
3559: x_value2 => rlm_core_sv.get_ship_from(x_group_rec.ship_from_org_id)||'-'||
3560: rlm_core_sv.get_ship_to(x_group_rec.ship_to_address_id)||'-'||
3561: rlm_core_sv.get_item_number(x_group_rec.customer_item_id),
3562: x_token3 => 'REQ_DATE',
3563: x_value3 => g_ManageDemand_tab(i).request_date,
3564: x_token4 => 'START_DATE_TIME',
3565: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3565: x_value4 => to_date(g_ManageDemand_tab(i).industry_attribute2,'YYYY/MM/DD HH24:MI:SS'),
3566: x_token5 => 'PROCDATE',
3567: x_value5 => rlm_dp_sv.g_dsp_start_time, --Bugfix 10053830
3568: x_Token6 => 'SCHEDULE_LINE',
3569: x_value6 => rlm_core_sv.get_schedule_line_number(g_ManageDemand_tab(i).schedule_line_id),
3570: x_Token7 => 'MATCH_ATTR',
3571: x_value7 => v_MatchAttrTxt);
3572: --
3573: IF (l_debug <> -1) THEN
3570: x_Token7 => 'MATCH_ATTR',
3571: x_value7 => v_MatchAttrTxt);
3572: --
3573: IF (l_debug <> -1) THEN
3574: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND');
3575: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3576: g_ManageDemand_tab(i).item_detail_type);
3577: END IF;
3578: --
3571: x_value7 => v_MatchAttrTxt);
3572: --
3573: IF (l_debug <> -1) THEN
3574: rlm_core_sv.dlog(C_DEBUG,'RLM_PAST_DUE_DEMAND');
3575: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3576: g_ManageDemand_tab(i).item_detail_type);
3577: END IF;
3578: --
3579: END IF; --}
3587: IF v_FirmFenceDays IS NOT NULL OR v_ForecastFenceDays IS NOT NULL
3588: OR v_FrozenFenceDays IS NOT NULL OR v_MRPFenceDays IS NOT NULL THEN --{
3589: --
3590: IF (l_debug <> -1) THEN
3591: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT',
3592: g_ManageDemand_tab.COUNT);
3593: END IF;
3594: --
3595: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3594: --
3595: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP --{
3596: --
3597: IF (l_debug <> -1) THEN
3598: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3599: g_ManageDemand_tab(i).request_date);
3600: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3601: g_ManageDemand_tab(i).item_detail_type);
3602: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3596: --
3597: IF (l_debug <> -1) THEN
3598: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3599: g_ManageDemand_tab(i).request_date);
3600: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3601: g_ManageDemand_tab(i).item_detail_type);
3602: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3603: g_ManageDemand_tab(i).process_status);
3604: END IF;
3598: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').request_date',
3599: g_ManageDemand_tab(i).request_date);
3600: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
3601: g_ManageDemand_tab(i).item_detail_type);
3602: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
3603: g_ManageDemand_tab(i).process_status);
3604: END IF;
3605: --
3606:
3619: IF (v_FirmFenceDays = 0 AND
3620: v_ForecastFenceDays = 0 AND v_MRPFenceDays > 0) THEN --{
3621:
3622: IF (l_debug <> -1) THEN
3623: rlm_core_sv.dlog(C_DEBUG, 'Firm and forecast fences are set to zero');
3624: rlm_core_sv.dlog(C_DEBUG, 'MRP forecast fences are set to not-null values');
3625: END IF;
3626: --
3627: IF (g_ManageDemand_tab(i).request_date BETWEEN
3620: v_ForecastFenceDays = 0 AND v_MRPFenceDays > 0) THEN --{
3621:
3622: IF (l_debug <> -1) THEN
3623: rlm_core_sv.dlog(C_DEBUG, 'Firm and forecast fences are set to zero');
3624: rlm_core_sv.dlog(C_DEBUG, 'MRP forecast fences are set to not-null values');
3625: END IF;
3626: --
3627: IF (g_ManageDemand_tab(i).request_date BETWEEN
3628: --Bugfix 10053830 Start
3632: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo - 1)) THEN --{
3633: --Bugfix 10053830 End
3634: --
3635: IF (l_debug <> -1) THEN
3636: rlm_core_sv.dlog(C_DEBUG, 'request date is within MRP fences');
3637: END IF;
3638: --
3639: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3640: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3641: --
3642: ELSE --}{
3643: --
3644: IF (l_debug <> -1) THEN
3645: rlm_core_sv.dlog(C_DEBUG, 'request date outside MRP fences');
3646: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3647: END IF;
3648: --
3649: IsLineProcessed := TRUE;
3642: ELSE --}{
3643: --
3644: IF (l_debug <> -1) THEN
3645: rlm_core_sv.dlog(C_DEBUG, 'request date outside MRP fences');
3646: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3647: END IF;
3648: --
3649: IsLineProcessed := TRUE;
3650: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3646: rlm_core_sv.dlog(C_DEBUG, 'Demand line will be dropped');
3647: END IF;
3648: --
3649: IsLineProcessed := TRUE;
3650: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3651: --Bug 5208135
3652: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3653: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3654: END IF;
3657: --
3658: END IF; --}
3659: ELSIF v_FirmFenceDays = 0 THEN --}{
3660: --
3661: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_PROCESSED;
3662: IsLineProcessed := TRUE;
3663: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3664: --
3665: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3664: --
3665: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3666: --
3667: IF (l_debug <> -1) THEN
3668: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFROM',v_FirmFenceDayFrom);
3669: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3670: END IF;
3671: --
3672: -- Bug 4207235
3665: ELSIF v_FirmFenceDays IS NOT NULL THEN --}{
3666: --
3667: IF (l_debug <> -1) THEN
3668: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayFROM',v_FirmFenceDayFrom);
3669: rlm_core_sv.dlog(C_DEBUG,'v_FirmFenceDayTo',v_FirmFenceDayTo);
3670: END IF;
3671: --
3672: -- Bug 4207235
3673: --
3683: g_ManageDemand_tab(i).request_date >=(TRUNC(rlm_dp_sv.g_dsp_start_time) + v_FirmFenceDayFrom - 1) ) THEN --{
3684: --Bugfix 10053830 Start
3685: --
3686: IF (l_debug <> -1) THEN
3687: rlm_core_sv.dlog(C_DEBUG,'request_date within firm fence');
3688: END IF;
3689: --
3690: g_ManageDemand_tab(i).item_detail_type := k_FIRM_DEMAND;
3691: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3694: --(TRUNC(SYSDATE) + v_FirmFenceDayTo)) THEN --}{ --Bugfix 10053830
3695: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_FirmFenceDayTo)) THEN --}{ --Bugfix 10053830
3696: --
3697: IF (l_debug <> -1) THEN
3698: rlm_core_sv.dlog(C_DEBUG,'request_date outside firm fence');
3699: END IF;
3700: --
3701: IF v_ForecastFenceDays = 0 THEN --{
3702: --
3701: IF v_ForecastFenceDays = 0 THEN --{
3702: --
3703: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3704: g_ManageDemand_tab(i).process_status
3705: := rlm_core_sv.k_PS_PROCESSED;
3706: IsLineProcessed := TRUE;
3707: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3708: --
3709: ELSIF v_ForecastFenceDays is NOT NULL THEN --}{
3708: --
3709: ELSIF v_ForecastFenceDays is NOT NULL THEN --}{
3710: --
3711: IF (l_debug <> -1) THEN
3712: rlm_core_sv.dlog(C_DEBUG,'v_ForecastFenceDays',
3713: v_ForecastFenceDays);
3714: END IF;
3715: --
3716: IF(g_ManageDemand_tab(i).request_date <
3717: --(TRUNC(SYSDATE) + v_ForecastFenceDayTo))THEN --{ --Bugfix 10053830
3718: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_ForecastFenceDayTo))THEN --{ --Bugfix 10053830
3719: --
3720: IF (l_debug <> -1) THEN
3721: rlm_core_sv.dlog(C_DEBUG,'request_date inside oe forecast fence');
3722: END IF;
3723: --
3724: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3725: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3728: --(TRUNC(SYSDATE) + v_ForecastFenceDayTo))THEN --}{ --Bugfix 10053830
3729: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_ForecastFenceDayTo))THEN --}{ --Bugfix 10053830
3730: --
3731: IF (l_debug <> -1) THEN
3732: rlm_core_sv.dlog(C_DEBUG,'request_date outside oe forecast fence');
3733: END IF;
3734: --
3735: IF v_MRPFenceDays = 0 THEN --{
3736: --
3735: IF v_MRPFenceDays = 0 THEN --{
3736: --
3737: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3738: g_ManageDemand_tab(i).process_status
3739: := rlm_core_sv.k_PS_PROCESSED;
3740: IsLineProcessed := TRUE;
3741: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3742: --
3743: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3746: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --{ --Bugfix 10053830
3747: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --{ --Bugfix 10053830
3748: --
3749: IF (l_debug <> -1) THEN
3750: rlm_core_sv.dlog(C_DEBUG,
3751: 'request_date inside MRP forecast fence');
3752: END IF;
3753: --
3754: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3758: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3759: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3760: --
3761: IF (l_debug <> -1) THEN
3762: rlm_core_sv.dlog(C_DEBUG,
3763: 'request_date outside MRP forecast fence');
3764: END IF;
3765: --
3766: g_ManageDemand_tab(i).process_status
3763: 'request_date outside MRP forecast fence');
3764: END IF;
3765: --
3766: g_ManageDemand_tab(i).process_status
3767: := rlm_core_sv.k_PS_PROCESSED;
3768: --Bug 5208135
3769: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3770: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3771: END IF;
3782: ELSE --}{
3783: --
3784: /* IF OE forecast fence is NULL */
3785: IF (l_debug <> -1) THEN
3786: rlm_core_sv.dlog(C_DEBUG,'OE Forecast fence NULL' );
3787: END IF;
3788: --
3789: IF v_MRPFenceDays = 0 THEN --{
3790: --
3788: --
3789: IF v_MRPFenceDays = 0 THEN --{
3790: --
3791: IF (l_debug <> -1) THEN
3792: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3793: g_ManageDemand_tab(i).item_detail_type );
3794: END IF;
3795: --
3796: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3795: --
3796: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3797: --
3798: g_ManageDemand_tab(i).process_status
3799: := rlm_core_sv.k_PS_PROCESSED;
3800: IsLineProcessed := TRUE;
3801: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3802: --
3803: END IF; --}
3804: --
3805: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3806: --
3807: IF (l_debug <> -1) THEN
3808: rlm_core_sv.dlog(C_DEBUG,'MRP Forecast fence NOT NULL' );
3809: END IF;
3810: --
3811: IF (g_ManageDemand_tab(i).request_date BETWEEN
3812: --Bugfix 10053830 Start
3816: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo - 1)) THEN --{
3817: --Bugfix 10053830 Start
3818: --
3819: IF (l_debug <> -1) THEN
3820: rlm_core_sv.dlog(C_DEBUG,
3821: 'request_date inside MRP forecast fence');
3822: END IF;
3823: --
3824: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3828: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3829: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3830: --
3831: IF (l_debug <> -1) THEN
3832: rlm_core_sv.dlog(C_DEBUG,
3833: 'request_date outside MRP forecast fence');
3834: END IF;
3835: --
3836: g_ManageDemand_tab(i).process_status
3833: 'request_date outside MRP forecast fence');
3834: END IF;
3835: --
3836: g_ManageDemand_tab(i).process_status
3837: := rlm_core_sv.k_PS_PROCESSED;
3838: --Bug 5208135
3839: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3840: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3841: END IF;
3854: ELSE --}{
3855: --
3856: /* if firmfence is null */
3857: IF (l_debug <> -1) THEN
3858: rlm_core_sv.dlog(C_DEBUG, 'firm fence is null');
3859: END IF;
3860: --
3861: IF v_ForecastFenceDays = 0 THEN --{
3862: --
3860: --
3861: IF v_ForecastFenceDays = 0 THEN --{
3862: --
3863: IF (l_debug <> -1) THEN
3864: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3865: g_ManageDemand_tab(i).item_detail_type );
3866: END IF;
3867: --
3868: IF g_ManageDemand_tab(i).item_detail_type = k_FORECAST_DEMAND OR
3867: --
3868: IF g_ManageDemand_tab(i).item_detail_type = k_FORECAST_DEMAND OR
3869: g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3870: --
3871: g_ManageDemand_tab(i).process_status:= rlm_core_sv.k_PS_PROCESSED;
3872: IsLineProcessed := TRUE;
3873: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3874: --
3875: END IF; --}
3876: --
3877: ELSIF v_ForecastFenceDays IS NOT NULL THEN --}{
3878: --
3879: IF (l_debug <> -1) THEN
3880: rlm_core_sv.dlog(C_DEBUG, 'OE forecast fence not null');
3881: END IF;
3882: --
3883: --Bugfix 10053830 Start
3884: /*IF (g_ManageDemand_tab(i).request_date <
3895: v_ForecastFenceDayFrom - 1)) THEN --{
3896: --
3897: --Bugfix 10053830 End
3898: IF (l_debug <> -1) THEN
3899: rlm_core_sv.dlog(C_DEBUG,'request_date inside oe forecast fence');
3900: END IF;
3901: --
3902: g_ManageDemand_tab(i).item_detail_type := k_FORECAST_DEMAND;
3903: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3906: --(TRUNC(SYSDATE) + v_ForecastFenceDayTo))THEN --}{ --Bugfix 10053830
3907: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_ForecastFenceDayTo))THEN --}{ --Bugfix 10053830
3908: --
3909: IF (l_debug <> -1) THEN
3910: rlm_core_sv.dlog(C_DEBUG,'request_date outside oe forecast fence');
3911: END IF;
3912: --
3913: IF v_MRPFenceDays = 0 THEN --{
3914: --
3913: IF v_MRPFenceDays = 0 THEN --{
3914: --
3915: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3916: g_ManageDemand_tab(i).process_status
3917: := rlm_core_sv.k_PS_PROCESSED;
3918: IsLineProcessed := TRUE;
3919: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3920: --
3921: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3924: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --{ --Bugfix 10053830
3925: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --{ --Bugfix 10053830
3926: --
3927: IF (l_debug <> -1) THEN
3928: rlm_core_sv.dlog(C_DEBUG,
3929: 'request_date inside MRP forecast fence');
3930: END IF;
3931: --
3932: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
3936: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3937: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
3938: --
3939: IF (l_debug <> -1) THEN
3940: rlm_core_sv.dlog(C_DEBUG,
3941: 'request_date outside MRP forecast fence');
3942: END IF;
3943: --
3944: g_ManageDemand_tab(i).process_status
3941: 'request_date outside MRP forecast fence');
3942: END IF;
3943: --
3944: g_ManageDemand_tab(i).process_status
3945: := rlm_core_sv.k_PS_PROCESSED;
3946: --Bug 5208135
3947: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
3948: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
3949: END IF;
3958: ELSE --}{
3959: --
3960: /* IF OE forecast fence is NULL */
3961: IF (l_debug <> -1) THEN
3962: rlm_core_sv.dlog(C_DEBUG,'OE Forecast fence NULL' );
3963: END IF;
3964: --
3965: IF v_MRPFenceDays = 0 THEN --{
3966: --
3964: --
3965: IF v_MRPFenceDays = 0 THEN --{
3966: --
3967: IF (l_debug <> -1) THEN
3968: rlm_core_sv.dlog(C_DEBUG, ' item_detail_type',
3969: g_ManageDemand_tab(i).item_detail_type );
3970: END IF;
3971: --
3972: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3971: --
3972: IF g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST THEN --{
3973: --
3974: g_ManageDemand_tab(i).process_status
3975: := rlm_core_sv.k_PS_PROCESSED;
3976: IsLineProcessed := TRUE;
3977: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
3978: --
3979: END IF; --}
3980: --
3981: ELSIF v_MRPFenceDays is NOT NULL THEN --}{
3982: --
3983: IF (l_debug <> -1) THEN
3984: rlm_core_sv.dlog(C_DEBUG,'MRP Forecast fence NOT NULL' );
3985: END IF;
3986: --
3987: IF (g_ManageDemand_tab(i).request_date BETWEEN
3988: --Bugfix 10053830 Start
3992: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo - 1)) THEN --{
3993: --Bugfix 10053830 End
3994: --
3995: IF (l_debug <> -1) THEN
3996: rlm_core_sv.dlog(C_DEBUG,
3997: 'request_date inside MRP forecast fence');
3998: END IF;
3999: --
4000: g_ManageDemand_tab(i).item_detail_type := k_MRP_FORECAST;
4004: --(TRUNC(SYSDATE) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
4005: (TRUNC(rlm_dp_sv.g_dsp_start_time) + v_MRPFenceDayTo)) THEN --}{ --Bugfix 10053830
4006: --
4007: IF (l_debug <> -1) THEN
4008: rlm_core_sv.dlog(C_DEBUG,
4009: 'request_date outside MRP forecast fence');
4010: END IF;
4011: --
4012: g_ManageDemand_tab(i).process_status
4009: 'request_date outside MRP forecast fence');
4010: END IF;
4011: --
4012: g_ManageDemand_tab(i).process_status
4013: := rlm_core_sv.k_PS_PROCESSED;
4014: --Bug 5208135
4015: IF (g_ManageDemand_tab(i).item_detail_type = k_MRP_FORECAST) THEN
4016: g_ManageDemand_tab(i).item_detail_type := k_MRP_DROP_DEMAND;
4017: END IF;
4034: AND g_ManageDemand_tab(i).item_detail_type <> k_MRP_FORECAST
4035: AND nvl(v_FirmFenceDays,-99) <> 0 --bug 3562125
4036: THEN --{
4037: --
4038: g_ManageDemand_tab(i).process_status := rlm_core_sv.k_PS_FROZEN_FIRM;
4039: SetOperation(g_ManageDemand_tab(i), k_UPDATE);
4040: --
4041: END IF; --}
4042: --
4040: --
4041: END IF; --}
4042: --
4043: IF (l_debug <> -1) THEN
4044: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
4045: g_ManageDemand_tab(i).item_detail_type);
4046: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
4047: g_ManageDemand_tab(i).process_status);
4048: END IF;
4042: --
4043: IF (l_debug <> -1) THEN
4044: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').item_detail_type',
4045: g_ManageDemand_tab(i).item_detail_type);
4046: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab(' || i || ').process_status',
4047: g_ManageDemand_tab(i).process_status);
4048: END IF;
4049: --
4050: END LOOP; --}
4054: END IF; --}
4055: --
4056: IF IsLineProcessed THEN
4057: IF (l_debug <> -1) THEN
4058: rlm_core_sv.dlog('Some of the lines are in fully processed state');
4059: END IF;
4060: END IF;
4061: --
4062: IF (l_debug <> -1) THEN
4059: END IF;
4060: END IF;
4061: --
4062: IF (l_debug <> -1) THEN
4063: rlm_core_sv.dpop(C_SDEBUG);
4064: END IF;
4065: --
4066: EXCEPTION
4067: --
4067: --
4068: WHEN NO_DATA_FOUND THEN
4069: --
4070: IF (l_debug <> -1) THEN
4071: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
4072: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4073: rlm_core_sv.dpop(C_SDEBUG);
4074: END IF;
4075: --
4068: WHEN NO_DATA_FOUND THEN
4069: --
4070: IF (l_debug <> -1) THEN
4071: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
4072: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4073: rlm_core_sv.dpop(C_SDEBUG);
4074: END IF;
4075: --
4076: WHEN OTHERS THEN
4069: --
4070: IF (l_debug <> -1) THEN
4071: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
4072: rlm_core_sv.dlog('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4073: rlm_core_sv.dpop(C_SDEBUG);
4074: END IF;
4075: --
4076: WHEN OTHERS THEN
4077: --
4077: --
4078: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4079: --
4080: IF (l_debug <> -1) THEN
4081: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4082: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4083: END IF;
4084: --
4085: raise;
4078: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4079: --
4080: IF (l_debug <> -1) THEN
4081: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4082: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4083: END IF;
4084: --
4085: raise;
4086:
4100:
4101: BEGIN
4102: --
4103: IF (l_debug <> -1) THEN
4104: rlm_core_sv.dpush(C_SDEBUG,'ProcessTable');
4105: rlm_core_sv.dlog(C_DEBUG,'x_Demand_tab.COUNT',x_Demand_tab.COUNT);
4106: END IF;
4107: --
4108: FOR i IN 1..x_Demand_tab.COUNT LOOP
4101: BEGIN
4102: --
4103: IF (l_debug <> -1) THEN
4104: rlm_core_sv.dpush(C_SDEBUG,'ProcessTable');
4105: rlm_core_sv.dlog(C_DEBUG,'x_Demand_tab.COUNT',x_Demand_tab.COUNT);
4106: END IF;
4107: --
4108: FOR i IN 1..x_Demand_tab.COUNT LOOP
4109: --
4107: --
4108: FOR i IN 1..x_Demand_tab.COUNT LOOP
4109: --
4110: IF (l_debug <> -1) THEN
4111: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4108: FOR i IN 1..x_Demand_tab.COUNT LOOP
4109: --
4110: IF (l_debug <> -1) THEN
4111: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4109: --
4110: IF (l_debug <> -1) THEN
4111: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4110: IF (l_debug <> -1) THEN
4111: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4111: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').line_id', x_Demand_tab(i).line_id);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4112: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').primary_quantity', x_Demand_tab(i).primary_quantity);
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4113: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').customer_item_id', x_Demand_tab(i).customer_item_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4121: x_Demand_tab(i).ship_from_org_id);
4114: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').item_detail_type', x_Demand_tab(i).item_detail_type);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4121: x_Demand_tab(i).ship_from_org_id);
4122: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4115: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').industry_attribute15', x_Demand_tab(i).industry_attribute15);
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4121: x_Demand_tab(i).ship_from_org_id);
4122: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4123: END IF;
4116: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').header_id', x_Demand_tab(i).header_id);
4117: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').request_date', x_Demand_tab(i).request_date);
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4121: x_Demand_tab(i).ship_from_org_id);
4122: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4123: END IF;
4124: --
4118: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').program_id', x_Demand_tab(i).program_id);
4119: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').process_status', x_Demand_tab(i).process_status);
4120: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_from_org_id',
4121: x_Demand_tab(i).ship_from_org_id);
4122: rlm_core_sv.dlog(C_DEBUG, 'x_Demand_tab('||i||').ship_to_customer_id', x_Demand_tab(i).ship_to_customer_id);
4123: END IF;
4124: --
4125: IF x_Demand_tab(i).program_id = k_DELETE THEN
4126: DeleteReq(x_Demand_tab(i));
4131: END IF;
4132: END LOOP;
4133: --
4134: IF (l_debug <> -1) THEN
4135: rlm_core_sv.dpop(C_SDEBUG);
4136: END IF;
4137: --
4138: EXCEPTION
4139:
4141: rlm_message_sv.sql_error('rlm_manage_demand_sv.ProcessTable',
4142: v_Progress);
4143: --
4144: IF (l_debug <> -1) THEN
4145: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4146: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4147: END IF;
4148: --
4149: raise;
4142: v_Progress);
4143: --
4144: IF (l_debug <> -1) THEN
4145: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4146: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4147: END IF;
4148: --
4149: raise;
4150:
4165:
4166: BEGIN
4167: --
4168: IF (l_debug <> -1) THEN
4169: rlm_core_sv.dpush(C_SDEBUG,'DeleteReq');
4170: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_id',x_ManageDemand_rec.line_id);
4171: END IF;
4172: --
4173: DELETE rlm_interface_lines
4166: BEGIN
4167: --
4168: IF (l_debug <> -1) THEN
4169: rlm_core_sv.dpush(C_SDEBUG,'DeleteReq');
4170: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_id',x_ManageDemand_rec.line_id);
4171: END IF;
4172: --
4173: DELETE rlm_interface_lines
4174: WHERE line_id = x_ManageDemand_rec.line_id;
4181: --SET interface_line_id = NULL
4182: --WHERE line_id = x_ManageDemand_rec.schedule_line_id;
4183: --
4184: IF (l_debug <> -1) THEN
4185: rlm_core_sv.dpop(C_SDEBUG);
4186: END IF;
4187:
4188: EXCEPTION
4189:
4191: rlm_message_sv.sql_error('rlm_manage_demand_sv.DeleteReq',
4192: v_Progress);
4193: --
4194: IF (l_debug <> -1) THEN
4195: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4196: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4197: END IF;
4198: --
4199: raise;
4192: v_Progress);
4193: --
4194: IF (l_debug <> -1) THEN
4195: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4196: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4197: END IF;
4198: --
4199: raise;
4200:
4215: --
4216: BEGIN
4217: --
4218: IF (l_debug <> -1) THEN
4219: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4220: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4221: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4222: x_ManageDemand_rec.primary_quantity);
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4216: BEGIN
4217: --
4218: IF (l_debug <> -1) THEN
4219: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4220: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4221: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4222: x_ManageDemand_rec.primary_quantity);
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4224: x_ManageDemand_rec.ship_from_org_id);
4217: --
4218: IF (l_debug <> -1) THEN
4219: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4220: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4221: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4222: x_ManageDemand_rec.primary_quantity);
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4224: x_ManageDemand_rec.ship_from_org_id);
4225: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4219: rlm_core_sv.dpush(C_SDEBUG,'InsertReq');
4220: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be inserted into table');
4221: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4222: x_ManageDemand_rec.primary_quantity);
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4224: x_ManageDemand_rec.ship_from_org_id);
4225: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4226: x_ManageDemand_rec.item_detail_type);
4227: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4221: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4222: x_ManageDemand_rec.primary_quantity);
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4224: x_ManageDemand_rec.ship_from_org_id);
4225: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4226: x_ManageDemand_rec.item_detail_type);
4227: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4228: x_ManageDemand_rec.item_detail_subtype);
4229: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4223: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4224: x_ManageDemand_rec.ship_from_org_id);
4225: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4226: x_ManageDemand_rec.item_detail_type);
4227: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4228: x_ManageDemand_rec.item_detail_subtype);
4229: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4230: x_ManageDemand_rec.line_source);
4231: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4225: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4226: x_ManageDemand_rec.item_detail_type);
4227: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4228: x_ManageDemand_rec.item_detail_subtype);
4229: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4230: x_ManageDemand_rec.line_source);
4231: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4232: x_ManageDemand_rec.qty_type_code);
4233: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4227: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4228: x_ManageDemand_rec.item_detail_subtype);
4229: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4230: x_ManageDemand_rec.line_source);
4231: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4232: x_ManageDemand_rec.qty_type_code);
4233: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4234: x_ManageDemand_rec.org_id);
4235: END IF;
4229: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4230: x_ManageDemand_rec.line_source);
4231: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4232: x_ManageDemand_rec.qty_type_code);
4233: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.org_id',
4234: x_ManageDemand_rec.org_id);
4235: END IF;
4236: --
4237: IF x_ManageDemand_rec.org_id IS NULL THEN
4792: WHERE line_id = x_ManageDemand_rec.schedule_line_id
4793: AND x_ManageDemand_rec.line_source = 'SOURCED';
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4797: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4798: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4799: END IF;
4800: --
4793: AND x_ManageDemand_rec.line_source = 'SOURCED';
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4797: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4798: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4799: END IF;
4800: --
4801: IF (l_debug <> -1) THEN
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'interface_line_id', x_ManageDemand_rec.line_id);
4797: rlm_core_sv.dlog(C_DEBUG,'schedule_line_id', x_ManageDemand_rec.schedule_line_id);
4798: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4799: END IF;
4800: --
4801: IF (l_debug <> -1) THEN
4802: rlm_core_sv.dpop(C_SDEBUG);
4798: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated', SQL%ROWCOUNT);
4799: END IF;
4800: --
4801: IF (l_debug <> -1) THEN
4802: rlm_core_sv.dpop(C_SDEBUG);
4803: END IF;
4804: --
4805: EXCEPTION
4806: --
4812: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4813: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4814: --
4815: IF (l_debug <> -1) THEN
4816: rlm_core_sv.dlog(C_DEBUG, 'Null Org ID detected during Insert');
4817: rlm_core_sv.dpop(C_SDEBUG);
4818: END IF;
4819: --
4820: RAISE;
4813: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4814: --
4815: IF (l_debug <> -1) THEN
4816: rlm_core_sv.dlog(C_DEBUG, 'Null Org ID detected during Insert');
4817: rlm_core_sv.dpop(C_SDEBUG);
4818: END IF;
4819: --
4820: RAISE;
4821: --
4823: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertReq',
4824: v_Progress);
4825: --
4826: IF (l_debug <> -1) THEN
4827: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4828: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4829: END IF;
4830: --
4831: raise;
4824: v_Progress);
4825: --
4826: IF (l_debug <> -1) THEN
4827: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4828: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4829: END IF;
4830: --
4831: raise;
4832:
4846:
4847: BEGIN
4848: --
4849: IF (l_debug <> -1) THEN
4850: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4851: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4852: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4853: x_ManageDemand_rec.primary_quantity);
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4847: BEGIN
4848: --
4849: IF (l_debug <> -1) THEN
4850: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4851: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4852: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4853: x_ManageDemand_rec.primary_quantity);
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4855: x_ManageDemand_rec.ship_from_org_id);
4848: --
4849: IF (l_debug <> -1) THEN
4850: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4851: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4852: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4853: x_ManageDemand_rec.primary_quantity);
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4855: x_ManageDemand_rec.ship_from_org_id);
4856: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4850: rlm_core_sv.dpush(C_SDEBUG,'UpdateReq');
4851: rlm_core_sv.dlog(C_DEBUG,'Changed lines to be updated to table');
4852: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4853: x_ManageDemand_rec.primary_quantity);
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4855: x_ManageDemand_rec.ship_from_org_id);
4856: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4857: x_ManageDemand_rec.item_detail_type);
4858: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4852: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.primary_quantity',
4853: x_ManageDemand_rec.primary_quantity);
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4855: x_ManageDemand_rec.ship_from_org_id);
4856: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4857: x_ManageDemand_rec.item_detail_type);
4858: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4859: x_ManageDemand_rec.item_detail_subtype);
4860: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4854: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.ship_from_org_id',
4855: x_ManageDemand_rec.ship_from_org_id);
4856: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4857: x_ManageDemand_rec.item_detail_type);
4858: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4859: x_ManageDemand_rec.item_detail_subtype);
4860: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4861: x_ManageDemand_rec.line_source);
4862: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4856: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_type',
4857: x_ManageDemand_rec.item_detail_type);
4858: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4859: x_ManageDemand_rec.item_detail_subtype);
4860: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4861: x_ManageDemand_rec.line_source);
4862: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4863: x_ManageDemand_rec.qty_type_code);
4864: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4858: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.item_detail_subtype',
4859: x_ManageDemand_rec.item_detail_subtype);
4860: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4861: x_ManageDemand_rec.line_source);
4862: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4863: x_ManageDemand_rec.qty_type_code);
4864: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4865: x_ManageDemand_rec.order_header_id);
4866: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4860: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.line_source',
4861: x_ManageDemand_rec.line_source);
4862: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4863: x_ManageDemand_rec.qty_type_code);
4864: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4865: x_ManageDemand_rec.order_header_id);
4866: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4867: x_ManageDemand_rec.blanket_number);
4868: END IF;
4862: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.qty_type_code',
4863: x_ManageDemand_rec.qty_type_code);
4864: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.order_header_id',
4865: x_ManageDemand_rec.order_header_id);
4866: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.blanket_number',
4867: x_ManageDemand_rec.blanket_number);
4868: END IF;
4869: --
4870: UPDATE rlm_interface_lines_all
4879: process_status = x_ManageDemand_rec.process_status
4880: WHERE line_id = x_ManageDemand_rec.line_id;
4881: --
4882: IF (l_debug <> -1) THEN
4883: rlm_core_sv.dpop(C_SDEBUG);
4884: END IF;
4885: --
4886: EXCEPTION
4887:
4889: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateReq',
4890: v_Progress);
4891: --
4892: IF (l_debug <> -1) THEN
4893: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4894: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4895: END IF;
4896: --
4897: raise;
4890: v_Progress);
4891: --
4892: IF (l_debug <> -1) THEN
4893: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4894: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4895: END IF;
4896: --
4897: raise;
4898:
4913:
4914: BEGIN
4915: --
4916: IF (l_debug <> -1) THEN
4917: rlm_core_sv.dpush(C_SDEBUG,'UpdateSchedule');
4918: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.schedule_line_id',
4919: x_ManageDemand_rec.schedule_line_id);
4920: END IF;
4921: --
4914: BEGIN
4915: --
4916: IF (l_debug <> -1) THEN
4917: rlm_core_sv.dpush(C_SDEBUG,'UpdateSchedule');
4918: rlm_core_sv.dlog(C_DEBUG,'x_ManageDemand_rec.schedule_line_id',
4919: x_ManageDemand_rec.schedule_line_id);
4920: END IF;
4921: --
4922: IF x_ManageDemand_rec.program_id <> k_INSERT THEN
4925: SET interface_line_id = x_AggregateDemand_rec.line_id
4926: WHERE line_id = x_ManageDemand_rec.schedule_line_id;
4927: --
4928: IF (l_debug <> -1) THEN
4929: rlm_core_sv.dlog(C_DEBUG,'# of schedule lines updated',SQL%ROWCOUNT);
4930: END IF;
4931: --
4932: END IF;
4933: --
4931: --
4932: END IF;
4933: --
4934: IF (l_debug <> -1) THEN
4935: rlm_core_sv.dpop(C_SDEBUG);
4936: END IF;
4937: --
4938: EXCEPTION
4939:
4940: WHEN OTHERS THEN
4941: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4942: --
4943: IF (l_debug <> -1) THEN
4944: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4945: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4946: END IF;
4947: --
4948: raise;
4941: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4942: --
4943: IF (l_debug <> -1) THEN
4944: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4945: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4946: END IF;
4947: --
4948: raise;
4949:
4973: --
4974: BEGIN
4975: --
4976: IF (l_debug <> -1) THEN
4977: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4978: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4979: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4980: g_ManageDemand_tab(x_Index).line_id);
4981: END IF;
4974: BEGIN
4975: --
4976: IF (l_debug <> -1) THEN
4977: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4978: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4979: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4980: g_ManageDemand_tab(x_Index).line_id);
4981: END IF;
4982: --
4975: --
4976: IF (l_debug <> -1) THEN
4977: rlm_core_sv.dpush(C_SDEBUG,'MatchDemand');
4978: rlm_core_sv.dlog(C_DEBUG, 'x_Index', x_Index);
4979: rlm_core_sv.dlog(C_DEBUG, 'Line_id to be matched',
4980: g_ManageDemand_tab(x_Index).line_id);
4981: END IF;
4982: --
4983: /* note: 866 attributes still need to be determined */
4989: x_ExcpTab(x_ExcpTab.COUNT + 1).industry_attribute15 := 'N';
4990: x := x_ExcpTab.COUNT;
4991: --
4992: IF (l_debug <> -1) THEN
4993: rlm_core_sv.dlog(C_DEBUG, 'x_AggregateDemand_tab.COUNT',
4994: x_AggregateDemand_tab.COUNT);
4995: END IF;
4996: --
4997: b_match := TRUE;
5050: IF NVL(g_ManageDemand_tab(x_Index).request_date, k_DNULL) <>
5051: NVL(g_ManageDemand_tab(j).request_date, k_DNULL) THEN
5052: b_Match := FALSE;
5053: IF (l_debug <> -1) THEN
5054: rlm_core_sv.dlog(C_DEBUG, 'Request Date as match attribute is enforced so the MRP lines splitted by SDP rule are not aggregated');
5055: END IF;
5056: ELSE
5057: x_ExcpTab(x).request_date := 'Y';
5058: END IF;
5428:
5429: IF b_Match THEN
5430: --
5431: IF (l_debug <> -1) THEN
5432: rlm_core_sv.dlog(C_DEBUG,'match found');
5433: END IF;
5434: --
5435: IF x_AggregateDemand_tab(k).program_id IS NULL THEN
5436: --
5449: x_AggregateDemand_tab(k).primary_quantity +
5450: g_ManageDemand_tab(j).primary_quantity;
5451: --
5452: IF (l_debug <> -1) THEN
5453: rlm_core_sv.dlog(C_DEBUG,'Line to be deleted',
5454: g_ManageDemand_tab(j).line_id);
5455: END IF;
5456: --
5457: SetOperation(g_ManageDemand_tab(j), k_DELETE);
5468: END LOOP;
5469:
5470: --
5471: IF (l_debug <> -1) THEN
5472: rlm_core_sv.dpop(C_SDEBUG);
5473: END IF;
5474: --
5475: EXCEPTION
5476: --
5478: --
5479: rlm_message_sv.sql_error('rlm_manage_demand_sv.MatchDemand', v_Progress);
5480: --
5481: IF (l_debug <> -1) THEN
5482: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5483: END IF;
5484: --
5485: raise;
5486:
5504:
5505: BEGIN
5506: --
5507: IF (l_debug <> -1) THEN
5508: rlm_core_sv.dpush(C_SDEBUG,'AggregateDemand');
5509: END IF;
5510: --
5511: FOR i IN 1..g_ManageDemand_tab.COUNT LOOP
5512: --
5528: --
5529: FOR i IN 0..v_Delete_tab.COUNT-1 LOOP
5530: --
5531: IF (l_debug <> -1) THEN
5532: rlm_core_sv.dlog(C_DEBUG,'Line to be deleted',
5533: g_ManageDemand_tab(v_Delete_tab(i)).line_id);
5534: END IF;
5535: --
5536: SetOperation(g_ManageDemand_tab(v_Delete_tab(i)), k_DELETE);
5544: g_ManageDemand_tab(g_ManageDemand_tab.COUNT + 1) :=
5545: v_AggregateDemand_tab(i);
5546: --
5547: IF (l_debug <> -1) THEN
5548: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5549: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5550: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5551: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5552: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5546: --
5547: IF (l_debug <> -1) THEN
5548: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5549: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5550: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5551: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5552: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5553: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).intmed_ship_to_org_id);
5554: END IF;
5548: rlm_core_sv.dlog(C_DEBUG,'aggregated line qty ',
5549: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).primary_quantity);
5550: rlm_core_sv.dlog(C_DEBUG,'Ship to org',
5551: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).ship_to_org_id);
5552: rlm_core_sv.dlog(C_DEBUG,'Intermediate ship to org ',
5553: g_ManageDemand_tab(g_ManageDemand_tab.COUNT).intmed_ship_to_org_id);
5554: END IF;
5555: --
5556: END IF;
5557: --
5558: END LOOP;
5559: --
5560: IF (l_debug <> -1) THEN
5561: rlm_core_sv.dpop(C_SDEBUG);
5562: END IF;
5563: --
5564: EXCEPTION
5565:
5566: WHEN OTHERS THEN
5567: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5568: --
5569: IF (l_debug <> -1) THEN
5570: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5571: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5572: END IF;
5573: --
5574: raise;
5567: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5568: --
5569: IF (l_debug <> -1) THEN
5570: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5571: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5572: END IF;
5573: --
5574: raise;
5575:
5590:
5591: BEGIN
5592:
5593: IF (l_debug <> -1) THEN
5594: rlm_core_sv.dpush(C_SDEBUG,'SortDemand');
5595: END IF;
5596:
5597: i := g_ManageDemand_tab.FIRST;
5598: LOOP
5597: i := g_ManageDemand_tab.FIRST;
5598: LOOP
5599: --
5600: IF (l_debug <> -1) THEN
5601: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5602: g_ManageDemand_tab(i).line_id);
5603: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5604: g_ManageDemand_tab(i).request_date);
5605: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5599: --
5600: IF (l_debug <> -1) THEN
5601: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5602: g_ManageDemand_tab(i).line_id);
5603: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5604: g_ManageDemand_tab(i).request_date);
5605: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5606: g_ManageDemand_tab(i).program_id);
5607: END IF;
5601: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5602: g_ManageDemand_tab(i).line_id);
5603: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5604: g_ManageDemand_tab(i).request_date);
5605: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').operation',
5606: g_ManageDemand_tab(i).program_id);
5607: END IF;
5608: --
5609: EXIT WHEN i = g_ManageDemand_tab.LAST ;
5612: --
5613: END LOOP;
5614: --
5615: IF (l_debug <> -1) THEN
5616: rlm_core_sv.dlog(C_DEBUG, 'Call QuickSort');
5617: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT', g_ManageDemand_tab.COUNT);
5618: END IF;
5619: --
5620: QuickSort(1, g_ManageDemand_tab.COUNT);
5613: END LOOP;
5614: --
5615: IF (l_debug <> -1) THEN
5616: rlm_core_sv.dlog(C_DEBUG, 'Call QuickSort');
5617: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab.COUNT', g_ManageDemand_tab.COUNT);
5618: END IF;
5619: --
5620: QuickSort(1, g_ManageDemand_tab.COUNT);
5621: --
5619: --
5620: QuickSort(1, g_ManageDemand_tab.COUNT);
5621: --
5622: IF (l_debug <> -1) THEN
5623: rlm_core_sv.dlog(C_DEBUG, 'Return QuickSort');
5624: END IF;
5625: --
5626: --InsertionSort(1,g_ManageDemand_tab.COUNT);
5627: i := g_ManageDemand_tab.FIRST;
5628: --
5629: LOOP
5630: --
5631: IF (l_debug <> -1) THEN
5632: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5633: g_ManageDemand_tab(i).line_id);
5634: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5635: g_ManageDemand_tab(i).request_date);
5636: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5630: --
5631: IF (l_debug <> -1) THEN
5632: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5633: g_ManageDemand_tab(i).line_id);
5634: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5635: g_ManageDemand_tab(i).request_date);
5636: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5637: g_ManageDemand_tab(i).primary_quantity);
5638: END IF;
5632: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').line_id',
5633: g_ManageDemand_tab(i).line_id);
5634: rlm_core_sv.dlog(C_DEBUG,'g_ManageDemand_tab('||i||').request_date',
5635: g_ManageDemand_tab(i).request_date);
5636: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab('||i||').primary_quantity',
5637: g_ManageDemand_tab(i).primary_quantity);
5638: END IF;
5639: --
5640: EXIT WHEN i = g_ManageDemand_tab.LAST ;
5643: --
5644: END LOOP;
5645:
5646: IF (l_debug <> -1) THEN
5647: rlm_core_sv.dpop(C_SDEBUG);
5648: END IF;
5649:
5650: EXCEPTION
5651:
5652: WHEN OTHERS THEN
5653: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5654: --
5655: IF (l_debug <> -1) THEN
5656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5657: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5658: END IF;
5659: --
5660: raise;
5653: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5654: --
5655: IF (l_debug <> -1) THEN
5656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5657: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5658: END IF;
5659: --
5660: raise;
5661:
5679:
5680: BEGIN
5681:
5682: IF (l_debug <> -1) THEN
5683: rlm_core_sv.dpush(C_SDEBUG,'QuickSort');
5684: END IF;
5685:
5686: low := First;
5687: high := Last;
5712: Quicksort(Low, Last);
5713: END IF;
5714:
5715: IF (l_debug <> -1) THEN
5716: rlm_core_sv.dpop(C_SDEBUG);
5717: END IF;
5718:
5719: EXCEPTION
5720:
5721: WHEN OTHERS THEN
5722: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5723: --
5724: IF (l_debug <> -1) THEN
5725: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5726: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5727: END IF;
5728: --
5729: raise;
5722: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5723: --
5724: IF (l_debug <> -1) THEN
5725: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5726: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5727: END IF;
5728: --
5729: raise;
5730: END QuickSort;
5743: v_Progress VARCHAR2(3) := '010';
5744:
5745: BEGIN
5746:
5747: -- rlm_core_sv.dpush(C_SDEBUG,'Swap');
5748:
5749: T := g_ManageDemand_tab(i);
5750: g_ManageDemand_tab(i) := g_ManageDemand_tab(j);
5751: g_ManageDemand_tab(j) := T;
5749: T := g_ManageDemand_tab(i);
5750: g_ManageDemand_tab(i) := g_ManageDemand_tab(j);
5751: g_ManageDemand_tab(j) := T;
5752:
5753: -- rlm_core_sv.dpop(C_SDEBUG);
5754:
5755: EXCEPTION
5756:
5757: WHEN OTHERS THEN
5757: WHEN OTHERS THEN
5758: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5759: --
5760: IF (l_debug <> -1) THEN
5761: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5762: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5763: END IF;
5764: --
5765: raise;
5758: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5759: --
5760: IF (l_debug <> -1) THEN
5761: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5762: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5763: END IF;
5764: --
5765: raise;
5766:
5784:
5785: BEGIN
5786: --
5787: IF (l_debug <> -1) THEN
5788: rlm_core_sv.dpush(C_SDEBUG,'InsertionSort');
5789: END IF;
5790: --
5791: FOR i IN lo+1..hi LOOP
5792: v := g_ManageDemand_tab(i);
5798: g_ManageDemand_tab(j) := v;
5799: END LOOP;
5800: --
5801: IF (l_debug <> -1) THEN
5802: rlm_core_sv.dpop(C_SDEBUG);
5803: END IF;
5804: --
5805: EXCEPTION
5806:
5807: WHEN OTHERS THEN
5808: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5809: --
5810: IF (l_debug <> -1) THEN
5811: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5812: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5813: END IF;
5814: --
5815: raise;
5808: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5809: --
5810: IF (l_debug <> -1) THEN
5811: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5812: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5813: END IF;
5814: --
5815: raise;
5816:
5840:
5841: BEGIN
5842: --
5843: IF (l_debug <> -1) THEN
5844: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5845: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5846: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5847: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5848: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5841: BEGIN
5842: --
5843: IF (l_debug <> -1) THEN
5844: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5845: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5846: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5847: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5848: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5849: END IF;
5843: IF (l_debug <> -1) THEN
5844: rlm_core_sv.dpush(C_SDEBUG,'RoundStandardPack');
5845: rlm_core_sv.dlog(C_DEBUG, 'round_to_std_pack_flag',
5846: x_Group_rec.setup_terms_rec.round_to_std_pack_flag);
5847: rlm_core_sv.dlog(C_DEBUG, 'standard pack qty ',
5848: x_Group_rec.setup_terms_rec.STD_PACK_QTY);
5849: END IF;
5850: --
5851: IF x_Group_rec.setup_terms_rec.round_to_std_pack_flag = 'Y' THEN
5859: --
5860: FOR i IN 1..g_ManageDemand_Tab.COUNT LOOP
5861: --
5862: IF (l_debug <> -1) THEN
5863: rlm_core_sv.dlog(C_DEBUG,'program_id ',g_ManageDemand_tab(i).program_id);
5864: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5865: END IF;
5866: --
5867: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5860: FOR i IN 1..g_ManageDemand_Tab.COUNT LOOP
5861: --
5862: IF (l_debug <> -1) THEN
5863: rlm_core_sv.dlog(C_DEBUG,'program_id ',g_ManageDemand_tab(i).program_id);
5864: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5865: END IF;
5866: --
5867: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5868: --
5866: --
5867: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5868: --
5869: IF (l_debug <> -1) THEN
5870: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5871: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
5872: g_ManageDemand_Tab(i).primary_quantity);
5873: END IF;
5874: --
5867: IF g_ManageDemand_tab(i).program_id <> k_DELETE THEN
5868: --
5869: IF (l_debug <> -1) THEN
5870: rlm_core_sv.dlog(C_DEBUG, 'index ',i);
5871: rlm_core_sv.dlog(C_DEBUG,'primary_quantity',
5872: g_ManageDemand_Tab(i).primary_quantity);
5873: END IF;
5874: --
5875: v_qty_before_round := v_qty_before_round +
5881: --
5882: v_StdPackQty := x_Group_rec.setup_terms_rec.std_pack_qty;
5883: --
5884: IF (l_debug <> -1) THEN
5885: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty before rounding',
5886: v_qty_before_round);
5887: rlm_core_sv.dlog(C_DEBUG, 'Table COUNT ',g_ManageDemand_tab.COUNT);
5888: END IF;
5889: --
5883: --
5884: IF (l_debug <> -1) THEN
5885: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty before rounding',
5886: v_qty_before_round);
5887: rlm_core_sv.dlog(C_DEBUG, 'Table COUNT ',g_ManageDemand_tab.COUNT);
5888: END IF;
5889: --
5890: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5891: --
5889: --
5890: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5891: --
5892: IF (l_debug <> -1) THEN
5893: rlm_core_sv.dlog(C_DEBUG, 'i ',i);
5894: rlm_core_sv.dlog(C_DEBUG, 'program_id',g_ManageDemand_tab(i).program_id);
5895: END IF;
5896: --
5897: -- Do not consider the lines which have been marked for deletion
5890: WHILE (i <= g_ManageDemand_tab.COUNT) LOOP
5891: --
5892: IF (l_debug <> -1) THEN
5893: rlm_core_sv.dlog(C_DEBUG, 'i ',i);
5894: rlm_core_sv.dlog(C_DEBUG, 'program_id',g_ManageDemand_tab(i).program_id);
5895: END IF;
5896: --
5897: -- Do not consider the lines which have been marked for deletion
5898: -- either by aggregration or other ways for Round to std pack calculation
5899: --
5900: IF(g_ManageDemand_tab(i).program_id <> k_DELETE) THEN
5901: --
5902: IF (l_debug <> -1) THEN
5903: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5904: g_ManageDemand_tab(i).primary_quantity);
5905: END IF;
5906: --
5907: v_ModQty := MOD(g_ManageDemand_tab(i).primary_quantity, v_StdPackQty);
5906: --
5907: v_ModQty := MOD(g_ManageDemand_tab(i).primary_quantity, v_StdPackQty);
5908: --
5909: IF (l_debug <> -1) THEN
5910: rlm_core_sv.dlog(C_DEBUG, 'ModQty',v_ModQty);
5911: END IF;
5912: --
5913: IF v_ModQty <> 0 THEN
5914: --
5914: --
5915: v_QtyToAdd := v_StdPackQty - v_ModQty;
5916: --
5917: IF (l_debug <> -1) THEN
5918: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd',v_QtyToAdd);
5919: END IF;
5920: --
5921: g_ManageDemand_tab(i).primary_quantity :=
5922: g_ManageDemand_tab(i).primary_quantity
5927: v_Sum := 0;
5928: j := i + 1;
5929: --
5930: IF (l_debug <> -1) THEN
5931: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5932: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5933: g_ManageDemand_tab(i).primary_quantity);
5934: END IF;
5935: --
5928: j := i + 1;
5929: --
5930: IF (l_debug <> -1) THEN
5931: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5932: rlm_core_sv.dlog(C_DEBUG, 'g_ManageDemand_tab(i).primary_quantity',
5933: g_ManageDemand_tab(i).primary_quantity);
5934: END IF;
5935: --
5936: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5935: --
5936: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5937: --
5938: IF (l_debug <> -1) THEN
5939: rlm_core_sv.dlog(C_DEBUG, 'j ',j);
5940: rlm_core_sv.dlog(C_DEBUG, 'program_id',
5941: g_ManageDemand_tab(j).program_id );
5942: END IF;
5943: --
5936: WHILE (v_Sum < v_QtyToAdd) AND (j <= g_ManageDemand_tab.COUNT) LOOP
5937: --
5938: IF (l_debug <> -1) THEN
5939: rlm_core_sv.dlog(C_DEBUG, 'j ',j);
5940: rlm_core_sv.dlog(C_DEBUG, 'program_id',
5941: g_ManageDemand_tab(j).program_id );
5942: END IF;
5943: --
5944: IF (g_ManageDemand_tab(j).program_id <> k_DELETE) THEN
5946: -- Do not consider the lines which have been marked
5947: -- for deletion
5948: --
5949: IF (l_debug <> -1) THEN
5950: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5951: g_ManageDemand_tab(j).primary_quantity);
5952: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5953: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5954: END IF;
5948: --
5949: IF (l_debug <> -1) THEN
5950: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5951: g_ManageDemand_tab(j).primary_quantity);
5952: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5953: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5954: END IF;
5955: --
5956: IF g_ManageDemand_tab(j).primary_quantity >
5949: IF (l_debug <> -1) THEN
5950: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5951: g_ManageDemand_tab(j).primary_quantity);
5952: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5953: rlm_core_sv.dlog(C_DEBUG, 'v_QtyToAdd ',v_QtyToAdd);
5954: END IF;
5955: --
5956: IF g_ManageDemand_tab(j).primary_quantity >
5957: (v_QtyToAdd - v_Sum) THEN
5961: - (v_QtyToAdd - v_Sum);
5962: v_Sum := v_QtyToAdd;
5963: --
5964: IF (l_debug <> -1) THEN
5965: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5966: g_ManageDemand_tab(j).primary_quantity);
5967: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5968: END IF;
5969: --
5963: --
5964: IF (l_debug <> -1) THEN
5965: rlm_core_sv.dlog(C_DEBUG, 'j.primary_quantity',
5966: g_ManageDemand_tab(j).primary_quantity);
5967: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5968: END IF;
5969: --
5970: SetOperation(g_ManageDemand_tab(j), k_UPDATE);
5971: --
5973: --
5974: v_Sum := v_Sum + g_ManageDemand_tab(j).primary_quantity;
5975: --
5976: IF (l_debug <> -1) THEN
5977: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5978: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5979: g_ManageDemand_tab(j).primary_quantity);
5980: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5981: END IF;
5974: v_Sum := v_Sum + g_ManageDemand_tab(j).primary_quantity;
5975: --
5976: IF (l_debug <> -1) THEN
5977: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5978: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5979: g_ManageDemand_tab(j).primary_quantity);
5980: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5981: END IF;
5982: --
5976: IF (l_debug <> -1) THEN
5977: rlm_core_sv.dlog(C_DEBUG, 'v_Sum ',v_Sum);
5978: rlm_core_sv.dlog(C_DEBUG,'j.primary_quantity',
5979: g_ManageDemand_tab(j).primary_quantity);
5980: rlm_core_sv.dlog(C_DEBUG,'Setting the primary qty to O');
5981: END IF;
5982: --
5983: g_ManageDemand_tab(j).primary_quantity := 0;
5984: SetOperation(g_ManageDemand_tab(j), k_UPDATE);
6023: --
6024: END LOOP;
6025: --
6026: IF (l_debug <> -1) THEN
6027: rlm_core_sv.dlog(C_DEBUG, 'Total primary qty after rounding',
6028: v_qty_after_round);
6029: END IF;
6030: --
6031: IF v_qty_after_round > v_qty_before_round THEN
6030: --
6031: IF v_qty_after_round > v_qty_before_round THEN
6032: --
6033: IF (l_debug <> -1) THEN
6034: rlm_core_sv.dlog(C_DEBUG,'WARNING overshipment has occured by qty = '
6035: ,v_qty_after_round - v_qty_before_round);
6036: END IF;
6037: --
6038: rlm_message_sv.app_error(
6045: x_OrderHeaderId => x_group_rec.setup_terms_rec.header_id,
6046: x_OrderLineId => NULL,
6047: --x_ErrorText => 'Overshipment for Item',
6048: x_token1 => 'CUSTITEM',
6049: x_value1 => rlm_core_sv.get_item_number(g_ManageDemand_tab(g_ManageDemand_tab.COUNT).customer_item_id),
6050: x_token2 => 'OVRQTY',
6051: x_value2 => v_qty_after_round - v_qty_before_round);
6052: --
6053: --
6055: --
6056: END IF;
6057: --
6058: IF (l_debug <> -1) THEN
6059: rlm_core_sv.dpop(C_SDEBUG);
6060: END IF;
6061: --
6062: EXCEPTION
6063:
6063:
6064: WHEN NO_DATA_FOUND THEN
6065: --
6066: IF (l_debug <> -1) THEN
6067: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6068: END IF;
6069:
6070: WHEN OTHERS THEN
6071: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
6071: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
6072: v_Progress);
6073: --
6074: IF (l_debug <> -1) THEN
6075: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6076: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6077: END IF;
6078: --
6079: raise;
6072: v_Progress);
6073: --
6074: IF (l_debug <> -1) THEN
6075: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6076: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6077: END IF;
6078: --
6079: raise;
6080:
6092:
6093: BEGIN
6094:
6095: IF (l_debug <> -1) THEN
6096: rlm_core_sv.dpush(C_SDEBUG,'InitializeMdGroup');
6097: END IF;
6098:
6099: OPEN x_Group_ref FOR
6100: SELECT rih.customer_id,
6115: WHERE rih.header_id = x_Sched_rec.header_id
6116: AND rih.org_id = ril.org_id
6117: AND ril.header_id = rih.header_id
6118: AND ril.industry_attribute15 = x_Group_rec.ship_from_org_id
6119: AND ril.process_status = rlm_core_sv.k_PS_AVAILABLE
6120: AND ril.customer_item_id = x_Group_rec.customer_item_id
6121: --AND ril.inventory_item_id = x_Group_rec.inventory_item_id
6122: AND ril.ship_to_address_id = x_Group_rec.ship_to_address_id
6123: GROUP BY rih.customer_id,
6139: will be 2 lines which will be inserted but having the same
6140: match attributes */
6141:
6142: IF (l_debug <> -1) THEN
6143: rlm_core_sv.dpop(C_SDEBUG);
6144: END IF;
6145:
6146: EXCEPTION
6147: WHEN OTHERS THEN
6146: EXCEPTION
6147: WHEN OTHERS THEN
6148: --
6149: IF (l_debug <> -1) THEN
6150: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6151: END IF;
6152: --
6153: raise;
6154:
6165: IS
6166: BEGIN
6167:
6168: IF (l_debug <> -1) THEN
6169: rlm_core_sv.dpush(C_SDEBUG,'FetchGroup');
6170: END IF;
6171:
6172: FETCH x_Group_ref INTO
6173: x_Group_rec.customer_id,
6184: -- x_Group_rec.cust_production_seq_num;
6185: IF x_Group_ref%NOTFOUND THEN
6186: --
6187: IF (l_debug <> -1) THEN
6188: rlm_core_sv.dpop(C_SDEBUG, 'false');
6189: END IF;
6190: --
6191: RETURN(FALSE);
6192: ELSE
6191: RETURN(FALSE);
6192: ELSE
6193: --
6194: IF (l_debug <> -1) THEN
6195: rlm_core_sv.dpop(C_SDEBUG, 'true');
6196: END IF;
6197: --
6198: RETURN(TRUE);
6199: END IF;
6201: EXCEPTION
6202: WHEN OTHERS THEN
6203: --
6204: IF (l_debug <> -1) THEN
6205: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6206: END IF;
6207: --
6208: raise;
6209:
6227: --
6228: BEGIN
6229: --
6230: IF (l_debug <> -1) THEN
6231: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6232: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6233: x_Group_rec.ship_from_org_id);
6234: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6235: x_Group_rec.customer_id);
6228: BEGIN
6229: --
6230: IF (l_debug <> -1) THEN
6231: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6232: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6233: x_Group_rec.ship_from_org_id);
6234: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6235: x_Group_rec.customer_id);
6236: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6230: IF (l_debug <> -1) THEN
6231: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
6232: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6233: x_Group_rec.ship_from_org_id);
6234: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6235: x_Group_rec.customer_id);
6236: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6237: x_Group_rec.ship_to_address_id);
6238: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6232: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_from_org_id',
6233: x_Group_rec.ship_from_org_id);
6234: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6235: x_Group_rec.customer_id);
6236: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6237: x_Group_rec.ship_to_address_id);
6238: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6239: x_Group_rec.customer_item_id);
6240: END IF;
6234: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_id',
6235: x_Group_rec.customer_id);
6236: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.ship_to_address_id',
6237: x_Group_rec.ship_to_address_id);
6238: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.customer_item_id',
6239: x_Group_rec.customer_item_id);
6240: END IF;
6241: --
6242: -- NOTE: call rla setups to populate setup info in the group rec:
6252: v_ReturnMsg,
6253: v_ReturnStatus);
6254: --
6255: IF (l_debug <> -1) THEN
6256: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6257: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6258: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6253: v_ReturnStatus);
6254: --
6255: IF (l_debug <> -1) THEN
6256: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6257: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6258: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6261: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6254: --
6255: IF (l_debug <> -1) THEN
6256: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6257: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6258: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6261: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6262: v_SetupTerms_rec.header_id);
6255: IF (l_debug <> -1) THEN
6256: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
6257: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6258: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6261: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6262: v_SetupTerms_rec.header_id);
6263: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6257: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
6258: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnMsg', v_ReturnMsg);
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6261: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6262: v_SetupTerms_rec.header_id);
6263: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6264: v_SetupTerms_rec.blanket_number);
6265: END IF;
6259: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
6260: v_SetupTerms_rec.schedule_hierarchy_code);
6261: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
6262: v_SetupTerms_rec.header_id);
6263: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.blanket_number',
6264: v_SetupTerms_rec.blanket_number);
6265: END IF;
6266: --
6267: IF v_ReturnStatus THEN
6296: --
6297: x_Group_rec.match_across := v_SetupTerms_rec.match_across_key;
6298: --
6299: IF (l_debug <> -1) THEN
6300: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_within',
6301: x_Group_rec.match_within);
6302: END IF;
6303: --
6304: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6300: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_within',
6301: x_Group_rec.match_within);
6302: END IF;
6303: --
6304: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6305: x_Group_rec.match_within);
6306: --
6307: IF (l_debug <> -1) THEN
6308: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6304: rlm_core_sv.populate_match_keys(x_Group_rec.match_within_rec,
6305: x_Group_rec.match_within);
6306: --
6307: IF (l_debug <> -1) THEN
6308: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6309: x_Group_rec.match_across);
6310: END IF;
6311: --
6312: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6308: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.match_across',
6309: x_Group_rec.match_across);
6310: END IF;
6311: --
6312: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6313: x_Group_rec.match_across);
6314: --
6315: IF (l_debug <> -1) THEN
6316: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6312: rlm_core_sv.populate_match_keys(x_Group_rec.match_across_rec,
6313: x_Group_rec.match_across);
6314: --
6315: IF (l_debug <> -1) THEN
6316: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6317: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6318: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6319: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6320: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6314: --
6315: IF (l_debug <> -1) THEN
6316: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6317: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6318: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6319: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6320: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6321: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6322: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6316: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_from',
6317: x_Group_rec.setup_terms_rec.pln_frozen_day_from);
6318: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6319: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6320: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6321: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6322: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6323: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6324: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6318: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_frozen_day_to',
6319: x_Group_rec.setup_terms_rec.pln_frozen_day_to);
6320: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6321: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6322: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6323: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6324: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6325: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6326: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6320: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_from',
6321: x_Group_rec.setup_terms_rec.pln_firm_day_from);
6322: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6323: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6324: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6325: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6326: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6327: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6328: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6322: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_firm_day_to',
6323: x_Group_rec.setup_terms_rec.pln_firm_day_to);
6324: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6325: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6326: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6327: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6328: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6329: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6330: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6324: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_from',
6325: x_Group_rec.setup_terms_rec.pln_forecast_day_from);
6326: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6327: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6328: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6329: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6330: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6331: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6332: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6326: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.pln_forecast_day_to',
6327: x_Group_rec.setup_terms_rec.pln_forecast_day_to);
6328: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6329: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6330: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6331: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6332: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6333: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6334: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6328: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_from',
6329: x_Group_rec.setup_terms_rec.shp_frozen_day_from);
6330: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6331: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6332: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6333: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6334: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6335: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6336: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6330: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_frozen_day_to',
6331: x_Group_rec.setup_terms_rec.shp_frozen_day_to);
6332: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6333: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6334: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6335: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6336: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6337: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6338: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6332: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_from',
6333: x_Group_rec.setup_terms_rec.shp_firm_day_from);
6334: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6335: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6336: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6337: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6338: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6339: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6340: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6334: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_firm_day_to',
6335: x_Group_rec.setup_terms_rec.shp_firm_day_to);
6336: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6337: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6338: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6339: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6340: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6341: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6342: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6336: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_from',
6337: x_Group_rec.setup_terms_rec.shp_forecast_day_from);
6338: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6339: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6340: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6341: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6342: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6343: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6344: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6338: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.shp_forecast_day_to',
6339: x_Group_rec.setup_terms_rec.shp_forecast_day_to);
6340: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6341: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6342: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6343: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6344: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6345: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6346: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6340: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_from',
6341: x_Group_rec.setup_terms_rec.seq_frozen_day_from);
6342: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6343: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6344: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6345: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6346: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6347: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6348: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6342: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_frozen_day_to',
6343: x_Group_rec.setup_terms_rec.seq_frozen_day_to);
6344: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6345: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6346: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6347: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6348: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6349: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6350: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6344: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_from',
6345: x_Group_rec.setup_terms_rec.seq_firm_day_from);
6346: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6347: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6348: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6349: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6350: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6351: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6352: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6346: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_firm_day_to',
6347: x_Group_rec.setup_terms_rec.seq_firm_day_to);
6348: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6349: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6350: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6351: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6352: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6353: x_Group_rec.schedule_type_one);
6354: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6348: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_from',
6349: x_Group_rec.setup_terms_rec.seq_forecast_day_from);
6350: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6351: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6352: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6353: x_Group_rec.schedule_type_one);
6354: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6355: x_Group_rec.schedule_type_two);
6356: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6350: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.seq_forecast_day_to',
6351: x_Group_rec.setup_terms_rec.seq_forecast_day_to);
6352: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6353: x_Group_rec.schedule_type_one);
6354: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6355: x_Group_rec.schedule_type_two);
6356: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6357: x_Group_rec.schedule_type_three);
6358: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6352: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_one',
6353: x_Group_rec.schedule_type_one);
6354: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6355: x_Group_rec.schedule_type_two);
6356: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6357: x_Group_rec.schedule_type_three);
6358: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6359: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6360: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6354: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_two',
6355: x_Group_rec.schedule_type_two);
6356: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6357: x_Group_rec.schedule_type_three);
6358: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6359: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6360: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6361: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6362: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6356: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.schedule_type_three',
6357: x_Group_rec.schedule_type_three);
6358: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6359: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6360: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6361: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6362: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6363: x_Group_rec.setup_terms_rec.ship_method);
6364: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6358: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag',
6359: x_Group_rec.setup_terms_rec.use_edi_sdp_code_flag);
6360: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6361: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6362: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6363: x_Group_rec.setup_terms_rec.ship_method);
6364: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6365: x_Group_rec.setup_terms_rec.intransit_time);
6366: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6360: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_delivery_rule_name',
6361: x_Group_rec.Setup_terms_rec.ship_delivery_rule_name);
6362: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6363: x_Group_rec.setup_terms_rec.ship_method);
6364: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6365: x_Group_rec.setup_terms_rec.intransit_time);
6366: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6367: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6368: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6362: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.ship_method',
6363: x_Group_rec.setup_terms_rec.ship_method);
6364: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6365: x_Group_rec.setup_terms_rec.intransit_time);
6366: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6367: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6368: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6369: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6370: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6364: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.intransit_time',
6365: x_Group_rec.setup_terms_rec.intransit_time);
6366: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6367: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6368: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6369: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6370: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6371: x_Group_rec.setup_terms_rec.time_uom_code);
6372: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6366: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd',
6367: x_Group_rec.setup_terms_rec.customer_rcv_calendar_cd);
6368: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6369: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6370: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6371: x_Group_rec.setup_terms_rec.time_uom_code);
6372: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6373: x_Group_rec.setup_terms_rec.cum_control_code);
6374: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6368: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd',
6369: x_Group_rec.setup_terms_rec.supplier_shp_calendar_cd);
6370: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6371: x_Group_rec.setup_terms_rec.time_uom_code);
6372: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6373: x_Group_rec.setup_terms_rec.cum_control_code);
6374: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6375: x_Group_rec.setup_terms_rec.exclude_non_workdays_flag);
6376: END IF;
6370: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.time_uom_code',
6371: x_Group_rec.setup_terms_rec.time_uom_code);
6372: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.cum_control_code',
6373: x_Group_rec.setup_terms_rec.cum_control_code);
6374: rlm_core_sv.dlog(C_DEBUG,'x_Group_rec.setup_terms_rec.exclude_non_workdays_flag',
6375: x_Group_rec.setup_terms_rec.exclude_non_workdays_flag);
6376: END IF;
6377: --
6378: ELSE
6377: --
6378: ELSE
6379: --
6380: IF (l_debug <> -1) THEN
6381: rlm_core_sv.dlog(C_DEBUG,'setups failed');
6382: END IF;
6383: --
6384: raise e_SetupAPIFailed;
6385: --
6385: --
6386: END IF;
6387: --
6388: IF (l_debug <> -1) THEN
6389: rlm_core_sv.dpop(C_SDEBUG);
6390: END IF;
6391: --
6392: EXCEPTION
6393: WHEN e_SetupAPIFailed THEN
6424: x_Token1 => 'ERROR',
6425: x_value1 => v_ReturnMsg);
6426: --
6427: IF (l_debug <> -1) THEN
6428: rlm_core_sv.dpop(C_SDEBUG);
6429: END IF;
6430: --
6431: raise e_GroupError;
6432: --
6432: --
6433: WHEN OTHERS THEN
6434: --
6435: IF (l_debug <> -1) THEN
6436: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6437: END IF;
6438: --
6439: raise;
6440:
6464: --and schedule_item_num = x_GroupRec.schedule_item_num
6465: and order_header_id = x_GroupRec.Order_header_id
6466: -- Perf change
6467: --and cust_production_seq_num = x_GroupRec.cust_production_seq_num
6468: and process_status = rlm_core_sv.k_PS_AVAILABLE
6469: FOR UPDATE NOWAIT;
6470: --
6471: CURSOR c_blanket IS
6472: SELECT *
6475: and customer_item_id = x_GroupRec.customer_item_id
6476: and ship_from_org_id = x_GroupRec.ship_from_org_id
6477: and ship_to_org_id = x_GroupRec.ship_to_org_id
6478: and blanket_number = x_GroupRec.blanket_number
6479: and process_status = rlm_core_sv.k_PS_AVAILABLE
6480: FOR UPDATE NOWAIT;
6481:
6482: BEGIN
6483: --
6481:
6482: BEGIN
6483: --
6484: IF (l_debug <> -1) THEN
6485: rlm_core_sv.dpush(C_SDEBUG,'LockLines');
6486: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_INTERFACE_LINES');
6487: END IF;
6488: --
6489: IF x_GroupRec.blanket_number is NULL THEN
6482: BEGIN
6483: --
6484: IF (l_debug <> -1) THEN
6485: rlm_core_sv.dpush(C_SDEBUG,'LockLines');
6486: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_INTERFACE_LINES');
6487: END IF;
6488: --
6489: IF x_GroupRec.blanket_number is NULL THEN
6490: --
6498: --
6499: END IF;
6500: --
6501: IF (l_debug <> -1) THEN
6502: rlm_core_sv.dpop(C_SDEBUG);
6503: END IF;
6504: --
6505: RETURN(TRUE);
6506:
6507: EXCEPTION
6508: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
6509: --
6510: IF (l_debug <> -1) THEN
6511: rlm_core_sv.dpop(C_SDEBUG);
6512: END IF;
6513: --
6514: RETURN(FALSE);
6515:
6516: WHEN OTHERS THEN
6517: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6518: --
6519: IF (l_debug <> -1) THEN
6520: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6521: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6522: END IF;
6523: --
6524: RAISE;
6517: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6518: --
6519: IF (l_debug <> -1) THEN
6520: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6521: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6522: END IF;
6523: --
6524: RAISE;
6525:
6540:
6541: BEGIN
6542: --
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6545: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6546: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6547: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6548: END IF;
6541: BEGIN
6542: --
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6545: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6546: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6547: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6548: END IF;
6549: --
6542: --
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6545: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6546: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6547: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6548: END IF;
6549: --
6550: UPDATE rlm_interface_headers_all
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dpush(C_SDEBUG,'UpdateHeaderStatus');
6545: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6546: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6547: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6548: END IF;
6549: --
6550: UPDATE rlm_interface_headers_all
6551: SET process_status = x_ProcessStatus
6551: SET process_status = x_ProcessStatus
6552: WHERE header_id = x_HeaderId;
6553: --
6554: IF (l_debug <> -1) THEN
6555: rlm_core_sv.dlog(C_DEBUG,'Number of Interface header updated',SQL%ROWCOUNT);
6556: END IF;
6557: --
6558: UPDATE rlm_schedule_headers_all
6559: SET process_status = x_ProcessStatus
6559: SET process_status = x_ProcessStatus
6560: WHERE header_id = x_ScheduleHeaderId;
6561: --
6562: IF (l_debug <> -1) THEN
6563: rlm_core_sv.dlog(C_DEBUG,'Number of schedule header updated',SQL%ROWCOUNT);
6564: END IF;
6565: --
6566: IF (l_debug <> -1) THEN
6567: rlm_core_sv.dpop(C_SDEBUG);
6563: rlm_core_sv.dlog(C_DEBUG,'Number of schedule header updated',SQL%ROWCOUNT);
6564: END IF;
6565: --
6566: IF (l_debug <> -1) THEN
6567: rlm_core_sv.dpop(C_SDEBUG);
6568: END IF;
6569: --
6570: EXCEPTION
6571: WHEN NO_DATA_FOUND THEN
6570: EXCEPTION
6571: WHEN NO_DATA_FOUND THEN
6572: --
6573: IF (l_debug <> -1) THEN
6574: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6575: rlm_core_sv.dpop(C_SDEBUG);
6576: END IF;
6577:
6578: WHEN OTHERS THEN
6571: WHEN NO_DATA_FOUND THEN
6572: --
6573: IF (l_debug <> -1) THEN
6574: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6575: rlm_core_sv.dpop(C_SDEBUG);
6576: END IF;
6577:
6578: WHEN OTHERS THEN
6579: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6578: WHEN OTHERS THEN
6579: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6580: --
6581: IF (l_debug <> -1) THEN
6582: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6583: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6584: END IF;
6585:
6586: END UpdateHeaderStatus;
6579: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6580: --
6581: IF (l_debug <> -1) THEN
6582: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6583: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6584: END IF;
6585:
6586: END UpdateHeaderStatus;
6587:
6602: --
6603: BEGIN
6604: --
6605: IF (l_debug <> -1) THEN
6606: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6607: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6608: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6609: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6610: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6603: BEGIN
6604: --
6605: IF (l_debug <> -1) THEN
6606: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6607: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6608: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6609: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6610: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6611: END IF;
6604: --
6605: IF (l_debug <> -1) THEN
6606: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6607: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6608: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6609: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6610: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6611: END IF;
6612: --
6605: IF (l_debug <> -1) THEN
6606: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6607: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6608: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6609: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6610: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6611: END IF;
6612: --
6613: IF x_UpdateLevel = 'GROUP' THEN
6606: rlm_core_sv.dpush(C_SDEBUG,'UpdateGroupStatus');
6607: rlm_core_sv.dlog(C_DEBUG,'x_UpdateLevel',x_UpdateLevel);
6608: rlm_core_sv.dlog(C_DEBUG,'x_ProcessStatus',x_ProcessStatus);
6609: rlm_core_sv.dlog(C_DEBUG,'x_HeaderId',x_HeaderId);
6610: rlm_core_sv.dlog(C_DEBUG,'x_ScheduleHeaderId',x_ScheduleHeaderId);
6611: END IF;
6612: --
6613: IF x_UpdateLevel = 'GROUP' THEN
6614: --
6612: --
6613: IF x_UpdateLevel = 'GROUP' THEN
6614: --
6615: IF (l_debug <> -1) THEN
6616: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6617: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6618: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6619: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6620: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6613: IF x_UpdateLevel = 'GROUP' THEN
6614: --
6615: IF (l_debug <> -1) THEN
6616: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6617: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6618: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6619: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6620: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6621: x_GroupRec.cust_production_seq_num);*/
6614: --
6615: IF (l_debug <> -1) THEN
6616: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6617: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6618: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6619: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6620: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6621: x_GroupRec.cust_production_seq_num);*/
6622: END IF;
6615: IF (l_debug <> -1) THEN
6616: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6617: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6618: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6619: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6620: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6621: x_GroupRec.cust_production_seq_num);*/
6622: END IF;
6623:
6616: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.inventory_item_id',x_GroupRec.inventory_item_id);
6617: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_from_org_id',x_GroupRec.ship_from_org_id);
6618: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.ship_to_address_id',x_GroupRec.ship_to_address_id);
6619: rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.Order_header_id',x_GroupRec.Order_header_id);
6620: /*rlm_core_sv.dlog(C_DEBUG,'x_GroupRec.cust_production_seq_num',
6621: x_GroupRec.cust_production_seq_num);*/
6622: END IF;
6623:
6624: --
6631: and order_header_id = x_GroupRec.Order_header_id
6632: -- Perf change
6633: /*and nvl(cust_production_seq_num,k_VNULL) =
6634: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6635: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6636: rlm_core_sv.k_PS_FROZEN_FIRM);
6637: --
6638: IF (l_debug <> -1) THEN
6639: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6632: -- Perf change
6633: /*and nvl(cust_production_seq_num,k_VNULL) =
6634: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6635: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6636: rlm_core_sv.k_PS_FROZEN_FIRM);
6637: --
6638: IF (l_debug <> -1) THEN
6639: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6640: END IF;
6635: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6636: rlm_core_sv.k_PS_FROZEN_FIRM);
6637: --
6638: IF (l_debug <> -1) THEN
6639: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6640: END IF;
6641: --
6642: UPDATE rlm_schedule_lines
6643: SET process_status = x_ProcessStatus
6648: -- and order_header_id = x_GroupRec.Order_header_id
6649: -- Perf change
6650: /*and nvl(cust_production_seq_num, k_VNULL) =
6651: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6652: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6653: rlm_core_sv.k_PS_FROZEN_FIRM);
6654: --
6655: IF (l_debug <> -1) THEN
6656: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6649: -- Perf change
6650: /*and nvl(cust_production_seq_num, k_VNULL) =
6651: nvl(x_GroupRec.cust_production_seq_num, k_VNULL)*/
6652: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6653: rlm_core_sv.k_PS_FROZEN_FIRM);
6654: --
6655: IF (l_debug <> -1) THEN
6656: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6657: END IF;
6652: and process_status IN (rlm_core_sv.k_PS_AVAILABLE,
6653: rlm_core_sv.k_PS_FROZEN_FIRM);
6654: --
6655: IF (l_debug <> -1) THEN
6656: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6657: END IF;
6658: --
6659: ELSIF x_UpdateLevel = 'ALL' THEN
6660: --
6660: --
6661: UPDATE rlm_interface_lines
6662: SET process_status = x_ProcessStatus
6663: WHERE header_id = x_HeaderId
6664: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6665: --
6666: IF (l_debug <> -1) THEN
6667: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6668: END IF;
6663: WHERE header_id = x_HeaderId
6664: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6665: --
6666: IF (l_debug <> -1) THEN
6667: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
6668: END IF;
6669: --
6670: UPDATE rlm_schedule_lines
6671: SET process_status = x_ProcessStatus
6669: --
6670: UPDATE rlm_schedule_lines
6671: SET process_status = x_ProcessStatus
6672: WHERE header_id = x_ScheduleHeaderId
6673: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6674: --
6675: IF (l_debug <> -1) THEN
6676: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6677: END IF;
6672: WHERE header_id = x_ScheduleHeaderId
6673: and process_status = rlm_core_sv.k_PS_AVAILABLE;
6674: --
6675: IF (l_debug <> -1) THEN
6676: rlm_core_sv.dlog(C_DEBUG,'Number of schedule lines updated',SQL%ROWCOUNT);
6677: END IF;
6678: --
6679: END IF;
6680: --
6678: --
6679: END IF;
6680: --
6681: IF (l_debug <> -1) THEN
6682: rlm_core_sv.dpop(C_SDEBUG);
6683: END IF;
6684: --
6685: EXCEPTION
6686: --
6686: --
6687: WHEN NO_DATA_FOUND THEN
6688: --
6689: IF (l_debug <> -1) THEN
6690: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6691: rlm_core_sv.dpop(C_SDEBUG);
6692: END IF;
6693: --
6694: WHEN OTHERS THEN
6687: WHEN NO_DATA_FOUND THEN
6688: --
6689: IF (l_debug <> -1) THEN
6690: rlm_core_sv.dlog(C_DEBUG,'NO DATA FOUND ERROR',x_Progress);
6691: rlm_core_sv.dpop(C_SDEBUG);
6692: END IF;
6693: --
6694: WHEN OTHERS THEN
6695: --
6695: --
6696: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6697: --
6698: IF (l_debug <> -1) THEN
6699: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6700: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6701: END IF;
6702: --
6703: END UpdateGroupStatus;
6696: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6697: --
6698: IF (l_debug <> -1) THEN
6699: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6700: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
6701: END IF;
6702: --
6703: END UpdateGroupStatus;
6704:
6716: --
6717: BEGIN
6718: --
6719: IF (l_debug <> -1) THEN
6720: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6721: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6722: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6723: END IF;
6724: --
6717: BEGIN
6718: --
6719: IF (l_debug <> -1) THEN
6720: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6721: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6722: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6723: END IF;
6724: --
6725: IF (x_LeadUom = 'DAY') THEN
6718: --
6719: IF (l_debug <> -1) THEN
6720: rlm_core_sv.dpush(C_SDEBUG,'apply_lead_time');
6721: rlm_core_sv.dlog(C_DEBUG,' x_LeadTime',x_LeadTime);
6722: rlm_core_sv.dlog(C_DEBUG,' x_LeadUOM ',x_LeadUom);
6723: END IF;
6724: --
6725: IF (x_LeadUom = 'DAY') THEN
6726: --
6724: --
6725: IF (x_LeadUom = 'DAY') THEN
6726: --
6727: IF (l_debug <> -1) THEN
6728: rlm_core_sv.dpop(C_SDEBUG);
6729: END IF;
6730: --
6731: RETURN x_LeadTime;
6732: --
6732: --
6733: ELSIF (x_LeadUom = 'HR') THEN
6734: --
6735: IF (l_debug <> -1) THEN
6736: rlm_core_sv.dpop(C_SDEBUG);
6737: END IF;
6738: --
6739: RETURN (x_LeadTime/24);
6740: --
6740: --
6741: ELSE
6742: --
6743: IF (l_debug <> -1) THEN
6744: rlm_core_sv.dpop(C_SDEBUG);
6745: END IF;
6746: --
6747: RETURN x_LeadTime;
6748: --
6754: rlm_message_sv.sql_error('rlm_managedemand_sv.GetConvertedLeadTime',
6755: x_progress);
6756: --
6757: IF (l_debug <> -1) THEN
6758: rlm_core_sv.dpop(C_SDEBUG);
6759: END IF;
6760: --
6761: raise;
6762:
6780: --
6781: BEGIN
6782: --
6783: IF (l_debug <> -1) THEN
6784: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6785: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6786: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6787: x_sched_rec.ece_tp_translator_code);
6788: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6781: BEGIN
6782: --
6783: IF (l_debug <> -1) THEN
6784: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6785: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6786: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6787: x_sched_rec.ece_tp_translator_code);
6788: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6789: x_sched_rec.ece_tp_location_code_ext);
6782: --
6783: IF (l_debug <> -1) THEN
6784: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6785: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6786: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6787: x_sched_rec.ece_tp_translator_code);
6788: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6789: x_sched_rec.ece_tp_location_code_ext);
6790: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6784: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
6785: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_sched_rec.customer_id);
6786: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6787: x_sched_rec.ece_tp_translator_code);
6788: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6789: x_sched_rec.ece_tp_location_code_ext);
6790: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6791: x_group_rec.ship_to_address_id);
6792: END IF;
6786: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
6787: x_sched_rec.ece_tp_translator_code);
6788: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
6789: x_sched_rec.ece_tp_location_code_ext);
6790: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
6791: x_group_rec.ship_to_address_id);
6792: END IF;
6793: --
6794: IF x_sched_rec.ECE_TP_LOCATION_CODE_EXT is NOT NULL THEN
6836: --
6837: END IF;
6838: --
6839: IF (l_debug <> -1) THEN
6840: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6837: END IF;
6838: --
6839: IF (l_debug <> -1) THEN
6840: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6845: rlm_core_sv.dpop(C_SDEBUG);
6838: --
6839: IF (l_debug <> -1) THEN
6840: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6845: rlm_core_sv.dpop(C_SDEBUG);
6846: END IF;
6839: IF (l_debug <> -1) THEN
6840: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6845: rlm_core_sv.dpop(C_SDEBUG);
6846: END IF;
6847: --
6840: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6845: rlm_core_sv.dpop(C_SDEBUG);
6846: END IF;
6847: --
6848: EXCEPTION
6841: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
6842: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
6843: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
6844: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
6845: rlm_core_sv.dpop(C_SDEBUG);
6846: END IF;
6847: --
6848: EXCEPTION
6849: --
6851: --
6852: x_customer_number := NULL;
6853: --
6854: IF (l_debug <> -1) THEN
6855: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
6856: rlm_core_sv.dpop(C_SDEBUG);
6857: END IF;
6858: --
6859: WHEN OTHERS THEN
6852: x_customer_number := NULL;
6853: --
6854: IF (l_debug <> -1) THEN
6855: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
6856: rlm_core_sv.dpop(C_SDEBUG);
6857: END IF;
6858: --
6859: WHEN OTHERS THEN
6860: --
6860: --
6861: rlm_message_sv.sql_error('rlm_ManageDemand_sv.GetTPContext',v_Progress);
6862: --
6863: IF (l_debug <> -1) THEN
6864: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6865: END IF;
6866: --
6867: raise;
6868:
6896: --
6897: v_intransit_calc_basis VARCHAR2(15);
6898: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
6899: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
6900: v_match_within_rule RLM_CORE_SV.t_Match_rec;
6901: v_match_across_rule RLM_CORE_SV.t_Match_rec;
6902: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
6903: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
6904: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
6897: v_intransit_calc_basis VARCHAR2(15);
6898: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
6899: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
6900: v_match_within_rule RLM_CORE_SV.t_Match_rec;
6901: v_match_across_rule RLM_CORE_SV.t_Match_rec;
6902: v_min_horizon_date VARCHAR2(30); --Bugfix 6265953
6903: v_match_rec_shipline RLM_RD_SV.t_generic_rec;--Bugfix 6265953
6904: v_Group_rec rlm_dp_sv.t_Group_rec; --Bugfix 6265953
6905: --
6906:
6907: BEGIN
6908:
6909: IF (l_debug <> -1) THEN
6910: rlm_core_sv.dpush(C_SDEBUG,'CalculateIntransitQty');
6911: END IF;
6912: --
6913: v_intransit_calc_basis := UPPER(x_Group_rec.setup_terms_rec.intransit_calc_basis);
6914: --
6912: --
6913: v_intransit_calc_basis := UPPER(x_Group_rec.setup_terms_rec.intransit_calc_basis);
6914: --
6915: IF (l_debug <> -1) THEN
6916: rlm_core_sv.dlog(C_DEBUG, 'Intransit Calc. basis', v_intransit_calc_basis);
6917: END IF;
6918: --
6919: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6920: --
6918: --
6919: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6920: --
6921: IF (l_debug <> -1) THEN
6922: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6923: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6924: rlm_core_sv.dpop(C_SDEBUG);
6925: END IF;
6926: --
6919: IF (v_intransit_calc_basis = k_NONE OR v_intransit_calc_basis is NULL) THEN
6920: --
6921: IF (l_debug <> -1) THEN
6922: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6923: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6924: rlm_core_sv.dpop(C_SDEBUG);
6925: END IF;
6926: --
6927: RETURN v_IntransitQty;
6920: --
6921: IF (l_debug <> -1) THEN
6922: rlm_core_sv.dlog(C_DEBUG, 'Processing rule set to NONE or NULL');
6923: rlm_core_sv.dlog(C_DEBUG, 'All shipments assumed to be received');
6924: rlm_core_sv.dpop(C_SDEBUG);
6925: END IF;
6926: --
6927: RETURN v_IntransitQty;
6928: --
6953: v_InTransitQty,
6954: v_return_status);
6955: --
6956: IF (l_debug <> -1) THEN
6957: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
6958: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6959: END IF;
6960: --
6961: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6954: v_return_status);
6955: --
6956: IF (l_debug <> -1) THEN
6957: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
6958: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6959: END IF;
6960: --
6961: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6962: --
6960: --
6961: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6962: --
6963: IF (l_debug <> -1) THEN
6964: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
6965: END IF;
6966: --
6967: RAISE e_group_error;
6968: --
6968: --
6969: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
6970: --
6971: IF (l_debug <> -1) THEN
6972: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
6973: END IF;
6974: --
6975: RAISE e_group_error;
6976: --
6976: --
6977: END IF;
6978: --
6979: IF (l_debug <> -1) THEN
6980: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6981: rlm_core_sv.dpop(C_SDEBUG);
6982: END IF;
6983: --
6984: RETURN (v_InTransitQty);
6977: END IF;
6978: --
6979: IF (l_debug <> -1) THEN
6980: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
6981: rlm_core_sv.dpop(C_SDEBUG);
6982: END IF;
6983: --
6984: RETURN (v_InTransitQty);
6985: --
6995: --Purchase Order
6996: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
6997: --
6998: IF (l_debug <> -1) THEN
6999: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY PURCHASE ORDER');
7000: END IF;
7001:
7002: IF x_group_rec.match_across_rec.cust_po_number = 'Y' THEN
7003: v_Group_rec.match_across_rec.cust_po_number := 'Y';
7011: --Record Keeping Year
7012: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
7013: --
7014: IF (l_debug <> -1) THEN
7015: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY RECORD YEAR');
7016: END IF;
7017:
7018: IF x_group_rec.match_across_rec.industry_attribute1 = 'Y' THEN
7019: v_Group_rec.match_across_rec.industry_attribute1 := 'Y';
7042: IF (v_min_horizon_date IS NOT NULL ) THEN
7043: --
7044:
7045: IF (l_debug <> -1) THEN
7046: rlm_core_sv.dlog(C_DEBUG, 'v_min_request_date', v_min_horizon_date);
7047: END IF;
7048: --
7049: IF TO_DATE(v_min_horizon_date,'RRRR/MM/DD HH24:MI:SS') > x_Sched_rec.sched_horizon_start_date THEN
7050: --
7052: --
7053: END IF;
7054: --
7055: IF (l_debug <> -1) THEN
7056: rlm_core_sv.dlog(C_DEBUG, 'v_min_horizon_date', v_min_horizon_date);
7057: END IF;
7058:
7059: RLM_EXTINTERFACE_SV.GetIntransitShippedLines(x_Sched_rec,
7060: v_Group_rec,
7061: v_match_rec_shipline,
7062: v_min_horizon_date,
7063: v_InTransitQty);
7064: IF (l_debug <> -1) THEN
7065: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
7066: END IF;
7067:
7068: RETURN v_IntransitQty;
7069:
7082: WHEN OTHERS THEN
7083: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);
7084: --
7085: IF (l_debug <> -1) THEN
7086: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7087: END IF;
7088: --
7089: raise;
7090:
7196: v_ReturnMsg VARCHAR2(2000);
7197: e_SetupAPIFailed EXCEPTION;
7198: v_order_header_id NUMBER;
7199: --
7200: v_match_within_rule RLM_CORE_SV.t_Match_rec;
7201: v_match_across_rule RLM_CORE_SV.t_Match_rec;
7202: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
7203: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
7204: v_intransit_calc_basis VARCHAR2(15);
7197: e_SetupAPIFailed EXCEPTION;
7198: v_order_header_id NUMBER;
7199: --
7200: v_match_within_rule RLM_CORE_SV.t_Match_rec;
7201: v_match_across_rule RLM_CORE_SV.t_Match_rec;
7202: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
7203: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
7204: v_intransit_calc_basis VARCHAR2(15);
7205: v_deliveryID VARCHAR2(35);
7208:
7209: BEGIN
7210:
7211: IF (l_debug <> -1) THEN
7212: rlm_core_sv.dpush(C_SDEBUG,'GetAllIntransitQty');
7213: END IF;
7214: --
7215: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
7216: --
7214: --
7215: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
7216: --
7217: IF (l_debug <> -1) THEN
7218: rlm_core_sv.dlog(C_DEBUG,'count', x_Source_Tab.COUNT);
7219: END IF;
7220: --
7221: FOR i IN 1 .. x_Source_Tab.COUNT LOOP
7222:
7222:
7223: BEGIN /* outer begin */
7224: --
7225: IF (l_debug <> -1) THEN
7226: rlm_core_sv.dlog(C_DEBUG, 'Loop Counter', i);
7227: rlm_core_sv.dlog(C_DEBUG, 'Src Orgzn ID', x_Source_Tab(i).organization_id);
7228: END IF;
7229: --
7230: BEGIN
7223: BEGIN /* outer begin */
7224: --
7225: IF (l_debug <> -1) THEN
7226: rlm_core_sv.dlog(C_DEBUG, 'Loop Counter', i);
7227: rlm_core_sv.dlog(C_DEBUG, 'Src Orgzn ID', x_Source_Tab(i).organization_id);
7228: END IF;
7229: --
7230: BEGIN
7231:
7259: x_Token1 => 'ERROR',
7260: x_value1 => v_ReturnMsg);
7261: --
7262: IF (l_debug <> -1) THEN
7263: rlm_core_sv.dpop(C_SDEBUG);
7264: END IF;
7265: --
7266: raise e_group_error;
7267: --
7268:
7269: WHEN OTHERS THEN
7270: --
7271: IF (l_debug <> -1) THEN
7272: rlm_core_sv.dpop(C_SDEBUG);
7273: END IF;
7274: --
7275: raise e_group_error;
7276:
7276:
7277: END; /* get_setup_terms */
7278: --
7279: IF (l_debug <> -1) THEN
7280: rlm_core_sv.dlog(C_DEBUG,'order_header_id', v_order_header_id);
7281: rlm_core_sv.dlog(C_DEBUG, 'Intransit calc. basis', v_SetupTerms_rec.intransit_calc_basis);
7282: END IF;
7283: --
7284: IF (v_SetupTerms_rec.time_uom_code = 'HR') THEN
7277: END; /* get_setup_terms */
7278: --
7279: IF (l_debug <> -1) THEN
7280: rlm_core_sv.dlog(C_DEBUG,'order_header_id', v_order_header_id);
7281: rlm_core_sv.dlog(C_DEBUG, 'Intransit calc. basis', v_SetupTerms_rec.intransit_calc_basis);
7282: END IF;
7283: --
7284: IF (v_SetupTerms_rec.time_uom_code = 'HR') THEN
7285: v_intransit_time := nvl(v_SetupTerms_rec.intransit_time,0)/24;
7298: --
7299: IF (c_LastReceipt%NOTFOUND) THEN
7300: --
7301: IF (l_debug <> -1) THEN
7302: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule');
7303: END IF;
7304: --
7305: v_shipment_date := x_Sched_rec.sched_generation_date - v_intransit_time;
7306: v_shipper_rec.shipper_Id1 := NULL;
7311: --
7312: ELSIF (v_deliveryID is NOT NULL) THEN
7313: --
7314: IF (l_debug <> -1) THEN
7315: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
7316: END IF;
7317: --
7318: FOR v_RctSID in c_RctShipperIds LOOP
7319: --
7323: --
7324: v_count := v_count + 1;
7325: --
7326: IF (l_debug <> -1) THEN
7327: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7328: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7329: rlm_core_sv.dlog(C_DEBUG,'i', i);
7330: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7331: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7324: v_count := v_count + 1;
7325: --
7326: IF (l_debug <> -1) THEN
7327: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7328: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7329: rlm_core_sv.dlog(C_DEBUG,'i', i);
7330: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7331: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7332: END IF;
7325: --
7326: IF (l_debug <> -1) THEN
7327: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7328: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7329: rlm_core_sv.dlog(C_DEBUG,'i', i);
7330: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7331: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7332: END IF;
7333: --
7326: IF (l_debug <> -1) THEN
7327: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7328: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7329: rlm_core_sv.dlog(C_DEBUG,'i', i);
7330: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7331: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7332: END IF;
7333: --
7334: IF v_count = 1 THEN
7327: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
7328: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
7329: rlm_core_sv.dlog(C_DEBUG,'i', i);
7330: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7331: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
7332: END IF;
7333: --
7334: IF v_count = 1 THEN
7335: --
7357: --
7358: ELSIF (v_shipment_date is NOT NULL) THEN
7359: --
7360: IF (l_debug <> -1) THEN
7361: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
7362: END IF;
7363: --
7364: v_shipment_date := v_shipment_Date - v_intransit_time;
7365: v_shipper_rec.shipper_Id1 := NULL;
7379: --
7380: IF (c_LastShipment%NOTFOUND) THEN
7381: --
7382: IF (l_debug <> -1) THEN
7383: rlm_core_sv.dlog(C_DEBUG, 'No shipment line, so shipment date = sched_gen_Date');
7384: END IF;
7385: --
7386: v_shipment_date := x_Sched_rec.sched_generation_date;
7387: v_shipper_rec.shipper_Id1 := NULL;
7392: --
7393: ELSIF (v_deliveryID is NOT NULL) THEN
7394: --
7395: IF (l_debug <> -1) THEN
7396: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
7397: END IF;
7398: --
7399: FOR v_ShpSID IN c_ShpShipperIds LOOP
7400: --
7404: --
7405: v_count := v_count + 1;
7406: --
7407: IF (l_debug <> -1) THEN
7408: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7409: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7410: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7411: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7412: END IF;
7405: v_count := v_count + 1;
7406: --
7407: IF (l_debug <> -1) THEN
7408: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7409: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7410: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7411: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7412: END IF;
7413: --
7406: --
7407: IF (l_debug <> -1) THEN
7408: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7409: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7410: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7411: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7412: END IF;
7413: --
7414: IF v_count = 1 THEN
7407: IF (l_debug <> -1) THEN
7408: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
7409: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
7410: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
7411: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
7412: END IF;
7413: --
7414: IF v_count = 1 THEN
7415: --
7437: --
7438: ELSIF (v_shipment_date is NOT NULL) THEN
7439: --
7440: IF (l_debug <> -1) THEN
7441: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
7442: END IF;
7443: --
7444: v_shipper_rec.shipper_Id1 := NULL;
7445: v_Shipper_rec.shipper_Id2 := NULL;
7473: v_InTransitQty,
7474: v_return_status);
7475: --
7476: IF (l_debug <> -1) THEN
7477: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
7478: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
7479: END IF;
7480: --
7481: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7474: v_return_status);
7475: --
7476: IF (l_debug <> -1) THEN
7477: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
7478: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty);
7479: END IF;
7480: --
7481: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7482: --
7480: --
7481: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7482: --
7483: IF (l_debug <> -1) THEN
7484: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
7485: END IF;
7486: --
7487: RAISE e_group_error;
7488: --
7488: --
7489: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7490: --
7491: IF (l_debug <> -1) THEN
7492: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
7493: END IF;
7494: --
7495: RAISE e_group_error;
7496: --
7505: EXCEPTION
7506: WHEN e_IntransitNone THEN
7507: --
7508: IF (l_debug <> -1) THEN
7509: rlm_core_sv.dlog(C_DEBUG, 'e_IntransitNone');
7510: rlm_core_sv.dlog(C_DEBUG, 'Skipping intransit calns for orgId', x_Source_Tab(i).organization_id);
7511: END IF;
7512:
7513: END; /* outer begin */
7506: WHEN e_IntransitNone THEN
7507: --
7508: IF (l_debug <> -1) THEN
7509: rlm_core_sv.dlog(C_DEBUG, 'e_IntransitNone');
7510: rlm_core_sv.dlog(C_DEBUG, 'Skipping intransit calns for orgId', x_Source_Tab(i).organization_id);
7511: END IF;
7512:
7513: END; /* outer begin */
7514:
7514:
7515: END LOOP;
7516: --
7517: IF (l_debug <> -1) THEN
7518: rlm_core_sv.dpop(C_SDEBUG);
7519: END IF;
7520: --
7521: return v_Total_Qty;
7522: --
7529: WHEN OTHERS THEN
7530: rlm_message_sv.sql_error('GetAllIntransitQty',x_progress);
7531: --
7532: IF (l_debug <> -1) THEN
7533: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7534: END IF;
7535: --
7536: RAISE;
7537:
7537:
7538: END GetAllIntransitQty;
7539:
7540:
7541: PROCEDURE InitializeMatchCriteria(x_match_within_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_Rec,
7542: x_match_across_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_rec)
7543: IS
7544:
7545: BEGIN
7538: END GetAllIntransitQty;
7539:
7540:
7541: PROCEDURE InitializeMatchCriteria(x_match_within_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_Rec,
7542: x_match_across_rule IN OUT NOCOPY RLM_CORE_SV.t_Match_rec)
7543: IS
7544:
7545: BEGIN
7546: --
7544:
7545: BEGIN
7546: --
7547: IF (l_debug <> -1) THEN
7548: rlm_core_sv.dpush(C_SDEBUG, 'InitializeMatchCriteria');
7549: END IF;
7550: --
7551: x_match_within_rule.cust_production_line := 'N';
7552: x_match_within_rule.customer_dock_code := 'N';
7628: x_match_across_rule.attribute14 := 'N';
7629: x_match_across_rule.attribute15 := 'N';
7630: --
7631: IF (l_debug <> -1) THEN
7632: rlm_core_sv.dpop(C_SDEBUG, 'InitializeMatchCriteria');
7633: END IF;
7634: --
7635: END InitializeMatchCriteria;
7636:
7648: v_atp_components_flag VARCHAR2(1);
7649: BEGIN
7650: --
7651: IF (l_debug <> -1) THEN
7652: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7653: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7654: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7655: END IF;
7656: --
7649: BEGIN
7650: --
7651: IF (l_debug <> -1) THEN
7652: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7653: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7654: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7655: END IF;
7656: --
7657: SELECT atp_flag, atp_components_flag
7650: --
7651: IF (l_debug <> -1) THEN
7652: rlm_core_sv.dpush(C_SDEBUG,'IsATPItem');
7653: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
7654: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id', x_inventory_item_id);
7655: END IF;
7656: --
7657: SELECT atp_flag, atp_components_flag
7658: INTO v_atp_flag, v_atp_components_flag
7662:
7663: IF v_atp_flag = 'Y' OR v_atp_components_flag = 'Y' THEN
7664: --
7665: IF (l_debug <> -1) THEN
7666: rlm_core_sv.dpop(C_SDEBUG, 'TRUE');
7667: END IF;
7668: --
7669: RETURN TRUE;
7670: ELSE
7669: RETURN TRUE;
7670: ELSE
7671: --
7672: IF (l_debug <> -1) THEN
7673: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
7674: END IF;
7675: --
7676: RETURN FALSE;
7677: END IF;
7679: EXCEPTION
7680: WHEN NO_DATA_FOUND THEN
7681: --
7682: IF (l_debug <> -1) THEN
7683: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
7684: END IF;
7685: --
7686: RETURN FALSE;
7687:
7687:
7688: WHEN OTHERS THEN
7689: --
7690: IF (l_debug <> -1) THEN
7691: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
7692: END IF;
7693: --
7694: RAISE;
7695:
7704: IS
7705: v_shipFrom org_organization_definitions.organization_code%TYPE;
7706: v_shipTo HZ_CUST_ACCT_SITES_ALL.ece_tp_location_code%TYPE; -- Parameter definition is changed as per TCA obsolescence project.
7707: v_Item mtl_customer_items.customer_item_number%TYPE;
7708: v_excpRec rlm_core_sv.t_Match_rec;
7709:
7710:
7711: BEGIN
7712: --
7710:
7711: BEGIN
7712: --
7713: IF (l_debug <> -1) THEN
7714: rlm_core_sv.dpush(C_SDEBUG,'ReportExc');
7715: END IF;
7716: --
7717: IF (l_debug <> -1) THEN
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7714: rlm_core_sv.dpush(C_SDEBUG,'ReportExc');
7715: END IF;
7716: --
7717: IF (l_debug <> -1) THEN
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7719: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7720: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7721: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7722: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7715: END IF;
7716: --
7717: IF (l_debug <> -1) THEN
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7719: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7720: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7721: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7722: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7723: END IF;
7716: --
7717: IF (l_debug <> -1) THEN
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7719: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7720: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7721: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7722: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7723: END IF;
7724: --
7717: IF (l_debug <> -1) THEN
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7719: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7720: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7721: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7722: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7723: END IF;
7724: --
7725: FOR i IN 1..x_ExcpTab.COUNT LOOP
7718: rlm_core_sv.dlog(C_DEBUG,'shipFrom', g_ManageDemand_tab(1).ship_from_org_id);
7719: rlm_core_sv.dlog(C_DEBUG,'shipTo', g_ManageDemand_tab(1).ship_to_address_id);
7720: rlm_core_sv.dlog(C_DEBUG,'customerItem',g_ManageDemand_tab(1).customer_item_id);
7721: rlm_core_sv.dlog(C_DEBUG,'headerId', g_ManageDemand_tab(1).header_id);
7722: rlm_core_sv.dlog(C_DEBUG,'line_id', g_ManageDemand_tab(1).line_id);
7723: END IF;
7724: --
7725: FOR i IN 1..x_ExcpTab.COUNT LOOP
7726: IF x_ExcpTab(i).cust_production_line = 'Y' THEN
7857: --
7858: END LOOP;
7859:
7860: --Prepare to print warnings
7861: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7862: --
7863: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7864: --
7865: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7859:
7860: --Prepare to print warnings
7861: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7862: --
7863: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7864: --
7865: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7866: --
7867: IF (l_debug <> -1) THEN
7861: v_shipFrom := rlm_core_sv.get_ship_from(g_ManageDemand_tab(1).ship_from_org_id);
7862: --
7863: v_shipTo := rlm_core_sv.get_ship_to(g_ManageDemand_tab(1).ship_to_address_id);
7864: --
7865: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7866: --
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7869: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7864: --
7865: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7866: --
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7869: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7870: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7871: END IF;
7872: --
7865: v_item := rlm_core_sv.get_item_number(g_ManageDemand_tab(1).customer_item_id);
7866: --
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7869: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7870: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7871: END IF;
7872: --
7873: IF v_excpRec.cust_production_line = 'Y' THEN
7866: --
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dlog(C_DEBUG,'v_item', v_item);
7869: rlm_core_sv.dlog(C_DEBUG,'v_shipTo', v_shipTo);
7870: rlm_core_sv.dlog(C_DEBUG,'v_shipFrom', v_shipFrom);
7871: END IF;
7872: --
7873: IF v_excpRec.cust_production_line = 'Y' THEN
7874: printMessage(k_CUST_PRODUCTION_LINE,v_shipFrom,v_shipTo,v_item);
8002: printMessage(k_ATTRIBUTE15,v_shipFrom,v_shipTo,v_item);
8003: END IF;
8004: --
8005: IF (l_debug <> -1) THEN
8006: rlm_core_sv.dpop(C_SDEBUG,'ReportExc');
8007: END IF;
8008: --
8009: EXCEPTION
8010: WHEN OTHERS THEN
8009: EXCEPTION
8010: WHEN OTHERS THEN
8011: --
8012: IF (l_debug <> -1) THEN
8013: rlm_core_sv.dpop(C_SDEBUG,'Error '|| SUBSTR(SQLERRM,1,200));
8014: END IF;
8015: --
8016: END ReportExc;
8017:
8027: IS
8028: BEGIN
8029: --
8030: IF (l_debug <> -1) THEN
8031: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
8032: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
8033: END IF;
8034: --
8035: rlm_message_sv.app_error(
8028: BEGIN
8029: --
8030: IF (l_debug <> -1) THEN
8031: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
8032: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
8033: END IF;
8034: --
8035: rlm_message_sv.app_error(
8036: x_ExceptionLevel => rlm_message_sv.k_warn_level,
8037: x_MessageName => 'RLM_DUPLICATE_LINES',
8038: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
8039: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,
8040: x_token1=> 'MATCH_ATTRIBUTE',
8041: x_value1=> rlm_core_sv.get_lookup_meaning(
8042: 'RLM_OPTIONAL_MATCH_ATTRIBUTES',
8043: x_lookupCode),
8044: x_token2=> 'SF',
8045: x_value2=> x_shipFrom,
8048: x_token4=> 'CI',
8049: x_value4=> x_customerItem);
8050: --
8051: IF (l_debug <> -1) THEN
8052: rlm_core_sv.dpop(C_SDEBUG,'printMessage ');
8053: END IF;
8054: --
8055: EXCEPTION
8056: WHEN OTHERS THEN
8055: EXCEPTION
8056: WHEN OTHERS THEN
8057: --
8058: IF (l_debug <> -1) THEN
8059: rlm_core_sv.dpop(C_SDEBUG,'Exception '|| SUBSTR(SQLERRM,1,200));
8060: END IF;
8061: --
8062: raise;
8063: --
8155: i NUMBER;
8156: v_ReturnStatus BOOLEAN;
8157: v_ReturnMsg VARCHAR2(2000);
8158: --
8159: v_match_within_rule RLM_CORE_SV.t_Match_rec;
8160: v_match_across_rule RLM_CORE_SV.t_Match_rec;
8161: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
8162: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8163: v_intransit_calc_basis VARCHAR2(15);
8156: v_ReturnStatus BOOLEAN;
8157: v_ReturnMsg VARCHAR2(2000);
8158: --
8159: v_match_within_rule RLM_CORE_SV.t_Match_rec;
8160: v_match_across_rule RLM_CORE_SV.t_Match_rec;
8161: v_match_rec WSH_RLM_INTERFACE.t_optional_match_rec;
8162: v_shipper_rec WSH_RLM_INTERFACE.t_shipper_rec;
8163: v_intransit_calc_basis VARCHAR2(15);
8164: v_deliveryID VARCHAR2(35);
8180: --
8181: BEGIN
8182: --
8183: IF (l_debug <> -1) THEN
8184: rlm_core_sv.dpush(C_SDEBUG, 'GetIntransitAcrossOrgs');
8185: rlm_core_sv.dlog(C_DEBUG, 'CUM Key ID', x_cum_key_id);
8186: END IF;
8187: --
8188: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8181: BEGIN
8182: --
8183: IF (l_debug <> -1) THEN
8184: rlm_core_sv.dpush(C_SDEBUG, 'GetIntransitAcrossOrgs');
8185: rlm_core_sv.dlog(C_DEBUG, 'CUM Key ID', x_cum_key_id);
8186: END IF;
8187: --
8188: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8189: --
8187: --
8188: InitializeMatchCriteria(v_match_within_rule, v_match_across_rule);
8189: --
8190: IF (l_debug <> -1) THEN
8191: rlm_core_sv.dlog(C_DEBUG, 'Intran. calc.basis', x_Group_rec.setup_terms_rec.intransit_calc_basis);
8192: END IF;
8193: --
8194: IF (x_Group_rec.setup_terms_rec.time_uom_code = 'HR') THEN
8195: v_intransit_time := nvl(x_Group_rec.setup_terms_rec.intransit_time,0)/24;
8200: IF (x_Group_rec.setup_terms_rec.intransit_calc_basis = k_NONE OR
8201: x_Group_rec.setup_terms_rec.intransit_calc_basis is NULL) THEN
8202: --
8203: IF (l_debug <> -1) THEN
8204: rlm_core_sv.dlog(C_DEBUG, 'No intransit qty calculations');
8205: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8206: END IF;
8207: --
8208: RETURN v_IntransitQty;
8201: x_Group_rec.setup_terms_rec.intransit_calc_basis is NULL) THEN
8202: --
8203: IF (l_debug <> -1) THEN
8204: rlm_core_sv.dlog(C_DEBUG, 'No intransit qty calculations');
8205: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8206: END IF;
8207: --
8208: RETURN v_IntransitQty;
8209: --
8223: v_Shipper_rec.shipper_Id3 := NULL;
8224: v_Shipper_rec.shipper_Id3 := NULL;
8225: --
8226: IF (l_debug <> -1) THEN
8227: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule, using Sched Gen date');
8228: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8229: END IF;
8230: --
8231: ELSIF (v_deliveryID is NOT NULL) THEN
8224: v_Shipper_rec.shipper_Id3 := NULL;
8225: --
8226: IF (l_debug <> -1) THEN
8227: rlm_core_sv.dlog(c_DEBUG, 'No receipt line present on schedule, using Sched Gen date');
8228: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8229: END IF;
8230: --
8231: ELSIF (v_deliveryID is NOT NULL) THEN
8232: --
8230: --
8231: ELSIF (v_deliveryID is NOT NULL) THEN
8232: --
8233: IF (l_debug <> -1) THEN
8234: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
8235: END IF;
8236: --
8237: FOR v_RctSID in c_RctShipperIds LOOP
8238: --
8242: --
8243: v_count := v_count + 1;
8244: --
8245: IF (l_debug <> -1) THEN
8246: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8247: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8248: rlm_core_sv.dlog(C_DEBUG,'i', i);
8249: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8250: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8243: v_count := v_count + 1;
8244: --
8245: IF (l_debug <> -1) THEN
8246: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8247: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8248: rlm_core_sv.dlog(C_DEBUG,'i', i);
8249: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8250: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8251: END IF;
8244: --
8245: IF (l_debug <> -1) THEN
8246: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8247: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8248: rlm_core_sv.dlog(C_DEBUG,'i', i);
8249: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8250: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8251: END IF;
8252: --
8245: IF (l_debug <> -1) THEN
8246: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8247: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8248: rlm_core_sv.dlog(C_DEBUG,'i', i);
8249: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8250: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8251: END IF;
8252: --
8253: IF v_count = 1 THEN
8246: rlm_core_sv.dlog(C_DEBUG,'line_id', v_RctSID.line_id);
8247: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_RctSID.start_date_time);
8248: rlm_core_sv.dlog(C_DEBUG,'i', i);
8249: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8250: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_RctSID.shipper_Id);
8251: END IF;
8252: --
8253: IF v_count = 1 THEN
8254: v_shipper_rec.shipper_Id1 := v_RctSID.shipper_Id;
8273: v_Shipper_rec.shipper_Id3 := NULL;
8274: v_Shipper_rec.shipper_Id3 := NULL;
8275: --
8276: IF (l_debug <> -1) THEN
8277: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8278: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8279: END IF;
8280: --
8281: END IF;
8274: v_Shipper_rec.shipper_Id3 := NULL;
8275: --
8276: IF (l_debug <> -1) THEN
8277: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8278: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_date', v_shipment_date);
8279: END IF;
8280: --
8281: END IF;
8282: --
8296: v_Shipper_rec.shipper_Id4 := NULL;
8297: v_Shipper_rec.shipper_Id5 := NULL;
8298: --
8299: IF (l_debug <> -1) THEN
8300: rlm_core_sv.dlog(C_DEBUG, 'No shipment line, so shipment date = sched_gen_Date', v_shipment_date);
8301: END IF;
8302: --
8303: ELSIF (v_deliveryID is NOT NULL) THEN
8304: --
8302: --
8303: ELSIF (v_deliveryID is NOT NULL) THEN
8304: --
8305: IF (l_debug <> -1) THEN
8306: rlm_core_sv.dlog(C_DEBUG, 'Delivery ID present on schedule');
8307: END IF;
8308: --
8309: FOR v_ShpSID IN c_ShpShipperIds LOOP
8310: --
8314: --
8315: v_count := v_count + 1;
8316: --
8317: IF (l_debug <> -1) THEN
8318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8322: END IF;
8315: v_count := v_count + 1;
8316: --
8317: IF (l_debug <> -1) THEN
8318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8322: END IF;
8323: --
8316: --
8317: IF (l_debug <> -1) THEN
8318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8322: END IF;
8323: --
8324: IF v_count = 1 THEN
8317: IF (l_debug <> -1) THEN
8318: rlm_core_sv.dlog(C_DEBUG,'line_id', v_ShpSID.line_id);
8319: rlm_core_sv.dlog(C_DEBUG,'start_date_time', v_ShpSID.start_date_time);
8320: rlm_core_sv.dlog(C_DEBUG,'v_count', v_count);
8321: rlm_core_sv.dlog(C_DEBUG,'Shipper_id', v_ShpSID.shipper_Id);
8322: END IF;
8323: --
8324: IF v_count = 1 THEN
8325: v_shipper_rec.shipper_Id1 := v_ShpSID.shipper_Id;
8337: --
8338: ELSIF (v_shipment_date is NOT NULL) THEN
8339: --
8340: IF (l_debug <> -1) THEN
8341: rlm_core_sv.dlog(C_DEBUG, 'No delivery ID present on schedule');
8342: END IF;
8343: --
8344: v_shipper_rec.shipper_Id1 := NULL;
8345: v_Shipper_rec.shipper_Id2 := NULL;
8357: --
8358: v_order_header_id := c_Orders_rec.header_id;
8359: --
8360: IF (l_debug <> -1) THEN
8361: rlm_core_sv.dlog(C_DEBUG, 'Order Header ID', v_order_header_id);
8362: END IF;
8363: --
8364: RLM_EXTINTERFACE_SV.getIntransitQty (
8365: x_Group_rec.customer_id,
8382: v_InTransitQty_tmp,
8383: v_return_status);
8384: --
8385: IF (l_debug <> -1) THEN
8386: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
8387: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8388: END IF;
8389: --
8390: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8383: v_return_status);
8384: --
8385: IF (l_debug <> -1) THEN
8386: rlm_core_sv.dlog(C_DEBUG, 'v_return_status', v_return_status);
8387: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8388: END IF;
8389: --
8390: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8391: --
8388: END IF;
8389: --
8390: IF v_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
8391: --
8392: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
8393: RAISE e_group_error;
8394: --
8395: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8396: --
8393: RAISE e_group_error;
8394: --
8395: ELSIF v_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
8396: --
8397: rlm_core_sv.dpop(C_SDEBUG, 'GetIntransitQtyAPI Failed');
8398: RAISE e_group_error;
8399: --
8400: END IF;
8401: --
8403: --
8404: END LOOP;
8405: --
8406: IF (l_debug <> -1) THEN
8407: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8408: END IF;
8409: return v_IntransitQty; -- Bug 4535823
8410: --
8411: --Bugfix 6265953 START
8419: --Purchase Order
8420: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
8421: --
8422: IF (l_debug <> -1) THEN
8423: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY PURCHASE ORDER');
8424: END IF;
8425:
8426: IF x_group_rec.match_across_rec.cust_po_number = 'Y' THEN
8427: v_Group_rec.match_across_rec.cust_po_number := 'Y';
8435: --Record Keeping Year
8436: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
8437: --
8438: IF (l_debug <> -1) THEN
8439: rlm_core_sv.dlog(C_SDEBUG, 'Manage Demand - CUM BY RECORD YEAR');
8440: END IF;
8441:
8442: IF x_group_rec.match_across_rec.industry_attribute1 = 'Y' THEN
8443: v_Group_rec.match_across_rec.industry_attribute1 := 'Y';
8466: IF (v_min_horizon_date IS NOT NULL ) THEN
8467: --
8468:
8469: IF (l_debug <> -1) THEN
8470: rlm_core_sv.dlog(C_DEBUG, 'v_min_request_date', v_min_horizon_date);
8471: END IF;
8472: --
8473: IF TO_DATE(v_min_horizon_date,'RRRR/MM/DD HH24:MI:SS') > x_Sched_rec.sched_horizon_start_date THEN
8474: --
8476: --
8477: END IF;
8478: --
8479: IF (l_debug <> -1) THEN
8480: rlm_core_sv.dlog(C_DEBUG, 'v_min_horizon_date', v_min_horizon_date);
8481: END IF;
8482:
8483: FOR c_Orders_rec IN c_Orders LOOP
8484:
8485: v_Group_rec.order_header_id := c_Orders_rec.header_id;
8486: v_Group_rec.ship_from_org_id := NULL;
8487:
8488: IF (l_debug <> -1) THEN
8489: rlm_core_sv.dlog(C_DEBUG, 'Order Header ID', v_Group_rec.order_header_id);
8490: END IF;
8491:
8492: RLM_EXTINTERFACE_SV.GetIntransitShippedLines(x_Sched_rec,
8493: v_Group_rec,
8494: v_match_rec_shipline,
8495: v_min_horizon_date,
8496: v_InTransitQty_tmp);
8497: IF (l_debug <> -1) THEN
8498: rlm_core_sv.dlog(C_DEBUG, 'v_InTransitQty', v_InTransitQty_tmp);
8499: END IF;
8500:
8501: v_IntransitQty := v_IntransitQty + v_IntransitQty_tmp;
8502: --
8502: --
8503: END LOOP;
8504:
8505: IF (l_debug <> -1) THEN
8506: rlm_core_sv.dpop(C_SDEBUG, v_IntransitQty);
8507: END IF;
8508:
8509: RETURN v_IntransitQty;
8510:
8520: WHEN OTHERS THEN
8521: rlm_message_sv.sql_error('GetIntransitAcrossOrgs',x_progress);
8522: --
8523: IF (l_debug <> -1) THEN
8524: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8525: END IF;
8526: --
8527: RAISE;
8528: END GetIntransitAcrossOrgs;