92:
93:
94: BEGIN
95:
96: OE_DEBUG_PUB.ADD(' OEXVCRLB: In Apply_hold_and_commit ');
97: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
98:
99:
100: OE_Holds_PUB.Apply_Holds
93:
94: BEGIN
95:
96: OE_DEBUG_PUB.ADD(' OEXVCRLB: In Apply_hold_and_commit ');
97: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
98:
99:
100: OE_Holds_PUB.Apply_Holds
101: ( p_api_version => 1.0
105: , x_msg_data => x_msg_data
106: , x_return_status => x_return_status
107: );
108:
109: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
110: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
106: , x_return_status => x_return_status
107: );
108:
109: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
110: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
116:
117: OE_DEBUG_PUB.ADD(' Holds success ');
118: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
119:
120: COMMIT;
121:
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
116:
117: OE_DEBUG_PUB.ADD(' Holds success ');
118: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
119:
120: COMMIT;
121:
122: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
118: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
119:
120: COMMIT;
121:
122: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
123:
124: END IF;
125:
126: OE_DEBUG_PUB.ADD(' OEXVCRLB: OUT Apply_hold_and_commit ');
122: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
123:
124: END IF;
125:
126: OE_DEBUG_PUB.ADD(' OEXVCRLB: OUT Apply_hold_and_commit ');
127:
128: EXCEPTION
129: WHEN OTHERS THEN
130: rollback;
127:
128: EXCEPTION
129: WHEN OTHERS THEN
130: rollback;
131: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
132: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
133: OE_MSG_PUB.Add_Exc_Msg
134: ( G_PKG_NAME
135: , 'Apply_hold_and_commit'
128: EXCEPTION
129: WHEN OTHERS THEN
130: rollback;
131: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
132: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
133: OE_MSG_PUB.Add_Exc_Msg
134: ( G_PKG_NAME
135: , 'Apply_hold_and_commit'
136: );
154: BEGIN
155:
156: IF G_debug_flag = 'Y'
157: THEN
158: OE_DEBUG_PUB.ADD('OEXVCRLB: Entering Update_Comments_And_Commit');
159: OE_DEBUG_PUB.ADD('OEXVCRLB: Before OE_Holds_PUB.Update_Hold_Comments');
160: END IF;
161:
162: OE_Holds_PUB.Update_Hold_comments
155:
156: IF G_debug_flag = 'Y'
157: THEN
158: OE_DEBUG_PUB.ADD('OEXVCRLB: Entering Update_Comments_And_Commit');
159: OE_DEBUG_PUB.ADD('OEXVCRLB: Before OE_Holds_PUB.Update_Hold_Comments');
160: END IF;
161:
162: OE_Holds_PUB.Update_Hold_comments
163: ( p_hold_source_rec => p_hold_source_rec
167: );
168:
169: IF G_debug_flag = 'Y'
170: THEN
171: OE_DEBUG_PUB.ADD('OEXVCRLB: After OE_Holds_PUB.Update_Hold_Comments Status '
172: || x_return_status);
173: END IF;
174:
175: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
180: IF G_debug_flag = 'Y'
181: THEN
182: OE_DEBUG_PUB.ADD('OEXVCRLB: Update Hold Comment Success, Issue COMMIT');
183: END IF;
184:
185: COMMIT;
186:
185: COMMIT;
186:
187: IF G_debug_flag = 'Y'
188: THEN
189: OE_DEBUG_PUB.ADD('OEXVCRLB: After Issuing COMMIT');
190: END IF;
191: END IF;
192:
193: IF G_debug_flag = 'Y'
191: END IF;
192:
193: IF G_debug_flag = 'Y'
194: THEN
195: OE_DEBUG_PUB.ADD(' OEXVCRLB: Exiting Update_Comments_And_Commit');
196: END IF;
197:
198: EXCEPTION
199: WHEN OTHERS THEN
197:
198: EXCEPTION
199: WHEN OTHERS THEN
200: rollback;
201: OE_DEBUG_PUB.ADD('OEXVCRLB: Error in Update_Comments_And_Commit' );
202: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
203: OE_MSG_PUB.Add_Exc_Msg
204: ( G_PKG_NAME
205: , 'Update_Comments_And_Commit'
198: EXCEPTION
199: WHEN OTHERS THEN
200: rollback;
201: OE_DEBUG_PUB.ADD('OEXVCRLB: Error in Update_Comments_And_Commit' );
202: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
203: OE_MSG_PUB.Add_Exc_Msg
204: ( G_PKG_NAME
205: , 'Update_Comments_And_Commit'
206: );
386: row_cntr BINARY_INTEGER := 1;
387: BEGIN
388: IF G_debug_flag = 'Y'
389: THEN
390: OE_DEBUG_PUB.Add('OEXVCRLB: In Create_Holds_Table');
391: OE_DEBUG_PUB.Add('p_site_use_id '|| p_site_use_id );
392: END IF;
393:
394: /*ER 6135714
387: BEGIN
388: IF G_debug_flag = 'Y'
389: THEN
390: OE_DEBUG_PUB.Add('OEXVCRLB: In Create_Holds_Table');
391: OE_DEBUG_PUB.Add('p_site_use_id '|| p_site_use_id );
392: END IF;
393:
394: /*ER 6135714
395: FOR c_line IN billto_lines_csr LOOP
441: x_holds_table := l_site_holds_tbl;
442:
443: IF G_debug_flag = 'Y'
444: THEN
445: OE_DEBUG_PUB.Add('Holds table count = '|| x_holds_table.COUNT );
446: OE_DEBUG_PUB.Add('OEXVCRLB: Out Create_Holds_Table');
447: END IF;
448:
449: EXCEPTION
442:
443: IF G_debug_flag = 'Y'
444: THEN
445: OE_DEBUG_PUB.Add('Holds table count = '|| x_holds_table.COUNT );
446: OE_DEBUG_PUB.Add('OEXVCRLB: Out Create_Holds_Table');
447: END IF;
448:
449: EXCEPTION
450: WHEN OTHERS THEN
474: IS
475: BEGIN
476: IF G_debug_flag = 'Y'
477: THEN
478: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
479: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
480: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
481: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
482: END IF;
475: BEGIN
476: IF G_debug_flag = 'Y'
477: THEN
478: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
479: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
480: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
481: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
482: END IF;
483:
476: IF G_debug_flag = 'Y'
477: THEN
478: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
479: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
480: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
481: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
482: END IF;
483:
484:
477: THEN
478: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
479: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
480: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
481: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
482: END IF;
483:
484:
485: -- Initialize return status to success
545: END IF;
546:
547: IF G_debug_flag = 'Y'
548: THEN
549: OE_DEBUG_PUB.Add('OEXVCRLB: Out Update_Holds_Table');
550: END IF;
551:
552: EXCEPTION
553: WHEN OTHERS THEN
582:
583: BEGIN
584: IF G_debug_flag = 'Y'
585: THEN
586: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
583: BEGIN
584: IF G_debug_flag = 'Y'
585: THEN
586: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
591: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
584: IF G_debug_flag = 'Y'
585: THEN
586: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
591: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
592: END IF;
585: THEN
586: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
591: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
592: END IF;
593:
586: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
591: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
592: END IF;
593:
594: -- exposure is always > credit limit for hold to be applied
587: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
588: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
589: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
590: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
591: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
592: END IF;
593:
594: -- exposure is always > credit limit for hold to be applied
595: l_amt_on_hold := p_exposure - p_overall_credit_limit;
595: l_amt_on_hold := p_exposure - p_overall_credit_limit;
596:
597: FOR i IN reverse p_holds_table.FIRST..p_holds_table.LAST LOOP
598: IF G_debug_flag = 'Y' THEN
599: OE_DEBUG_PUB.Add('line_total='|| p_holds_table(i).line_total || ' Line-id-' ||p_holds_table(i).line_id );
600: END IF;
601: -- Dont apply hold if the line value is 0, uncomment below line for 0 value line Toshiba ER
602: -- currently Option 4 will ensure that 0 value is NOT on hold
603: -- if (l_amt_hold_applied < l_amt_on_hold AND p_holds_table(i).line_total <> 0) then
611: p_holds_table(i).site_use_id := p_site_use_id;
612: p_holds_table(i).item_category_id := NULL;
613: p_holds_table(i).party_id := p_party_id ;
614: IF G_debug_flag = 'Y' THEN
615: OE_DEBUG_PUB.Add('Applying Hold on Line_id = '|| p_holds_table(i).line_id );
616: END IF;
617: END IF;
618: END LOOP;
619:
618: END LOOP;
619:
620: IF G_debug_flag = 'Y'
621: THEN
622: OE_DEBUG_PUB.Add('OEXVCRLB: Out Update_Holds_Table');
623: END IF;
624: EXCEPTION
625: WHEN OTHERS THEN
626: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
654:
655: BEGIN
656: IF G_debug_flag = 'Y'
657: THEN
658: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
659: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
660: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
661: ||p_line_id,1);
662: OE_DEBUG_PUB.Add('G_delayed_request = '||
655: BEGIN
656: IF G_debug_flag = 'Y'
657: THEN
658: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
659: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
660: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
661: ||p_line_id,1);
662: OE_DEBUG_PUB.Add('G_delayed_request = '||
663: OE_credit_engine_grp.G_delayed_request );
656: IF G_debug_flag = 'Y'
657: THEN
658: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
659: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
660: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
661: ||p_line_id,1);
662: OE_DEBUG_PUB.Add('G_delayed_request = '||
663: OE_credit_engine_grp.G_delayed_request );
664: END IF;
658: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
659: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
660: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
661: ||p_line_id,1);
662: OE_DEBUG_PUB.Add('G_delayed_request = '||
663: OE_credit_engine_grp.G_delayed_request );
664: END IF;
665:
666: -- Will not check if the event is UPDATE
701: END IF;
702:
703: EXCEPTION
704: WHEN NO_DATA_FOUND THEN
705: OE_DEBUG_PUB.Add
706: ('No released record exist forHeader ID/Line ID: '||p_header_id||'/'||p_line_id,1);
707: l_released_rec_exists := 'N';
708: WHEN OTHERS THEN
709: NULL;
734: END IF;
735:
736: EXCEPTION
737: WHEN NO_DATA_FOUND THEN
738: OE_DEBUG_PUB.Add
739: ('No manually released credit holds for Header ID/Line ID: '||
740: p_header_id||'/'||p_line_id,1);
741: l_manual_hold_exists := 'N';
742: WHEN OTHERS THEN
746: END IF;
747:
748: IF G_debug_flag = 'Y'
749: THEN
750: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_Manual_Released_Holds: '||l_manual_hold_exists );
751: END IF;
752:
753: RETURN l_manual_hold_exists ;
754:
784:
785: BEGIN
786: IF G_debug_flag = 'Y'
787: THEN
788: OE_DEBUG_PUB.ADD('OEXVCRLB: In Chk_Past_Due_Invoice');
789: END IF;
790:
791: -- Initialize return status to success
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
822: END IF;
823:
824: IF G_debug_flag = 'Y'
825: THEN
826: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
827: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
828: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
829: END IF;
830:
823:
824: IF G_debug_flag = 'Y'
825: THEN
826: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
827: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
828: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
829: END IF;
830:
831: EXCEPTION
824: IF G_debug_flag = 'Y'
825: THEN
826: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
827: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
828: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
829: END IF;
830:
831: EXCEPTION
832: WHEN OTHERS THEN
853: l_msg_data VARCHAR2(2000);
854: BEGIN
855: IF G_debug_flag = 'Y'
856: THEN
857: OE_DEBUG_PUB.ADD('OEXVCRLB: In Hold_Exists');
858: END IF;
859:
860: IF p_credit_hold_level = 'ORDER'
861: THEN
860: IF p_credit_hold_level = 'ORDER'
861: THEN
862: IF G_debug_flag = 'Y'
863: THEN
864: OE_DEBUG_PUB.ADD('OEXVCRLB: Check for credit check holds for Header ID : '
865: || p_header_id,1);
866: END IF;
867:
868: OE_HOLDS_PUB.Check_Holds
880: );
881: ELSE
882: IF G_debug_flag = 'Y'
883: THEN
884: OE_DEBUG_PUB.ADD('OEXVCRLB: Check for holds for Header/Line ID : '
885: || p_header_id || '/' || p_line_id,1);
886: END IF;
887:
888: OE_HOLDS_PUB.Check_Holds
902: END IF;
903:
904: IF G_debug_flag = 'Y'
905: THEN
906: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Holds');
907: END IF;
908:
909: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
910: RAISE FND_API.G_EXC_ERROR;
951:
952: BEGIN
953: IF G_debug_flag = 'Y'
954: THEN
955: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Hold_Message');
956: END IF;
957:
958: -- Write to message stack anyway regardless of the calling action
959: -- added IF for bug 5467793
1089: x_comment := NVL(OE_Credit_Engine_GRP.G_currency_error_msg,l_comment);
1090:
1091: IF G_debug_flag = 'Y'
1092: THEN
1093: OE_DEBUG_PUB.ADD(' x_comment '|| x_comment );
1094: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Hold_Message');
1095: END IF;
1096:
1097: EXCEPTION
1090:
1091: IF G_debug_flag = 'Y'
1092: THEN
1093: OE_DEBUG_PUB.ADD(' x_comment '|| x_comment );
1094: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Hold_Message');
1095: END IF;
1096:
1097: EXCEPTION
1098: WHEN OTHERS THEN
1116: IS
1117: BEGIN
1118: IF G_debug_flag = 'Y'
1119: THEN
1120: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Release_Message');
1121: END IF;
1122:
1123: IF p_calling_action = 'AUTO RELEASE' THEN
1124: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order Number: '||TO_CHAR(p_order_number)
1134: --OE_MSG_PUB.Save_Messages(1);
1135: --
1136: IF G_debug_flag = 'Y'
1137: THEN
1138: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Release_Message');
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN OTHERS THEN
1168:
1169: BEGIN
1170: IF G_debug_flag = 'Y'
1171: THEN
1172: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Order_Hold_Msg');
1173: END IF;
1174:
1175: -- Write to message stack anyway regardless of the calling action
1176: IF p_cc_limit_used <> 'ITEM' THEN
1231: x_comment := l_comment;
1232:
1233: IF G_debug_flag = 'Y'
1234: THEN
1235: OE_DEBUG_PUB.Add(' x_comment '|| x_comment );
1236: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Hold_Msg');
1237: END IF;
1238:
1239: EXCEPTION
1232:
1233: IF G_debug_flag = 'Y'
1234: THEN
1235: OE_DEBUG_PUB.Add(' x_comment '|| x_comment );
1236: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Hold_Msg');
1237: END IF;
1238:
1239: EXCEPTION
1240: WHEN OTHERS THEN
1255: IS
1256: BEGIN
1257: IF G_debug_flag = 'Y'
1258: THEN
1259: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Order_Release_Msg');
1260: END IF;
1261:
1262: IF p_calling_action = 'AUTO RELEASE' THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order '||TO_CHAR(p_order_number)
1268: END IF;
1269: --
1270: IF G_debug_flag = 'Y'
1271: THEN
1272: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Release_Msg');
1273: END IF;
1274:
1275: EXCEPTION
1276: WHEN OTHERS THEN
1354: OE_HOLDS_PVT.G_MISS_Hold_Source_REC;
1355: BEGIN
1356: IF G_debug_flag = 'Y'
1357: THEN
1358: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1355: BEGIN
1356: IF G_debug_flag = 'Y'
1357: THEN
1358: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1363: OE_DEBUG_PUB.Add('---------------------------------');
1356: IF G_debug_flag = 'Y'
1357: THEN
1358: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1363: OE_DEBUG_PUB.Add('---------------------------------');
1364: END IF;
1357: THEN
1358: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1363: OE_DEBUG_PUB.Add('---------------------------------');
1364: END IF;
1365: --
1358: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1363: OE_DEBUG_PUB.Add('---------------------------------');
1364: END IF;
1365: --
1366: --
1359: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1360: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1361: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1362: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1363: OE_DEBUG_PUB.Add('---------------------------------');
1364: END IF;
1365: --
1366: --
1367: IF p_cc_limit_used <> 'ITEM' THEN
1422: l_hold_source_rec.line_id := p_line_id;
1423:
1424: IF G_debug_flag = 'Y'
1425: THEN
1426: OE_DEBUG_PUB.Add('OEXVCRLB: Hold already applied on Header/Line ID:' ||
1427: p_header_id || '/' || p_line_id, 1);
1428: END IF;
1429:
1430: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
1430: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
1431: THEN
1432: IF G_debug_flag = 'Y'
1433: THEN
1434: OE_DEBUG_PUB.ADD('OEXVCRLB: Call Update_Comments_And_Commit');
1435: END IF;
1436: --IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) =
1437: --FND_API.G_FALSE THEN --bug6120327
1438:
1445:
1446: -- END IF;
1447: IF G_debug_flag = 'Y'
1448: THEN
1449: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Update_Comments_And_Commit');
1450: END IF;
1451:
1452: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1453: THEN
1452: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1453: THEN
1454: IF G_debug_flag = 'Y'
1455: THEN
1456: OE_DEBUG_PUB.ADD('OEXVCRLB: Call OE_Holds_PUB.Update_Hold_Comments directly');
1457: END IF;
1458: --IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) =
1459: --FND_API.G_FALSE THEN --bug6120327
1460:
1468: --END IF;
1469:
1470: IF G_debug_flag = 'Y'
1471: THEN
1472: OE_DEBUG_PUB.ADD('OEXVCRLB: Out OE_Holds_PUB.Update_Hold_Comments directly');
1473: END IF;
1474: END IF;
1475:
1476: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1478: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1481: IF G_debug_flag = 'Y' THEN
1482: OE_DEBUG_PUB.ADD
1483: ('OEXVCRLB: Updated Comments on Header/Line ID:' ||
1484: p_header_id || '/' ||
1485: p_line_id, 1);
1486: END IF;
1519: THEN
1520:
1521: IF G_debug_flag = 'Y'
1522: THEN
1523: OE_DEBUG_PUB.ADD('OEXVCRLB: Call Apply_hold_and_commit ');
1524: END IF;
1525:
1526: Apply_hold_and_commit
1527: ( p_hold_source_rec => l_hold_source_rec
1531: );
1532:
1533: IF G_debug_flag = 'Y'
1534: THEN
1535: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Apply_hold_and_commit ');
1536: END IF;
1537:
1538:
1539: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1539: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1540: THEN
1541: IF G_debug_flag = 'Y'
1542: THEN
1543: OE_DEBUG_PUB.ADD('OEXVCRLB: Call OE_Holds_PUB.Apply_Holds directly');
1544: END IF;
1545:
1546: OE_Holds_PUB.Apply_Holds
1547: ( p_api_version => 1.0
1553: );
1554:
1555: IF G_debug_flag = 'Y'
1556: THEN
1557: OE_DEBUG_PUB.ADD('OEXVCRLB: Out OE_Holds_PUB.Apply_Holds directly');
1558: END IF;
1559: END IF;
1560: -------------------------------------------------------
1561: IF G_debug_flag = 'Y' THEN
1558: END IF;
1559: END IF;
1560: -------------------------------------------------------
1561: IF G_debug_flag = 'Y' THEN
1562: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply Holds status '|| l_return_status );
1563: END IF;
1564:
1565: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1570: IF G_debug_flag = 'Y' THEN
1571: OE_DEBUG_PUB.ADD
1572: ('OEXVCRLB: Applied credit check hold on Header/Line ID:' ||
1573: p_header_id || '/' ||
1574: p_line_id, 1);
1575: END IF;
1582: x_cc_result_out := l_cc_result_out;
1583:
1584: IF G_debug_flag = 'Y'
1585: THEN
1586: OE_DEBUG_PUB.Add('OEXVCRLB: Apply_Line_CC_Hold Result = '|| x_cc_result_out );
1587: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Line_CC_Hold');
1588: END IF;
1589:
1590:
1583:
1584: IF G_debug_flag = 'Y'
1585: THEN
1586: OE_DEBUG_PUB.Add('OEXVCRLB: Apply_Line_CC_Hold Result = '|| x_cc_result_out );
1587: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Line_CC_Hold');
1588: END IF;
1589:
1590:
1591: EXCEPTION
1635: OE_HOLDS_PVT.G_MISS_Hold_Source_REC;
1636: BEGIN
1637: IF G_debug_flag = 'Y'
1638: THEN
1639: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Order_CC_Hold');
1640: END IF;
1641: --
1642: -- Get the order number for notification
1643: --
1673: l_hold_source_rec.hold_comment := l_hold_comment;
1674:
1675: IF G_debug_flag = 'Y'
1676: THEN
1677: OE_DEBUG_PUB.Add('OEXVCRLB: Hold already applied on Header ID:' ||
1678: p_header_id, 1);
1679: END IF;
1680: ELSE
1681: IF Check_Manual_Released_Holds(
1691: G_result_out := 'FAIL' ;
1692:
1693: IF G_debug_flag = 'Y'
1694: THEN
1695: OE_DEBUG_PUB.Add( ' No manual release, call Write_order_hold_msg ');
1696: END IF;
1697:
1698: G_result_out := 'FAIL' ;
1699:
1723: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1726: IF G_debug_flag = 'Y' THEN
1727: OE_DEBUG_PUB.ADD
1728: ('OEXVCRLB: Credit check hold applied on header_ID: '||p_header_id, 1);
1729: END IF;
1730: END IF;
1731: l_cc_result_out := 'FAIL_HOLD';
1735: x_cc_result_out := l_cc_result_out;
1736:
1737: IF G_debug_flag = 'Y'
1738: THEN
1739: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply_Order_CC_Hold Result = '
1740: ||l_cc_result_out);
1741: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Order_CC_Hold');
1742: END IF;
1743:
1737: IF G_debug_flag = 'Y'
1738: THEN
1739: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply_Order_CC_Hold Result = '
1740: ||l_cc_result_out);
1741: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Order_CC_Hold');
1742: END IF;
1743:
1744: EXCEPTION
1745: WHEN OTHERS THEN
1780: l_calling_activity VARCHAR2(50); --ER#7479609
1781: BEGIN
1782: IF G_debug_flag = 'Y'
1783: THEN
1784: OE_DEBUG_PUB.Add('OEXVCRLB: In Release_Order_CC_Hold');
1785: END IF;
1786:
1787: l_return_status := FND_API.G_RET_STS_SUCCESS;
1788: --
1841: l_cc_result_out := 'PASS_REL';
1842:
1843: IF G_debug_flag = 'Y'
1844: THEN
1845: OE_DEBUG_PUB.ADD('OEXVCRLB: Released credit check hold on Header ID:'
1846: || p_header_id, 1);
1847: END IF;
1848: END IF; -- check calling action
1849: END IF; -- hold exist
1850: x_cc_result_out := l_cc_result_out;
1851:
1852: IF G_debug_flag = 'Y'
1853: THEN
1854: OE_DEBUG_PUB.Add('OEXVCRLB: Out Release_Order_CC_Hold');
1855: END IF;
1856:
1857: EXCEPTION
1858: WHEN OTHERS THEN
1880: BEGIN
1881:
1882: IF G_debug_flag = 'Y'
1883: THEN
1884: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Item_Category_Holds');
1885: END IF;
1886:
1887: l_return_status := FND_API.G_RET_STS_SUCCESS;
1888: FOR i IN 1..p_lines.count LOOP
1886:
1887: l_return_status := FND_API.G_RET_STS_SUCCESS;
1888: FOR i IN 1..p_lines.count LOOP
1889: IF p_item_category_id = p_lines(i).item_category_id THEN
1890: OE_DEBUG_PUB.Add('Line ID '||p_lines(i).line_id
1891: ||' fails ITEM limit ck',1);
1892: Update_Holds_Table
1893: ( p_holds_table => p_holds_table
1894: , p_line_id => p_lines(i).line_id
1905: END IF;
1906: END IF;
1907: END LOOP;
1908:
1909: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Item_Category_Holds');
1910:
1911: EXCEPTION
1912: WHEN OTHERS THEN
1913: OE_MSG_PUB.Add_Exc_Msg
1935: l_return_status VARCHAR2(30);
1936: BEGIN
1937: IF G_debug_flag = 'Y'
1938: THEN
1939: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Other_Holds');
1940: END IF;
1941:
1942: Update_Holds_Table
1943: ( p_holds_table => p_holds_table
1951: );
1952:
1953: IF G_debug_flag = 'Y'
1954: THEN
1955: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Other_Holds');
1956: END IF;
1957:
1958: EXCEPTION
1959: WHEN OTHERS THEN
1998: BEGIN
1999:
2000: IF G_debug_flag = 'Y'
2001: THEN
2002: OE_DEBUG_PUB.ADD('OEXVCRLB: In Release_Line_CC_Hold');
2003: OE_DEBUG_PUB.ADD('Processing line ID = '||
2004: p_line_id );
2005: END IF;
2006:
1999:
2000: IF G_debug_flag = 'Y'
2001: THEN
2002: OE_DEBUG_PUB.ADD('OEXVCRLB: In Release_Line_CC_Hold');
2003: OE_DEBUG_PUB.ADD('Processing line ID = '||
2004: p_line_id );
2005: END IF;
2006:
2007: l_return_status := FND_API.G_RET_STS_SUCCESS;
2080: END IF; -- check calling action
2081: ELSE
2082: IF G_debug_flag = 'Y'
2083: THEN
2084: OE_DEBUG_PUB.ADD(' No Hold exist to be Released ');
2085: END IF;
2086: END IF; -- Holds Exist IF
2087:
2088: x_cc_result_out := l_cc_result_out;
2088: x_cc_result_out := l_cc_result_out;
2089:
2090: IF G_debug_flag = 'Y'
2091: THEN
2092: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2093: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Release_Line_CC_Hold');
2094: END IF;
2095:
2096: EXCEPTION
2089:
2090: IF G_debug_flag = 'Y'
2091: THEN
2092: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2093: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Release_Line_CC_Hold');
2094: END IF;
2095:
2096: EXCEPTION
2097: WHEN OTHERS THEN
2130:
2131: BEGIN
2132: IF G_debug_flag = 'Y'
2133: THEN
2134: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2131: BEGIN
2132: IF G_debug_flag = 'Y'
2133: THEN
2134: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2132: IF G_debug_flag = 'Y'
2133: THEN
2134: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2133: THEN
2134: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2134: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2142: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2135: OE_DEBUG_PUB.ADD(' ', 2);
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2142: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2143: END IF;
2136: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2142: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2143: END IF;
2144:
2137: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2142: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2143: END IF;
2144:
2145: -- Initialize return status to success
2138: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2139: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2140: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2141: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2142: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2143: END IF;
2144:
2145: -- Initialize return status to success
2146: x_return_status := FND_API.G_RET_STS_SUCCESS;
2169: END IF;
2170:
2171: IF G_debug_flag = 'Y'
2172: THEN
2173: OE_DEBUG_PUB.ADD(' l_customer_id = '|| l_customer_id );
2174: OE_DEBUG_PUB.ADD(' Call GET_transaction_amount ' );
2175: END IF;
2176:
2177: OE_CREDIT_CHECK_UTIL.GET_transaction_amount
2170:
2171: IF G_debug_flag = 'Y'
2172: THEN
2173: OE_DEBUG_PUB.ADD(' l_customer_id = '|| l_customer_id );
2174: OE_DEBUG_PUB.ADD(' Call GET_transaction_amount ' );
2175: END IF;
2176:
2177: OE_CREDIT_CHECK_UTIL.GET_transaction_amount
2178: ( p_header_id => p_header_rec.header_id
2188: );
2189:
2190: IF G_debug_flag = 'Y'
2191: THEN
2192: OE_DEBUG_PUB.ADD(' Out of GET with status '
2193: || x_return_status );
2194: OE_DEBUG_PUB.ADD(' ERR curr tbl count = '
2195: || x_conversion_status.COUNT );
2196: END IF;
2190: IF G_debug_flag = 'Y'
2191: THEN
2192: OE_DEBUG_PUB.ADD(' Out of GET with status '
2193: || x_return_status );
2194: OE_DEBUG_PUB.ADD(' ERR curr tbl count = '
2195: || x_conversion_status.COUNT );
2196: END IF;
2197:
2198: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2202: END IF;
2203:
2204: IF G_debug_flag = 'Y'
2205: THEN
2206: OE_DEBUG_PUB.ADD(' l_order_value = '|| l_order_value );
2207: END IF;
2208:
2209:
2210: IF l_order_value > NVL(p_trx_credit_limit, l_order_value) THEN
2243: END IF;
2244:
2245: IF G_debug_flag = 'Y'
2246: THEN
2247: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2248: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2249: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2250: OE_DEBUG_PUB.ADD(' ' );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2244:
2245: IF G_debug_flag = 'Y'
2246: THEN
2247: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2248: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2249: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2250: OE_DEBUG_PUB.ADD(' ' );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2252: END IF;
2245: IF G_debug_flag = 'Y'
2246: THEN
2247: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2248: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2249: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2250: OE_DEBUG_PUB.ADD(' ' );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2252: END IF;
2253: EXCEPTION
2246: THEN
2247: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2248: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2249: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2250: OE_DEBUG_PUB.ADD(' ' );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2252: END IF;
2253: EXCEPTION
2254: WHEN others THEN
2247: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2248: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2249: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2250: OE_DEBUG_PUB.ADD(' ' );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2252: END IF;
2253: EXCEPTION
2254: WHEN others THEN
2255: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2252: END IF;
2253: EXCEPTION
2254: WHEN others THEN
2255: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2258: OE_MSG_PUB.Add_Exc_Msg
2259: ( G_PKG_NAME
2259: ( G_PKG_NAME
2260: , 'Check_Trx_Limit'
2261: );
2262: END IF;
2263: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2264: END Check_Trx_Limit;
2265:
2266: -----------------------------------------------------+
2267: -- A trx is subject to credit check if all the |
2305: x_global_exposure_flag := 'N' ;
2306:
2307: IF G_debug_flag = 'Y'
2308: THEN
2309: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2306:
2307: IF G_debug_flag = 'Y'
2308: THEN
2309: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2307: IF G_debug_flag = 'Y'
2308: THEN
2309: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2308: THEN
2309: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2316: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2309: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2316: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2317: END IF;
2310: OE_DEBUG_PUB.ADD(' ' );
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2316: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2317: END IF;
2318:
2311: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2316: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2317: END IF;
2318:
2319: ------------------------------------------------
2312: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2313: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2314: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2315: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2316: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2317: END IF;
2318:
2319: ------------------------------------------------
2320: -- Program Logic: |
2367:
2368:
2369: IF G_debug_flag = 'Y'
2370: THEN
2371: OE_DEBUG_PUB.ADD(' after Get_Limit_Info ');
2372: END IF;
2373:
2374: IF (x_trx_credit_limit IS NULL AND
2375: x_overall_credit_limit IS NULL )
2381: END IF;
2382:
2383: IF G_debug_flag = 'Y'
2384: THEN
2385: OE_DEBUG_PUB.ADD(' ');
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2382:
2383: IF G_debug_flag = 'Y'
2384: THEN
2385: OE_DEBUG_PUB.ADD(' ');
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2383: IF G_debug_flag = 'Y'
2384: THEN
2385: OE_DEBUG_PUB.ADD(' ');
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2384: THEN
2385: OE_DEBUG_PUB.ADD(' ');
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2385: OE_DEBUG_PUB.ADD(' ');
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2386: OE_DEBUG_PUB.Add(' ');
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2387: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2388: OE_DEBUG_PUB.Add(' -------------------------------------------');
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2389: OE_DEBUG_PUB.Add(' ');
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2390: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2391: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2392: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2400: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2393: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2394: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2400: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2401: OE_DEBUG_PUB.ADD(' ');
2395: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2400: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2401: OE_DEBUG_PUB.ADD(' ');
2402: END IF;
2403:
2396: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2400: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2401: OE_DEBUG_PUB.ADD(' ');
2402: END IF;
2403:
2404: FOR K IN 1..x_usage_curr.COUNT
2397: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2398: x_credit_limit_entity_id );
2399: OE_DEBUG_PUB.ADD(' ');
2400: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2401: OE_DEBUG_PUB.ADD(' ');
2402: END IF;
2403:
2404: FOR K IN 1..x_usage_curr.COUNT
2405: LOOP
2404: FOR K IN 1..x_usage_curr.COUNT
2405: LOOP
2406: IF G_debug_flag = 'Y'
2407: THEN
2408: OE_DEBUG_PUB.Add(' Usage currency ' || k || ' => ' ||
2409: x_usage_curr(K).usage_curr_code );
2410: END IF;
2411: END LOOP ;
2412:
2411: END LOOP ;
2412:
2413: IF G_debug_flag = 'Y'
2414: THEN
2415: OE_DEBUG_PUB.ADD(' ');
2416: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2417: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2418: END IF;
2419: EXCEPTION
2412:
2413: IF G_debug_flag = 'Y'
2414: THEN
2415: OE_DEBUG_PUB.ADD(' ');
2416: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2417: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2418: END IF;
2419: EXCEPTION
2420: WHEN OTHERS THEN
2413: IF G_debug_flag = 'Y'
2414: THEN
2415: OE_DEBUG_PUB.ADD(' ');
2416: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2417: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2418: END IF;
2419: EXCEPTION
2420: WHEN OTHERS THEN
2421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2425: , 'Validate_other_credit_check'
2426: );
2427: END IF;
2428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2429: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2430: END Validate_other_credit_check;
2431:
2432: -----------------------------------------------------------
2433: -- PROCEDURE: Check_Order_lines_exposure PUBLIC
2482: BEGIN
2483:
2484: IF G_debug_flag = 'Y'
2485: THEN
2486: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2483:
2484: IF G_debug_flag = 'Y'
2485: THEN
2486: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2484: IF G_debug_flag = 'Y'
2485: THEN
2486: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2485: THEN
2486: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2486: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2487: OE_DEBUG_PUB.Add(' ');
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2488: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2496: p_include_all_flag );
2489: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2490: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2496: p_include_all_flag );
2497: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2491: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2492: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2496: p_include_all_flag );
2497: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2498: p_default_limit_flag );
2499: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2493: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2494: p_limit_curr_code );
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2496: p_include_all_flag );
2497: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2498: p_default_limit_flag );
2499: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2500: p_overall_credit_limit );
2501: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2495: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2496: p_include_all_flag );
2497: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2498: p_default_limit_flag );
2499: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2500: p_overall_credit_limit );
2501: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2502: p_global_exposure_flag );
2503: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2497: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2498: p_default_limit_flag );
2499: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2500: p_overall_credit_limit );
2501: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2502: p_global_exposure_flag );
2503: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2504: p_credit_limit_entity_id);
2505: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2499: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2500: p_overall_credit_limit );
2501: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2502: p_global_exposure_flag );
2503: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2504: p_credit_limit_entity_id);
2505: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2506: OE_DEBUG_PUB.Add(' ');
2507: END IF;
2501: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2502: p_global_exposure_flag );
2503: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2504: p_credit_limit_entity_id);
2505: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2506: OE_DEBUG_PUB.Add(' ');
2507: END IF;
2508:
2509: l_current_order_value := 0 ;
2502: p_global_exposure_flag );
2503: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2504: p_credit_limit_entity_id);
2505: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2506: OE_DEBUG_PUB.Add(' ');
2507: END IF;
2508:
2509: l_current_order_value := 0 ;
2510:
2534: x_return_status := FND_API.G_RET_STS_SUCCESS;
2535: x_total_exposure := 0 ;
2536: l_current_order_value := 0 ;
2537:
2538: OE_DEBUG_PUB.ADD( ' Call Get_Exposure ');
2539:
2540: OE_CREDIT_EXPOSURE_PVT.Get_Exposure
2541: ( p_customer_id => l_customer_id
2542: , p_site_use_id => l_site_id
2558: );
2559:
2560: IF G_debug_flag = 'Y'
2561: THEN
2562: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2563: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2564: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2565: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2566: END IF;
2559:
2560: IF G_debug_flag = 'Y'
2561: THEN
2562: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2563: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2564: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2565: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2566: END IF;
2567:
2560: IF G_debug_flag = 'Y'
2561: THEN
2562: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2563: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2564: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2565: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2566: END IF;
2567:
2568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2561: THEN
2562: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2563: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2564: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2565: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2566: END IF;
2567:
2568: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2569: RAISE FND_API.G_EXC_ERROR;
2602: END IF;
2603:
2604: IF G_debug_flag = 'Y'
2605: THEN
2606: OE_DEBUG_PUB.Add('l_current_order_value => '
2607: || l_current_order_value );
2608: END IF;
2609:
2610:
2616: ---------------------------------------------------
2617:
2618: IF G_debug_flag = 'Y'
2619: THEN
2620: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2621: OE_DEBUG_PUB.Add('p_overall_credit_limit = '|| p_overall_credit_limit );
2622: END IF;
2623:
2624: IF NVL(x_total_exposure,0) > p_overall_credit_limit
2617:
2618: IF G_debug_flag = 'Y'
2619: THEN
2620: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2621: OE_DEBUG_PUB.Add('p_overall_credit_limit = '|| p_overall_credit_limit );
2622: END IF;
2623:
2624: IF NVL(x_total_exposure,0) > p_overall_credit_limit
2625: THEN
2631: IF NVL(x_error_curr_tbl.COUNT,0) > 0
2632: THEN
2633: x_cc_result_out := 'FAIL' ;
2634:
2635: OE_DEBUG_PUB.Add(' Currency conversion failed ');
2636:
2637: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2638: FND_MESSAGE.Set_Token('FROM',x_error_curr_tbl(1).usage_curr_code);
2639: FND_MESSAGE.Set_Token('TO',p_limit_curr_code );
2656:
2657:
2658: OE_MSG_PUB.ADD;
2659: x_return_status := FND_API.G_RET_STS_ERROR;
2660: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2661: || x_return_status );
2662: END IF;
2663:
2664:
2669: x_cc_result_out := 'PASS';
2670:
2671: IF G_debug_flag = 'Y'
2672: THEN
2673: OE_DEBUG_PUB.Add(' No need to check exposure, UNLIMITED ');
2674: END IF;
2675: END IF;
2676:
2677: IF G_debug_flag = 'Y'
2675: END IF;
2676:
2677: IF G_debug_flag = 'Y'
2678: THEN
2679: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2680: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2681: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2682: END IF;
2683: EXCEPTION
2676:
2677: IF G_debug_flag = 'Y'
2678: THEN
2679: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2680: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2681: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2682: END IF;
2683: EXCEPTION
2684: WHEN others THEN
2677: IF G_debug_flag = 'Y'
2678: THEN
2679: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2680: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2681: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2682: END IF;
2683: EXCEPTION
2684: WHEN others THEN
2685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2682: END IF;
2683: EXCEPTION
2684: WHEN others THEN
2685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2686: OE_DEBUG_PUB.Add('CHECK_ORDER_LINES_EXPOSURE: Other exceptions');
2687: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2688: OE_MSG_PUB.Add_Exc_Msg
2689: ( G_PKG_NAME
2690: , 'CHECK_ORDER_LINES_EXPOSURE'
2690: , 'CHECK_ORDER_LINES_EXPOSURE'
2691: );
2692: END IF;
2693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2694: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2695: END CHECK_ORDER_LINES_EXPOSURE;
2696:
2697: -----------------------------------------------------------
2698: -- Check item category limits within the given site
2727: l_check_category_id NUMBER;
2728: l_limit_currency VARCHAR2(30);
2729:
2730: BEGIN
2731: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Item_Limits');
2732: --
2733: -- Initialize return status to success
2734: x_return_status := FND_API.G_RET_STS_SUCCESS;
2735: -- Default to Pass
2739: --
2740:
2741: l_include_tax_flag := p_credit_check_rule_rec.include_tax_flag ;
2742:
2743: OE_DEBUG_PUB.Add(' Call Get_Item_Limit ');
2744:
2745: OE_CREDIT_CHECK_UTIL.Get_Item_Limit
2746: ( p_header_id => p_header_rec.header_id
2747: , p_include_tax_flag => p_credit_check_rule_rec.include_tax_flag
2751: , x_lines_tbl => l_lines
2752: );
2753:
2754:
2755: OE_DEBUG_PUB.Add(' After Get_Item_Limit with item tbl count '
2756: || l_item_limits.COUNT );
2757:
2758: IF l_item_limits.count = 0
2759: THEN
2757:
2758: IF l_item_limits.count = 0
2759: THEN
2760: x_cc_result_out := 'NOCHECK';
2761: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2762:
2763: ELSE
2764: OE_DEBUG_PUB.Add(' start category loop ');
2765: OE_DEBUG_PUB.Add(' ======================== ');
2760: x_cc_result_out := 'NOCHECK';
2761: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2762:
2763: ELSE
2764: OE_DEBUG_PUB.Add(' start category loop ');
2765: OE_DEBUG_PUB.Add(' ======================== ');
2766:
2767: FOR i in 1..l_item_limits.count
2768: LOOP
2761: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2762:
2763: ELSE
2764: OE_DEBUG_PUB.Add(' start category loop ');
2765: OE_DEBUG_PUB.Add(' ======================== ');
2766:
2767: FOR i in 1..l_item_limits.count
2768: LOOP
2769: l_category_sum := 0;
2768: LOOP
2769: l_category_sum := 0;
2770: -- For each item category, sum the line values
2771: ----------------------------------------------
2772: OE_DEBUG_PUB.ADD(' ');
2773: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2774: OE_DEBUG_PUB.Add(' Category id = '
2775: || l_item_limits(i).item_category_id );
2776: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2769: l_category_sum := 0;
2770: -- For each item category, sum the line values
2771: ----------------------------------------------
2772: OE_DEBUG_PUB.ADD(' ');
2773: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2774: OE_DEBUG_PUB.Add(' Category id = '
2775: || l_item_limits(i).item_category_id );
2776: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2777: || l_item_limits(i).ctg_line_amount );
2770: -- For each item category, sum the line values
2771: ----------------------------------------------
2772: OE_DEBUG_PUB.ADD(' ');
2773: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2774: OE_DEBUG_PUB.Add(' Category id = '
2775: || l_item_limits(i).item_category_id );
2776: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2777: || l_item_limits(i).ctg_line_amount );
2778:
2772: OE_DEBUG_PUB.ADD(' ');
2773: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2774: OE_DEBUG_PUB.Add(' Category id = '
2775: || l_item_limits(i).item_category_id );
2776: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2777: || l_item_limits(i).ctg_line_amount );
2778:
2779: OE_DEBUG_PUB.Add(' limit_curr_code = '
2780: || l_item_limits(i).limit_curr_code );
2775: || l_item_limits(i).item_category_id );
2776: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2777: || l_item_limits(i).ctg_line_amount );
2778:
2779: OE_DEBUG_PUB.Add(' limit_curr_code = '
2780: || l_item_limits(i).limit_curr_code );
2781: OE_DEBUG_PUB.Add(' item_limit = '
2782: || l_item_limits(i).item_limit );
2783: OE_DEBUG_PUB.Add(' grouping = '
2777: || l_item_limits(i).ctg_line_amount );
2778:
2779: OE_DEBUG_PUB.Add(' limit_curr_code = '
2780: || l_item_limits(i).limit_curr_code );
2781: OE_DEBUG_PUB.Add(' item_limit = '
2782: || l_item_limits(i).item_limit );
2783: OE_DEBUG_PUB.Add(' grouping = '
2784: || l_item_limits(i).grouping_id );
2785:
2779: OE_DEBUG_PUB.Add(' limit_curr_code = '
2780: || l_item_limits(i).limit_curr_code );
2781: OE_DEBUG_PUB.Add(' item_limit = '
2782: || l_item_limits(i).item_limit );
2783: OE_DEBUG_PUB.Add(' grouping = '
2784: || l_item_limits(i).grouping_id );
2785:
2786: l_category_sum := l_item_limits(i).ctg_line_amount ;
2787:
2784: || l_item_limits(i).grouping_id );
2785:
2786: l_category_sum := l_item_limits(i).ctg_line_amount ;
2787:
2788: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2789: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2790: OE_Credit_Engine_GRP.GL_currency );
2791:
2792:
2785:
2786: l_category_sum := l_item_limits(i).ctg_line_amount ;
2787:
2788: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2789: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2790: OE_Credit_Engine_GRP.GL_currency );
2791:
2792:
2793: OE_DEBUG_PUB.ADD(' ');
2789: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2790: OE_Credit_Engine_GRP.GL_currency );
2791:
2792:
2793: OE_DEBUG_PUB.ADD(' ');
2794: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2795:
2796:
2797: l_check_category_id := l_item_limits(i).item_category_id ;
2790: OE_Credit_Engine_GRP.GL_currency );
2791:
2792:
2793: OE_DEBUG_PUB.ADD(' ');
2794: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2795:
2796:
2797: l_check_category_id := l_item_limits(i).item_category_id ;
2798: l_limit_currency := l_item_limits(i).limit_curr_code ;
2806: , p_conversion_date => SYSDATE
2807: , p_conversion_type => p_credit_check_rule_rec.conversion_type
2808: ) ;
2809:
2810: OE_DEBUG_PUB.Add
2811: (' l_limit_category_sum = '|| l_limit_category_sum );
2812:
2813: OE_DEBUG_PUB.Add
2814: (' Credit limit = '|| l_item_limits(i).item_limit );
2809:
2810: OE_DEBUG_PUB.Add
2811: (' l_limit_category_sum = '|| l_limit_category_sum );
2812:
2813: OE_DEBUG_PUB.Add
2814: (' Credit limit = '|| l_item_limits(i).item_limit );
2815:
2816: IF l_limit_category_sum > l_item_limits(i).item_limit
2817: THEN
2814: (' Credit limit = '|| l_item_limits(i).item_limit );
2815:
2816: IF l_limit_category_sum > l_item_limits(i).item_limit
2817: THEN
2818: OE_DEBUG_PUB.Add
2819: ('Fails item category ID: '|| l_item_limits(i).item_category_id);
2820:
2821: IF l_credit_hold_level = 'ORDER' THEN
2822:
2819: ('Fails item category ID: '|| l_item_limits(i).item_category_id);
2820:
2821: IF l_credit_hold_level = 'ORDER' THEN
2822:
2823: OE_DEBUG_PUB.Add
2824: (' Call Apply_Order_CC_Hold ');
2825:
2826: Apply_Order_CC_Hold
2827: ( p_header_id => p_header_rec.header_id
2837: );
2838: EXIT; -- stop checking item limits
2839: ELSE
2840:
2841: OE_DEBUG_PUB.Add
2842: (' Apply_Item_Category_Holds ');
2843:
2844: Apply_Item_Category_Holds
2845: ( p_header_id => p_header_rec.header_id
2859: l_limit_currency := NULL;
2860:
2861: END LOOP; -- category loop
2862:
2863: OE_DEBUG_PUB.ADD(' out of category loop ');
2864:
2865: x_cc_result_out := l_cc_result_out;
2866: END IF;
2867:
2864:
2865: x_cc_result_out := l_cc_result_out;
2866: END IF;
2867:
2868: OE_DEBUG_PUB.ADD(' x_cc_result_out = ' || x_cc_result_out );
2869:
2870: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Item_Limit');
2871:
2872: EXCEPTION
2866: END IF;
2867:
2868: OE_DEBUG_PUB.ADD(' x_cc_result_out = ' || x_cc_result_out );
2869:
2870: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Item_Limit');
2871:
2872: EXCEPTION
2873: WHEN GL_CURRENCY_API.NO_RATE
2874: THEN
2872: EXCEPTION
2873: WHEN GL_CURRENCY_API.NO_RATE
2874: THEN
2875: BEGIN
2876: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2877: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2878: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2879: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2880:
2873: WHEN GL_CURRENCY_API.NO_RATE
2874: THEN
2875: BEGIN
2876: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2877: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2878: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2879: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2880:
2881: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2874: THEN
2875: BEGIN
2876: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2877: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2878: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2879: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2880:
2881: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2882: FND_MESSAGE.Set_Token('FROM',p_header_rec.transactional_curr_code );
2875: BEGIN
2876: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2877: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2878: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2879: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2880:
2881: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2882: FND_MESSAGE.Set_Token('FROM',p_header_rec.transactional_curr_code );
2883: FND_MESSAGE.Set_Token('TO',l_limit_currency );
2898: NVL(p_credit_check_rule_rec.user_conversion_type,'Corporate'));
2899:
2900: OE_MSG_PUB.ADD ;
2901: x_return_status := FND_API.G_RET_STS_ERROR;
2902: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2903: || x_return_status );
2904: END IF;
2905:
2906: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
2902: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2903: || x_return_status );
2904: END IF;
2905:
2906: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
2907: END;
2908:
2909: WHEN others THEN
2910: OE_DEBUG_PUB.Add('Check_Item_Limit: Other exceptions');
2906: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
2907: END;
2908:
2909: WHEN others THEN
2910: OE_DEBUG_PUB.Add('Check_Item_Limit: Other exceptions');
2911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2912: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2913: OE_MSG_PUB.Add_Exc_Msg
2914: ( G_PKG_NAME
2914: ( G_PKG_NAME
2915: , 'Check_Item_Limits'
2916: );
2917: END IF;
2918: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2919: END Check_Item_Limits;
2920:
2921: ------------------------------------------------------------
2922: -- PROCEDURE: Check_Other_Credit_Limits PRIVATE
3003: l_cc_overall_result_out := 'PASS';
3004:
3005: IF G_debug_flag = 'Y'
3006: THEN
3007: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3004:
3005: IF G_debug_flag = 'Y'
3006: THEN
3007: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3005: IF G_debug_flag = 'Y'
3006: THEN
3007: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3006: THEN
3007: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3014: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3007: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3014: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3015: END IF;
3008: OE_DEBUG_PUB.ADD(' ' );
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3014: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3015: END IF;
3016: --
3009: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3014: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3015: END IF;
3016: --
3017: -----------------------------------------------------------
3010: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3011: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3012: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3013: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3014: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3015: END IF;
3016: --
3017: -----------------------------------------------------------
3018: -- Check if order site use needs credit check. Also |
3042: );
3043:
3044: IF G_debug_flag = 'Y'
3045: THEN
3046: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3047: || x_return_status );
3048: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3049: x_global_exposure_flag );
3050: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3044: IF G_debug_flag = 'Y'
3045: THEN
3046: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3047: || x_return_status );
3048: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3049: x_global_exposure_flag );
3050: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3051: l_credit_limit_entity_id );
3052: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3046: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3047: || x_return_status );
3048: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3049: x_global_exposure_flag );
3050: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3051: l_credit_limit_entity_id );
3052: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3053: END IF;
3054:
3048: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3049: x_global_exposure_flag );
3050: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3051: l_credit_limit_entity_id );
3052: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3053: END IF;
3054:
3055: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3056: RAISE FND_API.G_EXC_ERROR;
3100: );
3101:
3102: IF G_debug_flag = 'Y'
3103: THEN
3104: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Result Out ='
3105: ||l_cc_duedate_result_out);
3106: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Return Status ='
3107: || x_return_status );
3108:
3102: IF G_debug_flag = 'Y'
3103: THEN
3104: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Result Out ='
3105: ||l_cc_duedate_result_out);
3106: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Return Status ='
3107: || x_return_status );
3108:
3109: END IF;
3110:
3161: );
3162:
3163: IF G_debug_flag = 'Y'
3164: THEN
3165: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3166: ||l_cc_trx_result_out);
3167: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3168: || x_return_status );
3169: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3163: IF G_debug_flag = 'Y'
3164: THEN
3165: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3166: ||l_cc_trx_result_out);
3167: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3168: || x_return_status );
3169: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3170:
3171: END IF;
3165: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3166: ||l_cc_trx_result_out);
3167: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3168: || x_return_status );
3169: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3170:
3171: END IF;
3172:
3173: IF l_cc_trx_result_out = 'FAIL' THEN
3209: x_check_exposure_mode := 'INLINE';
3210:
3211: IF G_debug_flag = 'Y'
3212: THEN
3213: OE_DEBUG_PUB.Add(' x_check_exposure_mode = '
3214: || x_check_exposure_mode );
3215: END IF;
3216: -------------------------------------------------
3217: -- l_prev_customer_id is used to keep track of the
3225: -- level
3226: ---------------------------------------------------
3227: IF G_debug_flag = 'Y'
3228: THEN
3229: OE_DEBUG_PUB.Add(' l_prev_customer_id = '|| l_prev_customer_id );
3230: END IF;
3231:
3232: IF ( ( x_credit_level NOT IN ( 'CUSTOMER','PARTY') )
3233: OR
3260:
3261:
3262: IF G_debug_flag = 'Y'
3263: THEN
3264: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3265: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3266: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3267: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3268: OE_DEBUG_PUB.Add('Err curr table count = '||
3261:
3262: IF G_debug_flag = 'Y'
3263: THEN
3264: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3265: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3266: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3267: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3268: OE_DEBUG_PUB.Add('Err curr table count = '||
3269: l_error_curr_tbl.COUNT );
3262: IF G_debug_flag = 'Y'
3263: THEN
3264: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3265: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3266: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3267: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3268: OE_DEBUG_PUB.Add('Err curr table count = '||
3269: l_error_curr_tbl.COUNT );
3270: END IF;
3263: THEN
3264: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3265: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3266: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3267: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3268: OE_DEBUG_PUB.Add('Err curr table count = '||
3269: l_error_curr_tbl.COUNT );
3270: END IF;
3271: --Bug 4320650
3264: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3265: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3266: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3267: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3268: OE_DEBUG_PUB.Add('Err curr table count = '||
3269: l_error_curr_tbl.COUNT );
3270: END IF;
3271: --Bug 4320650
3272: l_unrounded_exposure := l_total_exposure;
3290:
3291: ELSE
3292: IF G_debug_flag = 'Y'
3293: THEN
3294: OE_DEBUG_PUB.Add('customer exposure already checked');
3295: END IF;
3296:
3297: -- customer exposure already checked, retrieve the result
3298: l_cc_result_out := l_customer_result_out;
3345: END IF;
3346: ELSE
3347: IF G_debug_flag = 'Y'
3348: THEN
3349: OE_DEBUG_PUB.Add('No credit check required');
3350: END IF;
3351:
3352: l_cc_result_out := 'NOCHECK';
3353: END IF;
3419: l_source_security_group_id := FND_PROFILE.VALUE('SECURITY_GROUP_ID');
3420:
3421: IF G_debug_flag = 'Y'
3422: THEN
3423: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3424: credit check level= '||x_credit_level);
3425:
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3422: THEN
3423: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3424: credit check level= '||x_credit_level);
3425:
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3423: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3424: credit check level= '||x_credit_level);
3425:
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3424: credit check level= '||x_credit_level);
3425:
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3425:
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3426: OE_DEBUG_PUB.Add('Parameters: ');
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3427: OE_DEBUG_PUB.Add('-------------------------------------------');
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3428: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3429: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3430: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3431: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3432: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3433: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
3434: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3435: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3436: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3437: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3438: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3439: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3440: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3441: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3442: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3443: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3444: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3445: OE_DEBUG_PUB.Add('p_notes = NULL');
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3446: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3454: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3447: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3454: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3455: TO_CHAR(p_header_rec.order_number));
3448: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3449: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3454: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3455: TO_CHAR(p_header_rec.order_number));
3456: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3450: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3451: OE_DEBUG_PUB.Add('p_source_name = OM');
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3454: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3455: TO_CHAR(p_header_rec.order_number));
3456: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3457:
3458: END IF;
3452: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3453: TO_CHAR(p_header_rec.header_id));
3454: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3455: TO_CHAR(p_header_rec.order_number));
3456: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3457:
3458: END IF;
3459: ----------------Submit Credit Review--------------------
3460: AR_CMGT_CREDIT_REQUEST_API.Create_credit_request
3507: IF G_debug_flag = 'Y'
3508: THEN
3509: IF x_return_status='S'
3510: THEN
3511: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
3512: ||TO_CHAR(l_request_id));
3513: ELSE
3514: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3515: END IF;
3510: THEN
3511: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
3512: ||TO_CHAR(l_request_id));
3513: ELSE
3514: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3515: END IF;
3516:
3517: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3518: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3513: ELSE
3514: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3515: END IF;
3516:
3517: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3518: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3519: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3520: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3521:
3514: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3515: END IF;
3516:
3517: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3518: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3519: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3520: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3521:
3522: END IF;
3515: END IF;
3516:
3517: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3518: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3519: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3520: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3521:
3522: END IF;
3523:
3516:
3517: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3518: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3519: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3520: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3521:
3522: END IF;
3523:
3524: END IF;
3532:
3533:
3534: -- ER 6135714
3535: IF G_debug_flag = 'Y' THEN
3536: OE_DEBUG_PUB.Add('Applying Hold for hold line sequence ');
3537: END IF;
3538:
3539: IF (l_hold_line_seq = '1' OR p_calling_action = 'BOOKING'
3540: OR nvl(p_credit_check_rule_rec.uninvoiced_orders_flag,'N') = 'Y') THEN
3538:
3539: IF (l_hold_line_seq = '1' OR p_calling_action = 'BOOKING'
3540: OR nvl(p_credit_check_rule_rec.uninvoiced_orders_flag,'N') = 'Y') THEN
3541: IF G_debug_flag = 'Y' THEN
3542: OE_DEBUG_PUB.Add('Applying Hold for all hold line sequence option');
3543: END IF;
3544: -- ER 6135714
3545: Apply_Other_Holds
3546: ( p_header_id => p_header_rec.header_id
3581: END IF;
3582:
3583: IF G_debug_flag = 'Y'
3584: THEN
3585: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_Other_Credit Limits');
3586: END IF;
3587:
3588:
3589: EXCEPTION
3598: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3599: OE_MSG_PUB.Add_Exc_Msg
3600: ( G_PKG_NAME, 'Check_Other_Credit_Limits');
3601: END IF;
3602: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
3603:
3604: END Check_Other_Credit_Limits;
3605:
3606: -------------------------------------------------
3629:
3630: BEGIN
3631: IF G_debug_flag = 'Y'
3632: THEN
3633: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
3634: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
3635: OE_DEBUG_PUB.Add('start Loop for holds table');
3636: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
3637: END IF;
3630: BEGIN
3631: IF G_debug_flag = 'Y'
3632: THEN
3633: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
3634: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
3635: OE_DEBUG_PUB.Add('start Loop for holds table');
3636: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
3637: END IF;
3638:
3631: IF G_debug_flag = 'Y'
3632: THEN
3633: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
3634: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
3635: OE_DEBUG_PUB.Add('start Loop for holds table');
3636: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
3637: END IF;
3638:
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3632: THEN
3633: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
3634: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
3635: OE_DEBUG_PUB.Add('start Loop for holds table');
3636: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
3637: END IF;
3638:
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3640: --
3672: );
3673:
3674: IF G_debug_flag = 'Y'
3675: THEN
3676: OE_DEBUG_PUB.Add('Apply Hold: l_result_out = '|| l_result_out);
3677: END IF;
3678:
3679: IF l_result_out = 'FAIL_HOLD' THEN
3680: l_cc_result_out := l_result_out;
3710: THEN
3711: BEGIN
3712: IF G_debug_flag = 'Y'
3713: THEN
3714: OE_DEBUG_PUB.ADD('Call Releases_Order_Cc_Hold ');
3715: OE_DEBUG_PUB.ADD('Before G_hdr_hold_released = '||
3716: G_hdr_hold_released );
3717: END IF;
3718:
3711: BEGIN
3712: IF G_debug_flag = 'Y'
3713: THEN
3714: OE_DEBUG_PUB.ADD('Call Releases_Order_Cc_Hold ');
3715: OE_DEBUG_PUB.ADD('Before G_hdr_hold_released = '||
3716: G_hdr_hold_released );
3717: END IF;
3718:
3719: Release_Order_CC_Hold
3744:
3745: ELSE
3746: IF G_debug_flag = 'Y'
3747: THEN
3748: OE_DEBUG_PUB.ADD('Header holds released already');
3749: END IF;
3750: END IF;
3751: l_cc_hdr_result_out := NULL ;
3752: END IF; -- End HDR_HOLD
3758: x_cc_result_out := l_cc_result_out;
3759:
3760: IF G_debug_flag = 'Y'
3761: THEN
3762: OE_DEBUG_PUB.Add('x_cc_result_out => '|| x_cc_result_out );
3763: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_And_Release_Holds');
3764: END IF;
3765: EXCEPTION
3766: WHEN others THEN
3759:
3760: IF G_debug_flag = 'Y'
3761: THEN
3762: OE_DEBUG_PUB.Add('x_cc_result_out => '|| x_cc_result_out );
3763: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_And_Release_Holds');
3764: END IF;
3765: EXCEPTION
3766: WHEN others THEN
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770: ( G_PKG_NAME
3771: , 'Apply_And_Release_Holds'
3772: );
3773: END IF;
3774: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
3775: END Apply_And_Release_Holds;
3776:
3777: ------------------------------------------------+
3778: -- Mainline Function that will read an Order |
3867:
3868: BEGIN
3869: IF G_debug_flag = 'Y'
3870: THEN
3871: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_order_lines_credit API',1);
3872: END IF;
3873:
3874: --
3875: -- Set the default behavior to pass credit check
3888: l_credit_hold_level := p_credit_check_rule_rec.CREDIT_HOLD_LEVEL_CODE ;
3889:
3890: IF G_debug_flag = 'Y'
3891: THEN
3892: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
3893: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
3894: l_credit_hold_level );
3895: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
3896: G_hdr_hold_released);
3889:
3890: IF G_debug_flag = 'Y'
3891: THEN
3892: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
3893: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
3894: l_credit_hold_level );
3895: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
3896: G_hdr_hold_released);
3897: OE_DEBUG_PUB.Add('Inital G_release_status = '||
3891: THEN
3892: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
3893: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
3894: l_credit_hold_level );
3895: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
3896: G_hdr_hold_released);
3897: OE_DEBUG_PUB.Add('Inital G_release_status = '||
3898: G_release_status );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3893: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
3894: l_credit_hold_level );
3895: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
3896: G_hdr_hold_released);
3897: OE_DEBUG_PUB.Add('Inital G_release_status = '||
3898: G_release_status );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3895: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
3896: G_hdr_hold_released);
3897: OE_DEBUG_PUB.Add('Inital G_release_status = '||
3898: G_release_status );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3897: OE_DEBUG_PUB.Add('Inital G_release_status = '||
3898: G_release_status );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3898: G_release_status );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3899: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3900: OE_Credit_Engine_GRP.G_currency_error_msg );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3901: OE_DEBUG_PUB.Add(' ');
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3909: OE_DEBUG_PUB.Add(' conversion type = '
3902: OE_DEBUG_PUB.Add(' ---------------------------------------');
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3909: OE_DEBUG_PUB.Add(' conversion type = '
3910: || p_credit_check_rule_rec.conversion_type );
3903: OE_DEBUG_PUB.Add(' ');
3904: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3909: OE_DEBUG_PUB.Add(' conversion type = '
3910: || p_credit_check_rule_rec.conversion_type );
3911: OE_DEBUG_PUB.Add(' Credit check level = '
3905: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
3906: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3909: OE_DEBUG_PUB.Add(' conversion type = '
3910: || p_credit_check_rule_rec.conversion_type );
3911: OE_DEBUG_PUB.Add(' Credit check level = '
3912: || p_credit_check_rule_rec.credit_check_level_code );
3913:
3907: OE_DEBUG_PUB.Add(' Credit check rule ID = '
3908: || p_credit_check_rule_rec.credit_check_rule_id );
3909: OE_DEBUG_PUB.Add(' conversion type = '
3910: || p_credit_check_rule_rec.conversion_type );
3911: OE_DEBUG_PUB.Add(' Credit check level = '
3912: || p_credit_check_rule_rec.credit_check_level_code );
3913:
3914: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
3915: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
3910: || p_credit_check_rule_rec.conversion_type );
3911: OE_DEBUG_PUB.Add(' Credit check level = '
3912: || p_credit_check_rule_rec.credit_check_level_code );
3913:
3914: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
3915: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
3916: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3912: || p_credit_check_rule_rec.credit_check_level_code );
3913:
3914: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
3915: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
3916: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3919: OE_DEBUG_PUB.Add(' ---------------------------------------');
3920: OE_DEBUG_PUB.Add(' ');
3914: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
3915: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
3916: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3919: OE_DEBUG_PUB.Add(' ---------------------------------------');
3920: OE_DEBUG_PUB.Add(' ');
3921: OE_DEBUG_PUB.Add('start SITE loop ');
3922: END IF;
3915: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
3916: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3919: OE_DEBUG_PUB.Add(' ---------------------------------------');
3920: OE_DEBUG_PUB.Add(' ');
3921: OE_DEBUG_PUB.Add('start SITE loop ');
3922: END IF;
3923:
3916: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3919: OE_DEBUG_PUB.Add(' ---------------------------------------');
3920: OE_DEBUG_PUB.Add(' ');
3921: OE_DEBUG_PUB.Add('start SITE loop ');
3922: END IF;
3923:
3924: -- bug 4767772
3917: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
3918: OE_DEBUG_PUB.Add(' ');
3919: OE_DEBUG_PUB.Add(' ---------------------------------------');
3920: OE_DEBUG_PUB.Add(' ');
3921: OE_DEBUG_PUB.Add('start SITE loop ');
3922: END IF;
3923:
3924: -- bug 4767772
3925: -- release the credit hold for lines with credit check flag not enabled.
3937: );
3938:
3939: IF G_debug_flag = 'Y'
3940: THEN
3941: oe_debug_pub.add ('line level credit checking hold is released for line: '||c_lines.line_id,3);
3942: oe_debug_pub.add ('l_cc_result_out is : '||l_cc_result_out ,3);
3943: END IF;
3944:
3945: END LOOP;
3938:
3939: IF G_debug_flag = 'Y'
3940: THEN
3941: oe_debug_pub.add ('line level credit checking hold is released for line: '||c_lines.line_id,3);
3942: oe_debug_pub.add ('l_cc_result_out is : '||l_cc_result_out ,3);
3943: END IF;
3944:
3945: END LOOP;
3946:
3950: FOR c_site IN cust_and_site_csr
3951: LOOP
3952: IF G_debug_flag = 'Y'
3953: THEN
3954: OE_DEBUG_PUB.ADD('OEXVCRLB: HeaderID/SiteUseID:' ||
3955: p_header_rec.header_id || '/' || c_site.site_use_id, 1);
3956: END IF;
3957:
3958: l_own_customer_id := NULL ;
3971:
3972:
3973: IF G_debug_flag = 'Y'
3974: THEN
3975: OE_DEBUG_PUB.ADD(' l_own_customer_id = '|| l_own_customer_id );
3976: END IF;
3977:
3978: EXCEPTION
3979: WHEN NO_DATA_FOUND
3977:
3978: EXCEPTION
3979: WHEN NO_DATA_FOUND
3980: THEN
3981: OE_DEBUG_PUB.ADD(' Exception - No data found ');
3982: RAISE;
3983: WHEN TOO_MANY_ROWS
3984: THEN
3985: OE_DEBUG_PUB.ADD(' Exception - TOO_MANY_ROWS');
3981: OE_DEBUG_PUB.ADD(' Exception - No data found ');
3982: RAISE;
3983: WHEN TOO_MANY_ROWS
3984: THEN
3985: OE_DEBUG_PUB.ADD(' Exception - TOO_MANY_ROWS');
3986: RAISE;
3987: END ;
3988:
3989:
4003: );
4004:
4005: IF G_debug_flag = 'Y'
4006: THEN
4007: OE_DEBUG_PUB.Add('PLSQL Holds table created');
4008: END IF;
4009: ----------------------------------------------------------
4010: -- Perform item category credit check for the order site
4011: -- IF the check failed,
4024: ---------------------------------------------------+
4025:
4026: IF G_debug_flag = 'Y'
4027: THEN
4028: OE_DEBUG_PUB.Add(' table count = '|| l_holds_table.COUNT );
4029: END IF;
4030:
4031: IF l_holds_table.COUNT > 0
4032: THEN
4051: x_return_status := FND_API.G_RET_STS_SUCCESS;
4052:
4053: IF G_debug_flag = 'Y'
4054: THEN
4055: OE_DEBUG_PUB.Add(' No check item categories, Flag OFF ');
4056: END IF;
4057:
4058: END IF;
4059:
4075: l_release_order_hold := 'N';
4076:
4077: IF G_debug_flag = 'Y'
4078: THEN
4079: OE_DEBUG_PUB.Add(' Exit SITE loop as order failed ');
4080: END IF;
4081:
4082: EXIT;
4083:
4116: );
4117:
4118: IF G_debug_flag = 'Y'
4119: THEN
4120: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits : Result Out = '
4121: || l_cc_result_out );
4122: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
4123: || x_return_status );
4124: END IF;
4118: IF G_debug_flag = 'Y'
4119: THEN
4120: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits : Result Out = '
4121: || l_cc_result_out );
4122: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
4123: || x_return_status );
4124: END IF;
4125:
4126:
4139: l_release_order_hold := 'N';
4140:
4141: IF G_debug_flag = 'Y'
4142: THEN
4143: OE_DEBUG_PUB.Add(' Exit site loop as FAILED ');
4144: END IF;
4145:
4146: EXIT; --exit out of bill-to site loop
4147:
4195: THEN
4196:
4197: IF G_debug_flag = 'Y'
4198: THEN
4199: OE_DEBUG_PUB.Add('Calling Create_credit_request ');
4200: END IF;
4201: -- bug 5907331
4202: l_review_party_id := l_party_id;
4203: ------check if the credit check level is PARTY, CUSTOMER or SITE
4229: FND_PROFILE.VALUE('SECURITY_GROUP_ID');
4230:
4231: IF G_debug_flag = 'Y'
4232: THEN
4233: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4234: credit check level= '||l_credit_level);
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4231: IF G_debug_flag = 'Y'
4232: THEN
4233: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4234: credit check level= '||l_credit_level);
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4232: THEN
4233: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4234: credit check level= '||l_credit_level);
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4233: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4234: credit check level= '||l_credit_level);
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4234: credit check level= '||l_credit_level);
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4235: OE_DEBUG_PUB.Add('Parameters: ');
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4243: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4236: OE_DEBUG_PUB.Add('-------------------------------------------');
4237: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4243: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4244: OE_DEBUG_PUB.Add('p_trx_amount= '||
4238: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4239: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4243: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4244: OE_DEBUG_PUB.Add('p_trx_amount= '||
4245: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4240: OE_DEBUG_PUB.Add('p_requested_amount= '||
4241: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4243: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4244: OE_DEBUG_PUB.Add('p_trx_amount= '||
4245: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4247: p_header_rec.transactional_curr_code );
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4242: OE_DEBUG_PUB.Add('p_requested_currency= '||
4243: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4244: OE_DEBUG_PUB.Add('p_trx_amount= '||
4245: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4247: p_header_rec.transactional_curr_code );
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4244: OE_DEBUG_PUB.Add('p_trx_amount= '||
4245: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4247: p_header_rec.transactional_curr_code );
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4245: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4247: p_header_rec.transactional_curr_code );
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4246: OE_DEBUG_PUB.Add('p_trx_currency= '||
4247: p_header_rec.transactional_curr_code );
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4248: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4249: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4250: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4251: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4252: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4253: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4254: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4255: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4256: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4257: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4258: OE_DEBUG_PUB.Add('p_notes = NULL');
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4259: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4267: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4260: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4267: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4268: TO_CHAR(p_header_rec.order_number));
4261: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4262: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4267: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4268: TO_CHAR(p_header_rec.order_number));
4269: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4263: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4264: OE_DEBUG_PUB.Add('p_source_name = OM');
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4267: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4268: TO_CHAR(p_header_rec.order_number));
4269: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4270:
4271: END IF;
4265: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4266: TO_CHAR(p_header_rec.header_id));
4267: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4268: TO_CHAR(p_header_rec.order_number));
4269: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4270:
4271: END IF;
4272: ----------------Submit Credit Review--------------------
4273: AR_CMGT_CREDIT_REQUEST_API.Create_credit_request
4333: THEN
4334: IF x_return_status='S'
4335: THEN
4336:
4337: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
4338: ||TO_CHAR(l_request_id));
4339: ELSE
4340: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4341: END IF;
4336:
4337: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
4338: ||TO_CHAR(l_request_id));
4339: ELSE
4340: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4341: END IF;
4342: END IF;
4343:
4344: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4340: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4341: END IF;
4342: END IF;
4343:
4344: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4345: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4346: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4347: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4348:
4341: END IF;
4342: END IF;
4343:
4344: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4345: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4346: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4347: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4348:
4349:
4342: END IF;
4343:
4344: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4345: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4346: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4347: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4348:
4349:
4350: END IF;
4343:
4344: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4345: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4346: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4347: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4348:
4349:
4350: END IF;
4351:
4364: AND l_credit_hold_level = 'LINE'
4365: THEN
4366: IF G_debug_flag = 'Y'
4367: THEN
4368: OE_DEBUG_PUB.Add('No credit check required');
4369: END IF;
4370: --x_cc_result_out := 'NOCHECK';
4371:
4372:
4388: x_cc_profile_used := l_cc_profile_used;
4389: END IF;
4390:
4391: ELSE
4392: OE_DEBUG_PUB.Add('No credit check as table count = 0 ');
4393: END IF ; -- count IF
4394:
4395: END LOOP; -- End of Loop
4396:
4396:
4397: -- Release order level credit hold if it exist and if the
4398: IF G_debug_flag = 'Y'
4399: THEN
4400: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4401: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4402: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4403: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4404: END IF;
4397: -- Release order level credit hold if it exist and if the
4398: IF G_debug_flag = 'Y'
4399: THEN
4400: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4401: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4402: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4403: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4404: END IF;
4405:
4398: IF G_debug_flag = 'Y'
4399: THEN
4400: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4401: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4402: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4403: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4404: END IF;
4405:
4406:
4399: THEN
4400: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4401: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4402: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4403: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4404: END IF;
4405:
4406:
4407: IF l_credit_hold_level = 'ORDER'
4424: x_cc_result_out := l_cc_result_out ;
4425:
4426: IF G_debug_flag = 'Y'
4427: THEN
4428: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4429: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4430: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4431: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4432: END IF;
4425:
4426: IF G_debug_flag = 'Y'
4427: THEN
4428: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4429: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4430: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4431: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4432: END IF;
4433: --
4426: IF G_debug_flag = 'Y'
4427: THEN
4428: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4429: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4430: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4431: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4432: END IF;
4433: --
4434: IF l_credit_hold_level = 'LINE'
4427: THEN
4428: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4429: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4430: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4431: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4432: END IF;
4433: --
4434: IF l_credit_hold_level = 'LINE'
4435: THEN
4460: END IF;
4461:
4462: IF G_debug_flag = 'Y'
4463: THEN
4464: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_order_lines_credit API',1);
4465: END IF;
4466:
4467: EXCEPTION
4468: WHEN FND_API.G_EXC_ERROR THEN
4466:
4467: EXCEPTION
4468: WHEN FND_API.G_EXC_ERROR THEN
4469: x_return_status := FND_API.G_RET_STS_ERROR;
4470: OE_DEBUG_PUB.Add('Check_order_lines_credit: Error ',1);
4471:
4472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: OE_DEBUG_PUB.Add('Check_order_lines_credit: Unexpected Error ',1);
4470: OE_DEBUG_PUB.Add('Check_order_lines_credit: Error ',1);
4471:
4472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: OE_DEBUG_PUB.Add('Check_order_lines_credit: Unexpected Error ',1);
4475: WHEN OTHERS THEN
4476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4477: OE_DEBUG_PUB.Add('Check_order_lines_credit: Other Unexpected Error ',1);
4478: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: OE_DEBUG_PUB.Add('Check_order_lines_credit: Unexpected Error ',1);
4475: WHEN OTHERS THEN
4476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4477: OE_DEBUG_PUB.Add('Check_order_lines_credit: Other Unexpected Error ',1);
4478: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
4479: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4480: OE_MSG_PUB.Add_Exc_Msg
4481: ( G_PKG_NAME
4474: OE_DEBUG_PUB.Add('Check_order_lines_credit: Unexpected Error ',1);
4475: WHEN OTHERS THEN
4476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4477: OE_DEBUG_PUB.Add('Check_order_lines_credit: Other Unexpected Error ',1);
4478: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
4479: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4480: OE_MSG_PUB.Add_Exc_Msg
4481: ( G_PKG_NAME
4482: , 'Check_order_lines_credit'