23: ship_to_address_id = x_Group_rec.ship_to_address_id AND
24: customer_item_id = x_Group_rec.customer_item_id AND
25: blanket_number = x_Group_rec.setup_terms_rec.blanket_number AND
26: item_detail_type IN (k_FIRM, k_PAST_DUE_FIRM, k_FORECAST) AND
27: process_status <> rlm_core_sv.k_PS_PROCESSED
28: ORDER BY request_date;
29: --
30: v_rso_hdr_id NUMBER;
31: v_count NUMBER;
42: --
43: BEGIN
44: --
45: IF (l_debug <> -1) THEN
46: rlm_core_sv.dpush(C_SDEBUG, 'DeriveRSO');
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
43: BEGIN
44: --
45: IF (l_debug <> -1) THEN
46: rlm_core_sv.dpush(C_SDEBUG, 'DeriveRSO');
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
44: --
45: IF (l_debug <> -1) THEN
46: rlm_core_sv.dpush(C_SDEBUG, 'DeriveRSO');
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
45: IF (l_debug <> -1) THEN
46: rlm_core_sv.dpush(C_SDEBUG, 'DeriveRSO');
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
53: END IF;
46: rlm_core_sv.dpush(C_SDEBUG, 'DeriveRSO');
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
53: END IF;
54: --
47: rlm_core_sv.dlog(C_DEBUG, 'Ship From Org', x_Group_Rec.ship_from_org_id);
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
53: END IF;
54: --
55: x_return_status := rlm_core_sv.k_PROC_SUCCESS;
48: rlm_core_sv.dlog(C_DEBUG, 'Ship To Address ID', x_Group_rec.ship_to_address_id);
49: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
50: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
53: END IF;
54: --
55: x_return_status := rlm_core_sv.k_PROC_SUCCESS;
56: --
51: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
52: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
53: END IF;
54: --
55: x_return_status := rlm_core_sv.k_PROC_SUCCESS;
56: --
57: g_LineIdTab.DELETE;
58: g_RSOIdTab.DELETE;
59: l_index := 1;
64: --
65: FOR c_lines_rec IN c_lines LOOP
66: --
67: IF (l_debug <> -1) THEN
68: rlm_core_sv.dlog(C_DEBUG, '====================================');
69: rlm_core_sv.dlog(C_DEBUG, 'Processing line', c_lines_rec.line_id);
70: rlm_core_sv.dlog(C_DEBUG, 'Request Date', c_lines_rec.request_date);
71: rlm_core_sv.dlog(C_DEBUG, 'Item Detail Type', c_lines_rec.item_Detail_type);
72: END IF;
65: FOR c_lines_rec IN c_lines LOOP
66: --
67: IF (l_debug <> -1) THEN
68: rlm_core_sv.dlog(C_DEBUG, '====================================');
69: rlm_core_sv.dlog(C_DEBUG, 'Processing line', c_lines_rec.line_id);
70: rlm_core_sv.dlog(C_DEBUG, 'Request Date', c_lines_rec.request_date);
71: rlm_core_sv.dlog(C_DEBUG, 'Item Detail Type', c_lines_rec.item_Detail_type);
72: END IF;
73: --
66: --
67: IF (l_debug <> -1) THEN
68: rlm_core_sv.dlog(C_DEBUG, '====================================');
69: rlm_core_sv.dlog(C_DEBUG, 'Processing line', c_lines_rec.line_id);
70: rlm_core_sv.dlog(C_DEBUG, 'Request Date', c_lines_rec.request_date);
71: rlm_core_sv.dlog(C_DEBUG, 'Item Detail Type', c_lines_rec.item_Detail_type);
72: END IF;
73: --
74: g_line_id := c_lines_rec.line_id; --Bugfix 6884912
67: IF (l_debug <> -1) THEN
68: rlm_core_sv.dlog(C_DEBUG, '====================================');
69: rlm_core_sv.dlog(C_DEBUG, 'Processing line', c_lines_rec.line_id);
70: rlm_core_sv.dlog(C_DEBUG, 'Request Date', c_lines_rec.request_date);
71: rlm_core_sv.dlog(C_DEBUG, 'Item Detail Type', c_lines_rec.item_Detail_type);
72: END IF;
73: --
74: g_line_id := c_lines_rec.line_id; --Bugfix 6884912
75: -- 4302492 :start
83: v_RFFlag := x_Group_rec.setup_terms_rec.seq_frozen_flag;
84: END IF;
85: --
86: IF (l_debug <> -1) THEN
87: rlm_core_sv.dlog(C_DEBUG, 'v_RFFlag is:', v_RFFlag);
88: rlm_core_sv.dlog(C_DEBUG, 'before calling CalFenceDays');
89: END IF;
90: --
91: CalFenceDays(x_Sched_rec,x_Group_rec,v_fence_days);
84: END IF;
85: --
86: IF (l_debug <> -1) THEN
87: rlm_core_sv.dlog(C_DEBUG, 'v_RFFlag is:', v_RFFlag);
88: rlm_core_sv.dlog(C_DEBUG, 'before calling CalFenceDays');
89: END IF;
90: --
91: CalFenceDays(x_Sched_rec,x_Group_rec,v_fence_days);
92: --
90: --
91: CalFenceDays(x_Sched_rec,x_Group_rec,v_fence_days);
92: --
93: IF (l_debug <> -1) THEN
94: rlm_core_sv.dlog(C_DEBUG, 'v_fence_days is:', v_fence_days);
95: END IF;
96: --
97: l_Group_rec:= x_group_rec;
98: l_Group_rec.frozen_days := v_fence_days;
123: --
124: END IF;
125: --
126: IF (l_debug <> -1) THEN
127: rlm_core_sv.dlog(C_DEBUG, 'v_rso_hdr_id', v_rso_hdr_id);
128: rlm_core_sv.dlog(C_DEBUG, 'v_start_date', v_start_date);
129: rlm_core_sv.dlog(C_DEBUG, 'v_end_date', v_end_date);
130: rlm_core_sv.dlog(C_DEBUG, 'v_maxend_date', v_maxend_date);
131: rlm_core_sv.dlog(C_DEBUG, 'v_minstart_date', v_minstart_date);
124: END IF;
125: --
126: IF (l_debug <> -1) THEN
127: rlm_core_sv.dlog(C_DEBUG, 'v_rso_hdr_id', v_rso_hdr_id);
128: rlm_core_sv.dlog(C_DEBUG, 'v_start_date', v_start_date);
129: rlm_core_sv.dlog(C_DEBUG, 'v_end_date', v_end_date);
130: rlm_core_sv.dlog(C_DEBUG, 'v_maxend_date', v_maxend_date);
131: rlm_core_sv.dlog(C_DEBUG, 'v_minstart_date', v_minstart_date);
132: END IF;
125: --
126: IF (l_debug <> -1) THEN
127: rlm_core_sv.dlog(C_DEBUG, 'v_rso_hdr_id', v_rso_hdr_id);
128: rlm_core_sv.dlog(C_DEBUG, 'v_start_date', v_start_date);
129: rlm_core_sv.dlog(C_DEBUG, 'v_end_date', v_end_date);
130: rlm_core_sv.dlog(C_DEBUG, 'v_maxend_date', v_maxend_date);
131: rlm_core_sv.dlog(C_DEBUG, 'v_minstart_date', v_minstart_date);
132: END IF;
133: --
126: IF (l_debug <> -1) THEN
127: rlm_core_sv.dlog(C_DEBUG, 'v_rso_hdr_id', v_rso_hdr_id);
128: rlm_core_sv.dlog(C_DEBUG, 'v_start_date', v_start_date);
129: rlm_core_sv.dlog(C_DEBUG, 'v_end_date', v_end_date);
130: rlm_core_sv.dlog(C_DEBUG, 'v_maxend_date', v_maxend_date);
131: rlm_core_sv.dlog(C_DEBUG, 'v_minstart_date', v_minstart_date);
132: END IF;
133: --
134: -- Bug 4901148 : QueryRSO() returns one of the following values
127: rlm_core_sv.dlog(C_DEBUG, 'v_rso_hdr_id', v_rso_hdr_id);
128: rlm_core_sv.dlog(C_DEBUG, 'v_start_date', v_start_date);
129: rlm_core_sv.dlog(C_DEBUG, 'v_end_date', v_end_date);
130: rlm_core_sv.dlog(C_DEBUG, 'v_maxend_date', v_maxend_date);
131: rlm_core_sv.dlog(C_DEBUG, 'v_minstart_date', v_minstart_date);
132: END IF;
133: --
134: -- Bug 4901148 : QueryRSO() returns one of the following values
135: -- * A valid RSO Header ID, corresponding to a record in oe_order_headers
141: --{
142: IF (v_rso_hdr_id = -1) THEN
143: --{
144: IF (l_debug <> -1) THEN
145: rlm_core_sv.dlog(C_DEBUG, 'Recreating RSO, since DSP found a closed one');
146: END IF;
147: --
148: RLM_TPA_SV.CreateRSOHeader(x_Sched_rec, x_Group_rec, v_rso_hdr_id);
149: RLM_TPA_SV.InsertRSO(x_Sched_rec, x_Group_rec, v_rso_hdr_id, v_start_date,
151: --}
152: ELSIF (v_rso_hdr_id = -99) THEN
153: --{
154: IF (l_debug <> -1) THEN
155: rlm_core_sv.dlog(C_DEBUG, 'Orphan record in RLM table, so recreate RSO and log exception');
156: END IF;
157: --
158: rlm_message_sv.app_error(
159: x_ExceptionLevel => rlm_message_sv.k_warn_level,
225: g_LineIdTab(l_index) := c_lines_rec.line_id;
226: g_RSOIdTab(l_index) := v_rso_hdr_id;
227: --
228: IF (l_debug <> -1) THEN
229: rlm_core_sv.dlog(C_DEBUG, 'Line id', g_LineIdTab(l_index));
230: rlm_core_sv.dlog(C_DEBUG, 'RSO Id', g_RSOIdTab(l_index));
231: END IF;
232: --
233: l_index := l_index + 1;
226: g_RSOIdTab(l_index) := v_rso_hdr_id;
227: --
228: IF (l_debug <> -1) THEN
229: rlm_core_sv.dlog(C_DEBUG, 'Line id', g_LineIdTab(l_index));
230: rlm_core_sv.dlog(C_DEBUG, 'RSO Id', g_RSOIdTab(l_index));
231: END IF;
232: --
233: l_index := l_index + 1;
234: --
237: --Bug Fix 4254471 Added parameter to procedure
238: UpdateLinesWithRSO(x_Sched_rec.schedule_header_id);
239: --
240: IF (l_debug <> -1) THEN
241: rlm_core_sv.dpop(C_SDEBUG);
242: END IF;
243: --
244: EXCEPTION
245: --
244: EXCEPTION
245: --
246: WHEN e_RSOCreationError THEN
247: --
248: x_return_Status := rlm_core_sv.k_PROC_ERROR;
249: --
250: IF (l_debug <> -1) THEN
251: rlm_core_sv.dpop(C_SDEBUG, 'e_RSOCreationError');
252: END IF;
247: --
248: x_return_Status := rlm_core_sv.k_PROC_ERROR;
249: --
250: IF (l_debug <> -1) THEN
251: rlm_core_sv.dpop(C_SDEBUG, 'e_RSOCreationError');
252: END IF;
253: --
254: WHEN OTHERS THEN
255: x_return_Status := RLM_CORE_SV.k_PROC_ERROR;
251: rlm_core_sv.dpop(C_SDEBUG, 'e_RSOCreationError');
252: END IF;
253: --
254: WHEN OTHERS THEN
255: x_return_Status := RLM_CORE_SV.k_PROC_ERROR;
256: rlm_message_sv.sql_error('RLM_BLANKET_SV.DeriveRSO', '040');
257: --
258: IF (l_debug <> -1) THEN
259: rlm_core_sv.dlog(C_DEBUG, 'When others of DeriveRSO');
255: x_return_Status := RLM_CORE_SV.k_PROC_ERROR;
256: rlm_message_sv.sql_error('RLM_BLANKET_SV.DeriveRSO', '040');
257: --
258: IF (l_debug <> -1) THEN
259: rlm_core_sv.dlog(C_DEBUG, 'When others of DeriveRSO');
260: rlm_core_sv.dpop(C_SDEBUG,'DeriveRSO EXCEPTION: '||SUBSTR(SQLERRM,1,200));
261: END IF;
262: --
263: END DeriveRSO;
256: rlm_message_sv.sql_error('RLM_BLANKET_SV.DeriveRSO', '040');
257: --
258: IF (l_debug <> -1) THEN
259: rlm_core_sv.dlog(C_DEBUG, 'When others of DeriveRSO');
260: rlm_core_sv.dpop(C_SDEBUG,'DeriveRSO EXCEPTION: '||SUBSTR(SQLERRM,1,200));
261: END IF;
262: --
263: END DeriveRSO;
264:
311: --
312: BEGIN
313: --
314: IF (l_debug <> -1) THEN
315: rlm_core_sv.dpush(C_SDEBUG, 'QueryRSO');
316: END IF;
317: --
318: v_rel_rule := x_Group_rec.setup_terms_rec.release_rule;
319: --
317: --
318: v_rel_rule := x_Group_rec.setup_terms_rec.release_rule;
319: --
320: IF (l_debug <> -1) THEN
321: rlm_core_sv.dlog(C_DEBUG, 'p_customer_id', p_customer_id);
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
318: v_rel_rule := x_Group_rec.setup_terms_rec.release_rule;
319: --
320: IF (l_debug <> -1) THEN
321: rlm_core_sv.dlog(C_DEBUG, 'p_customer_id', p_customer_id);
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
326: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
319: --
320: IF (l_debug <> -1) THEN
321: rlm_core_sv.dlog(C_DEBUG, 'p_customer_id', p_customer_id);
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
326: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
327: END IF;
320: IF (l_debug <> -1) THEN
321: rlm_core_sv.dlog(C_DEBUG, 'p_customer_id', p_customer_id);
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
326: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
327: END IF;
328: --
321: rlm_core_sv.dlog(C_DEBUG, 'p_customer_id', p_customer_id);
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
326: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
327: END IF;
328: --
329: v_first := TRUE;
322: rlm_core_sv.dlog(C_DEBUG, 'p_blanket_number', x_Group_rec.setup_terms_rec.blanket_number);
323: rlm_core_sv.dlog(C_DEBUG, 'p_request_date', p_request_date);
324: rlm_core_sv.dlog(C_DEBUG, 'p_cust_item_id', p_cust_item_id);
325: rlm_core_sv.dlog(C_DEBUG, 'Release Creation Rule', v_rel_rule);
326: rlm_core_sv.dlog(C_DEBUG, 'Release Time Frame', x_Group_rec.setup_terms_rec.release_time_frame);
327: END IF;
328: --
329: v_first := TRUE;
330: --
338: IF (TRUNC(p_request_date) >= TRUNC(v_start_date) AND
339: TRUNC(p_request_date) < TRUNC(v_end_date) + 1) THEN
340: --
341: IF (l_debug <> -1) THEN
342: rlm_core_sv.dlog(C_DEBUG, 'Inside PI if');
343: END IF;
344: --
345: x_rso_hdr_id := v_rsohdr_id;
346: x_start_date := v_start_date;
372: IF (TRUNC(p_request_date) >= v_start_date AND
373: TRUNC(p_request_date) < TRUNC(v_end_date)+1) THEN
374: --
375: IF (l_debug <> -1) THEN
376: rlm_core_sv.dlog(C_DEBUG, 'Inside AI if');
377: END IF;
378: --
379: x_rso_hdr_id := v_rsohdr_id;
380: x_start_date := v_start_date;
404: x_maxend_date := NVL(v_maxend_date, k_DNULL);
405: x_minstart_date := NVL(v_minstart_date, k_DNULL);
406: --
407: IF (l_debug <> -1) THEN
408: rlm_core_sv.dpop(C_SDEBUG, x_rso_hdr_id);
409: END IF;
410: --
411: EXCEPTION
412: --
412: --
413: WHEN OTHERS THEN
414: --
415: IF (l_debug <> -1) THEN
416: rlm_core_sv.dpop(C_SDEBUG,'QueryRSO EXCEPTION: '||SUBSTR(SQLERRM,1,200));
417: END IF;
418: --
419: RAISE;
420: --
434: --
435: BEGIN
436: --
437: IF (l_debug <> -1) THEN
438: rlm_core_sv.dpush(C_SDEBUG, 'CalcEffectiveDates');
439: END IF;
440: --
441: IF x_maxend_date = k_DNULL THEN
442: --
440: --
441: IF x_maxend_date = k_DNULL THEN
442: --
443: IF (l_debug <> -1) THEN
444: rlm_core_sv.dlog(C_DEBUG, 'This will the first entry of its type in the RLM_RSO table');
445: END IF;
446: --
447: IF to_char(p_request_date, 'D') = g_SundayDOW THEN
448: --
458: --
459: ELSE
460: --
461: IF (l_debug <> -1) THEN
462: rlm_core_sv.dlog(C_DEBUG, 'Using context of existing RSOs');
463: rlm_core_sv.dlog(C_DEBUG, 'End effective date of last RSO', x_maxend_date);
464: END IF;
465: --
466: x_start_date := x_maxend_date + 1;
459: ELSE
460: --
461: IF (l_debug <> -1) THEN
462: rlm_core_sv.dlog(C_DEBUG, 'Using context of existing RSOs');
463: rlm_core_sv.dlog(C_DEBUG, 'End effective date of last RSO', x_maxend_date);
464: END IF;
465: --
466: x_start_date := x_maxend_date + 1;
467: x_end_date := x_start_date + (x_Group_rec.setup_terms_rec.release_time_frame * 7) - 1;
470: --
471: x_maxend_date := x_end_date;
472: --
473: IF (l_debug <> -1) THEN
474: rlm_core_sv.dlog(C_DEBUG, 'Effective start date of new RSO', x_start_date);
475: rlm_core_sv.dlog(C_DEBUG, 'Effective end date of new RSO', x_end_date);
476: rlm_core_sv.dlog(C_DEBUG, 'Max Effec. end date', x_maxend_date);
477: rlm_core_sv.dpop(C_SDEBUG);
478: END IF;
471: x_maxend_date := x_end_date;
472: --
473: IF (l_debug <> -1) THEN
474: rlm_core_sv.dlog(C_DEBUG, 'Effective start date of new RSO', x_start_date);
475: rlm_core_sv.dlog(C_DEBUG, 'Effective end date of new RSO', x_end_date);
476: rlm_core_sv.dlog(C_DEBUG, 'Max Effec. end date', x_maxend_date);
477: rlm_core_sv.dpop(C_SDEBUG);
478: END IF;
479: --
472: --
473: IF (l_debug <> -1) THEN
474: rlm_core_sv.dlog(C_DEBUG, 'Effective start date of new RSO', x_start_date);
475: rlm_core_sv.dlog(C_DEBUG, 'Effective end date of new RSO', x_end_date);
476: rlm_core_sv.dlog(C_DEBUG, 'Max Effec. end date', x_maxend_date);
477: rlm_core_sv.dpop(C_SDEBUG);
478: END IF;
479: --
480: EXCEPTION
473: IF (l_debug <> -1) THEN
474: rlm_core_sv.dlog(C_DEBUG, 'Effective start date of new RSO', x_start_date);
475: rlm_core_sv.dlog(C_DEBUG, 'Effective end date of new RSO', x_end_date);
476: rlm_core_sv.dlog(C_DEBUG, 'Max Effec. end date', x_maxend_date);
477: rlm_core_sv.dpop(C_SDEBUG);
478: END IF;
479: --
480: EXCEPTION
481: --
481: --
482: WHEN OTHERS THEN
483: --
484: IF (l_debug <> -1) THEN
485: rlm_core_sv.dpop(C_SDEBUG,'CalcEffectiveDates EXCEPTION: '||SUBSTR(SQLERRM,1,200));
486: END IF;
487: --
488: RAISE;
489: --
503: x_minstart_date IN OUT NOCOPY DATE) IS
504: BEGIN
505: --
506: IF (l_debug <> -1) THEN
507: rlm_core_sv.dpush(C_SDEBUG, 'CalcPriorEffectDates');
508: rlm_core_sv.dlog(C_DEBUG, 'x_minstart_date', x_minstart_date);
509: END IF;
510: --
511: x_end_date := x_minstart_date - 1;
504: BEGIN
505: --
506: IF (l_debug <> -1) THEN
507: rlm_core_sv.dpush(C_SDEBUG, 'CalcPriorEffectDates');
508: rlm_core_sv.dlog(C_DEBUG, 'x_minstart_date', x_minstart_date);
509: END IF;
510: --
511: x_end_date := x_minstart_date - 1;
512: x_start_date := x_end_date - (7 * x_Group_rec.setup_terms_rec.release_time_frame) + 1;
512: x_start_date := x_end_date - (7 * x_Group_rec.setup_terms_rec.release_time_frame) + 1;
513: x_minstart_date := x_start_date;
514: --
515: IF (l_debug <> -1) THEN
516: rlm_core_sv.dlog(C_DEBUG, 'x_start_date', x_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'x_end_date', x_end_date);
518: rlm_core_sv.dlog(C_DEBUG, 'New x_minstart_date', x_minstart_date);
519: rlm_core_sv.dpop(C_SDEBUG);
520: END IF;
513: x_minstart_date := x_start_date;
514: --
515: IF (l_debug <> -1) THEN
516: rlm_core_sv.dlog(C_DEBUG, 'x_start_date', x_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'x_end_date', x_end_date);
518: rlm_core_sv.dlog(C_DEBUG, 'New x_minstart_date', x_minstart_date);
519: rlm_core_sv.dpop(C_SDEBUG);
520: END IF;
521: --
514: --
515: IF (l_debug <> -1) THEN
516: rlm_core_sv.dlog(C_DEBUG, 'x_start_date', x_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'x_end_date', x_end_date);
518: rlm_core_sv.dlog(C_DEBUG, 'New x_minstart_date', x_minstart_date);
519: rlm_core_sv.dpop(C_SDEBUG);
520: END IF;
521: --
522: EXCEPTION
515: IF (l_debug <> -1) THEN
516: rlm_core_sv.dlog(C_DEBUG, 'x_start_date', x_start_date);
517: rlm_core_sv.dlog(C_DEBUG, 'x_end_date', x_end_date);
518: rlm_core_sv.dlog(C_DEBUG, 'New x_minstart_date', x_minstart_date);
519: rlm_core_sv.dpop(C_SDEBUG);
520: END IF;
521: --
522: EXCEPTION
523: --
523: --
524: WHEN OTHERS THEN
525: --
526: IF (l_debug <> -1) THEN
527: rlm_core_sv.dpop(C_SDEBUG,'CalcPriorEffectDates EXCEPTION: '||SUBSTR(SQLERRM,1,200));
528: END IF;
529: --
530: RAISE;
531: --
547: --
548: BEGIN
549: --
550: IF (l_debug <> -1) THEN
551: rlm_core_sv.dpush(C_SDEBUG, 'InsertRSO');
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
548: BEGIN
549: --
550: IF (l_debug <> -1) THEN
551: rlm_core_sv.dpush(C_SDEBUG, 'InsertRSO');
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
549: --
550: IF (l_debug <> -1) THEN
551: rlm_core_sv.dpush(C_SDEBUG, 'InsertRSO');
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
550: IF (l_debug <> -1) THEN
551: rlm_core_sv.dpush(C_SDEBUG, 'InsertRSO');
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
558: rlm_core_sv.dlog(C_DEBUG, 'p_end_date', p_end_date);
551: rlm_core_sv.dpush(C_SDEBUG, 'InsertRSO');
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
558: rlm_core_sv.dlog(C_DEBUG, 'p_end_date', p_end_date);
559: END IF;
552: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
558: rlm_core_sv.dlog(C_DEBUG, 'p_end_date', p_end_date);
559: END IF;
560: --
553: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
558: rlm_core_sv.dlog(C_DEBUG, 'p_end_date', p_end_date);
559: END IF;
560: --
561: IF x_Group_rec.setup_terms_rec.release_rule = 'AI' THEN
554: rlm_core_sv.dlog(C_DEBUG, 'Release Rule', x_Group_rec.setup_terms_rec.release_rule);
555: rlm_core_sv.dlog(C_DEBUG, 'p_rso_hdr_id', p_rso_hdr_id);
556: rlm_core_sv.dlog(C_DEBUG, 'Customer Item Id', x_Group_rec.customer_item_id);
557: rlm_core_sv.dlog(C_DEBUG, 'p_start_date', p_start_date);
558: rlm_core_sv.dlog(C_DEBUG, 'p_end_date', p_end_date);
559: END IF;
560: --
561: IF x_Group_rec.setup_terms_rec.release_rule = 'AI' THEN
562: v_customer_item_id := k_NNULL;
564: v_customer_item_id := x_Group_rec.customer_item_id;
565: END IF;
566: --
567: IF (l_debug <> -1) THEN
568: rlm_core_sv.dlog(C_DEBUG, 'v_customer_item_id', v_customer_item_id);
569: END IF;
570: --
571: INSERT INTO RLM_BLANKET_RSO
572: (
579: p_rso_hdr_id, v_customer_item_id, TRUNC(p_start_date), TRUNC(p_end_date)
580: );
581: --
582: IF (l_debug <> -1) THEN
583: rlm_core_sv.dpop(C_SDEBUG);
584: END IF;
585: --
586: EXCEPTION
587: --
587: --
588: WHEN OTHERS THEN
589: --
590: IF (l_debug <> -1) THEN
591: rlm_core_sv.dpop(C_SDEBUG,'InsertRSO EXCEPTION: '||SUBSTR(SQLERRM,1,200));
592: END IF;
593: --
594: RAISE;
595: --
649: --
650: BEGIN
651: --
652: IF (l_debug <> -1) THEN
653: rlm_core_sv.dpush(C_SDEBUG, 'CreateRSOHeader');
654: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
655: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
656: rlm_core_sv.dlog(C_DEBUG, 'Org ID', x_Sched_rec.org_id);
657: END IF;
650: BEGIN
651: --
652: IF (l_debug <> -1) THEN
653: rlm_core_sv.dpush(C_SDEBUG, 'CreateRSOHeader');
654: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
655: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
656: rlm_core_sv.dlog(C_DEBUG, 'Org ID', x_Sched_rec.org_id);
657: END IF;
658: --
651: --
652: IF (l_debug <> -1) THEN
653: rlm_core_sv.dpush(C_SDEBUG, 'CreateRSOHeader');
654: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
655: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
656: rlm_core_sv.dlog(C_DEBUG, 'Org ID', x_Sched_rec.org_id);
657: END IF;
658: --
659: l_oe_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
652: IF (l_debug <> -1) THEN
653: rlm_core_sv.dpush(C_SDEBUG, 'CreateRSOHeader');
654: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
655: rlm_core_sv.dlog(C_DEBUG, 'Customer id', x_Sched_rec.customer_id);
656: rlm_core_sv.dlog(C_DEBUG, 'Org ID', x_Sched_rec.org_id);
657: END IF;
658: --
659: l_oe_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
660: l_oe_header_rec.operation := OE_Globals.G_OPR_CREATE;
701: , x_action_request_tbl => l_action_request_tbl_out
702: );
703: --
704: IF (l_debug <> -1) THEN
705: rlm_core_sv.dlog(C_DEBUG,'Process Order return Status',l_return_Status);
706: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Count',x_msg_count);
707: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Message',x_msg_data);
708: END IF;
709: --
702: );
703: --
704: IF (l_debug <> -1) THEN
705: rlm_core_sv.dlog(C_DEBUG,'Process Order return Status',l_return_Status);
706: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Count',x_msg_count);
707: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Message',x_msg_data);
708: END IF;
709: --
710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
703: --
704: IF (l_debug <> -1) THEN
705: rlm_core_sv.dlog(C_DEBUG,'Process Order return Status',l_return_Status);
706: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Count',x_msg_count);
707: rlm_core_sv.dlog(C_DEBUG,'Process Order Error Message',x_msg_data);
708: END IF;
709: --
710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
711: l_return_status = FND_API.G_RET_STS_ERROR) THEN
723: --
724: END IF;
725: --
726: IF (l_debug <> -1) THEN
727: rlm_core_sv.dlog(C_DEBUG, 'Sales order header id ',
728: l_oe_header_rec_out.header_id);
729: rlm_core_sv.dlog(C_DEBUG, 'Sales order number',
730: l_oe_header_rec_out.order_number);
731: END IF;
725: --
726: IF (l_debug <> -1) THEN
727: rlm_core_sv.dlog(C_DEBUG, 'Sales order header id ',
728: l_oe_header_rec_out.header_id);
729: rlm_core_sv.dlog(C_DEBUG, 'Sales order number',
730: l_oe_header_rec_out.order_number);
731: END IF;
732: --
733: x_rso_hdr_id := l_oe_header_rec_out.header_id;
732: --
733: x_rso_hdr_id := l_oe_header_rec_out.header_id;
734: --
735: IF (l_debug <> -1) THEN
736: rlm_core_sv.dpop(C_SDEBUG);
737: END IF;
738: --
739: EXCEPTION
740: --
747: x_msg_count, rlm_message_sv.k_ERROR_LEVEL,
748: x_token, x_msg_name);
749: --
750: IF (l_debug <> -1) THEN
751: rlm_core_sv.dlog(C_DEBUG, 'RSO Creation Error: ' || x_msg_data);
752: rlm_core_sv.dpop(C_SDEBUG, 'e_RSOCreationError');
753: END IF;
754: --
755: RAISE e_RSOCreationError;
748: x_token, x_msg_name);
749: --
750: IF (l_debug <> -1) THEN
751: rlm_core_sv.dlog(C_DEBUG, 'RSO Creation Error: ' || x_msg_data);
752: rlm_core_sv.dpop(C_SDEBUG, 'e_RSOCreationError');
753: END IF;
754: --
755: RAISE e_RSOCreationError;
756: --
757: WHEN OTHERS THEN
758: rlm_message_sv.sql_error('rlm_blanket_sv.CreateRSOHeader', v_progress);
759: --
760: IF (l_debug <> -1) THEN
761: rlm_core_sv.dpop(C_SDEBUG, 'CreateRSOHeader');
762: END IF;
763: --
764: RAISE;
765: --
778: --
779: BEGIN
780: --
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dpush(C_SDEBUG, 'UpdateLinesWithRSO');
783: rlm_core_sv.dlog(C_DEBUG, 'x_header_id', x_header_id);
784: rlm_core_sv.dlog(C_DEBUG, '# of lines', g_LineIdTab.COUNT);
785: rlm_core_sv.dlog(C_DEBUG, '# of RSOs', g_RSOIdTab.COUNT);
786: END IF;
779: BEGIN
780: --
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dpush(C_SDEBUG, 'UpdateLinesWithRSO');
783: rlm_core_sv.dlog(C_DEBUG, 'x_header_id', x_header_id);
784: rlm_core_sv.dlog(C_DEBUG, '# of lines', g_LineIdTab.COUNT);
785: rlm_core_sv.dlog(C_DEBUG, '# of RSOs', g_RSOIdTab.COUNT);
786: END IF;
787: --
780: --
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dpush(C_SDEBUG, 'UpdateLinesWithRSO');
783: rlm_core_sv.dlog(C_DEBUG, 'x_header_id', x_header_id);
784: rlm_core_sv.dlog(C_DEBUG, '# of lines', g_LineIdTab.COUNT);
785: rlm_core_sv.dlog(C_DEBUG, '# of RSOs', g_RSOIdTab.COUNT);
786: END IF;
787: --
788: FORALL i IN 1..g_LineIdTab.COUNT
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dpush(C_SDEBUG, 'UpdateLinesWithRSO');
783: rlm_core_sv.dlog(C_DEBUG, 'x_header_id', x_header_id);
784: rlm_core_sv.dlog(C_DEBUG, '# of lines', g_LineIdTab.COUNT);
785: rlm_core_sv.dlog(C_DEBUG, '# of RSOs', g_RSOIdTab.COUNT);
786: END IF;
787: --
788: FORALL i IN 1..g_LineIdTab.COUNT
789: --
791: SET order_header_id = g_RSOIdTab(i)
792: WHERE line_id = g_LineIdTab(i);
793: --
794: IF (l_debug <> -1) THEN
795: rlm_core_sv.dlog(C_DEBUG, '# of interface lines updated', SQL%ROWCOUNT);
796: END IF;
797: --
798: FORALL i IN 1..g_LineIdTab.COUNT
799: --
802: WHERE interface_line_id = g_LineIdTab(i)
803: AND header_id = x_header_id; /* 4254471 */
804: --
805: IF (l_debug <> -1) THEN
806: rlm_core_sv.dlog(C_DEBUG, '# of schedule lines updated', SQL%ROWCOUNT);
807: rlm_core_sv.dpop(C_SDEBUG);
808: END IF;
809: --
810: EXCEPTION
803: AND header_id = x_header_id; /* 4254471 */
804: --
805: IF (l_debug <> -1) THEN
806: rlm_core_sv.dlog(C_DEBUG, '# of schedule lines updated', SQL%ROWCOUNT);
807: rlm_core_sv.dpop(C_SDEBUG);
808: END IF;
809: --
810: EXCEPTION
811: --
813: --
814: rlm_message_sv.sql_error('rlm_blanket_sv.UpdateLinesWithRSO', v_Progress);
815: --
816: IF (l_debug <> -1) THEN
817: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
818: END IF;
819: --
820: raise;
821:
865: --
866: BEGIN
867: --
868: IF (l_debug <> -1) THEN
869: rlm_core_sv.dpush(C_SDEBUG, 'InsertOMMessages');
870: END IF;
871: --
872: IF x_msg_count >0 THEN
873: --
876: x_msg := oe_msg_pub.get(p_msg_index => I,
877: p_encoded => 'F');
878: --
879: IF (l_debug <> -1) THEN
880: rlm_core_sv.dlog(C_DEBUG,'Message Found', substr(x_msg,1,200));
881: END IF;
882: --
883: oe_msg_pub.Get_msg_context(
884: p_msg_index => I
902: ,x_type => l_type
903: );
904: --
905: IF (l_debug <> -1) THEN
906: rlm_core_sv.dlog(C_DEBUG,'l_header_id', l_header_id);
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
903: );
904: --
905: IF (l_debug <> -1) THEN
906: rlm_core_sv.dlog(C_DEBUG,'l_header_id', l_header_id);
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
904: --
905: IF (l_debug <> -1) THEN
906: rlm_core_sv.dlog(C_DEBUG,'l_header_id', l_header_id);
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
912: rlm_core_sv.dlog(C_DEBUG,'x_InventoryItemId',x_Group_rec.inventory_item_id);
905: IF (l_debug <> -1) THEN
906: rlm_core_sv.dlog(C_DEBUG,'l_header_id', l_header_id);
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
912: rlm_core_sv.dlog(C_DEBUG,'x_InventoryItemId',x_Group_rec.inventory_item_id);
913: END IF;
906: rlm_core_sv.dlog(C_DEBUG,'l_header_id', l_header_id);
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
912: rlm_core_sv.dlog(C_DEBUG,'x_InventoryItemId',x_Group_rec.inventory_item_id);
913: END IF;
914: --
907: rlm_core_sv.dlog(C_DEBUG,'x_msg_level', x_msg_level);
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
912: rlm_core_sv.dlog(C_DEBUG,'x_InventoryItemId',x_Group_rec.inventory_item_id);
913: END IF;
914: --
915: SELECT line_id
908: rlm_core_sv.dlog(C_DEBUG,'x_msg_name', x_msg_name);
909: rlm_core_sv.dlog(C_DEBUG,'Industry Att15', x_Group_rec.industry_attribute15);
910: rlm_core_sv.dlog(C_DEBUG,'x_ShipToAddressId',x_Group_rec.ship_to_address_id);
911: rlm_core_sv.dlog(C_DEBUG,'x_CustomerItemId',x_Group_rec.customer_item_id);
912: rlm_core_sv.dlog(C_DEBUG,'x_InventoryItemId',x_Group_rec.inventory_item_id);
913: END IF;
914: --
915: SELECT line_id
916: INTO v_InterfaceLineId
936: l_msg_level := x_msg_level;
937: END IF;
938: --
939: IF (l_debug <> -1) THEN
940: rlm_core_sv.dlog(C_DEBUG, 'l_msg_level', l_msg_level);
941: END IF;
942: --
943: --Bugfix 6884912 Start
944: IF g_req_flag = 1 THEN
991: --
992: END IF;
993: --
994: IF (l_debug <> -1) THEN
995: rlm_core_sv.dpop(C_SDEBUG);
996: END IF;
997: --
998: EXCEPTION
999: --
1001: --
1002: rlm_message_sv.sql_error('rlm_blanket_sv.InsertOMMessages', v_Progress);
1003: --
1004: IF (l_debug <> -1) THEN
1005: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '|| SUBSTR(SQLERRM,1,200));
1006: END IF;
1007: --
1008: raise;
1009: --
1027: --
1028: BEGIN
1029: --
1030: IF (l_debug <> -1) THEN
1031: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
1032: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_Sched_rec.customer_id);
1033: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
1034: x_sched_rec.ece_tp_translator_code);
1035: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
1028: BEGIN
1029: --
1030: IF (l_debug <> -1) THEN
1031: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
1032: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_Sched_rec.customer_id);
1033: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
1034: x_sched_rec.ece_tp_translator_code);
1035: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
1036: x_sched_rec.ece_tp_location_code_ext);
1029: --
1030: IF (l_debug <> -1) THEN
1031: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
1032: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_Sched_rec.customer_id);
1033: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
1034: x_sched_rec.ece_tp_translator_code);
1035: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
1036: x_sched_rec.ece_tp_location_code_ext);
1037: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
1031: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
1032: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_Sched_rec.customer_id);
1033: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
1034: x_sched_rec.ece_tp_translator_code);
1035: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
1036: x_sched_rec.ece_tp_location_code_ext);
1037: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
1038: x_group_rec.ship_to_address_id);
1039: END IF;
1033: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_translator_code',
1034: x_sched_rec.ece_tp_translator_code);
1035: rlm_core_sv.dlog(C_DEBUG,'x_sched_rec.ece_tp_location_code_ext',
1036: x_sched_rec.ece_tp_location_code_ext);
1037: rlm_core_sv.dlog(C_DEBUG,'x_group_rec.ship_to_address_id',
1038: x_group_rec.ship_to_address_id);
1039: END IF;
1040: --
1041: IF x_sched_rec.ECE_TP_LOCATION_CODE_EXT is NOT NULL THEN
1084: --
1085: END IF;
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1085: END IF;
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1093: rlm_core_sv.dpop(C_SDEBUG);
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1093: rlm_core_sv.dpop(C_SDEBUG);
1094: END IF;
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1093: rlm_core_sv.dpop(C_SDEBUG);
1094: END IF;
1095: --
1088: rlm_core_sv.dlog(C_DEBUG, 'customer_number', x_customer_number);
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1093: rlm_core_sv.dpop(C_SDEBUG);
1094: END IF;
1095: --
1096: EXCEPTION
1089: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
1090: rlm_core_sv.dlog(C_DEBUG, 'x_bill_to_ece_locn_code', x_bill_to_ece_locn_code);
1091: rlm_core_sv.dlog(C_DEBUG, 'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
1092: rlm_core_sv.dlog(C_DEBUG, 'x_tp_group_code',x_tp_group_code);
1093: rlm_core_sv.dpop(C_SDEBUG);
1094: END IF;
1095: --
1096: EXCEPTION
1097: --
1099: --
1100: x_customer_number := NULL;
1101: --
1102: IF (l_debug <> -1) THEN
1103: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
1104: rlm_core_sv.dpop(C_SDEBUG);
1105: END IF;
1106: --
1107: WHEN OTHERS THEN
1100: x_customer_number := NULL;
1101: --
1102: IF (l_debug <> -1) THEN
1103: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_sched_rec.customer_id);
1104: rlm_core_sv.dpop(C_SDEBUG);
1105: END IF;
1106: --
1107: WHEN OTHERS THEN
1108: --
1108: --
1109: rlm_message_sv.sql_error('rlm_blanket_sv.GetTPContext',v_Progress);
1110: --
1111: IF (l_debug <> -1) THEN
1112: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1113: END IF;
1114: --
1115: raise;
1116:
1134: --
1135: BEGIN
1136: --
1137: IF (l_debug <> -1) THEN
1138: rlm_core_sv.dpush(C_DEBUG,'CalFenceDays');
1139: rlm_core_sv.dlog(C_DEBUG,'x_roll_forward_flag', x_Group_rec.roll_forward_frozen_flag);
1140: END IF;
1141: --
1142: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
1135: BEGIN
1136: --
1137: IF (l_debug <> -1) THEN
1138: rlm_core_sv.dpush(C_DEBUG,'CalFenceDays');
1139: rlm_core_sv.dlog(C_DEBUG,'x_roll_forward_flag', x_Group_rec.roll_forward_frozen_flag);
1140: END IF;
1141: --
1142: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
1143: --
1141: --
1142: IF x_Sched_rec.Schedule_type = k_PLANNING THEN
1143: --
1144: IF (l_debug <> -1) THEN
1145: rlm_core_sv.dlog(C_DEBUG,'PLANNING');
1146: END IF;
1147: --
1148: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.pln_frozen_day_from;
1149: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.pln_frozen_day_to;
1150: --
1151: ELSIF x_Sched_rec.Schedule_type = k_SHIPPING THEN
1152: --
1153: IF (l_debug <> -1) THEN
1154: rlm_core_sv.dlog(C_DEBUG,'SHIPPING');
1155: END IF;
1156: --
1157: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.shp_frozen_day_from;
1158: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.shp_frozen_day_to;
1159: --
1160: ELSIF x_Sched_rec.Schedule_type = k_SEQUENCED THEN
1161: --
1162: IF (l_debug <> -1) THEN
1163: rlm_core_sv.dlog(C_DEBUG,'SEQUENCED');
1164: END IF;
1165: --
1166: v_FrozenFenceDayFrom := x_Group_rec.setup_terms_rec.seq_frozen_day_from;
1167: v_FrozenFenceDayTo := x_Group_rec.setup_terms_rec.seq_frozen_day_to;
1176: --
1177: x_fence_days :=v_FrozenFenceDays;
1178: --
1179: IF (l_debug <> -1) THEN
1180: rlm_core_sv.dpop(C_SDEBUG);
1181: END IF;
1182: --
1183: END CalFenceDays;
1184: