[Home] [Help]
PACKAGE BODY: APPS.IGC_CC_HEADER_HISTORY_PKG
Source
1 PACKAGE BODY IGC_CC_HEADER_HISTORY_PKG as
2 /* $Header: IGCCHDHB.pls 120.3.12000000.3 2007/10/19 07:07:39 smannava ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_HEADER_HISTORY_PKG';
5 g_debug_flag VARCHAR2(1) := 'N' ;
6
7
8 /* ================================================================================
9 PROCEDURE Insert_Row Overloaded Procedure for CC_REF_NUM addition
10 ===============================================================================*/
11
12 PROCEDURE Insert_Row(
13 p_api_version IN NUMBER,
14 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15 p_commit IN VARCHAR2 := FND_API.G_FALSE,
16 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17 X_return_status OUT NOCOPY VARCHAR2,
18 X_msg_count OUT NOCOPY NUMBER,
19 X_msg_data OUT NOCOPY VARCHAR2,
20 p_Rowid IN OUT NOCOPY VARCHAR2,
21 p_CC_Header_Id IGC_CC_HEADER_HISTORY.CC_Header_Id%TYPE,
22 p_Org_id IGC_CC_HEADER_HISTORY.Org_id%TYPE,
23 p_CC_Type IGC_CC_HEADER_HISTORY.CC_Type%TYPE,
24 p_CC_Num IGC_CC_HEADER_HISTORY.CC_Num%TYPE,
25 p_CC_Ref_Num IGC_CC_HEADER_HISTORY.CC_Ref_Num%TYPE,
26 p_CC_Version_num IGC_CC_HEADER_HISTORY.CC_Version_Num%TYPE,
27 p_CC_Version_Action IGC_CC_HEADER_HISTORY.CC_Version_Action%TYPE,
28 p_CC_State IGC_CC_HEADER_HISTORY.CC_State%TYPE,
29 p_Parent_Header_Id IGC_CC_HEADER_HISTORY.Parent_Header_Id%TYPE,
30 p_CC_ctrl_status IGC_CC_HEADER_HISTORY.CC_ctrl_status%TYPE,
31 p_CC_Encmbrnc_Status IGC_CC_HEADER_HISTORY.CC_Encmbrnc_Status%TYPE,
32 p_CC_Apprvl_Status IGC_CC_HEADER_HISTORY.CC_Apprvl_Status%TYPE,
33 p_Vendor_Id IGC_CC_HEADER_HISTORY.Vendor_Id%TYPE,
34 p_Vendor_Site_Id IGC_CC_HEADER_HISTORY.Vendor_Site_Id%TYPE,
35 p_Vendor_Contact_Id IGC_CC_HEADER_HISTORY.Vendor_Contact_Id%TYPE,
36 p_Term_Id IGC_CC_HEADER_HISTORY.Term_Id%TYPE,
37 p_Location_Id IGC_CC_HEADER_HISTORY.Location_Id%TYPE,
38 p_Set_Of_Books_Id IGC_CC_HEADER_HISTORY.Set_Of_Books_Id%TYPE,
39 p_CC_Acct_Date IGC_CC_HEADER_HISTORY.CC_Acct_Date%TYPE,
40 p_CC_Desc IGC_CC_HEADER_HISTORY.CC_Desc%TYPE,
41 p_CC_Start_Date IGC_CC_HEADER_HISTORY.CC_Start_Date%TYPE,
42 p_CC_End_Date IGC_CC_HEADER_HISTORY.CC_End_Date%TYPE,
43 p_CC_Owner_User_Id IGC_CC_HEADER_HISTORY.CC_Owner_User_Id%TYPE,
44 p_CC_Preparer_User_Id IGC_CC_HEADER_HISTORY.CC_Preparer_User_Id%TYPE,
45 p_Currency_Code IGC_CC_HEADER_HISTORY.Currency_Code%TYPE,
46 p_Conversion_Type IGC_CC_HEADER_HISTORY.Conversion_Type%TYPE,
47 p_Conversion_Date IGC_CC_HEADER_HISTORY.Conversion_Date%TYPE,
48 p_Conversion_Rate IGC_CC_HEADER_HISTORY.Conversion_Rate%TYPE,
49 p_Last_Update_Date IGC_CC_HEADER_HISTORY.Last_Update_Date%TYPE,
50 p_Last_Updated_By IGC_CC_HEADER_HISTORY.Last_Updated_By%TYPE,
51 p_Last_Update_Login IGC_CC_HEADER_HISTORY.Last_Update_Login%TYPE,
52 p_Created_By IGC_CC_HEADER_HISTORY.Created_By%TYPE,
53 p_Creation_Date IGC_CC_HEADER_HISTORY.Creation_Date%TYPE,
54 p_Wf_Item_Type IGC_CC_HEADER_HISTORY.Wf_Item_Type%TYPE,
55 p_Wf_Item_Key IGC_CC_HEADER_HISTORY.Wf_Item_Key%TYPE,
56 p_CC_Current_User_Id IGC_CC_HEADERS.CC_Current_User_Id%TYPE,
57 p_Attribute1 IGC_CC_HEADER_HISTORY.Attribute1%TYPE,
58 p_Attribute2 IGC_CC_HEADER_HISTORY.Attribute2%TYPE,
59 p_Attribute3 IGC_CC_HEADER_HISTORY.Attribute3%TYPE,
60 p_Attribute4 IGC_CC_HEADER_HISTORY.Attribute4%TYPE,
61 p_Attribute5 IGC_CC_HEADER_HISTORY.Attribute5%TYPE,
62 p_Attribute6 IGC_CC_HEADER_HISTORY.Attribute6%TYPE,
63 p_Attribute7 IGC_CC_HEADER_HISTORY.Attribute7%TYPE,
64 p_Attribute8 IGC_CC_HEADER_HISTORY.Attribute8%TYPE,
65 p_Attribute9 IGC_CC_HEADER_HISTORY.Attribute9%TYPE,
66 p_Attribute10 IGC_CC_HEADER_HISTORY.Attribute10%TYPE,
67 p_Attribute11 IGC_CC_HEADER_HISTORY.Attribute11%TYPE,
68 p_Attribute12 IGC_CC_HEADER_HISTORY.Attribute12%TYPE,
69 p_Attribute13 IGC_CC_HEADER_HISTORY.Attribute13%TYPE,
70 p_Attribute14 IGC_CC_HEADER_HISTORY.Attribute14%TYPE,
71 p_Attribute15 IGC_CC_HEADER_HISTORY.Attribute15%TYPe,
72 p_Context IGC_CC_HEADER_HISTORY.Context%TYPE,
73 p_CC_Guarantee_Flag IGC_CC_HEADER_HISTORY.CC_Guarantee_Flag%TYPE,
74 G_FLAG IN OUT NOCOPY VARCHAR2
75 ) IS
76
77 l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
78 l_api_version CONSTANT NUMBER := 1.0;
79 l_Application_Id NUMBER;
80 l_MRC_Enabled VARCHAR2(1);
81 l_Conversion_Date DATE;
82 l_Set_Of_Books_Id NUMBER;
83 l_Org_Id NUMBER(15);
84 l_return_status VARCHAR2(1);
85
86 CURSOR C_header_hst_rowid IS
87 SELECT Rowid
88 FROM IGC_CC_HEADER_HISTORY
89 WHERE CC_Header_id = p_CC_Header_id
90 AND CC_Version_Num = P_CC_Version_Num ;
91
92 CURSOR c_igc_app_id IS
93 SELECT Application_Id
94 FROM FND_APPLICATION
95 WHERE Application_Short_Name = 'IGC';
96
97 BEGIN
98
99 SAVEPOINT Insert_Row_Pvt ;
100
101 -- -----------------------------------------------------------------
102 -- Ensure that the version requested to be used is correct for
103 -- this API.
104 -- -----------------------------------------------------------------
105 IF NOT FND_API.Compatible_API_Call (l_api_version,
106 p_api_version,
107 l_api_name,
108 G_PKG_NAME )
109 THEN
110 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
111 END IF;
112
113
114 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
115 FND_MSG_PUB.initialize ;
116 END IF;
117
118 X_return_status := FND_API.G_RET_STS_SUCCESS ;
119
120 -- -----------------------------------------------------------------
121 -- Insert the CC Header History record as requested.
122 -- -----------------------------------------------------------------
123 INSERT
124 INTO IGC_CC_HEADER_HISTORY
125 (CC_Header_Id,
126 Parent_Header_Id,
127 Org_Id,
128 CC_Type,
129 CC_Num,
130 CC_Ref_Num,
131 CC_Version_Num,
132 CC_Version_Action,
133 CC_State,
134 CC_Ctrl_Status,
135 CC_Encmbrnc_Status,
136 CC_Apprvl_Status,
137 Vendor_Id,
138 Vendor_Site_Id,
139 Vendor_Contact_Id,
140 Term_Id,
141 Location_Id,
142 Set_Of_Books_Id,
143 CC_Acct_Date,
144 CC_Desc,
145 CC_Start_Date,
146 CC_End_Date,
147 CC_Owner_User_Id,
148 CC_Preparer_User_Id,
149 Currency_Code,
150 Conversion_Type,
151 Conversion_Date,
152 Conversion_Rate,
153 Last_Update_Date,
154 Last_Updated_By,
155 Last_Update_Login,
156 Created_By,
157 Creation_Date,
158 Wf_Item_Type,
159 Wf_Item_Key,
160 CC_Current_User_Id,
161 Attribute1,
162 Attribute2,
163 Attribute3,
164 Attribute4,
165 Attribute5,
166 Attribute6,
167 Attribute7,
168 Attribute8,
169 Attribute9,
170 Attribute10,
171 Attribute11,
172 Attribute12,
173 Attribute13,
174 Attribute14,
175 Attribute15,
176 Context,
177 CC_Guarantee_Flag
178 )
179 VALUES
180 (p_CC_Header_Id,
181 p_Parent_Header_Id,
182 p_Org_id,
183 p_CC_Type,
184 p_CC_Num,
185 p_CC_Ref_Num,
186 p_CC_Version_num,
187 p_CC_Version_Action,
188 p_CC_State,
189 p_CC_ctrl_status,
190 p_CC_Encmbrnc_Status,
191 p_CC_Apprvl_Status,
192 p_Vendor_Id,
193 p_Vendor_Site_Id,
194 p_Vendor_Contact_Id,
195 p_Term_Id,
196 p_Location_Id,
197 p_Set_Of_Books_Id,
198 p_CC_Acct_Date,
199 p_CC_Desc,
200 p_CC_Start_Date,
201 p_CC_End_Date,
202 p_CC_Owner_User_Id,
203 p_CC_Preparer_User_Id,
204 p_Currency_Code,
205 p_Conversion_Type,
206 p_Conversion_Date,
207 p_Conversion_Rate,
208 p_Last_Update_Date,
209 p_Last_Updated_By,
210 p_Last_Update_Login,
211 p_Created_By,
212 p_Creation_Date,
213 p_Wf_Item_Type,
214 p_Wf_Item_Key,
215 p_CC_Current_User_Id,
216 p_Attribute1,
217 p_Attribute2,
218 p_Attribute3,
219 p_Attribute4,
220 p_Attribute5,
221 p_Attribute6,
222 p_Attribute7,
223 p_Attribute8,
224 p_Attribute9,
225 p_Attribute10,
226 p_Attribute11,
227 p_Attribute12,
228 p_Attribute13,
229 p_Attribute14,
230 p_Attribute15,
231 p_Context,
232 p_CC_Guarantee_Flag
233 );
234
235 -- -------------------------------------------------------------------
236 -- Obtain the ROWID of the record that was just inserted to return
237 -- to the caller.
238 -- -------------------------------------------------------------------
239 OPEN C_header_hst_rowid ;
240 FETCH C_header_hst_rowid
241 INTO p_Rowid;
242
243 -- -------------------------------------------------------------------
244 -- If no ROWID can be obtained then exit the procedure with a failure
245 -- -------------------------------------------------------------------
246 IF (C_header_hst_rowid %NOTFOUND) THEN
247 RAISE FND_API.G_EXC_ERROR ;
248 END IF;
249
250 CLOSE C_header_hst_rowid ;
251
252 -- ------------------------------------------------------------------
253 -- Obtain the application ID for IGC to be used for the MRC check
254 -- being enabled for this set of books.
255 -- ------------------------------------------------------------------
256 OPEN c_igc_app_id;
257 FETCH c_igc_app_id
258 INTO l_Application_Id;
259
263 IF (c_igc_app_id%NOTFOUND) THEN
260 -- ------------------------------------------------------------------
261 -- If the application ID can not be attained then exit the procedure
262 -- ------------------------------------------------------------------
264 RAISE FND_API.G_EXC_ERROR;
265 END IF;
266
267 CLOSE c_igc_app_id;
268
269 -- ------------------------------------------------------------------
270 -- If the conversion date is NULL then fill in the value with the
271 -- current system date.
272 -- ------------------------------------------------------------------
273
274 gl_mc_info.mrc_enabled (p_Set_Of_Books_Id,
275 101, /*--l_Application_Id, commented for MRC uptake*/
276 p_Org_Id,
277 Null,
278 l_MRC_Enabled);
279
280 -- ------------------------------------------------------------------
281 -- If MRC is enabled for this set of books being used then call the
282 -- handler to insert all reporting set of books into the MRC
283 -- table for the account line inserted.
284 -- ------------------------------------------------------------------
285 IF (l_MRC_Enabled = 'Y') THEN
286
287 -- ------------------------------------------------------------------
288 -- MRC Handler For IGC_CC_HEADERS to insert all MRC records for
289 -- the reporting set of books for this PRIMARY set of books.
290 -- ------------------------------------------------------------------
291 IGC_CC_MC_MAIN_HST_PVT.get_rsobs_Headers(
292 l_api_version,
293 FND_API.G_FALSE,
294 FND_API.G_FALSE,
295 p_validation_level,
296 l_return_status,
297 X_msg_count,
298 X_msg_data,
299 p_CC_Header_Id,
300 p_Set_Of_Books_Id,
301 101, /*--l_Application_Id, commented for MRC uptake*/
302 p_org_Id,
303 SYSDATE,
304 p_CC_Version_num,
305 p_CC_Version_Action );
306
307 -- ------------------------------------------------------------------
308 -- Make sure that the insertion was a success
309 -- ------------------------------------------------------------------
310 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
311 RAISE FND_API.G_EXC_ERROR;
312 END IF;
313
314 END IF;
315
316 -- -----------------------------------------------------------------
317 -- If the records are to be commited in this procedure then
318 -- commit the work now otherwise wait for the caller to do COMMIT.
319 -- -----------------------------------------------------------------
320 IF FND_API.To_Boolean ( p_commit ) THEN
321 COMMIT WORK;
322 END iF;
323
324 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
325 p_data => X_msg_data );
326
327 RETURN;
328
329 EXCEPTION
330
331 WHEN FND_API.G_EXC_ERROR THEN
332
333 ROLLBACK TO Insert_Row_Pvt ;
334 X_return_status := FND_API.G_RET_STS_ERROR;
335 IF (C_header_hst_rowid %ISOPEN) THEN
336 CLOSE C_header_hst_rowid ;
337 END IF;
338 IF (c_igc_app_id%ISOPEN) THEN
339 CLOSE c_igc_app_id;
340 END IF;
341
342 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
343 p_data => X_msg_data );
344
345 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346
347 ROLLBACK TO Insert_Row_Pvt ;
348 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349 IF (C_header_hst_rowid %ISOPEN) THEN
350 CLOSE C_header_hst_rowid ;
351 END IF;
352 IF (c_igc_app_id%ISOPEN) THEN
353 CLOSE c_igc_app_id;
354 END IF;
355
356 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
357 p_data => X_msg_data );
358
359 WHEN OTHERS THEN
360
361 ROLLBACK TO Insert_Row_Pvt ;
362 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363 IF (C_header_hst_rowid %ISOPEN) THEN
364 CLOSE C_header_hst_rowid ;
365 END IF;
366 IF (c_igc_app_id%ISOPEN) THEN
367 CLOSE c_igc_app_id;
368 END IF;
369
370 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
371 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
372 l_api_name);
373 END if;
374
375 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
376 p_data => X_msg_data );
377
378
379 END Insert_Row;
380
381 /* ================================================================================
382 PROCEDURE Insert_Row
383 ===============================================================================*/
384
385 PROCEDURE Insert_Row(
386 p_api_version IN NUMBER,
387 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
388 p_commit IN VARCHAR2 := FND_API.G_FALSE,
389 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
390 X_return_status OUT NOCOPY VARCHAR2,
391 X_msg_count OUT NOCOPY NUMBER,
392 X_msg_data OUT NOCOPY VARCHAR2,
393 p_Rowid IN OUT NOCOPY VARCHAR2,
394 p_CC_Header_Id IGC_CC_HEADER_HISTORY.CC_Header_Id%TYPE,
395 p_Org_id IGC_CC_HEADER_HISTORY.Org_id%TYPE,
399 p_CC_Version_Action IGC_CC_HEADER_HISTORY.CC_Version_Action%TYPE,
396 p_CC_Type IGC_CC_HEADER_HISTORY.CC_Type%TYPE,
397 p_CC_Num IGC_CC_HEADER_HISTORY.CC_Num%TYPE,
398 p_CC_Version_num IGC_CC_HEADER_HISTORY.CC_Version_Num%TYPE,
400 p_CC_State IGC_CC_HEADER_HISTORY.CC_State%TYPE,
401 p_Parent_Header_Id IGC_CC_HEADER_HISTORY.Parent_Header_Id%TYPE,
402 p_CC_ctrl_status IGC_CC_HEADER_HISTORY.CC_ctrl_status%TYPE,
403 p_CC_Encmbrnc_Status IGC_CC_HEADER_HISTORY.CC_Encmbrnc_Status%TYPE,
404 p_CC_Apprvl_Status IGC_CC_HEADER_HISTORY.CC_Apprvl_Status%TYPE,
405 p_Vendor_Id IGC_CC_HEADER_HISTORY.Vendor_Id%TYPE,
406 p_Vendor_Site_Id IGC_CC_HEADER_HISTORY.Vendor_Site_Id%TYPE,
407 p_Vendor_Contact_Id IGC_CC_HEADER_HISTORY.Vendor_Contact_Id%TYPE,
408 p_Term_Id IGC_CC_HEADER_HISTORY.Term_Id%TYPE,
409 p_Location_Id IGC_CC_HEADER_HISTORY.Location_Id%TYPE,
410 p_Set_Of_Books_Id IGC_CC_HEADER_HISTORY.Set_Of_Books_Id%TYPE,
411 p_CC_Acct_Date IGC_CC_HEADER_HISTORY.CC_Acct_Date%TYPE,
412 p_CC_Desc IGC_CC_HEADER_HISTORY.CC_Desc%TYPE,
413 p_CC_Start_Date IGC_CC_HEADER_HISTORY.CC_Start_Date%TYPE,
414 p_CC_End_Date IGC_CC_HEADER_HISTORY.CC_End_Date%TYPE,
415 p_CC_Owner_User_Id IGC_CC_HEADER_HISTORY.CC_Owner_User_Id%TYPE,
416 p_CC_Preparer_User_Id IGC_CC_HEADER_HISTORY.CC_Preparer_User_Id%TYPE,
417 p_Currency_Code IGC_CC_HEADER_HISTORY.Currency_Code%TYPE,
418 p_Conversion_Type IGC_CC_HEADER_HISTORY.Conversion_Type%TYPE,
419 p_Conversion_Date IGC_CC_HEADER_HISTORY.Conversion_Date%TYPE,
420 p_Conversion_Rate IGC_CC_HEADER_HISTORY.Conversion_Rate%TYPE,
421 p_Last_Update_Date IGC_CC_HEADER_HISTORY.Last_Update_Date%TYPE,
422 p_Last_Updated_By IGC_CC_HEADER_HISTORY.Last_Updated_By%TYPE,
423 p_Last_Update_Login IGC_CC_HEADER_HISTORY.Last_Update_Login%TYPE,
424 p_Created_By IGC_CC_HEADER_HISTORY.Created_By%TYPE,
425 p_Creation_Date IGC_CC_HEADER_HISTORY.Creation_Date%TYPE,
426 p_Wf_Item_Type IGC_CC_HEADER_HISTORY.Wf_Item_Type%TYPE,
427 p_Wf_Item_Key IGC_CC_HEADER_HISTORY.Wf_Item_Key%TYPE,
428 p_CC_Current_User_Id IGC_CC_HEADERS.CC_Current_User_Id%TYPE,
429 p_Attribute1 IGC_CC_HEADER_HISTORY.Attribute1%TYPE,
430 p_Attribute2 IGC_CC_HEADER_HISTORY.Attribute2%TYPE,
431 p_Attribute3 IGC_CC_HEADER_HISTORY.Attribute3%TYPE,
432 p_Attribute4 IGC_CC_HEADER_HISTORY.Attribute4%TYPE,
433 p_Attribute5 IGC_CC_HEADER_HISTORY.Attribute5%TYPE,
434 p_Attribute6 IGC_CC_HEADER_HISTORY.Attribute6%TYPE,
435 p_Attribute7 IGC_CC_HEADER_HISTORY.Attribute7%TYPE,
436 p_Attribute8 IGC_CC_HEADER_HISTORY.Attribute8%TYPE,
437 p_Attribute9 IGC_CC_HEADER_HISTORY.Attribute9%TYPE,
438 p_Attribute10 IGC_CC_HEADER_HISTORY.Attribute10%TYPE,
439 p_Attribute11 IGC_CC_HEADER_HISTORY.Attribute11%TYPE,
440 p_Attribute12 IGC_CC_HEADER_HISTORY.Attribute12%TYPE,
441 p_Attribute13 IGC_CC_HEADER_HISTORY.Attribute13%TYPE,
442 p_Attribute14 IGC_CC_HEADER_HISTORY.Attribute14%TYPE,
443 p_Attribute15 IGC_CC_HEADER_HISTORY.Attribute15%TYPe,
444 p_Context IGC_CC_HEADER_HISTORY.Context%TYPE,
445 p_CC_Guarantee_Flag IGC_CC_HEADER_HISTORY.CC_Guarantee_Flag%TYPE,
446 G_FLAG IN OUT NOCOPY VARCHAR2
447 ) IS
448
449 l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
450 l_api_version CONSTANT NUMBER := 1.0;
451 l_Application_Id NUMBER;
452 l_MRC_Enabled VARCHAR2(1);
453 l_Conversion_Date DATE;
454 l_Set_Of_Books_Id NUMBER;
455 l_Org_Id NUMBER(15);
456 l_return_status VARCHAR2(1);
457
458 CURSOR C_header_hst_rowid IS
459 SELECT Rowid
460 FROM IGC_CC_HEADER_HISTORY
461 WHERE CC_Header_id = p_CC_Header_id
462 AND CC_Version_Num = P_CC_Version_Num ;
463
464 CURSOR c_igc_app_id IS
465 SELECT Application_Id
466 FROM FND_APPLICATION
467 WHERE Application_Short_Name = 'IGC';
468
469 BEGIN
470
471 SAVEPOINT Insert_Row_Pvt ;
472
473 -- -----------------------------------------------------------------
474 -- Ensure that the version requested to be used is correct for
475 -- this API.
476 -- -----------------------------------------------------------------
477 IF NOT FND_API.Compatible_API_Call (l_api_version,
478 p_api_version,
479 l_api_name,
480 G_PKG_NAME )
481 THEN
482 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
483 END IF;
484
485
486 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
487 FND_MSG_PUB.initialize ;
488 END IF;
489
490 X_return_status := FND_API.G_RET_STS_SUCCESS ;
491
492 -- -----------------------------------------------------------------
493 -- Insert the CC Header History record as requested.
494 -- -----------------------------------------------------------------
495 INSERT
496 INTO IGC_CC_HEADER_HISTORY
497 (CC_Header_Id,
498 Parent_Header_Id,
499 Org_Id,
500 CC_Type,
501 CC_Num,
502 CC_Version_Num,
506 CC_Encmbrnc_Status,
503 CC_Version_Action,
504 CC_State,
505 CC_Ctrl_Status,
507 CC_Apprvl_Status,
508 Vendor_Id,
509 Vendor_Site_Id,
510 Vendor_Contact_Id,
511 Term_Id,
512 Location_Id,
513 Set_Of_Books_Id,
514 CC_Acct_Date,
515 CC_Desc,
516 CC_Start_Date,
517 CC_End_Date,
518 CC_Owner_User_Id,
519 CC_Preparer_User_Id,
520 Currency_Code,
521 Conversion_Type,
522 Conversion_Date,
523 Conversion_Rate,
524 Last_Update_Date,
525 Last_Updated_By,
526 Last_Update_Login,
527 Created_By,
528 Creation_Date,
529 Wf_Item_Type,
530 Wf_Item_Key,
531 CC_Current_User_Id,
532 Attribute1,
533 Attribute2,
534 Attribute3,
535 Attribute4,
536 Attribute5,
537 Attribute6,
538 Attribute7,
539 Attribute8,
540 Attribute9,
541 Attribute10,
542 Attribute11,
543 Attribute12,
544 Attribute13,
545 Attribute14,
546 Attribute15,
547 Context,
548 CC_Guarantee_Flag
549 )
550 VALUES
551 (p_CC_Header_Id,
552 p_Parent_Header_Id,
553 p_Org_id,
554 p_CC_Type,
555 p_CC_Num,
556 p_CC_Version_num,
557 p_CC_Version_Action,
558 p_CC_State,
559 p_CC_ctrl_status,
560 p_CC_Encmbrnc_Status,
561 p_CC_Apprvl_Status,
562 p_Vendor_Id,
563 p_Vendor_Site_Id,
564 p_Vendor_Contact_Id,
565 p_Term_Id,
566 p_Location_Id,
567 p_Set_Of_Books_Id,
568 p_CC_Acct_Date,
569 p_CC_Desc,
570 p_CC_Start_Date,
571 p_CC_End_Date,
572 p_CC_Owner_User_Id,
573 p_CC_Preparer_User_Id,
574 p_Currency_Code,
575 p_Conversion_Type,
576 p_Conversion_Date,
577 p_Conversion_Rate,
578 p_Last_Update_Date,
579 p_Last_Updated_By,
580 p_Last_Update_Login,
581 p_Created_By,
582 p_Creation_Date,
583 p_Wf_Item_Type,
584 p_Wf_Item_Key,
585 p_CC_Current_User_Id,
586 p_Attribute1,
587 p_Attribute2,
588 p_Attribute3,
589 p_Attribute4,
590 p_Attribute5,
591 p_Attribute6,
592 p_Attribute7,
593 p_Attribute8,
594 p_Attribute9,
595 p_Attribute10,
596 p_Attribute11,
597 p_Attribute12,
598 p_Attribute13,
599 p_Attribute14,
600 p_Attribute15,
601 p_Context,
602 p_CC_Guarantee_Flag
603 );
604
605 -- -------------------------------------------------------------------
606 -- Obtain the ROWID of the record that was just inserted to return
607 -- to the caller.
608 -- -------------------------------------------------------------------
609 OPEN C_header_hst_rowid ;
610 FETCH C_header_hst_rowid
611 INTO p_Rowid;
612
613 -- -------------------------------------------------------------------
614 -- If no ROWID can be obtained then exit the procedure with a failure
615 -- -------------------------------------------------------------------
616 IF (C_header_hst_rowid %NOTFOUND) THEN
617 RAISE FND_API.G_EXC_ERROR ;
618 END IF;
619
620 CLOSE C_header_hst_rowid ;
621
622 -- ------------------------------------------------------------------
623 -- Obtain the application ID for IGC to be used for the MRC check
624 -- being enabled for this set of books.
625 -- ------------------------------------------------------------------
626 OPEN c_igc_app_id;
627 FETCH c_igc_app_id
628 INTO l_Application_Id;
629
630 -- ------------------------------------------------------------------
631 -- If the application ID can not be attained then exit the procedure
632 -- ------------------------------------------------------------------
633 IF (c_igc_app_id%NOTFOUND) THEN
634 RAISE FND_API.G_EXC_ERROR;
635 END IF;
636
637 CLOSE c_igc_app_id;
638
639 -- ------------------------------------------------------------------
640 -- If the conversion date is NULL then fill in the value with the
641 -- current system date.
642 -- ------------------------------------------------------------------
643
644 gl_mc_info.mrc_enabled (p_Set_Of_Books_Id,
645 101, /*--l_Application_Id, commented for MRC uptake*/
646 p_Org_Id,
647 Null,
648 l_MRC_Enabled);
649
650 -- ------------------------------------------------------------------
651 -- If MRC is enabled for this set of books being used then call the
652 -- handler to insert all reporting set of books into the MRC
653 -- table for the account line inserted.
654 -- ------------------------------------------------------------------
658 -- MRC Handler For IGC_CC_HEADERS to insert all MRC records for
655 IF (l_MRC_Enabled = 'Y') THEN
656
657 -- ------------------------------------------------------------------
659 -- the reporting set of books for this PRIMARY set of books.
660 -- ------------------------------------------------------------------
661 IGC_CC_MC_MAIN_HST_PVT.get_rsobs_Headers(
662 l_api_version,
663 FND_API.G_FALSE,
664 FND_API.G_FALSE,
665 p_validation_level,
666 l_return_status,
667 X_msg_count,
668 X_msg_data,
669 p_CC_Header_Id,
670 p_Set_Of_Books_Id,
671 101, /*--l_Application_Id, commented for MRC uptake*/
672 p_org_Id,
673 SYSDATE,
674 p_CC_Version_num,
675 p_CC_Version_Action );
676
677 -- ------------------------------------------------------------------
678 -- Make sure that the insertion was a success
679 -- ------------------------------------------------------------------
680 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
681 RAISE FND_API.G_EXC_ERROR;
682 END IF;
683
684 END IF;
685
686 -- -----------------------------------------------------------------
687 -- If the records are to be commited in this procedure then
688 -- commit the work now otherwise wait for the caller to do COMMIT.
689 -- -----------------------------------------------------------------
690 IF FND_API.To_Boolean ( p_commit ) THEN
691 COMMIT WORK;
692 END iF;
693
694 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
695 p_data => X_msg_data );
696
697 RETURN;
698
699 EXCEPTION
700
701 WHEN FND_API.G_EXC_ERROR THEN
702
703 ROLLBACK TO Insert_Row_Pvt ;
704 X_return_status := FND_API.G_RET_STS_ERROR;
705 IF (C_header_hst_rowid %ISOPEN) THEN
706 CLOSE C_header_hst_rowid ;
707 END IF;
708 IF (c_igc_app_id%ISOPEN) THEN
709 CLOSE c_igc_app_id;
710 END IF;
711
712 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
713 p_data => X_msg_data );
714
715 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716
717 ROLLBACK TO Insert_Row_Pvt ;
718 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719 IF (C_header_hst_rowid %ISOPEN) THEN
720 CLOSE C_header_hst_rowid ;
721 END IF;
722 IF (c_igc_app_id%ISOPEN) THEN
723 CLOSE c_igc_app_id;
724 END IF;
725
726 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
727 p_data => X_msg_data );
728
729 WHEN OTHERS THEN
730
731 ROLLBACK TO Insert_Row_Pvt ;
732 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733 IF (C_header_hst_rowid %ISOPEN) THEN
734 CLOSE C_header_hst_rowid ;
735 END IF;
736 IF (c_igc_app_id%ISOPEN) THEN
737 CLOSE c_igc_app_id;
738 END IF;
739
740 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
741 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
742 l_api_name);
743 END if;
744
745 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
746 p_data => X_msg_data );
747
748
749 END Insert_Row;
750
751 /* ================================================================================
752 PROCEDURE Lock_Row
753 ===============================================================================*/
754
755 PROCEDURE Lock_Row(
756 p_api_version IN NUMBER,
757 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
758 p_commit IN VARCHAR2 := FND_API.G_FALSE,
759 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
760 X_return_status OUT NOCOPY VARCHAR2,
761 X_msg_count OUT NOCOPY NUMBER,
762 X_msg_data OUT NOCOPY VARCHAR2,
763 p_Rowid IN OUT NOCOPY VARCHAR2,
764 p_CC_Header_Id IGC_CC_HEADER_HISTORY.CC_Header_Id%TYPE,
765 p_Org_id IGC_CC_HEADER_HISTORY.Org_id%TYPE,
766 p_CC_Type IGC_CC_HEADER_HISTORY.CC_Type%TYPE,
767 p_CC_Num IGC_CC_HEADER_HISTORY.CC_Num%TYPE,
768 p_CC_Version_num IGC_CC_HEADER_HISTORY.CC_Version_Num%TYPE,
769 p_CC_Version_Action IGC_CC_HEADER_HISTORY.CC_Version_Action%TYPE,
770 p_CC_State IGC_CC_HEADER_HISTORY.CC_State%TYPE,
771 p_Parent_Header_Id IGC_CC_HEADER_HISTORY.Parent_Header_Id%TYPE,
772 p_CC_ctrl_status IGC_CC_HEADER_HISTORY.CC_ctrl_status%TYPE,
773 p_CC_Encmbrnc_Status IGC_CC_HEADER_HISTORY.CC_Encmbrnc_Status%TYPE,
774 p_CC_Apprvl_Status IGC_CC_HEADER_HISTORY.CC_Apprvl_Status%TYPE,
775 p_Vendor_Id IGC_CC_HEADER_HISTORY.Vendor_Id%TYPE,
776 p_Vendor_Site_Id IGC_CC_HEADER_HISTORY.Vendor_Site_Id%TYPE,
777 p_Vendor_Contact_Id IGC_CC_HEADER_HISTORY.Vendor_Contact_Id%TYPE,
778 p_Term_Id IGC_CC_HEADER_HISTORY.Term_Id%TYPE,
779 p_Location_Id IGC_CC_HEADER_HISTORY.Location_Id%TYPE,
780 p_Set_Of_Books_Id IGC_CC_HEADER_HISTORY.Set_Of_Books_Id%TYPE,
781 p_CC_Acct_Date IGC_CC_HEADER_HISTORY.CC_Acct_Date%TYPE,
782 p_CC_Desc IGC_CC_HEADER_HISTORY.CC_Desc%TYPE,
786 p_CC_Preparer_User_Id IGC_CC_HEADER_HISTORY.CC_Preparer_User_Id%TYPE,
783 p_CC_Start_Date IGC_CC_HEADER_HISTORY.CC_Start_Date%TYPE,
784 p_CC_End_Date IGC_CC_HEADER_HISTORY.CC_End_Date%TYPE,
785 p_CC_Owner_User_Id IGC_CC_HEADER_HISTORY.CC_Owner_User_Id%TYPE,
787 p_Currency_Code IGC_CC_HEADER_HISTORY.Currency_Code%TYPE,
788 p_Conversion_Type IGC_CC_HEADER_HISTORY.Conversion_Type%TYPE,
789 p_Conversion_Date IGC_CC_HEADER_HISTORY.Conversion_Date%TYPE,
790 p_Conversion_Rate IGC_CC_HEADER_HISTORY.Conversion_Rate%TYPE,
791 p_Last_Update_Date IGC_CC_HEADER_HISTORY.Last_Update_Date%TYPE,
792 p_Last_Updated_By IGC_CC_HEADER_HISTORY.Last_Updated_By%TYPE,
793 p_Last_Update_Login IGC_CC_HEADER_HISTORY.Last_Update_Login%TYPE,
794 p_Created_By IGC_CC_HEADER_HISTORY.Created_By%TYPE,
795 p_Creation_Date IGC_CC_HEADER_HISTORY.Creation_Date%TYPE,
796 p_Wf_Item_Type IGC_CC_HEADER_HISTORY.Wf_Item_Type%TYPE,
797 p_Wf_Item_Key IGC_CC_HEADER_HISTORY.Wf_Item_Key%TYPE,
798 p_CC_Current_User_Id IGC_CC_HEADERS.CC_Current_User_Id%TYPE,
799 p_Attribute1 IGC_CC_HEADER_HISTORY.Attribute1%TYPE,
800 p_Attribute2 IGC_CC_HEADER_HISTORY.Attribute2%TYPE,
801 p_Attribute3 IGC_CC_HEADER_HISTORY.Attribute3%TYPE,
802 p_Attribute4 IGC_CC_HEADER_HISTORY.Attribute4%TYPE,
803 p_Attribute5 IGC_CC_HEADER_HISTORY.Attribute5%TYPE,
804 p_Attribute6 IGC_CC_HEADER_HISTORY.Attribute6%TYPE,
805 p_Attribute7 IGC_CC_HEADER_HISTORY.Attribute7%TYPE,
806 p_Attribute8 IGC_CC_HEADER_HISTORY.Attribute8%TYPE,
807 p_Attribute9 IGC_CC_HEADER_HISTORY.Attribute9%TYPE,
808 p_Attribute10 IGC_CC_HEADER_HISTORY.Attribute10%TYPE,
809 p_Attribute11 IGC_CC_HEADER_HISTORY.Attribute11%TYPE,
810 p_Attribute12 IGC_CC_HEADER_HISTORY.Attribute12%TYPE,
811 p_Attribute13 IGC_CC_HEADER_HISTORY.Attribute13%TYPE,
812 p_Attribute14 IGC_CC_HEADER_HISTORY.Attribute14%TYPE,
813 p_Attribute15 IGC_CC_HEADER_HISTORY.Attribute15%TYPE,
814 p_Context IGC_CC_HEADER_HISTORY.Context%TYPE,
815 p_CC_Guarantee_Flag IGC_CC_HEADER_HISTORY.CC_Guarantee_Flag%TYPE,
816 X_row_locked OUT NOCOPY VARCHAR2,
817 G_FLAG IN OUT NOCOPY VARCHAR2
818 ) IS
819
820 l_api_name CONSTANT VARCHAR2(30) := 'Lock_Row';
821 l_api_version CONSTANT NUMBER := 1.0;
822 Counter NUMBER;
823
824 CURSOR C IS
825 SELECT *
826 FROM IGC_CC_HEADER_HISTORY
827 WHERE rowid = p_Rowid
828 FOR UPDATE of CC_Header_Id NOWAIT;
829
830 Recinfo C%ROWTYPE;
831
832 BEGIN
833
834 SAVEPOINT Lock_Row_Pvt ;
835
836 IF NOT FND_API.Compatible_API_Call ( l_api_version,
837 p_api_version,
838 l_api_name,
839 G_PKG_NAME )
840 THEN
841 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
842 END IF;
843
844
845 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
846 FND_MSG_PUB.initialize ;
847 END IF;
848
849 X_return_status := FND_API.G_RET_STS_SUCCESS ;
850 X_row_locked := FND_API.G_TRUE ;
851
852
853 OPEN C;
854 FETCH C
855 INTO Recinfo;
856
857 IF (C%NOTFOUND) THEN
858 CLOSE C;
859 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
860 FND_MSG_PUB.Add;
861 RAISE FND_API.G_EXC_ERROR ;
862 END IF;
863
864 CLOSE C;
865
866 IF (
867 (Recinfo.CC_Header_Id = p_CC_Header_Id)
868 AND (Recinfo.Org_Id = p_Org_Id)
869 AND (Recinfo.CC_Type = p_CC_Type)
870 AND (Recinfo.CC_Num = p_CC_Num)
871 AND (Recinfo.CC_Version_Num = p_CC_Version_Num)
872 AND (Recinfo.CC_Version_Action = p_CC_Version_Action)
873 AND ( (Recinfo.Parent_Header_Id = p_Parent_Header_Id)
874 OR ( (Recinfo.Parent_Header_Id IS NULL)
875 AND (p_Parent_Header_Id IS NULL)))
876 AND ( (Recinfo.CC_state = p_CC_State)
877 OR ( (Recinfo.CC_State IS NULL)
878 AND (p_CC_State IS NULL)))
879 AND ( (Recinfo.CC_Ctrl_Status = p_CC_Ctrl_Status)
880 OR ( (Recinfo.CC_Ctrl_status IS NULL)
881 AND (p_CC_Ctrl_Status IS NULL)))
882 AND ( (Recinfo.CC_Encmbrnc_Status = p_CC_Encmbrnc_Status)
883 OR ( (Recinfo.CC_Encmbrnc_Status IS NULL)
884 AND (p_CC_Encmbrnc_Status IS NULL)))
885 AND ( (Recinfo.CC_Apprvl_Status = p_CC_Apprvl_Status)
886 OR ( (Recinfo.CC_Apprvl_Status IS NULL)
887 AND (p_CC_Apprvl_Status IS NULL)))
888 AND ( (Recinfo.Vendor_Id = p_Vendor_Id)
889 OR ( (Recinfo.Vendor_Id IS NULL)
890 AND (p_Vendor_Id IS NULL)))
891 AND ( (Recinfo.Vendor_Site_Id = p_Vendor_Site_Id)
892 OR ( (Recinfo.Vendor_Site_Id IS NULL)
893 AND (p_Vendor_Site_Id IS NULL)))
894 AND ( (Recinfo.Vendor_Contact_Id = p_Vendor_Contact_Id)
895 OR ( (Recinfo.Vendor_Contact_Id IS NULL)
896 AND (p_Vendor_Contact_Id IS NULL)))
897 AND ( (Recinfo.Term_Id = p_Term_Id)
898 OR ( (Recinfo.Term_Id IS NULL)
899 AND (p_Term_Id IS NULL)))
903 AND ( (Recinfo.Set_Of_Books_Id = p_Set_Of_Books_Id)
900 AND ( (Recinfo.Location_Id = p_Location_Id)
901 OR ( (Recinfo.Location_Id IS NULL)
902 AND (p_Location_Id IS NULL)))
904 OR ( (Recinfo.Set_Of_Books_Id IS NULL)
905 AND (p_Set_Of_Books_Id IS NULL)))
906 AND ( (Recinfo.CC_Acct_Date = p_CC_Acct_Date)
907 OR ( (Recinfo.CC_Acct_Date IS NULL)
908 AND (p_CC_Acct_Date IS NULL)))
909 AND ( (Recinfo.CC_Desc = p_CC_Desc)
910 OR ( (Recinfo.CC_Desc IS NULL)
911 AND (p_CC_Desc IS NULL)))
912 AND ( (Recinfo.CC_Start_Date = p_CC_Start_Date)
913 OR ( (Recinfo.CC_Start_Date IS NULL)
914 AND (p_CC_Start_Date IS NULL)))
915 AND ( (Recinfo.CC_End_Date = p_CC_End_Date)
916 OR ( (Recinfo.CC_End_Date IS NULL)
917 AND (p_CC_End_Date IS NULL)))
918 AND ( (Recinfo.CC_Owner_User_Id = p_CC_Owner_User_Id)
919 OR ( (Recinfo.CC_Owner_User_Id IS NULL)
920 AND (p_CC_Owner_User_Id IS NULL)))
921 AND ( (Recinfo.CC_Preparer_User_Id = p_CC_Preparer_User_Id)
922 OR ( (Recinfo.CC_Preparer_User_Id IS NULL)
923 AND (p_CC_Preparer_User_Id IS NULL)))
924 AND ( (Recinfo.Currency_Code = p_Currency_Code)
925 OR ( (Recinfo.Currency_Code IS NULL)
926 AND (p_Currency_Code IS NULL)))
927 AND ( (Recinfo.Conversion_Type = p_Conversion_Type)
928 OR ( (Recinfo.Conversion_Type IS NULL)
929 AND (p_Conversion_Type IS NULL)))
930 AND ( (Recinfo.Conversion_Date = p_Conversion_Date)
931 OR ( (Recinfo.Conversion_Date IS NULL)
932 AND (p_Conversion_Date IS NULL)))
933 AND ( (Recinfo.Conversion_Rate = p_Conversion_Rate)
934 OR ( (Recinfo.Conversion_Rate IS NULL)
935 AND (p_Conversion_Rate IS NULL)))
936 AND ( (Recinfo.WF_Item_Type = p_WF_Item_Type)
937 OR ( (Recinfo.WF_Item_Type IS NULL)
938 AND (p_WF_Item_Type IS NULL)))
939 AND ( (Recinfo.WF_Item_Key = p_WF_Item_Key)
940 OR ( (Recinfo.WF_Item_Key IS NULL)
941 AND (p_WF_Item_Key IS NULL)))
942 AND ( (Recinfo.CC_Current_User_Id = p_CC_Current_User_Id)
943 OR ( (Recinfo.CC_Current_User_Id IS NULL)
944 AND (p_CC_Current_User_Id IS NULL)))
945 AND ( (Recinfo.Attribute1 = p_Attribute1)
946 OR ( (Recinfo.Attribute1 IS NULL)
947 AND (p_Attribute1 IS NULL)))
948 AND ( (Recinfo.Attribute2 = p_Attribute2)
949 OR ( (Recinfo.Attribute2 IS NULL)
950 AND (p_Attribute2 IS NULL)))
951 AND ( (Recinfo.Attribute3 = p_Attribute3)
952 OR ( (Recinfo.Attribute3 IS NULL)
953 AND (p_Attribute3 IS NULL)))
954 AND ( (Recinfo.Attribute4 = p_Attribute4)
955 OR ( (Recinfo.Attribute4 IS NULL)
956 AND (p_Attribute4 IS NULL)))
957 AND ( (Recinfo.Attribute5 = p_Attribute5)
958 OR ( (Recinfo.Attribute5 IS NULL)
959 AND (p_Attribute5 IS NULL)))
960 AND ( (Recinfo.Attribute6 = p_Attribute6)
961 OR ( (Recinfo.Attribute6 IS NULL)
962 AND (p_Attribute6 IS NULL)))
963 AND ( (Recinfo.Attribute7 = p_Attribute7)
964 OR ( (Recinfo.Attribute7 IS NULL)
965 AND (p_Attribute7 IS NULL)))
966 AND ( (Recinfo.Attribute8 = p_Attribute8)
967 OR ( (Recinfo.Attribute8 IS NULL)
968 AND (p_Attribute8 IS NULL)))
969 AND ( (Recinfo.Attribute9 = p_Attribute9)
970 OR ( (Recinfo.Attribute9 IS NULL)
971 AND (p_Attribute9 IS NULL)))
972 AND ( (Recinfo.Attribute10 = p_Attribute10)
973 OR ( (Recinfo.Attribute10 IS NULL)
974 AND (p_Attribute10 IS NULL)))
975 AND ( (Recinfo.Attribute11 = p_Attribute11)
976 OR ( (Recinfo.Attribute11 IS NULL)
977 AND (p_Attribute11 IS NULL)))
978 AND ( (Recinfo.Attribute12 = p_Attribute12)
979 OR ( (Recinfo.Attribute12 IS NULL)
980 AND (p_Attribute12 IS NULL)))
981 AND ( (Recinfo.Attribute13 = p_Attribute13)
982 OR ( (Recinfo.Attribute13 IS NULL)
983 AND (p_Attribute13 IS NULL)))
984 AND ( (Recinfo.Attribute14 = p_Attribute14)
985 OR ( (Recinfo.Attribute14 IS NULL)
986 AND (p_Attribute14 IS NULL)))
987 AND ( (Recinfo.Attribute15 = p_Attribute15)
988 OR ( (Recinfo.Attribute15 IS NULL)
989 AND (p_Attribute15 IS NULL)))
990 AND ( (Recinfo.Context = p_Context)
991 OR ( (Recinfo.Context IS NULL)
992 AND (p_Context IS NULL)))
993 AND ( (Recinfo.CC_Guarantee_Flag = p_CC_Guarantee_Flag)
994 OR ( (Recinfo.CC_Guarantee_Flag IS NULL)
995 AND (p_CC_Guarantee_Flag IS NULL)))
996
997 ) THEN
998
999 NULL;
1000
1001 ELSE
1002
1003 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1004 FND_MSG_PUB.Add;
1005 RAISE FND_API.G_EXC_ERROR ;
1006
1007 END IF;
1008
1009 IF FND_API.To_Boolean ( p_commit ) THEN
1010 COMMIT WORK;
1011 END iF;
1012
1016 RETURN;
1013 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1014 p_data => X_msg_data );
1015
1017
1018 EXCEPTION
1019
1020 WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1021
1022 ROLLBACK TO Lock_Row_Pvt ;
1023 X_row_locked := FND_API.G_FALSE;
1024 X_return_status := FND_API.G_RET_STS_ERROR;
1025 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1026 p_data => X_msg_data );
1027
1028 WHEN FND_API.G_EXC_ERROR THEN
1029
1030 ROLLBACK TO Lock_Row_Pvt ;
1031 X_return_status := FND_API.G_RET_STS_ERROR;
1032 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1033 p_data => X_msg_data );
1034
1035 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036
1037 ROLLBACK TO Lock_Row_Pvt ;
1038 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1039 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1040 p_data => X_msg_data );
1041
1042 WHEN OTHERS THEN
1043
1044 ROLLBACK TO Lock_Row_Pvt ;
1045 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046
1047 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1048 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1049 l_api_name);
1050 END if;
1051
1052 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1053 p_data => X_msg_data );
1054
1055 END Lock_Row;
1056
1057 /* ================================================================================
1058 PROCEDURE Update_Row Overloaded Procedure for CC_REF_NUM addition
1059 ===============================================================================*/
1060
1061 PROCEDURE Update_Row(
1062 p_api_version IN NUMBER,
1063 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1064 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1065 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1066 X_return_status OUT NOCOPY VARCHAR2,
1067 X_msg_count OUT NOCOPY NUMBER,
1068 X_msg_data OUT NOCOPY VARCHAR2,
1069 p_Rowid IN OUT NOCOPY VARCHAR2,
1070 p_CC_Header_Id IGC_CC_HEADER_HISTORY.CC_Header_Id%TYPE,
1071 p_Org_id IGC_CC_HEADER_HISTORY.Org_id%TYPE,
1072 p_CC_Type IGC_CC_HEADER_HISTORY.CC_Type%TYPE,
1073 p_CC_Num IGC_CC_HEADER_HISTORY.CC_Num%TYPE,
1074 p_CC_Ref_Num IGC_CC_HEADER_HISTORY.CC_Ref_Num%TYPE,
1075 p_CC_Version_num IGC_CC_HEADER_HISTORY.CC_Version_Num%TYPE,
1076 p_CC_Version_Action IGC_CC_HEADER_HISTORY.CC_Version_Action%TYPE,
1077 p_CC_State IGC_CC_HEADER_HISTORY.CC_State%TYPE,
1078 p_Parent_Header_Id IGC_CC_HEADER_HISTORY.Parent_Header_Id%TYPE,
1079 p_CC_ctrl_status IGC_CC_HEADER_HISTORY.CC_ctrl_status%TYPE,
1080 p_CC_Encmbrnc_Status IGC_CC_HEADER_HISTORY.CC_Encmbrnc_Status%TYPE,
1081 p_CC_Apprvl_Status IGC_CC_HEADER_HISTORY.CC_Apprvl_Status%TYPE,
1082 p_Vendor_Id IGC_CC_HEADER_HISTORY.Vendor_Id%TYPE,
1083 p_Vendor_Site_Id IGC_CC_HEADER_HISTORY.Vendor_Site_Id%TYPE,
1084 p_Vendor_Contact_Id IGC_CC_HEADER_HISTORY.Vendor_Contact_Id%TYPE,
1085 p_Term_Id IGC_CC_HEADER_HISTORY.Term_Id%TYPE,
1086 p_Location_Id IGC_CC_HEADER_HISTORY.Location_Id%TYPE,
1087 p_Set_Of_Books_Id IGC_CC_HEADER_HISTORY.Set_Of_Books_Id%TYPE,
1088 p_CC_Acct_Date IGC_CC_HEADER_HISTORY.CC_Acct_Date%TYPE,
1089 p_CC_Desc IGC_CC_HEADER_HISTORY.CC_Desc%TYPE,
1090 p_CC_Start_Date IGC_CC_HEADER_HISTORY.CC_Start_Date%TYPE,
1091 p_CC_End_Date IGC_CC_HEADER_HISTORY.CC_End_Date%TYPE,
1092 p_CC_Owner_User_Id IGC_CC_HEADER_HISTORY.CC_Owner_User_Id%TYPE,
1093 p_CC_Preparer_User_Id IGC_CC_HEADER_HISTORY.CC_Preparer_User_Id%TYPE,
1094 p_Currency_Code IGC_CC_HEADER_HISTORY.Currency_Code%TYPE,
1095 p_Conversion_Type IGC_CC_HEADER_HISTORY.Conversion_Type%TYPE,
1096 p_Conversion_Date IGC_CC_HEADER_HISTORY.Conversion_Date%TYPE,
1097 p_Conversion_Rate IGC_CC_HEADER_HISTORY.Conversion_Rate%TYPE,
1098 p_Last_Update_Date IGC_CC_HEADER_HISTORY.Last_Update_Date%TYPE,
1099 p_Last_Updated_By IGC_CC_HEADER_HISTORY.Last_Updated_By%TYPE,
1100 p_Last_Update_Login IGC_CC_HEADER_HISTORY.Last_Update_Login%TYPE,
1101 p_Created_By IGC_CC_HEADER_HISTORY.Created_By%TYPE,
1102 p_Creation_Date IGC_CC_HEADER_HISTORY.Creation_Date%TYPE,
1103 p_Wf_Item_Type IGC_CC_HEADER_HISTORY.Wf_Item_Type%TYPE,
1104 p_Wf_Item_Key IGC_CC_HEADER_HISTORY.Wf_Item_Key%TYPE,
1105 p_CC_Current_User_Id IGC_CC_HEADERS.CC_Current_User_Id%TYPE,
1106 p_Attribute1 IGC_CC_HEADER_HISTORY.Attribute1%TYPE,
1107 p_Attribute2 IGC_CC_HEADER_HISTORY.Attribute2%TYPE,
1108 p_Attribute3 IGC_CC_HEADER_HISTORY.Attribute3%TYPE,
1109 p_Attribute4 IGC_CC_HEADER_HISTORY.Attribute4%TYPE,
1110 p_Attribute5 IGC_CC_HEADER_HISTORY.Attribute5%TYPE,
1111 p_Attribute6 IGC_CC_HEADER_HISTORY.Attribute6%TYPE,
1112 p_Attribute7 IGC_CC_HEADER_HISTORY.Attribute7%TYPE,
1113 p_Attribute8 IGC_CC_HEADER_HISTORY.Attribute8%TYPE,
1114 p_Attribute9 IGC_CC_HEADER_HISTORY.Attribute9%TYPE,
1115 p_Attribute10 IGC_CC_HEADER_HISTORY.Attribute10%TYPE,
1116 p_Attribute11 IGC_CC_HEADER_HISTORY.Attribute11%TYPE,
1117 p_Attribute12 IGC_CC_HEADER_HISTORY.Attribute12%TYPE,
1121 p_Context IGC_CC_HEADER_HISTORY.Context%TYPE,
1118 p_Attribute13 IGC_CC_HEADER_HISTORY.Attribute13%TYPE,
1119 p_Attribute14 IGC_CC_HEADER_HISTORY.Attribute14%TYPE,
1120 p_Attribute15 IGC_CC_HEADER_HISTORY.Attribute15%TYPE,
1122 p_CC_Guarantee_Flag IGC_CC_HEADER_HISTORY.CC_Guarantee_Flag%TYPE,
1123 G_FLAG IN OUT NOCOPY VARCHAR2
1124 ) IS
1125
1126 l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
1127 l_api_version CONSTANT NUMBER := 1.0;
1128
1129 BEGIN
1130
1131 SAVEPOINT Update_Row_Pvt ;
1132
1133 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1134 p_api_version,
1135 l_api_name,
1136 G_PKG_NAME )
1137 THEN
1138 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1139 END IF;
1140
1141
1142 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1143 FND_MSG_PUB.initialize ;
1144 END IF;
1145
1146 X_return_status := FND_API.G_RET_STS_SUCCESS ;
1147
1148 UPDATE IGC_CC_HEADER_HISTORY
1149 SET CC_Header_Id = p_CC_Header_Id,
1150 Parent_Header_Id = p_Parent_Header_Id,
1151 Org_Id = p_Org_id,
1152 CC_Type = p_CC_Type,
1153 CC_Num = p_CC_Num,
1154 CC_Ref_Num = p_CC_Ref_Num,
1155 CC_Version_Num = p_CC_Version_num,
1156 CC_Version_Action = p_CC_Version_Action,
1157 CC_State = p_CC_State,
1158 CC_ctrl_status = p_CC_ctrl_status ,
1159 CC_Encmbrnc_Status = p_CC_Encmbrnc_Status,
1160 CC_Apprvl_Status = p_CC_Apprvl_Status,
1161 Vendor_Id = p_Vendor_Id,
1162 Vendor_Site_Id = p_Vendor_Site_Id,
1163 Vendor_Contact_Id = p_Vendor_Contact_Id,
1164 Term_Id = p_Term_Id,
1165 Location_Id = p_Location_Id,
1166 Set_Of_Books_Id = p_Set_Of_Books_Id,
1167 CC_Acct_Date = p_CC_Acct_Date,
1168 CC_Desc = p_CC_Desc,
1169 CC_Start_Date = p_CC_Start_Date,
1170 CC_End_Date = p_CC_End_Date,
1171 CC_Owner_User_Id = p_CC_Owner_User_Id,
1172 CC_Preparer_User_Id = p_CC_Preparer_User_Id,
1173 Currency_Code = p_Currency_Code,
1174 Conversion_Type = p_Conversion_Type,
1175 Conversion_Date = p_Conversion_Date,
1176 Conversion_Rate = p_Conversion_Rate,
1177 Last_Update_Date = p_Last_Update_Date,
1178 Last_Updated_By = p_Last_Updated_By,
1179 Last_Update_Login = p_Last_Update_Login,
1180 Created_By = p_Created_By,
1181 Creation_Date = p_Creation_Date,
1182 Wf_Item_Type = p_Wf_Item_Type,
1183 Wf_Item_Key = p_Wf_Item_Key,
1184 CC_Current_User_Id = p_CC_Current_User_Id,
1185 Attribute1 = p_Attribute1,
1186 Attribute2 = p_Attribute2,
1187 Attribute3 = p_Attribute3,
1188 Attribute4 = p_Attribute4,
1189 Attribute5 = p_Attribute5,
1190 Attribute6 = p_Attribute6,
1191 Attribute7 = p_Attribute7,
1192 Attribute8 = p_Attribute8,
1193 Attribute9 = p_Attribute9,
1194 Attribute10 = p_Attribute10,
1195 Attribute11 = p_Attribute11,
1196 Attribute12 = p_Attribute12,
1197 Attribute13 = p_Attribute13,
1198 Attribute14 = p_Attribute14,
1199 Attribute15 = p_Attribute15,
1200 Context = p_Context,
1201 CC_Guarantee_Flag = p_CC_Guarantee_Flag
1202 WHERE rowid = p_Rowid;
1203
1204 IF (SQL%NOTFOUND) THEN
1205 Raise NO_DATA_FOUND;
1206 END IF;
1207
1208 IF FND_API.To_Boolean ( p_commit ) THEN
1209 COMMIT WORK;
1210 END IF;
1211
1212 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1213 p_data => X_msg_data );
1214
1215 EXCEPTION
1216
1217 WHEN FND_API.G_EXC_ERROR THEN
1218
1219 ROLLBACK TO Update_Row_Pvt ;
1220 X_return_status := FND_API.G_RET_STS_ERROR;
1221 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1222 p_data => X_msg_data );
1223
1224 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1225
1226 ROLLBACK TO Update_Row_Pvt ;
1227 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1229 p_data => X_msg_data );
1230
1231 WHEN OTHERS THEN
1232
1233 ROLLBACK TO Update_Row_Pvt ;
1234 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1235
1236 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1237 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1238 l_api_name);
1239 END if;
1240
1241 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1242 p_data => X_msg_data );
1243
1244
1245 END Update_Row;
1246
1247 /* ================================================================================
1248 PROCEDURE Update_Row
1249 ===============================================================================*/
1250
1251 PROCEDURE Update_Row(
1252 p_api_version IN NUMBER,
1253 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1254 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1258 X_msg_data OUT NOCOPY VARCHAR2,
1255 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1256 X_return_status OUT NOCOPY VARCHAR2,
1257 X_msg_count OUT NOCOPY NUMBER,
1259 p_Rowid IN OUT NOCOPY VARCHAR2,
1260 p_CC_Header_Id IGC_CC_HEADER_HISTORY.CC_Header_Id%TYPE,
1261 p_Org_id IGC_CC_HEADER_HISTORY.Org_id%TYPE,
1262 p_CC_Type IGC_CC_HEADER_HISTORY.CC_Type%TYPE,
1263 p_CC_Num IGC_CC_HEADER_HISTORY.CC_Num%TYPE,
1264 p_CC_Version_num IGC_CC_HEADER_HISTORY.CC_Version_Num%TYPE,
1265 p_CC_Version_Action IGC_CC_HEADER_HISTORY.CC_Version_Action%TYPE,
1266 p_CC_State IGC_CC_HEADER_HISTORY.CC_State%TYPE,
1267 p_Parent_Header_Id IGC_CC_HEADER_HISTORY.Parent_Header_Id%TYPE,
1268 p_CC_ctrl_status IGC_CC_HEADER_HISTORY.CC_ctrl_status%TYPE,
1269 p_CC_Encmbrnc_Status IGC_CC_HEADER_HISTORY.CC_Encmbrnc_Status%TYPE,
1270 p_CC_Apprvl_Status IGC_CC_HEADER_HISTORY.CC_Apprvl_Status%TYPE,
1271 p_Vendor_Id IGC_CC_HEADER_HISTORY.Vendor_Id%TYPE,
1272 p_Vendor_Site_Id IGC_CC_HEADER_HISTORY.Vendor_Site_Id%TYPE,
1273 p_Vendor_Contact_Id IGC_CC_HEADER_HISTORY.Vendor_Contact_Id%TYPE,
1274 p_Term_Id IGC_CC_HEADER_HISTORY.Term_Id%TYPE,
1275 p_Location_Id IGC_CC_HEADER_HISTORY.Location_Id%TYPE,
1276 p_Set_Of_Books_Id IGC_CC_HEADER_HISTORY.Set_Of_Books_Id%TYPE,
1277 p_CC_Acct_Date IGC_CC_HEADER_HISTORY.CC_Acct_Date%TYPE,
1278 p_CC_Desc IGC_CC_HEADER_HISTORY.CC_Desc%TYPE,
1279 p_CC_Start_Date IGC_CC_HEADER_HISTORY.CC_Start_Date%TYPE,
1280 p_CC_End_Date IGC_CC_HEADER_HISTORY.CC_End_Date%TYPE,
1281 p_CC_Owner_User_Id IGC_CC_HEADER_HISTORY.CC_Owner_User_Id%TYPE,
1282 p_CC_Preparer_User_Id IGC_CC_HEADER_HISTORY.CC_Preparer_User_Id%TYPE,
1283 p_Currency_Code IGC_CC_HEADER_HISTORY.Currency_Code%TYPE,
1284 p_Conversion_Type IGC_CC_HEADER_HISTORY.Conversion_Type%TYPE,
1285 p_Conversion_Date IGC_CC_HEADER_HISTORY.Conversion_Date%TYPE,
1286 p_Conversion_Rate IGC_CC_HEADER_HISTORY.Conversion_Rate%TYPE,
1287 p_Last_Update_Date IGC_CC_HEADER_HISTORY.Last_Update_Date%TYPE,
1288 p_Last_Updated_By IGC_CC_HEADER_HISTORY.Last_Updated_By%TYPE,
1289 p_Last_Update_Login IGC_CC_HEADER_HISTORY.Last_Update_Login%TYPE,
1290 p_Created_By IGC_CC_HEADER_HISTORY.Created_By%TYPE,
1291 p_Creation_Date IGC_CC_HEADER_HISTORY.Creation_Date%TYPE,
1292 p_Wf_Item_Type IGC_CC_HEADER_HISTORY.Wf_Item_Type%TYPE,
1293 p_Wf_Item_Key IGC_CC_HEADER_HISTORY.Wf_Item_Key%TYPE,
1294 p_CC_Current_User_Id IGC_CC_HEADERS.CC_Current_User_Id%TYPE,
1295 p_Attribute1 IGC_CC_HEADER_HISTORY.Attribute1%TYPE,
1296 p_Attribute2 IGC_CC_HEADER_HISTORY.Attribute2%TYPE,
1297 p_Attribute3 IGC_CC_HEADER_HISTORY.Attribute3%TYPE,
1298 p_Attribute4 IGC_CC_HEADER_HISTORY.Attribute4%TYPE,
1299 p_Attribute5 IGC_CC_HEADER_HISTORY.Attribute5%TYPE,
1300 p_Attribute6 IGC_CC_HEADER_HISTORY.Attribute6%TYPE,
1301 p_Attribute7 IGC_CC_HEADER_HISTORY.Attribute7%TYPE,
1302 p_Attribute8 IGC_CC_HEADER_HISTORY.Attribute8%TYPE,
1303 p_Attribute9 IGC_CC_HEADER_HISTORY.Attribute9%TYPE,
1304 p_Attribute10 IGC_CC_HEADER_HISTORY.Attribute10%TYPE,
1305 p_Attribute11 IGC_CC_HEADER_HISTORY.Attribute11%TYPE,
1306 p_Attribute12 IGC_CC_HEADER_HISTORY.Attribute12%TYPE,
1307 p_Attribute13 IGC_CC_HEADER_HISTORY.Attribute13%TYPE,
1308 p_Attribute14 IGC_CC_HEADER_HISTORY.Attribute14%TYPE,
1309 p_Attribute15 IGC_CC_HEADER_HISTORY.Attribute15%TYPE,
1310 p_Context IGC_CC_HEADER_HISTORY.Context%TYPE,
1311 p_CC_Guarantee_Flag IGC_CC_HEADER_HISTORY.CC_Guarantee_Flag%TYPE,
1312 G_FLAG IN OUT NOCOPY VARCHAR2
1313 ) IS
1314
1315 l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
1316 l_api_version CONSTANT NUMBER := 1.0;
1317
1318
1319 BEGIN
1320
1321 SAVEPOINT Update_Row_Pvt ;
1322
1323 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1324 p_api_version,
1325 l_api_name,
1326 G_PKG_NAME )
1327 THEN
1328 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1329 END IF;
1330
1331
1332 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1333 FND_MSG_PUB.initialize ;
1334 END IF;
1335
1336 X_return_status := FND_API.G_RET_STS_SUCCESS ;
1337
1338 UPDATE IGC_CC_HEADER_HISTORY
1339 SET CC_Header_Id = p_CC_Header_Id,
1340 Parent_Header_Id = p_Parent_Header_Id,
1341 Org_Id = p_Org_id,
1342 CC_Type = p_CC_Type,
1343 CC_Num = p_CC_Num,
1344 CC_Version_Num = p_CC_Version_num,
1345 CC_Version_Action = p_CC_Version_Action,
1346 CC_State = p_CC_State,
1347 CC_ctrl_status = p_CC_ctrl_status ,
1348 CC_Encmbrnc_Status = p_CC_Encmbrnc_Status,
1349 CC_Apprvl_Status = p_CC_Apprvl_Status,
1350 Vendor_Id = p_Vendor_Id,
1351 Vendor_Site_Id = p_Vendor_Site_Id,
1352 Vendor_Contact_Id = p_Vendor_Contact_Id,
1353 Term_Id = p_Term_Id,
1354 Location_Id = p_Location_Id,
1358 CC_Start_Date = p_CC_Start_Date,
1355 Set_Of_Books_Id = p_Set_Of_Books_Id,
1356 CC_Acct_Date = p_CC_Acct_Date,
1357 CC_Desc = p_CC_Desc,
1359 CC_End_Date = p_CC_End_Date,
1360 CC_Owner_User_Id = p_CC_Owner_User_Id,
1361 CC_Preparer_User_Id = p_CC_Preparer_User_Id,
1362 Currency_Code = p_Currency_Code,
1363 Conversion_Type = p_Conversion_Type,
1364 Conversion_Date = p_Conversion_Date,
1365 Conversion_Rate = p_Conversion_Rate,
1366 Last_Update_Date = p_Last_Update_Date,
1367 Last_Updated_By = p_Last_Updated_By,
1368 Last_Update_Login = p_Last_Update_Login,
1369 Created_By = p_Created_By,
1370 Creation_Date = p_Creation_Date,
1371 Wf_Item_Type = p_Wf_Item_Type,
1372 Wf_Item_Key = p_Wf_Item_Key,
1373 CC_Current_User_Id = p_CC_Current_User_Id,
1374 Attribute1 = p_Attribute1,
1375 Attribute2 = p_Attribute2,
1376 Attribute3 = p_Attribute3,
1377 Attribute4 = p_Attribute4,
1378 Attribute5 = p_Attribute5,
1379 Attribute6 = p_Attribute6,
1380 Attribute7 = p_Attribute7,
1381 Attribute8 = p_Attribute8,
1382 Attribute9 = p_Attribute9,
1383 Attribute10 = p_Attribute10,
1384 Attribute11 = p_Attribute11,
1385 Attribute12 = p_Attribute12,
1386 Attribute13 = p_Attribute13,
1387 Attribute14 = p_Attribute14,
1388 Attribute15 = p_Attribute15,
1389 Context = p_Context,
1390 CC_Guarantee_Flag = p_CC_Guarantee_Flag
1391 WHERE rowid = p_Rowid;
1392
1393 IF (SQL%NOTFOUND) THEN
1394 Raise NO_DATA_FOUND;
1395 END IF;
1396
1397 IF FND_API.To_Boolean ( p_commit ) THEN
1398 COMMIT WORK;
1399 END iF;
1400
1401 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1402 p_data => X_msg_data );
1403
1404 EXCEPTION
1405
1406 WHEN FND_API.G_EXC_ERROR THEN
1407
1408 ROLLBACK TO Update_Row_Pvt ;
1409 X_return_status := FND_API.G_RET_STS_ERROR;
1410 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1411 p_data => X_msg_data );
1412
1413 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1414
1415 ROLLBACK TO Update_Row_Pvt ;
1416 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1418 p_data => X_msg_data );
1419
1420 WHEN OTHERS THEN
1421
1422 ROLLBACK TO Update_Row_Pvt ;
1423 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424
1425 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1426 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1427 l_api_name);
1428 END if;
1429
1430 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1431 p_data => X_msg_data );
1432
1433
1434 END Update_Row;
1435
1436 /* ================================================================================
1437 PROCEDURE Delete_Row
1438 ===============================================================================*/
1439
1440 PROCEDURE Delete_Row(
1441 p_api_version IN NUMBER,
1442 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1443 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1444 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1445 X_return_status OUT NOCOPY VARCHAR2,
1446 X_msg_count OUT NOCOPY NUMBER,
1447 X_msg_data OUT NOCOPY VARCHAR2,
1448 p_Rowid VARCHAR2,
1449 G_FLAG IN OUT NOCOPY VARCHAR2
1450 ) IS
1451
1452 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
1453 l_api_version CONSTANT NUMBER := 1.0;
1454 l_return_status VARCHAR2(1) ;
1455 l_msg_count NUMBER ;
1456 l_msg_data VARCHAR2(2000) ;
1457
1458 BEGIN
1459
1460 SAVEPOINT Delete_Row_Pvt ;
1461
1462 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1463 p_api_version,
1464 l_api_name,
1465 G_PKG_NAME )
1466 THEN
1467 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1468 END IF;
1469
1470 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1471 FND_MSG_PUB.initialize ;
1472 END IF ;
1473
1474 X_return_status := FND_API.G_RET_STS_SUCCESS ;
1475
1476 DELETE
1477 FROM IGC_CC_HEADER_HISTORY
1478 WHERE rowid = p_Rowid;
1479
1480 IF (SQL%NOTFOUND) THEN
1481 Raise NO_DATA_FOUND;
1482 END IF;
1483
1484 IF FND_API.To_Boolean ( p_commit ) THEN
1485 COMMIT WORK;
1486 END iF;
1487
1488 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1489 p_data => X_msg_data );
1490
1491 EXCEPTION
1492
1493 WHEN FND_API.G_EXC_ERROR THEN
1494
1495 ROLLBACK TO Delete_Row_Pvt ;
1496 X_return_status := FND_API.G_RET_STS_ERROR;
1497 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1498 p_data => X_msg_data );
1499
1503 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1500 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1501
1502 ROLLBACK TO Delete_Row_Pvt ;
1504 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1505 p_data => X_msg_data );
1506
1507 WHEN OTHERS THEN
1508
1509 ROLLBACK TO Delete_Row_Pvt ;
1510 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1511
1512 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1513 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1514 l_api_name);
1515 END if;
1516
1517 FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
1518 p_data => X_msg_data );
1519
1520 END Delete_Row;
1521
1522
1523
1524 END IGC_CC_HEADER_HISTORY_PKG;