21: --
22: BEGIN
23: --
24: IF (l_debug <> -1) THEN
25: rlm_core_sv.dpush(C_SDEBUG,'CompareReplaceSched');
26: END IF;
27: --
28: v_curr_header_id := x_sched_rec.header_id;
29: v_curr_sch_header_id := x_sched_rec.schedule_header_id; --Bugfix 8844817
28: v_curr_header_id := x_sched_rec.header_id;
29: v_curr_sch_header_id := x_sched_rec.schedule_header_id; --Bugfix 8844817
30: --
31: IF (l_debug <> -1) THEN
32: rlm_core_sv.dlog(C_DEBUG, 'v_curr_header_id', v_curr_header_id);
33: rlm_core_sv.dlog(C_DEBUG, 'v_curr_sch_header_id', v_curr_sch_header_id); --Bugfix 8844817
34: END IF;
35: --
36: IF IsWarningNeeded(x_sched_rec, x_warn_dropped_items) THEN
29: v_curr_sch_header_id := x_sched_rec.schedule_header_id; --Bugfix 8844817
30: --
31: IF (l_debug <> -1) THEN
32: rlm_core_sv.dlog(C_DEBUG, 'v_curr_header_id', v_curr_header_id);
33: rlm_core_sv.dlog(C_DEBUG, 'v_curr_sch_header_id', v_curr_sch_header_id); --Bugfix 8844817
34: END IF;
35: --
36: IF IsWarningNeeded(x_sched_rec, x_warn_dropped_items) THEN
37: --
41: --
42: IF v_return_status <> FALSE THEN
43: --
44: IF (l_debug <> -1) THEN
45: rlm_core_sv.dlog(C_DEBUG, 'v_prev_header_id',v_prev_header_id);
46: END IF;
47: --
48: -- Populate the global list
49: --
72: --
73: END IF;
74: --
75: IF (l_debug <> -1) THEN
76: rlm_core_sv.dpop(C_SDEBUG);
77: END IF;
78: --
79: EXCEPTION
80: --
82: --
83: x_return_status := FALSE;
84: --
85: IF (l_debug <> -1) THEN
86: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
87: END IF;
88: --
89: END CompareReplaceSched;
90:
100: IS
101: BEGIN
102: --
103: IF (l_debug <> -1) THEN
104: rlm_core_sv.dpush(C_SDEBUG,'IsWarningNeeded');
105: rlm_core_sv.dlog(C_DEBUG, 'x_warn_dropped_items', x_warn_dropped_items);
106: rlm_core_sv.dlog(C_DEBUG, 'schedule source', x_sched_rec.schedule_source);
107: rlm_core_sv.dlog(C_DEBUG, 'schedule purpose', x_sched_rec.schedule_purpose);
108: END IF;
101: BEGIN
102: --
103: IF (l_debug <> -1) THEN
104: rlm_core_sv.dpush(C_SDEBUG,'IsWarningNeeded');
105: rlm_core_sv.dlog(C_DEBUG, 'x_warn_dropped_items', x_warn_dropped_items);
106: rlm_core_sv.dlog(C_DEBUG, 'schedule source', x_sched_rec.schedule_source);
107: rlm_core_sv.dlog(C_DEBUG, 'schedule purpose', x_sched_rec.schedule_purpose);
108: END IF;
109: --
102: --
103: IF (l_debug <> -1) THEN
104: rlm_core_sv.dpush(C_SDEBUG,'IsWarningNeeded');
105: rlm_core_sv.dlog(C_DEBUG, 'x_warn_dropped_items', x_warn_dropped_items);
106: rlm_core_sv.dlog(C_DEBUG, 'schedule source', x_sched_rec.schedule_source);
107: rlm_core_sv.dlog(C_DEBUG, 'schedule purpose', x_sched_rec.schedule_purpose);
108: END IF;
109: --
110: IF x_warn_dropped_items <> 'Y'
103: IF (l_debug <> -1) THEN
104: rlm_core_sv.dpush(C_SDEBUG,'IsWarningNeeded');
105: rlm_core_sv.dlog(C_DEBUG, 'x_warn_dropped_items', x_warn_dropped_items);
106: rlm_core_sv.dlog(C_DEBUG, 'schedule source', x_sched_rec.schedule_source);
107: rlm_core_sv.dlog(C_DEBUG, 'schedule purpose', x_sched_rec.schedule_purpose);
108: END IF;
109: --
110: IF x_warn_dropped_items <> 'Y'
111: AND x_warn_dropped_items <> 'y' THEN
110: IF x_warn_dropped_items <> 'Y'
111: AND x_warn_dropped_items <> 'y' THEN
112: --
113: IF (l_debug <> -1) THEN
114: rlm_core_sv.dpop(C_SDEBUG);
115: END IF;
116: --
117: RETURN FALSE;
118: --
120: --
121: IF x_sched_rec.schedule_purpose not in ('REPLACE', 'REPLACE_ALL') THEN
122: --
123: IF (l_debug <> -1) THEN
124: rlm_core_sv.dpop(C_SDEBUG);
125: END IF;
126: --
127: RETURN FALSE;
128: --
130: --
131: IF x_sched_rec.schedule_source = 'MANUAL' THEN
132: --
133: IF (l_debug <> -1) THEN
134: rlm_core_sv.dpop(C_SDEBUG);
135: END IF;
136: --
137: RETURN FALSE;
138: --
138: --
139: END IF;
140: --
141: IF (l_debug <> -1) THEN
142: rlm_core_sv.dpop(C_SDEBUG);
143: END IF;
144: --
145: RETURN TRUE;
146: --
176: --
177: BEGIN
178: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpush(C_SDEBUG,'FindEligibleSched');
181: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_translator_code', x_sched_rec.ece_tp_translator_code);
182: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_location_code_ext', x_sched_rec.ece_tp_location_code_ext);
183: rlm_core_sv.dlog(C_DEBUG,'Curr edi_test_indicator', x_sched_rec.edi_test_indicator);
184: rlm_core_sv.dlog(C_DEBUG,'Curr sched_generation_date', x_sched_rec.sched_generation_date);
177: BEGIN
178: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpush(C_SDEBUG,'FindEligibleSched');
181: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_translator_code', x_sched_rec.ece_tp_translator_code);
182: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_location_code_ext', x_sched_rec.ece_tp_location_code_ext);
183: rlm_core_sv.dlog(C_DEBUG,'Curr edi_test_indicator', x_sched_rec.edi_test_indicator);
184: rlm_core_sv.dlog(C_DEBUG,'Curr sched_generation_date', x_sched_rec.sched_generation_date);
185: END IF;
178: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpush(C_SDEBUG,'FindEligibleSched');
181: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_translator_code', x_sched_rec.ece_tp_translator_code);
182: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_location_code_ext', x_sched_rec.ece_tp_location_code_ext);
183: rlm_core_sv.dlog(C_DEBUG,'Curr edi_test_indicator', x_sched_rec.edi_test_indicator);
184: rlm_core_sv.dlog(C_DEBUG,'Curr sched_generation_date', x_sched_rec.sched_generation_date);
185: END IF;
186: --
179: IF (l_debug <> -1) THEN
180: rlm_core_sv.dpush(C_SDEBUG,'FindEligibleSched');
181: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_translator_code', x_sched_rec.ece_tp_translator_code);
182: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_location_code_ext', x_sched_rec.ece_tp_location_code_ext);
183: rlm_core_sv.dlog(C_DEBUG,'Curr edi_test_indicator', x_sched_rec.edi_test_indicator);
184: rlm_core_sv.dlog(C_DEBUG,'Curr sched_generation_date', x_sched_rec.sched_generation_date);
185: END IF;
186: --
187: OPEN c_eligible_schedule;
180: rlm_core_sv.dpush(C_SDEBUG,'FindEligibleSched');
181: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_translator_code', x_sched_rec.ece_tp_translator_code);
182: rlm_core_sv.dlog(C_DEBUG,'Curr ece_tp_location_code_ext', x_sched_rec.ece_tp_location_code_ext);
183: rlm_core_sv.dlog(C_DEBUG,'Curr edi_test_indicator', x_sched_rec.edi_test_indicator);
184: rlm_core_sv.dlog(C_DEBUG,'Curr sched_generation_date', x_sched_rec.sched_generation_date);
185: END IF;
186: --
187: OPEN c_eligible_schedule;
188: -- Get the second highest generation date schedule only
198: --
199: x_return_status := TRUE;
200: --
201: IF (l_debug <> -1) THEN
202: rlm_core_sv.dlog(C_DEBUG, 'x_return_status', x_return_status);
203: rlm_core_sv.dpop(C_SDEBUG);
204: END IF;
205: --
206: EXCEPTION
199: x_return_status := TRUE;
200: --
201: IF (l_debug <> -1) THEN
202: rlm_core_sv.dlog(C_DEBUG, 'x_return_status', x_return_status);
203: rlm_core_sv.dpop(C_SDEBUG);
204: END IF;
205: --
206: EXCEPTION
207: --
209: --
210: x_return_status := FALSE;
211: --
212: IF (l_debug <> -1) THEN
213: rlm_core_sv.dpop(C_SDEBUG, 'e_no_eligible_schedule');
214: END IF;
215: --
216: WHEN OTHERS THEN
217: --
217: --
218: x_return_status := FALSE;
219: --
220: IF (l_debug <> -1) THEN
221: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
222: END IF;
223: --
224: END FindEligibleSched;
225:
289: --
290: BEGIN
291: --
292: IF (l_debug <> -1) THEN
293: rlm_core_sv.dpush(C_SDEBUG, 'PopulateList');
294: END IF;
295: --
296: FOR drop_list IN c_drop_list LOOP
297: --
295: --
296: FOR drop_list IN c_drop_list LOOP
297: --
298: IF (l_debug <> -1) THEN
299: rlm_core_sv.dlog(C_DEBUG, 'Missing items on the schedule');
300: rlm_core_sv.dlog(C_DEBUG, 'Ship From:', drop_list.ship_from_org_id);
301: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address Id:', drop_list.ship_to_address_id);
302: rlm_core_sv.dlog(C_DEBUG, 'ST Org Id:', drop_list.ship_to_org_id);
303: rlm_core_sv.dlog(C_DEBUG, 'Customer Item:', drop_list.customer_item_id);
296: FOR drop_list IN c_drop_list LOOP
297: --
298: IF (l_debug <> -1) THEN
299: rlm_core_sv.dlog(C_DEBUG, 'Missing items on the schedule');
300: rlm_core_sv.dlog(C_DEBUG, 'Ship From:', drop_list.ship_from_org_id);
301: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address Id:', drop_list.ship_to_address_id);
302: rlm_core_sv.dlog(C_DEBUG, 'ST Org Id:', drop_list.ship_to_org_id);
303: rlm_core_sv.dlog(C_DEBUG, 'Customer Item:', drop_list.customer_item_id);
304: END IF;
297: --
298: IF (l_debug <> -1) THEN
299: rlm_core_sv.dlog(C_DEBUG, 'Missing items on the schedule');
300: rlm_core_sv.dlog(C_DEBUG, 'Ship From:', drop_list.ship_from_org_id);
301: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address Id:', drop_list.ship_to_address_id);
302: rlm_core_sv.dlog(C_DEBUG, 'ST Org Id:', drop_list.ship_to_org_id);
303: rlm_core_sv.dlog(C_DEBUG, 'Customer Item:', drop_list.customer_item_id);
304: END IF;
305: --
298: IF (l_debug <> -1) THEN
299: rlm_core_sv.dlog(C_DEBUG, 'Missing items on the schedule');
300: rlm_core_sv.dlog(C_DEBUG, 'Ship From:', drop_list.ship_from_org_id);
301: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address Id:', drop_list.ship_to_address_id);
302: rlm_core_sv.dlog(C_DEBUG, 'ST Org Id:', drop_list.ship_to_org_id);
303: rlm_core_sv.dlog(C_DEBUG, 'Customer Item:', drop_list.customer_item_id);
304: END IF;
305: --
306: v_order_number := NULL;
299: rlm_core_sv.dlog(C_DEBUG, 'Missing items on the schedule');
300: rlm_core_sv.dlog(C_DEBUG, 'Ship From:', drop_list.ship_from_org_id);
301: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address Id:', drop_list.ship_to_address_id);
302: rlm_core_sv.dlog(C_DEBUG, 'ST Org Id:', drop_list.ship_to_org_id);
303: rlm_core_sv.dlog(C_DEBUG, 'Customer Item:', drop_list.customer_item_id);
304: END IF;
305: --
306: v_order_number := NULL;
307: v_header_id := NULL;
318: --
319: IF v_header_id is NOT NULL THEN
320: --
321: IF (l_debug <> -1) THEN
322: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
319: IF v_header_id is NOT NULL THEN
320: --
321: IF (l_debug <> -1) THEN
322: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
327: rlm_core_sv.dlog(C_DEBUG, 'Header_id', v_header_id);
320: --
321: IF (l_debug <> -1) THEN
322: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
327: rlm_core_sv.dlog(C_DEBUG, 'Header_id', v_header_id);
328: END IF;
321: IF (l_debug <> -1) THEN
322: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
327: rlm_core_sv.dlog(C_DEBUG, 'Header_id', v_header_id);
328: END IF;
329: --
322: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
327: rlm_core_sv.dlog(C_DEBUG, 'Header_id', v_header_id);
328: END IF;
329: --
330: rlm_message_sv.app_error(
323: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
324: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
325: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
326: rlm_core_sv.dlog(C_DEBUG, 'Order Number', v_order_number);
327: rlm_core_sv.dlog(C_DEBUG, 'Header_id', v_header_id);
328: END IF;
329: --
330: rlm_message_sv.app_error(
331: x_ExceptionLevel => rlm_message_sv.k_warn_level,
332: x_MessageName => 'RLM_WARN_DROPPED_ITEMS',
333: x_InterfaceHeaderId => x_curr_header_id,
334: x_InterfaceLineId => NULL,
335: x_token1 => 'SF',
336: x_value1 => RLM_CORE_SV.get_ship_from(drop_list.ship_from_org_id),
337: x_token2 => 'ST',
338: x_value2 => RLM_CORE_SV.get_ship_to(drop_list.ship_to_address_id),
339: x_token3 => 'CI',
340: x_value3 => RLM_CORE_SV.get_item_number(drop_list.customer_item_id),
334: x_InterfaceLineId => NULL,
335: x_token1 => 'SF',
336: x_value1 => RLM_CORE_SV.get_ship_from(drop_list.ship_from_org_id),
337: x_token2 => 'ST',
338: x_value2 => RLM_CORE_SV.get_ship_to(drop_list.ship_to_address_id),
339: x_token3 => 'CI',
340: x_value3 => RLM_CORE_SV.get_item_number(drop_list.customer_item_id),
341: x_token4 => 'ORDER_NO',
342: x_value4 => v_order_number);
336: x_value1 => RLM_CORE_SV.get_ship_from(drop_list.ship_from_org_id),
337: x_token2 => 'ST',
338: x_value2 => RLM_CORE_SV.get_ship_to(drop_list.ship_to_address_id),
339: x_token3 => 'CI',
340: x_value3 => RLM_CORE_SV.get_item_number(drop_list.customer_item_id),
341: x_token4 => 'ORDER_NO',
342: x_value4 => v_order_number);
343: --
344: ELSE
343: --
344: ELSE
345: --
346: IF (l_debug <> -1) THEN
347: rlm_core_sv.dlog(C_DEBUG, 'No Open order line exists for below combination of '|| 'SF' ||','|| 'ST'||' and '|| 'CI.' );
348: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
349: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
350: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
351: END IF ;
344: ELSE
345: --
346: IF (l_debug <> -1) THEN
347: rlm_core_sv.dlog(C_DEBUG, 'No Open order line exists for below combination of '|| 'SF' ||','|| 'ST'||' and '|| 'CI.' );
348: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
349: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
350: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
351: END IF ;
352: --
345: --
346: IF (l_debug <> -1) THEN
347: rlm_core_sv.dlog(C_DEBUG, 'No Open order line exists for below combination of '|| 'SF' ||','|| 'ST'||' and '|| 'CI.' );
348: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
349: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
350: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
351: END IF ;
352: --
353: END IF ;
346: IF (l_debug <> -1) THEN
347: rlm_core_sv.dlog(C_DEBUG, 'No Open order line exists for below combination of '|| 'SF' ||','|| 'ST'||' and '|| 'CI.' );
348: rlm_core_sv.dlog(C_DEBUG, 'SF', drop_list.ship_from_org_id);
349: rlm_core_sv.dlog(C_DEBUG, 'ST', drop_list.ship_to_address_id);
350: rlm_core_sv.dlog(C_DEBUG, 'CI', drop_list.customer_item_id);
351: END IF ;
352: --
353: END IF ;
354: --
356: --
357: WHEN OTHERS THEN
358: --
359: IF (l_debug <> -1) THEN
360: rlm_core_sv.dlog(C_DEBUG, 'In the when others of Populate Lists');
361: rlm_core_sv.dlog(C_DEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
362: END IF ;
363: --
364: END ;
357: WHEN OTHERS THEN
358: --
359: IF (l_debug <> -1) THEN
360: rlm_core_sv.dlog(C_DEBUG, 'In the when others of Populate Lists');
361: rlm_core_sv.dlog(C_DEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
362: END IF ;
363: --
364: END ;
365: --
367: --
368: x_return_status := TRUE;
369: --
370: IF (l_debug <> -1) THEN
371: -- rlm_core_sv.dlog(C_DEBUG, 'g_list_tbl.COUNT', g_list_tbl.COUNT);
372: rlm_core_sv.dlog(C_DEBUG, 'x_return_status', x_return_status);
373: rlm_core_sv.dpop(C_SDEBUG);
374: END IF;
375: --
368: x_return_status := TRUE;
369: --
370: IF (l_debug <> -1) THEN
371: -- rlm_core_sv.dlog(C_DEBUG, 'g_list_tbl.COUNT', g_list_tbl.COUNT);
372: rlm_core_sv.dlog(C_DEBUG, 'x_return_status', x_return_status);
373: rlm_core_sv.dpop(C_SDEBUG);
374: END IF;
375: --
376: EXCEPTION
369: --
370: IF (l_debug <> -1) THEN
371: -- rlm_core_sv.dlog(C_DEBUG, 'g_list_tbl.COUNT', g_list_tbl.COUNT);
372: rlm_core_sv.dlog(C_DEBUG, 'x_return_status', x_return_status);
373: rlm_core_sv.dpop(C_SDEBUG);
374: END IF;
375: --
376: EXCEPTION
377: --
379: --
380: x_return_status := FALSE;
381: --
382: IF (l_debug <> -1) THEN
383: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
384: END IF;
385: --
386:
387: END PopulateList;
402: --
403: BEGIN
404: --
405: IF (l_debug <> -1) THEN
406: rlm_core_sv.dpush(C_SDEBUG, 'CompareList');
407: rlm_core_sv.dlog(C_DEBUG, 'g_list_tbl.COUNT', g_list_tbl.COUNT);
408: END IF;
409: --
410: --
403: BEGIN
404: --
405: IF (l_debug <> -1) THEN
406: rlm_core_sv.dpush(C_SDEBUG, 'CompareList');
407: rlm_core_sv.dlog(C_DEBUG, 'g_list_tbl.COUNT', g_list_tbl.COUNT);
408: END IF;
409: --
410: --
411: -- Bug 2778728 : Proceed further only if g_list_tbl has any entries
414: --
415: i := g_list_tbl.FIRST;
416: --
417: IF (l_debug <> -1) THEN
418: rlm_core_sv.dlog(C_DEBUG, 'Starting Loop');
419: END IF;
420: --
421: LOOP
422: --
420: --
421: LOOP
422: --
423: IF (l_debug <> -1) THEN
424: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', g_list_tbl(i).ship_from_org_id);
425: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', g_list_tbl(i).ship_to_address_id);
426: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', g_list_tbl(i).customer_item_id);
427: END IF;
428: --
421: LOOP
422: --
423: IF (l_debug <> -1) THEN
424: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', g_list_tbl(i).ship_from_org_id);
425: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', g_list_tbl(i).ship_to_address_id);
426: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', g_list_tbl(i).customer_item_id);
427: END IF;
428: --
429: SELECT count(1)
422: --
423: IF (l_debug <> -1) THEN
424: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', g_list_tbl(i).ship_from_org_id);
425: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', g_list_tbl(i).ship_to_address_id);
426: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', g_list_tbl(i).customer_item_id);
427: END IF;
428: --
429: SELECT count(1)
430: INTO v_exist_count
434: AND ship_to_address_id = g_list_tbl(i).ship_to_address_id
435: AND customer_item_id = g_list_tbl(i).customer_item_id;
436: --
437: IF (l_debug <> -1) THEN
438: rlm_core_sv.dlog(C_DEBUG, 'i', i);
439: rlm_core_sv.dlog(C_DEBUG, 'v_exist_count', v_exist_count);
440: END IF;
441: --
442: IF v_exist_count > 0 THEN
435: AND customer_item_id = g_list_tbl(i).customer_item_id;
436: --
437: IF (l_debug <> -1) THEN
438: rlm_core_sv.dlog(C_DEBUG, 'i', i);
439: rlm_core_sv.dlog(C_DEBUG, 'v_exist_count', v_exist_count);
440: END IF;
441: --
442: IF v_exist_count > 0 THEN
443: --
447: --
448: ELSE
449: --
450: IF (l_debug <> -1) THEN
451: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
452: rlm_core_sv.dlog(C_DEBUG, 'SF', g_list_tbl(i).ship_from_org_id);
453: rlm_core_sv.dlog(C_DEBUG, 'ST', g_list_tbl(i).ship_to_address_id);
454: rlm_core_sv.dlog(C_DEBUG, 'CI', g_list_tbl(i).customer_item_id);
455: rlm_core_sv.dlog(C_DEBUG, 'Order Number', g_list_tbl(i).order_number);
448: ELSE
449: --
450: IF (l_debug <> -1) THEN
451: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
452: rlm_core_sv.dlog(C_DEBUG, 'SF', g_list_tbl(i).ship_from_org_id);
453: rlm_core_sv.dlog(C_DEBUG, 'ST', g_list_tbl(i).ship_to_address_id);
454: rlm_core_sv.dlog(C_DEBUG, 'CI', g_list_tbl(i).customer_item_id);
455: rlm_core_sv.dlog(C_DEBUG, 'Order Number', g_list_tbl(i).order_number);
456: END IF;
449: --
450: IF (l_debug <> -1) THEN
451: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
452: rlm_core_sv.dlog(C_DEBUG, 'SF', g_list_tbl(i).ship_from_org_id);
453: rlm_core_sv.dlog(C_DEBUG, 'ST', g_list_tbl(i).ship_to_address_id);
454: rlm_core_sv.dlog(C_DEBUG, 'CI', g_list_tbl(i).customer_item_id);
455: rlm_core_sv.dlog(C_DEBUG, 'Order Number', g_list_tbl(i).order_number);
456: END IF;
457: --
450: IF (l_debug <> -1) THEN
451: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
452: rlm_core_sv.dlog(C_DEBUG, 'SF', g_list_tbl(i).ship_from_org_id);
453: rlm_core_sv.dlog(C_DEBUG, 'ST', g_list_tbl(i).ship_to_address_id);
454: rlm_core_sv.dlog(C_DEBUG, 'CI', g_list_tbl(i).customer_item_id);
455: rlm_core_sv.dlog(C_DEBUG, 'Order Number', g_list_tbl(i).order_number);
456: END IF;
457: --
458: rlm_message_sv.app_error(
451: rlm_core_sv.dlog(C_DEBUG, 'RLM_DROPPED_ITEMS');
452: rlm_core_sv.dlog(C_DEBUG, 'SF', g_list_tbl(i).ship_from_org_id);
453: rlm_core_sv.dlog(C_DEBUG, 'ST', g_list_tbl(i).ship_to_address_id);
454: rlm_core_sv.dlog(C_DEBUG, 'CI', g_list_tbl(i).customer_item_id);
455: rlm_core_sv.dlog(C_DEBUG, 'Order Number', g_list_tbl(i).order_number);
456: END IF;
457: --
458: rlm_message_sv.app_error(
459: x_ExceptionLevel => rlm_message_sv.k_warn_level,
460: x_MessageName => 'RLM_WARN_DROPPED_ITEMS',
461: x_InterfaceHeaderId => x_curr_header_id,
462: x_InterfaceLineId => NULL,
463: x_token1 => 'SF',
464: x_value1 => RLM_CORE_SV.get_ship_from(g_list_tbl(i).ship_from_org_id),
465: x_token2 => 'ST',
466: x_value2 => RLM_CORE_SV.get_ship_to(g_list_tbl(i).ship_to_address_id),
467: x_token3 => 'CI',
468: x_value3 => RLM_CORE_SV.get_item_number(g_list_tbl(i).customer_item_id),
462: x_InterfaceLineId => NULL,
463: x_token1 => 'SF',
464: x_value1 => RLM_CORE_SV.get_ship_from(g_list_tbl(i).ship_from_org_id),
465: x_token2 => 'ST',
466: x_value2 => RLM_CORE_SV.get_ship_to(g_list_tbl(i).ship_to_address_id),
467: x_token3 => 'CI',
468: x_value3 => RLM_CORE_SV.get_item_number(g_list_tbl(i).customer_item_id),
469: x_token4 => 'ORDER_NO',
470: x_value4 => g_list_tbl(i).order_number);
464: x_value1 => RLM_CORE_SV.get_ship_from(g_list_tbl(i).ship_from_org_id),
465: x_token2 => 'ST',
466: x_value2 => RLM_CORE_SV.get_ship_to(g_list_tbl(i).ship_to_address_id),
467: x_token3 => 'CI',
468: x_value3 => RLM_CORE_SV.get_item_number(g_list_tbl(i).customer_item_id),
469: x_token4 => 'ORDER_NO',
470: x_value4 => g_list_tbl(i).order_number);
471: --
472: EXIT WHEN i = g_list_tbl.LAST;
479: --
480: END IF; /* g_list_tbl.COUNT > 0 */
481: --
482: IF (l_debug <> -1) THEN
483: rlm_core_sv.dpop(C_SDEBUG);
484: END IF;
485: --
486: EXCEPTION
487: --
487: --
488: WHEN OTHERS THEN
489: --
490: IF (l_debug <> -1) THEN
491: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: OTHER - ' || SUBSTR(SQLERRM,1,200));
492: END IF;
493: --
494:
495: END CompareList;