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 131: x_return_status := FND_API.G_RET_STS_SUCCESS;

127: p_trx_tbl IN OUT NOCOPY TRX_TBL_TYPE) IS
128: l_count NUMBER;
129: BEGIN
130: Debug('IS_TRX_NUM_UNIQUE(+)');
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132: FOR I IN 1..p_trx_tbl.count LOOP
133: l_count :=0;
134: FOR J IN 1..p_trx_tbl.count LOOP
135: IF p_trx_tbl(J).batch_id=p_batch_id AND p_trx_tbl(J).trx_number = p_trx_tbl(I).trx_number THEN

Line 143: p_new_status => FND_API.G_RET_STS_ERROR);

139: FND_MESSAGE.SET_NAME('FUN', 'FUN_DUPL_TRX_NUM');
140: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(J).trx_number);
141: FND_MSG_PUB.Add;
142: Set_Return_Status(x_orig_status => x_return_status,
143: p_new_status => FND_API.G_RET_STS_ERROR);
144: EXIT;
145: END IF;
146: END LOOP;
147: END LOOP;

Line 167: x_return_status := FND_API.G_RET_STS_SUCCESS;

163: AND batch_number = p_batch_number;
164: BEGIN
165: Debug('IS_BATCH_NUM_UNIQUE(+)');
166: --7.2.1.3
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168: l_count := 0;
169: OPEN batch_num_csr;
170: FETCH batch_num_csr INTO l_count;
171: CLOSE batch_num_csr;

Line 178: p_new_status => FND_API.G_RET_STS_ERROR);

174: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_BATCH_NUM');
175: FND_MSG_PUB.Add;
176: END IF;
177: Set_Return_Status(x_orig_status => x_return_status,
178: p_new_status => FND_API.G_RET_STS_ERROR);
179: END IF;
180: Debug('IS_BATCH_NUM_UNIQUE(-)');
181: END;
182:

Line 201: x_return_status := FND_API.G_RET_STS_SUCCESS;

197: l_return_status VARCHAR2(1);
198: l_le_error VARCHAR2(2000);
199:
200: BEGIN
201: x_return_status := FND_API.G_RET_STS_SUCCESS;
202: x_invoice_required := 'N';
203:
204: IF p_ttyp_invoice_flag = 'N'
205: THEN

Line 214: IF l_ini_invoice_flag = FND_API.G_TRUE

210: p_legal_entity_id => p_init_le_id,
211: p_party_id => p_init_party_id,
212: x_intercompany_inv => l_ini_invoice_flag);
213:
214: IF l_ini_invoice_flag = FND_API.G_TRUE
215: THEN
216: x_invoice_required := 'Y';
217: ELSE
218: -- check if invoice is required for the recipient

Line 226: IF l_rec_invoice_flag = FND_API.G_TRUE

222: p_legal_entity_id => p_reci_le_id,
223: p_party_id => p_reci_party_id,
224: x_intercompany_inv => l_rec_invoice_flag);
225:
226: IF l_rec_invoice_flag = FND_API.G_TRUE
227: THEN
228: -- invoicing is required for the recipient
229: x_invoice_required := 'Y';
230: ELSE

Line 251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

247: 'fun.plsql.fun_wf_common.check_invoice_reqd_flag',
248: SQLERRM || ' Error occurred ');
249: END IF;
250:
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252:
253: END check_invoice_reqd_flag;
254:
255: PROCEDURE Is_Party_Valid

Line 288: x_return_status := FND_API.G_RET_STS_SUCCESS;

284: BEGIN
285: Debug('IS_PARTY_VALID(+)');
286:
287: -- 7.2.2.2
288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289: l_return_status := FUN_TCA_PKG.is_intercompany_org_valid(p_party_id, p_batch_date);
290: IF l_return_status = 'N' THEN
291: --Bug 5144930. Added new error messages to display the start date and end date.
292: FUN_TCA_PKG.get_ic_org_valid_dates(p_party_id,l_le_start_dt, l_le_end_dt);

Line 320: p_new_status => FND_API.G_RET_STS_ERROR);

316: END IF;
317: END IF;
318:
319: Set_Return_Status(x_orig_status => x_return_status,
320: p_new_status => FND_API.G_RET_STS_ERROR);
321: END IF;
322:
323:
324: --Problem: LE dependency

Line 340: p_new_status => FND_API.G_RET_STS_ERROR);

336: FND_MSG_PUB.Add;
337: END IF;
338: END IF;
339: Set_Return_Status(x_orig_status => x_return_status,
340: p_new_status => FND_API.G_RET_STS_ERROR);
341: END IF;
342:
343: CLOSE legal_entity_csr;
344:

Line 359: p_new_status => FND_API.G_RET_STS_ERROR);

355: FND_MSG_PUB.Add;
356: END IF;
357: END IF;
358: Set_Return_Status(x_orig_status => x_return_status,
359: p_new_status => FND_API.G_RET_STS_ERROR);
360:
361: END IF;
362:
363: IF p_local = 'N' THEN

Line 371: p_new_status => FND_API.G_RET_STS_ERROR);

367: FND_MESSAGE.SET_NAME('FUN', 'FUN_PARTY_NO_MSR');
368: FND_MSG_PUB.Add;
369: END IF;
370: Set_Return_Status(x_orig_status => x_return_status,
371: p_new_status => FND_API.G_RET_STS_ERROR);
372: END IF;
373: END IF;
374:
375: Debug('IS_PARTY_VALID(-)');

Line 408: x_return_status := FND_API.G_RET_STS_SUCCESS;

404: l_dist_total_dr NUMBER := 0;
405:
406: BEGIN
407: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
408: x_return_status := FND_API.G_RET_STS_SUCCESS;
409:
410: -- Perform the following validation only for manual mode
411: IF Nvl(p_auto_proration_flag, 'N') = 'N'
412: THEN

Line 452: p_new_status => FND_API.G_RET_STS_ERROR);

448: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
449: FND_MSG_PUB.Add;
450: END IF;
451: Set_Return_Status(x_orig_status => x_return_status,
452: p_new_status => FND_API.G_RET_STS_ERROR);
453: END IF;
454:
455: IF l_dist_cr_type = l_dist_dr_type
456: THEN

Line 464: p_new_status => FND_API.G_RET_STS_ERROR);

460: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
461: FND_MSG_PUB.Add;
462: END IF;
463: Set_Return_Status(x_orig_status => x_return_status,
464: p_new_status => FND_API.G_RET_STS_ERROR);
465: END IF;
466: END IF; -- Manual Distribution validation
467:
468: EXCEPTION

Line 469: WHEN FND_API.G_EXC_ERROR THEN

465: END IF;
466: END IF; -- Manual Distribution validation
467:
468: EXCEPTION
469: WHEN FND_API.G_EXC_ERROR THEN
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN

Line 470: x_return_status := FND_API.G_RET_STS_ERROR ;

466: END IF; -- Manual Distribution validation
467:
468: EXCEPTION
469: WHEN FND_API.G_EXC_ERROR THEN
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;

Line 471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

467:
468: EXCEPTION
469: WHEN FND_API.G_EXC_ERROR THEN
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

468: EXCEPTION
469: WHEN FND_API.G_EXC_ERROR THEN
470: x_return_status := FND_API.G_RET_STS_ERROR ;
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level

Line 475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
473: WHEN OTHERS THEN
474: FND_MSG_PUB.ADD;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
476: IF FND_MSG_PUB.Check_Msg_Level
477: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: FND_MSG_PUB.Add_Exc_Msg

Line 508: x_return_status := FND_API.G_RET_STS_SUCCESS;

504:
505:
506: BEGIN
507: Debug('IS_INIT_TRX_VALID(+)');
508: x_return_status := FND_API.G_RET_STS_SUCCESS;
509:
510: l_boolean := Fun_System_Options_Pkg.Get_Min_Trx_Amt(l_min_amt, l_min_curr_code);
511: l_conv_type := Fun_System_Options_Pkg.Get_Exchg_Rate_Type;
512: --No need to perform minimum transaction amount validation if the minimum amount

Line 531: p_new_status => FND_API.G_RET_STS_ERROR);

527: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_number);
528: FND_MSG_PUB.Add;
529: END IF;
530: Set_Return_Status(x_orig_status => x_return_status,
531: p_new_status => FND_API.G_RET_STS_ERROR);
532: END IF;
533: EXCEPTION
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 534: WHEN FND_API.G_EXC_ERROR THEN

530: Set_Return_Status(x_orig_status => x_return_status,
531: p_new_status => FND_API.G_RET_STS_ERROR);
532: END IF;
533: EXCEPTION
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR ;
536:
537: WHEN gl_currency_api.NO_RATE THEN
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 535: x_return_status := FND_API.G_RET_STS_ERROR ;

531: p_new_status => FND_API.G_RET_STS_ERROR);
532: END IF;
533: EXCEPTION
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR ;
536:
537: WHEN gl_currency_api.NO_RATE THEN
538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
539: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');

Line 543: p_new_status => FND_API.G_RET_STS_ERROR);

539: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
540: FND_MSG_PUB.ADD;
541: END IF;
542: Set_Return_Status(x_orig_status => x_return_status,
543: p_new_status => FND_API.G_RET_STS_ERROR);
544: x_return_status := FND_API.G_RET_STS_ERROR ;
545:
546: WHEN gl_currency_api.INVALID_CURRENCY THEN
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 544: x_return_status := FND_API.G_RET_STS_ERROR ;

540: FND_MSG_PUB.ADD;
541: END IF;
542: Set_Return_Status(x_orig_status => x_return_status,
543: p_new_status => FND_API.G_RET_STS_ERROR);
544: x_return_status := FND_API.G_RET_STS_ERROR ;
545:
546: WHEN gl_currency_api.INVALID_CURRENCY THEN
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');

Line 552: p_new_status => FND_API.G_RET_STS_ERROR);

548: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
549: FND_MSG_PUB.ADD;
550: END IF;
551: Set_Return_Status(x_orig_status => x_return_status,
552: p_new_status => FND_API.G_RET_STS_ERROR);
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 553: x_return_status := FND_API.G_RET_STS_ERROR ;

549: FND_MSG_PUB.ADD;
550: END IF;
551: Set_Return_Status(x_orig_status => x_return_status,
552: p_new_status => FND_API.G_RET_STS_ERROR);
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: WHEN OTHERS THEN

Line 555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

551: Set_Return_Status(x_orig_status => x_return_status,
552: p_new_status => FND_API.G_RET_STS_ERROR);
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: WHEN OTHERS THEN
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;

Line 556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

552: p_new_status => FND_API.G_RET_STS_ERROR);
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: WHEN OTHERS THEN
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: WHEN OTHERS THEN
558: FND_MESSAGE.SET_NAME('FUN', 'ERROR_IN_IS_INIT_TRX_AMT_VALID'); -- Problem here: Remove check
559: FND_MSG_PUB.ADD;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg

Line 629: x_return_status := FND_API.G_RET_STS_SUCCESS;

625: AND legal_entity_id = p_le_id;
626:
627: BEGIN
628: Debug('IS_CCID_VALID(+)');
629: x_return_status := FND_API.G_RET_STS_SUCCESS;
630:
631: --Validate only if the ledger is set up to have specific BSVs assigned
632: SELECT bal_seg_value_option_code, bal_seg_column_name, name
633: INTO l_bsv_val, l_bal_seg_column_name, g_le_name

Line 659: p_new_status => FND_API.G_RET_STS_ERROR);

655: FND_MESSAGE.SET_TOKEN('BSV', l_bal_seg_value);
656: FND_MESSAGE.SET_TOKEN('VALIDBSVS', l_valid_bsvs);
657: FND_MSG_PUB.Add;
658: Set_Return_Status(x_orig_status => x_return_status,
659: p_new_status => FND_API.G_RET_STS_ERROR);
660: END IF;
661: END IF;
662: Debug('IS_CCID_VALID(-)');
663: EXCEPTION

Line 708: p_new_status => FND_API.G_RET_STS_ERROR);

704: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_CCID');
705: FND_MSG_PUB.Add;
706: END IF;
707: Set_Return_Status(x_orig_status => x_return_status,
708: p_new_status => FND_API.G_RET_STS_ERROR);
709: END IF;
710: dbms_sql.close_cursor(l_cur_hdl); -- close cursor
711: OPEN bsv_csr;
712: FETCH bsv_csr INTO l_count;

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

710: dbms_sql.close_cursor(l_cur_hdl); -- close cursor
711: OPEN bsv_csr;
712: FETCH bsv_csr INTO l_count;
713: IF l_count < 1 THEN
714: IF FND_MSG_PUB.Check_Msg_Level(FND_API.G_RET_STS_UNEXP_ERROR) THEN
715: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
716: FND_MSG_PUB.Add;
717: END IF;
718: Set_Return_Status(x_orig_status => x_return_status,

Line 719: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);

715: FND_MESSAGE.SET_NAME('FUN', 'UNEXP_ERROR_OCCURRED_IN_CCID_CHK');
716: FND_MSG_PUB.Add;
717: END IF;
718: Set_Return_Status(x_orig_status => x_return_status,
719: p_new_status => FND_API.G_RET_STS_UNEXP_ERROR);
720: END IF;
721: CLOSE bsv_csr;
722: Debug('IS_CCID_VALID(-)');
723: EXCEPTION

Line 761: x_return_status := FND_API.G_RET_STS_SUCCESS;

757: l_dist_lines_count NUMBER:= 0;
758: BEGIN
759: Debug('IS_RECI_TRX_BALANCE(+)');
760: -- 7.2.2.9
761: x_return_status := FND_API.G_RET_STS_SUCCESS;
762: l_count := p_dist_lines_tbl.COUNT;
763: IF l_count > 0 THEN
764: FOR j IN 1..l_count LOOP
765: IF p_dist_lines_tbl(j).party_type = 'R' THEN

Line 816: p_new_status => FND_API.G_RET_STS_ERROR);

812: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
813: FND_MSG_PUB.Add;
814: END IF;
815: Set_Return_Status(x_orig_status => x_return_status,
816: p_new_status => FND_API.G_RET_STS_ERROR);
817: END IF;
818: IF l_pay_dist_cr_type = l_pay_dist_dr_type OR
819: l_dist_lines_cr_type = l_dist_lines_dr_type OR
820: l_pay_dist_pos_type = l_pay_dist_neg_type OR

Line 827: p_new_status => FND_API.G_RET_STS_ERROR);

823: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
824: FND_MSG_PUB.Add;
825: END IF;
826: Set_Return_Status(x_orig_status => x_return_status,
827: p_new_status => FND_API.G_RET_STS_ERROR);
828: END IF;
829: Debug('IS_RECI_TRX_BALANCE(-)');
830: END;
831:

Line 856: x_return_status := FND_API.G_RET_STS_SUCCESS;

852: l_dist_lines_neg_type NUMBER := 0;
853: BEGIN
854: Debug('IS_BATCH_BALANCE(+)');
855: -- 7.2.2.9
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: l_count := p_init_dist_tbl.COUNT;
858: IF l_count > 0 THEN
859: FOR i IN 1..l_count LOOP
860: IF NVL(p_init_dist_tbl(i).amount_cr, 0) <> 0 THEN

Line 910: p_new_status => FND_API.G_RET_STS_ERROR);

906: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
907: FND_MSG_PUB.Add;
908: END IF;
909: Set_Return_Status(x_orig_status => x_return_status,
910: p_new_status => FND_API.G_RET_STS_ERROR);
911: END IF;
912: IF l_init_dist_cr_type = l_init_dist_dr_type OR
913: l_dist_lines_cr_type = l_dist_lines_dr_type OR
914: l_init_dist_pos_type = l_init_dist_neg_type OR

Line 921: p_new_status => FND_API.G_RET_STS_ERROR);

917: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
918: FND_MSG_PUB.Add;
919: END IF;
920: Set_Return_Status(x_orig_status => x_return_status,
921: p_new_status => FND_API.G_RET_STS_ERROR);
922: END IF;
923: Debug('IS_BATCH_BALANCE(-)');
924: END;
925:

Line 956: x_return_status := FND_API.G_RET_STS_SUCCESS;

952:
953: BEGIN
954: Debug('IS_AUTO_BATCH_BALANCE(+)');
955:
956: x_return_status := FND_API.G_RET_STS_SUCCESS;
957:
958: -- Sum the transaction Amounts
959: l_count := p_trx_tbl.COUNT;
960: IF l_count > 0

Line 1025: p_new_status => FND_API.G_RET_STS_ERROR);

1021: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_INI_DIST');
1022: FND_MSG_PUB.Add;
1023: END IF;
1024: Set_Return_Status(x_orig_status => x_return_status,
1025: p_new_status => FND_API.G_RET_STS_ERROR);
1026: END IF;
1027:
1028: IF l_trx_cr_type = l_trx_dr_type OR
1029: l_trx_pos_type = l_trx_neg_type

Line 1037: p_new_status => FND_API.G_RET_STS_ERROR);

1033: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_SIGNS_TRX_LINE');
1034: FND_MSG_PUB.Add;
1035: END IF;
1036: Set_Return_Status(x_orig_status => x_return_status,
1037: p_new_status => FND_API.G_RET_STS_ERROR);
1038: END IF;
1039: Debug('IS_AUTO_BATCH_BALANCE(-)');
1040: END Is_Auto_Batch_Balance;
1041:

Line 1073: x_return_status := FND_API.G_RET_STS_SUCCESS;

1069: */
1070: BEGIN
1071: Debug('IS_CURR_FLD_VALID(+)');
1072: -- 7.2.2.10
1073: x_return_status := FND_API.G_RET_STS_SUCCESS;
1074: l_default_currency := Fun_System_Options_Pkg.Get_Default_Currency;
1075: l_conv_type := Fun_System_Options_Pkg.Get_Exchg_Rate_Type;
1076: IF l_default_currency IS NOT NULL THEN
1077: IF p_curr_code <> l_default_currency THEN

Line 1083: p_new_status => FND_API.G_RET_STS_ERROR);

1079: FND_MESSAGE.SET_NAME('FUN', 'FUN_CUR_NOTEQUAL_ENTRD_CUR');
1080: FND_MSG_PUB.Add;
1081: END IF;
1082: Set_Return_Status(x_orig_status => x_return_status,
1083: p_new_status => FND_API.G_RET_STS_ERROR);
1084: RETURN;
1085: END IF;
1086: END IF;
1087:

Line 1097: p_new_status => FND_API.G_RET_STS_ERROR);

1093: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_CURRENCY');
1094: FND_MSG_PUB.Add;
1095: END IF;
1096: Set_Return_Status(x_orig_status => x_return_status,
1097: p_new_status => FND_API.G_RET_STS_ERROR);
1098: END IF;
1099: /* Not used, replaced by GL currency API
1100: OPEN currency_rate_csr;
1101: FETCH currency_rate_csr INTO l_count;

Line 1109: p_new_status => FND_API.G_RET_STS_ERROR);

1105: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CONV_RATE_NOT_FOUND');
1106: FND_MSG_PUB.Add;
1107: END IF;
1108: Set_Return_Status(x_orig_status => x_return_status,
1109: p_new_status => FND_API.G_RET_STS_ERROR);
1110: END IF;
1111: */
1112: l_rate := GL_CURRENCY_API.Get_Rate_Sql(p_ledger_id, p_curr_code, p_trx_date, l_conv_type);
1113:

Line 1140: x_return_status := FND_API.G_RET_STS_SUCCESS;

1136: l_count NUMBER;
1137: i NUMBER := 1;
1138: BEGIN
1139: Debug('IS_IC_RELATIONSHIP_VALID(+)');
1140: x_return_status := FND_API.G_RET_STS_SUCCESS;
1141: -- 7.2.2.1
1142: l_count := p_trx_tbl.COUNT;
1143: WHILE l_count <> 0 AND i <= l_count LOOP
1144: IF p_from_le_id = p_trx_tbl(i).to_le_id THEN

Line 1150: p_new_status => FND_API.G_RET_STS_ERROR);

1146: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_IC_RELATIONSHIP');
1147: FND_MSG_PUB.Add;
1148: END IF;
1149: Set_Return_Status(x_orig_status => x_return_status,
1150: p_new_status => FND_API.G_RET_STS_ERROR);
1151: END IF;
1152: i := i + 1;
1153: END LOOP;
1154: Debug('IS_IC_RELATIONSHIP_VALID(-)');

Line 1167: x_return_status := FND_API.G_RET_STS_SUCCESS;

1163: i NUMBER := 1;
1164: j NUMBER := 2;
1165: BEGIN
1166: Debug('IS_RECI_NOT_DUPLICATED(+)');
1167: x_return_status := FND_API.G_RET_STS_SUCCESS;
1168: -- 7.2.1.4
1169: l_count := p_trx_tbl.COUNT;
1170: WHILE l_count <> 0 AND i <= l_count LOOP
1171: WHILE l_count <> 0 AND j <= l_count LOOP

Line 1179: p_new_status => FND_API.G_RET_STS_ERROR);

1175: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_DUPLICATE_RECP');
1176: FND_MSG_PUB.Add;
1177: END IF;
1178: Set_Return_Status(x_orig_status => x_return_status,
1179: p_new_status => FND_API.G_RET_STS_ERROR);
1180: END IF;
1181: j := j + 1;
1182: END LOOP;
1183: i := i + 1;

Line 1199: x_return_status := FND_API.G_RET_STS_SUCCESS;

1195: l_need_invoice VARCHAR2(1);
1196: l_enabled VARCHAR2(1);
1197: BEGIN
1198: Debug('IS_TRX_TYPE_VALID(+)');
1199: x_return_status := FND_API.G_RET_STS_SUCCESS;
1200: Fun_Trx_Types_Pub.get_trx_type_by_id(p_trx_type_id,
1201: l_trx_type_code,
1202: l_need_invoice,
1203: l_enabled);

Line 1210: p_new_status => FND_API.G_RET_STS_ERROR);

1206: FND_MESSAGE.SET_NAME('FUN','FUN_API_INVALID_TRX_TYPE');
1207: FND_MSG_PUB.Add;
1208: END IF;
1209: Set_Return_Status(x_orig_status => x_return_status,
1210: p_new_status => FND_API.G_RET_STS_ERROR);
1211: END IF;
1212: Debug('IS_TRX_TYPE_VALID(-)');
1213: END;
1214:

Line 1234: x_return_status := FND_API.G_RET_STS_SUCCESS;

1230: l_count NUMBER;
1231: l_result VARCHAR2(1);
1232: BEGIN
1233: Debug('IS_INIT_GL_DATE_VALID(+)');
1234: x_return_status := FND_API.G_RET_STS_SUCCESS;
1235: -- 7.2.2.3
1236: /* Problem: good to create a view for the periods
1237: copy from AR_PERIODS_V
1238: SELECT PST.PERIOD_NAME

Line 1261: p_new_status => FND_API.G_RET_STS_ERROR);

1257: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1258: FND_MSG_PUB.Add;
1259: END IF;
1260: Set_Return_Status(x_orig_status => x_return_status,
1261: p_new_status => FND_API.G_RET_STS_ERROR);
1262: END IF;
1263: */
1264: l_result := fun_period_status_pkg.get_fun_prd_status(p_gl_date, p_trx_type_id);
1265: IF l_result <> 'O' THEN

Line 1271: p_new_status => FND_API.G_RET_STS_ERROR);

1267: FND_MESSAGE.SET_NAME('FUN', 'FUN_PERIOD_NOT_OPEN');
1268: FND_MSG_PUB.Add;
1269: END IF;
1270: Set_Return_Status(x_orig_status => x_return_status,
1271: p_new_status => FND_API.G_RET_STS_ERROR);
1272: END IF;
1273:
1274:
1275: Debug('IS_INIT_GL_DATE_VALID(-)');

Line 1309: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1305: l_creation_sign number;
1306: BEGIN
1307: l_local := 'Y';
1308: -- Standard call to check for call compatibility.
1309: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1310: p_api_version,
1311: l_api_name,
1312: G_PKG_NAME )
1313: THEN

Line 1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1310: p_api_version,
1311: l_api_name,
1312: G_PKG_NAME )
1313: THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316:
1317: -- Initialize message list if p_init_msg_list is set to TRUE.
1318: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE )) THEN

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

1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316:
1317: -- Initialize message list if p_init_msg_list is set to TRUE.
1318: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE )) THEN
1319: FND_MSG_PUB.initialize;
1320: END IF;
1321:
1322: -- Initialize API return status to success

Line 1323: x_return_status := FND_API.G_RET_STS_SUCCESS;

1319: FND_MSG_PUB.initialize;
1320: END IF;
1321:
1322: -- Initialize API return status to success
1323: x_return_status := FND_API.G_RET_STS_SUCCESS;
1324:
1325: -- API body
1326: Debug('INIT_BATCH_VALIDATE(+)');
1327: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= 50 THEN

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

1323: x_return_status := FND_API.G_RET_STS_SUCCESS;
1324:
1325: -- API body
1326: Debug('INIT_BATCH_VALIDATE(+)');
1327: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= 50 THEN
1328:
1329: l_validate_dist := 'N';
1330:
1331: -- 7.2.1.2 Validate on batch number, initiator, currency, batch type,

Line 1340: p_new_status => FND_API.G_RET_STS_ERROR);

1336: p_batch_rec.trx_type_id IS NULL OR
1337: p_batch_rec.gl_date IS NULL OR
1338: p_batch_rec.batch_date IS NULL) THEN
1339: Set_Return_Status(x_orig_status => x_return_status,
1340: p_new_status => FND_API.G_RET_STS_ERROR);
1341: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1342: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1343: FND_MSG_PUB.Add;
1344: END IF;

Line 1346: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) THEN

1342: FND_MESSAGE.SET_NAME('FUN', 'FUN_REQUIRED_FIELDS_INCOMPLETE');
1343: FND_MSG_PUB.Add;
1344: END IF;
1345: END IF;
1346: IF (nvl(p_insert,FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1347: Is_Batch_Num_Unique(x_return_status => l_return_status,
1348: p_batch_number => p_batch_rec.batch_number,
1349: p_initiator_id => p_batch_rec.initiator_id);
1350: Set_Return_Status(x_orig_status => x_return_status,

Line 1352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1348: p_batch_number => p_batch_rec.batch_number,
1349: p_initiator_id => p_batch_rec.initiator_id);
1350: Set_Return_Status(x_orig_status => x_return_status,
1351: p_new_status => l_return_status);
1352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: END IF;
1355: END IF;
1356:

Line 1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1349: p_initiator_id => p_batch_rec.initiator_id);
1350: Set_Return_Status(x_orig_status => x_return_status,
1351: p_new_status => l_return_status);
1352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: END IF;
1355: END IF;
1356:
1357: --check for duplicate transaction number

Line 1364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1360: p_trx_tbl => p_trx_tbl
1361: );
1362: Set_Return_Status(x_orig_status => x_return_status,
1363: p_new_status => l_return_status);
1364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367:
1368:

Line 1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1361: );
1362: Set_Return_Status(x_orig_status => x_return_status,
1363: p_new_status => l_return_status);
1364: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367:
1368:
1369: /* Start of bug 5284760 */

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

1382: p_batch_rec.batch_date);
1383: END IF;
1384:
1385: /* End of bug 5284760 */
1386: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1387: FOR i IN 1..p_trx_tbl.COUNT LOOP
1388: -- see if any recipient is in local instance
1389: -- if yes, then need to check the MSR value
1390: IF p_trx_tbl(i).recipient_instance = 'N' THEN

Line 1399: p_init_msg_list => FND_API.G_FALSE,

1395: break intercompany exceptions */
1396:
1397: XLE_UTILITIES_GRP.Is_Intercompany_LEID(
1398: p_api_version => l_api_version,
1399: p_init_msg_list => FND_API.G_FALSE,
1400: p_commit => FND_API.G_FALSE,
1401: x_return_status => l_return_status,
1402: x_msg_count => l_msg_count,
1403: x_msg_data => l_msg_data,

Line 1400: p_commit => FND_API.G_FALSE,

1396:
1397: XLE_UTILITIES_GRP.Is_Intercompany_LEID(
1398: p_api_version => l_api_version,
1399: p_init_msg_list => FND_API.G_FALSE,
1400: p_commit => FND_API.G_FALSE,
1401: x_return_status => l_return_status,
1402: x_msg_count => l_msg_count,
1403: x_msg_data => l_msg_data,
1404: p_legal_entity_id1 => p_batch_rec.from_le_id,

Line 1408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1404: p_legal_entity_id1 => p_batch_rec.from_le_id,
1405: p_legal_entity_id2 => p_trx_tbl(i).to_le_id,
1406: x_Intercompany => l_intercompany_exception) ;
1407:
1408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1410: END IF;
1411:
1412:

Line 1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1405: p_legal_entity_id2 => p_trx_tbl(i).to_le_id,
1406: x_Intercompany => l_intercompany_exception) ;
1407:
1408: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1410: END IF;
1411:
1412:
1413: if(l_intercompany_exception = 'N') THEN

Line 1419: p_new_status => FND_API.G_RET_STS_ERROR);

1415: FND_MESSAGE.SET_NAME('FUN', 'FUN_INTERCOMPANY_EXCEPTION');
1416: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1417: FND_MSG_PUB.Add;
1418: Set_Return_Status(x_orig_status => x_return_status,
1419: p_new_status => FND_API.G_RET_STS_ERROR);
1420: end if;
1421: /* end of bug 4724672 */
1422:
1423: /* Start of bug 5284760 */

Line 1446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1442: x_invoice_required => l_invoicing_rule,
1443: x_return_status => l_return_status);
1444: Set_Return_Status(x_orig_status => x_return_status,
1445: p_new_status => l_return_status);
1446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449: IF l_invoicing_rule IS NULL THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1443: x_return_status => l_return_status);
1444: Set_Return_Status(x_orig_status => x_return_status,
1445: p_new_status => l_return_status);
1446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449: IF l_invoicing_rule IS NULL THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;

Line 1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449: IF l_invoicing_rule IS NULL THEN
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1451: END IF;
1452: END IF;
1453:
1454: /* If invoicing is enabled then validate the amount against

Line 1463: p_new_status => FND_API.G_RET_STS_ERROR);

1459: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
1460: FND_MSG_PUB.Add;
1461: END IF;
1462: Set_Return_Status(x_orig_status => x_return_status,
1463: p_new_status => FND_API.G_RET_STS_ERROR);
1464: EXIT;
1465: END IF;
1466: /* If creation sign is positive and amount entered is
1467: negative, then throw an error*/

Line 1476: p_new_status => FND_API.G_RET_STS_ERROR);

1472: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1473: FND_MSG_PUB.Add;
1474: END IF;
1475: Set_Return_Status(x_orig_status => x_return_status,
1476: p_new_status => FND_API.G_RET_STS_ERROR);
1477: END IF;
1478: /* If creation sign is negative and amount entered is
1479: positive, then throw an error*/
1480: IF (p_trx_tbl(i).init_amount_dr > 0 or p_trx_tbl(i).init_amount_cr < 0)

Line 1488: p_new_status => FND_API.G_RET_STS_ERROR);

1484: FND_MESSAGE.SET_TOKEN('TRX_NUMBER',p_trx_tbl(i).trx_number);
1485: FND_MSG_PUB.Add;
1486: END IF;
1487: Set_Return_Status(x_orig_status => x_return_status,
1488: p_new_status => FND_API.G_RET_STS_ERROR);
1489: END IF;
1490: END IF;
1491: /* End of bug 5284760 */
1492: END LOOP;

Line 1504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1500: p_batch_date => p_batch_rec.gl_date,
1501: p_trx_number => NULL);
1502: Set_Return_Status(x_orig_status => x_return_status,
1503: p_new_status => l_return_status);
1504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1506: END IF;
1507: Is_Trx_Type_Valid(x_return_status => l_return_status,
1508: p_trx_type_id => p_batch_rec.trx_type_id);

Line 1505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1501: p_trx_number => NULL);
1502: Set_Return_Status(x_orig_status => x_return_status,
1503: p_new_status => l_return_status);
1504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1506: END IF;
1507: Is_Trx_Type_Valid(x_return_status => l_return_status,
1508: p_trx_type_id => p_batch_rec.trx_type_id);
1509: Set_Return_Status(x_orig_status => x_return_status,

Line 1511: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1507: Is_Trx_Type_Valid(x_return_status => l_return_status,
1508: p_trx_type_id => p_batch_rec.trx_type_id);
1509: Set_Return_Status(x_orig_status => x_return_status,
1510: p_new_status => l_return_status);
1511: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1513: END IF;
1514: Is_Init_GL_Date_Valid(x_return_status => l_return_status,
1515: p_from_le_id => p_batch_rec.from_le_id,

Line 1512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1508: p_trx_type_id => p_batch_rec.trx_type_id);
1509: Set_Return_Status(x_orig_status => x_return_status,
1510: p_new_status => l_return_status);
1511: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1513: END IF;
1514: Is_Init_GL_Date_Valid(x_return_status => l_return_status,
1515: p_from_le_id => p_batch_rec.from_le_id,
1516: p_gl_date => p_batch_rec.gl_date,

Line 1520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1516: p_gl_date => p_batch_rec.gl_date,
1517: p_trx_type_id => p_batch_rec.trx_type_id);
1518: Set_Return_Status(x_orig_status => x_return_status,
1519: p_new_status => l_return_status);
1520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- 7.2.2.6 Note: Do not need to check at least 1 dist line

Line 1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1517: p_trx_type_id => p_batch_rec.trx_type_id);
1518: Set_Return_Status(x_orig_status => x_return_status,
1519: p_new_status => l_return_status);
1520: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- 7.2.2.6 Note: Do not need to check at least 1 dist line
1525: -- as we check total trx amounts = total dist amounts

Line 1533: p_new_status => FND_API.G_RET_STS_ERROR);

1529: -- Problem: Double check with msg repository
1530: FND_MSG_PUB.Add;
1531: END IF;
1532: Set_Return_Status(x_orig_status => x_return_status,
1533: p_new_status => FND_API.G_RET_STS_ERROR);
1534: END IF;
1535:
1536: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= FND_API.G_VALID_LEVEL_FULL THEN
1537:

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

1532: Set_Return_Status(x_orig_status => x_return_status,
1533: p_new_status => FND_API.G_RET_STS_ERROR);
1534: END IF;
1535:
1536: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) >= FND_API.G_VALID_LEVEL_FULL THEN
1537:
1538: l_validate_dist := 'Y';
1539:
1540: Is_Curr_Fld_Valid(x_return_status => l_return_status,

Line 1546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1542: p_ledger_id => p_batch_rec.from_ledger_id,
1543: p_trx_date => p_batch_rec.gl_date);
1544: Set_Return_Status(x_orig_status => x_return_status,
1545: p_new_status => l_return_status);
1546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1548: END IF;
1549:
1550: END IF; -- end full validation

Line 1547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1543: p_trx_date => p_batch_rec.gl_date);
1544: Set_Return_Status(x_orig_status => x_return_status,
1545: p_new_status => l_return_status);
1546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1548: END IF;
1549:
1550: END IF; -- end full validation
1551: END IF; -- end unique field success

Line 1572: WHEN FND_API.G_EXC_ERROR THEN

1568: -- Standard call to get message count and if count is 1, get message info.
1569: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1570: p_data => x_msg_data);
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1573: x_return_status := FND_API.G_RET_STS_ERROR ;

1569: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1570: p_data => x_msg_data);
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN

Line 1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1573: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1575: p_data => x_msg_data);
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1579: p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1583: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1584: END IF;
1585: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,

Line 1614: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1610: BEGIN
1611: l_local := 'Y';
1612:
1613: -- Standard call to check for call compatibility.
1614: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1615: p_api_version,
1616: l_api_name,
1617: G_PKG_NAME )
1618: THEN

Line 1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1615: p_api_version,
1616: l_api_name,
1617: G_PKG_NAME )
1618: THEN
1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: END IF;
1621:
1622: -- Initialize message list if p_init_msg_list is set to TRUE.
1623: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

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

1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: END IF;
1621:
1622: -- Initialize message list if p_init_msg_list is set to TRUE.
1623: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
1624: FND_MSG_PUB.initialize;
1625: END IF;
1626:
1627: -- Initialize API return status to success

Line 1628: x_return_status := FND_API.G_RET_STS_SUCCESS;

1624: FND_MSG_PUB.initialize;
1625: END IF;
1626:
1627: -- Initialize API return status to success
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630: -- API body
1631: Debug('INIT_TRX_VALIDATE(+)');
1632: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

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

1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630: -- API body
1631: Debug('INIT_TRX_VALIDATE(+)');
1632: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1633: --check trx number
1634: IF p_trx_rec.trx_number IS NULL THEN
1635: Set_Return_Status(x_orig_status => x_return_status,
1636: p_new_status => FND_API.G_RET_STS_ERROR);

Line 1636: p_new_status => FND_API.G_RET_STS_ERROR);

1632: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1633: --check trx number
1634: IF p_trx_rec.trx_number IS NULL THEN
1635: Set_Return_Status(x_orig_status => x_return_status,
1636: p_new_status => FND_API.G_RET_STS_ERROR);
1637: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1638: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_NUM_NULL');
1639: FND_MSG_PUB.Add;
1640: END IF;

Line 1646: p_new_status => FND_API.G_RET_STS_ERROR);

1642: --Bug No. 5307996. Check for valid Currency code.
1643: IF (default_currency_code is not null AND default_currency_code <> p_currency_code) THEN
1644: --Bug No. 6311049.
1645: Set_Return_Status(x_orig_status => x_return_status,
1646: p_new_status => FND_API.G_RET_STS_ERROR);
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1648: FND_MESSAGE.SET_NAME('FUN', 'FUN_ADI_INVALID_CURRENCY');
1649: FND_MESSAGE.SET_TOKEN('CURRENCY', default_currency_code);
1650: FND_MSG_PUB.Add;

Line 1665: p_new_status => FND_API.G_RET_STS_ERROR);

1661: (p_trx_rec.init_amount_cr IS NULL AND
1662: p_trx_rec.init_amount_dr IS NOT NULL AND
1663: p_trx_rec.init_amount_dr <> 0)) THEN
1664: Set_Return_Status(x_orig_status => x_return_status,
1665: p_new_status => FND_API.G_RET_STS_ERROR);
1666: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1667: IF(p_trx_rec.init_amount_dr=0) THEN
1668: FND_MESSAGE.SET_NAME('FUN', 'FUN_NON_ZERO_AMOUNT');
1669: FND_MSG_PUB.Add;

Line 1681: p_new_status => FND_API.G_RET_STS_ERROR);

1677:
1678: --check initiator and recipeint are not same
1679: IF p_trx_rec.recipient_id=p_trx_rec.initiator_id THEN
1680: Set_Return_Status(x_orig_status => x_return_status,
1681: p_new_status => FND_API.G_RET_STS_ERROR);
1682: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1683: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_CHANGE_INITIATOR');
1684: FND_MSG_PUB.Add;
1685: END IF;

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

1684: FND_MSG_PUB.Add;
1685: END IF;
1686: END IF;
1687:
1688: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1689: IF (p_trx_rec.recipient_instance = 'N' OR
1690: p_trx_rec.initiator_instance = 'N') THEN
1691: l_local := 'N';
1692: END IF;

Line 1704: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1700: p_batch_date => p_gl_date,
1701: p_trx_number => p_trx_rec.trx_number);
1702: Set_Return_Status(x_orig_status => x_return_status,
1703: p_new_status => l_return_status);
1704: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1706: END IF;
1707: END IF;
1708: --Bug: 6998219

Line 1705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1701: p_trx_number => p_trx_rec.trx_number);
1702: Set_Return_Status(x_orig_status => x_return_status,
1703: p_new_status => l_return_status);
1704: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1706: END IF;
1707: END IF;
1708: --Bug: 6998219
1709: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

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

1705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1706: END IF;
1707: END IF;
1708: --Bug: 6998219
1709: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1710: validate_org_assignment(x_return_status => l_return_status,
1711: p_party_id => p_trx_rec.recipient_id);
1712: Set_Return_Status(x_orig_status => x_return_status,
1713: p_new_status => l_return_status);

Line 1714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1710: validate_org_assignment(x_return_status => l_return_status,
1711: p_party_id => p_trx_rec.recipient_id);
1712: Set_Return_Status(x_orig_status => x_return_status,
1713: p_new_status => l_return_status);
1714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1716: END IF;
1717: END IF;
1718: Is_Init_Trx_Amt_Valid(x_return_status => l_return_status,

Line 1715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1711: p_party_id => p_trx_rec.recipient_id);
1712: Set_Return_Status(x_orig_status => x_return_status,
1713: p_new_status => l_return_status);
1714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1716: END IF;
1717: END IF;
1718: Is_Init_Trx_Amt_Valid(x_return_status => l_return_status,
1719: p_trx_amount_cr => p_trx_rec.init_amount_cr,

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

1723: p_trx_date => p_gl_date,
1724: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1725: p_trx_number => p_trx_rec.trx_number);
1726: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1727: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: END IF;
1731: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN

Line 1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1724: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1725: p_trx_number => p_trx_rec.trx_number);
1726: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1727: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: END IF;
1731: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1732:

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

1727: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: END IF;
1731: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1732:
1733: Is_AR_Valid(x_return_status => l_return_status,
1734: p_initiator_id => p_trx_rec.initiator_id,
1735: p_invoicing_rule => p_trx_rec.invoicing_rule,

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

1739:
1740: IF l_return_status like 'L' THEN -- 6145670
1741: FND_MESSAGE.SET_NAME('FUN', 'FND_INTER_TRX_GLDATE');
1742: FND_MSG_PUB.Add;
1743: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
1744:
1745: END IF; -- 6145670
1746:
1747:

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

1746:
1747:
1748:
1749: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1754: -- Validate distributions if level is full

Line 1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1747:
1748:
1749: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753:
1754: -- Validate distributions if level is full
1755: Is_Init_Trx_Dist_Amt_Valid(x_return_status => l_return_status,

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

1760: p_trx_date => p_gl_date,
1761: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1762: p_trx_number => p_trx_rec.trx_number);
1763: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1764: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1768: END IF;

Line 1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1761: p_auto_proration_flag => p_trx_rec.automatic_proration_flag,
1762: p_trx_number => p_trx_rec.trx_number);
1763: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
1764: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1768: END IF;
1769:

Line 1776: WHEN FND_API.G_EXC_ERROR THEN

1772: -- Standard call to get message count and if count is 1, get message info.
1773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1774: p_data => x_msg_data);
1775: EXCEPTION
1776: WHEN FND_API.G_EXC_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1777: x_return_status := FND_API.G_RET_STS_ERROR ;

1773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1774: p_data => x_msg_data);
1775: EXCEPTION
1776: WHEN FND_API.G_EXC_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1776: WHEN FND_API.G_EXC_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN

Line 1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1777: x_return_status := FND_API.G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1779: p_data => x_msg_data);
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1783: p_data => x_msg_data);
1784: WHEN OTHERS THEN
1785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1788: END IF;
1789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,

Line 1808: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1804: l_api_name CONSTANT VARCHAR2(30) := 'INIT_DIST_VALIDATE';
1805: l_api_version CONSTANT NUMBER := 1.0;
1806: BEGIN
1807: -- Standard call to check for call compatibility.
1808: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1809: p_api_version,
1810: l_api_name,
1811: G_PKG_NAME )
1812: THEN

Line 1813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1809: p_api_version,
1810: l_api_name,
1811: G_PKG_NAME )
1812: THEN
1813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814: END IF;
1815:
1816: -- Initialize message list if p_init_msg_list is set to TRUE.
1817: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN

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

1813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814: END IF;
1815:
1816: -- Initialize message list if p_init_msg_list is set to TRUE.
1817: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
1818: FND_MSG_PUB.initialize;
1819: END IF;
1820:
1821: -- Initialize API return status to success

Line 1822: x_return_status := FND_API.G_RET_STS_SUCCESS;

1818: FND_MSG_PUB.initialize;
1819: END IF;
1820:
1821: -- Initialize API return status to success
1822: x_return_status := FND_API.G_RET_STS_SUCCESS;
1823:
1824: -- API body
1825: Debug('INIT_DIST_VALIDATE(+)');
1826: -- Bug 7012449. Commented the If condition so that the ccid is validated

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

1824: -- API body
1825: Debug('INIT_DIST_VALIDATE(+)');
1826: -- Bug 7012449. Commented the If condition so that the ccid is validated
1827: -- under all conditions. Also added the negative ccid check.
1828: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1829:
1830: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1831: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1832: --Bug: 6618396

Line 1838: p_new_status => FND_API.G_RET_STS_ERROR);

1834: -- Problem: Double check with msg repository
1835: FND_MSG_PUB.Add;
1836: END IF;
1837: Set_Return_Status(x_orig_status => x_return_status,
1838: p_new_status => FND_API.G_RET_STS_ERROR);
1839:
1840: ELSE
1841: Is_Ccid_Valid(x_return_status => x_return_status, p_ccid => p_init_dist_rec.ccid,
1842: p_le_id => p_le_id, p_ledger_id => p_ledger_id);

Line 1860: p_new_status => FND_API.G_RET_STS_ERROR);

1856: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
1857: FND_MSG_PUB.Add;
1858: END IF;
1859: Set_Return_Status(x_orig_status => x_return_status,
1860: p_new_status => FND_API.G_RET_STS_ERROR);
1861: END IF;
1862: --END IF;
1863: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1864:

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

1859: Set_Return_Status(x_orig_status => x_return_status,
1860: p_new_status => FND_API.G_RET_STS_ERROR);
1861: END IF;
1862: --END IF;
1863: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
1864:
1865: IF p_init_dist_rec.ccid IS NULL OR p_init_dist_rec.ccid <= 0 THEN
1866: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1867: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');

Line 1871: p_new_status => FND_API.G_RET_STS_ERROR);

1867: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMPLETE_DIST_ACCTN');
1868: FND_MSG_PUB.Add;
1869: END IF;
1870: Set_Return_Status(x_orig_status => x_return_status,
1871: p_new_status => FND_API.G_RET_STS_ERROR);
1872: END IF;
1873: --END IF;
1874: Debug('INIT_DIST_VALIDATE(-)');
1875: -- End of API body.

Line 1881: WHEN FND_API.G_EXC_ERROR THEN

1877: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1878: p_data => x_msg_data);
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1882: x_return_status := FND_API.G_RET_STS_ERROR ;

1878: p_data => x_msg_data);
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1881: WHEN FND_API.G_EXC_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN

Line 1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1884: p_data => x_msg_data);
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1888: p_data => x_msg_data);
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1892: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1893: END IF;
1894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,

Line 1915: IF NOT FND_API.Compatible_API_Call ( l_api_version,

1911: l_api_name CONSTANT VARCHAR2(30) := 'INIT_IC_DIST_VALIDATE';
1912: l_api_version CONSTANT NUMBER := 1.0;
1913: BEGIN
1914: -- Standard call to check for call compatibility.
1915: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1916: p_api_version,
1917: l_api_name ,
1918: G_PKG_NAME )
1919: THEN

Line 1921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1917: l_api_name ,
1918: G_PKG_NAME )
1919: THEN
1920: Print ('Debug Init_Dist_Val >>> Unexpected Error 1 ');
1921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1922: END IF;
1923:
1924: -- Initialize message list if p_init_msg_list is set to TRUE.
1925: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN

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

1921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1922: END IF;
1923:
1924: -- Initialize message list if p_init_msg_list is set to TRUE.
1925: IF FND_API.to_Boolean( nvl(p_init_msg_list,FND_API.G_FALSE) ) THEN
1926: FND_MSG_PUB.initialize;
1927: END IF;
1928:
1929: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');

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

1926: FND_MSG_PUB.initialize;
1927: END IF;
1928:
1929: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');
1930: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );
1931:
1932: -- Initialize API return status to success
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:

Line 1933: x_return_status := FND_API.G_RET_STS_SUCCESS;

1929: Print ('Debug Init_Dist_Val >>> Message List Initiated. ');
1930: Print ('Debug Init_Dist_Val >>> Return status '|| FND_API.G_RET_STS_SUCCESS );
1931:
1932: -- Initialize API return status to success
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:
1935: -- API body
1936: Debug('INIT_IC_DIST_VALIDATE(+)');
1937:

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

1939:
1940: -- Bug 7012449. Commented the If clause such that the ccid is validated
1941: -- Under all conditions. Also added negative ccid check.
1942:
1943: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
1944:
1945: Print ('Debug Init_Dist_Val >>> In If 1' );
1946:
1947: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN

Line 1961: p_new_status => FND_API.G_RET_STS_ERROR);

1957:
1958: Print ('Debug Init_Dist_Val >>> End of If 3' );
1959: END IF;
1960: Set_Return_Status(x_orig_status => x_return_status,
1961: p_new_status => FND_API.G_RET_STS_ERROR);
1962:
1963: Print ('Debug Init_Dist_Val >>> End If 2' );
1964: ELSE
1965:

Line 1999: p_new_status => FND_API.G_RET_STS_ERROR);

1995:
1996: Print ('Debug Init_Dist_Val >>> End If 22' );
1997:
1998: Set_Return_Status(x_orig_status => x_return_status,
1999: p_new_status => FND_API.G_RET_STS_ERROR);
2000: END IF;
2001:
2002: Print ('Debug Init_Dist_Val >>> End If 21' );
2003: Print ('Debug Init_Dist_Val >>> Party Type ' || p_dist_line_rec.party_type );

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

2000: END IF;
2001:
2002: Print ('Debug Init_Dist_Val >>> End If 21' );
2003: Print ('Debug Init_Dist_Val >>> Party Type ' || p_dist_line_rec.party_type );
2004: Print ('Debug Init_Dist_Val >>> FND_API.G_RET_STS_ERROR ' || FND_API.G_RET_STS_ERROR );
2005:
2006: IF p_dist_line_rec.party_type <> 'I' and p_dist_line_rec.party_type <> 'R' THEN
2007: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2008: FND_MESSAGE.SET_NAME('FUN', 'Party type for distributions has not been set correctly');

Line 2011: p_new_status => FND_API.G_RET_STS_ERROR);

2007: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2008: FND_MESSAGE.SET_NAME('FUN', 'Party type for distributions has not been set correctly');
2009: END IF;
2010: Set_Return_Status(x_orig_status => x_return_status,
2011: p_new_status => FND_API.G_RET_STS_ERROR);
2012: END IF;
2013: --END IF;
2014:
2015: Print ('Debug Init_Dist_Val >>> End If');

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

2013: --END IF;
2014:
2015: Print ('Debug Init_Dist_Val >>> End If');
2016:
2017: --IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
2018: IF p_dist_line_rec.ccid IS NULL OR p_dist_line_rec.ccid <= 0 THEN
2019: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2020: --Bug: 6618396
2021: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_INIT_DIST_AC_CCID');

Line 2027: p_new_status => FND_API.G_RET_STS_ERROR);

2023: END IF;
2024:
2025: Print ('Debug Init_Dist_Val >>> x_return_status' || x_return_status );
2026: Set_Return_Status(x_orig_status => x_return_status,
2027: p_new_status => FND_API.G_RET_STS_ERROR);
2028: END IF;
2029: --END IF;
2030: Debug('INIT_IC_DIST_VALIDATE(-)');
2031: -- End of API body.

Line 2041: WHEN FND_API.G_EXC_ERROR THEN

2037: p_data => x_msg_data);
2038:
2039:
2040: EXCEPTION
2041: WHEN FND_API.G_EXC_ERROR THEN
2042: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_count' || x_msg_count );
2043: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_data' || x_msg_data );
2044:
2045: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 2045: x_return_status := FND_API.G_RET_STS_ERROR ;

2041: WHEN FND_API.G_EXC_ERROR THEN
2042: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_count' || x_msg_count );
2043: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>> x_msg_data' || x_msg_data );
2044:
2045: x_return_status := FND_API.G_RET_STS_ERROR ;
2046: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2047: p_data => x_msg_data);
2048: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>>END ' );
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2045: x_return_status := FND_API.G_RET_STS_ERROR ;
2046: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2047: p_data => x_msg_data);
2048: Print ('Debug Init_Dist_Val G_EXEC_ERROR >>>END ' );
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2051: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_data' || x_msg_data );
2052:
2053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 2053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_count' || x_msg_count );
2051: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>> x_msg_data' || x_msg_data );
2052:
2053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2054: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2055: p_data => x_msg_data);
2056: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>>END ' );
2057: WHEN OTHERS THEN

Line 2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2056: Print ('Debug Init_Dist_Val UNEXPECTED ERROR >>>END ' );
2057: WHEN OTHERS THEN
2058: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_count' || x_msg_count );
2059: Print ('Debug Init_Dist_Val OTHER ERROR >>> x_msg_data' || x_msg_data );
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2063: END IF;
2064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,

Line 2106: x_return_status := FND_API.G_RET_STS_SUCCESS;

2102: AND NVL(date_to, p_trx_date) >= p_trx_date; --
2103: BEGIN
2104: -- 7.2.1.7
2105: -- Initialize API return status to success
2106: x_return_status := FND_API.G_RET_STS_SUCCESS;
2107:
2108: -- API body
2109: Debug('IS_AR_VALID(+)');
2110: l_from_le_party_id := Fun_Tca_Pkg.Get_LE_Id(p_initiator_id, p_trx_date);

Line 2136: p_new_status => FND_API.G_RET_STS_ERROR);

2132: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2133: FND_MSG_PUB.Add;
2134: END IF;
2135: Set_Return_Status(x_orig_status => x_return_status,
2136: p_new_status => FND_API.G_RET_STS_ERROR);
2137: END IF;
2138: -- 7.2.1.5
2139: OPEN ou_valid_csr;
2140: FETCH ou_valid_csr INTO l_count;

Line 2148: p_new_status => FND_API.G_RET_STS_ERROR);

2144: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
2145: FND_MSG_PUB.Add;
2146: END IF;
2147: Set_Return_Status(x_orig_status => x_return_status,
2148: p_new_status => FND_API.G_RET_STS_ERROR);
2149: END IF;
2150: l_to_ou_id := Fun_Tca_Pkg.Get_OU_Id(p_recipient_id, p_trx_date);
2151:
2152: -- To get the customer association, the transacting LE is the

Line 2181: p_new_status => FND_API.G_RET_STS_ERROR);

2177: FND_MESSAGE.SET_TOKEN('RECIPIENT_NAME',recipient_name);
2178: FND_MSG_PUB.Add;
2179: END IF;
2180: Set_Return_Status(x_orig_status => x_return_status,
2181: p_new_status => FND_API.G_RET_STS_ERROR);
2182: END IF;
2183:
2184: END IF;
2185: Debug('IS_AR_VALID(-)');

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

2223: BEGIN
2224: Debug('CREATE_REVERSE_BATCH(+)');
2225: --Bug: 6625360.
2226: -- Initialize message list if p_init_msg_list is set to TRUE.
2227: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
2228: FND_MSG_PUB.initialize;
2229: END IF;
2230: -- Initialize API return status to success
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2231: x_return_status := FND_API.G_RET_STS_SUCCESS;

2227: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
2228: FND_MSG_PUB.initialize;
2229: END IF;
2230: -- Initialize API return status to success
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2232: -- Verify that no transactions have already been reversed,
2233: -- and the batch is not a reversed batch itself
2234: -- Verify the status of the batch
2235: --Bug: 6625360.

Line 2277: p_new_status => FND_API.G_RET_STS_ERROR);

2273: FND_MESSAGE.SET_NAME('FUN', 'FUN_REVERSED_BATCH'); -- Problem here: Whether a msg is needed
2274: FND_MSG_PUB.Add;
2275: END IF;
2276: Set_Return_Status(x_orig_status => x_return_status,
2277: p_new_status => FND_API.G_RET_STS_ERROR);
2278: RETURN;
2279: END IF;
2280: -- Check batch numbering type
2281: l_boolean := fun_system_options_pkg.is_manual_numbering;

Line 2312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2308: l_error_code);
2309: END IF;
2310: -- Check uniqueness of the batch_number provided
2311: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2315: -- Get the next sequence for fun_batch_id
2316: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;

Line 2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2309: END IF;
2310: -- Check uniqueness of the batch_number provided
2311: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2315: -- Get the next sequence for fun_batch_id
2316: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;
2317: -- Update original batch with reversed_batch_id

Line 2675: x_return_status := FND_API.G_RET_STS_SUCCESS;

2671: -- Raise event to send
2672: l_wf_event_key := fun_wf_common.generate_event_key (l_reversed_batch_id, NULL);
2673: fun_wf_common.raise_wf_bus_event(batch_id => l_reversed_batch_id,
2674: event_key => l_wf_event_key);
2675: x_return_status := FND_API.G_RET_STS_SUCCESS;
2676: Debug('CREATE_REVERSE_BATCH(-)');
2677:
2678: END;
2679:

Line 2729: p_new_status => FND_API.G_RET_STS_ERROR);

2725: FND_MESSAGE.SET_NAME('FUN', 'Trx error'); -- Problem here: Whether a msg is needed
2726: FND_MSG_PUB.Add;
2727: END IF;
2728: Set_Return_Status(x_orig_status => x_return_status,
2729: p_new_status => FND_API.G_RET_STS_ERROR);
2730: RETURN;
2731: END IF;
2732: -- Check batch numbering type
2733: l_boolean := fun_system_options_pkg.is_manual_numbering;

Line 2763: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2759: l_error_code);
2760: END IF;
2761: -- Check uniqueness of the batch_number provided
2762: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2763: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766: -- Get the next sequence for fun_batch_id
2767: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;

Line 2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2760: END IF;
2761: -- Check uniqueness of the batch_number provided
2762: Is_Batch_Num_Unique(l_return_status,l_reversed_batch_number,l_initiator_id);
2763: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766: -- Get the next sequence for fun_batch_id
2767: SELECT fun_trx_batches_s.nextval INTO l_reversed_batch_id FROM dual;
2768:

Line 3126: x_return_status := FND_API.G_RET_STS_SUCCESS;

3122: -- Raise event to send
3123: l_wf_event_key := fun_wf_common.generate_event_key (l_reversed_batch_id, NULL);
3124: fun_wf_common.raise_wf_bus_event(batch_id => l_reversed_batch_id,
3125: event_key => l_wf_event_key);
3126: x_return_status := FND_API.G_RET_STS_SUCCESS;
3127: Debug('CREATE_REVERSE_TRX(-)');
3128: END;
3129:
3130: PROCEDURE Update_Trx_Status

Line 3155: IF NOT FND_API.Compatible_API_Call ( l_api_version,

3151: -- Standard Start of API savepoint
3152: SAVEPOINT Update_Trx_Status;
3153:
3154: -- Standard call to check for call compatibility.
3155: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3156: p_api_version,
3157: l_api_name,
3158: G_PKG_NAME )
3159: THEN

Line 3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3156: p_api_version,
3157: l_api_name,
3158: G_PKG_NAME )
3159: THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: END IF;
3162:
3163: -- Initialize message list if p_init_msg_list is set to TRUE.
3164: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

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

3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: END IF;
3162:
3163: -- Initialize message list if p_init_msg_list is set to TRUE.
3164: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3165: FND_MSG_PUB.initialize;
3166: END IF;
3167:
3168: -- Initialize API return status to success

Line 3169: x_return_status := FND_API.G_RET_STS_SUCCESS;

3165: FND_MSG_PUB.initialize;
3166: END IF;
3167:
3168: -- Initialize API return status to success
3169: x_return_status := FND_API.G_RET_STS_SUCCESS;
3170:
3171:
3172: -- API body
3173: Debug('UPDATE_TRX_STATUS(+)');

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

3178: -- status the same time
3179: IF (l_status = p_update_status_to OR
3180: (p_update_status_to = 'RECEIVED' AND l_status <> 'SENT')) THEN
3181: Debug('CONSISTENT STATUS');
3182: ELSIF (nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)<> FND_API.G_VALID_LEVEL_FULL) OR
3183: (l_status = 'NEW' AND p_update_status_to = 'SENT') OR
3184: (l_status = 'SENT' AND p_update_status_to = 'ERROR') OR
3185: (l_status = 'RECEIVED' AND p_update_status_to = 'ERROR') OR
3186: (l_status = 'ERROR' AND p_update_status_to = 'SENT') OR

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

3233:
3234:
3235: END IF;
3236: -- Standard check of p_commit.
3237: IF FND_API.To_Boolean( nvl(p_commit,FND_API.G_FALSE) ) THEN
3238: COMMIT WORK;
3239: END IF;
3240: ELSE
3241: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN

Line 3246: p_new_status => FND_API.G_RET_STS_ERROR);

3242: FND_MESSAGE.SET_NAME('FUN', 'Can not update status given');
3243: FND_MSG_PUB.Add;
3244: END IF;
3245: Set_Return_Status(x_orig_status => x_return_status,
3246: p_new_status => FND_API.G_RET_STS_ERROR);
3247: END IF;
3248:
3249: -- Standard call to get message count and if count is 1, get message info.
3250: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);

Line 3253: WHEN FND_API.G_EXC_ERROR THEN

3249: -- Standard call to get message count and if count is 1, get message info.
3250: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3251: Debug('UPDATE_TRX_STATUS(-)');
3252: EXCEPTION
3253: WHEN FND_API.G_EXC_ERROR THEN
3254: ROLLBACK TO Update_Trx_Status;
3255: x_return_status := FND_API.G_RET_STS_ERROR ;
3256: FND_MSG_PUB.Count_And_Get
3257: ( p_count => x_msg_count,

Line 3255: x_return_status := FND_API.G_RET_STS_ERROR ;

3251: Debug('UPDATE_TRX_STATUS(-)');
3252: EXCEPTION
3253: WHEN FND_API.G_EXC_ERROR THEN
3254: ROLLBACK TO Update_Trx_Status;
3255: x_return_status := FND_API.G_RET_STS_ERROR ;
3256: FND_MSG_PUB.Count_And_Get
3257: ( p_count => x_msg_count,
3258: p_data => x_msg_data );
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3255: x_return_status := FND_API.G_RET_STS_ERROR ;
3256: FND_MSG_PUB.Count_And_Get
3257: ( p_count => x_msg_count,
3258: p_data => x_msg_data );
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO Update_Trx_Status;
3261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get
3263: ( p_count => x_msg_count,

Line 3261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3257: ( p_count => x_msg_count,
3258: p_data => x_msg_data );
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: ROLLBACK TO Update_Trx_Status;
3261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get
3263: ( p_count => x_msg_count,
3264: p_data => x_msg_data);
3265: WHEN OTHERS THEN

Line 3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3263: ( p_count => x_msg_count,
3264: p_data => x_msg_data);
3265: WHEN OTHERS THEN
3266: ROLLBACK TO Update_Trx_Status;
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3268: IF FND_MSG_PUB.Check_Msg_Level
3269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3270: THEN
3271: FND_MSG_PUB.Add_Exc_Msg

Line 3308: x_return_status := FND_API.G_RET_STS_SUCCESS;

3304: l_return_status VARCHAR(1);
3305: BEGIN
3306: l_count := p_dist_lines_tbl.COUNT;
3307: --Bug: 6618396. Initialize API return status to success
3308: x_return_status := FND_API.G_RET_STS_SUCCESS;
3309: IF l_count >= 1 THEN
3310: FOR i IN 1..l_count LOOP
3311:
3312: IF p_dist_lines_tbl(i).party_type = 'R' THEN

Line 3322: p_new_status => FND_API.G_RET_STS_ERROR);

3318: -- Problem: Double check with msg repository
3319: FND_MSG_PUB.Add;
3320: END IF;
3321: Set_Return_Status(x_orig_status => x_return_status,
3322: p_new_status => FND_API.G_RET_STS_ERROR);
3323: l_return_status := x_return_status;
3324: ELSE
3325: Is_Ccid_Valid(x_return_status => x_return_status,
3326: p_ccid => p_dist_lines_tbl(i).ccid,

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

3328: p_ledger_id => p_ledger_id);
3329: END IF;
3330: END IF;
3331: END LOOP;
3332: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
3333: x_return_status := l_return_status;
3334: END IF;
3335: END IF;
3336: END Is_Reci_Acct_Valid;

Line 3359: x_return_status := FND_API.G_RET_STS_SUCCESS;

3355: l_trx_number NUMBER;
3356:
3357: BEGIN
3358: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
3359: x_return_status := FND_API.G_RET_STS_SUCCESS;
3360:
3361: -- Perform the following validation only for manual mode
3362: l_count := p_dist_lines_tbl.COUNT;
3363: IF l_count > 0

Line 3400: p_new_status => FND_API.G_RET_STS_ERROR);

3396: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3397: FND_MSG_PUB.Add;
3398: END IF;
3399: Set_Return_Status(x_orig_status => x_return_status,
3400: p_new_status => FND_API.G_RET_STS_ERROR);
3401: END IF;
3402:
3403: IF l_dist_cr_type = l_dist_dr_type
3404: THEN

Line 3411: p_new_status => FND_API.G_RET_STS_ERROR);

3407: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3408: FND_MSG_PUB.Add;
3409: END IF;
3410: Set_Return_Status(x_orig_status => x_return_status,
3411: p_new_status => FND_API.G_RET_STS_ERROR);
3412: END IF;
3413:
3414:
3415: EXCEPTION

Line 3416: WHEN FND_API.G_EXC_ERROR THEN

3412: END IF;
3413:
3414:
3415: EXCEPTION
3416: WHEN FND_API.G_EXC_ERROR THEN
3417: x_return_status := FND_API.G_RET_STS_ERROR ;
3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN

Line 3417: x_return_status := FND_API.G_RET_STS_ERROR ;

3413:
3414:
3415: EXCEPTION
3416: WHEN FND_API.G_EXC_ERROR THEN
3417: x_return_status := FND_API.G_RET_STS_ERROR ;
3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;

Line 3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3414:
3415: EXCEPTION
3416: WHEN FND_API.G_EXC_ERROR THEN
3417: x_return_status := FND_API.G_RET_STS_ERROR ;
3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3415: EXCEPTION
3416: WHEN FND_API.G_EXC_ERROR THEN
3417: x_return_status := FND_API.G_RET_STS_ERROR ;
3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level

Line 3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3420: WHEN OTHERS THEN
3421: FND_MSG_PUB.ADD;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3423: IF FND_MSG_PUB.Check_Msg_Level
3424: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3425: THEN
3426: FND_MSG_PUB.Add_Exc_Msg

Line 3458: IF NOT FND_API.Compatible_API_Call ( l_api_version,

3454: l_index NUMBER := 0;
3455: i NUMBER := 1;
3456: BEGIN
3457: -- Standard call to check for call compatibility.
3458: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3459: p_api_version,
3460: l_api_name,
3461: G_PKG_NAME )
3462: THEN

Line 3463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3459: p_api_version,
3460: l_api_name,
3461: G_PKG_NAME )
3462: THEN
3463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3464: END IF;
3465: -- Initialize message list if p_init_msg_list is set to TRUE.
3466: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3467: FND_MSG_PUB.initialize;

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

3462: THEN
3463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3464: END IF;
3465: -- Initialize message list if p_init_msg_list is set to TRUE.
3466: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3467: FND_MSG_PUB.initialize;
3468: END IF;
3469: -- Initialize API return status to success
3470: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 3470: x_return_status := FND_API.G_RET_STS_SUCCESS;

3466: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3467: FND_MSG_PUB.initialize;
3468: END IF;
3469: -- Initialize API return status to success
3470: x_return_status := FND_API.G_RET_STS_SUCCESS;
3471:
3472: -- API body
3473: Debug('RECIPIENT_VALIDATE(+)');
3474: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

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

3470: x_return_status := FND_API.G_RET_STS_SUCCESS;
3471:
3472: -- API body
3473: Debug('RECIPIENT_VALIDATE(+)');
3474: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
3475:
3476: is_ap_valid(x_return_status => l_return_status,
3477: p_initiator_id => p_batch_rec.initiator_id,
3478: p_invoicing_rule => p_trx_rec.invoicing_rule,

Line 3484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3480: p_to_le_id => p_trx_rec.to_le_id,
3481: p_trx_date => p_batch_rec.batch_date);
3482: set_return_status(x_orig_status => x_return_status,
3483: p_new_status => l_return_status);
3484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3486: END IF;
3487: l_count := p_dist_lines_tbl.COUNT;
3488: IF l_count >= 1 THEN

Line 3485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3481: p_trx_date => p_batch_rec.batch_date);
3482: set_return_status(x_orig_status => x_return_status,
3483: p_new_status => l_return_status);
3484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3486: END IF;
3487: l_count := p_dist_lines_tbl.COUNT;
3488: IF l_count >= 1 THEN
3489: FOR i IN 1..l_count LOOP

Line 3503: p_new_status => FND_API.G_RET_STS_ERROR);

3499: FND_MESSAGE.SET_NAME('FUN', 'FUN_TRX_ENTRY_TRX_UP_NODATA');
3500: FND_MSG_PUB.Add;
3501: END IF;
3502: Set_Return_Status(x_orig_status => x_return_status,
3503: p_new_status => FND_API.G_RET_STS_ERROR);
3504: ELSE
3505: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3506: p_ccid => p_dist_lines_tbl(l_index).ccid);
3507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

Line 3507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3503: p_new_status => FND_API.G_RET_STS_ERROR);
3504: ELSE
3505: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3506: p_ccid => p_dist_lines_tbl(l_index).ccid);
3507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3509: END IF;
3510:
3511: Is_Reci_Acct_Valid(x_return_status => l_return_status,

Line 3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3504: ELSE
3505: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3506: p_ccid => p_dist_lines_tbl(l_index).ccid);
3507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3509: END IF;
3510:
3511: Is_Reci_Acct_Valid(x_return_status => l_return_status,
3512: p_le_id => p_trx_rec.to_le_id,

Line 3516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

3512: p_le_id => p_trx_rec.to_le_id,
3513: p_ledger_id => p_trx_rec.to_ledger_id,
3514: p_dist_lines_tbl => p_dist_lines_tbl);
3515:
3516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
3520: Is_Reci_Trx_Dist_Amt_Valid

Line 3517: RAISE FND_API.G_EXC_ERROR;

3513: p_ledger_id => p_trx_rec.to_ledger_id,
3514: p_dist_lines_tbl => p_dist_lines_tbl);
3515:
3516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
3520: Is_Reci_Trx_Dist_Amt_Valid
3521: ( x_return_status => l_return_status,

Line 3528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3524: p_dist_lines_tbl => p_dist_lines_tbl);
3525:
3526: Set_Return_Status(x_orig_status => x_return_status,
3527: p_new_status => l_return_status);
3528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3530: END IF;
3531: END IF;
3532: END IF;

Line 3529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3525:
3526: Set_Return_Status(x_orig_status => x_return_status,
3527: p_new_status => l_return_status);
3528: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3530: END IF;
3531: END IF;
3532: END IF;
3533: Debug('RECIPIENT_VALIDATE(-)');

Line 3541: WHEN FND_API.G_EXC_ERROR THEN

3537: ( p_count => x_msg_count,
3538: p_data => x_msg_data
3539: );
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR ;
3543: FND_MSG_PUB.Count_And_Get
3544: ( p_count => x_msg_count,
3545: p_data => x_msg_data

Line 3542: x_return_status := FND_API.G_RET_STS_ERROR ;

3538: p_data => x_msg_data
3539: );
3540: EXCEPTION
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR ;
3543: FND_MSG_PUB.Count_And_Get
3544: ( p_count => x_msg_count,
3545: p_data => x_msg_data
3546: );

Line 3547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3543: FND_MSG_PUB.Count_And_Get
3544: ( p_count => x_msg_count,
3545: p_data => x_msg_data
3546: );
3547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3549: FND_MSG_PUB.Count_And_Get
3550: ( p_count => x_msg_count,
3551: p_data => x_msg_data

Line 3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3544: ( p_count => x_msg_count,
3545: p_data => x_msg_data
3546: );
3547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3549: FND_MSG_PUB.Count_And_Get
3550: ( p_count => x_msg_count,
3551: p_data => x_msg_data
3552: );

Line 3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3550: ( p_count => x_msg_count,
3551: p_data => x_msg_data
3552: );
3553: WHEN OTHERS THEN
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3555: IF FND_MSG_PUB.Check_Msg_Level
3556: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3557: THEN
3558: FND_MSG_PUB.Add_Exc_Msg

Line 3574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3570: l_batch_rec => p_batch_rec);
3571: set_return_status(x_return_status => x_orig_status,
3572: l_return_status => p_new_status);
3573:
3574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3575: RAISE FND_API.G_EXC_UNEXP_ERROR;
3576: END IF;
3577:
3578:

Line 3575: RAISE FND_API.G_EXC_UNEXP_ERROR;

3571: set_return_status(x_return_status => x_orig_status,
3572: l_return_status => p_new_status);
3573:
3574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3575: RAISE FND_API.G_EXC_UNEXP_ERROR;
3576: END IF;
3577:
3578:
3579: is_reci_party_valid(l_return_status => x_return_status

Line 3585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3581: p_trx_rec);
3582: set_return_status(x_return_status => x_orig_status,
3583: l_return_status => p_new_status);
3584:
3585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3586: RAISE FND_API.G_EXC_UNEXP_ERROR;
3587: END IF;
3588:
3589:

Line 3586: RAISE FND_API.G_EXC_UNEXP_ERROR;

3582: set_return_status(x_return_status => x_orig_status,
3583: l_return_status => p_new_status);
3584:
3585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3586: RAISE FND_API.G_EXC_UNEXP_ERROR;
3587: END IF;
3588:
3589:
3590: is_batch_type_valid(l_return_status => x_return_status

Line 3595: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3591: l_batch_rec
3592: => p_batch_rec);
3593: set_return_status(x_return_status => x_orig_status,
3594: l_return_status => p_new_status);
3595: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3596: RAISE FND_API.G_EXC_UNEXP_ERROR;
3597: END IF;
3598:
3599: is_reci_gl_date_valid(l_return_status =>

Line 3596: RAISE FND_API.G_EXC_UNEXP_ERROR;

3592: => p_batch_rec);
3593: set_return_status(x_return_status => x_orig_status,
3594: l_return_status => p_new_status);
3595: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3596: RAISE FND_API.G_EXC_UNEXP_ERROR;
3597: END IF;
3598:
3599: is_reci_gl_date_valid(l_return_status =>
3600: x_return_status,

Line 3607: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3603: l_trx_rec =>
3604: p_trx_rec);
3605: set_return_status(x_return_status => x_orig_status,
3606: l_return_status => p_new_status);
3607: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3608: RAISE FND_API.G_EXC_UNEXP_ERROR;
3609: END IF;
3610: END IF;
3611:

Line 3608: RAISE FND_API.G_EXC_UNEXP_ERROR;

3604: p_trx_rec);
3605: set_return_status(x_return_status => x_orig_status,
3606: l_return_status => p_new_status);
3607: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3608: RAISE FND_API.G_EXC_UNEXP_ERROR;
3609: END IF;
3610: END IF;
3611:
3612:

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

3609: END IF;
3610: END IF;
3611:
3612:
3613: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= FND_API.G_VALID_LEVEL_FULL THEN
3614: is_curr_fld_valid(l_return_status => x_return_status,
3615: l_batch_rec
3616: => p_batch_rec);
3617: set_return_status(x_return_status => x_orig_status,

Line 3619: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3615: l_batch_rec
3616: => p_batch_rec);
3617: set_return_status(x_return_status => x_orig_status,
3618: l_return_status => p_new_status);
3619: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3620: RAISE FND_API.G_EXC_UNEXP_ERROR;
3621: END IF;
3622:
3623:

Line 3620: RAISE FND_API.G_EXC_UNEXP_ERROR;

3616: => p_batch_rec);
3617: set_return_status(x_return_status => x_orig_status,
3618: l_return_status => p_new_status);
3619: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3620: RAISE FND_API.G_EXC_UNEXP_ERROR;
3621: END IF;
3622:
3623:
3624: */

Line 3649: x_return_status := FND_API.G_RET_STS_SUCCESS;

3645: l_trx_number NUMBER;
3646:
3647: BEGIN
3648: Debug('Is_Init_Trx_Dist_Amt_Valid(+)');
3649: x_return_status := FND_API.G_RET_STS_SUCCESS;
3650:
3651: -- Perform the following validation only for manual mode
3652: l_count := p_dist_lines_tbl.COUNT;
3653: IF l_count > 0

Line 3691: p_new_status => FND_API.G_RET_STS_ERROR);

3687: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INCOMLT_SUM_REC_DIST');
3688: FND_MSG_PUB.Add;
3689: END IF;
3690: Set_Return_Status(x_orig_status => x_return_status,
3691: p_new_status => FND_API.G_RET_STS_ERROR);
3692: END IF;
3693:
3694: IF l_dist_cr_type = l_dist_dr_type
3695: THEN

Line 3702: p_new_status => FND_API.G_RET_STS_ERROR);

3698: FND_MESSAGE.SET_NAME('FUN', 'FUN_INVALID_DRCR_BDIST_LINE');
3699: FND_MSG_PUB.Add;
3700: END IF;
3701: Set_Return_Status(x_orig_status => x_return_status,
3702: p_new_status => FND_API.G_RET_STS_ERROR);
3703: END IF;
3704:
3705:
3706: EXCEPTION

Line 3707: WHEN FND_API.G_EXC_ERROR THEN

3703: END IF;
3704:
3705:
3706: EXCEPTION
3707: WHEN FND_API.G_EXC_ERROR THEN
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN

Line 3708: x_return_status := FND_API.G_RET_STS_ERROR ;

3704:
3705:
3706: EXCEPTION
3707: WHEN FND_API.G_EXC_ERROR THEN
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;

Line 3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3705:
3706: EXCEPTION
3707: WHEN FND_API.G_EXC_ERROR THEN
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3706: EXCEPTION
3707: WHEN FND_API.G_EXC_ERROR THEN
3708: x_return_status := FND_API.G_RET_STS_ERROR ;
3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level

Line 3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: WHEN OTHERS THEN
3712: FND_MSG_PUB.ADD;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3714: IF FND_MSG_PUB.Check_Msg_Level
3715: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3716: THEN
3717: FND_MSG_PUB.Add_Exc_Msg

Line 3750: IF NOT FND_API.Compatible_API_Call ( l_api_version,

3746: l_index NUMBER := 0;
3747: i NUMBER := 1;
3748: BEGIN
3749: -- Standard call to check for call compatibility.
3750: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3751: p_api_version,
3752: l_api_name,
3753: G_PKG_NAME )
3754: THEN

Line 3755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3751: p_api_version,
3752: l_api_name,
3753: G_PKG_NAME )
3754: THEN
3755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3756: END IF;
3757: -- Initialize message list if p_init_msg_list is set to TRUE.
3758: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3759: FND_MSG_PUB.initialize;

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

3754: THEN
3755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3756: END IF;
3757: -- Initialize message list if p_init_msg_list is set to TRUE.
3758: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3759: FND_MSG_PUB.initialize;
3760: END IF;
3761: -- Initialize API return status to success
3762: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 3762: x_return_status := FND_API.G_RET_STS_SUCCESS;

3758: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
3759: FND_MSG_PUB.initialize;
3760: END IF;
3761: -- Initialize API return status to success
3762: x_return_status := FND_API.G_RET_STS_SUCCESS;
3763:
3764: -- API body
3765: Debug('RECIPIENT_VALIDATE(+)');
3766: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN

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

3762: x_return_status := FND_API.G_RET_STS_SUCCESS;
3763:
3764: -- API body
3765: Debug('RECIPIENT_VALIDATE(+)');
3766: IF nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL)>= 50 THEN
3767:
3768: l_count := p_dist_lines_tbl.COUNT;
3769: IF l_count >= 1 THEN
3770: FOR i IN 1..l_count LOOP

Line 3784: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3780:
3781: ELSE
3782: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3783: p_ccid => p_dist_lines_tbl(l_index).ccid);
3784: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3786: END IF;
3787:
3788: Is_Reci_Acct_Valid(x_return_status => l_return_status,

Line 3785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3781: ELSE
3782: Is_Payable_Acct_Valid(x_return_status => l_return_status,
3783: p_ccid => p_dist_lines_tbl(l_index).ccid);
3784: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3786: END IF;
3787:
3788: Is_Reci_Acct_Valid(x_return_status => l_return_status,
3789: p_le_id => p_trx_rec.to_le_id,

Line 3793: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

3789: p_le_id => p_trx_rec.to_le_id,
3790: p_ledger_id => p_trx_rec.to_ledger_id,
3791: p_dist_lines_tbl => p_dist_lines_tbl);
3792:
3793: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3794: RAISE FND_API.G_EXC_ERROR;
3795: END IF;
3796:
3797: Is_Ini_Reci_Trx_Dist_Amt_Valid

Line 3794: RAISE FND_API.G_EXC_ERROR;

3790: p_ledger_id => p_trx_rec.to_ledger_id,
3791: p_dist_lines_tbl => p_dist_lines_tbl);
3792:
3793: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3794: RAISE FND_API.G_EXC_ERROR;
3795: END IF;
3796:
3797: Is_Ini_Reci_Trx_Dist_Amt_Valid
3798: ( x_return_status => l_return_status,

Line 3805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

3801: p_dist_lines_tbl => p_dist_lines_tbl);
3802:
3803: Set_Return_Status(x_orig_status => x_return_status,
3804: p_new_status => l_return_status);
3805: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3807: END IF;
3808: END IF;
3809: END IF;

Line 3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

Line 3818: WHEN FND_API.G_EXC_ERROR THEN

3814: ( p_count => x_msg_count,
3815: p_data => x_msg_data
3816: );
3817: EXCEPTION
3818: WHEN FND_API.G_EXC_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_ERROR ;
3820: FND_MSG_PUB.Count_And_Get
3821: ( p_count => x_msg_count,
3822: p_data => x_msg_data

Line 3819: x_return_status := FND_API.G_RET_STS_ERROR ;

3815: p_data => x_msg_data
3816: );
3817: EXCEPTION
3818: WHEN FND_API.G_EXC_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_ERROR ;
3820: FND_MSG_PUB.Count_And_Get
3821: ( p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );

Line 3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3820: FND_MSG_PUB.Count_And_Get
3821: ( p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3826: FND_MSG_PUB.Count_And_Get
3827: ( p_count => x_msg_count,
3828: p_data => x_msg_data

Line 3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3821: ( p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3826: FND_MSG_PUB.Count_And_Get
3827: ( p_count => x_msg_count,
3828: p_data => x_msg_data
3829: );

Line 3831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3827: ( p_count => x_msg_count,
3828: p_data => x_msg_data
3829: );
3830: WHEN OTHERS THEN
3831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3832: IF FND_MSG_PUB.Check_Msg_Level
3833: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3834: THEN
3835: FND_MSG_PUB.Add_Exc_Msg

Line 3851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 3852: RAISE FND_API.G_EXC_UNEXP_ERROR;

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

Line 3862: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 3863: RAISE FND_API.G_EXC_UNEXP_ERROR;

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

Line 3872: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 3873: RAISE FND_API.G_EXC_UNEXP_ERROR;

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

Line 3884: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 3885: RAISE FND_API.G_EXC_UNEXP_ERROR;

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

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

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

Line 3896: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 3897: RAISE FND_API.G_EXC_UNEXP_ERROR;

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

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

4007: FETCH l_dist_lines_cursor BULK COLLECT INTO l_dist_lines_tbl;
4008: CLOSE l_dist_lines_cursor;
4009:
4010: init_generate_distributions(p_api_version,
4011: nvl(p_init_msg_list,FND_API.G_FALSE),
4012: x_return_status,
4013: x_msg_count,
4014: x_msg_data,
4015: l_batch_rec,

Line 4055: IF NOT FND_API.Compatible_API_Call ( l_api_version,

4051: l_sign NUMBER := 1;
4052:
4053: BEGIN
4054: -- Standard call to check for call compatibility.
4055: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4056: p_api_version,
4057: l_api_name,
4058: G_PKG_NAME )
4059: THEN

Line 4060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4056: p_api_version,
4057: l_api_name,
4058: G_PKG_NAME )
4059: THEN
4060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4061: END IF;
4062: -- Initialize message list if p_init_msg_list is set to TRUE.
4063: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4064: FND_MSG_PUB.initialize;

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

4059: THEN
4060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4061: END IF;
4062: -- Initialize message list if p_init_msg_list is set to TRUE.
4063: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4064: FND_MSG_PUB.initialize;
4065: END IF;
4066: -- Initialize API return status to success
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 4067: x_return_status := FND_API.G_RET_STS_SUCCESS;

4063: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4064: FND_MSG_PUB.initialize;
4065: END IF;
4066: -- Initialize API return status to success
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068:
4069: -- API body
4070: Debug('INIT_GENERATE_DISTRIBUTIONS(+)');
4071: l_init_dist_count := p_init_dist_tbl.count;

Line 4175: WHEN FND_API.G_EXC_ERROR THEN

4171: p_data => x_msg_data
4172: );
4173:
4174: EXCEPTION
4175: WHEN FND_API.G_EXC_ERROR THEN
4176: x_return_status := FND_API.G_RET_STS_ERROR ;
4177: FND_MSG_PUB.Count_And_Get
4178: ( p_count => x_msg_count,
4179: p_data => x_msg_data

Line 4176: x_return_status := FND_API.G_RET_STS_ERROR ;

4172: );
4173:
4174: EXCEPTION
4175: WHEN FND_API.G_EXC_ERROR THEN
4176: x_return_status := FND_API.G_RET_STS_ERROR ;
4177: FND_MSG_PUB.Count_And_Get
4178: ( p_count => x_msg_count,
4179: p_data => x_msg_data
4180: );

Line 4181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4177: FND_MSG_PUB.Count_And_Get
4178: ( p_count => x_msg_count,
4179: p_data => x_msg_data
4180: );
4181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4183: FND_MSG_PUB.Count_And_Get
4184: ( p_count => x_msg_count,
4185: p_data => x_msg_data

Line 4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4178: ( p_count => x_msg_count,
4179: p_data => x_msg_data
4180: );
4181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4183: FND_MSG_PUB.Count_And_Get
4184: ( p_count => x_msg_count,
4185: p_data => x_msg_data
4186: );

Line 4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4184: ( p_count => x_msg_count,
4185: p_data => x_msg_data
4186: );
4187: WHEN OTHERS THEN
4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4189: IF FND_MSG_PUB.Check_Msg_Level
4190: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4191: THEN
4192: FND_MSG_PUB.Add_Exc_Msg

Line 4242: x_return_status := FND_API.G_RET_STS_SUCCESS;

4238: AND pst.ledger_id = p_to_le_id; */
4239: BEGIN
4240: -- 7.3.1.4
4241: -- Initialize API return status to success
4242: x_return_status := FND_API.G_RET_STS_SUCCESS;
4243:
4244: -- API body
4245: Debug('IS_AP_VALID(+)');
4246: IF p_invoicing_rule = 'Y' THEN

Line 4256: p_new_status => FND_API.G_RET_STS_ERROR);

4252: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4253: FND_MSG_PUB.Add;
4254: END IF;
4255: Set_Return_Status(x_orig_status => x_return_status,
4256: p_new_status => FND_API.G_RET_STS_ERROR);
4257: Return;
4258: END IF;
4259: OPEN ou_valid_csr;
4260: FETCH ou_valid_csr INTO l_count;

Line 4268: p_new_status => FND_API.G_RET_STS_ERROR);

4264: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4265: FND_MSG_PUB.Add;
4266: END IF;
4267: Set_Return_Status(x_orig_status => x_return_status,
4268: p_new_status => FND_API.G_RET_STS_ERROR);
4269: Return;
4270: END IF;
4271:
4272: --

Line 4288: p_new_status => FND_API.G_RET_STS_ERROR);

4284: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_OU');
4285: FND_MSG_PUB.Add;
4286: END IF;
4287: Set_Return_Status(x_orig_status => x_return_status,
4288: p_new_status => FND_API.G_RET_STS_ERROR);
4289: Return;
4290: END IF;
4291:
4292: l_success := Fun_Trading_Relation.Get_Supplier('INTERCOMPANY', l_from_le_id,

Line 4305: p_new_status => FND_API.G_RET_STS_ERROR);

4301: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_INVALID_SUPPLIER');
4302: FND_MSG_PUB.Add;
4303: END IF;
4304: Set_Return_Status(x_orig_status => x_return_status,
4305: p_new_status => FND_API.G_RET_STS_ERROR);
4306: END IF;
4307: /* Removed, should not check here -- Check AP period is open or not
4308: OPEN period_open_csr;
4309: FETCH period_open_csr INTO l_count;

Line 4317: p_new_status => FND_API.G_RET_STS_ERROR);

4313: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AP_PERIOD_NOT_OPEN');
4314: FND_MSG_PUB.Add;
4315: END IF;
4316: Set_Return_Status(x_orig_status => x_return_status,
4317: p_new_status => FND_API.G_RET_STS_ERROR);
4318: END IF;
4319: */
4320: END IF;
4321: Debug('IS_AP_VALID(-)');

Line 4373: IF NOT FND_API.Compatible_API_Call ( l_api_version,

4369: AND glps.closing_status IN ('O','F');
4370:
4371: BEGIN
4372: -- Standard call to check for call compatibility.
4373: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4374: p_api_version,
4375: l_api_name,
4376: G_PKG_NAME )
4377: THEN

Line 4378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4374: p_api_version,
4375: l_api_name,
4376: G_PKG_NAME )
4377: THEN
4378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4379: END IF;
4380:
4381: -- Initialize message list if p_init_msg_list is set to TRUE.
4382: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN

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

4378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4379: END IF;
4380:
4381: -- Initialize message list if p_init_msg_list is set to TRUE.
4382: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE)) THEN
4383: FND_MSG_PUB.initialize;
4384: END IF;
4385:
4386: -- Initialize API return status to success

Line 4387: x_return_status := FND_API.G_RET_STS_SUCCESS;

4383: FND_MSG_PUB.initialize;
4384: END IF;
4385:
4386: -- Initialize API return status to success
4387: x_return_status := FND_API.G_RET_STS_SUCCESS;
4388:
4389: -- API body
4390: Debug('AR_TRANSFER_VALIDATE(+)');
4391:

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

4414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4415: FND_MESSAGE.SET_NAME('FUN', 'FUN_NO_TRX_TYPE_MAP');
4416: FND_MSG_PUB.Add;
4417: END IF;
4418: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4419: END IF;
4420:
4421: OPEN period_open_csr(l_trx_date,
4422: l_from_ledger_id);

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

4425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4426: FND_MESSAGE.SET_NAME('FUN', 'FUN_API_AR_PERIOD_NOT_OPEN');
4427: FND_MSG_PUB.Add;
4428: END IF;
4429: Set_Return_Status(x_orig_status => x_return_status, p_new_status => FND_API.G_RET_STS_ERROR);
4430: END IF;
4431:
4432: Is_AR_Valid(x_return_status => l_return_status,
4433: p_initiator_id => l_initiator_id,

Line 4447: WHEN FND_API.G_EXC_ERROR THEN

4443: -- Standard call to get message count and if count is 1, get message info.
4444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4445: p_data => x_msg_data);
4446: EXCEPTION
4447: WHEN FND_API.G_EXC_ERROR THEN
4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 4448: x_return_status := FND_API.G_RET_STS_ERROR ;

4444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4445: p_data => x_msg_data);
4446: EXCEPTION
4447: WHEN FND_API.G_EXC_ERROR THEN
4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4447: WHEN FND_API.G_EXC_ERROR THEN
4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN

Line 4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4448: x_return_status := FND_API.G_RET_STS_ERROR ;
4449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4450: p_data => x_msg_data);
4451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4454: p_data => x_msg_data);
4455: WHEN OTHERS THEN
4456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4458: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4459: END IF;
4460: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,

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

4498:
4499:
4500: BEGIN
4501: -- Initialize message list if p_init_msg_list is set to TRUE.
4502: IF FND_API.to_Boolean( nvl(p_init_msg_list ,FND_API.G_FALSE))
4503: THEN
4504: FND_MSG_PUB.initialize;
4505: END IF;
4506:

Line 4508: x_return_status := FND_API.G_RET_STS_SUCCESS;

4504: FND_MSG_PUB.initialize;
4505: END IF;
4506:
4507: -- Initialize API return status to success
4508: x_return_status := FND_API.G_RET_STS_SUCCESS;
4509:
4510: IF p_batch_id IS NULL AND p_trx_id IS NULL
4511: THEN
4512: x_return_status := FND_API.G_RET_STS_ERROR;

Line 4512: x_return_status := FND_API.G_RET_STS_ERROR;

4508: x_return_status := FND_API.G_RET_STS_SUCCESS;
4509:
4510: IF p_batch_id IS NULL AND p_trx_id IS NULL
4511: THEN
4512: x_return_status := FND_API.G_RET_STS_ERROR;
4513: RETURN;
4514: END IF;
4515:
4516: -- Some activities may be COMPLETE but the notification would

Line 4557: WHEN FND_API.G_EXC_ERROR THEN

4553: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4554: p_data => x_msg_data);
4555:
4556: EXCEPTION
4557: WHEN FND_API.G_EXC_ERROR THEN
4558: x_return_status := FND_API.G_RET_STS_ERROR ;
4559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4560: p_data => x_msg_data);
4561:

Line 4558: x_return_status := FND_API.G_RET_STS_ERROR ;

4554: p_data => x_msg_data);
4555:
4556: EXCEPTION
4557: WHEN FND_API.G_EXC_ERROR THEN
4558: x_return_status := FND_API.G_RET_STS_ERROR ;
4559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4560: p_data => x_msg_data);
4561:
4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4558: x_return_status := FND_API.G_RET_STS_ERROR ;
4559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4560: p_data => x_msg_data);
4561:
4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4564: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4565: p_data => x_msg_data);
4566: WHEN OTHERS THEN

Line 4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4560: p_data => x_msg_data);
4561:
4562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4564: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4565: p_data => x_msg_data);
4566: WHEN OTHERS THEN
4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4564: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4565: p_data => x_msg_data);
4566: WHEN OTHERS THEN
4567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4569: THEN
4570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4571: END IF;