APPS.FUN_TRX_PVT dependencies on FND_API

Line 33: IF (x_orig_status = FND_API.G_RET_STS_SUCCESS

29: p_new_status IN VARCHAR2
30: ) IS
31: BEGIN
32: -- API body
33: IF (x_orig_status = FND_API.G_RET_STS_SUCCESS
34: AND p_new_status <> FND_API.G_RET_STS_SUCCESS) THEN
35: x_orig_status := p_new_status;
36: ELSIF (x_orig_status = FND_API.G_RET_STS_ERROR
37: AND p_new_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

Line 34: AND p_new_status <> FND_API.G_RET_STS_SUCCESS) THEN

30: ) IS
31: BEGIN
32: -- API body
33: IF (x_orig_status = FND_API.G_RET_STS_SUCCESS
34: AND p_new_status <> FND_API.G_RET_STS_SUCCESS) THEN
35: x_orig_status := p_new_status;
36: ELSIF (x_orig_status = FND_API.G_RET_STS_ERROR
37: AND p_new_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
38: x_orig_status := p_new_status;

Line 36: ELSIF (x_orig_status = FND_API.G_RET_STS_ERROR

32: -- API body
33: IF (x_orig_status = FND_API.G_RET_STS_SUCCESS
34: AND p_new_status <> FND_API.G_RET_STS_SUCCESS) THEN
35: x_orig_status := p_new_status;
36: ELSIF (x_orig_status = FND_API.G_RET_STS_ERROR
37: AND p_new_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
38: x_orig_status := p_new_status;
39: END IF;
40: -- End of API body.

Line 37: AND p_new_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

33: IF (x_orig_status = FND_API.G_RET_STS_SUCCESS
34: AND p_new_status <> FND_API.G_RET_STS_SUCCESS) THEN
35: x_orig_status := p_new_status;
36: ELSIF (x_orig_status = FND_API.G_RET_STS_ERROR
37: AND p_new_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
38: x_orig_status := p_new_status;
39: END IF;
40: -- End of API body.
41: END Set_Return_Status;

Line 53: x_return_status := FND_API.G_RET_STS_SUCCESS;

49: l_assignment_count NUMBER;
50: l_party_name VARCHAR2(360);
51: BEGIN
52:
53: x_return_status := FND_API.G_RET_STS_SUCCESS;
54:
55: SELECT PARTY_NAME INTO l_party_name from HZ_PARTIES
56: WHERE PARTY_ID = p_party_id;
57:

Line 85: p_new_status => FND_API.G_RET_STS_ERROR);

81: AND nvl(HZR.end_date, sysdate + 1);
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;

Line 97: p_new_status => FND_API.G_RET_STS_ERROR);

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;

Line 178: x_return_status := FND_API.G_RET_STS_SUCCESS;

174: p_trx_tbl IN OUT NOCOPY TRX_TBL_TYPE) IS
175: l_count NUMBER;
176: BEGIN
177: Debug('IS_TRX_NUM_UNIQUE(+)');
178: x_return_status := FND_API.G_RET_STS_SUCCESS;
179: FOR I IN 1..p_trx_tbl.count LOOP
180: l_count :=0;
181: FOR J IN 1..p_trx_tbl.count LOOP
182: IF p_trx_tbl(J).batch_id=p_batch_id AND p_trx_tbl(J).trx_number = p_trx_tbl(I).trx_number THEN

Line 190: p_new_status => FND_API.G_RET_STS_ERROR);

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;
193: END LOOP;
194: END LOOP;

Line 214: x_return_status := FND_API.G_RET_STS_SUCCESS;

210: AND batch_number = p_batch_number;
211: BEGIN
212: Debug('IS_BATCH_NUM_UNIQUE(+)');
213: --7.2.1.3
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215: l_count := 0;
216: OPEN batch_num_csr;
217: FETCH batch_num_csr INTO l_count;
218: CLOSE batch_num_csr;

Line 225: p_new_status => FND_API.G_RET_STS_ERROR);

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;
227: Debug('IS_BATCH_NUM_UNIQUE(-)');
228: END;
229:

Line 248: x_return_status := FND_API.G_RET_STS_SUCCESS;

244: l_return_status VARCHAR2(1);
245: l_le_error VARCHAR2(2000);
246:
247: BEGIN
248: x_return_status := FND_API.G_RET_STS_SUCCESS;
249: x_invoice_required := 'N';
250:
251: IF p_ttyp_invoice_flag = 'N'
252: THEN

Line 261: IF l_ini_invoice_flag = FND_API.G_TRUE

257: p_legal_entity_id => p_init_le_id,
258: p_party_id => p_init_party_id,
259: x_intercompany_inv => l_ini_invoice_flag);
260:
261: IF l_ini_invoice_flag = FND_API.G_TRUE
262: THEN
263: x_invoice_required := 'Y';
264: ELSE
265: -- check if invoice is required for the recipient

Line 273: IF l_rec_invoice_flag = FND_API.G_TRUE

269: p_legal_entity_id => p_reci_le_id,
270: p_party_id => p_reci_party_id,
271: x_intercompany_inv => l_rec_invoice_flag);
272:
273: IF l_rec_invoice_flag = FND_API.G_TRUE
274: THEN
275: -- invoicing is required for the recipient
276: x_invoice_required := 'Y';
277: ELSE

Line 298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

294: 'fun.plsql.fun_wf_common.check_invoice_reqd_flag',
295: SQLERRM || ' Error occurred ');
296: END IF;
297:
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299:
300: END check_invoice_reqd_flag;
301:
302: PROCEDURE Is_Party_Valid

Line 335: x_return_status := FND_API.G_RET_STS_SUCCESS;

331: BEGIN
332: Debug('IS_PARTY_VALID(+)');
333:
334: -- 7.2.2.2
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: l_return_status := FUN_TCA_PKG.is_intercompany_org_valid(p_party_id, p_batch_date);
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);

Line 367: p_new_status => FND_API.G_RET_STS_ERROR);

363: END IF;
364: END IF;
365:
366: Set_Return_Status(x_orig_status => x_return_status,
367: p_new_status => FND_API.G_RET_STS_ERROR);
368: END IF;
369:
370:
371: --Problem: LE dependency

Line 387: p_new_status => FND_API.G_RET_STS_ERROR);

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);
388: END IF;
389:
390: CLOSE legal_entity_csr;
391:

Line 406: p_new_status => FND_API.G_RET_STS_ERROR);

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);
407:
408: END IF;
409:
410: IF p_local = 'N' THEN

Line 418: p_new_status => FND_API.G_RET_STS_ERROR);

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;
420: END IF;
421:
422: Debug('IS_PARTY_VALID(-)');

Line 455: x_return_status := FND_API.G_RET_STS_SUCCESS;

451: l_dist_total_dr NUMBER := 0;
452:
453: BEGIN
454: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
455: x_return_status := FND_API.G_RET_STS_SUCCESS;
456:
457: -- Perform the following validation only for manual mode
458: IF Nvl(p_auto_proration_flag, 'N') = 'N'
459: THEN

Line 499: p_new_status => FND_API.G_RET_STS_ERROR);

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;
501:
502: IF l_dist_cr_type = l_dist_dr_type
503: THEN

Line 511: p_new_status => FND_API.G_RET_STS_ERROR);

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;
513: END IF; -- Manual Distribution validation
514:
515: EXCEPTION

Line 516: WHEN FND_API.G_EXC_ERROR THEN

512: END IF;
513: END IF; -- Manual Distribution validation
514:
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
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

Line 517: x_return_status := FND_API.G_RET_STS_ERROR ;

513: END IF; -- Manual Distribution validation
514:
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
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;

Line 518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

514:
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
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 ;

Line 519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
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

Line 522: x_return_status := FND_API.G_RET_STS_UNEXP_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
526: FND_MSG_PUB.Add_Exc_Msg

Line 556: x_return_status := FND_API.G_RET_STS_SUCCESS;

552:
553:
554: BEGIN
555: Debug('IS_INIT_TRX_VALID(+)');
556: x_return_status := FND_API.G_RET_STS_SUCCESS;
557:
558: l_boolean := Fun_System_Options_Pkg.Get_Min_Trx_Amt(l_min_amt, l_min_curr_code);
559: l_conv_type := p_exchg_rate_type;
560: --No need to perform minimum transaction amount validation if the minimum amount

Line 579: p_new_status => FND_API.G_RET_STS_ERROR);

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;
581: EXCEPTION
582: WHEN FND_API.G_EXC_ERROR THEN
583: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 582: WHEN FND_API.G_EXC_ERROR THEN

578: Set_Return_Status(x_orig_status => x_return_status,
579: p_new_status => FND_API.G_RET_STS_ERROR);
580: END IF;
581: EXCEPTION
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

Line 583: x_return_status := FND_API.G_RET_STS_ERROR ;

579: p_new_status => FND_API.G_RET_STS_ERROR);
580: END IF;
581: EXCEPTION
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');

Line 591: p_new_status => FND_API.G_RET_STS_ERROR);

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 ;
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

Line 592: x_return_status := FND_API.G_RET_STS_ERROR ;

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 ;
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');

Line 600: p_new_status => FND_API.G_RET_STS_ERROR);

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 ;
602:
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 601: x_return_status := FND_API.G_RET_STS_ERROR ;

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 ;
602:
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
605: WHEN OTHERS THEN

Line 603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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 ;
602:
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;

Line 604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

600: p_new_status => FND_API.G_RET_STS_ERROR);
601: x_return_status := FND_API.G_RET_STS_ERROR ;
602:
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 ;

Line 608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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
612: FND_MSG_PUB.Add_Exc_Msg

Line 677: x_return_status := FND_API.G_RET_STS_SUCCESS;

673: AND legal_entity_id = p_le_id;
674:
675: BEGIN
676: Debug('IS_CCID_VALID(+)');
677: x_return_status := FND_API.G_RET_STS_SUCCESS;
678:
679: --Validate only if the ledger is set up to have specific BSVs assigned
680: SELECT bal_seg_value_option_code, bal_seg_column_name, name
681: INTO l_bsv_val, l_bal_seg_column_name, g_le_name

Line 707: p_new_status => FND_API.G_RET_STS_ERROR);

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;
710: Debug('IS_CCID_VALID(-)');
711: EXCEPTION

Line 756: p_new_status => FND_API.G_RET_STS_ERROR);

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;

Line 762: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN

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,

Line 767: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);

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

Line 809: x_return_status := FND_API.G_RET_STS_SUCCESS;

805: l_dist_lines_count NUMBER:= 0;
806: BEGIN
807: Debug('IS_RECI_TRX_BALANCE(+)');
808: -- 7.2.2.9
809: x_return_status := FND_API.G_RET_STS_SUCCESS;
810: l_count := p_dist_lines_tbl.COUNT;
811: IF l_count > 0 THEN
812: FOR j IN 1..l_count LOOP
813: IF p_dist_lines_tbl(j).party_type = 'R' THEN

Line 864: p_new_status => FND_API.G_RET_STS_ERROR);

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

Line 875: p_new_status => FND_API.G_RET_STS_ERROR);

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;
877: Debug('IS_RECI_TRX_BALANCE(-)');
878: END;
879:

Line 904: x_return_status := FND_API.G_RET_STS_SUCCESS;

900: l_dist_lines_neg_type NUMBER := 0;
901: BEGIN
902: Debug('IS_BATCH_BALANCE(+)');
903: -- 7.2.2.9
904: x_return_status := FND_API.G_RET_STS_SUCCESS;
905: l_count := p_init_dist_tbl.COUNT;
906: IF l_count > 0 THEN
907: FOR i IN 1..l_count LOOP
908: IF NVL(p_init_dist_tbl(i).amount_cr, 0) <> 0 THEN

Line 958: p_new_status => FND_API.G_RET_STS_ERROR);

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

Line 969: p_new_status => FND_API.G_RET_STS_ERROR);

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;
971: Debug('IS_BATCH_BALANCE(-)');
972: END;
973:

Line 1006: x_return_status := FND_API.G_RET_STS_SUCCESS;

1002:
1003: BEGIN
1004: Debug('IS_AUTO_BATCH_BALANCE(+)');
1005:
1006: x_return_status := FND_API.G_RET_STS_SUCCESS;
1007:
1008: --Bug: 8712286. Get currency information from FND_CURRENCIES table
1009: SELECT nvl( minimum_accountable_unit, power( 10, (-1 * precision)))
1010: INTO l_mau

Line 1085: p_new_status => FND_API.G_RET_STS_ERROR);

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

Line 1097: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1099: Debug('IS_AUTO_BATCH_BALANCE(-)');
1100: END Is_Auto_Batch_Balance;
1101:

Line 1134: x_return_status := FND_API.G_RET_STS_SUCCESS;

1130: */
1131: BEGIN
1132: Debug('IS_CURR_FLD_VALID(+)');
1133: -- 7.2.2.10
1134: x_return_status := FND_API.G_RET_STS_SUCCESS;
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

Line 1144: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1146: END IF;
1147: END IF;
1148:

Line 1158: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1160: /* Not used, replaced by GL currency API
1161: OPEN currency_rate_csr;
1162: FETCH currency_rate_csr INTO l_count;

Line 1170: p_new_status => FND_API.G_RET_STS_ERROR);

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:

Line 1201: x_return_status := FND_API.G_RET_STS_SUCCESS;

1197: l_count NUMBER;
1198: i NUMBER := 1;
1199: BEGIN
1200: Debug('IS_IC_RELATIONSHIP_VALID(+)');
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
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

Line 1211: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1213: i := i + 1;
1214: END LOOP;
1215: Debug('IS_IC_RELATIONSHIP_VALID(-)');

Line 1228: x_return_status := FND_API.G_RET_STS_SUCCESS;

1224: i NUMBER := 1;
1225: j NUMBER := 2;
1226: BEGIN
1227: Debug('IS_RECI_NOT_DUPLICATED(+)');
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229: -- 7.2.1.4
1230: l_count := p_trx_tbl.COUNT;
1231: WHILE l_count <> 0 AND i <= l_count LOOP
1232: WHILE l_count <> 0 AND j <= l_count LOOP

Line 1240: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1242: j := j + 1;
1243: END LOOP;
1244: i := i + 1;

Line 1260: x_return_status := FND_API.G_RET_STS_SUCCESS;

1256: l_need_invoice VARCHAR2(1);
1257: l_enabled VARCHAR2(1);
1258: BEGIN
1259: Debug('IS_TRX_TYPE_VALID(+)');
1260: x_return_status := FND_API.G_RET_STS_SUCCESS;
1261: Fun_Trx_Types_Pub.get_trx_type_by_id(p_trx_type_id,
1262: l_trx_type_code,
1263: l_need_invoice,
1264: l_enabled);

Line 1271: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1273: Debug('IS_TRX_TYPE_VALID(-)');
1274: END;
1275:

Line 1295: x_return_status := FND_API.G_RET_STS_SUCCESS;

1291: l_count NUMBER;
1292: l_result VARCHAR2(1);
1293: BEGIN
1294: Debug('IS_INIT_GL_DATE_VALID(+)');
1295: x_return_status := FND_API.G_RET_STS_SUCCESS;
1296: -- 7.2.2.3
1297: /* Problem: good to create a view for the periods
1298: copy from AR_PERIODS_V
1299: SELECT PST.PERIOD_NAME

Line 1322: p_new_status => FND_API.G_RET_STS_ERROR);

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;
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

Line 1332: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1334:
1335:
1336: Debug('IS_INIT_GL_DATE_VALID(-)');

Line 1379: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1375:
1376: BEGIN
1377: l_local := 'Y';
1378: -- Standard call to check for call compatibility.
1379: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1380: p_api_version,
1381: l_api_name,
1382: G_PKG_NAME )
1383: THEN

Line 1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1380: p_api_version,
1381: l_api_name,
1382: G_PKG_NAME )
1383: THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1388: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE )) THEN

1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1393: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
1394:
1395: -- API body
1396: Debug('INIT_BATCH_VALIDATE(+)');
1397: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= 50 THEN

Line 1397: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= 50 THEN

1393: x_return_status := FND_API.G_RET_STS_SUCCESS;
1394:
1395: -- API body
1396: Debug('INIT_BATCH_VALIDATE(+)');
1397: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= 50 THEN
1398:
1399: l_validate_dist := 'N';
1400:
1401: -- 7.2.1.2 Validate on batch number, initiator, currency, batch type,

Line 1410: p_new_status => FND_API.G_RET_STS_ERROR);

1406: p_batch_rec.trx_type_id IS NULL OR
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;

Line 1416: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) 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,
1418: p_batch_number => p_batch_rec.batch_number,
1419: p_initiator_id => p_batch_rec.initiator_id);
1420: Set_Return_Status(x_orig_status => x_return_status,

Line 1422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1418: p_batch_number => p_batch_rec.batch_number,
1419: p_initiator_id => p_batch_rec.initiator_id);
1420: Set_Return_Status(x_orig_status => x_return_status,
1421: p_new_status => l_return_status);
1422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1424: END IF;
1425: END IF;
1426:

Line 1423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1419: p_initiator_id => p_batch_rec.initiator_id);
1420: Set_Return_Status(x_orig_status => x_return_status,
1421: p_new_status => l_return_status);
1422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1424: END IF;
1425: END IF;
1426:
1427: --check for duplicate transaction number

Line 1434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1430: p_trx_tbl => p_trx_tbl
1431: );
1432: Set_Return_Status(x_orig_status => x_return_status,
1433: p_new_status => l_return_status);
1434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1438:

Line 1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1431: );
1432: Set_Return_Status(x_orig_status => x_return_status,
1433: p_new_status => l_return_status);
1434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1438:
1439: /* Start of bug 5284760 */

Line 1456: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

1452: p_batch_rec.batch_date);
1453: END IF; */
1454:
1455: /* End of bug 5284760 */
1456: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1457: FOR i IN 1..p_trx_tbl.COUNT LOOP
1458: -- see if any recipient is in local instance
1459: -- if yes, then need to check the MSR value
1460:

Line 1496: p_init_msg_list => FND_API.G_FALSE,

1492: break intercompany exceptions */
1493:
1494: XLE_UTILITIES_GRP.Is_Intercompany_LEID(
1495: p_api_version => l_api_version,
1496: p_init_msg_list => FND_API.G_FALSE,
1497: p_commit => FND_API.G_FALSE,
1498: x_return_status => l_return_status,
1499: x_msg_count => l_msg_count,
1500: x_msg_data => l_msg_data,

Line 1497: p_commit => FND_API.G_FALSE,

1493:
1494: XLE_UTILITIES_GRP.Is_Intercompany_LEID(
1495: p_api_version => l_api_version,
1496: p_init_msg_list => FND_API.G_FALSE,
1497: p_commit => FND_API.G_FALSE,
1498: x_return_status => l_return_status,
1499: x_msg_count => l_msg_count,
1500: x_msg_data => l_msg_data,
1501: p_legal_entity_id1 => p_batch_rec.from_le_id,

Line 1505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1501: p_legal_entity_id1 => p_batch_rec.from_le_id,
1502: p_legal_entity_id2 => p_trx_tbl(i).to_le_id,
1503: x_Intercompany => l_intercompany_exception) ;
1504:
1505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1507: END IF;
1508:
1509: if(l_intercompany_exception = 'N') THEN

Line 1506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1502: p_legal_entity_id2 => p_trx_tbl(i).to_le_id,
1503: x_Intercompany => l_intercompany_exception) ;
1504:
1505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1507: END IF;
1508:
1509: if(l_intercompany_exception = 'N') THEN
1510:

Line 1515: p_new_status => FND_API.G_RET_STS_ERROR);

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 */
1518:
1519: /* Start of bug 5284760 */

Line 1542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1538: x_invoice_required => l_invoicing_rule,
1539: x_return_status => l_return_status);
1540: Set_Return_Status(x_orig_status => x_return_status,
1541: p_new_status => l_return_status);
1542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545: IF l_invoicing_rule IS NULL THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1539: x_return_status => l_return_status);
1540: Set_Return_Status(x_orig_status => x_return_status,
1541: p_new_status => l_return_status);
1542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545: IF l_invoicing_rule IS NULL THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;

Line 1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1542: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545: IF l_invoicing_rule IS NULL THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1548: END IF;
1549:
1550:

Line 1570: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1572: END IF;
1573: /* If creation sign is positive and amount entered is
1574: negative, then throw an error*/

Line 1583: p_new_status => FND_API.G_RET_STS_ERROR);

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)

Line 1595: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1597: END IF;
1598: /* End of bug 5284760 */
1599: END LOOP;

Line 1611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1607: p_batch_date => p_batch_rec.gl_date,
1608: p_trx_number => NULL);
1609: Set_Return_Status(x_orig_status => x_return_status,
1610: p_new_status => l_return_status);
1611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614: Is_Trx_Type_Valid(x_return_status => l_return_status,
1615: p_trx_type_id => p_batch_rec.trx_type_id);

Line 1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1608: p_trx_number => NULL);
1609: Set_Return_Status(x_orig_status => x_return_status,
1610: p_new_status => l_return_status);
1611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1613: END IF;
1614: Is_Trx_Type_Valid(x_return_status => l_return_status,
1615: p_trx_type_id => p_batch_rec.trx_type_id);
1616: Set_Return_Status(x_orig_status => x_return_status,

Line 1618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1614: Is_Trx_Type_Valid(x_return_status => l_return_status,
1615: p_trx_type_id => p_batch_rec.trx_type_id);
1616: Set_Return_Status(x_orig_status => x_return_status,
1617: p_new_status => l_return_status);
1618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: END IF;
1621: Is_Init_GL_Date_Valid(x_return_status => l_return_status,
1622: p_from_le_id => p_batch_rec.from_le_id,

Line 1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1615: p_trx_type_id => p_batch_rec.trx_type_id);
1616: Set_Return_Status(x_orig_status => x_return_status,
1617: p_new_status => l_return_status);
1618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: END IF;
1621: Is_Init_GL_Date_Valid(x_return_status => l_return_status,
1622: p_from_le_id => p_batch_rec.from_le_id,
1623: p_gl_date => p_batch_rec.gl_date,

Line 1627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1623: p_gl_date => p_batch_rec.gl_date,
1624: p_trx_type_id => p_batch_rec.trx_type_id);
1625: Set_Return_Status(x_orig_status => x_return_status,
1626: p_new_status => l_return_status);
1627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1629: END IF;
1630:
1631: -- 7.2.2.6 Note: Do not need to check at least 1 dist line

Line 1628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1624: p_trx_type_id => p_batch_rec.trx_type_id);
1625: Set_Return_Status(x_orig_status => x_return_status,
1626: p_new_status => l_return_status);
1627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1629: 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

Line 1640: p_new_status => FND_API.G_RET_STS_ERROR);

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;
1642:
1643: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= FND_API.G_VALID_LEVEL_FULL THEN
1644:

Line 1643: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= FND_API.G_VALID_LEVEL_FULL THEN

1639: Set_Return_Status(x_orig_status => x_return_status,
1640: p_new_status => FND_API.G_RET_STS_ERROR);
1641: END IF;
1642:
1643: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= FND_API.G_VALID_LEVEL_FULL THEN
1644:
1645: l_validate_dist := 'Y';
1646:
1647: Is_Curr_Fld_Valid(x_return_status => l_return_status,

Line 1654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1650: p_trx_date => p_batch_rec.gl_date,
1651: p_exchange_rate_type => p_batch_rec.exchange_rate_type);
1652: Set_Return_Status(x_orig_status => x_return_status,
1653: p_new_status => l_return_status);
1654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1656: END IF;
1657:
1658: END IF; -- end full validation

Line 1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1651: p_exchange_rate_type => p_batch_rec.exchange_rate_type);
1652: Set_Return_Status(x_orig_status => x_return_status,
1653: p_new_status => l_return_status);
1654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1656: END IF;
1657:
1658: END IF; -- end full validation
1659: END IF; -- end unique field success

Line 1682: WHEN FND_API.G_EXC_ERROR THEN

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 ;
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

Line 1683: x_return_status := FND_API.G_RET_STS_ERROR ;

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 ;
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 ;

Line 1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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,
1689: p_data => x_msg_data);
1690: WHEN OTHERS THEN

Line 1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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,
1689: p_data => x_msg_data);
1690: WHEN OTHERS THEN
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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
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,

Line 1725: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1721: BEGIN
1722: l_local := 'Y';
1723:
1724: -- Standard call to check for call compatibility.
1725: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1726: p_api_version,
1727: l_api_name,
1728: G_PKG_NAME )
1729: THEN

Line 1730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1726: p_api_version,
1727: l_api_name,
1728: G_PKG_NAME )
1729: THEN
1730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1734: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

1730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1739: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
1740:
1741: -- API body
1742: Debug('INIT_TRX_VALIDATE(+)');
1743: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

Line 1743: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

1739: x_return_status := FND_API.G_RET_STS_SUCCESS;
1740:
1741: -- API body
1742: Debug('INIT_TRX_VALIDATE(+)');
1743: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
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);

Line 1747: p_new_status => FND_API.G_RET_STS_ERROR);

1743: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
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;

Line 1757: p_new_status => FND_API.G_RET_STS_ERROR);

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
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;

Line 1776: p_new_status => FND_API.G_RET_STS_ERROR);

1772: (p_trx_rec.init_amount_cr IS NULL AND
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;

Line 1792: p_new_status => FND_API.G_RET_STS_ERROR);

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;

Line 1799: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

1795: FND_MSG_PUB.Add;
1796: END IF;
1797: END IF;
1798:
1799: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1800: IF (p_trx_rec.recipient_instance = 'N' OR
1801: p_trx_rec.initiator_instance = 'N') THEN
1802: l_local := 'N';
1803: END IF;

Line 1815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1811: p_batch_date => p_gl_date,
1812: p_trx_number => p_trx_rec.trx_number);
1813: Set_Return_Status(x_orig_status => x_return_status,
1814: p_new_status => l_return_status);
1815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: END IF;
1818: END IF;
1819: --Bug: 6998219

Line 1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1812: p_trx_number => p_trx_rec.trx_number);
1813: Set_Return_Status(x_orig_status => x_return_status,
1814: p_new_status => l_return_status);
1815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: END IF;
1818: END IF;
1819: --Bug: 6998219
1820: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

Line 1820: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: END IF;
1818: END IF;
1819: --Bug: 6998219
1820: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1821: validate_org_assignment(x_return_status => l_return_status,
1822: p_party_id => p_trx_rec.recipient_id);
1823: Set_Return_Status(x_orig_status => x_return_status,
1824: p_new_status => l_return_status);

Line 1825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1821: validate_org_assignment(x_return_status => l_return_status,
1822: p_party_id => p_trx_rec.recipient_id);
1823: Set_Return_Status(x_orig_status => x_return_status,
1824: p_new_status => l_return_status);
1825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1827: END IF;
1828: END IF;
1829: Is_Init_Trx_Amt_Valid(x_return_status => l_return_status,

Line 1826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1822: p_party_id => p_trx_rec.recipient_id);
1823: Set_Return_Status(x_orig_status => x_return_status,
1824: p_new_status => l_return_status);
1825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1827: END IF;
1828: END IF;
1829: Is_Init_Trx_Amt_Valid(x_return_status => l_return_status,
1830: p_trx_amount_cr => p_trx_rec.init_amount_cr,

Line 1839: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1835: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1836: p_trx_number => p_trx_rec.trx_number,
1837: p_exchg_rate_type => p_exchange_rate_type); --9590987
1838: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1839: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1841: END IF;
1842: END IF;
1843: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

Line 1840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1836: p_trx_number => p_trx_rec.trx_number,
1837: p_exchg_rate_type => p_exchange_rate_type); --9590987
1838: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1839: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1841: END IF;
1842: END IF;
1843: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1844:

Line 1843: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

1839: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1841: END IF;
1842: END IF;
1843: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1844:
1845: Is_AR_Valid(x_return_status => l_return_status,
1846: p_initiator_id => p_trx_rec.initiator_id,
1847: p_invoicing_rule => p_trx_rec.invoicing_rule,

Line 1855: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);

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:
1859:

Line 1862: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1858:
1859:
1860:
1861: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1862: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: -- Validate distributions if level is full

Line 1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1859:
1860:
1861: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1862: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: -- Validate distributions if level is full
1867: Is_Init_Trx_Dist_Amt_Valid(x_return_status => l_return_status,

Line 1876: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1872: p_trx_date => p_gl_date,
1873: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1874: p_trx_number => p_trx_rec.trx_number);
1875: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1876: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1878: END IF;
1879:
1880: END IF;

Line 1877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1873: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1874: p_trx_number => p_trx_rec.trx_number);
1875: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1876: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1878: END IF;
1879:
1880: END IF;
1881:

Line 1888: WHEN FND_API.G_EXC_ERROR THEN

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 ;
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

Line 1889: x_return_status := FND_API.G_RET_STS_ERROR ;

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 ;
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 ;

Line 1892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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,
1895: p_data => x_msg_data);
1896: WHEN OTHERS THEN

Line 1893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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,
1895: p_data => x_msg_data);
1896: WHEN OTHERS THEN
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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
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,

Line 1920: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1916: l_api_name CONSTANT VARCHAR2(30) := 'INIT_DIST_VALIDATE';
1917: l_api_version CONSTANT NUMBER := 1.0;
1918: BEGIN
1919: -- Standard call to check for call compatibility.
1920: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1921: p_api_version,
1922: l_api_name,
1923: G_PKG_NAME )
1924: THEN

Line 1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1921: p_api_version,
1922: l_api_name,
1923: G_PKG_NAME )
1924: THEN
1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1929: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN

1925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 1934: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
1935:
1936: -- API body
1937: Debug('INIT_DIST_VALIDATE(+)');
1938: -- Bug 7012449. Commented the If condition so that the ccid is validated

Line 1940: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

1936: -- API body
1937: Debug('INIT_DIST_VALIDATE(+)');
1938: -- Bug 7012449. Commented the If condition so that the ccid is validated
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

Line 1950: p_new_status => FND_API.G_RET_STS_ERROR);

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:
1952: ELSE
1953: Is_Ccid_Valid(x_return_status => x_return_status, p_ccid => p_init_dist_rec.ccid,
1954: p_le_id => p_le_id, p_ledger_id => p_ledger_id);

Line 1972: p_new_status => FND_API.G_RET_STS_ERROR);

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:

Line 1975: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

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');

Line 1983: p_new_status => FND_API.G_RET_STS_ERROR);

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.

Line 1993: WHEN FND_API.G_EXC_ERROR THEN

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
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

Line 1994: x_return_status := FND_API.G_RET_STS_ERROR ;

1990: p_data => x_msg_data);
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 ;

Line 1997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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,
2000: p_data => x_msg_data);
2001: WHEN OTHERS THEN

Line 1998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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,
2000: p_data => x_msg_data);
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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
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,

Line 2027: IF NOT FND_API.Compatible_API_Call ( l_api_version,

2023: l_api_name CONSTANT VARCHAR2(30) := 'INIT_IC_DIST_VALIDATE';
2024: l_api_version CONSTANT NUMBER := 1.0;
2025: BEGIN
2026: -- Standard call to check for call compatibility.
2027: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2028: p_api_version,
2029: l_api_name ,
2030: G_PKG_NAME )
2031: THEN

Line 2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2029: l_api_name ,
2030: G_PKG_NAME )
2031: THEN
2032: Print ('Debug Init_Dist_Val >>> Unexpected Error 1 ');
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 2037: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN

2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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. ');

Line 2042: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );

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 );
2043:
2044: -- Initialize API return status to success
2045: x_return_status := FND_API.G_RET_STS_SUCCESS;
2046:

Line 2045: x_return_status := FND_API.G_RET_STS_SUCCESS;

2041: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');
2042: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );
2043:
2044: -- Initialize API return status to success
2045: x_return_status := FND_API.G_RET_STS_SUCCESS;
2046:
2047: -- API body
2048: Debug('INIT_IC_DIST_VALIDATE(+)');
2049:

Line 2055: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

2051:
2052: -- Bug 7012449. Commented the If clause such that the ccid is validated
2053: -- Under all conditions. Also added negative ccid check.
2054:
2055: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
2056:
2057: Print ('Debug Init_Dist_Val >>> In If 1' );
2058:
2059: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN

Line 2073: p_new_status => FND_API.G_RET_STS_ERROR);

2069:
2070: Print ('Debug Init_Dist_Val >>> End of If 3' );
2071: END IF;
2072: Set_Return_Status(x_orig_status => x_return_status,
2073: p_new_status => FND_API.G_RET_STS_ERROR);
2074:
2075: Print ('Debug Init_Dist_Val >>> End If 2' );
2076: ELSE
2077:

Line 2111: p_new_status => FND_API.G_RET_STS_ERROR);

2107:
2108: Print ('Debug Init_Dist_Val >>> End If 22' );
2109:
2110: Set_Return_Status(x_orig_status => x_return_status,
2111: p_new_status => FND_API.G_RET_STS_ERROR);
2112: END IF;
2113:
2114: Print ('Debug Init_Dist_Val >>> End If 21' );
2115: Print ('Debug Init_Dist_Val >>> Party Type ' || p_dist_line_rec.party_type );

Line 2116: Print ('Debug Init_Dist_Val >>> FND_API.G_RET_STS_ERROR ' || FND_API.G_RET_STS_ERROR );

2112: END IF;
2113:
2114: Print ('Debug Init_Dist_Val >>> End If 21' );
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');

Line 2123: p_new_status => FND_API.G_RET_STS_ERROR);

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);
2124: END IF;
2125: --END IF;
2126:
2127: Print ('Debug Init_Dist_Val >>> End If');

Line 2129: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

2125: --END IF;
2126:
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');

Line 2139: p_new_status => FND_API.G_RET_STS_ERROR);

2135: END IF;
2136:
2137: Print ('Debug Init_Dist_Val >>> x_return_status' || x_return_status );
2138: Set_Return_Status(x_orig_status => x_return_status,
2139: p_new_status => FND_API.G_RET_STS_ERROR);
2140: END IF;
2141: --END IF;
2142: Debug('INIT_IC_DIST_VALIDATE(-)');
2143: -- End of API body.

Line 2153: WHEN FND_API.G_EXC_ERROR THEN

2149: p_data => x_msg_data);
2150:
2151:
2152: EXCEPTION
2153: WHEN FND_API.G_EXC_ERROR THEN
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 ;

Line 2157: x_return_status := FND_API.G_RET_STS_ERROR ;

2153: WHEN FND_API.G_EXC_ERROR THEN
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

Line 2161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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 );
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 ;

Line 2165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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

Line 2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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 );
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,

Line 2218: x_return_status := FND_API.G_RET_STS_SUCCESS;

2214: AND NVL(date_to, p_trx_date) >= p_trx_date; --
2215: BEGIN
2216: -- 7.2.1.7
2217: -- Initialize API return status to success
2218: x_return_status := FND_API.G_RET_STS_SUCCESS;
2219:
2220: -- API body
2221: Debug('IS_AR_VALID(+)');
2222: l_from_le_party_id := Fun_Tca_Pkg.Get_LE_Id(p_initiator_id, p_trx_date);

Line 2248: p_new_status => FND_API.G_RET_STS_ERROR);

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;
2250: -- 7.2.1.5
2251: OPEN ou_valid_csr;
2252: FETCH ou_valid_csr INTO l_count;

Line 2260: p_new_status => FND_API.G_RET_STS_ERROR);

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;
2262: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
2263:
2264: -- To get the customer association, the transacting LE is the

Line 2293: p_new_status => FND_API.G_RET_STS_ERROR);

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;
2295:
2296: END IF;
2297: Debug('IS_AR_VALID(-)');

Line 2352: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

2348: BEGIN
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;

Line 2356: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
2358: --Bug: 15962294. Validate period status for GL date.
2359:
2360: SELECT from_le_id, trx_type_id

Line 2370: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

2366: p_from_le_id => l_from_le_id,
2367: p_gl_date => p_reversed_gl_date,
2368: p_trx_type_id => l_trx_type_id);
2369:
2370: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
2371: x_return_status := l_return_status;
2372: RETURN;
2373: END IF;
2374:

Line 2375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2371: x_return_status := l_return_status;
2372: RETURN;
2373: END IF;
2374:
2375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2377:
2378: END IF;
2379:

Line 2376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2372: RETURN;
2373: END IF;
2374:
2375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2377:
2378: END IF;
2379:
2380: -- Verify that no transactions have already been reversed,

Line 2425: p_new_status => FND_API.G_RET_STS_ERROR);

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;
2427: END IF;
2428: -- Check batch numbering type
2429: l_boolean := fun_system_options_pkg.is_manual_numbering;

Line 2469: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

2465: -- Check uniqueness of the batch_number provided
2466: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2467:
2468: -- Bug: 16198634. Added If condition and return on Error
2469: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
2470: x_return_status := l_return_status;
2471: RETURN;
2472: END IF;
2473:

Line 2474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2470: x_return_status := l_return_status;
2471: RETURN;
2472: END IF;
2473:
2474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: -- Get the next sequence for fun_batch_id
2478: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;

Line 2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2471: RETURN;
2472: END IF;
2473:
2474: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2476: END IF;
2477: -- Get the next sequence for fun_batch_id
2478: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;
2479: -- Update original batch with reversed_batch_id

Line 2852: x_return_status := FND_API.G_RET_STS_SUCCESS;

2848: -- Raise event to send
2849: l_wf_event_key := fun_wf_common.generate_event_key (l_reversed_batch_id, NULL);
2850: fun_wf_common.raise_wf_bus_event(batch_id => l_reversed_batch_id,
2851: event_key => l_wf_event_key);
2852: x_return_status := FND_API.G_RET_STS_SUCCESS;
2853: Debug('CREATE_REVERSE_BATCH(-)');
2854:
2855: END;
2856:

Line 2903: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

2899: BEGIN
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;

Line 2907: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
2909: --Bug: 15962294. Validate period status for GL date.
2910: SELECT from_le_id, trx_type_id
2911: INTO l_from_le_id, l_trx_type_id

Line 2922: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

2918: p_gl_date => p_reversed_gl_date,
2919: p_trx_type_id => l_trx_type_id);
2920:
2921:
2922: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
2923: x_return_status := l_return_status;
2924: RETURN;
2925: END IF;
2926:

Line 2927: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2923: x_return_status := l_return_status;
2924: RETURN;
2925: END IF;
2926:
2927: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2929:
2930: END IF;
2931: -- Problem: Still waiting for HLD to complete this section

Line 2928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2924: RETURN;
2925: END IF;
2926:
2927: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2929:
2930: END IF;
2931: -- Problem: Still waiting for HLD to complete this section
2932: -- Verify the status of the batch

Line 2949: p_new_status => FND_API.G_RET_STS_ERROR);

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;
2951: END IF;
2952: -- Check batch numbering type
2953: l_boolean := fun_system_options_pkg.is_manual_numbering;

Line 2983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2979: l_error_code);
2980: END IF;
2981: -- Check uniqueness of the batch_number provided
2982: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2985: END IF;
2986: -- Get the next sequence for fun_batch_id
2987: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;

Line 2984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2980: END IF;
2981: -- Check uniqueness of the batch_number provided
2982: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2983: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2985: END IF;
2986: -- Get the next sequence for fun_batch_id
2987: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;
2988:

Line 3360: x_return_status := FND_API.G_RET_STS_SUCCESS;

3356: -- Raise event to send
3357: l_wf_event_key := fun_wf_common.generate_event_key (l_reversed_batch_id, NULL);
3358: fun_wf_common.raise_wf_bus_event(batch_id => l_reversed_batch_id,
3359: event_key => l_wf_event_key);
3360: x_return_status := FND_API.G_RET_STS_SUCCESS;
3361: Debug('CREATE_REVERSE_TRX(-)');
3362: END;
3363:
3364: PROCEDURE Update_Trx_Status

Line 3389: IF NOT FND_API.Compatible_API_Call ( l_api_version,

3385: -- Standard Start of API savepoint
3386: SAVEPOINT Update_Trx_Status;
3387:
3388: -- Standard call to check for call compatibility.
3389: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3390: p_api_version,
3391: l_api_name,
3392: G_PKG_NAME )
3393: THEN

Line 3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3390: p_api_version,
3391: l_api_name,
3392: G_PKG_NAME )
3393: THEN
3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 3398: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

3394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 3403: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
3404:
3405:
3406: -- API body
3407: Debug('UPDATE_TRX_STATUS(+)');

Line 3416: ELSIF (nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)<> FND_API.G_VALID_LEVEL_FULL) OR

3412: -- status the same time
3413: IF (l_status = p_update_status_to OR
3414: (p_update_status_to = 'RECEIVED' AND l_status <> 'SENT')) THEN
3415: Debug('CONSISTENT STATUS');
3416: ELSIF (nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)<> FND_API.G_VALID_LEVEL_FULL) OR
3417: (l_status = 'NEW' AND p_update_status_to = 'SENT') OR
3418: (l_status = 'SENT' AND p_update_status_to = 'ERROR') OR
3419: (l_status = 'RECEIVED' AND p_update_status_to = 'ERROR') OR
3420: (l_status = 'ERROR' AND p_update_status_to = 'SENT') OR

Line 3471: IF FND_API.To_Boolean( nvl(p_commit,FND_API.G_FALSE) ) THEN

3467:
3468:
3469: END IF;
3470: -- Standard check of p_commit.
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

Line 3480: p_new_status => FND_API.G_RET_STS_ERROR);

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;
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);

Line 3487: WHEN FND_API.G_EXC_ERROR THEN

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;
3489: x_return_status := FND_API.G_RET_STS_ERROR ;
3490: FND_MSG_PUB.Count_And_Get
3491: ( p_count => x_msg_count,

Line 3489: x_return_status := FND_API.G_RET_STS_ERROR ;

3485: Debug('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

Line 3493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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;
3495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3496: FND_MSG_PUB.Count_And_Get
3497: ( p_count => x_msg_count,

Line 3495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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;
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

Line 3501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3497: ( p_count => x_msg_count,
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

Line 3542: x_return_status := FND_API.G_RET_STS_SUCCESS;

3538: l_return_status VARCHAR(1);
3539: BEGIN
3540: l_count := p_dist_lines_tbl.COUNT;
3541: --Bug: 6618396. Initialize API return status to success
3542: x_return_status := FND_API.G_RET_STS_SUCCESS;
3543: IF l_count >= 1 THEN
3544: FOR i IN 1..l_count LOOP
3545:
3546: IF p_dist_lines_tbl(i).party_type = 'R' THEN

Line 3556: p_new_status => FND_API.G_RET_STS_ERROR);

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;
3558: ELSE
3559: Is_Ccid_Valid(x_return_status => x_return_status,
3560: p_ccid => p_dist_lines_tbl(i).ccid,

Line 3564: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN

3560: p_ccid => p_dist_lines_tbl(i).ccid,
3561: p_le_id => p_le_id,
3562: p_ledger_id => p_ledger_id);
3563: --Bug:13348803
3564: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
3565: l_return_status := x_return_status;
3566: END IF;
3567: END IF;
3568: END IF;

Line 3570: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

3566: END IF;
3567: END IF;
3568: END IF;
3569: END LOOP;
3570: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
3571: x_return_status := l_return_status;
3572: END IF;
3573: END IF;
3574: END Is_Reci_Acct_Valid;

Line 3597: x_return_status := FND_API.G_RET_STS_SUCCESS;

3593: l_trx_number NUMBER;
3594:
3595: BEGIN
3596: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
3597: x_return_status := FND_API.G_RET_STS_SUCCESS;
3598:
3599: -- Perform the following validation only for manual mode
3600: l_count := p_dist_lines_tbl.COUNT;
3601: IF l_count > 0

Line 3615: p_new_status => FND_API.G_RET_STS_ERROR);

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:
3618: END IF;
3619:

Line 3650: p_new_status => FND_API.G_RET_STS_ERROR);

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;
3652:
3653: IF l_dist_cr_type = l_dist_dr_type
3654: THEN

Line 3661: p_new_status => FND_API.G_RET_STS_ERROR);

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;
3663:
3664:
3665: EXCEPTION

Line 3666: WHEN FND_API.G_EXC_ERROR THEN

3662: END IF;
3663:
3664:
3665: EXCEPTION
3666: WHEN FND_API.G_EXC_ERROR THEN
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

Line 3667: x_return_status := FND_API.G_RET_STS_ERROR ;

3663:
3664:
3665: EXCEPTION
3666: WHEN FND_API.G_EXC_ERROR THEN
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;

Line 3668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3664:
3665: EXCEPTION
3666: WHEN FND_API.G_EXC_ERROR THEN
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 ;

Line 3669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3665: EXCEPTION
3666: WHEN FND_API.G_EXC_ERROR THEN
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

Line 3672: x_return_status := FND_API.G_RET_STS_UNEXP_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
3676: FND_MSG_PUB.Add_Exc_Msg

Line 3708: IF NOT FND_API.Compatible_API_Call ( l_api_version,

3704: l_index NUMBER := 0;
3705: i NUMBER := 1;
3706: BEGIN
3707: -- Standard call to check for call compatibility.
3708: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3709: p_api_version,
3710: l_api_name,
3711: G_PKG_NAME )
3712: THEN

Line 3713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3709: p_api_version,
3710: l_api_name,
3711: G_PKG_NAME )
3712: THEN
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;

Line 3716: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

3712: THEN
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;

Line 3720: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
3722: -- API body
3723: Debug('RECIPIENT_VALIDATE(+)');
3724: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

Line 3724: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

3720: x_return_status := FND_API.G_RET_STS_SUCCESS;
3721:
3722: -- API body
3723: Debug('RECIPIENT_VALIDATE(+)');
3724: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
3725:
3726: is_ap_valid(x_return_status => l_return_status,
3727: p_initiator_id => p_batch_rec.initiator_id,
3728: p_invoicing_rule => p_trx_rec.invoicing_rule,

Line 3734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3730: p_to_le_id => p_trx_rec.to_le_id,
3731: p_trx_date => p_batch_rec.batch_date);
3732: set_return_status(x_orig_status => x_return_status,
3733: p_new_status => l_return_status);
3734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3736: END IF;
3737: l_count := p_dist_lines_tbl.COUNT;
3738: IF l_count >= 1 THEN

Line 3735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3731: p_trx_date => p_batch_rec.batch_date);
3732: set_return_status(x_orig_status => x_return_status,
3733: p_new_status => l_return_status);
3734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3736: END IF;
3737: l_count := p_dist_lines_tbl.COUNT;
3738: IF l_count >= 1 THEN
3739: FOR i IN 1..l_count LOOP

Line 3759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3755: --End Changes bug 9341446
3756: ELSE
3757: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3758: p_ccid => p_dist_lines_tbl(l_index).ccid);
3759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762:
3763: Is_Reci_Acct_Valid(x_return_status => l_return_status,

Line 3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3756: ELSE
3757: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3758: p_ccid => p_dist_lines_tbl(l_index).ccid);
3759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3761: END IF;
3762:
3763: Is_Reci_Acct_Valid(x_return_status => l_return_status,
3764: p_le_id => p_trx_rec.to_le_id,

Line 3768: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

3764: p_le_id => p_trx_rec.to_le_id,
3765: p_ledger_id => p_trx_rec.to_ledger_id,
3766: p_dist_lines_tbl => p_dist_lines_tbl);
3767:
3768: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3769: RAISE FND_API.G_EXC_ERROR;
3770: END IF;
3771:
3772: Is_Reci_Trx_Dist_Amt_Valid

Line 3769: RAISE FND_API.G_EXC_ERROR;

3765: p_ledger_id => p_trx_rec.to_ledger_id,
3766: p_dist_lines_tbl => p_dist_lines_tbl);
3767:
3768: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3769: RAISE FND_API.G_EXC_ERROR;
3770: END IF;
3771:
3772: Is_Reci_Trx_Dist_Amt_Valid
3773: ( x_return_status => l_return_status,

Line 3779: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

3775: p_trx_amount_dr => p_trx_rec.reci_amount_dr,
3776: p_dist_lines_tbl => p_dist_lines_tbl);
3777:
3778: --Added for bug 9341446
3779: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3780: Set_Return_Status(x_orig_status => x_return_status,
3781: p_new_status => 'I');
3782: END IF;
3783: --End Changes bug 9341446

Line 3787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3783: --End Changes bug 9341446
3784:
3785: Set_Return_Status(x_orig_status => x_return_status,
3786: p_new_status => l_return_status);
3787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3789: END IF;
3790: END IF;
3791: END IF;

Line 3788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3784:
3785: Set_Return_Status(x_orig_status => x_return_status,
3786: p_new_status => l_return_status);
3787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3789: END IF;
3790: END IF;
3791: END IF;
3792: -- Bug: 11722204

Line 3794: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)> 50 THEN

3790: END IF;
3791: END IF;
3792: -- Bug: 11722204
3793:
3794: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)> 50 THEN
3795:
3796: FUN_WF_AUTHORIZATION_LIMIT.HAS_VALID_EXCHANGE_RATE(
3797: x_return_status => l_return_status,
3798: p_trx_id => p_trx_rec.trx_id);

Line 3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3798: p_trx_id => p_trx_rec.trx_id);
3799:
3800: Set_Return_Status(x_orig_status => x_return_status,
3801: p_new_status => l_return_status);
3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3804: END IF;
3805: END IF;
3806:

Line 3803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3799:
3800: Set_Return_Status(x_orig_status => x_return_status,
3801: p_new_status => l_return_status);
3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3804: END IF;
3805: END IF;
3806:
3807: Debug('RECIPIENT_VALIDATE(-)');

Line 3815: WHEN FND_API.G_EXC_ERROR THEN

3811: ( p_count => x_msg_count,
3812: p_data => x_msg_data
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

Line 3816: x_return_status := FND_API.G_RET_STS_ERROR ;

3812: p_data => x_msg_data
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: );

Line 3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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

Line 3822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3818: ( p_count => x_msg_count,
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: );

Line 3828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3824: ( p_count => x_msg_count,
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

Line 3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3844: l_batch_rec => p_batch_rec);
3845: set_return_status(x_return_status => x_orig_status,
3846: l_return_status => p_new_status);
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXP_ERROR;
3850: END IF;
3851:
3852:

Line 3849: RAISE FND_API.G_EXC_UNEXP_ERROR;

3845: set_return_status(x_return_status => x_orig_status,
3846: l_return_status => p_new_status);
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXP_ERROR;
3850: END IF;
3851:
3852:
3853: is_reci_party_valid(l_return_status => x_return_status

Line 3859: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3855: p_trx_rec);
3856: set_return_status(x_return_status => x_orig_status,
3857: l_return_status => p_new_status);
3858:
3859: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3860: RAISE FND_API.G_EXC_UNEXP_ERROR;
3861: END IF;
3862:
3863:

Line 3860: RAISE FND_API.G_EXC_UNEXP_ERROR;

3856: set_return_status(x_return_status => x_orig_status,
3857: l_return_status => p_new_status);
3858:
3859: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3860: RAISE FND_API.G_EXC_UNEXP_ERROR;
3861: END IF;
3862:
3863:
3864: is_batch_type_valid(l_return_status => x_return_status

Line 3869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3865: l_batch_rec
3866: => p_batch_rec);
3867: set_return_status(x_return_status => x_orig_status,
3868: l_return_status => p_new_status);
3869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3870: RAISE FND_API.G_EXC_UNEXP_ERROR;
3871: END IF;
3872:
3873: is_reci_gl_date_valid(l_return_status =>

Line 3870: RAISE FND_API.G_EXC_UNEXP_ERROR;

3866: => p_batch_rec);
3867: set_return_status(x_return_status => x_orig_status,
3868: l_return_status => p_new_status);
3869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3870: RAISE FND_API.G_EXC_UNEXP_ERROR;
3871: END IF;
3872:
3873: is_reci_gl_date_valid(l_return_status =>
3874: x_return_status,

Line 3881: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3877: l_trx_rec =>
3878: p_trx_rec);
3879: set_return_status(x_return_status => x_orig_status,
3880: l_return_status => p_new_status);
3881: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXP_ERROR;
3883: END IF;
3884: END IF;
3885:

Line 3882: RAISE FND_API.G_EXC_UNEXP_ERROR;

3878: p_trx_rec);
3879: set_return_status(x_return_status => x_orig_status,
3880: l_return_status => p_new_status);
3881: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXP_ERROR;
3883: END IF;
3884: END IF;
3885:
3886:

Line 3887: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

3883: END IF;
3884: END IF;
3885:
3886:
3887: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
3888: is_curr_fld_valid(l_return_status => x_return_status,
3889: l_batch_rec
3890: => p_batch_rec);
3891: set_return_status(x_return_status => x_orig_status,

Line 3893: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3889: l_batch_rec
3890: => p_batch_rec);
3891: set_return_status(x_return_status => x_orig_status,
3892: l_return_status => p_new_status);
3893: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3894: RAISE FND_API.G_EXC_UNEXP_ERROR;
3895: END IF;
3896:
3897:

Line 3894: RAISE FND_API.G_EXC_UNEXP_ERROR;

3890: => p_batch_rec);
3891: set_return_status(x_return_status => x_orig_status,
3892: l_return_status => p_new_status);
3893: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3894: RAISE FND_API.G_EXC_UNEXP_ERROR;
3895: END IF;
3896:
3897:
3898: */

Line 3923: x_return_status := FND_API.G_RET_STS_SUCCESS;

3919: l_trx_number NUMBER;
3920:
3921: BEGIN
3922: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
3923: x_return_status := FND_API.G_RET_STS_SUCCESS;
3924:
3925: -- Perform the following validation only for manual mode
3926: l_count := p_dist_lines_tbl.COUNT;
3927: IF l_count > 0

Line 3941: p_new_status => FND_API.G_RET_STS_ERROR);

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:
3944: END IF;
3945:

Line 3977: p_new_status => FND_API.G_RET_STS_ERROR);

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;
3979:
3980: IF l_dist_cr_type = l_dist_dr_type
3981: THEN

Line 3988: p_new_status => FND_API.G_RET_STS_ERROR);

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;
3990:
3991:
3992: EXCEPTION

Line 3993: WHEN FND_API.G_EXC_ERROR THEN

3989: END IF;
3990:
3991:
3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
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

Line 3994: x_return_status := FND_API.G_RET_STS_ERROR ;

3990:
3991:
3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
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;

Line 3995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3991:
3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
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 ;

Line 3996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
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

Line 3999: x_return_status := FND_API.G_RET_STS_UNEXP_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
4003: FND_MSG_PUB.Add_Exc_Msg

Line 4036: IF NOT FND_API.Compatible_API_Call ( l_api_version,

4032: l_index NUMBER := 0;
4033: i NUMBER := 1;
4034: BEGIN
4035: -- Standard call to check for call compatibility.
4036: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4037: p_api_version,
4038: l_api_name,
4039: G_PKG_NAME )
4040: THEN

Line 4041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4037: p_api_version,
4038: l_api_name,
4039: G_PKG_NAME )
4040: THEN
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;

Line 4044: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

4040: THEN
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;

Line 4048: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
4050: -- API body
4051: Debug('RECIPIENT_VALIDATE(+)');
4052: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

Line 4052: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

4048: x_return_status := FND_API.G_RET_STS_SUCCESS;
4049:
4050: -- API body
4051: Debug('RECIPIENT_VALIDATE(+)');
4052: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
4053:
4054: l_count := p_dist_lines_tbl.COUNT;
4055: IF l_count >= 1 THEN
4056: FOR i IN 1..l_count LOOP

Line 4070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4066:
4067: ELSE
4068: Is_Payable_Acct_Valid(x_return_status => l_return_status,
4069: p_ccid => p_dist_lines_tbl(l_index).ccid);
4070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4072: END IF;
4073:
4074: Is_Reci_Acct_Valid(x_return_status => l_return_status,

Line 4071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4067: ELSE
4068: Is_Payable_Acct_Valid(x_return_status => l_return_status,
4069: p_ccid => p_dist_lines_tbl(l_index).ccid);
4070: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4072: END IF;
4073:
4074: Is_Reci_Acct_Valid(x_return_status => l_return_status,
4075: p_le_id => p_trx_rec.to_le_id,

Line 4079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

4075: p_le_id => p_trx_rec.to_le_id,
4076: p_ledger_id => p_trx_rec.to_ledger_id,
4077: p_dist_lines_tbl => p_dist_lines_tbl);
4078:
4079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4080: RAISE FND_API.G_EXC_ERROR;
4081: END IF;
4082:
4083: Is_Ini_Reci_Trx_Dist_Amt_Valid

Line 4080: RAISE FND_API.G_EXC_ERROR;

4076: p_ledger_id => p_trx_rec.to_ledger_id,
4077: p_dist_lines_tbl => p_dist_lines_tbl);
4078:
4079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4080: RAISE FND_API.G_EXC_ERROR;
4081: END IF;
4082:
4083: Is_Ini_Reci_Trx_Dist_Amt_Valid
4084: ( x_return_status => l_return_status,

Line 4091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4087: p_dist_lines_tbl => p_dist_lines_tbl);
4088:
4089: Set_Return_Status(x_orig_status => x_return_status,
4090: p_new_status => l_return_status);
4091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4093: END IF;
4094: END IF;
4095: END IF;

Line 4092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4088:
4089: Set_Return_Status(x_orig_status => x_return_status,
4090: p_new_status => l_return_status);
4091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4093: END IF;
4094: END IF;
4095: END IF;
4096: Debug('RECIPIENT_VALIDATE(-)');

Line 4104: WHEN FND_API.G_EXC_ERROR THEN

4100: ( p_count => x_msg_count,
4101: p_data => x_msg_data
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

Line 4105: x_return_status := FND_API.G_RET_STS_ERROR ;

4101: p_data => x_msg_data
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: );

Line 4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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

Line 4111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4107: ( p_count => x_msg_count,
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: );

Line 4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4113: ( p_count => x_msg_count,
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

Line 4137: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4133: l_batch_rec => p_batch_rec);
4134: set_return_status(x_return_status => x_orig_status,
4135: l_return_status => p_new_status);
4136:
4137: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4138: RAISE FND_API.G_EXC_UNEXP_ERROR;
4139: END IF;
4140:
4141:

Line 4138: RAISE FND_API.G_EXC_UNEXP_ERROR;

4134: set_return_status(x_return_status => x_orig_status,
4135: l_return_status => p_new_status);
4136:
4137: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4138: RAISE FND_API.G_EXC_UNEXP_ERROR;
4139: END IF;
4140:
4141:
4142: is_reci_party_valid(l_return_status => x_return_status

Line 4148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4144: p_trx_rec);
4145: set_return_status(x_return_status => x_orig_status,
4146: l_return_status => p_new_status);
4147:
4148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4149: RAISE FND_API.G_EXC_UNEXP_ERROR;
4150: END IF;
4151:
4152:

Line 4149: RAISE FND_API.G_EXC_UNEXP_ERROR;

4145: set_return_status(x_return_status => x_orig_status,
4146: l_return_status => p_new_status);
4147:
4148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4149: RAISE FND_API.G_EXC_UNEXP_ERROR;
4150: END IF;
4151:
4152:
4153: is_batch_type_valid(l_return_status => x_return_status

Line 4158: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4154: l_batch_rec
4155: => p_batch_rec);
4156: set_return_status(x_return_status => x_orig_status,
4157: l_return_status => p_new_status);
4158: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4159: RAISE FND_API.G_EXC_UNEXP_ERROR;
4160: END IF;
4161:
4162: is_reci_gl_date_valid(l_return_status =>

Line 4159: RAISE FND_API.G_EXC_UNEXP_ERROR;

4155: => p_batch_rec);
4156: set_return_status(x_return_status => x_orig_status,
4157: l_return_status => p_new_status);
4158: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4159: RAISE FND_API.G_EXC_UNEXP_ERROR;
4160: END IF;
4161:
4162: is_reci_gl_date_valid(l_return_status =>
4163: x_return_status,

Line 4170: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4166: l_trx_rec =>
4167: p_trx_rec);
4168: set_return_status(x_return_status => x_orig_status,
4169: l_return_status => p_new_status);
4170: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4171: RAISE FND_API.G_EXC_UNEXP_ERROR;
4172: END IF;
4173: END IF;
4174:

Line 4171: RAISE FND_API.G_EXC_UNEXP_ERROR;

4167: p_trx_rec);
4168: set_return_status(x_return_status => x_orig_status,
4169: l_return_status => p_new_status);
4170: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4171: RAISE FND_API.G_EXC_UNEXP_ERROR;
4172: END IF;
4173: END IF;
4174:
4175:

Line 4176: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

4172: END IF;
4173: END IF;
4174:
4175:
4176: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
4177: is_curr_fld_valid(l_return_status => x_return_status,
4178: l_batch_rec
4179: => p_batch_rec);
4180: set_return_status(x_return_status => x_orig_status,

Line 4182: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4178: l_batch_rec
4179: => p_batch_rec);
4180: set_return_status(x_return_status => x_orig_status,
4181: l_return_status => p_new_status);
4182: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4183: RAISE FND_API.G_EXC_UNEXP_ERROR;
4184: END IF;
4185:
4186:

Line 4183: RAISE FND_API.G_EXC_UNEXP_ERROR;

4179: => p_batch_rec);
4180: set_return_status(x_return_status => x_orig_status,
4181: l_return_status => p_new_status);
4182: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4183: RAISE FND_API.G_EXC_UNEXP_ERROR;
4184: END IF;
4185:
4186:
4187: */

Line 4297: nvl(p_init_msg_list,FND_API.G_FALSE),

4293: FETCH l_dist_lines_cursor BULK COLLECT INTO l_dist_lines_tbl;
4294: CLOSE l_dist_lines_cursor;
4295:
4296: init_generate_distributions(p_api_version,
4297: nvl(p_init_msg_list,FND_API.G_FALSE),
4298: x_return_status,
4299: x_msg_count,
4300: x_msg_data,
4301: l_batch_rec,

Line 4344: IF NOT FND_API.Compatible_API_Call ( l_api_version,

4340: l_diff_amount NUMBER;
4341:
4342: BEGIN
4343: -- Standard call to check for call compatibility.
4344: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4345: p_api_version,
4346: l_api_name,
4347: G_PKG_NAME )
4348: THEN

Line 4349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4345: p_api_version,
4346: l_api_name,
4347: G_PKG_NAME )
4348: THEN
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;

Line 4352: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

4348: THEN
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;

Line 4356: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
4358: -- API body
4359: Debug('INIT_GENERATE_DISTRIBUTIONS(+)');
4360: l_init_dist_count := p_init_dist_tbl.count;

Line 4471: WHEN FND_API.G_EXC_ERROR THEN

4467: p_data => x_msg_data
4468: );
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

Line 4472: x_return_status := FND_API.G_RET_STS_ERROR ;

4468: );
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: );

Line 4477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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

Line 4478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4474: ( p_count => x_msg_count,
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: );

Line 4484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4480: ( p_count => x_msg_count,
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

Line 4538: x_return_status := FND_API.G_RET_STS_SUCCESS;

4534: AND pst.ledger_id = p_to_le_id; */
4535: BEGIN
4536: -- 7.3.1.4
4537: -- Initialize API return status to success
4538: x_return_status := FND_API.G_RET_STS_SUCCESS;
4539:
4540: -- API body
4541: Debug('IS_AP_VALID(+)');
4542: IF p_invoicing_rule = 'Y' THEN

Line 4552: p_new_status => FND_API.G_RET_STS_ERROR);

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;
4554: END IF;
4555: OPEN ou_valid_csr;
4556: FETCH ou_valid_csr INTO l_count;

Line 4564: p_new_status => FND_API.G_RET_STS_ERROR);

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;
4566: END IF;
4567:
4568: --

Line 4584: p_new_status => FND_API.G_RET_STS_ERROR);

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;
4586: END IF;
4587:
4588: l_success := Fun_Trading_Relation.Get_Supplier('INTERCOMPANY', l_from_le_id,

Line 4601: p_new_status => FND_API.G_RET_STS_ERROR);

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;
4603: /* Removed, should not check here -- Check AP period is open or not
4604: OPEN period_open_csr;
4605: FETCH period_open_csr INTO l_count;

Line 4613: p_new_status => FND_API.G_RET_STS_ERROR);

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;
4615: */
4616: END IF;
4617: Debug('IS_AP_VALID(-)');

Line 4674: IF NOT FND_API.Compatible_API_Call ( l_api_version,

4670: AND glps.closing_status IN ('O','F');
4671:
4672: BEGIN
4673: -- Standard call to check for call compatibility.
4674: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4675: p_api_version,
4676: l_api_name,
4677: G_PKG_NAME )
4678: THEN

Line 4679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4675: p_api_version,
4676: l_api_name,
4677: G_PKG_NAME )
4678: THEN
4679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 4683: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

4679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 4688: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
4689:
4690: -- API body
4691: Debug('AR_TRANSFER_VALIDATE(+)');
4692:

Line 4738: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);

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);

Line 4749: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);

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:
4752: Is_AR_Valid(x_return_status => l_return_status,
4753: p_initiator_id => l_initiator_id,

Line 4767: WHEN FND_API.G_EXC_ERROR THEN

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 ;
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

Line 4768: x_return_status := FND_API.G_RET_STS_ERROR ;

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 ;
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 ;

Line 4771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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,
4774: p_data => x_msg_data);
4775: WHEN OTHERS THEN

Line 4772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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,
4774: p_data => x_msg_data);
4775: WHEN OTHERS THEN
4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 4776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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
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,

Line 4822: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE))

4818:
4819:
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:

Line 4828: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
4829:
4830: IF p_batch_id IS NULL AND p_trx_id IS NULL
4831: THEN
4832: x_return_status := FND_API.G_RET_STS_ERROR;

Line 4832: x_return_status := FND_API.G_RET_STS_ERROR;

4828: x_return_status := FND_API.G_RET_STS_SUCCESS;
4829:
4830: IF p_batch_id IS NULL AND p_trx_id IS NULL
4831: THEN
4832: x_return_status := FND_API.G_RET_STS_ERROR;
4833: RETURN;
4834: END IF;
4835:
4836: -- Some activities may be COMPLETE but the notification would

Line 4877: WHEN FND_API.G_EXC_ERROR THEN

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
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:

Line 4878: x_return_status := FND_API.G_RET_STS_ERROR ;

4874: p_data => x_msg_data);
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

Line 4882: WHEN FND_API.G_EXC_UNEXPECTED_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 ;
4884: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4885: p_data => x_msg_data);
4886: WHEN OTHERS THEN

Line 4883: x_return_status := FND_API.G_RET_STS_UNEXP_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 ;
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 ;

Line 4887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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)
4889: THEN
4890: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4891: END IF;