[Home] [Help]
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;
91: END IF;
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;
91: END IF;
92:
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;
103:
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;
103:
104: END;
135: IF p_trx_tbl(J).batch_id=p_batch_id AND p_trx_tbl(J).trx_number = p_trx_tbl(I).trx_number THEN
136: l_count := l_count+1;
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);
136: l_count := l_count+1;
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;
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,
178: p_new_status => FND_API.G_RET_STS_ERROR);
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');
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));
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');
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;
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');
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;
296: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_INITIATOR');
297: ELSE
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
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
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
311: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
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
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
311: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
312: FND_MESSAGE.SET_TOKEN('P_START_DATE',to_char(l_le_start_dt));
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
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
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;
307: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
308: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
309: ELSE
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
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;
308: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
309: ELSE
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
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;
309: ELSE
310: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT_DATE');
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;
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
334: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_RECIPIENT');
335: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
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;
337: END IF;
338: END IF;
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;
337: END IF;
338: END IF;
339: Set_Return_Status(x_orig_status => x_return_status,
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
353: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INACTIVE_RECI_LE');
354: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_trx_number);
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;
356: END IF;
357: END IF;
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;
356: END IF;
357: END IF;
358: Set_Return_Status(x_orig_status => x_return_status,
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,
371: p_new_status => FND_API.G_RET_STS_ERROR);
373: 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:
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;
451: Set_Return_Status(x_orig_status => x_return_status,
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;
451: Set_Return_Status(x_orig_status => x_return_status,
452: p_new_status => FND_API.G_RET_STS_ERROR);
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;
462: END IF;
463: Set_Return_Status(x_orig_status => x_return_status,
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;
462: END IF;
463: Set_Return_Status(x_orig_status => x_return_status,
464: p_new_status => FND_API.G_RET_STS_ERROR);
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;
529: END IF;
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;
529: END IF;
530: Set_Return_Status(x_orig_status => x_return_status,
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;
529: END IF;
530: Set_Return_Status(x_orig_status => x_return_status,
531: p_new_status => FND_API.G_RET_STS_ERROR);
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,
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,
552: p_new_status => FND_API.G_RET_STS_ERROR);
554:
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)
649: and (legal_entity_id = p_le_id or legal_entity_id is null);
650:
651: IF(l_count<1) THEN
652: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
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;
650:
651: IF(l_count<1) THEN
652: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
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,
651: IF(l_count<1) THEN
652: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
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);
652: Get_Valid_Bsvs(p_ledger_id => p_ledger_id,p_le_id => p_le_id,x_valid_bsvs => l_valid_bsvs);
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;
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:
670:
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,
708: p_new_status => FND_API.G_RET_STS_ERROR);
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,
719: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);
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);
730: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
731: FND_MSG_PUB.Add;
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);
730: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
731: FND_MSG_PUB.Add;
732: END IF;
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);
730: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
731: FND_MSG_PUB.Add;
732: END IF;
733: */
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);
730: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
731: FND_MSG_PUB.Add;
732: END IF;
733: */
734: END;
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,
816: p_new_status => FND_API.G_RET_STS_ERROR);
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,
827: p_new_status => FND_API.G_RET_STS_ERROR);
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,
910: p_new_status => FND_API.G_RET_STS_ERROR);
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,
921: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1025: p_new_status => FND_API.G_RET_STS_ERROR);
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;
1036: Set_Return_Status(x_orig_status => x_return_status,
1037: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1083: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1097: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1109: p_new_status => FND_API.G_RET_STS_ERROR);
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
1120: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
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;
1125: Debug('IS_CURR_FLD_VALID(-)');
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,
1150: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1179: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1210: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1261: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1271: p_new_status => FND_API.G_RET_STS_ERROR);
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;
1346: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1411:
1412:
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);
1412:
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;
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,
1463: p_new_status => FND_API.G_RET_STS_ERROR);
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;
1475: Set_Return_Status(x_orig_status => x_return_status,
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;
1475: Set_Return_Status(x_orig_status => x_return_status,
1476: p_new_status => FND_API.G_RET_STS_ERROR);
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;
1487: Set_Return_Status(x_orig_status => x_return_status,
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;
1487: Set_Return_Status(x_orig_status => x_return_status,
1488: p_new_status => FND_API.G_RET_STS_ERROR);
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;
1532: Set_Return_Status(x_orig_status => x_return_status,
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;
1642: --Bug No. 5307996. Check for valid Currency code.
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;
1652: END IF;
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;
1652: END IF;
1653: --End of Bug No. 5307996.
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
1671: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1672: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_rec.trx_number);
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;
1674: END IF;
1675: END IF;
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;
1674: END IF;
1675: END IF;
1676: END IF;
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;
1687:
1737: p_to_le_id => p_trx_rec.to_le_id,
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
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;
1836: END IF;
1837: Set_Return_Status(x_orig_status => x_return_status,
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,
1860: p_new_status => FND_API.G_RET_STS_ERROR);
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,
1871: p_new_status => FND_API.G_RET_STS_ERROR);
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);
1955: -- Problem: Double check with msg repository
1956: FND_MSG_PUB.Add;
1957:
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);
1955: -- Problem: Double check with msg repository
1956: FND_MSG_PUB.Add;
1957:
1958: Print ('Debug Init_Dist_Val >>> End of If 3' );
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');
1992: FND_MESSAGE.SET_TOKEN('TRX_NUMBER', p_dist_line_rec.trx_number);
1993: FND_MSG_PUB.Add;
1994: END IF;
1995:
1988:
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' );
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);
2012: END IF;
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;
2024:
2025: Print ('Debug Init_Dist_Val >>> x_return_status' || x_return_status );
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;
2024:
2025: Print ('Debug Init_Dist_Val >>> x_return_status' || x_return_status );
2026: Set_Return_Status(x_orig_status => x_return_status,
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,
2136: p_new_status => FND_API.G_RET_STS_ERROR);
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,
2148: p_new_status => FND_API.G_RET_STS_ERROR);
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;
2179: END IF;
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;
2179: END IF;
2180: Set_Return_Status(x_orig_status => x_return_status,
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;
2179: END IF;
2180: Set_Return_Status(x_orig_status => x_return_status,
2181: p_new_status => FND_API.G_RET_STS_ERROR);
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,
2277: p_new_status => FND_API.G_RET_STS_ERROR);
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,
2729: p_new_status => FND_API.G_RET_STS_ERROR);
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,
3246: p_new_status => FND_API.G_RET_STS_ERROR);
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
3319: FND_MSG_PUB.Add;
3320: END IF;
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
3319: FND_MSG_PUB.Add;
3320: END IF;
3321: Set_Return_Status(x_orig_status => x_return_status,
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,
3400: p_new_status => FND_API.G_RET_STS_ERROR);
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;
3410: Set_Return_Status(x_orig_status => x_return_status,
3411: p_new_status => FND_API.G_RET_STS_ERROR);
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,
3503: p_new_status => FND_API.G_RET_STS_ERROR);
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,
3691: p_new_status => FND_API.G_RET_STS_ERROR);
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;
3701: Set_Return_Status(x_orig_status => x_return_status,
3702: p_new_status => FND_API.G_RET_STS_ERROR);
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,
4256: p_new_status => FND_API.G_RET_STS_ERROR);
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,
4268: p_new_status => FND_API.G_RET_STS_ERROR);
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,
4288: p_new_status => FND_API.G_RET_STS_ERROR);
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,
4305: p_new_status => FND_API.G_RET_STS_ERROR);
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,
4317: p_new_status => FND_API.G_RET_STS_ERROR);
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);
4419: END IF;
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);
4430: END IF;
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:
4479: -- End of API body.