[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: --Bug:9104801
184: END IF;
185: IF l_count > 1 THEN
186: FND_MESSAGE.SET_NAME('FUN', 'FUN_DUPL_TRX_NUM');
187: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(J).trx_number);
188: FND_MSG_PUB.Add;
189: Set_Return_Status(x_orig_status => x_return_status,
190: p_new_status => FND_API.G_RET_STS_ERROR);
191: EXIT;
192: END IF;
216: OPEN batch_num_csr;
217: FETCH batch_num_csr INTO l_count;
218: CLOSE batch_num_csr;
219: IF l_count > 0 OR p_batch_number IS NULL THEN
220: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
221: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_BATCH_NUM');
222: FND_MSG_PUB.Add;
223: END IF;
224: Set_Return_Status(x_orig_status => x_return_status,
218: CLOSE batch_num_csr;
219: IF l_count > 0 OR p_batch_number IS NULL THEN
220: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
221: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_BATCH_NUM');
222: FND_MSG_PUB.Add;
223: END IF;
224: Set_Return_Status(x_orig_status => x_return_status,
225: p_new_status => FND_API.G_RET_STS_ERROR);
226: END IF;
337: IF l_return_status = 'N' THEN
338: --Bug 5144930. Added new error messages to display the start date and end date.
339: FUN_TCA_PKG.get_ic_org_valid_dates(p_party_id,l_le_start_dt, l_le_end_dt);
340: IF p_type = 'I' THEN
341: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
342: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
343: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
344: ELSE
345: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR_DATE');
345: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR_DATE');
346: FND_MESSAGE.SET_TOKEN('P_START_DATE',to_char(l_le_start_dt));
347: FND_MESSAGE.SET_TOKEN('P_END_DATE',to_char(l_le_end_dt));
348: END IF;
349: FND_MSG_PUB.Add;
350: END IF;
351: ELSE
352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
353: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
348: END IF;
349: FND_MSG_PUB.Add;
350: END IF;
351: ELSE
352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
353: IF l_le_start_dt IS NULL AND l_le_end_dt IS NULL THEN
354: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
355: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
356: ELSE
358: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
359: FND_MESSAGE.SET_TOKEN('P_START_DATE',to_char(l_le_start_dt));
360: FND_MESSAGE.SET_TOKEN('P_END_DATE',to_char(l_le_end_dt));
361: END IF;
362: FND_MSG_PUB.Add;
363: END IF;
364: END IF;
365:
366: Set_Return_Status(x_orig_status => x_return_status,
372: OPEN legal_entity_csr;
373: FETCH legal_entity_csr INTO l_le_start_dt, l_le_end_dt;
374:
375: IF legal_entity_csr%NOTFOUND THEN
376: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
377: IF p_type = 'I' THEN
378: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
379: FND_MSG_PUB.Add;
380: ELSE
375: IF legal_entity_csr%NOTFOUND THEN
376: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
377: IF p_type = 'I' THEN
378: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
379: FND_MSG_PUB.Add;
380: ELSE
381: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
382: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
383: FND_MSG_PUB.Add;
379: FND_MSG_PUB.Add;
380: ELSE
381: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
382: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
383: FND_MSG_PUB.Add;
384: END IF;
385: END IF;
386: Set_Return_Status(x_orig_status => x_return_status,
387: p_new_status => FND_API.G_RET_STS_ERROR);
391:
392: -- Bug 3173783
393: IF NOT ( p_batch_date BETWEEN Nvl(l_le_start_dt, p_batch_date) AND Nvl(l_le_end_dt, p_batch_date))
394: THEN
395: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
396: IF p_type = 'I' THEN
397: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_INIT_LE');
398: FND_MSG_PUB.Add;
399: ELSE
394: THEN
395: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
396: IF p_type = 'I' THEN
397: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_INIT_LE');
398: FND_MSG_PUB.Add;
399: ELSE
400: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_RECI_LE');
401: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_trx_number);
402: FND_MSG_PUB.Add;
398: FND_MSG_PUB.Add;
399: ELSE
400: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_RECI_LE');
401: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_trx_number);
402: FND_MSG_PUB.Add;
403: END IF;
404: END IF;
405: Set_Return_Status(x_orig_status => x_return_status,
406: p_new_status => FND_API.G_RET_STS_ERROR);
409:
410: IF p_local = 'N' THEN
411: l_msr := Fun_Tca_Pkg.Get_System_Reference(p_party_id);
412: IF l_msr IS NULL THEN
413: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
414: FND_MESSAGE.SET_NAME('FUN', 'FUN_PARTY_NO_MSR');
415: FND_MSG_PUB.Add;
416: END IF;
417: Set_Return_Status(x_orig_status => x_return_status,
411: l_msr := Fun_Tca_Pkg.Get_System_Reference(p_party_id);
412: IF l_msr IS NULL THEN
413: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
414: FND_MESSAGE.SET_NAME('FUN', 'FUN_PARTY_NO_MSR');
415: FND_MSG_PUB.Add;
416: END IF;
417: Set_Return_Status(x_orig_status => x_return_status,
418: p_new_status => FND_API.G_RET_STS_ERROR);
419: END IF;
421:
422: Debug('IS_PARTY_VALID(-)');
423: EXCEPTION WHEN OTHERS THEN -- Problem here: Remove check
424: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_PARTY_VALID');
425: FND_MSG_PUB.ADD;
426:
427: END;
428:
429:
489:
490: IF (p_trx_amount_cr <> l_dist_total_dr OR
491: p_trx_amount_dr <> l_dist_total_cr )
492: THEN
493: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
494: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INI_HDR_DIST_MISMATCH');
495: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
496: FND_MSG_PUB.Add;
497: END IF;
492: THEN
493: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
494: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INI_HDR_DIST_MISMATCH');
495: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
496: FND_MSG_PUB.Add;
497: END IF;
498: Set_Return_Status(x_orig_status => x_return_status,
499: p_new_status => FND_API.G_RET_STS_ERROR);
500: END IF;
500: END IF;
501:
502: IF l_dist_cr_type = l_dist_dr_type
503: THEN
504: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
505: THEN
506: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INVALID_DRCR_DIST');
507: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
508: FND_MSG_PUB.Add;
504: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
505: THEN
506: FND_MESSAGE.SET_NAME('FUN', 'FUN_IC_INVALID_DRCR_DIST');
507: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
508: FND_MSG_PUB.Add;
509: END IF;
510: Set_Return_Status(x_orig_status => x_return_status,
511: p_new_status => FND_API.G_RET_STS_ERROR);
512: END IF;
517: x_return_status := FND_API.G_RET_STS_ERROR ;
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520: WHEN OTHERS THEN
521: FND_MSG_PUB.ADD;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: IF FND_MSG_PUB.Check_Msg_Level
524: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520: WHEN OTHERS THEN
521: FND_MSG_PUB.ADD;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: IF FND_MSG_PUB.Check_Msg_Level
524: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: FND_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME ,
520: WHEN OTHERS THEN
521: FND_MSG_PUB.ADD;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: IF FND_MSG_PUB.Check_Msg_Level
524: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: FND_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME ,
528: l_api_name
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523: IF FND_MSG_PUB.Check_Msg_Level
524: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: FND_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME ,
528: l_api_name
529: );
530: END IF;
568: p_trx_date,
569: l_conv_type,
570: l_min_amt)
571: THEN
572: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
573: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_LINE_AMT_LESSTN_MIN');
574: FND_MESSAGE.SET_TOKEN('MIN_TRX_AMT', l_min_curr_code||' '||l_min_amt);
575: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
576: FND_MSG_PUB.Add;
572: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
573: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_LINE_AMT_LESSTN_MIN');
574: FND_MESSAGE.SET_TOKEN('MIN_TRX_AMT', l_min_curr_code||' '||l_min_amt);
575: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
576: FND_MSG_PUB.Add;
577: END IF;
578: Set_Return_Status(x_orig_status => x_return_status,
579: p_new_status => FND_API.G_RET_STS_ERROR);
580: END IF;
582: WHEN FND_API.G_EXC_ERROR THEN
583: x_return_status := FND_API.G_RET_STS_ERROR ;
584:
585: WHEN gl_currency_api.NO_RATE THEN
586: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
587: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
588: FND_MSG_PUB.ADD;
589: END IF;
590: Set_Return_Status(x_orig_status => x_return_status,
584:
585: WHEN gl_currency_api.NO_RATE THEN
586: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
587: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
588: FND_MSG_PUB.ADD;
589: END IF;
590: Set_Return_Status(x_orig_status => x_return_status,
591: p_new_status => FND_API.G_RET_STS_ERROR);
592: x_return_status := FND_API.G_RET_STS_ERROR ;
591: p_new_status => FND_API.G_RET_STS_ERROR);
592: x_return_status := FND_API.G_RET_STS_ERROR ;
593:
594: WHEN gl_currency_api.INVALID_CURRENCY THEN
595: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
596: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
597: FND_MSG_PUB.ADD;
598: END IF;
599: Set_Return_Status(x_orig_status => x_return_status,
593:
594: WHEN gl_currency_api.INVALID_CURRENCY THEN
595: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
596: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
597: FND_MSG_PUB.ADD;
598: END IF;
599: Set_Return_Status(x_orig_status => x_return_status,
600: p_new_status => FND_API.G_RET_STS_ERROR);
601: x_return_status := FND_API.G_RET_STS_ERROR ;
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
605: WHEN OTHERS THEN
606: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
607: FND_MSG_PUB.ADD;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: IF FND_MSG_PUB.Check_Msg_Level
610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
611: THEN
605: WHEN OTHERS THEN
606: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
607: FND_MSG_PUB.ADD;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: IF FND_MSG_PUB.Check_Msg_Level
610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
611: THEN
612: FND_MSG_PUB.Add_Exc_Msg
613: ( G_PKG_NAME ,
606: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
607: FND_MSG_PUB.ADD;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: IF FND_MSG_PUB.Check_Msg_Level
610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
611: THEN
612: FND_MSG_PUB.Add_Exc_Msg
613: ( G_PKG_NAME ,
614: l_api_name
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: IF FND_MSG_PUB.Check_Msg_Level
610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
611: THEN
612: FND_MSG_PUB.Add_Exc_Msg
613: ( G_PKG_NAME ,
614: l_api_name
615: );
616: END IF;--Bug 3603338
701: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
702: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
703: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
704: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
705: FND_MSG_PUB.Add;
706: Set_Return_Status(x_orig_status => x_return_status,
707: p_new_status => FND_API.G_RET_STS_ERROR);
708: END IF;
709: END IF;
709: END IF;
710: Debug('IS_CCID_VALID(-)');
711: EXCEPTION
712: WHEN NO_DATA_FOUND THEN
713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
714: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
715: FND_MSG_PUB.Add;
716: END IF;
717:
711: EXCEPTION
712: WHEN NO_DATA_FOUND THEN
713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
714: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
715: FND_MSG_PUB.Add;
716: END IF;
717:
718:
719: -- David Haimes 19 March 2004
747: l_rows_processed := dbms_sql.execute(l_cur_hdl);
748: IF dbms_sql.fetch_rows(l_cur_hdl) > 0 THEN
749: dbms_sql.column_value(l_cur_hdl, 1, l_bal_seg_value);
750: ELSE
751: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
752: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
753: FND_MSG_PUB.Add;
754: END IF;
755: Set_Return_Status(x_orig_status => x_return_status,
749: dbms_sql.column_value(l_cur_hdl, 1, l_bal_seg_value);
750: ELSE
751: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
752: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
753: FND_MSG_PUB.Add;
754: END IF;
755: Set_Return_Status(x_orig_status => x_return_status,
756: p_new_status => FND_API.G_RET_STS_ERROR);
757: END IF;
758: dbms_sql.close_cursor(l_cur_hdl); -- close cursor
759: OPEN bsv_csr;
760: FETCH bsv_csr INTO l_count;
761: IF l_count < 1 THEN
762: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN
763: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
764: FND_MSG_PUB.Add;
765: END IF;
766: Set_Return_Status(x_orig_status => x_return_status,
760: FETCH bsv_csr INTO l_count;
761: IF l_count < 1 THEN
762: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN
763: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
764: FND_MSG_PUB.Add;
765: END IF;
766: Set_Return_Status(x_orig_status => x_return_status,
767: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);
768: END IF;
769: CLOSE bsv_csr;
770: Debug('IS_CCID_VALID(-)');
771: EXCEPTION
772: WHEN OTHERS THEN
773: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
774: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
775: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
776: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
777: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
775: FND_MESSAGE.SET_NAME('FUN', 'FUN_BSV_LE_NOT_ASSIGNED');
776: FND_MESSAGE.SET_TOKEN('LE', g_le_name);
777: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
778: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
779: FND_MSG_PUB.Add;
780: END IF;
781: */
782: END;
783:
855: END LOOP;
856: END IF;
857: IF (l_pay_dist_total_cr <> l_dist_line_total_dr OR
858: l_pay_dist_total_dr <> l_dist_line_total_cr) THEN
859: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
860: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
861: FND_MSG_PUB.Add;
862: END IF;
863: Set_Return_Status(x_orig_status => x_return_status,
857: IF (l_pay_dist_total_cr <> l_dist_line_total_dr OR
858: l_pay_dist_total_dr <> l_dist_line_total_cr) THEN
859: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
860: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
861: FND_MSG_PUB.Add;
862: END IF;
863: Set_Return_Status(x_orig_status => x_return_status,
864: p_new_status => FND_API.G_RET_STS_ERROR);
865: END IF;
866: IF l_pay_dist_cr_type = l_pay_dist_dr_type OR
867: l_dist_lines_cr_type = l_dist_lines_dr_type OR
868: l_pay_dist_pos_type = l_pay_dist_neg_type OR
869: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
870: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
871: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
872: FND_MSG_PUB.Add;
873: END IF;
874: Set_Return_Status(x_orig_status => x_return_status,
868: l_pay_dist_pos_type = l_pay_dist_neg_type OR
869: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
870: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
871: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
872: FND_MSG_PUB.Add;
873: END IF;
874: Set_Return_Status(x_orig_status => x_return_status,
875: p_new_status => FND_API.G_RET_STS_ERROR);
876: END IF;
949: END LOOP;
950: END IF;
951: IF (l_init_dist_total_cr <> l_dist_line_total_dr OR
952: l_init_dist_total_dr <> l_dist_line_total_cr) THEN
953: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
954: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
955: FND_MSG_PUB.Add;
956: END IF;
957: Set_Return_Status(x_orig_status => x_return_status,
951: IF (l_init_dist_total_cr <> l_dist_line_total_dr OR
952: l_init_dist_total_dr <> l_dist_line_total_cr) THEN
953: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
954: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
955: FND_MSG_PUB.Add;
956: END IF;
957: Set_Return_Status(x_orig_status => x_return_status,
958: p_new_status => FND_API.G_RET_STS_ERROR);
959: END IF;
960: IF l_init_dist_cr_type = l_init_dist_dr_type OR
961: l_dist_lines_cr_type = l_dist_lines_dr_type OR
962: l_init_dist_pos_type = l_init_dist_neg_type OR
963: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
964: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
965: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
966: FND_MSG_PUB.Add;
967: END IF;
968: Set_Return_Status(x_orig_status => x_return_status,
962: l_init_dist_pos_type = l_init_dist_neg_type OR
963: l_dist_lines_pos_type = l_dist_lines_neg_type THEN
964: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
965: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
966: FND_MSG_PUB.Add;
967: END IF;
968: Set_Return_Status(x_orig_status => x_return_status,
969: p_new_status => FND_API.G_RET_STS_ERROR);
970: END IF;
1076:
1077: IF (p_validate_dist = 'Y') AND (l_trx_total_cr <> l_init_dist_total_dr OR
1078: l_trx_total_dr <> l_init_dist_total_cr )
1079: THEN
1080: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1081: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
1082: FND_MSG_PUB.Add;
1083: END IF;
1084: Set_Return_Status(x_orig_status => x_return_status,
1078: l_trx_total_dr <> l_init_dist_total_cr )
1079: THEN
1080: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1081: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
1082: FND_MSG_PUB.Add;
1083: END IF;
1084: Set_Return_Status(x_orig_status => x_return_status,
1085: p_new_status => FND_API.G_RET_STS_ERROR);
1086: END IF;
1087:
1088: IF l_trx_cr_type = l_trx_dr_type OR
1089: l_trx_pos_type = l_trx_neg_type
1090: THEN
1091: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1092: THEN
1093: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
1094: FND_MSG_PUB.Add;
1095: END IF;
1090: THEN
1091: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1092: THEN
1093: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
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;
1135: l_default_currency := Fun_System_Options_Pkg.Get_Default_Currency;
1136: l_conv_type := p_exchange_rate_type;
1137: IF l_default_currency IS NOT NULL THEN
1138: IF p_curr_code <> l_default_currency THEN
1139: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1140: FND_MESSAGE.SET_NAME('FUN', 'FUN_CUR_NOTEQUAL_ENTRD_CUR');
1141: FND_MSG_PUB.Add;
1142: END IF;
1143: Set_Return_Status(x_orig_status => x_return_status,
1137: IF l_default_currency IS NOT NULL THEN
1138: IF p_curr_code <> l_default_currency THEN
1139: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1140: FND_MESSAGE.SET_NAME('FUN', 'FUN_CUR_NOTEQUAL_ENTRD_CUR');
1141: FND_MSG_PUB.Add;
1142: END IF;
1143: Set_Return_Status(x_orig_status => x_return_status,
1144: p_new_status => FND_API.G_RET_STS_ERROR);
1145: RETURN;
1149: OPEN currency_csr; -- bug 5160257
1150: FETCH currency_csr INTO l_count;
1151: CLOSE currency_csr;
1152: IF l_count < 1 THEN
1153: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1154: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1155: FND_MSG_PUB.Add;
1156: END IF;
1157: Set_Return_Status(x_orig_status => x_return_status,
1151: CLOSE currency_csr;
1152: IF l_count < 1 THEN
1153: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1154: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1155: FND_MSG_PUB.Add;
1156: END IF;
1157: Set_Return_Status(x_orig_status => x_return_status,
1158: p_new_status => FND_API.G_RET_STS_ERROR);
1159: END IF;
1161: OPEN currency_rate_csr;
1162: FETCH currency_rate_csr INTO l_count;
1163: CLOSE currency_rate_csr;
1164: IF l_count < 1 THEN
1165: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1166: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1167: FND_MSG_PUB.Add;
1168: END IF;
1169: Set_Return_Status(x_orig_status => x_return_status,
1163: CLOSE currency_rate_csr;
1164: IF l_count < 1 THEN
1165: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1166: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1167: FND_MSG_PUB.Add;
1168: END IF;
1169: Set_Return_Status(x_orig_status => x_return_status,
1170: p_new_status => FND_API.G_RET_STS_ERROR);
1171: END IF;
1172: */
1173: l_rate := GL_CURRENCY_API.Get_Rate_Sql(p_ledger_id, p_curr_code, p_trx_date, l_conv_type);
1174:
1175: IF l_rate = -1 THEN
1176: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1177: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1178: FND_MSG_PUB.Add;
1179: END IF;
1180: ELSIF l_rate = -2 THEN
1174:
1175: IF l_rate = -1 THEN
1176: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1177: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1178: FND_MSG_PUB.Add;
1179: END IF;
1180: ELSIF l_rate = -2 THEN
1181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1182: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1177: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1178: FND_MSG_PUB.Add;
1179: END IF;
1180: ELSIF l_rate = -2 THEN
1181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1182: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1183: FND_MSG_PUB.Add;
1184: END IF;
1185: END IF;
1179: END IF;
1180: ELSIF l_rate = -2 THEN
1181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1182: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1183: FND_MSG_PUB.Add;
1184: END IF;
1185: END IF;
1186: Debug('IS_CURR_FLD_VALID(-)');
1187: END;
1202: -- 7.2.2.1
1203: l_count := p_trx_tbl.COUNT;
1204: WHILE l_count <> 0 AND i <= l_count LOOP
1205: IF p_from_le_id = p_trx_tbl(i).to_le_id THEN
1206: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1207: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_IC_RELATIONSHIP');
1208: FND_MSG_PUB.Add;
1209: END IF;
1210: Set_Return_Status(x_orig_status => x_return_status,
1204: WHILE l_count <> 0 AND i <= l_count LOOP
1205: IF p_from_le_id = p_trx_tbl(i).to_le_id THEN
1206: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1207: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_IC_RELATIONSHIP');
1208: FND_MSG_PUB.Add;
1209: END IF;
1210: Set_Return_Status(x_orig_status => x_return_status,
1211: p_new_status => FND_API.G_RET_STS_ERROR);
1212: END IF;
1231: WHILE l_count <> 0 AND i <= l_count LOOP
1232: WHILE l_count <> 0 AND j <= l_count LOOP
1233: IF p_trx_tbl(i).recipient_id = p_initiator_id
1234: OR p_trx_tbl(i).recipient_id = p_trx_tbl(j).recipient_id THEN
1235: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1236: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_RECP');
1237: FND_MSG_PUB.Add;
1238: END IF;
1239: Set_Return_Status(x_orig_status => x_return_status,
1233: IF p_trx_tbl(i).recipient_id = p_initiator_id
1234: OR p_trx_tbl(i).recipient_id = p_trx_tbl(j).recipient_id THEN
1235: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1236: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_RECP');
1237: FND_MSG_PUB.Add;
1238: END IF;
1239: Set_Return_Status(x_orig_status => x_return_status,
1240: p_new_status => FND_API.G_RET_STS_ERROR);
1241: END IF;
1262: l_trx_type_code,
1263: l_need_invoice,
1264: l_enabled);
1265: IF l_enabled = 'N' THEN
1266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.SET_NAME('FUN','FUN_API_INVALID_TRX_TYPE');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: Set_Return_Status(x_orig_status => x_return_status,
1264: l_enabled);
1265: IF l_enabled = 'N' THEN
1266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1267: FND_MESSAGE.SET_NAME('FUN','FUN_API_INVALID_TRX_TYPE');
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;
1313: OPEN period_open_csr;
1314: FETCH period_open_csr INTO l_count;
1315: CLOSE period_open_csr;
1316: IF l_count < 1 THEN
1317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1318: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1319: FND_MSG_PUB.Add;
1320: END IF;
1321: Set_Return_Status(x_orig_status => x_return_status,
1315: CLOSE period_open_csr;
1316: IF l_count < 1 THEN
1317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1318: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1319: FND_MSG_PUB.Add;
1320: END IF;
1321: Set_Return_Status(x_orig_status => x_return_status,
1322: p_new_status => FND_API.G_RET_STS_ERROR);
1323: END IF;
1323: END IF;
1324: */
1325: l_result := fun_period_status_pkg.get_fun_prd_status(p_gl_date, p_trx_type_id);
1326: IF l_result <> 'O' THEN
1327: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1328: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1329: FND_MSG_PUB.Add;
1330: END IF;
1331: Set_Return_Status(x_orig_status => x_return_status,
1325: l_result := fun_period_status_pkg.get_fun_prd_status(p_gl_date, p_trx_type_id);
1326: IF l_result <> 'O' THEN
1327: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1328: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1329: FND_MSG_PUB.Add;
1330: END IF;
1331: Set_Return_Status(x_orig_status => x_return_status,
1332: p_new_status => FND_API.G_RET_STS_ERROR);
1333: END IF;
1385: END IF;
1386:
1387: -- Initialize message list if p_init_msg_list is set to TRUE.
1388: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE )) THEN
1389: FND_MSG_PUB.initialize;
1390: END IF;
1391:
1392: -- Initialize API return status to success
1393: x_return_status := FND_API.G_RET_STS_SUCCESS;
1407: p_batch_rec.gl_date IS NULL OR
1408: p_batch_rec.batch_date IS NULL) THEN
1409: Set_Return_Status(x_orig_status => x_return_status,
1410: p_new_status => FND_API.G_RET_STS_ERROR);
1411: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1412: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1413: FND_MSG_PUB.Add;
1414: END IF;
1415: END IF;
1409: Set_Return_Status(x_orig_status => x_return_status,
1410: p_new_status => FND_API.G_RET_STS_ERROR);
1411: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1412: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1413: FND_MSG_PUB.Add;
1414: END IF;
1415: END IF;
1416: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1417: Is_Batch_Num_Unique(x_return_status => l_return_status,
1509: if(l_intercompany_exception = 'N') THEN
1510:
1511: FND_MESSAGE.SET_NAME('FUN', 'FUN_INTERCOMPANY_EXCEPTION');
1512: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1513: FND_MSG_PUB.Add;
1514: Set_Return_Status(x_orig_status => x_return_status,
1515: p_new_status => FND_API.G_RET_STS_ERROR);
1516: end if;
1517: /* end of bug 4724672 */
1553: the creation sign */
1554: IF l_invoicing_rule = 'Y' THEN
1555:
1556: IF l_creation_sign IS NULL THEN
1557: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1558: IF l_trx_type = 'INV' THEN
1559:
1560: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
1561: FND_MESSAGE.SET_TOKEN('TRX_TYPE','Invoice Type');
1563:
1564: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
1565: FND_MESSAGE.SET_TOKEN('TRX_TYPE','Credit Memo Type');
1566: END IF;
1567: FND_MSG_PUB.Add;
1568: END IF;
1569: Set_Return_Status(x_orig_status => x_return_status,
1570: p_new_status => FND_API.G_RET_STS_ERROR);
1571: EXIT;
1573: /* If creation sign is positive and amount entered is
1574: negative, then throw an error*/
1575: IF (p_trx_tbl(i).init_amount_cr > 0 or p_trx_tbl(i).init_amount_dr < 0)
1576: and l_creation_sign = 1 THEN
1577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1578: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_POS_AMT');
1579: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1580: FND_MSG_PUB.Add;
1581: END IF;
1576: and l_creation_sign = 1 THEN
1577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1578: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_POS_AMT');
1579: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1580: FND_MSG_PUB.Add;
1581: END IF;
1582: Set_Return_Status(x_orig_status => x_return_status,
1583: p_new_status => FND_API.G_RET_STS_ERROR);
1584: END IF;
1585: /* If creation sign is negative and amount entered is
1586: positive, then throw an error*/
1587: IF (p_trx_tbl(i).init_amount_dr > 0 or p_trx_tbl(i).init_amount_cr < 0)
1588: and l_creation_sign = -1 THEN
1589: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1590: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_NEG_AMT');
1591: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1592: FND_MSG_PUB.Add;
1593: END IF;
1588: and l_creation_sign = -1 THEN
1589: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1590: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_TYPE_NEG_AMT');
1591: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1592: FND_MSG_PUB.Add;
1593: END IF;
1594: Set_Return_Status(x_orig_status => x_return_status,
1595: p_new_status => FND_API.G_RET_STS_ERROR);
1596: END IF;
1630:
1631: -- 7.2.2.6 Note: Do not need to check at least 1 dist line
1632: -- as we check total trx amounts = total dist amounts
1633: IF p_trx_tbl.count < 1 THEN
1634: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1635: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_RECI_LINE_NOT_FOUND');
1636: -- Problem: Double check with msg repository
1637: FND_MSG_PUB.Add;
1638: END IF;
1633: IF p_trx_tbl.count < 1 THEN
1634: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1635: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_RECI_LINE_NOT_FOUND');
1636: -- Problem: Double check with msg repository
1637: FND_MSG_PUB.Add;
1638: END IF;
1639: Set_Return_Status(x_orig_status => x_return_status,
1640: p_new_status => FND_API.G_RET_STS_ERROR);
1641: END IF;
1675:
1676: Debug('INIT_BATCH_VALIDATE(-)');
1677: -- End of API body.
1678: -- Standard call to get message count and if count is 1, get message info.
1679: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1680: p_data => x_msg_data);
1681: EXCEPTION
1682: WHEN FND_API.G_EXC_ERROR THEN
1683: x_return_status := FND_API.G_RET_STS_ERROR ;
1680: p_data => x_msg_data);
1681: EXCEPTION
1682: WHEN FND_API.G_EXC_ERROR THEN
1683: x_return_status := FND_API.G_RET_STS_ERROR ;
1684: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1685: p_data => x_msg_data);
1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1688: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1684: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1685: p_data => x_msg_data);
1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1688: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1689: p_data => x_msg_data);
1690: WHEN OTHERS THEN
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1692: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1688: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1689: p_data => x_msg_data);
1690: WHEN OTHERS THEN
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1692: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1694: END IF;
1695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1696: p_data => x_msg_data);
1689: p_data => x_msg_data);
1690: WHEN OTHERS THEN
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1692: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1694: END IF;
1695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1696: p_data => x_msg_data);
1697:
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1692: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1693: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1694: END IF;
1695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1696: p_data => x_msg_data);
1697:
1698:
1699: END Init_Batch_Validate;
1731: END IF;
1732:
1733: -- Initialize message list if p_init_msg_list is set to TRUE.
1734: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
1735: FND_MSG_PUB.initialize;
1736: END IF;
1737:
1738: -- Initialize API return status to success
1739: x_return_status := FND_API.G_RET_STS_SUCCESS;
1744: --check trx number
1745: IF p_trx_rec.trx_number IS NULL THEN
1746: Set_Return_Status(x_orig_status => x_return_status,
1747: p_new_status => FND_API.G_RET_STS_ERROR);
1748: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1749: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_NUM_NULL');
1750: FND_MSG_PUB.Add;
1751: END IF;
1752: END IF;
1746: Set_Return_Status(x_orig_status => x_return_status,
1747: p_new_status => FND_API.G_RET_STS_ERROR);
1748: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1749: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_NUM_NULL');
1750: FND_MSG_PUB.Add;
1751: END IF;
1752: END IF;
1753: --Bug No. 5307996. Check for valid Currency code.
1754: IF (default_currency_code is not null AND default_currency_code <> p_currency_code) THEN
1754: IF (default_currency_code is not null AND default_currency_code <> p_currency_code) THEN
1755: --Bug No. 6311049.
1756: Set_Return_Status(x_orig_status => x_return_status,
1757: p_new_status => FND_API.G_RET_STS_ERROR);
1758: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1759: FND_MESSAGE.SET_NAME('FUN', 'FUN_ADI_INVALID_CURRENCY');
1760: FND_MESSAGE.SET_TOKEN('CURRENCY', default_currency_code);
1761: FND_MSG_PUB.Add;
1762: END IF;
1757: p_new_status => FND_API.G_RET_STS_ERROR);
1758: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1759: FND_MESSAGE.SET_NAME('FUN', 'FUN_ADI_INVALID_CURRENCY');
1760: FND_MESSAGE.SET_TOKEN('CURRENCY', default_currency_code);
1761: FND_MSG_PUB.Add;
1762: END IF;
1763: END IF;
1764: --End of Bug No. 5307996.
1765: --7.2.1.2 Validate line number, recipient id, line amount, header amount is null
1773: p_trx_rec.init_amount_dr IS NOT NULL AND
1774: p_trx_rec.init_amount_dr <> 0)) THEN
1775: Set_Return_Status(x_orig_status => x_return_status,
1776: p_new_status => FND_API.G_RET_STS_ERROR);
1777: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1778: IF(p_trx_rec.init_amount_dr=0) THEN
1779: FND_MESSAGE.SET_NAME('FUN', 'FUN_NON_ZERO_AMOUNT');
1780: FND_MSG_PUB.Add;
1781: ELSE
1776: p_new_status => FND_API.G_RET_STS_ERROR);
1777: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1778: IF(p_trx_rec.init_amount_dr=0) THEN
1779: FND_MESSAGE.SET_NAME('FUN', 'FUN_NON_ZERO_AMOUNT');
1780: FND_MSG_PUB.Add;
1781: ELSE
1782: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1783: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_rec.trx_number);
1784: FND_MSG_PUB.Add;
1780: FND_MSG_PUB.Add;
1781: ELSE
1782: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1783: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_rec.trx_number);
1784: FND_MSG_PUB.Add;
1785: END IF;
1786: END IF;
1787: END IF;
1788:
1789: --check initiator and recipeint are not same
1790: IF p_trx_rec.recipient_id=p_trx_rec.initiator_id THEN
1791: Set_Return_Status(x_orig_status => x_return_status,
1792: p_new_status => FND_API.G_RET_STS_ERROR);
1793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1794: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CHANGE_INITIATOR');
1795: FND_MSG_PUB.Add;
1796: END IF;
1797: END IF;
1791: Set_Return_Status(x_orig_status => x_return_status,
1792: p_new_status => FND_API.G_RET_STS_ERROR);
1793: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1794: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CHANGE_INITIATOR');
1795: FND_MSG_PUB.Add;
1796: END IF;
1797: END IF;
1798:
1799: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1850: p_trx_date => p_gl_date);
1851:
1852: IF l_return_status like 'L' THEN -- 6145670
1853: FND_MESSAGE.SET_NAME('FUN', 'FND_INTER_TRX_GLDATE');
1854: FND_MSG_PUB.Add;
1855: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
1856:
1857: END IF; -- 6145670
1858:
1881:
1882: Debug('INIT_TRX_VALIDATE(-)');
1883: -- End of API body.
1884: -- Standard call to get message count and if count is 1, get message info.
1885: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1886: p_data => x_msg_data);
1887: EXCEPTION
1888: WHEN FND_API.G_EXC_ERROR THEN
1889: x_return_status := FND_API.G_RET_STS_ERROR ;
1886: p_data => x_msg_data);
1887: EXCEPTION
1888: WHEN FND_API.G_EXC_ERROR THEN
1889: x_return_status := FND_API.G_RET_STS_ERROR ;
1890: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1891: p_data => x_msg_data);
1892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1890: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1891: p_data => x_msg_data);
1892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1895: p_data => x_msg_data);
1896: WHEN OTHERS THEN
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1895: p_data => x_msg_data);
1896: WHEN OTHERS THEN
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1899: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1900: END IF;
1901: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1902: p_data => x_msg_data);
1895: p_data => x_msg_data);
1896: WHEN OTHERS THEN
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1899: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1900: END IF;
1901: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1902: p_data => x_msg_data);
1903: END Init_Trx_Validate;
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1899: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1900: END IF;
1901: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1902: p_data => x_msg_data);
1903: END Init_Trx_Validate;
1904:
1905: PROCEDURE Init_Dist_Validate
1926: END IF;
1927:
1928: -- Initialize message list if p_init_msg_list is set to TRUE.
1929: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
1930: FND_MSG_PUB.initialize;
1931: END IF;
1932:
1933: -- Initialize API return status to success
1934: x_return_status := FND_API.G_RET_STS_SUCCESS;
1939: -- under all conditions. Also added the negative ccid check.
1940: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1941:
1942: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1943: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1944: --Bug: 6618396
1945: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1946: -- Problem: Double check with msg repository
1947: FND_MSG_PUB.Add;
1943: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1944: --Bug: 6618396
1945: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
1946: -- Problem: Double check with msg repository
1947: FND_MSG_PUB.Add;
1948: END IF;
1949: Set_Return_Status(x_orig_status => x_return_status,
1950: p_new_status => FND_API.G_RET_STS_ERROR);
1951:
1963: p_init_dist_rec.amount_dr IS NOT NULL AND
1964: p_init_dist_rec.amount_dr <> 0))
1965: OR
1966: p_init_dist_rec.line_number IS NULL THEN
1967: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1968: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
1969: FND_MSG_PUB.Add;
1970: END IF;
1971: Set_Return_Status(x_orig_status => x_return_status,
1965: OR
1966: p_init_dist_rec.line_number IS NULL THEN
1967: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1968: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
1969: FND_MSG_PUB.Add;
1970: END IF;
1971: Set_Return_Status(x_orig_status => x_return_status,
1972: p_new_status => FND_API.G_RET_STS_ERROR);
1973: END IF;
1974: --END IF;
1975: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1976:
1977: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1978: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1979: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');
1980: FND_MSG_PUB.Add;
1981: END IF;
1982: Set_Return_Status(x_orig_status => x_return_status,
1976:
1977: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1978: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1979: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');
1980: FND_MSG_PUB.Add;
1981: END IF;
1982: Set_Return_Status(x_orig_status => x_return_status,
1983: p_new_status => FND_API.G_RET_STS_ERROR);
1984: END IF;
1985: --END IF;
1986: Debug('INIT_DIST_VALIDATE(-)');
1987: -- End of API body.
1988: -- Standard call to get message count and if count is 1, get message info.
1989: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1990: p_data => x_msg_data);
1991:
1992: EXCEPTION
1993: WHEN FND_API.G_EXC_ERROR THEN
1991:
1992: EXCEPTION
1993: WHEN FND_API.G_EXC_ERROR THEN
1994: x_return_status := FND_API.G_RET_STS_ERROR ;
1995: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1996: p_data => x_msg_data);
1997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1999: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1995: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1996: p_data => x_msg_data);
1997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1999: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2000: p_data => x_msg_data);
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2003: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1999: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2000: p_data => x_msg_data);
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2003: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2004: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2005: END IF;
2006: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2007: p_data => x_msg_data);
2000: p_data => x_msg_data);
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2003: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2004: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2005: END IF;
2006: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2007: p_data => x_msg_data);
2008:
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2003: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2004: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2005: END IF;
2006: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2007: p_data => x_msg_data);
2008:
2009:
2010: END Init_Dist_Validate;
2034: END IF;
2035:
2036: -- Initialize message list if p_init_msg_list is set to TRUE.
2037: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
2038: FND_MSG_PUB.initialize;
2039: END IF;
2040:
2041: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');
2042: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );
2058:
2059: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN
2060: Print ('Debug Init_Dist_Val >>> In If 2' );
2061:
2062: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2063: Print ('Debug Init_Dist_Val >>> In If 3' );
2064: --Bug: 6618396
2065: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
2066: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
2064: --Bug: 6618396
2065: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
2066: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
2067: -- Problem: Double check with msg repository
2068: FND_MSG_PUB.Add;
2069:
2070: Print ('Debug Init_Dist_Val >>> End of If 3' );
2071: END IF;
2072: Set_Return_Status(x_orig_status => x_return_status,
2095: p_dist_line_rec.amount_dr <> 0) THEN
2096:
2097: Print ('Debug Init_Dist_Val >>> In If 21' );
2098:
2099: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2100:
2101: Print ('Debug Init_Dist_Val >>> In If 22' );
2102:
2103: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_DIST_LINE');
2101: Print ('Debug Init_Dist_Val >>> In If 22' );
2102:
2103: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_DIST_LINE');
2104: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
2105: FND_MSG_PUB.Add;
2106: END IF;
2107:
2108: Print ('Debug Init_Dist_Val >>> End If 22' );
2109:
2115: Print ('Debug Init_Dist_Val >>> Party Type ' || p_dist_line_rec.party_type );
2116: Print ('Debug Init_Dist_Val >>> FND_API.G_RET_STS_ERROR ' || FND_API.G_RET_STS_ERROR );
2117:
2118: IF p_dist_line_rec.party_type <> 'I' and p_dist_line_rec.party_type <> 'R' THEN
2119: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2120: FND_MESSAGE.SET_NAME('FUN', 'Party type for distributions has not been set correctly');
2121: END IF;
2122: Set_Return_Status(x_orig_status => x_return_status,
2123: p_new_status => FND_API.G_RET_STS_ERROR);
2127: Print ('Debug Init_Dist_Val >>> End If');
2128:
2129: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
2130: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN
2131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2132: --Bug: 6618396
2133: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');
2134: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
2135: END IF;
2144: -- Standard call to get message count and if count is 1, get message info.
2145:
2146: Print ('Debug Init_Dist_Val >>> x_msg_count' || x_msg_count );
2147: Print ('Debug Init_Dist_Val >>> x_msg_data' || x_msg_data );
2148: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2149: p_data => x_msg_data);
2150:
2151:
2152: EXCEPTION
2154: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_count' || x_msg_count );
2155: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_data' || x_msg_data );
2156:
2157: x_return_status := FND_API.G_RET_STS_ERROR ;
2158: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2159: p_data => x_msg_data);
2160: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>>END ' );
2161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2162: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2162: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2163: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_data' || x_msg_data );
2164:
2165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2166: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2167: p_data => x_msg_data);
2168: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>>END ' );
2169: WHEN OTHERS THEN
2170: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2169: WHEN OTHERS THEN
2170: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2171: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_data' || x_msg_data );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2173: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2174: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2175: END IF;
2176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2177: p_data => x_msg_data);
2170: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2171: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_data' || x_msg_data );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2173: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2174: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2175: END IF;
2176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2177: p_data => x_msg_data);
2178: Print ('Debug Init_Dist_Val OTHER ERROR >>>END ' );
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2173: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2174: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2175: END IF;
2176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2177: p_data => x_msg_data);
2178: Print ('Debug Init_Dist_Val OTHER ERROR >>>END ' );
2179:
2180: END Init_IC_Dist_Validate;
2239: IF l_invoice_required = 'Y' THEN
2240:
2241: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
2242: IF l_from_ou_id IS NULL THEN
2243: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2244: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2245: FND_MSG_PUB.Add;
2246: END IF;
2247: Set_Return_Status(x_orig_status => x_return_status,
2241: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
2242: IF l_from_ou_id IS NULL THEN
2243: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2244: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2245: FND_MSG_PUB.Add;
2246: END IF;
2247: Set_Return_Status(x_orig_status => x_return_status,
2248: p_new_status => FND_API.G_RET_STS_ERROR);
2249: END IF;
2251: OPEN ou_valid_csr;
2252: FETCH ou_valid_csr INTO l_count;
2253: CLOSE ou_valid_csr;
2254: IF l_count < 1 THEN
2255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2256: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2257: FND_MSG_PUB.Add;
2258: END IF;
2259: Set_Return_Status(x_orig_status => x_return_status,
2253: CLOSE ou_valid_csr;
2254: IF l_count < 1 THEN
2255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2256: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2257: FND_MSG_PUB.Add;
2258: END IF;
2259: Set_Return_Status(x_orig_status => x_return_status,
2260: p_new_status => FND_API.G_RET_STS_ERROR);
2261: END IF;
2282: INTO recipient_name
2283: FROM hz_parties
2284: WHERE party_id=p_recipient_id;
2285:
2286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CUSTOMER');
2288: FND_MESSAGE.SET_TOKEN('INITIATOR_NAME',initiator_name);
2289: FND_MESSAGE.SET_TOKEN('RECIPIENT_NAME',recipient_name);
2290: FND_MSG_PUB.Add;
2286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CUSTOMER');
2288: FND_MESSAGE.SET_TOKEN('INITIATOR_NAME',initiator_name);
2289: FND_MESSAGE.SET_TOKEN('RECIPIENT_NAME',recipient_name);
2290: FND_MSG_PUB.Add;
2291: END IF;
2292: Set_Return_Status(x_orig_status => x_return_status,
2293: p_new_status => FND_API.G_RET_STS_ERROR);
2294: END IF;
2349: Debug('CREATE_REVERSE_BATCH(+)');
2350: --Bug: 6625360.
2351: -- Initialize message list if p_init_msg_list is set to TRUE.
2352: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
2353: FND_MSG_PUB.initialize;
2354: END IF;
2355: -- Initialize API return status to success
2356: x_return_status := FND_API.G_RET_STS_SUCCESS;
2357:
2416: AND hdrs.status in ('COMPLETE', 'APPROVED'))
2417: )
2418: );
2419: IF l_initiator_id < 1 THEN
2420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2421: FND_MESSAGE.SET_NAME('FUN', 'FUN_REVERSED_BATCH'); -- Problem here: Whether a msg is needed
2422: FND_MSG_PUB.Add;
2423: END IF;
2424: Set_Return_Status(x_orig_status => x_return_status,
2418: );
2419: IF l_initiator_id < 1 THEN
2420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2421: FND_MESSAGE.SET_NAME('FUN', 'FUN_REVERSED_BATCH'); -- Problem here: Whether a msg is needed
2422: FND_MSG_PUB.Add;
2423: END IF;
2424: Set_Return_Status(x_orig_status => x_return_status,
2425: p_new_status => FND_API.G_RET_STS_ERROR);
2426: RETURN;
2900: Debug('CREATE_REVERSE_TRX(+)');
2901:
2902: -- Initialize message list if p_init_msg_list is set to TRUE.
2903: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
2904: FND_MSG_PUB.initialize;
2905: END IF;
2906: -- Initialize API return status to success
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908:
2940: AND headers.reversed_trx_id IS NULL
2941: AND headers.original_trx_id IS NULL
2942: AND headers.status in ('COMPLETE', 'APPROVED');--Bug: 6625360. AND headers.status = 'COMPLETE';
2943: IF l_initiator_id IS NULL THEN
2944: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2945: FND_MESSAGE.SET_NAME('FUN', 'Trx error'); -- Problem here: Whether a msg is needed
2946: FND_MSG_PUB.Add;
2947: END IF;
2948: Set_Return_Status(x_orig_status => x_return_status,
2942: AND headers.status in ('COMPLETE', 'APPROVED');--Bug: 6625360. AND headers.status = 'COMPLETE';
2943: IF l_initiator_id IS NULL THEN
2944: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2945: FND_MESSAGE.SET_NAME('FUN', 'Trx error'); -- Problem here: Whether a msg is needed
2946: FND_MSG_PUB.Add;
2947: END IF;
2948: Set_Return_Status(x_orig_status => x_return_status,
2949: p_new_status => FND_API.G_RET_STS_ERROR);
2950: RETURN;
3395: END IF;
3396:
3397: -- Initialize message list if p_init_msg_list is set to TRUE.
3398: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3399: FND_MSG_PUB.initialize;
3400: END IF;
3401:
3402: -- Initialize API return status to success
3403: x_return_status := FND_API.G_RET_STS_SUCCESS;
3471: IF FND_API.To_Boolean( nvl(p_commit,FND_API.G_FALSE) ) THEN
3472: COMMIT WORK;
3473: END IF;
3474: ELSE
3475: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3476: FND_MESSAGE.SET_NAME('FUN', 'Can not update status given');
3477: FND_MSG_PUB.Add;
3478: END IF;
3479: Set_Return_Status(x_orig_status => x_return_status,
3473: END IF;
3474: ELSE
3475: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3476: FND_MESSAGE.SET_NAME('FUN', 'Can not update status given');
3477: FND_MSG_PUB.Add;
3478: END IF;
3479: Set_Return_Status(x_orig_status => x_return_status,
3480: p_new_status => FND_API.G_RET_STS_ERROR);
3481: END IF;
3480: p_new_status => FND_API.G_RET_STS_ERROR);
3481: END IF;
3482:
3483: -- Standard call to get message count and if count is 1, get message info.
3484: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3485: Debug('UPDATE_TRX_STATUS(-)');
3486: EXCEPTION
3487: WHEN FND_API.G_EXC_ERROR THEN
3488: ROLLBACK TO Update_Trx_Status;
3486: EXCEPTION
3487: WHEN FND_API.G_EXC_ERROR THEN
3488: ROLLBACK TO Update_Trx_Status;
3489: x_return_status := FND_API.G_RET_STS_ERROR ;
3490: FND_MSG_PUB.Count_And_Get
3491: ( p_count => x_msg_count,
3492: p_data => x_msg_data );
3493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3494: ROLLBACK TO Update_Trx_Status;
3492: p_data => x_msg_data );
3493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3494: ROLLBACK TO Update_Trx_Status;
3495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3496: FND_MSG_PUB.Count_And_Get
3497: ( p_count => x_msg_count,
3498: p_data => x_msg_data);
3499: WHEN OTHERS THEN
3500: ROLLBACK TO Update_Trx_Status;
3498: p_data => x_msg_data);
3499: WHEN OTHERS THEN
3500: ROLLBACK TO Update_Trx_Status;
3501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3502: IF FND_MSG_PUB.Check_Msg_Level
3503: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3504: THEN
3505: FND_MSG_PUB.Add_Exc_Msg
3506: ( G_FILE_NAME,
3499: WHEN OTHERS THEN
3500: ROLLBACK TO Update_Trx_Status;
3501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3502: IF FND_MSG_PUB.Check_Msg_Level
3503: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3504: THEN
3505: FND_MSG_PUB.Add_Exc_Msg
3506: ( G_FILE_NAME,
3507: G_PKG_NAME,
3501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3502: IF FND_MSG_PUB.Check_Msg_Level
3503: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3504: THEN
3505: FND_MSG_PUB.Add_Exc_Msg
3506: ( G_FILE_NAME,
3507: G_PKG_NAME,
3508: l_api_name
3509: );
3507: G_PKG_NAME,
3508: l_api_name
3509: );
3510: END IF;
3511: FND_MSG_PUB.Count_And_Get
3512: ( p_count => x_msg_count,
3513: p_data => x_msg_data
3514: );
3515:
3544: FOR i IN 1..l_count LOOP
3545:
3546: IF p_dist_lines_tbl(i).party_type = 'R' THEN
3547: IF p_dist_lines_tbl(i).ccid IS NULL THEN
3548: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3549: --Bug: 6618396
3550: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_RECI_DIST_AC_CCID');
3551: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_lines_tbl(i).trx_number);
3552: -- Problem: Double check with msg repository
3549: --Bug: 6618396
3550: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_RECI_DIST_AC_CCID');
3551: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_lines_tbl(i).trx_number);
3552: -- Problem: Double check with msg repository
3553: FND_MSG_PUB.Add;
3554: END IF;
3555: Set_Return_Status(x_orig_status => x_return_status,
3556: p_new_status => FND_API.G_RET_STS_ERROR);
3557: l_return_status := x_return_status;
3609: --Bug: 16229717.
3610: IF p_dist_lines_tbl(j).amount_cr is null AND p_dist_lines_tbl(j).amount_dr is null THEN
3611:
3612: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3613: FND_MSG_PUB.Add;
3614: Set_Return_Status(x_orig_status => x_return_status,
3615: p_new_status => FND_API.G_RET_STS_ERROR);
3616: Return;
3617:
3641:
3642: IF (p_trx_amount_cr <> l_dist_total_dr OR
3643: p_trx_amount_dr <> l_dist_total_cr )
3644: THEN
3645: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3646: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3647: FND_MSG_PUB.Add;
3648: END IF;
3649: Set_Return_Status(x_orig_status => x_return_status,
3643: p_trx_amount_dr <> l_dist_total_cr )
3644: THEN
3645: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3646: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3647: FND_MSG_PUB.Add;
3648: END IF;
3649: Set_Return_Status(x_orig_status => x_return_status,
3650: p_new_status => FND_API.G_RET_STS_ERROR);
3651: END IF;
3651: END IF;
3652:
3653: IF l_dist_cr_type = l_dist_dr_type
3654: THEN
3655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3656: THEN
3657: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3658: FND_MSG_PUB.Add;
3659: END IF;
3654: THEN
3655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3656: THEN
3657: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3658: FND_MSG_PUB.Add;
3659: END IF;
3660: Set_Return_Status(x_orig_status => x_return_status,
3661: p_new_status => FND_API.G_RET_STS_ERROR);
3662: END IF;
3667: x_return_status := FND_API.G_RET_STS_ERROR ;
3668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3670: WHEN OTHERS THEN
3671: FND_MSG_PUB.ADD;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3673: IF FND_MSG_PUB.Check_Msg_Level
3674: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3675: THEN
3669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3670: WHEN OTHERS THEN
3671: FND_MSG_PUB.ADD;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3673: IF FND_MSG_PUB.Check_Msg_Level
3674: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3675: THEN
3676: FND_MSG_PUB.Add_Exc_Msg
3677: ( G_PKG_NAME ,
3670: WHEN OTHERS THEN
3671: FND_MSG_PUB.ADD;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3673: IF FND_MSG_PUB.Check_Msg_Level
3674: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3675: THEN
3676: FND_MSG_PUB.Add_Exc_Msg
3677: ( G_PKG_NAME ,
3678: l_api_name
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3673: IF FND_MSG_PUB.Check_Msg_Level
3674: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3675: THEN
3676: FND_MSG_PUB.Add_Exc_Msg
3677: ( G_PKG_NAME ,
3678: l_api_name
3679: );
3680: END IF;
3713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3714: END IF;
3715: -- Initialize message list if p_init_msg_list is set to TRUE.
3716: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3717: FND_MSG_PUB.initialize;
3718: END IF;
3719: -- Initialize API return status to success
3720: x_return_status := FND_API.G_RET_STS_SUCCESS;
3721:
3744: END IF;
3745: END LOOP;
3746: END IF;
3747: IF l_index = 0 THEN
3748: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3749: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_ENTRY_TRX_UP_NODATA');
3750: FND_MSG_PUB.Add;
3751: END IF;
3752: -- Made changes for bug 9341446
3746: END IF;
3747: IF l_index = 0 THEN
3748: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3749: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_ENTRY_TRX_UP_NODATA');
3750: FND_MSG_PUB.Add;
3751: END IF;
3752: -- Made changes for bug 9341446
3753: Set_Return_Status(x_orig_status => x_return_status,
3754: p_new_status => 'I');
3806:
3807: Debug('RECIPIENT_VALIDATE(-)');
3808: -- End of API body.
3809: -- Standard call to get message count and if count is 1, get message info.
3810: FND_MSG_PUB.Count_And_Get
3811: ( p_count => x_msg_count,
3812: p_data => x_msg_data
3813: );
3814: EXCEPTION
3813: );
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3816: x_return_status := FND_API.G_RET_STS_ERROR ;
3817: FND_MSG_PUB.Count_And_Get
3818: ( p_count => x_msg_count,
3819: p_data => x_msg_data
3820: );
3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3819: p_data => x_msg_data
3820: );
3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3823: FND_MSG_PUB.Count_And_Get
3824: ( p_count => x_msg_count,
3825: p_data => x_msg_data
3826: );
3827: WHEN OTHERS THEN
3825: p_data => x_msg_data
3826: );
3827: WHEN OTHERS THEN
3828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3829: IF FND_MSG_PUB.Check_Msg_Level
3830: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3831: THEN
3832: FND_MSG_PUB.Add_Exc_Msg
3833: ( G_PKG_NAME ,
3826: );
3827: WHEN OTHERS THEN
3828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3829: IF FND_MSG_PUB.Check_Msg_Level
3830: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3831: THEN
3832: FND_MSG_PUB.Add_Exc_Msg
3833: ( G_PKG_NAME ,
3834: l_api_name
3828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3829: IF FND_MSG_PUB.Check_Msg_Level
3830: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3831: THEN
3832: FND_MSG_PUB.Add_Exc_Msg
3833: ( G_PKG_NAME ,
3834: l_api_name
3835: );
3836: END IF;
3833: ( G_PKG_NAME ,
3834: l_api_name
3835: );
3836: END IF;
3837: FND_MSG_PUB.Count_And_Get
3838: ( p_count => x_msg_count,
3839: p_data => x_msg_data
3840: );
3841:
3935: --Bug: 16229717.
3936: IF p_dist_lines_tbl(j).amount_cr is null AND p_dist_lines_tbl(j).amount_dr is null THEN
3937:
3938: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3939: FND_MSG_PUB.Add;
3940: Set_Return_Status(x_orig_status => x_return_status,
3941: p_new_status => FND_API.G_RET_STS_ERROR);
3942: Return;
3943:
3968:
3969: IF (nvl(p_trx_amount_cr,0) < l_dist_total_dr OR
3970: nvl(p_trx_amount_dr,0) < l_dist_total_cr )
3971: THEN
3972: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3973: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3974: FND_MSG_PUB.Add;
3975: END IF;
3976: Set_Return_Status(x_orig_status => x_return_status,
3970: nvl(p_trx_amount_dr,0) < l_dist_total_cr )
3971: THEN
3972: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3973: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3974: FND_MSG_PUB.Add;
3975: END IF;
3976: Set_Return_Status(x_orig_status => x_return_status,
3977: p_new_status => FND_API.G_RET_STS_ERROR);
3978: END IF;
3978: END IF;
3979:
3980: IF l_dist_cr_type = l_dist_dr_type
3981: THEN
3982: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3983: THEN
3984: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3985: FND_MSG_PUB.Add;
3986: END IF;
3981: THEN
3982: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3983: THEN
3984: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3985: FND_MSG_PUB.Add;
3986: END IF;
3987: Set_Return_Status(x_orig_status => x_return_status,
3988: p_new_status => FND_API.G_RET_STS_ERROR);
3989: END IF;
3994: x_return_status := FND_API.G_RET_STS_ERROR ;
3995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3997: WHEN OTHERS THEN
3998: FND_MSG_PUB.ADD;
3999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4000: IF FND_MSG_PUB.Check_Msg_Level
4001: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
3996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3997: WHEN OTHERS THEN
3998: FND_MSG_PUB.ADD;
3999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4000: IF FND_MSG_PUB.Check_Msg_Level
4001: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: FND_MSG_PUB.Add_Exc_Msg
4004: ( G_PKG_NAME ,
3997: WHEN OTHERS THEN
3998: FND_MSG_PUB.ADD;
3999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4000: IF FND_MSG_PUB.Check_Msg_Level
4001: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: FND_MSG_PUB.Add_Exc_Msg
4004: ( G_PKG_NAME ,
4005: l_api_name
3999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4000: IF FND_MSG_PUB.Check_Msg_Level
4001: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4002: THEN
4003: FND_MSG_PUB.Add_Exc_Msg
4004: ( G_PKG_NAME ,
4005: l_api_name
4006: );
4007: END IF;
4041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4042: END IF;
4043: -- Initialize message list if p_init_msg_list is set to TRUE.
4044: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4045: FND_MSG_PUB.initialize;
4046: END IF;
4047: -- Initialize API return status to success
4048: x_return_status := FND_API.G_RET_STS_SUCCESS;
4049:
4095: END IF;
4096: Debug('RECIPIENT_VALIDATE(-)');
4097: -- End of API body.
4098: -- Standard call to get message count and if count is 1, get message info.
4099: FND_MSG_PUB.Count_And_Get
4100: ( p_count => x_msg_count,
4101: p_data => x_msg_data
4102: );
4103: EXCEPTION
4102: );
4103: EXCEPTION
4104: WHEN FND_API.G_EXC_ERROR THEN
4105: x_return_status := FND_API.G_RET_STS_ERROR ;
4106: FND_MSG_PUB.Count_And_Get
4107: ( p_count => x_msg_count,
4108: p_data => x_msg_data
4109: );
4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4108: p_data => x_msg_data
4109: );
4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4112: FND_MSG_PUB.Count_And_Get
4113: ( p_count => x_msg_count,
4114: p_data => x_msg_data
4115: );
4116: WHEN OTHERS THEN
4114: p_data => x_msg_data
4115: );
4116: WHEN OTHERS THEN
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4118: IF FND_MSG_PUB.Check_Msg_Level
4119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4120: THEN
4121: FND_MSG_PUB.Add_Exc_Msg
4122: ( G_PKG_NAME ,
4115: );
4116: WHEN OTHERS THEN
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4118: IF FND_MSG_PUB.Check_Msg_Level
4119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4120: THEN
4121: FND_MSG_PUB.Add_Exc_Msg
4122: ( G_PKG_NAME ,
4123: l_api_name
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4118: IF FND_MSG_PUB.Check_Msg_Level
4119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4120: THEN
4121: FND_MSG_PUB.Add_Exc_Msg
4122: ( G_PKG_NAME ,
4123: l_api_name
4124: );
4125: END IF;
4122: ( G_PKG_NAME ,
4123: l_api_name
4124: );
4125: END IF;
4126: FND_MSG_PUB.Count_And_Get
4127: ( p_count => x_msg_count,
4128: p_data => x_msg_data
4129: );
4130:
4349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4350: END IF;
4351: -- Initialize message list if p_init_msg_list is set to TRUE.
4352: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4353: FND_MSG_PUB.initialize;
4354: END IF;
4355: -- Initialize API return status to success
4356: x_return_status := FND_API.G_RET_STS_SUCCESS;
4357:
4461:
4462: Debug('INIT_GENERATE_DISTRIBUTIONS(-)');
4463: -- End of API body.
4464: -- Standard call to get message count and if count is 1, get message info.
4465: FND_MSG_PUB.Count_And_Get
4466: ( p_count => x_msg_count,
4467: p_data => x_msg_data
4468: );
4469:
4469:
4470: EXCEPTION
4471: WHEN FND_API.G_EXC_ERROR THEN
4472: x_return_status := FND_API.G_RET_STS_ERROR ;
4473: FND_MSG_PUB.Count_And_Get
4474: ( p_count => x_msg_count,
4475: p_data => x_msg_data
4476: );
4477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4475: p_data => x_msg_data
4476: );
4477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4479: FND_MSG_PUB.Count_And_Get
4480: ( p_count => x_msg_count,
4481: p_data => x_msg_data
4482: );
4483: WHEN OTHERS THEN
4481: p_data => x_msg_data
4482: );
4483: WHEN OTHERS THEN
4484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4485: IF FND_MSG_PUB.Check_Msg_Level
4486: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4487: THEN
4488: FND_MSG_PUB.Add_Exc_Msg
4489: ( G_PKG_NAME ,
4482: );
4483: WHEN OTHERS THEN
4484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4485: IF FND_MSG_PUB.Check_Msg_Level
4486: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4487: THEN
4488: FND_MSG_PUB.Add_Exc_Msg
4489: ( G_PKG_NAME ,
4490: l_api_name
4484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4485: IF FND_MSG_PUB.Check_Msg_Level
4486: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4487: THEN
4488: FND_MSG_PUB.Add_Exc_Msg
4489: ( G_PKG_NAME ,
4490: l_api_name
4491: );
4492: END IF;
4489: ( G_PKG_NAME ,
4490: l_api_name
4491: );
4492: END IF;
4493: FND_MSG_PUB.Count_And_Get
4494: ( p_count => x_msg_count,
4495: p_data => x_msg_data
4496: );
4497: END;
4543:
4544: -- 7.3.1.3
4545: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
4546: IF l_to_ou_id IS NULL THEN
4547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4549: FND_MSG_PUB.Add;
4550: END IF;
4551: Set_Return_Status(x_orig_status => x_return_status,
4545: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
4546: IF l_to_ou_id IS NULL THEN
4547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4549: FND_MSG_PUB.Add;
4550: END IF;
4551: Set_Return_Status(x_orig_status => x_return_status,
4552: p_new_status => FND_API.G_RET_STS_ERROR);
4553: Return;
4555: OPEN ou_valid_csr;
4556: FETCH ou_valid_csr INTO l_count;
4557: CLOSE ou_valid_csr;
4558: IF l_count < 1 THEN
4559: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4560: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4561: FND_MSG_PUB.Add;
4562: END IF;
4563: Set_Return_Status(x_orig_status => x_return_status,
4557: CLOSE ou_valid_csr;
4558: IF l_count < 1 THEN
4559: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4560: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4561: FND_MSG_PUB.Add;
4562: END IF;
4563: Set_Return_Status(x_orig_status => x_return_status,
4564: p_new_status => FND_API.G_RET_STS_ERROR);
4565: Return;
4575: --
4576:
4577: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
4578: IF l_from_ou_id IS NULL THEN
4579: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4580: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4581: FND_MSG_PUB.Add;
4582: END IF;
4583: Set_Return_Status(x_orig_status => x_return_status,
4577: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_initiator_id, p_trx_date);
4578: IF l_from_ou_id IS NULL THEN
4579: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4580: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4581: FND_MSG_PUB.Add;
4582: END IF;
4583: Set_Return_Status(x_orig_status => x_return_status,
4584: p_new_status => FND_API.G_RET_STS_ERROR);
4585: Return;
4592: p_trx_date, l_msg_data,
4593: l_supplier_id, l_pay_site_id);
4594:
4595: IF NOT l_success THEN
4596: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4597: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_SUPPLIER');
4598: FND_MSG_PUB.Add;
4599: END IF;
4600: Set_Return_Status(x_orig_status => x_return_status,
4594:
4595: IF NOT l_success THEN
4596: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4597: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_SUPPLIER');
4598: FND_MSG_PUB.Add;
4599: END IF;
4600: Set_Return_Status(x_orig_status => x_return_status,
4601: p_new_status => FND_API.G_RET_STS_ERROR);
4602: END IF;
4604: OPEN period_open_csr;
4605: FETCH period_open_csr INTO l_count;
4606: CLOSE period_open_csr;
4607: IF l_count < 1 THEN
4608: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4609: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AP_PERIOD_NOT_OPEN');
4610: FND_MSG_PUB.Add;
4611: END IF;
4612: Set_Return_Status(x_orig_status => x_return_status,
4606: CLOSE period_open_csr;
4607: IF l_count < 1 THEN
4608: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4609: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AP_PERIOD_NOT_OPEN');
4610: FND_MSG_PUB.Add;
4611: END IF;
4612: Set_Return_Status(x_orig_status => x_return_status,
4613: p_new_status => FND_API.G_RET_STS_ERROR);
4614: END IF;
4680: END IF;
4681:
4682: -- Initialize message list if p_init_msg_list is set to TRUE.
4683: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4684: FND_MSG_PUB.initialize;
4685: END IF;
4686:
4687: -- Initialize API return status to success
4688: x_return_status := FND_API.G_RET_STS_SUCCESS;
4712: l_default_term_id);
4713: IF l_memo_line_name IS NULL OR l_ar_trx_type_name IS NULL THEN
4714:
4715: -- Problem need a message error code here
4716: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4717: -- ER: 8288979
4718: l_trx_type := 'INV';
4719: IF(l_init_amount_dr is null) THEN
4720: l_init_amount_dr := 0;
4732: FND_MESSAGE.SET_TOKEN('TRX_TYPE','Invoice Type');
4733: ELSE
4734: FND_MESSAGE.SET_TOKEN('TRX_TYPE','Credit Memo Type');
4735: END IF;
4736: FND_MSG_PUB.Add;
4737: END IF;
4738: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4739: END IF;
4740:
4741: OPEN period_open_csr(l_trx_date,
4742: l_from_ledger_id);
4743: FETCH period_open_csr INTO l_count;
4744: IF l_count < 1 THEN
4745: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4746: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AR_PERIOD_NOT_OPEN');
4747: FND_MSG_PUB.Add;
4748: END IF;
4749: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4743: FETCH period_open_csr INTO l_count;
4744: IF l_count < 1 THEN
4745: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4746: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AR_PERIOD_NOT_OPEN');
4747: FND_MSG_PUB.Add;
4748: END IF;
4749: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4750: END IF;
4751:
4760:
4761: Debug('AR_TRANSFER_VALIDATE(-)');
4762: -- End of API body.
4763: -- Standard call to get message count and if count is 1, get message info.
4764: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4765: p_data => x_msg_data);
4766: EXCEPTION
4767: WHEN FND_API.G_EXC_ERROR THEN
4768: x_return_status := FND_API.G_RET_STS_ERROR ;
4765: p_data => x_msg_data);
4766: EXCEPTION
4767: WHEN FND_API.G_EXC_ERROR THEN
4768: x_return_status := FND_API.G_RET_STS_ERROR ;
4769: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4770: p_data => x_msg_data);
4771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4769: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4770: p_data => x_msg_data);
4771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4774: p_data => x_msg_data);
4775: WHEN OTHERS THEN
4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4777: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4774: p_data => x_msg_data);
4775: WHEN OTHERS THEN
4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4777: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4778: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4779: END IF;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4781: p_data => x_msg_data);
4774: p_data => x_msg_data);
4775: WHEN OTHERS THEN
4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4777: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4778: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4779: END IF;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4781: p_data => x_msg_data);
4782:
4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4777: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4778: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4779: END IF;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4781: p_data => x_msg_data);
4782:
4783:
4784: END AR_Transfer_Validate;
4790: ) IS
4791: BEGIN
4792: -- API body
4793: -- Problem: Use FND LOGGING mechanism?
4794: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
4795: FND_MESSAGE.SET_NAME('FUN', p_message);
4796: FND_MSG_PUB.Add;
4797: END IF;
4798:
4792: -- API body
4793: -- Problem: Use FND LOGGING mechanism?
4794: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
4795: FND_MESSAGE.SET_NAME('FUN', p_message);
4796: FND_MSG_PUB.Add;
4797: END IF;
4798:
4799: -- End of API body.
4800: END Debug;
4820: BEGIN
4821: -- Initialize message list if p_init_msg_list is set to TRUE.
4822: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE))
4823: THEN
4824: FND_MSG_PUB.initialize;
4825: END IF;
4826:
4827: -- Initialize API return status to success
4828: x_return_status := FND_API.G_RET_STS_SUCCESS;
4869:
4870: END LOOP;
4871: END IF;
4872:
4873: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4874: p_data => x_msg_data);
4875:
4876: EXCEPTION
4877: WHEN FND_API.G_EXC_ERROR THEN
4875:
4876: EXCEPTION
4877: WHEN FND_API.G_EXC_ERROR THEN
4878: x_return_status := FND_API.G_RET_STS_ERROR ;
4879: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4880: p_data => x_msg_data);
4881:
4882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4880: p_data => x_msg_data);
4881:
4882: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4884: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4885: p_data => x_msg_data);
4886: WHEN OTHERS THEN
4887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4888: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4884: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4885: p_data => x_msg_data);
4886: WHEN OTHERS THEN
4887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4888: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4889: THEN
4890: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4891: END IF;
4892: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4886: WHEN OTHERS THEN
4887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4888: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4889: THEN
4890: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4891: END IF;
4892: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4893: p_data => x_msg_data);
4894: END cancel_notifications;
4888: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4889: THEN
4890: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4891: END IF;
4892: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4893: p_data => x_msg_data);
4894: END cancel_notifications;
4895:
4896: FUNCTION getprecision(l_currency_code VARCHAR2) RETURN NUMBER