47: l_min_acct_unit NUMBER;
48: l_text VARCHAR2(500);
49:
50: --
51: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
52: --
53: BEGIN
54: IF l_debug_level > 0 THEN
55: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT' ) ;
51: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
52: --
53: BEGIN
54: IF l_debug_level > 0 THEN
55: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT' ) ;
56: END IF;
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59:
59:
60: If do_commitment_sequencing Then
61: --new behavior this old procedure should not even get called
62: IF l_debug_level > 0 THEN
63: oe_debug_pub.add( ' NEW COMMITMENT RETURNING TO CALLER' ) ;
64: END IF;
65: Return;
66: End If;
67:
70: Return;
71: End If;
72:
73: IF l_debug_level > 0 THEN
74: oe_debug_pub.add( 'EVALUATE COMMITMENT FOR COMMITMENTID:' || TO_CHAR ( P_COMMITMENT_ID ) , 1 ) ;
75: END IF;
76: l_class := NULL;
77: l_so_source_code := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
78: l_oe_installed_flag := 'I';
76: l_class := NULL;
77: l_so_source_code := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
78: l_oe_installed_flag := 'I';
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( 'COMMITMENT AFTER CALLING FND_PROFILE.VALUE' ) ;
81: END IF;
82:
83: l_commitment_bal := nvl(oe_globals.g_commitment_balance, 0);
84:
83: l_commitment_bal := nvl(oe_globals.g_commitment_balance, 0);
84:
85: l_total_balance := l_commitment_bal - p_unit_selling_price;
86: IF l_debug_level > 0 THEN
87: oe_debug_pub.add( 'TOTAL COMMITMENT BALANCE:'|| TO_CHAR ( L_TOTAL_BALANCE ) , 1 ) ;
88: END IF;
89: BEGIN
90: SELECT nvl(transactional_curr_code,'USD')
91: INTO l_currency_code from oe_order_headers
115: FND_MESSAGE.SET_NAME('ONT','OE_COM_ZERO_BALANCE');
116: FND_MESSAGE.SET_TOKEN('COMMITMENT' , l_trx_number);
117: OE_MSG_PUB.ADD;
118: IF l_debug_level > 0 THEN
119: oe_debug_pub.add( ' COMMITMENT HAVE OVERDRAWN MORE THAN ONCE' ) ;
120: oe_debug_pub.add( ' EXPECTED ERROR IN EVALUATE_COMMITMENT' , 1 ) ;
121: END IF;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: -- move code to calculate_commitment
116: FND_MESSAGE.SET_TOKEN('COMMITMENT' , l_trx_number);
117: OE_MSG_PUB.ADD;
118: IF l_debug_level > 0 THEN
119: oe_debug_pub.add( ' COMMITMENT HAVE OVERDRAWN MORE THAN ONCE' ) ;
120: oe_debug_pub.add( ' EXPECTED ERROR IN EVALUATE_COMMITMENT' , 1 ) ;
121: END IF;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: -- move code to calculate_commitment
124: elsif l_total_balance <= 0 then
128: FND_MESSAGE.Set_Token('COMMITMENT',l_trx_number);
129: FND_Message.Set_Token('BALANCE',TO_CHAR(l_total_balance * -1, g_fmt_mask));
130: OE_MSG_PUB.ADD;
131: IF l_debug_level > 0 THEN
132: oe_debug_pub.add( ' ISSUE A WARNING ABOUT COMMITMENT HAS BEEN OVERDRAWN' ) ;
133: END IF;
134: -- show the message after saving the commitment
135: else
136: FND_MESSAGE.Set_Name('ONT','OE_COM_BALANCE');
141:
142: end if;
143:
144: IF l_debug_level > 0 THEN
145: oe_debug_pub.add( 'LEAVING COMMITMENT' ) ;
146: END IF;
147: EXCEPTION
148: WHEN OTHERS THEN
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: v_allocate_tax_freight VARCHAR2(1);
168: v_Dummy INTEGER;
169:
170: --
171: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
172: --
173: BEGIN
174:
175: IF l_debug_level > 0 THEN
172: --
173: BEGIN
174:
175: IF l_debug_level > 0 THEN
176: oe_debug_pub.add( 'ENTERING GET_ALLOCATE_TAX_FREIGHT' , 1 ) ;
177: END IF;
178:
179: -- implementing dynamic SQL to avoid compilation error if AR Patch D is not installed.
180: v_CursorID := DBMS_SQL.OPEN_CURSOR;
209: v_allocate_tax_freight := 'N';
210: END IF;
211:
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'THE RETURNED VALUE FOR ALLOCATE_TAX_FREIGHT IS: '||V_ALLOCATE_TAX_FREIGHT , 3 ) ;
214: END IF;
215:
216:
217: /***
244: l_msg_count NUMBER;
245: l_msg_data VARCHAR2(2000);
246:
247: --
248: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
249: --
250: BEGIN
251:
252: IF l_debug_level > 0 THEN
249: --
250: BEGIN
251:
252: IF l_debug_level > 0 THEN
253: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT.GET_LINE_TOTAL.' , 1 ) ;
254: END IF;
255:
256: l_allocate_tax_freight := Get_Allocate_Tax_Freight(p_line_rec => p_line_rec);
257:
255:
256: l_allocate_tax_freight := Get_Allocate_Tax_Freight(p_line_rec => p_line_rec);
257:
258: IF l_debug_level > 0 THEN
259: oe_debug_pub.add( 'IN OE_COMMITMENT_PVT , ALLOCATE_TAX_FREIGHT IS: '||L_ALLOCATE_TAX_FREIGHT , 3 ) ;
260: END IF;
261:
262: -- get line level charges
263: IF nvl(p_line_rec.ordered_quantity, 0) > 0 THEN
336: l_transaction_phase_code VARCHAR2(30);
337: --bug 3560198
338: l_result BOOLEAN;
339: --
340: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
341: --
342: BEGIN
343:
344: IF l_debug_level > 0 THEN
341: --
342: BEGIN
343:
344: IF l_debug_level > 0 THEN
345: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT.CALCULATE_COMMITMENT FOR LINE: '||l_LINE_ID , 1 ) ;
346: END IF;
347:
348: BEGIN
349: SELECT l.header_id
372:
373: -- QUOTING change
374: -- No need to calculate commitment for orders in negotiation phase
375: if l_debug_level > 0 then
376: oe_debug_pub.add('trxn phase :'||l_transaction_phase_code);
377: end if;
378: IF l_transaction_phase_code = 'N' THEN
379: RETURN;
380: END IF;
420: -- calling the procedure to get the line total amount
421: l_total := get_line_total(p_line_rec => l_line_rec);
422:
423: IF l_debug_level > 0 THEN
424: oe_debug_pub.add( 'LINE TOTAL RETURNED IS: '||L_TOTAL , 1 ) ;
425: END IF;
426:
427: -- get the commitment balance
428: l_class := NULL;
441:
442: -- l_commitment_bal := nvl(oe_globals.g_commitment_balance, 0);
443:
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add( 'COMMITMENT BALANCE IS: '||L_COMMITMENT_BAL ) ;
446: END IF;
447:
448: BEGIN
449:
447:
448: BEGIN
449:
450: IF l_debug_level > 0 THEN
451: oe_debug_pub.add( 'BEFORE CALLING OE_PAYMENTS_UTIL.QUERY_ROWS' ) ;
452: END IF;
453:
454: oe_payments_Util.Query_Rows
455: ( p_payment_trx_id => l_new_commitment_id /* Bug#3536642 */
459: ,x_return_status => l_return_status
460: );
461:
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add( 'AFTER CALLING OE_PAYMENTS_UTIL.QUERY_ROWS' ) ;
464: END IF;
465:
466: EXCEPTION
467: WHEN NO_DATA_FOUND THEN
473: -- Fix Bug # 2511389: Changed logic inside following IF condition
474: IF l_new_commitment_id IS NOT NULL THEN
475:
476: IF l_payment_types_tbl.COUNT > 0 THEN
477: oe_debug_pub.add( 'commitment type '||l_payment_types_tbl(1).payment_type_code);
478: oe_debug_pub.add( '1 : '||l_payment_types_tbl(1).payment_trx_id);
479: oe_debug_pub.add( 'New commitment Id '||l_new_commitment_id);
480: IF l_new_commitment_id = l_payment_types_tbl(1).payment_trx_id THEN
481: /* Added nvl for the Bug #3536642 */
474: IF l_new_commitment_id IS NOT NULL THEN
475:
476: IF l_payment_types_tbl.COUNT > 0 THEN
477: oe_debug_pub.add( 'commitment type '||l_payment_types_tbl(1).payment_type_code);
478: oe_debug_pub.add( '1 : '||l_payment_types_tbl(1).payment_trx_id);
479: oe_debug_pub.add( 'New commitment Id '||l_new_commitment_id);
480: IF l_new_commitment_id = l_payment_types_tbl(1).payment_trx_id THEN
481: /* Added nvl for the Bug #3536642 */
482: oe_debug_pub.add( 'commitment applied amount '||l_payment_types_tbl(1).commitment_applied_amount);
475:
476: IF l_payment_types_tbl.COUNT > 0 THEN
477: oe_debug_pub.add( 'commitment type '||l_payment_types_tbl(1).payment_type_code);
478: oe_debug_pub.add( '1 : '||l_payment_types_tbl(1).payment_trx_id);
479: oe_debug_pub.add( 'New commitment Id '||l_new_commitment_id);
480: IF l_new_commitment_id = l_payment_types_tbl(1).payment_trx_id THEN
481: /* Added nvl for the Bug #3536642 */
482: oe_debug_pub.add( 'commitment applied amount '||l_payment_types_tbl(1).commitment_applied_amount);
483: l_commitment_bal := l_commitment_bal + nvl(l_payment_types_tbl(1).commitment_applied_amount,0);
478: oe_debug_pub.add( '1 : '||l_payment_types_tbl(1).payment_trx_id);
479: oe_debug_pub.add( 'New commitment Id '||l_new_commitment_id);
480: IF l_new_commitment_id = l_payment_types_tbl(1).payment_trx_id THEN
481: /* Added nvl for the Bug #3536642 */
482: oe_debug_pub.add( 'commitment applied amount '||l_payment_types_tbl(1).commitment_applied_amount);
483: l_commitment_bal := l_commitment_bal + nvl(l_payment_types_tbl(1).commitment_applied_amount,0);
484:
485: --added for multiple payments
486: if l_payment_types_tbl(1).payment_amount is not null
489: l_total := l_payment_types_tbl(1).payment_amount;
490: end if;
491:
492: IF l_debug_level > 0 THEN
493: oe_debug_pub.add( 'COMMITMENT BALANCE WITH CURRENTLY APPLIED COMMITMENT: '||L_COMMITMENT_BAL ) ;
494: END IF;
495: END IF;
496:
497: END IF;
511: END IF;
512:
513:
514: IF l_debug_level > 0 THEN
515: oe_debug_pub.add( 'COMMITMENT APPLIED AMOUNT IS: '||L_COMMITMENT_APPLIED_AMOUNT ) ;
516: END IF;
517: END IF;
518:
519: IF l_payment_types_tbl.COUNT > 0 THEN
527: ELSE
528: IF NOT OE_GLOBALS.Equal(l_new_commitment_id, l_payment_types_tbl(1).payment_trx_id) THEN
529:
530: IF l_debug_level > 0 THEN
531: oe_debug_pub.add( 'UPDATING BOTH APPLIED AMOUNT AND COMMITMENT' ) ;
532: END IF;
533:
534: IF OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED = TRUE then
535: UPDATE oe_payments
561: ***/
562: IF NVL(l_commitment_applied_amount, 0) <> NVL(l_payment_types_tbl(1).commitment_applied_amount, 0) THEN
563:
564: IF l_debug_level > 0 THEN
565: oe_debug_pub.add( 'UPDATING ONLY THE APPLIED AMOUNT' ) ;
566: END IF;
567:
568: IF OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED = TRUE then
569: UPDATE oe_payments
623:
624: END IF;
625:
626: IF l_debug_level > 0 THEN
627: oe_debug_pub.add( 'BEFORE CALLING OE_PAYMENTS_UTIL.INSERT_ROW' ) ;
628: END IF;
629:
630: OE_Payments_Util.INSERT_ROW(p_payment_types_rec => l_payment_types_rec);
631:
629:
630: OE_Payments_Util.INSERT_ROW(p_payment_types_rec => l_payment_types_rec);
631:
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add( 'AFTER CALLING OE_PAYMENTS_UTIL.INSERT_ROW' ) ;
634: END IF;
635:
636: l_show_balance := TRUE;
637: END IF;
638: END IF;
639:
640: --bug 3560198
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add('Check if a request for update commitment applied has been logged or not');
643: oe_debug_pub.add('p_request_rec.entity_code : '||p_request_rec.entity_code);
644: oe_debug_pub.add('p_request_rec.entity_id : '||p_request_rec.entity_id);
645: oe_debug_pub.add('p_request_rec.request_type : '||p_request_rec.request_type);
646: END IF;
639:
640: --bug 3560198
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add('Check if a request for update commitment applied has been logged or not');
643: oe_debug_pub.add('p_request_rec.entity_code : '||p_request_rec.entity_code);
644: oe_debug_pub.add('p_request_rec.entity_id : '||p_request_rec.entity_id);
645: oe_debug_pub.add('p_request_rec.request_type : '||p_request_rec.request_type);
646: END IF;
647: l_result := Oe_Delayed_Requests_Pvt.Check_For_Request(p_request_rec.entity_code,
640: --bug 3560198
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add('Check if a request for update commitment applied has been logged or not');
643: oe_debug_pub.add('p_request_rec.entity_code : '||p_request_rec.entity_code);
644: oe_debug_pub.add('p_request_rec.entity_id : '||p_request_rec.entity_id);
645: oe_debug_pub.add('p_request_rec.request_type : '||p_request_rec.request_type);
646: END IF;
647: l_result := Oe_Delayed_Requests_Pvt.Check_For_Request(p_request_rec.entity_code,
648: p_request_rec.entity_id,
641: IF l_debug_level > 0 THEN
642: oe_debug_pub.add('Check if a request for update commitment applied has been logged or not');
643: oe_debug_pub.add('p_request_rec.entity_code : '||p_request_rec.entity_code);
644: oe_debug_pub.add('p_request_rec.entity_id : '||p_request_rec.entity_id);
645: oe_debug_pub.add('p_request_rec.request_type : '||p_request_rec.request_type);
646: END IF;
647: l_result := Oe_Delayed_Requests_Pvt.Check_For_Request(p_request_rec.entity_code,
648: p_request_rec.entity_id,
649: OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED
648: p_request_rec.entity_id,
649: OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED
650: );
651: IF l_result THEN
652: oe_debug_pub.add('setting l_show_balance to false');
653: l_show_balance := FALSE;
654: END IF;
655: --bug 3560198
656: IF l_new_commitment_id IS NOT NULL AND l_show_balance THEN
664: */
665:
666: l_new_commitment_bal := l_commitment_bal - l_commitment_applied_amount;
667: IF l_debug_level > 0 THEN
668: oe_debug_pub.add( 'NEW COMMITMENT BALANCE IS: '||L_NEW_COMMITMENT_BAL ) ;
669: END IF;
670:
671: FND_MESSAGE.Set_Name('ONT','OE_COM_BALANCE');
672: FND_MESSAGE.Set_Token('COMMITMENT',l_commitment);
714: --
715: IF l_verify_payment_flag = 'Y' THEN
716:
717: IF l_debug_level > 0 THEN
718: oe_debug_pub.add( 'LOGGING DELAYED REQUEST FOR VERIFY PAYMENT IN COMMITMENTS' , 2 ) ;
719: END IF;
720: OE_delayed_requests_Pvt.log_request
721: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
722: p_entity_id => l_header_id,
727:
728: END IF;
729:
730: IF l_debug_level > 0 THEN
731: oe_debug_pub.add( 'EXITING OE_COMMITMENT_PVT.CALCULATE_COMMITMENT.' , 1 ) ;
732: END IF;
733:
734: END calculate_commitment;
735:
740: ) RETURN NUMBER IS
741: l_commitment_applied_amount NUMBER := 0.0;
742:
743: --
744: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
745: --
746: BEGIN
747:
748:
807: WHERE header_id = l_header_id
808: AND split_from_line_id = p_line_id;
809:
810: --
811: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
812: --
813: BEGIN
814:
815: IF l_debug_level > 0 THEN
812: --
813: BEGIN
814:
815: IF l_debug_level > 0 THEN
816: oe_debug_pub.add( 'ENTERING UPDATE_COMMITMENT FOR LINE_ID '||P_LINE_ID , 1 ) ;
817: END IF;
818:
819: BEGIN
820: SELECT l.header_id
839:
840: -- QUOTING change
841: -- No need to update commitment for orders in negotiation phase
842: if l_debug_level > 0 then
843: oe_debug_pub.add('trxn phase :'||l_transaction_phase_code);
844: end if;
845: IF l_transaction_phase_code = 'N' THEN
846: RETURN;
847: END IF;
864: := oe_globals.g_original_commitment_applied - l_commitment_applied_amount;
865: END IF;
866:
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add('commitment balance is: '||oe_globals.g_commitment_balance,3);
869: oe_debug_pub.add('commitment applied amount is: '||l_commitment_applied_amount,3);
870: oe_debug_pub.add('original commitment applied is: '||oe_globals.g_original_commitment_applied,3);
871: END IF;
872:
865: END IF;
866:
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add('commitment balance is: '||oe_globals.g_commitment_balance,3);
869: oe_debug_pub.add('commitment applied amount is: '||l_commitment_applied_amount,3);
870: oe_debug_pub.add('original commitment applied is: '||oe_globals.g_original_commitment_applied,3);
871: END IF;
872:
873: OPEN l_split_lines_cur;
866:
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add('commitment balance is: '||oe_globals.g_commitment_balance,3);
869: oe_debug_pub.add('commitment applied amount is: '||l_commitment_applied_amount,3);
870: oe_debug_pub.add('original commitment applied is: '||oe_globals.g_original_commitment_applied,3);
871: END IF;
872:
873: OPEN l_split_lines_cur;
874: LOOP
894:
895: l_children_commitment
896: := get_line_total(p_line_rec => l_children_line_rec);
897:
898: oe_debug_pub.add('Linda0721 -- child commit applied is: '||l_children_commitment,1);
899:
900: IF nvl(oe_globals.g_commitment_balance,0) <= 0 THEN
901: update oe_payments
902: set commitment_applied_amount = 0
926: END LOOP;
927: CLOSE l_split_lines_cur;
928:
929: IF l_debug_level > 0 THEN
930: oe_debug_pub.add( 'Exiting UPDATE_COMMITMENT. ', 1 ) ;
931: END IF;
932:
933: END update_commitment;
934:
939: INVALID_COLUMN_NAME EXCEPTION;
940: PRAGMA EXCEPTION_INIT(INVALID_COLUMN_NAME, -904);
941:
942: --
943: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
944: --
945: BEGIN
946:
947: IF G_Do_Commitment_Sequencing <> FND_API.G_MISS_NUM THEN
1034: l_ext_precision NUMBER;
1035: l_min_acct_unit NUMBER;
1036: --bug 3560198
1037:
1038: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1039:
1040: BEGIN
1041:
1042: IF l_debug_level > 0 THEN
1039:
1040: BEGIN
1041:
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('OEXVCMTB: Entering UPDATE_COMMITMENT_APPLIED FOR LINE_ID '||P_LINE_ID, 1 );
1044: oe_debug_pub.add('OEXVCMTB: p_amount is: '||p_amount, 3 );
1045: oe_debug_pub.add('OEXVCMTB: p_header_id is: '||p_header_id, 3 );
1046: oe_debug_pub.add('OEXVCMTB: p_commitment_id is: '||p_commitment_id, 3 );
1047: END IF;
1040: BEGIN
1041:
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('OEXVCMTB: Entering UPDATE_COMMITMENT_APPLIED FOR LINE_ID '||P_LINE_ID, 1 );
1044: oe_debug_pub.add('OEXVCMTB: p_amount is: '||p_amount, 3 );
1045: oe_debug_pub.add('OEXVCMTB: p_header_id is: '||p_header_id, 3 );
1046: oe_debug_pub.add('OEXVCMTB: p_commitment_id is: '||p_commitment_id, 3 );
1047: END IF;
1048:
1041:
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('OEXVCMTB: Entering UPDATE_COMMITMENT_APPLIED FOR LINE_ID '||P_LINE_ID, 1 );
1044: oe_debug_pub.add('OEXVCMTB: p_amount is: '||p_amount, 3 );
1045: oe_debug_pub.add('OEXVCMTB: p_header_id is: '||p_header_id, 3 );
1046: oe_debug_pub.add('OEXVCMTB: p_commitment_id is: '||p_commitment_id, 3 );
1047: END IF;
1048:
1049: -- get the commitment balance
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('OEXVCMTB: Entering UPDATE_COMMITMENT_APPLIED FOR LINE_ID '||P_LINE_ID, 1 );
1044: oe_debug_pub.add('OEXVCMTB: p_amount is: '||p_amount, 3 );
1045: oe_debug_pub.add('OEXVCMTB: p_header_id is: '||p_header_id, 3 );
1046: oe_debug_pub.add('OEXVCMTB: p_commitment_id is: '||p_commitment_id, 3 );
1047: END IF;
1048:
1049: -- get the commitment balance
1050: l_class := NULL;
1057: ,l_so_source_code
1058: ,l_oe_installed_flag );
1059:
1060: IF l_debug_level > 0 THEN
1061: oe_debug_pub.add('OEXVCMTB: commitment balance is '||l_commitment_bal, 1 );
1062: END IF;
1063:
1064: BEGIN
1065: SELECT nvl(commitment_applied_amount,0)
1075:
1076: l_commitment_bal := l_commitment_bal + l_commitment_applied_amount;
1077:
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add('OEXVCMTB: available commitment balance is '||l_commitment_bal, 1 );
1080: END IF;
1081:
1082: IF p_amount <= l_commitment_bal THEN
1083: l_amount_to_apply := p_amount;
1084: ELSE
1085: l_amount_to_apply := l_commitment_bal;
1086:
1087: IF l_debug_level > 0 THEN
1088: oe_debug_pub.add('OEXVCMTB: no sufficient balance '||l_amount_to_apply, 1 );
1089: END IF;
1090:
1091: END IF;
1092:
1090:
1091: END IF;
1092:
1093: IF l_debug_level > 0 THEN
1094: oe_debug_pub.add('OEXVCMTB: amount to apply is '||l_amount_to_apply, 1 );
1095: END IF;
1096:
1097: --bug 3560198
1098: IF l_debug_level > 0 THEN
1095: END IF;
1096:
1097: --bug 3560198
1098: IF l_debug_level > 0 THEN
1099: oe_debug_pub.add('To display the commitment balance');
1100: END IF;
1101: l_new_commitment_bal := l_commitment_bal - l_amount_to_apply;
1102:
1103: IF l_debug_level > 0 THEN
1100: END IF;
1101: l_new_commitment_bal := l_commitment_bal - l_amount_to_apply;
1102:
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add('New commitment balance is : '||l_new_commitment_bal);
1105: END IF;
1106:
1107: -- build currency format.
1108: IF g_fmt_mask IS NULL THEN
1139: AND line_id = p_line_id
1140: AND payment_trx_id = p_commitment_id;
1141:
1142: IF l_debug_level > 0 THEN
1143: oe_debug_pub.add('OEXVCMTB: Exiting UPDATE_COMMITMENT_APPLIED. ', 1 );
1144: END IF;
1145:
1146: END update_commitment_applied;
1147: