120:
121: -- Call the transaction proxy which processes all the transactions.
122: INV_MGD_MVT_STATS_PROC.PROCESS_TRANSACTION
123: ( p_api_version_number => 1.0
124: , p_init_msg_list => FND_API.G_FALSE
125: , p_legal_entity_id => p_legal_entity_id
126: , p_start_date => l_server_start_date
127: , p_end_date => l_server_end_date
128: , p_source_type => NVL(p_source_type,'ALL')
130: , x_msg_data => l_msg_data
131: , x_return_status => l_return_status
132: );
133:
134: IF l_return_status = FND_API.G_RET_STS_SUCCESS
135: THEN
136: x_retcode := 0;
137: x_errbuf := NULL;
138: ELSE
135: THEN
136: x_retcode := 0;
137: x_errbuf := NULL;
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
147: );
148: END IF;
149:
150: EXCEPTION
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)
149:
150: EXCEPTION
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
167: );
168: 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
224: -- Call Exception verification procedure that validates all the transactions
225:
226: INV_MGD_MVT_VALIDATE_PROC.Validate_Transaction
227: ( p_api_version_number => 1.0
228: , p_init_msg_list => FND_API.G_FALSE
229: , p_legal_entity_id => p_legal_entity_id
230: , p_economic_zone_code => p_economic_zone_code
231: , p_usage_type => p_usage_type
232: , p_stat_type => p_stat_type
236: , x_msg_count => x_msg_count
237: , x_msg_data => x_msg_data
238: );
239:
240: IF x_return_status = FND_API.G_RET_STS_SUCCESS
241: THEN
242: x_retcode := 0;
243: x_errbuf := NULL;
244: ELSE
241: THEN
242: x_retcode := 0;
243: x_errbuf := NULL;
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
253: );
254: END IF;
255:
256: EXCEPTION
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)
255:
256: EXCEPTION
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
272: , 'Run Exception Verification'
273: );
274: 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
337:
338: -- Call the Reset Transaction procedure to reset the status to Open
339: INV_MGD_MVT_RESET_TRANS.Reset_Transaction_Status
340: ( p_api_version_number => 2.0
341: , p_init_msg_list => FND_API.G_FALSE
342: , p_legal_entity_id => p_legal_entity_id
343: , p_zone_code => p_economic_zone
344: , p_usage_type => p_usage_type
345: , p_stat_type => p_stat_type
350: , x_msg_count => l_msg_count
351: , x_msg_data => l_msg_data
352: );
353:
354: IF l_return_status = FND_API.G_RET_STS_SUCCESS
355: THEN
356: x_retcode := 0;
357: x_errbuf := NULL;
358: ELSE
355: THEN
356: x_retcode := 0;
357: x_errbuf := NULL;
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
366: ,'exit procedure'
367: );
368: END IF;
369: EXCEPTION
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)
368: END IF;
369: EXCEPTION
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
386: );
387: 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
446: -- Call the Purge Movement Transactions procedure to purge the transactions.
447:
448: INV_MGD_MVT_PURGE_TRANS.Purge_Movement_Transactions
449: ( p_api_version_number => 1.0
450: , p_init_msg_list => FND_API.G_FALSE
451: , p_legal_entity_id => p_legal_entity_id
452: , p_zone_code => p_economic_zone
453: , p_usage_type => p_usage_type
454: , p_stat_type => p_stat_type
458: , x_msg_count => x_msg_count
459: , x_msg_data => x_msg_data
460: );
461:
462: IF x_return_status = FND_API.G_RET_STS_SUCCESS
463: THEN
464: x_retcode := 0;
465: x_errbuf := NULL;
466: ELSE
463: THEN
464: x_retcode := 0;
465: x_errbuf := NULL;
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
474: ,'exit procedure'
475: );
476: END IF;
477: EXCEPTION
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)
476: END IF;
477: EXCEPTION
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
494: );
495: 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
568:
569: -- Call the Run Export Data procedure to generate the flat data file
570: INV_MGD_MVT_EXPORT_DATA.Generate_Export_Data
571: ( p_api_version_number => 1.0
572: , p_init_msg_list => FND_API.G_FALSE
573: , p_legal_entity_id => p_legal_entity_id
574: , p_zone_code => p_zone_code
575: , p_usage_type => p_usage_type
576: , p_stat_type => p_stat_type
582: , x_return_status => l_return_status
583: , x_msg_count => l_msg_count
584: , x_msg_data => l_msg_data);
585:
586: IF l_return_status = FND_API.G_RET_STS_SUCCESS
587: THEN
588: x_retcode := 0;
589: x_errbuf := NULL;
590: ELSE
587: THEN
588: x_retcode := 0;
589: x_errbuf := NULL;
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
598: ,'exit procedure'
599: );
600: END IF;
601: EXCEPTION
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)
600: END IF;
601: EXCEPTION
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
618: );
619: 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