70: l_server_end_date DATE;
71: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Movement_Stats';
72:
73: BEGIN
74: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
75: THEN
76: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
77: , G_MODULE_NAME || l_procedure_name || '.begin'
78: ,'enter procedure'
72:
73: BEGIN
74: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
75: THEN
76: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
77: , G_MODULE_NAME || l_procedure_name || '.begin'
78: ,'enter procedure'
79: );
80: END IF;
138: ELSE
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: END IF;
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
143: THEN
144: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
145: , G_MODULE_NAME || l_procedure_name || '.end'
146: ,'exit procedure'
140: END IF;
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
143: THEN
144: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
145: , G_MODULE_NAME || l_procedure_name || '.end'
146: ,'exit procedure'
147: );
148: END IF;
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: x_retcode := 2;
153: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
154:
155: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
156: THEN
157: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
158: , G_MODULE_NAME || l_procedure_name||' in unexpected exception'
159: , x_errbuf
153: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
154:
155: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
156: THEN
157: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
158: , G_MODULE_NAME || l_procedure_name||' in unexpected exception'
159: , x_errbuf
160: );
161: END IF;
169:
170: x_retcode := 2;
171: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
172:
173: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
174: THEN
175: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
176: , G_MODULE_NAME || l_procedure_name||' in others exception'
177: , x_errbuf
171: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
172:
173: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
174: THEN
175: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
176: , G_MODULE_NAME || l_procedure_name||' in others exception'
177: , x_errbuf
178: );
179: END IF;
209: x_msg_data VARCHAR2(1000);
210: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Exception_verification';
211:
212: BEGIN
213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
216: , G_MODULE_NAME || l_procedure_name || '.begin'
217: ,'enter procedure'
211:
212: BEGIN
213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
216: , G_MODULE_NAME || l_procedure_name || '.begin'
217: ,'enter procedure'
218: );
219: END IF;
244: ELSE
245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
246: END IF;
247:
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
251: , G_MODULE_NAME || l_procedure_name || '.end'
252: ,'exit procedure'
246: END IF;
247:
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
251: , G_MODULE_NAME || l_procedure_name || '.end'
252: ,'exit procedure'
253: );
254: END IF;
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: x_retcode := 2;
259: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
260:
261: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
262: THEN
263: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
264: , G_MODULE_NAME || l_procedure_name
265: , x_errbuf
259: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
260:
261: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
262: THEN
263: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
264: , G_MODULE_NAME || l_procedure_name
265: , x_errbuf
266: );
267: END IF;
275:
276: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
277: x_retcode := 2;
278:
279: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
280: THEN
281: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
282: , G_MODULE_NAME || l_procedure_name
283: , x_errbuf
277: x_retcode := 2;
278:
279: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
280: THEN
281: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
282: , G_MODULE_NAME || l_procedure_name
283: , x_errbuf
284: );
285: END IF;
323: l_msg_data VARCHAR2(1000);
324: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Reset_Status';
325:
326: BEGIN
327: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
328: THEN
329: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
330: , G_MODULE_NAME || l_procedure_name || '.begin'
331: ,'enter procedure'
325:
326: BEGIN
327: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
328: THEN
329: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
330: , G_MODULE_NAME || l_procedure_name || '.begin'
331: ,'enter procedure'
332: );
333: END IF;
358: ELSE
359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
360: END IF;
361:
362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
363: THEN
364: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
365: , G_MODULE_NAME || l_procedure_name || '.end'
366: ,'exit procedure'
360: END IF;
361:
362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
363: THEN
364: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
365: , G_MODULE_NAME || l_procedure_name || '.end'
366: ,'exit procedure'
367: );
368: END IF;
370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: x_retcode := 2;
372: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
373:
374: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
375: THEN
376: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
377: , G_MODULE_NAME || l_procedure_name
378: , x_errbuf
372: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
373:
374: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
375: THEN
376: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
377: , G_MODULE_NAME || l_procedure_name
378: , x_errbuf
379: );
380: END IF;
388:
389: x_retcode := 2;
390: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
391:
392: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
393: THEN
394: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
395: , G_MODULE_NAME || l_procedure_name
396: , x_errbuf
390: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
391:
392: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
393: THEN
394: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
395: , G_MODULE_NAME || l_procedure_name
396: , x_errbuf
397: );
398: END IF;
431: x_msg_data VARCHAR2(1000);
432: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Purge_Movement_Stats';
433:
434: BEGIN
435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
436: THEN
437: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
438: , G_MODULE_NAME || l_procedure_name || '.begin'
439: ,'enter procedure'
433:
434: BEGIN
435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
436: THEN
437: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
438: , G_MODULE_NAME || l_procedure_name || '.begin'
439: ,'enter procedure'
440: );
441: END IF;
466: ELSE
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
468: END IF;
469:
470: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
471: THEN
472: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
473: , G_MODULE_NAME || l_procedure_name || '.end'
474: ,'exit procedure'
468: END IF;
469:
470: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
471: THEN
472: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
473: , G_MODULE_NAME || l_procedure_name || '.end'
474: ,'exit procedure'
475: );
476: END IF;
478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479: x_retcode := 2;
480: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
481:
482: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
483: THEN
484: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
485: , G_MODULE_NAME || l_procedure_name
486: , x_errbuf
480: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
481:
482: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
483: THEN
484: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
485: , G_MODULE_NAME || l_procedure_name
486: , x_errbuf
487: );
488: END IF;
496:
497: x_retcode := 2;
498: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
499:
500: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
501: THEN
502: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
503: , G_MODULE_NAME || l_procedure_name
504: , x_errbuf
498: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
499:
500: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
501: THEN
502: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
503: , G_MODULE_NAME || l_procedure_name
504: , x_errbuf
505: );
506: END IF;
554: l_msg_count NUMBER;
555: l_msg_data VARCHAR2(2000);
556: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Export_Data';
557: BEGIN
558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
559: THEN
560: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
561: , G_MODULE_NAME || l_procedure_name || '.begin'
562: ,'enter procedure'
556: l_procedure_name CONSTANT VARCHAR2(30) := 'Run_Export_Data';
557: BEGIN
558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
559: THEN
560: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
561: , G_MODULE_NAME || l_procedure_name || '.begin'
562: ,'enter procedure'
563: );
564: END IF;
590: ELSE
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
594: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
595: THEN
596: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
597: , G_MODULE_NAME || l_procedure_name || '.end'
598: ,'exit procedure'
592: END IF;
593:
594: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
595: THEN
596: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
597: , G_MODULE_NAME || l_procedure_name || '.end'
598: ,'exit procedure'
599: );
600: END IF;
602: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
603: x_retcode := 2;
604: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
605:
606: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
607: THEN
608: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
609: , G_MODULE_NAME || l_procedure_name
610: , x_errbuf
604: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
605:
606: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
607: THEN
608: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
609: , G_MODULE_NAME || l_procedure_name
610: , x_errbuf
611: );
612: END IF;
620:
621: x_retcode := 2;
622: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
623:
624: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
625: THEN
626: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
627: , G_MODULE_NAME || l_procedure_name
628: , x_errbuf
622: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
623:
624: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
625: THEN
626: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
627: , G_MODULE_NAME || l_procedure_name
628: , x_errbuf
629: );
630: END IF;