18:
19: BEGIN
20: --
21: IF (l_debug <> -1) THEN
22: rlm_core_sv.dpush(C_SDEBUG,'InitializeGroup');
23: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
24: rlm_core_sv.dlog(C_DEBUG,'g_header_rec.schedule_type',
25: g_header_rec.schedule_type);
26: rlm_core_sv.dlog(C_DEBUG,'p_caller',p_caller);
19: BEGIN
20: --
21: IF (l_debug <> -1) THEN
22: rlm_core_sv.dpush(C_SDEBUG,'InitializeGroup');
23: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
24: rlm_core_sv.dlog(C_DEBUG,'g_header_rec.schedule_type',
25: g_header_rec.schedule_type);
26: rlm_core_sv.dlog(C_DEBUG,'p_caller',p_caller);
27: END IF;
20: --
21: IF (l_debug <> -1) THEN
22: rlm_core_sv.dpush(C_SDEBUG,'InitializeGroup');
23: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
24: rlm_core_sv.dlog(C_DEBUG,'g_header_rec.schedule_type',
25: g_header_rec.schedule_type);
26: rlm_core_sv.dlog(C_DEBUG,'p_caller',p_caller);
27: END IF;
28: --
22: rlm_core_sv.dpush(C_SDEBUG,'InitializeGroup');
23: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
24: rlm_core_sv.dlog(C_DEBUG,'g_header_rec.schedule_type',
25: g_header_rec.schedule_type);
26: rlm_core_sv.dlog(C_DEBUG,'p_caller',p_caller);
27: END IF;
28: --
29:
30: IF g_header_rec.schedule_type <> 'SEQUENCED' AND nvl(p_caller,'NULL') <> 'Header' THEN
29:
30: IF g_header_rec.schedule_type <> 'SEQUENCED' AND nvl(p_caller,'NULL') <> 'Header' THEN
31: --
32: IF (l_debug <> -1) THEN
33: rlm_core_sv.dlog(C_DEBUG,'p_caller',p_caller);
34: END IF;
35: --
36: OPEN x_Group_ref FOR
37: SELECT 'N',
97: /*2313139*/
98: END IF;
99: --
100: IF (l_debug <> -1) THEN
101: rlm_core_sv.dpop(C_SDEBUG);
102: END IF;
103: --
104: EXCEPTION
105: --
105: --
106: WHEN OTHERS THEN
107: --
108: IF (l_debug <> -1) THEN
109: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
110: END IF;
111: --
112: raise;
113: --
125:
126: BEGIN
127: --
128: IF (l_debug <> -1) THEN
129: rlm_core_sv.dpush(C_SDEBUG,'FetchGroup');
130: END IF;
131: --
132: FETCH x_Group_ref INTO
133: x_Group_rec.group_type,
141: --
142: IF x_Group_ref%NOTFOUND THEN
143: --
144: IF (l_debug <> -1) THEN
145: rlm_core_sv.dpop(C_SDEBUG, 'false');
146: END IF;
147: --
148: RETURN(FALSE);
149: --
149: --
150: ELSE
151: --
152: IF (l_debug <> -1) THEN
153: rlm_core_sv.dlog(C_DEBUG,'group_type',x_Group_rec.group_type);
154: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',x_Group_rec.schedule_item_num);
155: rlm_core_sv.dpop(C_SDEBUG, 'true');
156: END IF;
157: --
150: ELSE
151: --
152: IF (l_debug <> -1) THEN
153: rlm_core_sv.dlog(C_DEBUG,'group_type',x_Group_rec.group_type);
154: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',x_Group_rec.schedule_item_num);
155: rlm_core_sv.dpop(C_SDEBUG, 'true');
156: END IF;
157: --
158: RETURN(TRUE);
151: --
152: IF (l_debug <> -1) THEN
153: rlm_core_sv.dlog(C_DEBUG,'group_type',x_Group_rec.group_type);
154: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',x_Group_rec.schedule_item_num);
155: rlm_core_sv.dpop(C_SDEBUG, 'true');
156: END IF;
157: --
158: RETURN(TRUE);
159: --
163: --
164: WHEN OTHERS THEN
165: --
166: IF (l_debug <> -1) THEN
167: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
168: END IF;
169: --
170: raise;
171: --
202: --
203: BEGIN
204: --
205: IF (l_debug <> -1) THEN
206: rlm_core_sv.dpush(C_SDEBUG,'CheckHeaderECETpLocCode');
207: rlm_core_sv.dlog(C_DEBUG,'x_header_rec', x_header_rec.header_id);
208: END IF;
209: --
210: IF x_header_rec.customer_id is NULL THEN
203: BEGIN
204: --
205: IF (l_debug <> -1) THEN
206: rlm_core_sv.dpush(C_SDEBUG,'CheckHeaderECETpLocCode');
207: rlm_core_sv.dlog(C_DEBUG,'x_header_rec', x_header_rec.header_id);
208: END IF;
209: --
210: IF x_header_rec.customer_id is NULL THEN
211: --
217: --
218: v_progress := '020';
219: --
220: IF (l_debug <> -1) THEN
221: rlm_core_sv.dlog(C_DEBUG,'start of loop to check related ship to');
222: END IF;
223: --
224: WHILE FetchGroup(v_Group_ref, v_Group_rec) LOOP
225: --
225: --
226: IF x_header_rec.customer_ext IS NOT NULL THEN
227: --
228: IF (l_debug <> -1) THEN
229: rlm_core_sv.dlog(C_DEBUG,'customer_ext ',x_header_rec.customer_ext);
230: END IF;
231: --
232: v_Customer := x_header_rec.customer_ext;
233: --
233: --
234: ELSIF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
235: --
236: IF (l_debug <> -1) THEN
237: rlm_core_sv.dlog(C_DEBUG,'ece_tp_translator_code',
238: x_header_rec.ece_tp_translator_code);
239: END IF;
240: --
241: v_Customer := x_header_rec.ece_tp_translator_code;
252: --
253: END IF;
254: --
255: IF (l_debug <> -1) THEN
256: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',
257: v_group_rec.cust_ship_to_ext);
258: END IF;
259: --
260: ece_trading_partners_pub.get_tp_address(1, NULL, NULL, NULL,
266: v_shipToCustomerId,
267: v_shipToAddressId);
268: --
269: IF (l_debug <> -1) THEN
270: rlm_core_sv.dlog(C_DEBUG,'customer_id ', v_shipToCustomerId);
271: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', v_shipToAddressId);
272: END IF;
273: --
274: IF v_shipToCustomerId is NULL THEN
267: v_shipToAddressId);
268: --
269: IF (l_debug <> -1) THEN
270: rlm_core_sv.dlog(C_DEBUG,'customer_id ', v_shipToCustomerId);
271: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', v_shipToAddressId);
272: END IF;
273: --
274: IF v_shipToCustomerId is NULL THEN
275: --
308: x_header_rec.customer_id := v_shipToCustomerId;
309: --
310: END IF;
311: --
312: x_returnStatus := rlm_core_sv.k_PROC_SUCCESS;
313: --
314: IF (l_debug <> -1) THEN
315: rlm_core_sv.dpop(C_SDEBUG);
316: END IF;
311: --
312: x_returnStatus := rlm_core_sv.k_PROC_SUCCESS;
313: --
314: IF (l_debug <> -1) THEN
315: rlm_core_sv.dpop(C_SDEBUG);
316: END IF;
317:
318: EXCEPTION
319: WHEN e_NullCustomerExt THEN
317:
318: EXCEPTION
319: WHEN e_NullCustomerExt THEN
320: --
321: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
322: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
323: --
324: rlm_message_sv.app_error(
325: x_ExceptionLevel => rlm_message_sv.k_error_level,
318: EXCEPTION
319: WHEN e_NullCustomerExt THEN
320: --
321: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
322: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
323: --
324: rlm_message_sv.app_error(
325: x_ExceptionLevel => rlm_message_sv.k_error_level,
326: x_MessageName => 'RLM_CUSTOMER_NULL',
327: x_InterfaceHeaderId => x_header_rec.header_id,
328: x_ValidationType => 'CUSTOMER');
329: --
330: IF (l_debug <> -1) THEN
331: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
332: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_NULL');
333: END IF;
334: --
335: WHEN e_NullHeaderLocCode THEN
328: x_ValidationType => 'CUSTOMER');
329: --
330: IF (l_debug <> -1) THEN
331: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
332: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_NULL');
333: END IF;
334: --
335: WHEN e_NullHeaderLocCode THEN
336: --
333: END IF;
334: --
335: WHEN e_NullHeaderLocCode THEN
336: --
337: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
338: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
339: --
340: rlm_message_sv.app_error(
341: x_ExceptionLevel => rlm_message_sv.k_error_level,
334: --
335: WHEN e_NullHeaderLocCode THEN
336: --
337: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
338: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
339: --
340: rlm_message_sv.app_error(
341: x_ExceptionLevel => rlm_message_sv.k_error_level,
342: x_MessageName => 'RLM_SCH_NULL_LOC_CODE_CR',
345: x_value1 => x_header_rec.ece_tp_translator_code,
346: x_ValidationType => 'CUSTOMER');
347: --
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_SCH_NULL_LOC_CODE_CR ',v_Progress);
350: rlm_core_sv.dpop(C_SDEBUG);
351: END IF;
352: --
353: WHEN NO_DATA_FOUND OR e_InvalidTPLocCode THEN
346: x_ValidationType => 'CUSTOMER');
347: --
348: IF (l_debug <> -1) THEN
349: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_SCH_NULL_LOC_CODE_CR ',v_Progress);
350: rlm_core_sv.dpop(C_SDEBUG);
351: END IF;
352: --
353: WHEN NO_DATA_FOUND OR e_InvalidTPLocCode THEN
354: --
351: END IF;
352: --
353: WHEN NO_DATA_FOUND OR e_InvalidTPLocCode THEN
354: --
355: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
356: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
357: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
358: --
359: IF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
352: --
353: WHEN NO_DATA_FOUND OR e_InvalidTPLocCode THEN
354: --
355: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
356: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
357: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
358: --
359: IF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
360: --
353: WHEN NO_DATA_FOUND OR e_InvalidTPLocCode THEN
354: --
355: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
356: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
357: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
358: --
359: IF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
360: --
361: rlm_message_sv.app_error(
368: x_value2=>v_group_rec.cust_ship_to_ext,
369: x_ValidationType => 'CUSTOMER');
370: --
371: IF (l_debug <> -1) THEN
372: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
373: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_SHIPTO_INVALID');
374: END IF;
375: --
376: ELSE
369: x_ValidationType => 'CUSTOMER');
370: --
371: IF (l_debug <> -1) THEN
372: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
373: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_SHIPTO_INVALID');
374: END IF;
375: --
376: ELSE
377: --
385: x_value2=>v_group_rec.cust_ship_to_ext,
386: x_ValidationType => 'CUSTOMER');
387: --
388: IF (l_debug <> -1) THEN
389: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
390: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_SHIP_TO_INVALID');
391: END IF;
392: --
393: END IF;
386: x_ValidationType => 'CUSTOMER');
387: --
388: IF (l_debug <> -1) THEN
389: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
390: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_SHIP_TO_INVALID');
391: END IF;
392: --
393: END IF;
394: --
393: END IF;
394: --
395: WHEN e_NullShipToExt THEN
396: --
397: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
398: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
399: --
400: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
401: --
394: --
395: WHEN e_NullShipToExt THEN
396: --
397: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
398: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
399: --
400: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
401: --
402: rlm_message_sv.app_error(
396: --
397: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
398: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
399: --
400: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
401: --
402: rlm_message_sv.app_error(
403: x_ExceptionLevel => rlm_message_sv.k_error_level,
404: x_MessageName => 'RLM_SHIPTO_NULL',
407: x_value1=>v_Customer,
408: x_ValidationType => 'CUSTOMER');
409: --
410: IF (l_debug <> -1) THEN
411: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_SHIPTO_NULL ',v_Progress);
412: rlm_core_sv.dpop(C_SDEBUG);
413: END IF;
414: --
415: WHEN OTHERS THEN
408: x_ValidationType => 'CUSTOMER');
409: --
410: IF (l_debug <> -1) THEN
411: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_SHIPTO_NULL ',v_Progress);
412: rlm_core_sv.dpop(C_SDEBUG);
413: END IF;
414: --
415: WHEN OTHERS THEN
416: --
413: END IF;
414: --
415: WHEN OTHERS THEN
416: --
417: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
418: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
419: rlm_message_sv.sql_error('rlm_validatedemand_sv.CheckHeaderECETpLocCode', v_Progress);
420: --
421: IF (l_debug <> -1) THEN
414: --
415: WHEN OTHERS THEN
416: --
417: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
418: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
419: rlm_message_sv.sql_error('rlm_validatedemand_sv.CheckHeaderECETpLocCode', v_Progress);
420: --
421: IF (l_debug <> -1) THEN
422: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
418: x_returnStatus := rlm_core_sv.k_PROC_ERROR;
419: rlm_message_sv.sql_error('rlm_validatedemand_sv.CheckHeaderECETpLocCode', v_Progress);
420: --
421: IF (l_debug <> -1) THEN
422: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
423: END IF;
424: --
425: END CheckHeaderECETpLocCode;
426:
449: --
450: BEGIN
451: --
452: IF (l_debug <> -1) THEN
453: rlm_core_sv.dpush(C_SDEBUG,'GroupValidateDemand');
454: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
455: END IF;
456: --
457: -- we start with a schedule process status of an error
450: BEGIN
451: --
452: IF (l_debug <> -1) THEN
453: rlm_core_sv.dpush(C_SDEBUG,'GroupValidateDemand');
454: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
455: END IF;
456: --
457: -- we start with a schedule process status of an error
458: -- if we find any one of the lines to be a success then we will
459: -- update the status to success in UpdateInterfaceLines.
460: -- This value of g_schedule_PS will be used to update the header PS
461: -- IF no success record found then g_schedule_PS will remain as an ERROR
462: --
463: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
464: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
465: --
466: rlm_message_sv.initialize_dependency('VALIDATE_DEMAND');
467: --
460: -- This value of g_schedule_PS will be used to update the header PS
461: -- IF no success record found then g_schedule_PS will remain as an ERROR
462: --
463: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
464: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
465: --
466: rlm_message_sv.initialize_dependency('VALIDATE_DEMAND');
467: --
468: IF NOT BuildHeaderRec(x_header_id) THEN
480: v_progress := '025';
481: --
482: CheckHeaderECETpLocCode(g_header_rec, x_ReturnStatus);
483: --
484: IF x_ReturnStatus = rlm_core_sv.k_PROC_ERROR THEN
485: raise e_error_found;
486: END IF;
487: --
488: InitializeGroup(x_header_id, v_Group_ref);
489: --
490: v_progress := '030';
491: --
492: IF (l_debug <> -1) THEN
493: rlm_core_sv.dlog(C_DEBUG,'start of loop');
494: END IF;
495: --
496: WHILE FetchGroup(v_Group_ref, v_Group_rec) LOOP
497: --
499: --
500: v_progress := '040';
501: --
502: IF (l_debug <> -1) THEN
503: rlm_core_sv.dlog(C_DEBUG,'v_Group_rec.group_type',
504: v_Group_rec.group_type);
505: rlm_core_sv.dlog(C_DEBUG,'v_Group_rec.schedule_item_num',
506: v_Group_rec.schedule_item_num);
507: END IF;
501: --
502: IF (l_debug <> -1) THEN
503: rlm_core_sv.dlog(C_DEBUG,'v_Group_rec.group_type',
504: v_Group_rec.group_type);
505: rlm_core_sv.dlog(C_DEBUG,'v_Group_rec.schedule_item_num',
506: v_Group_rec.schedule_item_num);
507: END IF;
508: --
509: PopulateLinesTab(v_Group_rec);
515: -- the entire grouping of lines in assign_line_values
516: v_progress := '070';
517: --
518: IF (l_debug <> -1) THEN
519: rlm_core_sv.dlog (C_DEBUG,'before Group Validate loop/ COUNT',
520: g_lines_tab.COUNT );
521: END IF;
522: --
523: v_first_time := TRUE;
534: --
535: curr_rec := i;
536: --
537: IF (l_debug <> -1) THEN
538: rlm_core_sv.dlog (C_DEBUG,'Processing line' , g_lines_tab(i).line_id);
539: rlm_core_sv.dlog(C_DEBUG, 'Index i', i);
540: END IF;
541:
542: --perf code some ids are derived per group only once
535: curr_rec := i;
536: --
537: IF (l_debug <> -1) THEN
538: rlm_core_sv.dlog (C_DEBUG,'Processing line' , g_lines_tab(i).line_id);
539: rlm_core_sv.dlog(C_DEBUG, 'Index i', i);
540: END IF;
541:
542: --perf code some ids are derived per group only once
543:
553: --
554: IF(NVL(g_lines_tab(i).cust_ship_to_ext,1) = NVL(g_lines_tab(1).cust_ship_to_ext,1)) THEN
555: --
556: IF (l_debug <> -1) THEN
557: rlm_core_sv.dlog(C_DEBUG, 'Line in same group, so copy IDs from first line');
558: END IF;
559: --
560: g_lines_tab(i).ship_to_address_id := NVL(g_lines_tab(1).ship_to_address_id, g_lines_tab(i).ship_to_address_id);
561: --
570: --
571: ELSE
572: --
573: IF (l_debug <> -1) THEN
574: rlm_core_sv.dlog(C_DEBUG, 'Line in different group, so derive IDs again');
575: END IF;
576: --
577: DeriveCustomerID(g_header_rec,g_lines_tab(i)) ;
578: DeriveShipToID(g_header_rec, g_lines_tab(i));
592: g_lines_tab(i),
593: v_Group_rec);
594: --
595: IF (l_debug <> -1) THEN
596: rlm_core_sv.dlog (C_DEBUG,'after DeriveIDs/before CallSetups');
597: END IF;
598: --
599: v_progress := '080';
600: --
602: --
603: IF NOT CallSetups(v_Group_rec, g_header_rec, g_lines_tab(i)) THEN
604: --
605: IF (l_debug <> -1) THEN
606: rlm_core_sv.dlog (C_DEBUG,'Setup API failed for line ', g_lines_tab(i).line_id);
607: END IF;
608: --
609: g_lines_tab(i).process_status := rlm_core_sv.k_PS_ERROR;
610: --RAISE setupterms_APIFailed; --continue processing other lines
605: IF (l_debug <> -1) THEN
606: rlm_core_sv.dlog (C_DEBUG,'Setup API failed for line ', g_lines_tab(i).line_id);
607: END IF;
608: --
609: g_lines_tab(i).process_status := rlm_core_sv.k_PS_ERROR;
610: --RAISE setupterms_APIFailed; --continue processing other lines
611: --
612: END IF;
613: --
617:
618: IF NOT CallSetups(v_Group_rec, g_header_rec, g_lines_tab(i)) THEN
619: --
620: IF (l_debug <> -1) THEN
621: rlm_core_sv.dlog (C_DEBUG,'Setup API failed for line ', g_lines_tab(i).line_id);
622: END IF;
623: --
624: g_lines_tab(i).process_status := rlm_core_sv.k_PS_ERROR;
625: --RAISE setupterms_APIFailed; --continue processing other lines
620: IF (l_debug <> -1) THEN
621: rlm_core_sv.dlog (C_DEBUG,'Setup API failed for line ', g_lines_tab(i).line_id);
622: END IF;
623: --
624: g_lines_tab(i).process_status := rlm_core_sv.k_PS_ERROR;
625: --RAISE setupterms_APIFailed; --continue processing other lines
626: --
627: END IF;
628: --
684: --
685: END IF;
686: --
687: IF (l_debug <> -1) THEN
688: rlm_core_sv.dlog (C_DEBUG,'process_status',g_lines_tab(i).process_status);
689: END IF;
690: --
691: RLM_TPA_SV.ValidateLineDetails(v_Group_rec.setup_terms_rec,
692: g_header_rec,
725: --
726: IF NOT ValidateBlanket(v_Group_rec, g_Header_rec) THEN
727: --
728: IF (l_debug <> -1) THEN
729: rlm_core_sv.dlog(C_DEBUG, 'ValidateBlanket failed');
730: END IF;
731: --
732: g_lines_tab(1).process_status := rlm_core_sv.k_PS_ERROR;
733: RAISE e_InactiveBlanket;
728: IF (l_debug <> -1) THEN
729: rlm_core_sv.dlog(C_DEBUG, 'ValidateBlanket failed');
730: END IF;
731: --
732: g_lines_tab(1).process_status := rlm_core_sv.k_PS_ERROR;
733: RAISE e_InactiveBlanket;
734: --
735: END IF;
736: --
753: --
754: WHEN setupterms_APIFailed THEN
755: --
756: IF (l_debug <> -1) THEN
757: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
758: END IF;
759: /* update error status for the entire group */
760: RLM_TPA_SV.UpdateInterfaceLines(g_header_rec);
761: --
761: --
762: WHEN e_InactiveBlanket THEN
763: --
764: IF (l_debug <> -1) THEN
765: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
766: END IF;
767: --
768: RLM_TPA_SV.UpdateInterfaceLines(g_header_rec);
769: --
769: --
770: WHEN OTHERS THEN
771: --
772: IF (l_debug <> -1) THEN
773: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
774: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: LOOP '||SUBSTR(SQLERRM,1,200));
775: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
776: g_lines_tab(curr_rec).process_status);
777: END IF;
770: WHEN OTHERS THEN
771: --
772: IF (l_debug <> -1) THEN
773: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
774: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: LOOP '||SUBSTR(SQLERRM,1,200));
775: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
776: g_lines_tab(curr_rec).process_status);
777: END IF;
778: --
771: --
772: IF (l_debug <> -1) THEN
773: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
774: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: LOOP '||SUBSTR(SQLERRM,1,200));
775: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
776: g_lines_tab(curr_rec).process_status);
777: END IF;
778: --
779: g_lines_tab(curr_rec).process_status := rlm_core_sv.k_PS_ERROR;
775: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
776: g_lines_tab(curr_rec).process_status);
777: END IF;
778: --
779: g_lines_tab(curr_rec).process_status := rlm_core_sv.k_PS_ERROR;
780: --
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
783: g_lines_tab(curr_rec).process_status);
778: --
779: g_lines_tab(curr_rec).process_status := rlm_core_sv.k_PS_ERROR;
780: --
781: IF (l_debug <> -1) THEN
782: rlm_core_sv.dlog (C_DEBUG,'g_lines_tab(curr_rec).process_status',
783: g_lines_tab(curr_rec).process_status);
784: END IF;
785: --
786: /* update error status for the entire group */
793: CLOSE v_Group_ref;
794: --
795: --bug 1560271
796: --
797: IF g_header_rec.process_status = rlm_core_sv.k_PS_ERROR THEN
798: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
799: END IF;
800: --
801: UpdateInterfaceHeaders;
794: --
795: --bug 1560271
796: --
797: IF g_header_rec.process_status = rlm_core_sv.k_PS_ERROR THEN
798: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
799: END IF;
800: --
801: UpdateInterfaceHeaders;
802: --
801: UpdateInterfaceHeaders;
802: --
803: --commit;
804: --
805: x_procedure_status := rlm_core_sv.k_PROC_SUCCESS;
806: --
807: FOR i IN 1..rlm_message_sv.g_message_tab.COUNT LOOP
808: --
809: IF (l_debug <> -1) THEN
806: --
807: FOR i IN 1..rlm_message_sv.g_message_tab.COUNT LOOP
808: --
809: IF (l_debug <> -1) THEN
810: rlm_core_sv.dlog(C_DEBUG,'Message: ',
811: rlm_message_sv.g_message_tab(i).message_name);
812: END IF;
813: --
814: END LOOP;
815: --
816: --commit;
817: --
818: IF (l_debug <> -1) THEN
819: rlm_core_sv.dpop(C_SDEBUG);
820: END IF;
821: --
822: EXCEPTION
823: --
822: EXCEPTION
823: --
824: WHEN e_error_found THEN
825: --
826: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
827: --
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
830: rlm_core_sv.dpop(C_SDEBUG);
825: --
826: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
827: --
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
830: rlm_core_sv.dpop(C_SDEBUG);
831: END IF;
832: --
833: --added by asutar
826: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
827: --
828: IF (l_debug <> -1) THEN
829: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
830: rlm_core_sv.dpop(C_SDEBUG);
831: END IF;
832: --
833: --added by asutar
834: UpdateInterfaceHeaders;
835: --commit;
836: --
837: WHEN NO_DATA_FOUND THEN
838: --
839: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
840: --
841: IF (l_debug <> -1) THEN
842: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
843: rlm_core_sv.dpop(C_SDEBUG);
838: --
839: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
840: --
841: IF (l_debug <> -1) THEN
842: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
843: rlm_core_sv.dpop(C_SDEBUG);
844: END IF;
845: --
846: --added by asutar
839: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
840: --
841: IF (l_debug <> -1) THEN
842: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
843: rlm_core_sv.dpop(C_SDEBUG);
844: END IF;
845: --
846: --added by asutar
847: UpdateInterfaceHeaders;
848: --commit;
849: --
850: WHEN e_no_record_found THEN
851: --
852: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
853: --
854: IF (l_debug <> -1) THEN
855: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
856: rlm_core_sv.dpop(C_SDEBUG);
851: --
852: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
853: --
854: IF (l_debug <> -1) THEN
855: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
856: rlm_core_sv.dpop(C_SDEBUG);
857: END IF;
858: --
859: --added by asutar
852: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
853: --
854: IF (l_debug <> -1) THEN
855: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
856: rlm_core_sv.dpop(C_SDEBUG);
857: END IF;
858: --
859: --added by asutar
860: UpdateInterfaceHeaders;
861: --commit;
862: --
863: WHEN OTHERS THEN
864: --
865: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
866: rlm_message_sv.sql_error('rlm_validatedemand_sv.GroupValidateDemand', v_Progress);
867: --
868: IF (l_debug <> -1) THEN
869: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
865: x_procedure_status := rlm_core_sv.k_PROC_ERROR;
866: rlm_message_sv.sql_error('rlm_validatedemand_sv.GroupValidateDemand', v_Progress);
867: --
868: IF (l_debug <> -1) THEN
869: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
870: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
871: END IF;
872: --
873: --added by asutar
866: rlm_message_sv.sql_error('rlm_validatedemand_sv.GroupValidateDemand', v_Progress);
867: --
868: IF (l_debug <> -1) THEN
869: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
870: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
871: END IF;
872: --
873: --added by asutar
874: UpdateInterfaceHeaders;
896: --
897: IF rlm_message_sv.check_dependency('VALIDATE_LINES') THEN
898: --
899: IF (l_debug <> -1) THEN
900: rlm_core_sv.dpush(C_SDEBUG,'ValidateLineDetails');
901: END IF;
902: --
903: IF x_line_source = k_ORIGINAL THEN
904: --
947: --
948: v_progress := '060';
949: --
950: IF (l_debug <> -1) THEN
951: rlm_core_sv.dpop(C_SDEBUG);
952: END IF;
953: --
954: END IF;
955: --
955: --
956: EXCEPTION
957: WHEN OTHERS THEN
958: --
959: --x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
960: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateLineDetails',
961: v_Progress);
962: --
963: IF (l_debug <> -1) THEN
960: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateLineDetails',
961: v_Progress);
962: --
963: IF (l_debug <> -1) THEN
964: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
965: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
966: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
967: END IF;
968: --
961: v_Progress);
962: --
963: IF (l_debug <> -1) THEN
964: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
965: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
966: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
967: END IF;
968: --
969: raise;
962: --
963: IF (l_debug <> -1) THEN
964: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
965: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
966: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
967: END IF;
968: --
969: raise;
970: --
1024:
1025: IF rlm_message_sv.check_dependency('ORDER_HEADER') THEN
1026: --
1027: IF (l_debug <> -1) THEN
1028: rlm_core_sv.dpush(C_SDEBUG,'ValidOrderHeaderId');
1029: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Order_header_Id',
1030: x_lines_rec.Order_header_Id);
1031: END IF;
1032: --
1025: IF rlm_message_sv.check_dependency('ORDER_HEADER') THEN
1026: --
1027: IF (l_debug <> -1) THEN
1028: rlm_core_sv.dpush(C_SDEBUG,'ValidOrderHeaderId');
1029: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Order_header_Id',
1030: x_lines_rec.Order_header_Id);
1031: END IF;
1032: --
1033: IF x_lines_rec.cust_order_num_ext IS NULL THEN
1032: --
1033: IF x_lines_rec.cust_order_num_ext IS NULL THEN
1034: --{
1035: IF (l_debug <> -1) THEN
1036: rlm_core_sv.dlog('Order Number on Schedule is Null ');
1037: rlm_core_sv.dlog('Order Header Id Null. Using default Setup.');
1038: END IF;
1039: --
1040: IF x_setup_terms_rec.header_id IS NOT NULL THEN
1033: IF x_lines_rec.cust_order_num_ext IS NULL THEN
1034: --{
1035: IF (l_debug <> -1) THEN
1036: rlm_core_sv.dlog('Order Number on Schedule is Null ');
1037: rlm_core_sv.dlog('Order Header Id Null. Using default Setup.');
1038: END IF;
1039: --
1040: IF x_setup_terms_rec.header_id IS NOT NULL THEN
1041: --{
1041: --{
1042: x_lines_rec.Order_header_id := x_setup_terms_rec.header_id;
1043: --
1044: IF (l_debug <> -1) THEN
1045: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1046: END IF;
1047: --
1048: SELECT open_flag, order_number
1049: INTO v_OpenFlag, v_OrderNumber
1050: FROM oe_order_headers_all
1051: WHERE header_id = x_lines_rec.Order_header_id;
1052: --
1053: IF (l_debug <> -1) THEN
1054: rlm_core_sv.dlog(C_DEBUG,'v_OpenFlag',v_OpenFlag);
1055: rlm_core_sv.dlog(C_DEBUG, 'v_OrderNumber', v_OrderNumber);
1056: END IF;
1057: --
1058: IF v_OpenFlag = 'N' then
1051: WHERE header_id = x_lines_rec.Order_header_id;
1052: --
1053: IF (l_debug <> -1) THEN
1054: rlm_core_sv.dlog(C_DEBUG,'v_OpenFlag',v_OpenFlag);
1055: rlm_core_sv.dlog(C_DEBUG, 'v_OrderNumber', v_OrderNumber);
1056: END IF;
1057: --
1058: IF v_OpenFlag = 'N' then
1059: --
1071: --{
1072: BEGIN
1073: --{
1074: IF (l_debug <> -1) THEN
1075: rlm_core_sv.dlog('Order Number on schedule not Null ');
1076: rlm_core_sv.dlog(C_DEBUG,'cust_order_num_ext',
1077: x_lines_rec.cust_order_num_ext);
1078: END IF;
1079: --
1072: BEGIN
1073: --{
1074: IF (l_debug <> -1) THEN
1075: rlm_core_sv.dlog('Order Number on schedule not Null ');
1076: rlm_core_sv.dlog(C_DEBUG,'cust_order_num_ext',
1077: x_lines_rec.cust_order_num_ext);
1078: END IF;
1079: --
1080: IF x_setup_terms_rec.header_id IS NOT NULL THEN
1084: FROM oe_order_headers_all
1085: WHERE header_id = x_setup_terms_rec.header_id;
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog('From setup terms');
1089: rlm_core_sv.dlog(C_DEBUG,'v_Ordernumber', v_Ordernumber);
1090: rlm_core_sv.dlog(C_DEBUG,'v_OpenFlag', v_OpenFlag);
1091: END IF;
1092: --
1085: WHERE header_id = x_setup_terms_rec.header_id;
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog('From setup terms');
1089: rlm_core_sv.dlog(C_DEBUG,'v_Ordernumber', v_Ordernumber);
1090: rlm_core_sv.dlog(C_DEBUG,'v_OpenFlag', v_OpenFlag);
1091: END IF;
1092: --
1093: BEGIN
1086: --
1087: IF (l_debug <> -1) THEN
1088: rlm_core_sv.dlog('From setup terms');
1089: rlm_core_sv.dlog(C_DEBUG,'v_Ordernumber', v_Ordernumber);
1090: rlm_core_sv.dlog(C_DEBUG,'v_OpenFlag', v_OpenFlag);
1091: END IF;
1092: --
1093: BEGIN
1094: --{
1094: --{
1095: IF to_number(x_lines_rec.cust_order_num_ext) <> v_Ordernumber THEN
1096: --
1097: IF (l_debug <> -1) THEN
1098: rlm_core_sv.dlog('Order Mismatch found, between setup terms and order number on schedule');
1099: END IF;
1100: --
1101: raise e_OrderIDMismatch;
1102: --
1104: --
1105: IF v_OpenFlag = 'N' THEN
1106: --
1107: IF (l_debug <> -1) THEN
1108: rlm_core_sv.dlog(C_DEBUG, 'Order is closed');
1109: END IF;
1110: --
1111: RAISE e_OrderClosed;
1112: --
1131: --
1132: x_lines_rec.Order_header_id := x_setup_terms_rec.header_id;
1133: --
1134: IF (l_debug <> -1) THEN
1135: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',
1136: x_lines_rec.Order_header_Id);
1137: END IF;
1138: --}
1139: ELSE
1146: --
1147: WHEN NO_DATA_FOUND THEN
1148: --
1149: IF (l_debug <> -1) THEN
1150: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: e_SetupOrderMissing');
1151: END IF;
1152: --
1153: raise e_SetupOrderMissing;
1154: --
1163: x_value1=>x_lines_rec.cust_order_num_ext,
1164: x_ValidationType => 'ORDER_HEADER');
1165: --
1166: IF (l_debug <> -1) THEN
1167: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: INVALID_NUMBER');
1168: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_WARN_ORDER_INVALID_NUMBER');
1169: END IF;
1170: --
1171: WHEN e_SetupOrderMissing THEN
1164: x_ValidationType => 'ORDER_HEADER');
1165: --
1166: IF (l_debug <> -1) THEN
1167: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: INVALID_NUMBER');
1168: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_WARN_ORDER_INVALID_NUMBER');
1169: END IF;
1170: --
1171: WHEN e_SetupOrderMissing THEN
1172: --
1173: raise;
1174: --
1175: WHEN OTHERS THEN
1176: --
1177: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1178: --
1179: IF (l_debug <> -1) THEN
1180: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: ValidOrderHeader'||SUBSTR(SQLERRM,1,200));
1181: END IF;
1176: --
1177: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1178: --
1179: IF (l_debug <> -1) THEN
1180: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: ValidOrderHeader'||SUBSTR(SQLERRM,1,200));
1181: END IF;
1182: --
1183: raise ;
1184: --}
1186: --}
1187: END IF;
1188: --
1189: IF (l_debug <> -1) THEN
1190: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1191: END IF;
1192: --
1193: IF (l_debug <> -1) THEN
1194: rlm_core_sv.dpop(C_SDEBUG);
1190: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1191: END IF;
1192: --
1193: IF (l_debug <> -1) THEN
1194: rlm_core_sv.dpop(C_SDEBUG);
1195: END IF;
1196: --
1197: END IF;
1198:
1199: EXCEPTION
1200: --
1201: WHEN NO_DATA_FOUND THEN
1202: --
1203: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1204: --
1205: rlm_message_sv.app_error(
1206: x_ExceptionLevel => rlm_message_sv.k_error_level,
1207: x_MessageName => 'RLM_SALES_ORDER_MISSING',
1209: x_InterfaceLineId => x_lines_rec.line_id,
1210: x_ValidationType => 'ORDER_HEADER');
1211: --
1212: IF (l_debug <> -1) THEN
1213: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SALES_ORDER_MISSING');
1214: END IF;
1215: --
1216: WHEN e_SalesOrderMissing THEN
1217: --
1214: END IF;
1215: --
1216: WHEN e_SalesOrderMissing THEN
1217: --
1218: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1219: --
1220: rlm_message_sv.app_error(
1221: x_ExceptionLevel => rlm_message_sv.k_error_level,
1222: x_MessageName => 'RLM_SALES_ORDER_MISSING',
1224: x_InterfaceLineId => x_lines_rec.line_id,
1225: x_ValidationType => 'ORDER_HEADER');
1226: --
1227: IF (l_debug <> -1) THEN
1228: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SALES_ORDER_MISSING');
1229: END IF;
1230: --
1231: WHEN e_SetupOrderMissing THEN
1232: --
1229: END IF;
1230: --
1231: WHEN e_SetupOrderMissing THEN
1232: --
1233: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1234: --
1235: rlm_message_sv.app_error(
1236: x_ExceptionLevel => rlm_message_sv.k_error_level,
1237: x_MessageName => 'RLM_SETUP_ORDER_MISSING',
1239: x_InterfaceLineId => x_lines_rec.line_id,
1240: x_ValidationType => 'ORDER_HEADER');
1241: --
1242: IF (l_debug <> -1) THEN
1243: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SETUP_ORDER_MISSING');
1244: END IF;
1245: --
1246: WHEN e_NoOrderDefined THEN
1247: --
1244: END IF;
1245: --
1246: WHEN e_NoOrderDefined THEN
1247: --
1248: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1249: --
1250: --
1251: -- Fetch relevant Cust_Order_num_ext for given header Id for error message
1252: rlm_message_sv.app_error(
1258: x_value1=>x_lines_rec.cust_order_num_ext,
1259: x_ValidationType => 'ORDER_HEADER');
1260: --
1261: IF (l_debug <> -1) THEN
1262: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1263: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SALES_ORDER_UNDEFINED');
1264: END IF;
1265: --
1266: WHEN e_OrderClosed THEN
1259: x_ValidationType => 'ORDER_HEADER');
1260: --
1261: IF (l_debug <> -1) THEN
1262: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1263: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SALES_ORDER_UNDEFINED');
1264: END IF;
1265: --
1266: WHEN e_OrderClosed THEN
1267: --
1264: END IF;
1265: --
1266: WHEN e_OrderClosed THEN
1267: --
1268: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1269: --
1270: rlm_message_sv.app_error(
1271: x_ExceptionLevel => rlm_message_sv.k_error_level,
1272: x_MessageName => 'RLM_SALES_ORDER_CLOSED',
1276: x_value1=>v_OrderNumber,
1277: x_ValidationType => 'ORDER_HEADER');
1278: --
1279: IF (l_debug <> -1) THEN
1280: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SALES_ORDER_CLOSED');
1281: END IF;
1282: --
1283: WHEN e_OrderIDMismatch THEN
1284: --
1281: END IF;
1282: --
1283: WHEN e_OrderIDMismatch THEN
1284: --
1285: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1286: --
1287: rlm_message_sv.app_error(
1288: x_ExceptionLevel => rlm_message_sv.k_error_level,
1289: x_MessageName => 'RLM_ORDER_ID_MISMATCH',
1295: x_value2=>GetOrderNumber(x_setup_terms_rec.header_id),
1296: x_ValidationType => 'ORDER_HEADER');
1297:
1298: IF (l_debug <> -1) THEN
1299: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1300: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.header_id',x_setup_terms_rec.header_id);
1301: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ORDER_ID_MISMATCH');
1302: END IF;
1303:
1296: x_ValidationType => 'ORDER_HEADER');
1297:
1298: IF (l_debug <> -1) THEN
1299: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1300: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.header_id',x_setup_terms_rec.header_id);
1301: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ORDER_ID_MISMATCH');
1302: END IF;
1303:
1304: WHEN OTHERS THEN
1297:
1298: IF (l_debug <> -1) THEN
1299: rlm_core_sv.dlog(C_DEBUG,'Order_header_Id',x_lines_rec.Order_header_Id);
1300: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.header_id',x_setup_terms_rec.header_id);
1301: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ORDER_ID_MISMATCH');
1302: END IF;
1303:
1304: WHEN OTHERS THEN
1305: --
1302: END IF;
1303:
1304: WHEN OTHERS THEN
1305: --
1306: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1307: --
1308: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidOrderHeaderId',
1309: v_Progress);
1310: --
1308: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidOrderHeaderId',
1309: v_Progress);
1310: --
1311: IF (l_debug <> -1) THEN
1312: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
1313: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1314: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1315: END IF;
1316: --
1309: v_Progress);
1310: --
1311: IF (l_debug <> -1) THEN
1312: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
1313: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1314: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1315: END IF;
1316: --
1317: raise;
1310: --
1311: IF (l_debug <> -1) THEN
1312: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
1313: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1314: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1315: END IF;
1316: --
1317: raise;
1318: --
1355: BEGIN
1356: IF rlm_message_sv.check_dependency('UOM_CODE') THEN
1357: --
1358: IF (l_debug <> -1) THEN
1359: rlm_core_sv.dpush(C_SDEBUG,'ValidateUOM');
1360: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.uom_code',x_lines_rec.UOM_CODE);
1361: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.INVENTORY_ITEM_ID',x_lines_rec.INVENTORY_ITEM_ID);
1362: --global_atp
1363: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',x_lines_rec.ship_from_org_id);
1356: IF rlm_message_sv.check_dependency('UOM_CODE') THEN
1357: --
1358: IF (l_debug <> -1) THEN
1359: rlm_core_sv.dpush(C_SDEBUG,'ValidateUOM');
1360: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.uom_code',x_lines_rec.UOM_CODE);
1361: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.INVENTORY_ITEM_ID',x_lines_rec.INVENTORY_ITEM_ID);
1362: --global_atp
1363: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',x_lines_rec.ship_from_org_id);
1364: END IF;
1357: --
1358: IF (l_debug <> -1) THEN
1359: rlm_core_sv.dpush(C_SDEBUG,'ValidateUOM');
1360: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.uom_code',x_lines_rec.UOM_CODE);
1361: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.INVENTORY_ITEM_ID',x_lines_rec.INVENTORY_ITEM_ID);
1362: --global_atp
1363: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',x_lines_rec.ship_from_org_id);
1364: END IF;
1365: --
1359: rlm_core_sv.dpush(C_SDEBUG,'ValidateUOM');
1360: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.uom_code',x_lines_rec.UOM_CODE);
1361: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.INVENTORY_ITEM_ID',x_lines_rec.INVENTORY_ITEM_ID);
1362: --global_atp
1363: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',x_lines_rec.ship_from_org_id);
1364: END IF;
1365: --
1366: OPEN c_uom ;
1367: --
1383: --
1384: x_lines_rec.primary_uom_code := v_Primary_UOM_Code;
1385: --
1386: IF (l_debug <> -1) THEN
1387: rlm_core_sv.dlog(C_DEBUG,'v_Primary_UOM_Code',v_Primary_UOM_Code);
1388: END IF;
1389: --
1390: v_Progress := '020';
1391: IF v_Primary_UOM_Code IS NULL THEN
1397: IF v_Primary_UOM_Code <> x_lines_rec.UOM_Code THEN
1398: g_convert_uom := TRUE;
1399: END IF;
1400: IF (l_debug <> -1) THEN
1401: rlm_core_sv.dlog(C_DEBUG,'g_convert_uom',g_convert_uom);
1402: END IF;
1403: --
1404:
1405: /* THIS CHECK IS NOT NEEDED AS OE ACCEPTS ANY UOM SENT IN
1414: AND b.UOM_CODE = x_lines_rec.UOM_Code
1415: AND a.UOM_CLASS = b.UOM_CLASS ;
1416: --
1417: IF (l_debug <> -1) THEN
1418: rlm_core_sv.dlog(C_DEBUG,'v_Count',v_Count);
1419: END IF;
1420: --
1421: IF v_Count < 1 THEN
1422: raise e_NoConvPrimary;
1424: END IF;
1425: */
1426: --
1427: IF (l_debug <> -1) THEN
1428: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1429: rlm_core_sv.dpop(C_SDEBUG);
1430: END IF;
1431: --
1432: END IF;
1425: */
1426: --
1427: IF (l_debug <> -1) THEN
1428: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1429: rlm_core_sv.dpop(C_SDEBUG);
1430: END IF;
1431: --
1432: END IF;
1433:
1433:
1434: EXCEPTION
1435: WHEN e_UOMInactive THEN
1436: --
1437: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1438: --
1439: rlm_message_sv.app_error(
1440: x_ExceptionLevel => rlm_message_sv.k_error_level,
1441: x_MessageName => 'RLM_UOM_INACTIVE',
1445: x_value1=>x_lines_rec.uom_code,
1446: x_ValidationType => 'UOM_CODE');
1447: --
1448: IF (l_debug <> -1) THEN
1449: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_UOM_INACTIVE ');
1450: END IF;
1451: --
1452: WHEN NO_DATA_FOUND THEN
1453: --
1450: END IF;
1451: --
1452: WHEN NO_DATA_FOUND THEN
1453: --
1454: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1455: --
1456: rlm_message_sv.app_error(
1457: x_ExceptionLevel => rlm_message_sv.k_error_level,
1458: x_MessageName => 'RLM_UOM_INVALID',
1462: x_value1=>x_lines_rec.uom_code,
1463: x_ValidationType => 'UOM_CODE');
1464: --
1465: IF (l_debug <> -1) THEN
1466: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_UOM_INVALID ');
1467: END IF;
1468: --
1469: WHEN e_PrimaryCodeMissing THEN
1470: --
1475: x_InterfaceLineId => x_lines_rec.line_id,
1476: x_ValidationType => 'UOM_CODE');
1477: --
1478: IF (l_debug <> -1) THEN
1479: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_WARN_NO_PRIMARY_UOM');
1480: END IF;
1481: --
1482: WHEN OTHERS THEN
1483: --
1480: END IF;
1481: --
1482: WHEN OTHERS THEN
1483: --
1484: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1485: --
1486: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidateUOM', v_Progress);
1487: --
1488: IF (l_debug <> -1) THEN
1485: --
1486: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidateUOM', v_Progress);
1487: --
1488: IF (l_debug <> -1) THEN
1489: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1490: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1491: END IF;
1492: --
1493: raise;
1486: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidateUOM', v_Progress);
1487: --
1488: IF (l_debug <> -1) THEN
1489: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1490: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1491: END IF;
1492: --
1493: raise;
1494: --
1512: --
1513: IF rlm_message_sv.check_dependency('DATE_RANGE') THEN
1514: --
1515: IF (l_debug <> -1) THEN
1516: rlm_core_sv.dpush(C_SDEBUG,'ValidDateRange');
1517: rlm_core_sv.dlog(C_DEBUG,'Horizon Start Date',
1518: x_header_rec.sched_horizon_start_date);
1519: rlm_core_sv.dlog(C_DEBUG,'Horizon End Date',
1520: x_header_rec.sched_horizon_end_date);
1513: IF rlm_message_sv.check_dependency('DATE_RANGE') THEN
1514: --
1515: IF (l_debug <> -1) THEN
1516: rlm_core_sv.dpush(C_SDEBUG,'ValidDateRange');
1517: rlm_core_sv.dlog(C_DEBUG,'Horizon Start Date',
1518: x_header_rec.sched_horizon_start_date);
1519: rlm_core_sv.dlog(C_DEBUG,'Horizon End Date',
1520: x_header_rec.sched_horizon_end_date);
1521: rlm_core_sv.dlog(C_DEBUG,'Start_Date_Time',
1515: IF (l_debug <> -1) THEN
1516: rlm_core_sv.dpush(C_SDEBUG,'ValidDateRange');
1517: rlm_core_sv.dlog(C_DEBUG,'Horizon Start Date',
1518: x_header_rec.sched_horizon_start_date);
1519: rlm_core_sv.dlog(C_DEBUG,'Horizon End Date',
1520: x_header_rec.sched_horizon_end_date);
1521: rlm_core_sv.dlog(C_DEBUG,'Start_Date_Time',
1522: x_lines_rec.start_date_time);
1523: rlm_core_sv.dlog(C_DEBUG,'End_Date_Time',
1517: rlm_core_sv.dlog(C_DEBUG,'Horizon Start Date',
1518: x_header_rec.sched_horizon_start_date);
1519: rlm_core_sv.dlog(C_DEBUG,'Horizon End Date',
1520: x_header_rec.sched_horizon_end_date);
1521: rlm_core_sv.dlog(C_DEBUG,'Start_Date_Time',
1522: x_lines_rec.start_date_time);
1523: rlm_core_sv.dlog(C_DEBUG,'End_Date_Time',
1524: x_lines_rec.end_date_time);
1525: END IF;
1519: rlm_core_sv.dlog(C_DEBUG,'Horizon End Date',
1520: x_header_rec.sched_horizon_end_date);
1521: rlm_core_sv.dlog(C_DEBUG,'Start_Date_Time',
1522: x_lines_rec.start_date_time);
1523: rlm_core_sv.dlog(C_DEBUG,'End_Date_Time',
1524: x_lines_rec.end_date_time);
1525: END IF;
1526: --
1527: IF (x_lines_rec.end_date_time is NOT NULL) AND
1549: --
1550: END IF;
1551: --
1552: IF (l_debug <> -1) THEN
1553: rlm_core_sv.dpop(C_SDEBUG);
1554: END IF;
1555: --
1556: END IF;
1557: --
1557: --
1558: EXCEPTION
1559: WHEN e_EndHorizonInv THEN
1560: --
1561: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1562: --
1563: rlm_message_sv.app_error(
1564: x_ExceptionLevel => rlm_message_sv.k_error_level,
1565: x_MessageName => 'RLM_END_HORIZON_INVALID',
1571: x_value2=>x_header_rec.sched_horizon_end_date,
1572: x_ValidationType => 'DATE_RANGE');
1573: --
1574: IF (l_debug <> -1) THEN
1575: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_END_HORIZON_INVALID');
1576: END IF;
1577: --
1578: WHEN e_StartDateInv THEN
1579: --
1576: END IF;
1577: --
1578: WHEN e_StartDateInv THEN
1579: --
1580: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1581: --
1582: rlm_message_sv.app_error(
1583: x_ExceptionLevel => rlm_message_sv.k_error_level,
1584: x_MessageName => 'RLM_START_DATE_NULL',
1586: x_InterfaceLineId => x_lines_rec.line_id,
1587: x_ValidationType => 'DATE_RANGE');
1588: --
1589: IF (l_debug <> -1) THEN
1590: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_START_DATE_NULL');
1591: END IF;
1592: --
1593: WHEN e_DateRangeInv THEN
1594: --
1591: END IF;
1592: --
1593: WHEN e_DateRangeInv THEN
1594: --
1595: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1596: rlm_message_sv.app_error(x_MessageName => 'RLM_DATE_RANGE_INVALID',
1597: x_InterfaceHeaderId => x_lines_rec.header_id,
1598: x_InterfaceLineId => x_lines_rec.line_id,
1599: x_token1=>'START_DATE_TIME',
1602: x_value2=>x_lines_rec.end_date_time,
1603: x_ValidationType => 'DATE_RANGE');
1604: --
1605: IF (l_debug <> -1) THEN
1606: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_DATE_RANGE_INVALID');
1607: END IF;
1608: --
1609: WHEN OTHERS THEN
1610: --
1607: END IF;
1608: --
1609: WHEN OTHERS THEN
1610: --
1611: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1612: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidDateRange',v_Progress);
1613: --
1614: IF (l_debug <> -1) THEN
1615: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1611: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1612: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidDateRange',v_Progress);
1613: --
1614: IF (l_debug <> -1) THEN
1615: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1616: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1617: END IF;
1618: --
1619: raise;
1612: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidDateRange',v_Progress);
1613: --
1614: IF (l_debug <> -1) THEN
1615: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1616: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1617: END IF;
1618: --
1619: raise;
1620: --
1635: --
1636: IF rlm_message_sv.check_dependency('DATE_TYPE_CODE') THEN
1637: --
1638: IF (l_debug <> -1) THEN
1639: rlm_core_sv.dpush(C_SDEBUG,'ValidDateTypeCode');
1640: END IF;
1641: --
1642: -- Allow custom date type values
1643: IF NOT x_lines_rec.item_detail_type in ('3','4','5') Then
1650: END IF;
1651: END IF;
1652: --
1653: IF (l_debug <> -1) THEN
1654: rlm_core_sv.dpop(C_SDEBUG);
1655: END IF;
1656: --
1657: END IF;
1658: --
1658: --
1659: EXCEPTION
1660: WHEN e_DateTypeInv THEN
1661: --
1662: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1663: --
1664: rlm_message_sv.app_error(
1665: x_ExceptionLevel => rlm_message_sv.k_error_level,
1666: x_MessageName => 'RLM_ITEM_DTL_DATE_TYPE_INVALID',
1670: x_value1=>x_lines_rec.date_type_code,
1671: x_ValidationType => 'DATE_TYPE_CODE');
1672: --
1673: IF (l_debug <> -1) THEN
1674: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ITEM_DTL_DATE_TYPE_INVALID');
1675: END IF;
1676: --
1677: WHEN OTHERS THEN
1678: --
1675: END IF;
1676: --
1677: WHEN OTHERS THEN
1678: --
1679: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1680: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidDateTypeCode: ',
1681: v_Progress);
1682: --
1683: IF (l_debug <> -1) THEN
1680: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidDateTypeCode: ',
1681: v_Progress);
1682: --
1683: IF (l_debug <> -1) THEN
1684: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1685: END IF;
1686: --
1687: raise;
1688: --
1704: --
1705: IF rlm_message_sv.check_dependency('ITEM_DETAIL_QUANTITY') THEN
1706: --
1707: IF (l_debug <> -1) THEN
1708: rlm_core_sv.dpush(C_SDEBUG,'ValidItemDetailQty');
1709: rlm_core_sv.dlog(C_DEBUG,'item_detail_quantity',
1710: x_lines_rec.item_detail_quantity);
1711: rlm_core_sv.dlog(C_DEBUG,'Item_detail_Type',x_lines_rec.item_detail_type);
1712: END IF;
1705: IF rlm_message_sv.check_dependency('ITEM_DETAIL_QUANTITY') THEN
1706: --
1707: IF (l_debug <> -1) THEN
1708: rlm_core_sv.dpush(C_SDEBUG,'ValidItemDetailQty');
1709: rlm_core_sv.dlog(C_DEBUG,'item_detail_quantity',
1710: x_lines_rec.item_detail_quantity);
1711: rlm_core_sv.dlog(C_DEBUG,'Item_detail_Type',x_lines_rec.item_detail_type);
1712: END IF;
1713: --
1707: IF (l_debug <> -1) THEN
1708: rlm_core_sv.dpush(C_SDEBUG,'ValidItemDetailQty');
1709: rlm_core_sv.dlog(C_DEBUG,'item_detail_quantity',
1710: x_lines_rec.item_detail_quantity);
1711: rlm_core_sv.dlog(C_DEBUG,'Item_detail_Type',x_lines_rec.item_detail_type);
1712: END IF;
1713: --
1714: -- allow null quantities on ATH segments (bug 1892891)
1715: --
1730: --
1731: v_progress := '030';
1732: --
1733: IF (l_debug <> -1) THEN
1734: rlm_core_sv.dpop(C_SDEBUG);
1735: END IF;
1736: --
1737: END IF;
1738: --
1738: --
1739: EXCEPTION
1740: WHEN e_QtyInvalid THEN
1741: --
1742: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1743: --
1744: rlm_message_sv.app_error(
1745: x_ExceptionLevel => rlm_message_sv.k_error_level,
1746: x_MessageName => 'RLM_ITEM_DETAIL_QTY_INVALID',
1750: x_value1=>x_lines_rec.item_detail_quantity,
1751: x_ValidationType => 'ITEM_DETAIL_QUANTITY');
1752: --
1753: IF (l_debug <> -1) THEN
1754: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ITEM_DETAIL_QTY_INVALID');
1755: END IF;
1756: --
1757: WHEN OTHERS THEN
1758: --
1755: END IF;
1756: --
1757: WHEN OTHERS THEN
1758: --
1759: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1760: --
1761: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailQty: ',
1762: v_Progress);
1763: --
1761: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailQty: ',
1762: v_Progress);
1763: --
1764: IF (l_debug <> -1) THEN
1765: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1766: END IF;
1767: --
1768: raise;
1769: --
1788: --
1789: BEGIN
1790: --
1791: IF (l_debug <> -1) THEN
1792: rlm_core_sv.dpush(C_SDEBUG,'ValidQtyTypeCode');
1793: END IF;
1794: --
1795: IF rlm_message_sv.check_dependency('QUANTITY_TYPE_CODE') THEN
1796: --
1794: --
1795: IF rlm_message_sv.check_dependency('QUANTITY_TYPE_CODE') THEN
1796: --
1797: IF (l_debug <> -1) THEN
1798: rlm_core_sv.dlog(C_DEBUG,'Qty_Type_Code',x_lines_rec.qty_type_code);
1799: rlm_core_sv.dlog(C_DEBUG,'Item_Detail_Type',x_lines_rec.item_detail_type);
1800: rlm_core_sv.dlog(C_DEBUG,'schedule_type',x_header_rec.schedule_type);
1801: END IF;
1802: --
1795: IF rlm_message_sv.check_dependency('QUANTITY_TYPE_CODE') THEN
1796: --
1797: IF (l_debug <> -1) THEN
1798: rlm_core_sv.dlog(C_DEBUG,'Qty_Type_Code',x_lines_rec.qty_type_code);
1799: rlm_core_sv.dlog(C_DEBUG,'Item_Detail_Type',x_lines_rec.item_detail_type);
1800: rlm_core_sv.dlog(C_DEBUG,'schedule_type',x_header_rec.schedule_type);
1801: END IF;
1802: --
1803:
1796: --
1797: IF (l_debug <> -1) THEN
1798: rlm_core_sv.dlog(C_DEBUG,'Qty_Type_Code',x_lines_rec.qty_type_code);
1799: rlm_core_sv.dlog(C_DEBUG,'Item_Detail_Type',x_lines_rec.item_detail_type);
1800: rlm_core_sv.dlog(C_DEBUG,'schedule_type',x_header_rec.schedule_type);
1801: END IF;
1802: --
1803:
1804: -- Allow custom qty type codes
1836: --
1837: --END IF;
1838: --
1839: IF (l_debug <> -1) THEN
1840: rlm_core_sv.dpop(C_SDEBUG);
1841: END IF;
1842: --
1843: EXCEPTION
1844: --
1843: EXCEPTION
1844: --
1845: WHEN e_NoCum THEN
1846: --
1847: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1848: --
1849: rlm_message_sv.app_error(
1850: x_ExceptionLevel => rlm_message_sv.k_error_level,
1851: x_MessageName => 'RLM_CUM_QTY_TYPE_INVALID',
1855: x_value1=>x_lines_rec.qty_type_code,
1856: x_ValidationType => 'QUANTITY_TYPE_CODE');
1857: --
1858: IF (l_debug <> -1) THEN
1859: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_CUM_CONTROL_CODE_INVALID');
1860: rlm_core_sv.dpop(C_SDEBUG);
1861: END IF;
1862: --
1863: WHEN e_QtyTypeInv THEN
1856: x_ValidationType => 'QUANTITY_TYPE_CODE');
1857: --
1858: IF (l_debug <> -1) THEN
1859: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_CUM_CONTROL_CODE_INVALID');
1860: rlm_core_sv.dpop(C_SDEBUG);
1861: END IF;
1862: --
1863: WHEN e_QtyTypeInv THEN
1864: --
1861: END IF;
1862: --
1863: WHEN e_QtyTypeInv THEN
1864: --
1865: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1866: --
1867: rlm_message_sv.app_error(
1868: x_ExceptionLevel => rlm_message_sv.k_error_level,
1869: x_MessageName => 'RLM_ITEM_QTY_TYPE_INVALID',
1873: x_value1=>x_lines_rec.qty_type_code,
1874: x_ValidationType => 'QUANTITY_TYPE_CODE');
1875: --
1876: IF (l_debug <> -1) THEN
1877: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_ITEM_DTL_TYPE_INVALID');
1878: END IF;
1879: --
1880: WHEN e_SeqCumQty THEN
1881: --
1878: END IF;
1879: --
1880: WHEN e_SeqCumQty THEN
1881: --
1882: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1883: --
1884: rlm_message_sv.app_error(
1885: x_ExceptionLevel => rlm_message_sv.k_error_level,
1886: x_MessageName => 'RLM_SEQUENCED_CUMULATIVE_QTY',
1888: x_InterfaceLineId => x_lines_rec.line_id,
1889: x_ValidationType => 'QUANTITY_TYPE_CODE');
1890: --
1891: IF (l_debug <> -1) THEN
1892: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SEQUENCED_CUMULATIVE_QTY');
1893: END IF;
1894: --
1895: WHEN OTHERS THEN
1896: --
1893: END IF;
1894: --
1895: WHEN OTHERS THEN
1896: --
1897: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1898: --
1899: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidQtyTypeCode',
1900: v_Progress);
1901: --
1899: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidQtyTypeCode',
1900: v_Progress);
1901: --
1902: IF (l_debug <> -1) THEN
1903: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1904: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1905: END IF;
1906: --
1907: raise;
1900: v_Progress);
1901: --
1902: IF (l_debug <> -1) THEN
1903: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1904: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1905: END IF;
1906: --
1907: raise;
1908: --
1925: --
1926: IF rlm_message_sv.check_dependency('ITEM_DETAIL_SUBTYPE') THEN
1927: --
1928: IF (l_debug <> -1) THEN
1929: rlm_core_sv.dpush(C_SDEBUG,'ValidItemDetailSubtype');
1930: END IF;
1931: --
1932: IF x_lines_rec.item_detail_type IN ('0','1','2','6') THEN
1933: v_Status := RLM_TPA_SV.ValidLookup( 'RLM_DEMAND_SUBTYPE',
1958: --
1959: v_progress := '060';
1960: --
1961: IF (l_debug <> -1) THEN
1962: rlm_core_sv.dpop(C_SDEBUG);
1963: END IF;
1964: --
1965: END IF;
1966: --
1967: EXCEPTION
1968: --
1969: WHEN e_DetailSubTypeInv THEN
1970: --
1971: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1972: rlm_message_sv.app_error(
1973: x_ExceptionLevel => rlm_message_sv.k_error_level,
1974: x_MessageName => 'RLM_DETAIL_SUBTYPE_INVALID',
1975: x_InterfaceHeaderId => x_lines_rec.header_id,
1980: x_value2=>x_lines_rec.item_detail_type,
1981: x_ValidationType => 'ITEM_DETAIL_SUBTYPE');
1982: --
1983: IF (l_debug <> -1) THEN
1984: rlm_core_sv.dlog(C_DEBUG,'RLM_DETAIL_SUBTYPE_INVALID',
1985: x_lines_rec.item_detail_subtype);
1986: rlm_core_sv.dpop(C_SDEBUG);
1987: END IF;
1988: --
1982: --
1983: IF (l_debug <> -1) THEN
1984: rlm_core_sv.dlog(C_DEBUG,'RLM_DETAIL_SUBTYPE_INVALID',
1985: x_lines_rec.item_detail_subtype);
1986: rlm_core_sv.dpop(C_SDEBUG);
1987: END IF;
1988: --
1989: WHEN OTHERS THEN
1990: --
1987: END IF;
1988: --
1989: WHEN OTHERS THEN
1990: --
1991: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
1992: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailSubtype: ',
1993: v_Progress);
1994: --
1995: IF (l_debug <> -1) THEN
1992: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailSubtype: ',
1993: v_Progress);
1994: --
1995: IF (l_debug <> -1) THEN
1996: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1997: END IF;
1998: --
1999: raise;
2000: --
2016: --
2017: IF rlm_message_sv.check_dependency('ITEM_DETAIL_TYPE') THEN
2018: --
2019: IF (l_debug <> -1) THEN
2020: rlm_core_sv.dpush(C_SDEBUG,'ValidItemDetailType');
2021: END IF;
2022: --
2023: IF NOT RLM_TPA_SV.ValidLookup( 'RLM_DETAIL_TYPE_CODE',
2024: x_lines_rec.item_detail_type,
2029:
2030: v_progress := '060';
2031: --
2032: IF (l_debug <> -1) THEN
2033: rlm_core_sv.dpop(C_SDEBUG);
2034: END IF;
2035: --
2036: END IF;
2037: --
2038: EXCEPTION
2039: --
2040: WHEN e_ItemDetailTypeInvalid THEN
2041: --
2042: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
2043: rlm_message_sv.app_error(
2044: x_ExceptionLevel => rlm_message_sv.k_error_level,
2045: x_MessageName => 'RLM_ITEM_DETAIL_TYPE_INVALID',
2046: x_InterfaceHeaderId => x_lines_rec.header_id,
2049: x_value1=>x_lines_rec.item_detail_type,
2050: x_ValidationType => 'ITEM_DETAIL_TYPE');
2051: --
2052: IF (l_debug <> -1) THEN
2053: rlm_core_sv.dlog(C_DEBUG,'RLM_ITEM_DETAIL_TYPE_INVALID',
2054: x_lines_rec.item_detail_type);
2055: rlm_core_sv.dpop(C_SDEBUG);
2056: END IF;
2057: --
2051: --
2052: IF (l_debug <> -1) THEN
2053: rlm_core_sv.dlog(C_DEBUG,'RLM_ITEM_DETAIL_TYPE_INVALID',
2054: x_lines_rec.item_detail_type);
2055: rlm_core_sv.dpop(C_SDEBUG);
2056: END IF;
2057: --
2058: WHEN OTHERS THEN
2059: --
2056: END IF;
2057: --
2058: WHEN OTHERS THEN
2059: --
2060: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
2061: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailType: ',
2062: v_Progress);
2063: --
2064: IF (l_debug <> -1) THEN
2061: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidItemDetailType: ',
2062: v_Progress);
2063: --
2064: IF (l_debug <> -1) THEN
2065: rlm_core_sv.dlog(C_DEBUG,'OTHERS',x_lines_rec.item_detail_type);
2066: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2067: END IF;
2068: --
2069: raise;
2062: v_Progress);
2063: --
2064: IF (l_debug <> -1) THEN
2065: rlm_core_sv.dlog(C_DEBUG,'OTHERS',x_lines_rec.item_detail_type);
2066: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2067: END IF;
2068: --
2069: raise;
2070: --
2081: x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE)
2082: IS
2083: --
2084: v_progress VARCHAR2(3) := '010';
2085: x_critical_key_rec rlm_core_sv.t_match_rec;
2086: x_key_description VARCHAR2(100);
2087: e_CriticalKeyMissing EXCEPTION;
2088: --
2089: BEGIN
2088: --
2089: BEGIN
2090: --
2091: IF (l_debug <> -1) THEN
2092: rlm_core_sv.dpush(C_SDEBUG,'ValidateCriticalKeys');
2093: END IF;
2094: --
2095: IF rlm_message_sv.check_dependency('CRITICAL_KEYS') THEN
2096: --
2094: --
2095: IF rlm_message_sv.check_dependency('CRITICAL_KEYS') THEN
2096: --
2097: IF (l_debug <> -1) THEN
2098: rlm_core_sv.dlog(C_DEBUG,'critical_attribute_key',
2099: x_setup_terms_rec.critical_attribute_key);
2100: END IF;
2101: --
2102: rlm_core_sv.Populate_Match_Keys(x_critical_key_rec,
2098: rlm_core_sv.dlog(C_DEBUG,'critical_attribute_key',
2099: x_setup_terms_rec.critical_attribute_key);
2100: END IF;
2101: --
2102: rlm_core_sv.Populate_Match_Keys(x_critical_key_rec,
2103: nvl(x_setup_terms_rec.critical_attribute_key,'0'));
2104:
2105: -- Check whether Critical key attribute key missing
2106: -- May have to change code due to NLS requirements
2361: --
2362: END IF;
2363: --
2364: IF (l_debug <> -1) THEN
2365: rlm_core_sv.dpop(C_SDEBUG);
2366: END IF;
2367: --
2368: EXCEPTION
2369: WHEN e_CriticalKeyMissing THEN
2377: x_value1=>x_key_description,
2378: x_ValidationType => 'CRITICAL_KEYS');
2379: --
2380: IF (l_debug <> -1) THEN
2381: rlm_core_sv.dlog(C_DEBUG,'Missing key description',x_key_description);
2382: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_CRITICAL_KEY_NULL');
2383: END IF;
2384: --
2385: WHEN OTHERS THEN
2378: x_ValidationType => 'CRITICAL_KEYS');
2379: --
2380: IF (l_debug <> -1) THEN
2381: rlm_core_sv.dlog(C_DEBUG,'Missing key description',x_key_description);
2382: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_CRITICAL_KEY_NULL');
2383: END IF;
2384: --
2385: WHEN OTHERS THEN
2386: --
2383: END IF;
2384: --
2385: WHEN OTHERS THEN
2386: --
2387: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
2388: --
2389: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateCriticalKeys:',
2390: v_Progress);
2391: --
2389: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateCriticalKeys:',
2390: v_Progress);
2391: --
2392: IF (l_debug <> -1) THEN
2393: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2394: END IF;
2395: --
2396: raise;
2397: --
2411: x_progress VARCHAR2(3) := '010';
2412: BEGIN
2413: --
2414: IF (l_debug <> -1) THEN
2415: rlm_core_sv.dpush(C_SDEBUG,'POPULATE_MATCH_KEY');
2416: rlm_core_sv.dlog(C_DEBUG,'x_match_key',x_match_key);
2417: END IF;
2418: --
2419: --
2412: BEGIN
2413: --
2414: IF (l_debug <> -1) THEN
2415: rlm_core_sv.dpush(C_SDEBUG,'POPULATE_MATCH_KEY');
2416: rlm_core_sv.dlog(C_DEBUG,'x_match_key',x_match_key);
2417: END IF;
2418: --
2419: --
2420: SELECT DECODE(INSTR(x_match_key,'A'),0,'N','Y'),
2490: x_match_rec.attribute15
2491: FROM dual;
2492:
2493: IF (l_debug <> -1) THEN
2494: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_production_line',
2495: x_match_rec.cust_production_line);
2496: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_dock_code',
2497: x_match_rec.customer_dock_code);
2498: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.request_date',
2492:
2493: IF (l_debug <> -1) THEN
2494: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_production_line',
2495: x_match_rec.cust_production_line);
2496: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_dock_code',
2497: x_match_rec.customer_dock_code);
2498: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.request_date',
2499: x_match_rec.request_date);
2500: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.schedule_date',
2494: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_production_line',
2495: x_match_rec.cust_production_line);
2496: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_dock_code',
2497: x_match_rec.customer_dock_code);
2498: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.request_date',
2499: x_match_rec.request_date);
2500: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.schedule_date',
2501: x_match_rec.schedule_date);
2502: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_po_number',
2496: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_dock_code',
2497: x_match_rec.customer_dock_code);
2498: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.request_date',
2499: x_match_rec.request_date);
2500: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.schedule_date',
2501: x_match_rec.schedule_date);
2502: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_po_number',
2503: x_match_rec.cust_po_number);
2504: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_item_revision',
2498: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.request_date',
2499: x_match_rec.request_date);
2500: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.schedule_date',
2501: x_match_rec.schedule_date);
2502: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_po_number',
2503: x_match_rec.cust_po_number);
2504: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_item_revision',
2505: x_match_rec.customer_item_revision);
2506: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_job',
2500: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.schedule_date',
2501: x_match_rec.schedule_date);
2502: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_po_number',
2503: x_match_rec.cust_po_number);
2504: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_item_revision',
2505: x_match_rec.customer_item_revision);
2506: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_job',
2507: x_match_rec.customer_job);
2508: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_model_serial_number',
2502: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_po_number',
2503: x_match_rec.cust_po_number);
2504: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_item_revision',
2505: x_match_rec.customer_item_revision);
2506: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_job',
2507: x_match_rec.customer_job);
2508: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_model_serial_number',
2509: x_match_rec.cust_model_serial_number);
2510: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute1',
2504: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_item_revision',
2505: x_match_rec.customer_item_revision);
2506: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_job',
2507: x_match_rec.customer_job);
2508: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_model_serial_number',
2509: x_match_rec.cust_model_serial_number);
2510: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute1',
2511: x_match_rec.industry_attribute1);
2512: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute2',
2506: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.customer_job',
2507: x_match_rec.customer_job);
2508: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_model_serial_number',
2509: x_match_rec.cust_model_serial_number);
2510: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute1',
2511: x_match_rec.industry_attribute1);
2512: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute2',
2513: x_match_rec.industry_attribute2);
2514: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute4',
2508: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.cust_model_serial_number',
2509: x_match_rec.cust_model_serial_number);
2510: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute1',
2511: x_match_rec.industry_attribute1);
2512: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute2',
2513: x_match_rec.industry_attribute2);
2514: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute4',
2515: x_match_rec.industry_attribute4);
2516: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute5',
2510: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute1',
2511: x_match_rec.industry_attribute1);
2512: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute2',
2513: x_match_rec.industry_attribute2);
2514: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute4',
2515: x_match_rec.industry_attribute4);
2516: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute5',
2517: x_match_rec.industry_attribute5);
2518: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute6',
2512: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute2',
2513: x_match_rec.industry_attribute2);
2514: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute4',
2515: x_match_rec.industry_attribute4);
2516: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute5',
2517: x_match_rec.industry_attribute5);
2518: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute6',
2519: x_match_rec.industry_attribute6);
2520: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute9',
2514: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute4',
2515: x_match_rec.industry_attribute4);
2516: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute5',
2517: x_match_rec.industry_attribute5);
2518: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute6',
2519: x_match_rec.industry_attribute6);
2520: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute9',
2521: x_match_rec.industry_attribute9);
2522: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute10',
2516: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute5',
2517: x_match_rec.industry_attribute5);
2518: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute6',
2519: x_match_rec.industry_attribute6);
2520: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute9',
2521: x_match_rec.industry_attribute9);
2522: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute10',
2523: x_match_rec.industry_attribute10);
2524: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute11',
2518: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute6',
2519: x_match_rec.industry_attribute6);
2520: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute9',
2521: x_match_rec.industry_attribute9);
2522: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute10',
2523: x_match_rec.industry_attribute10);
2524: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute11',
2525: x_match_rec.industry_attribute11);
2526: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute12',
2520: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute9',
2521: x_match_rec.industry_attribute9);
2522: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute10',
2523: x_match_rec.industry_attribute10);
2524: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute11',
2525: x_match_rec.industry_attribute11);
2526: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute12',
2527: x_match_rec.industry_attribute12);
2528: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute13',
2522: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute10',
2523: x_match_rec.industry_attribute10);
2524: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute11',
2525: x_match_rec.industry_attribute11);
2526: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute12',
2527: x_match_rec.industry_attribute12);
2528: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute13',
2529: x_match_rec.industry_attribute13);
2530: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute14',
2524: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute11',
2525: x_match_rec.industry_attribute11);
2526: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute12',
2527: x_match_rec.industry_attribute12);
2528: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute13',
2529: x_match_rec.industry_attribute13);
2530: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute14',
2531: x_match_rec.industry_attribute14);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2526: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute12',
2527: x_match_rec.industry_attribute12);
2528: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute13',
2529: x_match_rec.industry_attribute13);
2530: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute14',
2531: x_match_rec.industry_attribute14);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2528: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute13',
2529: x_match_rec.industry_attribute13);
2530: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute14',
2531: x_match_rec.industry_attribute14);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2530: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute14',
2531: x_match_rec.industry_attribute14);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2531: x_match_rec.industry_attribute14);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2532: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.industry_attribute15',
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2533: x_match_rec.industry_attribute15);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2534: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute1',x_match_rec.attribute1);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2535: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute2',x_match_rec.attribute2);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2536: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute3',x_match_rec.attribute3);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2537: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute4',x_match_rec.attribute4);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2538: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute5',x_match_rec.attribute5);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2539: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute6',x_match_rec.attribute6);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2540: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute7',x_match_rec.attribute7);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2541: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute8',x_match_rec.attribute8);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2549: rlm_core_sv.dpop(C_SDEBUG);
2542: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute9',x_match_rec.attribute9);
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2549: rlm_core_sv.dpop(C_SDEBUG);
2550: END IF;
2543: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute10',x_match_rec.attribute10);
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2549: rlm_core_sv.dpop(C_SDEBUG);
2550: END IF;
2551:
2544: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute11',x_match_rec.attribute11);
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2549: rlm_core_sv.dpop(C_SDEBUG);
2550: END IF;
2551:
2552: EXCEPTION
2545: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute12',x_match_rec.attribute12);
2546: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute13',x_match_rec.attribute13);
2547: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute14',x_match_rec.attribute14);
2548: rlm_core_sv.dlog(C_DEBUG,'x_match_rec.attribute15',x_match_rec.attribute15);
2549: rlm_core_sv.dpop(C_SDEBUG);
2550: END IF;
2551:
2552: EXCEPTION
2553: WHEN OTHERS THEN
2553: WHEN OTHERS THEN
2554: rlm_message_sv.sql_error('rlm_validate_sv.PopulateMatchKeys',x_progress);
2555: --
2556: IF (l_debug <> -1) THEN
2557: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2558: END IF;
2559: --
2560: raise;
2561:
2579: --
2580: BEGIN
2581: --
2582: IF (l_debug <> -1) THEN
2583: rlm_core_sv.dpush(C_SDEBUG,'PopulateLinesTab');
2584: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',v_Group_rec.schedule_item_num);
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2580: BEGIN
2581: --
2582: IF (l_debug <> -1) THEN
2583: rlm_core_sv.dpush(C_SDEBUG,'PopulateLinesTab');
2584: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',v_Group_rec.schedule_item_num);
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2588: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_Group_rec.cust_ship_to_ext);
2581: --
2582: IF (l_debug <> -1) THEN
2583: rlm_core_sv.dpush(C_SDEBUG,'PopulateLinesTab');
2584: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',v_Group_rec.schedule_item_num);
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2588: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_Group_rec.cust_ship_to_ext);
2589: rlm_core_sv.dlog(C_DEBUG,'cust_production_seq_num',
2582: IF (l_debug <> -1) THEN
2583: rlm_core_sv.dpush(C_SDEBUG,'PopulateLinesTab');
2584: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',v_Group_rec.schedule_item_num);
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2588: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_Group_rec.cust_ship_to_ext);
2589: rlm_core_sv.dlog(C_DEBUG,'cust_production_seq_num',
2590: v_Group_rec.cust_production_seq_num);
2584: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',v_Group_rec.schedule_item_num);
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2588: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_Group_rec.cust_ship_to_ext);
2589: rlm_core_sv.dlog(C_DEBUG,'cust_production_seq_num',
2590: v_Group_rec.cust_production_seq_num);
2591: END IF;
2592: --
2585: rlm_core_sv.dlog(C_DEBUG,'header_id',g_header_rec.header_id);
2586: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
2587: v_Group_rec.cust_ship_from_org_ext);
2588: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_Group_rec.cust_ship_to_ext);
2589: rlm_core_sv.dlog(C_DEBUG,'cust_production_seq_num',
2590: v_Group_rec.cust_production_seq_num);
2591: END IF;
2592: --
2593: g_lines_tab.DELETE;
2600: SELECT *
2601: FROM RLM_INTERFACE_LINES_ALL --bug 4907839
2602: WHERE schedule_item_num = v_Group_rec.schedule_item_num
2603: AND header_id = g_header_rec.header_id
2604: AND process_status = rlm_core_sv.k_PS_AVAILABLE
2605: --ORDER BY item_detail_type desc
2606: FOR UPDATE NOWAIT;
2607: --
2608: ELSE
2619: v_Group_rec.cust_ship_from_org_ext
2620: AND cust_ship_to_ext =
2621: v_Group_rec.cust_ship_to_ext
2622: AND customer_item_ext = v_Group_rec.customer_item_ext
2623: AND process_status = rlm_core_sv.k_PS_AVAILABLE
2624: --ORDER BY item_detail_type desc
2625: FOR UPDATE NOWAIT;
2626: --
2627: ELSE
2634: nvl(v_Group_rec.cust_ship_from_org_ext,k_VNULL)
2635: AND nvl(cust_ship_to_ext,k_VNULL) =
2636: nvl(v_Group_rec.cust_ship_to_ext,k_VNULL)
2637: AND customer_item_ext = v_Group_rec.customer_item_ext
2638: AND process_status = rlm_core_sv.k_PS_AVAILABLE
2639: --ORDER BY item_detail_type desc
2640: FOR UPDATE NOWAIT;
2641: --
2642: END IF;
2649: WHERE header_id = g_header_rec.header_id
2650: AND customer_item_id = v_Group_rec.customer_item_id
2651: AND ship_from_org_id = v_Group_rec.ship_from_org_id
2652: AND ship_to_address_id = v_Group_rec.ship_to_address_id
2653: AND process_status = rlm_core_sv.k_PS_AVAILABLE
2654: --ORDER BY item_detail_type desc
2655: FOR UPDATE NOWAIT;
2656: --
2657: END IF;
2667: --
2668: v_Progress := '030';
2669: --
2670: IF (l_debug <> -1) THEN
2671: rlm_core_sv.dlog(C_DEBUG,'inserted line_id',v_lines_rec.line_id);
2672: END IF;
2673: --
2674: g_lines_tab(v_Count) := v_lines_rec;
2675: g_lines_tab(v_Count).process_status := rlm_core_sv.k_PS_AVAILABLE;
2671: rlm_core_sv.dlog(C_DEBUG,'inserted line_id',v_lines_rec.line_id);
2672: END IF;
2673: --
2674: g_lines_tab(v_Count) := v_lines_rec;
2675: g_lines_tab(v_Count).process_status := rlm_core_sv.k_PS_AVAILABLE;
2676: v_Count := v_Count + 1;
2677: v_Progress := '040';
2678: --
2679: END LOOP;
2680: --
2681: CLOSE c_lines;
2682: --
2683: IF (l_debug <> -1) THEN
2684: rlm_core_sv.dpop(C_SDEBUG);
2685: END IF;
2686: --
2687: EXCEPTION
2688: --
2687: EXCEPTION
2688: --
2689: WHEN OTHERS THEN
2690: --
2691: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
2692: rlm_message_sv.sql_error('rlm_validatedemand_sv.PopulateLinesTab',
2693: v_Progress);
2694: --
2695: IF (l_debug <> -1) THEN
2692: rlm_message_sv.sql_error('rlm_validatedemand_sv.PopulateLinesTab',
2693: v_Progress);
2694: --
2695: IF (l_debug <> -1) THEN
2696: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2697: END IF;
2698: --
2699: raise;
2700: --
2713: --
2714: BEGIN
2715: --
2716: IF (l_debug <> -1) THEN
2717: rlm_core_sv.dpush(C_SDEBUG,'BuildHeaderRec');
2718: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
2719: END IF;
2720: --
2721: SELECT *
2714: BEGIN
2715: --
2716: IF (l_debug <> -1) THEN
2717: rlm_core_sv.dpush(C_SDEBUG,'BuildHeaderRec');
2718: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
2719: END IF;
2720: --
2721: SELECT *
2722: INTO g_header_rec
2724: WHERE header_id = x_header_id
2725: FOR UPDATE NOWAIT;
2726: --
2727: IF (l_debug <> -1) THEN
2728: rlm_core_sv.dlog(C_DEBUG,'No of headers selected',SQL%ROWCOUNT);
2729: rlm_core_sv.dpop(C_SDEBUG);
2730: END IF;
2731: --
2732: RETURN TRUE;
2725: FOR UPDATE NOWAIT;
2726: --
2727: IF (l_debug <> -1) THEN
2728: rlm_core_sv.dlog(C_DEBUG,'No of headers selected',SQL%ROWCOUNT);
2729: rlm_core_sv.dpop(C_SDEBUG);
2730: END IF;
2731: --
2732: RETURN TRUE;
2733: --
2735: --
2736: WHEN NO_DATA_FOUND THEN
2737: --
2738: IF (l_debug <> -1) THEN
2739: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
2740: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: NO_DATA_FOUND');
2741: END IF;
2742: --
2743: RETURN FALSE;
2736: WHEN NO_DATA_FOUND THEN
2737: --
2738: IF (l_debug <> -1) THEN
2739: rlm_core_sv.dlog(C_DEBUG,'x_header_id',x_header_id);
2740: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: NO_DATA_FOUND');
2741: END IF;
2742: --
2743: RETURN FALSE;
2744: --
2746: --
2747: rlm_message_sv.sql_error('rlm_validatedemand_sv.BuildHeaderRec',v_Progress);
2748: --
2749: IF (l_debug <> -1) THEN
2750: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2751: END IF;
2752: --
2753: RETURN FALSE; /* should we raise here */
2754: --
2766: --
2767: BEGIN
2768: --
2769: IF (l_debug <> -1) THEN
2770: rlm_core_sv.dpush(C_SDEBUG,'ApplyHeaderDefaults');
2771: END IF;
2772: --
2773: IF x_header_rec.sched_horizon_start_date IS NULL THEN
2774: --
2775: x_header_rec.sched_horizon_start_date := GetDateFromTable('START');
2776: v_progress := '020';
2777: --
2778: IF (l_debug <> -1) THEN
2779: rlm_core_sv.dlog(C_DEBUG,'Horizon start date',
2780: x_header_rec.sched_horizon_start_date);
2781: END IF;
2782: --
2783: END IF;
2787: x_header_rec.sched_horizon_end_date := GetDateFromTable('END');
2788: v_progress := '030';
2789: --
2790: IF (l_debug <> -1) THEN
2791: rlm_core_sv.dlog(C_DEBUG,'Horizon end date',
2792: x_header_rec.sched_horizon_end_date);
2793: END IF;
2794: --
2795: ELSE
2796: --
2797: v_progress := '040';
2798: --
2799: IF (l_debug <> -1) THEN
2800: rlm_core_sv.dlog(C_DEBUG,'no defaulting needed');
2801: END IF;
2802: --
2803: END IF;
2804: --
2806: --
2807: RLM_TPA_SV.SetHdrTPAttCategory(x_header_rec);
2808: --
2809: IF (l_debug <> -1) THEN
2810: rlm_core_sv.dpop(C_SDEBUG);
2811: END IF;
2812: --
2813: EXCEPTION
2814: --
2813: EXCEPTION
2814: --
2815: WHEN OTHERS THEN
2816: --
2817: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
2818: rlm_message_sv.sql_error('rlm_validatedemand_sv.ApplyHeaderDefaults',
2819: v_Progress);
2820: --
2821: IF (l_debug <> -1) THEN
2818: rlm_message_sv.sql_error('rlm_validatedemand_sv.ApplyHeaderDefaults',
2819: v_Progress);
2820: --
2821: IF (l_debug <> -1) THEN
2822: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2823: END IF;
2824: --
2825: raise;
2826: --
2851: --
2852: BEGIN
2853: --
2854: IF (l_debug <> -1) THEN
2855: rlm_core_sv.dpush(C_SDEBUG,'GetDateFromTable');
2856: rlm_core_sv.dlog(C_DEBUG,'p_date_criteria',p_date_criteria);
2857: END IF;
2858: --
2859: IF p_date_criteria = 'START' THEN
2852: BEGIN
2853: --
2854: IF (l_debug <> -1) THEN
2855: rlm_core_sv.dpush(C_SDEBUG,'GetDateFromTable');
2856: rlm_core_sv.dlog(C_DEBUG,'p_date_criteria',p_date_criteria);
2857: END IF;
2858: --
2859: IF p_date_criteria = 'START' THEN
2860: --
2863: FROM rlm_interface_lines
2864: WHERE header_id = g_header_rec.header_id;
2865: --
2866: IF (l_debug <> -1) THEN
2867: rlm_core_sv.dlog(C_DEBUG,'v_Start_Date',v_Start_Date);
2868: rlm_core_sv.dpop(C_SDEBUG);
2869: END IF;
2870: --
2871: RETURN(v_Start_Date);
2864: WHERE header_id = g_header_rec.header_id;
2865: --
2866: IF (l_debug <> -1) THEN
2867: rlm_core_sv.dlog(C_DEBUG,'v_Start_Date',v_Start_Date);
2868: rlm_core_sv.dpop(C_SDEBUG);
2869: END IF;
2870: --
2871: RETURN(v_Start_Date);
2872: --
2879: AND item_detail_type IN (0,1,2,6) --Bug 5478817
2880: AND item_detail_subtype = rlm_ship_delivery_pattern_sv.g_FLEXIBLE;
2881: --
2882: IF (l_debug <> -1) THEN
2883: rlm_core_sv.dlog(C_DEBUG,'v_End_Date_f',v_End_Date_f);
2884: END IF;
2885: --
2886: SELECT MAX(start_date_time)
2887: INTO v_End_Date_d
2890: AND item_detail_type IN (0,1,2,6) --Bug 5478817
2891: AND item_detail_subtype = rlm_ship_delivery_pattern_sv.g_DAY;
2892: --
2893: IF (l_debug <> -1) THEN
2894: rlm_core_sv.dlog(C_DEBUG,'v_End_Date_d',v_End_Date_d);
2895: END IF;
2896: --
2897: SELECT MAX(start_date_time)
2898: INTO v_End_Date_w
2901: AND item_detail_type IN (0,1,2,6) --Bug 5478817
2902: AND item_detail_subtype = rlm_ship_delivery_pattern_sv.g_WEEK;
2903: --
2904: IF (l_debug <> -1) THEN
2905: rlm_core_sv.dlog(C_DEBUG, 'v_End_Date_w', v_End_Date_w);
2906: END IF;
2907: --
2908: SELECT MAX(start_date_time)
2909: INTO v_End_Date_m
2912: AND item_detail_type IN (0,1,2,6) --Bug 5478817
2913: AND item_detail_subtype = rlm_ship_delivery_pattern_sv.g_MONTH;
2914: --
2915: IF (l_debug <> -1) THEN
2916: rlm_core_sv.dlog(C_DEBUG, 'v_End_Date_m', v_End_Date_m);
2917: END IF;
2918: --
2919: SELECT NEXT_DAY(v_End_Date_w,
2920: to_char(to_date(v_SundayDate, 'DD/MM/RRRR'), 'DY'))
2921: INTO v_End_Date_w
2922: FROM DUAL;
2923: --
2924: IF (l_debug <> -1) THEN
2925: rlm_core_sv.dlog(C_DEBUG,'Sunday after v_End_Date_w',v_End_Date_w);
2926: END IF;
2927: --
2928: SELECT LAST_DAY(v_End_Date_m)
2929: INTO v_End_Date_m
2929: INTO v_End_Date_m
2930: FROM DUAL;
2931: --
2932: IF (l_debug <> -1) THEN
2933: rlm_core_sv.dlog(C_DEBUG, 'Last day of the month of v_End_Date_m',
2934: v_End_Date_m);
2935: END IF;
2936: --
2937: -- Compare each of the end dates to figure out the horiz. end date
2960: --
2961: END IF;
2962: --
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG,'v_End_Date',v_End_Date);
2965: rlm_core_sv.dpop(C_SDEBUG);
2966: END IF;
2967: --
2968: RETURN(v_End_Date);
2961: END IF;
2962: --
2963: IF (l_debug <> -1) THEN
2964: rlm_core_sv.dlog(C_DEBUG,'v_End_Date',v_End_Date);
2965: rlm_core_sv.dpop(C_SDEBUG);
2966: END IF;
2967: --
2968: RETURN(v_End_Date);
2969: --}
2969: --}
2970: END IF;
2971: --
2972: IF (l_debug <> -1) THEN
2973: rlm_core_sv.dpop(C_SDEBUG);
2974: END IF;
2975: --
2976: EXCEPTION
2977: --
2976: EXCEPTION
2977: --
2978: WHEN OTHERS THEN
2979: --
2980: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
2981: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetDateFromTable', v_Progress);
2982: --
2983: IF (l_debug <> -1) THEN
2984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2980: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
2981: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetDateFromTable', v_Progress);
2982: --
2983: IF (l_debug <> -1) THEN
2984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2985: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2986: END IF;
2987: --
2988: raise;
2981: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetDateFromTable', v_Progress);
2982: --
2983: IF (l_debug <> -1) THEN
2984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2985: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2986: END IF;
2987: --
2988: raise;
2989: --
3001: --
3002: BEGIN
3003: --
3004: IF (l_debug <> -1) THEN
3005: rlm_core_sv.dpush(C_SDEBUG,'ValidScheduleHeader');
3006: END IF;
3007: --
3008: RLM_TPA_SV.ValidScheduleType(x_header_rec);
3009: v_progress := '020';
3017: v_progress := '070';
3018: RLM_TPA_SV.ValidNumberLines(x_header_rec);
3019: --
3020: IF (l_debug <> -1) THEN
3021: rlm_core_sv.dpop(C_SDEBUG);
3022: END IF;
3023: --
3024: EXCEPTION
3025: --
3024: EXCEPTION
3025: --
3026: WHEN OTHERS THEN
3027: --
3028: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3029: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleHeader', v_Progress);
3030: --
3031: IF (l_debug <> -1) THEN
3032: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3028: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3029: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleHeader', v_Progress);
3030: --
3031: IF (l_debug <> -1) THEN
3032: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3033: END IF;
3034: --
3035: raise;
3036: --
3050: --
3051: BEGIN
3052: --
3053: IF (l_debug <> -1) THEN
3054: rlm_core_sv.dpush(C_SDEBUG,'ValidNumberLines');
3055: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.header_id',x_header_rec.header_id);
3056: END IF;
3057: --
3058: SELECT count(*)
3051: BEGIN
3052: --
3053: IF (l_debug <> -1) THEN
3054: rlm_core_sv.dpush(C_SDEBUG,'ValidNumberLines');
3055: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.header_id',x_header_rec.header_id);
3056: END IF;
3057: --
3058: SELECT count(*)
3059: INTO v_Count
3060: FROM rlm_interface_lines
3061: where header_id = x_header_rec.header_id;
3062: --
3063: IF (l_debug <> -1) THEN
3064: rlm_core_sv.dlog(C_DEBUG,'ValidNumberLines ', v_Count);
3065: END IF;
3066: --
3067: IF v_count = 0 THEN
3068: raise e_no_lines;
3068: raise e_no_lines;
3069: END IF;
3070: --
3071: IF (l_debug <> -1) THEN
3072: rlm_core_sv.dpop(C_SDEBUG);
3073: END IF;
3074: --
3075: EXCEPTION
3076: --
3075: EXCEPTION
3076: --
3077: WHEN e_no_lines THEN
3078: --
3079: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3080: --
3081: rlm_message_sv.app_error(
3082: x_ExceptionLevel => rlm_message_sv.k_error_level,
3083: x_MessageName => 'RLM_NO_LINES_ON_SCHEDULE',
3083: x_MessageName => 'RLM_NO_LINES_ON_SCHEDULE',
3084: x_InterfaceHeaderId => x_header_rec.header_id);
3085: --
3086: IF (l_debug <> -1) THEN
3087: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_NO_LINES_ON_SCHEDULE');
3088: END IF;
3089: --
3090: WHEN OTHERS THEN
3091: --
3088: END IF;
3089: --
3090: WHEN OTHERS THEN
3091: --
3092: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3093: --
3094: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidNumberLines',
3095: v_Progress);
3096: --
3094: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidNumberLines',
3095: v_Progress);
3096: --
3097: IF (l_debug <> -1) THEN
3098: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3099: END IF;
3100: --
3101: raise;
3102: --
3161: --
3162: BEGIN
3163: --
3164: IF (l_debug <> -1) THEN
3165: rlm_core_sv.dpush(C_SDEBUG,'ValidScheduleSource');
3166: END IF;
3167: --
3168: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_SOURCE') THEN
3169: --
3167: --
3168: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_SOURCE') THEN
3169: --
3170: IF (l_debug <> -1) THEN
3171: rlm_core_sv.dlog(C_DEBUG,'schedule_source',
3172: x_header_rec.schedule_source);
3173: END IF;
3174: --
3175: IF (x_header_rec.schedule_source IS NULL ) THEN
3186: -- currently being processed, DSP should stop indicating that the processing is out of order.
3187: --
3188: IF (l_debug <> -1) THEN
3189: --
3190: rlm_core_sv.dlog(C_DEBUG,'----- Checking the schedules in the archive tables -----');
3191: rlm_core_sv.dlog(C_DEBUG,'RLM_DP_SV.g_order_by_schedule_type', RLM_DP_SV.g_order_by_schedule_type);
3192: --
3193: END IF;
3194: --
3187: --
3188: IF (l_debug <> -1) THEN
3189: --
3190: rlm_core_sv.dlog(C_DEBUG,'----- Checking the schedules in the archive tables -----');
3191: rlm_core_sv.dlog(C_DEBUG,'RLM_DP_SV.g_order_by_schedule_type', RLM_DP_SV.g_order_by_schedule_type);
3192: --
3193: END IF;
3194: --
3195: OPEN c_processed_stype;
3197: CLOSE c_processed_stype;
3198: --
3199: --
3200: IF (l_debug <> -1) THEN
3201: rlm_core_sv.dlog(C_DEBUG,'--- Archive schedule info ---');
3202: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3198: --
3199: --
3200: IF (l_debug <> -1) THEN
3201: rlm_core_sv.dlog(C_DEBUG,'--- Archive schedule info ---');
3202: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3200: IF (l_debug <> -1) THEN
3201: rlm_core_sv.dlog(C_DEBUG,'--- Archive schedule info ---');
3202: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3201: rlm_core_sv.dlog(C_DEBUG,'--- Archive schedule info ---');
3202: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3202: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3203: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3204: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3205: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3206: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3207: rlm_core_sv.dlog(C_DEBUG,'v_status',v_status);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3208: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3209: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3210: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3217: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3218: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3211: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3217: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3218: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3219: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3212: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3217: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3218: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3219: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3220: END IF;
3213: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3217: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3218: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3219: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3220: END IF;
3221: --
3214: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3215: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3216: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3217: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3218: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3219: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3220: END IF;
3221: --
3222: IF ( v_gen_date IS NOT NULL) THEN
3230: --
3231: IF ( v_edi_num2 > x_header_rec.edi_control_num_2 ) THEN
3232: --
3233: IF (l_debug <> -1) THEN
3234: rlm_core_sv.dlog(C_DEBUG,'Higher EDI Control Number2');
3235: END IF;
3236: --
3237: raise e_HighEdiProcessed;
3238: --
3241: --
3242: IF ( v_edi_num3 > x_header_rec.edi_control_num_3 ) THEN
3243: --
3244: IF (l_debug <> -1) THEN
3245: rlm_core_sv.dlog(C_DEBUG,'Higher EDI Control Number3');
3246: END IF;
3247: --
3248: raise e_HighEdiProcessed;
3249: --
3265: FETCH c into v_new_purpose;
3266: CLOSE c;
3267: --
3268: IF (l_debug <> -1) THEN
3269: rlm_core_sv.dlog(C_DEBUG,'v_purpose',v_purpose);
3270: rlm_core_sv.dlog(C_DEBUG,'v_new_purpose',v_new_purpose);
3271: END IF;
3272: --
3273: IF ( v_purpose > v_new_purpose ) THEN
3266: CLOSE c;
3267: --
3268: IF (l_debug <> -1) THEN
3269: rlm_core_sv.dlog(C_DEBUG,'v_purpose',v_purpose);
3270: rlm_core_sv.dlog(C_DEBUG,'v_new_purpose',v_new_purpose);
3271: END IF;
3272: --
3273: IF ( v_purpose > v_new_purpose ) THEN
3274: --
3299: --}
3300: END IF;
3301: --
3302: IF (l_debug <> -1) THEN
3303: rlm_core_sv.dlog(C_DEBUG,'ValidScheduleSource valid');
3304: END IF;
3305: --
3306: ELSE
3307: --
3305: --
3306: ELSE
3307: --
3308: IF (l_debug <> -1) THEN
3309: rlm_core_sv.dlog(C_DEBUG,'ValidScheduleSource not required because of dep');
3310: END IF;
3311: --
3312: END IF;
3313: --
3311: --
3312: END IF;
3313: --
3314: IF (l_debug <> -1) THEN
3315: rlm_core_sv.dpop(C_SDEBUG);
3316: END IF;
3317: --
3318: EXCEPTION
3319: --
3318: EXCEPTION
3319: --
3320: WHEN e_SchSrcInv THEN
3321: --
3322: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3323: --
3324: rlm_message_sv.app_error(
3325: x_ExceptionLevel => rlm_message_sv.k_error_level,
3326: x_MessageName => 'RLM_SCHEDULE_SOURCE_INVALID',
3327: x_InterfaceHeaderId => x_header_rec.header_id,
3328: x_ValidationType => 'SCHEDULE_SOURCE');
3329: --
3330: IF (l_debug <> -1) THEN
3331: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_SCHEDULE_SOURCE_INVALID');
3332: END IF;
3333: --
3334: -- Bug 4995267: Start
3335: WHEN e_HighGenDateProcessed THEN
3334: -- Bug 4995267: Start
3335: WHEN e_HighGenDateProcessed THEN
3336: --
3337: IF (l_debug <> -1) THEN
3338: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Generation Date already processed');
3339: END IF;
3340: --
3341: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3342: rlm_message_sv.app_error(
3337: IF (l_debug <> -1) THEN
3338: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Generation Date already processed');
3339: END IF;
3340: --
3341: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3342: rlm_message_sv.app_error(
3343: x_ExceptionLevel => rlm_message_sv.k_error_level,
3344: x_MessageName => 'RLM_HIGH_GEN_DATE_PROCESSED',
3345: x_InterfaceHeaderId => x_header_rec.header_id,
3345: x_InterfaceHeaderId => x_header_rec.header_id,
3346: x_token1=> 'REF_NUM',
3347: x_value1=> v_ref_num,
3348: x_token2=> 'STATUS',
3349: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
3350: x_token3=> 'ECE_TP_LOC_CD_EXT',
3351: x_value3=> x_header_rec.ece_tp_location_code_ext,
3352: x_token4=> 'ECE_TP_TRANS_CD',
3353: x_value4=> x_header_rec.ece_tp_translator_code,
3355: x_value5=> to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'),
3356: x_ValidationType => 'SCHEDULE_PURPOSE');
3357: --
3358: IF (l_debug <> -1) THEN
3359: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_HIGH_GEN_DATE_PROCESSED');
3360: END IF;
3361: --
3362: WHEN e_HighEdiProcessed THEN
3363: --
3361: --
3362: WHEN e_HighEdiProcessed THEN
3363: --
3364: IF (l_debug <> -1) THEN
3365: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher EDI control num already processed');
3366: END IF;
3367: --
3368: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3369: rlm_message_sv.app_error(
3364: IF (l_debug <> -1) THEN
3365: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher EDI control num already processed');
3366: END IF;
3367: --
3368: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3369: rlm_message_sv.app_error(
3370: x_ExceptionLevel => rlm_message_sv.k_error_level,
3371: x_MessageName => 'RLM_HIGH_EDI_PROCESSED',
3372: x_InterfaceHeaderId => x_header_rec.header_id,
3372: x_InterfaceHeaderId => x_header_rec.header_id,
3373: x_token1=> 'REF_NUM',
3374: x_value1=> v_ref_num,
3375: x_token2=> 'STATUS',
3376: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
3377: x_token3=> 'ECE_TP_LOC_CD_EXT',
3378: x_value3=> x_header_rec.ece_tp_location_code_ext,
3379: x_token4=> 'ECE_TP_TRANS_CD',
3380: x_value4=> x_header_rec.ece_tp_translator_code,
3384: x_value6=> v_edi_num2 || '-' || v_edi_num3,
3385: x_ValidationType => 'SCHEDULE_PURPOSE');
3386: --
3387: IF (l_debug <> -1) THEN
3388: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_HIGH_EDI_PROCESSED');
3389: END IF;
3390: --
3391: WHEN e_HighRefProcessed THEN
3392: --
3391: WHEN e_HighRefProcessed THEN
3392: --
3393: --
3394: IF (l_debug <> -1) THEN
3395: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Reference num already processed');
3396: END IF;
3397: --
3398: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3399: rlm_message_sv.app_error(
3394: IF (l_debug <> -1) THEN
3395: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Reference num already processed');
3396: END IF;
3397: --
3398: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3399: rlm_message_sv.app_error(
3400: x_ExceptionLevel => rlm_message_sv.k_error_level,
3401: x_MessageName => 'RLM_HIGH_REF_PROCESSED',
3402: x_InterfaceHeaderId => x_header_rec.header_id,
3402: x_InterfaceHeaderId => x_header_rec.header_id,
3403: x_token1=> 'REF_NUM',
3404: x_value1=> v_ref_num,
3405: x_token2=> 'STATUS',
3406: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
3407: x_token3=> 'ECE_TP_LOC_CD_EXT',
3408: x_value3=> x_header_rec.ece_tp_location_code_ext,
3409: x_token4=> 'ECE_TP_TRANS_CD',
3410: x_value4=> x_header_rec.ece_tp_translator_code,
3414: x_value6=> v_edi_num2 || '-' || v_edi_num3,
3415: x_ValidationType => 'SCHEDULE_PURPOSE');
3416: --
3417: IF (l_debug <> -1) THEN
3418: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_HIGH_REF_PROCESSED');
3419: END IF;
3420: --
3421: --
3422: WHEN e_HighPurProcessed THEN
3421: --
3422: WHEN e_HighPurProcessed THEN
3423: --
3424: IF (l_debug <> -1) THEN
3425: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Purpose Code already processed');
3426: END IF;
3427: --
3428: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3429: rlm_message_sv.app_error(
3424: IF (l_debug <> -1) THEN
3425: rlm_core_sv.dlog(C_DEBUG,'Schedule with Higher Schedule Purpose Code already processed');
3426: END IF;
3427: --
3428: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3429: rlm_message_sv.app_error(
3430: x_ExceptionLevel => rlm_message_sv.k_error_level,
3431: x_MessageName => 'RLM_HIGH_PUR_PROCESSED',
3432: x_InterfaceHeaderId => x_header_rec.header_id,
3432: x_InterfaceHeaderId => x_header_rec.header_id,
3433: x_token1=> 'REF_NUM',
3434: x_value1=> v_ref_num,
3435: x_token2=> 'STATUS',
3436: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
3437: x_token3=> 'ECE_TP_LOC_CD_EXT',
3438: x_value3=> x_header_rec.ece_tp_location_code_ext,
3439: x_token4=> 'ECE_TP_TRANS_CD',
3440: x_value4=> x_header_rec.ece_tp_translator_code,
3446: x_value7=> v_purpose_code,
3447: x_ValidationType => 'SCHEDULE_PURPOSE');
3448: --
3449: IF (l_debug <> -1) THEN
3450: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_HIGH_PUR_PROCESSED');
3451: END IF;
3452: --
3453: WHEN e_HighCrDateProcessed THEN
3454: --
3452: --
3453: WHEN e_HighCrDateProcessed THEN
3454: --
3455: IF (l_debug <> -1) THEN
3456: rlm_core_sv.dlog(C_DEBUG,'Schedule with HIGHER Creation Date already processed');
3457: END IF;
3458: --
3459: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3460: rlm_message_sv.app_error(
3455: IF (l_debug <> -1) THEN
3456: rlm_core_sv.dlog(C_DEBUG,'Schedule with HIGHER Creation Date already processed');
3457: END IF;
3458: --
3459: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3460: rlm_message_sv.app_error(
3461: x_ExceptionLevel => rlm_message_sv.k_error_level,
3462: x_MessageName => 'RLM_HIGH_CR_DATE_PROCESSED',
3463: x_InterfaceHeaderId => x_header_rec.header_id,
3463: x_InterfaceHeaderId => x_header_rec.header_id,
3464: x_token1=> 'REF_NUM',
3465: x_value1=> v_ref_num,
3466: x_token2=> 'STATUS',
3467: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
3468: x_token3=> 'ECE_TP_LOC_CD_EXT',
3469: x_value3=> x_header_rec.ece_tp_location_code_ext,
3470: x_token4=> 'ECE_TP_TRANS_CD',
3471: x_value4=> x_header_rec.ece_tp_translator_code,
3479: x_value8=> to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'),
3480: x_ValidationType => 'SCHEDULE_PURPOSE');
3481: --
3482: IF (l_debug <> -1) THEN
3483: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_HIGH_CR_DATE_PROCESSED');
3484: END IF;
3485: --
3486: -- Bug 4995267: End
3487: WHEN OTHERS THEN
3485: --
3486: -- Bug 4995267: End
3487: WHEN OTHERS THEN
3488: --
3489: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3490: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleSource',
3491: v_Progress);
3492: --
3493: IF (l_debug <> -1) THEN
3490: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleSource',
3491: v_Progress);
3492: --
3493: IF (l_debug <> -1) THEN
3494: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3495: END IF;
3496: --
3497: raise;
3498: --
3511: --
3512: BEGIN
3513: --
3514: IF (l_debug <> -1) THEN
3515: rlm_core_sv.dpush(C_SDEBUG,'ValidHorizonDates');
3516: END IF;
3517: --
3518: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('HORIZON_DATES') THEN
3519: --
3517: --
3518: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('HORIZON_DATES') THEN
3519: --
3520: IF (l_debug <> -1) THEN
3521: rlm_core_sv.dlog(C_DEBUG,'SCHED_HORIZON_START_DATE',
3522: x_header_rec.SCHED_HORIZON_START_DATE);
3523: rlm_core_sv.dlog(C_DEBUG,'SCHED_HORIZON_END_DATE',
3524: x_header_rec.SCHED_HORIZON_END_DATE);
3525: END IF;
3519: --
3520: IF (l_debug <> -1) THEN
3521: rlm_core_sv.dlog(C_DEBUG,'SCHED_HORIZON_START_DATE',
3522: x_header_rec.SCHED_HORIZON_START_DATE);
3523: rlm_core_sv.dlog(C_DEBUG,'SCHED_HORIZON_END_DATE',
3524: x_header_rec.SCHED_HORIZON_END_DATE);
3525: END IF;
3526: --
3527: IF (x_header_rec.SCHED_HORIZON_START_DATE >
3531: --
3532: END IF;
3533: --
3534: IF (l_debug <> -1) THEN
3535: rlm_core_sv.dlog(C_DEBUG,'ValidHorizonDates valid');
3536: END IF;
3537: --
3538: END IF;
3539: --
3537: --
3538: END IF;
3539: --
3540: IF (l_debug <> -1) THEN
3541: rlm_core_sv.dpop(C_SDEBUG);
3542: END IF;
3543: --
3544: EXCEPTION
3545: --
3544: EXCEPTION
3545: --
3546: WHEN e_horizon_dates_invalid THEN
3547: --
3548: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3549: rlm_message_sv.app_error(
3550: x_ExceptionLevel => rlm_message_sv.k_error_level,
3551: x_MessageName => 'RLM_HORIZON_DATES_INVALID',
3552: x_InterfaceHeaderId => x_header_rec.header_id,
3556: x_value2=>x_header_rec.sched_horizon_end_date,
3557: x_ValidationType => 'HORIZON_DATES');
3558: --
3559: IF (l_debug <> -1) THEN
3560: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_HORIZON_DATES_INVALID');
3561: END IF;
3562: --
3563: WHEN OTHERS THEN
3564: --
3561: END IF;
3562: --
3563: WHEN OTHERS THEN
3564: --
3565: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3566: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidHorizonDates',
3567: v_Progress);
3568: --
3569: IF (l_debug <> -1) THEN
3566: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidHorizonDates',
3567: v_Progress);
3568: --
3569: IF (l_debug <> -1) THEN
3570: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3571: END IF;
3572: --
3573: raise;
3574: --
3587: --
3588: BEGIN
3589: --
3590: IF (l_debug <> -1) THEN
3591: rlm_core_sv.dpush(C_SDEBUG,'ValidScheduleReferenceNum');
3592: END IF;
3593: --
3594: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_REF_NUM') THEN
3595: --
3593: --
3594: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_REF_NUM') THEN
3595: --
3596: IF (l_debug <> -1) THEN
3597: rlm_core_sv.dlog(C_DEBUG,'schedule_reference_num',
3598: x_header_rec.schedule_reference_num);
3599: END IF;
3600: --
3601: IF x_header_rec.schedule_reference_num IS NULL THEN
3606: --
3607: END IF;
3608: --
3609: IF (l_debug <> -1) THEN
3610: rlm_core_sv.dpop(C_SDEBUG);
3611: END IF;
3612: --
3613: EXCEPTION
3614: --
3613: EXCEPTION
3614: --
3615: WHEN e_SchRefInv THEN
3616: --
3617: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3618: rlm_message_sv.app_error(
3619: x_ExceptionLevel => rlm_message_sv.k_error_level,
3620: x_MessageName => 'RLM_SCHEDULE_REFERENCE_MISS',
3621: x_InterfaceHeaderId => x_header_rec.header_id,
3621: x_InterfaceHeaderId => x_header_rec.header_id,
3622: x_ValidationType => 'SCHEDULE_REF_NUM');
3623: --
3624: IF (l_debug <> -1) THEN
3625: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_SCHEDULE_REFERENCE_MISS');
3626: END IF;
3627: --
3628: WHEN OTHERS THEN
3629: --
3626: END IF;
3627: --
3628: WHEN OTHERS THEN
3629: --
3630: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3631: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleReferenceNum',
3632: v_Progress);
3633: --
3634: IF (l_debug <> -1) THEN
3631: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleReferenceNum',
3632: v_Progress);
3633: --
3634: IF (l_debug <> -1) THEN
3635: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3636: END IF;
3637: --
3638: raise;
3639: --
3652: --
3653: BEGIN
3654: --
3655: IF (l_debug <> -1) THEN
3656: rlm_core_sv.dpush(C_SDEBUG,'ValidScheduleType');
3657: END IF;
3658: --
3659: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_TYPE') THEN
3660: --
3658: --
3659: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_TYPE') THEN
3660: --
3661: IF (l_debug <> -1) THEN
3662: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
3663: END IF;
3664: --
3665: IF NOT (RLM_TPA_SV.ValidLookup('RLM_SCHEDULE_TYPE',
3666: x_header_rec.schedule_type,
3672: --
3673: END IF;
3674: --
3675: IF (l_debug <> -1) THEN
3676: rlm_core_sv.dpop(C_SDEBUG);
3677: END IF;
3678: --
3679: EXCEPTION
3680: --
3679: EXCEPTION
3680: --
3681: WHEN e_SchTypeInv THEN
3682: --
3683: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3684: rlm_message_sv.app_error(
3685: x_ExceptionLevel => rlm_message_sv.k_error_level,
3686: x_MessageName => 'RLM_SCHEDULE_TYPE_INVALID',
3687: x_InterfaceHeaderId => x_header_rec.header_id,
3691: x_value2=>x_header_rec.sched_generation_date,
3692: x_ValidationType => 'SCHEDULE_TYPE');
3693: --
3694: IF (l_debug <> -1) THEN
3695: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_SCHEDULE_TYPE_INVALID');
3696: END IF;
3697: --
3698: WHEN OTHERS THEN
3699: --
3696: END IF;
3697: --
3698: WHEN OTHERS THEN
3699: --
3700: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3701: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleType: ',
3702: v_Progress);
3703: --
3704: IF (l_debug <> -1) THEN
3701: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidScheduleType: ',
3702: v_Progress);
3703: --
3704: IF (l_debug <> -1) THEN
3705: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3706: END IF;
3707: --
3708: raise;
3709: --
3734: --
3735: BEGIN
3736: --
3737: IF (l_debug <> -1) THEN
3738: rlm_core_sv.dpush(C_SDEBUG,'ValidLookup');
3739: rlm_core_sv.dlog(C_DEBUG,'Lookup type ' || p_lookup_type );
3740: rlm_core_sv.dlog(C_DEBUG,'Lookup code ' || p_lookup_code );
3741: rlm_core_sv.dlog(C_DEBUG,'date ' || p_date );
3742: END IF;
3735: BEGIN
3736: --
3737: IF (l_debug <> -1) THEN
3738: rlm_core_sv.dpush(C_SDEBUG,'ValidLookup');
3739: rlm_core_sv.dlog(C_DEBUG,'Lookup type ' || p_lookup_type );
3740: rlm_core_sv.dlog(C_DEBUG,'Lookup code ' || p_lookup_code );
3741: rlm_core_sv.dlog(C_DEBUG,'date ' || p_date );
3742: END IF;
3743: --
3736: --
3737: IF (l_debug <> -1) THEN
3738: rlm_core_sv.dpush(C_SDEBUG,'ValidLookup');
3739: rlm_core_sv.dlog(C_DEBUG,'Lookup type ' || p_lookup_type );
3740: rlm_core_sv.dlog(C_DEBUG,'Lookup code ' || p_lookup_code );
3741: rlm_core_sv.dlog(C_DEBUG,'date ' || p_date );
3742: END IF;
3743: --
3744: OPEN c;
3737: IF (l_debug <> -1) THEN
3738: rlm_core_sv.dpush(C_SDEBUG,'ValidLookup');
3739: rlm_core_sv.dlog(C_DEBUG,'Lookup type ' || p_lookup_type );
3740: rlm_core_sv.dlog(C_DEBUG,'Lookup code ' || p_lookup_code );
3741: rlm_core_sv.dlog(C_DEBUG,'date ' || p_date );
3742: END IF;
3743: --
3744: OPEN c;
3745: --
3751: --
3752: v_progress := '030';
3753: --
3754: IF (l_debug <> -1) THEN
3755: rlm_core_sv.dlog(C_DEBUG,'Lookup ' || p_lookup_code || ' not valid');
3756: rlm_core_sv.dpop(C_SDEBUG);
3757: END IF;
3758: --
3759: RETURN FALSE;
3752: v_progress := '030';
3753: --
3754: IF (l_debug <> -1) THEN
3755: rlm_core_sv.dlog(C_DEBUG,'Lookup ' || p_lookup_code || ' not valid');
3756: rlm_core_sv.dpop(C_SDEBUG);
3757: END IF;
3758: --
3759: RETURN FALSE;
3760: --
3764: --
3765: v_progress := '040';
3766: --
3767: IF (l_debug <> -1) THEN
3768: rlm_core_sv.dpop(C_SDEBUG);
3769: END IF;
3770: --
3771: RETURN TRUE;
3772: --
3776: --
3777: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidLookup: ',v_Progress);
3778: --
3779: IF (l_debug <> -1) THEN
3780: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3781: END IF;
3782: --
3783: raise;
3784: --
3843: --
3844: BEGIN
3845: --
3846: IF (l_debug <> -1) THEN
3847: rlm_core_sv.dpush(C_SDEBUG,'ValidSchedulePurpose');
3848: END IF;
3849: --
3850: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_PURPOSE') THEN
3851: --
3849: --
3850: IF RLM_MESSAGE_SV.CHECK_DEPENDENCY('SCHEDULE_PURPOSE') THEN
3851: --
3852: IF (l_debug <> -1) THEN
3853: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3854: x_header_rec.schedule_purpose);
3855: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_translator_code',
3856: x_header_rec.ece_tp_translator_code );
3857: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_location_code_ext',
3851: --
3852: IF (l_debug <> -1) THEN
3853: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3854: x_header_rec.schedule_purpose);
3855: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_translator_code',
3856: x_header_rec.ece_tp_translator_code );
3857: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_location_code_ext',
3858: x_header_rec.ece_tp_location_code_ext );
3859: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3853: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3854: x_header_rec.schedule_purpose);
3855: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_translator_code',
3856: x_header_rec.ece_tp_translator_code );
3857: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_location_code_ext',
3858: x_header_rec.ece_tp_location_code_ext );
3859: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3860: x_header_rec.schedule_purpose );
3861: END IF;
3855: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_translator_code',
3856: x_header_rec.ece_tp_translator_code );
3857: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.ece_tp_location_code_ext',
3858: x_header_rec.ece_tp_location_code_ext );
3859: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3860: x_header_rec.schedule_purpose );
3861: END IF;
3862: --
3863: IF NOT (RLM_TPA_SV.ValidLookup('RLM_SCHEDULE_PURPOSE',
3886: k_CHANGE, k_DELETE, k_CHANGE, k_CHANGE, k_CANCEL),
3887: k_ORIGINAL, k_REPLACE, k_REPLACE_ALL, k_ADD);
3888: --
3889: IF (l_debug <> -1) THEN
3890: rlm_core_sv.dlog(C_DEBUG,'v_sch_pur', v_sch_pur);
3891: END IF;
3892: --
3893: IF (v_sch_pur > 0 ) THEN
3894: --
3892: --
3893: IF (v_sch_pur > 0 ) THEN
3894: --
3895: IF (l_debug <> -1) THEN
3896: rlm_core_sv.dlog(C_DEBUG,'Null EDI control values and purpose in
3897: CANCEL, CHANGE, DELETE');
3898: END IF;
3899: --
3900: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3896: rlm_core_sv.dlog(C_DEBUG,'Null EDI control values and purpose in
3897: CANCEL, CHANGE, DELETE');
3898: END IF;
3899: --
3900: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
3901: rlm_message_sv.app_error(
3902: x_ExceptionLevel => rlm_message_sv.k_error_level,
3903: x_MessageName => 'RLM_PUR_PROCESSING_ORDER_V',
3904: x_InterfaceHeaderId => x_header_rec.header_id,
3912: x_value4=>x_header_rec.sched_generation_date,
3913: x_ValidationType => 'SCHEDULE_PURPOSE');
3914: --
3915: IF (l_debug <> -1) THEN
3916: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: PURPOSE ORDER VIOLATION');
3917: END IF;
3918: --
3919: END IF;
3920: --
3931: IF (x_header_rec.schedule_source <> 'MANUAL' ) THEN
3932: --
3933: IF (l_debug <> -1) THEN
3934: --
3935: rlm_core_sv.dlog(C_DEBUG,'----- Checking the schedules in the interface tables -----');
3936: rlm_core_sv.dlog(C_DEBUG,'RLM_DP_SV.g_order_by_schedule_type', RLM_DP_SV.g_order_by_schedule_type);
3937: --
3938: END IF;
3939: --
3932: --
3933: IF (l_debug <> -1) THEN
3934: --
3935: rlm_core_sv.dlog(C_DEBUG,'----- Checking the schedules in the interface tables -----');
3936: rlm_core_sv.dlog(C_DEBUG,'RLM_DP_SV.g_order_by_schedule_type', RLM_DP_SV.g_order_by_schedule_type);
3937: --
3938: END IF;
3939: --
3940: --
3943: CLOSE c_pending_stype;
3944: --
3945: --
3946: IF (l_debug <> -1) THEN
3947: rlm_core_sv.dlog(C_DEBUG,'--- Interface schedule info ---');
3948: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3944: --
3945: --
3946: IF (l_debug <> -1) THEN
3947: rlm_core_sv.dlog(C_DEBUG,'--- Interface schedule info ---');
3948: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3946: IF (l_debug <> -1) THEN
3947: rlm_core_sv.dlog(C_DEBUG,'--- Interface schedule info ---');
3948: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3947: rlm_core_sv.dlog(C_DEBUG,'--- Interface schedule info ---');
3948: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3948: rlm_core_sv.dlog(C_DEBUG,'v_gen_date',
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3949: to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'));
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3950: rlm_core_sv.dlog(C_DEBUG,'v_edi_num2',v_edi_num2);
3951: rlm_core_sv.dlog(C_DEBUG,'v_edi_num3',v_edi_num3);
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3952: rlm_core_sv.dlog(C_DEBUG,'v_ref_num',v_ref_num);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3953: rlm_core_sv.dlog(C_DEBUG,'v_purpose_code',v_purpose_code);
3954: rlm_core_sv.dlog(C_DEBUG,'v_creation_date',
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3955: to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'));
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3962: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3963: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3956: rlm_core_sv.dlog(C_DEBUG,'--- Incoming schedule info ---');
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3962: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3963: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3964: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3957: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.sched_generation_date',
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3962: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3963: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3964: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3965: END IF;
3958: to_char(x_header_rec.sched_generation_date,'DD-MON-YYYY HH24:MI:SS'));
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3962: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3963: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3964: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3965: END IF;
3966: --
3959: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_2', x_header_rec.edi_control_num_2);
3960: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.edi_control_num_3', x_header_rec.edi_control_num_3);
3961: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_reference_num', x_header_rec.schedule_reference_num);
3962: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose', x_header_rec.schedule_purpose);
3963: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.x_header_rec.creation_date',
3964: to_char(x_header_rec.creation_date,'DD-MON-YYYY HH24:MI:SS'));
3965: END IF;
3966: --
3967: IF ( v_gen_date IS NOT NULL) THEN
3974: --
3975: IF ( v_edi_num2 < x_header_rec.edi_control_num_2 ) THEN
3976: --
3977: IF (l_debug <> -1) THEN
3978: rlm_core_sv.dlog(C_DEBUG,'Lower EDI Control Number2');
3979: END IF;
3980: --
3981: raise e_LowEdiPending;
3982: --
3985: --
3986: IF ( v_edi_num3 < x_header_rec.edi_control_num_3 ) THEN
3987: --
3988: IF (l_debug <> -1) THEN
3989: rlm_core_sv.dlog(C_DEBUG,'Lower EDI Control Number3');
3990: END IF;
3991: --
3992: raise e_LowEdiPending;
3993: --
4009: FETCH c into v_new_purpose;
4010: CLOSE c;
4011: --
4012: IF (l_debug <> -1) THEN
4013: rlm_core_sv.dlog(C_DEBUG,'v_purpose',v_purpose);
4014: rlm_core_sv.dlog(C_DEBUG,'v_new_purpose',v_new_purpose);
4015: END IF;
4016: --
4017: IF ( v_purpose < v_new_purpose ) THEN
4010: CLOSE c;
4011: --
4012: IF (l_debug <> -1) THEN
4013: rlm_core_sv.dlog(C_DEBUG,'v_purpose',v_purpose);
4014: rlm_core_sv.dlog(C_DEBUG,'v_new_purpose',v_new_purpose);
4015: END IF;
4016: --
4017: IF ( v_purpose < v_new_purpose ) THEN
4018: --
4045: --
4046: END IF;
4047: --
4048: IF (l_debug <> -1) THEN
4049: rlm_core_sv.dpop(C_SDEBUG);
4050: END IF;
4051: --
4052: EXCEPTION
4053: --
4052: EXCEPTION
4053: --
4054: WHEN e_SchPurposeInv THEN
4055: --
4056: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4057: rlm_message_sv.app_error(
4058: x_ExceptionLevel => rlm_message_sv.k_error_level,
4059: x_MessageName => 'RLM_SCHEDULE_PURPOSE_INVALID',
4060: x_InterfaceHeaderId => x_header_rec.header_id,
4064: x_value2=>x_header_rec.sched_generation_date,
4065: x_ValidationType => 'SCHEDULE_PURPOSE');
4066: --
4067: IF (l_debug <> -1) THEN
4068: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_SCHEDULE_PURPOSE_INVALID');
4069: END IF;
4070: --
4071: -- Bug 4995267: Start
4072: WHEN e_LowGenDatePending THEN
4071: -- Bug 4995267: Start
4072: WHEN e_LowGenDatePending THEN
4073: --
4074: IF (l_debug <> -1) THEN
4075: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Generation Date is not yet processed');
4076: END IF;
4077: --
4078: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4079: rlm_message_sv.app_error(
4074: IF (l_debug <> -1) THEN
4075: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Generation Date is not yet processed');
4076: END IF;
4077: --
4078: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4079: rlm_message_sv.app_error(
4080: x_ExceptionLevel => rlm_message_sv.k_error_level,
4081: x_MessageName => 'RLM_LOW_GEN_DATE_PENDING',
4082: x_InterfaceHeaderId => x_header_rec.header_id,
4082: x_InterfaceHeaderId => x_header_rec.header_id,
4083: x_token1=> 'REF_NUM',
4084: x_value1=> v_ref_num,
4085: x_token2=> 'STATUS',
4086: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
4087: x_token3=> 'ECE_TP_LOC_CD_EXT',
4088: x_value3=> x_header_rec.ece_tp_location_code_ext,
4089: x_token4=> 'ECE_TP_TRANS_CD',
4090: x_value4=> x_header_rec.ece_tp_translator_code,
4092: x_value5=> to_char(v_gen_date,'DD-MON-YYYY HH24:MI:SS'),
4093: x_ValidationType => 'SCHEDULE_PURPOSE');
4094: --
4095: IF (l_debug <> -1) THEN
4096: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_LOW_GEN_DATE_PENDING');
4097: END IF;
4098: --
4099: WHEN e_LowEdiPending THEN
4100: --
4098: --
4099: WHEN e_LowEdiPending THEN
4100: --
4101: IF (l_debug <> -1) THEN
4102: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower EDI control num is not yet processed');
4103: END IF;
4104: --
4105: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4106: rlm_message_sv.app_error(
4101: IF (l_debug <> -1) THEN
4102: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower EDI control num is not yet processed');
4103: END IF;
4104: --
4105: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4106: rlm_message_sv.app_error(
4107: x_ExceptionLevel => rlm_message_sv.k_error_level,
4108: x_MessageName => 'RLM_LOW_EDI_PENDING',
4109: x_InterfaceHeaderId => x_header_rec.header_id,
4109: x_InterfaceHeaderId => x_header_rec.header_id,
4110: x_token1=> 'REF_NUM',
4111: x_value1=> v_ref_num,
4112: x_token2=> 'STATUS',
4113: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
4114: x_token3=> 'ECE_TP_LOC_CD_EXT',
4115: x_value3=> x_header_rec.ece_tp_location_code_ext,
4116: x_token4=> 'ECE_TP_TRANS_CD',
4117: x_value4=> x_header_rec.ece_tp_translator_code,
4121: x_value6=> v_edi_num2 || '-' || v_edi_num3,
4122: x_ValidationType => 'SCHEDULE_PURPOSE');
4123: --
4124: IF (l_debug <> -1) THEN
4125: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_LOW_EDI_PENDING');
4126: END IF;
4127: --
4128: WHEN e_LowRefPending THEN
4129: --
4128: WHEN e_LowRefPending THEN
4129: --
4130: --
4131: IF (l_debug <> -1) THEN
4132: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Reference num is not yet processed');
4133: END IF;
4134: --
4135: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4136: rlm_message_sv.app_error(
4131: IF (l_debug <> -1) THEN
4132: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Reference num is not yet processed');
4133: END IF;
4134: --
4135: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4136: rlm_message_sv.app_error(
4137: x_ExceptionLevel => rlm_message_sv.k_error_level,
4138: x_MessageName => 'RLM_LOW_REF_PENDING',
4139: x_InterfaceHeaderId => x_header_rec.header_id,
4139: x_InterfaceHeaderId => x_header_rec.header_id,
4140: x_token1=> 'REF_NUM',
4141: x_value1=> v_ref_num,
4142: x_token2=> 'STATUS',
4143: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
4144: x_token3=> 'ECE_TP_LOC_CD_EXT',
4145: x_value3=> x_header_rec.ece_tp_location_code_ext,
4146: x_token4=> 'ECE_TP_TRANS_CD',
4147: x_value4=> x_header_rec.ece_tp_translator_code,
4151: x_value6=> v_edi_num2 || '-' || v_edi_num3,
4152: x_ValidationType => 'SCHEDULE_PURPOSE');
4153: --
4154: IF (l_debug <> -1) THEN
4155: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_LOW_REF_PENDING');
4156: END IF;
4157: --
4158: WHEN e_LowPurPending THEN
4159: --
4157: --
4158: WHEN e_LowPurPending THEN
4159: --
4160: IF (l_debug <> -1) THEN
4161: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Purpose Code is not yet processed');
4162: END IF;
4163: --
4164: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4165: rlm_message_sv.app_error(
4160: IF (l_debug <> -1) THEN
4161: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Schedule Purpose Code is not yet processed');
4162: END IF;
4163: --
4164: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4165: rlm_message_sv.app_error(
4166: x_ExceptionLevel => rlm_message_sv.k_error_level,
4167: x_MessageName => 'RLM_LOW_PUR_PENDING',
4168: x_InterfaceHeaderId => x_header_rec.header_id,
4168: x_InterfaceHeaderId => x_header_rec.header_id,
4169: x_token1=> 'REF_NUM',
4170: x_value1=> v_ref_num,
4171: x_token2=> 'STATUS',
4172: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
4173: x_token3=> 'ECE_TP_LOC_CD_EXT',
4174: x_value3=> x_header_rec.ece_tp_location_code_ext,
4175: x_token4=> 'ECE_TP_TRANS_CD',
4176: x_value4=> x_header_rec.ece_tp_translator_code,
4182: x_value7=> v_purpose_code,
4183: x_ValidationType => 'SCHEDULE_PURPOSE');
4184: --
4185: IF (l_debug <> -1) THEN
4186: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_LOW_PUR_PENDING');
4187: END IF;
4188: --
4189: WHEN e_LowCrDatePending THEN
4190: --
4188: --
4189: WHEN e_LowCrDatePending THEN
4190: --
4191: IF (l_debug <> -1) THEN
4192: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Creation Date is not yet processed');
4193: END IF;
4194: --
4195: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4196: rlm_message_sv.app_error(
4191: IF (l_debug <> -1) THEN
4192: rlm_core_sv.dlog(C_DEBUG,'Schedule with lower Creation Date is not yet processed');
4193: END IF;
4194: --
4195: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4196: rlm_message_sv.app_error(
4197: x_ExceptionLevel => rlm_message_sv.k_error_level,
4198: x_MessageName => 'RLM_LOW_CR_DATE_PENDING',
4199: x_InterfaceHeaderId => x_header_rec.header_id,
4199: x_InterfaceHeaderId => x_header_rec.header_id,
4200: x_token1=> 'REF_NUM',
4201: x_value1=> v_ref_num,
4202: x_token2=> 'STATUS',
4203: x_value2=> rlm_core_sv.get_proc_status_meaning(v_status),
4204: x_token3=> 'ECE_TP_LOC_CD_EXT',
4205: x_value3=> x_header_rec.ece_tp_location_code_ext,
4206: x_token4=> 'ECE_TP_TRANS_CD',
4207: x_value4=> x_header_rec.ece_tp_translator_code,
4215: x_value8=> to_char(v_creation_date,'DD-MON-YYYY HH24:MI:SS'),
4216: x_ValidationType => 'SCHEDULE_PURPOSE');
4217: --
4218: IF (l_debug <> -1) THEN
4219: rlm_core_sv.dpop(C_DEBUG,'EXCEPTION: RLM_LOW_CR_DATE_PENDING');
4220: END IF;
4221: --
4222: -- Bug 4995267: End
4223: WHEN OTHERS THEN
4221: --
4222: -- Bug 4995267: End
4223: WHEN OTHERS THEN
4224: --
4225: x_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
4226: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidSchedulePurpose: ',
4227: v_Progress);
4228: --
4229: IF (l_debug <> -1) THEN
4226: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidSchedulePurpose: ',
4227: v_Progress);
4228: --
4229: IF (l_debug <> -1) THEN
4230: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4231: END IF;
4232: --
4233: raise;
4234: --
4249: --
4250: BEGIN
4251: --
4252: IF (l_debug <> -1) THEN
4253: rlm_core_sv.dpush(C_SDEBUG,'DeriveOrgDependentIDs');
4254: END IF;
4255: --
4256: --undo performance changes for bug 6185706
4257: RLM_TPA_SV.DeriveInventoryItemId(x_header_rec, x_lines_rec);
4258: DerivePurchaseOrder(x_setup_terms_rec, x_header_rec, x_lines_rec);
4259: --derive_price_list; -- TODO
4260: --
4261: IF (l_debug <> -1) THEN
4262: rlm_core_sv.dpop(C_SDEBUG);
4263: END IF;
4264: --
4265: EXCEPTION
4266: --
4265: EXCEPTION
4266: --
4267: WHEN OTHERS THEN
4268: --
4269: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4270: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveOrgDependentIDs: ',
4271: v_Progress);
4272: --
4273: IF (l_debug <> -1) THEN
4270: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveOrgDependentIDs: ',
4271: v_Progress);
4272: --
4273: IF (l_debug <> -1) THEN
4274: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4275: END IF;
4276: --
4277: raise;
4278: --
4294: --
4295: BEGIN
4296: --
4297: IF (l_debug <> -1) THEN
4298: rlm_core_sv.dpush(C_SDEBUG,'DeriveIDs');
4299: END IF;
4300: --
4301: DeriveCustomerID(x_header_rec,x_lines_rec) ;
4302: DeriveShipToID(x_header_rec, x_lines_rec);
4301: DeriveCustomerID(x_header_rec,x_lines_rec) ;
4302: DeriveShipToID(x_header_rec, x_lines_rec);
4303: --DeriveBillToID(x_header_rec, x_lines_rec);
4304: --
4305: --rlm_core_sv.dlog(C_DEBUG,'BILLTOID', x_lines_rec.bill_to_address_id);
4306:
4307: -- validate the relationship of customer id of bill_to and ship_to
4308: --
4309: DeriveIntrmdShipToID(x_header_rec, x_lines_rec);
4310: RLM_TPA_SV.ValidateCustomerItem(x_header_rec, x_lines_rec);
4311: DeriveShipFromOrg(x_header_rec, x_lines_rec);
4312: --
4313: IF (l_debug <> -1) THEN
4314: rlm_core_sv.dpop(C_SDEBUG);
4315: END IF;
4316: --
4317: EXCEPTION
4318: --
4317: EXCEPTION
4318: --
4319: WHEN OTHERS THEN
4320: --
4321: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4322: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIDs', v_Progress);
4323: --
4324: IF (l_debug <> -1) THEN
4325: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4321: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4322: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIDs', v_Progress);
4323: --
4324: IF (l_debug <> -1) THEN
4325: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4326: END IF;
4327: --
4328: raise;
4329: --
4401: --
4402: BEGIN
4403: --
4404: IF (l_debug <> -1) THEN
4405: rlm_core_sv.dpush(C_SDEBUG,'DeriveInventoryItemId');
4406: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id ',x_lines_rec.inventory_item_id);
4407: END IF;
4408: --
4409:
4402: BEGIN
4403: --
4404: IF (l_debug <> -1) THEN
4405: rlm_core_sv.dpush(C_SDEBUG,'DeriveInventoryItemId');
4406: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id ',x_lines_rec.inventory_item_id);
4407: END IF;
4408: --
4409:
4410: IF rlm_message_sv.check_dependency('INVENTORY_ITEM') THEN
4415:
4416: IF x_lines_rec.inventory_item_id IS NULL THEN
4417: --
4418: IF (l_debug <> -1) THEN
4419: rlm_core_sv.dlog(C_DEBUG,'inventory item derived from inv API');
4420: rlm_core_sv.dlog(C_DEBUG,'customer_item_id id ' ,
4421: x_lines_rec.customer_item_id);
4422: rlm_core_sv.dlog(C_DEBUG,'ship_from_org ' ,
4423: x_lines_rec.ship_from_org_id);
4416: IF x_lines_rec.inventory_item_id IS NULL THEN
4417: --
4418: IF (l_debug <> -1) THEN
4419: rlm_core_sv.dlog(C_DEBUG,'inventory item derived from inv API');
4420: rlm_core_sv.dlog(C_DEBUG,'customer_item_id id ' ,
4421: x_lines_rec.customer_item_id);
4422: rlm_core_sv.dlog(C_DEBUG,'ship_from_org ' ,
4423: x_lines_rec.ship_from_org_id);
4424: END IF;
4418: IF (l_debug <> -1) THEN
4419: rlm_core_sv.dlog(C_DEBUG,'inventory item derived from inv API');
4420: rlm_core_sv.dlog(C_DEBUG,'customer_item_id id ' ,
4421: x_lines_rec.customer_item_id);
4422: rlm_core_sv.dlog(C_DEBUG,'ship_from_org ' ,
4423: x_lines_rec.ship_from_org_id);
4424: END IF;
4425: --
4426: -- get_inv_item_id from inventory API
4428: -- and master_organization_id = x_lines_rec.ship_from_org_id
4429: IF (x_header_rec.customer_id is not NULL) THEN
4430: --
4431: IF (l_debug <> -1) THEN
4432: rlm_core_sv.dlog(C_DEBUG, 'Calling inv_customer_item_grp.fetch_attributes ');
4433: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id',
4434: x_lines_rec.ship_to_address_id);
4435: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_customer_id',
4436: x_lines_rec.ship_to_customer_id);
4429: IF (x_header_rec.customer_id is not NULL) THEN
4430: --
4431: IF (l_debug <> -1) THEN
4432: rlm_core_sv.dlog(C_DEBUG, 'Calling inv_customer_item_grp.fetch_attributes ');
4433: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id',
4434: x_lines_rec.ship_to_address_id);
4435: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_customer_id',
4436: x_lines_rec.ship_to_customer_id);
4437: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.Ship_From_Org_Id',
4431: IF (l_debug <> -1) THEN
4432: rlm_core_sv.dlog(C_DEBUG, 'Calling inv_customer_item_grp.fetch_attributes ');
4433: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id',
4434: x_lines_rec.ship_to_address_id);
4435: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_customer_id',
4436: x_lines_rec.ship_to_customer_id);
4437: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.Ship_From_Org_Id',
4438: x_lines_rec.Ship_From_Org_Id);
4439: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.customer_item_id',
4433: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id',
4434: x_lines_rec.ship_to_address_id);
4435: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_customer_id',
4436: x_lines_rec.ship_to_customer_id);
4437: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.Ship_From_Org_Id',
4438: x_lines_rec.Ship_From_Org_Id);
4439: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.customer_item_id',
4440: x_lines_rec.customer_item_id);
4441: END IF;
4435: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_customer_id',
4436: x_lines_rec.ship_to_customer_id);
4437: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.Ship_From_Org_Id',
4438: x_lines_rec.Ship_From_Org_Id);
4439: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.customer_item_id',
4440: x_lines_rec.customer_item_id);
4441: END IF;
4442: --
4443: IF (x_header_rec.customer_id <> nvl(x_lines_rec.ship_to_customer_id, x_header_rec.customer_id)) THEN
4450: --
4451: END IF;
4452: --
4453: IF (l_debug <> -1) THEN
4454: rlm_core_sv.dlog(C_DEBUG, 'v_ship_to_address_id ',
4455: v_ship_to_address_id);
4456: END IF;
4457: --
4458: inv_customer_item_grp.fetch_attributes(
4492: v_PreferenceNumber, v_ErrorCode,
4493: v_ErrorFlag, v_ErrorMessage);
4494: --
4495: IF (l_debug <> -1) THEN
4496: rlm_core_sv.dlog(C_DEBUG,'v_ErrorMessage', v_ErrorMessage);
4497: rlm_core_sv.dlog(C_DEBUG,'v_ErrorCode', v_ErrorCode);
4498: rlm_core_sv.dlog(C_DEBUG, 'Inventory Item ID from Inventory API',
4499: x_lines_rec.inventory_item_id);
4500: END IF;
4493: v_ErrorFlag, v_ErrorMessage);
4494: --
4495: IF (l_debug <> -1) THEN
4496: rlm_core_sv.dlog(C_DEBUG,'v_ErrorMessage', v_ErrorMessage);
4497: rlm_core_sv.dlog(C_DEBUG,'v_ErrorCode', v_ErrorCode);
4498: rlm_core_sv.dlog(C_DEBUG, 'Inventory Item ID from Inventory API',
4499: x_lines_rec.inventory_item_id);
4500: END IF;
4501: --
4494: --
4495: IF (l_debug <> -1) THEN
4496: rlm_core_sv.dlog(C_DEBUG,'v_ErrorMessage', v_ErrorMessage);
4497: rlm_core_sv.dlog(C_DEBUG,'v_ErrorCode', v_ErrorCode);
4498: rlm_core_sv.dlog(C_DEBUG, 'Inventory Item ID from Inventory API',
4499: x_lines_rec.inventory_item_id);
4500: END IF;
4501: --
4502: IF v_ErrorFlag = 'Y' THEN
4514: FETCH c_CustOrderEnabled INTO v_CustOrderEnabledFlag;
4515: CLOSE c_CustOrderEnabled;
4516: --
4517: IF (l_debug <> -1) THEN
4518: rlm_core_sv.dlog(C_DEBUG, 'customer_order_enabled_flag',
4519: v_CustOrderEnabledFlag);
4520: END IF;
4521: --
4522: IF NVL(v_CustOrderEnabledFlag, 'N') <> 'Y' THEN
4550: x_token1=>'SUPPLIER_ITEM',
4551: x_value1=>x_lines_rec.supplier_item_ext);
4552: --
4553: IF (l_debug <> -1) THEN
4554: rlm_core_sv.dlog('WARNING: RLM_SUPPLIER_ITEM_MISMATCH');
4555: END IF;
4556: --
4557: END IF;
4558:
4567: x_token1=>'SUPPLIER_ITEM',
4568: x_value1=>x_lines_rec.supplier_item_ext);
4569: --
4570: IF (l_debug <> -1) THEN
4571: rlm_core_sv.dlog('WARNING: RLM_INVALID_SUPPLIER_ITEM');
4572: END IF;
4573: --
4574: END;
4575: --
4595: x_lines_rec.inventory_item_segment20 IS NOT NULL)
4596: THEN
4597: -- derive inv item based on the segments
4598: IF (l_debug <> -1) THEN
4599: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment1 ',
4600: x_lines_rec.inventory_item_segment1);
4601: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment2 ',
4602: x_lines_rec.inventory_item_segment2);
4603: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment3 ',
4597: -- derive inv item based on the segments
4598: IF (l_debug <> -1) THEN
4599: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment1 ',
4600: x_lines_rec.inventory_item_segment1);
4601: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment2 ',
4602: x_lines_rec.inventory_item_segment2);
4603: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment3 ',
4604: x_lines_rec.inventory_item_segment3);
4605: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment4 ',
4599: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment1 ',
4600: x_lines_rec.inventory_item_segment1);
4601: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment2 ',
4602: x_lines_rec.inventory_item_segment2);
4603: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment3 ',
4604: x_lines_rec.inventory_item_segment3);
4605: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment4 ',
4606: x_lines_rec.inventory_item_segment4);
4607: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment5 ',
4601: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment2 ',
4602: x_lines_rec.inventory_item_segment2);
4603: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment3 ',
4604: x_lines_rec.inventory_item_segment3);
4605: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment4 ',
4606: x_lines_rec.inventory_item_segment4);
4607: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment5 ',
4608: x_lines_rec.inventory_item_segment5);
4609: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment6 ',
4603: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment3 ',
4604: x_lines_rec.inventory_item_segment3);
4605: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment4 ',
4606: x_lines_rec.inventory_item_segment4);
4607: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment5 ',
4608: x_lines_rec.inventory_item_segment5);
4609: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment6 ',
4610: x_lines_rec.inventory_item_segment6);
4611: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment7 ',
4605: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment4 ',
4606: x_lines_rec.inventory_item_segment4);
4607: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment5 ',
4608: x_lines_rec.inventory_item_segment5);
4609: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment6 ',
4610: x_lines_rec.inventory_item_segment6);
4611: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment7 ',
4612: x_lines_rec.inventory_item_segment7);
4613: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment8 ',
4607: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment5 ',
4608: x_lines_rec.inventory_item_segment5);
4609: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment6 ',
4610: x_lines_rec.inventory_item_segment6);
4611: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment7 ',
4612: x_lines_rec.inventory_item_segment7);
4613: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment8 ',
4614: x_lines_rec.inventory_item_segment8);
4615: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment9 ',
4609: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment6 ',
4610: x_lines_rec.inventory_item_segment6);
4611: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment7 ',
4612: x_lines_rec.inventory_item_segment7);
4613: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment8 ',
4614: x_lines_rec.inventory_item_segment8);
4615: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment9 ',
4616: x_lines_rec.inventory_item_segment9);
4617: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment10 ',
4611: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment7 ',
4612: x_lines_rec.inventory_item_segment7);
4613: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment8 ',
4614: x_lines_rec.inventory_item_segment8);
4615: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment9 ',
4616: x_lines_rec.inventory_item_segment9);
4617: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment10 ',
4618: x_lines_rec.inventory_item_segment10);
4619: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment11',
4613: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment8 ',
4614: x_lines_rec.inventory_item_segment8);
4615: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment9 ',
4616: x_lines_rec.inventory_item_segment9);
4617: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment10 ',
4618: x_lines_rec.inventory_item_segment10);
4619: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment11',
4620: x_lines_rec.inventory_item_segment11);
4621: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment12 ',
4615: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment9 ',
4616: x_lines_rec.inventory_item_segment9);
4617: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment10 ',
4618: x_lines_rec.inventory_item_segment10);
4619: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment11',
4620: x_lines_rec.inventory_item_segment11);
4621: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment12 ',
4622: x_lines_rec.inventory_item_segment12);
4623: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment13 ',
4617: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment10 ',
4618: x_lines_rec.inventory_item_segment10);
4619: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment11',
4620: x_lines_rec.inventory_item_segment11);
4621: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment12 ',
4622: x_lines_rec.inventory_item_segment12);
4623: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment13 ',
4624: x_lines_rec.inventory_item_segment13);
4625: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment14 ',
4619: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment11',
4620: x_lines_rec.inventory_item_segment11);
4621: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment12 ',
4622: x_lines_rec.inventory_item_segment12);
4623: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment13 ',
4624: x_lines_rec.inventory_item_segment13);
4625: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment14 ',
4626: x_lines_rec.inventory_item_segment14);
4627: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment15 ',
4621: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment12 ',
4622: x_lines_rec.inventory_item_segment12);
4623: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment13 ',
4624: x_lines_rec.inventory_item_segment13);
4625: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment14 ',
4626: x_lines_rec.inventory_item_segment14);
4627: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment15 ',
4628: x_lines_rec.inventory_item_segment15);
4629: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment16 ',
4623: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment13 ',
4624: x_lines_rec.inventory_item_segment13);
4625: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment14 ',
4626: x_lines_rec.inventory_item_segment14);
4627: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment15 ',
4628: x_lines_rec.inventory_item_segment15);
4629: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment16 ',
4630: x_lines_rec.inventory_item_segment16);
4631: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment17 ',
4625: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment14 ',
4626: x_lines_rec.inventory_item_segment14);
4627: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment15 ',
4628: x_lines_rec.inventory_item_segment15);
4629: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment16 ',
4630: x_lines_rec.inventory_item_segment16);
4631: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment17 ',
4632: x_lines_rec.inventory_item_segment17);
4633: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment18 ',
4627: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment15 ',
4628: x_lines_rec.inventory_item_segment15);
4629: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment16 ',
4630: x_lines_rec.inventory_item_segment16);
4631: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment17 ',
4632: x_lines_rec.inventory_item_segment17);
4633: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment18 ',
4634: x_lines_rec.inventory_item_segment18);
4635: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment19 ',
4629: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment16 ',
4630: x_lines_rec.inventory_item_segment16);
4631: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment17 ',
4632: x_lines_rec.inventory_item_segment17);
4633: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment18 ',
4634: x_lines_rec.inventory_item_segment18);
4635: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment19 ',
4636: x_lines_rec.inventory_item_segment19);
4637: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment20 ',
4631: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment17 ',
4632: x_lines_rec.inventory_item_segment17);
4633: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment18 ',
4634: x_lines_rec.inventory_item_segment18);
4635: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment19 ',
4636: x_lines_rec.inventory_item_segment19);
4637: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment20 ',
4638: x_lines_rec.inventory_item_segment20);
4639: END IF;
4633: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment18 ',
4634: x_lines_rec.inventory_item_segment18);
4635: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment19 ',
4636: x_lines_rec.inventory_item_segment19);
4637: rlm_core_sv.dlog(C_DEBUG,'inventory_item_segment20 ',
4638: x_lines_rec.inventory_item_segment20);
4639: END IF;
4640: --
4641: BEGIN
4677: x_InterfaceHeaderId => x_lines_rec.header_id,
4678: x_InterfaceLineId => x_lines_rec.line_id);
4679: --
4680: IF (l_debug <> -1) THEN
4681: rlm_core_sv.dlog('WARNING: RLM_INVENTORY_ITEM_SEG_MISMATCH');
4682: END IF;
4683: --
4684: END IF;
4685:
4692: x_InterfaceHeaderId => x_lines_rec.header_id,
4693: x_InterfaceLineId => x_lines_rec.line_id);
4694: --
4695: IF (l_debug <> -1) THEN
4696: rlm_core_sv.dlog('WARNING: RLM_INVALID_INVENTORY_ITEM_SEGMENTS');
4697: END IF;
4698: --
4699:
4700: END;
4703: --
4704: END IF; --inventory_item_id
4705: --
4706: IF (l_debug <> -1) THEN
4707: rlm_core_sv.dlog(C_DEBUG,'inventory_item_id is ' ||
4708: x_lines_rec.inventory_item_id);
4709: END IF;
4710: --
4711: END IF;
4723: --
4724: END IF;
4725: --
4726: IF (l_debug <> -1) THEN
4727: rlm_core_sv.dpop(C_SDEBUG);
4728: END IF;
4729: --
4730: EXCEPTION
4731: --
4730: EXCEPTION
4731: --
4732: WHEN e_ATPSequenced THEN
4733: --
4734: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4735: --
4736: rlm_message_sv.app_error(
4737: x_ExceptionLevel => rlm_message_sv.k_error_level,
4738: x_MessageName => 'RLM_ATP_SEQUENCED',
4740: x_InterfaceLineId => x_lines_rec.line_id,
4741: x_ValidationType => 'INVENTORY_ITEM');
4742: --
4743: IF (l_debug <> -1) THEN
4744: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_ATP_SEQUENCED');
4745: END IF;
4746: --
4747: WHEN e_NullCustItemId THEN
4748: --
4745: END IF;
4746: --
4747: WHEN e_NullCustItemId THEN
4748: --
4749: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4750: --
4751: rlm_message_sv.app_error(
4752: x_ExceptionLevel => rlm_message_sv.k_error_level,
4753: x_MessageName => 'RLM_NULL_CUSTOMER_ITEM_ID',
4757: x_value1=> x_lines_rec.customer_item_ext,
4758: x_ValidationType => 'INVENTORY_ITEM');
4759: --
4760: IF (l_debug <> -1) THEN
4761: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4762: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_NULL_CUSTOMER_ITEM_ID');
4763: END IF;
4764: --
4765: WHEN e_SuppItemInvalid THEN
4758: x_ValidationType => 'INVENTORY_ITEM');
4759: --
4760: IF (l_debug <> -1) THEN
4761: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4762: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: RLM_NULL_CUSTOMER_ITEM_ID');
4763: END IF;
4764: --
4765: WHEN e_SuppItemInvalid THEN
4766: --
4763: END IF;
4764: --
4765: WHEN e_SuppItemInvalid THEN
4766: --
4767: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4768: rlm_message_sv.app_error(
4769: x_ExceptionLevel => rlm_message_sv.k_error_level,
4770: x_MessageName => 'RLM_SUPPLIER_ITEM_INVALID',
4771: x_InterfaceHeaderId => x_lines_rec.header_id,
4774: x_value1=>x_lines_rec.supplier_item_ext,
4775: x_ValidationType => 'INVENTORY_ITEM');
4776: --
4777: IF (l_debug <> -1) THEN
4778: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4779: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SUPPLIER_ITEM_INVALID');
4780: END IF;
4781: --
4782: WHEN e_InvalidItem THEN
4775: x_ValidationType => 'INVENTORY_ITEM');
4776: --
4777: IF (l_debug <> -1) THEN
4778: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4779: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SUPPLIER_ITEM_INVALID');
4780: END IF;
4781: --
4782: WHEN e_InvalidItem THEN
4783: --
4780: END IF;
4781: --
4782: WHEN e_InvalidItem THEN
4783: --
4784: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4785: --
4786: rlm_message_sv.app_error(
4787: x_ExceptionLevel => rlm_message_sv.k_error_level,
4788: x_MessageName => 'RLM_INVENTORY_ITEM_INACTIVE',
4788: x_MessageName => 'RLM_INVENTORY_ITEM_INACTIVE',
4789: x_InterfaceHeaderId => x_lines_rec.header_id,
4790: x_InterfaceLineId => x_lines_rec.line_id,
4791: x_token1=> 'CUSTOMER_ITEM',
4792: x_value1=> RLM_CORE_SV.get_item_number(v_customer_item_id),
4793: x_ValidationType => 'INVENTORY_ITEM');
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4792: x_value1=> RLM_CORE_SV.get_item_number(v_customer_item_id),
4793: x_ValidationType => 'INVENTORY_ITEM');
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4797: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVENTORY_ITEM_INACTIVE');
4798: END IF;
4799: --
4800: WHEN e_NotCustOrderEnabled THEN
4793: x_ValidationType => 'INVENTORY_ITEM');
4794: --
4795: IF (l_debug <> -1) THEN
4796: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4797: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVENTORY_ITEM_INACTIVE');
4798: END IF;
4799: --
4800: WHEN e_NotCustOrderEnabled THEN
4801: --
4798: END IF;
4799: --
4800: WHEN e_NotCustOrderEnabled THEN
4801: --
4802: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4803: --
4804: rlm_message_sv.app_error(
4805: x_ExceptionLevel => rlm_message_sv.k_error_level,
4806: x_MessageName => 'RLM_ITEM_NOT_CUST_ORDERABLE',
4809: x_GroupInfo => TRUE,
4810: x_token1=>'CUSTOMER_ITEM',
4811: x_value1=>v_CustomerItemNumber,
4812: x_token2=>'SHIP_FROM_ORG',
4813: x_value2=>RLM_CORE_SV.get_ship_from(x_lines_rec.ship_from_org_id),
4814: x_ValidationType => 'INVENTORY_ITEM');
4815: --
4816: IF (l_debug <> -1) THEN
4817: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION:RLM_ITEM_NOT_CUST_ORDERABLE');
4813: x_value2=>RLM_CORE_SV.get_ship_from(x_lines_rec.ship_from_org_id),
4814: x_ValidationType => 'INVENTORY_ITEM');
4815: --
4816: IF (l_debug <> -1) THEN
4817: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION:RLM_ITEM_NOT_CUST_ORDERABLE');
4818: END IF;
4819: --
4820: WHEN NO_DATA_FOUND THEN
4821: --
4818: END IF;
4819: --
4820: WHEN NO_DATA_FOUND THEN
4821: --
4822: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4823: --
4824: rlm_message_sv.app_error(
4825: x_ExceptionLevel => rlm_message_sv.k_error_level,
4826: x_MessageName => 'RLM_INVITEM_NOT_DERIVED',
4828: x_InterfaceLineId => x_lines_rec.line_id,
4829: x_ValidationType => 'INVENTORY_ITEM');
4830: --
4831: IF (l_debug <> -1) THEN
4832: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4833: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVITEM_NOT_DERIVED');
4834: END IF;
4835: --
4836: WHEN OTHERS THEN
4829: x_ValidationType => 'INVENTORY_ITEM');
4830: --
4831: IF (l_debug <> -1) THEN
4832: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4833: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVITEM_NOT_DERIVED');
4834: END IF;
4835: --
4836: WHEN OTHERS THEN
4837: --
4834: END IF;
4835: --
4836: WHEN OTHERS THEN
4837: --
4838: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4839: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveInventoryItemId',
4840: v_Progress);
4841: --
4842: IF (l_debug <> -1) THEN
4839: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveInventoryItemId',
4840: v_Progress);
4841: --
4842: IF (l_debug <> -1) THEN
4843: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4844: END IF;
4845: --
4846: raise;
4847: --
4860:
4861: BEGIN
4862: --
4863: IF (l_debug <> -1) THEN
4864: rlm_core_sv.dpush(C_SDEBUG,'ValidateCustomerItem');
4865: rlm_core_sv.dlog(C_DEBUG,'customer item ext', x_lines_rec.customer_item_ext);
4866: rlm_core_sv.dlog(C_DEBUG,'customer_item_id', x_lines_rec.customer_item_id);
4867: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',x_lines_rec.ship_to_address_id);
4868: END IF;
4861: BEGIN
4862: --
4863: IF (l_debug <> -1) THEN
4864: rlm_core_sv.dpush(C_SDEBUG,'ValidateCustomerItem');
4865: rlm_core_sv.dlog(C_DEBUG,'customer item ext', x_lines_rec.customer_item_ext);
4866: rlm_core_sv.dlog(C_DEBUG,'customer_item_id', x_lines_rec.customer_item_id);
4867: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',x_lines_rec.ship_to_address_id);
4868: END IF;
4869: --
4862: --
4863: IF (l_debug <> -1) THEN
4864: rlm_core_sv.dpush(C_SDEBUG,'ValidateCustomerItem');
4865: rlm_core_sv.dlog(C_DEBUG,'customer item ext', x_lines_rec.customer_item_ext);
4866: rlm_core_sv.dlog(C_DEBUG,'customer_item_id', x_lines_rec.customer_item_id);
4867: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',x_lines_rec.ship_to_address_id);
4868: END IF;
4869: --
4870: IF rlm_message_sv.check_dependency('CUSTOMER_ITEM') THEN
4863: IF (l_debug <> -1) THEN
4864: rlm_core_sv.dpush(C_SDEBUG,'ValidateCustomerItem');
4865: rlm_core_sv.dlog(C_DEBUG,'customer item ext', x_lines_rec.customer_item_ext);
4866: rlm_core_sv.dlog(C_DEBUG,'customer_item_id', x_lines_rec.customer_item_id);
4867: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',x_lines_rec.ship_to_address_id);
4868: END IF;
4869: --
4870: IF rlm_message_sv.check_dependency('CUSTOMER_ITEM') THEN
4871: --
4873: --
4874: BEGIN
4875: --
4876: IF (l_debug <> -1) THEN
4877: rlm_core_sv.dlog(C_DEBUG, 'Check if item is defined at address level in Inventory');
4878: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id', x_header_rec.customer_id);
4879: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id', x_lines_rec.ship_to_address_id);
4880: END IF;
4881: --
4874: BEGIN
4875: --
4876: IF (l_debug <> -1) THEN
4877: rlm_core_sv.dlog(C_DEBUG, 'Check if item is defined at address level in Inventory');
4878: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id', x_header_rec.customer_id);
4879: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id', x_lines_rec.ship_to_address_id);
4880: END IF;
4881: --
4882: SELECT customer_item_id
4875: --
4876: IF (l_debug <> -1) THEN
4877: rlm_core_sv.dlog(C_DEBUG, 'Check if item is defined at address level in Inventory');
4878: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id', x_header_rec.customer_id);
4879: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_address_id', x_lines_rec.ship_to_address_id);
4880: END IF;
4881: --
4882: SELECT customer_item_id
4883: INTO x_lines_rec.customer_item_id
4888: AND item_definition_level = '3'
4889: AND inactive_flag = 'N';
4890: --
4891: IF (l_debug <> -1) THEN
4892: rlm_core_sv.dlog(C_DEBUG,'Address level, customer item ID', x_lines_rec.customer_item_id);
4893: END IF;
4894: --
4895: EXCEPTION
4896: --
4896: --
4897: WHEN NO_DATA_FOUND THEN
4898: --
4899: IF (l_debug <> -1) THEN
4900: rlm_core_sv.dlog(C_DEBUG, 'Check if item is defined at address-category level in Inventory');
4901: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id', x_header_rec.customer_id);
4902: END IF;
4903: --
4904: BEGIN
4897: WHEN NO_DATA_FOUND THEN
4898: --
4899: IF (l_debug <> -1) THEN
4900: rlm_core_sv.dlog(C_DEBUG, 'Check if item is defined at address-category level in Inventory');
4901: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id', x_header_rec.customer_id);
4902: END IF;
4903: --
4904: BEGIN
4905: --
4916: AND mci.item_definition_level = '2'
4917: AND mci.inactive_flag = 'N';
4918: --
4919: IF (l_debug <> -1) THEN
4920: rlm_core_sv.dlog(C_DEBUG,'Address-Cat level, customer item ID', x_lines_rec.customer_item_id);
4921: END IF;
4922: --
4923: EXCEPTION
4924: --
4924: --
4925: WHEN NO_DATA_FOUND THEN
4926: --
4927: IF (l_debug <> -1) THEN
4928: rlm_core_sv.dlog(C_DEBUG,'Check if item is defined at customer level in Inventory');
4929: END IF;
4930: --
4931: SELECT customer_item_id
4932: INTO x_lines_rec.customer_item_id
4937: AND item_definition_level = '1'
4938: AND inactive_flag = 'N';
4939: --
4940: IF (l_debug <> -1) THEN
4941: rlm_core_sv.dlog(C_DEBUG,'Customer Level, customer item ID', x_lines_rec.customer_item_id);
4942: END IF;
4943: --
4944: END;
4945: --
4949: --
4950: END IF;
4951: --
4952: IF (l_debug <> -1) THEN
4953: rlm_core_sv.dpop(C_SDEBUG);
4954: END IF;
4955: --
4956: EXCEPTION
4957: --
4956: EXCEPTION
4957: --
4958: WHEN NO_DATA_FOUND THEN
4959: --
4960: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4961: --
4962: -- bug 5197388
4963: --
4964: rlm_message_sv.app_error(
4968: x_InterfaceLineId => x_lines_rec.line_id,
4969: x_token1=>'CUSTOMER_ITEM',
4970: x_value1=>x_lines_rec.customer_item_ext,
4971: x_token2=>'CUSTOMER',
4972: x_value2=>nvl(rlm_core_sv.get_customer_name(x_header_rec.customer_id), x_header_rec.cust_name_ext ),
4973: x_ValidationType => 'CUSTOMER_ITEM');
4974: --
4975: IF (l_debug <> -1) THEN
4976: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4972: x_value2=>nvl(rlm_core_sv.get_customer_name(x_header_rec.customer_id), x_header_rec.cust_name_ext ),
4973: x_ValidationType => 'CUSTOMER_ITEM');
4974: --
4975: IF (l_debug <> -1) THEN
4976: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4977: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_ITEM_NOT_DERIVED');
4978: END IF;
4979: --
4980: WHEN OTHERS THEN
4973: x_ValidationType => 'CUSTOMER_ITEM');
4974: --
4975: IF (l_debug <> -1) THEN
4976: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4977: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_ITEM_NOT_DERIVED');
4978: END IF;
4979: --
4980: WHEN OTHERS THEN
4981: --
4978: END IF;
4979: --
4980: WHEN OTHERS THEN
4981: --
4982: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4983: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateCustomerItem',
4984: v_Progress);
4985: --
4986: IF (l_debug <> -1) THEN
4983: rlm_message_sv.sql_error('rlm_validatedemand_sv.ValidateCustomerItem',
4984: v_Progress);
4985: --
4986: IF (l_debug <> -1) THEN
4987: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
4988: END IF;
4989: --
4990: raise;
4991: --
5025: --
5026: BEGIN
5027: --
5028: IF (l_debug <> -1) THEN
5029: rlm_core_sv.dpush(C_SDEBUG,'DerivePurchaseOrder');
5030: rlm_core_sv.dlog(C_DEBUG,'item_detail_type', x_lines_rec.item_detail_type);
5031: END IF;
5032: --
5033: IF rlm_message_sv.check_dependency('PURCHASE_ORDER') THEN
5026: BEGIN
5027: --
5028: IF (l_debug <> -1) THEN
5029: rlm_core_sv.dpush(C_SDEBUG,'DerivePurchaseOrder');
5030: rlm_core_sv.dlog(C_DEBUG,'item_detail_type', x_lines_rec.item_detail_type);
5031: END IF;
5032: --
5033: IF rlm_message_sv.check_dependency('PURCHASE_ORDER') THEN
5034: --
5040: v_fut_Agreement_Name := x_setup_terms_rec.future_agreement_name;
5041: x_Price_list_id := x_setup_terms_rec.price_list_id;
5042: --
5043: IF (l_debug <> -1) THEN
5044: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_name',v_Agreement_Name);
5045: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_id',v_Agreement_Id);
5046: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.fut_agreement_id',v_fut_Agreement_Id);
5047: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.Price_list_id',x_Price_list_id);
5048: rlm_core_sv.dlog(C_DEBUG,'PO on schedule - cust_po_number',
5041: x_Price_list_id := x_setup_terms_rec.price_list_id;
5042: --
5043: IF (l_debug <> -1) THEN
5044: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_name',v_Agreement_Name);
5045: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_id',v_Agreement_Id);
5046: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.fut_agreement_id',v_fut_Agreement_Id);
5047: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.Price_list_id',x_Price_list_id);
5048: rlm_core_sv.dlog(C_DEBUG,'PO on schedule - cust_po_number',
5049: x_lines_rec.cust_po_number);
5042: --
5043: IF (l_debug <> -1) THEN
5044: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_name',v_Agreement_Name);
5045: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_id',v_Agreement_Id);
5046: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.fut_agreement_id',v_fut_Agreement_Id);
5047: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.Price_list_id',x_Price_list_id);
5048: rlm_core_sv.dlog(C_DEBUG,'PO on schedule - cust_po_number',
5049: x_lines_rec.cust_po_number);
5050: END IF;
5043: IF (l_debug <> -1) THEN
5044: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_name',v_Agreement_Name);
5045: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_id',v_Agreement_Id);
5046: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.fut_agreement_id',v_fut_Agreement_Id);
5047: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.Price_list_id',x_Price_list_id);
5048: rlm_core_sv.dlog(C_DEBUG,'PO on schedule - cust_po_number',
5049: x_lines_rec.cust_po_number);
5050: END IF;
5051: --
5044: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_name',v_Agreement_Name);
5045: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.agreement_id',v_Agreement_Id);
5046: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.fut_agreement_id',v_fut_Agreement_Id);
5047: rlm_core_sv.dlog(C_DEBUG,'x_setup_terms_rec.Price_list_id',x_Price_list_id);
5048: rlm_core_sv.dlog(C_DEBUG,'PO on schedule - cust_po_number',
5049: x_lines_rec.cust_po_number);
5050: END IF;
5051: --
5052: IF (x_Price_list_id IS NULL) THEN
5053: --
5054: x_lines_rec.price_list_id := x_Price_list_id;
5055: --
5056: IF (l_debug <> -1) THEN
5057: rlm_core_sv.dlog(C_DEBUG, ' Null price list x_lines_rec.price_list_id', x_lines_rec.price_list_id);
5058: END IF;
5059: --
5060: END IF;
5061: --
5063: --
5064: x_lines_rec.agreement_id := NULL;
5065: --
5066: IF (l_debug <> -1) THEN
5067: rlm_core_sv.dlog(C_DEBUG, 'Null agreement on setup terms x_lines_rec.agreement_id', x_lines_rec.agreement_id);
5068: END IF;
5069: --
5070: END IF;
5071: --
5088: --
5089: x_lines_rec.agreement_id := v_agreement_id;
5090: --
5091: IF (l_debug <> -1) THEN
5092: rlm_core_sv.dlog(C_DEBUG,'current agreement Purchase Order',
5093: v_OE_Purchase_Order);
5094: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Price_List_Id',
5095: x_lines_rec.Price_List_Id);
5096: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5090: --
5091: IF (l_debug <> -1) THEN
5092: rlm_core_sv.dlog(C_DEBUG,'current agreement Purchase Order',
5093: v_OE_Purchase_Order);
5094: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Price_List_Id',
5095: x_lines_rec.Price_List_Id);
5096: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5097: x_lines_rec.agreement_id);
5098: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5092: rlm_core_sv.dlog(C_DEBUG,'current agreement Purchase Order',
5093: v_OE_Purchase_Order);
5094: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Price_List_Id',
5095: x_lines_rec.Price_List_Id);
5096: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5097: x_lines_rec.agreement_id);
5098: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5099: x_lines_rec.cust_po_number);
5100: END IF;
5094: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.Price_List_Id',
5095: x_lines_rec.Price_List_Id);
5096: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5097: x_lines_rec.agreement_id);
5098: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5099: x_lines_rec.cust_po_number);
5100: END IF;
5101: --
5102: EXCEPTION
5103: --
5104: WHEN NO_DATA_FOUND THEN
5105: --
5106: IF (l_debug <> -1) THEN
5107: rlm_core_sv.dlog(C_DEBUG,'Start date time does not fall
5108: within the current agreement effective dates');
5109: END IF;
5110: --
5111: v_progress := '030';
5122: x_lines_rec.agreement_id := v_fut_agreement_id;
5123: --
5124:
5125: IF (l_debug <> -1) THEN
5126: rlm_core_sv.dlog(C_DEBUG,' future agreement Purchase_Order',
5127: v_OE_Purchase_Order);
5128: rlm_core_sv.dlog(C_DEBUG,' future agreement Price List',
5129: x_lines_rec.Price_List_Id);
5130: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5124:
5125: IF (l_debug <> -1) THEN
5126: rlm_core_sv.dlog(C_DEBUG,' future agreement Purchase_Order',
5127: v_OE_Purchase_Order);
5128: rlm_core_sv.dlog(C_DEBUG,' future agreement Price List',
5129: x_lines_rec.Price_List_Id);
5130: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5131: x_lines_rec.cust_po_number);
5132: END IF;
5126: rlm_core_sv.dlog(C_DEBUG,' future agreement Purchase_Order',
5127: v_OE_Purchase_Order);
5128: rlm_core_sv.dlog(C_DEBUG,' future agreement Price List',
5129: x_lines_rec.Price_List_Id);
5130: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5131: x_lines_rec.cust_po_number);
5132: END IF;
5133: --
5134: EXCEPTION
5136: WHEN NO_DATA_FOUND THEN
5137: --
5138: IF (l_debug <> -1) THEN
5139:
5140: rlm_core_sv.dlog(C_DEBUG,'WARNING: No Agreement_id found for future and current agreements ');
5141: rlm_core_sv.dlog(C_DEBUG,' agreement Purchase_Order',
5142: v_OE_Purchase_Order);
5143: rlm_core_sv.dlog(C_DEBUG,' Price List',
5144: x_lines_rec.Price_List_Id);
5137: --
5138: IF (l_debug <> -1) THEN
5139:
5140: rlm_core_sv.dlog(C_DEBUG,'WARNING: No Agreement_id found for future and current agreements ');
5141: rlm_core_sv.dlog(C_DEBUG,' agreement Purchase_Order',
5142: v_OE_Purchase_Order);
5143: rlm_core_sv.dlog(C_DEBUG,' Price List',
5144: x_lines_rec.Price_List_Id);
5145: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5139:
5140: rlm_core_sv.dlog(C_DEBUG,'WARNING: No Agreement_id found for future and current agreements ');
5141: rlm_core_sv.dlog(C_DEBUG,' agreement Purchase_Order',
5142: v_OE_Purchase_Order);
5143: rlm_core_sv.dlog(C_DEBUG,' Price List',
5144: x_lines_rec.Price_List_Id);
5145: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5146: x_lines_rec.cust_po_number);
5147: END IF;
5141: rlm_core_sv.dlog(C_DEBUG,' agreement Purchase_Order',
5142: v_OE_Purchase_Order);
5143: rlm_core_sv.dlog(C_DEBUG,' Price List',
5144: x_lines_rec.Price_List_Id);
5145: rlm_core_sv.dlog(C_DEBUG,'PO number on schedule ',
5146: x_lines_rec.cust_po_number);
5147: END IF;
5148: --
5149: rlm_message_sv.app_error(
5157: x_value2=>v_fut_Agreement_Name,
5158: x_ValidationType => 'PURCHASE_ORDER');
5159: --
5160: IF (l_debug <> -1) THEN
5161: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5162: rlm_core_sv.dlog(C_SDEBUG,'RLM_SETUP_AGREEMENT_INVALID');
5163: END IF;
5164: --
5165: WHEN OTHERS THEN
5158: x_ValidationType => 'PURCHASE_ORDER');
5159: --
5160: IF (l_debug <> -1) THEN
5161: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5162: rlm_core_sv.dlog(C_SDEBUG,'RLM_SETUP_AGREEMENT_INVALID');
5163: END IF;
5164: --
5165: WHEN OTHERS THEN
5166: --
5164: --
5165: WHEN OTHERS THEN
5166: --
5167: IF (l_debug <> -1) THEN
5168: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION:'
5169: ||SUBSTR(SQLERRM,1,200));
5170: END IF;
5171: --
5172: raise ;
5175: --
5176: WHEN OTHERS THEN
5177: --
5178: IF (l_debug <> -1) THEN
5179: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5180: END IF;
5181: --
5182: raise ;
5183: --
5195: ELSE
5196: IF x_Price_list_id is NOT NULL THEN
5197: --
5198: IF (l_debug <> -1) THEN
5199: rlm_core_sv.dlog(C_DEBUG,'x_Price_List_Id',
5200: x_Price_List_Id);
5201: END IF;
5202: --
5203: x_lines_rec.PRICE_LIST_ID := x_Price_List_Id;
5202: --
5203: x_lines_rec.PRICE_LIST_ID := x_Price_List_Id;
5204: --
5205: IF (l_debug <> -1) THEN
5206: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5207: x_lines_rec.cust_po_number);
5208: END IF;
5209: --
5210: IF x_lines_rec.cust_po_number is NOT NULL THEN
5216: IF x_lines_rec.cust_po_number is NOT NULL THEN
5217: v_Progress := '020';
5218: --
5219: IF (l_debug <> -1) THEN
5220: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5221: x_lines_rec.cust_po_number);
5222: END IF;
5223: --
5224: BEGIN
5238: WHERE oem.purchase_order_num =
5239: x_lines_rec.cust_po_number);
5240: --
5241: IF (l_debug <> -1) THEN
5242: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.price_list_id',
5243: x_lines_rec.price_list_id);
5244: END IF;
5245: --
5246: IF x_lines_rec.start_date_time > v_end_date OR
5257: x_value2=>v_agreement_name,
5258: x_ValidationType => 'PURCHASE_ORDER');
5259: --
5260: IF (l_debug <> -1) THEN
5261: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5262: END IF;
5263: --
5264: END IF;
5265: --
5266: EXCEPTION
5267: WHEN NO_DATA_FOUND THEN
5268: --
5269: IF (l_debug <> -1) THEN
5270: rlm_core_sv.dlog(C_DEBUG,'WARNING:
5271: Cannot Derive agreement from Purchase Order on line');
5272: END IF;
5273: --
5274: --DeriveARPriceList := TRUE;
5281: x_value1=>x_lines_rec.cust_po_number,
5282: x_ValidationType => 'PURCHASE_ORDER');
5283: --
5284: IF (l_debug <> -1) THEN
5285: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5286: rlm_core_sv.dlog(C_SDEBUG,'RLM_WARN_PO_AGREEMENT_ID');
5287: END IF;
5288: --
5289: WHEN OTHERS THEN
5282: x_ValidationType => 'PURCHASE_ORDER');
5283: --
5284: IF (l_debug <> -1) THEN
5285: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5286: rlm_core_sv.dlog(C_SDEBUG,'RLM_WARN_PO_AGREEMENT_ID');
5287: END IF;
5288: --
5289: WHEN OTHERS THEN
5290: rlm_message_sv.sql_error(
5290: rlm_message_sv.sql_error(
5291: 'rlm_validateDemand_sv.DerivePurchaseOrder',v_Progress);
5292: --
5293: IF (l_debug <> -1) THEN
5294: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION:'||SUBSTR(SQLERRM,1,200));
5295: END IF;
5296: --
5297: raise ;
5298: END;
5303: --
5304: v_progress := '051';
5305: --
5306: IF (l_debug <> -1) THEN
5307: rlm_core_sv.dlog(C_DEBUG,'CustomerId',x_header_rec.customer_id);
5308: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5309: x_lines_rec.cust_po_number);
5310: rlm_core_sv.dlog(C_DEBUG,'x_Price_List_Id',x_Price_List_Id);
5311: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5304: v_progress := '051';
5305: --
5306: IF (l_debug <> -1) THEN
5307: rlm_core_sv.dlog(C_DEBUG,'CustomerId',x_header_rec.customer_id);
5308: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5309: x_lines_rec.cust_po_number);
5310: rlm_core_sv.dlog(C_DEBUG,'x_Price_List_Id',x_Price_List_Id);
5311: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5312: x_lines_rec.agreement_id);
5306: IF (l_debug <> -1) THEN
5307: rlm_core_sv.dlog(C_DEBUG,'CustomerId',x_header_rec.customer_id);
5308: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5309: x_lines_rec.cust_po_number);
5310: rlm_core_sv.dlog(C_DEBUG,'x_Price_List_Id',x_Price_List_Id);
5311: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5312: x_lines_rec.agreement_id);
5313: END IF;
5314: --
5307: rlm_core_sv.dlog(C_DEBUG,'CustomerId',x_header_rec.customer_id);
5308: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_po_number',
5309: x_lines_rec.cust_po_number);
5310: rlm_core_sv.dlog(C_DEBUG,'x_Price_List_Id',x_Price_List_Id);
5311: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.agreement_id',
5312: x_lines_rec.agreement_id);
5313: END IF;
5314: --
5315: /*
5317: v_progress := '055';
5318: BEGIN
5319: --
5320: IF (l_debug <> -1) THEN
5321: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
5322: x_header_rec.customer_id);
5323: END IF;
5324: --
5325: -- Following query is changed as per TCA obsolescence project.
5330: EXCEPTION
5331: WHEN NO_DATA_FOUND THEN
5332: --
5333: IF (l_debug <> -1) THEN
5334: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: NO_DATA_FOUND');
5335: END IF;
5336: --
5337: raise e_CustMissingPriceList;
5338: --
5338: --
5339: WHEN OTHERS THEN
5340: --
5341: IF (l_debug <> -1) THEN
5342: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION:'||SUBSTR(SQLERRM,1,200));
5343: END IF;
5344: --
5345: raise ;
5346: END;
5351: --
5352: v_progress := '060';
5353: --
5354: IF (l_debug <> -1) THEN
5355: rlm_core_sv.dlog(C_DEBUG,'Price list id',x_lines_rec.price_list_id);
5356: END IF;
5357: --
5358: BEGIN
5359: --
5366: to_date('01/01/1900','dd/mm/yyyy')) AND
5367: nvl(oep.end_date_active,to_date('31/12/4712','dd/mm/yyyy'));
5368: --
5369: IF (l_debug <> -1) THEN
5370: rlm_core_sv.dlog(C_DEBUG, 'Price list name', v_Price_list_name);
5371: END IF;
5372: --
5373: EXCEPTION
5374: WHEN NO_DATA_FOUND THEN
5383: --
5384: END IF;
5385: --
5386: IF (l_debug <> -1) THEN
5387: rlm_core_sv.dpop(C_SDEBUG);
5388: END IF;
5389: --
5390: EXCEPTION
5391: --
5402: x_value2=>x_lines_rec.start_date_time,
5403: x_ValidationType => 'PURCHASE_ORDER');
5404: --
5405: IF (l_debug <> -1) THEN
5406: rlm_core_sv.dpop(C_SDEBUG,'RLM_PRICE_LIST_INACTIVE');
5407: END IF;
5408: --
5409: WHEN e_POAgreementDiff THEN
5410: -- Waning message
5421: x_value3=>v_OE_Purchase_Order,
5422: x_ValidationType => 'PURCHASE_ORDER');
5423: --
5424: IF (l_debug <> -1) THEN
5425: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5426: rlm_core_sv.dpop(C_SDEBUG,'RLM_SETUP_PO_MISMATCH');
5427: END IF;
5428: --
5429: WHEN e_POAgreementInv THEN
5422: x_ValidationType => 'PURCHASE_ORDER');
5423: --
5424: IF (l_debug <> -1) THEN
5425: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5426: rlm_core_sv.dpop(C_SDEBUG,'RLM_SETUP_PO_MISMATCH');
5427: END IF;
5428: --
5429: WHEN e_POAgreementInv THEN
5430: -- Waning message
5437: x_value1=>x_lines_rec.cust_po_number,
5438: x_ValidationType => 'PURCHASE_ORDER');
5439: --
5440: IF (l_debug <> -1) THEN
5441: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5442: rlm_core_sv.dpop(C_SDEBUG,'RLM_WARN_PO_AGREEMENT_ID');
5443: END IF;
5444: --
5445: WHEN e_POWithoutAgreement THEN
5438: x_ValidationType => 'PURCHASE_ORDER');
5439: --
5440: IF (l_debug <> -1) THEN
5441: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5442: rlm_core_sv.dpop(C_SDEBUG,'RLM_WARN_PO_AGREEMENT_ID');
5443: END IF;
5444: --
5445: WHEN e_POWithoutAgreement THEN
5446: -- Warning message
5453: x_value1=>x_lines_rec.cust_po_number,
5454: x_ValidationType => 'PURCHASE_ORDER');
5455: --
5456: IF (l_debug <> -1) THEN
5457: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5458: rlm_core_sv.dpop(C_SDEBUG,'RLM_WARN_PO_WITHOUT_AGREEMENT');
5459: END IF;
5460: --
5461: WHEN e_CustMissingPriceList THEN
5454: x_ValidationType => 'PURCHASE_ORDER');
5455: --
5456: IF (l_debug <> -1) THEN
5457: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5458: rlm_core_sv.dpop(C_SDEBUG,'RLM_WARN_PO_WITHOUT_AGREEMENT');
5459: END IF;
5460: --
5461: WHEN e_CustMissingPriceList THEN
5462: --
5459: END IF;
5460: --
5461: WHEN e_CustMissingPriceList THEN
5462: --
5463: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5464: --
5465: rlm_message_sv.app_error(
5466: x_ExceptionLevel => rlm_message_sv.k_error_level,
5467: x_MessageName => 'RLM_CUST_WITHOUT_PRICELIST',
5472: x_header_rec.ece_tp_translator_code),
5473: x_ValidationType => 'PURCHASE_ORDER');
5474: --
5475: IF (l_debug <> -1) THEN
5476: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5477: rlm_core_sv.dpop(C_SDEBUG,'RLM_CUST_WITHOUT_PRICELIST');
5478: END IF;
5479: --
5480: WHEN OTHERS THEN
5473: x_ValidationType => 'PURCHASE_ORDER');
5474: --
5475: IF (l_debug <> -1) THEN
5476: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5477: rlm_core_sv.dpop(C_SDEBUG,'RLM_CUST_WITHOUT_PRICELIST');
5478: END IF;
5479: --
5480: WHEN OTHERS THEN
5481: --
5478: END IF;
5479: --
5480: WHEN OTHERS THEN
5481: --
5482: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5483: rlm_message_sv.sql_error('rlm_validatedemand_sv.DerivePurchaseOrder',
5484: v_Progress);
5485: --
5486: IF (l_debug <> -1) THEN
5483: rlm_message_sv.sql_error('rlm_validatedemand_sv.DerivePurchaseOrder',
5484: v_Progress);
5485: --
5486: IF (l_debug <> -1) THEN
5487: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5488: END IF;
5489: --
5490: raise;
5491: --
5515: --
5516: BEGIN
5517: --
5518: IF (l_debug <> -1) THEN
5519: rlm_core_sv.dpush(C_SDEBUG,'DeriveCustomerID');
5520: END IF;
5521: --
5522: --
5523: v_progress := '020';
5530: --
5531: IF x_header_rec.customer_ext IS NOT NULL THEN
5532: --
5533: IF (l_debug <> -1) THEN
5534: rlm_core_sv.dlog(C_DEBUG,'customer_ext ',x_header_rec.customer_ext);
5535: END IF;
5536: --
5537: v_Customer := x_header_rec.customer_ext;
5538: --
5538: --
5539: ELSIF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
5540: --
5541: IF (l_debug <> -1) THEN
5542: rlm_core_sv.dlog(C_DEBUG,'ece_tp_translator_code',
5543: x_header_rec.ece_tp_translator_code);
5544: END IF;
5545: --
5546: v_Customer := x_header_rec.ece_tp_translator_code;
5553:
5554: IF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5555: --
5556: IF (l_debug <> -1) THEN
5557: rlm_core_sv.dlog(C_DEBUG,'ece_tp_location_code_ext',
5558: x_header_rec.ece_tp_location_code_ext); END IF;
5559: --
5560: v_ShipToLoc := x_header_rec.ece_tp_location_code_ext;
5561: --
5561: --
5562: ELSIF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
5563: --
5564: IF (l_debug <> -1) THEN
5565: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext ',
5566: x_lines_rec.cust_ship_to_ext);
5567: END IF;
5568: --
5569: v_ShipToLoc := x_lines_rec.cust_ship_to_ext;
5575: --
5576: v_progress := '030';
5577: --
5578: IF (l_debug <> -1) THEN
5579: rlm_core_sv.dlog(C_DEBUG,'v_Customer ', v_Customer);
5580: rlm_core_sv.dlog(C_DEBUG,'v_ShipToLoc ', v_ShipToLoc);
5581: END IF;
5582: --
5583: ece_trading_partners_pub.get_tp_address(1, NULL, NULL, NULL,
5576: v_progress := '030';
5577: --
5578: IF (l_debug <> -1) THEN
5579: rlm_core_sv.dlog(C_DEBUG,'v_Customer ', v_Customer);
5580: rlm_core_sv.dlog(C_DEBUG,'v_ShipToLoc ', v_ShipToLoc);
5581: END IF;
5582: --
5583: ece_trading_partners_pub.get_tp_address(1, NULL, NULL, NULL,
5584: NULL, v_ReturnStatus, v_MsgCount,
5589: x_header_rec.customer_id,
5590: v_shipToAddressId);
5591: --
5592: IF (l_debug <> -1) THEN
5593: rlm_core_sv.dlog(C_DEBUG,'customer_id ',x_header_rec.customer_id);
5594: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
5595: v_shipToAddressId);
5596: END IF;
5597: --
5590: v_shipToAddressId);
5591: --
5592: IF (l_debug <> -1) THEN
5593: rlm_core_sv.dlog(C_DEBUG,'customer_id ',x_header_rec.customer_id);
5594: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
5595: v_shipToAddressId);
5596: END IF;
5597: --
5598: IF x_header_rec.customer_id IS NULL THEN
5600: BEGIN
5601: v_progress := '060';
5602: --
5603: IF (l_debug <> -1) THEN
5604: rlm_core_sv.dlog(C_DEBUG,'v_Customer ', v_Customer);
5605: rlm_core_sv.dlog(C_DEBUG,'v_ShipToLoc ', v_ShipToLoc);
5606: END IF;
5607: --
5608: -- Following query is changed as per TCA obsolescence project.
5601: v_progress := '060';
5602: --
5603: IF (l_debug <> -1) THEN
5604: rlm_core_sv.dlog(C_DEBUG,'v_Customer ', v_Customer);
5605: rlm_core_sv.dlog(C_DEBUG,'v_ShipToLoc ', v_ShipToLoc);
5606: END IF;
5607: --
5608: -- Following query is changed as per TCA obsolescence project.
5609: SELECT DISTINCT ACCT_SITE.CUST_ACCOUNT_ID
5614: AND ACCT_SITE.ece_tp_location_code = v_ShipToLoc
5615: AND eth.TP_REFERENCE_EXT1 = v_Customer;
5616: --
5617: IF (l_debug <> -1) THEN
5618: rlm_core_sv.dlog(C_DEBUG,'customer_id ',
5619: x_header_rec.customer_id);
5620: END IF;
5621: --
5622: IF x_header_rec.ece_tp_location_code_ext IS NULL THEN
5639: END IF; /*If v_Customer Not Null */
5640: ELSE
5641: --{
5642: IF (l_debug <> -1) THEN
5643: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
5644: END IF;
5645: --}
5646: END IF;
5647: --
5651: --
5652: v_progress := '080';
5653: --
5654: IF (l_debug <> -1) THEN
5655: rlm_core_sv.dpop(C_SDEBUG);
5656: END IF;
5657: --
5658: EXCEPTION
5659: --
5666: x_InterfaceHeaderId => x_lines_rec.header_id,
5667: x_InterfaceLineId => x_lines_rec.line_id,
5668: x_ValidationType => 'CUSTOMER');
5669:
5670: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_PRIMARYADDRESS_NOT_DERIVED');
5671: */
5672: --
5673: IF (l_debug <> -1) THEN
5674: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5670: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_PRIMARYADDRESS_NOT_DERIVED');
5671: */
5672: --
5673: IF (l_debug <> -1) THEN
5674: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5675: rlm_core_sv.dpop(C_SDEBUG);
5676: END IF;
5677: --
5678: WHEN e_NullCustomerExt THEN
5671: */
5672: --
5673: IF (l_debug <> -1) THEN
5674: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5675: rlm_core_sv.dpop(C_SDEBUG);
5676: END IF;
5677: --
5678: WHEN e_NullCustomerExt THEN
5679: --
5676: END IF;
5677: --
5678: WHEN e_NullCustomerExt THEN
5679: --
5680: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5681: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5682: --
5683: rlm_message_sv.app_error(
5684: x_ExceptionLevel => rlm_message_sv.k_error_level,
5677: --
5678: WHEN e_NullCustomerExt THEN
5679: --
5680: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5681: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5682: --
5683: rlm_message_sv.app_error(
5684: x_ExceptionLevel => rlm_message_sv.k_error_level,
5685: x_MessageName => 'RLM_CUSTOMER_NULL',
5687: x_InterfaceLineId => x_lines_rec.line_id,
5688: x_ValidationType => 'CUSTOMER');
5689: --
5690: IF (l_debug <> -1) THEN
5691: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5692: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_NULL');
5693: END IF;
5694: --
5695: WHEN e_NullShipToExt THEN
5688: x_ValidationType => 'CUSTOMER');
5689: --
5690: IF (l_debug <> -1) THEN
5691: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5692: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_NULL');
5693: END IF;
5694: --
5695: WHEN e_NullShipToExt THEN
5696: --
5693: END IF;
5694: --
5695: WHEN e_NullShipToExt THEN
5696: --
5697: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5698: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5699: --
5700: rlm_message_sv.app_error(
5701: x_ExceptionLevel => rlm_message_sv.k_error_level,
5694: --
5695: WHEN e_NullShipToExt THEN
5696: --
5697: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5698: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5699: --
5700: rlm_message_sv.app_error(
5701: x_ExceptionLevel => rlm_message_sv.k_error_level,
5702: x_MessageName => 'RLM_SHIPTO_NULL',
5706: x_value1=>v_Customer,
5707: x_ValidationType => 'CUSTOMER');
5708: --
5709: IF (l_debug <> -1) THEN
5710: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5711: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_NULL');
5712: END IF;
5713: --
5714: WHEN e_InvalidCustomerExt THEN
5707: x_ValidationType => 'CUSTOMER');
5708: --
5709: IF (l_debug <> -1) THEN
5710: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5711: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_NULL');
5712: END IF;
5713: --
5714: WHEN e_InvalidCustomerExt THEN
5715: --
5712: END IF;
5713: --
5714: WHEN e_InvalidCustomerExt THEN
5715: --
5716: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5717: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5718: --
5719: IF x_header_rec.customer_ext IS NOT NULL THEN
5720: --
5713: --
5714: WHEN e_InvalidCustomerExt THEN
5715: --
5716: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5717: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5718: --
5719: IF x_header_rec.customer_ext IS NOT NULL THEN
5720: --
5721: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
5731: x_value2=>x_lines_rec.cust_ship_to_ext,
5732: x_ValidationType => 'CUSTOMER');
5733: --
5734: IF (l_debug <> -1) THEN
5735: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5736: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_SHIP_TO_INVALID');
5737: END IF;
5738: --
5739: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5732: x_ValidationType => 'CUSTOMER');
5733: --
5734: IF (l_debug <> -1) THEN
5735: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5736: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_SHIP_TO_INVALID');
5737: END IF;
5738: --
5739: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5740: --
5749: x_value2=>x_header_rec.ece_tp_location_code_ext,
5750: x_ValidationType => 'CUSTOMER');
5751: --
5752: IF (l_debug <> -1) THEN
5753: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5754: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_TPLOC_INVALID');
5755: END IF;
5756: --
5757: END IF;
5750: x_ValidationType => 'CUSTOMER');
5751: --
5752: IF (l_debug <> -1) THEN
5753: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5754: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUST_TPLOC_INVALID');
5755: END IF;
5756: --
5757: END IF;
5758: --
5771: x_value2=>x_lines_rec.cust_ship_to_ext,
5772: x_ValidationType => 'CUSTOMER');
5773: --
5774: IF (l_debug <> -1) THEN
5775: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5776: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_SHIPTO_INVALID');
5777: END IF;
5778: --
5779: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5772: x_ValidationType => 'CUSTOMER');
5773: --
5774: IF (l_debug <> -1) THEN
5775: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5776: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_SHIPTO_INVALID');
5777: END IF;
5778: --
5779: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5780: --
5789: x_value2=>x_header_rec.ece_tp_location_code_ext,
5790: x_ValidationType => 'CUSTOMER');
5791: --
5792: IF (l_debug <> -1) THEN
5793: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5794: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_LOC_CODE_INVALID');
5795: END IF;
5796: --
5797: END IF;
5790: x_ValidationType => 'CUSTOMER');
5791: --
5792: IF (l_debug <> -1) THEN
5793: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5794: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_TP_TRANSL_LOC_CODE_INVALID');
5795: END IF;
5796: --
5797: END IF;
5798: --
5799: END IF;
5800: --
5801: WHEN OTHERS THEN
5802: --
5803: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5804: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5805: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveCustomerID',
5806: v_Progress);
5807: --
5800: --
5801: WHEN OTHERS THEN
5802: --
5803: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5804: g_Schedule_PS := rlm_core_sv.k_PS_ERROR;
5805: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveCustomerID',
5806: v_Progress);
5807: --
5808: IF (l_debug <> -1) THEN
5805: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveCustomerID',
5806: v_Progress);
5807: --
5808: IF (l_debug <> -1) THEN
5809: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5810: END IF;
5811: --
5812: raise;
5813: --
5829: --
5830: BEGIN
5831: --
5832: IF (l_debug <> -1) THEN
5833: rlm_core_sv.dpush(C_SDEBUG,'DeriveShipFromOrg');
5834: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
5835: x_lines_rec.cust_ship_from_org_ext);
5836: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id ', x_lines_rec.ship_from_org_id);
5837: END IF;
5830: BEGIN
5831: --
5832: IF (l_debug <> -1) THEN
5833: rlm_core_sv.dpush(C_SDEBUG,'DeriveShipFromOrg');
5834: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
5835: x_lines_rec.cust_ship_from_org_ext);
5836: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id ', x_lines_rec.ship_from_org_id);
5837: END IF;
5838: --
5832: IF (l_debug <> -1) THEN
5833: rlm_core_sv.dpush(C_SDEBUG,'DeriveShipFromOrg');
5834: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',
5835: x_lines_rec.cust_ship_from_org_ext);
5836: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id ', x_lines_rec.ship_from_org_id);
5837: END IF;
5838: --
5839: IF rlm_message_sv.check_dependency('SHIP_FROM_ORG') THEN
5840: --
5844: --
5845: v_progress := '020';
5846: --
5847: IF (l_debug <> -1) THEN
5848: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext ',
5849: x_lines_rec.cust_ship_from_org_ext);
5850: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
5851: x_lines_rec.ship_to_address_id);
5852: END IF;
5846: --
5847: IF (l_debug <> -1) THEN
5848: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext ',
5849: x_lines_rec.cust_ship_from_org_ext);
5850: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
5851: x_lines_rec.ship_to_address_id);
5852: END IF;
5853: --
5854: BEGIN
5853: --
5854: BEGIN
5855: --
5856: IF (l_debug <> -1) THEN
5857: rlm_core_sv.dlog(C_DEBUG,'Customer Address Level');
5858: END IF;
5859: --
5860: SELECT ship_from_org_id
5861: INTO x_lines_rec.ship_from_org_id
5867: --
5868: v_progress := '030';
5869: --
5870: IF (l_debug <> -1) THEN
5871: rlm_core_sv.dlog(C_DEBUG,'organization id ' ||
5872: x_lines_rec.ship_from_org_id);
5873: END IF;
5874: --
5875: EXCEPTION
5878: --
5879: BEGIN
5880: --
5881: IF (l_debug <> -1) THEN
5882: rlm_core_sv.dlog(C_DEBUG,'Customer Level');
5883: END IF;
5884: --
5885: SELECT ship_from_org_id
5886: INTO x_lines_rec.ship_from_org_id
5892: --
5893: v_progress := '040';
5894: --
5895: IF (l_debug <> -1) THEN
5896: rlm_core_sv.dlog(C_DEBUG,'organization id ' ||
5897: x_lines_rec.ship_from_org_id);
5898: END IF;
5899: --
5900: EXCEPTION
5902: raise e_NoDataFound;
5903: WHEN TOO_MANY_ROWS THEN
5904: --
5905: IF (l_debug <> -1) THEN
5906: rlm_core_sv.dlog(C_DEBUG,'organization id ' ||
5907: x_lines_rec.ship_from_org_id);
5908: END IF;
5909: --
5910: raise e_ManyRows;
5912: --
5913: WHEN TOO_MANY_ROWS THEN
5914: --
5915: IF (l_debug <> -1) THEN
5916: rlm_core_sv.dlog(C_DEBUG,'organization id ' ||
5917: x_lines_rec.ship_from_org_id);
5918: END IF;
5919: --
5920: raise e_ManyRows;
5924: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipFromOrg',
5925: v_Progress);
5926: --
5927: IF (l_debug <> -1) THEN
5928: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5929: END IF;
5930: --
5931: raise;
5932: END;
5936: --
5937: ELSE
5938: --
5939: IF (l_debug <> -1) THEN
5940: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id ',x_lines_rec.ship_from_org_id);
5941: END IF;
5942: --
5943: END IF;
5944: --
5946: --
5947: END IF;
5948: --
5949: IF (l_debug <> -1) THEN
5950: rlm_core_sv.dpop(C_SDEBUG);
5951: END IF;
5952: --
5953: EXCEPTION
5954: --
5956: --
5957: --2859506. ATP items should send null values for ship from org ext
5958: IF x_lines_rec.cust_ship_from_org_ext IS NOT NULL THEN
5959: --
5960: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
5961: --Bug Fix 2892076 added call to procedure app_error
5962:
5963: rlm_message_sv.app_error(
5964: x_ExceptionLevel => rlm_message_sv.k_error_level,
5969: x_value1=>x_lines_rec.cust_ship_from_org_ext,
5970: x_ValidationType => 'SHIP_FROM_ORG');
5971: --
5972: IF (l_debug <> -1) THEN
5973: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5974: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPFROM_NOT_DERIVED');
5975: END IF;
5976: --
5977: --raise; /* Bug 4395540 */
5970: x_ValidationType => 'SHIP_FROM_ORG');
5971: --
5972: IF (l_debug <> -1) THEN
5973: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5974: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPFROM_NOT_DERIVED');
5975: END IF;
5976: --
5977: --raise; /* Bug 4395540 */
5978: --BUG 5098241 commented the raise
5981: -- global_atp to be derived by Setup API later
5982: x_lines_rec.ship_from_org_id := NULL;
5983: --
5984: IF (l_debug <> -1) THEN
5985: rlm_core_sv.dpop(C_SDEBUG,'Null ship from org id ');
5986: END IF;
5987: END IF;
5988: --
5989: WHEN e_ManyRows THEN
5991: -- global_atp to be derived by Setup API later
5992: x_lines_rec.ship_from_org_id := NULL;
5993: --
5994: IF (l_debug <> -1) THEN
5995: rlm_core_sv.dpop(C_SDEBUG,'In too many rows use default SF');
5996: END IF;
5997: --
5998: WHEN OTHERS THEN
5999: --
5996: END IF;
5997: --
5998: WHEN OTHERS THEN
5999: --
6000: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6001: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipFromOrg', v_Progress);
6002: --
6003: IF (l_debug <> -1) THEN
6004: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6000: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6001: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipFromOrg', v_Progress);
6002: --
6003: IF (l_debug <> -1) THEN
6004: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6005: END IF;
6006: --
6007: raise;
6008: --
6063: --
6064: BEGIN
6065: --
6066: IF (l_debug <> -1) THEN
6067: rlm_core_sv.dpush(C_SDEBUG,'DeriveIntrmdShipToID');
6068: rlm_core_sv.dlog(C_DEBUG,'Cust_Intrmd_Ship_To_Ext',
6069: x_lines_rec.cust_intrmd_ship_to_ext);
6070: rlm_core_sv.dlog(C_DEBUG,'IntrmdShipToID',x_lines_rec.intrmd_ship_to_id);
6071: END IF;
6064: BEGIN
6065: --
6066: IF (l_debug <> -1) THEN
6067: rlm_core_sv.dpush(C_SDEBUG,'DeriveIntrmdShipToID');
6068: rlm_core_sv.dlog(C_DEBUG,'Cust_Intrmd_Ship_To_Ext',
6069: x_lines_rec.cust_intrmd_ship_to_ext);
6070: rlm_core_sv.dlog(C_DEBUG,'IntrmdShipToID',x_lines_rec.intrmd_ship_to_id);
6071: END IF;
6072: --
6066: IF (l_debug <> -1) THEN
6067: rlm_core_sv.dpush(C_SDEBUG,'DeriveIntrmdShipToID');
6068: rlm_core_sv.dlog(C_DEBUG,'Cust_Intrmd_Ship_To_Ext',
6069: x_lines_rec.cust_intrmd_ship_to_ext);
6070: rlm_core_sv.dlog(C_DEBUG,'IntrmdShipToID',x_lines_rec.intrmd_ship_to_id);
6071: END IF;
6072: --
6073: -- IF rlm_message_sv.check_dependency('SHIPTO') THEN
6074: --
6077: --{
6078: v_progress := '020';
6079: --
6080: IF (l_debug <> -1) THEN
6081: rlm_core_sv.dlog(C_DEBUG,'cust_intrmd_ship_to_ext ',
6082: x_lines_rec.cust_intrmd_ship_to_ext);
6083: END IF;
6084: --
6085: BEGIN
6095: --
6096: IF c_IntrmdShipToID_ext%NOTFOUND THEN
6097: --
6098: IF (l_debug <> -1) THEN
6099: rlm_core_sv.dlog(C_DEBUG,'No Intermediate ShipTo Locations found');
6100: END IF;
6101: raise NO_DATA_FOUND;
6102: --
6103: END IF;
6105: CLOSE c_IntrmdShipToID_ext;
6106: --Bugfix 8672453 End
6107: --
6108: IF (l_debug <> -1) THEN
6109: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_id ', x_lines_rec.intrmd_ship_to_id);
6110: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6111: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6112: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6113: END IF;
6106: --Bugfix 8672453 End
6107: --
6108: IF (l_debug <> -1) THEN
6109: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_id ', x_lines_rec.intrmd_ship_to_id);
6110: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6111: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6112: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6113: END IF;
6114: --
6107: --
6108: IF (l_debug <> -1) THEN
6109: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_id ', x_lines_rec.intrmd_ship_to_id);
6110: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6111: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6112: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6113: END IF;
6114: --
6115: END;
6108: IF (l_debug <> -1) THEN
6109: rlm_core_sv.dlog(C_DEBUG, 'intrmd_ship_to_id ', x_lines_rec.intrmd_ship_to_id);
6110: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6111: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6112: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6113: END IF;
6114: --
6115: END;
6116: --
6139: --
6140: IF c_IntrmdShipToID%NOTFOUND THEN
6141: --
6142: IF (l_debug <> -1) THEN
6143: rlm_core_sv.dlog(C_DEBUG,'Invalid Intermediate ShipTo Location');
6144: END IF;
6145: raise e_InvalidIntmdShipto;
6146: --
6147: END IF;
6150: --Bugfix 8672453 End
6151:
6152: --
6153: IF (l_debug <> -1) THEN
6154: rlm_core_sv.dlog(C_DEBUG, 'intermdiate ship-to customer id', v_int_shp_to_cust_id);
6155: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_header_rec.customer_id);
6156: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6157: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6158: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6151:
6152: --
6153: IF (l_debug <> -1) THEN
6154: rlm_core_sv.dlog(C_DEBUG, 'intermdiate ship-to customer id', v_int_shp_to_cust_id);
6155: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_header_rec.customer_id);
6156: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6157: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6158: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6159: END IF;
6152: --
6153: IF (l_debug <> -1) THEN
6154: rlm_core_sv.dlog(C_DEBUG, 'intermdiate ship-to customer id', v_int_shp_to_cust_id);
6155: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_header_rec.customer_id);
6156: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6157: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6158: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6159: END IF;
6160: --
6153: IF (l_debug <> -1) THEN
6154: rlm_core_sv.dlog(C_DEBUG, 'intermdiate ship-to customer id', v_int_shp_to_cust_id);
6155: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_header_rec.customer_id);
6156: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6157: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6158: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6159: END IF;
6160: --
6161: IF v_addStatus = 'I' THEN
6154: rlm_core_sv.dlog(C_DEBUG, 'intermdiate ship-to customer id', v_int_shp_to_cust_id);
6155: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_header_rec.customer_id);
6156: rlm_core_sv.dlog(C_DEBUG, 'Intrmd ST Site Use ID', x_lines_rec.intrmd_st_site_use_id);
6157: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6158: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6159: END IF;
6160: --
6161: IF v_addStatus = 'I' THEN
6162: raise e_InactiveIntmdShipTo;
6171: x_header_rec.header_id,
6172: 'SHIP_TO') THEN
6173: --
6174: IF (l_debug <> -1) THEN
6175: rlm_core_sv.dlog(C_DEBUG,'Invalid customer relationship');
6176: END IF;
6177: --
6178: raise e_invalidIntmdShiptoId;
6179: --
6203: WHERE CUST_ACCT_SITE_ID = x_lines_rec.INTRMD_SHIP_TO_ID
6204: AND site_use_code = 'SHIP_TO';
6205: --
6206: IF (l_debug <> -1) THEN
6207: rlm_core_sv.dlog(C_DEBUG,'intrmd_st_site_use_id ',
6208: x_lines_rec.intrmd_st_site_use_id);
6209: rlm_core_sv.dlog(C_DEBUG,'intrmd_site_use_id status', v_status);
6210: END IF;
6211: --
6205: --
6206: IF (l_debug <> -1) THEN
6207: rlm_core_sv.dlog(C_DEBUG,'intrmd_st_site_use_id ',
6208: x_lines_rec.intrmd_st_site_use_id);
6209: rlm_core_sv.dlog(C_DEBUG,'intrmd_site_use_id status', v_status);
6210: END IF;
6211: --
6212: x_lines_rec.INTMED_SHIP_TO_ORG_ID := x_lines_rec.intrmd_st_site_use_id;
6213: v_progress := '030';
6227: --
6228: -- END IF;
6229: --
6230: IF (l_debug <> -1) THEN
6231: rlm_core_sv.dpop(C_SDEBUG);
6232: END IF;
6233: --
6234: EXCEPTION
6235: --
6234: EXCEPTION
6235: --
6236: WHEN NO_DATA_FOUND THEN
6237: --
6238: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6239: rlm_message_sv.app_error(
6240: x_ExceptionLevel => rlm_message_sv.k_error_level,
6241: x_MessageName => 'RLM_INTRMD_SHIPTO_ID_INVALID',
6242: x_InterfaceHeaderId => x_lines_rec.header_id,
6245: x_value1=>x_lines_rec.cust_intrmd_ship_to_ext,
6246: x_ValidationType => 'INTRMD_SHIP_TO');
6247: --
6248: IF (l_debug <> -1) THEN
6249: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6250: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INTRMD_SHIPTO_ID_INVALID');
6251: END IF;
6252: --
6253: WHEN e_invalidIntmdShiptoId THEN
6246: x_ValidationType => 'INTRMD_SHIP_TO');
6247: --
6248: IF (l_debug <> -1) THEN
6249: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6250: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INTRMD_SHIPTO_ID_INVALID');
6251: END IF;
6252: --
6253: WHEN e_invalidIntmdShiptoId THEN
6254: --
6251: END IF;
6252: --
6253: WHEN e_invalidIntmdShiptoId THEN
6254: --
6255: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6256: --
6257: IF (l_debug <> -1) THEN
6258: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6259: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INTRMD_SHIP_TO_ID_RELATED');
6254: --
6255: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6256: --
6257: IF (l_debug <> -1) THEN
6258: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6259: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INTRMD_SHIP_TO_ID_RELATED');
6260: END IF;
6261: --
6262: WHEN e_IntrmdSiteUseInv THEN
6255: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6256: --
6257: IF (l_debug <> -1) THEN
6258: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6259: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INTRMD_SHIP_TO_ID_RELATED');
6260: END IF;
6261: --
6262: WHEN e_IntrmdSiteUseInv THEN
6263: -- Warning
6270: x_value1=>x_lines_rec.cust_intrmd_ship_to_ext,
6271: x_ValidationType => 'INTRMD_SHIP_TO');
6272: --
6273: IF (l_debug <> -1) THEN
6274: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6275: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTRMD_SHIPTO_SITEUSE');
6276: END IF;
6277: --
6278: WHEN e_InactiveIntShipTo THEN
6271: x_ValidationType => 'INTRMD_SHIP_TO');
6272: --
6273: IF (l_debug <> -1) THEN
6274: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6275: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTRMD_SHIPTO_SITEUSE');
6276: END IF;
6277: --
6278: WHEN e_InactiveIntShipTo THEN
6279: -- Warning
6286: x_value1=>x_lines_rec.cust_intrmd_ship_to_ext,
6287: x_ValidationType => 'INTRMD_SHIP_TO');
6288: --
6289: IF (l_debug <> -1) THEN
6290: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6291: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTSHIP_INACTIVE');
6292: END IF;
6293: --
6294: WHEN e_InactiveIntShipSiteUse THEN
6287: x_ValidationType => 'INTRMD_SHIP_TO');
6288: --
6289: IF (l_debug <> -1) THEN
6290: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6291: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTSHIP_INACTIVE');
6292: END IF;
6293: --
6294: WHEN e_InactiveIntShipSiteUse THEN
6295: -- Warning
6302: x_value1=>x_lines_rec.cust_intrmd_ship_to_ext,
6303: x_ValidationType => 'INTRMD_SHIP_TO');
6304: --
6305: IF (l_debug <> -1) THEN
6306: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6307: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTSHIP_SITE_USE_INACTIVE');
6308: END IF;
6309: --
6310: WHEN OTHERS THEN
6303: x_ValidationType => 'INTRMD_SHIP_TO');
6304: --
6305: IF (l_debug <> -1) THEN
6306: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6307: rlm_core_sv.dpop(C_SDEBUG,'WARNING: RLM_INTSHIP_SITE_USE_INACTIVE');
6308: END IF;
6309: --
6310: WHEN OTHERS THEN
6311: --
6308: END IF;
6309: --
6310: WHEN OTHERS THEN
6311: --
6312: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6313: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIntrmdShipToID',
6314: v_Progress);
6315: --
6316: IF (l_debug <> -1) THEN
6313: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIntrmdShipToID',
6314: v_Progress);
6315: --
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6318: END IF;
6319: --
6320: raise;
6321: --
6399: --
6400: BEGIN
6401: --
6402: IF (l_debug <> -1) THEN
6403: rlm_core_sv.dpush(C_SDEBUG,'DeriveBillToID');
6404: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.bill_to_address_id',
6405: x_lines_rec.bill_to_address_id);
6406: rlm_core_sv.dlog(C_DEBUG,'x_cum_org_level_code',
6407: x_cum_org_level_code);
6400: BEGIN
6401: --
6402: IF (l_debug <> -1) THEN
6403: rlm_core_sv.dpush(C_SDEBUG,'DeriveBillToID');
6404: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.bill_to_address_id',
6405: x_lines_rec.bill_to_address_id);
6406: rlm_core_sv.dlog(C_DEBUG,'x_cum_org_level_code',
6407: x_cum_org_level_code);
6408: END IF;
6402: IF (l_debug <> -1) THEN
6403: rlm_core_sv.dpush(C_SDEBUG,'DeriveBillToID');
6404: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.bill_to_address_id',
6405: x_lines_rec.bill_to_address_id);
6406: rlm_core_sv.dlog(C_DEBUG,'x_cum_org_level_code',
6407: x_cum_org_level_code);
6408: END IF;
6409: --
6410: -- R12 Perf Bug 4129291 : Modified queries to use both hz_cust_acct_sites and
6421: --{
6422: v_progress := '030';
6423: --
6424: IF (l_debug <> -1) THEN
6425: rlm_core_sv.dlog(C_DEBUG,'cust_bill_to_ext ', x_lines_rec.cust_bill_to_ext);
6426: END IF;
6427: --
6428: --if the bill_to does not exist for the customer, try customer
6429: -- relationship
6440: --
6441: IF c_BillToID_ext%NOTFOUND THEN
6442: --
6443: IF (l_debug <> -1) THEN
6444: rlm_core_sv.dlog(C_DEBUG,'No BillTo Locations found');
6445: rlm_core_sv.dlog(C_DEBUG,'e_related_cust');
6446: END IF;
6447: --
6448: OPEN c_BillToID_cust_rel;
6441: IF c_BillToID_ext%NOTFOUND THEN
6442: --
6443: IF (l_debug <> -1) THEN
6444: rlm_core_sv.dlog(C_DEBUG,'No BillTo Locations found');
6445: rlm_core_sv.dlog(C_DEBUG,'e_related_cust');
6446: END IF;
6447: --
6448: OPEN c_BillToID_cust_rel;
6449: --
6454: --
6455: IF c_BillToID_cust_rel%NOTFOUND THEN
6456: --
6457: IF (l_debug <> -1) THEN
6458: rlm_core_sv.dlog(C_DEBUG,'No Customer Relation record found');
6459: END IF;
6460: raise NO_DATA_FOUND;
6461: --
6462: END IF;
6461: --
6462: END IF;
6463: --
6464: IF (l_debug <> -1) THEN
6465: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6466: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6467: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6468: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id', v_bill_to_customer_id);
6469: END IF;
6462: END IF;
6463: --
6464: IF (l_debug <> -1) THEN
6465: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6466: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6467: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6468: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id', v_bill_to_customer_id);
6469: END IF;
6470: --
6463: --
6464: IF (l_debug <> -1) THEN
6465: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6466: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6467: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6468: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id', v_bill_to_customer_id);
6469: END IF;
6470: --
6471: IF v_addStatus = 'I' THEN
6464: IF (l_debug <> -1) THEN
6465: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6466: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6467: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6468: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id', v_bill_to_customer_id);
6469: END IF;
6470: --
6471: IF v_addStatus = 'I' THEN
6472: raise e_InactiveBillTo;
6480: --
6481: END IF;
6482: --
6483: IF (l_debug <> -1) THEN
6484: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6485: rlm_core_sv.dlog(C_DEBUG, 'bill_to_site_use_id', x_lines_rec.bill_to_site_use_id);
6486: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6487: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6488: END IF;
6481: END IF;
6482: --
6483: IF (l_debug <> -1) THEN
6484: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6485: rlm_core_sv.dlog(C_DEBUG, 'bill_to_site_use_id', x_lines_rec.bill_to_site_use_id);
6486: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6487: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6488: END IF;
6489: --
6482: --
6483: IF (l_debug <> -1) THEN
6484: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6485: rlm_core_sv.dlog(C_DEBUG, 'bill_to_site_use_id', x_lines_rec.bill_to_site_use_id);
6486: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6487: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6488: END IF;
6489: --
6490: IF v_addStatus = 'I' THEN
6483: IF (l_debug <> -1) THEN
6484: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6485: rlm_core_sv.dlog(C_DEBUG, 'bill_to_site_use_id', x_lines_rec.bill_to_site_use_id);
6486: rlm_core_sv.dlog(C_DEBUG,'bill to Address status ', v_addStatus);
6487: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6488: END IF;
6489: --
6490: IF v_addStatus = 'I' THEN
6491: raise e_InactiveBillTo;
6511: --{
6512: v_progress := '040';
6513: --
6514: IF (l_debug <> -1) THEN
6515: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
6516: x_lines_rec.ship_to_address_id);
6517: END IF;
6518: --
6519: -- If the bill_to_ext is null then we use the bill_to
6530: --
6531: IF c_BillToID_org_level%NOTFOUND THEN
6532: --
6533: IF (l_debug <> -1) THEN
6534: rlm_core_sv.dlog(C_DEBUG,'Invalid BillTo Location(Org level)');
6535: END IF;
6536: raise e_InvalidBillTo;
6537: --
6538: END IF;
6540: CLOSE c_BillToID_org_level;
6541: --Bugfix 8672453 End
6542:
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dlog(C_DEBUG,'bill site use status ', v_siteUseStatus );
6545: rlm_core_sv.dlog(C_DEBUG,'bill site use id ', x_lines_rec.bill_to_site_use_id );
6546: END IF;
6547: --
6548: x_lines_rec.invoice_to_org_id := x_lines_rec.bill_to_site_use_id;
6541: --Bugfix 8672453 End
6542:
6543: IF (l_debug <> -1) THEN
6544: rlm_core_sv.dlog(C_DEBUG,'bill site use status ', v_siteUseStatus );
6545: rlm_core_sv.dlog(C_DEBUG,'bill site use id ', x_lines_rec.bill_to_site_use_id );
6546: END IF;
6547: --
6548: x_lines_rec.invoice_to_org_id := x_lines_rec.bill_to_site_use_id;
6549: --
6547: --
6548: x_lines_rec.invoice_to_org_id := x_lines_rec.bill_to_site_use_id;
6549: --
6550: IF (l_debug <> -1) THEN
6551: rlm_core_sv.dlog(C_DEBUG,'invoice_to_org_id ', x_lines_rec.invoice_to_org_id );
6552: END IF;
6553: --
6554: IF x_lines_rec.bill_to_site_use_id is NOT NULL AND v_status = 'A'THEN
6555: --
6576: --}
6577: END;
6578: --
6579: IF (l_debug <> -1) THEN
6580: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id ', x_lines_rec.bill_to_address_id);
6581: END IF;
6582: --}
6583: END IF;
6584: --}
6599: --
6600: IF c_BillToID%NOTFOUND THEN
6601: --
6602: IF (l_debug <> -1) THEN
6603: rlm_core_sv.dlog(C_DEBUG,'Invalid BillTo Location');
6604: END IF;
6605: raise NO_DATA_FOUND;
6606: --
6607: END IF;
6609: CLOSE c_BillToID;
6610: --Bugfix 8672453 End
6611: --
6612: IF (l_debug <> -1) THEN
6613: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id', x_lines_rec.bill_to_address_id);
6614: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id',v_bill_to_customer_id);
6615: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6616: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6617: rlm_core_sv.dlog(C_DEBUG, 'Site Use ID', x_lines_rec.bill_to_site_use_id);
6610: --Bugfix 8672453 End
6611: --
6612: IF (l_debug <> -1) THEN
6613: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id', x_lines_rec.bill_to_address_id);
6614: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id',v_bill_to_customer_id);
6615: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6616: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6617: rlm_core_sv.dlog(C_DEBUG, 'Site Use ID', x_lines_rec.bill_to_site_use_id);
6618: END IF;
6611: --
6612: IF (l_debug <> -1) THEN
6613: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id', x_lines_rec.bill_to_address_id);
6614: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id',v_bill_to_customer_id);
6615: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6616: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6617: rlm_core_sv.dlog(C_DEBUG, 'Site Use ID', x_lines_rec.bill_to_site_use_id);
6618: END IF;
6619: --
6612: IF (l_debug <> -1) THEN
6613: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id', x_lines_rec.bill_to_address_id);
6614: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id',v_bill_to_customer_id);
6615: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6616: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6617: rlm_core_sv.dlog(C_DEBUG, 'Site Use ID', x_lines_rec.bill_to_site_use_id);
6618: END IF;
6619: --
6620: IF v_addStatus = 'I' THEN
6613: rlm_core_sv.dlog(C_DEBUG,'bill_to_address_id', x_lines_rec.bill_to_address_id);
6614: rlm_core_sv.dlog(C_DEBUG,'v_bill_to_customer_id',v_bill_to_customer_id);
6615: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6616: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6617: rlm_core_sv.dlog(C_DEBUG, 'Site Use ID', x_lines_rec.bill_to_site_use_id);
6618: END IF;
6619: --
6620: IF v_addStatus = 'I' THEN
6621: raise e_InactiveBillTo;
6636: --
6637: x_lines_rec.invoice_to_org_id := x_lines_rec.bill_to_site_use_id;
6638: --
6639: IF (l_debug <> -1) THEN
6640: rlm_core_sv.dlog(C_DEBUG, 'Invoice To Org ID', x_lines_rec.invoice_to_org_id);
6641: END IF;
6642: --}
6643: END;
6644: --}
6646: --}
6647: END IF;
6648: --
6649: IF (l_debug <> -1) THEN
6650: rlm_core_sv.dpop(C_SDEBUG);
6651: END IF;
6652: --
6653: EXCEPTION
6654: --
6653: EXCEPTION
6654: --
6655: WHEN NO_DATA_FOUND THEN
6656: --
6657: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6658: rlm_message_sv.app_error(
6659: x_ExceptionLevel => rlm_message_sv.k_error_level,
6660: x_MessageName => 'RLM_BILLTO_INVALID',
6661: x_InterfaceHeaderId => x_lines_rec.header_id,
6665: x_header_rec.ece_tp_location_code_ext),
6666: x_ValidationType => 'BILL_TO');
6667: --
6668: IF (l_debug <> -1) THEN
6669: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6670: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_INVALID');
6671: END IF;
6672: --
6673: WHEN e_BillToSiteUseInv THEN
6666: x_ValidationType => 'BILL_TO');
6667: --
6668: IF (l_debug <> -1) THEN
6669: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6670: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_INVALID');
6671: END IF;
6672: --
6673: WHEN e_BillToSiteUseInv THEN
6674: --
6671: END IF;
6672: --
6673: WHEN e_BillToSiteUseInv THEN
6674: --
6675: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6676: rlm_message_sv.app_error(
6677: x_ExceptionLevel => rlm_message_sv.k_error_level,
6678: x_MessageName => 'RLM_BILLTO_SITEUSE',
6679: x_InterfaceHeaderId => x_lines_rec.header_id,
6683: x_header_rec.ece_tp_location_code_ext),
6684: x_ValidationType => 'BILL_TO');
6685: --
6686: IF (l_debug <> -1) THEN
6687: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6688: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_SITEUSE');
6689: END IF;
6690: --
6691: WHEN e_InvalidBillTo THEN
6684: x_ValidationType => 'BILL_TO');
6685: --
6686: IF (l_debug <> -1) THEN
6687: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6688: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_SITEUSE');
6689: END IF;
6690: --
6691: WHEN e_InvalidBillTo THEN
6692: --
6689: END IF;
6690: --
6691: WHEN e_InvalidBillTo THEN
6692: --
6693: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6694: rlm_message_sv.app_error(
6695: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6696: x_InterfaceHeaderId => x_lines_rec.header_id,
6697: x_InterfaceLineId => x_lines_rec.line_id,
6700: x_header_rec.ece_tp_location_code_ext),
6701: x_ValidationType => 'BILL_TO');
6702: --
6703: IF (l_debug <> -1) THEN
6704: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6705: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_DERIVED');
6706: END IF;
6707: --
6708: WHEN e_bad_location THEN
6701: x_ValidationType => 'BILL_TO');
6702: --
6703: IF (l_debug <> -1) THEN
6704: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6705: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_DERIVED');
6706: END IF;
6707: --
6708: WHEN e_bad_location THEN
6709: --
6706: END IF;
6707: --
6708: WHEN e_bad_location THEN
6709: --
6710: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6711: rlm_message_sv.app_error(
6712: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6713: x_InterfaceHeaderId => x_lines_rec.header_id,
6714: x_InterfaceLineId => x_lines_rec.line_id,
6717: x_header_rec.ece_tp_location_code_ext),
6718: x_ValidationType => 'BILL_TO');
6719: --
6720: IF (l_debug <> -1) THEN
6721: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6722: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_DERIVED');
6723: END IF;
6724: --
6725: WHEN e_InactiveBillTo THEN
6718: x_ValidationType => 'BILL_TO');
6719: --
6720: IF (l_debug <> -1) THEN
6721: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6722: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_DERIVED');
6723: END IF;
6724: --
6725: WHEN e_InactiveBillTo THEN
6726: --
6723: END IF;
6724: --
6725: WHEN e_InactiveBillTo THEN
6726: --
6727: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6728: --
6729: rlm_message_sv.app_error(
6730: x_ExceptionLevel => rlm_message_sv.k_error_level,
6731: x_MessageName => 'RLM_BILLTO_INACTIVE',
6736: x_header_rec.ece_tp_location_code_ext),
6737: x_ValidationType => 'BILL_TO');
6738: --
6739: IF (l_debug <> -1) THEN
6740: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6741: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_ACTIVE');
6742: END IF;
6743: --
6744: WHEN e_InvalidBilltoId THEN
6737: x_ValidationType => 'BILL_TO');
6738: --
6739: IF (l_debug <> -1) THEN
6740: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6741: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_ACTIVE');
6742: END IF;
6743: --
6744: WHEN e_InvalidBilltoId THEN
6745: --
6742: END IF;
6743: --
6744: WHEN e_InvalidBilltoId THEN
6745: --
6746: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6747: --
6748: rlm_message_sv.app_error(
6749: x_ExceptionLevel => rlm_message_sv.k_error_level,
6750: x_MessageName => 'RLM_BILL_TO_ID_NO_RELATED',
6755: x_header_rec.ece_tp_location_code_ext),
6756: x_ValidationType => 'BILL_TO');
6757: --
6758: IF (l_debug <> -1) THEN
6759: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6760: rlm_core_sv.dlog(C_DEBUG,'Customer Relationships: Bill to address id passed does not belong to the Customer nor its related customers');
6761: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_RELATED');
6762: END IF;
6763: --
6756: x_ValidationType => 'BILL_TO');
6757: --
6758: IF (l_debug <> -1) THEN
6759: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6760: rlm_core_sv.dlog(C_DEBUG,'Customer Relationships: Bill to address id passed does not belong to the Customer nor its related customers');
6761: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_RELATED');
6762: END IF;
6763: --
6764: WHEN e_InactiveBillSiteUse THEN
6757: --
6758: IF (l_debug <> -1) THEN
6759: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6760: rlm_core_sv.dlog(C_DEBUG,'Customer Relationships: Bill to address id passed does not belong to the Customer nor its related customers');
6761: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_ID_NOT_RELATED');
6762: END IF;
6763: --
6764: WHEN e_InactiveBillSiteUse THEN
6765: --
6762: END IF;
6763: --
6764: WHEN e_InactiveBillSiteUse THEN
6765: --
6766: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6767: rlm_message_sv.app_error(
6768: x_ExceptionLevel => rlm_message_sv.k_error_level,
6769: x_MessageName => 'RLM_BILLTO_SITE_USE_INACTIVE',
6770: x_InterfaceHeaderId => x_lines_rec.header_id,
6774: x_header_rec.ece_tp_location_code_ext),
6775: x_ValidationType => 'BILL_TO');
6776: --
6777: IF (l_debug <> -1) THEN
6778: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6779: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_SITE_USE_INACTIVE');
6780: END IF;
6781: --
6782: WHEN OTHERS THEN
6775: x_ValidationType => 'BILL_TO');
6776: --
6777: IF (l_debug <> -1) THEN
6778: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
6779: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_BILLTO_SITE_USE_INACTIVE');
6780: END IF;
6781: --
6782: WHEN OTHERS THEN
6783: --
6780: END IF;
6781: --
6782: WHEN OTHERS THEN
6783: --
6784: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6785: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveBillToID',v_Progress);
6786: --
6787: IF (l_debug <> -1) THEN
6788: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6784: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6785: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveBillToID',v_Progress);
6786: --
6787: IF (l_debug <> -1) THEN
6788: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6789: END IF;
6790: --
6791: raise;
6792: --
6855: --
6856: BEGIN
6857: --
6858: IF (l_debug <> -1) THEN
6859: rlm_core_sv.dpush(C_SDEBUG, 'DeriveShipToID');
6860: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id ',
6861: x_lines_rec.ship_to_address_id);
6862: rlm_core_sv.dlog(C_DEBUG, 'ece_tp_location_code_ext',
6863: x_header_rec.ece_tp_location_code_ext);
6856: BEGIN
6857: --
6858: IF (l_debug <> -1) THEN
6859: rlm_core_sv.dpush(C_SDEBUG, 'DeriveShipToID');
6860: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id ',
6861: x_lines_rec.ship_to_address_id);
6862: rlm_core_sv.dlog(C_DEBUG, 'ece_tp_location_code_ext',
6863: x_header_rec.ece_tp_location_code_ext);
6864: rlm_core_sv.dlog(C_DEBUG, 'cust_ship_to_ext',
6858: IF (l_debug <> -1) THEN
6859: rlm_core_sv.dpush(C_SDEBUG, 'DeriveShipToID');
6860: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id ',
6861: x_lines_rec.ship_to_address_id);
6862: rlm_core_sv.dlog(C_DEBUG, 'ece_tp_location_code_ext',
6863: x_header_rec.ece_tp_location_code_ext);
6864: rlm_core_sv.dlog(C_DEBUG, 'cust_ship_to_ext',
6865: x_lines_rec.cust_ship_to_ext);
6866: rlm_core_sv.dlog(C_DEBUG, 'ece_primary_address_id',
6860: rlm_core_sv.dlog(C_DEBUG, 'ship_to_address_id ',
6861: x_lines_rec.ship_to_address_id);
6862: rlm_core_sv.dlog(C_DEBUG, 'ece_tp_location_code_ext',
6863: x_header_rec.ece_tp_location_code_ext);
6864: rlm_core_sv.dlog(C_DEBUG, 'cust_ship_to_ext',
6865: x_lines_rec.cust_ship_to_ext);
6866: rlm_core_sv.dlog(C_DEBUG, 'ece_primary_address_id',
6867: x_header_rec.ece_primary_address_id);
6868:
6862: rlm_core_sv.dlog(C_DEBUG, 'ece_tp_location_code_ext',
6863: x_header_rec.ece_tp_location_code_ext);
6864: rlm_core_sv.dlog(C_DEBUG, 'cust_ship_to_ext',
6865: x_lines_rec.cust_ship_to_ext);
6866: rlm_core_sv.dlog(C_DEBUG, 'ece_primary_address_id',
6867: x_header_rec.ece_primary_address_id);
6868:
6869: END IF;
6870: --
6876: --{
6877: v_progress := '030';
6878: --
6879: IF (l_debug <> -1) THEN
6880: rlm_core_sv.dlog(C_DEBUG,'Using Ship-To-Ext to derive Id ',
6881: x_lines_rec.cust_ship_to_ext);
6882: END IF;
6883: --
6884: -- Following query is changed as per TCA obsolescence project.
6894: --
6895: IF c_ShipToID_line_ext%NOTFOUND THEN
6896: --
6897: IF (l_debug <> -1) THEN
6898: rlm_core_sv.dlog(C_DEBUG,'No ShipTo Locations found');
6899: END IF;
6900: raise NO_DATA_FOUND;
6901: --
6902: END IF;
6904: CLOSE c_ShipToID_line_ext;
6905: --Bugfix 8672453 End
6906: --
6907: IF (l_debug <> -1) THEN
6908: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6905: --Bugfix 8672453 End
6906: --
6907: IF (l_debug <> -1) THEN
6908: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6913: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6906: --
6907: IF (l_debug <> -1) THEN
6908: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6913: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6914: END IF;
6907: IF (l_debug <> -1) THEN
6908: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6913: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6914: END IF;
6915: --
6908: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6913: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6914: END IF;
6915: --
6916: IF v_addStatus = 'I' THEN
6909: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id ', x_lines_rec.ship_to_customer_id);
6910: rlm_core_sv.dlog(C_DEBUG,'customer_id ', x_header_rec.customer_id);
6911: rlm_core_sv.dlog(C_DEBUG, 'x_lines_rec.ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6912: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6913: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6914: END IF;
6915: --
6916: IF v_addStatus = 'I' THEN
6917: raise e_InactiveShipTo;
6924: /* IF x_header_rec.customer_id <> x_lines_rec.ship_to_customer_id
6925: AND g_LineLevelShipTo THEN
6926: --
6927: IF (l_debug <> -1) THEN
6928: rlm_core_sv.dlog(C_DEBUG,'ship to customer id <> header customer id');
6929: END IF;
6930: --
6931: raise e_InvalidCustomerId;
6932: --
6938: --{
6939: v_progress := '035';
6940: --
6941: IF (l_debug <> -1) THEN
6942: rlm_core_sv.dlog(C_DEBUG,'Using TP Location Code to derive ID ',
6943: x_header_rec.ece_tp_location_code_ext);
6944: END IF;
6945: --
6946: BEGIN
6956: --
6957: IF c_ShipToID_header_ext%NOTFOUND THEN
6958: --
6959: IF (l_debug <> -1) THEN
6960: rlm_core_sv.dlog(C_DEBUG,'Invalid ShipTo Location(Header)');
6961: END IF;
6962: raise e_InvalidShipTo;
6963: --
6964: END IF;
6966: CLOSE c_ShipToID_header_ext;
6967: --Bugfix 8672453 End
6968: --
6969: IF (l_debug <> -1) THEN
6970: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6971: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6972: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6973: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6974: END IF;
6967: --Bugfix 8672453 End
6968: --
6969: IF (l_debug <> -1) THEN
6970: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6971: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6972: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6973: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6974: END IF;
6975: --
6968: --
6969: IF (l_debug <> -1) THEN
6970: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6971: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6972: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6973: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6974: END IF;
6975: --
6976: IF v_addStatus = 'I' THEN
6969: IF (l_debug <> -1) THEN
6970: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ', x_lines_rec.ship_to_address_id);
6971: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id', x_lines_rec.ship_to_site_use_id);
6972: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
6973: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
6974: END IF;
6975: --
6976: IF v_addStatus = 'I' THEN
6977: raise e_InactiveShipTo;
7004: AND rad.status = 'A'
7005: AND rad.org_id = rasu.org_id;
7006: --
7007: IF (l_debug <> -1) THEN
7008: rlm_core_sv.dlog(C_DEBUG,'customer_id ',x_header_rec.customer_id);
7009: rlm_core_sv.dlog(C_DEBUG,'ece_primary_address_id ',
7010: x_header_rec.ece_primary_address_id);
7011: END IF;
7012: --}
7005: AND rad.org_id = rasu.org_id;
7006: --
7007: IF (l_debug <> -1) THEN
7008: rlm_core_sv.dlog(C_DEBUG,'customer_id ',x_header_rec.customer_id);
7009: rlm_core_sv.dlog(C_DEBUG,'ece_primary_address_id ',
7010: x_header_rec.ece_primary_address_id);
7011: END IF;
7012: --}
7013: END IF;
7014: --
7015: x_lines_rec.ship_to_address_id := x_header_rec.ece_primary_address_id;
7016: --
7017: IF (l_debug <> -1) THEN
7018: rlm_core_sv.dlog(C_DEBUG, 'Using ECE primary address as ship-to');
7019: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
7020: x_lines_rec.ship_to_address_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7022: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7015: x_lines_rec.ship_to_address_id := x_header_rec.ece_primary_address_id;
7016: --
7017: IF (l_debug <> -1) THEN
7018: rlm_core_sv.dlog(C_DEBUG, 'Using ECE primary address as ship-to');
7019: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
7020: x_lines_rec.ship_to_address_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7022: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7023: END IF;
7017: IF (l_debug <> -1) THEN
7018: rlm_core_sv.dlog(C_DEBUG, 'Using ECE primary address as ship-to');
7019: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
7020: x_lines_rec.ship_to_address_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7022: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7023: END IF;
7024: --}
7025: END IF;
7018: rlm_core_sv.dlog(C_DEBUG, 'Using ECE primary address as ship-to');
7019: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id ',
7020: x_lines_rec.ship_to_address_id);
7021: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7022: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7023: END IF;
7024: --}
7025: END IF;
7026: --
7046: --
7047: IF c_ShipToID%NOTFOUND THEN
7048: --
7049: IF (l_debug <> -1) THEN
7050: rlm_core_sv.dlog(C_DEBUG,'Invalid ShipTo Location');
7051: END IF;
7052: raise e_InvalidShipto;
7053: --
7054: END IF;
7058:
7059: -- Following query is changed as per TCA obsolescence project.
7060: --
7061: IF (l_debug <> -1) THEN
7062: rlm_core_sv.dlog(C_DEBUG, 'ship-to customer id',
7063: x_lines_rec.ship_to_customer_id);
7064: rlm_core_sv.dlog(C_DEBUG, 'Ship To Site Use ID',
7065: x_lines_rec.ship_to_site_use_id);
7066: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7060: --
7061: IF (l_debug <> -1) THEN
7062: rlm_core_sv.dlog(C_DEBUG, 'ship-to customer id',
7063: x_lines_rec.ship_to_customer_id);
7064: rlm_core_sv.dlog(C_DEBUG, 'Ship To Site Use ID',
7065: x_lines_rec.ship_to_site_use_id);
7066: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7067: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7068: END IF;
7062: rlm_core_sv.dlog(C_DEBUG, 'ship-to customer id',
7063: x_lines_rec.ship_to_customer_id);
7064: rlm_core_sv.dlog(C_DEBUG, 'Ship To Site Use ID',
7065: x_lines_rec.ship_to_site_use_id);
7066: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7067: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7068: END IF;
7069: --
7070: IF v_addStatus = 'I' THEN
7063: x_lines_rec.ship_to_customer_id);
7064: rlm_core_sv.dlog(C_DEBUG, 'Ship To Site Use ID',
7065: x_lines_rec.ship_to_site_use_id);
7066: rlm_core_sv.dlog(C_DEBUG, 'Address Status', v_addStatus);
7067: rlm_core_sv.dlog(C_DEBUG, 'Site Use Status', v_siteUseStatus);
7068: END IF;
7069: --
7070: IF v_addStatus = 'I' THEN
7071: raise e_InactiveShipTo;
7075: RAISE e_InactiveShipSiteUse;
7076: END IF;
7077: --
7078: IF (l_debug <> -1) THEN
7079: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_customer_id', x_lines_rec.ship_to_customer_id);
7080: END IF;
7081: --
7082: IF NOT CustomerRelationship(x_header_rec.customer_id,
7083: x_lines_rec.ship_to_customer_id,
7084: x_header_rec.header_id,
7085: 'SHIP_TO') THEN
7086: --
7087: IF (l_debug <> -1) THEN
7088: rlm_core_sv.dlog(C_DEBUG,'Invalid customer relationship');
7089: END IF;
7090: --
7091: raise e_InvalidShipToID;
7092: --
7116: --
7117: x_lines_rec.ship_to_org_id := x_lines_rec.ship_to_site_use_id;
7118: --
7119: IF (l_debug <> -1) THEN
7120: rlm_core_sv.dlog(C_DEBUG,'site use id status ', v_status );
7121: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id ',
7122: x_lines_rec.ship_to_site_use_id);
7123: END IF;
7124: --
7117: x_lines_rec.ship_to_org_id := x_lines_rec.ship_to_site_use_id;
7118: --
7119: IF (l_debug <> -1) THEN
7120: rlm_core_sv.dlog(C_DEBUG,'site use id status ', v_status );
7121: rlm_core_sv.dlog(C_DEBUG,'ship_to_site_use_id ',
7122: x_lines_rec.ship_to_site_use_id);
7123: END IF;
7124: --
7125: IF v_status = 'I' THEN
7137: --}
7138: END IF;
7139: --
7140: IF (l_debug <> -1) THEN
7141: rlm_core_sv.dpop(C_SDEBUG);
7142: END IF;
7143: --
7144: EXCEPTION
7145: --
7144: EXCEPTION
7145: --
7146: WHEN NO_DATA_FOUND THEN
7147: --
7148: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7149: --
7150: rlm_message_sv.app_error(
7151: x_ExceptionLevel => rlm_message_sv.k_error_level,
7152: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7157: x_header_rec.ece_tp_location_code_ext),
7158: x_ValidationType => 'SHIP_TO');
7159: --
7160: IF (l_debug <> -1) THEN
7161: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7162: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_NOT_DERIVED');
7163: END IF;
7164: --
7165: WHEN e_ShipToSiteUseInv THEN
7158: x_ValidationType => 'SHIP_TO');
7159: --
7160: IF (l_debug <> -1) THEN
7161: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7162: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_NOT_DERIVED');
7163: END IF;
7164: --
7165: WHEN e_ShipToSiteUseInv THEN
7166: --
7163: END IF;
7164: --
7165: WHEN e_ShipToSiteUseInv THEN
7166: --
7167: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7168: rlm_message_sv.app_error(
7169: x_ExceptionLevel => rlm_message_sv.k_error_level,
7170: x_MessageName => 'RLM_SHIPTO_SITEUSE',
7171: x_InterfaceHeaderId => x_lines_rec.header_id,
7175: x_header_rec.ece_tp_location_code_ext),
7176: x_ValidationType => 'SHIP_TO');
7177: --
7178: IF (l_debug <> -1) THEN
7179: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7180: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_SITEUSE');
7181: END IF;
7182: --
7183: WHEN e_InvalidShipTo THEN
7176: x_ValidationType => 'SHIP_TO');
7177: --
7178: IF (l_debug <> -1) THEN
7179: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7180: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_SITEUSE');
7181: END IF;
7182: --
7183: WHEN e_InvalidShipTo THEN
7184: --
7181: END IF;
7182: --
7183: WHEN e_InvalidShipTo THEN
7184: --
7185: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7186: --
7187: rlm_message_sv.app_error(
7188: x_ExceptionLevel => rlm_message_sv.k_error_level,
7189: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7194: x_header_rec.ece_tp_location_code_ext),
7195: x_ValidationType => 'SHIP_TO');
7196: --
7197: IF (l_debug <> -1) THEN
7198: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7199: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_ID_NOT_DERIVED');
7200: END IF;
7201: --
7202: WHEN e_InvalidShipToID THEN
7195: x_ValidationType => 'SHIP_TO');
7196: --
7197: IF (l_debug <> -1) THEN
7198: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7199: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_ID_NOT_DERIVED');
7200: END IF;
7201: --
7202: WHEN e_InvalidShipToID THEN
7203: --
7200: END IF;
7201: --
7202: WHEN e_InvalidShipToID THEN
7203: --
7204: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7205: --
7206: IF (l_debug <> -1) THEN
7207: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7208: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIP_TO_ID_NOT_RELATED');
7203: --
7204: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7205: --
7206: IF (l_debug <> -1) THEN
7207: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7208: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIP_TO_ID_NOT_RELATED');
7209: END IF;
7210: --
7211: WHEN e_InactiveShipTo THEN
7204: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7205: --
7206: IF (l_debug <> -1) THEN
7207: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7208: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIP_TO_ID_NOT_RELATED');
7209: END IF;
7210: --
7211: WHEN e_InactiveShipTo THEN
7212: --
7209: END IF;
7210: --
7211: WHEN e_InactiveShipTo THEN
7212: --
7213: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7214: --
7215: rlm_message_sv.app_error(
7216: x_ExceptionLevel => rlm_message_sv.k_error_level,
7217: x_MessageName => 'RLM_SHIPTO_INACTIVE',
7222: x_header_rec.ece_tp_location_code_ext),
7223: x_ValidationType => 'SHIP_TO');
7224: --
7225: IF (l_debug <> -1) THEN
7226: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7227: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_INACTIVE');
7228: END IF;
7229: --
7230: WHEN e_InactiveShipSiteUse THEN
7223: x_ValidationType => 'SHIP_TO');
7224: --
7225: IF (l_debug <> -1) THEN
7226: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7227: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_INACTIVE');
7228: END IF;
7229: --
7230: WHEN e_InactiveShipSiteUse THEN
7231: --
7228: END IF;
7229: --
7230: WHEN e_InactiveShipSiteUse THEN
7231: --
7232: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7233: --
7234: rlm_message_sv.app_error(
7235: x_ExceptionLevel => rlm_message_sv.k_error_level,
7236: x_MessageName => 'RLM_SHIPTO_SITE_USE_INACTIVE',
7240: x_value1=>x_header_rec.ece_tp_location_code_ext,
7241: x_ValidationType => 'SHIP_TO');
7242: --
7243: IF (l_debug <> -1) THEN
7244: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7245: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_SITE_USE_INACTIVE');
7246: END IF;
7247: --
7248: WHEN e_InvalidCustomerId THEN
7241: x_ValidationType => 'SHIP_TO');
7242: --
7243: IF (l_debug <> -1) THEN
7244: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7245: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SHIPTO_SITE_USE_INACTIVE');
7246: END IF;
7247: --
7248: WHEN e_InvalidCustomerId THEN
7249: --
7246: END IF;
7247: --
7248: WHEN e_InvalidCustomerId THEN
7249: --
7250: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7251: --
7252: rlm_message_sv.app_error(
7253: x_ExceptionLevel => rlm_message_sv.k_error_level,
7254: x_MessageName => 'RLM_INVALID_CUSTOMER',
7258: x_value1=>x_header_rec.ece_tp_location_code_ext,
7259: x_ValidationType => 'SHIP_TO');
7260: --
7261: IF (l_debug <> -1) THEN
7262: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7263: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVALID_CUSTOMER');
7264: END IF;
7265: --
7266: WHEN OTHERS THEN
7259: x_ValidationType => 'SHIP_TO');
7260: --
7261: IF (l_debug <> -1) THEN
7262: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7263: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_INVALID_CUSTOMER');
7264: END IF;
7265: --
7266: WHEN OTHERS THEN
7267: --
7264: END IF;
7265: --
7266: WHEN OTHERS THEN
7267: --
7268: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7269: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipToID',
7270: v_Progress);
7271: --
7272: IF (l_debug <> -1) THEN
7269: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipToID',
7270: v_Progress);
7271: --
7272: IF (l_debug <> -1) THEN
7273: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7274: END IF;
7275: raise;
7276: --
7277: END DeriveShipToID;
7295:
7296: BEGIN
7297: --
7298: IF (l_debug <> -1) THEN
7299: rlm_core_sv.dpush(C_SDEBUG,'validateWithCumRec');
7300: END IF;
7301: --
7302: IF (x_lines_rec.cust_po_number IS NULL) AND
7303: x_Group_rec.setup_terms_rec.CUM_CONTROL_CODE IN
7322: v_cum_record.cum_key_id := NULL;
7323: v_cum_key_record := x_cum_key_record;
7324: --
7325: IF (l_debug <> -1) THEN
7326: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7327: v_cum_key_record.customer_item_id);
7328: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7329: v_cum_key_record.ship_from_org_id);
7330: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7324: --
7325: IF (l_debug <> -1) THEN
7326: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7327: v_cum_key_record.customer_item_id);
7328: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7329: v_cum_key_record.ship_from_org_id);
7330: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7331: v_cum_key_record.ship_to_address_id);
7332: END IF;
7326: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7327: v_cum_key_record.customer_item_id);
7328: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7329: v_cum_key_record.ship_from_org_id);
7330: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7331: v_cum_key_record.ship_to_address_id);
7332: END IF;
7333: --
7334: v_cum_key_record.create_cum_key_flag := 'N';
7336: --
7337: IF v_cum_record.cum_key_id IS NULL THEN
7338: --
7339: IF (l_debug <> -1) THEN
7340: rlm_core_sv.dlog(C_DEBUG,'error: rlm_nocum_rec');
7341: END IF;
7342: --
7343: raise e_NoCumRec;
7344: --
7347: END IF;
7348: -- } end.if. it.basis cust.cum
7349: --
7350: IF (l_debug <> -1) THEN
7351: rlm_core_sv.dpop(C_SDEBUG,'validateWithCumRec');
7352: END IF;
7353: --
7354: EXCEPTION
7355: WHEN e_CumRecYearMissing THEN
7353: --
7354: EXCEPTION
7355: WHEN e_CumRecYearMissing THEN
7356: --
7357: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7358: rlm_message_sv.app_error(
7359: x_ExceptionLevel => rlm_message_sv.k_error_level,
7360: x_MessageName => 'RLM_CUM_RECORD_YEAR_MISSING',
7361: x_InterfaceHeaderId => x_lines_rec.header_id,
7362: x_InterfaceLineId => x_lines_rec.line_id,
7363: x_ValidationType => 'CUM_KEY_PO');
7364: --
7365: IF (l_debug <> -1) THEN
7366: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUM_RECORD_YEAR_MISSING');
7367: END IF;
7368: --
7369: WHEN e_CumKeyPOMissing THEN
7370: --
7367: END IF;
7368: --
7369: WHEN e_CumKeyPOMissing THEN
7370: --
7371: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7372: rlm_message_sv.app_error(
7373: x_ExceptionLevel => rlm_message_sv.k_error_level,
7374: x_MessageName => 'RLM_CUM_KEY_PO_MISSING',
7375: x_InterfaceHeaderId => x_lines_rec.header_id,
7376: x_InterfaceLineId => x_lines_rec.line_id,
7377: x_ValidationType => 'CUM_KEY_PO');
7378: --
7379: IF (l_debug <> -1) THEN
7380: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUM_KEY_PO_MISSING');
7381: END IF;
7382: --
7383: -- 4307505
7384: WHEN e_NoCumRec THEN
7381: END IF;
7382: --
7383: -- 4307505
7384: WHEN e_NoCumRec THEN
7385: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7386: rlm_message_sv.app_error(
7387: x_ExceptionLevel => rlm_message_sv.k_error_level,
7388: x_MessageName => 'RLM_NOACT_CUMKEY_CSTCUM_INTRST',
7389: x_InterfaceHeaderId => x_lines_rec.header_id,
7389: x_InterfaceHeaderId => x_lines_rec.header_id,
7390: x_InterfaceLineId => x_lines_rec.line_id,
7391: x_Token1 => 'SHIP_TO',
7392: x_Value1 =>
7393: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7394: x_Token2 => 'CITEM',
7395: x_Value2 =>
7396: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7397: --
7392: x_Value1 =>
7393: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7394: x_Token2 => 'CITEM',
7395: x_Value2 =>
7396: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7397: --
7398: IF (l_debug <> -1) THEN
7399: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_NOACT_CUMKEY_CSTCUM_INTRST');
7400: END IF;
7395: x_Value2 =>
7396: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7397: --
7398: IF (l_debug <> -1) THEN
7399: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_NOACT_CUMKEY_CSTCUM_INTRST');
7400: END IF;
7401: --
7402: END validateWithCumRec;
7403:
7421:
7422: BEGIN
7423: --
7424: IF (l_debug <> -1) THEN
7425: rlm_core_sv.dpush(C_SDEBUG,'validateWithoutCumRec');
7426: END IF;
7427: --
7428: IF x_Group_rec.setup_terms_rec.cum_control_code = 'CUM_BY_PO_ONLY' THEN
7429: --bug 4307505
7437: --
7438: --give a warning
7439: --
7440: IF (l_debug <> -1) THEN
7441: rlm_core_sv.dlog(C_DEBUG,'warning: RLM_CUM_STUP_NO_RECORD');
7442: END IF;
7443: --
7444: rlm_message_sv.app_error(
7445: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7465: --
7466: v_cum_key_record.cust_record_year := x_lines_rec.industry_attribute1;
7467: --
7468: IF (l_debug <> -1) THEN
7469: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7470: v_cum_key_record.customer_item_id);
7471: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7472: v_cum_key_record.ship_from_org_id);
7473: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7467: --
7468: IF (l_debug <> -1) THEN
7469: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7470: v_cum_key_record.customer_item_id);
7471: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7472: v_cum_key_record.ship_from_org_id);
7473: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7474: v_cum_key_record.ship_to_address_id);
7475: END IF;
7469: rlm_core_sv.dlog(C_DEBUG,'customer_item_id',
7470: v_cum_key_record.customer_item_id);
7471: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',
7472: v_cum_key_record.ship_from_org_id);
7473: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',
7474: v_cum_key_record.ship_to_address_id);
7475: END IF;
7476: --
7477: v_cum_record.cum_key_id := NULL;
7484: --
7485: IF v_cum_record.cum_key_id IS NULL THEN
7486: --
7487: IF (l_debug <> -1) THEN
7488: rlm_core_sv.dlog(C_DEBUG,'error: rlm_nocum_rec');
7489: END IF;
7490: --
7491: raise e_NoCumRec;
7492: --
7500: x_InterfaceHeaderId => x_lines_rec.header_id,
7501: x_InterfaceLineId => x_lines_rec.line_id,
7502: x_token1=>'ITEM',
7503: x_value1=>
7504: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id),
7505: x_token2=>'SDATE',
7506: x_value2=>v_cum_record.cum_start_date);
7507: --
7508: END IF;
7509: --
7510: END IF;
7511: --
7512: IF (l_debug <> -1) THEN
7513: rlm_core_sv.dpop(C_SDEBUG,'validateWithoutCumRec');
7514: END IF;
7515: --
7516: EXCEPTION
7517:
7516: EXCEPTION
7517:
7518: WHEN e_NoCumRec THEN
7519: --
7520: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7521: rlm_message_sv.app_error(
7522: x_ExceptionLevel => rlm_message_sv.k_error_level,
7523: x_MessageName => 'RLM_NO_ACTIVE_CUM',
7524: x_InterfaceHeaderId => x_lines_rec.header_id,
7524: x_InterfaceHeaderId => x_lines_rec.header_id,
7525: x_InterfaceLineId => x_lines_rec.line_id);
7526: --
7527: IF (l_debug <> -1) THEN
7528: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_NO_ACTIVE_CUM');
7529: END IF;
7530: --
7531: END validateWithoutCumRec;
7532:
7569:
7570: BEGIN
7571: --
7572: IF (l_debug <> -1) THEN
7573: rlm_core_sv.dpush(C_SDEBUG,'CheckCUMKeyPO');
7574: rlm_core_sv.dlog(C_DEBUG,'calc_cum_flag',
7575: x_Group_rec.setup_terms_rec.calc_cum_flag);
7576: rlm_core_sv.dlog(C_DEBUG,'intransit calc basis',x_Group_rec.setup_terms_rec.intransit_calc_basis);
7577: END IF;
7570: BEGIN
7571: --
7572: IF (l_debug <> -1) THEN
7573: rlm_core_sv.dpush(C_SDEBUG,'CheckCUMKeyPO');
7574: rlm_core_sv.dlog(C_DEBUG,'calc_cum_flag',
7575: x_Group_rec.setup_terms_rec.calc_cum_flag);
7576: rlm_core_sv.dlog(C_DEBUG,'intransit calc basis',x_Group_rec.setup_terms_rec.intransit_calc_basis);
7577: END IF;
7578: --
7572: IF (l_debug <> -1) THEN
7573: rlm_core_sv.dpush(C_SDEBUG,'CheckCUMKeyPO');
7574: rlm_core_sv.dlog(C_DEBUG,'calc_cum_flag',
7575: x_Group_rec.setup_terms_rec.calc_cum_flag);
7576: rlm_core_sv.dlog(C_DEBUG,'intransit calc basis',x_Group_rec.setup_terms_rec.intransit_calc_basis);
7577: END IF;
7578: --
7579: IF rlm_message_sv.check_dependency('CUM_KEY_PO') THEN
7580: --
7588: ,'CUM_BY_DATE_ONLY','CUM_BY_PO_ONLY')
7589: THEN --{
7590: --
7591: IF (l_debug <> -1) THEN
7592: rlm_core_sv.dlog(C_DEBUG,'schedule_item_num',
7593: x_group_rec.schedule_item_num );
7594: END IF;
7595: --
7596: v_Progress := 20;
7632: x_lines_rec);
7633: WHEN TOO_MANY_ROWS THEN
7634: --
7635: IF (l_debug <> -1) THEN
7636: rlm_core_sv.dlog(C_DEBUG,'error:RLM_MULTIPLE_ITM_CUM_DTL_FOUND') ;
7637: END IF;
7638: --
7639: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7640: rlm_message_sv.app_error(
7635: IF (l_debug <> -1) THEN
7636: rlm_core_sv.dlog(C_DEBUG,'error:RLM_MULTIPLE_ITM_CUM_DTL_FOUND') ;
7637: END IF;
7638: --
7639: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7640: rlm_message_sv.app_error(
7641: x_ExceptionLevel => rlm_message_sv.k_error_level,
7642: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
7643: x_InterfaceHeaderId => x_lines_rec.header_id,
7643: x_InterfaceHeaderId => x_lines_rec.header_id,
7644: x_InterfaceLineId => x_lines_rec.line_id,
7645: x_Token1 => 'SHIP_FROM',
7646: x_Value1 =>
7647: rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
7648: x_Token2 => 'SHIP_TO',
7649: x_Value2 =>
7650: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7651: x_Token3 => 'CITEM',
7646: x_Value1 =>
7647: rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
7648: x_Token2 => 'SHIP_TO',
7649: x_Value2 =>
7650: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7651: x_Token3 => 'CITEM',
7652: x_Value3 =>
7653: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7654: --
7649: x_Value2 =>
7650: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7651: x_Token3 => 'CITEM',
7652: x_Value3 =>
7653: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7654: --
7655: IF (l_debug <> -1) THEN
7656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7657: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: e_TooManyRows');
7652: x_Value3 =>
7653: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7654: --
7655: IF (l_debug <> -1) THEN
7656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7657: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: e_TooManyRows');
7658: END IF;
7659: --
7660: END;
7653: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7654: --
7655: IF (l_debug <> -1) THEN
7656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7657: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: e_TooManyRows');
7658: END IF;
7659: --
7660: END;
7661: --
7707: x_InterfaceHeaderId => x_lines_rec.header_id,
7708: x_InterfaceLineId => x_lines_rec.line_id,
7709: x_Token1 => 'SHIP_TO',
7710: x_Value1 =>
7711: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7712: x_Token2 => 'CITEM',
7713: x_Value2 =>
7714: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7715: --
7710: x_Value1 =>
7711: rlm_core_sv.get_ship_to(x_lines_rec.ship_to_address_id),
7712: x_Token2 => 'CITEM',
7713: x_Value2 =>
7714: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7715: --
7716: IF (l_debug <> -1) THEN
7717: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7718: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: No CUM Line for Intransit Basis Customer CUM');
7713: x_Value2 =>
7714: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7715: --
7716: IF (l_debug <> -1) THEN
7717: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7718: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: No CUM Line for Intransit Basis Customer CUM');
7719: END IF;
7720: --
7721: END;
7714: rlm_core_sv.get_item_number(x_lines_rec.customer_item_id));
7715: --
7716: IF (l_debug <> -1) THEN
7717: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7718: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: No CUM Line for Intransit Basis Customer CUM');
7719: END IF;
7720: --
7721: END;
7722: --
7728: CLOSE c_cum; --bug 4570658
7729: END IF;
7730:
7731: IF (l_debug <> -1) THEN
7732: rlm_core_sv.dpop(C_SDEBUG);
7733: END IF;
7734: --
7735: EXCEPTION
7736: --
7739: IF c_cum%ISOPEN THEN
7740: CLOSE c_cum; --bug 4570658
7741: END IF;
7742:
7743: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7744: rlm_message_sv.sql_error('rlm_validateDemand_sv.CheckCUMKeyPO', v_Progress);
7745: --
7746: IF (l_debug <> -1) THEN
7747: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7743: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7744: rlm_message_sv.sql_error('rlm_validateDemand_sv.CheckCUMKeyPO', v_Progress);
7745: --
7746: IF (l_debug <> -1) THEN
7747: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7748: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7749: END IF;
7750: --
7751: raise;
7744: rlm_message_sv.sql_error('rlm_validateDemand_sv.CheckCUMKeyPO', v_Progress);
7745: --
7746: IF (l_debug <> -1) THEN
7747: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7748: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7749: END IF;
7750: --
7751: raise;
7752: --
7769:
7770: BEGIN
7771: --
7772: IF (l_debug <> -1) THEN
7773: rlm_core_sv.dpush(C_SDEBUG,'ValidPlanningProdSeqNum');
7774: END IF;
7775: --
7776: IF rlm_message_sv.check_dependency('PROD_SEQ_NUM') THEN
7777: --
7775: --
7776: IF rlm_message_sv.check_dependency('PROD_SEQ_NUM') THEN
7777: --
7778: IF (l_debug <> -1) THEN
7779: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
7780: rlm_core_sv.dlog(C_DEBUG,'Planning_Prod_Seq',
7781: x_lines_rec.CUST_PRODUCTION_SEQ_NUM);
7782: END IF;
7783: --
7776: IF rlm_message_sv.check_dependency('PROD_SEQ_NUM') THEN
7777: --
7778: IF (l_debug <> -1) THEN
7779: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
7780: rlm_core_sv.dlog(C_DEBUG,'Planning_Prod_Seq',
7781: x_lines_rec.CUST_PRODUCTION_SEQ_NUM);
7782: END IF;
7783: --
7784: IF (x_header_rec.schedule_type = 'SEQUENCED') THEN
7801: --
7802: END IF;
7803: --
7804: IF (l_debug <> -1) THEN
7805: rlm_core_sv.dpop(C_SDEBUG);
7806: END IF;
7807: --
7808: EXCEPTION
7809: --
7808: EXCEPTION
7809: --
7810: WHEN e_ProdSeqMissing THEN
7811: --
7812: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7813: --
7814: rlm_message_sv.app_error(
7815: x_ExceptionLevel => rlm_message_sv.k_error_level,
7816: x_MessageName => 'RLM_PLANNING_PROD_SEQ_MISSING',
7818: x_InterfaceLineId => x_lines_rec.line_id,
7819: x_ValidationType => 'PROD_SEQ_NUM');
7820: --
7821: IF (l_debug <> -1) THEN
7822: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_PLANNING_PROD_SEQ_MISSING');
7823: END IF;
7824: --
7825: WHEN e_MatchProdSeq THEN
7826: --
7823: END IF;
7824: --
7825: WHEN e_MatchProdSeq THEN
7826: --
7827: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7828: --
7829: rlm_message_sv.app_error(
7830: x_ExceptionLevel => rlm_message_sv.k_error_level,
7831: x_MessageName => 'RLM_MATCH_WITHIN_PLN_PROD_SEQ',
7833: x_InterfaceLineId => x_lines_rec.line_id,
7834: x_ValidationType => 'PROD_SEQ_NUM');
7835: --
7836: IF (l_debug <> -1) THEN
7837: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_MATCH_WITHIN_PLN_PROD_SEQ');
7838: END IF;
7839: --
7840: WHEN OTHERS THEN
7841: --
7838: END IF;
7839: --
7840: WHEN OTHERS THEN
7841: --
7842: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7843: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidPlanningProdSeqNum',
7844: v_Progress);
7845: --
7846: IF (l_debug <> -1) THEN
7843: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidPlanningProdSeqNum',
7844: v_Progress);
7845: --
7846: IF (l_debug <> -1) THEN
7847: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7848: END IF;
7849: --
7850: raise;
7851: --
7864:
7865: BEGIN
7866: --
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dpush(C_SDEBUG,'ValidLineScheduleType');
7869: END IF;
7870: --
7871: IF rlm_message_sv.check_dependency('LINE_SCHEDULE_TYPE') THEN
7872: --
7870: --
7871: IF rlm_message_sv.check_dependency('LINE_SCHEDULE_TYPE') THEN
7872: --
7873: IF (l_debug <> -1) THEN
7874: rlm_core_sv.dlog(C_DEBUG,'Schedule_Type',x_header_rec.Schedule_type );
7875: END IF;
7876: --
7877: IF x_lines_rec.Subline_Assigned_Id_Ext IS NOT NULL AND
7878: x_lines_rec.Subline_Config_Code_Ext IS NOT NULL AND
7889: --
7890: END IF;
7891: --
7892: IF (l_debug <> -1) THEN
7893: rlm_core_sv.dpop(C_SDEBUG);
7894: END IF;
7895: --
7896: EXCEPTION
7897: --
7896: EXCEPTION
7897: --
7898: WHEN e_SchedTypeInv THEN
7899: --
7900: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7901: rlm_message_sv.app_error(
7902: x_ExceptionLevel => rlm_message_sv.k_error_level,
7903: x_MessageName => 'RLM_LINE_SCHEDULE_TYPE_INVALID',
7904: x_InterfaceHeaderId => x_lines_rec.header_id,
7907: x_value1=>x_header_rec.Schedule_type,
7908: x_ValidationType => 'LINE_SCHEDULE_TYPE');
7909: --
7910: IF (l_debug <> -1) THEN
7911: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_LINE_SCHEDULE_TYPE_INVALID');
7912: END IF;
7913: --
7914: WHEN OTHERS THEN
7915: --
7912: END IF;
7913: --
7914: WHEN OTHERS THEN
7915: --
7916: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7917: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidLineScheduleType: ',
7918: v_Progress);
7919: --
7920: IF (l_debug <> -1) THEN
7917: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidLineScheduleType: ',
7918: v_Progress);
7919: --
7920: IF (l_debug <> -1) THEN
7921: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7922: END IF;
7923: --
7924: END ValidLineScheduleType;
7925:
8195: --
8196: BEGIN
8197: --
8198: IF (l_debug <> -1) THEN
8199: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceLines');
8200: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines in g_lines_tab ',g_lines_tab.COUNT);
8201: END IF;
8202: --
8203: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
8196: BEGIN
8197: --
8198: IF (l_debug <> -1) THEN
8199: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceLines');
8200: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines in g_lines_tab ',g_lines_tab.COUNT);
8201: END IF;
8202: --
8203: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
8204:
8199: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceLines');
8200: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines in g_lines_tab ',g_lines_tab.COUNT);
8201: END IF;
8202: --
8203: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
8204:
8205: FOR i IN 1..g_lines_tab.COUNT LOOP
8206: --
8207: IF g_lines_tab(i).process_status = rlm_core_sv.k_PS_AVAILABLE THEN
8203: g_line_PS := rlm_core_sv.k_PS_AVAILABLE;
8204:
8205: FOR i IN 1..g_lines_tab.COUNT LOOP
8206: --
8207: IF g_lines_tab(i).process_status = rlm_core_sv.k_PS_AVAILABLE THEN
8208: --
8209: IF (l_debug <> -1) THEN
8210: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8211: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE ');
8206: --
8207: IF g_lines_tab(i).process_status = rlm_core_sv.k_PS_AVAILABLE THEN
8208: --
8209: IF (l_debug <> -1) THEN
8210: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8211: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE ');
8212: END IF;
8213: --
8214: ELSIF g_lines_tab(i).process_status = rlm_core_sv.k_PS_ERROR THEN
8207: IF g_lines_tab(i).process_status = rlm_core_sv.k_PS_AVAILABLE THEN
8208: --
8209: IF (l_debug <> -1) THEN
8210: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8211: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE ');
8212: END IF;
8213: --
8214: ELSIF g_lines_tab(i).process_status = rlm_core_sv.k_PS_ERROR THEN
8215: --
8210: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8211: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE ');
8212: END IF;
8213: --
8214: ELSIF g_lines_tab(i).process_status = rlm_core_sv.k_PS_ERROR THEN
8215: --
8216: g_line_PS := rlm_core_sv.k_PS_ERROR;
8217: IsGroupError := TRUE;
8218: --
8212: END IF;
8213: --
8214: ELSIF g_lines_tab(i).process_status = rlm_core_sv.k_PS_ERROR THEN
8215: --
8216: g_line_PS := rlm_core_sv.k_PS_ERROR;
8217: IsGroupError := TRUE;
8218: --
8219: IF (l_debug <> -1) THEN
8220: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8216: g_line_PS := rlm_core_sv.k_PS_ERROR;
8217: IsGroupError := TRUE;
8218: --
8219: IF (l_debug <> -1) THEN
8220: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8221: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR ');
8222: END IF;
8223: --
8224: END IF;
8217: IsGroupError := TRUE;
8218: --
8219: IF (l_debug <> -1) THEN
8220: rlm_core_sv.dlog(C_DEBUG,'line_id',g_lines_tab(i).line_id);
8221: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR ');
8222: END IF;
8223: --
8224: END IF;
8225: --
8223: --
8224: END IF;
8225: --
8226: IF (l_debug <> -1) THEN
8227: rlm_core_sv.dlog(C_DEBUG,'customer_item_id ',
8228: g_lines_tab(i).customer_item_id);
8229: END IF;
8230: --
8231: -- assign values for industry attribute fields
8767: AND line_id = line_id_tab(i);
8768: -- bulk update
8769: --
8770: IF (l_debug <> -1) THEN
8771: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
8772: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines in g_lines_tab ',g_lines_tab.COUNT);
8773: END IF;
8774: --
8775: --
8768: -- bulk update
8769: --
8770: IF (l_debug <> -1) THEN
8771: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines updated',SQL%ROWCOUNT);
8772: rlm_core_sv.dlog(C_DEBUG,'Number of Interface lines in g_lines_tab ',g_lines_tab.COUNT);
8773: END IF;
8774: --
8775: --
8776: IF g_lines_tab.COUNT >= 1 AND IsGroupError THEN
8775: --
8776: IF g_lines_tab.COUNT >= 1 AND IsGroupError THEN
8777: --
8778: IF (l_debug <> -1) THEN
8779: rlm_core_sv.dlog(C_DEBUG,'Current group failed validation');
8780: END IF;
8781: --
8782: END IF;
8783: --
8784: --
8785: IF NOT IsGroupError THEN
8786: --
8787: IF (l_debug <> -1) THEN
8788: rlm_core_sv.dlog('Current group passed validation, so set g_schedule_PS to PS_available');
8789: END IF;
8790: --
8791: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8792: --
8787: IF (l_debug <> -1) THEN
8788: rlm_core_sv.dlog('Current group passed validation, so set g_schedule_PS to PS_available');
8789: END IF;
8790: --
8791: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8792: --
8793: END IF;
8794: --
8795: IF (l_debug <> -1) THEN
8792: --
8793: END IF;
8794: --
8795: IF (l_debug <> -1) THEN
8796: rlm_core_sv.dpop(C_SDEBUG);
8797: END IF;
8798: --
8799: EXCEPTION
8800: --
8803: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceLines',
8804: v_Progress);
8805: --
8806: IF (l_debug <> -1) THEN
8807: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8808: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8809: END IF;
8810: raise;
8811: --
8804: v_Progress);
8805: --
8806: IF (l_debug <> -1) THEN
8807: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8808: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8809: END IF;
8810: raise;
8811: --
8812: END UpdateInterfaceLines;
8822:
8823: BEGIN
8824: --
8825: IF (l_debug <> -1) THEN
8826: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceHeaders');
8827: rlm_core_sv.dlog(C_DEBUG, 'g_schedule_PS', g_schedule_PS);
8828: rlm_core_sv.dlog(C_DEBUG, 'g_line_PS', g_line_PS);
8829: END IF;
8830: --
8823: BEGIN
8824: --
8825: IF (l_debug <> -1) THEN
8826: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceHeaders');
8827: rlm_core_sv.dlog(C_DEBUG, 'g_schedule_PS', g_schedule_PS);
8828: rlm_core_sv.dlog(C_DEBUG, 'g_line_PS', g_line_PS);
8829: END IF;
8830: --
8831: IF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8824: --
8825: IF (l_debug <> -1) THEN
8826: rlm_core_sv.dpush(C_SDEBUG,'UpdateInterfaceHeaders');
8827: rlm_core_sv.dlog(C_DEBUG, 'g_schedule_PS', g_schedule_PS);
8828: rlm_core_sv.dlog(C_DEBUG, 'g_line_PS', g_line_PS);
8829: END IF;
8830: --
8831: IF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8832: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8827: rlm_core_sv.dlog(C_DEBUG, 'g_schedule_PS', g_schedule_PS);
8828: rlm_core_sv.dlog(C_DEBUG, 'g_line_PS', g_line_PS);
8829: END IF;
8830: --
8831: IF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8832: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8833: --
8834: g_schedule_PS := rlm_core_sv.k_PS_PARTIAL_PROCESSED;
8835: --
8828: rlm_core_sv.dlog(C_DEBUG, 'g_line_PS', g_line_PS);
8829: END IF;
8830: --
8831: IF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8832: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8833: --
8834: g_schedule_PS := rlm_core_sv.k_PS_PARTIAL_PROCESSED;
8835: --
8836: IF (l_debug <> -1) THEN
8830: --
8831: IF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8832: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8833: --
8834: g_schedule_PS := rlm_core_sv.k_PS_PARTIAL_PROCESSED;
8835: --
8836: IF (l_debug <> -1) THEN
8837: rlm_core_sv.dlog(C_DEBUG,'Process Status PARTIAL_PROCESSED');
8838: END IF;
8833: --
8834: g_schedule_PS := rlm_core_sv.k_PS_PARTIAL_PROCESSED;
8835: --
8836: IF (l_debug <> -1) THEN
8837: rlm_core_sv.dlog(C_DEBUG,'Process Status PARTIAL_PROCESSED');
8838: END IF;
8839: --
8840: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_ERROR
8841: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8836: IF (l_debug <> -1) THEN
8837: rlm_core_sv.dlog(C_DEBUG,'Process Status PARTIAL_PROCESSED');
8838: END IF;
8839: --
8840: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_ERROR
8841: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8842: --
8843: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
8844: --
8837: rlm_core_sv.dlog(C_DEBUG,'Process Status PARTIAL_PROCESSED');
8838: END IF;
8839: --
8840: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_ERROR
8841: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8842: --
8843: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
8844: --
8845: IF (l_debug <> -1) THEN
8839: --
8840: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_ERROR
8841: AND g_line_PS = rlm_core_sv.k_PS_ERROR ) THEN
8842: --
8843: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
8844: --
8845: IF (l_debug <> -1) THEN
8846: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR');
8847: END IF;
8842: --
8843: g_schedule_PS := rlm_core_sv.k_PS_ERROR;
8844: --
8845: IF (l_debug <> -1) THEN
8846: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR');
8847: END IF;
8848: --
8849: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8850: AND g_line_PS = rlm_core_sv.k_PS_AVAILABLE ) THEN
8845: IF (l_debug <> -1) THEN
8846: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR');
8847: END IF;
8848: --
8849: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8850: AND g_line_PS = rlm_core_sv.k_PS_AVAILABLE ) THEN
8851: --
8852: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8853: --
8846: rlm_core_sv.dlog(C_DEBUG,'Process Status ERROR');
8847: END IF;
8848: --
8849: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8850: AND g_line_PS = rlm_core_sv.k_PS_AVAILABLE ) THEN
8851: --
8852: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8853: --
8854: IF (l_debug <> -1) THEN
8848: --
8849: ELSIF (g_schedule_PS = rlm_core_sv.k_PS_AVAILABLE
8850: AND g_line_PS = rlm_core_sv.k_PS_AVAILABLE ) THEN
8851: --
8852: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8853: --
8854: IF (l_debug <> -1) THEN
8855: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE');
8856: END IF;
8851: --
8852: g_schedule_PS := rlm_core_sv.k_PS_AVAILABLE;
8853: --
8854: IF (l_debug <> -1) THEN
8855: rlm_core_sv.dlog(C_DEBUG,'Process Status AVAILABLE');
8856: END IF;
8857: --
8858: END IF;
8859:
8928: WHERE header_id = g_header_rec.header_id;
8929:
8930: --
8931: IF (l_debug <> -1) THEN
8932: rlm_core_sv.dlog(C_DEBUG,'Number of Interface header updated',SQL%ROWCOUNT);
8933: rlm_core_sv.dpop(C_SDEBUG);
8934: END IF;
8935:
8936: EXCEPTION
8929:
8930: --
8931: IF (l_debug <> -1) THEN
8932: rlm_core_sv.dlog(C_DEBUG,'Number of Interface header updated',SQL%ROWCOUNT);
8933: rlm_core_sv.dpop(C_SDEBUG);
8934: END IF;
8935:
8936: EXCEPTION
8937: WHEN OTHERS THEN
8940: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceHeaders: ',
8941: v_Progress);
8942: --
8943: IF (l_debug <> -1) THEN
8944: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8945: END IF;
8946: raise;
8947: --
8948: END UpdateInterfaceHeaders;
8960:
8961: BEGIN
8962: --
8963: IF (l_debug <> -1) THEN
8964: rlm_core_sv.dpush(C_SDEBUG,'PostValidation');
8965: rlm_core_sv.dlog(C_DEBUG,'Header_id',g_Header_Rec.header_id);
8966: END IF;
8967: --
8968: v_Status := rlm_ad_sv.Archive_Demand(g_Header_Rec.header_id);
8961: BEGIN
8962: --
8963: IF (l_debug <> -1) THEN
8964: rlm_core_sv.dpush(C_SDEBUG,'PostValidation');
8965: rlm_core_sv.dlog(C_DEBUG,'Header_id',g_Header_Rec.header_id);
8966: END IF;
8967: --
8968: v_Status := rlm_ad_sv.Archive_Demand(g_Header_Rec.header_id);
8969: --
8973: raise e_ArchiveAPIFailed;
8974: END IF;
8975: --
8976: IF (l_debug <> -1) THEN
8977: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8978: rlm_core_sv.dpop(C_SDEBUG);
8979: END IF;
8980: --
8981: EXCEPTION
8974: END IF;
8975: --
8976: IF (l_debug <> -1) THEN
8977: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8978: rlm_core_sv.dpop(C_SDEBUG);
8979: END IF;
8980: --
8981: EXCEPTION
8982: WHEN e_ArchiveAPIFailed THEN
8980: --
8981: EXCEPTION
8982: WHEN e_ArchiveAPIFailed THEN
8983: --
8984: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8985: rlm_message_sv.app_error(
8986: x_ExceptionLevel => rlm_message_sv.k_error_level,
8987: x_MessageName => 'RLM_ARCHIVE_API_ERROR',
8988: x_InterfaceHeaderId => g_Header_Rec.header_id,
8990: x_value1 => sqlerrm,
8991: x_ValidationType => 'ARCHIVE');
8992: --
8993: IF (l_debug <> -1) THEN
8994: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_ARCHIVE_API_ERROR ',v_Progress);
8995: rlm_core_sv.dpop(C_SDEBUG);
8996: END IF;
8997: --
8998: WHEN OTHERS THEN
8991: x_ValidationType => 'ARCHIVE');
8992: --
8993: IF (l_debug <> -1) THEN
8994: rlm_core_sv.dlog(C_DEBUG,'EXCEPTION: RLM_ARCHIVE_API_ERROR ',v_Progress);
8995: rlm_core_sv.dpop(C_SDEBUG);
8996: END IF;
8997: --
8998: WHEN OTHERS THEN
8999: --
8996: END IF;
8997: --
8998: WHEN OTHERS THEN
8999: --
9000: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9001: rlm_message_sv.sql_error('rlm_validateDemand_sv.PostValidation: ',
9002: v_Progress);
9003: --
9004: IF (l_debug <> -1) THEN
9001: rlm_message_sv.sql_error('rlm_validateDemand_sv.PostValidation: ',
9002: v_Progress);
9003: --
9004: IF (l_debug <> -1) THEN
9005: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9006: END IF;
9007: raise;
9008: --
9009: END PostValidation;
9028:
9029: BEGIN
9030: --
9031: IF (l_debug <> -1) THEN
9032: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
9033: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',
9034: x_lines_rec.ship_from_org_id);
9035: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_ship_from_org_ext',
9036: x_lines_rec.cust_ship_from_org_ext);
9029: BEGIN
9030: --
9031: IF (l_debug <> -1) THEN
9032: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
9033: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',
9034: x_lines_rec.ship_from_org_id);
9035: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_ship_from_org_ext',
9036: x_lines_rec.cust_ship_from_org_ext);
9037: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
9031: IF (l_debug <> -1) THEN
9032: rlm_core_sv.dpush(C_SDEBUG,'CallSetups');
9033: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',
9034: x_lines_rec.ship_from_org_id);
9035: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_ship_from_org_ext',
9036: x_lines_rec.cust_ship_from_org_ext);
9037: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
9038: x_header_rec.customer_id);
9039: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_address_id',
9033: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_from_org_id',
9034: x_lines_rec.ship_from_org_id);
9035: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_ship_from_org_ext',
9036: x_lines_rec.cust_ship_from_org_ext);
9037: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
9038: x_header_rec.customer_id);
9039: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_address_id',
9040: x_lines_rec.ship_to_address_id);
9041: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.customer_item_id',
9035: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.cust_ship_from_org_ext',
9036: x_lines_rec.cust_ship_from_org_ext);
9037: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
9038: x_header_rec.customer_id);
9039: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_address_id',
9040: x_lines_rec.ship_to_address_id);
9041: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.customer_item_id',
9042: x_lines_rec.customer_item_id);
9043: END IF;
9037: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.customer_id',
9038: x_header_rec.customer_id);
9039: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.ship_to_address_id',
9040: x_lines_rec.ship_to_address_id);
9041: rlm_core_sv.dlog(C_DEBUG,'x_lines_rec.customer_item_id',
9042: x_lines_rec.customer_item_id);
9043: END IF;
9044: --
9045: -- NOTE: call setupAPI to poulate setup info in the group rec:
9069: v_ReturnMsg, -- For Patch for Nov17 freeze
9070: v_ReturnStatus);
9071: --
9072: IF (l_debug <> -1) THEN
9073: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
9074: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
9075: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
9076: v_SetupTerms_rec.schedule_hierarchy_code);
9077: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
9070: v_ReturnStatus);
9071: --
9072: IF (l_debug <> -1) THEN
9073: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
9074: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
9075: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
9076: v_SetupTerms_rec.schedule_hierarchy_code);
9077: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
9078: v_SetupTerms_rec.header_id);
9071: --
9072: IF (l_debug <> -1) THEN
9073: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
9074: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
9075: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
9076: v_SetupTerms_rec.schedule_hierarchy_code);
9077: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
9078: v_SetupTerms_rec.header_id);
9079: rlm_core_sv.dlog(C_DEBUG, 'v_SetupTerms_rec.blanket_number',
9073: rlm_core_sv.dlog(C_DEBUG, 'v_TermsLevel', v_TermsLevel);
9074: rlm_core_sv.dlog(C_DEBUG, 'v_ReturnStatus', v_ReturnStatus);
9075: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
9076: v_SetupTerms_rec.schedule_hierarchy_code);
9077: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
9078: v_SetupTerms_rec.header_id);
9079: rlm_core_sv.dlog(C_DEBUG, 'v_SetupTerms_rec.blanket_number',
9080: v_SetupTerms_rec.blanket_number);
9081: END IF;
9075: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.schedule_hierarchy_code',
9076: v_SetupTerms_rec.schedule_hierarchy_code);
9077: rlm_core_sv.dlog(C_DEBUG,'v_SetupTerms_rec.header_id',
9078: v_SetupTerms_rec.header_id);
9079: rlm_core_sv.dlog(C_DEBUG, 'v_SetupTerms_rec.blanket_number',
9080: v_SetupTerms_rec.blanket_number);
9081: END IF;
9082: --
9083: IF v_ReturnStatus THEN
9086: --
9087: ELSE
9088: --
9089: IF (l_debug <> -1) THEN
9090: rlm_core_sv.dlog(C_DEBUG,'setups failed');
9091: END IF;
9092: --
9093: RAISE e_NoSetupTerms;
9094: --
9094: --
9095: END IF;
9096: --
9097: IF (l_debug <> -1) THEN
9098: rlm_core_sv.dpop(C_SDEBUG);
9099: END IF;
9100: --
9101: RETURN TRUE;
9102: --
9107: /* WHEN e_skip_callsetup THEN
9108: --
9109:
9110: IF (l_debug <> -1) THEN
9111: rlm_core_sv.dlog(C_SDEBUG,'SetupAPI failed');
9112: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: e_skip_callsetup');
9113: END IF;
9114: --
9115: RETURN FALSE;*/ --Bugfix 8693697 End
9108: --
9109:
9110: IF (l_debug <> -1) THEN
9111: rlm_core_sv.dlog(C_SDEBUG,'SetupAPI failed');
9112: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: e_skip_callsetup');
9113: END IF;
9114: --
9115: RETURN FALSE;*/ --Bugfix 8693697 End
9116: --
9115: RETURN FALSE;*/ --Bugfix 8693697 End
9116: --
9117: WHEN e_NoSetupTerms THEN
9118: --
9119: --g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9120: IF(v_SetupTerms_rec.msg_name = 'RLM_SETUP_CUST_INACTIVE_RECORD') THEN
9121: --
9122: rlm_message_sv.get_msg_text(
9123: x_message_name => v_SetupTerms_rec.msg_name,
9122: rlm_message_sv.get_msg_text(
9123: x_message_name => v_SetupTerms_rec.msg_name,
9124: x_text => v_ReturnMsg,
9125: x_token1 => 'CUSTOMER',
9126: x_value1 => rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9127: x_token2 => 'SHIPFROM',
9128: x_value2 => rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
9129: x_token3 => 'SHIPTO',
9130: x_value3 => RLM_CORE_SV.get_ship_to(x_lines_rec.ship_to_address_id),
9124: x_text => v_ReturnMsg,
9125: x_token1 => 'CUSTOMER',
9126: x_value1 => rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9127: x_token2 => 'SHIPFROM',
9128: x_value2 => rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
9129: x_token3 => 'SHIPTO',
9130: x_value3 => RLM_CORE_SV.get_ship_to(x_lines_rec.ship_to_address_id),
9131: x_token4 => 'ITEM',
9132: x_value4 => RLM_CORE_SV.get_item_number(x_lines_rec.customer_item_id)
9126: x_value1 => rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9127: x_token2 => 'SHIPFROM',
9128: x_value2 => rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
9129: x_token3 => 'SHIPTO',
9130: x_value3 => RLM_CORE_SV.get_ship_to(x_lines_rec.ship_to_address_id),
9131: x_token4 => 'ITEM',
9132: x_value4 => RLM_CORE_SV.get_item_number(x_lines_rec.customer_item_id)
9133: );
9134: --
9128: x_value2 => rlm_core_sv.get_ship_from(x_lines_rec.ship_from_org_id),
9129: x_token3 => 'SHIPTO',
9130: x_value3 => RLM_CORE_SV.get_ship_to(x_lines_rec.ship_to_address_id),
9131: x_token4 => 'ITEM',
9132: x_value4 => RLM_CORE_SV.get_item_number(x_lines_rec.customer_item_id)
9133: );
9134: --
9135: END IF;
9136:
9144: x_value1 => v_ReturnMsg,
9145: x_ValidationType => 'SETUPS');
9146: --
9147: IF (l_debug <> -1) THEN
9148: rlm_core_sv.dlog(C_SDEBUG,'SetupAPI failed');
9149: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SETUPAPI_FAILED');
9150: END IF;
9151: --
9152: RETURN FALSE;
9145: x_ValidationType => 'SETUPS');
9146: --
9147: IF (l_debug <> -1) THEN
9148: rlm_core_sv.dlog(C_SDEBUG,'SetupAPI failed');
9149: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_SETUPAPI_FAILED');
9150: END IF;
9151: --
9152: RETURN FALSE;
9153: --
9152: RETURN FALSE;
9153: --
9154: WHEN OTHERS THEN
9155: --
9156: --g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9157: --
9158: IF (l_debug <> -1) THEN
9159: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9160: END IF;
9155: --
9156: --g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9157: --
9158: IF (l_debug <> -1) THEN
9159: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9160: END IF;
9161: --
9162: raise; /* should we do a raise here */
9163: --
9180: --
9181: BEGIN
9182: --
9183: IF (l_debug <> -1) THEN
9184: rlm_core_sv.dpush(C_SDEBUG, 'ValidForecastDesig');
9185: rlm_core_sv.dlog(C_DEBUG, 'schedule type',x_header_rec.schedule_type);
9186: rlm_core_sv.dlog(C_DEBUG, 'pln_mrp_forecast_day_from',
9187: x_setup_terms_rec.pln_mrp_forecast_day_from);
9188: rlm_core_sv.dlog(C_DEBUG, 'shp_mrp_forecast_day_from',
9181: BEGIN
9182: --
9183: IF (l_debug <> -1) THEN
9184: rlm_core_sv.dpush(C_SDEBUG, 'ValidForecastDesig');
9185: rlm_core_sv.dlog(C_DEBUG, 'schedule type',x_header_rec.schedule_type);
9186: rlm_core_sv.dlog(C_DEBUG, 'pln_mrp_forecast_day_from',
9187: x_setup_terms_rec.pln_mrp_forecast_day_from);
9188: rlm_core_sv.dlog(C_DEBUG, 'shp_mrp_forecast_day_from',
9189: x_setup_terms_rec.shp_mrp_forecast_day_from);
9182: --
9183: IF (l_debug <> -1) THEN
9184: rlm_core_sv.dpush(C_SDEBUG, 'ValidForecastDesig');
9185: rlm_core_sv.dlog(C_DEBUG, 'schedule type',x_header_rec.schedule_type);
9186: rlm_core_sv.dlog(C_DEBUG, 'pln_mrp_forecast_day_from',
9187: x_setup_terms_rec.pln_mrp_forecast_day_from);
9188: rlm_core_sv.dlog(C_DEBUG, 'shp_mrp_forecast_day_from',
9189: x_setup_terms_rec.shp_mrp_forecast_day_from);
9190: rlm_core_sv.dlog(C_DEBUG, 'seq_mrp_forecast_day_from',
9184: rlm_core_sv.dpush(C_SDEBUG, 'ValidForecastDesig');
9185: rlm_core_sv.dlog(C_DEBUG, 'schedule type',x_header_rec.schedule_type);
9186: rlm_core_sv.dlog(C_DEBUG, 'pln_mrp_forecast_day_from',
9187: x_setup_terms_rec.pln_mrp_forecast_day_from);
9188: rlm_core_sv.dlog(C_DEBUG, 'shp_mrp_forecast_day_from',
9189: x_setup_terms_rec.shp_mrp_forecast_day_from);
9190: rlm_core_sv.dlog(C_DEBUG, 'seq_mrp_forecast_day_from',
9191: x_setup_terms_rec.seq_mrp_forecast_day_from);
9192: END IF;
9186: rlm_core_sv.dlog(C_DEBUG, 'pln_mrp_forecast_day_from',
9187: x_setup_terms_rec.pln_mrp_forecast_day_from);
9188: rlm_core_sv.dlog(C_DEBUG, 'shp_mrp_forecast_day_from',
9189: x_setup_terms_rec.shp_mrp_forecast_day_from);
9190: rlm_core_sv.dlog(C_DEBUG, 'seq_mrp_forecast_day_from',
9191: x_setup_terms_rec.seq_mrp_forecast_day_from);
9192: END IF;
9193: --
9194: IF rlm_message_sv.check_dependency('FORECASTDESIGNATOR') THEN
9225: AND header_id = x_header_rec.header_id
9226: AND line_id = x_lines_rec.line_id;
9227: --
9228: IF (l_debug <> -1) THEN
9229: rlm_core_sv.dlog(C_DEBUG,'number of lines interfaced as MRP forecast ',v_mrp_cnt);
9230: END IF;
9231: --
9232: IF v_mrp_cnt > 0 THEN
9233: --
9249: x_lines_rec.bill_to_address_Id,
9250: x_ForecastDesignator);
9251: --
9252: IF (l_debug <> -1) THEN
9253: rlm_core_sv.dlog(C_DEBUG,'x_ForecastDesignator',x_ForecastDesignator);
9254: END IF;
9255: --
9256: IF x_ForecastDesignator is NULL THEN
9257: --
9254: END IF;
9255: --
9256: IF x_ForecastDesignator is NULL THEN
9257: --
9258: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
9259: rlm_message_sv.app_error(
9260: x_ExceptionLevel => rlm_message_sv.k_error_level,
9261: x_MessageName => 'RLM_NO_FORECAST_DESIG',
9262: x_InterfaceHeaderId => x_lines_rec.header_id,
9262: x_InterfaceHeaderId => x_lines_rec.header_id,
9263: x_InterfaceLineId => x_lines_rec.line_id,
9264: x_token1=>'CUST',
9265: x_value1=>
9266: rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9267: x_ValidationType => 'FORECASTDESIGNATOR');
9268: --
9269: END IF;
9270: --
9272: --
9273: END IF;
9274: --
9275: IF (l_debug <> -1) THEN
9276: rlm_core_sv.dpop(C_SDEBUG);
9277: END IF;
9278: --
9279: EXCEPTION
9280: --
9280: --
9281: WHEN OTHERS THEN
9282: --
9283: IF (l_debug <> -1) THEN
9284: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9285: END IF;
9286: --
9287: raise;
9288: END ValidForecastDesig;
9297: IS
9298: BEGIN
9299: --
9300: IF (l_debug <> -1) THEN
9301: rlm_core_sv.dpush(C_SDEBUG,'PrintTable');
9302: rlm_core_sv.dlog(C_DEBUG,'v_LinesTab.COUNT',v_LinesTab.COUNT);
9303: END IF;
9304: --
9305: IF i is not NULL THEN
9298: BEGIN
9299: --
9300: IF (l_debug <> -1) THEN
9301: rlm_core_sv.dpush(C_SDEBUG,'PrintTable');
9302: rlm_core_sv.dlog(C_DEBUG,'v_LinesTab.COUNT',v_LinesTab.COUNT);
9303: END IF;
9304: --
9305: IF i is not NULL THEN
9306: --
9304: --
9305: IF i is not NULL THEN
9306: --
9307: IF (l_debug <> -1) THEN
9308: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9305: IF i is not NULL THEN
9306: --
9307: IF (l_debug <> -1) THEN
9308: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9306: --
9307: IF (l_debug <> -1) THEN
9308: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9307: IF (l_debug <> -1) THEN
9308: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9308: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9309: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9310: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9311: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9312: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9313: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9314: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9315: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9316: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9324: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9317: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9324: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9325: END IF;
9318: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9324: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9325: END IF;
9326: --
9319: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9324: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9325: END IF;
9326: --
9327: ELSE
9320: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9321: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9322: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9323: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9324: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9325: END IF;
9326: --
9327: ELSE
9328: --
9328: --
9329: For i IN 1..v_LinesTab.COUNT LOOP
9330: --
9331: IF (l_debug <> -1) THEN
9332: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9329: For i IN 1..v_LinesTab.COUNT LOOP
9330: --
9331: IF (l_debug <> -1) THEN
9332: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9330: --
9331: IF (l_debug <> -1) THEN
9332: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9331: IF (l_debug <> -1) THEN
9332: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9332: rlm_core_sv.dlog(C_DEBUG,'process_status',v_LinesTab(i).process_status);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9333: rlm_core_sv.dlog(C_DEBUG,'cust_ship_from_org_ext',v_LinesTab(i).cust_ship_from_org_ext);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9334: rlm_core_sv.dlog(C_DEBUG,'ship_from_org_id',v_LinesTab(i).ship_from_org_id);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9335: rlm_core_sv.dlog(C_DEBUG,'cust_ship_to_ext',v_LinesTab(i).cust_ship_to_ext);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9336: rlm_core_sv.dlog(C_DEBUG,'ship_to_address_id',v_LinesTab(i).ship_to_address_id);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9337: rlm_core_sv.dlog(C_DEBUG,'supplier_item_ext',v_LinesTab(i).supplier_item_ext);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9338: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Ext',v_LinesTab(i).Customer_Item_Ext);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9339: rlm_core_sv.dlog(C_DEBUG,'Customer_Item_Id',v_LinesTab(i).Customer_Item_Id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9340: rlm_core_sv.dlog(C_DEBUG,'INVENTORY_ITEM_ID',v_LinesTab(i).INVENTORY_ITEM_ID);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9348: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9341: rlm_core_sv.dlog(C_DEBUG,'CUST_BILL_TO_EXT',v_LinesTab(i).CUST_BILL_TO_EXT);
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9348: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9349: END IF;
9342: rlm_core_sv.dlog(C_DEBUG,'BILL_TO_ADDRESS_ID',v_LinesTab(i).BILL_TO_ADDRESS_ID);
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9348: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9349: END IF;
9350: --
9343: rlm_core_sv.dlog(C_DEBUG,'CUST_INTRMD_SHIP_TO_EXT',v_LinesTab(i).CUST_INTRMD_SHIP_TO_EXT);
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9348: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9349: END IF;
9350: --
9351: END LOOP;
9344: rlm_core_sv.dlog(C_DEBUG,'INTRMD_SHIP_TO_ID',v_LinesTab(i).INTRMD_SHIP_TO_ID);
9345: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_TYPE',v_LinesTab(i).ITEM_DETAIL_TYPE);
9346: rlm_core_sv.dlog(C_DEBUG,'ITEM_DETAIL_SUBTYPE',v_LinesTab(i).ITEM_DETAIL_SUBTYPE);
9347: rlm_core_sv.dlog(C_DEBUG,'order_header_id',v_LinesTab(i).order_header_id);
9348: rlm_core_sv.dlog(C_DEBUG,'ship_del_rule_name',v_LinesTab(i).ship_del_rule_name);
9349: END IF;
9350: --
9351: END LOOP;
9352: --
9352: --
9353: END IF;
9354: --
9355: IF (l_debug <> -1) THEN
9356: rlm_core_sv.dpop(C_SDEBUG);
9357: END IF;
9358: --
9359: EXCEPTION
9360: WHEN OTHERS THEN
9359: EXCEPTION
9360: WHEN OTHERS THEN
9361: --
9362: IF (l_debug <> -1) THEN
9363: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9364: END IF;
9365: --
9366: raise;
9367: END PrintTable;
9384:
9385: BEGIN
9386: --
9387: IF (l_debug <> -1) THEN
9388: rlm_core_sv.dpush(C_SDEBUG,'GetTPContext');
9389: END IF;
9390: --
9391: IF x_header_rec.ECE_TP_LOCATION_CODE_EXT is NOT NULL THEN
9392: -- Following query is changed as per TCA obsolescence project.
9420: WHERE CUST_ACCT.CUST_ACCOUNT_ID = x_header_rec.Customer_Id;
9421: END IF;
9422: --
9423: IF (l_debug <> -1) THEN
9424: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9421: END IF;
9422: --
9423: IF (l_debug <> -1) THEN
9424: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9429: rlm_core_sv.dpop(C_SDEBUG);
9422: --
9423: IF (l_debug <> -1) THEN
9424: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9429: rlm_core_sv.dpop(C_SDEBUG);
9430: END IF;
9423: IF (l_debug <> -1) THEN
9424: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9429: rlm_core_sv.dpop(C_SDEBUG);
9430: END IF;
9431: --
9424: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9429: rlm_core_sv.dpop(C_SDEBUG);
9430: END IF;
9431: --
9432: EXCEPTION
9425: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9426: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9427: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9428: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9429: rlm_core_sv.dpop(C_SDEBUG);
9430: END IF;
9431: --
9432: EXCEPTION
9433: WHEN NO_DATA_FOUND THEN
9434: --
9435: x_customer_number := NULL;
9436: --
9437: IF (l_debug <> -1) THEN
9438: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_header_rec.customer_id);
9439: rlm_core_sv.dpop(C_SDEBUG);
9440: END IF;
9441:
9442: WHEN OTHERS THEN
9435: x_customer_number := NULL;
9436: --
9437: IF (l_debug <> -1) THEN
9438: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_header_rec.customer_id);
9439: rlm_core_sv.dpop(C_SDEBUG);
9440: END IF;
9441:
9442: WHEN OTHERS THEN
9443: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetTPContext', v_Progress);
9442: WHEN OTHERS THEN
9443: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetTPContext', v_Progress);
9444: --
9445: IF (l_debug <> -1) THEN
9446: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9447: END IF;
9448: --
9449: raise;
9450:
9466:
9467: BEGIN
9468: --
9469: IF (l_debug <> -1) THEN
9470: rlm_core_sv.dpush(C_SDEBUG,'GetHdrTPContext');
9471: END IF;
9472: --
9473: IF x_header_rec.ECE_TP_LOCATION_CODE_EXT is NOT NULL THEN
9474: -- Following query is changed as per TCA obsolescence project.
9497: WHERE CUST_ACCT.CUST_ACCOUNT_ID = x_header_rec.Customer_Id;
9498: END IF;
9499: --
9500: IF (l_debug <> -1) THEN
9501: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9498: END IF;
9499: --
9500: IF (l_debug <> -1) THEN
9501: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9506: rlm_core_sv.dpop(C_SDEBUG);
9499: --
9500: IF (l_debug <> -1) THEN
9501: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9506: rlm_core_sv.dpop(C_SDEBUG);
9507: END IF;
9500: IF (l_debug <> -1) THEN
9501: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9506: rlm_core_sv.dpop(C_SDEBUG);
9507: END IF;
9508: --
9501: rlm_core_sv.dlog(C_DEBUG,'customer_id', x_customer_number);
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9506: rlm_core_sv.dpop(C_SDEBUG);
9507: END IF;
9508: --
9509: EXCEPTION
9502: rlm_core_sv.dlog(C_DEBUG,'x_ship_to_ece_locn_code', x_ship_to_ece_locn_code);
9503: rlm_core_sv.dlog(C_DEBUG,'x_inter_ship_to_ece_locn_code', x_inter_ship_to_ece_locn_code);
9504: rlm_core_sv.dlog(C_DEBUG,'x_bill_to_ece_loc_code', x_bill_to_ece_locn_code);
9505: rlm_core_sv.dlog(C_DEBUG,'x_tp_group_code', x_tp_group_code);
9506: rlm_core_sv.dpop(C_SDEBUG);
9507: END IF;
9508: --
9509: EXCEPTION
9510: WHEN NO_DATA_FOUND THEN
9511: --
9512: x_customer_number := NULL;
9513: --
9514: IF (l_debug <> -1) THEN
9515: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_header_rec.customer_id);
9516: rlm_core_sv.dpop(C_SDEBUG);
9517: END IF;
9518:
9519: WHEN OTHERS THEN
9512: x_customer_number := NULL;
9513: --
9514: IF (l_debug <> -1) THEN
9515: rlm_core_sv.dlog(C_DEBUG, 'No data found for' , x_header_rec.customer_id);
9516: rlm_core_sv.dpop(C_SDEBUG);
9517: END IF;
9518:
9519: WHEN OTHERS THEN
9520: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetHdrTPContext', v_Progress);
9519: WHEN OTHERS THEN
9520: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetHdrTPContext', v_Progress);
9521: --
9522: IF (l_debug <> -1) THEN
9523: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9524: END IF;
9525: --
9526: raise;
9527:
9536: x_group_rec IN OUT NOCOPY RLM_VALIDATEDEMAND_SV.t_Group_rec) IS
9537: BEGIN
9538: --
9539: IF (l_debug <> -1) THEN
9540: rlm_core_sv.dpush(C_SDEBUG,'SetTPAttCategory');
9541: END IF;
9542: --
9543: x_header_rec.tp_attribute_category := x_header_rec.ece_tp_translator_code;
9544: x_lines_rec.tp_attribute_category := x_header_rec.ece_tp_translator_code;
9543: x_header_rec.tp_attribute_category := x_header_rec.ece_tp_translator_code;
9544: x_lines_rec.tp_attribute_category := x_header_rec.ece_tp_translator_code;
9545: --
9546: IF (l_debug <> -1) THEN
9547: rlm_core_sv.dpop(C_SDEBUG);
9548: END IF;
9549: --
9550: EXCEPTION
9551: WHEN OTHERS THEN
9550: EXCEPTION
9551: WHEN OTHERS THEN
9552: --
9553: IF (l_debug <> -1) THEN
9554: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9555: END IF;
9556: --
9557: END SetTPAttCategory;
9558:
9563: x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE) IS
9564: BEGIN
9565: --
9566: IF (l_debug <> -1) THEN
9567: rlm_core_sv.dpush(C_SDEBUG,'SetHdrTPAttCategory');
9568: END IF;
9569: --
9570: --x_header_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9571: --
9569: --
9570: --x_header_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9571: --
9572: IF (l_debug <> -1) THEN
9573: rlm_core_sv.dpop(C_SDEBUG);
9574: END IF;
9575: --
9576: EXCEPTION
9577: WHEN OTHERS THEN
9576: EXCEPTION
9577: WHEN OTHERS THEN
9578: --
9579: IF (l_debug <> -1) THEN
9580: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9581: END IF;
9582:
9583: END SetHdrTPAttCategory;
9584:
9591: x_group_rec IN OUT NOCOPY RLM_VALIDATEDEMAND_SV.t_Group_rec) IS
9592: BEGIN
9593: --
9594: IF (l_debug <> -1) THEN
9595: rlm_core_sv.dpush(C_SDEBUG,'SetLineTPAttCategory');
9596: END IF;
9597: --
9598: --x_header_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9599: --x_lines_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9598: --x_header_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9599: --x_lines_rec.tp_attribute_category := NVL(x_header_rec.ece_tp_translator_code, x_header_rec.customer_ext);
9600: --
9601: IF (l_debug <> -1) THEN
9602: rlm_core_sv.dpop(C_SDEBUG);
9603: END IF;
9604: --
9605: EXCEPTION
9606: WHEN OTHERS THEN
9605: EXCEPTION
9606: WHEN OTHERS THEN
9607: --
9608: IF (l_debug <> -1) THEN
9609: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9610: END IF;
9611:
9612: END SetLineTPAttCategory;
9613:
9628: e_no_om_cr EXCEPTION;
9629:
9630: BEGIN
9631: IF (l_debug <> -1) THEN
9632: rlm_core_sv.dpush(C_SDEBUG,'CustomerRelationship');
9633: rlm_core_sv.dlog(C_DEBUG,'x_RelatedCustomerId',x_RelatedCustomerId);
9634: rlm_core_sv.dlog(C_DEBUG,'x_customer_id',x_customer_id);
9635: rlm_core_sv.dlog(C_DEBUG,'x_site_use_code',x_site_use_code);
9636: END IF;
9629:
9630: BEGIN
9631: IF (l_debug <> -1) THEN
9632: rlm_core_sv.dpush(C_SDEBUG,'CustomerRelationship');
9633: rlm_core_sv.dlog(C_DEBUG,'x_RelatedCustomerId',x_RelatedCustomerId);
9634: rlm_core_sv.dlog(C_DEBUG,'x_customer_id',x_customer_id);
9635: rlm_core_sv.dlog(C_DEBUG,'x_site_use_code',x_site_use_code);
9636: END IF;
9637: --
9630: BEGIN
9631: IF (l_debug <> -1) THEN
9632: rlm_core_sv.dpush(C_SDEBUG,'CustomerRelationship');
9633: rlm_core_sv.dlog(C_DEBUG,'x_RelatedCustomerId',x_RelatedCustomerId);
9634: rlm_core_sv.dlog(C_DEBUG,'x_customer_id',x_customer_id);
9635: rlm_core_sv.dlog(C_DEBUG,'x_site_use_code',x_site_use_code);
9636: END IF;
9637: --
9638:
9631: IF (l_debug <> -1) THEN
9632: rlm_core_sv.dpush(C_SDEBUG,'CustomerRelationship');
9633: rlm_core_sv.dlog(C_DEBUG,'x_RelatedCustomerId',x_RelatedCustomerId);
9634: rlm_core_sv.dlog(C_DEBUG,'x_customer_id',x_customer_id);
9635: rlm_core_sv.dlog(C_DEBUG,'x_site_use_code',x_site_use_code);
9636: END IF;
9637: --
9638:
9639: IF x_RelatedCustomerId <> x_customer_id THEN
9639: IF x_RelatedCustomerId <> x_customer_id THEN
9640: --
9641: IF x_site_use_code = 'BILL_TO' THEN
9642: --
9643: rlm_core_sv.dlog(C_DEBUG,'x_site_use_code',x_site_use_code);
9644: --
9645: SELECT 'exists'
9646: INTO v_Temp
9647: FROM HZ_CUST_ACCT_RELATE
9667: v_parameter := OE_Sys_Parameters.value('CUSTOMER_RELATIONSHIPS_FLAG',
9668: MO_GLOBAL.get_current_org_id);
9669: --
9670: IF (l_debug <> -1) THEN
9671: rlm_core_sv.dlog(C_DEBUG,'v_parameter',v_parameter);
9672: END IF;
9673: --
9674: IF NVL(v_parameter,'N') NOT IN ('Y','A') THEN
9675: --
9679: --
9680: END IF;
9681: --
9682: IF (l_debug <> -1) THEN
9683: rlm_core_sv.dpop(C_SDEBUG);
9684: END IF;
9685: --
9686: RETURN(TRUE);
9687:
9689: --
9690: WHEN NO_DATA_FOUND THEN
9691: --
9692: IF (l_debug <> -1) THEN
9693: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
9694: END IF;
9695: --
9696: rlm_message_sv.app_error(
9697: x_ExceptionLevel => rlm_message_sv.k_error_level,
9697: x_ExceptionLevel => rlm_message_sv.k_error_level,
9698: x_MessageName => 'RLM_CUSTOMER_RELATIONSHIP',
9699: x_InterfaceHeaderId => x_header_id,
9700: x_token1=>'CUSTOMER1',
9701: x_value1 => rlm_core_sv.get_customer_name(x_RelatedCustomerId),
9702: x_token2=>'CUSTOMER2',
9703: x_value2 => rlm_core_sv.get_customer_name(x_customer_id)
9704: );
9705: --
9699: x_InterfaceHeaderId => x_header_id,
9700: x_token1=>'CUSTOMER1',
9701: x_value1 => rlm_core_sv.get_customer_name(x_RelatedCustomerId),
9702: x_token2=>'CUSTOMER2',
9703: x_value2 => rlm_core_sv.get_customer_name(x_customer_id)
9704: );
9705: --
9706: IF (l_debug <> -1) THEN
9707: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_RELATIONSHIP');
9703: x_value2 => rlm_core_sv.get_customer_name(x_customer_id)
9704: );
9705: --
9706: IF (l_debug <> -1) THEN
9707: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_CUSTOMER_RELATIONSHIP');
9708: END IF;
9709: --
9710: RETURN(FALSE);
9711: --
9715: x_MessageName => 'RLM_OM_CUSTOMER_RELATIONSHIP',
9716: x_InterfaceHeaderId => x_header_id);
9717: --
9718: IF (l_debug <> -1) THEN
9719: rlm_core_sv.dlog(C_DEBUG,'e_no_om_cr');
9720: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_OM_CUSTOMER_RELATIONSHIP');
9721: END IF;
9722: --
9723: RETURN(FALSE);
9716: x_InterfaceHeaderId => x_header_id);
9717: --
9718: IF (l_debug <> -1) THEN
9719: rlm_core_sv.dlog(C_DEBUG,'e_no_om_cr');
9720: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: RLM_OM_CUSTOMER_RELATIONSHIP');
9721: END IF;
9722: --
9723: RETURN(FALSE);
9724: --
9727: rlm_message_sv.sql_error('RLM_VALIDATEDEMAND_SV.CustomerRelationship',
9728: v_Progress);
9729: --
9730: IF (l_debug <> -1) THEN
9731: rlm_core_sv.dlog (C_DEBUG,'SQL Error: ',substr(sqlerrm,1,300));
9732: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
9733: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
9734: END IF;
9735: --
9728: v_Progress);
9729: --
9730: IF (l_debug <> -1) THEN
9731: rlm_core_sv.dlog (C_DEBUG,'SQL Error: ',substr(sqlerrm,1,300));
9732: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
9733: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
9734: END IF;
9735: --
9736: raise;
9729: --
9730: IF (l_debug <> -1) THEN
9731: rlm_core_sv.dlog (C_DEBUG,'SQL Error: ',substr(sqlerrm,1,300));
9732: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
9733: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');
9734: END IF;
9735: --
9736: raise;
9737: --
9751: v_order_number NUMBER;
9752: BEGIN
9753: --
9754: IF (l_debug <> -1) THEN
9755: rlm_core_sv.dpush(C_SDEBUG, 'ValidateDateTypeATP');
9756: END IF;
9757: --
9758: IF RLM_MANAGE_DEMAND_SV.IsATPItem(x_line.ship_from_org_id,
9759: x_line.inventory_item_id) THEN
9773: RAISE;
9774: END;
9775: --
9776: IF (l_debug <> -1) THEN
9777: rlm_core_sv.dlog(C_DEBUG, 'OM Date Type', v_order_date_type_code);
9778: rlm_core_sv.dlog(C_DEBUG, 'RLM Date Type', x_line.date_type_code);
9779: END IF;
9780: --
9781: IF v_order_date_type_code <> x_line.date_type_code THEN
9774: END;
9775: --
9776: IF (l_debug <> -1) THEN
9777: rlm_core_sv.dlog(C_DEBUG, 'OM Date Type', v_order_date_type_code);
9778: rlm_core_sv.dlog(C_DEBUG, 'RLM Date Type', x_line.date_type_code);
9779: END IF;
9780: --
9781: IF v_order_date_type_code <> x_line.date_type_code THEN
9782: --
9780: --
9781: IF v_order_date_type_code <> x_line.date_type_code THEN
9782: --
9783: IF (l_debug <> -1) THEN
9784: rlm_core_sv.dlog(C_DEBUG, 'RLM line date type does not match OM date type');
9785: END IF;
9786: --
9787: rlm_message_sv.app_error(
9788: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9789: x_MessageName => 'RLM_MISMATCH_DATE_TYPE',
9790: x_InterfaceHeaderId => x_line.header_id,
9791: x_InterfaceLineId => x_line.line_id,
9792: x_token1=> 'RLM_DATE_TYPE',
9793: x_value1=> rlm_core_sv.get_lookup_meaning(
9794: 'RLM_DATE_TYPE_CODE',
9795: x_line.date_type_code),
9796: x_token2=> 'OM_DATE_TYPE',
9797: x_value2=> OE_Id_To_Value.Order_Date_Type(v_order_date_type_code),
9797: x_value2=> OE_Id_To_Value.Order_Date_Type(v_order_date_type_code),
9798: x_token3=> 'ORDER',
9799: x_value3=> TO_CHAR(v_order_number),
9800: x_token4=> 'SF',
9801: x_value4=> rlm_core_sv.get_ship_from(x_line.ship_from_org_id),
9802: x_token5=> 'ST',
9803: x_value5=> rlm_core_sv.get_ship_to(x_line.ship_to_address_id),
9804: x_token6=> 'CI',
9805: x_value6=> rlm_core_sv.get_item_number(x_line.customer_item_id));
9799: x_value3=> TO_CHAR(v_order_number),
9800: x_token4=> 'SF',
9801: x_value4=> rlm_core_sv.get_ship_from(x_line.ship_from_org_id),
9802: x_token5=> 'ST',
9803: x_value5=> rlm_core_sv.get_ship_to(x_line.ship_to_address_id),
9804: x_token6=> 'CI',
9805: x_value6=> rlm_core_sv.get_item_number(x_line.customer_item_id));
9806:
9807: g_warned := TRUE;
9801: x_value4=> rlm_core_sv.get_ship_from(x_line.ship_from_org_id),
9802: x_token5=> 'ST',
9803: x_value5=> rlm_core_sv.get_ship_to(x_line.ship_to_address_id),
9804: x_token6=> 'CI',
9805: x_value6=> rlm_core_sv.get_item_number(x_line.customer_item_id));
9806:
9807: g_warned := TRUE;
9808: --
9809: END IF;
9812: --
9813: END IF;
9814: --
9815: IF (l_debug <> -1) THEN
9816: rlm_core_sv.dpop(C_SDEBUG);
9817: END IF;
9818: --
9819: EXCEPTION
9820: WHEN NO_DATA_FOUND THEN
9819: EXCEPTION
9820: WHEN NO_DATA_FOUND THEN
9821: --
9822: IF (l_debug <> -1) THEN
9823: rlm_core_sv.dpop(C_SDEBUG, 'No sales order found');
9824: END IF;
9825:
9826: WHEN OTHERS THEN
9827: --
9825:
9826: WHEN OTHERS THEN
9827: --
9828: IF (l_debug <> -1) THEN
9829: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9830: END IF;
9831:
9832: END ValidateDateTypeATP;
9833:
9851: --
9852: BEGIN
9853: --
9854: IF (l_debug <> -1) THEN
9855: rlm_core_sv.dpush(C_SDEBUG, 'DeriveBlanketPO');
9856: END IF;
9857: --
9858: SELECT cust_po_number
9859: INTO v_blanket_po
9860: FROM oe_blanket_headers
9861: WHERE order_number = x_Group_rec.setup_terms_rec.blanket_number;
9862: --
9863: IF (l_debug <> -1) THEN
9864: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
9865: rlm_core_sv.dlog(C_DEBUG, 'Blanket PO number', v_blanket_po);
9866: rlm_core_sv.dlog(C_DEBUG, 'Schedule PO', x_cust_po_num);
9867: END IF;
9868: --
9861: WHERE order_number = x_Group_rec.setup_terms_rec.blanket_number;
9862: --
9863: IF (l_debug <> -1) THEN
9864: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
9865: rlm_core_sv.dlog(C_DEBUG, 'Blanket PO number', v_blanket_po);
9866: rlm_core_sv.dlog(C_DEBUG, 'Schedule PO', x_cust_po_num);
9867: END IF;
9868: --
9869: IF (x_cust_po_num IS NOT NULL AND v_blanket_po IS NOT NULL) THEN
9862: --
9863: IF (l_debug <> -1) THEN
9864: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number', x_Group_rec.setup_terms_rec.blanket_number);
9865: rlm_core_sv.dlog(C_DEBUG, 'Blanket PO number', v_blanket_po);
9866: rlm_core_sv.dlog(C_DEBUG, 'Schedule PO', x_cust_po_num);
9867: END IF;
9868: --
9869: IF (x_cust_po_num IS NOT NULL AND v_blanket_po IS NOT NULL) THEN
9870: --
9876: --
9877: END IF;
9878: --
9879: IF (l_debug <> -1) THEN
9880: rlm_core_sv.dpop(C_SDEBUG);
9881: END IF;
9882: --
9883: EXCEPTION
9884: --
9894: x_value2=>v_blanket_po,
9895: x_ValidationType => 'PURCHASE_ORDER');
9896: --
9897: IF (l_debug <> -1) THEN
9898: rlm_core_sv.dlog(C_DEBUG, 'WARNING: Mismatch between PO on schedule and blanket order');
9899: rlm_core_sv.dpop(C_SDEBUG, 'RLM_BLKT_PO_MISMATCH');
9900: END IF;
9901: --
9902: WHEN NO_DATA_FOUND THEN
9895: x_ValidationType => 'PURCHASE_ORDER');
9896: --
9897: IF (l_debug <> -1) THEN
9898: rlm_core_sv.dlog(C_DEBUG, 'WARNING: Mismatch between PO on schedule and blanket order');
9899: rlm_core_sv.dpop(C_SDEBUG, 'RLM_BLKT_PO_MISMATCH');
9900: END IF;
9901: --
9902: WHEN NO_DATA_FOUND THEN
9903: --
9909: x_value1=>x_Group_rec.setup_terms_rec.blanket_number,
9910: x_ValidationType => 'PURCHASE_ORDER');
9911: --
9912: IF (l_debug <> -1) THEN
9913: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order not defined');
9914: rlm_core_sv.dpop(C_SDEBUG, 'RLM_BLANKET_UNDEFINED');
9915: END IF;
9916: --
9917: WHEN OTHERS THEN
9910: x_ValidationType => 'PURCHASE_ORDER');
9911: --
9912: IF (l_debug <> -1) THEN
9913: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order not defined');
9914: rlm_core_sv.dpop(C_SDEBUG, 'RLM_BLANKET_UNDEFINED');
9915: END IF;
9916: --
9917: WHEN OTHERS THEN
9918: --
9916: --
9917: WHEN OTHERS THEN
9918: --
9919: IF (l_debug <> -1) THEN
9920: rlm_core_sv.dlog(C_DEBUG, 'when others of DeriveBlanketPO');
9921: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9922: END IF;
9923: --
9924: RAISE;
9917: WHEN OTHERS THEN
9918: --
9919: IF (l_debug <> -1) THEN
9920: rlm_core_sv.dlog(C_DEBUG, 'when others of DeriveBlanketPO');
9921: rlm_core_sv.dpop(C_SDEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9922: END IF;
9923: --
9924: RAISE;
9925: --
9947: --
9948: BEGIN
9949: --
9950: IF (l_debug <> -1) THEN
9951: rlm_core_sv.dpush(C_SDEBUG, 'ValidateBlanket');
9952: rlm_core_sv.dlog(C_DEBUG, 'Header_id', x_Sched_rec.header_id);
9953: rlm_core_sv.dlog(C_DEBUG, 'Schedule source', x_Sched_rec.schedule_source);
9954: rlm_core_sv.dlog(C_DEBUG, 'Schedule Type', x_Sched_rec.schedule_type);
9955: END IF;
9948: BEGIN
9949: --
9950: IF (l_debug <> -1) THEN
9951: rlm_core_sv.dpush(C_SDEBUG, 'ValidateBlanket');
9952: rlm_core_sv.dlog(C_DEBUG, 'Header_id', x_Sched_rec.header_id);
9953: rlm_core_sv.dlog(C_DEBUG, 'Schedule source', x_Sched_rec.schedule_source);
9954: rlm_core_sv.dlog(C_DEBUG, 'Schedule Type', x_Sched_rec.schedule_type);
9955: END IF;
9956: --
9949: --
9950: IF (l_debug <> -1) THEN
9951: rlm_core_sv.dpush(C_SDEBUG, 'ValidateBlanket');
9952: rlm_core_sv.dlog(C_DEBUG, 'Header_id', x_Sched_rec.header_id);
9953: rlm_core_sv.dlog(C_DEBUG, 'Schedule source', x_Sched_rec.schedule_source);
9954: rlm_core_sv.dlog(C_DEBUG, 'Schedule Type', x_Sched_rec.schedule_type);
9955: END IF;
9956: --
9957: IF x_Sched_rec.schedule_type <> 'SEQUENCED' THEN
9950: IF (l_debug <> -1) THEN
9951: rlm_core_sv.dpush(C_SDEBUG, 'ValidateBlanket');
9952: rlm_core_sv.dlog(C_DEBUG, 'Header_id', x_Sched_rec.header_id);
9953: rlm_core_sv.dlog(C_DEBUG, 'Schedule source', x_Sched_rec.schedule_source);
9954: rlm_core_sv.dlog(C_DEBUG, 'Schedule Type', x_Sched_rec.schedule_type);
9955: END IF;
9956: --
9957: IF x_Sched_rec.schedule_type <> 'SEQUENCED' THEN
9958: --
9956: --
9957: IF x_Sched_rec.schedule_type <> 'SEQUENCED' THEN
9958: --
9959: IF (l_debug <> -1) THEN
9960: rlm_core_sv.dlog(C_DEBUG, 'Non-sequenced schedule');
9961: rlm_core_sv.dlog(C_DEBUG, 'Schedule Item Number', x_Group_rec.schedule_item_num);
9962: END IF;
9963: --
9964: SELECT MIN(start_date_time), MAX(start_date_time)
9957: IF x_Sched_rec.schedule_type <> 'SEQUENCED' THEN
9958: --
9959: IF (l_debug <> -1) THEN
9960: rlm_core_sv.dlog(C_DEBUG, 'Non-sequenced schedule');
9961: rlm_core_sv.dlog(C_DEBUG, 'Schedule Item Number', x_Group_rec.schedule_item_num);
9962: END IF;
9963: --
9964: SELECT MIN(start_date_time), MAX(start_date_time)
9965: INTO l_reqdate, h_reqdate
9972: --
9973: IF x_Sched_rec.schedule_source <> 'MANUAL' THEN
9974: --
9975: IF (l_debug <> -1) THEN
9976: rlm_core_sv.dlog(C_DEBUG, 'EDI Sequenced Schedule');
9977: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_from_org_ext', x_Group_rec.cust_ship_from_org_ext);
9978: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_to_ext', x_Group_rec.cust_ship_to_ext);
9979: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_ext', x_Group_rec.customer_item_ext);
9980: END IF;
9973: IF x_Sched_rec.schedule_source <> 'MANUAL' THEN
9974: --
9975: IF (l_debug <> -1) THEN
9976: rlm_core_sv.dlog(C_DEBUG, 'EDI Sequenced Schedule');
9977: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_from_org_ext', x_Group_rec.cust_ship_from_org_ext);
9978: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_to_ext', x_Group_rec.cust_ship_to_ext);
9979: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_ext', x_Group_rec.customer_item_ext);
9980: END IF;
9981: --
9974: --
9975: IF (l_debug <> -1) THEN
9976: rlm_core_sv.dlog(C_DEBUG, 'EDI Sequenced Schedule');
9977: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_from_org_ext', x_Group_rec.cust_ship_from_org_ext);
9978: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_to_ext', x_Group_rec.cust_ship_to_ext);
9979: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_ext', x_Group_rec.customer_item_ext);
9980: END IF;
9981: --
9982: SELECT MIN(start_date_time), MAX(start_date_time)
9975: IF (l_debug <> -1) THEN
9976: rlm_core_sv.dlog(C_DEBUG, 'EDI Sequenced Schedule');
9977: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_from_org_ext', x_Group_rec.cust_ship_from_org_ext);
9978: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.cust_ship_to_ext', x_Group_rec.cust_ship_to_ext);
9979: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_ext', x_Group_rec.customer_item_ext);
9980: END IF;
9981: --
9982: SELECT MIN(start_date_time), MAX(start_date_time)
9983: INTO l_reqdate, h_reqdate
9990: --
9991: ELSE
9992: --
9993: IF (l_debug <> -1) THEN
9994: rlm_core_sv.dlog(C_DEBUG, 'Manual Sequenced Schedule');
9995: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
9996: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_address_id', x_Group_rec.ship_to_address_id);
9997: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_id', x_Group_rec.customer_item_id);
9998: END IF;
9991: ELSE
9992: --
9993: IF (l_debug <> -1) THEN
9994: rlm_core_sv.dlog(C_DEBUG, 'Manual Sequenced Schedule');
9995: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
9996: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_address_id', x_Group_rec.ship_to_address_id);
9997: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_id', x_Group_rec.customer_item_id);
9998: END IF;
9999: --
9992: --
9993: IF (l_debug <> -1) THEN
9994: rlm_core_sv.dlog(C_DEBUG, 'Manual Sequenced Schedule');
9995: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
9996: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_address_id', x_Group_rec.ship_to_address_id);
9997: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_id', x_Group_rec.customer_item_id);
9998: END IF;
9999: --
10000: SELECT MIN(start_date_time), MAX(start_date_time)
9993: IF (l_debug <> -1) THEN
9994: rlm_core_sv.dlog(C_DEBUG, 'Manual Sequenced Schedule');
9995: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_from_org_id', x_Group_rec.ship_from_org_id);
9996: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.ship_to_address_id', x_Group_rec.ship_to_address_id);
9997: rlm_core_sv.dlog(C_DEBUG, 'x_Group_rec.customer_item_id', x_Group_rec.customer_item_id);
9998: END IF;
9999: --
10000: SELECT MIN(start_date_time), MAX(start_date_time)
10001: INTO l_reqdate, h_reqdate
10010: --
10011: END IF;
10012: --
10013: IF (l_debug <> -1) THEN
10014: rlm_core_sv.dlog(C_DEBUG, 'Lowest request date in current group', l_reqdate);
10015: rlm_core_sv.dlog(C_DEBUG, 'Highest request date in current group', h_reqdate);
10016: END IF;
10017: --
10018: SELECT start_date_active, end_date_active, on_hold_flag
10011: END IF;
10012: --
10013: IF (l_debug <> -1) THEN
10014: rlm_core_sv.dlog(C_DEBUG, 'Lowest request date in current group', l_reqdate);
10015: rlm_core_sv.dlog(C_DEBUG, 'Highest request date in current group', h_reqdate);
10016: END IF;
10017: --
10018: SELECT start_date_active, end_date_active, on_hold_flag
10019: INTO v_startdate, v_enddate, v_onholdflag
10020: FROM oe_blanket_headers_ext
10021: WHERE order_number = x_Group_rec.setup_terms_rec.blanket_number;
10022: --
10023: IF (l_debug <> -1) THEN
10024: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number',x_Group_rec.setup_terms_rec.blanket_number);
10025: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity Start Date', v_startdate);
10026: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity End Date', v_enddate);
10027: rlm_core_sv.dlog(C_DEBUG, 'On Hold Flag', v_onholdflag);
10028: END IF;
10021: WHERE order_number = x_Group_rec.setup_terms_rec.blanket_number;
10022: --
10023: IF (l_debug <> -1) THEN
10024: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number',x_Group_rec.setup_terms_rec.blanket_number);
10025: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity Start Date', v_startdate);
10026: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity End Date', v_enddate);
10027: rlm_core_sv.dlog(C_DEBUG, 'On Hold Flag', v_onholdflag);
10028: END IF;
10029: --
10022: --
10023: IF (l_debug <> -1) THEN
10024: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number',x_Group_rec.setup_terms_rec.blanket_number);
10025: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity Start Date', v_startdate);
10026: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity End Date', v_enddate);
10027: rlm_core_sv.dlog(C_DEBUG, 'On Hold Flag', v_onholdflag);
10028: END IF;
10029: --
10030: IF v_onholdflag = 'Y' THEN
10023: IF (l_debug <> -1) THEN
10024: rlm_core_sv.dlog(C_DEBUG, 'Blanket Number',x_Group_rec.setup_terms_rec.blanket_number);
10025: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity Start Date', v_startdate);
10026: rlm_core_sv.dlog(C_DEBUG, 'Blanket Effectivity End Date', v_enddate);
10027: rlm_core_sv.dlog(C_DEBUG, 'On Hold Flag', v_onholdflag);
10028: END IF;
10029: --
10030: IF v_onholdflag = 'Y' THEN
10031: --
10049: --
10050: END IF;
10051: --
10052: IF (l_debug <> -1) THEN
10053: rlm_core_sv.dpop(C_SDEBUG, 'TRUE');
10054: END IF;
10055: --
10056: RETURN TRUE;
10057: --
10067: x_token1=>'BLANKET_NUMBER',
10068: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);
10069: --
10070: IF (l_debug <> -1) THEN
10071: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order on hold');
10072: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10073: END IF;
10074: --
10075: RETURN FALSE;
10068: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);
10069: --
10070: IF (l_debug <> -1) THEN
10071: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order on hold');
10072: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10073: END IF;
10074: --
10075: RETURN FALSE;
10076: --
10088: x_token3=>'BLANKET_NUM',
10089: x_value3=>x_Group_rec.setup_terms_rec.blanket_number);
10090: --
10091: IF (l_debug <> -1) THEN
10092: rlm_core_sv.dlog(C_DEBUG, 'Lowest request date before effectivity start');
10093: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10094: END IF;
10095: --
10096: RETURN FALSE;
10089: x_value3=>x_Group_rec.setup_terms_rec.blanket_number);
10090: --
10091: IF (l_debug <> -1) THEN
10092: rlm_core_sv.dlog(C_DEBUG, 'Lowest request date before effectivity start');
10093: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10094: END IF;
10095: --
10096: RETURN FALSE;
10097: --
10109: x_token3=>'BLANKET_NUM',
10110: x_value3=>x_Group_rec.setup_terms_rec.blanket_number);
10111: --
10112: IF (l_debug <> -1) THEN
10113: rlm_core_sv.dlog(C_DEBUG, 'Highest request date after effectivity start');
10114: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10115: END IF;
10116: --
10117: RETURN FALSE;
10110: x_value3=>x_Group_rec.setup_terms_rec.blanket_number);
10111: --
10112: IF (l_debug <> -1) THEN
10113: rlm_core_sv.dlog(C_DEBUG, 'Highest request date after effectivity start');
10114: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10115: END IF;
10116: --
10117: RETURN FALSE;
10118: --
10125: x_token1=>'BLANKET_NUM',
10126: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);
10127: --
10128: IF (l_debug <> -1) THEN
10129: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order not defined');
10130: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10131: END IF;
10132: --
10133: RETURN FALSE;
10126: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);
10127: --
10128: IF (l_debug <> -1) THEN
10129: rlm_core_sv.dlog(C_DEBUG, 'Blanket Order not defined');
10130: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10131: END IF;
10132: --
10133: RETURN FALSE;
10134: --
10134: --
10135: WHEN OTHERS THEN
10136: --
10137: IF (l_debug <> -1) THEN
10138: rlm_core_sv.dlog(C_DEBUG, 'When others of ValidateBlanket');
10139: rlm_core_sv.dlog(C_DEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10140: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10141: END IF;
10142: --
10135: WHEN OTHERS THEN
10136: --
10137: IF (l_debug <> -1) THEN
10138: rlm_core_sv.dlog(C_DEBUG, 'When others of ValidateBlanket');
10139: rlm_core_sv.dlog(C_DEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10140: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10141: END IF;
10142: --
10143: RETURN FALSE;
10136: --
10137: IF (l_debug <> -1) THEN
10138: rlm_core_sv.dlog(C_DEBUG, 'When others of ValidateBlanket');
10139: rlm_core_sv.dlog(C_DEBUG, 'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
10140: rlm_core_sv.dpop(C_SDEBUG, 'FALSE');
10141: END IF;
10142: --
10143: RETURN FALSE;
10144: