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 379: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',

375: --
376: WHEN OTHERS THEN
377: --
378: x_ReturnStatus := rlm_core_sv.k_PROC_ERROR;
379: rlm_message_sv.sql_error('rlm_manage_demand_sv.ManageDemand',
380: v_Progress);
381: --
382: IF (l_debug <> -1) THEN
383: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

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

461: --
462: EXCEPTION
463: --
464: WHEN OTHERS THEN
465: rlm_message_sv.sql_error('rlm_manage_demand_sv.PopulateLastReceiptRec',
466: v_Progress);
467: --
468: IF (l_debug <> -1) THEN
469: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 587: rlm_message_sv.app_error(

583: END IF;
584: --
585: WHEN TOO_MANY_ROWS THEN
586: --
587: rlm_message_sv.app_error(
588: x_ExceptionLevel => rlm_message_sv.k_error_level,
589: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
590: x_InterfaceHeaderId => x_sched_rec.header_id,
591: x_InterfaceLineId => NULL,

Line 588: x_ExceptionLevel => rlm_message_sv.k_error_level,

584: --
585: WHEN TOO_MANY_ROWS THEN
586: --
587: rlm_message_sv.app_error(
588: x_ExceptionLevel => rlm_message_sv.k_error_level,
589: x_MessageName => 'RLM_MULTIPLE_ITM_CUM_DTL_FOUND',
590: x_InterfaceHeaderId => x_sched_rec.header_id,
591: x_InterfaceLineId => NULL,
592: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

610: RAISE e_GroupError;
611: --*/
612: WHEN OTHERS THEN
613: --
614: rlm_message_sv.sql_error('rlm_manage_demand.PopulateCUMRec',
615: v_Progress);
616: --
617: IF (l_debug <> -1) THEN
618: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

728: EXCEPTION
729: --
730: WHEN OTHERS THEN
731: --
732: rlm_message_sv.sql_error('rlm_manage_demand.PopulateMD',v_Progress);
733: --
734: IF (l_debug <> -1) THEN
735: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
736: END IF;

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

763:
764: EXCEPTION
765:
766: WHEN OTHERS THEN
767: rlm_message_sv.sql_error('rlm_manage_demand_sv.UOMConversion', v_Progress);
768: --
769: IF (l_debug <> -1) THEN
770: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
771: END IF;

Line 836: rlm_message_sv.get_msg_text(

832: g_CUM_tab(v_Count).primary_quantity > 0 THEN
833:
834: --Bugfix 7007638
835: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
836: rlm_message_sv.get_msg_text(
837: x_message_name => 'RLM_CUM_CONTROL_PO',
838: x_text => v_control_text);
839: v_control_value := g_CUM_tab(v_Count).purchase_order_number;
840: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 841: rlm_message_sv.get_msg_text(

837: x_message_name => 'RLM_CUM_CONTROL_PO',
838: x_text => v_control_text);
839: v_control_value := g_CUM_tab(v_Count).purchase_order_number;
840: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
841: rlm_message_sv.get_msg_text(
842: x_message_name => 'RLM_CUM_CONTROL_RY',
843: x_text => v_control_text);
844: v_control_value := g_CUM_tab(v_Count).cust_record_year;
845: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 846: rlm_message_sv.get_msg_text(

842: x_message_name => 'RLM_CUM_CONTROL_RY',
843: x_text => v_control_text);
844: v_control_value := g_CUM_tab(v_Count).cust_record_year;
845: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
846: rlm_message_sv.get_msg_text(
847: x_message_name => 'RLM_CUM_CONTROL_DATE',
848: x_text => v_control_text);
849: v_control_value := g_CUM_tab(v_Count).start_date_time;
850: END IF;

Line 1077: rlm_message_sv.app_error(

1073: v_InterfaceLineId := NULL;
1074: --
1075: END;
1076: --
1077: rlm_message_sv.app_error(
1078: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1079: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1080: x_InterfaceHeaderId => x_sched_rec.header_id,
1081: x_InterfaceLineId => v_InterfaceLineId,

Line 1078: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1074: --
1075: END;
1076: --
1077: rlm_message_sv.app_error(
1078: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1079: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1080: x_InterfaceHeaderId => x_sched_rec.header_id,
1081: x_InterfaceLineId => v_InterfaceLineId,
1082: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1126: rlm_message_sv.app_error(

1122: v_InterfaceLineId := NULL;
1123: --
1124: END;
1125: --
1126: rlm_message_sv.app_error(
1127: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1128: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1129: x_InterfaceHeaderId => x_sched_rec.header_id,
1130: x_InterfaceLineId => v_InterfaceLineId,

Line 1127: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1123: --
1124: END;
1125: --
1126: rlm_message_sv.app_error(
1127: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1128: x_MessageName => 'RLM_CUM_QTY_DISCREPANCY',
1129: x_InterfaceHeaderId => x_sched_rec.header_id,
1130: x_InterfaceLineId => v_InterfaceLineId,
1131: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1175: rlm_message_sv.app_error(

1171: v_InterfaceLineId := NULL;
1172: --
1173: END;
1174: --
1175: rlm_message_sv.app_error(
1176: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1177: x_MessageName => 'RLM_CUM_KEY_MISSING',
1178: x_InterfaceHeaderId => x_sched_rec.header_id,
1179: x_InterfaceLineId => v_InterfaceLineId,

Line 1176: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1172: --
1173: END;
1174: --
1175: rlm_message_sv.app_error(
1176: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1177: x_MessageName => 'RLM_CUM_KEY_MISSING',
1178: x_InterfaceHeaderId => x_sched_rec.header_id,
1179: x_InterfaceLineId => v_InterfaceLineId,
1180: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1220: rlm_message_sv.app_error(

1216: v_InterfaceLineId := NULL;
1217: --
1218: END;
1219: --
1220: rlm_message_sv.app_error(
1221: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1222: x_MessageName => 'RLM_CUM_FOR_ITEM_NOT_ENABLED',
1223: x_InterfaceHeaderId => x_sched_rec.header_id,
1224: x_InterfaceLineId => v_InterfaceLineId,

Line 1221: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1217: --
1218: END;
1219: --
1220: rlm_message_sv.app_error(
1221: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1222: x_MessageName => 'RLM_CUM_FOR_ITEM_NOT_ENABLED',
1223: x_InterfaceHeaderId => x_sched_rec.header_id,
1224: x_InterfaceLineId => v_InterfaceLineId,
1225: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

1273: v_InterfaceLineId := NULL;
1274: --
1275: END;
1276: --
1277: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1278: --
1279: rlm_message_sv.app_error(
1280: x_ExceptionLevel => rlm_message_sv.k_error_level,
1281: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',

Line 1279: rlm_message_sv.app_error(

1275: END;
1276: --
1277: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1278: --
1279: rlm_message_sv.app_error(
1280: x_ExceptionLevel => rlm_message_sv.k_error_level,
1281: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',
1282: x_ChildMessageName => v_cum_record.msg_name,
1283: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 1280: x_ExceptionLevel => rlm_message_sv.k_error_level,

1276: --
1277: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',v_Progress);
1278: --
1279: rlm_message_sv.app_error(
1280: x_ExceptionLevel => rlm_message_sv.k_error_level,
1281: x_MessageName => 'RLM_CALC_CUM_KEY_FAILED',
1282: x_ChildMessageName => v_cum_record.msg_name,
1283: x_InterfaceHeaderId => x_sched_rec.header_id,
1284: x_InterfaceLineId => v_InterfaceLineId,

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

1305: raise e_GroupError;
1306: --
1307: WHEN e_CalSupCumAPIFailed THEN /* This is never raised */
1308: --
1309: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1310: --
1311: rlm_message_sv.app_error(
1312: x_ExceptionLevel => rlm_message_sv.k_error_level,
1313: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',

Line 1311: rlm_message_sv.app_error(

1307: WHEN e_CalSupCumAPIFailed THEN /* This is never raised */
1308: --
1309: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1310: --
1311: rlm_message_sv.app_error(
1312: x_ExceptionLevel => rlm_message_sv.k_error_level,
1313: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',
1314: x_ChildMessageName => v_cum_record.msg_name,
1315: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 1312: x_ExceptionLevel => rlm_message_sv.k_error_level,

1308: --
1309: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck', v_Progress);
1310: --
1311: rlm_message_sv.app_error(
1312: x_ExceptionLevel => rlm_message_sv.k_error_level,
1313: x_MessageName => 'RLM_CALC_SUPCUM_KEY_FAILED',
1314: x_ChildMessageName => v_cum_record.msg_name,
1315: x_InterfaceHeaderId => x_sched_rec.header_id,
1316: x_InterfaceLineId => NULL,

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

1330: raise e_GroupError;
1331: --
1332: WHEN OTHERS THEN
1333: --
1334: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMDiscrepancyCheck',
1335: v_Progress);
1336: --
1337: IF (l_debug <> -1) THEN
1338: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

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

1400: EXCEPTION
1401: --
1402: WHEN OTHERS THEN
1403: --
1404: rlm_message_sv.sql_error('rlm_manage_demand_sv.SetOperation', v_Progress);
1405: --
1406: IF (l_debug <> -1) THEN
1407: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1408: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 1546: rlm_message_sv.get_msg_text(

1542: rlm_tpa_sv.CalculateCumKey(v_cum_key_record, v_cum_record);
1543: --
1544: --Bugfix 7007638
1545: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
1546: rlm_message_sv.get_msg_text(
1547: x_message_name => 'RLM_CUM_CONTROL_PO',
1548: x_text => v_control_text);
1549: v_control_value := g_CUM_tab(v_Count1).purchase_order_number;
1550: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 1551: rlm_message_sv.get_msg_text(

1547: x_message_name => 'RLM_CUM_CONTROL_PO',
1548: x_text => v_control_text);
1549: v_control_value := g_CUM_tab(v_Count1).purchase_order_number;
1550: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
1551: rlm_message_sv.get_msg_text(
1552: x_message_name => 'RLM_CUM_CONTROL_RY',
1553: x_text => v_control_text);
1554: v_control_value := g_CUM_tab(v_Count1).cust_record_year;
1555: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 1556: rlm_message_sv.get_msg_text(

1552: x_message_name => 'RLM_CUM_CONTROL_RY',
1553: x_text => v_control_text);
1554: v_control_value := g_CUM_tab(v_Count1).cust_record_year;
1555: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
1556: rlm_message_sv.get_msg_text(
1557: x_message_name => 'RLM_CUM_CONTROL_DATE',
1558: x_text => v_control_text);
1559: v_control_value := g_CUM_tab(v_Count1).start_date_time;
1560: END IF;

Line 1614: rlm_message_sv.app_error(

1610: IF g_ManageDemand_tab(v_Count).primary_quantity < 0 THEN
1611: --
1612: --bsadri: just give a warning bug 1966050
1613: --
1614: rlm_message_sv.app_error(
1615: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1616: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1617: x_InterfaceHeaderId => x_sched_rec.header_id,
1618: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,

Line 1615: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1611: --
1612: --bsadri: just give a warning bug 1966050
1613: --
1614: rlm_message_sv.app_error(
1615: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1616: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1617: x_InterfaceHeaderId => x_sched_rec.header_id,
1618: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,
1619: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1714: rlm_message_sv.get_msg_text(

1710: rlm_tpa_sv.CalculateCumKey(v_cum_key_record, v_cum_record);
1711: --
1712: --Bugfix 7007638
1713: IF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_PO','CUM_BY_PO_ONLY') THEN
1714: rlm_message_sv.get_msg_text(
1715: x_message_name => 'RLM_CUM_CONTROL_PO',
1716: x_text => v_control_text);
1717: v_control_value := v_cum_key_record.purchase_order_number;
1718: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN

Line 1719: rlm_message_sv.get_msg_text(

1715: x_message_name => 'RLM_CUM_CONTROL_PO',
1716: x_text => v_control_text);
1717: v_control_value := v_cum_key_record.purchase_order_number;
1718: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_RECORD_YEAR') THEN
1719: rlm_message_sv.get_msg_text(
1720: x_message_name => 'RLM_CUM_CONTROL_RY',
1721: x_text => v_control_text);
1722: v_control_value := v_cum_key_record.cust_record_year;
1723: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN

Line 1724: rlm_message_sv.get_msg_text(

1720: x_message_name => 'RLM_CUM_CONTROL_RY',
1721: x_text => v_control_text);
1722: v_control_value := v_cum_key_record.cust_record_year;
1723: ELSIF x_Group_rec.setup_terms_rec.cum_control_code IN ('CUM_BY_DATE_ONLY') THEN
1724: rlm_message_sv.get_msg_text(
1725: x_message_name => 'RLM_CUM_CONTROL_DATE',
1726: x_text => v_control_text);
1727: v_control_value := v_cum_record.cum_start_date;
1728: END IF;

Line 1778: rlm_message_sv.app_error(

1774: IF g_ManageDemand_tab(v_Count).primary_quantity < 0 THEN
1775: --
1776: --bsadri: just give a warning bug 1966050
1777: --
1778: rlm_message_sv.app_error(
1779: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1780: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1781: x_InterfaceHeaderId => x_sched_rec.header_id,
1782: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,

Line 1779: x_ExceptionLevel => rlm_message_sv.k_warn_level,

1775: --
1776: --bsadri: just give a warning bug 1966050
1777: --
1778: rlm_message_sv.app_error(
1779: x_ExceptionLevel => rlm_message_sv.k_warn_level,
1780: x_MessageName => 'RLM_DISCRETE_QTY_NEGATIVE',
1781: x_InterfaceHeaderId => x_sched_rec.header_id,
1782: x_InterfaceLineId => g_ManageDemand_tab(v_Count).line_id,
1783: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1832: rlm_message_sv.app_error(

1828: EXCEPTION
1829: --
1830: WHEN e_noSupplierCum THEN
1831: --
1832: rlm_message_sv.app_error(
1833: x_ExceptionLevel => rlm_message_sv.k_error_level,
1834: x_MessageName => 'RLM_CUM_KEY_NOTFOUND',
1835: x_InterfaceHeaderId => x_sched_rec.header_id,
1836: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1833: x_ExceptionLevel => rlm_message_sv.k_error_level,

1829: --
1830: WHEN e_noSupplierCum THEN
1831: --
1832: rlm_message_sv.app_error(
1833: x_ExceptionLevel => rlm_message_sv.k_error_level,
1834: x_MessageName => 'RLM_CUM_KEY_NOTFOUND',
1835: x_InterfaceHeaderId => x_sched_rec.header_id,
1836: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1837: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1862: rlm_message_sv.app_error(

1858: WHEN e_UomMismatch THEN
1859: --
1860: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN
1861: --
1862: rlm_message_sv.app_error(
1863: x_ExceptionLevel => rlm_message_sv.k_error_level,
1864: x_MessageName => 'RLM_CUM_UOM_MISMATCH_SEQ',
1865: x_InterfaceHeaderId => x_sched_rec.header_id,
1866: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1863: x_ExceptionLevel => rlm_message_sv.k_error_level,

1859: --
1860: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN
1861: --
1862: rlm_message_sv.app_error(
1863: x_ExceptionLevel => rlm_message_sv.k_error_level,
1864: x_MessageName => 'RLM_CUM_UOM_MISMATCH_SEQ',
1865: x_InterfaceHeaderId => x_sched_rec.header_id,
1866: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1867: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 1892: rlm_message_sv.app_error(

1888: END IF;
1889: --
1890: ELSE
1891: --
1892: rlm_message_sv.app_error(
1893: x_ExceptionLevel => rlm_message_sv.k_error_level,
1894: x_MessageName => 'RLM_CUM_UOM_MISMATCH',
1895: x_InterfaceHeaderId => x_sched_rec.header_id,
1896: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,

Line 1893: x_ExceptionLevel => rlm_message_sv.k_error_level,

1889: --
1890: ELSE
1891: --
1892: rlm_message_sv.app_error(
1893: x_ExceptionLevel => rlm_message_sv.k_error_level,
1894: x_MessageName => 'RLM_CUM_UOM_MISMATCH',
1895: x_InterfaceHeaderId => x_sched_rec.header_id,
1896: x_InterfaceLineId => g_ManageDemand_tab(v_current_rec).line_id,
1897: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

1921: --
1922:
1923: WHEN OTHERS THEN
1924: --
1925: rlm_message_sv.sql_error('rlm_manage_demand_sv.CUMToDiscrete', v_Progress);
1926: --
1927: IF (l_debug <> -1) THEN
1928: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
1929: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 2567: rlm_message_sv.app_error(

2563: rlm_core_sv.dlog(C_DEBUG, 'Schedule_Line_ID',
2564: g_ManageDemand_tab(i).schedule_line_id );
2565: END IF;
2566: --
2567: rlm_message_sv.app_error(
2568: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2569: x_MessageName => 'RLM_CUMORGLEVEL_INVALID',
2570: x_InterfaceHeaderId => x_sched_rec.header_id,
2571: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 2568: x_ExceptionLevel => rlm_message_sv.k_warn_level,

2564: g_ManageDemand_tab(i).schedule_line_id );
2565: END IF;
2566: --
2567: rlm_message_sv.app_error(
2568: x_ExceptionLevel => rlm_message_sv.k_warn_level,
2569: x_MessageName => 'RLM_CUMORGLEVEL_INVALID',
2570: x_InterfaceHeaderId => x_sched_rec.header_id,
2571: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
2572: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

2856: END IF;
2857: --
2858: WHEN OTHERS THEN
2859: --
2860: rlm_message_sv.sql_error('rlm_managedemand_sv.ApplySourceRules',
2861: v_Progress);
2862: IF (l_debug <> -1) THEN
2863: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
2864: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 3002: rlm_message_sv.app_error(

2998: FOR j in 1..v_message_tab.COUNT LOOP
2999: --
3000: IF v_message_tab(j).ErrType = -1 THEN
3001: --
3002: rlm_message_sv.app_error(
3003: x_ExceptionLevel => rlm_message_sv.k_error_level,
3004: x_MessageName => 'RLM_SHIPDELAPI_FAILED',
3005: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3006: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 3003: x_ExceptionLevel => rlm_message_sv.k_error_level,

2999: --
3000: IF v_message_tab(j).ErrType = -1 THEN
3001: --
3002: rlm_message_sv.app_error(
3003: x_ExceptionLevel => rlm_message_sv.k_error_level,
3004: x_MessageName => 'RLM_SHIPDELAPI_FAILED',
3005: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3006: x_InterfaceHeaderId => x_sched_rec.header_id,
3007: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3021: rlm_message_sv.app_error(

3017: END IF;
3018: --
3019: ELSIF v_message_tab(j).ErrType = 0 THEN
3020: --
3021: rlm_message_sv.app_error(
3022: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3023: x_MessageName => 'RLM_SHIPDELAPI_WARN',
3024: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3025: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 3022: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3018: --
3019: ELSIF v_message_tab(j).ErrType = 0 THEN
3020: --
3021: rlm_message_sv.app_error(
3022: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3023: x_MessageName => 'RLM_SHIPDELAPI_WARN',
3024: x_ChildMessageName => v_message_tab(j).ErrMessageName,
3025: x_InterfaceHeaderId => x_sched_rec.header_id,
3026: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3454: rlm_message_sv.app_error(

3450: RLM_RD_SV.GetMatchAttributes(x_Sched_rec, v_Group_rec, v_match_rec, v_MatchAttrTxt);
3451: --
3452: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3453: --
3454: rlm_message_sv.app_error(
3455: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3456: x_MessageName => 'RLM_PAST_DUE_DEMAND_SEQ',
3457: x_InterfaceHeaderId => x_sched_rec.header_id,
3458: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3455: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3451: --
3452: IF (x_sched_rec.schedule_type = 'SEQUENCED') THEN --{
3453: --
3454: rlm_message_sv.app_error(
3455: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3456: x_MessageName => 'RLM_PAST_DUE_DEMAND_SEQ',
3457: x_InterfaceHeaderId => x_sched_rec.header_id,
3458: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
3459: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

Line 3490: rlm_message_sv.app_error(

3486: END IF;
3487: --
3488: ELSE --}{
3489: --
3490: rlm_message_sv.app_error(
3491: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3492: x_MessageName => 'RLM_PAST_DUE_DEMAND',
3493: x_InterfaceHeaderId => x_sched_rec.header_id,
3494: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,

Line 3491: x_ExceptionLevel => rlm_message_sv.k_warn_level,

3487: --
3488: ELSE --}{
3489: --
3490: rlm_message_sv.app_error(
3491: x_ExceptionLevel => rlm_message_sv.k_warn_level,
3492: x_MessageName => 'RLM_PAST_DUE_DEMAND',
3493: x_InterfaceHeaderId => x_sched_rec.header_id,
3494: x_InterfaceLineId => g_ManageDemand_tab(i).line_id,
3495: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

3983: END IF;
3984: --
3985: WHEN OTHERS THEN
3986: --
3987: rlm_message_sv.sql_error('rlm_manage_demand_sv.ApplyFFFFences', v_Progress);
3988: --
3989: IF (l_debug <> -1) THEN
3990: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
3991: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

4046: --
4047: EXCEPTION
4048:
4049: WHEN OTHERS THEN
4050: rlm_message_sv.sql_error('rlm_manage_demand_sv.ProcessTable',
4051: v_Progress);
4052: --
4053: IF (l_debug <> -1) THEN
4054: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

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

4096:
4097: EXCEPTION
4098:
4099: WHEN OTHERS THEN
4100: rlm_message_sv.sql_error('rlm_manage_demand_sv.DeleteReq',
4101: v_Progress);
4102: --
4103: IF (l_debug <> -1) THEN
4104: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 4718: rlm_message_sv.app_error(

4714: EXCEPTION
4715: --
4716: WHEN e_NullOrgId THEN
4717: --
4718: rlm_message_sv.app_error(
4719: x_ExceptionLevel => rlm_message_sv.k_error_level,
4720: x_MessageName => 'RLM_OU_CONTEXT_NOT_SET',
4721: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4722: x_InterfaceLineId => x_ManageDemand_rec.line_id);

Line 4719: x_ExceptionLevel => rlm_message_sv.k_error_level,

4715: --
4716: WHEN e_NullOrgId THEN
4717: --
4718: rlm_message_sv.app_error(
4719: x_ExceptionLevel => rlm_message_sv.k_error_level,
4720: x_MessageName => 'RLM_OU_CONTEXT_NOT_SET',
4721: x_InterfaceHeaderId => x_ManageDemand_rec.header_id,
4722: x_InterfaceLineId => x_ManageDemand_rec.line_id);
4723: --

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

4728: --
4729: RAISE;
4730: --
4731: WHEN OTHERS THEN
4732: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertReq',
4733: v_Progress);
4734: --
4735: IF (l_debug <> -1) THEN
4736: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

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

4794: --
4795: EXCEPTION
4796:
4797: WHEN OTHERS THEN
4798: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateReq',
4799: v_Progress);
4800: --
4801: IF (l_debug <> -1) THEN
4802: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

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

4846: --
4847: EXCEPTION
4848:
4849: WHEN OTHERS THEN
4850: rlm_message_sv.sql_error('rlm_manage_demand_sv.UpdateSchedule', v_Progress);
4851: --
4852: IF (l_debug <> -1) THEN
4853: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
4854: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

5384: EXCEPTION
5385: --
5386: WHEN OTHERS THEN
5387: --
5388: rlm_message_sv.sql_error('rlm_manage_demand_sv.MatchDemand', v_Progress);
5389: --
5390: IF (l_debug <> -1) THEN
5391: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5392: END IF;

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

5472: --
5473: EXCEPTION
5474:
5475: WHEN OTHERS THEN
5476: rlm_message_sv.sql_error('rlm_manage_demand_sv.AggregateDemand', v_Progress);
5477: --
5478: IF (l_debug <> -1) THEN
5479: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5480: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

5558:
5559: EXCEPTION
5560:
5561: WHEN OTHERS THEN
5562: rlm_message_sv.sql_error('rlm_manage_demand_sv.SortDemand', v_Progress);
5563: --
5564: IF (l_debug <> -1) THEN
5565: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5566: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

5627:
5628: EXCEPTION
5629:
5630: WHEN OTHERS THEN
5631: rlm_message_sv.sql_error('rlm_manage_demand_sv.QuickSort', v_Progress);
5632: --
5633: IF (l_debug <> -1) THEN
5634: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5635: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

5663:
5664: EXCEPTION
5665:
5666: WHEN OTHERS THEN
5667: rlm_message_sv.sql_error('rlm_manage_demand_sv.Swap', v_Progress);
5668: --
5669: IF (l_debug <> -1) THEN
5670: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5671: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

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

5713: --
5714: EXCEPTION
5715:
5716: WHEN OTHERS THEN
5717: rlm_message_sv.sql_error('rlm_manage_demand_sv.InsertionSort', v_Progress);
5718: --
5719: IF (l_debug <> -1) THEN
5720: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);
5721: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));

Line 5947: rlm_message_sv.app_error(

5943: rlm_core_sv.dlog(C_DEBUG,'WARNING overshipment has occured by qty = '
5944: ,v_qty_after_round - v_qty_before_round);
5945: END IF;
5946: --
5947: rlm_message_sv.app_error(
5948: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5949: x_MessageName => 'RLM_OVERSHIP_ITEM',
5950: x_InterfaceHeaderId => x_sched_rec.header_id,
5951: x_InterfaceLineId => g_ManageDemand_tab(g_ManageDemand_tab.COUNT).line_id,

Line 5948: x_ExceptionLevel => rlm_message_sv.k_warn_level,

5944: ,v_qty_after_round - v_qty_before_round);
5945: END IF;
5946: --
5947: rlm_message_sv.app_error(
5948: x_ExceptionLevel => rlm_message_sv.k_warn_level,
5949: x_MessageName => 'RLM_OVERSHIP_ITEM',
5950: x_InterfaceHeaderId => x_sched_rec.header_id,
5951: x_InterfaceLineId => g_ManageDemand_tab(g_ManageDemand_tab.COUNT).line_id,
5952: x_ScheduleHeaderId => x_sched_rec.schedule_header_id,

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

5976: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
5977: END IF;
5978:
5979: WHEN OTHERS THEN
5980: rlm_message_sv.sql_error('rlm_manage_demand_sv.RoundStandardPack',
5981: v_Progress);
5982: --
5983: IF (l_debug <> -1) THEN
5984: rlm_core_sv.dlog(C_DEBUG,'progress',v_Progress);

Line 6322: rlm_message_sv.app_error(

6318: v_InterfaceLineId := NULL;
6319: --
6320: END;
6321: --
6322: rlm_message_sv.app_error(
6323: x_ExceptionLevel => rlm_message_sv.k_error_level,
6324: x_MessageName => 'RLM_SETUPAPI_FAILED',
6325: x_ChildMessageName => v_SetupTerms_rec.msg_name,
6326: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 6323: x_ExceptionLevel => rlm_message_sv.k_error_level,

6319: --
6320: END;
6321: --
6322: rlm_message_sv.app_error(
6323: x_ExceptionLevel => rlm_message_sv.k_error_level,
6324: x_MessageName => 'RLM_SETUPAPI_FAILED',
6325: x_ChildMessageName => v_SetupTerms_rec.msg_name,
6326: x_InterfaceHeaderId => x_sched_rec.header_id,
6327: x_InterfaceLineId => v_InterfaceLineId,

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

6422: --
6423: RETURN(FALSE);
6424:
6425: WHEN OTHERS THEN
6426: rlm_message_sv.sql_error('rlm_managedemand_sv.LockLines', x_progress);
6427: --
6428: IF (l_debug <> -1) THEN
6429: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6430: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

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

6484: rlm_core_sv.dpop(C_SDEBUG);
6485: END IF;
6486:
6487: WHEN OTHERS THEN
6488: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateHeaderStatus',x_progress);
6489: --
6490: IF (l_debug <> -1) THEN
6491: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6492: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

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

6601: END IF;
6602: --
6603: WHEN OTHERS THEN
6604: --
6605: rlm_message_sv.sql_error('rlm_managedemand_sv.UpdateGroupStatus',x_progress);
6606: --
6607: IF (l_debug <> -1) THEN
6608: rlm_core_sv.dlog(C_DEBUG,'progress',x_Progress);
6609: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: OTHER - sql error');

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

6659: --
6660: EXCEPTION
6661: --
6662: WHEN OTHERS THEN
6663: rlm_message_sv.sql_error('rlm_managedemand_sv.GetConvertedLeadTime',
6664: x_progress);
6665: --
6666: IF (l_debug <> -1) THEN
6667: rlm_core_sv.dpop(C_SDEBUG);

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

6766: END IF;
6767: --
6768: WHEN OTHERS THEN
6769: --
6770: rlm_message_sv.sql_error('rlm_ManageDemand_sv.GetTPContext',v_Progress);
6771: --
6772: IF (l_debug <> -1) THEN
6773: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6774: END IF;

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

6989: --
6990: RAISE;
6991: --
6992: WHEN OTHERS THEN
6993: rlm_message_sv.sql_error('rlm_rd_sv.CalculateIntransitQty',x_progress);
6994: --
6995: IF (l_debug <> -1) THEN
6996: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
6997: END IF;

Line 7159: rlm_message_sv.app_error(

7155:
7156: EXCEPTION
7157: WHEN e_SetupAPIFailed THEN
7158: --
7159: rlm_message_sv.app_error(
7160: x_ExceptionLevel => rlm_message_sv.k_error_level,
7161: x_MessageName => 'RLM_SETUPAPI_FAILED',
7162: x_ChildMessageName => v_SetupTerms_rec.msg_name,
7163: x_InterfaceHeaderId => x_sched_rec.header_id,

Line 7160: x_ExceptionLevel => rlm_message_sv.k_error_level,

7156: EXCEPTION
7157: WHEN e_SetupAPIFailed THEN
7158: --
7159: rlm_message_sv.app_error(
7160: x_ExceptionLevel => rlm_message_sv.k_error_level,
7161: x_MessageName => 'RLM_SETUPAPI_FAILED',
7162: x_ChildMessageName => v_SetupTerms_rec.msg_name,
7163: x_InterfaceHeaderId => x_sched_rec.header_id,
7164: x_InterfaceLineId => NULL,

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

7436: --
7437: RAISE;
7438: --
7439: WHEN OTHERS THEN
7440: rlm_message_sv.sql_error('GetAllIntransitQty',x_progress);
7441: --
7442: IF (l_debug <> -1) THEN
7443: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
7444: END IF;

Line 7945: rlm_message_sv.app_error(

7941: rlm_core_sv.dpush(C_SDEBUG,'printMessage');
7942: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
7943: END IF;
7944: --
7945: rlm_message_sv.app_error(
7946: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7947: x_MessageName => 'RLM_DUPLICATE_LINES',
7948: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
7949: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,

Line 7946: x_ExceptionLevel => rlm_message_sv.k_warn_level,

7942: rlm_core_sv.dlog(C_DEBUG,'warning for:', x_lookupCode);
7943: END IF;
7944: --
7945: rlm_message_sv.app_error(
7946: x_ExceptionLevel => rlm_message_sv.k_warn_level,
7947: x_MessageName => 'RLM_DUPLICATE_LINES',
7948: x_InterfaceHeaderId => g_ManageDemand_tab(1).header_id,
7949: x_InterfaceLineId => g_ManageDemand_tab(1).line_id,
7950: x_token1=> 'MATCH_ATTRIBUTE',

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

8428: --
8429: RAISE;
8430: --
8431: WHEN OTHERS THEN
8432: rlm_message_sv.sql_error('GetIntransitAcrossOrgs',x_progress);
8433: --
8434: IF (l_debug <> -1) THEN
8435: rlm_core_sv.dpop(C_SDEBUG,'EXCEPTION: '||SUBSTR(SQLERRM,1,200));
8436: END IF;