[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 *
37: **********************************************************************************************/
38: PROCEDURE Get_TransactionAmount
39: (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
38: PROCEDURE Get_TransactionAmount
39: (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
46: x_msg_data OUT NOCOPY VARCHAR2,
39: (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
46: x_msg_data OUT NOCOPY VARCHAR2,
47: p_rcv_accttxn IN GMF_RCV_ACCOUNTING_PKG.rcv_accttxn_rec_type,
49: )
50: IS
51: l_api_name CONSTANT VARCHAR2(30) := 'Get_TransactionAmount';
52: l_api_version CONSTANT NUMBER := 1.0;
53: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
54: l_msg_count NUMBER := 0;
55: l_msg_data VARCHAR2(8000) := '';
56: l_stmt_num NUMBER := 0;
57: l_api_message VARCHAR2(1000);
76:
77: /************************************************
78: * Standard call to check for call compatibility *
79: ************************************************/
80: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: /************************************************************
77: /************************************************
78: * Standard call to check for call compatibility *
79: ************************************************/
80: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: /************************************************************
85: * Initialize message list if p_init_msg_list is set to TRUE *
83:
84: /************************************************************
85: * Initialize message list if p_init_msg_list is set to TRUE *
86: ************************************************************/
87: IF FND_API.to_Boolean(p_init_msg_list) THEN
88: FND_MSG_PUB.initialize;
89: END IF;
90:
91: /******************************************
90:
91: /******************************************
92: * Initialize API return status to success *
93: ******************************************/
94: x_return_status := FND_API.G_RET_STS_SUCCESS;
95:
96: /********************************************************************************
97: * For service line types, only the source types of RECEIVING and INVOICEMATCH *
98: * are valid. Retroactive price changes on service line types have no accounting *
203:
204: /*****************************
205: * Standard check of p_commit *
206: *****************************/
207: IF FND_API.to_Boolean(p_commit) THEN
208: COMMIT WORK;
209: END IF;
210:
211: /************************************************************************
216: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
217: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_TransactionAmount >>');
218: END IF;
219: EXCEPTION
220: WHEN FND_API.g_exc_error THEN
221: ROLLBACK TO Get_TransactionAmount_PVT;
222: x_return_status := FND_API.g_ret_sts_error;
223: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
224: WHEN FND_API.g_exc_unexpected_error THEN
218: END IF;
219: EXCEPTION
220: WHEN FND_API.g_exc_error THEN
221: ROLLBACK TO Get_TransactionAmount_PVT;
222: x_return_status := FND_API.g_ret_sts_error;
223: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
224: WHEN FND_API.g_exc_unexpected_error THEN
225: ROLLBACK TO Get_TransactionAmount_PVT;
226: x_return_status := FND_API.g_ret_sts_unexp_error ;
220: WHEN FND_API.g_exc_error THEN
221: ROLLBACK TO Get_TransactionAmount_PVT;
222: x_return_status := FND_API.g_ret_sts_error;
223: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
224: WHEN FND_API.g_exc_unexpected_error THEN
225: ROLLBACK TO Get_TransactionAmount_PVT;
226: x_return_status := FND_API.g_ret_sts_unexp_error ;
227: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
228: WHEN OTHERS THEN
222: x_return_status := FND_API.g_ret_sts_error;
223: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
224: WHEN FND_API.g_exc_unexpected_error THEN
225: ROLLBACK TO Get_TransactionAmount_PVT;
226: x_return_status := FND_API.g_ret_sts_unexp_error ;
227: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
228: WHEN OTHERS THEN
229: ROLLBACK TO Get_TransactionAmount_PVT;
230: x_return_status := fnd_api.g_ret_sts_unexp_error ;
226: x_return_status := FND_API.g_ret_sts_unexp_error ;
227: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
228: WHEN OTHERS THEN
229: ROLLBACK TO Get_TransactionAmount_PVT;
230: x_return_status := fnd_api.g_ret_sts_unexp_error ;
231:
232: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
233: 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));
234: END IF;
248: * Call account hook to allow customer to override default account. *
249: * Parameters *
250: * IN *
251: * p_api_version IN NUMBER Required *
252: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
253: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
254: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
255: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
256: * p_org_id IN NUMBER Required *
249: * Parameters *
250: * IN *
251: * p_api_version IN NUMBER Required *
252: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
253: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
254: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
255: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
256: * p_org_id IN NUMBER Required *
257: * OUT *
250: * IN *
251: * p_api_version IN NUMBER Required *
252: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
253: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
254: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
255: * p_rcv_transaction_id IN NUMBER Required p_accounting_line_type IN VARCHAR2 Required *
256: * p_org_id IN NUMBER Required *
257: * OUT *
258: * x_return_status OUT VARCHAR2(1) *
266:
267: PROCEDURE Get_HookAccount
268: (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: x_return_status OUT NOCOPY VARCHAR2,
274: x_msg_count OUT NOCOPY NUMBER,
267: PROCEDURE Get_HookAccount
268: (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: x_return_status OUT NOCOPY VARCHAR2,
274: x_msg_count OUT NOCOPY NUMBER,
275: x_msg_data OUT NOCOPY VARCHAR2,
268: (
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
273: x_return_status OUT NOCOPY VARCHAR2,
274: x_msg_count OUT NOCOPY NUMBER,
275: x_msg_data OUT NOCOPY VARCHAR2,
276: p_rcv_transaction_id IN NUMBER,
280: )
281: IS
282: l_api_name CONSTANT VARCHAR2(30) := 'Get_HookAccount';
283: l_api_version CONSTANT NUMBER := 1.0;
284: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
285: l_msg_count NUMBER := 0;
286: l_msg_data VARCHAR2(8000) := '';
287: l_stmt_num NUMBER := 0;
288: l_api_message VARCHAR2(1000);
302:
303: /************************************************
304: * Standard call to check for call compatibility *
305: ************************************************/
306: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: /************************************************************
303: /************************************************
304: * Standard call to check for call compatibility *
305: ************************************************/
306: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME ) THEN
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: /************************************************************
311: * Initialize message list if p_init_msg_list is set to TRUE *
309:
310: /************************************************************
311: * Initialize message list if p_init_msg_list is set to TRUE *
312: ************************************************************/
313: IF FND_API.to_Boolean(p_init_msg_list) THEN
314: FND_MSG_PUB.initialize;
315: END IF;
316:
317: /******************************************
316:
317: /******************************************
318: * Initialize API return status to success *
319: ******************************************/
320: x_return_status := FND_API.G_RET_STS_SUCCESS;
321: x_distribution_acct_id := -1;
322:
323: l_stmt_num := 10;
324: RCV_AccountHook_PUB.Get_Account
331: p_accounting_line_type => p_accounting_line_type,
332: x_distribution_acct_id => l_dist_acct_id
333: );
334:
335: IF l_return_status <> FND_API.g_ret_sts_success THEN
336: l_api_message := 'Error in Account Hook';
337: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
338: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
339: END IF;
336: l_api_message := 'Error in Account Hook';
337: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
338: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
339: END IF;
340: RAISE FND_API.g_exc_unexpected_error;
341: END IF;
342:
343: IF(l_dist_acct_id <> -1) THEN
344: l_stmt_num := 20;
354: FND_MSG_pub.add;
355: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
356: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
357: END IF;
358: RAISE FND_API.g_exc_error;
359: END IF;
360: END IF;
361:
362: x_distribution_acct_id := l_dist_acct_id;
368:
369: /*****************************
370: * Standard check of p_commit *
371: *****************************/
372: IF FND_API.to_Boolean(p_commit) THEN
373: COMMIT WORK;
374: END IF;
375:
376: /************************************************************************
381: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_HookAccount >>');
383: END IF;
384: EXCEPTION
385: WHEN FND_API.g_exc_error THEN
386: ROLLBACK TO Get_HookAccount_PVT;
387: x_return_status := FND_API.g_ret_sts_error;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
389: WHEN FND_API.g_exc_unexpected_error THEN
383: END IF;
384: EXCEPTION
385: WHEN FND_API.g_exc_error THEN
386: ROLLBACK TO Get_HookAccount_PVT;
387: x_return_status := FND_API.g_ret_sts_error;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
389: WHEN FND_API.g_exc_unexpected_error THEN
390: ROLLBACK TO Get_HookAccount_PVT;
391: x_return_status := FND_API.g_ret_sts_unexp_error ;
385: WHEN FND_API.g_exc_error THEN
386: ROLLBACK TO Get_HookAccount_PVT;
387: x_return_status := FND_API.g_ret_sts_error;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
389: WHEN FND_API.g_exc_unexpected_error THEN
390: ROLLBACK TO Get_HookAccount_PVT;
391: x_return_status := FND_API.g_ret_sts_unexp_error ;
392: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
393: WHEN OTHERS THEN
387: x_return_status := FND_API.g_ret_sts_error;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
389: WHEN FND_API.g_exc_unexpected_error THEN
390: ROLLBACK TO Get_HookAccount_PVT;
391: x_return_status := FND_API.g_ret_sts_unexp_error ;
392: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
393: WHEN OTHERS THEN
394: ROLLBACK TO Get_HookAccount_PVT;
395: x_return_status := fnd_api.g_ret_sts_unexp_error ;
391: x_return_status := FND_API.g_ret_sts_unexp_error ;
392: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
393: WHEN OTHERS THEN
394: ROLLBACK TO Get_HookAccount_PVT;
395: x_return_status := fnd_api.g_ret_sts_unexp_error ;
396: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
397: 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));
398: END IF;
399: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)THEN
415: * the excess. *
416: * Parameters *
417: * IN *
418: * p_api_version IN NUMBER Required *
419: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
420: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
421: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
422: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
423: * OUT *
416: * Parameters *
417: * IN *
418: * p_api_version IN NUMBER Required *
419: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
420: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
421: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
422: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
423: * OUT *
424: * x_return_status OUT VARCHAR2(1) *
417: * IN *
418: * p_api_version IN NUMBER Required *
419: * p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_FALSE *
420: * p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE *
421: * p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL *
422: * p_rcv_accttxn IN rcv_accttxn_rec_type Required *
423: * OUT *
424: * x_return_status OUT VARCHAR2(1) *
425: * x_msg_count OUT NUMBER *
430: * only be called for non-service line types. *
431: ********************************************************************************************/
432: PROCEDURE get_quantity (
433: p_api_version IN NUMBER,
434: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
435: p_commit IN VARCHAR2 := fnd_api.g_false,
436: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
437: x_return_status OUT NOCOPY VARCHAR2,
438: x_msg_count OUT NOCOPY NUMBER,
431: ********************************************************************************************/
432: PROCEDURE get_quantity (
433: p_api_version IN NUMBER,
434: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
435: p_commit IN VARCHAR2 := fnd_api.g_false,
436: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
437: x_return_status OUT NOCOPY VARCHAR2,
438: x_msg_count OUT NOCOPY NUMBER,
439: x_msg_data OUT NOCOPY VARCHAR2,
432: PROCEDURE get_quantity (
433: p_api_version IN NUMBER,
434: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
435: p_commit IN VARCHAR2 := fnd_api.g_false,
436: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
437: x_return_status OUT NOCOPY VARCHAR2,
438: x_msg_count OUT NOCOPY NUMBER,
439: x_msg_data OUT NOCOPY VARCHAR2,
440: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
442: )
443: IS
444: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Quantity';
445: l_api_version CONSTANT NUMBER := 1.0;
446: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
447: l_msg_count NUMBER := 0;
448: l_msg_data VARCHAR2 (8000) := '';
449: l_stmt_num NUMBER := 0;
450: l_api_message VARCHAR2 (1000);
471: );
472: END IF;
473:
474: -- Standard call to check for call compatibility
475: IF NOT fnd_api.compatible_api_call (l_api_version,
476: p_api_version,
477: l_api_name,
478: g_pkg_name
479: )
477: l_api_name,
478: g_pkg_name
479: )
480: THEN
481: RAISE fnd_api.g_exc_unexpected_error;
482: END IF;
483:
484: -- Initialize message list if p_init_msg_list is set to TRUE
485: IF fnd_api.to_boolean (p_init_msg_list)
481: RAISE fnd_api.g_exc_unexpected_error;
482: END IF;
483:
484: -- Initialize message list if p_init_msg_list is set to TRUE
485: IF fnd_api.to_boolean (p_init_msg_list)
486: THEN
487: fnd_msg_pub.initialize;
488: END IF;
489:
487: fnd_msg_pub.initialize;
488: END IF;
489:
490: -- Initialize API return status to success
491: x_return_status := fnd_api.g_ret_sts_success;
492: l_stmt_num := 10;
493:
494: IF (p_rcv_accttxn.event_source = 'RECEIVING')
495: THEN
671: );
672: END IF;
673:
674: --- Standard check of p_commit
675: IF fnd_api.to_boolean (p_commit)
676: THEN
677: COMMIT WORK;
678: END IF;
679:
689: 'Get_Quantity >>'
690: );
691: END IF;
692: EXCEPTION
693: WHEN fnd_api.g_exc_error
694: THEN
695: ROLLBACK TO get_quantity_pvt;
696: x_return_status := fnd_api.g_ret_sts_error;
697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
692: EXCEPTION
693: WHEN fnd_api.g_exc_error
694: THEN
695: ROLLBACK TO get_quantity_pvt;
696: x_return_status := fnd_api.g_ret_sts_error;
697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
698: p_data => x_msg_data
699: );
700: WHEN fnd_api.g_exc_unexpected_error
696: x_return_status := fnd_api.g_ret_sts_error;
697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
698: p_data => x_msg_data
699: );
700: WHEN fnd_api.g_exc_unexpected_error
701: THEN
702: ROLLBACK TO get_quantity_pvt;
703: x_return_status := fnd_api.g_ret_sts_unexp_error;
704: fnd_msg_pub.count_and_get (p_count => x_msg_count,
699: );
700: WHEN fnd_api.g_exc_unexpected_error
701: THEN
702: ROLLBACK TO get_quantity_pvt;
703: x_return_status := fnd_api.g_ret_sts_unexp_error;
704: fnd_msg_pub.count_and_get (p_count => x_msg_count,
705: p_data => x_msg_data
706: );
707: WHEN OTHERS
706: );
707: WHEN OTHERS
708: THEN
709: ROLLBACK TO get_quantity_pvt;
710: x_return_status := fnd_api.g_ret_sts_unexp_error;
711:
712: IF g_debug = 'Y'
713: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
714: THEN
742: -- Pre-reqs :
743: -- Parameters :
744: -- IN : p_api_version IN NUMBER Required
745: -- p_init_msg_list IN VARCHAR2 Optional
746: -- Default = FND_API.G_FALSE
747: -- p_commit IN VARCHAR2 Optional
748: -- Default = FND_API.G_FALSE
749: -- p_validation_level IN NUMBER Optional
750: -- Default = FND_API.G_VALID_LEVEL_FULL
744: -- IN : p_api_version IN NUMBER Required
745: -- p_init_msg_list IN VARCHAR2 Optional
746: -- Default = FND_API.G_FALSE
747: -- p_commit IN VARCHAR2 Optional
748: -- Default = FND_API.G_FALSE
749: -- p_validation_level IN NUMBER Optional
750: -- Default = FND_API.G_VALID_LEVEL_FULL
751: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
752: --
746: -- Default = FND_API.G_FALSE
747: -- p_commit IN VARCHAR2 Optional
748: -- Default = FND_API.G_FALSE
749: -- p_validation_level IN NUMBER Optional
750: -- Default = FND_API.G_VALID_LEVEL_FULL
751: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
752: --
753: -- OUT : x_return_status OUT VARCHAR2(1)
754: -- x_msg_count OUT NUMBER
767: -- End of comments
768: PROCEDURE get_unitprice (
769: p_api_version IN NUMBER,
770: p_init_msg_list IN VARCHAR2
771: := fnd_api.g_false,
772: p_commit IN VARCHAR2
773: := fnd_api.g_false,
774: p_validation_level IN NUMBER
775: := fnd_api.g_valid_level_full,
769: p_api_version IN NUMBER,
770: p_init_msg_list IN VARCHAR2
771: := fnd_api.g_false,
772: p_commit IN VARCHAR2
773: := fnd_api.g_false,
774: p_validation_level IN NUMBER
775: := fnd_api.g_valid_level_full,
776: x_return_status OUT NOCOPY VARCHAR2,
777: x_msg_count OUT NOCOPY NUMBER,
771: := fnd_api.g_false,
772: p_commit IN VARCHAR2
773: := fnd_api.g_false,
774: p_validation_level IN NUMBER
775: := fnd_api.g_valid_level_full,
776: x_return_status OUT NOCOPY VARCHAR2,
777: x_msg_count OUT NOCOPY NUMBER,
778: x_msg_data OUT NOCOPY VARCHAR2,
779: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
787: )
788: IS
789: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UnitPrice';
790: l_api_version CONSTANT NUMBER := 1.0;
791: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
792: l_msg_count NUMBER := 0;
793: l_msg_data VARCHAR2 (8000) := '';
794: l_stmt_num NUMBER := 0;
795: l_api_message VARCHAR2 (1000);
819: );
820: END IF;
821:
822: -- Standard call to check for call compatibility
823: IF NOT fnd_api.compatible_api_call (l_api_version,
824: p_api_version,
825: l_api_name,
826: g_pkg_name
827: )
825: l_api_name,
826: g_pkg_name
827: )
828: THEN
829: RAISE fnd_api.g_exc_unexpected_error;
830: END IF;
831:
832: -- Initialize message list if p_init_msg_list is set to TRUE
833: IF fnd_api.to_boolean (p_init_msg_list)
829: RAISE fnd_api.g_exc_unexpected_error;
830: END IF;
831:
832: -- Initialize message list if p_init_msg_list is set to TRUE
833: IF fnd_api.to_boolean (p_init_msg_list)
834: THEN
835: fnd_msg_pub.initialize;
836: END IF;
837:
835: fnd_msg_pub.initialize;
836: END IF;
837:
838: -- Initialize API return status to success
839: x_return_status := fnd_api.g_ret_sts_success;
840: x_incr_transfer_price := 0;
841: x_incr_currency_code := NULL;
842: l_currency_code := p_rcv_accttxn.currency_code;
843: l_stmt_num := 10;
884: FALSE
885: );
886: END IF;
887:
888: RAISE fnd_api.g_exc_error;
889: END IF;
890:
891: -- Use Inventory Asset Flag in the organization where the physical event occurred. This
892: -- would be the ship to organization id. Using POLL.ship_to_organization_id so it will be
914: FALSE
915: );
916: END IF;
917:
918: RAISE fnd_api.g_exc_error;
919: END;
920:
921: IF (l_asset_flag = 'Y')
922: THEN
1015: p_global_procurement_flag => 'Y',
1016: p_drop_ship_flag => 'N'
1017: );
1018:
1019: IF l_return_status <> fnd_api.g_ret_sts_success
1020: THEN
1021: IF g_debug = 'Y'
1022: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1023: THEN
1027: l_api_message
1028: );
1029: END IF;
1030:
1031: RAISE fnd_api.g_exc_unexpected_error;
1032: END IF;
1033:
1034: IF g_debug = 'Y'
1035: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1105: );
1106: END IF;
1107:
1108: -- Standard check of p_commit
1109: IF fnd_api.to_boolean (p_commit)
1110: THEN
1111: COMMIT WORK;
1112: END IF;
1113:
1123: 'Get_UnitPrice >>'
1124: );
1125: END IF;
1126: EXCEPTION
1127: WHEN fnd_api.g_exc_error
1128: THEN
1129: ROLLBACK TO get_unitprice_pvt;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1126: EXCEPTION
1127: WHEN fnd_api.g_exc_error
1128: THEN
1129: ROLLBACK TO get_unitprice_pvt;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1132: p_data => x_msg_data
1133: );
1134: WHEN fnd_api.g_exc_unexpected_error
1130: x_return_status := fnd_api.g_ret_sts_error;
1131: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1132: p_data => x_msg_data
1133: );
1134: WHEN fnd_api.g_exc_unexpected_error
1135: THEN
1136: ROLLBACK TO get_unitprice_pvt;
1137: x_return_status := fnd_api.g_ret_sts_unexp_error;
1138: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1133: );
1134: WHEN fnd_api.g_exc_unexpected_error
1135: THEN
1136: ROLLBACK TO get_unitprice_pvt;
1137: x_return_status := fnd_api.g_ret_sts_unexp_error;
1138: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1139: p_data => x_msg_data
1140: );
1141: WHEN OTHERS
1140: );
1141: WHEN OTHERS
1142: THEN
1143: ROLLBACK TO get_unitprice_pvt;
1144: x_return_status := fnd_api.g_ret_sts_unexp_error;
1145:
1146: IF g_debug = 'Y'
1147: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1148: THEN
1176: -- Pre-reqs :
1177: -- Parameters :
1178: -- IN : p_api_version IN NUMBER Required
1179: -- p_init_msg_list IN VARCHAR2 Optional
1180: -- Default = FND_API.G_FALSE
1181: -- p_commit IN VARCHAR2 Optional
1182: -- Default = FND_API.G_FALSE
1183: -- p_validation_level IN NUMBER Optional
1184: -- Default = FND_API.G_VALID_LEVEL_FULL
1178: -- IN : p_api_version IN NUMBER Required
1179: -- p_init_msg_list IN VARCHAR2 Optional
1180: -- Default = FND_API.G_FALSE
1181: -- p_commit IN VARCHAR2 Optional
1182: -- Default = FND_API.G_FALSE
1183: -- p_validation_level IN NUMBER Optional
1184: -- Default = FND_API.G_VALID_LEVEL_FULL
1185: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
1186: --
1180: -- Default = FND_API.G_FALSE
1181: -- p_commit IN VARCHAR2 Optional
1182: -- Default = FND_API.G_FALSE
1183: -- p_validation_level IN NUMBER Optional
1184: -- Default = FND_API.G_VALID_LEVEL_FULL
1185: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
1186: --
1187: -- OUT : x_return_status OUT VARCHAR2(1)
1188: -- x_msg_count OUT NUMBER
1199: --
1200: -- End of comments
1201: PROCEDURE get_unittax (
1202: p_api_version IN NUMBER,
1203: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1204: p_commit IN VARCHAR2 := fnd_api.g_false,
1205: p_validation_level IN NUMBER
1206: := fnd_api.g_valid_level_full,
1207: x_return_status OUT NOCOPY VARCHAR2,
1200: -- End of comments
1201: PROCEDURE get_unittax (
1202: p_api_version IN NUMBER,
1203: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1204: p_commit IN VARCHAR2 := fnd_api.g_false,
1205: p_validation_level IN NUMBER
1206: := fnd_api.g_valid_level_full,
1207: x_return_status OUT NOCOPY VARCHAR2,
1208: x_msg_count OUT NOCOPY NUMBER,
1202: p_api_version IN NUMBER,
1203: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1204: p_commit IN VARCHAR2 := fnd_api.g_false,
1205: p_validation_level IN NUMBER
1206: := fnd_api.g_valid_level_full,
1207: x_return_status OUT NOCOPY VARCHAR2,
1208: x_msg_count OUT NOCOPY NUMBER,
1209: x_msg_data OUT NOCOPY VARCHAR2,
1210: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1215: )
1216: IS
1217: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UnitTax';
1218: l_api_version CONSTANT NUMBER := 1.0;
1219: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1220: l_msg_count NUMBER := 0;
1221: l_msg_data VARCHAR2 (8000) := '';
1222: l_stmt_num NUMBER := 0;
1223: l_api_message VARCHAR2 (1000);
1243: );
1244: END IF;
1245:
1246: -- Standard call to check for call compatibility
1247: IF NOT fnd_api.compatible_api_call (l_api_version,
1248: p_api_version,
1249: l_api_name,
1250: g_pkg_name
1251: )
1249: l_api_name,
1250: g_pkg_name
1251: )
1252: THEN
1253: RAISE fnd_api.g_exc_unexpected_error;
1254: END IF;
1255:
1256: -- Initialize message list if p_init_msg_list is set to TRUE
1257: IF fnd_api.to_boolean (p_init_msg_list)
1253: RAISE fnd_api.g_exc_unexpected_error;
1254: END IF;
1255:
1256: -- Initialize message list if p_init_msg_list is set to TRUE
1257: IF fnd_api.to_boolean (p_init_msg_list)
1258: THEN
1259: fnd_msg_pub.initialize;
1260: END IF;
1261:
1259: fnd_msg_pub.initialize;
1260: END IF;
1261:
1262: -- Initialize API return status to success
1263: x_return_status := fnd_api.g_ret_sts_success;
1264: x_unit_nr_tax := 0;
1265: x_unit_rec_tax := 0;
1266: x_prior_nr_tax := 0;
1267: x_prior_rec_tax := 0;
1289: x_old_recoverable_tax => l_old_recoverable_tax,
1290: x_old_non_recoverable_tax => l_old_non_recoverable_tax
1291: );
1292:
1293: IF l_return_status <> fnd_api.g_ret_sts_success
1294: THEN
1295: l_api_message := 'Error getting Tax';
1296:
1297: IF g_debug = 'Y'
1305: || l_api_message
1306: );
1307: END IF;
1308:
1309: RAISE fnd_api.g_exc_unexpected_error;
1310: END IF;
1311:
1312: IF g_debug = 'Y'
1313: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1391: );
1392: END IF;
1393:
1394: --- Standard check of p_commit
1395: IF fnd_api.to_boolean (p_commit)
1396: THEN
1397: COMMIT WORK;
1398: END IF;
1399:
1409: 'Get_UnitTax >>'
1410: );
1411: END IF;
1412: EXCEPTION
1413: WHEN fnd_api.g_exc_error
1414: THEN
1415: ROLLBACK TO get_unittax_pvt;
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1412: EXCEPTION
1413: WHEN fnd_api.g_exc_error
1414: THEN
1415: ROLLBACK TO get_unittax_pvt;
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1418: p_data => x_msg_data
1419: );
1420: WHEN fnd_api.g_exc_unexpected_error
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1418: p_data => x_msg_data
1419: );
1420: WHEN fnd_api.g_exc_unexpected_error
1421: THEN
1422: ROLLBACK TO get_unittax_pvt;
1423: x_return_status := fnd_api.g_ret_sts_unexp_error;
1424: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1419: );
1420: WHEN fnd_api.g_exc_unexpected_error
1421: THEN
1422: ROLLBACK TO get_unittax_pvt;
1423: x_return_status := fnd_api.g_ret_sts_unexp_error;
1424: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427: WHEN OTHERS
1426: );
1427: WHEN OTHERS
1428: THEN
1429: ROLLBACK TO get_unittax_pvt;
1430: x_return_status := fnd_api.g_ret_sts_unexp_error;
1431:
1432: IF g_debug = 'Y'
1433: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1434: THEN
1491: -- End of comments --
1492: -----------------------------------------------------------------------------
1493: PROCEDURE convert_uom (
1494: p_api_version IN NUMBER,
1495: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1496: p_commit IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER
1498: := fnd_api.g_valid_level_full,
1499: x_return_status OUT NOCOPY VARCHAR2,
1492: -----------------------------------------------------------------------------
1493: PROCEDURE convert_uom (
1494: p_api_version IN NUMBER,
1495: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1496: p_commit IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER
1498: := fnd_api.g_valid_level_full,
1499: x_return_status OUT NOCOPY VARCHAR2,
1500: x_msg_count OUT NOCOPY NUMBER,
1494: p_api_version IN NUMBER,
1495: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1496: p_commit IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER
1498: := fnd_api.g_valid_level_full,
1499: x_return_status OUT NOCOPY VARCHAR2,
1500: x_msg_count OUT NOCOPY NUMBER,
1501: x_msg_data OUT NOCOPY VARCHAR2,
1502: p_event_rec IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1522: BEGIN
1523: SAVEPOINT convert_uom_pvt;
1524:
1525: -- Initialize message list if p_init_msg_list is set to TRUE
1526: IF fnd_api.to_boolean (p_init_msg_list)
1527: THEN
1528: fnd_msg_pub.initialize;
1529: END IF;
1530:
1537: );
1538: END IF;
1539:
1540: -- Standard check for compatibility
1541: IF NOT fnd_api.compatible_api_call (l_api_version,
1542: p_api_version,
1543: l_api_name,
1544: g_pkg_name
1545: ) -- line 90
1543: l_api_name,
1544: g_pkg_name
1545: ) -- line 90
1546: THEN
1547: RAISE fnd_api.g_exc_unexpected_error;
1548: END IF;
1549:
1550: -- Initialize API return status to success
1551: x_return_status := fnd_api.g_ret_sts_success;
1547: RAISE fnd_api.g_exc_unexpected_error;
1548: END IF;
1549:
1550: -- Initialize API return status to success
1551: x_return_status := fnd_api.g_ret_sts_success;
1552: x_msg_count := 0;
1553: x_msg_data := '';
1554: -- API body
1555: l_stmt_num := 10;
1608: );
1609:
1610: IF (l_primary_uom_rate = -99999)
1611: THEN
1612: RAISE fnd_api.g_exc_error;
1613: l_api_message :=
1614: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1615:
1616: IF g_debug = 'Y'
1632: );
1633:
1634: IF (l_trx_uom_rate = -99999)
1635: THEN
1636: RAISE fnd_api.g_exc_error;
1637: l_api_message :=
1638: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1639:
1640: IF g_debug = 'Y'
1675:
1676: -- End of API body
1677:
1678: -- Standard check of P_COMMIT
1679: IF fnd_api.to_boolean (p_commit)
1680: THEN
1681: COMMIT WORK;
1682: END IF;
1683:
1689: 'Convert_UOM >>'
1690: );
1691: END IF;
1692: EXCEPTION
1693: WHEN fnd_api.g_exc_error
1694: THEN
1695: ROLLBACK TO convert_uom_pvt;
1696: x_return_status := fnd_api.g_ret_sts_error;
1697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1692: EXCEPTION
1693: WHEN fnd_api.g_exc_error
1694: THEN
1695: ROLLBACK TO convert_uom_pvt;
1696: x_return_status := fnd_api.g_ret_sts_error;
1697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1698: p_data => x_msg_data
1699: );
1700: WHEN fnd_api.g_exc_unexpected_error
1696: x_return_status := fnd_api.g_ret_sts_error;
1697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1698: p_data => x_msg_data
1699: );
1700: WHEN fnd_api.g_exc_unexpected_error
1701: THEN
1702: ROLLBACK TO convert_uom_pvt;
1703: x_return_status := fnd_api.g_ret_sts_unexp_error;
1704: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1699: );
1700: WHEN fnd_api.g_exc_unexpected_error
1701: THEN
1702: ROLLBACK TO convert_uom_pvt;
1703: x_return_status := fnd_api.g_ret_sts_unexp_error;
1704: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1705: p_data => x_msg_data
1706: );
1707: WHEN NO_DATA_FOUND
1706: );
1707: WHEN NO_DATA_FOUND
1708: THEN
1709: ROLLBACK TO convert_uom_pvt;
1710: x_return_status := fnd_api.g_ret_sts_error;
1711: l_api_message :=
1712: ': Statement # ' || TO_CHAR (l_stmt_num)
1713: || ' - No UOM found.';
1714:
1731: );
1732: WHEN OTHERS
1733: THEN
1734: ROLLBACK TO convert_uom_pvt;
1735: x_return_status := fnd_api.g_ret_sts_unexp_error;
1736: l_api_message :=
1737: 'Unexpected Error at statement('
1738: || TO_CHAR (l_stmt_num)
1739: || '): '
1805: -- End of comments --
1806: -----------------------------------------------------------------------------
1807: PROCEDURE get_currency (
1808: p_api_version IN NUMBER,
1809: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1810: p_commit IN VARCHAR2 := fnd_api.g_false,
1811: p_validation_level IN NUMBER
1812: := fnd_api.g_valid_level_full,
1813: x_return_status OUT NOCOPY VARCHAR2,
1806: -----------------------------------------------------------------------------
1807: PROCEDURE get_currency (
1808: p_api_version IN NUMBER,
1809: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1810: p_commit IN VARCHAR2 := fnd_api.g_false,
1811: p_validation_level IN NUMBER
1812: := fnd_api.g_valid_level_full,
1813: x_return_status OUT NOCOPY VARCHAR2,
1814: x_msg_count OUT NOCOPY NUMBER,
1808: p_api_version IN NUMBER,
1809: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1810: p_commit IN VARCHAR2 := fnd_api.g_false,
1811: p_validation_level IN NUMBER
1812: := fnd_api.g_valid_level_full,
1813: x_return_status OUT NOCOPY VARCHAR2,
1814: x_msg_count OUT NOCOPY NUMBER,
1815: x_msg_data OUT NOCOPY VARCHAR2,
1816: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
1837: BEGIN
1838: SAVEPOINT get_currency_pvt;
1839:
1840: -- Standard call to check for call compatibility
1841: IF NOT fnd_api.compatible_api_call (l_api_version,
1842: p_api_version,
1843: l_api_name,
1844: g_pkg_name
1845: )
1843: l_api_name,
1844: g_pkg_name
1845: )
1846: THEN
1847: RAISE fnd_api.g_exc_unexpected_error;
1848: END IF;
1849:
1850: -- Initialize message list if p_init_msg_list is set to TRUE
1851: IF fnd_api.to_boolean (p_init_msg_list)
1847: RAISE fnd_api.g_exc_unexpected_error;
1848: END IF;
1849:
1850: -- Initialize message list if p_init_msg_list is set to TRUE
1851: IF fnd_api.to_boolean (p_init_msg_list)
1852: THEN
1853: fnd_msg_pub.initialize;
1854: END IF;
1855:
1853: fnd_msg_pub.initialize;
1854: END IF;
1855:
1856: -- Initialize API return status to success
1857: x_return_status := fnd_api.g_ret_sts_success;
1858: -- API body
1859: l_stmt_num := 10;
1860:
1861: IF ( (p_rcv_accttxn.procurement_org_flag = 'Y')
1955: );
1956: END IF;
1957:
1958: -- End of API body
1959: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false,
1960: p_count => x_msg_count,
1961: p_data => x_msg_data
1962: );
1963:
1961: p_data => x_msg_data
1962: );
1963:
1964: -- Standard check of P_COMMIT
1965: IF fnd_api.to_boolean (p_commit)
1966: THEN
1967: COMMIT WORK;
1968: END IF;
1969: EXCEPTION
1966: THEN
1967: COMMIT WORK;
1968: END IF;
1969: EXCEPTION
1970: WHEN fnd_api.g_exc_error
1971: THEN
1972: ROLLBACK TO get_currency_pvt;
1973: x_return_status := fnd_api.g_ret_sts_error;
1974: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1969: EXCEPTION
1970: WHEN fnd_api.g_exc_error
1971: THEN
1972: ROLLBACK TO get_currency_pvt;
1973: x_return_status := fnd_api.g_ret_sts_error;
1974: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1975: p_data => x_msg_data
1976: );
1977: WHEN fnd_api.g_exc_unexpected_error
1973: x_return_status := fnd_api.g_ret_sts_error;
1974: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1975: p_data => x_msg_data
1976: );
1977: WHEN fnd_api.g_exc_unexpected_error
1978: THEN
1979: ROLLBACK TO get_currency_pvt;
1980: x_return_status := fnd_api.g_ret_sts_unexp_error;
1981: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1976: );
1977: WHEN fnd_api.g_exc_unexpected_error
1978: THEN
1979: ROLLBACK TO get_currency_pvt;
1980: x_return_status := fnd_api.g_ret_sts_unexp_error;
1981: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1982: p_data => x_msg_data
1983: );
1984: WHEN NO_DATA_FOUND
1983: );
1984: WHEN NO_DATA_FOUND
1985: THEN
1986: ROLLBACK TO get_currency_pvt;
1987: x_return_status := fnd_api.g_ret_sts_error;
1988: l_api_message :=
1989: 'Unexpected Error: '
1990: || l_stmt_num
1991: || TO_CHAR (SQLCODE)
2015: );
2016: WHEN OTHERS
2017: THEN
2018: ROLLBACK TO get_currency_pvt;
2019: x_return_status := fnd_api.g_ret_sts_unexp_error;
2020: l_api_message :=
2021: 'Unexpected Error: '
2022: || l_stmt_num
2023: || TO_CHAR (SQLCODE)
2054: -- Pre-reqs :
2055: -- Parameters :
2056: -- IN : p_api_version IN NUMBER Required
2057: -- p_init_msg_list IN VARCHAR2 Optional
2058: -- Default = FND_API.G_FALSE
2059: -- p_commit IN VARCHAR2 Optional
2060: -- Default = FND_API.G_FALSE
2061: -- p_validation_level IN NUMBER Optional
2062: -- Default = FND_API.G_VALID_LEVEL_FULL
2056: -- IN : p_api_version IN NUMBER Required
2057: -- p_init_msg_list IN VARCHAR2 Optional
2058: -- Default = FND_API.G_FALSE
2059: -- p_commit IN VARCHAR2 Optional
2060: -- Default = FND_API.G_FALSE
2061: -- p_validation_level IN NUMBER Optional
2062: -- Default = FND_API.G_VALID_LEVEL_FULL
2063: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2064: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2058: -- Default = FND_API.G_FALSE
2059: -- p_commit IN VARCHAR2 Optional
2060: -- Default = FND_API.G_FALSE
2061: -- p_validation_level IN NUMBER Optional
2062: -- Default = FND_API.G_VALID_LEVEL_FULL
2063: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2064: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2065: -- p_transaction_reverse_flow_rec mtl_transaction_flow_rec_type,
2066: --
2080: -- End of comments
2081: PROCEDURE get_accounts (
2082: p_api_version IN NUMBER,
2083: p_init_msg_list IN VARCHAR2
2084: := fnd_api.g_false,
2085: p_commit IN VARCHAR2
2086: := fnd_api.g_false,
2087: p_validation_level IN NUMBER
2088: := fnd_api.g_valid_level_full,
2082: p_api_version IN NUMBER,
2083: p_init_msg_list IN VARCHAR2
2084: := fnd_api.g_false,
2085: p_commit IN VARCHAR2
2086: := fnd_api.g_false,
2087: p_validation_level IN NUMBER
2088: := fnd_api.g_valid_level_full,
2089: x_return_status OUT NOCOPY VARCHAR2,
2090: x_msg_count OUT NOCOPY NUMBER,
2084: := fnd_api.g_false,
2085: p_commit IN VARCHAR2
2086: := fnd_api.g_false,
2087: p_validation_level IN NUMBER
2088: := fnd_api.g_valid_level_full,
2089: x_return_status OUT NOCOPY VARCHAR2,
2090: x_msg_count OUT NOCOPY NUMBER,
2091: x_msg_data OUT NOCOPY VARCHAR2,
2092: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
2098: )
2099: IS
2100: l_api_name CONSTANT VARCHAR2 (30) := 'Get_Accounts';
2101: l_api_version CONSTANT NUMBER := 1.0;
2102: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2103: l_msg_count NUMBER := 0;
2104: l_msg_data VARCHAR2 (8000) := '';
2105: l_stmt_num NUMBER := 0;
2106: l_api_message VARCHAR2 (1000);
2135: );
2136: END IF;
2137:
2138: -- Standard call to check for call compatibility
2139: IF NOT fnd_api.compatible_api_call (l_api_version,
2140: p_api_version,
2141: l_api_name,
2142: g_pkg_name
2143: )
2141: l_api_name,
2142: g_pkg_name
2143: )
2144: THEN
2145: RAISE fnd_api.g_exc_unexpected_error;
2146: END IF;
2147:
2148: -- Initialize message list if p_init_msg_list is set to TRUE
2149: IF fnd_api.to_boolean (p_init_msg_list)
2145: RAISE fnd_api.g_exc_unexpected_error;
2146: END IF;
2147:
2148: -- Initialize message list if p_init_msg_list is set to TRUE
2149: IF fnd_api.to_boolean (p_init_msg_list)
2150: THEN
2151: fnd_msg_pub.initialize;
2152: END IF;
2153:
2151: fnd_msg_pub.initialize;
2152: END IF;
2153:
2154: -- Initialize API return status to success
2155: x_return_status := fnd_api.g_ret_sts_success;
2156: x_credit_acct_id := NULL;
2157: x_debit_acct_id := NULL;
2158: x_ic_cogs_acct_id := NULL;
2159: -- No accounts are stored for IC transactions.
2221: THEN
2222: l_stmt_num := 30;
2223: po_accounting_grp.build_offset_account
2224: (p_api_version => 1.0,
2225: p_init_msg_list => fnd_api.g_false,
2226: x_return_status => l_return_status,
2227: p_base_ccid => l_receiving_insp_acct_id,
2228: p_overlay_ccid => l_dest_pod_ccid,
2229: p_accounting_date => SYSDATE,
2305: p_org_id => p_rcv_accttxn.org_id,
2306: x_distribution_acct_id => l_dist_acct_id
2307: );
2308:
2309: IF l_return_status <> fnd_api.g_ret_sts_success
2310: THEN
2311: l_api_message := 'Error in Get_HookAccount';
2312:
2313: IF g_debug = 'Y'
2323: || l_api_message
2324: );
2325: END IF;
2326:
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329:
2330: IF (l_dist_acct_id = -1)
2331: THEN
2406: p_org_id => p_rcv_accttxn.org_id,
2407: x_distribution_acct_id => l_dist_acct_id
2408: );
2409:
2410: IF l_return_status <> fnd_api.g_ret_sts_success
2411: THEN
2412: l_api_message := 'Error in Get_HookAccount';
2413:
2414: IF g_debug = 'Y'
2424: || l_api_message
2425: );
2426: END IF;
2427:
2428: RAISE fnd_api.g_exc_unexpected_error;
2429: END IF;
2430:
2431: IF (l_dist_acct_id = -1)
2432: THEN
2482: p_org_id => p_rcv_accttxn.org_id,
2483: x_distribution_acct_id => l_dist_acct_id
2484: );
2485:
2486: IF l_return_status <> fnd_api.g_ret_sts_success
2487: THEN
2488: l_api_message := 'Error in Get_HookAccount';
2489:
2490: IF g_debug = 'Y'
2502: || l_api_message
2503: );
2504: END IF;
2505:
2506: RAISE fnd_api.g_exc_unexpected_error;
2507: END IF;
2508:
2509: IF (l_dist_acct_id = -1)
2510: THEN
2543: p_org_id => p_rcv_accttxn.org_id,
2544: x_distribution_acct_id => l_dist_acct_id
2545: );
2546:
2547: IF l_return_status <> fnd_api.g_ret_sts_success
2548: THEN
2549: l_api_message := 'Error in Get_HookAccount';
2550:
2551: IF g_debug = 'Y'
2563: || l_api_message
2564: );
2565: END IF;
2566:
2567: RAISE fnd_api.g_exc_unexpected_error;
2568: END IF;
2569:
2570: IF (l_dist_acct_id = -1)
2571: THEN
2675: FALSE
2676: );
2677: END IF;
2678:
2679: RAISE fnd_api.g_exc_error;
2680: END IF;
2681:
2682: -- Standard check of p_commit
2683: IF fnd_api.to_boolean (p_commit)
2679: RAISE fnd_api.g_exc_error;
2680: END IF;
2681:
2682: -- Standard check of p_commit
2683: IF fnd_api.to_boolean (p_commit)
2684: THEN
2685: COMMIT WORK;
2686: END IF;
2687:
2697: 'Get_Accounts >>'
2698: );
2699: END IF;
2700: EXCEPTION
2701: WHEN fnd_api.g_exc_error
2702: THEN
2703: ROLLBACK TO get_accounts_pvt;
2704: x_return_status := fnd_api.g_ret_sts_error;
2705: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2700: EXCEPTION
2701: WHEN fnd_api.g_exc_error
2702: THEN
2703: ROLLBACK TO get_accounts_pvt;
2704: x_return_status := fnd_api.g_ret_sts_error;
2705: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2706: p_data => x_msg_data
2707: );
2708: WHEN fnd_api.g_exc_unexpected_error
2704: x_return_status := fnd_api.g_ret_sts_error;
2705: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2706: p_data => x_msg_data
2707: );
2708: WHEN fnd_api.g_exc_unexpected_error
2709: THEN
2710: ROLLBACK TO get_accounts_pvt;
2711: x_return_status := fnd_api.g_ret_sts_unexp_error;
2712: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2707: );
2708: WHEN fnd_api.g_exc_unexpected_error
2709: THEN
2710: ROLLBACK TO get_accounts_pvt;
2711: x_return_status := fnd_api.g_ret_sts_unexp_error;
2712: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2713: p_data => x_msg_data
2714: );
2715: WHEN OTHERS
2714: );
2715: WHEN OTHERS
2716: THEN
2717: ROLLBACK TO get_accounts_pvt;
2718: x_return_status := fnd_api.g_ret_sts_unexp_error;
2719:
2720: IF g_debug = 'Y'
2721: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2722: THEN
2750: -- Pre-reqs :
2751: -- Parameters :
2752: -- IN : p_api_version IN NUMBER Required
2753: -- p_init_msg_list IN VARCHAR2 Optional
2754: -- Default = FND_API.G_FALSE
2755: -- p_commit IN VARCHAR2 Optional
2756: -- Default = FND_API.G_FALSE
2757: -- p_validation_level IN NUMBER Optional
2758: -- Default = FND_API.G_VALID_LEVEL_FULL
2752: -- IN : p_api_version IN NUMBER Required
2753: -- p_init_msg_list IN VARCHAR2 Optional
2754: -- Default = FND_API.G_FALSE
2755: -- p_commit IN VARCHAR2 Optional
2756: -- Default = FND_API.G_FALSE
2757: -- p_validation_level IN NUMBER Optional
2758: -- Default = FND_API.G_VALID_LEVEL_FULL
2759: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2760: --
2754: -- Default = FND_API.G_FALSE
2755: -- p_commit IN VARCHAR2 Optional
2756: -- Default = FND_API.G_FALSE
2757: -- p_validation_level IN NUMBER Optional
2758: -- Default = FND_API.G_VALID_LEVEL_FULL
2759: -- p_rcv_accttxn IN rcv_accttxn_rec_type Required
2760: --
2761: -- OUT : x_return_status OUT VARCHAR2(1)
2762: -- x_msg_count OUT NUMBER
2771: --
2772: -- End of comments
2773: PROCEDURE get_ussgltc (
2774: p_api_version IN NUMBER,
2775: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2776: p_commit IN VARCHAR2 := fnd_api.g_false,
2777: p_validation_level IN NUMBER
2778: := fnd_api.g_valid_level_full,
2779: x_return_status OUT NOCOPY VARCHAR2,
2772: -- End of comments
2773: PROCEDURE get_ussgltc (
2774: p_api_version IN NUMBER,
2775: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2776: p_commit IN VARCHAR2 := fnd_api.g_false,
2777: p_validation_level IN NUMBER
2778: := fnd_api.g_valid_level_full,
2779: x_return_status OUT NOCOPY VARCHAR2,
2780: x_msg_count OUT NOCOPY NUMBER,
2774: p_api_version IN NUMBER,
2775: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2776: p_commit IN VARCHAR2 := fnd_api.g_false,
2777: p_validation_level IN NUMBER
2778: := fnd_api.g_valid_level_full,
2779: x_return_status OUT NOCOPY VARCHAR2,
2780: x_msg_count OUT NOCOPY NUMBER,
2781: x_msg_data OUT NOCOPY VARCHAR2,
2782: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
2784: )
2785: IS
2786: l_api_name CONSTANT VARCHAR2 (30) := 'Get_UssglTC';
2787: l_api_version CONSTANT NUMBER := 1.0;
2788: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2789: l_msg_count NUMBER := 0;
2790: l_msg_data VARCHAR2 (8000) := '';
2791: l_stmt_num NUMBER := 0;
2792: l_api_message VARCHAR2 (1000);
2806: );
2807: END IF;
2808:
2809: -- Standard call to check for call compatibility
2810: IF NOT fnd_api.compatible_api_call (l_api_version,
2811: p_api_version,
2812: l_api_name,
2813: g_pkg_name
2814: )
2812: l_api_name,
2813: g_pkg_name
2814: )
2815: THEN
2816: RAISE fnd_api.g_exc_unexpected_error;
2817: END IF;
2818:
2819: -- Initialize message list if p_init_msg_list is set to TRUE
2820: IF fnd_api.to_boolean (p_init_msg_list)
2816: RAISE fnd_api.g_exc_unexpected_error;
2817: END IF;
2818:
2819: -- Initialize message list if p_init_msg_list is set to TRUE
2820: IF fnd_api.to_boolean (p_init_msg_list)
2821: THEN
2822: fnd_msg_pub.initialize;
2823: END IF;
2824:
2822: fnd_msg_pub.initialize;
2823: END IF;
2824:
2825: -- Initialize API return status to success
2826: x_return_status := fnd_api.g_ret_sts_success;
2827: l_ussgl_option := NVL (fnd_profile.VALUE ('USSGL_OPTION'), 'N');
2828:
2829: IF (l_ussgl_option = 'Y')
2830: THEN
2861: );
2862: END IF;
2863:
2864: --- Standard check of p_commit
2865: IF fnd_api.to_boolean (p_commit)
2866: THEN
2867: COMMIT WORK;
2868: END IF;
2869:
2879: 'Get_UssglTC >>'
2880: );
2881: END IF;
2882: EXCEPTION
2883: WHEN fnd_api.g_exc_error
2884: THEN
2885: ROLLBACK TO get_ussgltc_pvt;
2886: x_return_status := fnd_api.g_ret_sts_error;
2887: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2882: EXCEPTION
2883: WHEN fnd_api.g_exc_error
2884: THEN
2885: ROLLBACK TO get_ussgltc_pvt;
2886: x_return_status := fnd_api.g_ret_sts_error;
2887: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2888: p_data => x_msg_data
2889: );
2890: WHEN fnd_api.g_exc_unexpected_error
2886: x_return_status := fnd_api.g_ret_sts_error;
2887: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2888: p_data => x_msg_data
2889: );
2890: WHEN fnd_api.g_exc_unexpected_error
2891: THEN
2892: ROLLBACK TO get_ussgltc_pvt;
2893: x_return_status := fnd_api.g_ret_sts_unexp_error;
2894: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2889: );
2890: WHEN fnd_api.g_exc_unexpected_error
2891: THEN
2892: ROLLBACK TO get_ussgltc_pvt;
2893: x_return_status := fnd_api.g_ret_sts_unexp_error;
2894: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2895: p_data => x_msg_data
2896: );
2897: WHEN OTHERS
2896: );
2897: WHEN OTHERS
2898: THEN
2899: ROLLBACK TO get_ussgltc_pvt;
2900: x_return_status := fnd_api.g_ret_sts_unexp_error;
2901:
2902: IF g_debug = 'Y'
2903: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2904: THEN
2932: -- Pre-reqs :
2933: -- Parameters :
2934: -- IN : p_api_version IN NUMBER Required
2935: -- p_init_msg_list IN VARCHAR2 Optional
2936: -- Default = FND_API.G_FALSE
2937: -- p_commit IN VARCHAR2 Optional
2938: -- Default = FND_API.G_FALSE
2939: -- p_validation_level IN NUMBER Optional
2940: -- Default = FND_API.G_VALID_LEVEL_FULL
2934: -- IN : p_api_version IN NUMBER Required
2935: -- p_init_msg_list IN VARCHAR2 Optional
2936: -- Default = FND_API.G_FALSE
2937: -- p_commit IN VARCHAR2 Optional
2938: -- Default = FND_API.G_FALSE
2939: -- p_validation_level IN NUMBER Optional
2940: -- Default = FND_API.G_VALID_LEVEL_FULL
2941: -- p_rcv_ledger_id IN NUMBER Required
2942: -- p_po_header_id IN NUMBER Required
2936: -- Default = FND_API.G_FALSE
2937: -- p_commit IN VARCHAR2 Optional
2938: -- Default = FND_API.G_FALSE
2939: -- p_validation_level IN NUMBER Optional
2940: -- Default = FND_API.G_VALID_LEVEL_FULL
2941: -- p_rcv_ledger_id IN NUMBER Required
2942: -- p_po_header_id IN NUMBER Required
2943: --
2944: -- x_encumbrance_flag OUT VARCHAR2(1)
2957: --
2958: -- End of comments
2959: PROCEDURE check_encumbranceflag (
2960: p_api_version IN NUMBER,
2961: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2962: p_commit IN VARCHAR2 := fnd_api.g_false,
2963: p_validation_level IN NUMBER
2964: := fnd_api.g_valid_level_full,
2965: x_return_status OUT NOCOPY VARCHAR2,
2958: -- End of comments
2959: PROCEDURE check_encumbranceflag (
2960: p_api_version IN NUMBER,
2961: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2962: p_commit IN VARCHAR2 := fnd_api.g_false,
2963: p_validation_level IN NUMBER
2964: := fnd_api.g_valid_level_full,
2965: x_return_status OUT NOCOPY VARCHAR2,
2966: x_msg_count OUT NOCOPY NUMBER,
2960: p_api_version IN NUMBER,
2961: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2962: p_commit IN VARCHAR2 := fnd_api.g_false,
2963: p_validation_level IN NUMBER
2964: := fnd_api.g_valid_level_full,
2965: x_return_status OUT NOCOPY VARCHAR2,
2966: x_msg_count OUT NOCOPY NUMBER,
2967: x_msg_data OUT NOCOPY VARCHAR2,
2968: p_rcv_ledger_id IN NUMBER,
2971: )
2972: IS
2973: l_api_name CONSTANT VARCHAR2 (30) := 'Check_EncumbranceFlag';
2974: l_api_version CONSTANT NUMBER := 1.0;
2975: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2976: l_msg_count NUMBER := 0;
2977: l_msg_data VARCHAR2 (8000) := '';
2978: l_stmt_num NUMBER := 0;
2979: l_api_message VARCHAR2 (1000);
2992: );
2993: END IF;
2994:
2995: -- Standard call to check for call compatibility
2996: IF NOT fnd_api.compatible_api_call (l_api_version,
2997: p_api_version,
2998: l_api_name,
2999: g_pkg_name
3000: )
2998: l_api_name,
2999: g_pkg_name
3000: )
3001: THEN
3002: RAISE fnd_api.g_exc_unexpected_error;
3003: END IF;
3004:
3005: -- Initialize message list if p_init_msg_list is set to TRUE
3006: IF fnd_api.to_boolean (p_init_msg_list)
3002: RAISE fnd_api.g_exc_unexpected_error;
3003: END IF;
3004:
3005: -- Initialize message list if p_init_msg_list is set to TRUE
3006: IF fnd_api.to_boolean (p_init_msg_list)
3007: THEN
3008: fnd_msg_pub.initialize;
3009: END IF;
3010:
3008: fnd_msg_pub.initialize;
3009: END IF;
3010:
3011: -- Initialize API return status to success
3012: x_return_status := fnd_api.g_ret_sts_success;
3013: l_stmt_num := 10;
3014:
3015: SELECT NVL (fsp.purch_encumbrance_flag, 'N')
3016: INTO l_encumbrance_flag
3034: );
3035: END IF;
3036:
3037: -- Standard check of p_commit
3038: IF fnd_api.to_boolean (p_commit)
3039: THEN
3040: COMMIT WORK;
3041: END IF;
3042:
3052: 'Check_EncumbranceFlag >>'
3053: );
3054: END IF;
3055: EXCEPTION
3056: WHEN fnd_api.g_exc_error
3057: THEN
3058: ROLLBACK TO check_encumbranceflag_pvt;
3059: x_return_status := fnd_api.g_ret_sts_error;
3060: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3055: EXCEPTION
3056: WHEN fnd_api.g_exc_error
3057: THEN
3058: ROLLBACK TO check_encumbranceflag_pvt;
3059: x_return_status := fnd_api.g_ret_sts_error;
3060: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3061: p_data => x_msg_data
3062: );
3063: WHEN fnd_api.g_exc_unexpected_error
3059: x_return_status := fnd_api.g_ret_sts_error;
3060: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3061: p_data => x_msg_data
3062: );
3063: WHEN fnd_api.g_exc_unexpected_error
3064: THEN
3065: ROLLBACK TO check_encumbranceflag_pvt;
3066: x_return_status := fnd_api.g_ret_sts_unexp_error;
3067: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3062: );
3063: WHEN fnd_api.g_exc_unexpected_error
3064: THEN
3065: ROLLBACK TO check_encumbranceflag_pvt;
3066: x_return_status := fnd_api.g_ret_sts_unexp_error;
3067: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3068: p_data => x_msg_data
3069: );
3070: WHEN OTHERS
3069: );
3070: WHEN OTHERS
3071: THEN
3072: ROLLBACK TO check_encumbranceflag_pvt;
3073: x_return_status := fnd_api.g_ret_sts_unexp_error;
3074:
3075: IF g_debug = 'Y'
3076: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3077: THEN
3139: -- End of comments --
3140: -----------------------------------------------------------------------------
3141: PROCEDURE create_mmtrecord (
3142: p_api_version IN NUMBER,
3143: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3144: p_commit IN VARCHAR2 := fnd_api.g_false,
3145: p_validation_level IN NUMBER
3146: := fnd_api.g_valid_level_full,
3147: x_return_status OUT NOCOPY VARCHAR2,
3140: -----------------------------------------------------------------------------
3141: PROCEDURE create_mmtrecord (
3142: p_api_version IN NUMBER,
3143: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3144: p_commit IN VARCHAR2 := fnd_api.g_false,
3145: p_validation_level IN NUMBER
3146: := fnd_api.g_valid_level_full,
3147: x_return_status OUT NOCOPY VARCHAR2,
3148: x_msg_count OUT NOCOPY NUMBER,
3142: p_api_version IN NUMBER,
3143: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3144: p_commit IN VARCHAR2 := fnd_api.g_false,
3145: p_validation_level IN NUMBER
3146: := fnd_api.g_valid_level_full,
3147: x_return_status OUT NOCOPY VARCHAR2,
3148: x_msg_count OUT NOCOPY NUMBER,
3149: x_msg_data OUT NOCOPY VARCHAR2,
3150: p_rcv_accttxn IN gmf_rcv_accounting_pkg.rcv_accttxn_rec_type,
3160: IS
3161: l_api_name CONSTANT VARCHAR2 (30) := 'Create_MMTRecord';
3162: l_api_version CONSTANT NUMBER := 1.0;
3163: l_api_message VARCHAR2 (1000);
3164: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3165: l_msg_count NUMBER := 0;
3166: l_msg_data VARCHAR2 (8000) := '';
3167: l_stmt_num NUMBER := 0;
3168: l_ctr BINARY_INTEGER;
3186: );
3187: END IF;
3188:
3189: -- Standard call to check for call compatibility
3190: IF NOT fnd_api.compatible_api_call (l_api_version,
3191: p_api_version,
3192: l_api_name,
3193: g_pkg_name
3194: )
3192: l_api_name,
3193: g_pkg_name
3194: )
3195: THEN
3196: RAISE fnd_api.g_exc_unexpected_error;
3197: END IF;
3198:
3199: -- Initialize message list if p_init_msg_list is set to TRUE
3200: IF fnd_api.to_boolean (p_init_msg_list)
3196: RAISE fnd_api.g_exc_unexpected_error;
3197: END IF;
3198:
3199: -- Initialize message list if p_init_msg_list is set to TRUE
3200: IF fnd_api.to_boolean (p_init_msg_list)
3201: THEN
3202: fnd_msg_pub.initialize;
3203: END IF;
3204:
3202: fnd_msg_pub.initialize;
3203: END IF;
3204:
3205: -- Initialize API return status to success
3206: x_return_status := fnd_api.g_ret_sts_success;
3207: x_msg_count := 0;
3208: x_msg_data := '';
3209: -- API Body
3210: l_inv_trx.intercompany_pricing_option :=
3415:
3416: -- ***************
3417:
3418: -- Standard check of p_commit
3419: IF fnd_api.to_boolean (p_commit)
3420: THEN
3421: COMMIT WORK;
3422: END IF;
3423:
3433: 'Create_MMTRecord >>'
3434: );
3435: END IF;
3436: EXCEPTION
3437: WHEN fnd_api.g_exc_error
3438: THEN
3439: ROLLBACK TO create_mmtrecord_pvt;
3440: x_return_status := fnd_api.g_ret_sts_error;
3441: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3436: EXCEPTION
3437: WHEN fnd_api.g_exc_error
3438: THEN
3439: ROLLBACK TO create_mmtrecord_pvt;
3440: x_return_status := fnd_api.g_ret_sts_error;
3441: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3444: WHEN fnd_api.g_exc_unexpected_error
3440: x_return_status := fnd_api.g_ret_sts_error;
3441: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3444: WHEN fnd_api.g_exc_unexpected_error
3445: THEN
3446: ROLLBACK TO create_mmtrecord_pvt;
3447: x_return_status := fnd_api.g_ret_sts_unexp_error;
3448: l_api_message :=
3443: );
3444: WHEN fnd_api.g_exc_unexpected_error
3445: THEN
3446: ROLLBACK TO create_mmtrecord_pvt;
3447: x_return_status := fnd_api.g_ret_sts_unexp_error;
3448: l_api_message :=
3449: 'Unexpected error at statement ' || TO_CHAR (l_stmt_num);
3450:
3451: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3460: );
3461: WHEN invalid_txn_type
3462: THEN
3463: ROLLBACK TO create_mmtrecord_pvt;
3464: x_return_status := fnd_api.g_ret_sts_error;
3465: l_api_message :=
3466: 'Unexpected transaction type passed in: '
3467: || TO_CHAR (p_txn_type_id);
3468:
3487: );
3488: WHEN NO_DATA_FOUND
3489: THEN
3490: ROLLBACK TO create_mmtrecord_pvt;
3491: x_return_status := fnd_api.g_ret_sts_error;
3492:
3493: IF g_debug = 'Y'
3494: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3495: THEN
3510: );
3511: WHEN OTHERS
3512: THEN
3513: ROLLBACK TO create_mmtrecord_pvt;
3514: x_return_status := fnd_api.g_ret_sts_unexp_error;
3515: l_api_message :=
3516: TO_CHAR (SQLCODE) || '- '
3517: || SUBSTRB (SQLERRM, 1, 100);
3518:
3571: -- End of comments --
3572: -----------------------------------------------------------------------------
3573: PROCEDURE insert_mmt (
3574: p_api_version IN NUMBER,
3575: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3576: p_commit IN VARCHAR2 := fnd_api.g_false,
3577: p_validation_level IN NUMBER
3578: := fnd_api.g_valid_level_full,
3579: x_return_status OUT NOCOPY VARCHAR2,
3572: -----------------------------------------------------------------------------
3573: PROCEDURE insert_mmt (
3574: p_api_version IN NUMBER,
3575: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3576: p_commit IN VARCHAR2 := fnd_api.g_false,
3577: p_validation_level IN NUMBER
3578: := fnd_api.g_valid_level_full,
3579: x_return_status OUT NOCOPY VARCHAR2,
3580: x_msg_count OUT NOCOPY NUMBER,
3574: p_api_version IN NUMBER,
3575: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3576: p_commit IN VARCHAR2 := fnd_api.g_false,
3577: p_validation_level IN NUMBER
3578: := fnd_api.g_valid_level_full,
3579: x_return_status OUT NOCOPY VARCHAR2,
3580: x_msg_count OUT NOCOPY NUMBER,
3581: x_msg_data OUT NOCOPY VARCHAR2,
3582: p_rcv_accttxn_tbl IN gmf_rcv_accounting_pkg.rcv_accttxn_tbl_type
3584: IS
3585: l_api_name CONSTANT VARCHAR2 (30) := 'Insert_MMT';
3586: l_api_version CONSTANT NUMBER := 1.0;
3587: l_api_message VARCHAR2 (1000);
3588: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3589: l_msg_count NUMBER := 0;
3590: l_msg_data VARCHAR2 (8000) := '';
3591: l_stmt_num NUMBER := 0;
3592: l_ctr BINARY_INTEGER;
3617: );
3618: END IF;
3619:
3620: -- Standard call to check for call compatibility
3621: IF NOT fnd_api.compatible_api_call (l_api_version,
3622: p_api_version,
3623: l_api_name,
3624: g_pkg_name
3625: )
3623: l_api_name,
3624: g_pkg_name
3625: )
3626: THEN
3627: RAISE fnd_api.g_exc_unexpected_error;
3628: END IF;
3629:
3630: -- Initialize message list if p_init_msg_list is set to TRUE
3631: IF fnd_api.to_boolean (p_init_msg_list)
3627: RAISE fnd_api.g_exc_unexpected_error;
3628: END IF;
3629:
3630: -- Initialize message list if p_init_msg_list is set to TRUE
3631: IF fnd_api.to_boolean (p_init_msg_list)
3632: THEN
3633: fnd_msg_pub.initialize;
3634: END IF;
3635:
3633: fnd_msg_pub.initialize;
3634: END IF;
3635:
3636: -- Initialize API return status to success
3637: x_return_status := fnd_api.g_ret_sts_success;
3638: x_msg_count := 0;
3639: x_msg_data := '';
3640: -- API Body
3641: -- Initialize counters
3777: )
3778: );
3779: END IF;
3780:
3781: IF (l_return_status <> fnd_api.g_ret_sts_success)
3782: THEN
3783: RAISE fnd_api.g_exc_error;
3784: END IF;
3785:
3779: END IF;
3780:
3781: IF (l_return_status <> fnd_api.g_ret_sts_success)
3782: THEN
3783: RAISE fnd_api.g_exc_error;
3784: END IF;
3785:
3786: l_stmt_num := 50;
3787: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
3849: )
3850: );
3851: END IF;
3852:
3853: IF (l_return_status <> fnd_api.g_ret_sts_success)
3854: THEN
3855: RAISE fnd_api.g_exc_error;
3856: END IF;
3857: ELSIF (p_rcv_accttxn_tbl (l_ctr).event_type_id =
3851: END IF;
3852:
3853: IF (l_return_status <> fnd_api.g_ret_sts_success)
3854: THEN
3855: RAISE fnd_api.g_exc_error;
3856: END IF;
3857: ELSIF (p_rcv_accttxn_tbl (l_ctr).event_type_id =
3858: logical_return_to_vendor
3859: )
3952: )
3953: );
3954: END IF;
3955:
3956: IF (l_return_status <> fnd_api.g_ret_sts_success)
3957: THEN
3958: RAISE fnd_api.g_exc_error;
3959: END IF;
3960:
3954: END IF;
3955:
3956: IF (l_return_status <> fnd_api.g_ret_sts_success)
3957: THEN
3958: RAISE fnd_api.g_exc_error;
3959: END IF;
3960:
3961: l_stmt_num := 120;
3962: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
4025: )
4026: );
4027: END IF;
4028:
4029: IF (l_return_status <> fnd_api.g_ret_sts_success)
4030: THEN
4031: RAISE fnd_api.g_exc_error;
4032: END IF;
4033: ELSE
4027: END IF;
4028:
4029: IF (l_return_status <> fnd_api.g_ret_sts_success)
4030: THEN
4031: RAISE fnd_api.g_exc_error;
4032: END IF;
4033: ELSE
4034: RAISE invalid_event;
4035: -- catch error: should never get anything but Log rcpt or Log RTV
4066: p_logical_trx_type_code => 3,
4067: p_exploded_flag => 1
4068: );
4069:
4070: IF (l_return_status <> fnd_api.g_ret_sts_success)
4071: THEN
4072: RAISE fnd_api.g_exc_error;
4073: END IF;
4074:
4068: );
4069:
4070: IF (l_return_status <> fnd_api.g_ret_sts_success)
4071: THEN
4072: RAISE fnd_api.g_exc_error;
4073: END IF;
4074:
4075: -- End API Body
4076:
4074:
4075: -- End API Body
4076:
4077: -- Standard check of p_commit
4078: IF fnd_api.to_boolean (p_commit)
4079: THEN
4080: COMMIT WORK;
4081: END IF;
4082:
4091: EXCEPTION
4092: WHEN invalid_event
4093: THEN
4094: ROLLBACK TO insert_mmt_pvt;
4095: x_return_status := fnd_api.g_ret_sts_unexp_error;
4096: l_api_message :=
4097: 'Unexpected event in element '
4098: || TO_CHAR (l_ctr)
4099: || ' of input parameter p_rcv_accttxn_tbl';
4116:
4117: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4118: p_data => x_msg_data
4119: );
4120: WHEN fnd_api.g_exc_error
4121: THEN
4122: ROLLBACK TO insert_mmt_pvt;
4123: x_return_status := fnd_api.g_ret_sts_error;
4124: l_api_message := 'Call to procedure failed';
4119: );
4120: WHEN fnd_api.g_exc_error
4121: THEN
4122: ROLLBACK TO insert_mmt_pvt;
4123: x_return_status := fnd_api.g_ret_sts_error;
4124: l_api_message := 'Call to procedure failed';
4125:
4126: IF g_debug = 'Y'
4127: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4134:
4135: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4136: p_data => x_msg_data
4137: );
4138: WHEN fnd_api.g_exc_unexpected_error
4139: THEN
4140: ROLLBACK TO insert_mmt_pvt;
4141: x_return_status := fnd_api.g_ret_sts_unexp_error;
4142: l_api_message :=
4137: );
4138: WHEN fnd_api.g_exc_unexpected_error
4139: THEN
4140: ROLLBACK TO insert_mmt_pvt;
4141: x_return_status := fnd_api.g_ret_sts_unexp_error;
4142: l_api_message :=
4143: 'Wrong version #, expecting version ' || TO_CHAR (l_api_version);
4144:
4145: IF g_debug = 'Y'
4156: );
4157: WHEN OTHERS
4158: THEN
4159: ROLLBACK TO insert_mmt_pvt;
4160: x_return_status := fnd_api.g_ret_sts_unexp_error;
4161: l_api_message :=
4162: 'Unexpected Error: '
4163: || l_stmt_num
4164: || ': '
4192: ** ========================================== **/
4193: PROCEDURE insert_txn (
4194: p_api_version IN NUMBER := 1.0,
4195: p_init_msg_list IN VARCHAR2
4196: := fnd_api.g_false,
4197: p_commit IN VARCHAR2
4198: := fnd_api.g_false,
4199: p_validation_level IN NUMBER
4200: := fnd_api.g_valid_level_full,
4194: p_api_version IN NUMBER := 1.0,
4195: p_init_msg_list IN VARCHAR2
4196: := fnd_api.g_false,
4197: p_commit IN VARCHAR2
4198: := fnd_api.g_false,
4199: p_validation_level IN NUMBER
4200: := fnd_api.g_valid_level_full,
4201: x_return_status OUT NOCOPY VARCHAR2,
4202: x_msg_count OUT NOCOPY NUMBER,
4196: := fnd_api.g_false,
4197: p_commit IN VARCHAR2
4198: := fnd_api.g_false,
4199: p_validation_level IN NUMBER
4200: := fnd_api.g_valid_level_full,
4201: x_return_status OUT NOCOPY VARCHAR2,
4202: x_msg_count OUT NOCOPY NUMBER,
4203: x_msg_data OUT NOCOPY VARCHAR2,
4204: p_event_source IN VARCHAR2,
4225: )
4226: IS
4227: c_log_module CONSTANT VARCHAR2 (30) := 'Insert_Txn';
4228: l_api_version CONSTANT NUMBER := 1.0;
4229: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
4230: l_msg_count NUMBER := 0;
4231: l_msg_data VARCHAR2 (8000) := '';
4232: l_stmt_num NUMBER := 0;
4233: l_api_message VARCHAR2 (1000);
4279: );
4280: END IF;
4281:
4282: -- Standard call to check for call compatibility
4283: IF NOT fnd_api.compatible_api_call (l_api_version,
4284: p_api_version,
4285: l_api_name,
4286: g_pkg_name
4287: )
4285: l_api_name,
4286: g_pkg_name
4287: )
4288: THEN
4289: RAISE fnd_api.g_exc_unexpected_error;
4290: END IF;
4291:
4292: -- Initialize message list if p_init_msg_list is set to TRUE
4293: IF fnd_api.to_boolean (p_init_msg_list)
4289: RAISE fnd_api.g_exc_unexpected_error;
4290: END IF;
4291:
4292: -- Initialize message list if p_init_msg_list is set to TRUE
4293: IF fnd_api.to_boolean (p_init_msg_list)
4294: THEN
4295: fnd_msg_pub.initialize;
4296: END IF;
4297:
4295: fnd_msg_pub.initialize;
4296: END IF;
4297:
4298: -- Initialize API return status to success
4299: x_return_status := fnd_api.g_ret_sts_success;
4300:
4301: IF g_debug = 'Y'
4302: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
4303: THEN
4520: x_encumbrance_flag => l_encumbrance_flag,
4521: x_ussgl_option => l_ussgl_option
4522: );
4523:
4524: IF l_return_status <> fnd_api.g_ret_sts_success
4525: THEN
4526: l_api_message := 'Error in checking for encumbrance flag ';
4527:
4528: IF g_debug = 'Y'
4538: || l_api_message
4539: );
4540: END IF;
4541:
4542: RAISE fnd_api.g_exc_unexpected_error;
4543: END IF;
4544:
4545: IF (l_encumbrance_flag = 'Y' OR l_ussgl_option = 'Y')
4546: THEN
4585: p_rcv_accttxn => l_rcv_accttxn,
4586: x_transaction_amount => l_transaction_amount
4587: );
4588:
4589: IF l_return_status <> fnd_api.g_ret_sts_success
4590: THEN
4591: l_api_message := 'Error getting transaction amount';
4592:
4593: IF g_debug = 'Y'
4601: || l_api_message
4602: );
4603: END IF;
4604:
4605: RAISE fnd_api.g_exc_unexpected_error;
4606: END IF;
4607:
4608: l_rcv_accttxn.transaction_amount := l_transaction_amount;
4609: ELSE
4647: x_incr_transfer_price => l_incr_transfer_price,
4648: x_incr_currency_code => l_incr_currency_code
4649: );
4650:
4651: IF l_return_status <> fnd_api.g_ret_sts_success
4652: THEN
4653: l_api_message := 'Error getting unit price';
4654:
4655: IF g_debug = 'Y'
4663: || l_api_message
4664: );
4665: END IF;
4666:
4667: RAISE fnd_api.g_exc_unexpected_error;
4668: END IF;
4669:
4670: l_rcv_accttxn.intercompany_pricing_option := l_ic_pricing_option;
4671: l_rcv_accttxn.currency_code := l_currency_code;
4696: p_rcv_accttxn => l_rcv_accttxn,
4697: x_source_doc_quantity => l_source_doc_quantity
4698: );
4699:
4700: IF l_return_status <> fnd_api.g_ret_sts_success
4701: THEN
4702: l_api_message := 'Error getting quantity';
4703:
4704: IF g_debug = 'Y'
4712: || l_api_message
4713: );
4714: END IF;
4715:
4716: RAISE fnd_api.g_exc_unexpected_error;
4717: END IF;
4718:
4719: l_rcv_accttxn.source_doc_quantity := l_source_doc_quantity;
4720:
4762: x_prior_nr_tax => l_prior_nr_tax,
4763: x_prior_rec_tax => l_prior_rec_tax
4764: );
4765:
4766: IF l_return_status <> fnd_api.g_ret_sts_success
4767: THEN
4768: l_api_message := 'Error getting tax';
4769:
4770: IF g_debug = 'Y'
4778: || l_api_message
4779: );
4780: END IF;
4781:
4782: RAISE fnd_api.g_exc_unexpected_error;
4783: END IF;
4784:
4785: l_rcv_accttxn.unit_nr_tax := l_unit_nr_tax;
4786: l_rcv_accttxn.unit_rec_tax := l_unit_rec_tax;
4810: x_primary_qty => l_primary_qty,
4811: x_trx_uom_code => l_trx_uom_code
4812: );
4813:
4814: IF l_return_status <> fnd_api.g_ret_sts_success
4815: THEN
4816: l_api_message := 'Error Converting UOM';
4817:
4818: IF g_debug = 'Y'
4826: || l_api_message
4827: );
4828: END IF;
4829:
4830: RAISE fnd_api.g_exc_unexpected_error;
4831: END IF;
4832:
4833: l_rcv_accttxn.transaction_quantity := l_transaction_quantity;
4834: l_rcv_accttxn.primary_uom := l_primary_uom;
4858: x_currency_conversion_date => l_currency_conversion_date,
4859: x_currency_conversion_type => l_currency_conversion_type
4860: );
4861:
4862: IF l_return_status <> fnd_api.g_ret_sts_success
4863: THEN
4864: l_api_message := 'Error Getting Currency';
4865:
4866: IF g_debug = 'Y'
4874: || l_api_message
4875: );
4876: END IF;
4877:
4878: RAISE fnd_api.g_exc_unexpected_error;
4879: END IF;
4880:
4881: l_rcv_accttxn.currency_code := l_currency_code;
4882: l_rcv_accttxn.currency_conversion_rate := l_currency_conversion_rate;
4906: x_debit_acct_id => l_debit_acct_id,
4907: x_ic_cogs_acct_id => l_ic_cogs_acct_id
4908: );
4909:
4910: IF l_return_status <> fnd_api.g_ret_sts_success
4911: THEN
4912: l_api_message := 'Error getting account information';
4913:
4914: IF g_debug = 'Y'
4922: || l_api_message
4923: );
4924: END IF;
4925:
4926: RAISE fnd_api.g_exc_unexpected_error;
4927: END IF;
4928:
4929: l_rcv_accttxn.credit_account_id := l_credit_acct_id;
4930: l_rcv_accttxn.debit_account_id := l_debit_acct_id;
4948: p_rcv_accttxn => l_rcv_accttxn,
4949: x_ussgl_tc => l_ussgl_tc
4950: );
4951:
4952: IF l_return_status <> fnd_api.g_ret_sts_success
4953: THEN
4954: l_api_message := 'Error getting USSGL Transaction Code';
4955:
4956: IF g_debug = 'Y'
4964: || l_api_message
4965: );
4966: END IF;
4967:
4968: RAISE fnd_api.g_exc_unexpected_error;
4969: END IF;
4970:
4971: l_rcv_accttxn.ussgl_transaction_code := l_ussgl_tc;
4972: x_rcv_accttxn := l_rcv_accttxn;
4971: l_rcv_accttxn.ussgl_transaction_code := l_ussgl_tc;
4972: x_rcv_accttxn := l_rcv_accttxn;
4973:
4974: --- Standard check of p_commit
4975: IF fnd_api.to_boolean (p_commit)
4976: THEN
4977: COMMIT WORK;
4978: END IF;
4979:
4989: 'Insert_Txn >>'
4990: );
4991: END IF;
4992: EXCEPTION
4993: WHEN fnd_api.g_exc_error
4994: THEN
4995: ROLLBACK TO insert_txn_pvt;
4996: x_return_status := fnd_api.g_ret_sts_error;
4997: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4992: EXCEPTION
4993: WHEN fnd_api.g_exc_error
4994: THEN
4995: ROLLBACK TO insert_txn_pvt;
4996: x_return_status := fnd_api.g_ret_sts_error;
4997: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4998: p_data => x_msg_data
4999: );
5000: WHEN fnd_api.g_exc_unexpected_error
4996: x_return_status := fnd_api.g_ret_sts_error;
4997: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4998: p_data => x_msg_data
4999: );
5000: WHEN fnd_api.g_exc_unexpected_error
5001: THEN
5002: ROLLBACK TO insert_txn_pvt;
5003: x_return_status := fnd_api.g_ret_sts_unexp_error;
5004: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4999: );
5000: WHEN fnd_api.g_exc_unexpected_error
5001: THEN
5002: ROLLBACK TO insert_txn_pvt;
5003: x_return_status := fnd_api.g_ret_sts_unexp_error;
5004: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5005: p_data => x_msg_data
5006: );
5007: WHEN OTHERS
5006: );
5007: WHEN OTHERS
5008: THEN
5009: ROLLBACK TO insert_txn_pvt;
5010: x_return_status := fnd_api.g_ret_sts_unexp_error;
5011:
5012: IF g_debug = 'Y'
5013: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5014: THEN
5039: * Adapted from Insert_Txn
5040: ** ========================================== **/
5041: PROCEDURE insert_txn2 (
5042: p_api_version IN NUMBER := 1.0,
5043: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5044: p_commit IN VARCHAR2 := fnd_api.g_false,
5045: p_validation_level IN NUMBER
5046: := fnd_api.g_valid_level_full,
5047: x_return_status OUT NOCOPY VARCHAR2,
5040: ** ========================================== **/
5041: PROCEDURE insert_txn2 (
5042: p_api_version IN NUMBER := 1.0,
5043: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5044: p_commit IN VARCHAR2 := fnd_api.g_false,
5045: p_validation_level IN NUMBER
5046: := fnd_api.g_valid_level_full,
5047: x_return_status OUT NOCOPY VARCHAR2,
5048: x_msg_count OUT NOCOPY NUMBER,
5042: p_api_version IN NUMBER := 1.0,
5043: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5044: p_commit IN VARCHAR2 := fnd_api.g_false,
5045: p_validation_level IN NUMBER
5046: := fnd_api.g_valid_level_full,
5047: x_return_status OUT NOCOPY VARCHAR2,
5048: x_msg_count OUT NOCOPY NUMBER,
5049: x_msg_data OUT NOCOPY VARCHAR2,
5050: p_rcv_accttxn_tbl IN gmf_rcv_accounting_pkg.rcv_accttxn_tbl_type
5051: )
5052: IS
5053: l_api_name CONSTANT VARCHAR2 (30) := 'Insert_Txn2';
5054: l_api_version CONSTANT NUMBER := 1.0;
5055: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
5056: l_msg_count NUMBER := 0;
5057: l_msg_data VARCHAR2 (8000) := '';
5058: l_stmt_num NUMBER := 0;
5059: l_api_message VARCHAR2 (1000);
5082: );
5083: END IF;
5084:
5085: -- Standard call to check for call compatibility
5086: IF NOT fnd_api.compatible_api_call (l_api_version,
5087: p_api_version,
5088: l_api_name,
5089: g_pkg_name
5090: )
5088: l_api_name,
5089: g_pkg_name
5090: )
5091: THEN
5092: RAISE fnd_api.g_exc_unexpected_error;
5093: END IF;
5094:
5095: -- Initialize message list if p_init_msg_list is set to TRUE
5096: IF fnd_api.to_boolean (p_init_msg_list)
5092: RAISE fnd_api.g_exc_unexpected_error;
5093: END IF;
5094:
5095: -- Initialize message list if p_init_msg_list is set to TRUE
5096: IF fnd_api.to_boolean (p_init_msg_list)
5097: THEN
5098: fnd_msg_pub.initialize;
5099: END IF;
5100:
5098: fnd_msg_pub.initialize;
5099: END IF;
5100:
5101: -- Initialize API return status to success
5102: x_return_status := fnd_api.g_ret_sts_success;
5103:
5104: IF g_debug = 'Y'
5105: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5106: THEN
5311:
5312: END LOOP grat_insert;
5313:
5314: --- Standard check of p_commit
5315: IF fnd_api.to_boolean (p_commit)
5316: THEN
5317: COMMIT WORK;
5318: END IF;
5319:
5329: 'Insert_Txn2 >>'
5330: );
5331: END IF;
5332: EXCEPTION
5333: WHEN fnd_api.g_exc_error
5334: THEN
5335: ROLLBACK TO insert_txn2_pvt;
5336: x_return_status := fnd_api.g_ret_sts_error;
5337: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5332: EXCEPTION
5333: WHEN fnd_api.g_exc_error
5334: THEN
5335: ROLLBACK TO insert_txn2_pvt;
5336: x_return_status := fnd_api.g_ret_sts_error;
5337: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5338: p_data => x_msg_data
5339: );
5340: WHEN fnd_api.g_exc_unexpected_error
5336: x_return_status := fnd_api.g_ret_sts_error;
5337: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5338: p_data => x_msg_data
5339: );
5340: WHEN fnd_api.g_exc_unexpected_error
5341: THEN
5342: ROLLBACK TO insert_txn2_pvt;
5343: x_return_status := fnd_api.g_ret_sts_unexp_error;
5344: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5339: );
5340: WHEN fnd_api.g_exc_unexpected_error
5341: THEN
5342: ROLLBACK TO insert_txn2_pvt;
5343: x_return_status := fnd_api.g_ret_sts_unexp_error;
5344: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5345: p_data => x_msg_data
5346: );
5347: WHEN OTHERS
5346: );
5347: WHEN OTHERS
5348: THEN
5349: ROLLBACK TO insert_txn2_pvt;
5350: x_return_status := fnd_api.g_ret_sts_unexp_error;
5351:
5352: IF g_debug = 'Y'
5353: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5354: THEN
5376: END insert_txn2;
5377:
5378: PROCEDURE create_receive_txns (
5379: p_api_version IN NUMBER,
5380: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5381: p_commit IN VARCHAR2 := fnd_api.g_false,
5382: p_validation_level IN NUMBER
5383: := fnd_api.g_valid_level_full,
5384: x_return_status OUT NOCOPY VARCHAR2,
5377:
5378: PROCEDURE create_receive_txns (
5379: p_api_version IN NUMBER,
5380: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5381: p_commit IN VARCHAR2 := fnd_api.g_false,
5382: p_validation_level IN NUMBER
5383: := fnd_api.g_valid_level_full,
5384: x_return_status OUT NOCOPY VARCHAR2,
5385: x_msg_count OUT NOCOPY NUMBER,
5379: p_api_version IN NUMBER,
5380: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5381: p_commit IN VARCHAR2 := fnd_api.g_false,
5382: p_validation_level IN NUMBER
5383: := fnd_api.g_valid_level_full,
5384: x_return_status OUT NOCOPY VARCHAR2,
5385: x_msg_count OUT NOCOPY NUMBER,
5386: x_msg_data OUT NOCOPY VARCHAR2,
5387: p_rcv_transaction_id IN NUMBER,
5392: l_api_name CONSTANT VARCHAR2 (30)
5393: := 'Create_ReceiveEvents';
5394: l_api_version CONSTANT NUMBER := 1.0;
5395: l_return_status VARCHAR2 (1)
5396: := fnd_api.g_ret_sts_success;
5397: l_msg_count NUMBER := 0;
5398: l_msg_data VARCHAR2 (8000) := '';
5399: l_stmt_num NUMBER := 0;
5400: l_api_message VARCHAR2 (1000);
5456: );
5457: END IF;
5458:
5459: -- Standard call to check for call compatibility
5460: IF NOT fnd_api.compatible_api_call (l_api_version,
5461: p_api_version,
5462: l_api_name,
5463: g_pkg_name
5464: )
5462: l_api_name,
5463: g_pkg_name
5464: )
5465: THEN
5466: RAISE fnd_api.g_exc_unexpected_error;
5467: END IF;
5468:
5469: -- Initialize message list if p_init_msg_list is set to TRUE
5470: IF fnd_api.to_boolean (p_init_msg_list)
5466: RAISE fnd_api.g_exc_unexpected_error;
5467: END IF;
5468:
5469: -- Initialize message list if p_init_msg_list is set to TRUE
5470: IF fnd_api.to_boolean (p_init_msg_list)
5471: THEN
5472: fnd_msg_pub.initialize;
5473: END IF;
5474:
5472: fnd_msg_pub.initialize;
5473: END IF;
5474:
5475: -- Initialize API return status to success
5476: x_return_status := fnd_api.g_ret_sts_success;
5477: l_stmt_num := 20;
5478:
5479: SELECT rt.po_header_id, rt.po_line_id, rt.po_line_location_id,
5480: rt.po_distribution_id, rt.transaction_date,
5595: p_transaction_date => l_rcv_trx_date,
5596: p_get_default_cost_group => 'N'
5597: );
5598:
5599: IF (l_return_status = fnd_api.g_ret_sts_success)
5600: THEN
5601: l_trx_flow_exists_flag := 1;
5602: l_trx_flow_header_id :=
5603: l_transaction_flows_tbl (l_transaction_flows_tbl.FIRST).header_id;
5651: || l_api_message
5652: );
5653: END IF;
5654:
5655: RAISE fnd_api.g_exc_unexpected_error;
5656: END IF;
5657: ELSE
5658: l_api_message := 'Error occurred in Transaction Flow API';
5659:
5668: || l_api_message
5669: );
5670: END IF;
5671:
5672: RAISE fnd_api.g_exc_unexpected_error;
5673: END IF; -- IF l_return_status
5674: END IF; -- IF l_po_org_id
5675:
5676: -- For the receive transaction, the PO distribution may not be available in the
5786: p_prior_unit_price => NULL,
5787: x_rcv_accttxn => l_rcv_accttxn
5788: );
5789:
5790: IF l_return_status <> fnd_api.g_ret_sts_success
5791: THEN
5792: l_api_message := 'Error creating event';
5793:
5794: IF g_debug = 'Y'
5806: || l_api_message
5807: );
5808: END IF;
5809:
5810: RAISE fnd_api.g_exc_unexpected_error;
5811: END IF;
5812:
5813: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
5814: l_rcv_accttxn;
5866: p_prior_unit_price => NULL,
5867: x_rcv_accttxn => l_rcv_accttxn
5868: );
5869:
5870: IF l_return_status <> fnd_api.g_ret_sts_success
5871: THEN
5872: l_api_message := 'Error creating event';
5873:
5874: IF g_debug = 'Y'
5886: || l_api_message
5887: );
5888: END IF;
5889:
5890: RAISE fnd_api.g_exc_unexpected_error;
5891: END IF;
5892:
5893: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
5894: l_rcv_accttxn;
5967: p_prior_unit_price => NULL,
5968: x_rcv_accttxn => l_rcv_accttxn
5969: );
5970:
5971: IF l_return_status <> fnd_api.g_ret_sts_success
5972: THEN
5973: l_api_message := 'Error creating event';
5974:
5975: IF g_debug = 'Y'
5985: || l_api_message
5986: );
5987: END IF;
5988:
5989: RAISE fnd_api.g_exc_unexpected_error;
5990: END IF;
5991:
5992: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
5993: ELSE
6039: p_prior_unit_price => NULL,
6040: x_rcv_accttxn => l_rcv_accttxn
6041: );
6042:
6043: IF l_return_status <> fnd_api.g_ret_sts_success
6044: THEN
6045: l_api_message := 'Error creating event';
6046:
6047: IF g_debug = 'Y'
6057: || l_api_message
6058: );
6059: END IF;
6060:
6061: RAISE fnd_api.g_exc_unexpected_error;
6062: END IF;
6063:
6064: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
6065: END IF;
6081: x_msg_data => l_msg_data,
6082: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6083: );
6084:
6085: IF l_return_status <> fnd_api.g_ret_sts_success
6086: THEN
6087: l_api_message := 'Error inserting transactions into GRAT';
6088:
6089: IF g_debug = 'Y'
6097: || l_api_message
6098: );
6099: END IF;
6100:
6101: RAISE fnd_api.g_exc_unexpected_error;
6102: END IF;
6103:
6104: IF (l_trx_flow_exists_flag = 1 AND l_item_id IS NOT NULL)
6105: THEN
6121: x_msg_data => l_msg_data,
6122: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6123: );
6124:
6125: IF l_return_status <> fnd_api.g_ret_sts_success
6126: THEN
6127: l_api_message := 'Error inserting transactions into MMT';
6128:
6129: IF g_debug = 'Y'
6137: || l_api_message
6138: );
6139: END IF;
6140:
6141: RAISE fnd_api.g_exc_unexpected_error;
6142: END IF;
6143: END IF;
6144:
6145: --- Standard check of p_commit
6142: END IF;
6143: END IF;
6144:
6145: --- Standard check of p_commit
6146: IF fnd_api.to_boolean (p_commit)
6147: THEN
6148: COMMIT WORK;
6149: END IF;
6150:
6160: 'Create_ReceiveEvents >>'
6161: );
6162: END IF;
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error
6165: THEN
6166: ROLLBACK TO create_receiveevents_pvt;
6167: x_return_status := fnd_api.g_ret_sts_error;
6168: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error
6165: THEN
6166: ROLLBACK TO create_receiveevents_pvt;
6167: x_return_status := fnd_api.g_ret_sts_error;
6168: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6169: p_data => x_msg_data
6170: );
6171: WHEN fnd_api.g_exc_unexpected_error
6167: x_return_status := fnd_api.g_ret_sts_error;
6168: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6169: p_data => x_msg_data
6170: );
6171: WHEN fnd_api.g_exc_unexpected_error
6172: THEN
6173: ROLLBACK TO create_receiveevents_pvt;
6174: x_return_status := fnd_api.g_ret_sts_unexp_error;
6175: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6170: );
6171: WHEN fnd_api.g_exc_unexpected_error
6172: THEN
6173: ROLLBACK TO create_receiveevents_pvt;
6174: x_return_status := fnd_api.g_ret_sts_unexp_error;
6175: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6176: p_data => x_msg_data
6177: );
6178: WHEN OTHERS
6177: );
6178: WHEN OTHERS
6179: THEN
6180: ROLLBACK TO create_receiveevents_pvt;
6181: x_return_status := fnd_api.g_ret_sts_unexp_error;
6182:
6183: IF g_debug = 'Y'
6184: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6185: THEN
6207: END create_receive_txns;
6208:
6209: PROCEDURE create_deliver_txns (
6210: p_api_version IN NUMBER,
6211: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6212: p_commit IN VARCHAR2 := fnd_api.g_false,
6213: p_validation_level IN NUMBER
6214: := fnd_api.g_valid_level_full,
6215: x_return_status OUT NOCOPY VARCHAR2,
6208:
6209: PROCEDURE create_deliver_txns (
6210: p_api_version IN NUMBER,
6211: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6212: p_commit IN VARCHAR2 := fnd_api.g_false,
6213: p_validation_level IN NUMBER
6214: := fnd_api.g_valid_level_full,
6215: x_return_status OUT NOCOPY VARCHAR2,
6216: x_msg_count OUT NOCOPY NUMBER,
6210: p_api_version IN NUMBER,
6211: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6212: p_commit IN VARCHAR2 := fnd_api.g_false,
6213: p_validation_level IN NUMBER
6214: := fnd_api.g_valid_level_full,
6215: x_return_status OUT NOCOPY VARCHAR2,
6216: x_msg_count OUT NOCOPY NUMBER,
6217: x_msg_data OUT NOCOPY VARCHAR2,
6218: p_rcv_transaction_id IN NUMBER,
6222: IS
6223: c_log_module CONSTANT VARCHAR2 (80)
6224: := module || 'Create_Deliver_Txns';
6225: l_return_status VARCHAR2 (1)
6226: := fnd_api.g_ret_sts_success;
6227: l_msg_count NUMBER := 0;
6228: l_msg_data VARCHAR2 (8000) := '';
6229: l_stmt_num NUMBER := 0;
6230: l_api_message VARCHAR2 (1000);
6269: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
6270: END IF;
6271:
6272: -- Initialize API return status to success
6273: x_return_status := fnd_api.g_ret_sts_success;
6274: -- Unlike for Receive transactions, for Deliver transactions, the po_distribution_id
6275: -- is always available.
6276: l_stmt_num := 20;
6277:
6400: p_transaction_date => l_rcv_trx_date,
6401: p_get_default_cost_group => 'N'
6402: );
6403:
6404: IF (l_return_status = fnd_api.g_ret_sts_success)
6405: THEN
6406: l_procurement_org_flag := 'N';
6407: l_trx_flow_exists_flag := 1;
6408: l_trx_flow_header_id :=
6439: l_api_message
6440: );
6441: END IF;
6442:
6443: RAISE fnd_api.g_exc_unexpected_error;
6444: END IF;
6445: ELSE
6446: l_api_message := 'Error occurred in Transaction Flow API';
6447:
6456: || l_api_message
6457: );
6458: END IF;
6459:
6460: RAISE fnd_api.g_exc_unexpected_error;
6461: END IF; -- End if ret_status
6462: END IF; -- End cross_ou_flag = Y
6463:
6464: l_stmt_num := 50;
6505: p_prior_unit_price => NULL,
6506: x_rcv_accttxn => l_rcv_accttxn
6507: );
6508:
6509: IF l_return_status <> fnd_api.g_ret_sts_success
6510: THEN
6511: l_api_message := 'Error creating Txn';
6512:
6513: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6517: l_api_message
6518: );
6519: END IF;
6520:
6521: RAISE fnd_api.g_exc_unexpected_error;
6522: END IF;
6523:
6524: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
6525:
6545: x_encumbrance_flag => l_encumbrance_flag,
6546: x_ussgl_option => l_ussgl_option
6547: );
6548:
6549: IF l_return_status <> fnd_api.g_ret_sts_success
6550: THEN
6551: l_api_message := 'Error in checking for encumbrance flag ';
6552:
6553: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6558: l_api_message
6559: );
6560: END IF;
6561:
6562: RAISE fnd_api.g_exc_unexpected_error;
6563: END IF;
6564:
6565: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6566: THEN
6615: Bug #3333610. In the case of encumbrance reversals, the quantity to unencumber
6616: may turn out to be zero if the quantity delivered is greater than the quantity
6617: ordered. In such a situation, we should not error out the event.
6618: **/
6619: IF l_return_status = fnd_api.g_ret_sts_success
6620: THEN
6621: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
6622: l_rcv_accttxn;
6623: ELSIF l_return_status <> 'W'
6632: l_api_message
6633: );
6634: END IF;
6635:
6636: RAISE fnd_api.g_exc_unexpected_error;
6637: END IF;
6638: END IF; -- end if encum_flag = y
6639: END IF; -- end if trx_flow_exists_flag = 0
6640:
6653: x_msg_data => l_msg_data,
6654: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
6655: );
6656:
6657: IF l_return_status <> fnd_api.g_ret_sts_success
6658: THEN
6659: l_api_message := 'Error inserting txns into GRAT';
6660:
6661: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6665: l_api_message
6666: );
6667: END IF;
6668:
6669: RAISE fnd_api.g_exc_unexpected_error;
6670: END IF;
6671:
6672: IF fnd_api.to_boolean (p_commit)
6673: THEN
6668:
6669: RAISE fnd_api.g_exc_unexpected_error;
6670: END IF;
6671:
6672: IF fnd_api.to_boolean (p_commit)
6673: THEN
6674: COMMIT WORK;
6675: END IF;
6676:
6682: THEN
6683: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
6684: END IF;
6685: EXCEPTION
6686: WHEN fnd_api.g_exc_error
6687: THEN
6688: ROLLBACK TO create_deliver_txns;
6689: x_return_status := fnd_api.g_ret_sts_error;
6690: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6685: EXCEPTION
6686: WHEN fnd_api.g_exc_error
6687: THEN
6688: ROLLBACK TO create_deliver_txns;
6689: x_return_status := fnd_api.g_ret_sts_error;
6690: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6691: p_data => x_msg_data
6692: );
6693: WHEN fnd_api.g_exc_unexpected_error
6689: x_return_status := fnd_api.g_ret_sts_error;
6690: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6691: p_data => x_msg_data
6692: );
6693: WHEN fnd_api.g_exc_unexpected_error
6694: THEN
6695: ROLLBACK TO create_deliver_txns;
6696: x_return_status := fnd_api.g_ret_sts_unexp_error;
6697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6692: );
6693: WHEN fnd_api.g_exc_unexpected_error
6694: THEN
6695: ROLLBACK TO create_deliver_txns;
6696: x_return_status := fnd_api.g_ret_sts_unexp_error;
6697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6698: p_data => x_msg_data
6699: );
6700: WHEN OTHERS
6699: );
6700: WHEN OTHERS
6701: THEN
6702: ROLLBACK TO create_deliver_txns;
6703: x_return_status := fnd_api.g_ret_sts_unexp_error;
6704:
6705: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6706: THEN
6707: fnd_log.STRING (fnd_log.level_unexpected,
6725: END create_deliver_txns;
6726:
6727: PROCEDURE create_rtr_txns (
6728: p_api_version IN NUMBER := 1.0,
6729: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6730: p_commit IN VARCHAR2 := fnd_api.g_false,
6731: p_validation_level IN NUMBER
6732: := fnd_api.g_valid_level_full,
6733: x_return_status OUT NOCOPY VARCHAR2,
6726:
6727: PROCEDURE create_rtr_txns (
6728: p_api_version IN NUMBER := 1.0,
6729: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6730: p_commit IN VARCHAR2 := fnd_api.g_false,
6731: p_validation_level IN NUMBER
6732: := fnd_api.g_valid_level_full,
6733: x_return_status OUT NOCOPY VARCHAR2,
6734: x_msg_count OUT NOCOPY NUMBER,
6728: p_api_version IN NUMBER := 1.0,
6729: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6730: p_commit IN VARCHAR2 := fnd_api.g_false,
6731: p_validation_level IN NUMBER
6732: := fnd_api.g_valid_level_full,
6733: x_return_status OUT NOCOPY VARCHAR2,
6734: x_msg_count OUT NOCOPY NUMBER,
6735: x_msg_data OUT NOCOPY VARCHAR2,
6736: p_rcv_transaction_id IN NUMBER,
6740: IS
6741: l_api_name CONSTANT VARCHAR2 (30) := 'Create_RTR_Txns';
6742: l_api_version CONSTANT NUMBER := 1.0;
6743: l_return_status VARCHAR2 (1)
6744: := fnd_api.g_ret_sts_success;
6745: l_msg_count NUMBER := 0;
6746: l_msg_data VARCHAR2 (8000) := '';
6747: l_stmt_num NUMBER := 0;
6748: l_api_message VARCHAR2 (1000);
6790: );
6791: END IF;
6792:
6793: -- Standard call to check for call compatibility
6794: IF NOT fnd_api.compatible_api_call (l_api_version,
6795: p_api_version,
6796: l_api_name,
6797: g_pkg_name
6798: )
6796: l_api_name,
6797: g_pkg_name
6798: )
6799: THEN
6800: RAISE fnd_api.g_exc_unexpected_error;
6801: END IF;
6802:
6803: -- Initialize message list if p_init_msg_list is set to TRUE
6804: IF fnd_api.to_boolean (p_init_msg_list)
6800: RAISE fnd_api.g_exc_unexpected_error;
6801: END IF;
6802:
6803: -- Initialize message list if p_init_msg_list is set to TRUE
6804: IF fnd_api.to_boolean (p_init_msg_list)
6805: THEN
6806: fnd_msg_pub.initialize;
6807: END IF;
6808:
6806: fnd_msg_pub.initialize;
6807: END IF;
6808:
6809: -- Initialize API return status to success
6810: x_return_status := fnd_api.g_ret_sts_success;
6811: -- Unlike for RTV transactions, for RTR transactions, the po_distribution_id
6812: -- is always available.
6813: l_stmt_num := 20;
6814:
6945: p_transaction_date => l_rcv_trx_date,
6946: p_get_default_cost_group => 'N'
6947: );
6948:
6949: IF (l_return_status = fnd_api.g_ret_sts_success)
6950: THEN
6951: l_procurement_org_flag := 'N';
6952: l_trx_flow_exists_flag := 1;
6953: l_trx_flow_header_id :=
6994: || l_api_message
6995: );
6996: END IF;
6997:
6998: RAISE fnd_api.g_exc_unexpected_error;
6999: END IF;
7000: ELSE
7001: l_api_message := 'Error occurred in Transaction Flow API';
7002:
7011: || l_api_message
7012: );
7013: END IF;
7014:
7015: RAISE fnd_api.g_exc_unexpected_error;
7016: END IF;
7017: END IF;
7018:
7019: l_stmt_num := 50;
7065: x_rcv_accttxn => l_rcv_accttxn
7066: );
7067: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
7068:
7069: IF l_return_status <> fnd_api.g_ret_sts_success
7070: THEN
7071: l_api_message := 'Error creating event';
7072:
7073: IF g_debug = 'Y'
7081: || l_api_message
7082: );
7083: END IF;
7084:
7085: RAISE fnd_api.g_exc_unexpected_error;
7086: END IF;
7087:
7088: IF l_trx_flow_exists_flag = 0
7089: THEN
7107: x_encumbrance_flag => l_encumbrance_flag,
7108: x_ussgl_option => l_ussgl_option
7109: );
7110:
7111: IF l_return_status <> fnd_api.g_ret_sts_success
7112: THEN
7113: l_api_message := 'Error in checking for encumbrance flag ';
7114:
7115: IF g_debug = 'Y'
7123: || l_api_message
7124: );
7125: END IF;
7126:
7127: RAISE fnd_api.g_exc_unexpected_error;
7128: END IF;
7129:
7130: IF g_debug = 'Y'
7131: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7184:
7185: /* Bug #3333610. In the case of encumbrance reversals, the quantity to unencumber
7186: may turn out to be zero if the quantity delivered is greater than the quantity
7187: ordered. In such a situation, we should not error out the event. */
7188: IF l_return_status = fnd_api.g_ret_sts_success
7189: THEN
7190: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7191: l_rcv_accttxn;
7192: ELSIF l_return_status <> 'W'
7206: || l_api_message
7207: );
7208: END IF;
7209:
7210: RAISE fnd_api.g_exc_unexpected_error;
7211: END IF;
7212: END IF;
7213: END IF;
7214:
7228: x_msg_data => l_msg_data,
7229: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
7230: );
7231:
7232: IF l_return_status <> fnd_api.g_ret_sts_success
7233: THEN
7234: l_api_message := 'Error inserting transactions into GRAT';
7235:
7236: IF g_debug = 'Y'
7244: || l_api_message
7245: );
7246: END IF;
7247:
7248: RAISE fnd_api.g_exc_unexpected_error;
7249: END IF;
7250:
7251: -- Standard check of p_commit
7252: IF fnd_api.to_boolean (p_commit)
7248: RAISE fnd_api.g_exc_unexpected_error;
7249: END IF;
7250:
7251: -- Standard check of p_commit
7252: IF fnd_api.to_boolean (p_commit)
7253: THEN
7254: COMMIT WORK;
7255: END IF;
7256:
7266: 'Create_RTREvents >>'
7267: );
7268: END IF;
7269: EXCEPTION
7270: WHEN fnd_api.g_exc_error
7271: THEN
7272: ROLLBACK TO create_rtrevents_pvt;
7273: x_return_status := fnd_api.g_ret_sts_error;
7274: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7269: EXCEPTION
7270: WHEN fnd_api.g_exc_error
7271: THEN
7272: ROLLBACK TO create_rtrevents_pvt;
7273: x_return_status := fnd_api.g_ret_sts_error;
7274: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7275: p_data => x_msg_data
7276: );
7277: WHEN fnd_api.g_exc_unexpected_error
7273: x_return_status := fnd_api.g_ret_sts_error;
7274: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7275: p_data => x_msg_data
7276: );
7277: WHEN fnd_api.g_exc_unexpected_error
7278: THEN
7279: ROLLBACK TO create_rtrevents_pvt;
7280: x_return_status := fnd_api.g_ret_sts_unexp_error;
7281: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7276: );
7277: WHEN fnd_api.g_exc_unexpected_error
7278: THEN
7279: ROLLBACK TO create_rtrevents_pvt;
7280: x_return_status := fnd_api.g_ret_sts_unexp_error;
7281: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7282: p_data => x_msg_data
7283: );
7284: WHEN OTHERS
7283: );
7284: WHEN OTHERS
7285: THEN
7286: ROLLBACK TO create_rtrevents_pvt;
7287: x_return_status := fnd_api.g_ret_sts_unexp_error;
7288:
7289: IF g_debug = 'Y'
7290: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7291: THEN
7319: -- Pre-reqs :
7320: -- Parameters :
7321: -- IN : p_api_version IN NUMBER Required
7322: -- p_init_msg_list IN VARCHAR2 Optional
7323: -- Default = FND_API.G_FALSE
7324: -- p_commit IN VARCHAR2 Optional
7325: -- Default = FND_API.G_FALSE
7326: -- p_validation_level IN NUMBER Optional
7327: -- Default = FND_API.G_VALID_LEVEL_FULL
7321: -- IN : p_api_version IN NUMBER Required
7322: -- p_init_msg_list IN VARCHAR2 Optional
7323: -- Default = FND_API.G_FALSE
7324: -- p_commit IN VARCHAR2 Optional
7325: -- Default = FND_API.G_FALSE
7326: -- p_validation_level IN NUMBER Optional
7327: -- Default = FND_API.G_VALID_LEVEL_FULL
7328: -- p_rcv_transaction_id IN NUMBER Required
7329: -- p_direct_delivery_flag IN VARCHAR2 Optional
7323: -- Default = FND_API.G_FALSE
7324: -- p_commit IN VARCHAR2 Optional
7325: -- Default = FND_API.G_FALSE
7326: -- p_validation_level IN NUMBER Optional
7327: -- Default = FND_API.G_VALID_LEVEL_FULL
7328: -- p_rcv_transaction_id IN NUMBER Required
7329: -- p_direct_delivery_flag IN VARCHAR2 Optional
7330: -- p_gl_group_id IN NUMBER Optional
7331: --
7341: --
7342: -- End of comments
7343: PROCEDURE create_rtv_txns (
7344: p_api_version IN NUMBER := 1.0,
7345: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7346: p_commit IN VARCHAR2 := fnd_api.g_false,
7347: p_validation_level IN NUMBER
7348: := fnd_api.g_valid_level_full,
7349: x_return_status OUT NOCOPY VARCHAR2,
7342: -- End of comments
7343: PROCEDURE create_rtv_txns (
7344: p_api_version IN NUMBER := 1.0,
7345: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7346: p_commit IN VARCHAR2 := fnd_api.g_false,
7347: p_validation_level IN NUMBER
7348: := fnd_api.g_valid_level_full,
7349: x_return_status OUT NOCOPY VARCHAR2,
7350: x_msg_count OUT NOCOPY NUMBER,
7344: p_api_version IN NUMBER := 1.0,
7345: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7346: p_commit IN VARCHAR2 := fnd_api.g_false,
7347: p_validation_level IN NUMBER
7348: := fnd_api.g_valid_level_full,
7349: x_return_status OUT NOCOPY VARCHAR2,
7350: x_msg_count OUT NOCOPY NUMBER,
7351: x_msg_data OUT NOCOPY VARCHAR2,
7352: p_rcv_transaction_id IN NUMBER,
7356: IS
7357: l_api_name CONSTANT VARCHAR2 (30) := 'Create_RTV_Txns';
7358: l_api_version CONSTANT NUMBER := 1.0;
7359: l_return_status VARCHAR2 (1)
7360: := fnd_api.g_ret_sts_success;
7361: l_msg_count NUMBER := 0;
7362: l_msg_data VARCHAR2 (8000) := '';
7363: l_stmt_num NUMBER := 0;
7364: l_api_message VARCHAR2 (1000);
7420: );
7421: END IF;
7422:
7423: -- Standard call to check for call compatibility
7424: IF NOT fnd_api.compatible_api_call (l_api_version,
7425: p_api_version,
7426: l_api_name,
7427: g_pkg_name
7428: )
7426: l_api_name,
7427: g_pkg_name
7428: )
7429: THEN
7430: RAISE fnd_api.g_exc_unexpected_error;
7431: END IF;
7432:
7433: -- Initialize message list if p_init_msg_list is set to TRUE
7434: IF fnd_api.to_boolean (p_init_msg_list)
7430: RAISE fnd_api.g_exc_unexpected_error;
7431: END IF;
7432:
7433: -- Initialize message list if p_init_msg_list is set to TRUE
7434: IF fnd_api.to_boolean (p_init_msg_list)
7435: THEN
7436: fnd_msg_pub.initialize;
7437: END IF;
7438:
7436: fnd_msg_pub.initialize;
7437: END IF;
7438:
7439: -- Initialize API return status to success
7440: x_return_status := fnd_api.g_ret_sts_success;
7441: l_stmt_num := 20;
7442:
7443: SELECT rt.po_header_id, rt.po_line_id, rt.po_line_location_id,
7444: rt.po_distribution_id, rt.transaction_date,
7559: p_transaction_date => l_rcv_trx_date,
7560: p_get_default_cost_group => 'N'
7561: );
7562:
7563: IF (l_return_status = fnd_api.g_ret_sts_success)
7564: THEN
7565: l_trx_flow_exists_flag := 1;
7566: l_trx_flow_header_id :=
7567: l_transaction_flows_tbl (l_transaction_flows_tbl.FIRST).header_id;
7602: || l_api_message
7603: );
7604: END IF;
7605:
7606: RAISE fnd_api.g_exc_unexpected_error;
7607: END IF;
7608: ELSE
7609: l_api_message := 'Error occurred in Transaction Flow API';
7610:
7619: || l_api_message
7620: );
7621: END IF;
7622:
7623: RAISE fnd_api.g_exc_unexpected_error;
7624: END IF; -- IF l_return_status
7625: END IF; -- IF l_po_org_id
7626:
7627: -- For the RTV transaction, the PO distribution may not be available in the
7736: p_prior_unit_price => NULL,
7737: x_rcv_accttxn => l_rcv_accttxn
7738: );
7739:
7740: IF l_return_status <> fnd_api.g_ret_sts_success
7741: THEN
7742: l_api_message := 'Error creating event';
7743:
7744: IF g_debug = 'Y'
7756: || l_api_message
7757: );
7758: END IF;
7759:
7760: RAISE fnd_api.g_exc_unexpected_error;
7761: END IF;
7762:
7763: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7764: l_rcv_accttxn;
7815: p_prior_unit_price => NULL,
7816: x_rcv_accttxn => l_rcv_accttxn
7817: );
7818:
7819: IF l_return_status <> fnd_api.g_ret_sts_success
7820: THEN
7821: l_api_message := 'Error creating event';
7822:
7823: IF g_debug = 'Y'
7835: || l_api_message
7836: );
7837: END IF;
7838:
7839: RAISE fnd_api.g_exc_unexpected_error;
7840: END IF;
7841:
7842: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
7843: l_rcv_accttxn;
7917: p_prior_unit_price => NULL,
7918: x_rcv_accttxn => l_rcv_accttxn
7919: );
7920:
7921: IF l_return_status <> fnd_api.g_ret_sts_success
7922: THEN
7923: l_api_message := 'Error creating event';
7924:
7925: IF g_debug = 'Y'
7933: || l_api_message
7934: );
7935: END IF;
7936:
7937: RAISE fnd_api.g_exc_unexpected_error;
7938: END IF;
7939:
7940: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) := l_rcv_accttxn;
7941: END LOOP;
7956: x_msg_data => l_msg_data,
7957: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
7958: );
7959:
7960: IF l_return_status <> fnd_api.g_ret_sts_success
7961: THEN
7962: l_api_message := 'Error inserting transactions into GRAT';
7963:
7964: IF g_debug = 'Y'
7972: || l_api_message
7973: );
7974: END IF;
7975:
7976: RAISE fnd_api.g_exc_unexpected_error;
7977: END IF;
7978:
7979: IF (l_trx_flow_exists_flag = 1 AND l_item_id IS NOT NULL)
7980: THEN
7996: x_msg_data => l_msg_data,
7997: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
7998: );
7999:
8000: IF l_return_status <> fnd_api.g_ret_sts_success
8001: THEN
8002: l_api_message := 'Error inserting transactions into MMT';
8003:
8004: IF g_debug = 'Y'
8012: || l_api_message
8013: );
8014: END IF;
8015:
8016: RAISE fnd_api.g_exc_unexpected_error;
8017: END IF;
8018: END IF;
8019:
8020: -- Standard check of p_commit
8017: END IF;
8018: END IF;
8019:
8020: -- Standard check of p_commit
8021: IF fnd_api.to_boolean (p_commit)
8022: THEN
8023: COMMIT WORK;
8024: END IF;
8025:
8035: 'Create_RTVEvents >>'
8036: );
8037: END IF;
8038: EXCEPTION
8039: WHEN fnd_api.g_exc_error
8040: THEN
8041: ROLLBACK TO create_rtvevents_pvt;
8042: x_return_status := fnd_api.g_ret_sts_error;
8043: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8038: EXCEPTION
8039: WHEN fnd_api.g_exc_error
8040: THEN
8041: ROLLBACK TO create_rtvevents_pvt;
8042: x_return_status := fnd_api.g_ret_sts_error;
8043: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8044: p_data => x_msg_data
8045: );
8046: WHEN fnd_api.g_exc_unexpected_error
8042: x_return_status := fnd_api.g_ret_sts_error;
8043: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8044: p_data => x_msg_data
8045: );
8046: WHEN fnd_api.g_exc_unexpected_error
8047: THEN
8048: ROLLBACK TO create_rtvevents_pvt;
8049: x_return_status := fnd_api.g_ret_sts_unexp_error;
8050: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8045: );
8046: WHEN fnd_api.g_exc_unexpected_error
8047: THEN
8048: ROLLBACK TO create_rtvevents_pvt;
8049: x_return_status := fnd_api.g_ret_sts_unexp_error;
8050: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8051: p_data => x_msg_data
8052: );
8053: WHEN OTHERS
8052: );
8053: WHEN OTHERS
8054: THEN
8055: ROLLBACK TO create_rtvevents_pvt;
8056: x_return_status := fnd_api.g_ret_sts_unexp_error;
8057:
8058: IF g_debug = 'Y'
8059: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8060: THEN
8125: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
8126: END IF;
8127:
8128: -- Standard call to check for call compatibility
8129: IF NOT fnd_api.compatible_api_call (l_api_version,
8130: p_api_version,
8131: l_api_name,
8132: g_pkg_name
8133: )
8131: l_api_name,
8132: g_pkg_name
8133: )
8134: THEN
8135: RAISE fnd_api.g_exc_unexpected_error;
8136: END IF;
8137:
8138: -- Initialize message list if p_init_msg_list is set to TRUE
8139: IF fnd_api.to_boolean (p_init_msg_list)
8135: RAISE fnd_api.g_exc_unexpected_error;
8136: END IF;
8137:
8138: -- Initialize message list if p_init_msg_list is set to TRUE
8139: IF fnd_api.to_boolean (p_init_msg_list)
8140: THEN
8141: fnd_msg_pub.initialize;
8142: END IF;
8143:
8141: fnd_msg_pub.initialize;
8142: END IF;
8143:
8144: -- Initialize API return status to success
8145: x_return_status := fnd_api.g_ret_sts_success;
8146:
8147: SELECT rt.consigned_flag, rt.source_document_code, rt.transaction_type,
8148: rt.parent_transaction_id, rt.po_header_id,
8149: rt.po_line_location_id --12i Complex Work Procurement
8328: p_gl_group_id => p_gl_group_id
8329: );
8330: END IF;
8331:
8332: IF l_return_status <> fnd_api.g_ret_sts_success
8333: THEN
8334: l_api_message := 'Error creating event';
8335:
8336: IF g_debug = 'Y'
8344: || l_api_message
8345: );
8346: END IF;
8347:
8348: RAISE fnd_api.g_exc_unexpected_error;
8349: END IF;
8350:
8351: l_stmt_num := 120;
8352:
8350:
8351: l_stmt_num := 120;
8352:
8353: --- Standard check of p_commit
8354: IF fnd_api.to_boolean (p_commit)
8355: THEN
8356: COMMIT WORK;
8357: END IF;
8358:
8366: END IF;
8367:
8368: EXCEPTION
8369: -- rseshadr - return error back to caller
8370: WHEN fnd_api.g_exc_unexpected_error
8371: THEN
8372: ROLLBACK TO s_create_accounting_txns;
8373: x_return_status := fnd_api.g_ret_sts_unexp_error;
8374: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8369: -- rseshadr - return error back to caller
8370: WHEN fnd_api.g_exc_unexpected_error
8371: THEN
8372: ROLLBACK TO s_create_accounting_txns;
8373: x_return_status := fnd_api.g_ret_sts_unexp_error;
8374: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8375: p_data => x_msg_data
8376: );
8377: WHEN OTHERS
8376: );
8377: WHEN OTHERS
8378: THEN
8379: ROLLBACK TO s_create_accounting_txns;
8380: x_return_status := fnd_api.g_ret_sts_unexp_error;
8381:
8382: IF g_debug = 'Y'
8383: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8384: THEN
8412: -- Pre-reqs :
8413: -- Parameters :
8414: -- IN : p_api_version IN NUMBER Required
8415: -- p_init_msg_list IN VARCHAR2 Optional
8416: -- Default = FND_API.G_FALSE
8417: -- p_commit IN VARCHAR2 Optional
8418: -- Default = FND_API.G_FALSE
8419: -- p_validation_level IN NUMBER Optional
8420: -- Default = FND_API.G_VALID_LEVEL_FULL
8414: -- IN : p_api_version IN NUMBER Required
8415: -- p_init_msg_list IN VARCHAR2 Optional
8416: -- Default = FND_API.G_FALSE
8417: -- p_commit IN VARCHAR2 Optional
8418: -- Default = FND_API.G_FALSE
8419: -- p_validation_level IN NUMBER Optional
8420: -- Default = FND_API.G_VALID_LEVEL_FULL
8421: -- p_po_header_id IN NUMBER Required
8422: -- p_po_release_id IN NUMBER Optional
8416: -- Default = FND_API.G_FALSE
8417: -- p_commit IN VARCHAR2 Optional
8418: -- Default = FND_API.G_FALSE
8419: -- p_validation_level IN NUMBER Optional
8420: -- Default = FND_API.G_VALID_LEVEL_FULL
8421: -- p_po_header_id IN NUMBER Required
8422: -- p_po_release_id IN NUMBER Optional
8423: -- p_po_line_id IN NUMBER Optional
8424: -- p_po_line_location_id IN NUMBER Required
8454: )
8455: IS
8456: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Adjust_Txns';
8457: l_api_version CONSTANT NUMBER := 1.0;
8458: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
8459: l_msg_count NUMBER := 0;
8460: l_msg_data VARCHAR2 (8000) := '';
8461: l_stmt_num NUMBER := 0;
8462: l_api_message VARCHAR2 (1000);
8533: WHEN OTHERS THEN
8534: l_process_enabled_flag := 'N';
8535: END;
8536: IF nvl(l_process_enabled_flag, 'N') <> 'Y' THEN
8537: x_return_status := fnd_api.g_ret_sts_success;
8538: x_msg_count := 0;
8539: x_msg_data := NULL;
8540: RETURN;
8541: END IF;
8554: );
8555: END IF;
8556:
8557: -- Standard call to check for call compatibility
8558: IF NOT fnd_api.compatible_api_call (l_api_version,
8559: p_api_version,
8560: l_api_name,
8561: g_pkg_name
8562: )
8560: l_api_name,
8561: g_pkg_name
8562: )
8563: THEN
8564: RAISE fnd_api.g_exc_unexpected_error;
8565: END IF;
8566:
8567: -- Initialize message list if p_init_msg_list is set to TRUE
8568: IF fnd_api.to_boolean (p_init_msg_list)
8564: RAISE fnd_api.g_exc_unexpected_error;
8565: END IF;
8566:
8567: -- Initialize message list if p_init_msg_list is set to TRUE
8568: IF fnd_api.to_boolean (p_init_msg_list)
8569: THEN
8570: fnd_msg_pub.initialize;
8571: END IF;
8572:
8570: fnd_msg_pub.initialize;
8571: END IF;
8572:
8573: -- Initialize API return status to success
8574: x_return_status := fnd_api.g_ret_sts_success;
8575:
8576: -- If the old and new price are the same, return
8577: IF p_old_po_price = p_new_po_price
8578: THEN
8728: -- Suppose there is no net quantity for this receipt (all received quantity has been
8729: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8730: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8731: -- case of Adjust events, this warning is normal and should be ignored.
8732: IF (l_return_status = fnd_api.g_ret_sts_success)
8733: THEN
8734: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8735: l_rcv_accttxn;
8736: ELSIF (l_return_status <> 'W')
8750: || l_api_message
8751: );
8752: END IF;
8753:
8754: RAISE fnd_api.g_exc_unexpected_error;
8755: END IF;
8756: ELSE
8757: FOR c_po_dist IN c_po_dists_csr (c_par_txn.transaction_id)
8758: LOOP
8787: -- Suppose there is no net quantity for this receipt (all received quantity has been
8788: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8789: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8790: -- case of Adjust events, this warning is normal and should be ignored.
8791: IF (l_return_status = fnd_api.g_ret_sts_success)
8792: THEN
8793: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8794: l_rcv_accttxn;
8795: ELSIF (l_return_status <> 'W')
8811: || l_api_message
8812: );
8813: END IF;
8814:
8815: RAISE fnd_api.g_exc_unexpected_error;
8816: END IF;
8817: END LOOP;
8818: END IF;
8819:
8857: -- Suppose there is no net quantity for this deliver (all delivered quantity has been
8858: -- returned), there is no need to seed an event, since there is no accrual to adjust.
8859: -- If transaction quantity is 0, the Insert_Txn API will return a warning. In the
8860: -- case of Adjust events, this warning is normal and should be ignored.
8861: IF (l_return_status = fnd_api.g_ret_sts_success)
8862: THEN
8863: l_rcv_accttxn_tbl (l_rcv_accttxn_tbl.COUNT + 1) :=
8864: l_rcv_accttxn;
8865: ELSIF (l_return_status <> 'W')
8881: || l_api_message
8882: );
8883: END IF;
8884:
8885: RAISE fnd_api.g_exc_unexpected_error;
8886: END IF;
8887: END LOOP; -- C_DEL_TXN
8888: END IF; -- If Trx Flow does not exist
8889: END LOOP; -- C_PAR_TXNS
8896: x_msg_data => l_msg_data,
8897: p_rcv_accttxn_tbl => l_rcv_accttxn_tbl
8898: );
8899:
8900: IF l_return_status <> fnd_api.g_ret_sts_success
8901: THEN
8902: l_api_message := 'Error inserting Transactions into GRAT';
8903:
8904: IF g_debug = 'Y'
8912: || l_api_message
8913: );
8914: END IF;
8915:
8916: RAISE fnd_api.g_exc_unexpected_error;
8917: END IF;
8918: END IF;
8919:
8920: --- Standard check of p_commit
8917: END IF;
8918: END IF;
8919:
8920: --- Standard check of p_commit
8921: IF fnd_api.to_boolean (p_commit)
8922: THEN
8923: COMMIT WORK;
8924: END IF;
8925:
8935: 'Create_Adjust_Txns >>'
8936: );
8937: END IF;
8938: EXCEPTION
8939: WHEN fnd_api.g_exc_error
8940: THEN
8941: ROLLBACK TO create_adjust_txns_pvt;
8942: x_return_status := fnd_api.g_ret_sts_error;
8943: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8938: EXCEPTION
8939: WHEN fnd_api.g_exc_error
8940: THEN
8941: ROLLBACK TO create_adjust_txns_pvt;
8942: x_return_status := fnd_api.g_ret_sts_error;
8943: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8944: p_data => x_msg_data
8945: );
8946: WHEN fnd_api.g_exc_unexpected_error
8942: x_return_status := fnd_api.g_ret_sts_error;
8943: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8944: p_data => x_msg_data
8945: );
8946: WHEN fnd_api.g_exc_unexpected_error
8947: THEN
8948: ROLLBACK TO create_adjust_txns_pvt;
8949: x_return_status := fnd_api.g_ret_sts_unexp_error;
8950: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8945: );
8946: WHEN fnd_api.g_exc_unexpected_error
8947: THEN
8948: ROLLBACK TO create_adjust_txns_pvt;
8949: x_return_status := fnd_api.g_ret_sts_unexp_error;
8950: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8951: p_data => x_msg_data
8952: );
8953: WHEN OTHERS
8952: );
8953: WHEN OTHERS
8954: THEN
8955: ROLLBACK TO create_adjust_txns_pvt;
8956: x_return_status := fnd_api.g_ret_sts_unexp_error;
8957:
8958: IF g_debug = 'Y'
8959: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8960: THEN