144: END IF;
145:
146: -- Initialize message list if p_init_msg_list is set to TRUE
147: IF FND_API.to_Boolean(p_init_msg_list) THEN
148: FND_MSG_PUB.initialize;
149: END IF;
150:
151: -- Initialize API return status to success
152: x_return_status := FND_API.G_RET_STS_SUCCESS;
213:
214: -- If Invalid user_id is stamped, exit
215: IF l_user_id = -1 THEN
216: FND_MESSAGE.set_name('PO','INVALID_USER_ID');
217: FND_MSG_pub.add;
218: IF l_errorLog THEN
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
220: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
221: END IF;
278: IF l_lcm_enabled = 'Y' THEN
279:
280: l_stmt_num := 150;
281: FND_MESSAGE.SET_NAME('BOM', 'CST_RETRO_PRC_IN_LCM_SHIP');
282: FND_MSG_PUB.ADD;
283:
284: IF l_errorLog THEN
285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
286: FND_LOG.message(FND_LOG.LEVEL_ERROR,l_module,FALSE);
322: p_new_po_price => p_new_po_price);
323:
324: ELSE
325: FND_MESSAGE.set_name('PO','INVALID_EVENT_SOURCE_TYPE');
326: FND_MSG_pub.add;
327: IF l_errorLog THEN
328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
329: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
330: END IF;
348: COMMIT WORK;
349: END IF;
350:
351: -- Standard Call to get message count and if count = 1, get message info
352: FND_MSG_PUB.Count_And_Get (
353: p_count => x_msg_count,
354: p_data => x_msg_data );
355:
356: IF l_pLog THEN
364: EXCEPTION
365: WHEN FND_API.g_exc_error THEN
366: ROLLBACK TO Create_AccountingEvents_GRP;
367: x_return_status := FND_API.g_ret_sts_error;
368: FND_MSG_PUB.count_and_get
369: ( p_count => x_msg_count
370: , p_data => x_msg_data
371: );
372:
372:
373: WHEN FND_API.g_exc_unexpected_error THEN
374: ROLLBACK TO Create_AccountingEvents_GRP;
375: x_return_status := FND_API.g_ret_sts_unexp_error ;
376: FND_MSG_PUB.count_and_get
377: ( p_count => x_msg_count
378: , p_data => x_msg_data
379: );
380:
388: ,'Create_AccountingEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
389: END IF;
390: END IF;
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
393: THEN
394: FND_MSG_PUB.add_exc_msg
395: ( G_PKG_NAME,
396: l_api_name || 'Statement -'||to_char(l_stmt_num)
390: END IF;
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
393: THEN
394: FND_MSG_PUB.add_exc_msg
395: ( G_PKG_NAME,
396: l_api_name || 'Statement -'||to_char(l_stmt_num)
397: );
398: END IF;
395: ( G_PKG_NAME,
396: l_api_name || 'Statement -'||to_char(l_stmt_num)
397: );
398: END IF;
399: FND_MSG_PUB.count_and_get
400: ( p_count => x_msg_count
401: , p_data => x_msg_data
402: );
403: END Create_AccountingEvents;
551: END IF;
552:
553: -- Initialize message list if p_init_msg_list is set to TRUE
554: IF FND_API.to_Boolean(p_init_msg_list) THEN
555: FND_MSG_PUB.initialize;
556: END IF;
557:
558: -- Initialize API return status to success
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
616: END IF;
617:
618:
619: -- Standard Call to get message count and if count = 1, get message info
620: FND_MSG_PUB.Count_And_Get (
621: p_count => x_msg_count,
622: p_data => x_msg_data );
623:
624: IF l_pLog THEN
632: EXCEPTION
633: WHEN FND_API.g_exc_error THEN
634: ROLLBACK TO Create_InterCompanyEvents_GRP;
635: x_return_status := FND_API.g_ret_sts_error;
636: FND_MSG_PUB.count_and_get
637: ( p_count => x_msg_count
638: , p_data => x_msg_data
639: );
640:
640:
641: WHEN FND_API.g_exc_unexpected_error THEN
642: ROLLBACK TO Create_InterCompanyEvents_GRP;
643: x_return_status := FND_API.g_ret_sts_unexp_error ;
644: FND_MSG_PUB.count_and_get
645: ( p_count => x_msg_count
646: , p_data => x_msg_data
647: );
648:
656: ,'Create_InterCompanyEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
657: END IF;
658: END IF;
659:
660: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
661: THEN
662: FND_MSG_PUB.add_exc_msg
663: ( G_PKG_NAME,
664: l_api_name || 'Statement -'||to_char(l_stmt_num)
658: END IF;
659:
660: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
661: THEN
662: FND_MSG_PUB.add_exc_msg
663: ( G_PKG_NAME,
664: l_api_name || 'Statement -'||to_char(l_stmt_num)
665: );
666: END IF;
663: ( G_PKG_NAME,
664: l_api_name || 'Statement -'||to_char(l_stmt_num)
665: );
666: END IF;
667: FND_MSG_PUB.count_and_get
668: ( p_count => x_msg_count
669: , p_data => x_msg_data
670: );
671: END Create_InterCompanyEvents;
777: END IF;
778:
779: -- Initialize message list if p_init_msg_list is set to TRUE
780: IF FND_API.to_Boolean(p_init_msg_list) THEN
781: FND_MSG_PUB.initialize;
782: END IF;
783:
784: -- Initialize API return status to success
785: x_return_status := FND_API.G_RET_STS_SUCCESS;
808: COMMIT WORK;
809: END IF;
810:
811: -- Standard Call to get message count and if count = 1, get message info
812: FND_MSG_PUB.Count_And_Get (
813: p_count => x_msg_count,
814: p_data => x_msg_data );
815:
816: IF l_pLog THEN
823: EXCEPTION
824: WHEN FND_API.g_exc_error THEN
825: ROLLBACK TO Get_InvTransactionInfo_GRP;
826: x_return_status := FND_API.g_ret_sts_error;
827: FND_MSG_PUB.count_and_get
828: ( p_count => x_msg_count
829: , p_data => x_msg_data
830: );
831:
831:
832: WHEN FND_API.g_exc_unexpected_error THEN
833: ROLLBACK TO Get_InvTransactionInfo_GRP;
834: x_return_status := FND_API.g_ret_sts_unexp_error ;
835: FND_MSG_PUB.count_and_get
836: ( p_count => x_msg_count
837: , p_data => x_msg_data
838: );
839:
847: ,'Get_InvTransactionInfo : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
848: END IF;
849: END IF;
850:
851: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
852: THEN
853: FND_MSG_PUB.add_exc_msg
854: ( G_PKG_NAME,
855: l_api_name || 'Statement -'||to_char(l_stmt_num)
849: END IF;
850:
851: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
852: THEN
853: FND_MSG_PUB.add_exc_msg
854: ( G_PKG_NAME,
855: l_api_name || 'Statement -'||to_char(l_stmt_num)
856: );
857: END IF;
854: ( G_PKG_NAME,
855: l_api_name || 'Statement -'||to_char(l_stmt_num)
856: );
857: END IF;
858: FND_MSG_PUB.count_and_get
859: ( p_count => x_msg_count
860: , p_data => x_msg_data
861: );
862: