[Home] [Help]
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');
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: --
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',
343: x_InterfaceHeaderId => x_Header_Rec.header_id,
344: x_Token1 => 'TRANSLATOR_CODE',
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',
343: x_InterfaceHeaderId => x_Header_Rec.header_id,
344: x_Token1 => 'TRANSLATOR_CODE',
345: x_value1 => x_header_rec.ece_tp_translator_code,
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(
362: x_ExceptionLevel => rlm_message_sv.k_error_level,
363: x_MessageName => 'RLM_TP_TRANSL_SHIPTO_INVALID',
364: x_InterfaceHeaderId => x_header_rec.header_id,
365: x_token1=>'TP_TRANSLATOR',
358: --
359: IF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
360: --
361: rlm_message_sv.app_error(
362: x_ExceptionLevel => rlm_message_sv.k_error_level,
363: x_MessageName => 'RLM_TP_TRANSL_SHIPTO_INVALID',
364: x_InterfaceHeaderId => x_header_rec.header_id,
365: x_token1=>'TP_TRANSLATOR',
366: x_value1=>x_header_rec.ece_tp_translator_code,
374: END IF;
375: --
376: ELSE
377: --
378: rlm_message_sv.app_error(
379: x_ExceptionLevel => rlm_message_sv.k_error_level,
380: x_MessageName => 'RLM_CUST_SHIP_TO_INVALID',
381: x_InterfaceHeaderId => x_header_rec.header_id,
382: x_token1=>'CUSTOMER_EXT',
375: --
376: ELSE
377: --
378: rlm_message_sv.app_error(
379: x_ExceptionLevel => rlm_message_sv.k_error_level,
380: x_MessageName => 'RLM_CUST_SHIP_TO_INVALID',
381: x_InterfaceHeaderId => x_header_rec.header_id,
382: x_token1=>'CUSTOMER_EXT',
383: x_value1=>x_header_rec.customer_ext,
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',
405: x_InterfaceHeaderId => x_header_rec.header_id,
406: x_token1=>'CUSTOMER_EXT',
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',
405: x_InterfaceHeaderId => x_header_rec.header_id,
406: x_token1=>'CUSTOMER_EXT',
407: x_value1=>v_Customer,
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));
423: END IF;
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
469: --
470: RAISE e_no_record_found;
742: --
743: -- We need to reset_dependency so that the next group does not face the
744: -- same dependency problem
745: --
746: rlm_message_sv.reset_dependency;
747: --
748: -- bug 4570658
749: --
750: g_lines_tab.DELETE;
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
810: rlm_core_sv.dlog(C_DEBUG,'Message: ',
811: rlm_message_sv.g_message_tab(i).message_name);
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: --
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);
870: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
893: x_ForecastDesignator VARCHAR2(30);
894: --
895: BEGIN
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;
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
964: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
1021: v_OrderNumber NUMBER ;
1022:
1023: BEGIN
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',
1153: raise e_SetupOrderMissing;
1154: --
1155: WHEN INVALID_NUMBER THEN
1156: --
1157: rlm_message_sv.app_error(
1158: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1159: x_MessageName => 'RLM_WARN_ORDER_INVALID_NUMBER',
1160: x_InterfaceHeaderId => x_lines_rec.header_id,
1161: x_InterfaceLineId => x_lines_rec.line_id,
1154: --
1155: WHEN INVALID_NUMBER THEN
1156: --
1157: rlm_message_sv.app_error(
1158: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1159: x_MessageName => 'RLM_WARN_ORDER_INVALID_NUMBER',
1160: x_InterfaceHeaderId => x_lines_rec.header_id,
1161: x_InterfaceLineId => x_lines_rec.line_id,
1162: x_token1=>'CUST_ORDER_NUM_EXT',
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',
1208: x_InterfaceHeaderId => x_lines_rec.header_id,
1209: x_InterfaceLineId => x_lines_rec.line_id,
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',
1208: x_InterfaceHeaderId => x_lines_rec.header_id,
1209: x_InterfaceLineId => x_lines_rec.line_id,
1210: x_ValidationType => 'ORDER_HEADER');
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',
1223: x_InterfaceHeaderId => x_lines_rec.header_id,
1224: x_InterfaceLineId => x_lines_rec.line_id,
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',
1223: x_InterfaceHeaderId => x_lines_rec.header_id,
1224: x_InterfaceLineId => x_lines_rec.line_id,
1225: x_ValidationType => 'ORDER_HEADER');
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',
1238: x_InterfaceHeaderId => x_lines_rec.header_id,
1239: x_InterfaceLineId => x_lines_rec.line_id,
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',
1238: x_InterfaceHeaderId => x_lines_rec.header_id,
1239: x_InterfaceLineId => x_lines_rec.line_id,
1240: x_ValidationType => 'ORDER_HEADER');
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(
1253: x_ExceptionLevel => rlm_message_sv.k_error_level,
1254: x_MessageName => 'RLM_SALES_ORDER_UNDEFINED',
1255: x_InterfaceHeaderId => x_lines_rec.header_id,
1256: x_InterfaceLineId => x_lines_rec.line_id,
1249: --
1250: --
1251: -- Fetch relevant Cust_Order_num_ext for given header Id for error message
1252: rlm_message_sv.app_error(
1253: x_ExceptionLevel => rlm_message_sv.k_error_level,
1254: x_MessageName => 'RLM_SALES_ORDER_UNDEFINED',
1255: x_InterfaceHeaderId => x_lines_rec.header_id,
1256: x_InterfaceLineId => x_lines_rec.line_id,
1257: x_token1=>'CUST_ORDER_NUM_EXT',
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',
1273: x_InterfaceHeaderId => x_lines_rec.header_id,
1274: x_InterfaceLineId => x_lines_rec.line_id,
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',
1273: x_InterfaceHeaderId => x_lines_rec.header_id,
1274: x_InterfaceLineId => x_lines_rec.line_id,
1275: x_token1=>'CUST_ORDER_NUM_EXT',
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',
1290: x_InterfaceHeaderId => x_lines_rec.header_id,
1291: x_InterfaceLineId => x_lines_rec.line_id,
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',
1290: x_InterfaceHeaderId => x_lines_rec.header_id,
1291: x_InterfaceLineId => x_lines_rec.line_id,
1292: x_token1=>'SCH_ORDER_NUM',
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: --
1311: IF (l_debug <> -1) THEN
1312: rlm_core_sv.dlog(C_DEBUG,'process_status',x_lines_rec.process_status);
1352: WHERE INVENTORY_ITEM_ID = x_lines_rec.INVENTORY_ITEM_ID
1353: AND ORGANIZATION_ID = x_lines_rec.ship_from_org_id;
1354:
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);
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',
1442: x_InterfaceHeaderId => x_lines_rec.header_id,
1443: x_InterfaceLineId => x_lines_rec.line_id,
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',
1442: x_InterfaceHeaderId => x_lines_rec.header_id,
1443: x_InterfaceLineId => x_lines_rec.line_id,
1444: x_token1=>'UOM_CODE',
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',
1459: x_InterfaceHeaderId => x_lines_rec.header_id,
1460: x_InterfaceLineId => x_lines_rec.line_id,
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',
1459: x_InterfaceHeaderId => x_lines_rec.header_id,
1460: x_InterfaceLineId => x_lines_rec.line_id,
1461: x_token1=>'UOM_CODE',
1467: END IF;
1468: --
1469: WHEN e_PrimaryCodeMissing THEN
1470: --
1471: rlm_message_sv.app_error(
1472: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1473: x_MessageName => 'RLM_WARN_NO_PRIMARY_UOM',
1474: x_InterfaceHeaderId => x_lines_rec.header_id,
1475: x_InterfaceLineId => x_lines_rec.line_id,
1468: --
1469: WHEN e_PrimaryCodeMissing THEN
1470: --
1471: rlm_message_sv.app_error(
1472: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1473: x_MessageName => 'RLM_WARN_NO_PRIMARY_UOM',
1474: x_InterfaceHeaderId => x_lines_rec.header_id,
1475: x_InterfaceLineId => x_lines_rec.line_id,
1476: x_ValidationType => 'UOM_CODE');
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
1489: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1490: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1509: e_StartDateInv EXCEPTION;
1510: --
1511: BEGIN
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',
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',
1566: x_InterfaceHeaderId => x_lines_rec.header_id,
1567: x_InterfaceLineId => x_lines_rec.line_id,
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',
1566: x_InterfaceHeaderId => x_lines_rec.header_id,
1567: x_InterfaceLineId => x_lines_rec.line_id,
1568: x_token1=>'START_DATE_TIME',
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',
1585: x_InterfaceHeaderId => x_lines_rec.header_id,
1586: x_InterfaceLineId => x_lines_rec.line_id,
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',
1585: x_InterfaceHeaderId => x_lines_rec.header_id,
1586: x_InterfaceLineId => x_lines_rec.line_id,
1587: x_ValidationType => 'DATE_RANGE');
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',
1600: x_value1=>x_lines_rec.start_date_time,
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);
1616: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1632: e_DateTypeInv EXCEPTION;
1633: --
1634: BEGIN
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;
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',
1667: x_InterfaceHeaderId => x_lines_rec.header_id,
1668: x_InterfaceLineId => x_lines_rec.line_id,
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',
1667: x_InterfaceHeaderId => x_lines_rec.header_id,
1668: x_InterfaceLineId => x_lines_rec.line_id,
1669: x_token1=>'DATE_TYPE_CODE',
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
1684: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
1701: e_QtyInvalid EXCEPTION;
1702: --
1703: BEGIN
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',
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',
1747: x_InterfaceHeaderId => x_lines_rec.header_id,
1748: x_InterfaceLineId => x_lines_rec.line_id,
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',
1747: x_InterfaceHeaderId => x_lines_rec.header_id,
1748: x_InterfaceLineId => x_lines_rec.line_id,
1749: x_token1=>'ITEM_DETAIL_QUANTITY',
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: --
1764: IF (l_debug <> -1) THEN
1765: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
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);
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',
1852: x_InterfaceHeaderId => x_lines_rec.header_id,
1853: x_InterfaceLineId => x_lines_rec.line_id,
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',
1852: x_InterfaceHeaderId => x_lines_rec.header_id,
1853: x_InterfaceLineId => x_lines_rec.line_id,
1854: x_token1=>'QUANTITY_TYPE_CODE',
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',
1870: x_InterfaceHeaderId => x_lines_rec.header_id,
1871: x_InterfaceLineId => x_lines_rec.line_id,
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',
1870: x_InterfaceHeaderId => x_lines_rec.header_id,
1871: x_InterfaceLineId => x_lines_rec.line_id,
1872: x_token1=>'QUANTITY_TYPE_CODE',
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',
1887: x_InterfaceHeaderId => x_lines_rec.header_id,
1888: x_InterfaceLineId => x_lines_rec.line_id,
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',
1887: x_InterfaceHeaderId => x_lines_rec.header_id,
1888: x_InterfaceLineId => x_lines_rec.line_id,
1889: x_ValidationType => 'QUANTITY_TYPE_CODE');
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: --
1902: IF (l_debug <> -1) THEN
1903: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1922: v_status BOOLEAN;
1923: --
1924: BEGIN
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;
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,
1976: x_InterfaceLineId => x_lines_rec.line_id,
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,
1976: x_InterfaceLineId => x_lines_rec.line_id,
1977: x_token1=>'ITEM_DETAIL_SUBTYPE',
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
1996: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2013: e_ItemDetailTypeInvalid EXCEPTION;
2014: --
2015: BEGIN
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;
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,
2047: x_InterfaceLineId => x_lines_rec.line_id,
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,
2047: x_InterfaceLineId => x_lines_rec.line_id,
2048: x_token1=>'ITEM_DETAIL_TYPE',
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
2065: rlm_core_sv.dlog(C_DEBUG,'OTHERS',x_lines_rec.item_detail_type);
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: --
2097: IF (l_debug <> -1) THEN
2098: rlm_core_sv.dlog(C_DEBUG,'critical_attribute_key',
2099: x_setup_terms_rec.critical_attribute_key);
2367: --
2368: EXCEPTION
2369: WHEN e_CriticalKeyMissing THEN
2370: --
2371: rlm_message_sv.app_error(
2372: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2373: x_MessageName => 'RLM_CRITICAL_KEY_NULL',
2374: x_InterfaceHeaderId => x_lines_rec.header_id,
2375: x_InterfaceLineId => x_lines_rec.line_id,
2368: EXCEPTION
2369: WHEN e_CriticalKeyMissing THEN
2370: --
2371: rlm_message_sv.app_error(
2372: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2373: x_MessageName => 'RLM_CRITICAL_KEY_NULL',
2374: x_InterfaceHeaderId => x_lines_rec.header_id,
2375: x_InterfaceLineId => x_lines_rec.line_id,
2376: x_token1=>'DESCRIPTION',
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: --
2392: IF (l_debug <> -1) THEN
2393: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2550: END IF;
2551:
2552: EXCEPTION
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;
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
2696: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
2743: RETURN FALSE;
2744: --
2745: WHEN OTHERS THEN
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;
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
2822: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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);
2985: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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));
3033: END IF;
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',
3084: x_InterfaceHeaderId => x_header_rec.header_id);
3085: --
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',
3084: x_InterfaceHeaderId => x_header_rec.header_id);
3085: --
3086: IF (l_debug <> -1) THEN
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: --
3097: IF (l_debug <> -1) THEN
3098: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
3170: IF (l_debug <> -1) THEN
3171: rlm_core_sv.dlog(C_DEBUG,'schedule_source',
3172: x_header_rec.schedule_source);
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');
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: --
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,
3346: x_token1=> 'REF_NUM',
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,
3346: x_token1=> 'REF_NUM',
3347: x_value1=> v_ref_num,
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,
3373: x_token1=> 'REF_NUM',
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,
3373: x_token1=> 'REF_NUM',
3374: x_value1=> v_ref_num,
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,
3403: x_token1=> 'REF_NUM',
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,
3403: x_token1=> 'REF_NUM',
3404: x_value1=> v_ref_num,
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,
3433: x_token1=> 'REF_NUM',
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,
3433: x_token1=> 'REF_NUM',
3434: x_value1=> v_ref_num,
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,
3464: x_token1=> 'REF_NUM',
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,
3464: x_token1=> 'REF_NUM',
3465: x_value1=> v_ref_num,
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
3494: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
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);
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,
3553: x_token1=>'SCHED_HORIZON_START_DATE',
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,
3553: x_token1=>'SCHED_HORIZON_START_DATE',
3554: x_value1=>x_header_rec.sched_horizon_start_date,
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
3570: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
3596: IF (l_debug <> -1) THEN
3597: rlm_core_sv.dlog(C_DEBUG,'schedule_reference_num',
3598: x_header_rec.schedule_reference_num);
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,
3622: x_ValidationType => 'SCHEDULE_REF_NUM');
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,
3622: x_ValidationType => 'SCHEDULE_REF_NUM');
3623: --
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
3635: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
3661: IF (l_debug <> -1) THEN
3662: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
3663: END IF;
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,
3688: x_token1=>'SCHEDULE_TYPE',
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,
3688: x_token1=>'SCHEDULE_TYPE',
3689: x_value1=>x_header_rec.schedule_type,
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
3705: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
3773: EXCEPTION
3774: --
3775: WHEN OTHERS THEN
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;
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: --
3852: IF (l_debug <> -1) THEN
3853: rlm_core_sv.dlog(C_DEBUG,'x_header_rec.schedule_purpose',
3854: x_header_rec.schedule_purpose);
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,
3905: x_token1=>'SCHEDULE_REF_NUM',
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,
3905: x_token1=>'SCHEDULE_REF_NUM',
3906: x_value1=>x_header_rec.schedule_reference_num,
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,
4061: x_token1=>'SCHEDULE_PURPOSE',
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,
4061: x_token1=>'SCHEDULE_PURPOSE',
4062: x_value1=>x_header_rec.schedule_purpose,
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,
4083: x_token1=> 'REF_NUM',
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,
4083: x_token1=> 'REF_NUM',
4084: x_value1=> v_ref_num,
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,
4110: x_token1=> 'REF_NUM',
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,
4110: x_token1=> 'REF_NUM',
4111: x_value1=> v_ref_num,
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,
4140: x_token1=> 'REF_NUM',
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,
4140: x_token1=> 'REF_NUM',
4141: x_value1=> v_ref_num,
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,
4169: x_token1=> 'REF_NUM',
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,
4169: x_token1=> 'REF_NUM',
4170: x_value1=> v_ref_num,
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,
4200: x_token1=> 'REF_NUM',
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,
4200: x_token1=> 'REF_NUM',
4201: x_value1=> v_ref_num,
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
4230: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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
4274: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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));
4326: END IF;
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
4411: --
4412: -- The original customer item id needs to be stored. This value
4413: -- can be lost if inv api returns false
4414: v_customer_item_id := x_lines_rec.customer_item_id;
4541: -- Check if this is the same as derived from customer item
4542: --
4543: IF(v_InventoryItemIdFromSup <> x_lines_rec.inventory_item_id) THEN
4544:
4545: rlm_message_sv.app_error(
4546: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4547: x_MessageName => 'RLM_SUPPLIER_ITEM_MISMATCH',
4548: x_InterfaceHeaderId => x_lines_rec.header_id,
4549: x_InterfaceLineId => x_lines_rec.line_id,
4542: --
4543: IF(v_InventoryItemIdFromSup <> x_lines_rec.inventory_item_id) THEN
4544:
4545: rlm_message_sv.app_error(
4546: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4547: x_MessageName => 'RLM_SUPPLIER_ITEM_MISMATCH',
4548: x_InterfaceHeaderId => x_lines_rec.header_id,
4549: x_InterfaceLineId => x_lines_rec.line_id,
4550: x_token1=>'SUPPLIER_ITEM',
4558:
4559: EXCEPTION
4560: WHEN NO_DATA_FOUND THEN
4561: --
4562: rlm_message_sv.app_error(
4563: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4564: x_MessageName => 'RLM_INVALID_SUPPLIER_ITEM',
4565: x_InterfaceHeaderId => x_lines_rec.header_id,
4566: x_InterfaceLineId => x_lines_rec.line_id,
4559: EXCEPTION
4560: WHEN NO_DATA_FOUND THEN
4561: --
4562: rlm_message_sv.app_error(
4563: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4564: x_MessageName => 'RLM_INVALID_SUPPLIER_ITEM',
4565: x_InterfaceHeaderId => x_lines_rec.header_id,
4566: x_InterfaceLineId => x_lines_rec.line_id,
4567: x_token1=>'SUPPLIER_ITEM',
4670: --check if this is the same as derived from customer item
4671:
4672: IF(v_InventoryItemIdFromSeg <> x_lines_rec.inventory_item_id) THEN
4673:
4674: rlm_message_sv.app_error(
4675: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4676: x_MessageName => 'RLM_INV_ITEM_SEG_MISMATCH',
4677: x_InterfaceHeaderId => x_lines_rec.header_id,
4678: x_InterfaceLineId => x_lines_rec.line_id);
4671:
4672: IF(v_InventoryItemIdFromSeg <> x_lines_rec.inventory_item_id) THEN
4673:
4674: rlm_message_sv.app_error(
4675: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4676: x_MessageName => 'RLM_INV_ITEM_SEG_MISMATCH',
4677: x_InterfaceHeaderId => x_lines_rec.header_id,
4678: x_InterfaceLineId => x_lines_rec.line_id);
4679: --
4685:
4686: EXCEPTION
4687: WHEN NO_DATA_FOUND THEN
4688: --
4689: rlm_message_sv.app_error(
4690: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4691: x_MessageName => 'RLM_INVALID_INVENTORY_ITEM_SEG',
4692: x_InterfaceHeaderId => x_lines_rec.header_id,
4693: x_InterfaceLineId => x_lines_rec.line_id);
4686: EXCEPTION
4687: WHEN NO_DATA_FOUND THEN
4688: --
4689: rlm_message_sv.app_error(
4690: x_ExceptionLevel => rlm_message_sv.k_warn_level,
4691: x_MessageName => 'RLM_INVALID_INVENTORY_ITEM_SEG',
4692: x_InterfaceHeaderId => x_lines_rec.header_id,
4693: x_InterfaceLineId => x_lines_rec.line_id);
4694: --
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',
4739: x_InterfaceHeaderId => x_lines_rec.header_id,
4740: x_InterfaceLineId => x_lines_rec.line_id,
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',
4739: x_InterfaceHeaderId => x_lines_rec.header_id,
4740: x_InterfaceLineId => x_lines_rec.line_id,
4741: x_ValidationType => 'INVENTORY_ITEM');
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',
4754: x_InterfaceHeaderId => x_lines_rec.header_id,
4755: x_InterfaceLineId => x_lines_rec.line_id,
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',
4754: x_InterfaceHeaderId => x_lines_rec.header_id,
4755: x_InterfaceLineId => x_lines_rec.line_id,
4756: x_token1=> 'CUSTEXT',
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,
4772: x_InterfaceLineId => x_lines_rec.line_id,
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,
4772: x_InterfaceLineId => x_lines_rec.line_id,
4773: x_token1=>'SUPPLIER_ITEM_EXT',
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',
4789: x_InterfaceHeaderId => x_lines_rec.header_id,
4790: x_InterfaceLineId => x_lines_rec.line_id,
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',
4789: x_InterfaceHeaderId => x_lines_rec.header_id,
4790: x_InterfaceLineId => x_lines_rec.line_id,
4791: x_token1=> 'CUSTOMER_ITEM',
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',
4807: x_InterfaceHeaderId => x_lines_rec.header_id,
4808: x_InterfaceLineId => x_lines_rec.line_id,
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',
4807: x_InterfaceHeaderId => x_lines_rec.header_id,
4808: x_InterfaceLineId => x_lines_rec.line_id,
4809: x_GroupInfo => TRUE,
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',
4827: x_InterfaceHeaderId => x_lines_rec.header_id,
4828: x_InterfaceLineId => x_lines_rec.line_id,
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',
4827: x_InterfaceHeaderId => x_lines_rec.header_id,
4828: x_InterfaceLineId => x_lines_rec.line_id,
4829: x_ValidationType => 'INVENTORY_ITEM');
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
4843: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
4872: IF x_lines_rec.customer_item_id IS NULL THEN
4873: --
4874: BEGIN
4960: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
4961: --
4962: -- bug 5197388
4963: --
4964: rlm_message_sv.app_error(
4965: x_ExceptionLevel => rlm_message_sv.k_error_level,
4966: x_MessageName => 'RLM_CUSTOMER_ITEM_NOT_DERIVED',
4967: x_InterfaceHeaderId => x_lines_rec.header_id,
4968: x_InterfaceLineId => x_lines_rec.line_id,
4961: --
4962: -- bug 5197388
4963: --
4964: rlm_message_sv.app_error(
4965: x_ExceptionLevel => rlm_message_sv.k_error_level,
4966: x_MessageName => 'RLM_CUSTOMER_ITEM_NOT_DERIVED',
4967: x_InterfaceHeaderId => x_lines_rec.header_id,
4968: x_InterfaceLineId => x_lines_rec.line_id,
4969: x_token1=>'CUSTOMER_ITEM',
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
4987: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
5035: IF x_lines_rec.item_detail_type in ('0','1','2') THEN
5036: --
5037: v_Agreement_id := x_setup_terms_rec.agreement_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(
5150: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5151: x_MessageName => 'RLM_SETUP_AGREEMENT_INVALID',
5152: x_InterfaceHeaderId => x_lines_rec.header_id,
5153: x_InterfaceLineId => x_lines_rec.line_id,
5146: x_lines_rec.cust_po_number);
5147: END IF;
5148: --
5149: rlm_message_sv.app_error(
5150: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5151: x_MessageName => 'RLM_SETUP_AGREEMENT_INVALID',
5152: x_InterfaceHeaderId => x_lines_rec.header_id,
5153: x_InterfaceLineId => x_lines_rec.line_id,
5154: x_token1=>'CURRENT_AGR',
5245: --
5246: IF x_lines_rec.start_date_time > v_end_date OR
5247: x_lines_rec.start_date_time < v_start_date THEN
5248: --
5249: rlm_message_sv.app_error(
5250: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5251: x_MessageName => 'RLM_AGREEMENT_INACTIVE',
5252: x_InterfaceHeaderId => x_lines_rec.header_id,
5253: x_InterfaceLineId => x_lines_rec.line_id,
5246: IF x_lines_rec.start_date_time > v_end_date OR
5247: x_lines_rec.start_date_time < v_start_date THEN
5248: --
5249: rlm_message_sv.app_error(
5250: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5251: x_MessageName => 'RLM_AGREEMENT_INACTIVE',
5252: x_InterfaceHeaderId => x_lines_rec.header_id,
5253: x_InterfaceLineId => x_lines_rec.line_id,
5254: x_token1=>'PURCHASE_ORDER',
5271: Cannot Derive agreement from Purchase Order on line');
5272: END IF;
5273: --
5274: --DeriveARPriceList := TRUE;
5275: rlm_message_sv.app_error(
5276: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5277: x_MessageName => 'RLM_WARN_PO_AGREEMENT_ID',
5278: x_InterfaceHeaderId => x_lines_rec.header_id,
5279: x_InterfaceLineId => x_lines_rec.line_id,
5272: END IF;
5273: --
5274: --DeriveARPriceList := TRUE;
5275: rlm_message_sv.app_error(
5276: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5277: x_MessageName => 'RLM_WARN_PO_AGREEMENT_ID',
5278: x_InterfaceHeaderId => x_lines_rec.header_id,
5279: x_InterfaceLineId => x_lines_rec.line_id,
5280: x_token1=>'PURCHASE_ORDER',
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(
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));
5390: EXCEPTION
5391: --
5392: WHEN e_PriceListInactive THEN
5393: -- Waning message
5394: rlm_message_sv.app_error(
5395: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5396: x_MessageName => 'RLM_PRICE_LIST_INACTIVE',
5397: x_InterfaceHeaderId => x_lines_rec.header_id,
5398: x_InterfaceLineId => x_lines_rec.line_id,
5391: --
5392: WHEN e_PriceListInactive THEN
5393: -- Waning message
5394: rlm_message_sv.app_error(
5395: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5396: x_MessageName => 'RLM_PRICE_LIST_INACTIVE',
5397: x_InterfaceHeaderId => x_lines_rec.header_id,
5398: x_InterfaceLineId => x_lines_rec.line_id,
5399: x_token1=>'PRICE_LIST',
5407: END IF;
5408: --
5409: WHEN e_POAgreementDiff THEN
5410: -- Waning message
5411: rlm_message_sv.app_error(
5412: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5413: x_MessageName => 'RLM_WARN_SETUP_PO_MISMATCH',
5414: x_InterfaceHeaderId => x_lines_rec.header_id,
5415: x_InterfaceLineId => x_lines_rec.line_id,
5408: --
5409: WHEN e_POAgreementDiff THEN
5410: -- Waning message
5411: rlm_message_sv.app_error(
5412: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5413: x_MessageName => 'RLM_WARN_SETUP_PO_MISMATCH',
5414: x_InterfaceHeaderId => x_lines_rec.header_id,
5415: x_InterfaceLineId => x_lines_rec.line_id,
5416: x_token1=>'PRICING_CONTRACT',
5427: END IF;
5428: --
5429: WHEN e_POAgreementInv THEN
5430: -- Waning message
5431: rlm_message_sv.app_error(
5432: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5433: x_MessageName => 'RLM_WARN_PO_AGREEMENT_ID',
5434: x_InterfaceHeaderId => x_lines_rec.header_id,
5435: x_InterfaceLineId => x_lines_rec.line_id,
5428: --
5429: WHEN e_POAgreementInv THEN
5430: -- Waning message
5431: rlm_message_sv.app_error(
5432: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5433: x_MessageName => 'RLM_WARN_PO_AGREEMENT_ID',
5434: x_InterfaceHeaderId => x_lines_rec.header_id,
5435: x_InterfaceLineId => x_lines_rec.line_id,
5436: x_token1=>'PURCHASE_ORDER',
5443: END IF;
5444: --
5445: WHEN e_POWithoutAgreement THEN
5446: -- Warning message
5447: rlm_message_sv.app_error(
5448: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5449: x_MessageName => 'RLM_WARN_PO_WITHOUT_AGREEMENT',
5450: x_InterfaceHeaderId => x_lines_rec.header_id,
5451: x_InterfaceLineId => x_lines_rec.line_id,
5444: --
5445: WHEN e_POWithoutAgreement THEN
5446: -- Warning message
5447: rlm_message_sv.app_error(
5448: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5449: x_MessageName => 'RLM_WARN_PO_WITHOUT_AGREEMENT',
5450: x_InterfaceHeaderId => x_lines_rec.header_id,
5451: x_InterfaceLineId => x_lines_rec.line_id,
5452: x_token1=>'PURCHASE_ORDER',
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',
5468: x_InterfaceHeaderId => x_lines_rec.header_id,
5469: x_InterfaceLineId => x_lines_rec.line_id,
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',
5468: x_InterfaceHeaderId => x_lines_rec.header_id,
5469: x_InterfaceLineId => x_lines_rec.line_id,
5470: x_token1=> 'CUSTEXT',
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
5487: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5659: --
5660: WHEN NO_DATA_FOUND THEN
5661: -- Warning
5662: /*
5663: rlm_message_sv.app_error(
5664: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5665: x_MessageName => 'RLM_PRIMARYADDRESS_NOT_DERIVED',
5666: x_InterfaceHeaderId => x_lines_rec.header_id,
5667: x_InterfaceLineId => x_lines_rec.line_id,
5660: WHEN NO_DATA_FOUND THEN
5661: -- Warning
5662: /*
5663: rlm_message_sv.app_error(
5664: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5665: x_MessageName => 'RLM_PRIMARYADDRESS_NOT_DERIVED',
5666: x_InterfaceHeaderId => x_lines_rec.header_id,
5667: x_InterfaceLineId => x_lines_rec.line_id,
5668: x_ValidationType => 'CUSTOMER');
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',
5686: x_InterfaceHeaderId => x_lines_rec.header_id,
5687: x_InterfaceLineId => x_lines_rec.line_id,
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',
5686: x_InterfaceHeaderId => x_lines_rec.header_id,
5687: x_InterfaceLineId => x_lines_rec.line_id,
5688: x_ValidationType => 'CUSTOMER');
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',
5703: x_InterfaceHeaderId => x_lines_rec.header_id,
5704: x_InterfaceLineId => x_lines_rec.line_id,
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',
5703: x_InterfaceHeaderId => x_lines_rec.header_id,
5704: x_InterfaceLineId => x_lines_rec.line_id,
5705: x_token1=>'CUSTOMER_EXT',
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
5722: --
5723: rlm_message_sv.app_error(
5724: x_ExceptionLevel => rlm_message_sv.k_error_level,
5725: x_MessageName => 'RLM_CUST_SHIP_TO_INVALID',
5726: x_InterfaceHeaderId => x_lines_rec.header_id,
5727: x_InterfaceLineId => x_lines_rec.line_id,
5720: --
5721: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
5722: --
5723: rlm_message_sv.app_error(
5724: x_ExceptionLevel => rlm_message_sv.k_error_level,
5725: x_MessageName => 'RLM_CUST_SHIP_TO_INVALID',
5726: x_InterfaceHeaderId => x_lines_rec.header_id,
5727: x_InterfaceLineId => x_lines_rec.line_id,
5728: x_token1=>'CUSTOMER_EXT',
5737: END IF;
5738: --
5739: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5740: --
5741: rlm_message_sv.app_error(
5742: x_ExceptionLevel => rlm_message_sv.k_error_level,
5743: x_MessageName => 'RLM_CUST_TPLOC_INVALID',
5744: x_InterfaceHeaderId => x_lines_rec.header_id,
5745: x_InterfaceLineId => x_lines_rec.line_id,
5738: --
5739: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5740: --
5741: rlm_message_sv.app_error(
5742: x_ExceptionLevel => rlm_message_sv.k_error_level,
5743: x_MessageName => 'RLM_CUST_TPLOC_INVALID',
5744: x_InterfaceHeaderId => x_lines_rec.header_id,
5745: x_InterfaceLineId => x_lines_rec.line_id,
5746: x_token1=>'CUSTOMER_EXT',
5759: ELSIF x_header_rec.ece_tp_translator_code IS NOT NULL THEN
5760: --
5761: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
5762: --
5763: rlm_message_sv.app_error(
5764: x_ExceptionLevel => rlm_message_sv.k_error_level,
5765: x_MessageName => 'RLM_TP_TRANSL_SHIPTO_INVALID',
5766: x_InterfaceHeaderId => x_lines_rec.header_id,
5767: x_InterfaceLineId => x_lines_rec.line_id,
5760: --
5761: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
5762: --
5763: rlm_message_sv.app_error(
5764: x_ExceptionLevel => rlm_message_sv.k_error_level,
5765: x_MessageName => 'RLM_TP_TRANSL_SHIPTO_INVALID',
5766: x_InterfaceHeaderId => x_lines_rec.header_id,
5767: x_InterfaceLineId => x_lines_rec.line_id,
5768: x_token1=>'TP_TRANSLATOR',
5777: END IF;
5778: --
5779: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5780: --
5781: rlm_message_sv.app_error(
5782: x_ExceptionLevel => rlm_message_sv.k_error_level,
5783: x_MessageName => 'RLM_TP_TRANSL_LOC_CODE_INVALID',
5784: x_InterfaceHeaderId => x_lines_rec.header_id,
5785: x_InterfaceLineId => x_lines_rec.line_id,
5778: --
5779: ELSIF x_header_rec.ece_tp_location_code_ext IS NOT NULL THEN
5780: --
5781: rlm_message_sv.app_error(
5782: x_ExceptionLevel => rlm_message_sv.k_error_level,
5783: x_MessageName => 'RLM_TP_TRANSL_LOC_CODE_INVALID',
5784: x_InterfaceHeaderId => x_lines_rec.header_id,
5785: x_InterfaceLineId => x_lines_rec.line_id,
5786: x_token1=>'TP_TRANSLATOR',
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
5809: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
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: --
5841: IF x_lines_rec.ship_from_org_id IS NULL THEN
5842: --
5843: IF x_lines_rec.cust_ship_from_org_ext IS NOT NULL THEN
5920: raise e_ManyRows;
5921: --
5922: WHEN OTHERS THEN
5923: --
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));
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,
5965: x_MessageName => 'RLM_SHIPFROM_NOT_DERIVED',
5966: x_InterfaceHeaderId => x_lines_rec.header_id,
5967: x_InterfaceLineId => x_lines_rec.line_id,
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,
5965: x_MessageName => 'RLM_SHIPFROM_NOT_DERIVED',
5966: x_InterfaceHeaderId => x_lines_rec.header_id,
5967: x_InterfaceLineId => x_lines_rec.line_id,
5968: x_token1=>'SHIP_FROM_ORG_EXT',
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));
6005: END IF;
6036: x_lines_rec.cust_intrmd_ship_to_ext);
6037: rlm_core_sv.dlog(C_DEBUG,'IntrmdShipToID',x_lines_rec.intrmd_ship_to_id);
6038: END IF;
6039: --
6040: -- IF rlm_message_sv.check_dependency('SHIPTO') THEN
6041: --
6042: IF x_lines_rec.intrmd_ship_to_id IS NULL AND
6043: x_lines_rec.cust_intrmd_ship_to_ext IS NOT NULL THEN
6044: --{
6212: --
6213: WHEN NO_DATA_FOUND THEN
6214: --
6215: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6216: rlm_message_sv.app_error(
6217: x_ExceptionLevel => rlm_message_sv.k_error_level,
6218: x_MessageName => 'RLM_INTRMD_SHIPTO_ID_INVALID',
6219: x_InterfaceHeaderId => x_lines_rec.header_id,
6220: x_InterfaceLineId => x_lines_rec.line_id,
6213: WHEN NO_DATA_FOUND THEN
6214: --
6215: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6216: rlm_message_sv.app_error(
6217: x_ExceptionLevel => rlm_message_sv.k_error_level,
6218: x_MessageName => 'RLM_INTRMD_SHIPTO_ID_INVALID',
6219: x_InterfaceHeaderId => x_lines_rec.header_id,
6220: x_InterfaceLineId => x_lines_rec.line_id,
6221: x_token1=>'INTRMD_SHIP_TO_EXT',
6237: END IF;
6238: --
6239: WHEN e_IntrmdSiteUseInv THEN
6240: -- Warning
6241: rlm_message_sv.app_error(
6242: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6243: x_MessageName => 'RLM_INTRMD_SHIPTO_SITEUSE',
6244: x_InterfaceHeaderId => x_lines_rec.header_id,
6245: x_InterfaceLineId => x_lines_rec.line_id,
6238: --
6239: WHEN e_IntrmdSiteUseInv THEN
6240: -- Warning
6241: rlm_message_sv.app_error(
6242: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6243: x_MessageName => 'RLM_INTRMD_SHIPTO_SITEUSE',
6244: x_InterfaceHeaderId => x_lines_rec.header_id,
6245: x_InterfaceLineId => x_lines_rec.line_id,
6246: x_token1=>'INTRMD_SHIP_TO_EXT',
6253: END IF;
6254: --
6255: WHEN e_InactiveIntShipTo THEN
6256: -- Warning
6257: rlm_message_sv.app_error(
6258: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6259: x_MessageName => 'RLM_INTSHIP_INACTIVE',
6260: x_InterfaceHeaderId => x_lines_rec.header_id,
6261: x_InterfaceLineId => x_lines_rec.line_id,
6254: --
6255: WHEN e_InactiveIntShipTo THEN
6256: -- Warning
6257: rlm_message_sv.app_error(
6258: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6259: x_MessageName => 'RLM_INTSHIP_INACTIVE',
6260: x_InterfaceHeaderId => x_lines_rec.header_id,
6261: x_InterfaceLineId => x_lines_rec.line_id,
6262: x_token1=>'INTRMD_SHIP_TO_EXT',
6269: END IF;
6270: --
6271: WHEN e_InactiveIntShipSiteUse THEN
6272: -- Warning
6273: rlm_message_sv.app_error(
6274: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6275: x_MessageName => 'RLM_INTSHIP_SITE_USE_INACTIVE',
6276: x_InterfaceHeaderId => x_lines_rec.header_id,
6277: x_InterfaceLineId => x_lines_rec.line_id,
6270: --
6271: WHEN e_InactiveIntShipSiteUse THEN
6272: -- Warning
6273: rlm_message_sv.app_error(
6274: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6275: x_MessageName => 'RLM_INTSHIP_SITE_USE_INACTIVE',
6276: x_InterfaceHeaderId => x_lines_rec.header_id,
6277: x_InterfaceLineId => x_lines_rec.line_id,
6278: x_token1=>'INTRMD_SHIP_TO_EXT',
6286: --
6287: WHEN OTHERS THEN
6288: --
6289: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6290: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIntrmdShipToID',
6291: v_Progress);
6292: --
6293: IF (l_debug <> -1) THEN
6294: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6338: -- R12 Perf Bug 4129291 : Modified queries to use both hz_cust_acct_sites and
6339: -- hz_cust_site_uses, so DSP determines the status of address record and site use
6340: -- record in one DB query.
6341: --
6342: IF rlm_message_sv.check_dependency('BILL_TO') THEN
6343: --
6344: IF x_lines_rec.bill_to_address_id IS NULL THEN
6345: --{
6346: IF x_lines_rec.cust_bill_to_ext IS NOT NULL THEN
6622: --
6623: WHEN NO_DATA_FOUND THEN
6624: --
6625: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6626: rlm_message_sv.app_error(
6627: x_ExceptionLevel => rlm_message_sv.k_error_level,
6628: x_MessageName => 'RLM_BILLTO_INVALID',
6629: x_InterfaceHeaderId => x_lines_rec.header_id,
6630: x_InterfaceLineId => x_lines_rec.line_id,
6623: WHEN NO_DATA_FOUND THEN
6624: --
6625: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6626: rlm_message_sv.app_error(
6627: x_ExceptionLevel => rlm_message_sv.k_error_level,
6628: x_MessageName => 'RLM_BILLTO_INVALID',
6629: x_InterfaceHeaderId => x_lines_rec.header_id,
6630: x_InterfaceLineId => x_lines_rec.line_id,
6631: x_token1=>'BILL_TO_EXT',
6640: --
6641: WHEN e_BillToSiteUseInv THEN
6642: --
6643: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6644: rlm_message_sv.app_error(
6645: x_ExceptionLevel => rlm_message_sv.k_error_level,
6646: x_MessageName => 'RLM_BILLTO_SITEUSE',
6647: x_InterfaceHeaderId => x_lines_rec.header_id,
6648: x_InterfaceLineId => x_lines_rec.line_id,
6641: WHEN e_BillToSiteUseInv THEN
6642: --
6643: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6644: rlm_message_sv.app_error(
6645: x_ExceptionLevel => rlm_message_sv.k_error_level,
6646: x_MessageName => 'RLM_BILLTO_SITEUSE',
6647: x_InterfaceHeaderId => x_lines_rec.header_id,
6648: x_InterfaceLineId => x_lines_rec.line_id,
6649: x_token1=>'BILL_TO_EXT',
6658: --
6659: WHEN e_InvalidBillTo THEN
6660: --
6661: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6662: rlm_message_sv.app_error(
6663: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6664: x_InterfaceHeaderId => x_lines_rec.header_id,
6665: x_InterfaceLineId => x_lines_rec.line_id,
6666: x_token1=>'TP_LOCATION',
6675: --
6676: WHEN e_bad_location THEN
6677: --
6678: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6679: rlm_message_sv.app_error(
6680: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6681: x_InterfaceHeaderId => x_lines_rec.header_id,
6682: x_InterfaceLineId => x_lines_rec.line_id,
6683: x_token1=>'TP_LOCATION',
6693: WHEN e_InactiveBillTo THEN
6694: --
6695: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6696: --
6697: rlm_message_sv.app_error(
6698: x_ExceptionLevel => rlm_message_sv.k_error_level,
6699: x_MessageName => 'RLM_BILLTO_INACTIVE',
6700: x_InterfaceHeaderId => x_lines_rec.header_id,
6701: x_InterfaceLineId => x_lines_rec.line_id,
6694: --
6695: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6696: --
6697: rlm_message_sv.app_error(
6698: x_ExceptionLevel => rlm_message_sv.k_error_level,
6699: x_MessageName => 'RLM_BILLTO_INACTIVE',
6700: x_InterfaceHeaderId => x_lines_rec.header_id,
6701: x_InterfaceLineId => x_lines_rec.line_id,
6702: x_token1=>'TP_LOCATION',
6712: WHEN e_InvalidBilltoId THEN
6713: --
6714: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6715: --
6716: rlm_message_sv.app_error(
6717: x_ExceptionLevel => rlm_message_sv.k_error_level,
6718: x_MessageName => 'RLM_BILL_TO_ID_NO_RELATED',
6719: x_InterfaceHeaderId => x_lines_rec.header_id,
6720: x_InterfaceLineId => x_lines_rec.line_id,
6713: --
6714: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6715: --
6716: rlm_message_sv.app_error(
6717: x_ExceptionLevel => rlm_message_sv.k_error_level,
6718: x_MessageName => 'RLM_BILL_TO_ID_NO_RELATED',
6719: x_InterfaceHeaderId => x_lines_rec.header_id,
6720: x_InterfaceLineId => x_lines_rec.line_id,
6721: x_token1=>'CUSTOMER',
6731: --
6732: WHEN e_InactiveBillSiteUse THEN
6733: --
6734: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6735: rlm_message_sv.app_error(
6736: x_ExceptionLevel => rlm_message_sv.k_error_level,
6737: x_MessageName => 'RLM_BILLTO_SITE_USE_INACTIVE',
6738: x_InterfaceHeaderId => x_lines_rec.header_id,
6739: x_InterfaceLineId => x_lines_rec.line_id,
6732: WHEN e_InactiveBillSiteUse THEN
6733: --
6734: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6735: rlm_message_sv.app_error(
6736: x_ExceptionLevel => rlm_message_sv.k_error_level,
6737: x_MessageName => 'RLM_BILLTO_SITE_USE_INACTIVE',
6738: x_InterfaceHeaderId => x_lines_rec.header_id,
6739: x_InterfaceLineId => x_lines_rec.line_id,
6740: x_token1=>'TP_LOCATION',
6749: --
6750: WHEN OTHERS THEN
6751: --
6752: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6753: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveBillToID',v_Progress);
6754: --
6755: IF (l_debug <> -1) THEN
6756: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6757: END IF;
6794: x_header_rec.ece_primary_address_id);
6795:
6796: END IF;
6797: --
6798: IF rlm_message_sv.check_dependency('SHIPTO') THEN
6799: --
6800: IF x_lines_rec.ship_to_address_id IS NULL THEN
6801: --{
6802: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
7072: WHEN NO_DATA_FOUND THEN
7073: --
7074: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7075: --
7076: rlm_message_sv.app_error(
7077: x_ExceptionLevel => rlm_message_sv.k_error_level,
7078: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7079: x_InterfaceHeaderId => x_lines_rec.header_id,
7080: x_InterfaceLineId => x_lines_rec.line_id,
7073: --
7074: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7075: --
7076: rlm_message_sv.app_error(
7077: x_ExceptionLevel => rlm_message_sv.k_error_level,
7078: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7079: x_InterfaceHeaderId => x_lines_rec.header_id,
7080: x_InterfaceLineId => x_lines_rec.line_id,
7081: x_token1=>'TP_LOCATION',
7090: --
7091: WHEN e_ShipToSiteUseInv THEN
7092: --
7093: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7094: rlm_message_sv.app_error(
7095: x_ExceptionLevel => rlm_message_sv.k_error_level,
7096: x_MessageName => 'RLM_SHIPTO_SITEUSE',
7097: x_InterfaceHeaderId => x_lines_rec.header_id,
7098: x_InterfaceLineId => x_lines_rec.line_id,
7091: WHEN e_ShipToSiteUseInv THEN
7092: --
7093: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7094: rlm_message_sv.app_error(
7095: x_ExceptionLevel => rlm_message_sv.k_error_level,
7096: x_MessageName => 'RLM_SHIPTO_SITEUSE',
7097: x_InterfaceHeaderId => x_lines_rec.header_id,
7098: x_InterfaceLineId => x_lines_rec.line_id,
7099: x_token1=>'SHIP_TO_EXT',
7109: WHEN e_InvalidShipTo THEN
7110: --
7111: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7112: --
7113: rlm_message_sv.app_error(
7114: x_ExceptionLevel => rlm_message_sv.k_error_level,
7115: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7116: x_InterfaceHeaderId => x_lines_rec.header_id,
7117: x_InterfaceLineId => x_lines_rec.line_id,
7110: --
7111: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7112: --
7113: rlm_message_sv.app_error(
7114: x_ExceptionLevel => rlm_message_sv.k_error_level,
7115: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7116: x_InterfaceHeaderId => x_lines_rec.header_id,
7117: x_InterfaceLineId => x_lines_rec.line_id,
7118: x_token1=>'TP_LOCATION',
7137: WHEN e_InactiveShipTo THEN
7138: --
7139: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7140: --
7141: rlm_message_sv.app_error(
7142: x_ExceptionLevel => rlm_message_sv.k_error_level,
7143: x_MessageName => 'RLM_SHIPTO_INACTIVE',
7144: x_InterfaceHeaderId => x_lines_rec.header_id,
7145: x_InterfaceLineId => x_lines_rec.line_id,
7138: --
7139: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7140: --
7141: rlm_message_sv.app_error(
7142: x_ExceptionLevel => rlm_message_sv.k_error_level,
7143: x_MessageName => 'RLM_SHIPTO_INACTIVE',
7144: x_InterfaceHeaderId => x_lines_rec.header_id,
7145: x_InterfaceLineId => x_lines_rec.line_id,
7146: x_token1=>'TP_LOCATION',
7156: WHEN e_InactiveShipSiteUse THEN
7157: --
7158: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7159: --
7160: rlm_message_sv.app_error(
7161: x_ExceptionLevel => rlm_message_sv.k_error_level,
7162: x_MessageName => 'RLM_SHIPTO_SITE_USE_INACTIVE',
7163: x_InterfaceHeaderId => x_lines_rec.header_id,
7164: x_InterfaceLineId => x_lines_rec.line_id,
7157: --
7158: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7159: --
7160: rlm_message_sv.app_error(
7161: x_ExceptionLevel => rlm_message_sv.k_error_level,
7162: x_MessageName => 'RLM_SHIPTO_SITE_USE_INACTIVE',
7163: x_InterfaceHeaderId => x_lines_rec.header_id,
7164: x_InterfaceLineId => x_lines_rec.line_id,
7165: x_token1=>'TP_LOCATION',
7174: WHEN e_InvalidCustomerId THEN
7175: --
7176: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7177: --
7178: rlm_message_sv.app_error(
7179: x_ExceptionLevel => rlm_message_sv.k_error_level,
7180: x_MessageName => 'RLM_INVALID_CUSTOMER',
7181: x_InterfaceHeaderId => x_lines_rec.header_id,
7182: x_InterfaceLineId => x_lines_rec.line_id,
7175: --
7176: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7177: --
7178: rlm_message_sv.app_error(
7179: x_ExceptionLevel => rlm_message_sv.k_error_level,
7180: x_MessageName => 'RLM_INVALID_CUSTOMER',
7181: x_InterfaceHeaderId => x_lines_rec.header_id,
7182: x_InterfaceLineId => x_lines_rec.line_id,
7183: x_token1=>'TP_LOCATION',
7191: --
7192: WHEN OTHERS THEN
7193: --
7194: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7195: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipToID',
7196: v_Progress);
7197: --
7198: IF (l_debug <> -1) THEN
7199: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7280: EXCEPTION
7281: WHEN e_CumRecYearMissing THEN
7282: --
7283: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7284: rlm_message_sv.app_error(
7285: x_ExceptionLevel => rlm_message_sv.k_error_level,
7286: x_MessageName => 'RLM_CUM_RECORD_YEAR_MISSING',
7287: x_InterfaceHeaderId => x_lines_rec.header_id,
7288: x_InterfaceLineId => x_lines_rec.line_id,
7281: WHEN e_CumRecYearMissing THEN
7282: --
7283: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7284: rlm_message_sv.app_error(
7285: x_ExceptionLevel => rlm_message_sv.k_error_level,
7286: x_MessageName => 'RLM_CUM_RECORD_YEAR_MISSING',
7287: x_InterfaceHeaderId => x_lines_rec.header_id,
7288: x_InterfaceLineId => x_lines_rec.line_id,
7289: x_ValidationType => 'CUM_KEY_PO');
7294: --
7295: WHEN e_CumKeyPOMissing THEN
7296: --
7297: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7298: rlm_message_sv.app_error(
7299: x_ExceptionLevel => rlm_message_sv.k_error_level,
7300: x_MessageName => 'RLM_CUM_KEY_PO_MISSING',
7301: x_InterfaceHeaderId => x_lines_rec.header_id,
7302: x_InterfaceLineId => x_lines_rec.line_id,
7295: WHEN e_CumKeyPOMissing THEN
7296: --
7297: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7298: rlm_message_sv.app_error(
7299: x_ExceptionLevel => rlm_message_sv.k_error_level,
7300: x_MessageName => 'RLM_CUM_KEY_PO_MISSING',
7301: x_InterfaceHeaderId => x_lines_rec.header_id,
7302: x_InterfaceLineId => x_lines_rec.line_id,
7303: x_ValidationType => 'CUM_KEY_PO');
7308: --
7309: -- 4307505
7310: WHEN e_NoCumRec THEN
7311: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7312: rlm_message_sv.app_error(
7313: x_ExceptionLevel => rlm_message_sv.k_error_level,
7314: x_MessageName => 'RLM_NOACT_CUMKEY_CSTCUM_INTRST',
7315: x_InterfaceHeaderId => x_lines_rec.header_id,
7316: x_InterfaceLineId => x_lines_rec.line_id,
7309: -- 4307505
7310: WHEN e_NoCumRec THEN
7311: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7312: rlm_message_sv.app_error(
7313: x_ExceptionLevel => rlm_message_sv.k_error_level,
7314: x_MessageName => 'RLM_NOACT_CUMKEY_CSTCUM_INTRST',
7315: x_InterfaceHeaderId => x_lines_rec.header_id,
7316: x_InterfaceLineId => x_lines_rec.line_id,
7317: x_Token1 => 'SHIP_TO',
7352: END IF;
7353: --
7354: IF x_Group_rec.setup_terms_rec.cum_control_code = 'CUM_BY_PO_ONLY' THEN
7355: --bug 4307505
7356: rlm_message_sv.app_error(
7357: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7358: x_MessageName => 'RLM_CUMPO_STUP_NO_RECORD',
7359: x_InterfaceHeaderId => x_lines_rec.header_id,
7360: x_InterfaceLineId => x_lines_rec.line_id);
7353: --
7354: IF x_Group_rec.setup_terms_rec.cum_control_code = 'CUM_BY_PO_ONLY' THEN
7355: --bug 4307505
7356: rlm_message_sv.app_error(
7357: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7358: x_MessageName => 'RLM_CUMPO_STUP_NO_RECORD',
7359: x_InterfaceHeaderId => x_lines_rec.header_id,
7360: x_InterfaceLineId => x_lines_rec.line_id);
7361: --
7366: IF (l_debug <> -1) THEN
7367: rlm_core_sv.dlog(C_DEBUG,'warning: RLM_CUM_STUP_NO_RECORD');
7368: END IF;
7369: --
7370: rlm_message_sv.app_error(
7371: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7372: x_MessageName => 'RLM_CUM_STUP_NO_RECORD',
7373: x_InterfaceHeaderId => x_lines_rec.header_id,
7374: x_InterfaceLineId => x_lines_rec.line_id);
7367: rlm_core_sv.dlog(C_DEBUG,'warning: RLM_CUM_STUP_NO_RECORD');
7368: END IF;
7369: --
7370: rlm_message_sv.app_error(
7371: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7372: x_MessageName => 'RLM_CUM_STUP_NO_RECORD',
7373: x_InterfaceHeaderId => x_lines_rec.header_id,
7374: x_InterfaceLineId => x_lines_rec.line_id);
7375: --
7419: ELSE
7420: --
7421: IF v_cum_record.msg_name = 'RLM_CUM_START_FUTURE' THEN
7422: --
7423: rlm_message_sv.app_error(
7424: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7425: x_MessageName => 'RLM_CUM_START_FUTURE',
7426: x_InterfaceHeaderId => x_lines_rec.header_id,
7427: x_InterfaceLineId => x_lines_rec.line_id,
7420: --
7421: IF v_cum_record.msg_name = 'RLM_CUM_START_FUTURE' THEN
7422: --
7423: rlm_message_sv.app_error(
7424: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7425: x_MessageName => 'RLM_CUM_START_FUTURE',
7426: x_InterfaceHeaderId => x_lines_rec.header_id,
7427: x_InterfaceLineId => x_lines_rec.line_id,
7428: x_token1=>'ITEM',
7443:
7444: WHEN e_NoCumRec THEN
7445: --
7446: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7447: rlm_message_sv.app_error(
7448: x_ExceptionLevel => rlm_message_sv.k_error_level,
7449: x_MessageName => 'RLM_NO_ACTIVE_CUM',
7450: x_InterfaceHeaderId => x_lines_rec.header_id,
7451: x_InterfaceLineId => x_lines_rec.line_id);
7444: WHEN e_NoCumRec THEN
7445: --
7446: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7447: rlm_message_sv.app_error(
7448: x_ExceptionLevel => rlm_message_sv.k_error_level,
7449: x_MessageName => 'RLM_NO_ACTIVE_CUM',
7450: x_InterfaceHeaderId => x_lines_rec.header_id,
7451: x_InterfaceLineId => x_lines_rec.line_id);
7452: --
7501: x_Group_rec.setup_terms_rec.calc_cum_flag);
7502: rlm_core_sv.dlog(C_DEBUG,'intransit calc basis',x_Group_rec.setup_terms_rec.intransit_calc_basis);
7503: END IF;
7504: --
7505: IF rlm_message_sv.check_dependency('CUM_KEY_PO') THEN
7506: --
7507: IF x_Group_rec.setup_terms_rec.calc_cum_flag = 'Y' THEN
7508:
7509: --calc_cum_flag = Y does not mean cum processing
7562: rlm_core_sv.dlog(C_DEBUG,'error:RLM_MULTIPLE_ITM_CUM_DTL_FOUND') ;
7563: END IF;
7564: --
7565: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7566: rlm_message_sv.app_error(
7567: x_ExceptionLevel => rlm_message_sv.k_error_level,
7568: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
7569: x_InterfaceHeaderId => x_lines_rec.header_id,
7570: x_InterfaceLineId => x_lines_rec.line_id,
7563: END IF;
7564: --
7565: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7566: rlm_message_sv.app_error(
7567: x_ExceptionLevel => rlm_message_sv.k_error_level,
7568: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
7569: x_InterfaceHeaderId => x_lines_rec.header_id,
7570: x_InterfaceLineId => x_lines_rec.line_id,
7571: x_Token1 => 'SHIP_FROM',
7626: --
7627: When NO_DATA_FOUND then
7628: --
7629: -- 4307505 : changed this from Error to Warning
7630: rlm_message_sv.app_error(
7631: x_ExceptionLevel => rlm_message_sv.k_warn_level, -- 4307505
7632: x_MessageName => 'RLM_NO_CUM_INTRST_CUST_CUM',
7633: x_InterfaceHeaderId => x_lines_rec.header_id,
7634: x_InterfaceLineId => x_lines_rec.line_id,
7627: When NO_DATA_FOUND then
7628: --
7629: -- 4307505 : changed this from Error to Warning
7630: rlm_message_sv.app_error(
7631: x_ExceptionLevel => rlm_message_sv.k_warn_level, -- 4307505
7632: x_MessageName => 'RLM_NO_CUM_INTRST_CUST_CUM',
7633: x_InterfaceHeaderId => x_lines_rec.header_id,
7634: x_InterfaceLineId => x_lines_rec.line_id,
7635: x_Token1 => 'SHIP_TO',
7666: CLOSE c_cum; --bug 4570658
7667: END IF;
7668:
7669: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7670: rlm_message_sv.sql_error('rlm_validateDemand_sv.CheckCUMKeyPO', v_Progress);
7671: --
7672: IF (l_debug <> -1) THEN
7673: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7674: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7698: IF (l_debug <> -1) THEN
7699: rlm_core_sv.dpush(C_SDEBUG,'ValidPlanningProdSeqNum');
7700: END IF;
7701: --
7702: IF rlm_message_sv.check_dependency('PROD_SEQ_NUM') THEN
7703: --
7704: IF (l_debug <> -1) THEN
7705: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
7706: rlm_core_sv.dlog(C_DEBUG,'Planning_Prod_Seq',
7736: WHEN e_ProdSeqMissing THEN
7737: --
7738: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7739: --
7740: rlm_message_sv.app_error(
7741: x_ExceptionLevel => rlm_message_sv.k_error_level,
7742: x_MessageName => 'RLM_PLANNING_PROD_SEQ_MISSING',
7743: x_InterfaceHeaderId => x_lines_rec.header_id,
7744: x_InterfaceLineId => x_lines_rec.line_id,
7737: --
7738: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7739: --
7740: rlm_message_sv.app_error(
7741: x_ExceptionLevel => rlm_message_sv.k_error_level,
7742: x_MessageName => 'RLM_PLANNING_PROD_SEQ_MISSING',
7743: x_InterfaceHeaderId => x_lines_rec.header_id,
7744: x_InterfaceLineId => x_lines_rec.line_id,
7745: x_ValidationType => 'PROD_SEQ_NUM');
7751: WHEN e_MatchProdSeq THEN
7752: --
7753: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7754: --
7755: rlm_message_sv.app_error(
7756: x_ExceptionLevel => rlm_message_sv.k_error_level,
7757: x_MessageName => 'RLM_MATCH_WITHIN_PLN_PROD_SEQ',
7758: x_InterfaceHeaderId => x_lines_rec.header_id,
7759: x_InterfaceLineId => x_lines_rec.line_id,
7752: --
7753: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7754: --
7755: rlm_message_sv.app_error(
7756: x_ExceptionLevel => rlm_message_sv.k_error_level,
7757: x_MessageName => 'RLM_MATCH_WITHIN_PLN_PROD_SEQ',
7758: x_InterfaceHeaderId => x_lines_rec.header_id,
7759: x_InterfaceLineId => x_lines_rec.line_id,
7760: x_ValidationType => 'PROD_SEQ_NUM');
7765: --
7766: WHEN OTHERS THEN
7767: --
7768: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7769: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidPlanningProdSeqNum',
7770: v_Progress);
7771: --
7772: IF (l_debug <> -1) THEN
7773: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7793: IF (l_debug <> -1) THEN
7794: rlm_core_sv.dpush(C_SDEBUG,'ValidLineScheduleType');
7795: END IF;
7796: --
7797: IF rlm_message_sv.check_dependency('LINE_SCHEDULE_TYPE') THEN
7798: --
7799: IF (l_debug <> -1) THEN
7800: rlm_core_sv.dlog(C_DEBUG,'Schedule_Type',x_header_rec.Schedule_type );
7801: END IF;
7823: --
7824: WHEN e_SchedTypeInv THEN
7825: --
7826: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7827: rlm_message_sv.app_error(
7828: x_ExceptionLevel => rlm_message_sv.k_error_level,
7829: x_MessageName => 'RLM_LINE_SCHEDULE_TYPE_INVALID',
7830: x_InterfaceHeaderId => x_lines_rec.header_id,
7831: x_InterfaceLineId => x_lines_rec.line_id,
7824: WHEN e_SchedTypeInv THEN
7825: --
7826: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7827: rlm_message_sv.app_error(
7828: x_ExceptionLevel => rlm_message_sv.k_error_level,
7829: x_MessageName => 'RLM_LINE_SCHEDULE_TYPE_INVALID',
7830: x_InterfaceHeaderId => x_lines_rec.header_id,
7831: x_InterfaceLineId => x_lines_rec.line_id,
7832: x_token1=>'SCHEDULE_TYPE',
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.ValidLineScheduleType: ',
7844: v_Progress);
7845: --
7846: IF (l_debug <> -1) THEN
7847: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8725: EXCEPTION
8726: --
8727: WHEN OTHERS THEN
8728: --
8729: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceLines',
8730: v_Progress);
8731: --
8732: IF (l_debug <> -1) THEN
8733: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8862: EXCEPTION
8863: WHEN OTHERS THEN
8864: --
8865: rollback;
8866: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceHeaders: ',
8867: v_Progress);
8868: --
8869: IF (l_debug <> -1) THEN
8870: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8907: EXCEPTION
8908: WHEN e_ArchiveAPIFailed THEN
8909: --
8910: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8911: rlm_message_sv.app_error(
8912: x_ExceptionLevel => rlm_message_sv.k_error_level,
8913: x_MessageName => 'RLM_ARCHIVE_API_ERROR',
8914: x_InterfaceHeaderId => g_Header_Rec.header_id,
8915: x_Token1 => 'ERROR',
8908: WHEN e_ArchiveAPIFailed THEN
8909: --
8910: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8911: rlm_message_sv.app_error(
8912: x_ExceptionLevel => rlm_message_sv.k_error_level,
8913: x_MessageName => 'RLM_ARCHIVE_API_ERROR',
8914: x_InterfaceHeaderId => g_Header_Rec.header_id,
8915: x_Token1 => 'ERROR',
8916: x_value1 => sqlerrm,
8923: --
8924: WHEN OTHERS THEN
8925: --
8926: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8927: rlm_message_sv.sql_error('rlm_validateDemand_sv.PostValidation: ',
8928: v_Progress);
8929: --
8930: IF (l_debug <> -1) THEN
8931: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9042: --
9043: --g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9044: IF(v_SetupTerms_rec.msg_name = 'RLM_SETUP_CUST_INACTIVE_RECORD') THEN
9045: --
9046: rlm_message_sv.get_msg_text(
9047: x_message_name => v_SetupTerms_rec.msg_name,
9048: x_text => v_ReturnMsg,
9049: x_token1 => 'CUSTOMER',
9050: x_value1 => rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9057: );
9058: --
9059: END IF;
9060:
9061: rlm_message_sv.app_error(
9062: x_ExceptionLevel => rlm_message_sv.k_error_level,
9063: x_MessageName => 'RLM_SETUPAPI_FAILED',
9064: x_ChildMessageName => v_SetupTerms_rec.msg_name,
9065: x_InterfaceHeaderId => x_lines_rec.header_id,
9058: --
9059: END IF;
9060:
9061: rlm_message_sv.app_error(
9062: x_ExceptionLevel => rlm_message_sv.k_error_level,
9063: x_MessageName => 'RLM_SETUPAPI_FAILED',
9064: x_ChildMessageName => v_SetupTerms_rec.msg_name,
9065: x_InterfaceHeaderId => x_lines_rec.header_id,
9066: x_InterfaceLineId => x_lines_rec.line_id,
9114: rlm_core_sv.dlog(C_DEBUG, 'seq_mrp_forecast_day_from',
9115: x_setup_terms_rec.seq_mrp_forecast_day_from);
9116: END IF;
9117: --
9118: IF rlm_message_sv.check_dependency('FORECASTDESIGNATOR') THEN
9119: --
9120: IF x_header_rec.schedule_type = k_PLANNING AND
9121: (x_setup_terms_rec.pln_mrp_forecast_day_from IS NOT NULL AND
9122: x_setup_terms_rec.pln_mrp_forecast_day_from <> 0) THEN
9179: --
9180: IF x_ForecastDesignator is NULL THEN
9181: --
9182: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
9183: rlm_message_sv.app_error(
9184: x_ExceptionLevel => rlm_message_sv.k_error_level,
9185: x_MessageName => 'RLM_NO_FORECAST_DESIG',
9186: x_InterfaceHeaderId => x_lines_rec.header_id,
9187: x_InterfaceLineId => x_lines_rec.line_id,
9180: IF x_ForecastDesignator is NULL THEN
9181: --
9182: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
9183: rlm_message_sv.app_error(
9184: x_ExceptionLevel => rlm_message_sv.k_error_level,
9185: x_MessageName => 'RLM_NO_FORECAST_DESIG',
9186: x_InterfaceHeaderId => x_lines_rec.header_id,
9187: x_InterfaceLineId => x_lines_rec.line_id,
9188: x_token1=>'CUST',
9363: rlm_core_sv.dpop(C_SDEBUG);
9364: END IF;
9365:
9366: WHEN OTHERS THEN
9367: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetTPContext', v_Progress);
9368: --
9369: IF (l_debug <> -1) THEN
9370: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9371: END IF;
9440: rlm_core_sv.dpop(C_SDEBUG);
9441: END IF;
9442:
9443: WHEN OTHERS THEN
9444: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetHdrTPContext', v_Progress);
9445: --
9446: IF (l_debug <> -1) THEN
9447: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9448: END IF;
9616: IF (l_debug <> -1) THEN
9617: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
9618: END IF;
9619: --
9620: rlm_message_sv.app_error(
9621: x_ExceptionLevel => rlm_message_sv.k_error_level,
9622: x_MessageName => 'RLM_CUSTOMER_RELATIONSHIP',
9623: x_InterfaceHeaderId => x_header_id,
9624: x_token1=>'CUSTOMER1',
9617: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
9618: END IF;
9619: --
9620: rlm_message_sv.app_error(
9621: x_ExceptionLevel => rlm_message_sv.k_error_level,
9622: x_MessageName => 'RLM_CUSTOMER_RELATIONSHIP',
9623: x_InterfaceHeaderId => x_header_id,
9624: x_token1=>'CUSTOMER1',
9625: x_value1 => rlm_core_sv.get_customer_name(x_RelatedCustomerId),
9634: RETURN(FALSE);
9635: --
9636: WHEN e_no_om_cr THEN
9637: --
9638: rlm_message_sv.app_error(x_ExceptionLevel => rlm_message_sv.k_error_level,
9639: x_MessageName => 'RLM_OM_CUSTOMER_RELATIONSHIP',
9640: x_InterfaceHeaderId => x_header_id);
9641: --
9642: IF (l_debug <> -1) THEN
9647: RETURN(FALSE);
9648: --
9649: WHEN OTHERS THEN
9650: --
9651: rlm_message_sv.sql_error('RLM_VALIDATEDEMAND_SV.CustomerRelationship',
9652: v_Progress);
9653: --
9654: IF (l_debug <> -1) THEN
9655: rlm_core_sv.dlog (C_DEBUG,'SQL Error: ',substr(sqlerrm,1,300));
9707: IF (l_debug <> -1) THEN
9708: rlm_core_sv.dlog(C_DEBUG, 'RLM line date type does not match OM date type');
9709: END IF;
9710: --
9711: rlm_message_sv.app_error(
9712: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9713: x_MessageName => 'RLM_MISMATCH_DATE_TYPE',
9714: x_InterfaceHeaderId => x_line.header_id,
9715: x_InterfaceLineId => x_line.line_id,
9708: rlm_core_sv.dlog(C_DEBUG, 'RLM line date type does not match OM date type');
9709: END IF;
9710: --
9711: rlm_message_sv.app_error(
9712: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9713: x_MessageName => 'RLM_MISMATCH_DATE_TYPE',
9714: x_InterfaceHeaderId => x_line.header_id,
9715: x_InterfaceLineId => x_line.line_id,
9716: x_token1=> 'RLM_DATE_TYPE',
9807: EXCEPTION
9808: --
9809: WHEN e_POMisMatch THEN
9810: --
9811: rlm_message_sv.app_error(
9812: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9813: x_MessageName => 'RLM_BLKT_PO_MISMATCH',
9814: x_InterfaceHeaderId => x_header_id,
9815: x_token1=>'SCHED_PO',
9808: --
9809: WHEN e_POMisMatch THEN
9810: --
9811: rlm_message_sv.app_error(
9812: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9813: x_MessageName => 'RLM_BLKT_PO_MISMATCH',
9814: x_InterfaceHeaderId => x_header_id,
9815: x_token1=>'SCHED_PO',
9816: x_value1=>x_cust_po_num,
9824: END IF;
9825: --
9826: WHEN NO_DATA_FOUND THEN
9827: --
9828: rlm_message_sv.app_error(
9829: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9830: x_MessageName => 'RLM_BLANKET_UNDEFINED',
9831: x_InterfaceHeaderId => x_header_id,
9832: x_token1=>'BLANKET_NUM',
9825: --
9826: WHEN NO_DATA_FOUND THEN
9827: --
9828: rlm_message_sv.app_error(
9829: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9830: x_MessageName => 'RLM_BLANKET_UNDEFINED',
9831: x_InterfaceHeaderId => x_header_id,
9832: x_token1=>'BLANKET_NUM',
9833: x_value1=>x_Group_rec.setup_terms_rec.blanket_number,
9982: EXCEPTION
9983: --
9984: WHEN e_BlktOnHold THEN
9985: --
9986: rlm_message_sv.app_error(
9987: x_ExceptionLevel => rlm_message_sv.k_error_level,
9988: x_MessageName => 'RLM_BLANKET_ON_HOLD',
9989: x_InterfaceHeaderId => x_Sched_rec.header_id,
9990: x_InterfaceLineId => NULL,
9983: --
9984: WHEN e_BlktOnHold THEN
9985: --
9986: rlm_message_sv.app_error(
9987: x_ExceptionLevel => rlm_message_sv.k_error_level,
9988: x_MessageName => 'RLM_BLANKET_ON_HOLD',
9989: x_InterfaceHeaderId => x_Sched_rec.header_id,
9990: x_InterfaceLineId => NULL,
9991: x_token1=>'BLANKET_NUMBER',
9999: RETURN FALSE;
10000: --
10001: WHEN e_BlktStartDate THEN
10002: --
10003: rlm_message_sv.app_error(
10004: x_ExceptionLevel => rlm_message_sv.k_error_level,
10005: x_MessageName => 'RLM_STARTDATE_BEFORE_BLANKET',
10006: x_InterfaceHeaderId => x_Sched_rec.header_id,
10007: x_InterfaceLineId => NULL,
10000: --
10001: WHEN e_BlktStartDate THEN
10002: --
10003: rlm_message_sv.app_error(
10004: x_ExceptionLevel => rlm_message_sv.k_error_level,
10005: x_MessageName => 'RLM_STARTDATE_BEFORE_BLANKET',
10006: x_InterfaceHeaderId => x_Sched_rec.header_id,
10007: x_InterfaceLineId => NULL,
10008: x_token1=>'REQDATE',
10020: RETURN FALSE;
10021: --
10022: WHEN e_BlktEndDate THEN
10023: --
10024: rlm_message_sv.app_error(
10025: x_ExceptionLevel => rlm_message_sv.k_error_level,
10026: x_MessageName => 'RLM_ENDDATE_AFTER_BLANKET',
10027: x_InterfaceHeaderId => x_Sched_rec.header_id,
10028: x_InterfaceLineId => NULL,
10021: --
10022: WHEN e_BlktEndDate THEN
10023: --
10024: rlm_message_sv.app_error(
10025: x_ExceptionLevel => rlm_message_sv.k_error_level,
10026: x_MessageName => 'RLM_ENDDATE_AFTER_BLANKET',
10027: x_InterfaceHeaderId => x_Sched_rec.header_id,
10028: x_InterfaceLineId => NULL,
10029: x_token1=>'REQDATE',
10041: RETURN FALSE;
10042: --
10043: WHEN NO_DATA_FOUND THEN
10044: --
10045: rlm_message_sv.app_error(
10046: x_ExceptionLevel => rlm_message_sv.k_warn_level,
10047: x_MessageName => 'RLM_BLANKET_UNDEFINED',
10048: x_InterfaceHeaderId => x_Sched_rec.header_id,
10049: x_token1=>'BLANKET_NUM',
10042: --
10043: WHEN NO_DATA_FOUND THEN
10044: --
10045: rlm_message_sv.app_error(
10046: x_ExceptionLevel => rlm_message_sv.k_warn_level,
10047: x_MessageName => 'RLM_BLANKET_UNDEFINED',
10048: x_InterfaceHeaderId => x_Sched_rec.header_id,
10049: x_token1=>'BLANKET_NUM',
10050: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);