45: END IF;
46:
47: -- Check p_init_msg_list
48: IF FND_API.to_Boolean( p_init_msg_list ) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: x_return_status := 'S';
53:
72: COMMIT WORK;
73: END IF;
74:
75: -- Standard call to get message count and if count is 1, get message info
76: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
77:
78: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
79: EXCEPTION
80: WHEN FND_API.G_EXC_ERROR THEN
79: EXCEPTION
80: WHEN FND_API.G_EXC_ERROR THEN
81: ROLLBACK TO Set_Unpaid_Reason_PVT;
82: x_return_status := FND_API.G_RET_STS_ERROR;
83: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
84:
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: ROLLBACK TO Set_Unpaid_Reason_PVT;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84:
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: ROLLBACK TO Set_Unpaid_Reason_PVT;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
89:
90: WHEN OTHERS THEN
91: ROLLBACK TO Set_Unpaid_Reason_PVT;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89:
90: WHEN OTHERS THEN
91: ROLLBACK TO Set_Unpaid_Reason_PVT;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
94: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
95: END IF;
96: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
97: END Set_Unpaid_Reason;
90: WHEN OTHERS THEN
91: ROLLBACK TO Set_Unpaid_Reason_PVT;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
94: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
95: END IF;
96: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
97: END Set_Unpaid_Reason;
98: BEGIN
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
94: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
95: END IF;
96: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
97: END Set_Unpaid_Reason;
98: BEGIN
99: PG_DEBUG := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
100: G_APPL_ID := FND_GLOBAL.Prog_Appl_Id;