36:
37: SAVEPOINT Set_Unpaid_Reason_PVT;
38:
39: -- Standard call to check for call compatibility.
40: IF NOT FND_API.Compatible_API_Call (l_api_version,
41: p_api_version,
42: l_api_name,
43: G_PKG_NAME) THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40: IF NOT FND_API.Compatible_API_Call (l_api_version,
41: p_api_version,
42: l_api_name,
43: G_PKG_NAME) THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: END IF;
46:
47: -- Check p_init_msg_list
48: IF FND_API.to_Boolean( p_init_msg_list ) THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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';
67: x_rows_processed := DBMS_SQL.EXECUTE(l_cursor_id);
68: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
69:
70: -- Standard check of p_commit
71: IF FND_API.To_Boolean(p_commit) THEN
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
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:
78: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
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;
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;
88: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
89:
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;
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;
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;
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);
118:
119: SAVEPOINT SET_STAGED_DUNN_PVT;
120:
121: -- Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call (l_api_version,
123: p_api_version,
124: l_api_name,
125: G_PKG_NAME) THEN
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: IF NOT FND_API.Compatible_API_Call (l_api_version,
123: p_api_version,
124: l_api_name,
125: G_PKG_NAME) THEN
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127: END IF;
128:
129: -- Check p_init_msg_list
130: IF FND_API.to_Boolean( p_init_msg_list ) THEN
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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';
141: ,dunning_level_override_date = SYSDATE
142: WHERE delinquency_id = p_delinquency_id;
143:
144: -- Standard check of p_commit
145: IF FND_API.To_Boolean(p_commit) THEN
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
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:
152: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
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;
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;
162: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
163:
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;
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;
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;
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);