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:
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:
99: PROCEDURE SET_STAGED_DUNNING_LEVEL
100: (p_api_version IN NUMBER := 1.0,
127: END IF;
128:
129: -- Check p_init_msg_list
130: IF FND_API.to_Boolean( p_init_msg_list ) THEN
131: FND_MSG_PUB.initialize;
132: END IF;
133:
134: x_return_status := 'S';
135:
146: COMMIT WORK;
147: END IF;
148:
149: -- Standard call to get message count and if count is 1, get message info
150: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
151:
152: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
155: ROLLBACK TO SET_STAGED_DUNN_PVT;
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
158:
159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: ROLLBACK TO SET_STAGED_DUNN_PVT;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158:
159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: ROLLBACK TO SET_STAGED_DUNN_PVT;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
163:
164: WHEN OTHERS THEN
165: ROLLBACK TO SET_STAGED_DUNN_PVT;
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163:
164: WHEN OTHERS THEN
165: ROLLBACK TO SET_STAGED_DUNN_PVT;
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
168: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
169: END IF;
170: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
171:
164: WHEN OTHERS THEN
165: ROLLBACK TO SET_STAGED_DUNN_PVT;
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
168: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
169: END IF;
170: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
171:
172: END SET_STAGED_DUNNING_LEVEL;
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
168: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
169: END IF;
170: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
171:
172: END SET_STAGED_DUNNING_LEVEL;
173:
174: BEGIN