48: --
49: -- DEBUGGING - INPUT Values
50: --
51: IF (l_debug <> -1) THEN
52: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKey');
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
49: -- DEBUGGING - INPUT Values
50: --
51: IF (l_debug <> -1) THEN
52: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKey');
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
50: --
51: IF (l_debug <> -1) THEN
52: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKey');
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
51: IF (l_debug <> -1) THEN
52: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKey');
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
52: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKey');
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
53: rlm_core_sv.dlog(C_DEBUG, '');
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
54: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
55: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
56: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
57: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
58: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', x_cum_key_record.bill_to_address_id);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
66: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
59: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', x_cum_key_record.intrmd_ship_to_address_id);
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
66: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
67: END IF;
60: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', x_cum_key_record.customer_item_id);
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
66: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
67: END IF;
68: --
61: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', x_cum_key_record.purchase_order_number);
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
66: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
67: END IF;
68: --
69: -- Get the current Org ID and raise error if the current Org is not set
62: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
63: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
64: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', x_cum_key_record.create_cum_key_flag);
65: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
66: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
67: END IF;
68: --
69: -- Get the current Org ID and raise error if the current Org is not set
70: -- This piece of code has been added as a fail-safe mechanism, we
73: --
74: v_OrgId := MO_GLOBAL.get_current_org_id;
75: --
76: IF (l_debug <> -1) THEN
77: rlm_core_sv.dlog(C_DEBUG, 'Current Org ID', v_OrgId);
78: END IF;
79: --
80: IF v_OrgID IS NULL THEN
81: --
120: --
121: END IF;
122: --
123: IF (l_debug <> -1) THEN
124: rlm_core_sv.dlog(C_DEBUG, 'address_id', v_address_id);
125: END IF;
126: --
127: -- Get the CUM Control Code from the setup terms table
128: --
137: x_return_status => v_setup_terms_status);
138: --
139: IF v_setup_terms_status = FALSE THEN
140: --
141: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
142: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
143: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
144: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
145: --
138: --
139: IF v_setup_terms_status = FALSE THEN
140: --
141: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
142: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
143: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
144: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
145: --
146: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
139: IF v_setup_terms_status = FALSE THEN
140: --
141: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
142: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
143: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
144: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
145: --
146: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
147: --
140: --
141: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
142: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
143: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
144: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
145: --
146: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
147: --
148: rlm_message_sv.get_msg_text(
177: --
178: IF v_rlm_setup_terms_record.calc_cum_flag <> 'Y'
179: OR v_rlm_setup_terms_record.calc_cum_flag IS NULL THEN
180: --
181: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
182: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
183: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
184: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
185: --
178: IF v_rlm_setup_terms_record.calc_cum_flag <> 'Y'
179: OR v_rlm_setup_terms_record.calc_cum_flag IS NULL THEN
180: --
181: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
182: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
183: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
184: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
185: --
186: x_cum_record.msg_name := 'RLM_CUM_NO_CALC_FLAG';
179: OR v_rlm_setup_terms_record.calc_cum_flag IS NULL THEN
180: --
181: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
182: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
183: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
184: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
185: --
186: x_cum_record.msg_name := 'RLM_CUM_NO_CALC_FLAG';
187: --
180: --
181: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
182: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
183: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
184: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
185: --
186: x_cum_record.msg_name := 'RLM_CUM_NO_CALC_FLAG';
187: --
188: rlm_message_sv.get_msg_text(
232: --
233: END IF;
234: --
235: IF (l_debug <> -1) THEN
236: rlm_core_sv.dpop(C_DEBUG,'CalculateCumKey');
237: END IF;
238: --
239: RETURN;
240: --
325: END IF;
326: --
327: ELSE
328: --
329: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
330: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
331: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
332: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
333: --
326: --
327: ELSE
328: --
329: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
330: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
331: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
332: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
333: --
334: x_cum_record.msg_name := 'RLM_CUM_NO_CUM_CALC';
327: ELSE
328: --
329: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
330: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
331: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
332: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
333: --
334: x_cum_record.msg_name := 'RLM_CUM_NO_CUM_CALC';
335: --
328: --
329: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
330: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
331: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
332: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
333: --
334: x_cum_record.msg_name := 'RLM_CUM_NO_CUM_CALC';
335: --
336: rlm_message_sv.get_msg_text(
345: --
346: END IF;
347: --
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
350: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
351: rlm_core_sv.dlog(C_DEBUG, ' ');
352: rlm_core_sv.dlog(C_DEBUG, 'The setup terms were retrieved at this level: ', v_terms_level);
353: END IF;
346: END IF;
347: --
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
350: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
351: rlm_core_sv.dlog(C_DEBUG, ' ');
352: rlm_core_sv.dlog(C_DEBUG, 'The setup terms were retrieved at this level: ', v_terms_level);
353: END IF;
354: --
347: --
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
350: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
351: rlm_core_sv.dlog(C_DEBUG, ' ');
352: rlm_core_sv.dlog(C_DEBUG, 'The setup terms were retrieved at this level: ', v_terms_level);
353: END IF;
354: --
355: -- Turn ON/OFF switches based on cum organization level code
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
350: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
351: rlm_core_sv.dlog(C_DEBUG, ' ');
352: rlm_core_sv.dlog(C_DEBUG, 'The setup terms were retrieved at this level: ', v_terms_level);
353: END IF;
354: --
355: -- Turn ON/OFF switches based on cum organization level code
356: --
417: --
418: END IF;
419: --
420: IF (l_debug <> -1) THEN
421: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
418: END IF;
419: --
420: IF (l_debug <> -1) THEN
421: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
419: --
420: IF (l_debug <> -1) THEN
421: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
420: IF (l_debug <> -1) THEN
421: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
421: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', x_cum_key_record.cust_record_year);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
422: rlm_core_sv.dlog(C_DEBUG, '');
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
423: rlm_core_sv.dlog(C_DEBUG, 'ATTRIBUTES ACTUALLY USED TO FIND/CREATE THE KEY:');
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
424: rlm_core_sv.dlog(C_DEBUG, '------------------------------------------------');
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
432: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
425: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
432: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
433: END IF;
426: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
432: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
433: END IF;
434: --
427: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
432: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
433: END IF;
434: --
435: --Find the cum key id using the CUM RULES
428: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
429: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
430: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
431: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
432: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
433: END IF;
434: --
435: --Find the cum key id using the CUM RULES
436: --
508: END IF;
509: --
510: /* DEBUGGING - OUTPUT Values */
511: IF (l_debug <> -1) THEN
512: rlm_core_sv.dlog(C_DEBUG, '');
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
509: --
510: /* DEBUGGING - OUTPUT Values */
511: IF (l_debug <> -1) THEN
512: rlm_core_sv.dlog(C_DEBUG, '');
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
510: /* DEBUGGING - OUTPUT Values */
511: IF (l_debug <> -1) THEN
512: rlm_core_sv.dlog(C_DEBUG, '');
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
511: IF (l_debug <> -1) THEN
512: rlm_core_sv.dlog(C_DEBUG, '');
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
512: rlm_core_sv.dlog(C_DEBUG, '');
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
513: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
514: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
515: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
516: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
517: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
518: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
519: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', x_cum_record.cum_key_created_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
520: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
521: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
529: rlm_core_sv.dpop(C_DEBUG, 'Cum key record is retrieved successfully');
522: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
529: rlm_core_sv.dpop(C_DEBUG, 'Cum key record is retrieved successfully');
530: END IF;
523: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
529: rlm_core_sv.dpop(C_DEBUG, 'Cum key record is retrieved successfully');
530: END IF;
531: --
524: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', x_cum_record.last_cum_qty_update_date);
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
529: rlm_core_sv.dpop(C_DEBUG, 'Cum key record is retrieved successfully');
530: END IF;
531: --
532: EXCEPTION
525: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
526: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
527: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
528: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
529: rlm_core_sv.dpop(C_DEBUG, 'Cum key record is retrieved successfully');
530: END IF;
531: --
532: EXCEPTION
533: --
541: --
542: x_cum_record.record_return_status := FALSE;
543: --
544: IF (l_debug <> -1) THEN
545: rlm_core_sv.dlog(C_DEBUG, 'msg_data', x_cum_record.msg_data);
546: rlm_core_sv.dpop(C_DEBUG, 'TOO_MANY_ROWS');
547: END IF;
548: --
549: WHEN NO_DATA_FOUND THEN
542: x_cum_record.record_return_status := FALSE;
543: --
544: IF (l_debug <> -1) THEN
545: rlm_core_sv.dlog(C_DEBUG, 'msg_data', x_cum_record.msg_data);
546: rlm_core_sv.dpop(C_DEBUG, 'TOO_MANY_ROWS');
547: END IF;
548: --
549: WHEN NO_DATA_FOUND THEN
550: --
548: --
549: WHEN NO_DATA_FOUND THEN
550: --
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG, 'No cum key id is found');
553: rlm_core_sv.dlog(C_DEBUG, 'disable_create_cum_key_flag',v_rlm_setup_terms_record.disable_create_cum_key_flag);
554: rlm_core_sv.dlog(C_DEBUG, 'v_orgId ', v_orgId);
555: END IF;
556: --
549: WHEN NO_DATA_FOUND THEN
550: --
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG, 'No cum key id is found');
553: rlm_core_sv.dlog(C_DEBUG, 'disable_create_cum_key_flag',v_rlm_setup_terms_record.disable_create_cum_key_flag);
554: rlm_core_sv.dlog(C_DEBUG, 'v_orgId ', v_orgId);
555: END IF;
556: --
557: --IF x_cum_key_record.create_cum_key_flag = 'Y' THEN
550: --
551: IF (l_debug <> -1) THEN
552: rlm_core_sv.dlog(C_DEBUG, 'No cum key id is found');
553: rlm_core_sv.dlog(C_DEBUG, 'disable_create_cum_key_flag',v_rlm_setup_terms_record.disable_create_cum_key_flag);
554: rlm_core_sv.dlog(C_DEBUG, 'v_orgId ', v_orgId);
555: END IF;
556: --
557: --IF x_cum_key_record.create_cum_key_flag = 'Y' THEN
558: IF (nvl(v_rlm_setup_terms_record.disable_create_cum_key_flag,'N') = 'N'
627: x_text => x_cum_record.msg_data);
628: --
629: --DEBUGGING - Output Values
630: IF (l_debug <> -1) THEN
631: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE NEWLY INSERTED RECORD VALUES');
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
628: --
629: --DEBUGGING - Output Values
630: IF (l_debug <> -1) THEN
631: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE NEWLY INSERTED RECORD VALUES');
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
629: --DEBUGGING - Output Values
630: IF (l_debug <> -1) THEN
631: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE NEWLY INSERTED RECORD VALUES');
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
630: IF (l_debug <> -1) THEN
631: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE NEWLY INSERTED RECORD VALUES');
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
631: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE NEWLY INSERTED RECORD VALUES');
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
632: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
640: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
633: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
640: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
641: END IF;
634: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
640: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
641: END IF;
642: --
635: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
640: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
641: END IF;
642: --
643: EXCEPTION
636: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
637: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
638: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
639: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
640: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
641: END IF;
642: --
643: EXCEPTION
644: --
654: --
655: x_cum_record.record_return_status := FALSE;
656: --
657: IF (l_debug <> -1) THEN
658: rlm_core_sv.dlog(C_DEBUG, x_cum_record.msg_data);
659: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
660: END IF;
661: --
662: END;
655: x_cum_record.record_return_status := FALSE;
656: --
657: IF (l_debug <> -1) THEN
658: rlm_core_sv.dlog(C_DEBUG, x_cum_record.msg_data);
659: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
660: END IF;
661: --
662: END;
663: ----------------------------------------------------------------+
668: x_cum_record.cum_key_id := NULL; -- Bug 4667349
669: x_cum_record.record_return_status := TRUE;
670: --
671: IF (l_debug <> -1) THEN
672: rlm_core_sv.dpop(C_DEBUG, 'CUM Key Id is not found, and not created as create_cum_key_flag is set to N');
673: END IF;
674: --
675: END IF;
676: --
678: --
679: x_cum_record.record_return_status := FALSE;
680: --
681: IF (l_debug <> -1) THEN
682: rlm_core_sv.dlog(C_DEBUG,'msg_data',x_cum_record.msg_data);
683: rlm_core_sv.dlog(C_DEBUG,'record_return_status',x_cum_record.record_return_status);
684: rlm_core_sv.dpop(C_DEBUG,'E_UNEXPECTED');
685: END IF;
686: --
679: x_cum_record.record_return_status := FALSE;
680: --
681: IF (l_debug <> -1) THEN
682: rlm_core_sv.dlog(C_DEBUG,'msg_data',x_cum_record.msg_data);
683: rlm_core_sv.dlog(C_DEBUG,'record_return_status',x_cum_record.record_return_status);
684: rlm_core_sv.dpop(C_DEBUG,'E_UNEXPECTED');
685: END IF;
686: --
687: WHEN OTHERS THEN
680: --
681: IF (l_debug <> -1) THEN
682: rlm_core_sv.dlog(C_DEBUG,'msg_data',x_cum_record.msg_data);
683: rlm_core_sv.dlog(C_DEBUG,'record_return_status',x_cum_record.record_return_status);
684: rlm_core_sv.dpop(C_DEBUG,'E_UNEXPECTED');
685: END IF;
686: --
687: WHEN OTHERS THEN
688: --
690: --
691: x_cum_record.record_return_status := FALSE;
692: --DEBUGGING - OUTPUT Values
693: IF (l_debug <> -1) THEN
694: rlm_core_sv.dlog(C_DEBUG, '');
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
691: x_cum_record.record_return_status := FALSE;
692: --DEBUGGING - OUTPUT Values
693: IF (l_debug <> -1) THEN
694: rlm_core_sv.dlog(C_DEBUG, '');
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
692: --DEBUGGING - OUTPUT Values
693: IF (l_debug <> -1) THEN
694: rlm_core_sv.dlog(C_DEBUG, '');
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
693: IF (l_debug <> -1) THEN
694: rlm_core_sv.dlog(C_DEBUG, '');
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
694: rlm_core_sv.dlog(C_DEBUG, '');
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
695: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
696: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
697: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
705: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
698: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
705: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
706: END IF;
699: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
705: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
706: END IF;
707: --
700: rlm_core_sv.dlog(C_DEBUG, 'actual_ship_date', x_cum_record.actual_shipment_date);
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
705: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
706: END IF;
707: --
708: END CalculateCumKey;
701: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created', x_cum_record.cum_key_created_flag);
702: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
703: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', x_cum_record.cust_uom_code);
704: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
705: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
706: END IF;
707: --
708: END CalculateCumKey;
709: --
750: --
751: BEGIN
752: --
753: IF (l_debug <> -1) THEN
754: rlm_core_sv.start_debug;
755: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKeyClient');
756: END IF;
757: --
758: x_cum_key_record.customer_id := x_customer_id;
751: BEGIN
752: --
753: IF (l_debug <> -1) THEN
754: rlm_core_sv.start_debug;
755: rlm_core_sv.dpush(C_SDEBUG, 'CalculateCumKeyClient');
756: END IF;
757: --
758: x_cum_key_record.customer_id := x_customer_id;
759: x_cum_key_record.customer_item_id := x_customer_item_id;
825: --
826: g_manual_cum := FALSE; -- BugFix #4147544
827: --
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.stop_debug;
830: END IF;
831: --
832: EXCEPTION
833: --
833: --
834: WHEN OTHERS THEN
835: --
836: IF (l_debug <> -1) THEN
837: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
838: rlm_core_sv.stop_debug;
839: END IF;
840: --
841: END CalculateCumKeyClient;
834: WHEN OTHERS THEN
835: --
836: IF (l_debug <> -1) THEN
837: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
838: rlm_core_sv.stop_debug;
839: END IF;
840: --
841: END CalculateCumKeyClient;
842: --
871: BEGIN
872: --
873: /* DEBUGGING - INPUT Values */
874: IF (l_debug <> -1) THEN
875: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCum');
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
872: --
873: /* DEBUGGING - INPUT Values */
874: IF (l_debug <> -1) THEN
875: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCum');
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
873: /* DEBUGGING - INPUT Values */
874: IF (l_debug <> -1) THEN
875: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCum');
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
874: IF (l_debug <> -1) THEN
875: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCum');
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
875: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCum');
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
876: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES');
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
877: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', x_cum_key_record.ship_from_org_id);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
878: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', x_cum_key_record.ship_to_address_id);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
886: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
879: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', x_cum_key_record.inventory_item_id);
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
886: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
887: END IF;
880: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
886: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
887: END IF;
888: --
881: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
886: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
887: END IF;
888: --
889: IF x_cum_record.record_return_status = FALSE THEN
882: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
883: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', x_cum_record.shipped_quantity);
884: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', x_cum_record.actual_shipment_date);
885: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', x_cum_record.use_ship_incl_rule_flag);
886: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
887: END IF;
888: --
889: IF x_cum_record.record_return_status = FALSE THEN
890: --
906: the cum_shipment_rule_code cutoff date. The as_of_date_time
907: could be any value between the cum_start_date and today */
908: --
909: IF (l_debug <> -1) THEN
910: rlm_core_sv.dlog(C_DEBUG, 'Cum calculation is done using as_of_date_time');
911: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
912: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
913: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_time', x_cum_record.as_of_date_time);
914: END IF;
907: could be any value between the cum_start_date and today */
908: --
909: IF (l_debug <> -1) THEN
910: rlm_core_sv.dlog(C_DEBUG, 'Cum calculation is done using as_of_date_time');
911: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
912: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
913: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_time', x_cum_record.as_of_date_time);
914: END IF;
915: --
908: --
909: IF (l_debug <> -1) THEN
910: rlm_core_sv.dlog(C_DEBUG, 'Cum calculation is done using as_of_date_time');
911: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
912: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
913: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_time', x_cum_record.as_of_date_time);
914: END IF;
915: --
916: SELECT NVL((SUM(shipped_quantity)), 0)
909: IF (l_debug <> -1) THEN
910: rlm_core_sv.dlog(C_DEBUG, 'Cum calculation is done using as_of_date_time');
911: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
912: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
913: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_time', x_cum_record.as_of_date_time);
914: END IF;
915: --
916: SELECT NVL((SUM(shipped_quantity)), 0)
917: INTO x_cum_record.as_of_date_cum_qty
933: --
934: x_cum_record.as_of_date_cum_qty := x_cum_record.as_of_date_cum_qty + adj_qty;
935: --
936: IF (l_debug <> -1) THEN
937: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
938: END IF;
939: --
940: ELSIF x_cum_record.use_ship_incl_rule_flag = 'Y' THEN
941:
952: x_return_status => v_return_status);
953: --
954: IF v_return_status = FALSE THEN
955: --
956: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
957: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
958: v_ship_to_location := RLM_CORE_SV.get_ship_to(x_cum_key_record.ship_to_address_id);
959: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
960: --
953: --
954: IF v_return_status = FALSE THEN
955: --
956: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
957: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
958: v_ship_to_location := RLM_CORE_SV.get_ship_to(x_cum_key_record.ship_to_address_id);
959: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
960: --
961: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
954: IF v_return_status = FALSE THEN
955: --
956: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
957: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
958: v_ship_to_location := RLM_CORE_SV.get_ship_to(x_cum_key_record.ship_to_address_id);
959: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
960: --
961: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
962: --
955: --
956: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
957: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
958: v_ship_to_location := RLM_CORE_SV.get_ship_to(x_cum_key_record.ship_to_address_id);
959: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
960: --
961: x_cum_record.msg_name := 'RLM_CUM_SETUP_TERMS_REQUIRED';
962: --
963: rlm_message_sv.get_msg_text(
986: -- RLM_CUM_NO_SHIP_RULE
987: -- This message will not go to the end user
988: x_cum_record.msg_data := 'Cum shipment rule code is not found. Proceed with "As of Current Shipment" rule code';
989: IF (l_debug <> -1) THEN
990: rlm_core_sv.dlog(C_DEBUG, x_cum_record.msg_data);
991: END IF;
992: --
993: END IF;
994: --
1044: --
1045: WHEN NO_DATA_FOUND THEN
1046: --
1047: IF (l_debug <> -1) THEN
1048: rlm_core_sv.dlog(C_DEBUG, 'No data found');
1049: END IF;
1050: --
1051: END;
1052: --
1200: x_token2 => 'CTD',
1201: x_value2 => TO_CHAR(v_cutoff_date));
1202: --
1203: IF (l_debug <> -1) THEN
1204: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUM_NO_AOD_SHIPMENT -- as_of_date_time not null');
1205: END IF;
1206: --
1207: END;
1208: --
1221: x_cum_record.record_return_status := TRUE;
1222: --
1223: /* DEBUGGING - OUTPUT Values */
1224: IF (l_debug <> -1) THEN
1225: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1222: --
1223: /* DEBUGGING - OUTPUT Values */
1224: IF (l_debug <> -1) THEN
1225: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1223: /* DEBUGGING - OUTPUT Values */
1224: IF (l_debug <> -1) THEN
1225: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1224: IF (l_debug <> -1) THEN
1225: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1225: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1233: rlm_core_sv.dpop(C_DEBUG, 'Terminate successfully');
1226: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1233: rlm_core_sv.dpop(C_DEBUG, 'Terminate successfully');
1234: END IF;
1227: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1233: rlm_core_sv.dpop(C_DEBUG, 'Terminate successfully');
1234: END IF;
1235: --
1228: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1233: rlm_core_sv.dpop(C_DEBUG, 'Terminate successfully');
1234: END IF;
1235: --
1236: EXCEPTION
1229: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', x_cum_record.as_of_date_cum_qty);
1230: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1231: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1232: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1233: rlm_core_sv.dpop(C_DEBUG, 'Terminate successfully');
1234: END IF;
1235: --
1236: EXCEPTION
1237: --
1240: x_cum_record.record_return_status := FALSE;
1241: --
1242: /* DEBUGGING - OUTPUT Values */
1243: IF (l_debug <> -1) THEN
1244: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1241: --
1242: /* DEBUGGING - OUTPUT Values */
1243: IF (l_debug <> -1) THEN
1244: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1242: /* DEBUGGING - OUTPUT Values */
1243: IF (l_debug <> -1) THEN
1244: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1243: IF (l_debug <> -1) THEN
1244: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1251: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
1244: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1251: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
1252: END IF;
1245: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1251: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
1252: END IF;
1253: --
1246: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1251: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
1252: END IF;
1253: --
1254: WHEN NO_DATA_FOUND THEN
1247: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1248: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1249: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1250: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1251: rlm_core_sv.dpop(C_DEBUG, x_cum_record.msg_data);
1252: END IF;
1253: --
1254: WHEN NO_DATA_FOUND THEN
1255: --
1256: x_cum_record.record_return_status := FALSE;
1257: --
1258: /* DEBUGGING - OUTPUT Values */
1259: IF (l_debug <> -1) THEN
1260: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1257: --
1258: /* DEBUGGING - OUTPUT Values */
1259: IF (l_debug <> -1) THEN
1260: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1258: /* DEBUGGING - OUTPUT Values */
1259: IF (l_debug <> -1) THEN
1260: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1259: IF (l_debug <> -1) THEN
1260: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1267: rlm_core_sv.dpop(C_DEBUG, 'No record found using the set of input values provided');
1260: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1267: rlm_core_sv.dpop(C_DEBUG, 'No record found using the set of input values provided');
1268: END IF;
1261: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1267: rlm_core_sv.dpop(C_DEBUG, 'No record found using the set of input values provided');
1268: END IF;
1269: --
1262: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1267: rlm_core_sv.dpop(C_DEBUG, 'No record found using the set of input values provided');
1268: END IF;
1269: --
1270: WHEN OTHERS THEN
1263: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1264: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1265: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1266: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1267: rlm_core_sv.dpop(C_DEBUG, 'No record found using the set of input values provided');
1268: END IF;
1269: --
1270: WHEN OTHERS THEN
1271: --
1272: x_cum_record.record_return_status := FALSE;
1273: --
1274: /* DEBUGGING - OUTPUT Values */
1275: IF (l_debug <> -1) THEN
1276: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1273: --
1274: /* DEBUGGING - OUTPUT Values */
1275: IF (l_debug <> -1) THEN
1276: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1274: /* DEBUGGING - OUTPUT Values */
1275: IF (l_debug <> -1) THEN
1276: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1275: IF (l_debug <> -1) THEN
1276: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1283: -- RLM_CUM_SQLERR
1276: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES');
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1283: -- RLM_CUM_SQLERR
1284: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
1277: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1283: -- RLM_CUM_SQLERR
1284: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
1285: END IF;
1278: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', x_cum_record.cum_qty_to_be_accumulated);
1279: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', x_cum_record.cum_qty_after_cutoff);
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1283: -- RLM_CUM_SQLERR
1284: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
1285: END IF;
1286: --
1280: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', x_cum_record.shipment_rule_code);
1281: rlm_core_sv.dlog(C_DEBUG, 'yesterday_time_cutoff', x_cum_record.yesterday_time_cutoff);
1282: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', x_cum_record.record_return_status);
1283: -- RLM_CUM_SQLERR
1284: rlm_core_sv.dpop(C_DEBUG, SQLERRM);
1285: END IF;
1286: --
1287: END CalculateSupplierCum;
1288:
1330: --
1331: BEGIN
1332: --
1333: IF (l_debug <> -1) THEN
1334: rlm_core_sv.start_debug;
1335: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCumClient');
1336: END IF;
1337: --
1338: x_cum_key_record.customer_id := x_customer_id;
1331: BEGIN
1332: --
1333: IF (l_debug <> -1) THEN
1334: rlm_core_sv.start_debug;
1335: rlm_core_sv.dpush(C_SDEBUG, 'CalculateSupplierCumClient');
1336: END IF;
1337: --
1338: x_cum_key_record.customer_id := x_customer_id;
1339: x_cum_key_record.customer_item_id := x_customer_item_id;
1387: x_last_update_date := x_cum_record.last_update_date;
1388: x_as_of_date_time := x_cum_record.as_of_date_time;
1389: --
1390: IF (l_debug <> -1) THEN
1391: rlm_core_sv.dpop(C_SDEBUG, 'Completed successfully');
1392: rlm_core_sv.stop_debug;
1393: END IF;
1394: --
1395: EXCEPTION
1388: x_as_of_date_time := x_cum_record.as_of_date_time;
1389: --
1390: IF (l_debug <> -1) THEN
1391: rlm_core_sv.dpop(C_SDEBUG, 'Completed successfully');
1392: rlm_core_sv.stop_debug;
1393: END IF;
1394: --
1395: EXCEPTION
1396: --
1396: --
1397: WHEN OTHERS THEN
1398: --
1399: IF (l_debug <> -1) THEN
1400: rlm_core_sv.dpop(C_DEBUG,SQLERRM);
1401: rlm_core_sv.stop_debug;
1402: END IF;
1403: --
1404: END CalculateSupplierCumClient;
1397: WHEN OTHERS THEN
1398: --
1399: IF (l_debug <> -1) THEN
1400: rlm_core_sv.dpop(C_DEBUG,SQLERRM);
1401: rlm_core_sv.stop_debug;
1402: END IF;
1403: --
1404: END CalculateSupplierCumClient;
1405:
1544: --
1545: BEGIN
1546: --
1547: IF (l_debug <> -1) THEN
1548: rlm_core_sv.start_debug;
1549: rlm_core_sv.dpush(C_SDEBUG, 'UpdateCumKey');
1550: END IF;
1551: --
1552: savepoint updatecumkey; --bug 3719088
1545: BEGIN
1546: --
1547: IF (l_debug <> -1) THEN
1548: rlm_core_sv.start_debug;
1549: rlm_core_sv.dpush(C_SDEBUG, 'UpdateCumKey');
1550: END IF;
1551: --
1552: savepoint updatecumkey; --bug 3719088
1553:
1571: --
1572: hdr_count := hdr_count + 1;
1573: --
1574: IF (l_debug <> -1) THEN
1575: rlm_core_sv.dlog(C_DEBUG, 'Inside c_oe_header Loop');
1576: END IF;
1577: --
1578: END LOOP;
1579: --
1579: --
1580: CLOSE c_oe_header;
1581: --
1582: IF (l_debug <> -1) THEN
1583: rlm_core_sv.dlog(C_DEBUG, 'Number of oe headers to update: ', hdr_count);
1584: END IF;
1585: --
1586: --
1587: IF hdr_count = 0 THEN
1595: --
1596: -- LOOP to fetch distinct header ids
1597: --
1598: IF (l_debug <> -1) THEN
1599: rlm_core_sv.dlog(C_DEBUG, 'v_loop_count', v_loop_count);
1600: rlm_core_sv.dlog(C_DEBUG, 'Inside v_loop_count Loop');
1601: END IF;
1602: --
1603: --Reset counter
1596: -- LOOP to fetch distinct header ids
1597: --
1598: IF (l_debug <> -1) THEN
1599: rlm_core_sv.dlog(C_DEBUG, 'v_loop_count', v_loop_count);
1600: rlm_core_sv.dlog(C_DEBUG, 'Inside v_loop_count Loop');
1601: END IF;
1602: --
1603: --Reset counter
1604: counter := 0;
1609: v_oe_header_id := v_oe_header(v_loop_count).header_id;
1610: v_org_id := v_oe_header(v_loop_count).org_id;
1611: --
1612: IF (l_debug <> -1) THEN
1613: rlm_core_sv.dlog(C_DEBUG, 'v_oe_header_id', v_oe_header_id);
1614: rlm_core_sv.dlog(C_DEBUG, 'v_org_id', v_org_id);
1615: END IF;
1616: --
1617: MO_GLOBAL.set_policy_context(p_access_mode => 'S',
1610: v_org_id := v_oe_header(v_loop_count).org_id;
1611: --
1612: IF (l_debug <> -1) THEN
1613: rlm_core_sv.dlog(C_DEBUG, 'v_oe_header_id', v_oe_header_id);
1614: rlm_core_sv.dlog(C_DEBUG, 'v_org_id', v_org_id);
1615: END IF;
1616: --
1617: MO_GLOBAL.set_policy_context(p_access_mode => 'S',
1618: p_org_id => v_org_id);
1626: LOOP --LOOP to fetch OE Order Lines
1627: --DEBUGGING
1628: --
1629: IF (l_debug <> -1) THEN
1630: rlm_core_sv.dlog(C_DEBUG, 'Inside c_oe_lines Loop');
1631: END IF;
1632: --
1633: v_msg_text := NULL;
1634: --
1736: END IF;
1737: --
1738: --DEBUGGING - INPUT Values
1739: IF (l_debug <> -1) THEN
1740: rlm_core_sv.dlog(C_DEBUG, '');
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1737: --
1738: --DEBUGGING - INPUT Values
1739: IF (l_debug <> -1) THEN
1740: rlm_core_sv.dlog(C_DEBUG, '');
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1738: --DEBUGGING - INPUT Values
1739: IF (l_debug <> -1) THEN
1740: rlm_core_sv.dlog(C_DEBUG, '');
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1739: IF (l_debug <> -1) THEN
1740: rlm_core_sv.dlog(C_DEBUG, '');
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1740: rlm_core_sv.dlog(C_DEBUG, '');
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1741: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE INPUT VALUES:');
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1742: rlm_core_sv.dlog(C_DEBUG, '--------------------------');
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1743: rlm_core_sv.dlog(C_DEBUG, 'x_trip_stop_id', x_trip_stop_id);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1744: rlm_core_sv.dlog(C_DEBUG, 'v_delivery_id', v_delivery_id);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1745: rlm_core_sv.dlog(C_DEBUG, 'v_line_id', v_line_id);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1746: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1747: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1755: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1748: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id', v_cum_key_record.bill_to_address_id);
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1755: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1756: END IF;
1749: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id', v_cum_key_record.intrmd_ship_to_address_id);
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1755: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1756: END IF;
1757: --
1750: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1755: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1756: END IF;
1757: --
1758: -- User friendly message
1751: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number', v_cum_key_record.purchase_order_number);
1752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year', v_cum_key_record.cust_record_year);
1753: rlm_core_sv.dlog(C_DEBUG, 'create_cum_key', v_cum_key_record.create_cum_key_flag);
1754: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1755: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1756: END IF;
1757: --
1758: -- User friendly message
1759: -- TODO: Make the message more user friendly
1793: --
1794: --DEBUGGING
1795: --
1796: IF (l_debug <> -1) THEN
1797: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1798: END IF;
1799: --
1800: --Get the CUM_CONTROL_CODE defined at CUSTOMER or ADDRESS level
1801: --
1810: x_return_status => v_setup_terms_status);
1811: --
1812: --DEBUGGING
1813: IF (l_debug <> -1) THEN
1814: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status', v_setup_terms_status);
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1811: --
1812: --DEBUGGING
1813: IF (l_debug <> -1) THEN
1814: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status', v_setup_terms_status);
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1812: --DEBUGGING
1813: IF (l_debug <> -1) THEN
1814: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status', v_setup_terms_status);
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1813: IF (l_debug <> -1) THEN
1814: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status', v_setup_terms_status);
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1821: rlm_core_sv.dlog(C_DEBUG, 'calc_cum_flag', v_rlm_setup_terms_record.calc_cum_flag);
1814: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status', v_setup_terms_status);
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1821: rlm_core_sv.dlog(C_DEBUG, 'calc_cum_flag', v_rlm_setup_terms_record.calc_cum_flag);
1822: END IF;
1815: rlm_core_sv.dlog(C_DEBUG, 'Terms level', v_terms_level);
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1821: rlm_core_sv.dlog(C_DEBUG, 'calc_cum_flag', v_rlm_setup_terms_record.calc_cum_flag);
1822: END IF;
1823: --
1816: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code', v_rlm_setup_terms_record.cum_control_code);
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1821: rlm_core_sv.dlog(C_DEBUG, 'calc_cum_flag', v_rlm_setup_terms_record.calc_cum_flag);
1822: END IF;
1823: --
1824: -- User friendly message
1817: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id', v_cum_key_record.ship_to_address_id);
1818: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1819: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_cum_key_record.customer_id);
1820: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id', v_cum_key_record.customer_item_id);
1821: rlm_core_sv.dlog(C_DEBUG, 'calc_cum_flag', v_rlm_setup_terms_record.calc_cum_flag);
1822: END IF;
1823: --
1824: -- User friendly message
1825: --
1842: --
1843: --DEBUGGING
1844: --
1845: IF (l_debug <> -1) THEN
1846: rlm_core_sv.dlog(C_DEBUG, 'Setup terms x_return_status at item level', v_setup_terms_status);
1847: END IF;
1848: --
1849: --Find the cum start date
1850: --
1861: --
1862: END IF;
1863: --
1864: IF (l_debug <> -1) THEN
1865: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_key_record.cum_start_date);
1866: END IF;
1867: --
1868: /* Call calculate_cum_key procedure to search for the cum
1869: key id, and the cum quantity stored in the database as
1935: where as the Uom attached with the CUM Key can be different.
1936: The Cum key should be updated with qty specified in Cum key uom. */
1937: --
1938: IF (l_debug <> -1) THEN
1939: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', v_cum_key_record.inventory_item_id);
1940: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1941: END IF;
1942: --
1943: v_shipped_qty := v_cum_record.shipped_quantity;
1936: The Cum key should be updated with qty specified in Cum key uom. */
1937: --
1938: IF (l_debug <> -1) THEN
1939: rlm_core_sv.dlog(C_DEBUG, 'inventory_item_id', v_cum_key_record.inventory_item_id);
1940: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id', v_cum_key_record.ship_from_org_id);
1941: END IF;
1942: --
1943: v_shipped_qty := v_cum_record.shipped_quantity;
1944: --
1949: v_cum_key_record.inventory_item_id,
1950: v_cum_key_record.ship_from_org_id);
1951: --
1952: IF (l_debug <> -1) THEN
1953: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom', v_Primary_UOM_Code);
1954: rlm_core_sv.dlog(C_DEBUG, 'Cum Key Uom', v_cum_record.cust_uom_code);
1955: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-Before Conversion to CUM Uom', v_shipped_qty);
1956: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-After Conversion -CUM Uom', v_cum_record.shipped_quantity);
1957: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom and Cum Key Uom differ: Calling Convert_UOM');
1950: v_cum_key_record.ship_from_org_id);
1951: --
1952: IF (l_debug <> -1) THEN
1953: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom', v_Primary_UOM_Code);
1954: rlm_core_sv.dlog(C_DEBUG, 'Cum Key Uom', v_cum_record.cust_uom_code);
1955: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-Before Conversion to CUM Uom', v_shipped_qty);
1956: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-After Conversion -CUM Uom', v_cum_record.shipped_quantity);
1957: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom and Cum Key Uom differ: Calling Convert_UOM');
1958: END IF;
1951: --
1952: IF (l_debug <> -1) THEN
1953: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom', v_Primary_UOM_Code);
1954: rlm_core_sv.dlog(C_DEBUG, 'Cum Key Uom', v_cum_record.cust_uom_code);
1955: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-Before Conversion to CUM Uom', v_shipped_qty);
1956: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-After Conversion -CUM Uom', v_cum_record.shipped_quantity);
1957: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom and Cum Key Uom differ: Calling Convert_UOM');
1958: END IF;
1959: --
1952: IF (l_debug <> -1) THEN
1953: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom', v_Primary_UOM_Code);
1954: rlm_core_sv.dlog(C_DEBUG, 'Cum Key Uom', v_cum_record.cust_uom_code);
1955: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-Before Conversion to CUM Uom', v_shipped_qty);
1956: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-After Conversion -CUM Uom', v_cum_record.shipped_quantity);
1957: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom and Cum Key Uom differ: Calling Convert_UOM');
1958: END IF;
1959: --
1960: END IF;
1953: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom', v_Primary_UOM_Code);
1954: rlm_core_sv.dlog(C_DEBUG, 'Cum Key Uom', v_cum_record.cust_uom_code);
1955: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-Before Conversion to CUM Uom', v_shipped_qty);
1956: rlm_core_sv.dlog(C_DEBUG, 'Shipd Qty.-After Conversion -CUM Uom', v_cum_record.shipped_quantity);
1957: rlm_core_sv.dlog(C_DEBUG, 'Primary Uom and Cum Key Uom differ: Calling Convert_UOM');
1958: END IF;
1959: --
1960: END IF;
1961: /* Bug 4439006: End */
1973: v_cum_record.shipped_quantity := v_shipped_qty;
1974:
1975: --DEBUGGING - OUTPUT Values
1976: IF (l_debug <> -1) THEN
1977: rlm_core_sv.dlog(C_DEBUG, '');
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1974:
1975: --DEBUGGING - OUTPUT Values
1976: IF (l_debug <> -1) THEN
1977: rlm_core_sv.dlog(C_DEBUG, '');
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1975: --DEBUGGING - OUTPUT Values
1976: IF (l_debug <> -1) THEN
1977: rlm_core_sv.dlog(C_DEBUG, '');
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1976: IF (l_debug <> -1) THEN
1977: rlm_core_sv.dlog(C_DEBUG, '');
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1977: rlm_core_sv.dlog(C_DEBUG, '');
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1978: rlm_core_sv.dlog(C_DEBUG, 'HERE ARE THE OUTPUT VALUES:');
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1979: rlm_core_sv.dlog(C_DEBUG, '---------------------------');
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1980: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', v_cum_record.cum_key_id);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1981: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', v_cum_record.cum_start_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1982: rlm_core_sv.dlog(C_DEBUG, 'shipped_quantity', v_cum_record.shipped_quantity);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1983: rlm_core_sv.dlog(C_DEBUG, 'actual_shipment_date', v_cum_record.actual_shipment_date);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1984: rlm_core_sv.dlog(C_DEBUG, 'cum_key_created_flag', v_cum_record.cum_key_created_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1985: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', v_cum_record.cum_qty);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1986: rlm_core_sv.dlog(C_DEBUG, 'as_of_date_cum_qty', v_cum_record.as_of_date_cum_qty);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1994: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', v_cum_record.record_return_status);
1987: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_to_be_accumulated', v_cum_record.cum_qty_to_be_accumulated);
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1994: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', v_cum_record.record_return_status);
1995: END IF;
1988: rlm_core_sv.dlog(C_DEBUG, 'cum_qty_after_cutoff', v_cum_record.cum_qty_after_cutoff);
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1994: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', v_cum_record.record_return_status);
1995: END IF;
1996: --
1989: rlm_core_sv.dlog(C_DEBUG, 'last_cum_qty_update_date', v_cum_record.last_cum_qty_update_date);
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1994: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', v_cum_record.record_return_status);
1995: END IF;
1996: --
1997: --Bug 3688778 jckwok : Need to Lock the Cum Key
1990: rlm_core_sv.dlog(C_DEBUG, 'cust_uom_code', v_cum_record.cust_uom_code);
1991: rlm_core_sv.dlog(C_DEBUG, 'Primary_uom_code', v_Primary_UOM_Code);
1992: rlm_core_sv.dlog(C_DEBUG, 'use_ship_incl_rule_flag', v_cum_record.use_ship_incl_rule_flag);
1993: rlm_core_sv.dlog(C_DEBUG, 'shipment_rule_code', v_cum_record.shipment_rule_code);
1994: rlm_core_sv.dlog(C_DEBUG, 'record_return_status', v_cum_record.record_return_status);
1995: END IF;
1996: --
1997: --Bug 3688778 jckwok : Need to Lock the Cum Key
1998: --
2031: g_oe_line_tbl(counter).org_id := v_org_id;
2032: --
2033: --DEBUGGING
2034: IF (l_debug <> -1) THEN
2035: rlm_core_sv.dlog(C_DEBUG, 'counter', counter);
2036: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).header_id',
2037: g_oe_line_tbl(counter).header_id);
2038: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).line_id',
2039: g_oe_line_tbl(counter).line_id);
2032: --
2033: --DEBUGGING
2034: IF (l_debug <> -1) THEN
2035: rlm_core_sv.dlog(C_DEBUG, 'counter', counter);
2036: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).header_id',
2037: g_oe_line_tbl(counter).header_id);
2038: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).line_id',
2039: g_oe_line_tbl(counter).line_id);
2040: rlm_core_sv.dlog(C_DEBUG,'g_oe_line_tbl(counter).veh_cus_item_cum_key_id',
2034: IF (l_debug <> -1) THEN
2035: rlm_core_sv.dlog(C_DEBUG, 'counter', counter);
2036: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).header_id',
2037: g_oe_line_tbl(counter).header_id);
2038: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).line_id',
2039: g_oe_line_tbl(counter).line_id);
2040: rlm_core_sv.dlog(C_DEBUG,'g_oe_line_tbl(counter).veh_cus_item_cum_key_id',
2041: g_oe_line_tbl(counter).veh_cus_item_cum_key_id);
2042: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute7',
2036: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).header_id',
2037: g_oe_line_tbl(counter).header_id);
2038: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).line_id',
2039: g_oe_line_tbl(counter).line_id);
2040: rlm_core_sv.dlog(C_DEBUG,'g_oe_line_tbl(counter).veh_cus_item_cum_key_id',
2041: g_oe_line_tbl(counter).veh_cus_item_cum_key_id);
2042: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute7',
2043: g_oe_line_tbl(counter).industry_attribute7);
2044: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute8',
2038: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).line_id',
2039: g_oe_line_tbl(counter).line_id);
2040: rlm_core_sv.dlog(C_DEBUG,'g_oe_line_tbl(counter).veh_cus_item_cum_key_id',
2041: g_oe_line_tbl(counter).veh_cus_item_cum_key_id);
2042: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute7',
2043: g_oe_line_tbl(counter).industry_attribute7);
2044: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute8',
2045: g_oe_line_tbl(counter).industry_attribute8);
2046: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).org_id',
2040: rlm_core_sv.dlog(C_DEBUG,'g_oe_line_tbl(counter).veh_cus_item_cum_key_id',
2041: g_oe_line_tbl(counter).veh_cus_item_cum_key_id);
2042: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute7',
2043: g_oe_line_tbl(counter).industry_attribute7);
2044: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute8',
2045: g_oe_line_tbl(counter).industry_attribute8);
2046: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).org_id',
2047: g_oe_line_tbl(counter).org_id);
2048: END IF;
2042: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute7',
2043: g_oe_line_tbl(counter).industry_attribute7);
2044: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).industry_attribute8',
2045: g_oe_line_tbl(counter).industry_attribute8);
2046: rlm_core_sv.dlog(C_DEBUG, 'g_oe_line_tbl(counter).org_id',
2047: g_oe_line_tbl(counter).org_id);
2048: END IF;
2049: --
2050: ELSE
2059: --
2060: v_msg_text := 'RLM_TRIP_NO_UPDATE';
2061: --
2062: IF (l_debug <> -1) THEN
2063: rlm_core_sv.dlog(C_SDEBUG, v_msg_text);
2064: END IF;
2065: --
2066: -- User friendly message
2067: --
2089: --
2090: -- RLM_TRIP_NO_SETUP
2091: --
2092: IF (l_debug <> -1) THEN
2093: rlm_core_sv.dlog(C_SDEBUG, 'RLM_TRIP_NO_SETUP');
2094: END IF;
2095: --
2096: -- User friendly message
2097: --
2108: CLOSE c_oe_lines;
2109: ----------------+
2110: --
2111: IF (l_debug <> -1) THEN
2112: rlm_core_sv.dlog(C_DEBUG, 'v_msg_text', v_msg_text);
2113: rlm_core_sv.dlog(C_DEBUG, 'v_upd_indicator', v_upd_indicator);
2114: END IF;
2115: --
2116: IF v_upd_indicator = TRUE THEN
2109: ----------------+
2110: --
2111: IF (l_debug <> -1) THEN
2112: rlm_core_sv.dlog(C_DEBUG, 'v_msg_text', v_msg_text);
2113: rlm_core_sv.dlog(C_DEBUG, 'v_upd_indicator', v_upd_indicator);
2114: END IF;
2115: --
2116: IF v_upd_indicator = TRUE THEN
2117: --
2159: --
2160: --Handle the exceptions caused by the OE call
2161: --
2162: IF (l_debug <> -1) THEN
2163: rlm_core_sv.dlog(C_SDEBUG, 'Input tbl count', g_oe_line_tbl.LAST);
2164: rlm_core_sv.dlog(C_SDEBUG, 'Output tbl count', l_oe_line_tbl_out.LAST);
2165: END IF;
2166: --
2167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2160: --Handle the exceptions caused by the OE call
2161: --
2162: IF (l_debug <> -1) THEN
2163: rlm_core_sv.dlog(C_SDEBUG, 'Input tbl count', g_oe_line_tbl.LAST);
2164: rlm_core_sv.dlog(C_SDEBUG, 'Output tbl count', l_oe_line_tbl_out.LAST);
2165: END IF;
2166: --
2167: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: --
2177: x_return_status := TRUE;
2178: --
2179: --DEBUGGING
2180: IF (l_debug <> -1) THEN
2181: rlm_core_sv.dlog(C_SDEBUG,'l_return_status', l_return_status);
2182: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2183: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2184: rlm_core_sv.dlog(C_SDEBUG, 'Process Order is completed succesfully');
2185: END IF;
2178: --
2179: --DEBUGGING
2180: IF (l_debug <> -1) THEN
2181: rlm_core_sv.dlog(C_SDEBUG,'l_return_status', l_return_status);
2182: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2183: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2184: rlm_core_sv.dlog(C_SDEBUG, 'Process Order is completed succesfully');
2185: END IF;
2186: --
2179: --DEBUGGING
2180: IF (l_debug <> -1) THEN
2181: rlm_core_sv.dlog(C_SDEBUG,'l_return_status', l_return_status);
2182: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2183: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2184: rlm_core_sv.dlog(C_SDEBUG, 'Process Order is completed succesfully');
2185: END IF;
2186: --
2187: END IF;
2180: IF (l_debug <> -1) THEN
2181: rlm_core_sv.dlog(C_SDEBUG,'l_return_status', l_return_status);
2182: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2183: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2184: rlm_core_sv.dlog(C_SDEBUG, 'Process Order is completed succesfully');
2185: END IF;
2186: --
2187: END IF;
2188: --
2201: ROLLBACK to updatecumkey;
2202: --
2203: -- DEBUGGING
2204: IF (l_debug <> -1) THEN
2205: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
2206: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2207: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2208: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2209: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2202: --
2203: -- DEBUGGING
2204: IF (l_debug <> -1) THEN
2205: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
2206: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2207: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2208: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2209: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2210: END IF;
2203: -- DEBUGGING
2204: IF (l_debug <> -1) THEN
2205: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
2206: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2207: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2208: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2209: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2210: END IF;
2211: --
2204: IF (l_debug <> -1) THEN
2205: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
2206: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2207: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2208: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2209: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2210: END IF;
2211: --
2212: IF x_msg_count > 0 THEN
2205: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
2206: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2207: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2208: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2209: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2210: END IF;
2211: --
2212: IF x_msg_count > 0 THEN
2213: --
2218: --
2219: fnd_file.put_line(fnd_file.log, x_msg_data);
2220: --
2221: IF (l_debug <> -1) THEN
2222: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2223: END IF;
2224: --
2225: END LOOP;
2226: --
2226: --
2227: END IF;
2228: --
2229: IF (l_debug <> -1) THEN
2230: rlm_core_sv.dpop(C_SDEBUG, 'Process Order Error');
2231: END IF;
2232: --
2233: --
2234: -- User friendly message
2239: --
2240: fnd_file.put_line(fnd_file.log, v_msg_text);
2241: --
2242: IF (l_debug <> -1) THEN
2243: rlm_core_sv.stop_debug;
2244: END IF;
2245: --
2246: RAISE e_general_error;
2247: --
2260: ROLLBACK to updatecumkey;
2261: --
2262: -- DEBUGGING
2263: IF (l_debug <> -1) THEN
2264: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2261: --
2262: -- DEBUGGING
2263: IF (l_debug <> -1) THEN
2264: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2269: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2262: -- DEBUGGING
2263: IF (l_debug <> -1) THEN
2264: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2269: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2270: END IF;
2263: IF (l_debug <> -1) THEN
2264: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2269: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2270: END IF;
2271: --
2264: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2269: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2270: END IF;
2271: --
2272: IF x_msg_count > 0 THEN
2265: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2266: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2267: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2268: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2269: rlm_core_sv.dlog(C_SDEBUG, 'Main x_msg_data', x_msg_data);
2270: END IF;
2271: --
2272: IF x_msg_count > 0 THEN
2273: --
2278: --
2279: fnd_file.put_line(fnd_file.log, x_msg_data);
2280: --
2281: IF (l_debug <> -1) THEN
2282: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2283: END IF;
2284: --
2285: END LOOP;
2286: --
2286: --
2287: END IF;
2288: --
2289: IF (l_debug <> -1) THEN
2290: rlm_core_sv.dpop(C_SDEBUG, 'Process Order Error');
2291: END IF;
2292: --
2293: --
2294: -- User friendly message
2299: --
2300: fnd_file.put_line(fnd_file.log, v_msg_text);
2301: --
2302: IF (l_debug <> -1) THEN
2303: rlm_core_sv.stop_debug;
2304: END IF;
2305: --
2306: RAISE e_general_error;
2307: --
2320: ROLLBACK to updatecumkey;
2321: --
2322: -- DEBUGGING
2323: IF (l_debug <> -1) THEN
2324: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2325: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2326: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2327: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2328: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2321: --
2322: -- DEBUGGING
2323: IF (l_debug <> -1) THEN
2324: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2325: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2326: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2327: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2328: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2329: END IF;
2322: -- DEBUGGING
2323: IF (l_debug <> -1) THEN
2324: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2325: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2326: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2327: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2328: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2329: END IF;
2330: --
2323: IF (l_debug <> -1) THEN
2324: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2325: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2326: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2327: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2328: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2329: END IF;
2330: --
2331: FOR k in 1 .. x_msg_count LOOP
2324: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
2325: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2326: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
2327: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2328: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_count', x_msg_count);
2329: END IF;
2330: --
2331: FOR k in 1 .. x_msg_count LOOP
2332: --
2335: --
2336: fnd_file.put_line(fnd_file.log, x_msg_data);
2337: --
2338: IF (l_debug <> -1) THEN
2339: rlm_core_sv.dlog(C_SDEBUG, 'x_msg_data', x_msg_data);
2340: END IF;
2341: --
2342: END LOOP;
2343: --
2341: --
2342: END LOOP;
2343: --
2344: IF (l_debug <> -1) THEN
2345: rlm_core_sv.dpop(C_SDEBUG, 'Process Order Error. When Others');
2346: END IF;
2347: --
2348: --
2349: -- User friendly message
2354: --
2355: fnd_file.put_line(fnd_file.log, v_msg_text);
2356: --
2357: IF (l_debug <> -1) THEN
2358: rlm_core_sv.stop_debug;
2359: END IF;
2360: --
2361: END;
2362: --------------------------------------------------------------------------------+
2365: END LOOP; -- END LOOP to fetch distinct header ids
2366: --
2367: --DEBUGGING
2368: IF (l_debug <> -1) THEN
2369: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2370: rlm_core_sv.dpop(C_DEBUG, 'Completed successfully');
2371: END IF;
2372: --
2373: --User friendly message
2366: --
2367: --DEBUGGING
2368: IF (l_debug <> -1) THEN
2369: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2370: rlm_core_sv.dpop(C_DEBUG, 'Completed successfully');
2371: END IF;
2372: --
2373: --User friendly message
2374: --
2378: --
2379: fnd_file.put_line(fnd_file.log, v_msg_text);
2380: --
2381: IF (l_debug <> -1) THEN
2382: rlm_core_sv.stop_debug;
2383: END IF;
2384: --
2385: EXCEPTION
2386: --
2408: --
2409: x_return_status := FALSE;
2410: --
2411: IF (l_debug <> -1) THEN
2412: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2413: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: NO_DATA_FOUND');
2414: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2415: rlm_core_sv.stop_debug;
2416: END IF;
2409: x_return_status := FALSE;
2410: --
2411: IF (l_debug <> -1) THEN
2412: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2413: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: NO_DATA_FOUND');
2414: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2415: rlm_core_sv.stop_debug;
2416: END IF;
2417: --
2410: --
2411: IF (l_debug <> -1) THEN
2412: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2413: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: NO_DATA_FOUND');
2414: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2415: rlm_core_sv.stop_debug;
2416: END IF;
2417: --
2418: -- User-friendly message
2411: IF (l_debug <> -1) THEN
2412: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2413: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: NO_DATA_FOUND');
2414: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2415: rlm_core_sv.stop_debug;
2416: END IF;
2417: --
2418: -- User-friendly message
2419: --
2445: --
2446: x_return_status := TRUE;
2447: --
2448: IF (l_debug <> -1) THEN
2449: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2450: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_shipment_line');
2451: END IF;
2452: --
2453: SELECT location_code
2446: x_return_status := TRUE;
2447: --
2448: IF (l_debug <> -1) THEN
2449: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2450: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_shipment_line');
2451: END IF;
2452: --
2453: SELECT location_code
2454: INTO v_hr_location_code
2462: x_token1 => 'TRIP_STOP',
2463: x_value1 => v_hr_location_code);
2464: --
2465: IF (l_debug <> -1) THEN
2466: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2467: END IF;
2468: --
2469: -- Bug 1306894: Shipping requests the removal of this
2470: -- misleading message for non-RLM customers
2471: --
2472: -- fnd_file.put_line(fnd_file.log, v_msg_text);
2473: --
2474: IF (l_debug <> -1) THEN
2475: rlm_core_sv.stop_debug;
2476: END IF;
2477: --
2478: EXCEPTION
2479: --
2485: x_token1 => 'TRIP_STOP',
2486: x_value1 => NULL);
2487: --
2488: IF (l_debug <> -1) THEN
2489: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2490: rlm_core_sv.stop_debug;
2491: END IF;
2492: --
2493: fnd_file.put_line(fnd_file.log, v_msg_text);
2486: x_value1 => NULL);
2487: --
2488: IF (l_debug <> -1) THEN
2489: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2490: rlm_core_sv.stop_debug;
2491: END IF;
2492: --
2493: fnd_file.put_line(fnd_file.log, v_msg_text);
2494: --
2504: x_message_name => 'RLM_TRIP_STOP_REQUIRED',
2505: x_text => v_msg_text);
2506: --
2507: IF (l_debug <> -1) THEN
2508: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2509: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_null_mandatory');
2510: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2511: rlm_core_sv.stop_debug;
2512: END IF;
2505: x_text => v_msg_text);
2506: --
2507: IF (l_debug <> -1) THEN
2508: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2509: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_null_mandatory');
2510: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2511: rlm_core_sv.stop_debug;
2512: END IF;
2513: --
2506: --
2507: IF (l_debug <> -1) THEN
2508: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2509: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_null_mandatory');
2510: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2511: rlm_core_sv.stop_debug;
2512: END IF;
2513: --
2514: fnd_file.put_line(fnd_file.log, v_msg_text);
2507: IF (l_debug <> -1) THEN
2508: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2509: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_null_mandatory');
2510: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2511: rlm_core_sv.stop_debug;
2512: END IF;
2513: --
2514: fnd_file.put_line(fnd_file.log, v_msg_text);
2515: --
2519: --
2520: x_return_status := FALSE;
2521: --
2522: IF (l_debug <> -1) THEN
2523: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2524: END IF;
2525: v_msg_text := v_tmp_return_message;
2526: --
2527: IF (l_debug <> -1) THEN
2524: END IF;
2525: v_msg_text := v_tmp_return_message;
2526: --
2527: IF (l_debug <> -1) THEN
2528: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_cum_start_date');
2529: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2530: rlm_core_sv.stop_debug;
2531: END IF;
2532: --
2525: v_msg_text := v_tmp_return_message;
2526: --
2527: IF (l_debug <> -1) THEN
2528: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_cum_start_date');
2529: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2530: rlm_core_sv.stop_debug;
2531: END IF;
2532: --
2533: fnd_file.put_line(fnd_file.log, v_msg_text);
2526: --
2527: IF (l_debug <> -1) THEN
2528: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_cum_start_date');
2529: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2530: rlm_core_sv.stop_debug;
2531: END IF;
2532: --
2533: fnd_file.put_line(fnd_file.log, v_msg_text);
2534: --
2540: --
2541: x_return_status := FALSE;
2542: --
2543: IF (l_debug <> -1) THEN
2544: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2545: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_cum_key');
2546: rlm_core_sv.dpop(C_SDEBUG);
2547: rlm_core_sv.stop_debug;
2548: END IF;
2541: x_return_status := FALSE;
2542: --
2543: IF (l_debug <> -1) THEN
2544: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2545: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_cum_key');
2546: rlm_core_sv.dpop(C_SDEBUG);
2547: rlm_core_sv.stop_debug;
2548: END IF;
2549: fnd_file.put_line(fnd_file.log, v_msg_text);
2542: --
2543: IF (l_debug <> -1) THEN
2544: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2545: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_cum_key');
2546: rlm_core_sv.dpop(C_SDEBUG);
2547: rlm_core_sv.stop_debug;
2548: END IF;
2549: fnd_file.put_line(fnd_file.log, v_msg_text);
2550:
2543: IF (l_debug <> -1) THEN
2544: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2545: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: e_no_cum_key');
2546: rlm_core_sv.dpop(C_SDEBUG);
2547: rlm_core_sv.stop_debug;
2548: END IF;
2549: fnd_file.put_line(fnd_file.log, v_msg_text);
2550:
2551: WHEN e_general_error THEN
2562: --
2563: v_msg_text := SQLERRM;
2564: --
2565: IF (l_debug <> -1) THEN
2566: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2567: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: OTHERS');
2568: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2569: rlm_core_sv.stop_debug;
2570: END IF;
2563: v_msg_text := SQLERRM;
2564: --
2565: IF (l_debug <> -1) THEN
2566: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2567: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: OTHERS');
2568: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2569: rlm_core_sv.stop_debug;
2570: END IF;
2571: --
2564: --
2565: IF (l_debug <> -1) THEN
2566: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2567: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: OTHERS');
2568: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2569: rlm_core_sv.stop_debug;
2570: END IF;
2571: --
2572: fnd_file.put_line(fnd_file.log, v_msg_text);
2565: IF (l_debug <> -1) THEN
2566: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
2567: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: OTHERS');
2568: rlm_core_sv.dpop(C_SDEBUG, v_msg_text);
2569: rlm_core_sv.stop_debug;
2570: END IF;
2571: --
2572: fnd_file.put_line(fnd_file.log, v_msg_text);
2573: --
2589: --
2590: BEGIN
2591: --
2592: IF (l_debug <> -1) THEN
2593: rlm_core_sv.start_debug;
2594: END IF;
2595: --
2596: RLM_TPA_SV.UpdateCumKey( x_trip_stop_id,
2597: v_return_status);
2596: RLM_TPA_SV.UpdateCumKey( x_trip_stop_id,
2597: v_return_status);
2598: --
2599: IF (l_debug <> -1) THEN
2600: rlm_core_sv.stop_debug;
2601: END IF;
2602: --
2603: END UpdateCumKeyClient;
2604:
2629: --
2630: BEGIN
2631: --
2632: IF (l_debug <> -1) THEN
2633: rlm_core_sv.start_debug;
2634: END IF;
2635: --
2636: --4316744: Commented out the following code.
2637:
2654: v_transaction_end_date,
2655: v_return_status);
2656: --
2657: IF (l_debug <> -1) THEN
2658: rlm_core_sv.stop_debug;
2659: END IF;
2660: --
2661: END ResetCumClient;
2662:
2786:
2787: BEGIN
2788: --
2789: IF (l_debug <> -1) THEN
2790: rlm_core_sv.start_debug;
2791: rlm_core_sv.dpush(C_SDEBUG, 'GetCumManagement');
2792: END IF;
2793: --
2794:
2787: BEGIN
2788: --
2789: IF (l_debug <> -1) THEN
2790: rlm_core_sv.start_debug;
2791: rlm_core_sv.dpush(C_SDEBUG, 'GetCumManagement');
2792: END IF;
2793: --
2794:
2795: /* Find customer_id, as it is a required input parameter for
2813: o_cum_control_code := v_rlm_setup_terms_record.cum_control_code;
2814: o_cum_org_level_code := v_rlm_setup_terms_record.cum_org_level_code;
2815: --
2816: IF (l_debug <> -1) THEN
2817: rlm_core_sv.dpop('Completed successfully');
2818: rlm_core_sv.stop_debug;
2819: END IF;
2820: --
2821: EXCEPTION
2814: o_cum_org_level_code := v_rlm_setup_terms_record.cum_org_level_code;
2815: --
2816: IF (l_debug <> -1) THEN
2817: rlm_core_sv.dpop('Completed successfully');
2818: rlm_core_sv.stop_debug;
2819: END IF;
2820: --
2821: EXCEPTION
2822: WHEN NO_DATA_FOUND THEN
2821: EXCEPTION
2822: WHEN NO_DATA_FOUND THEN
2823: --
2824: IF (l_debug <> -1) THEN
2825: rlm_core_sv.dpop('no data found');
2826: END IF;
2827: --
2828: WHEN OTHERS THEN
2829: --
2827: --
2828: WHEN OTHERS THEN
2829: --
2830: IF (l_debug <> -1) THEN
2831: rlm_core_sv.dpop('when others');
2832: END IF;
2833:
2834: END GetCumManagement;
2835:
2872:
2873: BEGIN
2874: --
2875: IF (l_debug <> -1) THEN
2876: rlm_core_sv.dpush(C_SDEBUG, 'GetCumStartDate');
2877: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_header_id', i_schedule_header_id);
2878: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_line_id', i_schedule_line_id);
2879: END IF;
2880: --
2873: BEGIN
2874: --
2875: IF (l_debug <> -1) THEN
2876: rlm_core_sv.dpush(C_SDEBUG, 'GetCumStartDate');
2877: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_header_id', i_schedule_header_id);
2878: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_line_id', i_schedule_line_id);
2879: END IF;
2880: --
2881: SELECT line.ship_from_org_id,
2874: --
2875: IF (l_debug <> -1) THEN
2876: rlm_core_sv.dpush(C_SDEBUG, 'GetCumStartDate');
2877: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_header_id', i_schedule_header_id);
2878: rlm_core_sv.dlog(C_DEBUG, 'i_schedule_line_id', i_schedule_line_id);
2879: END IF;
2880: --
2881: SELECT line.ship_from_org_id,
2882: line.ship_to_address_id,
2896: AND line.line_id = i_schedule_line_id
2897: AND line.header_id = header.header_id;
2898: --
2899: IF (l_debug <> -1) THEN
2900: rlm_core_sv.dlog(C_DEBUG, 'v_ship_from_org_id', v_ship_from_org_id);
2901: rlm_core_sv.dlog(C_DEBUG, 'v_ship_to_address_id', v_ship_to_address_id);
2902: rlm_core_sv.dlog(C_DEBUG, 'v_customer_item_id', v_customer_item_id);
2903: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_customer_id);
2904: END IF;
2897: AND line.header_id = header.header_id;
2898: --
2899: IF (l_debug <> -1) THEN
2900: rlm_core_sv.dlog(C_DEBUG, 'v_ship_from_org_id', v_ship_from_org_id);
2901: rlm_core_sv.dlog(C_DEBUG, 'v_ship_to_address_id', v_ship_to_address_id);
2902: rlm_core_sv.dlog(C_DEBUG, 'v_customer_item_id', v_customer_item_id);
2903: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_customer_id);
2904: END IF;
2905: --
2898: --
2899: IF (l_debug <> -1) THEN
2900: rlm_core_sv.dlog(C_DEBUG, 'v_ship_from_org_id', v_ship_from_org_id);
2901: rlm_core_sv.dlog(C_DEBUG, 'v_ship_to_address_id', v_ship_to_address_id);
2902: rlm_core_sv.dlog(C_DEBUG, 'v_customer_item_id', v_customer_item_id);
2903: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_customer_id);
2904: END IF;
2905: --
2906: BEGIN
2899: IF (l_debug <> -1) THEN
2900: rlm_core_sv.dlog(C_DEBUG, 'v_ship_from_org_id', v_ship_from_org_id);
2901: rlm_core_sv.dlog(C_DEBUG, 'v_ship_to_address_id', v_ship_to_address_id);
2902: rlm_core_sv.dlog(C_DEBUG, 'v_customer_item_id', v_customer_item_id);
2903: rlm_core_sv.dlog(C_DEBUG, 'customer_id', v_customer_id);
2904: END IF;
2905: --
2906: BEGIN
2907: --
2933: x_return_message => v_setup_terms_msg,
2934: x_return_status => v_setup_terms_status);
2935: --
2936: IF (l_debug <> -1) THEN
2937: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code',
2938: v_rlm_setup_terms_record.cum_control_code);
2939: rlm_core_sv.dlog(C_DEBUG, 'v_setup_terms_status',
2940: v_setup_terms_status);
2941: END IF;
2935: --
2936: IF (l_debug <> -1) THEN
2937: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code',
2938: v_rlm_setup_terms_record.cum_control_code);
2939: rlm_core_sv.dlog(C_DEBUG, 'v_setup_terms_status',
2940: v_setup_terms_status);
2941: END IF;
2942: --
2943: IF (v_setup_terms_status = FALSE)
2960:
2961: o_return_status := TRUE;
2962: --
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2965: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2966: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2967: rlm_core_sv.dpop('Completed successfully');
2968: END IF;
2961: o_return_status := TRUE;
2962: --
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2965: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2966: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2967: rlm_core_sv.dpop('Completed successfully');
2968: END IF;
2969: --
2962: --
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2965: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2966: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2967: rlm_core_sv.dpop('Completed successfully');
2968: END IF;
2969: --
2970: EXCEPTION
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2965: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2966: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2967: rlm_core_sv.dpop('Completed successfully');
2968: END IF;
2969: --
2970: EXCEPTION
2971: WHEN NO_DATA_FOUND THEN
2975: x_text => o_return_message);
2976: --
2977: IF (l_debug <> -1) THEN
2978: --
2979: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2980: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2981: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2982: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2983: rlm_core_sv.dpop(C_DEBUG);
2976: --
2977: IF (l_debug <> -1) THEN
2978: --
2979: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2980: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2981: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2982: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2983: rlm_core_sv.dpop(C_DEBUG);
2984: --
2977: IF (l_debug <> -1) THEN
2978: --
2979: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2980: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2981: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2982: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2983: rlm_core_sv.dpop(C_DEBUG);
2984: --
2985: END IF;
2978: --
2979: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2980: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2981: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2982: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2983: rlm_core_sv.dpop(C_DEBUG);
2984: --
2985: END IF;
2986:
2979: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2980: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2981: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2982: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2983: rlm_core_sv.dpop(C_DEBUG);
2984: --
2985: END IF;
2986:
2987: WHEN OTHERS THEN
2988: o_return_status := FALSE;
2989: o_return_message := SQLERRM;
2990: --
2991: IF (l_debug <> -1) THEN
2992: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2993: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2994: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2995: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2996: rlm_core_sv.dpop(C_DEBUG);
2989: o_return_message := SQLERRM;
2990: --
2991: IF (l_debug <> -1) THEN
2992: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2993: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2994: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2995: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2996: rlm_core_sv.dpop(C_DEBUG);
2997: END IF;
2990: --
2991: IF (l_debug <> -1) THEN
2992: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2993: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2994: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2995: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2996: rlm_core_sv.dpop(C_DEBUG);
2997: END IF;
2998:
2991: IF (l_debug <> -1) THEN
2992: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2993: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2994: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2995: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2996: rlm_core_sv.dpop(C_DEBUG);
2997: END IF;
2998:
2999: END GetCumStartDate;
2992: rlm_core_sv.dlog(C_DEBUG, 'o_cum_start_date', o_cum_start_date);
2993: rlm_core_sv.dlog(C_DEBUG, 'o_cust_record_year', o_cust_record_year);
2994: rlm_core_sv.dlog(C_DEBUG, 'o_return_message', o_return_message);
2995: rlm_core_sv.dlog(C_DEBUG, 'o_return_status', o_return_status);
2996: rlm_core_sv.dpop(C_DEBUG);
2997: END IF;
2998:
2999: END GetCumStartDate;
3000:
3023: v_level VARCHAR2(50) := 'NONE';
3024: BEGIN
3025: --
3026: IF (l_debug <> -1) THEN
3027: rlm_core_sv.dpush(C_DEBUG, 'GetTPContext');
3028: END IF;
3029: --
3030: IF x_cum_key_record.customer_id IS NOT NULL THEN
3031:
3076:
3077: END IF;
3078: --
3079: IF (l_debug <> -1) THEN
3080: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3077: END IF;
3078: --
3079: IF (l_debug <> -1) THEN
3080: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3085: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3078: --
3079: IF (l_debug <> -1) THEN
3080: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3085: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3086: END IF;
3079: IF (l_debug <> -1) THEN
3080: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3085: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3086: END IF;
3087: --
3080: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3085: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3086: END IF;
3087: --
3088: EXCEPTION
3081: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3082: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3083: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3084: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3085: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3086: END IF;
3087: --
3088: EXCEPTION
3089: WHEN NO_DATA_FOUND THEN
3089: WHEN NO_DATA_FOUND THEN
3090: IF v_level = 'SHIP_TO_ECE_LOCN_CODE' THEN
3091: --
3092: IF (l_debug <> -1) THEN
3093: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Ship-To Address ID',
3094: x_cum_key_record.ship_to_address_id);
3095: END IF;
3096: --
3097: x_ship_to_ece_locn_code := NULL;
3098: --
3099: ELSIF v_level = 'BILL_TO_ECE_LOCN_CODE' THEN
3100: --
3101: IF (l_debug <> -1) THEN
3102: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Bill-To Address ID',
3103: x_cum_key_record.bill_to_address_id);
3104: END IF;
3105: --
3106: x_bill_to_ece_locn_code := NULL;
3107: --
3108: ELSIF v_level = 'INTER_SHIP_TO_ECE_LOCN_CODE' THEN
3109: --
3110: IF (l_debug <> -1) THEN
3111: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Intermediate Ship-To Address ID',
3112: x_cum_key_record.intrmd_ship_to_address_id);
3113: END IF;
3114: --
3115: x_inter_ship_to_ece_locn_code := NULL;
3116: --
3117: ELSIF v_level = 'CUSTOMER_NUMBER' THEN
3118: --
3119: IF (l_debug <> -1) THEN
3120: rlm_core_sv.dlog(C_DEBUG, 'No Customer Number Found for Customer ID ',
3121: x_cum_key_record.customer_id);
3122: END IF;
3123: --
3124: x_customer_number := NULL;
3125: --
3126: END IF;
3127: --
3128: IF (l_debug <> -1) THEN
3129: rlm_core_sv.dpop(C_DEBUG);
3130: END IF;
3131: --
3132: WHEN OTHERS THEN
3133: --
3131: --
3132: WHEN OTHERS THEN
3133: --
3134: IF (l_debug <> -1) THEN
3135: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3136: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3137: rlm_core_sv.dpop(C_DEBUG);
3138: END IF;
3139: --
3132: WHEN OTHERS THEN
3133: --
3134: IF (l_debug <> -1) THEN
3135: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3136: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3137: rlm_core_sv.dpop(C_DEBUG);
3138: END IF;
3139: --
3140: RAISE;
3133: --
3134: IF (l_debug <> -1) THEN
3135: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3136: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3137: rlm_core_sv.dpop(C_DEBUG);
3138: END IF;
3139: --
3140: RAISE;
3141:
3191: e_no_delivery_lines EXCEPTION;
3192: BEGIN
3193: --
3194: IF (l_debug <> -1) THEN
3195: rlm_core_sv.dpush(C_DEBUG, 'GetTPContext2');
3196: END IF;
3197: --
3198: OPEN c_oe_lines;
3199: FETCH c_oe_lines
3284: END IF;
3285: END IF;
3286: --
3287: IF (l_debug <> -1) THEN
3288: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3285: END IF;
3286: --
3287: IF (l_debug <> -1) THEN
3288: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3293: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3286: --
3287: IF (l_debug <> -1) THEN
3288: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3293: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3294: END IF;
3287: IF (l_debug <> -1) THEN
3288: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3293: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3294: END IF;
3295: --
3288: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3293: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3294: END IF;
3295: --
3296: EXCEPTION
3289: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
3290: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
3291: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
3292: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
3293: rlm_core_sv.dpop(C_DEBUG, 'Successful');
3294: END IF;
3295: --
3296: EXCEPTION
3297: WHEN NO_DATA_FOUND THEN
3298: --
3299: IF v_level = 'SHIP_TO_ECE_LOCN_CODE' THEN
3300: --
3301: IF (l_debug <> -1) THEN
3302: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Ship-To Address ID', v_ship_to_address_id);
3303: END IF;
3304: --
3305: x_ship_to_ece_locn_code := NULL;
3306: --
3306: --
3307: ELSIF v_level = 'BILL_TO_ECE_LOCN_CODE' THEN
3308: --
3309: IF (l_debug <> -1) THEN
3310: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Bill-To Address ID', v_bill_to_address_id);
3311: END IF;
3312: --
3313: x_bill_to_ece_locn_code := NULL;
3314: --
3314: --
3315: ELSIF v_level = 'INTER_SHIP_TO_ECE_LOCN_CODE' THEN
3316: --
3317: IF (l_debug <> -1) THEN
3318: rlm_core_sv.dlog(C_DEBUG, 'No Location Code Found for Intermediate Ship-To Address ID',
3319: v_intrmd_ship_to_address_id);
3320: END IF;
3321: --
3322: x_inter_ship_to_ece_locn_code := NULL;
3323: --
3324: ELSIF v_level = 'CUSTOMER_NUMBER' THEN
3325: --
3326: IF (l_debug <> -1) THEN
3327: rlm_core_sv.dlog(C_DEBUG, 'No Customer Number Found for Customer ID ', v_customer_id);
3328: END IF;
3329: --
3330: x_customer_number := NULL;
3331: --
3331: --
3332: ELSIF v_level = 'SHIP_TO_ADDRESS_ID' THEN
3333: --
3334: IF (l_debug <> -1) THEN
3335: rlm_core_sv.dlog(C_DEBUG, 'No Address ID Found for Ship-To Org ID ', v_ship_to_org_id);
3336: END IF;
3337: --
3338: ELSIF v_level = 'INTRMD_SHIP_TO_ADDRESS_ID' THEN
3339: --
3337: --
3338: ELSIF v_level = 'INTRMD_SHIP_TO_ADDRESS_ID' THEN
3339: --
3340: IF (l_debug <> -1) THEN
3341: rlm_core_sv.dlog(C_DEBUG, 'No Address ID Found for Intermediate Ship-To Org ID ',
3342: v_intmed_ship_to_org_id);
3343: END IF;
3344: --
3345: ELSIF v_level = 'BILL_TO_ADDRESS_ID' THEN
3344: --
3345: ELSIF v_level = 'BILL_TO_ADDRESS_ID' THEN
3346: --
3347: IF (l_debug <> -1) THEN
3348: rlm_core_sv.dlog(C_DEBUG, 'No Address ID Found for Bill-To Org ID ', v_bill_to_org_id);
3349: END IF;
3350: --
3351: END IF;
3352: --
3350: --
3351: END IF;
3352: --
3353: IF (l_debug <> -1) THEN
3354: rlm_core_sv.dpop(C_DEBUG);
3355: END IF;
3356: --
3357: WHEN e_no_delivery_lines THEN
3358: --
3356: --
3357: WHEN e_no_delivery_lines THEN
3358: --
3359: IF (l_debug <> -1) THEN
3360: rlm_core_sv.dlog(C_DEBUG, 'No delivery line is associated with Trip Stop ID ', x_trip_stop_id);
3361: END IF;
3362: --
3363: WHEN OTHERS THEN
3364: --
3362: --
3363: WHEN OTHERS THEN
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3367: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3368: rlm_core_sv.dpop(C_DEBUG);
3369: END IF;
3370: --
3363: WHEN OTHERS THEN
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3367: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3368: rlm_core_sv.dpop(C_DEBUG);
3369: END IF;
3370: --
3371: RAISE;
3364: --
3365: IF (l_debug <> -1) THEN
3366: rlm_core_sv.dlog(C_SDEBUG, 'Level: ', v_level);
3367: rlm_core_sv.dlog(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3368: rlm_core_sv.dpop(C_DEBUG);
3369: END IF;
3370: --
3371: RAISE;
3372:
3467: --
3468: BEGIN
3469: --
3470: IF (l_debug <> -1) THEN
3471: rlm_core_sv.dpush(C_SDEBUG, 'ResetCum');
3472: END IF;
3473: --
3474: x_return_status := TRUE;
3475: --
3476: MO_GLOBAL.set_policy_context(p_access_mode => 'S',
3477: p_org_id => p_org_id);
3478: --
3479: IF (l_debug <> -1) THEN
3480: rlm_core_sv.dlog(C_SDEBUG, 'p_org_id',p_org_id);
3481: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_from_org_id',x_ship_from_org_id);
3482: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_id',x_customer_id);
3483: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id',x_customer_item_id);
3484: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3477: p_org_id => p_org_id);
3478: --
3479: IF (l_debug <> -1) THEN
3480: rlm_core_sv.dlog(C_SDEBUG, 'p_org_id',p_org_id);
3481: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_from_org_id',x_ship_from_org_id);
3482: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_id',x_customer_id);
3483: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id',x_customer_item_id);
3484: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3485: x_transaction_start_date);
3478: --
3479: IF (l_debug <> -1) THEN
3480: rlm_core_sv.dlog(C_SDEBUG, 'p_org_id',p_org_id);
3481: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_from_org_id',x_ship_from_org_id);
3482: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_id',x_customer_id);
3483: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id',x_customer_item_id);
3484: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3485: x_transaction_start_date);
3486: END IF;
3479: IF (l_debug <> -1) THEN
3480: rlm_core_sv.dlog(C_SDEBUG, 'p_org_id',p_org_id);
3481: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_from_org_id',x_ship_from_org_id);
3482: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_id',x_customer_id);
3483: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id',x_customer_item_id);
3484: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3485: x_transaction_start_date);
3486: END IF;
3487: --
3480: rlm_core_sv.dlog(C_SDEBUG, 'p_org_id',p_org_id);
3481: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_from_org_id',x_ship_from_org_id);
3482: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_id',x_customer_id);
3483: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id',x_customer_item_id);
3484: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3485: x_transaction_start_date);
3486: END IF;
3487: --
3488: -- add time stamp
3498: v_end_date_time := x_transaction_end_date;
3499: END IF;
3500:
3501: IF (l_debug <> -1) THEN
3502: rlm_core_sv.dlog(C_SDEBUG, 'v_end_date_time',
3503: v_end_date_time);
3504: END IF;
3505: --
3506: -- Start logging the ResetCum trail into the fnd log file here!
3521: --
3522: v_level := 'SHIP_TO_ADDRESS_ID';
3523: --
3524: IF (l_debug <> -1) THEN
3525: rlm_core_sv.dlog(C_SDEBUG, 'x_ship_to_org_id',x_ship_to_org_id);
3526: END IF;
3527: --
3528: --IF x_ship_to_org_id IS NOT NULL THEN
3529: --
3538: --
3539: v_level := 'INTRMD_SHIP_TO_ADDRESS_ID';
3540: --
3541: IF (l_debug <> -1) THEN
3542: rlm_core_sv.dlog(C_SDEBUG,'x_intrmd_ship_to_org_id',x_intrmd_ship_to_org_id);
3543: END IF;
3544: --
3545: IF x_intrmd_ship_to_org_id IS NOT NULL THEN
3546: --
3558: v_intrmd_ship_to_address_id := NULL;
3559: END IF;
3560: --
3561: IF (l_debug <> -1) THEN
3562: rlm_core_sv.dlog(C_SDEBUG,'v_intrmd_ship_to_address_id',
3563: v_intrmd_ship_to_address_id);
3564: END IF;
3565: --
3566: -- Find the bill_to_address_id
3567: --
3568: v_level := 'BILL_TO_ADDRESS_ID';
3569: --
3570: IF (l_debug <> -1) THEN
3571: rlm_core_sv.dlog(C_SDEBUG,'x_bill_to_org_id',x_bill_to_org_id);
3572: END IF;
3573: --
3574: IF x_bill_to_org_id IS NOT NULL THEN
3575: --
3588: --
3589: END IF;
3590: --
3591: IF (l_debug <> -1) THEN
3592: rlm_core_sv.dlog(C_SDEBUG,'v_bill_to_address_id',v_bill_to_address_id);
3593: END IF;
3594: --
3595: -- Get the setup terms at the appropriate/lowest level so that
3596: --
3647: --
3648: END IF;
3649: --
3650: IF (l_debug <> -1) THEN
3651: rlm_core_sv.dlog(C_SDEBUG, 'The criteria used to select the shipment ' ||'lines');
3652: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3648: END IF;
3649: --
3650: IF (l_debug <> -1) THEN
3651: rlm_core_sv.dlog(C_SDEBUG, 'The criteria used to select the shipment ' ||'lines');
3652: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3649: --
3650: IF (l_debug <> -1) THEN
3651: rlm_core_sv.dlog(C_SDEBUG, 'The criteria used to select the shipment ' ||'lines');
3652: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3650: IF (l_debug <> -1) THEN
3651: rlm_core_sv.dlog(C_SDEBUG, 'The criteria used to select the shipment ' ||'lines');
3652: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3658: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3652: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3658: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3659: x_transaction_start_date);
3660: rlm_core_sv.dlog(C_SDEBUG, 'v_end_date_time',
3653: rlm_core_sv.dlog(C_SDEBUG, 'p_ship_to_org_id', p_ship_to_org_id);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3658: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3659: x_transaction_start_date);
3660: rlm_core_sv.dlog(C_SDEBUG, 'v_end_date_time',
3661: v_end_date_time);
3654: rlm_core_sv.dlog(C_SDEBUG, 'p_intmed_ship_to_org_id',
3655: p_intmed_ship_to_org_id);
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3658: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3659: x_transaction_start_date);
3660: rlm_core_sv.dlog(C_SDEBUG, 'v_end_date_time',
3661: v_end_date_time);
3662: END IF;
3656: rlm_core_sv.dlog(C_SDEBUG, 'p_bill_to_org_id', p_bill_to_org_id);
3657: rlm_core_sv.dlog(C_SDEBUG, 'x_customer_item_id', x_customer_item_id);
3658: rlm_core_sv.dlog(C_SDEBUG, 'x_transaction_start_date',
3659: x_transaction_start_date);
3660: rlm_core_sv.dlog(C_SDEBUG, 'v_end_date_time',
3661: v_end_date_time);
3662: END IF;
3663: --
3664: fnd_file.put_line(fnd_file.log, 'p_ship_from_org_id: '
3699: ,v_old_cum_counter
3700: ,v_return_stat);
3701: --
3702: IF (l_debug <> -1) THEN
3703: rlm_core_sv.dlog(C_DEBUG,'v_return_stat',v_return_stat);
3704: END IF;
3705: --
3706: IF v_return_stat = 0 THEN
3707: --
3705: --
3706: IF v_return_stat = 0 THEN
3707: --
3708: IF (l_debug <> -1) THEN
3709: rlm_core_sv.dlog(C_DEBUG,'Could not find any CUM to reset');
3710: END IF;
3711: --
3712: raise e_NoCum;
3713: --
3715:
3716: v_num := v_old_cum_counter.count;
3717: --
3718: IF (l_debug <> -1) THEN
3719: rlm_core_sv.dlog(C_DEBUG,'v_num',v_num);
3720: END IF;
3721: --
3722: IF (l_debug <> -1) THEN
3723: rlm_core_sv.dlog(C_DEBUG,'v_cum_records.count',v_cum_records.count);
3719: rlm_core_sv.dlog(C_DEBUG,'v_num',v_num);
3720: END IF;
3721: --
3722: IF (l_debug <> -1) THEN
3723: rlm_core_sv.dlog(C_DEBUG,'v_cum_records.count',v_cum_records.count);
3724: rlm_core_sv.dlog(C_DEBUG,'v_old_cum_records.count',
3725: v_old_cum_records.count);
3726: END IF;
3727: --
3720: END IF;
3721: --
3722: IF (l_debug <> -1) THEN
3723: rlm_core_sv.dlog(C_DEBUG,'v_cum_records.count',v_cum_records.count);
3724: rlm_core_sv.dlog(C_DEBUG,'v_old_cum_records.count',
3725: v_old_cum_records.count);
3726: END IF;
3727: --
3728: g_oe_tmp_line_tbl := oe_order_pub.g_miss_line_tbl;
3735: --
3736: v_reset_counter := counter;
3737: --
3738: IF (l_debug <> -1) THEN
3739: rlm_core_sv.dlog(C_DEBUG,'v_reset_counter',v_reset_counter);
3740: END IF;
3741: --
3742: /* these indexes are used to get the relationships between
3743: v_cum_records, v_old_cum_records, and v_old_cum_counter
3745: --
3746: v_start_num := v_end_num + 1;
3747: --
3748: IF (l_debug <> -1) THEN
3749: rlm_core_sv.dlog(C_DEBUG,'v_start_num',v_start_num);
3750: END IF;
3751: --
3752: v_end_num := v_start_num + v_old_cum_counter(v_index) -1 ;
3753: --
3751: --
3752: v_end_num := v_start_num + v_old_cum_counter(v_index) -1 ;
3753: --
3754: IF (l_debug <> -1) THEN
3755: rlm_core_sv.dlog(C_DEBUG,'v_end_num',v_end_num);
3756: END IF;
3757: --
3758: v_index2 := v_end_num;
3759: --
3757: --
3758: v_index2 := v_end_num;
3759: --
3760: IF (l_debug <> -1) THEN
3761: rlm_core_sv.dlog(C_DEBUG,'v_index2',v_index2);
3762: END IF;
3763: --
3764: /* following are set for CalculateSuplierCum*/
3765: v_cum_records(v_index).cum_qty := 0;
3800:
3801: v_cum_key_record.inventory_item_id := v_old_cum_records(v_index2).inventory_item_id;
3802: --
3803: IF (l_debug <> -1) THEN
3804: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',v_old_cum_records(v_index2).customer_item_id);
3805: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id',v_cum_key_record.inventory_item_id);
3806: END IF;
3807:
3808: v_visited := TRUE;
3801: v_cum_key_record.inventory_item_id := v_old_cum_records(v_index2).inventory_item_id;
3802: --
3803: IF (l_debug <> -1) THEN
3804: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',v_old_cum_records(v_index2).customer_item_id);
3805: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id',v_cum_key_record.inventory_item_id);
3806: END IF;
3807:
3808: v_visited := TRUE;
3809: --
3897: x_counter => counter,
3898: x_adjustment_date => v_adjustment_date);
3899: --
3900: IF (l_debug <> -1) THEN
3901: rlm_core_sv.dlog(C_DEBUG,'v_return_status',v_return_status);
3902: END IF;
3903: --
3904: IF(v_return_status = FALSE)
3905: OR (v_cum_records(v_index).record_return_status = FALSE)
3957: --
3958: END IF;
3959: --
3960: IF (l_debug <> -1) THEN
3961: rlm_core_sv.dlog(C_DEBUG,'v_adjustment_date',
3962: v_adjustment_date);
3963: END IF;
3964: --
3965: IF adj_qty IS NULL THEN
3969: --
3970: END IF;
3971: --
3972: IF (l_debug <> -1) THEN
3973: rlm_core_sv.dlog(C_DEBUG, 'adj_qty',adj_qty);
3974: rlm_core_sv.dlog(C_DEBUG,'v_index',v_index);
3975: END IF;
3976:
3977: v_cum_records(v_index).cum_qty :=
3970: END IF;
3971: --
3972: IF (l_debug <> -1) THEN
3973: rlm_core_sv.dlog(C_DEBUG, 'adj_qty',adj_qty);
3974: rlm_core_sv.dlog(C_DEBUG,'v_index',v_index);
3975: END IF;
3976:
3977: v_cum_records(v_index).cum_qty :=
3978: v_cum_records(v_index).cum_qty + adj_qty;
3990: WHERE cum_key_id = v_cum_records(v_index).cum_key_id
3991: AND NVL(inactive_flag,'N') = 'N';
3992: --
3993: IF (l_debug <> -1) THEN
3994: rlm_core_sv.dlog(C_DEBUG,'v_cum_records(v_index).cum_key_id',
3995: v_cum_records(v_index).cum_key_id);
3996: rlm_core_sv.dlog(C_DEBUG,'v_cum_records(v_index).cum_qty',
3997: v_cum_records(v_index).cum_qty);
3998: END IF;
3992: --
3993: IF (l_debug <> -1) THEN
3994: rlm_core_sv.dlog(C_DEBUG,'v_cum_records(v_index).cum_key_id',
3995: v_cum_records(v_index).cum_key_id);
3996: rlm_core_sv.dlog(C_DEBUG,'v_cum_records(v_index).cum_qty',
3997: v_cum_records(v_index).cum_qty);
3998: END IF;
3999: --
4000: END IF;
4003: -- group the g_oe_tmp_line_tbl by header_id
4004: IF g_oe_tmp_line_tbl.COUNT = 0 THEN
4005: --
4006: IF (l_debug <> -1) THEN
4007: rlm_core_sv.dlog(C_DEBUG,'There are no order lines to process');
4008: END IF;
4009: --
4010: RAISE e_NoShipment;
4011: --
4017: --
4018: v_index3 := g_oe_tmp_line_tbl.FIRST;
4019: --
4020: IF (l_debug <> -1) THEN
4021: rlm_core_sv.dlog(C_DEBUG, 'v_index3',v_index3);
4022: END IF;
4023: --
4024: v_index2 := 1;
4025: --
4025: --
4026: v_header_id := g_oe_tmp_line_tbl(v_index3).header_id;
4027: --
4028: IF (l_debug <> -1) THEN
4029: rlm_core_sv.dlog(C_DEBUG, 'v_header_id',v_header_id);
4030: END IF;
4031: --
4032: g_oe_line_tbl := oe_order_pub.g_miss_line_tbl;
4033: --
4043: --
4044: --oe_Debug_pub.setdebuglevel(5);
4045: --
4046: IF (l_debug <> -1) THEN
4047: rlm_core_sv.dlog(C_DEBUG, 'l_file_val',l_file_val);
4048: END IF;
4049: --
4050: LOOP --{
4051: /* Call OE_Order_GRP.Process_Order procedure to update OE_ORDER_LINES
4095: x_Lot_Serial_val_tbl => g_oe_lot_serial_val_out_tbl,
4096: x_Action_Request_tbl => g_oe_Action_Request_out_Tbl) ;
4097: --
4098: IF (l_debug <> -1) THEN
4099: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4100: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4101: g_oe_line_tbl.LAST);
4102: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4103: l_oe_line_tbl_out.LAST);
4096: x_Action_Request_tbl => g_oe_Action_Request_out_Tbl) ;
4097: --
4098: IF (l_debug <> -1) THEN
4099: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4100: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4101: g_oe_line_tbl.LAST);
4102: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4103: l_oe_line_tbl_out.LAST);
4104: END IF;
4098: IF (l_debug <> -1) THEN
4099: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4100: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4101: g_oe_line_tbl.LAST);
4102: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4103: l_oe_line_tbl_out.LAST);
4104: END IF;
4105: --
4106: -- Handle the exceptions caused by the OE call
4119: counter2 := counter2 + 1;
4120: x_return_status := TRUE;
4121: --
4122: IF (l_debug <> -1) THEN
4123: rlm_core_sv.dlog(C_DEBUG,
4124: 'Order line is updated successfully');
4125: END IF;
4126: --
4127: rlm_message_sv.get_msg_text(
4186: --
4187: -- Handle the exceptions caused by the OE call
4188: --
4189: IF (l_debug <> -1) THEN
4190: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4191: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4192: g_oe_line_tbl.LAST);
4193: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4194: l_oe_line_tbl_out.LAST);
4187: -- Handle the exceptions caused by the OE call
4188: --
4189: IF (l_debug <> -1) THEN
4190: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4191: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4192: g_oe_line_tbl.LAST);
4193: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4194: l_oe_line_tbl_out.LAST);
4195: END IF;
4189: IF (l_debug <> -1) THEN
4190: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
4191: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count',
4192: g_oe_line_tbl.LAST);
4193: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
4194: l_oe_line_tbl_out.LAST);
4195: END IF;
4196: --
4197: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN --{
4207: counter2 := counter2 + 1;
4208: x_return_status := TRUE;
4209: --
4210: IF (l_debug <> -1) THEN
4211: rlm_core_sv.dlog(C_DEBUG,
4212: 'Order line is updated successfully');
4213: END IF;
4214: --
4215: rlm_message_sv.get_msg_text(
4245: p_count => v_msg_count,
4246: p_data => v_msg_data);
4247: --
4248: IF (l_debug <> -1) THEN
4249: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
4250: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4251: l_return_status);
4252: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4253: x_return_status);
4246: p_data => v_msg_data);
4247: --
4248: IF (l_debug <> -1) THEN
4249: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
4250: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4251: l_return_status);
4252: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4253: x_return_status);
4254: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4248: IF (l_debug <> -1) THEN
4249: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
4250: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4251: l_return_status);
4252: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4253: x_return_status);
4254: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4255: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4256: END IF;
4250: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4251: l_return_status);
4252: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4253: x_return_status);
4254: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4255: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4256: END IF;
4257: --
4258: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4251: l_return_status);
4252: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4253: x_return_status);
4254: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4255: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4256: END IF;
4257: --
4258: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4259: ||v_msg_data);
4268: --
4269: fnd_file.put_line(fnd_file.log, v_msg_data);
4270: --
4271: IF (l_debug <> -1) THEN
4272: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_data',
4273: v_msg_data);
4274: END IF;
4275: --
4276: END LOOP; --}
4277: --
4278: END IF; --}
4279: --
4280: IF (l_debug <> -1) THEN
4281: rlm_core_sv.dpop(C_SDEBUG,
4282: 'Process Order Error. Rollback');
4283: END IF;
4284: --
4285: --
4309: p_count => v_msg_count,
4310: p_data => v_msg_data);
4311: --
4312: IF (l_debug <> -1) THEN
4313: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
4314: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4315: l_return_status);
4316: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4317: x_return_status);
4310: p_data => v_msg_data);
4311: --
4312: IF (l_debug <> -1) THEN
4313: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
4314: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4315: l_return_status);
4316: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4317: x_return_status);
4318: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4312: IF (l_debug <> -1) THEN
4313: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
4314: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4315: l_return_status);
4316: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4317: x_return_status);
4318: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4319: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4320: END IF;
4314: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4315: l_return_status);
4316: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4317: x_return_status);
4318: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4319: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4320: END IF;
4321: --
4322: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4315: l_return_status);
4316: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4317: x_return_status);
4318: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4319: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4320: END IF;
4321: --
4322: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4323: ||v_msg_data);
4331: --
4332: fnd_file.put_line(fnd_file.log, v_msg_data);
4333: --
4334: IF (l_debug <> -1) THEN
4335: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_data',
4336: v_msg_data);
4337: END IF;
4338: --
4339: END LOOP; --}
4340: --
4341: END IF; --}
4342: --
4343: IF (l_debug <> -1) THEN
4344: rlm_core_sv.dpop(C_SDEBUG,
4345: 'Process Order Error. Rollback');
4346: END IF;
4347: --
4348: --
4374: p_count => v_msg_count,
4375: p_data => v_msg_data);
4376: --
4377: IF (l_debug <> -1) THEN
4378: rlm_core_sv.dlog(C_SDEBUG, 'WHEN OTHERS');
4379: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4380: l_return_status);
4381: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4382: x_return_status);
4375: p_data => v_msg_data);
4376: --
4377: IF (l_debug <> -1) THEN
4378: rlm_core_sv.dlog(C_SDEBUG, 'WHEN OTHERS');
4379: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4380: l_return_status);
4381: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4382: x_return_status);
4383: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4377: IF (l_debug <> -1) THEN
4378: rlm_core_sv.dlog(C_SDEBUG, 'WHEN OTHERS');
4379: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4380: l_return_status);
4381: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4382: x_return_status);
4383: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4384: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4385: END IF;
4379: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status',
4380: l_return_status);
4381: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4382: x_return_status);
4383: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4384: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4385: END IF;
4386: --
4387: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4380: l_return_status);
4381: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status',
4382: x_return_status);
4383: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
4384: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
4385: END IF;
4386: --
4387: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4388: ||v_msg_data);
4397: --
4398: fnd_file.put_line(fnd_file.log, v_msg_data);
4399: --
4400: IF (l_debug <> -1) THEN
4401: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_data',
4402: v_msg_data);
4403: END IF;
4404: --
4405: END LOOP; --}
4406: --
4407: END IF; --}
4408: --
4409: IF (l_debug <> -1) THEN
4410: rlm_core_sv.dpop(C_SDEBUG,
4411: 'Process Order Error. Rollback');
4412: END IF;
4413: --
4414: fnd_file.put_line(fnd_file.log, 'Process Order Error: '
4438: --
4439: v_msg_data := 'Adjust CUM Transactions is not processed against NO_CUM and CUM_BY_PO_ONLY CUM management types';
4440: --
4441: IF (l_debug <> -1) THEN
4442: rlm_core_sv.dlog(C_DEBUG, v_msg_data);
4443: END IF;
4444: --
4445: fnd_file.put_line(fnd_file.log, v_msg_data);
4446: --
4450: --
4451: v_msg_data := 'Release Management setup terms are not found';
4452: --
4453: IF (l_debug <> -1) THEN
4454: rlm_core_sv.dlog(C_DEBUG, v_msg_data);
4455: END IF;
4456: --
4457: fnd_file.put_line(fnd_file.log, v_msg_data);
4458: --
4460: --
4461: v_msg_data := 'Number of lines eligible for adjustment: ';
4462: --
4463: IF (l_debug <> -1) THEN
4464: rlm_core_sv.dlog(C_DEBUG, v_msg_data, counter -1);
4465: END IF;
4466: --
4467: --fnd_file.put_line(fnd_file.log, v_msg_data ||counter2);
4468: --
4470: --
4471: v_msg_data := 'Completed with errors';
4472: --
4473: IF (l_debug <> -1) THEN
4474: rlm_core_sv.dpop(C_DEBUG, v_msg_data);
4475: END IF;
4476: --
4477: fnd_file.put_line(fnd_file.log, v_msg_data);
4478: -- }
4478: -- }
4479: ELSE
4480: -- {
4481: IF (l_debug <> -1) THEN
4482: rlm_core_sv.dlog(C_DEBUG, 'v_old_cum_records.COUNT',
4483: v_old_cum_records.COUNT);
4484: END IF;
4485: --
4486: IF v_old_cum_records.COUNT > 0 THEN
4516: --
4517: END IF;
4518: --
4519: IF (l_debug <> -1) THEN
4520: rlm_core_sv.dpop(C_DEBUG, v_msg_data);
4521: END IF;
4522: --
4523: fnd_file.put_line(fnd_file.log, v_msg_data);
4524: --
4530: --
4531: IF v_level = 'SHIP_TO_ADDRESS_ID' THEN
4532: --
4533: IF (l_debug <> -1) THEN
4534: rlm_core_sv.dlog(C_SDEBUG,
4535: 'No ship_to_address_id is associated with the ship_to_org_id');
4536: END IF;
4537: --
4538: ELSIF v_level = 'INTRMD_SHIP_TO_ADDRESS_ID' THEN
4537: --
4538: ELSIF v_level = 'INTRMD_SHIP_TO_ADDRESS_ID' THEN
4539: --
4540: IF (l_debug <> -1) THEN
4541: rlm_core_sv.dlog(C_SDEBUG,
4542: 'No intrmd_ship_to_address_id is associated with the'
4543: ||' intmed_ship_to_org_id');
4544: END IF;
4545: --
4545: --
4546: ELSIF v_level = 'CUSTOMER_ID' THEN
4547: --
4548: IF (l_debug <> -1) THEN
4549: rlm_core_sv.dlog(C_SDEBUG,
4550: 'No customer_id is associated with the address_id');
4551: END IF;
4552: --
4553: ELSIF v_level = 'BILL_TO_ADDRESS_ID' THEN
4552: --
4553: ELSIF v_level = 'BILL_TO_ADDRESS_ID' THEN
4554: --
4555: IF (l_debug <> -1) THEN
4556: rlm_core_sv.dlog(C_SDEBUG,
4557: 'No bill_to_address_id is associated with the bill_to_org_id');
4558: END IF;
4559: --
4560: ELSIF v_level = 'SHIP_TO_ADDRESS_ID2' THEN
4559: --
4560: ELSIF v_level = 'SHIP_TO_ADDRESS_ID2' THEN
4561: --
4562: IF (l_debug <> -1) THEN
4563: rlm_core_sv.dlog(C_SDEBUG,
4564: 'Second time: No ship_to_address_id is associated with the'
4565: ||' ship_to_org_id');
4566: END IF;
4567: --
4567: --
4568: ELSIF v_level = 'INTRMD_SHIP_TO_ADDRESS_ID2' THEN
4569: --
4570: IF (l_debug <> -1) THEN
4571: rlm_core_sv.dlog(C_SDEBUG,
4572: 'Second time: No intrmd_ship_to_address_id is associated '
4573: ||'with the intmed_ship_to_org_id');
4574: END IF;
4575: --
4575: --
4576: ELSIF v_level = 'BILL_TO_ADDRESS_ID2' THEN
4577: --
4578: IF (l_debug <> -1) THEN
4579: rlm_core_sv.dlog(C_SDEBUG,
4580: 'Second time: No bill_to_address_id is associated with the'
4581: || ' bill_to_org_id');
4582: END IF;
4583: --
4585: --
4586: ROLLBACK;
4587: --
4588: IF (l_debug <> -1) THEN
4589: rlm_core_sv.dpop(C_SDEBUG, 'No data found');
4590: END IF;
4591: --
4592: WHEN e_NoCum THEN
4593: --
4598: --
4599: fnd_file.put_line(fnd_file.log,v_msg_data);
4600: --
4601: IF (l_debug <> -1) THEN
4602: rlm_core_sv.dpop(C_SDEBUG,'ResetCum:e_NoCum');
4603: END IF;
4604: --
4605: WHEN e_NoShipment THEN
4606: --
4611: --
4612: BEGIN
4613: --
4614: IF (l_debug <> -1) THEN
4615: rlm_core_sv.dlog(C_DEBUG, 'v_old_cum_records.COUNT',
4616: v_old_cum_records.COUNT);
4617: END IF;
4618: --
4619: IF v_old_cum_records.COUNT > 0 THEN
4658: EXCEPTION
4659: WHEN OTHERS THEN
4660: --
4661: IF (l_debug <> -1) THEN
4662: rlm_core_sv.dlog(C_DEBUG, 'when others::',substr(SQLERRM,1,200));
4663: END IF;
4664: --
4665: fnd_file.put_line(fnd_file.log, substr(SQLERRM,1,200));
4666: --
4667: x_return_status := FALSE;
4668: END;
4669: --
4670: IF (l_debug <> -1) THEN
4671: rlm_core_sv.dpop(C_SDEBUG,'ResetCum:e_NoShipment');
4672: END IF;
4673: --
4674: WHEN OTHERS THEN
4675: --
4673: --
4674: WHEN OTHERS THEN
4675: --
4676: IF (l_debug <> -1) THEN
4677: rlm_core_sv.dpop(C_SDEBUG, substr(SQLERRM,1,200));
4678: END IF;
4679: --
4680: fnd_file.put_line(fnd_file.log, substr(SQLERRM,1,200));
4681: --
4792:
4793: BEGIN --{
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dpush(C_SDEBUG, 'GetCums');
4797: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
4798: x_cum_key_record.ship_from_org_id);
4799: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
4800: x_cum_key_record.customer_item_id);
4793: BEGIN --{
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dpush(C_SDEBUG, 'GetCums');
4797: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
4798: x_cum_key_record.ship_from_org_id);
4799: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
4800: x_cum_key_record.customer_item_id);
4801: rlm_core_sv.dlog(C_DEBUG,'Ship_to_address_id',
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dpush(C_SDEBUG, 'GetCums');
4797: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
4798: x_cum_key_record.ship_from_org_id);
4799: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
4800: x_cum_key_record.customer_item_id);
4801: rlm_core_sv.dlog(C_DEBUG,'Ship_to_address_id',
4802: x_cum_key_record.ship_to_address_id);
4803: rlm_core_sv.dlog(C_DEBUG,'intrmd_ship_to_address_id',
4797: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
4798: x_cum_key_record.ship_from_org_id);
4799: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
4800: x_cum_key_record.customer_item_id);
4801: rlm_core_sv.dlog(C_DEBUG,'Ship_to_address_id',
4802: x_cum_key_record.ship_to_address_id);
4803: rlm_core_sv.dlog(C_DEBUG,'intrmd_ship_to_address_id',
4804: x_cum_key_record.intrmd_ship_to_address_id);
4805: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id',
4799: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
4800: x_cum_key_record.customer_item_id);
4801: rlm_core_sv.dlog(C_DEBUG,'Ship_to_address_id',
4802: x_cum_key_record.ship_to_address_id);
4803: rlm_core_sv.dlog(C_DEBUG,'intrmd_ship_to_address_id',
4804: x_cum_key_record.intrmd_ship_to_address_id);
4805: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id',
4806: x_cum_key_record.bill_to_address_id);
4807: rlm_core_sv.dlog(C_DEBUG,'x_terms_level'
4801: rlm_core_sv.dlog(C_DEBUG,'Ship_to_address_id',
4802: x_cum_key_record.ship_to_address_id);
4803: rlm_core_sv.dlog(C_DEBUG,'intrmd_ship_to_address_id',
4804: x_cum_key_record.intrmd_ship_to_address_id);
4805: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id',
4806: x_cum_key_record.bill_to_address_id);
4807: rlm_core_sv.dlog(C_DEBUG,'x_terms_level'
4808: ,x_terms_level);
4809: END IF;
4803: rlm_core_sv.dlog(C_DEBUG,'intrmd_ship_to_address_id',
4804: x_cum_key_record.intrmd_ship_to_address_id);
4805: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id',
4806: x_cum_key_record.bill_to_address_id);
4807: rlm_core_sv.dlog(C_DEBUG,'x_terms_level'
4808: ,x_terms_level);
4809: END IF;
4810: --
4811: --return status of zero indicates that procedure did not find any
4845: --
4846: END IF; --}
4847: --
4848: IF (l_debug <> -1) THEN
4849: rlm_core_sv.dlog(C_DEBUG, 'address_id', v_address_id);
4850: END IF;
4851: --
4852: -- Get the CUM Control Code from the setup terms table
4853: --
4853: --
4854: v_cum_control_code := x_rlm_setup_terms_record.cum_control_code;
4855: --
4856: IF (l_debug <> -1) THEN
4857: rlm_core_sv.dlog(C_DEBUG, 'v_cum_control_code',v_cum_control_code);
4858: END IF;
4859: --
4860: IF x_rlm_setup_terms_record.cum_control_code IS NULL THEN --{
4861: --
4878: different at the customer item level. However, we check later on that
4879: all items should have a new cum key and also shipment/adjustments during
4880: the transactions
4881: --
4882: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
4883: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
4884: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
4885: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
4886: --
4879: all items should have a new cum key and also shipment/adjustments during
4880: the transactions
4881: --
4882: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
4883: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
4884: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
4885: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
4886: --
4887: msg_name := 'RLM_CUM_NO_CALC_FLAG';
4880: the transactions
4881: --
4882: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
4883: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
4884: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
4885: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
4886: --
4887: msg_name := 'RLM_CUM_NO_CALC_FLAG';
4888: --
4881: --
4882: v_ship_from_org_name := RLM_CORE_SV.get_ship_from(x_cum_key_record.ship_from_org_id);
4883: v_customer_name := RLM_CORE_SV.get_customer_name(x_cum_key_record.customer_id);
4884: v_ship_to_location := RLM_CORE_SV.get_ship_to(v_address_id);
4885: v_customer_item_number := RLM_CORE_SV.get_item_number(x_cum_key_record.customer_item_id);
4886: --
4887: msg_name := 'RLM_CUM_NO_CALC_FLAG';
4888: --
4889: rlm_message_sv.get_msg_text(
4915: --
4916: --Turn ON switches based on cum control code
4917: --
4918: IF (l_debug <> -1) THEN
4919: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code',
4920: x_rlm_setup_terms_record.cum_control_code);
4921: END IF;
4922: --
4923: IF v_cum_org_level_code = 'BILL_TO_SHIP_FROM' THEN
5144: --
5145: v_statment := v_select || v_where_clause;
5146: --
5147: IF (l_debug <> -1) THEN
5148: rlm_core_sv.dlog(C_DEBUG,v_statment);
5149: END IF;
5150: --
5151: OPEN c_cum_keys FOR v_statment;
5152: LOOP --{
5183: ||'corresponding CumKey for cum_key_id: ' ||
5184: x_cum_records(v_cum_rec_ctr-1).cum_key_id);
5185: --
5186: IF (l_debug <> -1) THEN
5187: rlm_core_sv.dlog(C_DEBUG,'Could not find correspounding'
5188: || ' CumKey for cum_key_id: ',
5189: x_cum_records(v_cum_rec_ctr-1).cum_key_id);
5190: END IF;
5191: --
5191: --
5192: ELSE
5193: --
5194: IF (l_debug <> -1) THEN
5195: rlm_core_sv.dlog(C_DEBUG,'Could not find correspounding'
5196: || ' CumKey for cum_key_id: ',v_tmp_cum_record.cum_key_id);
5197: END IF;
5198: --
5199: END IF;
5205: x_cum_records(v_cum_rec_ctr).cum_key_id :=
5206: v_tmp_cum_record.cum_key_id;
5207: --
5208: IF (l_debug <> -1) THEN
5209: rlm_core_sv.dlog(C_SDEBUG,'x_cum_records(v_cum_rec_ctr).cum_key_id',
5210: x_cum_records(v_cum_rec_ctr).cum_key_id);
5211: END IF;
5212: --
5213: x_counter(v_cum_rec_ctr) := 0;
5265: --
5266: END IF; --}
5267: --
5268: IF (l_debug <> -1) THEN
5269: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_count', v_shipment_count);
5270: rlm_core_sv.dlog(C_DEBUG, 'Adjustments', v_exist);
5271: END IF;
5272: IF nvl(v_exist,0) > 0 THEN
5273: --
5266: END IF; --}
5267: --
5268: IF (l_debug <> -1) THEN
5269: rlm_core_sv.dlog(C_DEBUG, 'v_shipment_count', v_shipment_count);
5270: rlm_core_sv.dlog(C_DEBUG, 'Adjustments', v_exist);
5271: END IF;
5272: IF nvl(v_exist,0) > 0 THEN
5273: --
5274: v_old_cum_ctr := v_old_cum_ctr + 1;
5279: --
5280: --x_counter(v_cum_rec_ctr) := v_old_cum_ctr;
5281: --
5282: IF (l_debug <> -1) THEN
5283: rlm_core_sv.dlog(C_SDEBUG,'v_cum_rec_ctr',v_cum_rec_ctr);
5284: rlm_core_sv.dlog(C_SDEBUG,'x_counter',x_counter(v_cum_rec_ctr));
5285: rlm_core_sv.dlog(C_SDEBUG,'v_old_cum_ctr',v_old_cum_ctr);
5286: END IF;
5287: --
5280: --x_counter(v_cum_rec_ctr) := v_old_cum_ctr;
5281: --
5282: IF (l_debug <> -1) THEN
5283: rlm_core_sv.dlog(C_SDEBUG,'v_cum_rec_ctr',v_cum_rec_ctr);
5284: rlm_core_sv.dlog(C_SDEBUG,'x_counter',x_counter(v_cum_rec_ctr));
5285: rlm_core_sv.dlog(C_SDEBUG,'v_old_cum_ctr',v_old_cum_ctr);
5286: END IF;
5287: --
5288: x_old_cum_records(v_old_cum_ctr).cum_key_id :=
5281: --
5282: IF (l_debug <> -1) THEN
5283: rlm_core_sv.dlog(C_SDEBUG,'v_cum_rec_ctr',v_cum_rec_ctr);
5284: rlm_core_sv.dlog(C_SDEBUG,'x_counter',x_counter(v_cum_rec_ctr));
5285: rlm_core_sv.dlog(C_SDEBUG,'v_old_cum_ctr',v_old_cum_ctr);
5286: END IF;
5287: --
5288: x_old_cum_records(v_old_cum_ctr).cum_key_id :=
5289: v_tmp_cum_record.cum_key_id;
5288: x_old_cum_records(v_old_cum_ctr).cum_key_id :=
5289: v_tmp_cum_record.cum_key_id;
5290: --
5291: IF (l_debug <> -1) THEN
5292: rlm_core_sv.dlog(C_SDEBUG,
5293: 'x_old_cum_records(v_old_cum_ctr).cum_key_id',
5294: x_old_cum_records(v_old_cum_ctr).cum_key_id);
5295: END IF;
5296: --
5324:
5325: IF Not (x_counter.EXISTS(v_cum_rec_ctr)) THEN
5326: --
5327: IF (l_debug <> -1) THEN
5328: rlm_core_sv.dlog(C_SDEBUG,'could not find old cums for cum key id: ',
5329: x_cum_records(v_cum_rec_ctr).cum_key_id);
5330: END IF;
5331: --
5332: x_cum_records.DELETE(v_cum_rec_ctr);
5339: --
5340: IF x_cum_records.EXISTS(v_cum_rec_ctr) THEN
5341: --
5342: IF (l_debug <> -1) THEN
5343: rlm_core_sv.dlog(C_SDEBUG,'could not find old cums for cum key id:',
5344: x_cum_records(v_cum_rec_ctr).cum_key_id);
5345: END IF;
5346: --
5347: x_cum_records.DELETE(v_cum_rec_ctr);
5354: --
5355: END IF;
5356: --
5357: IF (l_debug <> -1) THEN
5358: rlm_core_sv.dlog(C_DEBUG,'v_cum_rec_ctr',v_cum_rec_ctr);
5359: END IF;
5360: --
5361: END IF;
5362: --
5364: IF (v_cum_rec_ctr = 0 ) THEN
5365: x_return_status := 0;
5366: --
5367: IF (l_debug <> -1) THEN
5368: rlm_core_sv.dpop(C_DEBUG,
5369: 'GetCums:Cum key record could not be retrieved');
5370: END IF;
5371: --
5372: ELSE
5372: ELSE
5373: x_return_status := 1;
5374: --
5375: IF (l_debug <> -1) THEN
5376: rlm_core_sv.dpop(C_DEBUG,
5377: 'GetCums:Cum key record is retrieved successfully');
5378: END IF;
5379: --
5380: END IF;
5385: --
5386: x_return_status := 0;
5387: --
5388: IF (l_debug <> -1) THEN
5389: rlm_core_sv.dlog(C_DEBUG,'msg_data',msg_data);
5390: rlm_core_sv.dpop(C_DEBUG,'GetCums E_UNEXPECTED');
5391: END IF;
5392: --
5393: WHEN NO_DATA_FOUND THEN
5386: x_return_status := 0;
5387: --
5388: IF (l_debug <> -1) THEN
5389: rlm_core_sv.dlog(C_DEBUG,'msg_data',msg_data);
5390: rlm_core_sv.dpop(C_DEBUG,'GetCums E_UNEXPECTED');
5391: END IF;
5392: --
5393: WHEN NO_DATA_FOUND THEN
5394: --
5394: --
5395: x_return_status := 0;
5396: --
5397: IF (l_debug <> -1) THEN
5398: rlm_core_sv.dlog(C_DEBUG,'msg_data',msg_data);
5399: rlm_core_sv.dpop(C_DEBUG,'GetCums NO_DATA_FOUND');
5400: END IF;
5401: --
5402: WHEN OTHERS THEN
5395: x_return_status := 0;
5396: --
5397: IF (l_debug <> -1) THEN
5398: rlm_core_sv.dlog(C_DEBUG,'msg_data',msg_data);
5399: rlm_core_sv.dpop(C_DEBUG,'GetCums NO_DATA_FOUND');
5400: END IF;
5401: --
5402: WHEN OTHERS THEN
5403: --
5403: --
5404: -- RLM_CUM_SQLERR
5405: --
5406: IF (l_debug <> -1) THEN
5407: rlm_core_sv.dpop(C_DEBUG,'GetCums' || substr(SQLERRM,1,100));
5408: END IF;
5409: --
5410: RAISE;
5411: END GetCums; --}
5454:
5455: BEGIN
5456:
5457: IF (l_debug <> -1) THEN
5458: rlm_core_sv.dpush(C_SDEBUG,'SetSupplierCum');
5459: END IF;
5460: --
5461: v_new_ship_count(x_cum_records(x_index).cum_key_id) := 0;
5462: --
5460: --
5461: v_new_ship_count(x_cum_records(x_index).cum_key_id) := 0;
5462: --
5463: IF (l_debug <> -1) THEN
5464: rlm_core_sv.dlog(C_DEBUG,'cum_key_id', x_cum_records(x_index).cum_key_id);
5465: END IF;
5466: --
5467: x_return_status := FALSE;
5468: --
5468: --
5469: IF x_cum_records(x_index).record_return_status = FALSE THEN
5470: --
5471: IF (l_debug <> -1) THEN
5472: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCum returned false.');
5473: END IF;
5474: --
5475: RAISE e_Unexpected;
5476: --
5490: x_cum_records(x_index).cust_uom_code :=
5491: g_cum_oe_lines(v_index).order_quantity_uom;
5492: --
5493: IF (l_debug <> -1) THEN
5494: rlm_core_sv.dlog(C_DEBUG,'shipment_date',
5495: x_cum_records(x_index).actual_shipment_date);
5496: END IF;
5497: --
5498: IF x_cum_records(x_index).actual_shipment_date
5506: x_cum_records(x_index).actual_shipment_date;
5507: END IF;
5508: --
5509: IF (l_debug <> -1) THEN
5510: rlm_core_sv.dlog(C_DEBUG,'shipped_quantity',
5511: x_cum_records(x_index).shipped_quantity);
5512: END IF;
5513: --
5514: RLM_TPA_SV.CalculateSupplierCum(
5519:
5520: IF x_cum_records(x_index).record_return_status = FALSE THEN
5521: --
5522: IF (l_debug <> -1) THEN
5523: rlm_core_sv.dlog(C_DEBUG,'CalculateSupplierCum returned false.');
5524: END IF;
5525: --
5526: RAISE e_Unexpected;
5527: --
5549: --
5550: END IF;
5551: --
5552: IF (l_debug <> -1) THEN
5553: rlm_core_sv.dlog(C_DEBUG,'x_adjustment_date',x_adjustment_date);
5554: END IF;
5555: --
5556: IF (l_debug <> -1) THEN
5557: rlm_core_sv.dlog(C_DEBUG,'actual_shipment_date',
5553: rlm_core_sv.dlog(C_DEBUG,'x_adjustment_date',x_adjustment_date);
5554: END IF;
5555: --
5556: IF (l_debug <> -1) THEN
5557: rlm_core_sv.dlog(C_DEBUG,'actual_shipment_date',
5558: x_cum_records(x_index).actual_shipment_date);
5559: END IF;
5560: --
5561: IF adj_qty IS NULL THEN
5562: --
5563: adj_qty := 0;
5564: --
5565: IF (l_debug <> -1) THEN
5566: rlm_core_sv.dlog(C_DEBUG, 'No adjustment found.');
5567: END IF;
5568: --
5569: END IF;
5570: --
5568: --
5569: END IF;
5570: --
5571: IF (l_debug <> -1) THEN
5572: rlm_core_sv.dlog(C_DEBUG,'adj_qty',adj_qty);
5573: END IF;
5574: --
5575: x_adjustment_date := x_cum_records(x_index).actual_shipment_date;
5576: --
5577: x_cum_records(x_index).cum_qty :=
5578: x_cum_records(x_index).cum_qty + adj_qty;
5579: --
5580: IF (l_debug <> -1) THEN
5581: rlm_core_sv.dlog(C_DEBUG,'cum qty',
5582: x_cum_records(x_index).cum_qty);
5583: END IF;
5584: --
5585: --g_oe_line_tbl := oe_order_pub.g_miss_line_tbl;
5599: g_oe_tmp_line_tbl(x_counter).industry_attribute8 :=
5600: x_cum_records(x_index).cust_uom_code;
5601: --
5602: IF (l_debug <> -1) THEN
5603: rlm_core_sv.dlog(C_DEBUG, 'x_counter', x_counter);
5604: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).header_id',
5605: g_oe_tmp_line_tbl(x_counter).header_id);
5606: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).line_id',
5607: g_oe_tmp_line_tbl(x_counter).line_id);
5600: x_cum_records(x_index).cust_uom_code;
5601: --
5602: IF (l_debug <> -1) THEN
5603: rlm_core_sv.dlog(C_DEBUG, 'x_counter', x_counter);
5604: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).header_id',
5605: g_oe_tmp_line_tbl(x_counter).header_id);
5606: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).line_id',
5607: g_oe_tmp_line_tbl(x_counter).line_id);
5608: rlm_core_sv.dlog(C_DEBUG,
5602: IF (l_debug <> -1) THEN
5603: rlm_core_sv.dlog(C_DEBUG, 'x_counter', x_counter);
5604: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).header_id',
5605: g_oe_tmp_line_tbl(x_counter).header_id);
5606: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).line_id',
5607: g_oe_tmp_line_tbl(x_counter).line_id);
5608: rlm_core_sv.dlog(C_DEBUG,
5609: 'g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id',
5610: g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id);
5604: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).header_id',
5605: g_oe_tmp_line_tbl(x_counter).header_id);
5606: rlm_core_sv.dlog(C_DEBUG, 'g_oe_tmp_line_tbl(x_counter).line_id',
5607: g_oe_tmp_line_tbl(x_counter).line_id);
5608: rlm_core_sv.dlog(C_DEBUG,
5609: 'g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id',
5610: g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id);
5611: rlm_core_sv.dlog(C_DEBUG,'g_oe_tmp_line_tbl(counter).industry_attribute7',
5612: g_oe_tmp_line_tbl(x_counter).industry_attribute7);
5607: g_oe_tmp_line_tbl(x_counter).line_id);
5608: rlm_core_sv.dlog(C_DEBUG,
5609: 'g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id',
5610: g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id);
5611: rlm_core_sv.dlog(C_DEBUG,'g_oe_tmp_line_tbl(counter).industry_attribute7',
5612: g_oe_tmp_line_tbl(x_counter).industry_attribute7);
5613: rlm_core_sv.dlog(C_DEBUG,'g_oe_tmp_line_tbl(counter).industry_attribute8',
5614: g_oe_tmp_line_tbl(x_counter).industry_attribute8);
5615: END IF;
5609: 'g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id',
5610: g_oe_tmp_line_tbl(x_counter).veh_cus_item_cum_key_id);
5611: rlm_core_sv.dlog(C_DEBUG,'g_oe_tmp_line_tbl(counter).industry_attribute7',
5612: g_oe_tmp_line_tbl(x_counter).industry_attribute7);
5613: rlm_core_sv.dlog(C_DEBUG,'g_oe_tmp_line_tbl(counter).industry_attribute8',
5614: g_oe_tmp_line_tbl(x_counter).industry_attribute8);
5615: END IF;
5616: --
5617: x_counter := x_counter + 1;
5626: --
5627: x_return_status := TRUE;
5628: --
5629: IF (l_debug <> -1) THEN
5630: rlm_core_sv.dpop(C_DEBUG,'SetSupplierCum');
5631: END IF;
5632: --
5633: EXCEPTION
5634: --
5634: --
5635: WHEN e_Unexpected THEN
5636: --
5637: IF (l_debug <> -1) THEN
5638: rlm_core_sv.dpop(C_DEBUG,'SetSupplierCum: e_unexpected');
5639: END IF;
5640: --
5641: WHEN OTHERS THEN
5642: --
5640: --
5641: WHEN OTHERS THEN
5642: --
5643: IF (l_debug <> -1) THEN
5644: rlm_core_sv.dpop(C_DEBUG,'SetSupplierCum' || substr(SQLERRM,1,200));
5645: END IF;
5646: --
5647: RAISE;
5648:
5668:
5669: BEGIN
5670: --
5671: IF (l_debug <> -1) THEN
5672: rlm_core_sv.dpush(C_SDEBUG,'QuickSort');
5673: END IF;
5674: --
5675: low := First;
5676: high := Last;
5723: Quicksort(Low, Last,sortType);
5724: END IF;
5725: --
5726: IF (l_debug <> -1) THEN
5727: rlm_core_sv.dpop(C_DEBUG);
5728: END IF;
5729: --
5730: EXCEPTION
5731:
5732: WHEN OTHERS THEN
5733: rlm_message_sv.sql_error('rlm_cum_sv.QuickSort', v_Progress);
5734: --
5735: IF (l_debug <> -1) THEN
5736: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5737: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5738: END IF;
5739: --
5740: raise;
5733: rlm_message_sv.sql_error('rlm_cum_sv.QuickSort', v_Progress);
5734: --
5735: IF (l_debug <> -1) THEN
5736: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5737: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5738: END IF;
5739: --
5740: raise;
5741: --
5756: v_Progress VARCHAR2(3) := '010';
5757:
5758: BEGIN
5759:
5760: -- rlm_core_sv.dpush(C_SDEBUG,'Swap');
5761:
5762: IF sortType = rlm_cum_sv.C_line_table_type THEN
5763: T := g_oe_tmp_line_tbl(i);
5764: g_oe_tmp_line_tbl(i) := g_oe_tmp_line_tbl(j);
5768: g_cum_oe_lines(i) := g_cum_oe_lines(j);
5769: g_cum_oe_lines(j) := T2;
5770: END IF;
5771:
5772: -- rlm_core_sv.dpop(C_SDEBUG);
5773:
5774: EXCEPTION
5775:
5776: WHEN OTHERS THEN
5774: EXCEPTION
5775:
5776: WHEN OTHERS THEN
5777: --rlm_message_sv.sql_error('rlm_cum_sv.Swap', v_Progress);
5778: --rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5779: --rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5780: raise;
5781:
5782: END Swap;
5775:
5776: WHEN OTHERS THEN
5777: --rlm_message_sv.sql_error('rlm_cum_sv.Swap', v_Progress);
5778: --rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5779: --rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5780: raise;
5781:
5782: END Swap;
5783:
5824:
5825: BEGIN
5826: --
5827: IF (l_debug <> -1) THEN
5828: rlm_core_sv.dpush(C_SDEBUG,'GetShippLines');
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5825: BEGIN
5826: --
5827: IF (l_debug <> -1) THEN
5828: rlm_core_sv.dpush(C_SDEBUG,'GetShippLines');
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5826: --
5827: IF (l_debug <> -1) THEN
5828: rlm_core_sv.dpush(C_SDEBUG,'GetShippLines');
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5827: IF (l_debug <> -1) THEN
5828: rlm_core_sv.dpush(C_SDEBUG,'GetShippLines');
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5828: rlm_core_sv.dpush(C_SDEBUG,'GetShippLines');
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5829: rlm_core_sv.dlog(C_DEBUG,'cum_key_id',x_cum_key_id);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5830: rlm_core_sv.dlog(C_DEBUG,'x_ship_from_org_id',x_ship_from_org_id);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5838: rlm_core_sv.dlog(C_DEBUG,'x_index',x_index);
5831: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_org_id',x_ship_to_org_id);
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5838: rlm_core_sv.dlog(C_DEBUG,'x_index',x_index);
5839: END IF;
5832: rlm_core_sv.dlog(C_DEBUG,'x_intmed_ship_to_org_id',x_intmed_ship_to_org_id);
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5838: rlm_core_sv.dlog(C_DEBUG,'x_index',x_index);
5839: END IF;
5840: --
5833: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_org_id',x_bill_to_org_id);
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5838: rlm_core_sv.dlog(C_DEBUG,'x_index',x_index);
5839: END IF;
5840: --
5841: OPEN c_oe_lines ;
5834: rlm_core_sv.dlog(C_DEBUG,'x_customer_item_id',x_customer_item_id);
5835: rlm_core_sv.dlog(C_DEBUG,'x_inventory_item_id',x_inventory_item_id);
5836: rlm_core_sv.dlog(C_DEBUG,'x_transaction_start_date',x_transaction_start_date);
5837: rlm_core_sv.dlog(C_DEBUG,'x_transaction_end_date',x_transaction_end_date);
5838: rlm_core_sv.dlog(C_DEBUG,'x_index',x_index);
5839: END IF;
5840: --
5841: OPEN c_oe_lines ;
5842: --
5852: --
5853: EXIT WHEN c_oe_lines%NOTFOUND;
5854: --
5855: IF (l_debug <> -1) THEN
5856: rlm_core_sv.dlog(C_DEBUG,'shipped_quantity',
5857: g_cum_oe_lines(x_index).shipped_quantity);
5858: END IF;
5859: --
5860: x_index := x_index + 1;
5863: --
5864: CLOSE c_oe_Lines;
5865: --
5866: IF (l_debug <> -1) THEN
5867: rlm_core_sv.dpop(C_DEBUG,'GetShippLines');
5868: END IF;
5869: --
5870: EXCEPTION
5871: --
5877: --
5878: END IF;
5879: --
5880: IF (l_debug <> -1) THEN
5881: rlm_core_sv.dpop(C_DEBUG,'GetShippLines' || substr(SQLERRM,1,200));
5882: END IF;
5883: --
5884: RAISE;
5885:
5929: --
5930: BEGIN
5931: --
5932: IF (l_debug <> -1) THEN
5933: rlm_core_sv.dpush(C_DEBUG, 'UpdateOldKey');
5934: END IF;
5935: --
5936: g_oe_tmp_line_tbl.DELETE;
5937: g_oe_tmp_line_tbl := oe_order_pub.g_miss_line_tbl;
5954:
5955: x_cum_key_record.inventory_item_id := x_old_cum_records(cum_records_counter).inventory_item_id;
5956: --
5957: IF (l_debug <> -1) THEN
5958: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id', x_cum_key_record.inventory_item_id);
5959: END IF;
5960: --
5961: rlm_cum_sv.GetShippLines(
5962: x_cum_key_id => x_old_cum_records(cum_records_counter).cum_key_id,
6002: x_counter => counter,
6003: x_adjustment_date => v_adjustment_date);
6004: --
6005: IF (l_debug <> -1) THEN
6006: rlm_core_sv.dlog(C_DEBUG,'v_return_status',v_return_status);
6007: END IF;
6008: --
6009: IF v_return_status = FALSE THEN
6010: --
6010: --
6011: x_return_status := FALSE;
6012: --
6013: IF (l_debug <> -1) THEN
6014: rlm_core_sv.dlog(C_DEBUG,'SetSupplierCum failed');
6015: END IF;
6016: --
6017: fnd_file.put_line(fnd_file.log,'Failed to update Old CUMs, rolling back');
6018: RAISE e_SetSupplierCum;
6028: AND ((transaction_date_time >= v_adjustment_date)
6029: OR (v_adjustment_date IS NULL));
6030: --
6031: IF (l_debug <> -1) THEN
6032: rlm_core_sv.dlog(C_DEBUG,'v_adjustment_date',
6033: v_adjustment_date);
6034: rlm_core_sv.dlog(C_DEBUG, 'adj_qty',adj_qty);
6035: END IF;
6036: --
6030: --
6031: IF (l_debug <> -1) THEN
6032: rlm_core_sv.dlog(C_DEBUG,'v_adjustment_date',
6033: v_adjustment_date);
6034: rlm_core_sv.dlog(C_DEBUG, 'adj_qty',adj_qty);
6035: END IF;
6036: --
6037: x_old_cum_records(cum_records_counter).cum_qty :=
6038: x_old_cum_records(cum_records_counter).cum_qty +
6051: WHERE cum_key_id=x_old_cum_records(cum_records_counter).cum_key_id
6052: AND NVL(inactive_flag,'N') = 'N';
6053: --
6054: IF (l_debug <> -1) THEN
6055: rlm_core_sv.dlog(C_DEBUG,'x_old_cum_records.cum_key_id',
6056: x_old_cum_records(cum_records_counter).cum_key_id);
6057: rlm_core_sv.dlog(C_DEBUG,'x_old_cum_records.cum_qty',
6058: x_old_cum_records(cum_records_counter).cum_qty);
6059: END IF;
6053: --
6054: IF (l_debug <> -1) THEN
6055: rlm_core_sv.dlog(C_DEBUG,'x_old_cum_records.cum_key_id',
6056: x_old_cum_records(cum_records_counter).cum_key_id);
6057: rlm_core_sv.dlog(C_DEBUG,'x_old_cum_records.cum_qty',
6058: x_old_cum_records(cum_records_counter).cum_qty);
6059: END IF;
6060: --
6061:
6068: -- group the g_oe_tmp_line_tbl by header_id
6069: IF g_oe_tmp_line_tbl.COUNT = 0 THEN
6070: --
6071: IF (l_debug <> -1) THEN
6072: rlm_core_sv.dlog(C_DEBUG,'There are no order lines to process in ' ||
6073: 'update old cum');
6074: END IF;
6075: --
6076: RAISE e_NoShipment;
6083: --
6084: v_tmp_line_idx := g_oe_tmp_line_tbl.FIRST;
6085: --
6086: IF (l_debug <> -1) THEN
6087: rlm_core_sv.dlog(C_DEBUG, 'v_tmp_line_idx',v_tmp_line_idx);
6088: END IF;
6089: --
6090: v_line_idx := 1;
6091: --
6091: --
6092: v_header_id := g_oe_tmp_line_tbl(v_tmp_line_idx).header_id;
6093: --
6094: IF (l_debug <> -1) THEN
6095: rlm_core_sv.dlog(C_DEBUG, 'v_header_id',v_header_id);
6096: END IF;
6097: --
6098: g_oe_line_tbl := oe_order_pub.g_miss_line_tbl;
6099: --
6105: --
6106: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
6107: --
6108: IF (l_debug <> -1) THEN
6109: rlm_core_sv.dlog(C_DEBUG, 'l_file_val',l_file_val);
6110: END IF;
6111: --
6112: LOOP --{
6113: /* Call OE_Order_GRP.Process_Order procedure to update OE_ORDER_LINES
6116: since the table is sorted by header_id then this loop
6117: calls the process_order once the header_id is changed */
6118: --
6119: IF (l_debug <> -1) THEN
6120: rlm_core_sv.dlog(C_DEBUG,'processing header_id',v_header_id);
6121: END IF;
6122: --
6123: IF g_oe_tmp_line_tbl(v_tmp_line_idx).header_id = v_header_id THEN --{
6124: --
6161: x_Lot_Serial_val_tbl => g_oe_lot_serial_val_out_tbl,
6162: x_Action_Request_tbl => g_oe_Action_Request_out_Tbl) ;
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
6166: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count', g_oe_line_tbl.LAST);
6167: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
6168: l_oe_line_tbl_out.LAST);
6169: END IF;
6162: x_Action_Request_tbl => g_oe_Action_Request_out_Tbl) ;
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
6166: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count', g_oe_line_tbl.LAST);
6167: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
6168: l_oe_line_tbl_out.LAST);
6169: END IF;
6170: --
6163: --
6164: IF (l_debug <> -1) THEN
6165: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
6166: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count', g_oe_line_tbl.LAST);
6167: rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
6168: l_oe_line_tbl_out.LAST);
6169: END IF;
6170: --
6171: -- Handle the exceptions caused by the OE call
6183: --
6184: x_return_status := TRUE;
6185: --
6186: IF (l_debug <> -1) THEN
6187: rlm_core_sv.dlog(C_DEBUG,
6188: 'Order line is updated successfully');
6189: END IF;
6190: --
6191: END IF; --}
6241: --
6242: -- Handle the exceptions caused by the OE call
6243: --
6244: IF (l_debug <> -1) THEN
6245: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
6246: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count', g_oe_line_tbl.LAST); rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
6247: l_oe_line_tbl_out.LAST);
6248: END IF;
6249: --
6242: -- Handle the exceptions caused by the OE call
6243: --
6244: IF (l_debug <> -1) THEN
6245: rlm_core_sv.dlog(C_DEBUG,'G_FILE',OE_DEBUG_PUB.G_FILE);
6246: rlm_core_sv.dlog(C_DEBUG, 'Input tbl count', g_oe_line_tbl.LAST); rlm_core_sv.dlog(C_DEBUG, 'Output tbl count',
6247: l_oe_line_tbl_out.LAST);
6248: END IF;
6249: --
6250: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN --{
6259: --
6260: x_return_status := TRUE;
6261: --
6262: IF (l_debug <> -1) THEN
6263: rlm_core_sv.dlog(C_DEBUG,
6264: 'Order line is updated successfully');
6265: END IF;
6266: --
6267: END IF; --}
6277: END LOOP; --}
6278: END ; --}
6279: --
6280: IF (l_debug <> -1) THEN
6281: rlm_core_sv.dpop(C_DEBUG);
6282: END IF;
6283: --
6284: EXCEPTION
6285: WHEN e_noshipment THEN
6284: EXCEPTION
6285: WHEN e_noshipment THEN
6286: --
6287: IF (l_debug <> -1) THEN
6288: rlm_core_sv.dpop(C_DEBUG, 'UpdateOldKey e_noshipment ');
6289: END IF;
6290: --
6291: WHEN e_SetSupplierCum THEN
6292: --
6292: --
6293: x_return_status := FALSE;
6294: --
6295: IF (l_debug <> -1) THEN
6296: rlm_core_sv.dpop(C_DEBUG, 'UpdateOldKey e_SetSupplierCum');
6297: END IF;
6298: --
6299: WHEN FND_API.G_EXC_ERROR THEN
6300: --
6313: fnd_file.put_line(fnd_file.log, v_msg_data);
6314: --
6315: -- DEBUGGING
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
6318: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6319: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6320: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6321: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6314: --
6315: -- DEBUGGING
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
6318: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6319: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6320: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6321: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6322: END IF;
6315: -- DEBUGGING
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
6318: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6319: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6320: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6321: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6322: END IF;
6323: --
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
6318: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6319: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6320: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6321: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6322: END IF;
6323: --
6324: IF v_msg_count > 0 THEN
6317: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_ERROR');
6318: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6319: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6320: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6321: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6322: END IF;
6323: --
6324: IF v_msg_count > 0 THEN
6325: --
6330: --
6331: fnd_file.put_line(fnd_file.log, v_msg_data);
6332: --
6333: IF (l_debug <> -1) THEN
6334: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_data', v_msg_data);
6335: END IF;
6336: --
6337: END LOOP;
6338: --
6342: --
6343: -- User friendly message
6344: --
6345: IF (l_debug <> -1) THEN
6346: rlm_core_sv.dpop(C_DEBUG, 'UpdateOldKey G_EXC_ERROR');
6347: END IF;
6348: --
6349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6350: x_return_status := FALSE;
6362: fnd_file.put_line(fnd_file.log, v_msg_data);
6363: --
6364: -- DEBUGGING
6365: IF (l_debug <> -1) THEN
6366: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
6367: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6368: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6369: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6370: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6363: --
6364: -- DEBUGGING
6365: IF (l_debug <> -1) THEN
6366: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
6367: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6368: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6369: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6370: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6371: END IF;
6364: -- DEBUGGING
6365: IF (l_debug <> -1) THEN
6366: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
6367: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6368: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6369: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6370: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6371: END IF;
6372: --
6365: IF (l_debug <> -1) THEN
6366: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
6367: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6368: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6369: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6370: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6371: END IF;
6372: --
6373: IF v_msg_count > 0 THEN
6366: rlm_core_sv.dlog(C_SDEBUG, 'G_EXC_UNEXPECTED_ERROR');
6367: rlm_core_sv.dlog(C_SDEBUG, 'l_return_status', l_return_status);
6368: rlm_core_sv.dlog(C_SDEBUG, 'x_return_status', x_return_status);
6369: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_count', v_msg_count);
6370: rlm_core_sv.dlog(C_SDEBUG, 'Main v_msg_data', v_msg_data);
6371: END IF;
6372: --
6373: IF v_msg_count > 0 THEN
6374: --
6379: --
6380: fnd_file.put_line(fnd_file.log, v_msg_data);
6381: --
6382: IF (l_debug <> -1) THEN
6383: rlm_core_sv.dlog(C_SDEBUG, 'v_msg_data', v_msg_data);
6384: END IF;
6385: --
6386: END LOOP;
6387: --
6390: --
6391: -- User friendly message
6392: --
6393: IF (l_debug <> -1) THEN
6394: rlm_core_sv.dpop(C_DEBUG, 'UpdateOldKey G_EXC_UNEXPECTED_ERROR');
6395: END IF;
6396:
6397: WHEN OTHERS THEN
6398: x_return_status := FALSE;
6397: WHEN OTHERS THEN
6398: x_return_status := FALSE;
6399: --
6400: IF (l_debug <> -1) THEN
6401: rlm_core_sv.dpop(C_DEBUG, 'UpdateOldKey others: '|| substr(SQLERRM,1,200));
6402: END IF;
6403: --
6404: END UpdateOldKey;--}
6405:
6421:
6422: BEGIN
6423: --
6424: IF (l_debug <> -1) THEN
6425: rlm_core_sv.dpush(C_SDEBUG, 'GetInventoryItemId');
6426: END IF;
6427: --
6428: OPEN CI_XREF_Cur;
6429: FETCH CI_XREF_Cur INTO Temp_Master_Organization_Id,
6432:
6433: IF (CI_XREF_Cur%NOTFOUND) THEN
6434: --
6435: IF (l_debug <> -1) THEN
6436: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6437: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6438: END IF;
6439: --
6440: return null;
6433: IF (CI_XREF_Cur%NOTFOUND) THEN
6434: --
6435: IF (l_debug <> -1) THEN
6436: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6437: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6438: END IF;
6439: --
6440: return null;
6441: --
6449:
6450: IF (CI_XREF_Cur%NOTFOUND) THEN
6451: --
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6454: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6455: END IF;
6456: --
6457: return null;
6450: IF (CI_XREF_Cur%NOTFOUND) THEN
6451: --
6452: IF (l_debug <> -1) THEN
6453: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6454: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6455: END IF;
6456: --
6457: return null;
6458: --
6476:
6477: --CURSOR
6478:
6479: IF (l_debug <> -1) THEN
6480: rlm_core_sv.dlog(C_SDEBUG, 'inventory_item_id', v_inventory_item_id);
6481: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6482: END IF;
6483: --
6484: return v_inventory_item_id;
6477: --CURSOR
6478:
6479: IF (l_debug <> -1) THEN
6480: rlm_core_sv.dlog(C_SDEBUG, 'inventory_item_id', v_inventory_item_id);
6481: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6482: END IF;
6483: --
6484: return v_inventory_item_id;
6485: --
6487:
6488: when others then
6489: --
6490: IF (l_debug <> -1) THEN
6491: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6492: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6493: END IF;
6494: --
6495: return null;
6488: when others then
6489: --
6490: IF (l_debug <> -1) THEN
6491: rlm_core_sv.dlog(C_SDEBUG, 'Inventory Item Id could not be derived');
6492: rlm_core_sv.dpop(C_DEBUG, 'GetInventoryItemId');
6493: END IF;
6494: --
6495: return null;
6496: --
6734: --
6735: BEGIN
6736: --
6737: IF (l_debug <> -1) THEN
6738: rlm_core_sv.dpush(C_SDEBUG, 'GetLatestCum');
6739: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id',
6740: x_cum_key_record.ship_to_address_id);
6741: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
6742: x_cum_key_record.ship_from_org_id);
6735: BEGIN
6736: --
6737: IF (l_debug <> -1) THEN
6738: rlm_core_sv.dpush(C_SDEBUG, 'GetLatestCum');
6739: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id',
6740: x_cum_key_record.ship_to_address_id);
6741: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
6742: x_cum_key_record.ship_from_org_id);
6743: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id',
6737: IF (l_debug <> -1) THEN
6738: rlm_core_sv.dpush(C_SDEBUG, 'GetLatestCum');
6739: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id',
6740: x_cum_key_record.ship_to_address_id);
6741: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
6742: x_cum_key_record.ship_from_org_id);
6743: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id',
6744: x_cum_key_record.bill_to_address_id);
6745: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id',
6739: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id',
6740: x_cum_key_record.ship_to_address_id);
6741: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
6742: x_cum_key_record.ship_from_org_id);
6743: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id',
6744: x_cum_key_record.bill_to_address_id);
6745: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id',
6746: x_cum_key_record.intrmd_ship_to_address_id);
6747: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
6741: rlm_core_sv.dlog(C_DEBUG, 'ship_from_org_id',
6742: x_cum_key_record.ship_from_org_id);
6743: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id',
6744: x_cum_key_record.bill_to_address_id);
6745: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id',
6746: x_cum_key_record.intrmd_ship_to_address_id);
6747: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
6748: x_cum_key_record.customer_item_id);
6749: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number',
6743: rlm_core_sv.dlog(C_DEBUG, 'bill_to_address_id',
6744: x_cum_key_record.bill_to_address_id);
6745: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id',
6746: x_cum_key_record.intrmd_ship_to_address_id);
6747: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
6748: x_cum_key_record.customer_item_id);
6749: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number',
6750: x_cum_key_record.purchase_order_number);
6751: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
6745: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_address_id',
6746: x_cum_key_record.intrmd_ship_to_address_id);
6747: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
6748: x_cum_key_record.customer_item_id);
6749: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number',
6750: x_cum_key_record.purchase_order_number);
6751: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
6752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year',
6753: x_cum_key_record.cust_record_year);
6747: rlm_core_sv.dlog(C_DEBUG, 'customer_item_id',
6748: x_cum_key_record.customer_item_id);
6749: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number',
6750: x_cum_key_record.purchase_order_number);
6751: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
6752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year',
6753: x_cum_key_record.cust_record_year);
6754: END IF;
6755: --
6748: x_cum_key_record.customer_item_id);
6749: rlm_core_sv.dlog(C_DEBUG, 'purchase_order_number',
6750: x_cum_key_record.purchase_order_number);
6751: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_key_record.cum_start_date);
6752: rlm_core_sv.dlog(C_DEBUG, 'cust_record_year',
6753: x_cum_key_record.cust_record_year);
6754: END IF;
6755: --
6756: v_cum_org_level_code := x_rlm_setup_terms_record.cum_org_level_code;
6758: p_customer_item_id := x_cum_key_record.customer_item_id;
6759: p_ship_from_org_id := x_cum_key_record.ship_from_org_id;
6760: --
6761: IF (l_debug <> -1) THEN
6762: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code',
6763: x_rlm_setup_terms_record.cum_control_code);
6764: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
6765: END IF;
6766: --
6760: --
6761: IF (l_debug <> -1) THEN
6762: rlm_core_sv.dlog(C_DEBUG, 'cum_control_code',
6763: x_rlm_setup_terms_record.cum_control_code);
6764: rlm_core_sv.dlog(C_DEBUG, 'cum_org_level_code', v_cum_org_level_code);
6765: END IF;
6766: --
6767: x_cum_record.cum_key_id := NULL;
6768: --
6770: --
6771: IF x_cum_key_record.bill_to_address_id IS NULL THEN--{
6772: --
6773: IF (l_debug <> -1) THEN
6774: rlm_core_sv.dlog(C_DEBUG, 'Error:',
6775: 'RLM_CUM_BILL_TO_REQUIRED');
6776: END IF;
6777: --
6778: RAISE E_UNEXPECTED;
6785: --
6786: IF x_cum_key_record.ship_to_address_id IS NULL THEN--{
6787: --
6788: IF (l_debug <> -1) THEN
6789: rlm_core_sv.dlog(C_DEBUG, 'Error:', 'RLM_CUM_SHIP_TO_REQUIRED');
6790: END IF;
6791: --
6792: RAISE E_UNEXPECTED;
6793: --
6799: --
6800: IF x_cum_key_record.intrmd_ship_to_address_id IS NULL THEN--{
6801: --
6802: IF (l_debug <> -1) THEN
6803: rlm_core_sv.dlog(C_DEBUG, 'Error:',
6804: 'RLM_CUM_INTER_SHIP_TO_REQUIRED');
6805: END IF;
6806: --
6807: RAISE E_UNEXPECTED;
6816: --
6817: ELSE--}{
6818: --
6819: IF (l_debug <> -1) THEN
6820: rlm_core_sv.dlog(C_DEBUG, 'Error:', 'RLM_CUM_UNKNOWN_ORG_LEVEL');
6821: END IF;
6822: --
6823: RAISE E_UNEXPECTED;
6824: --
7016:
7017: END IF;--}
7018: --
7019: IF (l_debug <> -1) THEN
7020: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7017: END IF;--}
7018: --
7019: IF (l_debug <> -1) THEN
7020: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7018: --
7019: IF (l_debug <> -1) THEN
7020: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7019: IF (l_debug <> -1) THEN
7020: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7027: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
7020: rlm_core_sv.dlog(C_DEBUG, 'p_ship_from_org_id', p_ship_from_org_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7027: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
7028: END IF;
7021: rlm_core_sv.dlog(C_DEBUG, 'p_ship_to_address_id', p_ship_to_address_id);
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7027: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
7028: END IF;
7029: --
7022: rlm_core_sv.dlog(C_DEBUG, 'p_intrmd_ship_to_address_id', p_intrmd_ship_to_address_id);
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7027: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
7028: END IF;
7029: --
7030: x_cum_record.cum_start_date := p_cum_start_date;
7023: rlm_core_sv.dlog(C_DEBUG, 'p_bill_to_address_id', p_bill_to_address_id);
7024: rlm_core_sv.dlog(C_DEBUG, 'p_customer_item_id', p_customer_item_id);
7025: rlm_core_sv.dlog(C_DEBUG, 'p_purchase_order_number', p_purchase_order_number);
7026: rlm_core_sv.dlog(C_DEBUG, 'p_cust_record_year', p_cust_record_year);
7027: rlm_core_sv.dlog(C_DEBUG, 'p_cum_start_date', p_cum_start_date);
7028: END IF;
7029: --
7030: x_cum_record.cum_start_date := p_cum_start_date;
7031: --
7039: --
7040: x_cum_record.msg_name := 'RLM_CUM_START_FUTURE';
7041: --
7042: IF (l_debug <> -1) THEN
7043: rlm_core_sv.dlog(C_DEBUG, 'RLM_CUM_START_FUTURE');
7044: END IF;
7045: --
7046: END IF;
7047: --
7070: x_cum_record.cum_qty_after_cutoff := 0;
7071: END IF;
7072:
7073: IF (l_debug <> -1) THEN
7074: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
7075: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
7076: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
7077: rlm_core_sv.dlog(C_DEBUG, 'record_return_status',
7078: x_cum_record.record_return_status);
7071: END IF;
7072:
7073: IF (l_debug <> -1) THEN
7074: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
7075: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
7076: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
7077: rlm_core_sv.dlog(C_DEBUG, 'record_return_status',
7078: x_cum_record.record_return_status);
7079: rlm_core_sv.dpop(C_DEBUG,'GetLatestCum');
7072:
7073: IF (l_debug <> -1) THEN
7074: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
7075: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
7076: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
7077: rlm_core_sv.dlog(C_DEBUG, 'record_return_status',
7078: x_cum_record.record_return_status);
7079: rlm_core_sv.dpop(C_DEBUG,'GetLatestCum');
7080: END IF;
7073: IF (l_debug <> -1) THEN
7074: rlm_core_sv.dlog(C_DEBUG, 'cum_key_id', x_cum_record.cum_key_id);
7075: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
7076: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
7077: rlm_core_sv.dlog(C_DEBUG, 'record_return_status',
7078: x_cum_record.record_return_status);
7079: rlm_core_sv.dpop(C_DEBUG,'GetLatestCum');
7080: END IF;
7081: --
7075: rlm_core_sv.dlog(C_DEBUG, 'cum_start_date', x_cum_record.cum_start_date);
7076: rlm_core_sv.dlog(C_DEBUG, 'cum_qty', x_cum_record.cum_qty);
7077: rlm_core_sv.dlog(C_DEBUG, 'record_return_status',
7078: x_cum_record.record_return_status);
7079: rlm_core_sv.dpop(C_DEBUG,'GetLatestCum');
7080: END IF;
7081: --
7082: EXCEPTION
7083: --
7092: x_text => x_cum_record.msg_data);
7093:
7094: --
7095: IF (l_debug <> -1) THEN
7096: rlm_core_sv.dpop(C_DEBUG,'E_UNEXPECTED');
7097: END IF;
7098: --
7099: WHEN OTHERS THEN
7100: --
7107: x_text => x_cum_record.msg_data);
7108:
7109: --
7110: IF (l_debug <> -1) THEN
7111: rlm_core_sv.dlog(C_DEBUG, 'when others');
7112: rlm_core_sv.dpop(C_DEBUG, substr(SQLERRM,1,200));
7113: END IF;
7114: --
7115: END GetLatestCum;
7108:
7109: --
7110: IF (l_debug <> -1) THEN
7111: rlm_core_sv.dlog(C_DEBUG, 'when others');
7112: rlm_core_sv.dpop(C_DEBUG, substr(SQLERRM,1,200));
7113: END IF;
7114: --
7115: END GetLatestCum;
7116:
7142:
7143: BEGIN
7144: --
7145: IF (l_debug <> -1) THEN
7146: rlm_core_sv.dpush(C_SDEBUG,'LockCumKey');
7147: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_CUST_ITEM_CUM_KEYS_ALL');
7148: END IF;
7149: --
7150: OPEN c;
7143: BEGIN
7144: --
7145: IF (l_debug <> -1) THEN
7146: rlm_core_sv.dpush(C_SDEBUG,'LockCumKey');
7147: rlm_core_sv.dlog(C_DEBUG,'Locking RLM_CUST_ITEM_CUM_KEYS_ALL');
7148: END IF;
7149: --
7150: OPEN c;
7151: CLOSE c;
7150: OPEN c;
7151: CLOSE c;
7152: --
7153: IF (l_debug <> -1) THEN
7154: rlm_core_sv.dpop(C_SDEBUG);
7155: END IF;
7156: --
7157: RETURN(TRUE);
7158: --
7160: --
7161: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
7162: --
7163: IF (l_debug <> -1) THEN
7164: rlm_core_sv.dlog(C_DEBUG,'Cum Key Record in RLM_CUST_ITEM_CUM_KEYS_ALL cannot be locked');
7165: rlm_core_sv.dpop(C_SDEBUG);
7166: END IF;
7167: --
7168: RETURN(FALSE);
7161: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
7162: --
7163: IF (l_debug <> -1) THEN
7164: rlm_core_sv.dlog(C_DEBUG,'Cum Key Record in RLM_CUST_ITEM_CUM_KEYS_ALL cannot be locked');
7165: rlm_core_sv.dpop(C_SDEBUG);
7166: END IF;
7167: --
7168: RETURN(FALSE);
7169: --
7171: --
7172: rlm_message_sv.sql_error('Locking Cum Key Failed', 'rlm_cum_sv.LockCumKey');
7173: --
7174: IF (l_debug <> -1) THEN
7175: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
7176: END IF;
7177: --
7178: RAISE;
7179: --