[Home] [Help]
PACKAGE BODY: APPS.IEX_BANKRUPTCIES_PVT
Source
1 PACKAGE BODY IEX_BANKRUPTCIES_PVT as
2 /* $Header: iexvbkrb.pls 120.0 2004/01/24 03:24:43 appldev noship $ */
3 -- Start of Comments
4 -- Package name : IEX_BANKRUPTCIES_PVT
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_BANKRUPTCIES_PVT';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvbkrb.pls';
13
14
15 -- Hint: Primary key needs to be returned.
16 --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
17 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18
19 PROCEDURE Create_bankruptcy(
20 P_Api_Version_Number IN NUMBER,
21 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
22 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
23 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24 P_bankruptcy_Rec IN bankruptcy_Rec_Type := G_MISS_bankruptcy_REC,
25 X_BANKRUPTCY_ID OUT NOCOPY NUMBER,
26 X_Return_Status OUT NOCOPY VARCHAR2,
27 X_Msg_Count OUT NOCOPY NUMBER,
28 X_Msg_Data OUT NOCOPY VARCHAR2
29 )
30
31 IS
32 l_api_name CONSTANT VARCHAR2(30) := 'Create_bankruptcy';
33 l_api_version_number CONSTANT NUMBER := 2.0;
34 l_return_status_full VARCHAR2(1);
35 v_rowid VARCHAR2(24);
36 v_bankruptcy_id iex_bankruptcies.bankruptcy_id%TYPE;
37 v_object_version_number iex_bankruptcies.object_version_number%TYPE;
38 v_active_flag iex_bankruptcies.active_flag%TYPE;
39
40
41 Cursor c2 is SELECT IEX_BANKRUPTCIES_S.nextval from dual;
42 BEGIN
43 -- IF PG_DEBUG < 10 THEN
44 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
45 IEX_DEBUG_PUB.LogMessage ('Create_bankruptcy: ' || '********* start of Procedure =>'||
46 'IEX_BANKRUPTCIES_PVT.create_BANKRUPTCY ******** ');
47 END IF;
48
49 -- Standard Start of API savepoint
50 SAVEPOINT CREATE_BANKRUPTCY_PVT;
51
52 -- Standard call to check for call compatibility.
53 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
54 p_api_version_number,
55 l_api_name,
56 G_PKG_NAME)
57 THEN
58 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59 END IF;
60
61
62 -- Initialize message list if p_init_msg_list is set to TRUE.
63 IF FND_API.to_Boolean( p_init_msg_list )
64 THEN
65 FND_MSG_PUB.initialize;
66 END IF;
67
68 -- Initialize API return status to SUCCESS
69 x_return_status := FND_API.G_RET_STS_SUCCESS;
70
71 --
72 -- API body
73 --
74 -- ******************************************************************
75 -- Validate Environment
76 -- ******************************************************************
77 IF FND_GLOBAL.User_Id IS NULL
78 THEN
79 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
80 THEN
81 FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
82 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
83 FND_MSG_PUB.ADD;
84 END IF;
85 RAISE FND_API.G_EXC_ERROR;
86 END IF;
87 -- IF PG_DEBUG < 10 THEN
88 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
89 IEX_DEBUG_PUB.LogMessage('Create_bankruptcy: ' || 'After Global user Check');
90 END IF;
91
92 --object version Number
93 v_object_version_number :=1;
94 --Active_flag
95 v_active_flag :='Y';
96 -- IF PG_DEBUG < 10 THEN
97 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
98 IEX_DEBUG_PUB.LogMessage('Create_bankruptcy: ' || 'Active Flag is '|| v_active_flag);
99 END IF;
100
101 -- get bankruptcy_id
102 OPEN C2;
103 FETCH C2 INTO v_bankruptcy_id;
104 CLOSE C2;
105 -- IF PG_DEBUG < 10 THEN
106 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
107 IEX_DEBUG_PUB.LogMessage('Create_bankruptcy: ' || 'After bankruptcy_id Check and bankruptcy_id is =>'||
108 v_bankruptcy_id);
109 END IF;
110
111
112 --check for party_id
113 IF (p_bankruptcy_rec.party_id IS NULL) OR
114 (p_bankruptcy_rec.party_id = FND_API.G_MISS_NUM) THEN
115 fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
116 fnd_message.set_token('API_NAME', l_api_name);
117 fnd_message.set_token('MISSING_PARAM', 'party_id');
118 fnd_msg_pub.add;
119 RAISE FND_API.G_EXC_ERROR;
120 END IF;
121 -- IF PG_DEBUG < 10 THEN
122 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
123 IEX_DEBUG_PUB.LogMessage('Create_bankruptcy: ' || 'After party_id Check ');
124 END IF;
125
126
127 -- Invoke table handler(IEX_BANKRUPTCIES_PKG.Insert_Row)
128 IEX_BANKRUPTCIES_PKG.Insert_Row(
129 x_rowid =>v_rowid,
130 p_BANKRUPTCY_ID => v_BANKRUPTCY_ID,
131 p_CAS_ID => p_bankruptcy_rec.CAS_ID,
132 p_DELINQUENCY_ID => p_bankruptcy_rec.DELINQUENCY_ID,
133 p_PARTY_ID => p_bankruptcy_rec.PARTY_ID,
134 p_ACTIVE_FLAG => v_ACTIVE_FLAG,
135 p_TRUSTEE_CONTACT_ID => p_bankruptcy_rec.TRUSTEE_CONTACT_ID,
136 p_COURT_ID => p_bankruptcy_rec.COURT_ID,
137 p_FIRM_CONTACT_ID => p_bankruptcy_rec.FIRM_CONTACT_ID,
138 p_COUNSEL_CONTACT_ID => p_bankruptcy_rec.COUNSEL_CONTACT_ID,
139 p_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER,
140 p_CHAPTER_CODE => p_bankruptcy_rec.CHAPTER_CODE,
141 p_ASSET_AMOUNT => p_bankruptcy_rec.ASSET_AMOUNT,
142 p_ASSET_CURRENCY_CODE => p_bankruptcy_rec.ASSET_CURRENCY_CODE,
143 p_PAYOFF_AMOUNT => p_bankruptcy_rec.PAYOFF_AMOUNT,
144 p_PAYOFF_CURRENCY_CODE => p_bankruptcy_rec.PAYOFF_CURRENCY_CODE,
145 p_BANKRUPTCY_FILE_DATE => p_bankruptcy_rec.BANKRUPTCY_FILE_DATE,
146 p_COURT_ORDER_DATE => p_bankruptcy_rec.COURT_ORDER_DATE,
147 p_FUNDING_DATE => p_bankruptcy_rec.FUNDING_DATE,
148 p_OBJECT_BAR_DATE => p_bankruptcy_rec.OBJECT_BAR_DATE,
149 p_REPOSSESSION_DATE => p_bankruptcy_rec.REPOSSESSION_DATE,
150 p_DISMISSAL_DATE => p_bankruptcy_rec.DISMISSAL_DATE,
151 p_DATE_341A => p_bankruptcy_rec.DATE_341A,
152 p_DISCHARGE_DATE => p_bankruptcy_rec.DISCHARGE_DATE,
153 p_WITHDRAW_DATE => p_bankruptcy_rec.WITHDRAW_DATE,
154 p_CLOSE_DATE => p_bankruptcy_rec.CLOSE_DATE,
155 p_PROCEDURE_CODE => p_bankruptcy_rec.PROCEDURE_CODE,
156 p_MOTION_CODE => p_bankruptcy_rec.MOTION_CODE,
157 p_CHECKLIST_CODE => p_bankruptcy_rec.CHECKLIST_CODE,
158 p_CEASE_COLLECTIONS_YN => p_bankruptcy_rec.CEASE_COLLECTIONS_YN,
159 p_TURN_OFF_INVOICING_YN => p_bankruptcy_rec.TURN_OFF_INVOICING_YN,
160 p_REQUEST_ID => p_bankruptcy_rec.REQUEST_ID,
161 p_PROGRAM_APPLICATION_ID => p_bankruptcy_rec.PROGRAM_APPLICATION_ID,
162 p_PROGRAM_ID => p_bankruptcy_rec.PROGRAM_ID,
163 p_PROGRAM_UPDATE_DATE => p_bankruptcy_rec.PROGRAM_UPDATE_DATE,
164 p_ATTRIBUTE_CATEGORY => p_bankruptcy_rec.ATTRIBUTE_CATEGORY,
165 p_ATTRIBUTE1 => p_bankruptcy_rec.ATTRIBUTE1,
166 p_ATTRIBUTE2 => p_bankruptcy_rec.ATTRIBUTE2,
167 p_ATTRIBUTE3 => p_bankruptcy_rec.ATTRIBUTE3,
168 p_ATTRIBUTE4 => p_bankruptcy_rec.ATTRIBUTE4,
169 p_ATTRIBUTE5 => p_bankruptcy_rec.ATTRIBUTE5,
170 p_ATTRIBUTE6 => p_bankruptcy_rec.ATTRIBUTE6,
171 p_ATTRIBUTE7 => p_bankruptcy_rec.ATTRIBUTE7,
172 p_ATTRIBUTE8 => p_bankruptcy_rec.ATTRIBUTE8,
173 p_ATTRIBUTE9 => p_bankruptcy_rec.ATTRIBUTE9,
174 p_ATTRIBUTE10 => p_bankruptcy_rec.ATTRIBUTE10,
175 p_ATTRIBUTE11 => p_bankruptcy_rec.ATTRIBUTE11,
176 p_ATTRIBUTE12 => p_bankruptcy_rec.ATTRIBUTE12,
177 p_ATTRIBUTE13 => p_bankruptcy_rec.ATTRIBUTE13,
178 p_ATTRIBUTE14 => p_bankruptcy_rec.ATTRIBUTE14,
179 p_ATTRIBUTE15 => p_bankruptcy_rec.ATTRIBUTE15,
180 p_CREATED_BY => FND_GLOBAL.USER_ID,
181 p_CREATION_DATE => SYSDATE,
182 p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
183 p_LAST_UPDATE_DATE => SYSDATE,
184 p_LAST_UPDATE_LOGIN => p_bankruptcy_rec.LAST_UPDATE_LOGIN
185 ,p_CREDIT_HOLD_REQUEST_FLAG => p_bankruptcy_rec.CREDIT_HOLD_REQUEST_FLAG
186 ,p_CREDIT_HOLD_APPROVED_FLAG => p_bankruptcy_rec.CREDIT_HOLD_APPROVED_FLAG
187 ,p_SERVICE_HOLD_REQUEST_FLAG => p_bankruptcy_rec.SERVICE_HOLD_REQUEST_FLAG
188 ,p_SERVICE_HOLD_APPROVED_FLAG => p_bankruptcy_rec.SERVICE_HOLD_APPROVED_FLAG
189 ,p_DISPOSITION_CODE => p_bankruptcy_rec.DISPOSITION_CODE
190 ,p_TURN_OFF_INVOICE_YN => p_bankruptcy_rec.TURN_OFF_INVOICE_YN
191 ,p_NOTICE_ASSIGNMENT_YN => p_bankruptcy_rec.NOTICE_ASSIGNMENT_YN
192 ,p_FILE_PROOF_CLAIM_YN => p_bankruptcy_rec.FILE_PROOF_CLAIM_YN
193 ,p_REQUEST_REPURCHASE_YN => p_bankruptcy_rec.REQUEST_REPURCHASE_YN
194 ,p_FEE_PAID_DATE => p_bankruptcy_rec.FEE_PAID_DATE
195 ,p_REAFFIRMATION_DATE => p_bankruptcy_rec.REAFFIRMATION_DATE
196 ,p_RELIEF_STAY_DATE => p_bankruptcy_rec.RELIEF_STAY_DATE
197 ,p_FILE_CONTACT_ID => p_bankruptcy_rec.FILE_CONTACT_ID
198 ,p_CASE_NUMBER => p_bankruptcy_rec.CASE_NUMBER
199 );
200
201 -- Hint: Primary key should be returned.
202 x_BANKRUPTCY_ID := v_BANKRUPTCY_ID;
203 -- IF PG_DEBUG < 10 THEN
204 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
205 IEX_DEBUG_PUB.LogMessage('Create_bankruptcy: ' || 'After Calling IEX_BANKRUPTCIES_PKG.'||
206 'Insert_Row and BANKRUPTCY_ID is => '||x_BANKRUPTCY_ID);
207 END IF;
208 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
209 RAISE FND_API.G_EXC_ERROR;
210 END IF;
211
212 --
213 -- End of API body
214 --
215
216 -- Standard check for p_commit
217 IF FND_API.to_Boolean( p_commit )
218 THEN
219 COMMIT WORK;
220 END IF;
221
222
223
224 -- Standard call to get message count and if count is 1, get message info.
225 FND_MSG_PUB.Count_And_Get
226 ( p_count => x_msg_count,
227 p_data => x_msg_data
228 );
229 -- IF PG_DEBUG < 10 THEN
230 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
231 IEX_DEBUG_PUB.LogMessage ('Create_bankruptcy: ' || '********* end of Procedure =>'||
232 'IEX_BANKRUPTCIES_PVT.create_BANKRUPTCY ******** ');
233 END IF;
234 EXCEPTION
235 WHEN FND_API.G_EXC_ERROR THEN
236 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
237 P_API_NAME => L_API_NAME
238 ,P_PKG_NAME => G_PKG_NAME
239 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
240 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
241 ,X_MSG_COUNT => X_MSG_COUNT
242 ,X_MSG_DATA => X_MSG_DATA
243 ,X_RETURN_STATUS => X_RETURN_STATUS);
244
245 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
246 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
247 P_API_NAME => L_API_NAME
248 ,P_PKG_NAME => G_PKG_NAME
249 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
250 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
251 ,X_MSG_COUNT => X_MSG_COUNT
252 ,X_MSG_DATA => X_MSG_DATA
253 ,X_RETURN_STATUS => X_RETURN_STATUS);
254
255 WHEN OTHERS THEN
256 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
257 P_API_NAME => L_API_NAME
258 ,P_PKG_NAME => G_PKG_NAME
259 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
260 ,P_SQLCODE => SQLCODE
261 ,P_SQLERRM => SQLERRM
262 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
263 ,X_MSG_COUNT => X_MSG_COUNT
264 ,X_MSG_DATA => X_MSG_DATA
265 ,X_RETURN_STATUS => X_RETURN_STATUS);
266 End Create_bankruptcy;
267
268
269
270 PROCEDURE Update_bankruptcy(
271 P_Api_Version_Number IN NUMBER,
272 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
273 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
274 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
275 P_bankruptcy_Rec IN bankruptcy_Rec_Type,
276 X_Return_Status OUT NOCOPY VARCHAR2,
277 X_Msg_Count OUT NOCOPY NUMBER,
278 X_Msg_Data OUT NOCOPY VARCHAR2,
279 xo_object_version_number OUT NOCOPY NUMBER
280 ) IS
281 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_BANKRUPTCY';
282 l_api_version_number CONSTANT NUMBER := 2.0;
283 l_object_version_number iex_BANKRUPTCIES.object_version_number%TYPE
284 :=P_bankruptcy_Rec.object_version_number;
285
286 BEGIN
287 -- IF PG_DEBUG < 10 THEN
288 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
289 IEX_DEBUG_PUB.LogMessage ('Update_bankruptcy: ' || '********* start of Procedure =>'||
290 'IEX_BANKRUPTCIES_PVT.update_BANKRUPTCY ******** ');
291 END IF;
292 -- Standard Start of API savepoint
293 SAVEPOINT UPDATE_BANKRUPTCY_PVT;
294
295 -- Standard call to check for call compatibility.
296 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
297 p_api_version_number,
298 l_api_name,
299 G_PKG_NAME)
300 THEN
301 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302 END IF;
303
304
305 -- Initialize message list if p_init_msg_list is set to TRUE.
306 IF FND_API.to_Boolean( p_init_msg_list )
307 THEN
308 FND_MSG_PUB.initialize;
309 END IF;
310
311
312
313 -- Initialize API return status to SUCCESS
314 x_return_status := FND_API.G_RET_STS_SUCCESS;
315
316 --
317 -- Api body
318 --
319
320 -- Invoke table handler(IEX_CASES_ALL_B_PKG.Update_Row)
321 -- call locking table handler
322 IEX_BANKRUPTCIES_PKG.lock_row (
323 P_bankruptcy_Rec.bankruptcy_id,
324 l_object_version_number
325 );
326
327
328 -- Invoke table handler(IEX_BANKRUPTCIES_PKG.Update_Row)
329 IEX_BANKRUPTCIES_PKG.Update_Row(
330 p_BANKRUPTCY_ID => p_bankruptcy_rec.BANKRUPTCY_ID,
331 p_CAS_ID => p_bankruptcy_rec.CAS_ID,
332 p_DELINQUENCY_ID => p_bankruptcy_rec.DELINQUENCY_ID,
333 p_PARTY_ID => p_bankruptcy_rec.PARTY_ID,
334 p_ACTIVE_FLAG => p_bankruptcy_rec.ACTIVE_FLAG,
335 p_TRUSTEE_CONTACT_ID => p_bankruptcy_rec.TRUSTEE_CONTACT_ID,
336 p_COURT_ID => p_bankruptcy_rec.COURT_ID,
337 p_FIRM_CONTACT_ID => p_bankruptcy_rec.FIRM_CONTACT_ID,
338 p_COUNSEL_CONTACT_ID => p_bankruptcy_rec.COUNSEL_CONTACT_ID,
339 p_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER + 1,
340 p_CHAPTER_CODE => p_bankruptcy_rec.CHAPTER_CODE,
341 p_ASSET_AMOUNT => p_bankruptcy_rec.ASSET_AMOUNT,
342 p_ASSET_CURRENCY_CODE => p_bankruptcy_rec.ASSET_CURRENCY_CODE,
343 p_PAYOFF_AMOUNT => p_bankruptcy_rec.PAYOFF_AMOUNT,
344 p_PAYOFF_CURRENCY_CODE => p_bankruptcy_rec.PAYOFF_CURRENCY_CODE,
345 p_BANKRUPTCY_FILE_DATE => p_bankruptcy_rec.BANKRUPTCY_FILE_DATE,
346 p_COURT_ORDER_DATE => p_bankruptcy_rec.COURT_ORDER_DATE,
347 p_FUNDING_DATE => p_bankruptcy_rec.FUNDING_DATE,
348 p_OBJECT_BAR_DATE => p_bankruptcy_rec.OBJECT_BAR_DATE,
349 p_REPOSSESSION_DATE => p_bankruptcy_rec.REPOSSESSION_DATE,
350 p_DISMISSAL_DATE => p_bankruptcy_rec.DISMISSAL_DATE,
351 p_DATE_341A => p_bankruptcy_rec.DATE_341A,
352 p_DISCHARGE_DATE => p_bankruptcy_rec.DISCHARGE_DATE,
353 p_WITHDRAW_DATE => p_bankruptcy_rec.WITHDRAW_DATE,
354 p_CLOSE_DATE => p_bankruptcy_rec.CLOSE_DATE,
355 p_PROCEDURE_CODE => p_bankruptcy_rec.PROCEDURE_CODE,
356 p_MOTION_CODE => p_bankruptcy_rec.MOTION_CODE,
357 p_CHECKLIST_CODE => p_bankruptcy_rec.CHECKLIST_CODE,
358 p_CEASE_COLLECTIONS_YN => p_bankruptcy_rec.CEASE_COLLECTIONS_YN,
359 p_TURN_OFF_INVOICING_YN => p_bankruptcy_rec.TURN_OFF_INVOICING_YN,
360 p_REQUEST_ID => p_bankruptcy_rec.REQUEST_ID,
361 p_PROGRAM_APPLICATION_ID => p_bankruptcy_rec.PROGRAM_APPLICATION_ID,
362 p_PROGRAM_ID => p_bankruptcy_rec.PROGRAM_ID,
363 p_PROGRAM_UPDATE_DATE => p_bankruptcy_rec.PROGRAM_UPDATE_DATE,
364 p_ATTRIBUTE_CATEGORY => p_bankruptcy_rec.ATTRIBUTE_CATEGORY,
365 p_ATTRIBUTE1 => p_bankruptcy_rec.ATTRIBUTE1,
366 p_ATTRIBUTE2 => p_bankruptcy_rec.ATTRIBUTE2,
367 p_ATTRIBUTE3 => p_bankruptcy_rec.ATTRIBUTE3,
368 p_ATTRIBUTE4 => p_bankruptcy_rec.ATTRIBUTE4,
369 p_ATTRIBUTE5 => p_bankruptcy_rec.ATTRIBUTE5,
370 p_ATTRIBUTE6 => p_bankruptcy_rec.ATTRIBUTE6,
371 p_ATTRIBUTE7 => p_bankruptcy_rec.ATTRIBUTE7,
372 p_ATTRIBUTE8 => p_bankruptcy_rec.ATTRIBUTE8,
373 p_ATTRIBUTE9 => p_bankruptcy_rec.ATTRIBUTE9,
374 p_ATTRIBUTE10 => p_bankruptcy_rec.ATTRIBUTE10,
375 p_ATTRIBUTE11 => p_bankruptcy_rec.ATTRIBUTE11,
376 p_ATTRIBUTE12 => p_bankruptcy_rec.ATTRIBUTE12,
377 p_ATTRIBUTE13 => p_bankruptcy_rec.ATTRIBUTE13,
378 p_ATTRIBUTE14 => p_bankruptcy_rec.ATTRIBUTE14,
379 p_ATTRIBUTE15 => p_bankruptcy_rec.ATTRIBUTE15,
380 p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
381 p_LAST_UPDATE_DATE => SYSDATE,
382 p_LAST_UPDATE_LOGIN => p_bankruptcy_rec.LAST_UPDATE_LOGIN
383 ,p_CREDIT_HOLD_REQUEST_FLAG => p_bankruptcy_rec.CREDIT_HOLD_REQUEST_FLAG
384 ,p_CREDIT_HOLD_APPROVED_FLAG => p_bankruptcy_rec.CREDIT_HOLD_APPROVED_FLAG
385 ,p_SERVICE_HOLD_REQUEST_FLAG => p_bankruptcy_rec.SERVICE_HOLD_REQUEST_FLAG
386 ,p_SERVICE_HOLD_APPROVED_FLAG => p_bankruptcy_rec.SERVICE_HOLD_APPROVED_FLAG
387 ,p_DISPOSITION_CODE => p_bankruptcy_rec.DISPOSITION_CODE
388 ,p_TURN_OFF_INVOICE_YN => p_bankruptcy_rec.TURN_OFF_INVOICE_YN
389 ,p_NOTICE_ASSIGNMENT_YN => p_bankruptcy_rec.NOTICE_ASSIGNMENT_YN
390 ,p_FILE_PROOF_CLAIM_YN => p_bankruptcy_rec.FILE_PROOF_CLAIM_YN
391 ,p_REQUEST_REPURCHASE_YN => p_bankruptcy_rec.REQUEST_REPURCHASE_YN
392 ,p_FEE_PAID_DATE => p_bankruptcy_rec.FEE_PAID_DATE
393 ,p_REAFFIRMATION_DATE => p_bankruptcy_rec.REAFFIRMATION_DATE
394 ,p_RELIEF_STAY_DATE => p_bankruptcy_rec.RELIEF_STAY_DATE
395 ,p_FILE_CONTACT_ID => p_bankruptcy_rec.FILE_CONTACT_ID
396 ,p_CASE_NUMBER => p_bankruptcy_rec.CASE_NUMBER
397 );
398
399 --Return Version number
400 xo_object_version_number := l_object_version_number + 1;
401
402 --
403 -- End of API body.
404 --
405
406 -- Standard check for p_commit
407 IF FND_API.to_Boolean( p_commit )
408 THEN
409 COMMIT WORK;
410 END IF;
411 -- Standard call to get message count and if count is 1, get message info.
412 FND_MSG_PUB.Count_And_Get
413 ( p_count => x_msg_count,
414 p_data => x_msg_data
415 );
416
417 -- IF PG_DEBUG < 10 THEN
418 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
419 IEX_DEBUG_PUB.LogMessage ('Update_bankruptcy: ' || '********* end of Procedure =>'||
420 'IEX_BANKRUPTCIES_PVT.update_bankruptcy ******** ');
421 END IF;
422
423 EXCEPTION
424 WHEN FND_API.G_EXC_ERROR THEN
425 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
426 P_API_NAME => L_API_NAME
427 ,P_PKG_NAME => G_PKG_NAME
428 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
429 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
430 ,X_MSG_COUNT => X_MSG_COUNT
431 ,X_MSG_DATA => X_MSG_DATA
432 ,X_RETURN_STATUS => X_RETURN_STATUS);
433
434 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
435 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
436 P_API_NAME => L_API_NAME
437 ,P_PKG_NAME => G_PKG_NAME
438 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
439 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
440 ,X_MSG_COUNT => X_MSG_COUNT
441 ,X_MSG_DATA => X_MSG_DATA
442 ,X_RETURN_STATUS => X_RETURN_STATUS);
443
444 WHEN OTHERS THEN
445 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
446 P_API_NAME => L_API_NAME
447 ,P_PKG_NAME => G_PKG_NAME
448 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
449 ,P_SQLCODE => SQLCODE
450 ,P_SQLERRM => SQLERRM
451 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
452 ,X_MSG_COUNT => X_MSG_COUNT
453 ,X_MSG_DATA => X_MSG_DATA
454 ,X_RETURN_STATUS => X_RETURN_STATUS);
455 End Update_bankruptcy;
456
457
458
459 PROCEDURE Delete_bankruptcy(
460 P_Api_Version_Number IN NUMBER,
461 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
462 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
463 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
464 P_bankruptcy_id IN NUMBER,
465 X_Return_Status OUT NOCOPY VARCHAR2,
466 X_Msg_Count OUT NOCOPY NUMBER,
467 X_Msg_Data OUT NOCOPY VARCHAR2
468 )
469
470 IS
471 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_BANKRUPTCY';
472 l_api_version_number CONSTANT NUMBER := 2.0;
473
474 BEGIN
475
476 -- IF PG_DEBUG < 10 THEN
477 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
478 IEX_DEBUG_PUB.LogMessage ('Delete_bankruptcy: ' || '********* start of Procedure =>'||
479 'IEX_BANKRUPTCIES_PVT.delete_bankruptcy ******** ');
480 END IF;
481
482 -- Standard Start of API savepoint
483 SAVEPOINT DELETE_BANKRUPTCY_PVT;
484
485 -- Standard call to check for call compatibility.
486 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
487 p_api_version_number,
488 l_api_name,
489 G_PKG_NAME)
490 THEN
491 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492 END IF;
493
494
495 -- Initialize message list if p_init_msg_list is set to TRUE.
496 IF FND_API.to_Boolean( p_init_msg_list )
497 THEN
498 FND_MSG_PUB.initialize;
499 END IF;
500
501 -- Initialize API return status to SUCCESS
502 x_return_status := FND_API.G_RET_STS_SUCCESS;
503
504 --
505 -- Api body
506 --
507
508 -- Invoke table handler(IEX_BANKRUPTCIES_PKG.Delete_Row)
509 IEX_BANKRUPTCIES_PKG.Delete_Row(
510 p_BANKRUPTCY_ID => p_BANKRUPTCY_ID);
511 --
512 -- End of API body
513 --
514
515 -- Standard check for p_commit
516 IF FND_API.to_Boolean( p_commit )
517 THEN
518 COMMIT WORK;
519 END IF;
520
521 -- Standard call to get message count and if count is 1, get message info.
522 FND_MSG_PUB.Count_And_Get
523 ( p_count => x_msg_count,
524 p_data => x_msg_data
525 );
526 -- IF PG_DEBUG < 10 THEN
527 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
528 IEX_DEBUG_PUB.LogMessage ('Delete_bankruptcy: ' || '********* end of Procedure =>'||
529 'IEX_BANKRUPTCIES_PVT.delete_bankruptcy ******** ');
530 END IF;
531
532 EXCEPTION
533 WHEN FND_API.G_EXC_ERROR THEN
534 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
535 P_API_NAME => L_API_NAME
536 ,P_PKG_NAME => G_PKG_NAME
537 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
538 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
539 ,X_MSG_COUNT => X_MSG_COUNT
540 ,X_MSG_DATA => X_MSG_DATA
541 ,X_RETURN_STATUS => X_RETURN_STATUS);
542
543 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
545 P_API_NAME => L_API_NAME
546 ,P_PKG_NAME => G_PKG_NAME
547 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
548 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
549 ,X_MSG_COUNT => X_MSG_COUNT
550 ,X_MSG_DATA => X_MSG_DATA
551 ,X_RETURN_STATUS => X_RETURN_STATUS);
552
553 WHEN OTHERS THEN
554 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
555 P_API_NAME => L_API_NAME
556 ,P_PKG_NAME => G_PKG_NAME
557 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
558 ,P_SQLCODE => SQLCODE
559 ,P_SQLERRM => SQLERRM
560 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
561 ,X_MSG_COUNT => X_MSG_COUNT
562 ,X_MSG_DATA => X_MSG_DATA
563 ,X_RETURN_STATUS => X_RETURN_STATUS);
564 End Delete_bankruptcy;
565
566 End IEX_BANKRUPTCIES_PVT;