100: END IF;
101:
102: -- Check p_init_msg_list
103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
104: FND_MSG_PUB.initialize;
105: END IF;
106:
107: x_return_status := 'S';
108:
116: fnd_message.set_name('IEX', 'IEX_API_ALL_INVALID_ARGUMENT');
117: fnd_message.set_token('API_NAME', l_api_name);
118: fnd_message.set_token('VALUE', p_unpaid_reason);
119: fnd_message.set_token('PARAMETER', 'p_unpaid_reason');
120: FND_MSG_PUB.Add;
121:
122: close check_code;
123: RAISE FND_API.G_EXC_ERROR;
124: return;
130: fnd_message.set_name('IEX', 'IEX_API_ALL_INVALID_ARGUMENT');
131: fnd_message.set_token('API_NAME', l_api_name);
132: fnd_message.set_token('VALUE', p_unpaid_reason);
133: fnd_message.set_token('PARAMETER', 'p_unpaid_reason');
134: FND_MSG_PUB.Add;
135:
136: RAISE FND_API.G_EXC_ERROR;
137: return;
138: end;
157: COMMIT WORK;
158: END IF;
159:
160: -- Standard call to get message count and if count is 1, get message info
161: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
162:
163: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
164: EXCEPTION
165: WHEN FND_API.G_EXC_ERROR THEN
164: EXCEPTION
165: WHEN FND_API.G_EXC_ERROR THEN
166: ROLLBACK TO Set_Unpaid_Reason_PUB;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
169:
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: ROLLBACK TO Set_Unpaid_Reason_PUB;
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169:
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: ROLLBACK TO Set_Unpaid_Reason_PUB;
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
174:
175: WHEN OTHERS THEN
176: ROLLBACK TO Set_Unpaid_Reason_PUB;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174:
175: WHEN OTHERS THEN
176: ROLLBACK TO Set_Unpaid_Reason_PUB;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
179: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
180: END IF;
181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
182: END Set_Unpaid_Reason;
175: WHEN OTHERS THEN
176: ROLLBACK TO Set_Unpaid_Reason_PUB;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
179: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
180: END IF;
181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
182: END Set_Unpaid_Reason;
183: BEGIN
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
179: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
180: END IF;
181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
182: END Set_Unpaid_Reason;
183: BEGIN
184: PG_DEBUG := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
185: G_APPL_ID := FND_GLOBAL.Prog_Appl_Id;