[Home] [Help]
20: * *
21: * Parameters *
22: * IN *
23: * p_api_version IN NUMBER Required *
24: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
25: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
26: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
27: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
28: * OUT *
21: * Parameters *
22: * IN *
23: * p_api_version IN NUMBER Required *
24: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
25: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
26: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
27: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
28: * OUT *
29: * x_return_status OUT VARCHAR2(1) *
22: * IN *
23: * p_api_version IN NUMBER Required *
24: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
25: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
26: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
27: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
28: * OUT *
29: * x_return_status OUT VARCHAR2(1) *
30: * x_msg_count OUT NUMBER *
43: **********************************************************************************************/
44: PROCEDURE Get_TransactionAmount
45: (
46: p_api_version IN NUMBER,
47: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
48: p_commit IN VARCHAR2 := FND_API.G_FALSE,
49: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
50: x_return_status OUT NOCOPY VARCHAR2,
51: x_msg_count OUT NOCOPY NUMBER,
44: PROCEDURE Get_TransactionAmount
45: (
46: p_api_version IN NUMBER,
47: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
48: p_commit IN VARCHAR2 := FND_API.G_FALSE,
49: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
50: x_return_status OUT NOCOPY VARCHAR2,
51: x_msg_count OUT NOCOPY NUMBER,
52: x_msg_data OUT NOCOPY VARCHAR2,
45: (
46: p_api_version IN NUMBER,
47: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
48: p_commit IN VARCHAR2 := FND_API.G_FALSE,
49: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
50: x_return_status OUT NOCOPY VARCHAR2,
51: x_msg_count OUT NOCOPY NUMBER,
52: x_msg_data OUT NOCOPY VARCHAR2,
53: p_rcv_accttxn IN GMF_RCV_ACCOUNTING_PKG.rcv_accttxn_rec_type,
55: )
56: IS
57: l_api_name CONSTANT VARCHAR2(30) := 'Get_TransactionAmount';
58: l_api_version CONSTANT NUMBER := 1.0;
59: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
60: l_msg_count NUMBER := 0;
61: l_msg_data VARCHAR2(8000) := '';
62: l_stmt_num NUMBER := 0;
63: l_api_message VARCHAR2(1000);
82:
83: /************************************************
84: * Standard call to check for call compatibility *
85: ************************************************/
86: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: /************************************************************
83: /************************************************
84: * Standard call to check for call compatibility *
85: ************************************************/
86: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: /************************************************************
91: * Initialize message list if p_init_msg_list is set to TRUE *
89:
90: /************************************************************
91: * Initialize message list if p_init_msg_list is set to TRUE *
92: ************************************************************/
93: IF FND_API.to_Boolean(p_init_msg_list) THEN
94: FND_MSG_PUB.initialize;
95: END IF;
96:
97: /******************************************
96:
97: /******************************************
98: * Initialize API return status to success *
99: ******************************************/
100: x_return_status := FND_API.G_RET_STS_SUCCESS;
101:
102: /********************************************************************************
103: * For service line types, only the source types of RECEIVING and INVOICEMATCH *
104: * are valid. Retroactive price changes on service line types have no accounting *
209:
210: /*****************************
211: * Standard check of p_commit *
212: *****************************/
213: IF FND_API.to_Boolean(p_commit) THEN
214: COMMIT WORK;
215: END IF;
216:
217: /************************************************************************
222: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_TransactionAmount >>');
224: END IF;
225: EXCEPTION
226: WHEN FND_API.g_exc_error THEN
227: ROLLBACK TO Get_TransactionAmount_PVT;
228: x_return_status := FND_API.g_ret_sts_error;
229: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
230: WHEN FND_API.g_exc_unexpected_error THEN
224: END IF;
225: EXCEPTION
226: WHEN FND_API.g_exc_error THEN
227: ROLLBACK TO Get_TransactionAmount_PVT;
228: x_return_status := FND_API.g_ret_sts_error;
229: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
230: WHEN FND_API.g_exc_unexpected_error THEN
231: ROLLBACK TO Get_TransactionAmount_PVT;
232: x_return_status := FND_API.g_ret_sts_unexp_error ;
226: WHEN FND_API.g_exc_error THEN
227: ROLLBACK TO Get_TransactionAmount_PVT;
228: x_return_status := FND_API.g_ret_sts_error;
229: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
230: WHEN FND_API.g_exc_unexpected_error THEN
231: ROLLBACK TO Get_TransactionAmount_PVT;
232: x_return_status := FND_API.g_ret_sts_unexp_error ;
233: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
234: WHEN OTHERS THEN
228: x_return_status := FND_API.g_ret_sts_error;
229: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
230: WHEN FND_API.g_exc_unexpected_error THEN
231: ROLLBACK TO Get_TransactionAmount_PVT;
232: x_return_status := FND_API.g_ret_sts_unexp_error ;
233: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
234: WHEN OTHERS THEN
235: ROLLBACK TO Get_TransactionAmount_PVT;
236: x_return_status := fnd_api.g_ret_sts_unexp_error ;
232: x_return_status := FND_API.g_ret_sts_unexp_error ;
233: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
234: WHEN OTHERS THEN
235: ROLLBACK TO Get_TransactionAmount_PVT;
236: x_return_status := fnd_api.g_ret_sts_unexp_error ;
237:
238: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_TransactionAmount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
240: END IF;
254: * Call account hook to allow customer to override default account. *
255: * Parameters *
256: * IN *
257: * p_api_version IN NUMBER Required *
258: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
259: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
260: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
261: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
262: * p_org_id IN NUMBER Required *
255: * Parameters *
256: * IN *
257: * p_api_version IN NUMBER Required *
258: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
259: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
260: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
261: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
262: * p_org_id IN NUMBER Required *
263: * OUT *
256: * IN *
257: * p_api_version IN NUMBER Required *
258: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
259: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
260: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
261: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
262: * p_org_id IN NUMBER Required *
263: * OUT *
264: * x_return_status OUT VARCHAR2(1) *
272:
273: PROCEDURE Get_HookAccount
274: (
275: p_api_version IN NUMBER,
276: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
277: p_commit IN VARCHAR2 := FND_API.G_FALSE,
278: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
279: x_return_status OUT NOCOPY VARCHAR2,
280: x_msg_count OUT NOCOPY NUMBER,
273: PROCEDURE Get_HookAccount
274: (
275: p_api_version IN NUMBER,
276: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
277: p_commit IN VARCHAR2 := FND_API.G_FALSE,
278: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
279: x_return_status OUT NOCOPY VARCHAR2,
280: x_msg_count OUT NOCOPY NUMBER,
281: x_msg_data OUT NOCOPY VARCHAR2,
274: (
275: p_api_version IN NUMBER,
276: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
277: p_commit IN VARCHAR2 := FND_API.G_FALSE,
278: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
279: x_return_status OUT NOCOPY VARCHAR2,
280: x_msg_count OUT NOCOPY NUMBER,
281: x_msg_data OUT NOCOPY VARCHAR2,
282: p_rcv_transaction_id IN NUMBER,
286: )
287: IS
288: l_api_name CONSTANT VARCHAR2(30) := 'Get_HookAccount';
289: l_api_version CONSTANT NUMBER := 1.0;
290: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
291: l_msg_count NUMBER := 0;
292: l_msg_data VARCHAR2(8000) := '';
293: l_stmt_num NUMBER := 0;
294: l_api_message VARCHAR2(1000);
308:
309: /************************************************
310: * Standard call to check for call compatibility *
311: ************************************************/
312: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314: END IF;
315:
316: /************************************************************
309: /************************************************
310: * Standard call to check for call compatibility *
311: ************************************************/
312: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314: END IF;
315:
316: /************************************************************
317: * Initialize message list if p_init_msg_list is set to TRUE *
315:
316: /************************************************************
317: * Initialize message list if p_init_msg_list is set to TRUE *
318: ************************************************************/
319: IF FND_API.to_Boolean(p_init_msg_list) THEN
320: FND_MSG_PUB.initialize;
321: END IF;
322:
323: /******************************************
322:
323: /******************************************
324: * Initialize API return status to success *
325: ******************************************/
326: x_return_status := FND_API.G_RET_STS_SUCCESS;
327: x_distribution_acct_id := -1;
328:
329: l_stmt_num := 10;
330: RCV_AccountHook_PUB.Get_Account
337: p_accounting_line_type => p_accounting_line_type,
338: x_distribution_acct_id => l_dist_acct_id
339: );
340:
341: IF l_return_status <> FND_API.g_ret_sts_success THEN
342: l_api_message := 'Error in Account Hook';
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
345: END IF;
342: l_api_message := 'Error in Account Hook';
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
345: END IF;
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
348:
349: IF(l_dist_acct_id <> -1) THEN
350: l_stmt_num := 20;
360: FND_MSG_pub.add;
361: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
362: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
363: END IF;
364: RAISE FND_API.g_exc_error;
365: END IF;
366: END IF;
367:
368: x_distribution_acct_id := l_dist_acct_id;
374:
375: /*****************************
376: * Standard check of p_commit *
377: *****************************/
378: IF FND_API.to_Boolean(p_commit) THEN
379: COMMIT WORK;
380: END IF;
381:
382: /************************************************************************
387: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_HookAccount >>');
389: END IF;
390: EXCEPTION
391: WHEN FND_API.g_exc_error THEN
392: ROLLBACK TO Get_HookAccount_PVT;
393: x_return_status := FND_API.g_ret_sts_error;
394: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
395: WHEN FND_API.g_exc_unexpected_error THEN
389: END IF;
390: EXCEPTION
391: WHEN FND_API.g_exc_error THEN
392: ROLLBACK TO Get_HookAccount_PVT;
393: x_return_status := FND_API.g_ret_sts_error;
394: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
395: WHEN FND_API.g_exc_unexpected_error THEN
396: ROLLBACK TO Get_HookAccount_PVT;
397: x_return_status := FND_API.g_ret_sts_unexp_error ;
391: WHEN FND_API.g_exc_error THEN
392: ROLLBACK TO Get_HookAccount_PVT;
393: x_return_status := FND_API.g_ret_sts_error;
394: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
395: WHEN FND_API.g_exc_unexpected_error THEN
396: ROLLBACK TO Get_HookAccount_PVT;
397: x_return_status := FND_API.g_ret_sts_unexp_error ;
398: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
399: WHEN OTHERS THEN
393: x_return_status := FND_API.g_ret_sts_error;
394: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
395: WHEN FND_API.g_exc_unexpected_error THEN
396: ROLLBACK TO Get_HookAccount_PVT;
397: x_return_status := FND_API.g_ret_sts_unexp_error ;
398: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
399: WHEN OTHERS THEN
400: ROLLBACK TO Get_HookAccount_PVT;
401: x_return_status := fnd_api.g_ret_sts_unexp_error ;
397: x_return_status := FND_API.g_ret_sts_unexp_error ;
398: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
399: WHEN OTHERS THEN
400: ROLLBACK TO Get_HookAccount_PVT;
401: x_return_status := fnd_api.g_ret_sts_unexp_error ;
402: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
403: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
404: END IF;
405: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)THEN
421: * the excess. *
422: * Parameters *
423: * IN *
424: * p_api_version IN NUMBER Required *
425: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
426: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
427: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
428: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
429: * OUT *
422: * Parameters *
423: * IN *
424: * p_api_version IN NUMBER Required *
425: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
426: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
427: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
428: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
429: * OUT *
430: * x_return_status OUT VARCHAR2(1) *
423: * IN *
424: * p_api_version IN NUMBER Required *
425: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
426: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
427: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
428: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
429: * OUT *
430: * x_return_status OUT VARCHAR2(1) *
431: * x_msg_count OUT NUMBER *
436: * only be called for non-service line types. *
437: ********************************************************************************************/
438: PROCEDURE get_quantity (
439: p_api_version IN NUMBER,
440: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
441: p_commit IN VARCHAR2 := fnd_api.g_false,
442: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
443: x_return_status OUT NOCOPY VARCHAR2,
444: x_msg_count OUT NOCOPY NUMBER,
437: ********************************************************************************************/
438: PROCEDURE get_quantity (
439: p_api_version IN NUMBER,
440: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
441: p_commit IN VARCHAR2 := fnd_api.g_false,
442: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
443: x_return_status OUT NOCOPY VARCHAR2,
444: x_msg_count OUT NOCOPY NUMBER,
445: x_msg_data OUT NOCOPY VARCHAR2,
438: PROCEDURE get_quantity (
439: p_api_version IN NUMBER,
440: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
441: p_commit IN VARCHAR2 := fnd_api.g_false,
442: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
443: x_return_status OUT NOCOPY VARCHAR2,
444: x_msg_count OUT NOCOPY NUMBER,
445: x_msg_data OUT NOCOPY VARCHAR2,
446: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
448: )
449: IS
450: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Quantity';
451: l_api_version CONSTANT NUMBER := 1.0;
452: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
453: l_msg_count NUMBER := 0;
454: l_msg_data VARCHAR2 (8000) := '';
455: l_stmt_num NUMBER := 0;
456: l_api_message VARCHAR2 (1000);
477: );
478: END IF;
479:
480: -- Standard call to check for call compatibility
481: IF NOT fnd_api.compatible_api_call (l_api_version,
482: p_api_version,
483: l_api_name,
484: g_pkg_name
485: )
483: l_api_name,
484: g_pkg_name
485: )
486: THEN
487: RAISE fnd_api.g_exc_unexpected_error;
488: END IF;
489:
490: -- Initialize message list if p_init_msg_list is set to TRUE
491: IF fnd_api.to_boolean (p_init_msg_list)
487: RAISE fnd_api.g_exc_unexpected_error;
488: END IF;
489:
490: -- Initialize message list if p_init_msg_list is set to TRUE
491: IF fnd_api.to_boolean (p_init_msg_list)
492: THEN
493: fnd_msg_pub.initialize;
494: END IF;
495:
493: fnd_msg_pub.initialize;
494: END IF;
495:
496: -- Initialize API return status to success
497: x_return_status := fnd_api.g_ret_sts_success;
498: l_stmt_num := 10;
499:
500: IF (p_rcv_accttxn.event_source = 'RECEIVING')
501: THEN
677: );
678: END IF;
679:
680: --- Standard check of p_commit
681: IF fnd_api.to_boolean (p_commit)
682: THEN
683: COMMIT WORK;
684: END IF;
685:
695: 'Get_Quantity >>'
696: );
697: END IF;
698: EXCEPTION
699: WHEN fnd_api.g_exc_error
700: THEN
701: ROLLBACK TO get_quantity_pvt;
702: x_return_status := fnd_api.g_ret_sts_error;
703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
698: EXCEPTION
699: WHEN fnd_api.g_exc_error
700: THEN
701: ROLLBACK TO get_quantity_pvt;
702: x_return_status := fnd_api.g_ret_sts_error;
703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
704: p_data => x_msg_data
705: );
706: WHEN fnd_api.g_exc_unexpected_error
702: x_return_status := fnd_api.g_ret_sts_error;
703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
704: p_data => x_msg_data
705: );
706: WHEN fnd_api.g_exc_unexpected_error
707: THEN
708: ROLLBACK TO get_quantity_pvt;
709: x_return_status := fnd_api.g_ret_sts_unexp_error;
710: fnd_msg_pub.count_and_get (p_count => x_msg_count,
705: );
706: WHEN fnd_api.g_exc_unexpected_error
707: THEN
708: ROLLBACK TO get_quantity_pvt;
709: x_return_status := fnd_api.g_ret_sts_unexp_error;
710: fnd_msg_pub.count_and_get (p_count => x_msg_count,
711: p_data => x_msg_data
712: );
713: WHEN OTHERS
712: );
713: WHEN OTHERS
714: THEN
715: ROLLBACK TO get_quantity_pvt;
716: x_return_status := fnd_api.g_ret_sts_unexp_error;
717:
718: IF g_debug = 'Y'
719: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
720: THEN
748: -- Pre-reqs :
749: -- Parameters :
750: -- IN : p_api_version IN NUMBER Required
751: -- p_init_msg_list IN VARCHAR2 Optional
752: -- Default = FND_API.G_FALSE
753: -- p_commit IN VARCHAR2 Optional
754: -- Default = FND_API.G_FALSE
755: -- p_validation_level IN NUMBER Optional
756: -- Default = FND_API.G_VALID_LEVEL_FULL
750: -- IN : p_api_version IN NUMBER Required
751: -- p_init_msg_list IN VARCHAR2 Optional
752: -- Default = FND_API.G_FALSE
753: -- p_commit IN VARCHAR2 Optional
754: -- Default = FND_API.G_FALSE
755: -- p_validation_level IN NUMBER Optional
756: -- Default = FND_API.G_VALID_LEVEL_FULL
757: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
758: --
752: -- Default = FND_API.G_FALSE
753: -- p_commit IN VARCHAR2 Optional
754: -- Default = FND_API.G_FALSE
755: -- p_validation_level IN NUMBER Optional
756: -- Default = FND_API.G_VALID_LEVEL_FULL
757: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
758: --
759: -- OUT : x_return_status OUT VARCHAR2(1)
760: -- x_msg_count OUT NUMBER
773: -- End of comments
774: PROCEDURE get_unitprice (
775: p_api_version IN NUMBER,
776: p_init_msg_list IN VARCHAR2
777: := fnd_api.g_false,
778: p_commit IN VARCHAR2
779: := fnd_api.g_false,
780: p_validation_level IN NUMBER
781: := fnd_api.g_valid_level_full,
775: p_api_version IN NUMBER,
776: p_init_msg_list IN VARCHAR2
777: := fnd_api.g_false,
778: p_commit IN VARCHAR2
779: := fnd_api.g_false,
780: p_validation_level IN NUMBER
781: := fnd_api.g_valid_level_full,
782: x_return_status OUT NOCOPY VARCHAR2,
783: x_msg_count OUT NOCOPY NUMBER,
777: := fnd_api.g_false,
778: p_commit IN VARCHAR2
779: := fnd_api.g_false,
780: p_validation_level IN NUMBER
781: := fnd_api.g_valid_level_full,
782: x_return_status OUT NOCOPY VARCHAR2,
783: x_msg_count OUT NOCOPY NUMBER,
784: x_msg_data OUT NOCOPY VARCHAR2,
785: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
793: )
794: IS
795: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UnitPrice';
796: l_api_version CONSTANT NUMBER := 1.0;
797: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
798: l_msg_count NUMBER := 0;
799: l_msg_data VARCHAR2 (8000) := '';
800: l_stmt_num NUMBER := 0;
801: l_api_message VARCHAR2 (1000);
825: );
826: END IF;
827:
828: -- Standard call to check for call compatibility
829: IF NOT fnd_api.compatible_api_call (l_api_version,
830: p_api_version,
831: l_api_name,
832: g_pkg_name
833: )
831: l_api_name,
832: g_pkg_name
833: )
834: THEN
835: RAISE fnd_api.g_exc_unexpected_error;
836: END IF;
837:
838: -- Initialize message list if p_init_msg_list is set to TRUE
839: IF fnd_api.to_boolean (p_init_msg_list)
835: RAISE fnd_api.g_exc_unexpected_error;
836: END IF;
837:
838: -- Initialize message list if p_init_msg_list is set to TRUE
839: IF fnd_api.to_boolean (p_init_msg_list)
840: THEN
841: fnd_msg_pub.initialize;
842: END IF;
843:
841: fnd_msg_pub.initialize;
842: END IF;
843:
844: -- Initialize API return status to success
845: x_return_status := fnd_api.g_ret_sts_success;
846: x_incr_transfer_price := 0;
847: x_incr_currency_code := NULL;
848: l_currency_code := p_rcv_accttxn.currency_code;
849: l_stmt_num := 10;
890: FALSE
891: );
892: END IF;
893:
894: RAISE fnd_api.g_exc_error;
895: END IF;
896:
897: -- Use Inventory Asset Flag in the organization where the physical event occurred. This
898: -- would be the ship to organization id. Using POLL.ship_to_organization_id so it will be
920: FALSE
921: );
922: END IF;
923:
924: RAISE fnd_api.g_exc_error;
925: END;
926:
927: IF (l_asset_flag = 'Y')
928: THEN
1021: p_global_procurement_flag => 'Y',
1022: p_drop_ship_flag => 'N'
1023: );
1024:
1025: IF l_return_status <> fnd_api.g_ret_sts_success
1026: THEN
1027: IF g_debug = 'Y'
1028: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1029: THEN
1033: l_api_message
1034: );
1035: END IF;
1036:
1037: RAISE fnd_api.g_exc_unexpected_error;
1038: END IF;
1039:
1040: IF g_debug = 'Y'
1041: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1111: );
1112: END IF;
1113:
1114: -- Standard check of p_commit
1115: IF fnd_api.to_boolean (p_commit)
1116: THEN
1117: COMMIT WORK;
1118: END IF;
1119:
1129: 'Get_UnitPrice >>'
1130: );
1131: END IF;
1132: EXCEPTION
1133: WHEN fnd_api.g_exc_error
1134: THEN
1135: ROLLBACK TO get_unitprice_pvt;
1136: x_return_status := fnd_api.g_ret_sts_error;
1137: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1132: EXCEPTION
1133: WHEN fnd_api.g_exc_error
1134: THEN
1135: ROLLBACK TO get_unitprice_pvt;
1136: x_return_status := fnd_api.g_ret_sts_error;
1137: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140: WHEN fnd_api.g_exc_unexpected_error
1136: x_return_status := fnd_api.g_ret_sts_error;
1137: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140: WHEN fnd_api.g_exc_unexpected_error
1141: THEN
1142: ROLLBACK TO get_unitprice_pvt;
1143: x_return_status := fnd_api.g_ret_sts_unexp_error;
1144: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1139: );
1140: WHEN fnd_api.g_exc_unexpected_error
1141: THEN
1142: ROLLBACK TO get_unitprice_pvt;
1143: x_return_status := fnd_api.g_ret_sts_unexp_error;
1144: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1145: p_data => x_msg_data
1146: );
1147: WHEN OTHERS
1146: );
1147: WHEN OTHERS
1148: THEN
1149: ROLLBACK TO get_unitprice_pvt;
1150: x_return_status := fnd_api.g_ret_sts_unexp_error;
1151:
1152: IF g_debug = 'Y'
1153: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1154: THEN
1182: -- Pre-reqs :
1183: -- Parameters :
1184: -- IN : p_api_version IN NUMBER Required
1185: -- p_init_msg_list IN VARCHAR2 Optional
1186: -- Default = FND_API.G_FALSE
1187: -- p_commit IN VARCHAR2 Optional
1188: -- Default = FND_API.G_FALSE
1189: -- p_validation_level IN NUMBER Optional
1190: -- Default = FND_API.G_VALID_LEVEL_FULL
1184: -- IN : p_api_version IN NUMBER Required
1185: -- p_init_msg_list IN VARCHAR2 Optional
1186: -- Default = FND_API.G_FALSE
1187: -- p_commit IN VARCHAR2 Optional
1188: -- Default = FND_API.G_FALSE
1189: -- p_validation_level IN NUMBER Optional
1190: -- Default = FND_API.G_VALID_LEVEL_FULL
1191: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
1192: --
1186: -- Default = FND_API.G_FALSE
1187: -- p_commit IN VARCHAR2 Optional
1188: -- Default = FND_API.G_FALSE
1189: -- p_validation_level IN NUMBER Optional
1190: -- Default = FND_API.G_VALID_LEVEL_FULL
1191: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
1192: --
1193: -- OUT : x_return_status OUT VARCHAR2(1)
1194: -- x_msg_count OUT NUMBER
1205: --
1206: -- End of comments
1207: PROCEDURE get_unittax (
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1210: p_commit IN VARCHAR2 := fnd_api.g_false,
1211: p_validation_level IN NUMBER
1212: := fnd_api.g_valid_level_full,
1213: x_return_status OUT NOCOPY VARCHAR2,
1206: -- End of comments
1207: PROCEDURE get_unittax (
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1210: p_commit IN VARCHAR2 := fnd_api.g_false,
1211: p_validation_level IN NUMBER
1212: := fnd_api.g_valid_level_full,
1213: x_return_status OUT NOCOPY VARCHAR2,
1214: x_msg_count OUT NOCOPY NUMBER,
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1210: p_commit IN VARCHAR2 := fnd_api.g_false,
1211: p_validation_level IN NUMBER
1212: := fnd_api.g_valid_level_full,
1213: x_return_status OUT NOCOPY VARCHAR2,
1214: x_msg_count OUT NOCOPY NUMBER,
1215: x_msg_data OUT NOCOPY VARCHAR2,
1216: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1221: )
1222: IS
1223: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UnitTax';
1224: l_api_version CONSTANT NUMBER := 1.0;
1225: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1226: l_msg_count NUMBER := 0;
1227: l_msg_data VARCHAR2 (8000) := '';
1228: l_stmt_num NUMBER := 0;
1229: l_api_message VARCHAR2 (1000);
1249: );
1250: END IF;
1251:
1252: -- Standard call to check for call compatibility
1253: IF NOT fnd_api.compatible_api_call (l_api_version,
1254: p_api_version,
1255: l_api_name,
1256: g_pkg_name
1257: )
1255: l_api_name,
1256: g_pkg_name
1257: )
1258: THEN
1259: RAISE fnd_api.g_exc_unexpected_error;
1260: END IF;
1261:
1262: -- Initialize message list if p_init_msg_list is set to TRUE
1263: IF fnd_api.to_boolean (p_init_msg_list)
1259: RAISE fnd_api.g_exc_unexpected_error;
1260: END IF;
1261:
1262: -- Initialize message list if p_init_msg_list is set to TRUE
1263: IF fnd_api.to_boolean (p_init_msg_list)
1264: THEN
1265: fnd_msg_pub.initialize;
1266: END IF;
1267:
1265: fnd_msg_pub.initialize;
1266: END IF;
1267:
1268: -- Initialize API return status to success
1269: x_return_status := fnd_api.g_ret_sts_success;
1270: x_unit_nr_tax := 0;
1271: x_unit_rec_tax := 0;
1272: x_prior_nr_tax := 0;
1273: x_prior_rec_tax := 0;
1295: x_old_recoverable_tax => l_old_recoverable_tax,
1296: x_old_non_recoverable_tax => l_old_non_recoverable_tax
1297: );
1298:
1299: IF l_return_status <> fnd_api.g_ret_sts_success
1300: THEN
1301: l_api_message := 'Error getting Tax';
1302:
1303: IF g_debug = 'Y'
1311: || l_api_message
1312: );
1313: END IF;
1314:
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1317:
1318: IF g_debug = 'Y'
1319: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1397: );
1398: END IF;
1399:
1400: --- Standard check of p_commit
1401: IF fnd_api.to_boolean (p_commit)
1402: THEN
1403: COMMIT WORK;
1404: END IF;
1405:
1415: 'Get_UnitTax >>'
1416: );
1417: END IF;
1418: EXCEPTION
1419: WHEN fnd_api.g_exc_error
1420: THEN
1421: ROLLBACK TO get_unittax_pvt;
1422: x_return_status := fnd_api.g_ret_sts_error;
1423: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1418: EXCEPTION
1419: WHEN fnd_api.g_exc_error
1420: THEN
1421: ROLLBACK TO get_unittax_pvt;
1422: x_return_status := fnd_api.g_ret_sts_error;
1423: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1424: p_data => x_msg_data
1425: );
1426: WHEN fnd_api.g_exc_unexpected_error
1422: x_return_status := fnd_api.g_ret_sts_error;
1423: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1424: p_data => x_msg_data
1425: );
1426: WHEN fnd_api.g_exc_unexpected_error
1427: THEN
1428: ROLLBACK TO get_unittax_pvt;
1429: x_return_status := fnd_api.g_ret_sts_unexp_error;
1430: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1425: );
1426: WHEN fnd_api.g_exc_unexpected_error
1427: THEN
1428: ROLLBACK TO get_unittax_pvt;
1429: x_return_status := fnd_api.g_ret_sts_unexp_error;
1430: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1431: p_data => x_msg_data
1432: );
1433: WHEN OTHERS
1432: );
1433: WHEN OTHERS
1434: THEN
1435: ROLLBACK TO get_unittax_pvt;
1436: x_return_status := fnd_api.g_ret_sts_unexp_error;
1437:
1438: IF g_debug = 'Y'
1439: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1440: THEN
1497: -- End of comments --
1498: -----------------------------------------------------------------------------
1499: PROCEDURE convert_uom (
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1502: p_commit IN VARCHAR2 := fnd_api.g_false,
1503: p_validation_level IN NUMBER
1504: := fnd_api.g_valid_level_full,
1505: x_return_status OUT NOCOPY VARCHAR2,
1498: -----------------------------------------------------------------------------
1499: PROCEDURE convert_uom (
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1502: p_commit IN VARCHAR2 := fnd_api.g_false,
1503: p_validation_level IN NUMBER
1504: := fnd_api.g_valid_level_full,
1505: x_return_status OUT NOCOPY VARCHAR2,
1506: x_msg_count OUT NOCOPY NUMBER,
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1502: p_commit IN VARCHAR2 := fnd_api.g_false,
1503: p_validation_level IN NUMBER
1504: := fnd_api.g_valid_level_full,
1505: x_return_status OUT NOCOPY VARCHAR2,
1506: x_msg_count OUT NOCOPY NUMBER,
1507: x_msg_data OUT NOCOPY VARCHAR2,
1508: p_event_rec IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1528: BEGIN
1529: SAVEPOINT convert_uom_pvt;
1530:
1531: -- Initialize message list if p_init_msg_list is set to TRUE
1532: IF fnd_api.to_boolean (p_init_msg_list)
1533: THEN
1534: fnd_msg_pub.initialize;
1535: END IF;
1536:
1543: );
1544: END IF;
1545:
1546: -- Standard check for compatibility
1547: IF NOT fnd_api.compatible_api_call (l_api_version,
1548: p_api_version,
1549: l_api_name,
1550: g_pkg_name
1551: ) -- line 90
1549: l_api_name,
1550: g_pkg_name
1551: ) -- line 90
1552: THEN
1553: RAISE fnd_api.g_exc_unexpected_error;
1554: END IF;
1555:
1556: -- Initialize API return status to success
1557: x_return_status := fnd_api.g_ret_sts_success;
1553: RAISE fnd_api.g_exc_unexpected_error;
1554: END IF;
1555:
1556: -- Initialize API return status to success
1557: x_return_status := fnd_api.g_ret_sts_success;
1558: x_msg_count := 0;
1559: x_msg_data := '';
1560: -- API body
1561: l_stmt_num := 10;
1614: );
1615:
1616: IF (l_primary_uom_rate = -99999)
1617: THEN
1618: RAISE fnd_api.g_exc_error;
1619: l_api_message :=
1620: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1621:
1622: IF g_debug = 'Y'
1638: );
1639:
1640: IF (l_trx_uom_rate = -99999)
1641: THEN
1642: RAISE fnd_api.g_exc_error;
1643: l_api_message :=
1644: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1645:
1646: IF g_debug = 'Y'
1681:
1682: -- End of API body
1683:
1684: -- Standard check of P_COMMIT
1685: IF fnd_api.to_boolean (p_commit)
1686: THEN
1687: COMMIT WORK;
1688: END IF;
1689:
1695: 'Convert_UOM >>'
1696: );
1697: END IF;
1698: EXCEPTION
1699: WHEN fnd_api.g_exc_error
1700: THEN
1701: ROLLBACK TO convert_uom_pvt;
1702: x_return_status := fnd_api.g_ret_sts_error;
1703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1698: EXCEPTION
1699: WHEN fnd_api.g_exc_error
1700: THEN
1701: ROLLBACK TO convert_uom_pvt;
1702: x_return_status := fnd_api.g_ret_sts_error;
1703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1704: p_data => x_msg_data
1705: );
1706: WHEN fnd_api.g_exc_unexpected_error
1702: x_return_status := fnd_api.g_ret_sts_error;
1703: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1704: p_data => x_msg_data
1705: );
1706: WHEN fnd_api.g_exc_unexpected_error
1707: THEN
1708: ROLLBACK TO convert_uom_pvt;
1709: x_return_status := fnd_api.g_ret_sts_unexp_error;
1710: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1705: );
1706: WHEN fnd_api.g_exc_unexpected_error
1707: THEN
1708: ROLLBACK TO convert_uom_pvt;
1709: x_return_status := fnd_api.g_ret_sts_unexp_error;
1710: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1711: p_data => x_msg_data
1712: );
1713: WHEN NO_DATA_FOUND
1712: );
1713: WHEN NO_DATA_FOUND
1714: THEN
1715: ROLLBACK TO convert_uom_pvt;
1716: x_return_status := fnd_api.g_ret_sts_error;
1717: l_api_message :=
1718: ': Statement # ' || TO_CHAR (l_stmt_num)
1719: || ' - No UOM found.';
1720:
1737: );
1738: WHEN OTHERS
1739: THEN
1740: ROLLBACK TO convert_uom_pvt;
1741: x_return_status := fnd_api.g_ret_sts_unexp_error;
1742: l_api_message :=
1743: 'Unexpected Error at statement('
1744: || TO_CHAR (l_stmt_num)
1745: || '): '
1811: -- End of comments --
1812: -----------------------------------------------------------------------------
1813: PROCEDURE get_currency (
1814: p_api_version IN NUMBER,
1815: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1816: p_commit IN VARCHAR2 := fnd_api.g_false,
1817: p_validation_level IN NUMBER
1818: := fnd_api.g_valid_level_full,
1819: x_return_status OUT NOCOPY VARCHAR2,
1812: -----------------------------------------------------------------------------
1813: PROCEDURE get_currency (
1814: p_api_version IN NUMBER,
1815: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1816: p_commit IN VARCHAR2 := fnd_api.g_false,
1817: p_validation_level IN NUMBER
1818: := fnd_api.g_valid_level_full,
1819: x_return_status OUT NOCOPY VARCHAR2,
1820: x_msg_count OUT NOCOPY NUMBER,
1814: p_api_version IN NUMBER,
1815: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1816: p_commit IN VARCHAR2 := fnd_api.g_false,
1817: p_validation_level IN NUMBER
1818: := fnd_api.g_valid_level_full,
1819: x_return_status OUT NOCOPY VARCHAR2,
1820: x_msg_count OUT NOCOPY NUMBER,
1821: x_msg_data OUT NOCOPY VARCHAR2,
1822: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1843: BEGIN
1844: SAVEPOINT get_currency_pvt;
1845:
1846: -- Standard call to check for call compatibility
1847: IF NOT fnd_api.compatible_api_call (l_api_version,
1848: p_api_version,
1849: l_api_name,
1850: g_pkg_name
1851: )
1849: l_api_name,
1850: g_pkg_name
1851: )
1852: THEN
1853: RAISE fnd_api.g_exc_unexpected_error;
1854: END IF;
1855:
1856: -- Initialize message list if p_init_msg_list is set to TRUE
1857: IF fnd_api.to_boolean (p_init_msg_list)
1853: RAISE fnd_api.g_exc_unexpected_error;
1854: END IF;
1855:
1856: -- Initialize message list if p_init_msg_list is set to TRUE
1857: IF fnd_api.to_boolean (p_init_msg_list)
1858: THEN
1859: fnd_msg_pub.initialize;
1860: END IF;
1861:
1859: fnd_msg_pub.initialize;
1860: END IF;
1861:
1862: -- Initialize API return status to success
1863: x_return_status := fnd_api.g_ret_sts_success;
1864: -- API body
1865: l_stmt_num := 10;
1866:
1867: IF ( (p_rcv_accttxn.procurement_org_flag = 'Y')
1961: );
1962: END IF;
1963:
1964: -- End of API body
1965: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false,
1966: p_count => x_msg_count,
1967: p_data => x_msg_data
1968: );
1969:
1967: p_data => x_msg_data
1968: );
1969:
1970: -- Standard check of P_COMMIT
1971: IF fnd_api.to_boolean (p_commit)
1972: THEN
1973: COMMIT WORK;
1974: END IF;
1975: EXCEPTION
1972: THEN
1973: COMMIT WORK;
1974: END IF;
1975: EXCEPTION
1976: WHEN fnd_api.g_exc_error
1977: THEN
1978: ROLLBACK TO get_currency_pvt;
1979: x_return_status := fnd_api.g_ret_sts_error;
1980: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1975: EXCEPTION
1976: WHEN fnd_api.g_exc_error
1977: THEN
1978: ROLLBACK TO get_currency_pvt;
1979: x_return_status := fnd_api.g_ret_sts_error;
1980: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1981: p_data => x_msg_data
1982: );
1983: WHEN fnd_api.g_exc_unexpected_error
1979: x_return_status := fnd_api.g_ret_sts_error;
1980: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1981: p_data => x_msg_data
1982: );
1983: WHEN fnd_api.g_exc_unexpected_error
1984: THEN
1985: ROLLBACK TO get_currency_pvt;
1986: x_return_status := fnd_api.g_ret_sts_unexp_error;
1987: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1982: );
1983: WHEN fnd_api.g_exc_unexpected_error
1984: THEN
1985: ROLLBACK TO get_currency_pvt;
1986: x_return_status := fnd_api.g_ret_sts_unexp_error;
1987: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1988: p_data => x_msg_data
1989: );
1990: WHEN NO_DATA_FOUND
1989: );
1990: WHEN NO_DATA_FOUND
1991: THEN
1992: ROLLBACK TO get_currency_pvt;
1993: x_return_status := fnd_api.g_ret_sts_error;
1994: l_api_message :=
1995: 'Unexpected Error: '
1996: || l_stmt_num
1997: || TO_CHAR (SQLCODE)
2021: );
2022: WHEN OTHERS
2023: THEN
2024: ROLLBACK TO get_currency_pvt;
2025: x_return_status := fnd_api.g_ret_sts_unexp_error;
2026: l_api_message :=
2027: 'Unexpected Error: '
2028: || l_stmt_num
2029: || TO_CHAR (SQLCODE)
2060: -- Pre-reqs :
2061: -- Parameters :
2062: -- IN : p_api_version IN NUMBER Required
2063: -- p_init_msg_list IN VARCHAR2 Optional
2064: -- Default = FND_API.G_FALSE
2065: -- p_commit IN VARCHAR2 Optional
2066: -- Default = FND_API.G_FALSE
2067: -- p_validation_level IN NUMBER Optional
2068: -- Default = FND_API.G_VALID_LEVEL_FULL
2062: -- IN : p_api_version IN NUMBER Required
2063: -- p_init_msg_list IN VARCHAR2 Optional
2064: -- Default = FND_API.G_FALSE
2065: -- p_commit IN VARCHAR2 Optional
2066: -- Default = FND_API.G_FALSE
2067: -- p_validation_level IN NUMBER Optional
2068: -- Default = FND_API.G_VALID_LEVEL_FULL
2069: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2070: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2064: -- Default = FND_API.G_FALSE
2065: -- p_commit IN VARCHAR2 Optional
2066: -- Default = FND_API.G_FALSE
2067: -- p_validation_level IN NUMBER Optional
2068: -- Default = FND_API.G_VALID_LEVEL_FULL
2069: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2070: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2071: -- p_transaction_reverse_flow_rec mtl_transaction_flow_rec_type,
2072: --
2086: -- End of comments
2087: PROCEDURE get_accounts (
2088: p_api_version IN NUMBER,
2089: p_init_msg_list IN VARCHAR2
2090: := fnd_api.g_false,
2091: p_commit IN VARCHAR2
2092: := fnd_api.g_false,
2093: p_validation_level IN NUMBER
2094: := fnd_api.g_valid_level_full,
2088: p_api_version IN NUMBER,
2089: p_init_msg_list IN VARCHAR2
2090: := fnd_api.g_false,
2091: p_commit IN VARCHAR2
2092: := fnd_api.g_false,
2093: p_validation_level IN NUMBER
2094: := fnd_api.g_valid_level_full,
2095: x_return_status OUT NOCOPY VARCHAR2,
2096: x_msg_count OUT NOCOPY NUMBER,
2090: := fnd_api.g_false,
2091: p_commit IN VARCHAR2
2092: := fnd_api.g_false,
2093: p_validation_level IN NUMBER
2094: := fnd_api.g_valid_level_full,
2095: x_return_status OUT NOCOPY VARCHAR2,
2096: x_msg_count OUT NOCOPY NUMBER,
2097: x_msg_data OUT NOCOPY VARCHAR2,
2098: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
2104: )
2105: IS
2106: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Accounts';
2107: l_api_version CONSTANT NUMBER := 1.0;
2108: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2109: l_msg_count NUMBER := 0;
2110: l_msg_data VARCHAR2 (8000) := '';
2111: l_stmt_num NUMBER := 0;
2112: l_api_message VARCHAR2 (1000);
2141: );
2142: END IF;
2143:
2144: -- Standard call to check for call compatibility
2145: IF NOT fnd_api.compatible_api_call (l_api_version,
2146: p_api_version,
2147: l_api_name,
2148: g_pkg_name
2149: )
2147: l_api_name,
2148: g_pkg_name
2149: )
2150: THEN
2151: RAISE fnd_api.g_exc_unexpected_error;
2152: END IF;
2153:
2154: -- Initialize message list if p_init_msg_list is set to TRUE
2155: IF fnd_api.to_boolean (p_init_msg_list)
2151: RAISE fnd_api.g_exc_unexpected_error;
2152: END IF;
2153:
2154: -- Initialize message list if p_init_msg_list is set to TRUE
2155: IF fnd_api.to_boolean (p_init_msg_list)
2156: THEN
2157: fnd_msg_pub.initialize;
2158: END IF;
2159:
2157: fnd_msg_pub.initialize;
2158: END IF;
2159:
2160: -- Initialize API return status to success
2161: x_return_status := fnd_api.g_ret_sts_success;
2162: x_credit_acct_id := NULL;
2163: x_debit_acct_id := NULL;
2164: x_ic_cogs_acct_id := NULL;
2165: -- No accounts are stored for IC transactions.
2227: THEN
2228: l_stmt_num := 30;
2229: po_accounting_grp.build_offset_account
2230: (p_api_version => 1.0,
2231: p_init_msg_list => fnd_api.g_false,
2232: x_return_status => l_return_status,
2233: p_base_ccid => l_receiving_insp_acct_id,
2234: p_overlay_ccid => l_dest_pod_ccid,
2235: p_accounting_date => SYSDATE,
2311: p_org_id => p_rcv_accttxn.org_id,
2312: x_distribution_acct_id => l_dist_acct_id
2313: );
2314:
2315: IF l_return_status <> fnd_api.g_ret_sts_success
2316: THEN
2317: l_api_message := 'Error in Get_HookAccount';
2318:
2319: IF g_debug = 'Y'
2329: || l_api_message
2330: );
2331: END IF;
2332:
2333: RAISE fnd_api.g_exc_unexpected_error;
2334: END IF;
2335:
2336: IF (l_dist_acct_id = -1)
2337: THEN
2412: p_org_id => p_rcv_accttxn.org_id,
2413: x_distribution_acct_id => l_dist_acct_id
2414: );
2415:
2416: IF l_return_status <> fnd_api.g_ret_sts_success
2417: THEN
2418: l_api_message := 'Error in Get_HookAccount';
2419:
2420: IF g_debug = 'Y'
2430: || l_api_message
2431: );
2432: END IF;
2433:
2434: RAISE fnd_api.g_exc_unexpected_error;
2435: END IF;
2436:
2437: IF (l_dist_acct_id = -1)
2438: THEN
2488: p_org_id => p_rcv_accttxn.org_id,
2489: x_distribution_acct_id => l_dist_acct_id
2490: );
2491:
2492: IF l_return_status <> fnd_api.g_ret_sts_success
2493: THEN
2494: l_api_message := 'Error in Get_HookAccount';
2495:
2496: IF g_debug = 'Y'
2508: || l_api_message
2509: );
2510: END IF;
2511:
2512: RAISE fnd_api.g_exc_unexpected_error;
2513: END IF;
2514:
2515: IF (l_dist_acct_id = -1)
2516: THEN
2549: p_org_id => p_rcv_accttxn.org_id,
2550: x_distribution_acct_id => l_dist_acct_id
2551: );
2552:
2553: IF l_return_status <> fnd_api.g_ret_sts_success
2554: THEN
2555: l_api_message := 'Error in Get_HookAccount';
2556:
2557: IF g_debug = 'Y'
2569: || l_api_message
2570: );
2571: END IF;
2572:
2573: RAISE fnd_api.g_exc_unexpected_error;
2574: END IF;
2575:
2576: IF (l_dist_acct_id = -1)
2577: THEN
2681: FALSE
2682: );
2683: END IF;
2684:
2685: RAISE fnd_api.g_exc_error;
2686: END IF;
2687:
2688: -- Standard check of p_commit
2689: IF fnd_api.to_boolean (p_commit)
2685: RAISE fnd_api.g_exc_error;
2686: END IF;
2687:
2688: -- Standard check of p_commit
2689: IF fnd_api.to_boolean (p_commit)
2690: THEN
2691: COMMIT WORK;
2692: END IF;
2693:
2703: 'Get_Accounts >>'
2704: );
2705: END IF;
2706: EXCEPTION
2707: WHEN fnd_api.g_exc_error
2708: THEN
2709: ROLLBACK TO get_accounts_pvt;
2710: x_return_status := fnd_api.g_ret_sts_error;
2711: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2706: EXCEPTION
2707: WHEN fnd_api.g_exc_error
2708: THEN
2709: ROLLBACK TO get_accounts_pvt;
2710: x_return_status := fnd_api.g_ret_sts_error;
2711: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2712: p_data => x_msg_data
2713: );
2714: WHEN fnd_api.g_exc_unexpected_error
2710: x_return_status := fnd_api.g_ret_sts_error;
2711: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2712: p_data => x_msg_data
2713: );
2714: WHEN fnd_api.g_exc_unexpected_error
2715: THEN
2716: ROLLBACK TO get_accounts_pvt;
2717: x_return_status := fnd_api.g_ret_sts_unexp_error;
2718: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2713: );
2714: WHEN fnd_api.g_exc_unexpected_error
2715: THEN
2716: ROLLBACK TO get_accounts_pvt;
2717: x_return_status := fnd_api.g_ret_sts_unexp_error;
2718: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2719: p_data => x_msg_data
2720: );
2721: WHEN OTHERS
2720: );
2721: WHEN OTHERS
2722: THEN
2723: ROLLBACK TO get_accounts_pvt;
2724: x_return_status := fnd_api.g_ret_sts_unexp_error;
2725:
2726: IF g_debug = 'Y'
2727: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2728: THEN
2756: -- Pre-reqs :
2757: -- Parameters :
2758: -- IN : p_api_version IN NUMBER Required
2759: -- p_init_msg_list IN VARCHAR2 Optional
2760: -- Default = FND_API.G_FALSE
2761: -- p_commit IN VARCHAR2 Optional
2762: -- Default = FND_API.G_FALSE
2763: -- p_validation_level IN NUMBER Optional
2764: -- Default = FND_API.G_VALID_LEVEL_FULL
2758: -- IN : p_api_version IN NUMBER Required
2759: -- p_init_msg_list IN VARCHAR2 Optional
2760: -- Default = FND_API.G_FALSE
2761: -- p_commit IN VARCHAR2 Optional
2762: -- Default = FND_API.G_FALSE
2763: -- p_validation_level IN NUMBER Optional
2764: -- Default = FND_API.G_VALID_LEVEL_FULL
2765: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2766: --
2760: -- Default = FND_API.G_FALSE
2761: -- p_commit IN VARCHAR2 Optional
2762: -- Default = FND_API.G_FALSE
2763: -- p_validation_level IN NUMBER Optional
2764: -- Default = FND_API.G_VALID_LEVEL_FULL
2765: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2766: --
2767: -- OUT : x_return_status OUT VARCHAR2(1)
2768: -- x_msg_count OUT NUMBER
2777: --
2778: -- End of comments
2779: PROCEDURE get_ussgltc (
2780: p_api_version IN NUMBER,
2781: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2782: p_commit IN VARCHAR2 := fnd_api.g_false,
2783: p_validation_level IN NUMBER
2784: := fnd_api.g_valid_level_full,
2785: x_return_status OUT NOCOPY VARCHAR2,
2778: -- End of comments
2779: PROCEDURE get_ussgltc (
2780: p_api_version IN NUMBER,
2781: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2782: p_commit IN VARCHAR2 := fnd_api.g_false,
2783: p_validation_level IN NUMBER
2784: := fnd_api.g_valid_level_full,
2785: x_return_status OUT NOCOPY VARCHAR2,
2786: x_msg_count OUT NOCOPY NUMBER,
2780: p_api_version IN NUMBER,
2781: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2782: p_commit IN VARCHAR2 := fnd_api.g_false,
2783: p_validation_level IN NUMBER
2784: := fnd_api.g_valid_level_full,
2785: x_return_status OUT NOCOPY VARCHAR2,
2786: x_msg_count OUT NOCOPY NUMBER,
2787: x_msg_data OUT NOCOPY VARCHAR2,
2788: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
2790: )
2791: IS
2792: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UssglTC';
2793: l_api_version CONSTANT NUMBER := 1.0;
2794: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2795: l_msg_count NUMBER := 0;
2796: l_msg_data VARCHAR2 (8000) := '';
2797: l_stmt_num NUMBER := 0;
2798: l_api_message VARCHAR2 (1000);
2812: );
2813: END IF;
2814:
2815: -- Standard call to check for call compatibility
2816: IF NOT fnd_api.compatible_api_call (l_api_version,
2817: p_api_version,
2818: l_api_name,
2819: g_pkg_name
2820: )
2818: l_api_name,
2819: g_pkg_name
2820: )
2821: THEN
2822: RAISE fnd_api.g_exc_unexpected_error;
2823: END IF;
2824:
2825: -- Initialize message list if p_init_msg_list is set to TRUE
2826: IF fnd_api.to_boolean (p_init_msg_list)
2822: RAISE fnd_api.g_exc_unexpected_error;
2823: END IF;
2824:
2825: -- Initialize message list if p_init_msg_list is set to TRUE
2826: IF fnd_api.to_boolean (p_init_msg_list)
2827: THEN
2828: fnd_msg_pub.initialize;
2829: END IF;
2830:
2828: fnd_msg_pub.initialize;
2829: END IF;
2830:
2831: -- Initialize API return status to success
2832: x_return_status := fnd_api.g_ret_sts_success;
2833: l_ussgl_option := NVL (fnd_profile.VALUE ('USSGL_OPTION'), 'N');
2834:
2835: IF (l_ussgl_option = 'Y')
2836: THEN
2867: );
2868: END IF;
2869:
2870: --- Standard check of p_commit
2871: IF fnd_api.to_boolean (p_commit)
2872: THEN
2873: COMMIT WORK;
2874: END IF;
2875:
2885: 'Get_UssglTC >>'
2886: );
2887: END IF;
2888: EXCEPTION
2889: WHEN fnd_api.g_exc_error
2890: THEN
2891: ROLLBACK TO get_ussgltc_pvt;
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2888: EXCEPTION
2889: WHEN fnd_api.g_exc_error
2890: THEN
2891: ROLLBACK TO get_ussgltc_pvt;
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2894: p_data => x_msg_data
2895: );
2896: WHEN fnd_api.g_exc_unexpected_error
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2894: p_data => x_msg_data
2895: );
2896: WHEN fnd_api.g_exc_unexpected_error
2897: THEN
2898: ROLLBACK TO get_ussgltc_pvt;
2899: x_return_status := fnd_api.g_ret_sts_unexp_error;
2900: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2895: );
2896: WHEN fnd_api.g_exc_unexpected_error
2897: THEN
2898: ROLLBACK TO get_ussgltc_pvt;
2899: x_return_status := fnd_api.g_ret_sts_unexp_error;
2900: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2901: p_data => x_msg_data
2902: );
2903: WHEN OTHERS
2902: );
2903: WHEN OTHERS
2904: THEN
2905: ROLLBACK TO get_ussgltc_pvt;
2906: x_return_status := fnd_api.g_ret_sts_unexp_error;
2907:
2908: IF g_debug = 'Y'
2909: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2910: THEN
2938: -- Pre-reqs :
2939: -- Parameters :
2940: -- IN : p_api_version IN NUMBER Required
2941: -- p_init_msg_list IN VARCHAR2 Optional
2942: -- Default = FND_API.G_FALSE
2943: -- p_commit IN VARCHAR2 Optional
2944: -- Default = FND_API.G_FALSE
2945: -- p_validation_level IN NUMBER Optional
2946: -- Default = FND_API.G_VALID_LEVEL_FULL
2940: -- IN : p_api_version IN NUMBER Required
2941: -- p_init_msg_list IN VARCHAR2 Optional
2942: -- Default = FND_API.G_FALSE
2943: -- p_commit IN VARCHAR2 Optional
2944: -- Default = FND_API.G_FALSE
2945: -- p_validation_level IN NUMBER Optional
2946: -- Default = FND_API.G_VALID_LEVEL_FULL
2947: -- p_rcv_ledger_id IN NUMBER Required
2948: -- p_po_header_id IN NUMBER Required
2942: -- Default = FND_API.G_FALSE
2943: -- p_commit IN VARCHAR2 Optional
2944: -- Default = FND_API.G_FALSE
2945: -- p_validation_level IN NUMBER Optional
2946: -- Default = FND_API.G_VALID_LEVEL_FULL
2947: -- p_rcv_ledger_id IN NUMBER Required
2948: -- p_po_header_id IN NUMBER Required
2949: --
2950: -- x_encumbrance_flag OUT VARCHAR2(1)
2963: --
2964: -- End of comments
2965: PROCEDURE check_encumbranceflag (
2966: p_api_version IN NUMBER,
2967: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2968: p_commit IN VARCHAR2 := fnd_api.g_false,
2969: p_validation_level IN NUMBER
2970: := fnd_api.g_valid_level_full,
2971: x_return_status OUT NOCOPY VARCHAR2,
2964: -- End of comments
2965: PROCEDURE check_encumbranceflag (
2966: p_api_version IN NUMBER,
2967: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2968: p_commit IN VARCHAR2 := fnd_api.g_false,
2969: p_validation_level IN NUMBER
2970: := fnd_api.g_valid_level_full,
2971: x_return_status OUT NOCOPY VARCHAR2,
2972: x_msg_count OUT NOCOPY NUMBER,
2966: p_api_version IN NUMBER,
2967: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2968: p_commit IN VARCHAR2 := fnd_api.g_false,
2969: p_validation_level IN NUMBER
2970: := fnd_api.g_valid_level_full,
2971: x_return_status OUT NOCOPY VARCHAR2,
2972: x_msg_count OUT NOCOPY NUMBER,
2973: x_msg_data OUT NOCOPY VARCHAR2,
2974: p_rcv_ledger_id IN NUMBER,
2977: )
2978: IS
2979: l_api_name CONSTANT VARCHAR2 (30) := 'Check_EncumbranceFlag';
2980: l_api_version CONSTANT NUMBER := 1.0;
2981: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2982: l_msg_count NUMBER := 0;
2983: l_msg_data VARCHAR2 (8000) := '';
2984: l_stmt_num NUMBER := 0;
2985: l_api_message VARCHAR2 (1000);
2998: );
2999: END IF;
3000:
3001: -- Standard call to check for call compatibility
3002: IF NOT fnd_api.compatible_api_call (l_api_version,
3003: p_api_version,
3004: l_api_name,
3005: g_pkg_name
3006: )
3004: l_api_name,
3005: g_pkg_name
3006: )
3007: THEN
3008: RAISE fnd_api.g_exc_unexpected_error;
3009: END IF;
3010:
3011: -- Initialize message list if p_init_msg_list is set to TRUE
3012: IF fnd_api.to_boolean (p_init_msg_list)
3008: RAISE fnd_api.g_exc_unexpected_error;
3009: END IF;
3010:
3011: -- Initialize message list if p_init_msg_list is set to TRUE
3012: IF fnd_api.to_boolean (p_init_msg_list)
3013: THEN
3014: fnd_msg_pub.initialize;
3015: END IF;
3016:
3014: fnd_msg_pub.initialize;
3015: END IF;
3016:
3017: -- Initialize API return status to success
3018: x_return_status := fnd_api.g_ret_sts_success;
3019: l_stmt_num := 10;
3020:
3021: SELECT NVL (fsp.purch_encumbrance_flag, 'N')
3022: INTO l_encumbrance_flag
3040: );
3041: END IF;
3042:
3043: -- Standard check of p_commit
3044: IF fnd_api.to_boolean (p_commit)
3045: THEN
3046: COMMIT WORK;
3047: END IF;
3048:
3058: 'Check_EncumbranceFlag >>'
3059: );
3060: END IF;
3061: EXCEPTION
3062: WHEN fnd_api.g_exc_error
3063: THEN
3064: ROLLBACK TO check_encumbranceflag_pvt;
3065: x_return_status := fnd_api.g_ret_sts_error;
3066: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3061: EXCEPTION
3062: WHEN fnd_api.g_exc_error
3063: THEN
3064: ROLLBACK TO check_encumbranceflag_pvt;
3065: x_return_status := fnd_api.g_ret_sts_error;
3066: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3067: p_data => x_msg_data
3068: );
3069: WHEN fnd_api.g_exc_unexpected_error
3065: x_return_status := fnd_api.g_ret_sts_error;
3066: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3067: p_data => x_msg_data
3068: );
3069: WHEN fnd_api.g_exc_unexpected_error
3070: THEN
3071: ROLLBACK TO check_encumbranceflag_pvt;
3072: x_return_status := fnd_api.g_ret_sts_unexp_error;
3073: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3068: );
3069: WHEN fnd_api.g_exc_unexpected_error
3070: THEN
3071: ROLLBACK TO check_encumbranceflag_pvt;
3072: x_return_status := fnd_api.g_ret_sts_unexp_error;
3073: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3074: p_data => x_msg_data
3075: );
3076: WHEN OTHERS
3075: );
3076: WHEN OTHERS
3077: THEN
3078: ROLLBACK TO check_encumbranceflag_pvt;
3079: x_return_status := fnd_api.g_ret_sts_unexp_error;
3080:
3081: IF g_debug = 'Y'
3082: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3083: THEN
3145: -- End of comments --
3146: -----------------------------------------------------------------------------
3147: PROCEDURE create_mmtrecord (
3148: p_api_version IN NUMBER,
3149: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3150: p_commit IN VARCHAR2 := fnd_api.g_false,
3151: p_validation_level IN NUMBER
3152: := fnd_api.g_valid_level_full,
3153: x_return_status OUT NOCOPY VARCHAR2,
3146: -----------------------------------------------------------------------------
3147: PROCEDURE create_mmtrecord (
3148: p_api_version IN NUMBER,
3149: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3150: p_commit IN VARCHAR2 := fnd_api.g_false,
3151: p_validation_level IN NUMBER
3152: := fnd_api.g_valid_level_full,
3153: x_return_status OUT NOCOPY VARCHAR2,
3154: x_msg_count OUT NOCOPY NUMBER,
3148: p_api_version IN NUMBER,
3149: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3150: p_commit IN VARCHAR2 := fnd_api.g_false,
3151: p_validation_level IN NUMBER
3152: := fnd_api.g_valid_level_full,
3153: x_return_status OUT NOCOPY VARCHAR2,
3154: x_msg_count OUT NOCOPY NUMBER,
3155: x_msg_data OUT NOCOPY VARCHAR2,
3156: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
3166: IS
3167: l_api_name CONSTANT VARCHAR2 (30) := 'Create_MMTRecord';
3168: l_api_version CONSTANT NUMBER := 1.0;
3169: l_api_message VARCHAR2 (1000);
3170: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3171: l_msg_count NUMBER := 0;
3172: l_msg_data VARCHAR2 (8000) := '';
3173: l_stmt_num NUMBER := 0;
3174: l_ctr BINARY_INTEGER;
3192: );
3193: END IF;
3194:
3195: -- Standard call to check for call compatibility
3196: IF NOT fnd_api.compatible_api_call (l_api_version,
3197: p_api_version,
3198: l_api_name,
3199: g_pkg_name
3200: )
3198: l_api_name,
3199: g_pkg_name
3200: )
3201: THEN
3202: RAISE fnd_api.g_exc_unexpected_error;
3203: END IF;
3204:
3205: -- Initialize message list if p_init_msg_list is set to TRUE
3206: IF fnd_api.to_boolean (p_init_msg_list)
3202: RAISE fnd_api.g_exc_unexpected_error;
3203: END IF;
3204:
3205: -- Initialize message list if p_init_msg_list is set to TRUE
3206: IF fnd_api.to_boolean (p_init_msg_list)
3207: THEN
3208: fnd_msg_pub.initialize;
3209: END IF;
3210:
3208: fnd_msg_pub.initialize;
3209: END IF;
3210:
3211: -- Initialize API return status to success
3212: x_return_status := fnd_api.g_ret_sts_success;
3213: x_msg_count := 0;
3214: x_msg_data := '';
3215: -- API Body
3216: l_inv_trx.intercompany_pricing_option :=
3421:
3422: -- ***************
3423:
3424: -- Standard check of p_commit
3425: IF fnd_api.to_boolean (p_commit)
3426: THEN
3427: COMMIT WORK;
3428: END IF;
3429:
3439: 'Create_MMTRecord >>'
3440: );
3441: END IF;
3442: EXCEPTION
3443: WHEN fnd_api.g_exc_error
3444: THEN
3445: ROLLBACK TO create_mmtrecord_pvt;
3446: x_return_status := fnd_api.g_ret_sts_error;
3447: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3442: EXCEPTION
3443: WHEN fnd_api.g_exc_error
3444: THEN
3445: ROLLBACK TO create_mmtrecord_pvt;
3446: x_return_status := fnd_api.g_ret_sts_error;
3447: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3448: p_data => x_msg_data
3449: );
3450: WHEN fnd_api.g_exc_unexpected_error
3446: x_return_status := fnd_api.g_ret_sts_error;
3447: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3448: p_data => x_msg_data
3449: );
3450: WHEN fnd_api.g_exc_unexpected_error
3451: THEN
3452: ROLLBACK TO create_mmtrecord_pvt;
3453: x_return_status := fnd_api.g_ret_sts_unexp_error;
3454: l_api_message :=
3449: );
3450: WHEN fnd_api.g_exc_unexpected_error
3451: THEN
3452: ROLLBACK TO create_mmtrecord_pvt;
3453: x_return_status := fnd_api.g_ret_sts_unexp_error;
3454: l_api_message :=
3455: 'Unexpected error at statement ' || TO_CHAR (l_stmt_num);
3456:
3457: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3466: );
3467: WHEN invalid_txn_type
3468: THEN
3469: ROLLBACK TO create_mmtrecord_pvt;
3470: x_return_status := fnd_api.g_ret_sts_error;
3471: l_api_message :=
3472: 'Unexpected transaction type passed in: '
3473: || TO_CHAR (p_txn_type_id);
3474:
3493: );
3494: WHEN NO_DATA_FOUND
3495: THEN
3496: ROLLBACK TO create_mmtrecord_pvt;
3497: x_return_status := fnd_api.g_ret_sts_error;
3498:
3499: IF g_debug = 'Y'
3500: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3501: THEN
3516: );
3517: WHEN OTHERS
3518: THEN
3519: ROLLBACK TO create_mmtrecord_pvt;
3520: x_return_status := fnd_api.g_ret_sts_unexp_error;
3521: l_api_message :=
3522: TO_CHAR (SQLCODE) || '- '
3523: || SUBSTRB (SQLERRM, 1, 100);
3524:
3577: -- End of comments --
3578: -----------------------------------------------------------------------------
3579: PROCEDURE insert_mmt (
3580: p_api_version IN NUMBER,
3581: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3582: p_commit IN VARCHAR2 := fnd_api.g_false,
3583: p_validation_level IN NUMBER
3584: := fnd_api.g_valid_level_full,
3585: x_return_status OUT NOCOPY VARCHAR2,
3578: -----------------------------------------------------------------------------
3579: PROCEDURE insert_mmt (
3580: p_api_version IN NUMBER,
3581: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3582: p_commit IN VARCHAR2 := fnd_api.g_false,
3583: p_validation_level IN NUMBER
3584: := fnd_api.g_valid_level_full,
3585: x_return_status OUT NOCOPY VARCHAR2,
3586: x_msg_count OUT NOCOPY NUMBER,
3580: p_api_version IN NUMBER,
3581: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3582: p_commit IN VARCHAR2 := fnd_api.g_false,
3583: p_validation_level IN NUMBER
3584: := fnd_api.g_valid_level_full,
3585: x_return_status OUT NOCOPY VARCHAR2,
3586: x_msg_count OUT NOCOPY NUMBER,
3587: x_msg_data OUT NOCOPY VARCHAR2,
3588: p_rcv_accttxn_tbl IN gmf_rcv_accounting_pkg.rcv_accttxn_tbl_type
3590: IS
3591: l_api_name CONSTANT VARCHAR2 (30) := 'Insert_MMT';
3592: l_api_version CONSTANT NUMBER := 1.0;
3593: l_api_message VARCHAR2 (1000);
3594: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3595: l_msg_count NUMBER := 0;
3596: l_msg_data VARCHAR2 (8000) := '';
3597: l_stmt_num NUMBER := 0;
3598: l_ctr BINARY_INTEGER;
3623: );
3624: END IF;
3625:
3626: -- Standard call to check for call compatibility
3627: IF NOT fnd_api.compatible_api_call (l_api_version,
3628: p_api_version,
3629: l_api_name,
3630: g_pkg_name
3631: )
3629: l_api_name,
3630: g_pkg_name
3631: )
3632: THEN
3633: RAISE fnd_api.g_exc_unexpected_error;
3634: END IF;
3635:
3636: -- Initialize message list if p_init_msg_list is set to TRUE
3637: IF fnd_api.to_boolean (p_init_msg_list)
3633: RAISE fnd_api.g_exc_unexpected_error;
3634: END IF;
3635:
3636: -- Initialize message list if p_init_msg_list is set to TRUE
3637: IF fnd_api.to_boolean (p_init_msg_list)
3638: THEN
3639: fnd_msg_pub.initialize;
3640: END IF;
3641:
3639: fnd_msg_pub.initialize;
3640: END IF;
3641:
3642: -- Initialize API return status to success
3643: x_return_status := fnd_api.g_ret_sts_success;
3644: x_msg_count := 0;
3645: x_msg_data := '';
3646: -- API Body
3647: -- Initialize counters
3783: )
3784: );
3785: END IF;
3786:
3787: IF (l_return_status <> fnd_api.g_ret_sts_success)
3788: THEN
3789: RAISE fnd_api.g_exc_error;
3790: END IF;
3791:
3785: END IF;
3786:
3787: IF (l_return_status <> fnd_api.g_ret_sts_success)
3788: THEN
3789: RAISE fnd_api.g_exc_error;
3790: END IF;
3791:
3792: l_stmt_num := 50;
3793: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
3855: )
3856: );
3857: END IF;
3858:
3859: IF (l_return_status <> fnd_api.g_ret_sts_success)
3860: THEN
3861: RAISE fnd_api.g_exc_error;
3862: END IF;
3863: ELSIF (p_rcv_accttxn_tbl (l_ctr).event_type_id =
3857: END IF;
3858:
3859: IF (l_return_status <> fnd_api.g_ret_sts_success)
3860: THEN
3861: RAISE fnd_api.g_exc_error;
3862: END IF;
3863: ELSIF (p_rcv_accttxn_tbl (l_ctr).event_type_id =
3864: logical_return_to_vendor
3865: )
3958: )
3959: );
3960: END IF;
3961:
3962: IF (l_return_status <> fnd_api.g_ret_sts_success)
3963: THEN
3964: RAISE fnd_api.g_exc_error;
3965: END IF;
3966:
3960: END IF;
3961:
3962: IF (l_return_status <> fnd_api.g_ret_sts_success)
3963: THEN
3964: RAISE fnd_api.g_exc_error;
3965: END IF;
3966:
3967: l_stmt_num := 120;
3968: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
4031: )
4032: );
4033: END IF;
4034:
4035: IF (l_return_status <> fnd_api.g_ret_sts_success)
4036: THEN
4037: RAISE fnd_api.g_exc_error;
4038: END IF;
4039: ELSE
4033: END IF;
4034:
4035: IF (l_return_status <> fnd_api.g_ret_sts_success)
4036: THEN
4037: RAISE fnd_api.g_exc_error;
4038: END IF;
4039: ELSE
4040: RAISE invalid_event;
4041: -- catch error: should never get anything but Log rcpt or Log RTV
4072: p_logical_trx_type_code => 3,
4073: p_exploded_flag => 1
4074: );
4075:
4076: IF (l_return_status <> fnd_api.g_ret_sts_success)
4077: THEN
4078: RAISE fnd_api.g_exc_error;
4079: END IF;
4080:
4074: );
4075:
4076: IF (l_return_status <> fnd_api.g_ret_sts_success)
4077: THEN
4078: RAISE fnd_api.g_exc_error;
4079: END IF;
4080:
4081: -- End API Body
4082:
4080:
4081: -- End API Body
4082:
4083: -- Standard check of p_commit
4084: IF fnd_api.to_boolean (p_commit)
4085: THEN
4086: COMMIT WORK;
4087: END IF;
4088:
4097: EXCEPTION
4098: WHEN invalid_event
4099: THEN
4100: ROLLBACK TO insert_mmt_pvt;
4101: x_return_status := fnd_api.g_ret_sts_unexp_error;
4102: l_api_message :=
4103: 'Unexpected event in element '
4104: || TO_CHAR (l_ctr)
4105: || ' of input parameter p_rcv_accttxn_tbl';
4122:
4123: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4124: p_data => x_msg_data
4125: );
4126: WHEN fnd_api.g_exc_error
4127: THEN
4128: ROLLBACK TO insert_mmt_pvt;
4129: x_return_status := fnd_api.g_ret_sts_error;
4130: l_api_message := 'Call to procedure failed';
4125: );
4126: WHEN fnd_api.g_exc_error
4127: THEN
4128: ROLLBACK TO insert_mmt_pvt;
4129: x_return_status := fnd_api.g_ret_sts_error;
4130: l_api_message := 'Call to procedure failed';
4131:
4132: IF g_debug = 'Y'
4133: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4140:
4141: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4142: p_data => x_msg_data
4143: );
4144: WHEN fnd_api.g_exc_unexpected_error
4145: THEN
4146: ROLLBACK TO insert_mmt_pvt;
4147: x_return_status := fnd_api.g_ret_sts_unexp_error;
4148: l_api_message :=
4143: );
4144: WHEN fnd_api.g_exc_unexpected_error
4145: THEN
4146: ROLLBACK TO insert_mmt_pvt;
4147: x_return_status := fnd_api.g_ret_sts_unexp_error;
4148: l_api_message :=
4149: 'Wrong version #, expecting version ' || TO_CHAR (l_api_version);
4150:
4151: IF g_debug = 'Y'
4162: );
4163: WHEN OTHERS
4164: THEN
4165: ROLLBACK TO insert_mmt_pvt;
4166: x_return_status := fnd_api.g_ret_sts_unexp_error;
4167: l_api_message :=
4168: 'Unexpected Error: '
4169: || l_stmt_num
4170: || ': '
4198: ** ========================================== **/
4199: PROCEDURE insert_txn (
4200: p_api_version IN NUMBER := 1.0,
4201: p_init_msg_list IN VARCHAR2
4202: := fnd_api.g_false,
4203: p_commit IN VARCHAR2
4204: := fnd_api.g_false,
4205: p_validation_level IN NUMBER
4206: := fnd_api.g_valid_level_full,
4200: p_api_version IN NUMBER := 1.0,
4201: p_init_msg_list IN VARCHAR2
4202: := fnd_api.g_false,
4203: p_commit IN VARCHAR2
4204: := fnd_api.g_false,
4205: p_validation_level IN NUMBER
4206: := fnd_api.g_valid_level_full,
4207: x_return_status OUT NOCOPY VARCHAR2,
4208: x_msg_count OUT NOCOPY NUMBER,
4202: := fnd_api.g_false,
4203: p_commit IN VARCHAR2
4204: := fnd_api.g_false,
4205: p_validation_level IN NUMBER
4206: := fnd_api.g_valid_level_full,
4207: x_return_status OUT NOCOPY VARCHAR2,
4208: x_msg_count OUT NOCOPY NUMBER,
4209: x_msg_data OUT NOCOPY VARCHAR2,
4210: p_event_source IN VARCHAR2,
4231: )
4232: IS
4233: c_log_module CONSTANT VARCHAR2 (30) := 'Insert_Txn';
4234: l_api_version CONSTANT NUMBER := 1.0;
4235: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
4236: l_msg_count NUMBER := 0;
4237: l_msg_data VARCHAR2 (8000) := '';
4238: l_stmt_num NUMBER := 0;
4239: l_api_message VARCHAR2 (1000);
4285: );
4286: END IF;
4287:
4288: -- Standard call to check for call compatibility
4289: IF NOT fnd_api.compatible_api_call (l_api_version,
4290: p_api_version,
4291: l_api_name,
4292: g_pkg_name
4293: )
4291: l_api_name,
4292: g_pkg_name
4293: )
4294: THEN
4295: RAISE fnd_api.g_exc_unexpected_error;
4296: END IF;
4297:
4298: -- Initialize message list if p_init_msg_list is set to TRUE
4299: IF fnd_api.to_boolean (p_init_msg_list)
4295: RAISE fnd_api.g_exc_unexpected_error;
4296: END IF;
4297:
4298: -- Initialize message list if p_init_msg_list is set to TRUE
4299: IF fnd_api.to_boolean (p_init_msg_list)
4300: THEN
4301: fnd_msg_pub.initialize;
4302: END IF;
4303:
4301: fnd_msg_pub.initialize;
4302: END IF;
4303:
4304: -- Initialize API return status to success
4305: x_return_status := fnd_api.g_ret_sts_success;
4306:
4307: IF g_debug = 'Y'
4308: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
4309: THEN
4532: x_encumbrance_flag => l_encumbrance_flag,
4533: x_ussgl_option => l_ussgl_option
4534: );
4535:
4536: IF l_return_status <> fnd_api.g_ret_sts_success
4537: THEN
4538: l_api_message := 'Error in checking for encumbrance flag ';
4539:
4540: IF g_debug = 'Y'
4550: || l_api_message
4551: );
4552: END IF;
4553:
4554: RAISE fnd_api.g_exc_unexpected_error;
4555: END IF;
4556:
4557: IF (l_encumbrance_flag = 'Y' OR l_ussgl_option = 'Y')
4558: THEN
4597: p_rcv_accttxn => l_rcv_accttxn,
4598: x_transaction_amount => l_transaction_amount
4599: );
4600:
4601: IF l_return_status <> fnd_api.g_ret_sts_success
4602: THEN
4603: l_api_message := 'Error getting transaction amount';
4604:
4605: IF g_debug = 'Y'
4613: || l_api_message
4614: );
4615: END IF;
4616:
4617: RAISE fnd_api.g_exc_unexpected_error;
4618: END IF;
4619:
4620: l_rcv_accttxn.transaction_amount := l_transaction_amount;
4621: ELSE
4659: x_incr_transfer_price => l_incr_transfer_price,
4660: x_incr_currency_code => l_incr_currency_code
4661: );
4662:
4663: IF l_return_status <> fnd_api.g_ret_sts_success
4664: THEN
4665: l_api_message := 'Error getting unit price';
4666:
4667: IF g_debug = 'Y'
4675: || l_api_message
4676: );
4677: END IF;
4678:
4679: RAISE fnd_api.g_exc_unexpected_error;
4680: END IF;
4681:
4682: l_rcv_accttxn.intercompany_pricing_option := l_ic_pricing_option;
4683: l_rcv_accttxn.currency_code := l_currency_code;
4708: p_rcv_accttxn => l_rcv_accttxn,
4709: x_source_doc_quantity => l_source_doc_quantity
4710: );
4711:
4712: IF l_return_status <> fnd_api.g_ret_sts_success
4713: THEN
4714: l_api_message := 'Error getting quantity';
4715:
4716: IF g_debug = 'Y'
4724: || l_api_message
4725: );
4726: END IF;
4727:
4728: RAISE fnd_api.g_exc_unexpected_error;
4729: END IF;
4730:
4731: l_rcv_accttxn.source_doc_quantity := l_source_doc_quantity;
4732:
4774: x_prior_nr_tax => l_prior_nr_tax,
4775: x_prior_rec_tax => l_prior_rec_tax
4776: );
4777:
4778: IF l_return_status <> fnd_api.g_ret_sts_success
4779: THEN
4780: l_api_message := 'Error getting tax';
4781:
4782: IF g_debug = 'Y'
4790: || l_api_message
4791: );
4792: END IF;
4793:
4794: RAISE fnd_api.g_exc_unexpected_error;
4795: END IF;
4796:
4797: l_rcv_accttxn.unit_nr_tax := l_unit_nr_tax;
4798: l_rcv_accttxn.unit_rec_tax := l_unit_rec_tax;
4822: x_primary_qty => l_primary_qty,
4823: x_trx_uom_code => l_trx_uom_code
4824: );
4825:
4826: IF l_return_status <> fnd_api.g_ret_sts_success
4827: THEN
4828: l_api_message := 'Error Converting UOM';
4829:
4830: IF g_debug = 'Y'
4838: || l_api_message
4839: );
4840: END IF;
4841:
4842: RAISE fnd_api.g_exc_unexpected_error;
4843: END IF;
4844:
4845: l_rcv_accttxn.transaction_quantity := l_transaction_quantity;
4846: l_rcv_accttxn.primary_uom := l_primary_uom;
4870: x_currency_conversion_date => l_currency_conversion_date,
4871: x_currency_conversion_type => l_currency_conversion_type
4872: );
4873:
4874: IF l_return_status <> fnd_api.g_ret_sts_success
4875: THEN
4876: l_api_message := 'Error Getting Currency';
4877:
4878: IF g_debug = 'Y'
4886: || l_api_message
4887: );
4888: END IF;
4889:
4890: RAISE fnd_api.g_exc_unexpected_error;
4891: END IF;
4892:
4893: l_rcv_accttxn.currency_code := l_currency_code;
4894: l_rcv_accttxn.currency_conversion_rate := l_currency_conversion_rate;
4918: x_debit_acct_id => l_debit_acct_id,
4919: x_ic_cogs_acct_id => l_ic_cogs_acct_id
4920: );
4921:
4922: IF l_return_status <> fnd_api.g_ret_sts_success
4923: THEN
4924: l_api_message := 'Error getting account information';
4925:
4926: IF g_debug = 'Y'
4934: || l_api_message
4935: );
4936: END IF;
4937:
4938: RAISE fnd_api.g_exc_unexpected_error;
4939: END IF;
4940:
4941: l_rcv_accttxn.credit_account_id := l_credit_acct_id;
4942: l_rcv_accttxn.debit_account_id := l_debit_acct_id;
4960: p_rcv_accttxn => l_rcv_accttxn,
4961: x_ussgl_tc => l_ussgl_tc
4962: );
4963:
4964: IF l_return_status <> fnd_api.g_ret_sts_success
4965: THEN
4966: l_api_message := 'Error getting USSGL Transaction Code';
4967:
4968: IF g_debug = 'Y'
4976: || l_api_message
4977: );
4978: END IF;
4979:
4980: RAISE fnd_api.g_exc_unexpected_error;
4981: END IF;
4982:
4983: l_rcv_accttxn.ussgl_transaction_code := l_ussgl_tc;
4984: x_rcv_accttxn := l_rcv_accttxn;
4983: l_rcv_accttxn.ussgl_transaction_code := l_ussgl_tc;
4984: x_rcv_accttxn := l_rcv_accttxn;
4985:
4986: --- Standard check of p_commit
4987: IF fnd_api.to_boolean (p_commit)
4988: THEN
4989: COMMIT WORK;
4990: END IF;
4991:
5001: 'Insert_Txn >>'
5002: );
5003: END IF;
5004: EXCEPTION
5005: WHEN fnd_api.g_exc_error
5006: THEN
5007: ROLLBACK TO insert_txn_pvt;
5008: x_return_status := fnd_api.g_ret_sts_error;
5009: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5004: EXCEPTION
5005: WHEN fnd_api.g_exc_error
5006: THEN
5007: ROLLBACK TO insert_txn_pvt;
5008: x_return_status := fnd_api.g_ret_sts_error;
5009: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5010: p_data => x_msg_data
5011: );
5012: WHEN fnd_api.g_exc_unexpected_error
5008: x_return_status := fnd_api.g_ret_sts_error;
5009: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5010: p_data => x_msg_data
5011: );
5012: WHEN fnd_api.g_exc_unexpected_error
5013: THEN
5014: ROLLBACK TO insert_txn_pvt;
5015: x_return_status := fnd_api.g_ret_sts_unexp_error;
5016: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5011: );
5012: WHEN fnd_api.g_exc_unexpected_error
5013: THEN
5014: ROLLBACK TO insert_txn_pvt;
5015: x_return_status := fnd_api.g_ret_sts_unexp_error;
5016: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5017: p_data => x_msg_data
5018: );
5019: WHEN OTHERS
5018: );
5019: WHEN OTHERS
5020: THEN
5021: ROLLBACK TO insert_txn_pvt;
5022: x_return_status := fnd_api.g_ret_sts_unexp_error;
5023:
5024: IF g_debug = 'Y'
5025: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5026: THEN
5051: * Adapted from Insert_Txn
5052: ** ========================================== **/
5053: PROCEDURE insert_txn2 (
5054: p_api_version IN NUMBER := 1.0,
5055: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5056: p_commit IN VARCHAR2 := fnd_api.g_false,
5057: p_validation_level IN NUMBER
5058: := fnd_api.g_valid_level_full,
5059: x_return_status OUT NOCOPY VARCHAR2,
5052: ** ========================================== **/
5053: PROCEDURE insert_txn2 (
5054: p_api_version IN NUMBER := 1.0,
5055: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5056: p_commit IN VARCHAR2 := fnd_api.g_false,
5057: p_validation_level IN NUMBER
5058: := fnd_api.g_valid_level_full,
5059: x_return_status OUT NOCOPY VARCHAR2,
5060: x_msg_count OUT NOCOPY NUMBER,
5054: p_api_version IN NUMBER := 1.0,
5055: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5056: p_commit IN VARCHAR2 := fnd_api.g_false,
5057: p_validation_level IN NUMBER
5058: := fnd_api.g_valid_level_full,
5059: x_return_status OUT NOCOPY VARCHAR2,
5060: x_msg_count OUT NOCOPY NUMBER,
5061: x_msg_data OUT NOCOPY VARCHAR2,
5062: p_rcv_accttxn_tbl IN gmf_rcv_accounting_pkg.rcv_accttxn_tbl_type
5063: )
5064: IS
5065: l_api_name CONSTANT VARCHAR2 (30) := 'Insert_Txn2';
5066: l_api_version CONSTANT NUMBER := 1.0;
5067: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
5068: l_msg_count NUMBER := 0;
5069: l_msg_data VARCHAR2 (8000) := '';
5070: l_stmt_num NUMBER := 0;
5071: l_api_message VARCHAR2 (1000);
5094: );
5095: END IF;
5096:
5097: -- Standard call to check for call compatibility
5098: IF NOT fnd_api.compatible_api_call (l_api_version,
5099: p_api_version,
5100: l_api_name,
5101: g_pkg_name
5102: )
5100: l_api_name,
5101: g_pkg_name
5102: )
5103: THEN
5104: RAISE fnd_api.g_exc_unexpected_error;
5105: END IF;
5106:
5107: -- Initialize message list if p_init_msg_list is set to TRUE
5108: IF fnd_api.to_boolean (p_init_msg_list)
5104: RAISE fnd_api.g_exc_unexpected_error;
5105: END IF;
5106:
5107: -- Initialize message list if p_init_msg_list is set to TRUE
5108: IF fnd_api.to_boolean (p_init_msg_list)
5109: THEN
5110: fnd_msg_pub.initialize;
5111: END IF;
5112:
5110: fnd_msg_pub.initialize;
5111: END IF;
5112:
5113: -- Initialize API return status to success
5114: x_return_status := fnd_api.g_ret_sts_success;
5115:
5116: IF g_debug = 'Y'
5117: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5118: THEN
5329:
5330: END LOOP grat_insert;
5331:
5332: --- Standard check of p_commit
5333: IF fnd_api.to_boolean (p_commit)
5334: THEN
5335: COMMIT WORK;
5336: END IF;
5337:
5347: 'Insert_Txn2 >>'
5348: );
5349: END IF;
5350: EXCEPTION
5351: WHEN fnd_api.g_exc_error
5352: THEN
5353: ROLLBACK TO insert_txn2_pvt;
5354: x_return_status := fnd_api.g_ret_sts_error;
5355: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5350: EXCEPTION
5351: WHEN fnd_api.g_exc_error
5352: THEN
5353: ROLLBACK TO insert_txn2_pvt;
5354: x_return_status := fnd_api.g_ret_sts_error;
5355: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5356: p_data => x_msg_data
5357: );
5358: WHEN fnd_api.g_exc_unexpected_error
5354: x_return_status := fnd_api.g_ret_sts_error;
5355: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5356: p_data => x_msg_data
5357: );
5358: WHEN fnd_api.g_exc_unexpected_error
5359: THEN
5360: ROLLBACK TO insert_txn2_pvt;
5361: x_return_status := fnd_api.g_ret_sts_unexp_error;
5362: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5357: );
5358: WHEN fnd_api.g_exc_unexpected_error
5359: THEN
5360: ROLLBACK TO insert_txn2_pvt;
5361: x_return_status := fnd_api.g_ret_sts_unexp_error;
5362: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5363: p_data => x_msg_data
5364: );
5365: WHEN OTHERS
5364: );
5365: WHEN OTHERS
5366: THEN
5367: ROLLBACK TO insert_txn2_pvt;
5368: x_return_status := fnd_api.g_ret_sts_unexp_error;
5369:
5370: IF g_debug = 'Y'
5371: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5372: THEN
5394: END insert_txn2;
5395:
5396: PROCEDURE create_receive_txns (
5397: p_api_version IN NUMBER,
5398: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5399: p_commit IN VARCHAR2 := fnd_api.g_false,
5400: p_validation_level IN NUMBER
5401: := fnd_api.g_valid_level_full,
5402: x_return_status OUT NOCOPY VARCHAR2,
5395:
5396: PROCEDURE create_receive_txns (
5397: p_api_version IN NUMBER,
5398: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5399: p_commit IN VARCHAR2 := fnd_api.g_false,
5400: p_validation_level IN NUMBER
5401: := fnd_api.g_valid_level_full,
5402: x_return_status OUT NOCOPY VARCHAR2,
5403: x_msg_count OUT NOCOPY NUMBER,
5397: p_api_version IN NUMBER,
5398: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5399: p_commit IN VARCHAR2 := fnd_api.g_false,
5400: p_validation_level IN NUMBER
5401: := fnd_api.g_valid_level_full,
5402: x_return_status OUT NOCOPY VARCHAR2,
5403: x_msg_count OUT NOCOPY NUMBER,
5404: x_msg_data OUT NOCOPY VARCHAR2,
5405: p_rcv_transaction_id IN NUMBER,
5410: l_api_name CONSTANT VARCHAR2 (30)
5411: := 'Create_ReceiveEvents';
5412: l_api_version CONSTANT NUMBER := 1.0;
5413: l_return_status VARCHAR2 (1)
5414: := fnd_api.g_ret_sts_success;
5415: l_msg_count NUMBER := 0;
5416: l_msg_data VARCHAR2 (8000) := '';
5417: l_stmt_num NUMBER := 0;
5418: l_api_message VARCHAR2 (1000);
5474: );
5475: END IF;
5476:
5477: -- Standard call to check for call compatibility
5478: IF NOT fnd_api.compatible_api_call (l_api_version,
5479: p_api_version,
5480: l_api_name,
5481: g_pkg_name
5482: )
5480: l_api_name,
5481: g_pkg_name
5482: )
5483: THEN
5484: RAISE fnd_api.g_exc_unexpected_error;
5485: END IF;
5486:
5487: -- Initialize message list if p_init_msg_list is set to TRUE
5488: IF fnd_api.to_boolean (p_init_msg_list)
5484: RAISE fnd_api.g_exc_unexpected_error;
5485: END IF;
5486:
5487: -- Initialize message list if p_init_msg_list is set to TRUE
5488: IF fnd_api.to_boolean (p_init_msg_list)
5489: THEN
5490: fnd_msg_pub.initialize;
5491: END IF;
5492:
5490: fnd_msg_pub.initialize;
5491: END IF;
5492:
5493: -- Initialize API return status to success
5494: x_return_status := fnd_api.g_ret_sts_success;
5495: l_stmt_num := 20;
5496:
5497: SELECT rt.po_header_id, rt.po_line_id, rt.po_line_location_id,
5498: rt.po_distribution_id, rt.transaction_date,
5613: p_transaction_date => l_rcv_trx_date,
5614: p_get_default_cost_group => 'N'
5615: );
5616:
5617: IF (l_return_status = fnd_api.g_ret_sts_success)
5618: THEN
5619: l_trx_flow_exists_flag := 1;
5620: l_trx_flow_header_id :=
5621: l_transaction_flows_tbl (l_transaction_flows_tbl.FIRST).header_id;
5669: || l_api_message
5670: );
5671: END IF;
5672:
5673: RAISE fnd_api.g_exc_unexpected_error;
5674: END IF;
5675: ELSE
5676: l_api_message := 'Error occurred in Transaction Flow API';
5677:
5686: || l_api_message
5687: );
5688: END IF;
5689:
5690: RAISE fnd_api.g_exc_unexpected_error;
5691: END IF; -- IF l_return_status
5692: END IF; -- IF l_po_org_id
5693:
5694: -- For the receive transaction, the PO distribution may not be available in the
5804: p_prior_unit_price => NULL,
5805: x_rcv_accttxn => l_rcv_accttxn
5806: );
5807:
5808: IF l_return_status <> fnd_api.g_ret_sts_success
5809: THEN
5810: l_api_message := 'Error creating event';
5811:
5812: IF g_debug = 'Y'
5824: || l_api_message
5825: );
5826: END IF;
5827:
5828: RAISE fnd_api.g_exc_unexpected_error;
5829: END IF;
5830:
5831: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
5832: l_rcv_accttxn;
5884: p_prior_unit_price => NULL,
5885: x_rcv_accttxn => l_rcv_accttxn
5886: );
5887:
5888: IF l_return_status <> fnd_api.g_ret_sts_success
5889: THEN
5890: l_api_message := 'Error creating event';
5891:
5892: IF g_debug = 'Y'
5904: || l_api_message
5905: );
5906: END IF;
5907:
5908: RAISE fnd_api.g_exc_unexpected_error;
5909: END IF;
5910:
5911: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
5912: l_rcv_accttxn;
5985: p_prior_unit_price => NULL,
5986: x_rcv_accttxn => l_rcv_accttxn
5987: );
5988:
5989: IF l_return_status <> fnd_api.g_ret_sts_success
5990: THEN
5991: l_api_message := 'Error creating event';
5992:
5993: IF g_debug = 'Y'
6003: || l_api_message
6004: );
6005: END IF;
6006:
6007: RAISE fnd_api.g_exc_unexpected_error;
6008: END IF;
6009:
6010: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
6011: ELSE
6057: p_prior_unit_price => NULL,
6058: x_rcv_accttxn => l_rcv_accttxn
6059: );
6060:
6061: IF l_return_status <> fnd_api.g_ret_sts_success
6062: THEN
6063: l_api_message := 'Error creating event';
6064:
6065: IF g_debug = 'Y'
6075: || l_api_message
6076: );
6077: END IF;
6078:
6079: RAISE fnd_api.g_exc_unexpected_error;
6080: END IF;
6081:
6082: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
6083: END IF;
6099: x_msg_data => l_msg_data,
6100: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6101: );
6102:
6103: IF l_return_status <> fnd_api.g_ret_sts_success
6104: THEN
6105: l_api_message := 'Error inserting transactions into GRAT';
6106:
6107: IF g_debug = 'Y'
6115: || l_api_message
6116: );
6117: END IF;
6118:
6119: RAISE fnd_api.g_exc_unexpected_error;
6120: END IF;
6121:
6122: IF (l_trx_flow_exists_flag = 1 AND l_item_id IS NOT NULL)
6123: THEN
6139: x_msg_data => l_msg_data,
6140: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6141: );
6142:
6143: IF l_return_status <> fnd_api.g_ret_sts_success
6144: THEN
6145: l_api_message := 'Error inserting transactions into MMT';
6146:
6147: IF g_debug = 'Y'
6155: || l_api_message
6156: );
6157: END IF;
6158:
6159: RAISE fnd_api.g_exc_unexpected_error;
6160: END IF;
6161: END IF;
6162:
6163: --- Standard check of p_commit
6160: END IF;
6161: END IF;
6162:
6163: --- Standard check of p_commit
6164: IF fnd_api.to_boolean (p_commit)
6165: THEN
6166: COMMIT WORK;
6167: END IF;
6168:
6178: 'Create_ReceiveEvents >>'
6179: );
6180: END IF;
6181: EXCEPTION
6182: WHEN fnd_api.g_exc_error
6183: THEN
6184: ROLLBACK TO create_receiveevents_pvt;
6185: x_return_status := fnd_api.g_ret_sts_error;
6186: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6181: EXCEPTION
6182: WHEN fnd_api.g_exc_error
6183: THEN
6184: ROLLBACK TO create_receiveevents_pvt;
6185: x_return_status := fnd_api.g_ret_sts_error;
6186: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6187: p_data => x_msg_data
6188: );
6189: WHEN fnd_api.g_exc_unexpected_error
6185: x_return_status := fnd_api.g_ret_sts_error;
6186: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6187: p_data => x_msg_data
6188: );
6189: WHEN fnd_api.g_exc_unexpected_error
6190: THEN
6191: ROLLBACK TO create_receiveevents_pvt;
6192: x_return_status := fnd_api.g_ret_sts_unexp_error;
6193: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6188: );
6189: WHEN fnd_api.g_exc_unexpected_error
6190: THEN
6191: ROLLBACK TO create_receiveevents_pvt;
6192: x_return_status := fnd_api.g_ret_sts_unexp_error;
6193: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6194: p_data => x_msg_data
6195: );
6196: WHEN OTHERS
6195: );
6196: WHEN OTHERS
6197: THEN
6198: ROLLBACK TO create_receiveevents_pvt;
6199: x_return_status := fnd_api.g_ret_sts_unexp_error;
6200:
6201: IF g_debug = 'Y'
6202: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6203: THEN
6225: END create_receive_txns;
6226:
6227: PROCEDURE create_deliver_txns (
6228: p_api_version IN NUMBER,
6229: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6230: p_commit IN VARCHAR2 := fnd_api.g_false,
6231: p_validation_level IN NUMBER
6232: := fnd_api.g_valid_level_full,
6233: x_return_status OUT NOCOPY VARCHAR2,
6226:
6227: PROCEDURE create_deliver_txns (
6228: p_api_version IN NUMBER,
6229: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6230: p_commit IN VARCHAR2 := fnd_api.g_false,
6231: p_validation_level IN NUMBER
6232: := fnd_api.g_valid_level_full,
6233: x_return_status OUT NOCOPY VARCHAR2,
6234: x_msg_count OUT NOCOPY NUMBER,
6228: p_api_version IN NUMBER,
6229: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6230: p_commit IN VARCHAR2 := fnd_api.g_false,
6231: p_validation_level IN NUMBER
6232: := fnd_api.g_valid_level_full,
6233: x_return_status OUT NOCOPY VARCHAR2,
6234: x_msg_count OUT NOCOPY NUMBER,
6235: x_msg_data OUT NOCOPY VARCHAR2,
6236: p_rcv_transaction_id IN NUMBER,
6240: IS
6241: c_log_module CONSTANT VARCHAR2 (80)
6242: := module || 'Create_Deliver_Txns';
6243: l_return_status VARCHAR2 (1)
6244: := fnd_api.g_ret_sts_success;
6245: l_msg_count NUMBER := 0;
6246: l_msg_data VARCHAR2 (8000) := '';
6247: l_stmt_num NUMBER := 0;
6248: l_api_message VARCHAR2 (1000);
6290: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
6291: END IF;
6292:
6293: -- Initialize API return status to success
6294: x_return_status := fnd_api.g_ret_sts_success;
6295: -- Unlike for Receive transactions, for Deliver transactions, the po_distribution_id
6296: -- is always available.
6297: l_stmt_num := 20;
6298:
6421: p_transaction_date => l_rcv_trx_date,
6422: p_get_default_cost_group => 'N'
6423: );
6424:
6425: IF (l_return_status = fnd_api.g_ret_sts_success)
6426: THEN
6427: l_procurement_org_flag := 'N';
6428: l_trx_flow_exists_flag := 1;
6429: l_trx_flow_header_id :=
6460: l_api_message
6461: );
6462: END IF;
6463:
6464: RAISE fnd_api.g_exc_unexpected_error;
6465: END IF;
6466: ELSE
6467: l_api_message := 'Error occurred in Transaction Flow API';
6468:
6477: || l_api_message
6478: );
6479: END IF;
6480:
6481: RAISE fnd_api.g_exc_unexpected_error;
6482: END IF; -- End if ret_status
6483: END IF; -- End cross_ou_flag = Y
6484:
6485: l_stmt_num := 50;
6560: l_rcv_accttxn.source_doc_quantity := -1*l_rcv_accttxn.source_doc_quantity;
6561: END IF;
6562: /* End Bug 8517463 */
6563:
6564: IF l_return_status <> fnd_api.g_ret_sts_success
6565: THEN
6566: l_api_message := 'Error creating Txn';
6567:
6568: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6572: l_api_message
6573: );
6574: END IF;
6575:
6576: RAISE fnd_api.g_exc_unexpected_error;
6577: END IF;
6578:
6579: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
6580:
6600: x_encumbrance_flag => l_encumbrance_flag,
6601: x_ussgl_option => l_ussgl_option
6602: );
6603:
6604: IF l_return_status <> fnd_api.g_ret_sts_success
6605: THEN
6606: l_api_message := 'Error in checking for encumbrance flag ';
6607:
6608: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6613: l_api_message
6614: );
6615: END IF;
6616:
6617: RAISE fnd_api.g_exc_unexpected_error;
6618: END IF;
6619:
6620: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6621: THEN
6670: Bug #3333610. In the case of encumbrance reversals, the quantity to unencumber
6671: may turn out to be zero if the quantity delivered is greater than the quantity
6672: ordered. In such a situation, we should not error out the event.
6673: **/
6674: IF l_return_status = fnd_api.g_ret_sts_success
6675: THEN
6676: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
6677: l_rcv_accttxn;
6678: ELSIF l_return_status <> 'W'
6687: l_api_message
6688: );
6689: END IF;
6690:
6691: RAISE fnd_api.g_exc_unexpected_error;
6692: END IF;
6693: END IF; -- end if encum_flag = y
6694: END IF; -- end if trx_flow_exists_flag = 0
6695:
6708: x_msg_data => l_msg_data,
6709: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6710: );
6711:
6712: IF l_return_status <> fnd_api.g_ret_sts_success
6713: THEN
6714: l_api_message := 'Error inserting txns into GRAT';
6715:
6716: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6720: l_api_message
6721: );
6722: END IF;
6723:
6724: RAISE fnd_api.g_exc_unexpected_error;
6725: END IF;
6726:
6727: IF fnd_api.to_boolean (p_commit)
6728: THEN
6723:
6724: RAISE fnd_api.g_exc_unexpected_error;
6725: END IF;
6726:
6727: IF fnd_api.to_boolean (p_commit)
6728: THEN
6729: COMMIT WORK;
6730: END IF;
6731:
6737: THEN
6738: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
6739: END IF;
6740: EXCEPTION
6741: WHEN fnd_api.g_exc_error
6742: THEN
6743: ROLLBACK TO create_deliver_txns;
6744: x_return_status := fnd_api.g_ret_sts_error;
6745: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6740: EXCEPTION
6741: WHEN fnd_api.g_exc_error
6742: THEN
6743: ROLLBACK TO create_deliver_txns;
6744: x_return_status := fnd_api.g_ret_sts_error;
6745: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6746: p_data => x_msg_data
6747: );
6748: WHEN fnd_api.g_exc_unexpected_error
6744: x_return_status := fnd_api.g_ret_sts_error;
6745: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6746: p_data => x_msg_data
6747: );
6748: WHEN fnd_api.g_exc_unexpected_error
6749: THEN
6750: ROLLBACK TO create_deliver_txns;
6751: x_return_status := fnd_api.g_ret_sts_unexp_error;
6752: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6747: );
6748: WHEN fnd_api.g_exc_unexpected_error
6749: THEN
6750: ROLLBACK TO create_deliver_txns;
6751: x_return_status := fnd_api.g_ret_sts_unexp_error;
6752: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6753: p_data => x_msg_data
6754: );
6755: WHEN OTHERS
6754: );
6755: WHEN OTHERS
6756: THEN
6757: ROLLBACK TO create_deliver_txns;
6758: x_return_status := fnd_api.g_ret_sts_unexp_error;
6759:
6760: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6761: THEN
6762: fnd_log.STRING (fnd_log.level_unexpected,
6780: END create_deliver_txns;
6781:
6782: PROCEDURE create_rtr_txns (
6783: p_api_version IN NUMBER := 1.0,
6784: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6785: p_commit IN VARCHAR2 := fnd_api.g_false,
6786: p_validation_level IN NUMBER
6787: := fnd_api.g_valid_level_full,
6788: x_return_status OUT NOCOPY VARCHAR2,
6781:
6782: PROCEDURE create_rtr_txns (
6783: p_api_version IN NUMBER := 1.0,
6784: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6785: p_commit IN VARCHAR2 := fnd_api.g_false,
6786: p_validation_level IN NUMBER
6787: := fnd_api.g_valid_level_full,
6788: x_return_status OUT NOCOPY VARCHAR2,
6789: x_msg_count OUT NOCOPY NUMBER,
6783: p_api_version IN NUMBER := 1.0,
6784: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6785: p_commit IN VARCHAR2 := fnd_api.g_false,
6786: p_validation_level IN NUMBER
6787: := fnd_api.g_valid_level_full,
6788: x_return_status OUT NOCOPY VARCHAR2,
6789: x_msg_count OUT NOCOPY NUMBER,
6790: x_msg_data OUT NOCOPY VARCHAR2,
6791: p_rcv_transaction_id IN NUMBER,
6795: IS
6796: l_api_name CONSTANT VARCHAR2 (30) := 'Create_RTR_Txns';
6797: l_api_version CONSTANT NUMBER := 1.0;
6798: l_return_status VARCHAR2 (1)
6799: := fnd_api.g_ret_sts_success;
6800: l_msg_count NUMBER := 0;
6801: l_msg_data VARCHAR2 (8000) := '';
6802: l_stmt_num NUMBER := 0;
6803: l_api_message VARCHAR2 (1000);
6845: );
6846: END IF;
6847:
6848: -- Standard call to check for call compatibility
6849: IF NOT fnd_api.compatible_api_call (l_api_version,
6850: p_api_version,
6851: l_api_name,
6852: g_pkg_name
6853: )
6851: l_api_name,
6852: g_pkg_name
6853: )
6854: THEN
6855: RAISE fnd_api.g_exc_unexpected_error;
6856: END IF;
6857:
6858: -- Initialize message list if p_init_msg_list is set to TRUE
6859: IF fnd_api.to_boolean (p_init_msg_list)
6855: RAISE fnd_api.g_exc_unexpected_error;
6856: END IF;
6857:
6858: -- Initialize message list if p_init_msg_list is set to TRUE
6859: IF fnd_api.to_boolean (p_init_msg_list)
6860: THEN
6861: fnd_msg_pub.initialize;
6862: END IF;
6863:
6861: fnd_msg_pub.initialize;
6862: END IF;
6863:
6864: -- Initialize API return status to success
6865: x_return_status := fnd_api.g_ret_sts_success;
6866: -- Unlike for RTV transactions, for RTR transactions, the po_distribution_id
6867: -- is always available.
6868: l_stmt_num := 20;
6869:
7000: p_transaction_date => l_rcv_trx_date,
7001: p_get_default_cost_group => 'N'
7002: );
7003:
7004: IF (l_return_status = fnd_api.g_ret_sts_success)
7005: THEN
7006: l_procurement_org_flag := 'N';
7007: l_trx_flow_exists_flag := 1;
7008: l_trx_flow_header_id :=
7049: || l_api_message
7050: );
7051: END IF;
7052:
7053: RAISE fnd_api.g_exc_unexpected_error;
7054: END IF;
7055: ELSE
7056: l_api_message := 'Error occurred in Transaction Flow API';
7057:
7066: || l_api_message
7067: );
7068: END IF;
7069:
7070: RAISE fnd_api.g_exc_unexpected_error;
7071: END IF;
7072: END IF;
7073:
7074: l_stmt_num := 50;
7120: x_rcv_accttxn => l_rcv_accttxn
7121: );
7122: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
7123:
7124: IF l_return_status <> fnd_api.g_ret_sts_success
7125: THEN
7126: l_api_message := 'Error creating event';
7127:
7128: IF g_debug = 'Y'
7136: || l_api_message
7137: );
7138: END IF;
7139:
7140: RAISE fnd_api.g_exc_unexpected_error;
7141: END IF;
7142:
7143: IF l_trx_flow_exists_flag = 0
7144: THEN
7162: x_encumbrance_flag => l_encumbrance_flag,
7163: x_ussgl_option => l_ussgl_option
7164: );
7165:
7166: IF l_return_status <> fnd_api.g_ret_sts_success
7167: THEN
7168: l_api_message := 'Error in checking for encumbrance flag ';
7169:
7170: IF g_debug = 'Y'
7178: || l_api_message
7179: );
7180: END IF;
7181:
7182: RAISE fnd_api.g_exc_unexpected_error;
7183: END IF;
7184:
7185: IF g_debug = 'Y'
7186: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7239:
7240: /* Bug #3333610. In the case of encumbrance reversals, the quantity to unencumber
7241: may turn out to be zero if the quantity delivered is greater than the quantity
7242: ordered. In such a situation, we should not error out the event. */
7243: IF l_return_status = fnd_api.g_ret_sts_success
7244: THEN
7245: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7246: l_rcv_accttxn;
7247: ELSIF l_return_status <> 'W'
7261: || l_api_message
7262: );
7263: END IF;
7264:
7265: RAISE fnd_api.g_exc_unexpected_error;
7266: END IF;
7267: END IF;
7268: END IF;
7269:
7283: x_msg_data => l_msg_data,
7284: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
7285: );
7286:
7287: IF l_return_status <> fnd_api.g_ret_sts_success
7288: THEN
7289: l_api_message := 'Error inserting transactions into GRAT';
7290:
7291: IF g_debug = 'Y'
7299: || l_api_message
7300: );
7301: END IF;
7302:
7303: RAISE fnd_api.g_exc_unexpected_error;
7304: END IF;
7305:
7306: -- Standard check of p_commit
7307: IF fnd_api.to_boolean (p_commit)
7303: RAISE fnd_api.g_exc_unexpected_error;
7304: END IF;
7305:
7306: -- Standard check of p_commit
7307: IF fnd_api.to_boolean (p_commit)
7308: THEN
7309: COMMIT WORK;
7310: END IF;
7311:
7321: 'Create_RTREvents >>'
7322: );
7323: END IF;
7324: EXCEPTION
7325: WHEN fnd_api.g_exc_error
7326: THEN
7327: ROLLBACK TO create_rtrevents_pvt;
7328: x_return_status := fnd_api.g_ret_sts_error;
7329: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7324: EXCEPTION
7325: WHEN fnd_api.g_exc_error
7326: THEN
7327: ROLLBACK TO create_rtrevents_pvt;
7328: x_return_status := fnd_api.g_ret_sts_error;
7329: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7330: p_data => x_msg_data
7331: );
7332: WHEN fnd_api.g_exc_unexpected_error
7328: x_return_status := fnd_api.g_ret_sts_error;
7329: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7330: p_data => x_msg_data
7331: );
7332: WHEN fnd_api.g_exc_unexpected_error
7333: THEN
7334: ROLLBACK TO create_rtrevents_pvt;
7335: x_return_status := fnd_api.g_ret_sts_unexp_error;
7336: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7331: );
7332: WHEN fnd_api.g_exc_unexpected_error
7333: THEN
7334: ROLLBACK TO create_rtrevents_pvt;
7335: x_return_status := fnd_api.g_ret_sts_unexp_error;
7336: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7337: p_data => x_msg_data
7338: );
7339: WHEN OTHERS
7338: );
7339: WHEN OTHERS
7340: THEN
7341: ROLLBACK TO create_rtrevents_pvt;
7342: x_return_status := fnd_api.g_ret_sts_unexp_error;
7343:
7344: IF g_debug = 'Y'
7345: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7346: THEN
7374: -- Pre-reqs :
7375: -- Parameters :
7376: -- IN : p_api_version IN NUMBER Required
7377: -- p_init_msg_list IN VARCHAR2 Optional
7378: -- Default = FND_API.G_FALSE
7379: -- p_commit IN VARCHAR2 Optional
7380: -- Default = FND_API.G_FALSE
7381: -- p_validation_level IN NUMBER Optional
7382: -- Default = FND_API.G_VALID_LEVEL_FULL
7376: -- IN : p_api_version IN NUMBER Required
7377: -- p_init_msg_list IN VARCHAR2 Optional
7378: -- Default = FND_API.G_FALSE
7379: -- p_commit IN VARCHAR2 Optional
7380: -- Default = FND_API.G_FALSE
7381: -- p_validation_level IN NUMBER Optional
7382: -- Default = FND_API.G_VALID_LEVEL_FULL
7383: -- p_rcv_transaction_id IN NUMBER Required
7384: -- p_direct_delivery_flag IN VARCHAR2 Optional
7378: -- Default = FND_API.G_FALSE
7379: -- p_commit IN VARCHAR2 Optional
7380: -- Default = FND_API.G_FALSE
7381: -- p_validation_level IN NUMBER Optional
7382: -- Default = FND_API.G_VALID_LEVEL_FULL
7383: -- p_rcv_transaction_id IN NUMBER Required
7384: -- p_direct_delivery_flag IN VARCHAR2 Optional
7385: -- p_gl_group_id IN NUMBER Optional
7386: --
7396: --
7397: -- End of comments
7398: PROCEDURE create_rtv_txns (
7399: p_api_version IN NUMBER := 1.0,
7400: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7401: p_commit IN VARCHAR2 := fnd_api.g_false,
7402: p_validation_level IN NUMBER
7403: := fnd_api.g_valid_level_full,
7404: x_return_status OUT NOCOPY VARCHAR2,
7397: -- End of comments
7398: PROCEDURE create_rtv_txns (
7399: p_api_version IN NUMBER := 1.0,
7400: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7401: p_commit IN VARCHAR2 := fnd_api.g_false,
7402: p_validation_level IN NUMBER
7403: := fnd_api.g_valid_level_full,
7404: x_return_status OUT NOCOPY VARCHAR2,
7405: x_msg_count OUT NOCOPY NUMBER,
7399: p_api_version IN NUMBER := 1.0,
7400: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7401: p_commit IN VARCHAR2 := fnd_api.g_false,
7402: p_validation_level IN NUMBER
7403: := fnd_api.g_valid_level_full,
7404: x_return_status OUT NOCOPY VARCHAR2,
7405: x_msg_count OUT NOCOPY NUMBER,
7406: x_msg_data OUT NOCOPY VARCHAR2,
7407: p_rcv_transaction_id IN NUMBER,
7411: IS
7412: l_api_name CONSTANT VARCHAR2 (30) := 'Create_RTV_Txns';
7413: l_api_version CONSTANT NUMBER := 1.0;
7414: l_return_status VARCHAR2 (1)
7415: := fnd_api.g_ret_sts_success;
7416: l_msg_count NUMBER := 0;
7417: l_msg_data VARCHAR2 (8000) := '';
7418: l_stmt_num NUMBER := 0;
7419: l_api_message VARCHAR2 (1000);
7475: );
7476: END IF;
7477:
7478: -- Standard call to check for call compatibility
7479: IF NOT fnd_api.compatible_api_call (l_api_version,
7480: p_api_version,
7481: l_api_name,
7482: g_pkg_name
7483: )
7481: l_api_name,
7482: g_pkg_name
7483: )
7484: THEN
7485: RAISE fnd_api.g_exc_unexpected_error;
7486: END IF;
7487:
7488: -- Initialize message list if p_init_msg_list is set to TRUE
7489: IF fnd_api.to_boolean (p_init_msg_list)
7485: RAISE fnd_api.g_exc_unexpected_error;
7486: END IF;
7487:
7488: -- Initialize message list if p_init_msg_list is set to TRUE
7489: IF fnd_api.to_boolean (p_init_msg_list)
7490: THEN
7491: fnd_msg_pub.initialize;
7492: END IF;
7493:
7491: fnd_msg_pub.initialize;
7492: END IF;
7493:
7494: -- Initialize API return status to success
7495: x_return_status := fnd_api.g_ret_sts_success;
7496: l_stmt_num := 20;
7497:
7498: SELECT rt.po_header_id, rt.po_line_id, rt.po_line_location_id,
7499: rt.po_distribution_id, rt.transaction_date,
7614: p_transaction_date => l_rcv_trx_date,
7615: p_get_default_cost_group => 'N'
7616: );
7617:
7618: IF (l_return_status = fnd_api.g_ret_sts_success)
7619: THEN
7620: l_trx_flow_exists_flag := 1;
7621: l_trx_flow_header_id :=
7622: l_transaction_flows_tbl (l_transaction_flows_tbl.FIRST).header_id;
7657: || l_api_message
7658: );
7659: END IF;
7660:
7661: RAISE fnd_api.g_exc_unexpected_error;
7662: END IF;
7663: ELSE
7664: l_api_message := 'Error occurred in Transaction Flow API';
7665:
7674: || l_api_message
7675: );
7676: END IF;
7677:
7678: RAISE fnd_api.g_exc_unexpected_error;
7679: END IF; -- IF l_return_status
7680: END IF; -- IF l_po_org_id
7681:
7682: -- For the RTV transaction, the PO distribution may not be available in the
7791: p_prior_unit_price => NULL,
7792: x_rcv_accttxn => l_rcv_accttxn
7793: );
7794:
7795: IF l_return_status <> fnd_api.g_ret_sts_success
7796: THEN
7797: l_api_message := 'Error creating event';
7798:
7799: IF g_debug = 'Y'
7811: || l_api_message
7812: );
7813: END IF;
7814:
7815: RAISE fnd_api.g_exc_unexpected_error;
7816: END IF;
7817:
7818: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7819: l_rcv_accttxn;
7870: p_prior_unit_price => NULL,
7871: x_rcv_accttxn => l_rcv_accttxn
7872: );
7873:
7874: IF l_return_status <> fnd_api.g_ret_sts_success
7875: THEN
7876: l_api_message := 'Error creating event';
7877:
7878: IF g_debug = 'Y'
7890: || l_api_message
7891: );
7892: END IF;
7893:
7894: RAISE fnd_api.g_exc_unexpected_error;
7895: END IF;
7896:
7897: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7898: l_rcv_accttxn;
7972: p_prior_unit_price => NULL,
7973: x_rcv_accttxn => l_rcv_accttxn
7974: );
7975:
7976: IF l_return_status <> fnd_api.g_ret_sts_success
7977: THEN
7978: l_api_message := 'Error creating event';
7979:
7980: IF g_debug = 'Y'
7988: || l_api_message
7989: );
7990: END IF;
7991:
7992: RAISE fnd_api.g_exc_unexpected_error;
7993: END IF;
7994:
7995: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
7996: END LOOP;
8011: x_msg_data => l_msg_data,
8012: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
8013: );
8014:
8015: IF l_return_status <> fnd_api.g_ret_sts_success
8016: THEN
8017: l_api_message := 'Error inserting transactions into GRAT';
8018:
8019: IF g_debug = 'Y'
8027: || l_api_message
8028: );
8029: END IF;
8030:
8031: RAISE fnd_api.g_exc_unexpected_error;
8032: END IF;
8033:
8034: IF (l_trx_flow_exists_flag = 1 AND l_item_id IS NOT NULL)
8035: THEN
8051: x_msg_data => l_msg_data,
8052: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
8053: );
8054:
8055: IF l_return_status <> fnd_api.g_ret_sts_success
8056: THEN
8057: l_api_message := 'Error inserting transactions into MMT';
8058:
8059: IF g_debug = 'Y'
8067: || l_api_message
8068: );
8069: END IF;
8070:
8071: RAISE fnd_api.g_exc_unexpected_error;
8072: END IF;
8073: END IF;
8074:
8075: -- Standard check of p_commit
8072: END IF;
8073: END IF;
8074:
8075: -- Standard check of p_commit
8076: IF fnd_api.to_boolean (p_commit)
8077: THEN
8078: COMMIT WORK;
8079: END IF;
8080:
8090: 'Create_RTVEvents >>'
8091: );
8092: END IF;
8093: EXCEPTION
8094: WHEN fnd_api.g_exc_error
8095: THEN
8096: ROLLBACK TO create_rtvevents_pvt;
8097: x_return_status := fnd_api.g_ret_sts_error;
8098: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8093: EXCEPTION
8094: WHEN fnd_api.g_exc_error
8095: THEN
8096: ROLLBACK TO create_rtvevents_pvt;
8097: x_return_status := fnd_api.g_ret_sts_error;
8098: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8099: p_data => x_msg_data
8100: );
8101: WHEN fnd_api.g_exc_unexpected_error
8097: x_return_status := fnd_api.g_ret_sts_error;
8098: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8099: p_data => x_msg_data
8100: );
8101: WHEN fnd_api.g_exc_unexpected_error
8102: THEN
8103: ROLLBACK TO create_rtvevents_pvt;
8104: x_return_status := fnd_api.g_ret_sts_unexp_error;
8105: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8100: );
8101: WHEN fnd_api.g_exc_unexpected_error
8102: THEN
8103: ROLLBACK TO create_rtvevents_pvt;
8104: x_return_status := fnd_api.g_ret_sts_unexp_error;
8105: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8106: p_data => x_msg_data
8107: );
8108: WHEN OTHERS
8107: );
8108: WHEN OTHERS
8109: THEN
8110: ROLLBACK TO create_rtvevents_pvt;
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8112:
8113: IF g_debug = 'Y'
8114: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8115: THEN
8180: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
8181: END IF;
8182:
8183: -- Standard call to check for call compatibility
8184: IF NOT fnd_api.compatible_api_call (l_api_version,
8185: p_api_version,
8186: l_api_name,
8187: g_pkg_name
8188: )
8186: l_api_name,
8187: g_pkg_name
8188: )
8189: THEN
8190: RAISE fnd_api.g_exc_unexpected_error;
8191: END IF;
8192:
8193: -- Initialize message list if p_init_msg_list is set to TRUE
8194: IF fnd_api.to_boolean (p_init_msg_list)
8190: RAISE fnd_api.g_exc_unexpected_error;
8191: END IF;
8192:
8193: -- Initialize message list if p_init_msg_list is set to TRUE
8194: IF fnd_api.to_boolean (p_init_msg_list)
8195: THEN
8196: fnd_msg_pub.initialize;
8197: END IF;
8198:
8196: fnd_msg_pub.initialize;
8197: END IF;
8198:
8199: -- Initialize API return status to success
8200: x_return_status := fnd_api.g_ret_sts_success;
8201:
8202: SELECT rt.consigned_flag, rt.source_document_code, rt.transaction_type,
8203: rt.parent_transaction_id, rt.po_header_id,
8204: rt.po_line_location_id --12i Complex Work Procurement
8386: p_gl_group_id => p_gl_group_id
8387: );
8388: END IF;
8389:
8390: IF l_return_status <> fnd_api.g_ret_sts_success
8391: THEN
8392: l_api_message := 'Error creating event';
8393:
8394: IF g_debug = 'Y'
8402: || l_api_message
8403: );
8404: END IF;
8405:
8406: RAISE fnd_api.g_exc_unexpected_error;
8407: END IF;
8408:
8409: l_stmt_num := 120;
8410:
8408:
8409: l_stmt_num := 120;
8410:
8411: --- Standard check of p_commit
8412: IF fnd_api.to_boolean (p_commit)
8413: THEN
8414: COMMIT WORK;
8415: END IF;
8416:
8424: END IF;
8425:
8426: EXCEPTION
8427: -- rseshadr - return error back to caller
8428: WHEN fnd_api.g_exc_unexpected_error
8429: THEN
8430: ROLLBACK TO s_create_accounting_txns;
8431: x_return_status := fnd_api.g_ret_sts_unexp_error;
8432: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8427: -- rseshadr - return error back to caller
8428: WHEN fnd_api.g_exc_unexpected_error
8429: THEN
8430: ROLLBACK TO s_create_accounting_txns;
8431: x_return_status := fnd_api.g_ret_sts_unexp_error;
8432: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8433: p_data => x_msg_data
8434: );
8435: WHEN OTHERS
8434: );
8435: WHEN OTHERS
8436: THEN
8437: ROLLBACK TO s_create_accounting_txns;
8438: x_return_status := fnd_api.g_ret_sts_unexp_error;
8439:
8440: IF g_debug = 'Y'
8441: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8442: THEN
8470: -- Pre-reqs :
8471: -- Parameters :
8472: -- IN : p_api_version IN NUMBER Required
8473: -- p_init_msg_list IN VARCHAR2 Optional
8474: -- Default = FND_API.G_FALSE
8475: -- p_commit IN VARCHAR2 Optional
8476: -- Default = FND_API.G_FALSE
8477: -- p_validation_level IN NUMBER Optional
8478: -- Default = FND_API.G_VALID_LEVEL_FULL
8472: -- IN : p_api_version IN NUMBER Required
8473: -- p_init_msg_list IN VARCHAR2 Optional
8474: -- Default = FND_API.G_FALSE
8475: -- p_commit IN VARCHAR2 Optional
8476: -- Default = FND_API.G_FALSE
8477: -- p_validation_level IN NUMBER Optional
8478: -- Default = FND_API.G_VALID_LEVEL_FULL
8479: -- p_po_header_id IN NUMBER Required
8480: -- p_po_release_id IN NUMBER Optional
8474: -- Default = FND_API.G_FALSE
8475: -- p_commit IN VARCHAR2 Optional
8476: -- Default = FND_API.G_FALSE
8477: -- p_validation_level IN NUMBER Optional
8478: -- Default = FND_API.G_VALID_LEVEL_FULL
8479: -- p_po_header_id IN NUMBER Required
8480: -- p_po_release_id IN NUMBER Optional
8481: -- p_po_line_id IN NUMBER Optional
8482: -- p_po_line_location_id IN NUMBER Required
8512: )
8513: IS
8514: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Adjust_Txns';
8515: l_api_version CONSTANT NUMBER := 1.0;
8516: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
8517: l_msg_count NUMBER := 0;
8518: l_msg_data VARCHAR2 (8000) := '';
8519: l_stmt_num NUMBER := 0;
8520: l_api_message VARCHAR2 (1000);
8591: WHEN OTHERS THEN
8592: l_process_enabled_flag := 'N';
8593: END;
8594: IF nvl(l_process_enabled_flag, 'N') <> 'Y' THEN
8595: x_return_status := fnd_api.g_ret_sts_success;
8596: x_msg_count := 0;
8597: x_msg_data := NULL;
8598: RETURN;
8599: END IF;
8612: );
8613: END IF;
8614:
8615: -- Standard call to check for call compatibility
8616: IF NOT fnd_api.compatible_api_call (l_api_version,
8617: p_api_version,
8618: l_api_name,
8619: g_pkg_name
8620: )
8618: l_api_name,
8619: g_pkg_name
8620: )
8621: THEN
8622: RAISE fnd_api.g_exc_unexpected_error;
8623: END IF;
8624:
8625: -- Initialize message list if p_init_msg_list is set to TRUE
8626: IF fnd_api.to_boolean (p_init_msg_list)
8622: RAISE fnd_api.g_exc_unexpected_error;
8623: END IF;
8624:
8625: -- Initialize message list if p_init_msg_list is set to TRUE
8626: IF fnd_api.to_boolean (p_init_msg_list)
8627: THEN
8628: fnd_msg_pub.initialize;
8629: END IF;
8630:
8628: fnd_msg_pub.initialize;
8629: END IF;
8630:
8631: -- Initialize API return status to success
8632: x_return_status := fnd_api.g_ret_sts_success;
8633:
8634: -- If the old and new price are the same, return
8635: IF p_old_po_price = p_new_po_price
8636: THEN
8786: -- Suppose there is no net quantity for this receipt (all received quantity has been
8787: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8788: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8789: -- case of Adjust events, this warning is normal and should be ignored.
8790: IF (l_return_status = fnd_api.g_ret_sts_success)
8791: THEN
8792: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8793: l_rcv_accttxn;
8794: ELSIF (l_return_status <> 'W')
8808: || l_api_message
8809: );
8810: END IF;
8811:
8812: RAISE fnd_api.g_exc_unexpected_error;
8813: END IF;
8814: ELSE
8815: FOR c_po_dist IN c_po_dists_csr (c_par_txn.transaction_id)
8816: LOOP
8845: -- Suppose there is no net quantity for this receipt (all received quantity has been
8846: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8847: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8848: -- case of Adjust events, this warning is normal and should be ignored.
8849: IF (l_return_status = fnd_api.g_ret_sts_success)
8850: THEN
8851: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8852: l_rcv_accttxn;
8853: ELSIF (l_return_status <> 'W')
8869: || l_api_message
8870: );
8871: END IF;
8872:
8873: RAISE fnd_api.g_exc_unexpected_error;
8874: END IF;
8875: END LOOP;
8876: END IF;
8877:
8915: -- Suppose there is no net quantity for this deliver (all delivered quantity has been
8916: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8917: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8918: -- case of Adjust events, this warning is normal and should be ignored.
8919: IF (l_return_status = fnd_api.g_ret_sts_success)
8920: THEN
8921: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8922: l_rcv_accttxn;
8923: ELSIF (l_return_status <> 'W')
8939: || l_api_message
8940: );
8941: END IF;
8942:
8943: RAISE fnd_api.g_exc_unexpected_error;
8944: END IF;
8945: END LOOP; -- C_DEL_TXN
8946: END IF; -- If Trx Flow does not exist
8947: END LOOP; -- C_PAR_TXNS
8954: x_msg_data => l_msg_data,
8955: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
8956: );
8957:
8958: IF l_return_status <> fnd_api.g_ret_sts_success
8959: THEN
8960: l_api_message := 'Error inserting Transactions into GRAT';
8961:
8962: IF g_debug = 'Y'
8970: || l_api_message
8971: );
8972: END IF;
8973:
8974: RAISE fnd_api.g_exc_unexpected_error;
8975: END IF;
8976: END IF;
8977:
8978: --- Standard check of p_commit
8975: END IF;
8976: END IF;
8977:
8978: --- Standard check of p_commit
8979: IF fnd_api.to_boolean (p_commit)
8980: THEN
8981: COMMIT WORK;
8982: END IF;
8983:
8993: 'Create_Adjust_Txns >>'
8994: );
8995: END IF;
8996: EXCEPTION
8997: WHEN fnd_api.g_exc_error
8998: THEN
8999: ROLLBACK TO create_adjust_txns_pvt;
9000: x_return_status := fnd_api.g_ret_sts_error;
9001: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8996: EXCEPTION
8997: WHEN fnd_api.g_exc_error
8998: THEN
8999: ROLLBACK TO create_adjust_txns_pvt;
9000: x_return_status := fnd_api.g_ret_sts_error;
9001: fnd_msg_pub.count_and_get (p_count => x_msg_count,
9002: p_data => x_msg_data
9003: );
9004: WHEN fnd_api.g_exc_unexpected_error
9000: x_return_status := fnd_api.g_ret_sts_error;
9001: fnd_msg_pub.count_and_get (p_count => x_msg_count,
9002: p_data => x_msg_data
9003: );
9004: WHEN fnd_api.g_exc_unexpected_error
9005: THEN
9006: ROLLBACK TO create_adjust_txns_pvt;
9007: x_return_status := fnd_api.g_ret_sts_unexp_error;
9008: fnd_msg_pub.count_and_get (p_count => x_msg_count,
9003: );
9004: WHEN fnd_api.g_exc_unexpected_error
9005: THEN
9006: ROLLBACK TO create_adjust_txns_pvt;
9007: x_return_status := fnd_api.g_ret_sts_unexp_error;
9008: fnd_msg_pub.count_and_get (p_count => x_msg_count,
9009: p_data => x_msg_data
9010: );
9011: WHEN OTHERS
9010: );
9011: WHEN OTHERS
9012: THEN
9013: ROLLBACK TO create_adjust_txns_pvt;
9014: x_return_status := fnd_api.g_ret_sts_unexp_error;
9015:
9016: IF g_debug = 'Y'
9017: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
9018: THEN