1: Package Body MTH_PROCESS_TXN_PKG AS
2: /*$Header: mthptxnb.pls 120.5.12020000.1 2012/07/24 16:11:47 sasuren noship $ */
3:
4:
5: /* ****************************************************************************
68: IF (p_mode NOT IN ('INIT','INCR','RECAL') ) THEN
69: v_msg:=fnd_message.get_string('MTH','MTH_INCORRECT_MODE');
70: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
71: p_retcode := 2;
72: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
73: END IF;
74:
75: IF( p_source NOT IN ('CSVO','CSVS','CSVSO','TAG') ) THEN
76: v_msg:=fnd_message.get_string('MTH','MTH_INCORRECT_SOURCE');
75: IF( p_source NOT IN ('CSVO','CSVS','CSVSO','TAG') ) THEN
76: v_msg:=fnd_message.get_string('MTH','MTH_INCORRECT_SOURCE');
77: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
78: p_retcode := 2;
79: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
80: END IF;
81:
82:
83: IF (p_mode = 'RECAL') THEN
92:
93: IF l_count < 1 THEN
94: v_msg:=fnd_message.get_string('MTH','MTH_SITE_MIS_ERR');
95: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
96: RAISE MTH_PROCESS_TXN_PKG.RAISE_ERROR;
97: END IF;
98:
99:
100: IF (p_equipment_pk_key is not null) THEN
107:
108: IF l_count < 1 THEN
109: v_msg:=fnd_message.get_string('MTH','MTH_EQUIP_MIS_ERR');
110: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
111: RAISE MTH_PROCESS_TXN_PKG.RAISE_ERROR;
112: END IF;
113:
114: IF (l_recal_from_date IS NULL) THEN
115: v_msg:=fnd_message.get_string('MTH','MTH_NULL_RECAL_FROM_DATE');
114: IF (l_recal_from_date IS NULL) THEN
115: v_msg:=fnd_message.get_string('MTH','MTH_NULL_RECAL_FROM_DATE');
116: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
117: p_retcode := 2;
118: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
119: END IF;
120:
121: IF (l_recal_from_date > l_recal_to_date) THEN
122: v_msg:=fnd_message.get_string('MTH','MTH_RECAL_FROM_DATE');
121: IF (l_recal_from_date > l_recal_to_date) THEN
122: v_msg:=fnd_message.get_string('MTH','MTH_RECAL_FROM_DATE');
123: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
124: p_retcode := 2;
125: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
126: END IF;
127:
128: IF (p_source = 'TAG') THEN
129: v_msg:=fnd_message.get_string('MTH','MTH_ROUTE_IN_RECAL_MODE');
128: IF (p_source = 'TAG') THEN
129: v_msg:=fnd_message.get_string('MTH','MTH_ROUTE_IN_RECAL_MODE');
130: mth_util_pkg.log_msg(v_msg,mth_util_pkg.G_DBG_USER_ERROR);
131: p_retcode := 2;
132: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
133: END IF;
134:
135: IF (p_source IN ('CSVS','CSVSO') ) THEN
136:
148:
149: END IF;
150:
151: IF (l_retcode = 2) THEN
152: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
153: END IF;
154:
155: IF (l_retcode = 1) THEN
156: l_ret_code := l_retcode;
171:
172: END IF;
173:
174: IF (l_retcode = 2) THEN
175: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
176: END IF;
177:
178: IF (p_source = 'TAG') THEN
179: mth_util_pkg.log_msg('Call for tag route recalculation to be added later',mth_util_pkg.G_DBG_USER_ERROR);
188: p_plant_pk_key,
189: l_retcode
190: );
191: IF(l_retcode = 2) THEN
192: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
193: END IF;
194:
195: IF(l_retcode = 1) THEN
196: l_ret_code := l_retcode;
206: p_plant_pk_key,
207: l_retcode
208: );
209: IF(l_retcode = 2) THEN
210: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
211: END IF;
212:
213: IF(l_retcode = 1) THEN
214: l_ret_code := l_retcode;
216:
217: END IF;
218:
219: IF (l_ret_code = 1) THEN
220: RAISE MTH_PROCESS_TXN_PKG.VALIDATION_ERR;
221: END IF;
222:
223: IF (p_source IN ('CSVS','CSVSO') ) THEN
224: SELECT from_date
235: p_plant_pk_key,
236: l_retcode
237: );
238: IF(l_retcode = 2) THEN
239: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
240: END IF;
241:
242: IF(l_retcode = 1) THEN
243: l_ret_code := l_retcode;
259: p_plant_pk_key,
260: l_retcode
261: );
262: IF(l_retcode = 2) THEN
263: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
264: END IF;
265:
266: IF(l_retcode = 1) THEN
267: l_ret_code := l_retcode;
281: p_to_tz,
282: l_retcode
283: );
284: IF(l_retcode = 2) THEN
285: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
286: END IF;
287:
288: IF(l_retcode = 1) THEN
289: l_ret_code := l_retcode;
297: p_plant_pk_key,
298: l_retcode
299: );
300: IF(l_retcode = 2) THEN
301: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
302: END IF;
303:
304: IF(l_retcode = 1) THEN
305: l_ret_code := l_retcode;
313: p_plant_pk_key,
314: l_retcode
315: );
316: IF(l_retcode = 2) THEN
317: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
318: END IF;
319:
320: IF(l_retcode = 1) THEN
321: l_ret_code := l_retcode;
329: p_plant_pk_key,
330: l_retcode
331: );
332: IF(l_retcode = 2) THEN
333: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
334: END IF;
335:
336: IF(l_retcode = 1) THEN
337: l_ret_code := l_retcode;
346: p_plant_pk_key,
347: l_retcode
348: );
349: IF(l_retcode = 2) THEN
350: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
351: END IF;
352:
353: IF(l_retcode = 1) THEN
354: l_ret_code := l_retcode;
363: p_plant_pk_key,
364: l_retcode
365: );
366: IF(l_retcode = 2) THEN
367: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
368: END IF;
369:
370: IF(l_retcode = 1) THEN
371: l_ret_code := l_retcode;
378: p_plant_pk_key,
379: l_retcode
380: );
381: IF(l_retcode = 2) THEN
382: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
383: END IF;
384:
385: IF(l_retcode = 1) THEN
386: l_ret_code := l_retcode;
389: MTH_EVENT_GEN_PKG.MTH_GEN_HDL_EVTS_FROM_STS_OUT (p_mode,
390: l_retcode
391: );
392: IF(l_retcode = 2) THEN
393: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
394: END IF;
395:
396: IF(l_retcode = 1) THEN
397: l_ret_code := l_retcode;
407: p_plant_pk_key,
408: l_retcode
409: );
410: IF(l_retcode = 2) THEN
411: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
412: END IF;
413:
414: IF(l_retcode = 1) THEN
415: l_ret_code := l_retcode;
425: p_plant_pk_key,
426: l_retcode
427: );
428: IF(l_retcode = 2) THEN
429: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
430: END IF;
431:
432: IF(l_retcode = 1) THEN
433: l_ret_code := l_retcode;
442: p_plant_pk_key,
443: l_retcode
444: );
445: IF(l_retcode = 2) THEN
446: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
447: END IF;
448:
449: IF(l_retcode = 1) THEN
450: l_ret_code := l_retcode;
459: p_plant_pk_key,
460: l_retcode
461: );
462: IF(l_retcode = 2) THEN
463: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
464: END IF;
465:
466: IF(l_retcode = 1) THEN
467: l_ret_code := l_retcode;
472: MTH_EVENT_GEN_PKG.MTH_GEN_HDL_EVTS_FROM_STS_OUT (p_mode,
473: l_retcode
474: );
475: IF(l_retcode = 2) THEN
476: raise MTH_PROCESS_TXN_PKG.RAISE_ERROR;
477: END IF;
478:
479: IF(l_retcode = 1) THEN
480: l_ret_code := l_retcode;
558:
559: mth_util_pkg.log_msg('process_transactions end', mth_util_pkg.G_DBG_PROC_FUN_END);
560:
561: EXCEPTION
562: WHEN MTH_PROCESS_TXN_PKG.VALIDATION_ERR THEN
563: ROLLBACK;
564: p_retcode := 1;
565: mth_util_pkg.log_msg('Exception VALIDATION_ERR in process_transactions', mth_util_pkg.G_DBG_EXCEPTION);
566:
563: ROLLBACK;
564: p_retcode := 1;
565: mth_util_pkg.log_msg('Exception VALIDATION_ERR in process_transactions', mth_util_pkg.G_DBG_EXCEPTION);
566:
567: WHEN MTH_PROCESS_TXN_PKG.RAISE_ERROR THEN
568: ROLLBACK;
569: p_retcode := 2;
570: mth_util_pkg.log_msg('Exception RAISE_ERROR in process_transactions', mth_util_pkg.G_DBG_EXCEPTION);
571:
582: END process_transactions;
583:
584:
585:
586: END MTH_PROCESS_TXN_PKG;