[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;
6069: x_lines_rec.cust_intrmd_ship_to_ext);
6070: rlm_core_sv.dlog(C_DEBUG,'IntrmdShipToID',x_lines_rec.intrmd_ship_to_id);
6071: END IF;
6072: --
6073: -- IF rlm_message_sv.check_dependency('SHIPTO') THEN
6074: --
6075: IF x_lines_rec.intrmd_ship_to_id IS NULL AND
6076: x_lines_rec.cust_intrmd_ship_to_ext IS NOT NULL THEN
6077: --{
6235: --
6236: WHEN NO_DATA_FOUND THEN
6237: --
6238: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6239: rlm_message_sv.app_error(
6240: x_ExceptionLevel => rlm_message_sv.k_error_level,
6241: x_MessageName => 'RLM_INTRMD_SHIPTO_ID_INVALID',
6242: x_InterfaceHeaderId => x_lines_rec.header_id,
6243: x_InterfaceLineId => x_lines_rec.line_id,
6236: WHEN NO_DATA_FOUND THEN
6237: --
6238: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6239: rlm_message_sv.app_error(
6240: x_ExceptionLevel => rlm_message_sv.k_error_level,
6241: x_MessageName => 'RLM_INTRMD_SHIPTO_ID_INVALID',
6242: x_InterfaceHeaderId => x_lines_rec.header_id,
6243: x_InterfaceLineId => x_lines_rec.line_id,
6244: x_token1=>'INTRMD_SHIP_TO_EXT',
6260: END IF;
6261: --
6262: WHEN e_IntrmdSiteUseInv THEN
6263: -- Warning
6264: rlm_message_sv.app_error(
6265: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6266: x_MessageName => 'RLM_INTRMD_SHIPTO_SITEUSE',
6267: x_InterfaceHeaderId => x_lines_rec.header_id,
6268: x_InterfaceLineId => x_lines_rec.line_id,
6261: --
6262: WHEN e_IntrmdSiteUseInv THEN
6263: -- Warning
6264: rlm_message_sv.app_error(
6265: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6266: x_MessageName => 'RLM_INTRMD_SHIPTO_SITEUSE',
6267: x_InterfaceHeaderId => x_lines_rec.header_id,
6268: x_InterfaceLineId => x_lines_rec.line_id,
6269: x_token1=>'INTRMD_SHIP_TO_EXT',
6276: END IF;
6277: --
6278: WHEN e_InactiveIntShipTo THEN
6279: -- Warning
6280: rlm_message_sv.app_error(
6281: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6282: x_MessageName => 'RLM_INTSHIP_INACTIVE',
6283: x_InterfaceHeaderId => x_lines_rec.header_id,
6284: x_InterfaceLineId => x_lines_rec.line_id,
6277: --
6278: WHEN e_InactiveIntShipTo THEN
6279: -- Warning
6280: rlm_message_sv.app_error(
6281: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6282: x_MessageName => 'RLM_INTSHIP_INACTIVE',
6283: x_InterfaceHeaderId => x_lines_rec.header_id,
6284: x_InterfaceLineId => x_lines_rec.line_id,
6285: x_token1=>'INTRMD_SHIP_TO_EXT',
6292: END IF;
6293: --
6294: WHEN e_InactiveIntShipSiteUse THEN
6295: -- Warning
6296: rlm_message_sv.app_error(
6297: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6298: x_MessageName => 'RLM_INTSHIP_SITE_USE_INACTIVE',
6299: x_InterfaceHeaderId => x_lines_rec.header_id,
6300: x_InterfaceLineId => x_lines_rec.line_id,
6293: --
6294: WHEN e_InactiveIntShipSiteUse THEN
6295: -- Warning
6296: rlm_message_sv.app_error(
6297: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6298: x_MessageName => 'RLM_INTSHIP_SITE_USE_INACTIVE',
6299: x_InterfaceHeaderId => x_lines_rec.header_id,
6300: x_InterfaceLineId => x_lines_rec.line_id,
6301: x_token1=>'INTRMD_SHIP_TO_EXT',
6309: --
6310: WHEN OTHERS THEN
6311: --
6312: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6313: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveIntrmdShipToID',
6314: v_Progress);
6315: --
6316: IF (l_debug <> -1) THEN
6317: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6410: -- R12 Perf Bug 4129291 : Modified queries to use both hz_cust_acct_sites and
6411: -- hz_cust_site_uses, so DSP determines the status of address record and site use
6412: -- record in one DB query.
6413: --
6414: IF rlm_message_sv.check_dependency('BILL_TO') THEN
6415: --
6416: IF x_lines_rec.bill_to_address_id IS NULL THEN
6417: --{
6418: IF x_lines_rec.cust_bill_to_ext IS NOT NULL THEN
6654: --
6655: WHEN NO_DATA_FOUND THEN
6656: --
6657: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6658: rlm_message_sv.app_error(
6659: x_ExceptionLevel => rlm_message_sv.k_error_level,
6660: x_MessageName => 'RLM_BILLTO_INVALID',
6661: x_InterfaceHeaderId => x_lines_rec.header_id,
6662: x_InterfaceLineId => x_lines_rec.line_id,
6655: WHEN NO_DATA_FOUND THEN
6656: --
6657: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6658: rlm_message_sv.app_error(
6659: x_ExceptionLevel => rlm_message_sv.k_error_level,
6660: x_MessageName => 'RLM_BILLTO_INVALID',
6661: x_InterfaceHeaderId => x_lines_rec.header_id,
6662: x_InterfaceLineId => x_lines_rec.line_id,
6663: x_token1=>'BILL_TO_EXT',
6672: --
6673: WHEN e_BillToSiteUseInv THEN
6674: --
6675: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6676: rlm_message_sv.app_error(
6677: x_ExceptionLevel => rlm_message_sv.k_error_level,
6678: x_MessageName => 'RLM_BILLTO_SITEUSE',
6679: x_InterfaceHeaderId => x_lines_rec.header_id,
6680: x_InterfaceLineId => x_lines_rec.line_id,
6673: WHEN e_BillToSiteUseInv THEN
6674: --
6675: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6676: rlm_message_sv.app_error(
6677: x_ExceptionLevel => rlm_message_sv.k_error_level,
6678: x_MessageName => 'RLM_BILLTO_SITEUSE',
6679: x_InterfaceHeaderId => x_lines_rec.header_id,
6680: x_InterfaceLineId => x_lines_rec.line_id,
6681: x_token1=>'BILL_TO_EXT',
6690: --
6691: WHEN e_InvalidBillTo THEN
6692: --
6693: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6694: rlm_message_sv.app_error(
6695: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6696: x_InterfaceHeaderId => x_lines_rec.header_id,
6697: x_InterfaceLineId => x_lines_rec.line_id,
6698: x_token1=>'TP_LOCATION',
6707: --
6708: WHEN e_bad_location THEN
6709: --
6710: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6711: rlm_message_sv.app_error(
6712: x_MessageName => 'RLM_BILLTO_ID_NOT_DERIVED',
6713: x_InterfaceHeaderId => x_lines_rec.header_id,
6714: x_InterfaceLineId => x_lines_rec.line_id,
6715: x_token1=>'TP_LOCATION',
6725: WHEN e_InactiveBillTo THEN
6726: --
6727: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6728: --
6729: rlm_message_sv.app_error(
6730: x_ExceptionLevel => rlm_message_sv.k_error_level,
6731: x_MessageName => 'RLM_BILLTO_INACTIVE',
6732: x_InterfaceHeaderId => x_lines_rec.header_id,
6733: x_InterfaceLineId => x_lines_rec.line_id,
6726: --
6727: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6728: --
6729: rlm_message_sv.app_error(
6730: x_ExceptionLevel => rlm_message_sv.k_error_level,
6731: x_MessageName => 'RLM_BILLTO_INACTIVE',
6732: x_InterfaceHeaderId => x_lines_rec.header_id,
6733: x_InterfaceLineId => x_lines_rec.line_id,
6734: x_token1=>'TP_LOCATION',
6744: WHEN e_InvalidBilltoId THEN
6745: --
6746: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6747: --
6748: rlm_message_sv.app_error(
6749: x_ExceptionLevel => rlm_message_sv.k_error_level,
6750: x_MessageName => 'RLM_BILL_TO_ID_NO_RELATED',
6751: x_InterfaceHeaderId => x_lines_rec.header_id,
6752: x_InterfaceLineId => x_lines_rec.line_id,
6745: --
6746: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6747: --
6748: rlm_message_sv.app_error(
6749: x_ExceptionLevel => rlm_message_sv.k_error_level,
6750: x_MessageName => 'RLM_BILL_TO_ID_NO_RELATED',
6751: x_InterfaceHeaderId => x_lines_rec.header_id,
6752: x_InterfaceLineId => x_lines_rec.line_id,
6753: x_token1=>'CUSTOMER',
6763: --
6764: WHEN e_InactiveBillSiteUse THEN
6765: --
6766: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6767: rlm_message_sv.app_error(
6768: x_ExceptionLevel => rlm_message_sv.k_error_level,
6769: x_MessageName => 'RLM_BILLTO_SITE_USE_INACTIVE',
6770: x_InterfaceHeaderId => x_lines_rec.header_id,
6771: x_InterfaceLineId => x_lines_rec.line_id,
6764: WHEN e_InactiveBillSiteUse THEN
6765: --
6766: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6767: rlm_message_sv.app_error(
6768: x_ExceptionLevel => rlm_message_sv.k_error_level,
6769: x_MessageName => 'RLM_BILLTO_SITE_USE_INACTIVE',
6770: x_InterfaceHeaderId => x_lines_rec.header_id,
6771: x_InterfaceLineId => x_lines_rec.line_id,
6772: x_token1=>'TP_LOCATION',
6781: --
6782: WHEN OTHERS THEN
6783: --
6784: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
6785: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveBillToID',v_Progress);
6786: --
6787: IF (l_debug <> -1) THEN
6788: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6789: END IF;
6867: x_header_rec.ece_primary_address_id);
6868:
6869: END IF;
6870: --
6871: IF rlm_message_sv.check_dependency('SHIPTO') THEN
6872: --
6873: IF x_lines_rec.ship_to_address_id IS NULL THEN
6874: --{
6875: IF x_lines_rec.cust_ship_to_ext IS NOT NULL THEN
7146: WHEN NO_DATA_FOUND THEN
7147: --
7148: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7149: --
7150: rlm_message_sv.app_error(
7151: x_ExceptionLevel => rlm_message_sv.k_error_level,
7152: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7153: x_InterfaceHeaderId => x_lines_rec.header_id,
7154: x_InterfaceLineId => x_lines_rec.line_id,
7147: --
7148: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7149: --
7150: rlm_message_sv.app_error(
7151: x_ExceptionLevel => rlm_message_sv.k_error_level,
7152: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7153: x_InterfaceHeaderId => x_lines_rec.header_id,
7154: x_InterfaceLineId => x_lines_rec.line_id,
7155: x_token1=>'TP_LOCATION',
7164: --
7165: WHEN e_ShipToSiteUseInv THEN
7166: --
7167: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7168: rlm_message_sv.app_error(
7169: x_ExceptionLevel => rlm_message_sv.k_error_level,
7170: x_MessageName => 'RLM_SHIPTO_SITEUSE',
7171: x_InterfaceHeaderId => x_lines_rec.header_id,
7172: x_InterfaceLineId => x_lines_rec.line_id,
7165: WHEN e_ShipToSiteUseInv THEN
7166: --
7167: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7168: rlm_message_sv.app_error(
7169: x_ExceptionLevel => rlm_message_sv.k_error_level,
7170: x_MessageName => 'RLM_SHIPTO_SITEUSE',
7171: x_InterfaceHeaderId => x_lines_rec.header_id,
7172: x_InterfaceLineId => x_lines_rec.line_id,
7173: x_token1=>'SHIP_TO_EXT',
7183: WHEN e_InvalidShipTo THEN
7184: --
7185: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7186: --
7187: rlm_message_sv.app_error(
7188: x_ExceptionLevel => rlm_message_sv.k_error_level,
7189: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7190: x_InterfaceHeaderId => x_lines_rec.header_id,
7191: x_InterfaceLineId => x_lines_rec.line_id,
7184: --
7185: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7186: --
7187: rlm_message_sv.app_error(
7188: x_ExceptionLevel => rlm_message_sv.k_error_level,
7189: x_MessageName => 'RLM_SHIPTO_ID_NOT_DERIVED',
7190: x_InterfaceHeaderId => x_lines_rec.header_id,
7191: x_InterfaceLineId => x_lines_rec.line_id,
7192: x_token1=>'TP_LOCATION',
7211: WHEN e_InactiveShipTo THEN
7212: --
7213: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7214: --
7215: rlm_message_sv.app_error(
7216: x_ExceptionLevel => rlm_message_sv.k_error_level,
7217: x_MessageName => 'RLM_SHIPTO_INACTIVE',
7218: x_InterfaceHeaderId => x_lines_rec.header_id,
7219: x_InterfaceLineId => x_lines_rec.line_id,
7212: --
7213: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7214: --
7215: rlm_message_sv.app_error(
7216: x_ExceptionLevel => rlm_message_sv.k_error_level,
7217: x_MessageName => 'RLM_SHIPTO_INACTIVE',
7218: x_InterfaceHeaderId => x_lines_rec.header_id,
7219: x_InterfaceLineId => x_lines_rec.line_id,
7220: x_token1=>'TP_LOCATION',
7230: WHEN e_InactiveShipSiteUse THEN
7231: --
7232: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7233: --
7234: rlm_message_sv.app_error(
7235: x_ExceptionLevel => rlm_message_sv.k_error_level,
7236: x_MessageName => 'RLM_SHIPTO_SITE_USE_INACTIVE',
7237: x_InterfaceHeaderId => x_lines_rec.header_id,
7238: x_InterfaceLineId => x_lines_rec.line_id,
7231: --
7232: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7233: --
7234: rlm_message_sv.app_error(
7235: x_ExceptionLevel => rlm_message_sv.k_error_level,
7236: x_MessageName => 'RLM_SHIPTO_SITE_USE_INACTIVE',
7237: x_InterfaceHeaderId => x_lines_rec.header_id,
7238: x_InterfaceLineId => x_lines_rec.line_id,
7239: x_token1=>'TP_LOCATION',
7248: WHEN e_InvalidCustomerId THEN
7249: --
7250: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7251: --
7252: rlm_message_sv.app_error(
7253: x_ExceptionLevel => rlm_message_sv.k_error_level,
7254: x_MessageName => 'RLM_INVALID_CUSTOMER',
7255: x_InterfaceHeaderId => x_lines_rec.header_id,
7256: x_InterfaceLineId => x_lines_rec.line_id,
7249: --
7250: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7251: --
7252: rlm_message_sv.app_error(
7253: x_ExceptionLevel => rlm_message_sv.k_error_level,
7254: x_MessageName => 'RLM_INVALID_CUSTOMER',
7255: x_InterfaceHeaderId => x_lines_rec.header_id,
7256: x_InterfaceLineId => x_lines_rec.line_id,
7257: x_token1=>'TP_LOCATION',
7265: --
7266: WHEN OTHERS THEN
7267: --
7268: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7269: rlm_message_sv.sql_error('rlm_validatedemand_sv.DeriveShipToID',
7270: v_Progress);
7271: --
7272: IF (l_debug <> -1) THEN
7273: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7354: EXCEPTION
7355: WHEN e_CumRecYearMissing THEN
7356: --
7357: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7358: rlm_message_sv.app_error(
7359: x_ExceptionLevel => rlm_message_sv.k_error_level,
7360: x_MessageName => 'RLM_CUM_RECORD_YEAR_MISSING',
7361: x_InterfaceHeaderId => x_lines_rec.header_id,
7362: x_InterfaceLineId => x_lines_rec.line_id,
7355: WHEN e_CumRecYearMissing THEN
7356: --
7357: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7358: rlm_message_sv.app_error(
7359: x_ExceptionLevel => rlm_message_sv.k_error_level,
7360: x_MessageName => 'RLM_CUM_RECORD_YEAR_MISSING',
7361: x_InterfaceHeaderId => x_lines_rec.header_id,
7362: x_InterfaceLineId => x_lines_rec.line_id,
7363: x_ValidationType => 'CUM_KEY_PO');
7368: --
7369: WHEN e_CumKeyPOMissing THEN
7370: --
7371: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7372: rlm_message_sv.app_error(
7373: x_ExceptionLevel => rlm_message_sv.k_error_level,
7374: x_MessageName => 'RLM_CUM_KEY_PO_MISSING',
7375: x_InterfaceHeaderId => x_lines_rec.header_id,
7376: x_InterfaceLineId => x_lines_rec.line_id,
7369: WHEN e_CumKeyPOMissing THEN
7370: --
7371: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7372: rlm_message_sv.app_error(
7373: x_ExceptionLevel => rlm_message_sv.k_error_level,
7374: x_MessageName => 'RLM_CUM_KEY_PO_MISSING',
7375: x_InterfaceHeaderId => x_lines_rec.header_id,
7376: x_InterfaceLineId => x_lines_rec.line_id,
7377: x_ValidationType => 'CUM_KEY_PO');
7382: --
7383: -- 4307505
7384: WHEN e_NoCumRec THEN
7385: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7386: rlm_message_sv.app_error(
7387: x_ExceptionLevel => rlm_message_sv.k_error_level,
7388: x_MessageName => 'RLM_NOACT_CUMKEY_CSTCUM_INTRST',
7389: x_InterfaceHeaderId => x_lines_rec.header_id,
7390: x_InterfaceLineId => x_lines_rec.line_id,
7383: -- 4307505
7384: WHEN e_NoCumRec THEN
7385: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7386: rlm_message_sv.app_error(
7387: x_ExceptionLevel => rlm_message_sv.k_error_level,
7388: x_MessageName => 'RLM_NOACT_CUMKEY_CSTCUM_INTRST',
7389: x_InterfaceHeaderId => x_lines_rec.header_id,
7390: x_InterfaceLineId => x_lines_rec.line_id,
7391: x_Token1 => 'SHIP_TO',
7426: END IF;
7427: --
7428: IF x_Group_rec.setup_terms_rec.cum_control_code = 'CUM_BY_PO_ONLY' THEN
7429: --bug 4307505
7430: rlm_message_sv.app_error(
7431: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7432: x_MessageName => 'RLM_CUMPO_STUP_NO_RECORD',
7433: x_InterfaceHeaderId => x_lines_rec.header_id,
7434: x_InterfaceLineId => x_lines_rec.line_id);
7427: --
7428: IF x_Group_rec.setup_terms_rec.cum_control_code = 'CUM_BY_PO_ONLY' THEN
7429: --bug 4307505
7430: rlm_message_sv.app_error(
7431: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7432: x_MessageName => 'RLM_CUMPO_STUP_NO_RECORD',
7433: x_InterfaceHeaderId => x_lines_rec.header_id,
7434: x_InterfaceLineId => x_lines_rec.line_id);
7435: --
7440: IF (l_debug <> -1) THEN
7441: rlm_core_sv.dlog(C_DEBUG,'warning: RLM_CUM_STUP_NO_RECORD');
7442: END IF;
7443: --
7444: rlm_message_sv.app_error(
7445: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7446: x_MessageName => 'RLM_CUM_STUP_NO_RECORD',
7447: x_InterfaceHeaderId => x_lines_rec.header_id,
7448: x_InterfaceLineId => x_lines_rec.line_id);
7441: rlm_core_sv.dlog(C_DEBUG,'warning: RLM_CUM_STUP_NO_RECORD');
7442: END IF;
7443: --
7444: rlm_message_sv.app_error(
7445: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7446: x_MessageName => 'RLM_CUM_STUP_NO_RECORD',
7447: x_InterfaceHeaderId => x_lines_rec.header_id,
7448: x_InterfaceLineId => x_lines_rec.line_id);
7449: --
7493: ELSE
7494: --
7495: IF v_cum_record.msg_name = 'RLM_CUM_START_FUTURE' THEN
7496: --
7497: rlm_message_sv.app_error(
7498: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7499: x_MessageName => 'RLM_CUM_START_FUTURE',
7500: x_InterfaceHeaderId => x_lines_rec.header_id,
7501: x_InterfaceLineId => x_lines_rec.line_id,
7494: --
7495: IF v_cum_record.msg_name = 'RLM_CUM_START_FUTURE' THEN
7496: --
7497: rlm_message_sv.app_error(
7498: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7499: x_MessageName => 'RLM_CUM_START_FUTURE',
7500: x_InterfaceHeaderId => x_lines_rec.header_id,
7501: x_InterfaceLineId => x_lines_rec.line_id,
7502: x_token1=>'ITEM',
7517:
7518: WHEN e_NoCumRec THEN
7519: --
7520: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7521: rlm_message_sv.app_error(
7522: x_ExceptionLevel => rlm_message_sv.k_error_level,
7523: x_MessageName => 'RLM_NO_ACTIVE_CUM',
7524: x_InterfaceHeaderId => x_lines_rec.header_id,
7525: x_InterfaceLineId => x_lines_rec.line_id);
7518: WHEN e_NoCumRec THEN
7519: --
7520: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7521: rlm_message_sv.app_error(
7522: x_ExceptionLevel => rlm_message_sv.k_error_level,
7523: x_MessageName => 'RLM_NO_ACTIVE_CUM',
7524: x_InterfaceHeaderId => x_lines_rec.header_id,
7525: x_InterfaceLineId => x_lines_rec.line_id);
7526: --
7575: x_Group_rec.setup_terms_rec.calc_cum_flag);
7576: rlm_core_sv.dlog(C_DEBUG,'intransit calc basis',x_Group_rec.setup_terms_rec.intransit_calc_basis);
7577: END IF;
7578: --
7579: IF rlm_message_sv.check_dependency('CUM_KEY_PO') THEN
7580: --
7581: IF x_Group_rec.setup_terms_rec.calc_cum_flag = 'Y' THEN
7582:
7583: --calc_cum_flag = Y does not mean cum processing
7636: rlm_core_sv.dlog(C_DEBUG,'error:RLM_MULTIPLE_ITM_CUM_DTL_FOUND') ;
7637: END IF;
7638: --
7639: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7640: rlm_message_sv.app_error(
7641: x_ExceptionLevel => rlm_message_sv.k_error_level,
7642: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
7643: x_InterfaceHeaderId => x_lines_rec.header_id,
7644: x_InterfaceLineId => x_lines_rec.line_id,
7637: END IF;
7638: --
7639: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7640: rlm_message_sv.app_error(
7641: x_ExceptionLevel => rlm_message_sv.k_error_level,
7642: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
7643: x_InterfaceHeaderId => x_lines_rec.header_id,
7644: x_InterfaceLineId => x_lines_rec.line_id,
7645: x_Token1 => 'SHIP_FROM',
7700: --
7701: When NO_DATA_FOUND then
7702: --
7703: -- 4307505 : changed this from Error to Warning
7704: rlm_message_sv.app_error(
7705: x_ExceptionLevel => rlm_message_sv.k_warn_level, -- 4307505
7706: x_MessageName => 'RLM_NO_CUM_INTRST_CUST_CUM',
7707: x_InterfaceHeaderId => x_lines_rec.header_id,
7708: x_InterfaceLineId => x_lines_rec.line_id,
7701: When NO_DATA_FOUND then
7702: --
7703: -- 4307505 : changed this from Error to Warning
7704: rlm_message_sv.app_error(
7705: x_ExceptionLevel => rlm_message_sv.k_warn_level, -- 4307505
7706: x_MessageName => 'RLM_NO_CUM_INTRST_CUST_CUM',
7707: x_InterfaceHeaderId => x_lines_rec.header_id,
7708: x_InterfaceLineId => x_lines_rec.line_id,
7709: x_Token1 => 'SHIP_TO',
7740: CLOSE c_cum; --bug 4570658
7741: END IF;
7742:
7743: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7744: rlm_message_sv.sql_error('rlm_validateDemand_sv.CheckCUMKeyPO', v_Progress);
7745: --
7746: IF (l_debug <> -1) THEN
7747: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
7748: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7772: IF (l_debug <> -1) THEN
7773: rlm_core_sv.dpush(C_SDEBUG,'ValidPlanningProdSeqNum');
7774: END IF;
7775: --
7776: IF rlm_message_sv.check_dependency('PROD_SEQ_NUM') THEN
7777: --
7778: IF (l_debug <> -1) THEN
7779: rlm_core_sv.dlog(C_DEBUG,'ScheduleType',x_header_rec.schedule_type);
7780: rlm_core_sv.dlog(C_DEBUG,'Planning_Prod_Seq',
7810: WHEN e_ProdSeqMissing THEN
7811: --
7812: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7813: --
7814: rlm_message_sv.app_error(
7815: x_ExceptionLevel => rlm_message_sv.k_error_level,
7816: x_MessageName => 'RLM_PLANNING_PROD_SEQ_MISSING',
7817: x_InterfaceHeaderId => x_lines_rec.header_id,
7818: x_InterfaceLineId => x_lines_rec.line_id,
7811: --
7812: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7813: --
7814: rlm_message_sv.app_error(
7815: x_ExceptionLevel => rlm_message_sv.k_error_level,
7816: x_MessageName => 'RLM_PLANNING_PROD_SEQ_MISSING',
7817: x_InterfaceHeaderId => x_lines_rec.header_id,
7818: x_InterfaceLineId => x_lines_rec.line_id,
7819: x_ValidationType => 'PROD_SEQ_NUM');
7825: WHEN e_MatchProdSeq THEN
7826: --
7827: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7828: --
7829: rlm_message_sv.app_error(
7830: x_ExceptionLevel => rlm_message_sv.k_error_level,
7831: x_MessageName => 'RLM_MATCH_WITHIN_PLN_PROD_SEQ',
7832: x_InterfaceHeaderId => x_lines_rec.header_id,
7833: x_InterfaceLineId => x_lines_rec.line_id,
7826: --
7827: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7828: --
7829: rlm_message_sv.app_error(
7830: x_ExceptionLevel => rlm_message_sv.k_error_level,
7831: x_MessageName => 'RLM_MATCH_WITHIN_PLN_PROD_SEQ',
7832: x_InterfaceHeaderId => x_lines_rec.header_id,
7833: x_InterfaceLineId => x_lines_rec.line_id,
7834: x_ValidationType => 'PROD_SEQ_NUM');
7839: --
7840: WHEN OTHERS THEN
7841: --
7842: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7843: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidPlanningProdSeqNum',
7844: v_Progress);
7845: --
7846: IF (l_debug <> -1) THEN
7847: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7867: IF (l_debug <> -1) THEN
7868: rlm_core_sv.dpush(C_SDEBUG,'ValidLineScheduleType');
7869: END IF;
7870: --
7871: IF rlm_message_sv.check_dependency('LINE_SCHEDULE_TYPE') THEN
7872: --
7873: IF (l_debug <> -1) THEN
7874: rlm_core_sv.dlog(C_DEBUG,'Schedule_Type',x_header_rec.Schedule_type );
7875: END IF;
7897: --
7898: WHEN e_SchedTypeInv THEN
7899: --
7900: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7901: rlm_message_sv.app_error(
7902: x_ExceptionLevel => rlm_message_sv.k_error_level,
7903: x_MessageName => 'RLM_LINE_SCHEDULE_TYPE_INVALID',
7904: x_InterfaceHeaderId => x_lines_rec.header_id,
7905: x_InterfaceLineId => x_lines_rec.line_id,
7898: WHEN e_SchedTypeInv THEN
7899: --
7900: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7901: rlm_message_sv.app_error(
7902: x_ExceptionLevel => rlm_message_sv.k_error_level,
7903: x_MessageName => 'RLM_LINE_SCHEDULE_TYPE_INVALID',
7904: x_InterfaceHeaderId => x_lines_rec.header_id,
7905: x_InterfaceLineId => x_lines_rec.line_id,
7906: x_token1=>'SCHEDULE_TYPE',
7913: --
7914: WHEN OTHERS THEN
7915: --
7916: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
7917: rlm_message_sv.sql_error('rlm_validateDemand_sv.ValidLineScheduleType: ',
7918: v_Progress);
7919: --
7920: IF (l_debug <> -1) THEN
7921: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8799: EXCEPTION
8800: --
8801: WHEN OTHERS THEN
8802: --
8803: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceLines',
8804: v_Progress);
8805: --
8806: IF (l_debug <> -1) THEN
8807: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
8936: EXCEPTION
8937: WHEN OTHERS THEN
8938: --
8939: rollback;
8940: rlm_message_sv.sql_error('rlm_validateDemand_sv.UpdateInterfaceHeaders: ',
8941: v_Progress);
8942: --
8943: IF (l_debug <> -1) THEN
8944: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8981: EXCEPTION
8982: WHEN e_ArchiveAPIFailed THEN
8983: --
8984: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8985: rlm_message_sv.app_error(
8986: x_ExceptionLevel => rlm_message_sv.k_error_level,
8987: x_MessageName => 'RLM_ARCHIVE_API_ERROR',
8988: x_InterfaceHeaderId => g_Header_Rec.header_id,
8989: x_Token1 => 'ERROR',
8982: WHEN e_ArchiveAPIFailed THEN
8983: --
8984: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
8985: rlm_message_sv.app_error(
8986: x_ExceptionLevel => rlm_message_sv.k_error_level,
8987: x_MessageName => 'RLM_ARCHIVE_API_ERROR',
8988: x_InterfaceHeaderId => g_Header_Rec.header_id,
8989: x_Token1 => 'ERROR',
8990: x_value1 => sqlerrm,
8997: --
8998: WHEN OTHERS THEN
8999: --
9000: g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9001: rlm_message_sv.sql_error('rlm_validateDemand_sv.PostValidation: ',
9002: v_Progress);
9003: --
9004: IF (l_debug <> -1) THEN
9005: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9118: --
9119: --g_header_rec.process_status := rlm_core_sv.k_PS_ERROR;
9120: IF(v_SetupTerms_rec.msg_name = 'RLM_SETUP_CUST_INACTIVE_RECORD') THEN
9121: --
9122: rlm_message_sv.get_msg_text(
9123: x_message_name => v_SetupTerms_rec.msg_name,
9124: x_text => v_ReturnMsg,
9125: x_token1 => 'CUSTOMER',
9126: x_value1 => rlm_core_sv.get_customer_name(x_header_rec.customer_id),
9133: );
9134: --
9135: END IF;
9136:
9137: rlm_message_sv.app_error(
9138: x_ExceptionLevel => rlm_message_sv.k_error_level,
9139: x_MessageName => 'RLM_SETUPAPI_FAILED',
9140: x_ChildMessageName => v_SetupTerms_rec.msg_name,
9141: x_InterfaceHeaderId => x_lines_rec.header_id,
9134: --
9135: END IF;
9136:
9137: rlm_message_sv.app_error(
9138: x_ExceptionLevel => rlm_message_sv.k_error_level,
9139: x_MessageName => 'RLM_SETUPAPI_FAILED',
9140: x_ChildMessageName => v_SetupTerms_rec.msg_name,
9141: x_InterfaceHeaderId => x_lines_rec.header_id,
9142: x_InterfaceLineId => x_lines_rec.line_id,
9190: rlm_core_sv.dlog(C_DEBUG, 'seq_mrp_forecast_day_from',
9191: x_setup_terms_rec.seq_mrp_forecast_day_from);
9192: END IF;
9193: --
9194: IF rlm_message_sv.check_dependency('FORECASTDESIGNATOR') THEN
9195: --
9196: IF x_header_rec.schedule_type = k_PLANNING AND
9197: (x_setup_terms_rec.pln_mrp_forecast_day_from IS NOT NULL AND
9198: x_setup_terms_rec.pln_mrp_forecast_day_from <> 0) THEN
9255: --
9256: IF x_ForecastDesignator is NULL THEN
9257: --
9258: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
9259: rlm_message_sv.app_error(
9260: x_ExceptionLevel => rlm_message_sv.k_error_level,
9261: x_MessageName => 'RLM_NO_FORECAST_DESIG',
9262: x_InterfaceHeaderId => x_lines_rec.header_id,
9263: x_InterfaceLineId => x_lines_rec.line_id,
9256: IF x_ForecastDesignator is NULL THEN
9257: --
9258: x_lines_rec.process_status := rlm_core_sv.k_PS_ERROR;
9259: rlm_message_sv.app_error(
9260: x_ExceptionLevel => rlm_message_sv.k_error_level,
9261: x_MessageName => 'RLM_NO_FORECAST_DESIG',
9262: x_InterfaceHeaderId => x_lines_rec.header_id,
9263: x_InterfaceLineId => x_lines_rec.line_id,
9264: x_token1=>'CUST',
9439: rlm_core_sv.dpop(C_SDEBUG);
9440: END IF;
9441:
9442: WHEN OTHERS THEN
9443: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetTPContext', v_Progress);
9444: --
9445: IF (l_debug <> -1) THEN
9446: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9447: END IF;
9516: rlm_core_sv.dpop(C_SDEBUG);
9517: END IF;
9518:
9519: WHEN OTHERS THEN
9520: rlm_message_sv.sql_error('rlm_validatedemand_sv.GetHdrTPContext', v_Progress);
9521: --
9522: IF (l_debug <> -1) THEN
9523: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
9524: END IF;
9692: IF (l_debug <> -1) THEN
9693: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
9694: END IF;
9695: --
9696: rlm_message_sv.app_error(
9697: x_ExceptionLevel => rlm_message_sv.k_error_level,
9698: x_MessageName => 'RLM_CUSTOMER_RELATIONSHIP',
9699: x_InterfaceHeaderId => x_header_id,
9700: x_token1=>'CUSTOMER1',
9693: rlm_core_sv.dlog(C_DEBUG,'NO_DATA_FOUND');
9694: END IF;
9695: --
9696: rlm_message_sv.app_error(
9697: x_ExceptionLevel => rlm_message_sv.k_error_level,
9698: x_MessageName => 'RLM_CUSTOMER_RELATIONSHIP',
9699: x_InterfaceHeaderId => x_header_id,
9700: x_token1=>'CUSTOMER1',
9701: x_value1 => rlm_core_sv.get_customer_name(x_RelatedCustomerId),
9710: RETURN(FALSE);
9711: --
9712: WHEN e_no_om_cr THEN
9713: --
9714: rlm_message_sv.app_error(x_ExceptionLevel => rlm_message_sv.k_error_level,
9715: x_MessageName => 'RLM_OM_CUSTOMER_RELATIONSHIP',
9716: x_InterfaceHeaderId => x_header_id);
9717: --
9718: IF (l_debug <> -1) THEN
9723: RETURN(FALSE);
9724: --
9725: WHEN OTHERS THEN
9726: --
9727: rlm_message_sv.sql_error('RLM_VALIDATEDEMAND_SV.CustomerRelationship',
9728: v_Progress);
9729: --
9730: IF (l_debug <> -1) THEN
9731: rlm_core_sv.dlog (C_DEBUG,'SQL Error: ',substr(sqlerrm,1,300));
9783: IF (l_debug <> -1) THEN
9784: rlm_core_sv.dlog(C_DEBUG, 'RLM line date type does not match OM date type');
9785: END IF;
9786: --
9787: rlm_message_sv.app_error(
9788: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9789: x_MessageName => 'RLM_MISMATCH_DATE_TYPE',
9790: x_InterfaceHeaderId => x_line.header_id,
9791: x_InterfaceLineId => x_line.line_id,
9784: rlm_core_sv.dlog(C_DEBUG, 'RLM line date type does not match OM date type');
9785: END IF;
9786: --
9787: rlm_message_sv.app_error(
9788: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9789: x_MessageName => 'RLM_MISMATCH_DATE_TYPE',
9790: x_InterfaceHeaderId => x_line.header_id,
9791: x_InterfaceLineId => x_line.line_id,
9792: x_token1=> 'RLM_DATE_TYPE',
9883: EXCEPTION
9884: --
9885: WHEN e_POMisMatch THEN
9886: --
9887: rlm_message_sv.app_error(
9888: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9889: x_MessageName => 'RLM_BLKT_PO_MISMATCH',
9890: x_InterfaceHeaderId => x_header_id,
9891: x_token1=>'SCHED_PO',
9884: --
9885: WHEN e_POMisMatch THEN
9886: --
9887: rlm_message_sv.app_error(
9888: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9889: x_MessageName => 'RLM_BLKT_PO_MISMATCH',
9890: x_InterfaceHeaderId => x_header_id,
9891: x_token1=>'SCHED_PO',
9892: x_value1=>x_cust_po_num,
9900: END IF;
9901: --
9902: WHEN NO_DATA_FOUND THEN
9903: --
9904: rlm_message_sv.app_error(
9905: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9906: x_MessageName => 'RLM_BLANKET_UNDEFINED',
9907: x_InterfaceHeaderId => x_header_id,
9908: x_token1=>'BLANKET_NUM',
9901: --
9902: WHEN NO_DATA_FOUND THEN
9903: --
9904: rlm_message_sv.app_error(
9905: x_ExceptionLevel => rlm_message_sv.k_warn_level,
9906: x_MessageName => 'RLM_BLANKET_UNDEFINED',
9907: x_InterfaceHeaderId => x_header_id,
9908: x_token1=>'BLANKET_NUM',
9909: x_value1=>x_Group_rec.setup_terms_rec.blanket_number,
10058: EXCEPTION
10059: --
10060: WHEN e_BlktOnHold THEN
10061: --
10062: rlm_message_sv.app_error(
10063: x_ExceptionLevel => rlm_message_sv.k_error_level,
10064: x_MessageName => 'RLM_BLANKET_ON_HOLD',
10065: x_InterfaceHeaderId => x_Sched_rec.header_id,
10066: x_InterfaceLineId => NULL,
10059: --
10060: WHEN e_BlktOnHold THEN
10061: --
10062: rlm_message_sv.app_error(
10063: x_ExceptionLevel => rlm_message_sv.k_error_level,
10064: x_MessageName => 'RLM_BLANKET_ON_HOLD',
10065: x_InterfaceHeaderId => x_Sched_rec.header_id,
10066: x_InterfaceLineId => NULL,
10067: x_token1=>'BLANKET_NUMBER',
10075: RETURN FALSE;
10076: --
10077: WHEN e_BlktStartDate THEN
10078: --
10079: rlm_message_sv.app_error(
10080: x_ExceptionLevel => rlm_message_sv.k_error_level,
10081: x_MessageName => 'RLM_STARTDATE_BEFORE_BLANKET',
10082: x_InterfaceHeaderId => x_Sched_rec.header_id,
10083: x_InterfaceLineId => NULL,
10076: --
10077: WHEN e_BlktStartDate THEN
10078: --
10079: rlm_message_sv.app_error(
10080: x_ExceptionLevel => rlm_message_sv.k_error_level,
10081: x_MessageName => 'RLM_STARTDATE_BEFORE_BLANKET',
10082: x_InterfaceHeaderId => x_Sched_rec.header_id,
10083: x_InterfaceLineId => NULL,
10084: x_token1=>'REQDATE',
10096: RETURN FALSE;
10097: --
10098: WHEN e_BlktEndDate THEN
10099: --
10100: rlm_message_sv.app_error(
10101: x_ExceptionLevel => rlm_message_sv.k_error_level,
10102: x_MessageName => 'RLM_ENDDATE_AFTER_BLANKET',
10103: x_InterfaceHeaderId => x_Sched_rec.header_id,
10104: x_InterfaceLineId => NULL,
10097: --
10098: WHEN e_BlktEndDate THEN
10099: --
10100: rlm_message_sv.app_error(
10101: x_ExceptionLevel => rlm_message_sv.k_error_level,
10102: x_MessageName => 'RLM_ENDDATE_AFTER_BLANKET',
10103: x_InterfaceHeaderId => x_Sched_rec.header_id,
10104: x_InterfaceLineId => NULL,
10105: x_token1=>'REQDATE',
10117: RETURN FALSE;
10118: --
10119: WHEN NO_DATA_FOUND THEN
10120: --
10121: rlm_message_sv.app_error(
10122: x_ExceptionLevel => rlm_message_sv.k_warn_level,
10123: x_MessageName => 'RLM_BLANKET_UNDEFINED',
10124: x_InterfaceHeaderId => x_Sched_rec.header_id,
10125: x_token1=>'BLANKET_NUM',
10118: --
10119: WHEN NO_DATA_FOUND THEN
10120: --
10121: rlm_message_sv.app_error(
10122: x_ExceptionLevel => rlm_message_sv.k_warn_level,
10123: x_MessageName => 'RLM_BLANKET_UNDEFINED',
10124: x_InterfaceHeaderId => x_Sched_rec.header_id,
10125: x_token1=>'BLANKET_NUM',
10126: x_value1=>x_Group_rec.setup_terms_rec.blanket_number);