[Home] [Help]
88: ,'enter procedure'
89: );
90: END IF;
91:
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: l_movement_transaction := p_movement_transaction;
94: l_stat_typ_transaction := p_stat_typ_transaction;
95:
96: INV_MGD_MVT_UTILS_PKG.Mvt_Stats_Util_Info
98: , x_movement_transaction => l_movement_transaction
99: , x_return_status => l_return_status
100: );
101:
102: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
103: THEN
104: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
105: THEN
106: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
108: || '.Failed when call mvt_stats_util_info'
109: ,'Failed'
110: );
111: END IF;
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSE
114: l_movement_transaction.customer_vat_number :=
115: INV_MGD_MVT_UTILS_PKG.Get_Cust_VAT_Number
116: (l_movement_transaction.bill_to_site_use_id);
134: l_movement_transaction.triangulation_country_code := l_movement_transaction.dispatch_territory_code;
135:
136: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
137: (p_api_version_number => 1.0
138: ,p_init_msg_list => FND_API.G_FALSE
139: ,x_movement_transaction => l_movement_transaction
140: ,x_msg_count => x_msg_count
141: ,x_msg_data => x_msg_data
142: ,x_return_status => l_insert_status
144: END IF;
145:
146:
147:
148: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
149: THEN
150: COMMIT;
151: END IF;
152: g_records_processed := g_records_processed +1;
161: );
162: END IF;
163:
164: EXCEPTION
165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
168:
169: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
162: END IF;
163:
164: EXCEPTION
165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
168:
169: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
170: THEN
163:
164: EXCEPTION
165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
168:
169: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
170: THEN
171: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
204: END Process_RMA_Triangulation;
205: --========================================================================
206: -- PROCEDURE : Process_Transaction PRIVATE
207: -- PARAMETERS: p_api_version_number known api version
208: -- p_init_msg_list FND_API.G_TRUE to reset list
209: -- x_return_status return status
210: -- x_msg_count number of messages in the list
211: -- x_msg_data message text
212: -- p_legal_entity_id Legal Entity ID
247: ,'enter procedure'
248: );
249: END IF;
250:
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252:
253: -- Get the setup info to determine if the transactions are to be
254: -- processed further.
255:
265: , p_transaction_type => p_source_type
266: , x_return_status => l_return_status
267: );
268:
269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
270: THEN
271: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
272: THEN
273: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
276: ,'Failed'
277: );
278: END IF;
279:
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283: END IF;
284:
292: , p_transaction_type => p_source_type
293: , x_return_status => l_return_status
294: );
295:
296: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
297: THEN
298: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
303: ,'Failed'
304: );
305: END IF;
306:
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: --Process pending transactions
311: Process_Pending_Transaction
315: , p_transaction_type => p_source_type
316: , x_return_status => l_return_status
317: );
318:
319: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
320: THEN
321: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: THEN
323: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
326: ,'Failed'
327: );
328: END IF;
329:
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: END IF;
332: END IF;
333:
334: -- Process the SO transaction
341: , p_transaction_type => p_source_type
342: , x_return_status => l_return_status
343: );
344:
345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
346: THEN
347: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
348: THEN
349: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
352: ,'Failed'
353: );
354: END IF;
355:
356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
357: END IF;
358:
359: Process_Triangulation_Txn
360: ( p_movement_transaction => l_movement_transaction
363: , p_transaction_type => p_source_type
364: , x_return_status => l_return_status
365: );
366:
367: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
368: THEN
369: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
370: THEN
371: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
374: ,'Failed'
375: );
376: END IF;
377:
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: END IF;
380: END IF;
381:
382: IF p_source_type IN ('ALL','IO') THEN
389: , p_transaction_type => p_source_type
390: , x_return_status => l_return_status
391: );
392:
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
394: THEN
395: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
396: THEN
397: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
399: || '.Failed in Process_SO_Trangsaction - IO'
400: ,'Failed'
401: );
402: END IF;
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: END IF;
405:
406: Process_IO_Arrival_Txn
407: ( p_movement_transaction => l_movement_transaction
410: , p_transaction_type => p_source_type
411: , x_return_status => l_return_status
412: );
413:
414: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
415: THEN
416: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
417: THEN
418: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
420: || '.Failed in Process_IO_Arrival_Txn'
421: ,'Failed'
422: );
423: END IF;
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: END IF;
426:
427: END IF;
428:
436: , p_transaction_type => p_source_type
437: , x_return_status => l_return_status
438: );
439:
440: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
441: THEN
442: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
443: THEN
444: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
446: || '.Failed in Update_PO_With_Correction'
447: ,'Failed'
448: );
449: END IF;
450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
451: END IF;
452:
453: Process_PO_Transaction
454: ( p_movement_transaction => l_movement_transaction
457: , p_transaction_type => p_source_type
458: , x_return_status => l_return_status
459: );
460:
461: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
462: THEN
463: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
464: THEN
465: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
467: || '.Failed in Process_PO_Transaction'
468: ,'Failed'
469: );
470: END IF;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473:
474: END IF;
475:
483: , p_transaction_type => p_source_type
484: , x_return_status => l_return_status
485: );
486:
487: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
488: THEN
489: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
490: THEN
491: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
493: || '.Failed in Process_RMA_Transaction'
494: ,'Failed'
495: );
496: END IF;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: END IF;
499: END IF;
500:
501: /*INV_MGD_RPT_GENERATOR_PROC.Print_Transaction_Proxy_Stats;*/
521: );
522: END IF;
523: EXCEPTION
524:
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
528:
529: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
522: END IF;
523: EXCEPTION
524:
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
528:
529: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
523: EXCEPTION
524:
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
528:
529: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
530: THEN
531: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
643: );
644: END IF;
645: EXCEPTION
646:
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: RAISE;
649:
650: WHEN NO_DATA_FOUND THEN
651: RAISE;
712: ,'enter procedure'
713: );
714: END IF;
715:
716: x_return_status := FND_API.G_RET_STS_SUCCESS;
717:
718: l_movement_transaction := p_movement_transaction;
719:
720: -- Get all the Inventory Transactions between the specified date ranges
915: , x_movement_transaction => l_movement_transaction
916: , x_return_status => l_return_status
917: );
918:
919: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
920: THEN
921: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
922: THEN
923: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
925: || '.Failed when call mvt_stats_util_info'
926: ,'Failed'
927: );
928: END IF;
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: ELSE
931:
932: --Get legal entity vat number stored in customer_vat_number
933: l_movement_transaction.customer_vat_number :=
936: , p_date => l_movement_transaction.transaction_date);
937:
938: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
939: ( p_api_version_number => 1.0
940: , p_init_msg_list => FND_API.G_FALSE
941: , x_movement_transaction => l_movement_transaction
942: , x_msg_count => x_msg_count
943: , x_msg_data => x_msg_data
944: , x_return_status => l_insert_status
944: , x_return_status => l_insert_status
945: );
946:
947: --yawang fix bug 2268875 only insert record when successfully
948: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
949: THEN
950: l_movement_id := l_movement_transaction.movement_id;
951: g_records_inserted := g_records_inserted +1;
952: END IF;
959: CLOSE setup_crsr;
960:
961: -- If the insert procedure did not error out, update the transactions and
962: -- set the flag to PROCESSED.
963: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
964: THEN
965: l_movement_transaction.movement_id := l_movement_id;
966:
967: INV_MGD_MVT_INV_MDTR.Update_INV_Transactions
987: );
988: END IF;
989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
994:
995: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
988: END IF;
989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
994:
995: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
996: THEN
989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
994:
995: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
996: THEN
997: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1101: ,'enter procedure'
1102: );
1103: END IF;
1104:
1105: x_return_status := FND_API.G_RET_STS_SUCCESS;
1106:
1107: l_movement_transaction := p_movement_transaction;
1108:
1109: -- Call the transaction proxy which processes all the transactions.
1409: || '.Failed when call get_so_details'
1410: ,'Failed'
1411: );
1412: END IF;
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: ELSE
1415: INV_MGD_MVT_UTILS_PKG.Mvt_Stats_Util_Info
1416: (p_stat_typ_transaction => l_stat_typ_transaction
1417: ,x_movement_transaction => l_movement_transaction
1417: ,x_movement_transaction => l_movement_transaction
1418: ,x_return_status => l_return_status
1419: );
1420:
1421: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1422: THEN
1423: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1424: THEN
1425: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1427: || '.Failed when call mvt_stats_util_info'
1428: ,'Failed'
1429: );
1430: END IF;
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: ELSE
1433: l_movement_transaction.customer_vat_number :=
1434: INV_MGD_MVT_UTILS_PKG.Get_Cust_VAT_Number
1435: (l_movement_transaction.bill_to_site_use_id);
1464: END IF;
1465:
1466: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
1467: (p_api_version_number => 1.0
1468: ,p_init_msg_list => FND_API.G_FALSE
1469: ,x_movement_transaction => l_movement_transaction
1470: ,x_msg_count => x_msg_count
1471: ,x_msg_data => x_msg_data
1472: ,x_return_status => l_insert_status
1472: ,x_return_status => l_insert_status
1473: );
1474:
1475: --yawang fix bug 2268875
1476: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
1477: THEN
1478: l_movement_id := l_movement_transaction.movement_id;
1479: g_records_inserted := g_records_inserted +1;
1480:
1493: END IF; -- ref_crsr
1494: END LOOP l_inner;
1495: CLOSE setup_crsr;
1496:
1497: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
1498: THEN
1499: l_movement_transaction.movement_id := l_movement_id;
1500:
1501: --If the dispatch is cross legal entity, then set the status to "DISPPROCESSED"
1547: );
1548: END IF;
1549:
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
1554:
1555: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1548: END IF;
1549:
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
1554:
1555: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1556: THEN
1549:
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
1554:
1555: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1556: THEN
1557: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1685: ,'enter procedure'
1686: );
1687: END IF;
1688:
1689: x_return_status := FND_API.G_RET_STS_SUCCESS;
1690: l_movement_transaction := p_movement_transaction;
1691:
1692: -- Call the transaction proxy which processes all the transactions.
1693: INV_MGD_MVT_SO_MDTR.Get_Triangulation_Txns
1940: ,x_movement_transaction => l_movement_transaction
1941: ,x_return_status => l_return_status
1942: );
1943:
1944: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1945: THEN
1946: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1947: THEN
1948: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1950: || '.Failed when call mvt_stats_util_info'
1951: ,'Failed'
1952: );
1953: END IF;
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: ELSE
1956:
1957: --Get bill to site id,performance reason to get bill to site id here
1958: --instead of in initial get_triangulation_transaction
1974: END IF;
1975:
1976: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
1977: (p_api_version_number => 1.0
1978: ,p_init_msg_list => FND_API.G_FALSE
1979: ,x_movement_transaction => l_movement_transaction
1980: ,x_msg_count => x_msg_count
1981: ,x_msg_data => x_msg_data
1982: ,x_return_status => l_insert_status
1982: ,x_return_status => l_insert_status
1983: );
1984:
1985: --yawang fix bug 2268875
1986: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
1987: THEN
1988: l_movement_id := l_movement_transaction.movement_id;
1989: g_records_inserted := g_records_inserted +1;
1990: END IF;
2100: ,x_movement_transaction => l_movement_transaction2
2101: ,x_return_status => l_return_status
2102: );
2103:
2104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2105: THEN
2106: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2107: THEN
2108: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2110: || '.Failed when call mvt_stats_util_info -second SO'
2111: ,'Failed'
2112: );
2113: END IF;
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2115: ELSE
2116:
2117: /*l_movement_transaction2.customer_vat_number :=
2118: INV_MGD_MVT_UTILS_PKG.Get_Cust_VAT_Number
2127: END IF;
2128:
2129: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
2130: (p_api_version_number => 1.0
2131: ,p_init_msg_list => FND_API.G_FALSE
2132: ,x_movement_transaction => l_movement_transaction2
2133: ,x_msg_count => x_msg_count
2134: ,x_msg_data => x_msg_data
2135: ,x_return_status => l_insert_status
2134: ,x_msg_data => x_msg_data
2135: ,x_return_status => l_insert_status
2136: );
2137:
2138: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
2139: THEN
2140: l_movement_id2 := l_movement_transaction2.movement_id;
2141: g_records_inserted := g_records_inserted +1;
2142: END IF;
2148: END IF;
2149: END LOOP l_inner;
2150: CLOSE setup_crsr;
2151:
2152: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
2153: THEN
2154: l_movement_transaction.movement_id := l_movement_id;
2155:
2156: IF l_need_create_kit = 'Y'
2193: );
2194: END IF;
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2199: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2200:
2201: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2194: END IF;
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2199: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2200:
2201: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2202: THEN
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2199: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2200:
2201: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2202: THEN
2203: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2310: ,'enter procedure'
2311: );
2312: END IF;
2313:
2314: x_return_status := FND_API.G_RET_STS_SUCCESS;
2315: l_movement_transaction := p_movement_transaction;
2316:
2317: -- Call the transaction proxy which processes all the transactions.
2318: INV_MGD_MVT_PO_MDTR.Get_IO_Arrival_Txn
2490: ,x_movement_transaction => l_movement_transaction
2491: ,x_return_status => l_return_status
2492: );
2493:
2494: IF l_return_status = FND_API.G_RET_STS_SUCCESS
2495: THEN
2496:
2497: l_movement_transaction.customer_vat_number :=
2498: INV_MGD_MVT_UTILS_PKG.Get_Cust_VAT_Number
2499: (l_movement_transaction.bill_to_site_use_id);
2500:
2501: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
2502: (p_api_version_number => 1.0
2503: ,p_init_msg_list => FND_API.G_FALSE
2504: ,x_movement_transaction => l_movement_transaction
2505: ,x_msg_count => x_msg_count
2506: ,x_msg_data => x_msg_data
2507: ,x_return_status => l_insert_status
2507: ,x_return_status => l_insert_status
2508: );
2509:
2510: --yawang fix bug 2268875
2511: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
2512: THEN
2513: l_movement_id := l_movement_transaction.movement_id;
2514: g_records_inserted := g_records_inserted +1;
2515: END IF;
2513: l_movement_id := l_movement_transaction.movement_id;
2514: g_records_inserted := g_records_inserted +1;
2515: END IF;
2516: ELSE
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2518: END IF;
2519: END IF; --< end of if from Get_IO_Arrival_Details>
2520: END IF; --< end of if from l_insert_flag>
2521: CLOSE ref_crsr;
2523: END LOOP l_inner;
2524: CLOSE setup_crsr;
2525: --END IF;
2526:
2527: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
2528: THEN
2529: l_movement_transaction.movement_id := l_movement_id;
2530: /* 7165989 - Pass mvt_stat_status as NULL for non-RMA triangulation txns */
2531: INV_MGD_MVT_PO_MDTR.Update_PO_Transactions
2552: ,'exit procedure'
2553: );
2554: END IF;
2555: EXCEPTION
2556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2558: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2559:
2560: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2553: );
2554: END IF;
2555: EXCEPTION
2556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2558: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2559:
2560: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2561: THEN
2554: END IF;
2555: EXCEPTION
2556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2558: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
2559:
2560: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2561: THEN
2562: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2793: ,'enter procedure'
2794: );
2795: END IF;
2796:
2797: x_return_status := FND_API.G_RET_STS_SUCCESS;
2798:
2799: --Get parent PO record status
2800: OPEN parent_status;
2801: FETCH parent_status INTO
2844:
2845: --Insert rtv arrival adjustment record
2846: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
2847: ( p_api_version_number => 1.0
2848: , p_init_msg_list => FND_API.G_FALSE
2849: , x_movement_transaction => x_mvt_rtv_transaction
2850: , x_msg_count => x_msg_count
2851: , x_msg_data => x_msg_data
2852: , x_return_status => l_return_status
3089: END IF;
3090:
3091: EXCEPTION
3092: WHEN OTHERS THEN
3093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3094: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
3095:
3096: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3097: THEN
3090:
3091: EXCEPTION
3092: WHEN OTHERS THEN
3093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3094: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
3095:
3096: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3097: THEN
3098: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3182: ,'enter procedure'
3183: );
3184: END IF;
3185:
3186: x_return_status := FND_API.G_RET_STS_SUCCESS;
3187: l_movement_transaction := p_movement_transaction;
3188:
3189: -- Call the transaction proxy which processes all the transactions.
3190: INV_MGD_MVT_PO_MDTR.Get_PO_Transactions
3387: THEN
3388: l_vendor_site_id := l_movement_transaction.vendor_site_id;
3389: l_parent_id := l_receipt_transaction.parent_transaction_id;
3390:
3391: WHILE NVL(l_vendor_site_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3392: LOOP
3393: IF (l_parent_id IS NULL)
3394: THEN
3395: EXIT;
3559: ,x_movement_transaction => l_movement_transaction
3560: ,x_return_status => l_return_status
3561: );
3562:
3563: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3564: THEN
3565: IF l_movement_transaction.invoice_id IS NULL
3566: THEN
3567: l_movement_transaction.invoice_quantity := NULL;
3587: l_quantity := l_movement_transaction.transaction_quantity;
3588: l_movement_transaction.total_weight := 0;
3589: l_movement_transaction.transaction_quantity := 0;
3590: ELSE -- don't report the movement if triangulation mode is shipment
3591: l_return_status := FND_API.G_RET_STS_ERROR;
3592: END IF;
3593: END IF;
3594:
3595: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3591: l_return_status := FND_API.G_RET_STS_ERROR;
3592: END IF;
3593: END IF;
3594:
3595: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3596: THEN
3597: -- A RTV transaction may need to be netted into its parent
3598: -- PO if the returns processing parameter is set to "Aggregate Return"
3599: -- and the parent PO is not Frozen or Exported
3606: );
3607: ELSE
3608: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
3609: (p_api_version_number => 1.0
3610: ,p_init_msg_list => FND_API.G_FALSE
3611: ,x_movement_transaction => l_movement_transaction
3612: ,x_msg_count => x_msg_count
3613: ,x_msg_data => x_msg_data
3614: ,x_return_status => l_insert_status
3615: );
3616: END IF;
3617:
3618: --yawang fix bug 2268875
3619: IF l_insert_status = FND_API.G_RET_STS_SUCCESS
3620: THEN
3621: l_movement_id := l_movement_transaction.movement_id;
3622:
3623: --If rtv is netted into po, movement id is null and no new
3706: ,x_movement_transaction => l_movement_transaction
3707: ,x_return_status => l_return_status
3708: );
3709:
3710: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3711: THEN
3712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3713: ELSE
3714:
3708: );
3709:
3710: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3711: THEN
3712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3713: ELSE
3714:
3715: l_movement_transaction.total_weight := 0;
3716: l_movement_transaction.transaction_quantity := 0;
3725: END IF;
3726:
3727: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
3728: (p_api_version_number => 1.0
3729: ,p_init_msg_list => FND_API.G_FALSE
3730: ,x_movement_transaction => l_movement_transaction
3731: ,x_msg_count => x_msg_count
3732: ,x_msg_data => x_msg_data
3733: ,x_return_status => l_return_status
3733: ,x_return_status => l_return_status
3734: );
3735:
3736: --yawang fix bug 2268875
3737: IF NVL(l_return_status,FND_API.G_RET_STS_SUCCESS) =
3738: FND_API.G_RET_STS_SUCCESS
3739: THEN
3740: g_records_inserted := g_records_inserted +1;
3741: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3734: );
3735:
3736: --yawang fix bug 2268875
3737: IF NVL(l_return_status,FND_API.G_RET_STS_SUCCESS) =
3738: FND_API.G_RET_STS_SUCCESS
3739: THEN
3740: g_records_inserted := g_records_inserted +1;
3741: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3742: THEN
3758: END IF;
3759: END IF; -- end dropship SO creation
3760: END IF;
3761: ELSE
3762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3763: END IF; -- end success from Mvt_Stats_Util_Info
3764: END IF; -- < end insert>
3765: --Fix bug 2586495 case 8,PO insert flag is N, but dropship SO insert
3766: --flag maybe Y, then a dropship SO needs to be created
3851: ,x_movement_transaction => l_movement_transaction
3852: ,x_return_status => l_return_status
3853: );
3854:
3855: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3856: THEN
3857:
3858: l_movement_transaction.total_weight := 0;
3859: l_movement_transaction.transaction_quantity := 0;
3868: END IF;
3869:
3870: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
3871: (p_api_version_number => 1.0
3872: ,p_init_msg_list => FND_API.G_FALSE
3873: ,x_movement_transaction => l_movement_transaction
3874: ,x_msg_count => x_msg_count
3875: ,x_msg_data => x_msg_data
3876: ,x_return_status => l_insert_status
3876: ,x_return_status => l_insert_status
3877: );
3878:
3879: --yawang fix bug 2268875
3880: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) =
3881: FND_API.G_RET_STS_SUCCESS
3882: THEN
3883: l_movement_id := l_movement_transaction.movement_id;
3884: g_records_inserted := g_records_inserted +1;
3877: );
3878:
3879: --yawang fix bug 2268875
3880: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) =
3881: FND_API.G_RET_STS_SUCCESS
3882: THEN
3883: l_movement_id := l_movement_transaction.movement_id;
3884: g_records_inserted := g_records_inserted +1;
3885:
3891: ,'debug msg');
3892: END IF;
3893: END IF;
3894: ELSE
3895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3896: END IF; --end sucess from Mvt_Stats_Util_Info
3897: END IF; --end insert flag Y
3898:
3899: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3915: AND (l_receipt_transaction.transaction_type = 'RECEIVE')
3916: THEN
3917: NULL;
3918: ELSE
3919: IF (NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
3920: OR l_update_status = 'Y')
3921: THEN
3922: l_movement_transaction.movement_id := l_movement_id;
3923: /* 7165989 - Pass null for mvt_stat_status for non-RMA triangulation txns*/
3948: );
3949: END IF;
3950:
3951: EXCEPTION
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
3955:
3956: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3949: END IF;
3950:
3951: EXCEPTION
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
3955:
3956: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3957: THEN
3950:
3951: EXCEPTION
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
3955:
3956: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3957: THEN
3958: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4189: ,'enter procedure'
4190: );
4191: END IF;
4192:
4193: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194:
4195: --Get parent PO record status
4196: OPEN parent_status;
4197: FETCH parent_status INTO
4240:
4241: --Insert rma arrival adjustment record
4242: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
4243: ( p_api_version_number => 1.0
4244: , p_init_msg_list => FND_API.G_FALSE
4245: , x_movement_transaction => x_mvt_rma_transaction
4246: , x_msg_count => x_msg_count
4247: , x_msg_data => x_msg_data
4248: , x_return_status => l_return_status
4485: END IF;
4486:
4487: EXCEPTION
4488: WHEN OTHERS THEN
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4490: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
4491:
4492: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4493: THEN
4486:
4487: EXCEPTION
4488: WHEN OTHERS THEN
4489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4490: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
4491:
4492: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4493: THEN
4494: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4578: ,'enter procedure'
4579: );
4580: END IF;
4581: l_mvt_stat_status := NULL ; -- 7165989 : initialize the mvt_stat_status in rcv_transactions
4582: x_return_status := FND_API.G_RET_STS_SUCCESS;
4583: l_movement_transaction := p_movement_transaction;
4584:
4585: -- Call the transaction proxy which processes all the transactions.
4586: INV_MGD_MVT_PO_MDTR.Get_RMA_Transactions
4835: );
4836: /* 7165989 - Change mvt_stat_status in RCV_TRANSACTIONS based on the triangulation records created */
4837: /* If status is NEW , change status to 'FORARVL' so that the arrival record can be created in the*/
4838: /* receiving LE. If status is 'FORDISP', set status to 'PROCESSED' */
4839: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4840: IF (l_mvt_stat_status is NOT NULL AND l_mvt_stat_status = 'NEW') THEN
4841: l_mvt_stat_status := 'FORARVL';
4842: ELSIF (l_mvt_stat_status is NOT NULL AND l_mvt_stat_status = 'FORDISP') THEN
4843: l_mvt_stat_status := 'PROCESSED';
4909: /* If status is NEW , change status to 'FORARVL' so that the arrival record can be created in the*/
4910: /* receiving LE. If status is 'FORDISP', set status to 'PROCESSED' */
4911:
4912:
4913: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4914: IF (l_mvt_stat_status is NOT NULL AND l_mvt_stat_status = 'NEW') THEN
4915: l_mvt_stat_status := 'FORARVL';
4916: ELSIF (l_mvt_stat_status is NOT NULL AND l_mvt_stat_status = 'FORDISP') THEN
4917: l_mvt_stat_status := 'PROCESSED';
5028: , x_movement_transaction => l_movement_transaction
5029: , x_return_status => l_return_status
5030: );
5031:
5032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5033: THEN
5034: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5035: THEN
5036: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
5038: || '.Failed when call mvt_stats_util_info'
5039: ,'Failed'
5040: );
5041: END IF;
5042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5043: ELSE
5044: l_movement_transaction.customer_vat_number :=
5045: INV_MGD_MVT_UTILS_PKG.Get_Cust_VAT_Number
5046: (l_movement_transaction.bill_to_site_use_id);
5065: );
5066: ELSE
5067: INV_MGD_MVT_STATS_PVT.Create_Movement_Statistics
5068: (p_api_version_number => 1.0
5069: ,p_init_msg_list => FND_API.G_FALSE
5070: ,x_movement_transaction => l_movement_transaction
5071: ,x_msg_count => x_msg_count
5072: ,x_msg_data => x_msg_data
5073: ,x_return_status => l_insert_status
5074: );
5075: END IF;
5076:
5077: --yawang fix bug 2268875
5078: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
5079: AND l_movement_transaction.movement_id IS NOT NULL
5080: THEN
5081: l_movement_id := l_movement_transaction.movement_id;
5082: g_records_inserted := g_records_inserted +1;
5088: END IF;
5089: END LOOP l_inner;
5090: CLOSE setup_crsr;
5091:
5092: IF NVL(l_insert_status,FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS
5093: THEN
5094: l_movement_transaction.movement_id := l_movement_id;
5095:
5096: IF NVL(l_process_flag,'N') = 'Y'
5121: );
5122: END IF;
5123:
5124: EXCEPTION
5125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5127: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5128:
5129: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5122: END IF;
5123:
5124: EXCEPTION
5125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5127: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5128:
5129: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5130: THEN
5123:
5124: EXCEPTION
5125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5127: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5128:
5129: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5130: THEN
5131: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
5207: ,'enter procedure'
5208: );
5209: END IF;
5210:
5211: x_return_status := FND_API.G_RET_STS_SUCCESS;
5212: l_movement_transaction := p_movement_transaction;
5213:
5214: -- Call the transaction proxy which processes all the transactions.
5215:
5475: );
5476: END IF;
5477:
5478: EXCEPTION
5479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5481: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5482:
5483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5476: END IF;
5477:
5478: EXCEPTION
5479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5481: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5482:
5483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5484: THEN
5477:
5478: EXCEPTION
5479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5481: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5482:
5483: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5484: THEN
5485: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
5572: ,'enter procedure'
5573: );
5574: END IF;
5575:
5576: x_return_status := FND_API.G_RET_STS_SUCCESS;
5577:
5578: -- Call the transaction proxy which processes all the PO and RTV transactions
5579: -- with corrections in the specified date range.
5580: INV_MGD_MVT_STATS_PVT.Get_PO_Trans_With_Correction
5821: , x_msg_count => x_msg_count
5822: , x_msg_data => x_msg_data
5823: );
5824:
5825: IF l_return_status = FND_API.G_RET_STS_SUCCESS
5826: THEN
5827: UPDATE rcv_transactions
5828: SET
5829: mvt_stat_status = 'PROCESSED'
5847: );
5848: END IF;
5849:
5850: EXCEPTION
5851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5853: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5854:
5855: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5848: END IF;
5849:
5850: EXCEPTION
5851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5853: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5854:
5855: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5856: THEN
5849:
5850: EXCEPTION
5851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5853: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
5854:
5855: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
5856: THEN
5857: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
5935: ,'enter procedure'
5936: );
5937: END IF;
5938:
5939: x_return_status := FND_API.G_RET_STS_SUCCESS;
5940: l_movement_transaction := p_movement_transaction;
5941:
5942: -- Call the transaction proxy which processes all the transactions.
5943:
6246: );
6247: END IF;
6248:
6249: EXCEPTION
6250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6252: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
6253:
6254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
6247: END IF;
6248:
6249: EXCEPTION
6250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6252: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
6253:
6254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
6255: THEN
6248:
6249: EXCEPTION
6250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6252: l_error := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,250);
6253:
6254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
6255: THEN
6256: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED