DBA Data[Home] [Help]

APPS.RLM_MANAGE_DEMAND_SV dependencies on RLM_MESSAGE_SV

Line 47: rlm_message_sv.initialize_dependency('MANAGE_DEMAND');

43: rlm_core_sv.dpush(C_SDEBUG,'ManageDemand');
44: rlm_core_sv.dlog(C_DEBUG,'InterfaceHeaderId',x_InterfaceHeaderId);
45: END IF;
46: --
47: rlm_message_sv.initialize_dependency('MANAGE_DEMAND');
48: --
49: x_ReturnStatus := rlm_core_sv.k_PROC_SUCCESS;
50: x_Group_rec.IsSourced := FALSE;
51: RLM_RD_SV.g_SourceTab.DELETE;

Line 197: rlm_message_sv.app_error(

193: --
194: WHEN e_linesLocked THEN
195: --
196: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
197: rlm_message_sv.app_error(
198: x_ExceptionLevel => rlm_message_sv.k_error_level,
199: x_MessageName => 'RLM_LOCK_NOT_OBTAINED',
200: x_InterfaceHeaderId => x_sched_rec.header_id,
201: x_InterfaceLineId => NULL,

Line 198: x_ExceptionLevel => rlm_message_sv.k_error_level,

194: WHEN e_linesLocked THEN
195: --
196: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
197: rlm_message_sv.app_error(
198: x_ExceptionLevel => rlm_message_sv.k_error_level,
199: x_MessageName => 'RLM_LOCK_NOT_OBTAINED',
200: x_InterfaceHeaderId => x_sched_rec.header_id,
201: x_InterfaceLineId => NULL,
202: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 227: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand', v_Progress);

223: --
224: WHEN OTHERS THEN
225: --
226: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
227: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand', v_Progress);
228: --
229: IF (l_debug <> -1) THEN
230: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
231: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 385: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',

381: --
382: WHEN OTHERS THEN
383: --
384: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
385: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
386: v_Progress);
387: --
388: IF (l_debug <> -1) THEN
389: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 471: rlm_message_sv.sql_error('rlm_manage_demand_sv.PopulateLastReceiptRec',

467: --
468: EXCEPTION
469: --
470: WHEN OTHERS THEN
471: rlm_message_sv.sql_error('rlm_manage_demand_sv.PopulateLastReceiptRec',
472: v_Progress);
473: --
474: IF (l_debug <> -1) THEN
475: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 593: rlm_message_sv.app_error(

589: END IF;
590: --
591: WHEN TOO_MANY_ROWS THEN
592: --
593: rlm_message_sv.app_error(
594: x_ExceptionLevel => rlm_message_sv.k_error_level,
595: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
596: x_InterfaceHeaderId => x_sched_rec.header_id,
597: x_InterfaceLineId => NULL,

Line 594: x_ExceptionLevel => rlm_message_sv.k_error_level,

590: --
591: WHEN TOO_MANY_ROWS THEN
592: --
593: rlm_message_sv.app_error(
594: x_ExceptionLevel => rlm_message_sv.k_error_level,
595: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
596: x_InterfaceHeaderId => x_sched_rec.header_id,
597: x_InterfaceLineId => NULL,
598: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 620: rlm_message_sv.sql_error('rlm_manage_demand.PopulateCUMRec',

616: RAISE e_GroupError;
617: --*/
618: WHEN OTHERS THEN
619: --
620: rlm_message_sv.sql_error('rlm_manage_demand.PopulateCUMRec',
621: v_Progress);
622: --
623: IF (l_debug <> -1) THEN
624: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 738: rlm_message_sv.sql_error('rlm_manage_demand.PopulateMD',v_Progress);

734: EXCEPTION
735: --
736: WHEN OTHERS THEN
737: --
738: rlm_message_sv.sql_error('rlm_manage_demand.PopulateMD',v_Progress);
739: --
740: IF (l_debug <> -1) THEN
741: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
742: END IF;

Line 773: rlm_message_sv.sql_error('rlm_manage_demand_sv.UOMConversion', v_Progress);

769:
770: EXCEPTION
771:
772: WHEN OTHERS THEN
773: rlm_message_sv.sql_error('rlm_manage_demand_sv.UOMConversion', v_Progress);
774: --
775: IF (l_debug <> -1) THEN
776: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
777: END IF;

Line 842: rlm_message_sv.get_msg_text(

838: g_CUM_tab(v_Count).primary_quantity > 0 THEN
839:
840: --Bugfix 7007638
841: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
842: rlm_message_sv.get_msg_text(
843: x_message_name => 'RLM_CUM_CONTROL_PO',
844: x_text => v_control_text);
845: v_control_value := g_CUM_tab(v_Count).purchase_order_number;
846: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 847: rlm_message_sv.get_msg_text(

843: x_message_name => 'RLM_CUM_CONTROL_PO',
844: x_text => v_control_text);
845: v_control_value := g_CUM_tab(v_Count).purchase_order_number;
846: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
847: rlm_message_sv.get_msg_text(
848: x_message_name => 'RLM_CUM_CONTROL_RY',
849: x_text => v_control_text);
850: v_control_value := g_CUM_tab(v_Count).cust_record_year;
851: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 852: rlm_message_sv.get_msg_text(

848: x_message_name => 'RLM_CUM_CONTROL_RY',
849: x_text => v_control_text);
850: v_control_value := g_CUM_tab(v_Count).cust_record_year;
851: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
852: rlm_message_sv.get_msg_text(
853: x_message_name => 'RLM_CUM_CONTROL_DATE',
854: x_text => v_control_text);
855: v_control_value := g_CUM_tab(v_Count).start_date_time;
856: END IF;

Line 1083: rlm_message_sv.app_error(

1079: v_InterfaceLineId := NULL;
1080: --
1081: END;
1082: --
1083: rlm_message_sv.app_error(
1084: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1085: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1086: x_InterfaceHeaderId => x_sched_rec.header_id,
1087: x_InterfaceLineId => v_InterfaceLineId,

Line 1084: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1080: --
1081: END;
1082: --
1083: rlm_message_sv.app_error(
1084: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1085: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1086: x_InterfaceHeaderId => x_sched_rec.header_id,
1087: x_InterfaceLineId => v_InterfaceLineId,
1088: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1132: rlm_message_sv.app_error(

1128: v_InterfaceLineId := NULL;
1129: --
1130: END;
1131: --
1132: rlm_message_sv.app_error(
1133: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1134: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1135: x_InterfaceHeaderId => x_sched_rec.header_id,
1136: x_InterfaceLineId => v_InterfaceLineId,

Line 1133: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1129: --
1130: END;
1131: --
1132: rlm_message_sv.app_error(
1133: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1134: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1135: x_InterfaceHeaderId => x_sched_rec.header_id,
1136: x_InterfaceLineId => v_InterfaceLineId,
1137: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1181: rlm_message_sv.app_error(

1177: v_InterfaceLineId := NULL;
1178: --
1179: END;
1180: --
1181: rlm_message_sv.app_error(
1182: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1183: x_MessageName => 'RLM_CUM_KEY_MISSING',
1184: x_InterfaceHeaderId => x_sched_rec.header_id,
1185: x_InterfaceLineId => v_InterfaceLineId,

Line 1182: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1178: --
1179: END;
1180: --
1181: rlm_message_sv.app_error(
1182: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1183: x_MessageName => 'RLM_CUM_KEY_MISSING',
1184: x_InterfaceHeaderId => x_sched_rec.header_id,
1185: x_InterfaceLineId => v_InterfaceLineId,
1186: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1226: rlm_message_sv.app_error(

1222: v_InterfaceLineId := NULL;
1223: --
1224: END;
1225: --
1226: rlm_message_sv.app_error(
1227: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1228: x_MessageName => 'RLM_CUM_FOR_ITEM_NOT_ENABLED',
1229: x_InterfaceHeaderId => x_sched_rec.header_id,
1230: x_InterfaceLineId => v_InterfaceLineId,

Line 1227: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1223: --
1224: END;
1225: --
1226: rlm_message_sv.app_error(
1227: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1228: x_MessageName => 'RLM_CUM_FOR_ITEM_NOT_ENABLED',
1229: x_InterfaceHeaderId => x_sched_rec.header_id,
1230: x_InterfaceLineId => v_InterfaceLineId,
1231: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1283: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);

1279: v_InterfaceLineId := NULL;
1280: --
1281: END;
1282: --
1283: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1284: --
1285: rlm_message_sv.app_error(
1286: x_ExceptionLevel => rlm_message_sv.k_error_level,
1287: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',

Line 1285: rlm_message_sv.app_error(

1281: END;
1282: --
1283: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1284: --
1285: rlm_message_sv.app_error(
1286: x_ExceptionLevel => rlm_message_sv.k_error_level,
1287: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',
1288: x_ChildMessageName => v_cum_record.msg_name,
1289: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 1286: x_ExceptionLevel => rlm_message_sv.k_error_level,

1282: --
1283: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1284: --
1285: rlm_message_sv.app_error(
1286: x_ExceptionLevel => rlm_message_sv.k_error_level,
1287: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',
1288: x_ChildMessageName => v_cum_record.msg_name,
1289: x_InterfaceHeaderId => x_sched_rec.header_id,
1290: x_InterfaceLineId => v_InterfaceLineId,

Line 1315: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);

1311: raise e_GroupError;
1312: --
1313: WHEN e_CalSupCumAPIFailed THEN /* This is never raised */
1314: --
1315: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1316: --
1317: rlm_message_sv.app_error(
1318: x_ExceptionLevel => rlm_message_sv.k_error_level,
1319: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',

Line 1317: rlm_message_sv.app_error(

1313: WHEN e_CalSupCumAPIFailed THEN /* This is never raised */
1314: --
1315: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1316: --
1317: rlm_message_sv.app_error(
1318: x_ExceptionLevel => rlm_message_sv.k_error_level,
1319: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',
1320: x_ChildMessageName => v_cum_record.msg_name,
1321: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 1318: x_ExceptionLevel => rlm_message_sv.k_error_level,

1314: --
1315: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1316: --
1317: rlm_message_sv.app_error(
1318: x_ExceptionLevel => rlm_message_sv.k_error_level,
1319: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',
1320: x_ChildMessageName => v_cum_record.msg_name,
1321: x_InterfaceHeaderId => x_sched_rec.header_id,
1322: x_InterfaceLineId => NULL,

Line 1340: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',

1336: raise e_GroupError;
1337: --
1338: WHEN OTHERS THEN
1339: --
1340: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',
1341: v_Progress);
1342: --
1343: IF (l_debug <> -1) THEN
1344: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 1410: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);

1406: EXCEPTION
1407: --
1408: WHEN OTHERS THEN
1409: --
1410: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1411: --
1412: IF (l_debug <> -1) THEN
1413: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1414: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 1552: rlm_message_sv.get_msg_text(

1548: rlm_tpa_sv.CalculateCumKey(v_cum_key_record, v_cum_record);
1549: --
1550: --Bugfix 7007638
1551: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
1552: rlm_message_sv.get_msg_text(
1553: x_message_name => 'RLM_CUM_CONTROL_PO',
1554: x_text => v_control_text);
1555: v_control_value := g_CUM_tab(v_Count1).purchase_order_number;
1556: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 1557: rlm_message_sv.get_msg_text(

1553: x_message_name => 'RLM_CUM_CONTROL_PO',
1554: x_text => v_control_text);
1555: v_control_value := g_CUM_tab(v_Count1).purchase_order_number;
1556: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
1557: rlm_message_sv.get_msg_text(
1558: x_message_name => 'RLM_CUM_CONTROL_RY',
1559: x_text => v_control_text);
1560: v_control_value := g_CUM_tab(v_Count1).cust_record_year;
1561: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 1562: rlm_message_sv.get_msg_text(

1558: x_message_name => 'RLM_CUM_CONTROL_RY',
1559: x_text => v_control_text);
1560: v_control_value := g_CUM_tab(v_Count1).cust_record_year;
1561: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
1562: rlm_message_sv.get_msg_text(
1563: x_message_name => 'RLM_CUM_CONTROL_DATE',
1564: x_text => v_control_text);
1565: v_control_value := g_CUM_tab(v_Count1).start_date_time;
1566: END IF;

Line 1620: rlm_message_sv.app_error(

1616: IF g_ManageDemand_tab(v_Count).primary_quantity < 0 THEN
1617: --
1618: --bsadri: just give a warning bug 1966050
1619: --
1620: rlm_message_sv.app_error(
1621: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1622: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1623: x_InterfaceHeaderId => x_sched_rec.header_id,
1624: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,

Line 1621: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1617: --
1618: --bsadri: just give a warning bug 1966050
1619: --
1620: rlm_message_sv.app_error(
1621: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1622: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1623: x_InterfaceHeaderId => x_sched_rec.header_id,
1624: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,
1625: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1720: rlm_message_sv.get_msg_text(

1716: rlm_tpa_sv.CalculateCumKey(v_cum_key_record, v_cum_record);
1717: --
1718: --Bugfix 7007638
1719: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
1720: rlm_message_sv.get_msg_text(
1721: x_message_name => 'RLM_CUM_CONTROL_PO',
1722: x_text => v_control_text);
1723: v_control_value := v_cum_key_record.purchase_order_number;
1724: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 1725: rlm_message_sv.get_msg_text(

1721: x_message_name => 'RLM_CUM_CONTROL_PO',
1722: x_text => v_control_text);
1723: v_control_value := v_cum_key_record.purchase_order_number;
1724: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
1725: rlm_message_sv.get_msg_text(
1726: x_message_name => 'RLM_CUM_CONTROL_RY',
1727: x_text => v_control_text);
1728: v_control_value := v_cum_key_record.cust_record_year;
1729: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 1730: rlm_message_sv.get_msg_text(

1726: x_message_name => 'RLM_CUM_CONTROL_RY',
1727: x_text => v_control_text);
1728: v_control_value := v_cum_key_record.cust_record_year;
1729: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
1730: rlm_message_sv.get_msg_text(
1731: x_message_name => 'RLM_CUM_CONTROL_DATE',
1732: x_text => v_control_text);
1733: v_control_value := v_cum_record.cum_start_date;
1734: END IF;

Line 1784: rlm_message_sv.app_error(

1780: IF g_ManageDemand_tab(v_Count).primary_quantity < 0 THEN
1781: --
1782: --bsadri: just give a warning bug 1966050
1783: --
1784: rlm_message_sv.app_error(
1785: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1786: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1787: x_InterfaceHeaderId => x_sched_rec.header_id,
1788: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,

Line 1785: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1781: --
1782: --bsadri: just give a warning bug 1966050
1783: --
1784: rlm_message_sv.app_error(
1785: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1786: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1787: x_InterfaceHeaderId => x_sched_rec.header_id,
1788: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,
1789: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1838: rlm_message_sv.app_error(

1834: EXCEPTION
1835: --
1836: WHEN e_noSupplierCum THEN
1837: --
1838: rlm_message_sv.app_error(
1839: x_ExceptionLevel => rlm_message_sv.k_error_level,
1840: x_MessageName => 'RLM_CUM_KEY_NOTFOUND',
1841: x_InterfaceHeaderId => x_sched_rec.header_id,
1842: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1839: x_ExceptionLevel => rlm_message_sv.k_error_level,

1835: --
1836: WHEN e_noSupplierCum THEN
1837: --
1838: rlm_message_sv.app_error(
1839: x_ExceptionLevel => rlm_message_sv.k_error_level,
1840: x_MessageName => 'RLM_CUM_KEY_NOTFOUND',
1841: x_InterfaceHeaderId => x_sched_rec.header_id,
1842: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1843: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1868: rlm_message_sv.app_error(

1864: WHEN e_UomMismatch THEN
1865: --
1866: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN
1867: --
1868: rlm_message_sv.app_error(
1869: x_ExceptionLevel => rlm_message_sv.k_error_level,
1870: x_MessageName => 'RLM_CUM_UOM_MISMATCH_SEQ',
1871: x_InterfaceHeaderId => x_sched_rec.header_id,
1872: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1869: x_ExceptionLevel => rlm_message_sv.k_error_level,

1865: --
1866: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN
1867: --
1868: rlm_message_sv.app_error(
1869: x_ExceptionLevel => rlm_message_sv.k_error_level,
1870: x_MessageName => 'RLM_CUM_UOM_MISMATCH_SEQ',
1871: x_InterfaceHeaderId => x_sched_rec.header_id,
1872: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1873: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1898: rlm_message_sv.app_error(

1894: END IF;
1895: --
1896: ELSE
1897: --
1898: rlm_message_sv.app_error(
1899: x_ExceptionLevel => rlm_message_sv.k_error_level,
1900: x_MessageName => 'RLM_CUM_UOM_MISMATCH',
1901: x_InterfaceHeaderId => x_sched_rec.header_id,
1902: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1899: x_ExceptionLevel => rlm_message_sv.k_error_level,

1895: --
1896: ELSE
1897: --
1898: rlm_message_sv.app_error(
1899: x_ExceptionLevel => rlm_message_sv.k_error_level,
1900: x_MessageName => 'RLM_CUM_UOM_MISMATCH',
1901: x_InterfaceHeaderId => x_sched_rec.header_id,
1902: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1903: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1931: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);

1927: --
1928:
1929: WHEN OTHERS THEN
1930: --
1931: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1932: --
1933: IF (l_debug <> -1) THEN
1934: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1935: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 2621: rlm_message_sv.app_error(

2617: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2618: g_ManageDemand_tab(i).schedule_line_id );
2619: END IF;
2620: --
2621: rlm_message_sv.app_error(
2622: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2623: x_MessageName => 'RLM_CUMORGLEVEL_INVALID',
2624: x_InterfaceHeaderId => x_sched_rec.header_id,
2625: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 2622: x_ExceptionLevel => rlm_message_sv.k_warn_level,

2618: g_ManageDemand_tab(i).schedule_line_id );
2619: END IF;
2620: --
2621: rlm_message_sv.app_error(
2622: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2623: x_MessageName => 'RLM_CUMORGLEVEL_INVALID',
2624: x_InterfaceHeaderId => x_sched_rec.header_id,
2625: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
2626: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 2914: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',

2910: END IF;
2911: --
2912: WHEN OTHERS THEN
2913: --
2914: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2915: v_Progress);
2916: IF (l_debug <> -1) THEN
2917: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2918: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 3056: rlm_message_sv.app_error(

3052: FOR j in 1..v_message_tab.COUNT LOOP
3053: --
3054: IF v_message_tab(j).ErrType = -1 THEN
3055: --
3056: rlm_message_sv.app_error(
3057: x_ExceptionLevel => rlm_message_sv.k_error_level,
3058: x_MessageName => 'RLM_SHIPDELAPI_FAILED',
3059: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3060: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 3057: x_ExceptionLevel => rlm_message_sv.k_error_level,

3053: --
3054: IF v_message_tab(j).ErrType = -1 THEN
3055: --
3056: rlm_message_sv.app_error(
3057: x_ExceptionLevel => rlm_message_sv.k_error_level,
3058: x_MessageName => 'RLM_SHIPDELAPI_FAILED',
3059: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3060: x_InterfaceHeaderId => x_sched_rec.header_id,
3061: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3075: rlm_message_sv.app_error(

3071: END IF;
3072: --
3073: ELSIF v_message_tab(j).ErrType = 0 THEN
3074: --
3075: rlm_message_sv.app_error(
3076: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3077: x_MessageName => 'RLM_SHIPDELAPI_WARN',
3078: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3079: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 3076: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3072: --
3073: ELSIF v_message_tab(j).ErrType = 0 THEN
3074: --
3075: rlm_message_sv.app_error(
3076: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3077: x_MessageName => 'RLM_SHIPDELAPI_WARN',
3078: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3079: x_InterfaceHeaderId => x_sched_rec.header_id,
3080: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3511: rlm_message_sv.app_error(

3507: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3508: --
3509: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3510: --
3511: rlm_message_sv.app_error(
3512: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3513: x_MessageName => 'RLM_PAST_DUE_DEMAND_SEQ',
3514: x_InterfaceHeaderId => x_sched_rec.header_id,
3515: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3512: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3508: --
3509: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3510: --
3511: rlm_message_sv.app_error(
3512: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3513: x_MessageName => 'RLM_PAST_DUE_DEMAND_SEQ',
3514: x_InterfaceHeaderId => x_sched_rec.header_id,
3515: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
3516: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 3547: rlm_message_sv.app_error(

3543: END IF;
3544: --
3545: ELSE --}{
3546: --
3547: rlm_message_sv.app_error(
3548: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3549: x_MessageName => 'RLM_PAST_DUE_DEMAND',
3550: x_InterfaceHeaderId => x_sched_rec.header_id,
3551: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3548: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3544: --
3545: ELSE --}{
3546: --
3547: rlm_message_sv.app_error(
3548: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3549: x_MessageName => 'RLM_PAST_DUE_DEMAND',
3550: x_InterfaceHeaderId => x_sched_rec.header_id,
3551: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
3552: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 4078: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);

4074: END IF;
4075: --
4076: WHEN OTHERS THEN
4077: --
4078: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
4079: --
4080: IF (l_debug <> -1) THEN
4081: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4082: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 4141: rlm_message_sv.sql_error('rlm_manage_demand_sv.ProcessTable',

4137: --
4138: EXCEPTION
4139:
4140: WHEN OTHERS THEN
4141: rlm_message_sv.sql_error('rlm_manage_demand_sv.ProcessTable',
4142: v_Progress);
4143: --
4144: IF (l_debug <> -1) THEN
4145: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 4191: rlm_message_sv.sql_error('rlm_manage_demand_sv.DeleteReq',

4187:
4188: EXCEPTION
4189:
4190: WHEN OTHERS THEN
4191: rlm_message_sv.sql_error('rlm_manage_demand_sv.DeleteReq',
4192: v_Progress);
4193: --
4194: IF (l_debug <> -1) THEN
4195: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 4809: rlm_message_sv.app_error(

4805: EXCEPTION
4806: --
4807: WHEN e_NullOrgId THEN
4808: --
4809: rlm_message_sv.app_error(
4810: x_ExceptionLevel => rlm_message_sv.k_error_level,
4811: x_MessageName => 'RLM_OU_CONTEXT_NOT_SET',
4812: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4813: x_InterfaceLineId => x_ManageDemand_rec.line_id);

Line 4810: x_ExceptionLevel => rlm_message_sv.k_error_level,

4806: --
4807: WHEN e_NullOrgId THEN
4808: --
4809: rlm_message_sv.app_error(
4810: x_ExceptionLevel => rlm_message_sv.k_error_level,
4811: x_MessageName => 'RLM_OU_CONTEXT_NOT_SET',
4812: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4813: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4814: --

Line 4823: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertReq',

4819: --
4820: RAISE;
4821: --
4822: WHEN OTHERS THEN
4823: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertReq',
4824: v_Progress);
4825: --
4826: IF (l_debug <> -1) THEN
4827: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 4889: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateReq',

4885: --
4886: EXCEPTION
4887:
4888: WHEN OTHERS THEN
4889: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateReq',
4890: v_Progress);
4891: --
4892: IF (l_debug <> -1) THEN
4893: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 4941: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);

4937: --
4938: EXCEPTION
4939:
4940: WHEN OTHERS THEN
4941: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4942: --
4943: IF (l_debug <> -1) THEN
4944: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4945: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5479: rlm_message_sv.sql_error('rlm_manage_demand_sv.MatchDemand', v_Progress);

5475: EXCEPTION
5476: --
5477: WHEN OTHERS THEN
5478: --
5479: rlm_message_sv.sql_error('rlm_manage_demand_sv.MatchDemand', v_Progress);
5480: --
5481: IF (l_debug <> -1) THEN
5482: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5483: END IF;

Line 5567: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);

5563: --
5564: EXCEPTION
5565:
5566: WHEN OTHERS THEN
5567: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5568: --
5569: IF (l_debug <> -1) THEN
5570: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5571: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5653: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);

5649:
5650: EXCEPTION
5651:
5652: WHEN OTHERS THEN
5653: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5654: --
5655: IF (l_debug <> -1) THEN
5656: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5657: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5722: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);

5718:
5719: EXCEPTION
5720:
5721: WHEN OTHERS THEN
5722: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5723: --
5724: IF (l_debug <> -1) THEN
5725: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5726: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5758: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);

5754:
5755: EXCEPTION
5756:
5757: WHEN OTHERS THEN
5758: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5759: --
5760: IF (l_debug <> -1) THEN
5761: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5762: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5808: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);

5804: --
5805: EXCEPTION
5806:
5807: WHEN OTHERS THEN
5808: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5809: --
5810: IF (l_debug <> -1) THEN
5811: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5812: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 6038: rlm_message_sv.app_error(

6034: rlm_core_sv.dlog(C_DEBUG,'WARNING overshipment has occured by qty = '
6035: ,v_qty_after_round - v_qty_before_round);
6036: END IF;
6037: --
6038: rlm_message_sv.app_error(
6039: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6040: x_MessageName => 'RLM_OVERSHIP_ITEM',
6041: x_InterfaceHeaderId => x_sched_rec.header_id,
6042: x_InterfaceLineId => g_ManageDemand_tab(g_ManageDemand_tab.COUNT).line_id,

Line 6039: x_ExceptionLevel => rlm_message_sv.k_warn_level,

6035: ,v_qty_after_round - v_qty_before_round);
6036: END IF;
6037: --
6038: rlm_message_sv.app_error(
6039: x_ExceptionLevel => rlm_message_sv.k_warn_level,
6040: x_MessageName => 'RLM_OVERSHIP_ITEM',
6041: x_InterfaceHeaderId => x_sched_rec.header_id,
6042: x_InterfaceLineId => g_ManageDemand_tab(g_ManageDemand_tab.COUNT).line_id,
6043: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 6071: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',

6067: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6068: END IF;
6069:
6070: WHEN OTHERS THEN
6071: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
6072: v_Progress);
6073: --
6074: IF (l_debug <> -1) THEN
6075: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 6413: rlm_message_sv.app_error(

6409: v_InterfaceLineId := NULL;
6410: --
6411: END;
6412: --
6413: rlm_message_sv.app_error(
6414: x_ExceptionLevel => rlm_message_sv.k_error_level,
6415: x_MessageName => 'RLM_SETUPAPI_FAILED',
6416: x_ChildMessageName => v_SetupTerms_rec.msg_name,
6417: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 6414: x_ExceptionLevel => rlm_message_sv.k_error_level,

6410: --
6411: END;
6412: --
6413: rlm_message_sv.app_error(
6414: x_ExceptionLevel => rlm_message_sv.k_error_level,
6415: x_MessageName => 'RLM_SETUPAPI_FAILED',
6416: x_ChildMessageName => v_SetupTerms_rec.msg_name,
6417: x_InterfaceHeaderId => x_sched_rec.header_id,
6418: x_InterfaceLineId => v_InterfaceLineId,

Line 6517: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);

6513: --
6514: RETURN(FALSE);
6515:
6516: WHEN OTHERS THEN
6517: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6518: --
6519: IF (l_debug <> -1) THEN
6520: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6521: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

Line 6579: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);

6575: rlm_core_sv.dpop(C_SDEBUG);
6576: END IF;
6577:
6578: WHEN OTHERS THEN
6579: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6580: --
6581: IF (l_debug <> -1) THEN
6582: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6583: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

Line 6696: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);

6692: END IF;
6693: --
6694: WHEN OTHERS THEN
6695: --
6696: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6697: --
6698: IF (l_debug <> -1) THEN
6699: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6700: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

Line 6754: rlm_message_sv.sql_error('rlm_managedemand_sv.GetConvertedLeadTime',

6750: --
6751: EXCEPTION
6752: --
6753: WHEN OTHERS THEN
6754: rlm_message_sv.sql_error('rlm_managedemand_sv.GetConvertedLeadTime',
6755: x_progress);
6756: --
6757: IF (l_debug <> -1) THEN
6758: rlm_core_sv.dpop(C_SDEBUG);

Line 6861: rlm_message_sv.sql_error('rlm_ManageDemand_sv.GetTPContext',v_Progress);

6857: END IF;
6858: --
6859: WHEN OTHERS THEN
6860: --
6861: rlm_message_sv.sql_error('rlm_ManageDemand_sv.GetTPContext',v_Progress);
6862: --
6863: IF (l_debug <> -1) THEN
6864: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6865: END IF;

Line 7083: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);

7079: --
7080: RAISE;
7081: --
7082: WHEN OTHERS THEN
7083: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);
7084: --
7085: IF (l_debug <> -1) THEN
7086: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7087: END IF;

Line 7249: rlm_message_sv.app_error(

7245:
7246: EXCEPTION
7247: WHEN e_SetupAPIFailed THEN
7248: --
7249: rlm_message_sv.app_error(
7250: x_ExceptionLevel => rlm_message_sv.k_error_level,
7251: x_MessageName => 'RLM_SETUPAPI_FAILED',
7252: x_ChildMessageName => v_SetupTerms_rec.msg_name,
7253: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 7250: x_ExceptionLevel => rlm_message_sv.k_error_level,

7246: EXCEPTION
7247: WHEN e_SetupAPIFailed THEN
7248: --
7249: rlm_message_sv.app_error(
7250: x_ExceptionLevel => rlm_message_sv.k_error_level,
7251: x_MessageName => 'RLM_SETUPAPI_FAILED',
7252: x_ChildMessageName => v_SetupTerms_rec.msg_name,
7253: x_InterfaceHeaderId => x_sched_rec.header_id,
7254: x_InterfaceLineId => NULL,

Line 7530: rlm_message_sv.sql_error('GetAllIntransitQty',x_progress);

7526: --
7527: RAISE;
7528: --
7529: WHEN OTHERS THEN
7530: rlm_message_sv.sql_error('GetAllIntransitQty',x_progress);
7531: --
7532: IF (l_debug <> -1) THEN
7533: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7534: END IF;

Line 8035: rlm_message_sv.app_error(

8031: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
8032: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
8033: END IF;
8034: --
8035: rlm_message_sv.app_error(
8036: x_ExceptionLevel => rlm_message_sv.k_warn_level,
8037: x_MessageName => 'RLM_DUPLICATE_LINES',
8038: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
8039: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,

Line 8036: x_ExceptionLevel => rlm_message_sv.k_warn_level,

8032: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
8033: END IF;
8034: --
8035: rlm_message_sv.app_error(
8036: x_ExceptionLevel => rlm_message_sv.k_warn_level,
8037: x_MessageName => 'RLM_DUPLICATE_LINES',
8038: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
8039: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,
8040: x_token1=> 'MATCH_ATTRIBUTE',

Line 8521: rlm_message_sv.sql_error('GetIntransitAcrossOrgs',x_progress);

8517: --
8518: RAISE;
8519: --
8520: WHEN OTHERS THEN
8521: rlm_message_sv.sql_error('GetIntransitAcrossOrgs',x_progress);
8522: --
8523: IF (l_debug <> -1) THEN
8524: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8525: END IF;