[Home] [Help]
3:
4: -- Note:
5: -- SETNAME if used on a namein that is not associated with a message
6: -- in database, then namein would become the message itself
7: -- Can use FND_MSG_PUB.get and ask it not to perform the translation for
8: -- recipient instance to send back message to initiator
9: -- Special handling when validating invoice_fule flag for 'M'
10: -- Not a concern anymore. BC would create a function to get the
11: -- invoicing rule by trx type and le and trx entry page and webadi
82:
83: IF( l_assignment_count = 0) then
84: Set_Return_Status(x_orig_status => x_return_status,
85: p_new_status => FND_API.G_RET_STS_ERROR);
86: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
87: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_ORG_ASSIGNMENT');
88: FND_MESSAGE.SET_TOKEN('PARTY_NAME', l_party_name);
89: FND_MSG_PUB.Add;
90: END IF;
85: p_new_status => FND_API.G_RET_STS_ERROR);
86: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
87: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_ORG_ASSIGNMENT');
88: FND_MESSAGE.SET_TOKEN('PARTY_NAME', l_party_name);
89: FND_MSG_PUB.Add;
90: END IF;
91: END IF;
92:
93: EXCEPTION
94: WHEN NO_DATA_FOUND THEN
95:
96: Set_Return_Status(x_orig_status => x_return_status,
97: p_new_status => FND_API.G_RET_STS_ERROR);
98: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
99: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_ORG_ASSIGNMENT');
100: FND_MESSAGE.SET_TOKEN('PARTY_NAME', l_party_name);
101: FND_MSG_PUB.Add;
102: END IF;
97: p_new_status => FND_API.G_RET_STS_ERROR);
98: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
99: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_ORG_ASSIGNMENT');
100: FND_MESSAGE.SET_TOKEN('PARTY_NAME', l_party_name);
101: FND_MSG_PUB.Add;
102: END IF;
103:
104: END;
105:
137: END IF;
138: IF l_count > 1 THEN
139: FND_MESSAGE.SET_NAME('FUN', 'FUN_DUPL_TRX_NUM');
140: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(J).trx_number);
141: FND_MSG_PUB.Add;
142: Set_Return_Status(x_orig_status => x_return_status,
143: p_new_status => FND_API.G_RET_STS_ERROR);
144: EXIT;
145: END IF;
169: OPEN batch_num_csr;
170: FETCH batch_num_csr INTO l_count;
171: CLOSE batch_num_csr;
172: IF l_count > 0 OR p_batch_number IS NULL THEN
173: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
174: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_BATCH_NUM');
175: FND_MSG_PUB.Add;
176: END IF;
177: Set_Return_Status(x_orig_status => x_return_status,
171: CLOSE batch_num_csr;
172: IF l_count > 0 OR p_batch_number IS NULL THEN
173: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
174: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_BATCH_NUM');
175: FND_MSG_PUB.Add;
176: END IF;
177: Set_Return_Status(x_orig_status => x_return_status,
178: p_new_status => FND_API.G_RET_STS_ERROR);
179: END IF;
290: IF l_return_status = 'N' THEN
291: --Bug 5144930. Added new error messages to display the start date and end date.
292: FUN_TCA_PKG.get_ic_org_valid_dates(p_party_id,l_le_start_dt, l_le_end_dt);
293: IF p_type = 'I' THEN
294: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
295: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
296: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
297: ELSE
298: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR_DATE');
298: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR_DATE');
299: FND_MESSAGE.SET_TOKEN('P_START_DATE',to_char(l_le_start_dt));
300: FND_MESSAGE.SET_TOKEN('P_END_DATE',to_char(l_le_end_dt));
301: END IF;
302: FND_MSG_PUB.Add;
303: END IF;
304: ELSE
305: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
306: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
301: END IF;
302: FND_MSG_PUB.Add;
303: END IF;
304: ELSE
305: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
306: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
307: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
308: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
309: ELSE
311: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
312: FND_MESSAGE.SET_TOKEN('P_START_DATE',to_char(l_le_start_dt));
313: FND_MESSAGE.SET_TOKEN('P_END_DATE',to_char(l_le_end_dt));
314: END IF;
315: FND_MSG_PUB.Add;
316: END IF;
317: END IF;
318:
319: Set_Return_Status(x_orig_status => x_return_status,
325: OPEN legal_entity_csr;
326: FETCH legal_entity_csr INTO l_le_start_dt, l_le_end_dt;
327:
328: IF legal_entity_csr%NOTFOUND THEN
329: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
330: IF p_type = 'I' THEN
331: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
332: FND_MSG_PUB.Add;
333: ELSE
328: IF legal_entity_csr%NOTFOUND THEN
329: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
330: IF p_type = 'I' THEN
331: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
332: FND_MSG_PUB.Add;
333: ELSE
334: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
335: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
336: FND_MSG_PUB.Add;
332: FND_MSG_PUB.Add;
333: ELSE
334: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
335: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
336: FND_MSG_PUB.Add;
337: END IF;
338: END IF;
339: Set_Return_Status(x_orig_status => x_return_status,
340: p_new_status => FND_API.G_RET_STS_ERROR);
344:
345: -- Bug 3173783
346: IF NOT ( p_batch_date BETWEEN Nvl(l_le_start_dt, p_batch_date) AND Nvl(l_le_end_dt, p_batch_date))
347: THEN
348: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
349: IF p_type = 'I' THEN
350: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_INIT_LE');
351: FND_MSG_PUB.Add;
352: ELSE
347: THEN
348: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
349: IF p_type = 'I' THEN
350: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_INIT_LE');
351: FND_MSG_PUB.Add;
352: ELSE
353: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_RECI_LE');
354: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_trx_number);
355: FND_MSG_PUB.Add;
351: FND_MSG_PUB.Add;
352: ELSE
353: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_RECI_LE');
354: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_trx_number);
355: FND_MSG_PUB.Add;
356: END IF;
357: END IF;
358: Set_Return_Status(x_orig_status => x_return_status,
359: p_new_status => FND_API.G_RET_STS_ERROR);
362:
363: IF p_local = 'N' THEN
364: l_msr := Fun_Tca_Pkg.Get_System_Reference(p_party_id);
365: IF l_msr IS NULL THEN
366: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
367: FND_MESSAGE.SET_NAME('FUN', 'FUN_PARTY_NO_MSR');
368: FND_MSG_PUB.Add;
369: END IF;
370: Set_Return_Status(x_orig_status => x_return_status,
364: l_msr := Fun_Tca_Pkg.Get_System_Reference(p_party_id);
365: IF l_msr IS NULL THEN
366: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
367: FND_MESSAGE.SET_NAME('FUN', 'FUN_PARTY_NO_MSR');
368: FND_MSG_PUB.Add;
369: END IF;
370: Set_Return_Status(x_orig_status => x_return_status,
371: p_new_status => FND_API.G_RET_STS_ERROR);
372: END IF;
374:
375: Debug('IS_PARTY_VALID(-)');
376: EXCEPTION WHEN OTHERS THEN -- Problem here: Remove check
377: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_PARTY_VALID');
378: FND_MSG_PUB.ADD;
379:
380: END;
381:
382:
442:
443: IF (p_trx_amount_cr <> l_dist_total_dr OR
444: p_trx_amount_dr <> l_dist_total_cr )
445: THEN
446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
447: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INI_HDR_DIST_MISMATCH');
448: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
449: FND_MSG_PUB.Add;
450: END IF;
445: THEN
446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
447: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INI_HDR_DIST_MISMATCH');
448: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
449: FND_MSG_PUB.Add;
450: END IF;
451: Set_Return_Status(x_orig_status => x_return_status,
452: p_new_status => FND_API.G_RET_STS_ERROR);
453: END IF;
453: END IF;
454:
455: IF l_dist_cr_type = l_dist_dr_type
456: THEN
457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
458: THEN
459: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INVALID_DRCR_DIST');
460: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
461: FND_MSG_PUB.Add;
457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
458: THEN
459: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INVALID_DRCR_DIST');
460: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
461: FND_MSG_PUB.Add;
462: END IF;
463: Set_Return_Status(x_orig_status => x_return_status,
464: p_new_status => FND_API.G_RET_STS_ERROR);
465: END IF;
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level
477: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level
477: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: FND_MSG_PUB.Add_Exc_Msg
480: ( G_PKG_NAME ,
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level
477: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: FND_MSG_PUB.Add_Exc_Msg
480: ( G_PKG_NAME ,
481: l_api_name
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level
477: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: FND_MSG_PUB.Add_Exc_Msg
480: ( G_PKG_NAME ,
481: l_api_name
482: );
483: END IF;
520: p_trx_date,
521: l_conv_type,
522: l_min_amt)
523: THEN
524: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
525: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_LINE_AMT_LESSTN_MIN');
526: FND_MESSAGE.SET_TOKEN('MIN_TRX_AMT', l_min_curr_code||' '||l_min_amt);
527: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
528: FND_MSG_PUB.Add;
524: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
525: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_LINE_AMT_LESSTN_MIN');
526: FND_MESSAGE.SET_TOKEN('MIN_TRX_AMT', l_min_curr_code||' '||l_min_amt);
527: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
528: FND_MSG_PUB.Add;
529: END IF;
530: Set_Return_Status(x_orig_status => x_return_status,
531: p_new_status => FND_API.G_RET_STS_ERROR);
532: END IF;
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR ;
536:
537: WHEN gl_currency_api.NO_RATE THEN
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
539: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
540: FND_MSG_PUB.ADD;
541: END IF;
542: Set_Return_Status(x_orig_status => x_return_status,
536:
537: WHEN gl_currency_api.NO_RATE THEN
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
539: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
540: FND_MSG_PUB.ADD;
541: END IF;
542: Set_Return_Status(x_orig_status => x_return_status,
543: p_new_status => FND_API.G_RET_STS_ERROR);
544: x_return_status := FND_API.G_RET_STS_ERROR ;
543: p_new_status => FND_API.G_RET_STS_ERROR);
544: x_return_status := FND_API.G_RET_STS_ERROR ;
545:
546: WHEN gl_currency_api.INVALID_CURRENCY THEN
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
549: FND_MSG_PUB.ADD;
550: END IF;
551: Set_Return_Status(x_orig_status => x_return_status,
545:
546: WHEN gl_currency_api.INVALID_CURRENCY THEN
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
549: FND_MSG_PUB.ADD;
550: END IF;
551: Set_Return_Status(x_orig_status => x_return_status,
552: p_new_status => FND_API.G_RET_STS_ERROR);
553: x_return_status := FND_API.G_RET_STS_ERROR ;
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: WHEN OTHERS THEN
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
557: WHEN OTHERS THEN
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
566: l_api_name
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
566: l_api_name
567: );
568: END IF;--Bug 3603338
653: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
654: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
655: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
656: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
657: FND_MSG_PUB.Add;
658: Set_Return_Status(x_orig_status => x_return_status,
659: p_new_status => FND_API.G_RET_STS_ERROR);
660: END IF;
661: END IF;
661: END IF;
662: Debug('IS_CCID_VALID(-)');
663: EXCEPTION
664: WHEN NO_DATA_FOUND THEN
665: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
666: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
667: FND_MSG_PUB.Add;
668: END IF;
669:
663: EXCEPTION
664: WHEN NO_DATA_FOUND THEN
665: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
666: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
667: FND_MSG_PUB.Add;
668: END IF;
669:
670:
671: -- David Haimes 19 March 2004
699: l_rows_processed := dbms_sql.execute(l_cur_hdl);
700: IF dbms_sql.fetch_rows(l_cur_hdl) > 0 THEN
701: dbms_sql.column_value(l_cur_hdl, 1, l_bal_seg_value);
702: ELSE
703: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
704: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
705: FND_MSG_PUB.Add;
706: END IF;
707: Set_Return_Status(x_orig_status => x_return_status,
701: dbms_sql.column_value(l_cur_hdl, 1, l_bal_seg_value);
702: ELSE
703: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
704: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
705: FND_MSG_PUB.Add;
706: END IF;
707: Set_Return_Status(x_orig_status => x_return_status,
708: p_new_status => FND_API.G_RET_STS_ERROR);
709: END IF;
710: dbms_sql.close_cursor(l_cur_hdl); -- close cursor
711: OPEN bsv_csr;
712: FETCH bsv_csr INTO l_count;
713: IF l_count < 1 THEN
714: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN
715: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
716: FND_MSG_PUB.Add;
717: END IF;
718: Set_Return_Status(x_orig_status => x_return_status,
712: FETCH bsv_csr INTO l_count;
713: IF l_count < 1 THEN
714: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN
715: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
716: FND_MSG_PUB.Add;
717: END IF;
718: Set_Return_Status(x_orig_status => x_return_status,
719: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);
720: END IF;
721: CLOSE bsv_csr;
722: Debug('IS_CCID_VALID(-)');
723: EXCEPTION
724: WHEN OTHERS THEN
725: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
726: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
727: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
728: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
729: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
727: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
728: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
729: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
730: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
731: FND_MSG_PUB.Add;
732: END IF;
733: */
734: END;
735:
807: END LOOP;
808: END IF;
809: IF (l_pay_dist_total_cr <> l_dist_line_total_dr OR
810: l_pay_dist_total_dr <> l_dist_line_total_cr) THEN
811: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
812: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
813: FND_MSG_PUB.Add;
814: END IF;
815: Set_Return_Status(x_orig_status => x_return_status,
809: IF (l_pay_dist_total_cr <> l_dist_line_total_dr OR
810: l_pay_dist_total_dr <> l_dist_line_total_cr) THEN
811: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
812: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
813: FND_MSG_PUB.Add;
814: END IF;
815: Set_Return_Status(x_orig_status => x_return_status,
816: p_new_status => FND_API.G_RET_STS_ERROR);
817: END IF;
818: IF l_pay_dist_cr_type = l_pay_dist_dr_type OR
819: l_dist_lines_cr_type = l_dist_lines_dr_type OR
820: l_pay_dist_pos_type = l_pay_dist_neg_type OR
821: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
822: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
823: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
824: FND_MSG_PUB.Add;
825: END IF;
826: Set_Return_Status(x_orig_status => x_return_status,
820: l_pay_dist_pos_type = l_pay_dist_neg_type OR
821: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
822: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
823: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
824: FND_MSG_PUB.Add;
825: END IF;
826: Set_Return_Status(x_orig_status => x_return_status,
827: p_new_status => FND_API.G_RET_STS_ERROR);
828: END IF;
901: END LOOP;
902: END IF;
903: IF (l_init_dist_total_cr <> l_dist_line_total_dr OR
904: l_init_dist_total_dr <> l_dist_line_total_cr) THEN
905: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
906: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
907: FND_MSG_PUB.Add;
908: END IF;
909: Set_Return_Status(x_orig_status => x_return_status,
903: IF (l_init_dist_total_cr <> l_dist_line_total_dr OR
904: l_init_dist_total_dr <> l_dist_line_total_cr) THEN
905: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
906: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
907: FND_MSG_PUB.Add;
908: END IF;
909: Set_Return_Status(x_orig_status => x_return_status,
910: p_new_status => FND_API.G_RET_STS_ERROR);
911: END IF;
912: IF l_init_dist_cr_type = l_init_dist_dr_type OR
913: l_dist_lines_cr_type = l_dist_lines_dr_type OR
914: l_init_dist_pos_type = l_init_dist_neg_type OR
915: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
916: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
917: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
918: FND_MSG_PUB.Add;
919: END IF;
920: Set_Return_Status(x_orig_status => x_return_status,
914: l_init_dist_pos_type = l_init_dist_neg_type OR
915: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
916: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
917: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
918: FND_MSG_PUB.Add;
919: END IF;
920: Set_Return_Status(x_orig_status => x_return_status,
921: p_new_status => FND_API.G_RET_STS_ERROR);
922: END IF;
1016:
1017: IF (p_validate_dist = 'Y') AND (l_trx_total_cr <> l_init_dist_total_dr OR
1018: l_trx_total_dr <> l_init_dist_total_cr )
1019: THEN
1020: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1021: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
1022: FND_MSG_PUB.Add;
1023: END IF;
1024: Set_Return_Status(x_orig_status => x_return_status,
1018: l_trx_total_dr <> l_init_dist_total_cr )
1019: THEN
1020: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1021: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
1022: FND_MSG_PUB.Add;
1023: END IF;
1024: Set_Return_Status(x_orig_status => x_return_status,
1025: p_new_status => FND_API.G_RET_STS_ERROR);
1026: END IF;
1027:
1028: IF l_trx_cr_type = l_trx_dr_type OR
1029: l_trx_pos_type = l_trx_neg_type
1030: THEN
1031: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1032: THEN
1033: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
1034: FND_MSG_PUB.Add;
1035: END IF;
1030: THEN
1031: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1032: THEN
1033: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
1034: FND_MSG_PUB.Add;
1035: END IF;
1036: Set_Return_Status(x_orig_status => x_return_status,
1037: p_new_status => FND_API.G_RET_STS_ERROR);
1038: END IF;
1074: l_default_currency := Fun_System_Options_Pkg.Get_Default_Currency;
1075: l_conv_type := Fun_System_Options_Pkg.Get_Exchg_Rate_Type;
1076: IF l_default_currency IS NOT NULL THEN
1077: IF p_curr_code <> l_default_currency THEN
1078: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1079: FND_MESSAGE.SET_NAME('FUN', 'FUN_CUR_NOTEQUAL_ENTRD_CUR');
1080: FND_MSG_PUB.Add;
1081: END IF;
1082: Set_Return_Status(x_orig_status => x_return_status,
1076: IF l_default_currency IS NOT NULL THEN
1077: IF p_curr_code <> l_default_currency THEN
1078: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1079: FND_MESSAGE.SET_NAME('FUN', 'FUN_CUR_NOTEQUAL_ENTRD_CUR');
1080: FND_MSG_PUB.Add;
1081: END IF;
1082: Set_Return_Status(x_orig_status => x_return_status,
1083: p_new_status => FND_API.G_RET_STS_ERROR);
1084: RETURN;
1088: OPEN currency_csr; -- bug 5160257
1089: FETCH currency_csr INTO l_count;
1090: CLOSE currency_csr;
1091: IF l_count < 1 THEN
1092: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1093: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1094: FND_MSG_PUB.Add;
1095: END IF;
1096: Set_Return_Status(x_orig_status => x_return_status,
1090: CLOSE currency_csr;
1091: IF l_count < 1 THEN
1092: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1093: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1094: FND_MSG_PUB.Add;
1095: END IF;
1096: Set_Return_Status(x_orig_status => x_return_status,
1097: p_new_status => FND_API.G_RET_STS_ERROR);
1098: END IF;
1100: OPEN currency_rate_csr;
1101: FETCH currency_rate_csr INTO l_count;
1102: CLOSE currency_rate_csr;
1103: IF l_count < 1 THEN
1104: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1105: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1106: FND_MSG_PUB.Add;
1107: END IF;
1108: Set_Return_Status(x_orig_status => x_return_status,
1102: CLOSE currency_rate_csr;
1103: IF l_count < 1 THEN
1104: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1105: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1106: FND_MSG_PUB.Add;
1107: END IF;
1108: Set_Return_Status(x_orig_status => x_return_status,
1109: p_new_status => FND_API.G_RET_STS_ERROR);
1110: END IF;
1111: */
1112: l_rate := GL_CURRENCY_API.Get_Rate_Sql(p_ledger_id, p_curr_code, p_trx_date, l_conv_type);
1113:
1114: IF l_rate = -1 THEN
1115: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1116: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1117: FND_MSG_PUB.Add;
1118: END IF;
1119: ELSIF l_rate = -2 THEN
1113:
1114: IF l_rate = -1 THEN
1115: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1116: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1117: FND_MSG_PUB.Add;
1118: END IF;
1119: ELSIF l_rate = -2 THEN
1120: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1121: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1116: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1117: FND_MSG_PUB.Add;
1118: END IF;
1119: ELSIF l_rate = -2 THEN
1120: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1121: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1122: FND_MSG_PUB.Add;
1123: END IF;
1124: END IF;
1118: END IF;
1119: ELSIF l_rate = -2 THEN
1120: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1121: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1122: FND_MSG_PUB.Add;
1123: END IF;
1124: END IF;
1125: Debug('IS_CURR_FLD_VALID(-)');
1126: END;
1141: -- 7.2.2.1
1142: l_count := p_trx_tbl.COUNT;
1143: WHILE l_count <> 0 AND i <= l_count LOOP
1144: IF p_from_le_id = p_trx_tbl(i).to_le_id THEN
1145: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1146: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_IC_RELATIONSHIP');
1147: FND_MSG_PUB.Add;
1148: END IF;
1149: Set_Return_Status(x_orig_status => x_return_status,
1143: WHILE l_count <> 0 AND i <= l_count LOOP
1144: IF p_from_le_id = p_trx_tbl(i).to_le_id THEN
1145: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1146: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_IC_RELATIONSHIP');
1147: FND_MSG_PUB.Add;
1148: END IF;
1149: Set_Return_Status(x_orig_status => x_return_status,
1150: p_new_status => FND_API.G_RET_STS_ERROR);
1151: END IF;
1170: WHILE l_count <> 0 AND i <= l_count LOOP
1171: WHILE l_count <> 0 AND j <= l_count LOOP
1172: IF p_trx_tbl(i).recipient_id = p_initiator_id
1173: OR p_trx_tbl(i).recipient_id = p_trx_tbl(j).recipient_id THEN
1174: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1175: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_RECP');
1176: FND_MSG_PUB.Add;
1177: END IF;
1178: Set_Return_Status(x_orig_status => x_return_status,
1172: IF p_trx_tbl(i).recipient_id = p_initiator_id
1173: OR p_trx_tbl(i).recipient_id = p_trx_tbl(j).recipient_id THEN
1174: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1175: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_RECP');
1176: FND_MSG_PUB.Add;
1177: END IF;
1178: Set_Return_Status(x_orig_status => x_return_status,
1179: p_new_status => FND_API.G_RET_STS_ERROR);
1180: END IF;
1201: l_trx_type_code,
1202: l_need_invoice,
1203: l_enabled);
1204: IF l_enabled = 'N' THEN
1205: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1206: FND_MESSAGE.SET_NAME('FUN','FUN_API_INVALID_TRX_TYPE');
1207: FND_MSG_PUB.Add;
1208: END IF;
1209: Set_Return_Status(x_orig_status => x_return_status,
1203: l_enabled);
1204: IF l_enabled = 'N' THEN
1205: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1206: FND_MESSAGE.SET_NAME('FUN','FUN_API_INVALID_TRX_TYPE');
1207: FND_MSG_PUB.Add;
1208: END IF;
1209: Set_Return_Status(x_orig_status => x_return_status,
1210: p_new_status => FND_API.G_RET_STS_ERROR);
1211: END IF;
1252: OPEN period_open_csr;
1253: FETCH period_open_csr INTO l_count;
1254: CLOSE period_open_csr;
1255: IF l_count < 1 THEN
1256: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1257: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1258: FND_MSG_PUB.Add;
1259: END IF;
1260: Set_Return_Status(x_orig_status => x_return_status,
1254: CLOSE period_open_csr;
1255: IF l_count < 1 THEN
1256: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1257: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1258: FND_MSG_PUB.Add;
1259: END IF;
1260: Set_Return_Status(x_orig_status => x_return_status,
1261: p_new_status => FND_API.G_RET_STS_ERROR);
1262: END IF;
1262: END IF;
1263: */
1264: l_result := fun_period_status_pkg.get_fun_prd_status(p_gl_date, p_trx_type_id);
1265: IF l_result <> 'O' THEN
1266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: Set_Return_Status(x_orig_status => x_return_status,
1264: l_result := fun_period_status_pkg.get_fun_prd_status(p_gl_date, p_trx_type_id);
1265: IF l_result <> 'O' THEN
1266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: Set_Return_Status(x_orig_status => x_return_status,
1271: p_new_status => FND_API.G_RET_STS_ERROR);
1272: END IF;
1315: END IF;
1316:
1317: -- Initialize message list if p_init_msg_list is set to TRUE.
1318: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE )) THEN
1319: FND_MSG_PUB.initialize;
1320: END IF;
1321:
1322: -- Initialize API return status to success
1323: x_return_status := FND_API.G_RET_STS_SUCCESS;
1337: p_batch_rec.gl_date IS NULL OR
1338: p_batch_rec.batch_date IS NULL) THEN
1339: Set_Return_Status(x_orig_status => x_return_status,
1340: p_new_status => FND_API.G_RET_STS_ERROR);
1341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1342: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1343: FND_MSG_PUB.Add;
1344: END IF;
1345: END IF;
1339: Set_Return_Status(x_orig_status => x_return_status,
1340: p_new_status => FND_API.G_RET_STS_ERROR);
1341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1342: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1343: FND_MSG_PUB.Add;
1344: END IF;
1345: END IF;
1346: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1347: Is_Batch_Num_Unique(x_return_status => l_return_status,
1413: if(l_intercompany_exception = 'N') THEN
1414:
1415: FND_MESSAGE.SET_NAME('FUN', 'FUN_INTERCOMPANY_EXCEPTION');
1416: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1417: FND_MSG_PUB.Add;
1418: Set_Return_Status(x_orig_status => x_return_status,
1419: p_new_status => FND_API.G_RET_STS_ERROR);
1420: end if;
1421: /* end of bug 4724672 */
1454: /* If invoicing is enabled then validate the amount against
1455: the creation sign */
1456: IF l_invoicing_rule = 'Y' THEN
1457: IF l_creation_sign IS NULL THEN
1458: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1459: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
1460: FND_MSG_PUB.Add;
1461: END IF;
1462: Set_Return_Status(x_orig_status => x_return_status,
1456: IF l_invoicing_rule = 'Y' THEN
1457: IF l_creation_sign IS NULL THEN
1458: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1459: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
1460: FND_MSG_PUB.Add;
1461: END IF;
1462: Set_Return_Status(x_orig_status => x_return_status,
1463: p_new_status => FND_API.G_RET_STS_ERROR);
1464: EXIT;
1466: /* If creation sign is positive and amount entered is
1467: negative, then throw an error*/
1468: IF (p_trx_tbl(i).init_amount_cr > 0 or p_trx_tbl(i).init_amount_dr < 0)
1469: and l_creation_sign = 1 THEN
1470: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1471: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_POS_AMT');
1472: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1473: FND_MSG_PUB.Add;
1474: END IF;
1469: and l_creation_sign = 1 THEN
1470: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1471: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_POS_AMT');
1472: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1473: FND_MSG_PUB.Add;
1474: END IF;
1475: Set_Return_Status(x_orig_status => x_return_status,
1476: p_new_status => FND_API.G_RET_STS_ERROR);
1477: END IF;
1478: /* If creation sign is negative and amount entered is
1479: positive, then throw an error*/
1480: IF (p_trx_tbl(i).init_amount_dr > 0 or p_trx_tbl(i).init_amount_cr < 0)
1481: and l_creation_sign = -1 THEN
1482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1483: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_NEG_AMT');
1484: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1485: FND_MSG_PUB.Add;
1486: END IF;
1481: and l_creation_sign = -1 THEN
1482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1483: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_NEG_AMT');
1484: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1485: FND_MSG_PUB.Add;
1486: END IF;
1487: Set_Return_Status(x_orig_status => x_return_status,
1488: p_new_status => FND_API.G_RET_STS_ERROR);
1489: END IF;
1523:
1524: -- 7.2.2.6 Note: Do not need to check at least 1 dist line
1525: -- as we check total trx amounts = total dist amounts
1526: IF p_trx_tbl.count < 1 THEN
1527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1528: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_RECI_LINE_NOT_FOUND');
1529: -- Problem: Double check with msg repository
1530: FND_MSG_PUB.Add;
1531: END IF;
1526: IF p_trx_tbl.count < 1 THEN
1527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1528: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_RECI_LINE_NOT_FOUND');
1529: -- Problem: Double check with msg repository
1530: FND_MSG_PUB.Add;
1531: END IF;
1532: Set_Return_Status(x_orig_status => x_return_status,
1533: p_new_status => FND_API.G_RET_STS_ERROR);
1534: END IF;
1565:
1566: Debug('INIT_BATCH_VALIDATE(-)');
1567: -- End of API body.
1568: -- Standard call to get message count and if count is 1, get message info.
1569: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1570: p_data => x_msg_data);
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1570: p_data => x_msg_data);
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1583: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1584: END IF;
1585: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1586: p_data => x_msg_data);
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1583: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1584: END IF;
1585: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1586: p_data => x_msg_data);
1587:
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1583: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1584: END IF;
1585: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1586: p_data => x_msg_data);
1587:
1588:
1589: END Init_Batch_Validate;
1620: END IF;
1621:
1622: -- Initialize message list if p_init_msg_list is set to TRUE.
1623: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
1624: FND_MSG_PUB.initialize;
1625: END IF;
1626:
1627: -- Initialize API return status to success
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1633: --check trx number
1634: IF p_trx_rec.trx_number IS NULL THEN
1635: Set_Return_Status(x_orig_status => x_return_status,
1636: p_new_status => FND_API.G_RET_STS_ERROR);
1637: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1638: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_NUM_NULL');
1639: FND_MSG_PUB.Add;
1640: END IF;
1641: END IF;
1635: Set_Return_Status(x_orig_status => x_return_status,
1636: p_new_status => FND_API.G_RET_STS_ERROR);
1637: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1638: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_NUM_NULL');
1639: FND_MSG_PUB.Add;
1640: END IF;
1641: END IF;
1642: --Bug No. 5307996. Check for valid Currency code.
1643: IF (default_currency_code is not null AND default_currency_code <> p_currency_code) THEN
1643: IF (default_currency_code is not null AND default_currency_code <> p_currency_code) THEN
1644: --Bug No. 6311049.
1645: Set_Return_Status(x_orig_status => x_return_status,
1646: p_new_status => FND_API.G_RET_STS_ERROR);
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1648: FND_MESSAGE.SET_NAME('FUN', 'FUN_ADI_INVALID_CURRENCY');
1649: FND_MESSAGE.SET_TOKEN('CURRENCY', default_currency_code);
1650: FND_MSG_PUB.Add;
1651: END IF;
1646: p_new_status => FND_API.G_RET_STS_ERROR);
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1648: FND_MESSAGE.SET_NAME('FUN', 'FUN_ADI_INVALID_CURRENCY');
1649: FND_MESSAGE.SET_TOKEN('CURRENCY', default_currency_code);
1650: FND_MSG_PUB.Add;
1651: END IF;
1652: END IF;
1653: --End of Bug No. 5307996.
1654: --7.2.1.2 Validate line number, recipient id, line amount, header amount is null
1662: p_trx_rec.init_amount_dr IS NOT NULL AND
1663: p_trx_rec.init_amount_dr <> 0)) THEN
1664: Set_Return_Status(x_orig_status => x_return_status,
1665: p_new_status => FND_API.G_RET_STS_ERROR);
1666: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1667: IF(p_trx_rec.init_amount_dr=0) THEN
1668: FND_MESSAGE.SET_NAME('FUN', 'FUN_NON_ZERO_AMOUNT');
1669: FND_MSG_PUB.Add;
1670: ELSE
1665: p_new_status => FND_API.G_RET_STS_ERROR);
1666: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1667: IF(p_trx_rec.init_amount_dr=0) THEN
1668: FND_MESSAGE.SET_NAME('FUN', 'FUN_NON_ZERO_AMOUNT');
1669: FND_MSG_PUB.Add;
1670: ELSE
1671: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1672: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_rec.trx_number);
1673: FND_MSG_PUB.Add;
1669: FND_MSG_PUB.Add;
1670: ELSE
1671: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1672: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_rec.trx_number);
1673: FND_MSG_PUB.Add;
1674: END IF;
1675: END IF;
1676: END IF;
1677:
1678: --check initiator and recipeint are not same
1679: IF p_trx_rec.recipient_id=p_trx_rec.initiator_id THEN
1680: Set_Return_Status(x_orig_status => x_return_status,
1681: p_new_status => FND_API.G_RET_STS_ERROR);
1682: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1683: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CHANGE_INITIATOR');
1684: FND_MSG_PUB.Add;
1685: END IF;
1686: END IF;
1680: Set_Return_Status(x_orig_status => x_return_status,
1681: p_new_status => FND_API.G_RET_STS_ERROR);
1682: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1683: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CHANGE_INITIATOR');
1684: FND_MSG_PUB.Add;
1685: END IF;
1686: END IF;
1687:
1688: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1738: p_trx_date => p_gl_date);
1739:
1740: IF l_return_status like 'L' THEN -- 6145670
1741: FND_MESSAGE.SET_NAME('FUN', 'FND_INTER_TRX_GLDATE');
1742: FND_MSG_PUB.Add;
1743: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
1744:
1745: END IF; -- 6145670
1746:
1769:
1770: Debug('INIT_TRX_VALIDATE(-)');
1771: -- End of API body.
1772: -- Standard call to get message count and if count is 1, get message info.
1773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1774: p_data => x_msg_data);
1775: EXCEPTION
1776: WHEN FND_API.G_EXC_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1774: p_data => x_msg_data);
1775: EXCEPTION
1776: WHEN FND_API.G_EXC_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1788: END IF;
1789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1790: p_data => x_msg_data);
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1788: END IF;
1789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1790: p_data => x_msg_data);
1791: END Init_Trx_Validate;
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1788: END IF;
1789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1790: p_data => x_msg_data);
1791: END Init_Trx_Validate;
1792:
1793: PROCEDURE Init_Dist_Validate
1814: END IF;
1815:
1816: -- Initialize message list if p_init_msg_list is set to TRUE.
1817: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
1818: FND_MSG_PUB.initialize;
1819: END IF;
1820:
1821: -- Initialize API return status to success
1822: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827: -- under all conditions. Also added the negative ccid check.
1828: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1829:
1830: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1831: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1832: --Bug: 6618396
1833: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1834: -- Problem: Double check with msg repository
1835: FND_MSG_PUB.Add;
1831: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1832: --Bug: 6618396
1833: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1834: -- Problem: Double check with msg repository
1835: FND_MSG_PUB.Add;
1836: END IF;
1837: Set_Return_Status(x_orig_status => x_return_status,
1838: p_new_status => FND_API.G_RET_STS_ERROR);
1839:
1851: p_init_dist_rec.amount_dr IS NOT NULL AND
1852: p_init_dist_rec.amount_dr <> 0))
1853: OR
1854: p_init_dist_rec.line_number IS NULL THEN
1855: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1856: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
1857: FND_MSG_PUB.Add;
1858: END IF;
1859: Set_Return_Status(x_orig_status => x_return_status,
1853: OR
1854: p_init_dist_rec.line_number IS NULL THEN
1855: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1856: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
1857: FND_MSG_PUB.Add;
1858: END IF;
1859: Set_Return_Status(x_orig_status => x_return_status,
1860: p_new_status => FND_API.G_RET_STS_ERROR);
1861: END IF;
1862: --END IF;
1863: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1864:
1865: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1866: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1867: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');
1868: FND_MSG_PUB.Add;
1869: END IF;
1870: Set_Return_Status(x_orig_status => x_return_status,
1864:
1865: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1866: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1867: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');
1868: FND_MSG_PUB.Add;
1869: END IF;
1870: Set_Return_Status(x_orig_status => x_return_status,
1871: p_new_status => FND_API.G_RET_STS_ERROR);
1872: END IF;
1873: --END IF;
1874: Debug('INIT_DIST_VALIDATE(-)');
1875: -- End of API body.
1876: -- Standard call to get message count and if count is 1, get message info.
1877: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1878: p_data => x_msg_data);
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1892: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1893: END IF;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1895: p_data => x_msg_data);
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1892: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1893: END IF;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1895: p_data => x_msg_data);
1896:
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1892: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1893: END IF;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1895: p_data => x_msg_data);
1896:
1897:
1898: END Init_Dist_Validate;
1922: END IF;
1923:
1924: -- Initialize message list if p_init_msg_list is set to TRUE.
1925: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
1926: FND_MSG_PUB.initialize;
1927: END IF;
1928:
1929: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');
1930: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );
1946:
1947: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN
1948: Print ('Debug Init_Dist_Val >>> In If 2' );
1949:
1950: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1951: Print ('Debug Init_Dist_Val >>> In If 3' );
1952: --Bug: 6618396
1953: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1954: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
1952: --Bug: 6618396
1953: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1954: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
1955: -- Problem: Double check with msg repository
1956: FND_MSG_PUB.Add;
1957:
1958: Print ('Debug Init_Dist_Val >>> End of If 3' );
1959: END IF;
1960: Set_Return_Status(x_orig_status => x_return_status,
1983: p_dist_line_rec.amount_dr <> 0) THEN
1984:
1985: Print ('Debug Init_Dist_Val >>> In If 21' );
1986:
1987: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1988:
1989: Print ('Debug Init_Dist_Val >>> In If 22' );
1990:
1991: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_DIST_LINE');
1989: Print ('Debug Init_Dist_Val >>> In If 22' );
1990:
1991: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_DIST_LINE');
1992: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
1993: FND_MSG_PUB.Add;
1994: END IF;
1995:
1996: Print ('Debug Init_Dist_Val >>> End If 22' );
1997:
2003: Print ('Debug Init_Dist_Val >>> Party Type ' || p_dist_line_rec.party_type );
2004: Print ('Debug Init_Dist_Val >>> FND_API.G_RET_STS_ERROR ' || FND_API.G_RET_STS_ERROR );
2005:
2006: IF p_dist_line_rec.party_type <> 'I' and p_dist_line_rec.party_type <> 'R' THEN
2007: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2008: FND_MESSAGE.SET_NAME('FUN', 'Party type for distributions has not been set correctly');
2009: END IF;
2010: Set_Return_Status(x_orig_status => x_return_status,
2011: p_new_status => FND_API.G_RET_STS_ERROR);
2015: Print ('Debug Init_Dist_Val >>> End If');
2016:
2017: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
2018: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN
2019: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2020: --Bug: 6618396
2021: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
2022: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
2023: END IF;
2032: -- Standard call to get message count and if count is 1, get message info.
2033:
2034: Print ('Debug Init_Dist_Val >>> x_msg_count' || x_msg_count );
2035: Print ('Debug Init_Dist_Val >>> x_msg_data' || x_msg_data );
2036: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2037: p_data => x_msg_data);
2038:
2039:
2040: EXCEPTION
2042: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_count' || x_msg_count );
2043: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_data' || x_msg_data );
2044:
2045: x_return_status := FND_API.G_RET_STS_ERROR ;
2046: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2047: p_data => x_msg_data);
2048: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>>END ' );
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2050: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2051: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_data' || x_msg_data );
2052:
2053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2054: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2055: p_data => x_msg_data);
2056: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>>END ' );
2057: WHEN OTHERS THEN
2058: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2057: WHEN OTHERS THEN
2058: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2059: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_data' || x_msg_data );
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2063: END IF;
2064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2065: p_data => x_msg_data);
2058: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2059: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_data' || x_msg_data );
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2063: END IF;
2064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2065: p_data => x_msg_data);
2066: Print ('Debug Init_Dist_Val OTHER ERROR >>>END ' );
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2063: END IF;
2064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2065: p_data => x_msg_data);
2066: Print ('Debug Init_Dist_Val OTHER ERROR >>>END ' );
2067:
2068: END Init_IC_Dist_Validate;
2127: IF l_invoice_required = 'Y' THEN
2128:
2129: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
2130: IF l_from_ou_id IS NULL THEN
2131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2132: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2133: FND_MSG_PUB.Add;
2134: END IF;
2135: Set_Return_Status(x_orig_status => x_return_status,
2129: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
2130: IF l_from_ou_id IS NULL THEN
2131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2132: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2133: FND_MSG_PUB.Add;
2134: END IF;
2135: Set_Return_Status(x_orig_status => x_return_status,
2136: p_new_status => FND_API.G_RET_STS_ERROR);
2137: END IF;
2139: OPEN ou_valid_csr;
2140: FETCH ou_valid_csr INTO l_count;
2141: CLOSE ou_valid_csr;
2142: IF l_count < 1 THEN
2143: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2144: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2145: FND_MSG_PUB.Add;
2146: END IF;
2147: Set_Return_Status(x_orig_status => x_return_status,
2141: CLOSE ou_valid_csr;
2142: IF l_count < 1 THEN
2143: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2144: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2145: FND_MSG_PUB.Add;
2146: END IF;
2147: Set_Return_Status(x_orig_status => x_return_status,
2148: p_new_status => FND_API.G_RET_STS_ERROR);
2149: END IF;
2170: INTO recipient_name
2171: FROM hz_parties
2172: WHERE party_id=p_recipient_id;
2173:
2174: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2175: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CUSTOMER');
2176: FND_MESSAGE.SET_TOKEN('INITIATOR_NAME',initiator_name);
2177: FND_MESSAGE.SET_TOKEN('RECIPIENT_NAME',recipient_name);
2178: FND_MSG_PUB.Add;
2174: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2175: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CUSTOMER');
2176: FND_MESSAGE.SET_TOKEN('INITIATOR_NAME',initiator_name);
2177: FND_MESSAGE.SET_TOKEN('RECIPIENT_NAME',recipient_name);
2178: FND_MSG_PUB.Add;
2179: END IF;
2180: Set_Return_Status(x_orig_status => x_return_status,
2181: p_new_status => FND_API.G_RET_STS_ERROR);
2182: END IF;
2224: Debug('CREATE_REVERSE_BATCH(+)');
2225: --Bug: 6625360.
2226: -- Initialize message list if p_init_msg_list is set to TRUE.
2227: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
2228: FND_MSG_PUB.initialize;
2229: END IF;
2230: -- Initialize API return status to success
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2232: -- Verify that no transactions have already been reversed,
2268: AND hdrs.status in ('COMPLETE', 'APPROVED'))
2269: )
2270: );
2271: IF l_initiator_id < 1 THEN
2272: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2273: FND_MESSAGE.SET_NAME('FUN', 'FUN_REVERSED_BATCH'); -- Problem here: Whether a msg is needed
2274: FND_MSG_PUB.Add;
2275: END IF;
2276: Set_Return_Status(x_orig_status => x_return_status,
2270: );
2271: IF l_initiator_id < 1 THEN
2272: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2273: FND_MESSAGE.SET_NAME('FUN', 'FUN_REVERSED_BATCH'); -- Problem here: Whether a msg is needed
2274: FND_MSG_PUB.Add;
2275: END IF;
2276: Set_Return_Status(x_orig_status => x_return_status,
2277: p_new_status => FND_API.G_RET_STS_ERROR);
2278: RETURN;
2720: AND headers.reversed_trx_id IS NULL
2721: AND headers.original_trx_id IS NULL
2722: AND headers.status in ('COMPLETE', 'APPROVED');--Bug: 6625360. AND headers.status = 'COMPLETE';
2723: IF l_initiator_id IS NULL THEN
2724: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2725: FND_MESSAGE.SET_NAME('FUN', 'Trx error'); -- Problem here: Whether a msg is needed
2726: FND_MSG_PUB.Add;
2727: END IF;
2728: Set_Return_Status(x_orig_status => x_return_status,
2722: AND headers.status in ('COMPLETE', 'APPROVED');--Bug: 6625360. AND headers.status = 'COMPLETE';
2723: IF l_initiator_id IS NULL THEN
2724: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2725: FND_MESSAGE.SET_NAME('FUN', 'Trx error'); -- Problem here: Whether a msg is needed
2726: FND_MSG_PUB.Add;
2727: END IF;
2728: Set_Return_Status(x_orig_status => x_return_status,
2729: p_new_status => FND_API.G_RET_STS_ERROR);
2730: RETURN;
3161: END IF;
3162:
3163: -- Initialize message list if p_init_msg_list is set to TRUE.
3164: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3165: FND_MSG_PUB.initialize;
3166: END IF;
3167:
3168: -- Initialize API return status to success
3169: x_return_status := FND_API.G_RET_STS_SUCCESS;
3237: IF FND_API.To_Boolean( nvl(p_commit,FND_API.G_FALSE) ) THEN
3238: COMMIT WORK;
3239: END IF;
3240: ELSE
3241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3242: FND_MESSAGE.SET_NAME('FUN', 'Can not update status given');
3243: FND_MSG_PUB.Add;
3244: END IF;
3245: Set_Return_Status(x_orig_status => x_return_status,
3239: END IF;
3240: ELSE
3241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3242: FND_MESSAGE.SET_NAME('FUN', 'Can not update status given');
3243: FND_MSG_PUB.Add;
3244: END IF;
3245: Set_Return_Status(x_orig_status => x_return_status,
3246: p_new_status => FND_API.G_RET_STS_ERROR);
3247: END IF;
3246: p_new_status => FND_API.G_RET_STS_ERROR);
3247: END IF;
3248:
3249: -- Standard call to get message count and if count is 1, get message info.
3250: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3251: Debug('UPDATE_TRX_STATUS(-)');
3252: EXCEPTION
3253: WHEN FND_API.G_EXC_ERROR THEN
3254: ROLLBACK TO Update_Trx_Status;
3252: EXCEPTION
3253: WHEN FND_API.G_EXC_ERROR THEN
3254: ROLLBACK TO Update_Trx_Status;
3255: x_return_status := FND_API.G_RET_STS_ERROR ;
3256: FND_MSG_PUB.Count_And_Get
3257: ( p_count => x_msg_count,
3258: p_data => x_msg_data );
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO Update_Trx_Status;
3258: p_data => x_msg_data );
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO Update_Trx_Status;
3261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get
3263: ( p_count => x_msg_count,
3264: p_data => x_msg_data);
3265: WHEN OTHERS THEN
3266: ROLLBACK TO Update_Trx_Status;
3264: p_data => x_msg_data);
3265: WHEN OTHERS THEN
3266: ROLLBACK TO Update_Trx_Status;
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3268: IF FND_MSG_PUB.Check_Msg_Level
3269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3270: THEN
3271: FND_MSG_PUB.Add_Exc_Msg
3272: ( G_FILE_NAME,
3265: WHEN OTHERS THEN
3266: ROLLBACK TO Update_Trx_Status;
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3268: IF FND_MSG_PUB.Check_Msg_Level
3269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3270: THEN
3271: FND_MSG_PUB.Add_Exc_Msg
3272: ( G_FILE_NAME,
3273: G_PKG_NAME,
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3268: IF FND_MSG_PUB.Check_Msg_Level
3269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3270: THEN
3271: FND_MSG_PUB.Add_Exc_Msg
3272: ( G_FILE_NAME,
3273: G_PKG_NAME,
3274: l_api_name
3275: );
3273: G_PKG_NAME,
3274: l_api_name
3275: );
3276: END IF;
3277: FND_MSG_PUB.Count_And_Get
3278: ( p_count => x_msg_count,
3279: p_data => x_msg_data
3280: );
3281:
3310: FOR i IN 1..l_count LOOP
3311:
3312: IF p_dist_lines_tbl(i).party_type = 'R' THEN
3313: IF p_dist_lines_tbl(i).ccid IS NULL THEN
3314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3315: --Bug: 6618396
3316: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_RECI_DIST_AC_CCID');
3317: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_lines_tbl(i).trx_number);
3318: -- Problem: Double check with msg repository
3315: --Bug: 6618396
3316: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_RECI_DIST_AC_CCID');
3317: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_lines_tbl(i).trx_number);
3318: -- Problem: Double check with msg repository
3319: FND_MSG_PUB.Add;
3320: END IF;
3321: Set_Return_Status(x_orig_status => x_return_status,
3322: p_new_status => FND_API.G_RET_STS_ERROR);
3323: l_return_status := x_return_status;
3391:
3392: IF (p_trx_amount_cr <> l_dist_total_dr OR
3393: p_trx_amount_dr <> l_dist_total_cr )
3394: THEN
3395: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3396: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3397: FND_MSG_PUB.Add;
3398: END IF;
3399: Set_Return_Status(x_orig_status => x_return_status,
3393: p_trx_amount_dr <> l_dist_total_cr )
3394: THEN
3395: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3396: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3397: FND_MSG_PUB.Add;
3398: END IF;
3399: Set_Return_Status(x_orig_status => x_return_status,
3400: p_new_status => FND_API.G_RET_STS_ERROR);
3401: END IF;
3401: END IF;
3402:
3403: IF l_dist_cr_type = l_dist_dr_type
3404: THEN
3405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3406: THEN
3407: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3408: FND_MSG_PUB.Add;
3409: END IF;
3404: THEN
3405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3406: THEN
3407: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3408: FND_MSG_PUB.Add;
3409: END IF;
3410: Set_Return_Status(x_orig_status => x_return_status,
3411: p_new_status => FND_API.G_RET_STS_ERROR);
3412: END IF;
3417: x_return_status := FND_API.G_RET_STS_ERROR ;
3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level
3424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3425: THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level
3424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3425: THEN
3426: FND_MSG_PUB.Add_Exc_Msg
3427: ( G_PKG_NAME ,
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level
3424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3425: THEN
3426: FND_MSG_PUB.Add_Exc_Msg
3427: ( G_PKG_NAME ,
3428: l_api_name
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level
3424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3425: THEN
3426: FND_MSG_PUB.Add_Exc_Msg
3427: ( G_PKG_NAME ,
3428: l_api_name
3429: );
3430: END IF;
3463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3464: END IF;
3465: -- Initialize message list if p_init_msg_list is set to TRUE.
3466: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3467: FND_MSG_PUB.initialize;
3468: END IF;
3469: -- Initialize API return status to success
3470: x_return_status := FND_API.G_RET_STS_SUCCESS;
3471:
3494: END IF;
3495: END LOOP;
3496: END IF;
3497: IF l_index = 0 THEN
3498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3499: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_ENTRY_TRX_UP_NODATA');
3500: FND_MSG_PUB.Add;
3501: END IF;
3502: Set_Return_Status(x_orig_status => x_return_status,
3496: END IF;
3497: IF l_index = 0 THEN
3498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3499: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_ENTRY_TRX_UP_NODATA');
3500: FND_MSG_PUB.Add;
3501: END IF;
3502: Set_Return_Status(x_orig_status => x_return_status,
3503: p_new_status => FND_API.G_RET_STS_ERROR);
3504: ELSE
3532: END IF;
3533: Debug('RECIPIENT_VALIDATE(-)');
3534: -- End of API body.
3535: -- Standard call to get message count and if count is 1, get message info.
3536: FND_MSG_PUB.Count_And_Get
3537: ( p_count => x_msg_count,
3538: p_data => x_msg_data
3539: );
3540: EXCEPTION
3539: );
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR ;
3543: FND_MSG_PUB.Count_And_Get
3544: ( p_count => x_msg_count,
3545: p_data => x_msg_data
3546: );
3547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3545: p_data => x_msg_data
3546: );
3547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3549: FND_MSG_PUB.Count_And_Get
3550: ( p_count => x_msg_count,
3551: p_data => x_msg_data
3552: );
3553: WHEN OTHERS THEN
3551: p_data => x_msg_data
3552: );
3553: WHEN OTHERS THEN
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3555: IF FND_MSG_PUB.Check_Msg_Level
3556: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3557: THEN
3558: FND_MSG_PUB.Add_Exc_Msg
3559: ( G_PKG_NAME ,
3552: );
3553: WHEN OTHERS THEN
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3555: IF FND_MSG_PUB.Check_Msg_Level
3556: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3557: THEN
3558: FND_MSG_PUB.Add_Exc_Msg
3559: ( G_PKG_NAME ,
3560: l_api_name
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3555: IF FND_MSG_PUB.Check_Msg_Level
3556: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3557: THEN
3558: FND_MSG_PUB.Add_Exc_Msg
3559: ( G_PKG_NAME ,
3560: l_api_name
3561: );
3562: END IF;
3559: ( G_PKG_NAME ,
3560: l_api_name
3561: );
3562: END IF;
3563: FND_MSG_PUB.Count_And_Get
3564: ( p_count => x_msg_count,
3565: p_data => x_msg_data
3566: );
3567:
3682:
3683: IF (nvl(p_trx_amount_cr,0) < l_dist_total_dr OR
3684: nvl(p_trx_amount_dr,0) < l_dist_total_cr )
3685: THEN
3686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3687: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3688: FND_MSG_PUB.Add;
3689: END IF;
3690: Set_Return_Status(x_orig_status => x_return_status,
3684: nvl(p_trx_amount_dr,0) < l_dist_total_cr )
3685: THEN
3686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3687: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3688: FND_MSG_PUB.Add;
3689: END IF;
3690: Set_Return_Status(x_orig_status => x_return_status,
3691: p_new_status => FND_API.G_RET_STS_ERROR);
3692: END IF;
3692: END IF;
3693:
3694: IF l_dist_cr_type = l_dist_dr_type
3695: THEN
3696: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3697: THEN
3698: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3699: FND_MSG_PUB.Add;
3700: END IF;
3695: THEN
3696: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3697: THEN
3698: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3699: FND_MSG_PUB.Add;
3700: END IF;
3701: Set_Return_Status(x_orig_status => x_return_status,
3702: p_new_status => FND_API.G_RET_STS_ERROR);
3703: END IF;
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level
3715: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3716: THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level
3715: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3716: THEN
3717: FND_MSG_PUB.Add_Exc_Msg
3718: ( G_PKG_NAME ,
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level
3715: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3716: THEN
3717: FND_MSG_PUB.Add_Exc_Msg
3718: ( G_PKG_NAME ,
3719: l_api_name
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level
3715: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3716: THEN
3717: FND_MSG_PUB.Add_Exc_Msg
3718: ( G_PKG_NAME ,
3719: l_api_name
3720: );
3721: END IF;
3755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3756: END IF;
3757: -- Initialize message list if p_init_msg_list is set to TRUE.
3758: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3759: FND_MSG_PUB.initialize;
3760: END IF;
3761: -- Initialize API return status to success
3762: x_return_status := FND_API.G_RET_STS_SUCCESS;
3763:
3809: END IF;
3810: Debug('RECIPIENT_VALIDATE(-)');
3811: -- End of API body.
3812: -- Standard call to get message count and if count is 1, get message info.
3813: FND_MSG_PUB.Count_And_Get
3814: ( p_count => x_msg_count,
3815: p_data => x_msg_data
3816: );
3817: EXCEPTION
3816: );
3817: EXCEPTION
3818: WHEN FND_API.G_EXC_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_ERROR ;
3820: FND_MSG_PUB.Count_And_Get
3821: ( p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3826: FND_MSG_PUB.Count_And_Get
3827: ( p_count => x_msg_count,
3828: p_data => x_msg_data
3829: );
3830: WHEN OTHERS THEN
3828: p_data => x_msg_data
3829: );
3830: WHEN OTHERS THEN
3831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3832: IF FND_MSG_PUB.Check_Msg_Level
3833: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3834: THEN
3835: FND_MSG_PUB.Add_Exc_Msg
3836: ( G_PKG_NAME ,
3829: );
3830: WHEN OTHERS THEN
3831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3832: IF FND_MSG_PUB.Check_Msg_Level
3833: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3834: THEN
3835: FND_MSG_PUB.Add_Exc_Msg
3836: ( G_PKG_NAME ,
3837: l_api_name
3831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3832: IF FND_MSG_PUB.Check_Msg_Level
3833: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3834: THEN
3835: FND_MSG_PUB.Add_Exc_Msg
3836: ( G_PKG_NAME ,
3837: l_api_name
3838: );
3839: END IF;
3836: ( G_PKG_NAME ,
3837: l_api_name
3838: );
3839: END IF;
3840: FND_MSG_PUB.Count_And_Get
3841: ( p_count => x_msg_count,
3842: p_data => x_msg_data
3843: );
3844:
4060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4061: END IF;
4062: -- Initialize message list if p_init_msg_list is set to TRUE.
4063: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4064: FND_MSG_PUB.initialize;
4065: END IF;
4066: -- Initialize API return status to success
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068:
4165:
4166: Debug('INIT_GENERATE_DISTRIBUTIONS(-)');
4167: -- End of API body.
4168: -- Standard call to get message count and if count is 1, get message info.
4169: FND_MSG_PUB.Count_And_Get
4170: ( p_count => x_msg_count,
4171: p_data => x_msg_data
4172: );
4173:
4173:
4174: EXCEPTION
4175: WHEN FND_API.G_EXC_ERROR THEN
4176: x_return_status := FND_API.G_RET_STS_ERROR ;
4177: FND_MSG_PUB.Count_And_Get
4178: ( p_count => x_msg_count,
4179: p_data => x_msg_data
4180: );
4181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4179: p_data => x_msg_data
4180: );
4181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4183: FND_MSG_PUB.Count_And_Get
4184: ( p_count => x_msg_count,
4185: p_data => x_msg_data
4186: );
4187: WHEN OTHERS THEN
4185: p_data => x_msg_data
4186: );
4187: WHEN OTHERS THEN
4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4189: IF FND_MSG_PUB.Check_Msg_Level
4190: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4191: THEN
4192: FND_MSG_PUB.Add_Exc_Msg
4193: ( G_PKG_NAME ,
4186: );
4187: WHEN OTHERS THEN
4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4189: IF FND_MSG_PUB.Check_Msg_Level
4190: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4191: THEN
4192: FND_MSG_PUB.Add_Exc_Msg
4193: ( G_PKG_NAME ,
4194: l_api_name
4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4189: IF FND_MSG_PUB.Check_Msg_Level
4190: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4191: THEN
4192: FND_MSG_PUB.Add_Exc_Msg
4193: ( G_PKG_NAME ,
4194: l_api_name
4195: );
4196: END IF;
4193: ( G_PKG_NAME ,
4194: l_api_name
4195: );
4196: END IF;
4197: FND_MSG_PUB.Count_And_Get
4198: ( p_count => x_msg_count,
4199: p_data => x_msg_data
4200: );
4201: END;
4247:
4248: -- 7.3.1.3
4249: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
4250: IF l_to_ou_id IS NULL THEN
4251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4252: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4253: FND_MSG_PUB.Add;
4254: END IF;
4255: Set_Return_Status(x_orig_status => x_return_status,
4249: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
4250: IF l_to_ou_id IS NULL THEN
4251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4252: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4253: FND_MSG_PUB.Add;
4254: END IF;
4255: Set_Return_Status(x_orig_status => x_return_status,
4256: p_new_status => FND_API.G_RET_STS_ERROR);
4257: Return;
4259: OPEN ou_valid_csr;
4260: FETCH ou_valid_csr INTO l_count;
4261: CLOSE ou_valid_csr;
4262: IF l_count < 1 THEN
4263: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4264: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4265: FND_MSG_PUB.Add;
4266: END IF;
4267: Set_Return_Status(x_orig_status => x_return_status,
4261: CLOSE ou_valid_csr;
4262: IF l_count < 1 THEN
4263: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4264: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4265: FND_MSG_PUB.Add;
4266: END IF;
4267: Set_Return_Status(x_orig_status => x_return_status,
4268: p_new_status => FND_API.G_RET_STS_ERROR);
4269: Return;
4279: --
4280:
4281: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
4282: IF l_from_ou_id IS NULL THEN
4283: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4284: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4285: FND_MSG_PUB.Add;
4286: END IF;
4287: Set_Return_Status(x_orig_status => x_return_status,
4281: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
4282: IF l_from_ou_id IS NULL THEN
4283: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4284: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4285: FND_MSG_PUB.Add;
4286: END IF;
4287: Set_Return_Status(x_orig_status => x_return_status,
4288: p_new_status => FND_API.G_RET_STS_ERROR);
4289: Return;
4296: p_trx_date, l_msg_data,
4297: l_supplier_id, l_pay_site_id);
4298:
4299: IF NOT l_success THEN
4300: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4301: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_SUPPLIER');
4302: FND_MSG_PUB.Add;
4303: END IF;
4304: Set_Return_Status(x_orig_status => x_return_status,
4298:
4299: IF NOT l_success THEN
4300: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4301: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_SUPPLIER');
4302: FND_MSG_PUB.Add;
4303: END IF;
4304: Set_Return_Status(x_orig_status => x_return_status,
4305: p_new_status => FND_API.G_RET_STS_ERROR);
4306: END IF;
4308: OPEN period_open_csr;
4309: FETCH period_open_csr INTO l_count;
4310: CLOSE period_open_csr;
4311: IF l_count < 1 THEN
4312: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4313: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AP_PERIOD_NOT_OPEN');
4314: FND_MSG_PUB.Add;
4315: END IF;
4316: Set_Return_Status(x_orig_status => x_return_status,
4310: CLOSE period_open_csr;
4311: IF l_count < 1 THEN
4312: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4313: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AP_PERIOD_NOT_OPEN');
4314: FND_MSG_PUB.Add;
4315: END IF;
4316: Set_Return_Status(x_orig_status => x_return_status,
4317: p_new_status => FND_API.G_RET_STS_ERROR);
4318: END IF;
4379: END IF;
4380:
4381: -- Initialize message list if p_init_msg_list is set to TRUE.
4382: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4383: FND_MSG_PUB.initialize;
4384: END IF;
4385:
4386: -- Initialize API return status to success
4387: x_return_status := FND_API.G_RET_STS_SUCCESS;
4410: l_ar_trx_type_id, l_ar_trx_type_name,
4411: l_default_term_id);
4412: IF l_memo_line_name IS NULL OR l_ar_trx_type_name IS NULL THEN
4413: -- Problem need a message error code here
4414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4415: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
4416: FND_MSG_PUB.Add;
4417: END IF;
4418: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4412: IF l_memo_line_name IS NULL OR l_ar_trx_type_name IS NULL THEN
4413: -- Problem need a message error code here
4414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4415: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
4416: FND_MSG_PUB.Add;
4417: END IF;
4418: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4419: END IF;
4420:
4421: OPEN period_open_csr(l_trx_date,
4422: l_from_ledger_id);
4423: FETCH period_open_csr INTO l_count;
4424: IF l_count < 1 THEN
4425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4426: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AR_PERIOD_NOT_OPEN');
4427: FND_MSG_PUB.Add;
4428: END IF;
4429: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4423: FETCH period_open_csr INTO l_count;
4424: IF l_count < 1 THEN
4425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4426: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AR_PERIOD_NOT_OPEN');
4427: FND_MSG_PUB.Add;
4428: END IF;
4429: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4430: END IF;
4431:
4440:
4441: Debug('AR_TRANSFER_VALIDATE(-)');
4442: -- End of API body.
4443: -- Standard call to get message count and if count is 1, get message info.
4444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4445: p_data => x_msg_data);
4446: EXCEPTION
4447: WHEN FND_API.G_EXC_ERROR THEN
4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4445: p_data => x_msg_data);
4446: EXCEPTION
4447: WHEN FND_API.G_EXC_ERROR THEN
4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4459: END IF;
4460: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4461: p_data => x_msg_data);
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4459: END IF;
4460: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4461: p_data => x_msg_data);
4462:
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4459: END IF;
4460: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4461: p_data => x_msg_data);
4462:
4463:
4464: END AR_Transfer_Validate;
4470: ) IS
4471: BEGIN
4472: -- API body
4473: -- Problem: Use FND LOGGING mechanism?
4474: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
4475: FND_MESSAGE.SET_NAME('FUN', p_message);
4476: FND_MSG_PUB.Add;
4477: END IF;
4478:
4472: -- API body
4473: -- Problem: Use FND LOGGING mechanism?
4474: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
4475: FND_MESSAGE.SET_NAME('FUN', p_message);
4476: FND_MSG_PUB.Add;
4477: END IF;
4478:
4479: -- End of API body.
4480: END Debug;
4500: BEGIN
4501: -- Initialize message list if p_init_msg_list is set to TRUE.
4502: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE))
4503: THEN
4504: FND_MSG_PUB.initialize;
4505: END IF;
4506:
4507: -- Initialize API return status to success
4508: x_return_status := FND_API.G_RET_STS_SUCCESS;
4549:
4550: END LOOP;
4551: END IF;
4552:
4553: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4554: p_data => x_msg_data);
4555:
4556: EXCEPTION
4557: WHEN FND_API.G_EXC_ERROR THEN
4555:
4556: EXCEPTION
4557: WHEN FND_API.G_EXC_ERROR THEN
4558: x_return_status := FND_API.G_RET_STS_ERROR ;
4559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4560: p_data => x_msg_data);
4561:
4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4560: p_data => x_msg_data);
4561:
4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4564: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4565: p_data => x_msg_data);
4566: WHEN OTHERS THEN
4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4564: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4565: p_data => x_msg_data);
4566: WHEN OTHERS THEN
4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4569: THEN
4570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4571: END IF;
4572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4566: WHEN OTHERS THEN
4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4569: THEN
4570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4571: END IF;
4572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4573: p_data => x_msg_data);
4574: END cancel_notifications;
4568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4569: THEN
4570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4571: END IF;
4572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4573: p_data => x_msg_data);
4574: END cancel_notifications;
4575:
4576: END FUN_TRX_PVT;