[Home] [Help]
100: where line_id=p_line_id
101: and top_model_line_id IS NOT NULL
102: and ship_model_complete_flag='Y';
103:
104: oe_debug_pub.add('Line Id : '||p_line_id||' passed is a part of SMC PTO line id: '||l_top_model_line_id);
105:
106: RETURN(l_top_model_line_id);
107:
108: EXCEPTION
106: RETURN(l_top_model_line_id);
107:
108: EXCEPTION
109: WHEN OTHERS THEN
110: oe_debug_pub.add('OTHERS:Line Id : '||p_line_id);
111: RETURN(p_line_id);
112: END top_model_line_id_smc;
113: -- Bug 7673312
114:
126:
127:
128: BEGIN
129:
130: OE_DEBUG_PUB.ADD(' OEXVCRLB: In Apply_hold_and_commit ');
131: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
132:
133:
134: OE_Holds_PUB.Apply_Holds
127:
128: BEGIN
129:
130: OE_DEBUG_PUB.ADD(' OEXVCRLB: In Apply_hold_and_commit ');
131: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
132:
133:
134: OE_Holds_PUB.Apply_Holds
135: ( p_api_version => 1.0
139: , x_msg_data => x_msg_data
140: , x_return_status => x_return_status
141: );
142:
143: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
144: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
145: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
140: , x_return_status => x_return_status
141: );
142:
143: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
144: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
145: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
150:
151: OE_DEBUG_PUB.ADD(' Holds success ');
152: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
153:
154: COMMIT;
155:
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
150:
151: OE_DEBUG_PUB.ADD(' Holds success ');
152: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
153:
154: COMMIT;
155:
156: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
152: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
153:
154: COMMIT;
155:
156: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
157:
158: END IF;
159:
160: OE_DEBUG_PUB.ADD(' OEXVCRLB: OUT Apply_hold_and_commit ');
156: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
157:
158: END IF;
159:
160: OE_DEBUG_PUB.ADD(' OEXVCRLB: OUT Apply_hold_and_commit ');
161:
162: EXCEPTION
163: WHEN OTHERS THEN
164: rollback;
161:
162: EXCEPTION
163: WHEN OTHERS THEN
164: rollback;
165: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
166: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
167: OE_MSG_PUB.Add_Exc_Msg
168: ( G_PKG_NAME
169: , 'Apply_hold_and_commit'
162: EXCEPTION
163: WHEN OTHERS THEN
164: rollback;
165: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
166: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
167: OE_MSG_PUB.Add_Exc_Msg
168: ( G_PKG_NAME
169: , 'Apply_hold_and_commit'
170: );
188: BEGIN
189:
190: IF G_debug_flag = 'Y'
191: THEN
192: OE_DEBUG_PUB.ADD('OEXVCRLB: Entering Update_Comments_And_Commit');
193: OE_DEBUG_PUB.ADD('OEXVCRLB: Before OE_Holds_PUB.Update_Hold_Comments');
194: END IF;
195:
196: OE_Holds_PUB.Update_Hold_comments
189:
190: IF G_debug_flag = 'Y'
191: THEN
192: OE_DEBUG_PUB.ADD('OEXVCRLB: Entering Update_Comments_And_Commit');
193: OE_DEBUG_PUB.ADD('OEXVCRLB: Before OE_Holds_PUB.Update_Hold_Comments');
194: END IF;
195:
196: OE_Holds_PUB.Update_Hold_comments
197: ( p_hold_source_rec => p_hold_source_rec
201: );
202:
203: IF G_debug_flag = 'Y'
204: THEN
205: OE_DEBUG_PUB.ADD('OEXVCRLB: After OE_Holds_PUB.Update_Hold_Comments Status '
206: || x_return_status);
207: END IF;
208:
209: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
214: IF G_debug_flag = 'Y'
215: THEN
216: OE_DEBUG_PUB.ADD('OEXVCRLB: Update Hold Comment Success, Issue COMMIT');
217: END IF;
218:
219: COMMIT;
220:
219: COMMIT;
220:
221: IF G_debug_flag = 'Y'
222: THEN
223: OE_DEBUG_PUB.ADD('OEXVCRLB: After Issuing COMMIT');
224: END IF;
225: END IF;
226:
227: IF G_debug_flag = 'Y'
225: END IF;
226:
227: IF G_debug_flag = 'Y'
228: THEN
229: OE_DEBUG_PUB.ADD(' OEXVCRLB: Exiting Update_Comments_And_Commit');
230: END IF;
231:
232: EXCEPTION
233: WHEN OTHERS THEN
231:
232: EXCEPTION
233: WHEN OTHERS THEN
234: rollback;
235: OE_DEBUG_PUB.ADD('OEXVCRLB: Error in Update_Comments_And_Commit' );
236: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
237: OE_MSG_PUB.Add_Exc_Msg
238: ( G_PKG_NAME
239: , 'Update_Comments_And_Commit'
232: EXCEPTION
233: WHEN OTHERS THEN
234: rollback;
235: OE_DEBUG_PUB.ADD('OEXVCRLB: Error in Update_Comments_And_Commit' );
236: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
237: OE_MSG_PUB.Add_Exc_Msg
238: ( G_PKG_NAME
239: , 'Update_Comments_And_Commit'
240: );
420: row_cntr BINARY_INTEGER := 1;
421: BEGIN
422: IF G_debug_flag = 'Y'
423: THEN
424: OE_DEBUG_PUB.Add('OEXVCRLB: In Create_Holds_Table');
425: OE_DEBUG_PUB.Add('p_site_use_id '|| p_site_use_id );
426: END IF;
427:
428: /*ER 6135714
421: BEGIN
422: IF G_debug_flag = 'Y'
423: THEN
424: OE_DEBUG_PUB.Add('OEXVCRLB: In Create_Holds_Table');
425: OE_DEBUG_PUB.Add('p_site_use_id '|| p_site_use_id );
426: END IF;
427:
428: /*ER 6135714
429: FOR c_line IN billto_lines_csr LOOP
475: x_holds_table := l_site_holds_tbl;
476:
477: IF G_debug_flag = 'Y'
478: THEN
479: OE_DEBUG_PUB.Add('Holds table count = '|| x_holds_table.COUNT );
480: OE_DEBUG_PUB.Add('OEXVCRLB: Out Create_Holds_Table');
481: END IF;
482:
483: EXCEPTION
476:
477: IF G_debug_flag = 'Y'
478: THEN
479: OE_DEBUG_PUB.Add('Holds table count = '|| x_holds_table.COUNT );
480: OE_DEBUG_PUB.Add('OEXVCRLB: Out Create_Holds_Table');
481: END IF;
482:
483: EXCEPTION
484: WHEN OTHERS THEN
508: IS
509: BEGIN
510: IF G_debug_flag = 'Y'
511: THEN
512: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
513: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
514: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
515: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
516: END IF;
509: BEGIN
510: IF G_debug_flag = 'Y'
511: THEN
512: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
513: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
514: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
515: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
516: END IF;
517:
510: IF G_debug_flag = 'Y'
511: THEN
512: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
513: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
514: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
515: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
516: END IF;
517:
518:
511: THEN
512: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table');
513: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
514: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
515: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
516: END IF;
517:
518:
519: -- Initialize return status to success
579: END IF;
580:
581: IF G_debug_flag = 'Y'
582: THEN
583: OE_DEBUG_PUB.Add('OEXVCRLB: Out Update_Holds_Table');
584: END IF;
585:
586: EXCEPTION
587: WHEN OTHERS THEN
622:
623: BEGIN
624: IF G_debug_flag = 'Y'
625: THEN
626: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
623: BEGIN
624: IF G_debug_flag = 'Y'
625: THEN
626: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
631: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
624: IF G_debug_flag = 'Y'
625: THEN
626: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
631: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
632: END IF;
625: THEN
626: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
631: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
632: END IF;
633:
626: OE_DEBUG_PUB.Add('OEXVCRLB: In Update_Holds_Table Overloaded');
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
631: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
632: END IF;
633:
634: -- exposure is always > credit limit for hold to be applied
627: OE_DEBUG_PUB.Add(' p_customer_id = '|| p_customer_id );
628: OE_DEBUG_PUB.Add(' p_site_use_id = '|| p_site_use_id );
629: OE_DEBUG_PUB.Add(' p_party_id = '|| p_party_id );
630: OE_DEBUG_PUB.Add(' p_exposure = '|| p_exposure );
631: OE_DEBUG_PUB.Add(' p_overall_credit_limit = '|| p_overall_credit_limit);
632: END IF;
633:
634: -- exposure is always > credit limit for hold to be applied
635: l_amt_on_hold := p_exposure - p_overall_credit_limit;
635: l_amt_on_hold := p_exposure - p_overall_credit_limit;
636:
637: FOR i IN reverse p_holds_table.FIRST..p_holds_table.LAST LOOP
638: IF G_debug_flag = 'Y' THEN
639: OE_DEBUG_PUB.Add('line_total='|| p_holds_table(i).line_total || ' Line-id-' ||p_holds_table(i).line_id );
640: END IF;
641: --13939240 start
642: --line_total stored in p_holds_table is of order header currency and p_exposure,
643: --p_overall_credit_limit,l_amt_on_hold are in credit profile currency.
654: , p_conversion_type => p_conversion_type
655: ) ;
656: p_holds_table(i).line_total :=l_converted_amt;
657: IF G_debug_flag = 'Y' THEN
658: OE_DEBUG_PUB.Add('After conversion line_total='|| p_holds_table(i).line_total || ' Line-id-' ||p_holds_table(i).line_id );
659: END IF;
660: END IF;
661: --13939240 End
662: -- Dont apply hold if the line value is 0, uncomment below line for 0 value line Toshiba ER
672: p_holds_table(i).site_use_id := p_site_use_id;
673: p_holds_table(i).item_category_id := NULL;
674: p_holds_table(i).party_id := p_party_id ;
675: IF G_debug_flag = 'Y' THEN
676: OE_DEBUG_PUB.Add('Applying Hold on Line_id = '|| p_holds_table(i).line_id );
677: END IF;
678: END IF;
679: END LOOP;
680:
679: END LOOP;
680:
681: IF G_debug_flag = 'Y'
682: THEN
683: OE_DEBUG_PUB.Add('OEXVCRLB: Out Update_Holds_Table');
684: END IF;
685: EXCEPTION
686: WHEN OTHERS THEN
687: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
749:
750: BEGIN
751: IF G_debug_flag = 'Y'
752: THEN
753: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
754: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
755: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
756: ||p_line_id,1);
757: OE_DEBUG_PUB.Add('G_delayed_request = '||
750: BEGIN
751: IF G_debug_flag = 'Y'
752: THEN
753: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
754: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
755: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
756: ||p_line_id,1);
757: OE_DEBUG_PUB.Add('G_delayed_request = '||
758: OE_credit_engine_grp.G_delayed_request );
751: IF G_debug_flag = 'Y'
752: THEN
753: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
754: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
755: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
756: ||p_line_id,1);
757: OE_DEBUG_PUB.Add('G_delayed_request = '||
758: OE_credit_engine_grp.G_delayed_request );
759: END IF;
753: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Manual_Released_Holds');
754: OE_DEBUG_PUB.Add('p_calling_action = '|| p_calling_action );
755: OE_DEBUG_PUB.Add('Check for Header ID/Line ID: '||p_header_id||'/'
756: ||p_line_id,1);
757: OE_DEBUG_PUB.Add('G_delayed_request = '||
758: OE_credit_engine_grp.G_delayed_request );
759: END IF;
760:
761: -- Will not check if the event is UPDATE
790: --added for BUG#9728597 Start
791: OPEN released_hold;
792: FETCH released_hold INTO l_hold_release_id;
793: IF (released_hold%notfound) THEN
794: oe_debug_pub.add('No Released record found');
795: l_released_rec_exists := 'N';
796: END IF;
797: CLOSE released_hold;
798: --added for BUG#9728597 End
818: --added for BUG#9728597 Start
819: OPEN released_hold_line;
820: FETCH released_hold_line INTO l_hold_release_id;
821: IF (released_hold_line%notfound) THEN
822: oe_debug_pub.add('No Released record found');
823: l_released_rec_exists := 'N';
824: END IF;
825: CLOSE released_hold_line;
826: --added for BUG#9728597 End
828: END IF;
829:
830: EXCEPTION
831: WHEN NO_DATA_FOUND THEN
832: OE_DEBUG_PUB.Add
833: ('No released record exist forHeader ID/Line ID: '||p_header_id||'/'||p_line_id,1);
834: l_released_rec_exists := 'N';
835: WHEN OTHERS THEN
836: NULL;
861: END IF;
862: END IF; --ER 12363706
863: EXCEPTION
864: WHEN NO_DATA_FOUND THEN
865: OE_DEBUG_PUB.Add
866: ('No manually released credit holds for Header ID/Line ID: '||
867: p_header_id||'/'||p_line_id,1);
868: l_manual_hold_exists := 'N';
869: WHEN OTHERS THEN
873: END IF;
874:
875: IF G_debug_flag = 'Y'
876: THEN
877: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_Manual_Released_Holds: '||l_manual_hold_exists );
878: END IF;
879:
880: RETURN l_manual_hold_exists ;
881:
911:
912: BEGIN
913: IF G_debug_flag = 'Y'
914: THEN
915: OE_DEBUG_PUB.ADD('OEXVCRLB: In Chk_Past_Due_Invoice');
916: END IF;
917:
918: -- Initialize return status to success
919: x_return_status := FND_API.G_RET_STS_SUCCESS;
949: END IF;
950:
951: IF G_debug_flag = 'Y'
952: THEN
953: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
954: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
955: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
956: END IF;
957:
950:
951: IF G_debug_flag = 'Y'
952: THEN
953: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
954: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
955: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
956: END IF;
957:
958: EXCEPTION
951: IF G_debug_flag = 'Y'
952: THEN
953: OE_DEBUG_PUB.ADD('l_exist_flag ' || l_exist_flag );
954: OE_DEBUG_PUB.ADD('x_cc_result_out ' || x_cc_result_out);
955: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Chk_Past_Due_Invoice');
956: END IF;
957:
958: EXCEPTION
959: WHEN OTHERS THEN
980: l_msg_data VARCHAR2(2000);
981: BEGIN
982: IF G_debug_flag = 'Y'
983: THEN
984: OE_DEBUG_PUB.ADD('OEXVCRLB: In Hold_Exists');
985: END IF;
986:
987: IF p_credit_hold_level = 'ORDER'
988: THEN
987: IF p_credit_hold_level = 'ORDER'
988: THEN
989: IF G_debug_flag = 'Y'
990: THEN
991: OE_DEBUG_PUB.ADD('OEXVCRLB: Check for credit check holds for Header ID : '
992: || p_header_id,1);
993: END IF;
994:
995: OE_HOLDS_PUB.Check_Holds
1007: );
1008: ELSE
1009: IF G_debug_flag = 'Y'
1010: THEN
1011: OE_DEBUG_PUB.ADD('OEXVCRLB: Check for holds for Header/Line ID : '
1012: || p_header_id || '/' || p_line_id,1);
1013: END IF;
1014:
1015: OE_HOLDS_PUB.Check_Holds
1029: END IF;
1030:
1031: IF G_debug_flag = 'Y'
1032: THEN
1033: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Holds');
1034: END IF;
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: RAISE FND_API.G_EXC_ERROR;
1078:
1079: BEGIN
1080: IF G_debug_flag = 'Y'
1081: THEN
1082: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Hold_Message');
1083: END IF;
1084:
1085: -- Write to message stack anyway regardless of the calling action
1086: -- added IF for bug 5467793
1216: x_comment := NVL(OE_Credit_Engine_GRP.G_currency_error_msg,l_comment);
1217:
1218: IF G_debug_flag = 'Y'
1219: THEN
1220: OE_DEBUG_PUB.ADD(' x_comment '|| x_comment );
1221: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Hold_Message');
1222: END IF;
1223:
1224: EXCEPTION
1217:
1218: IF G_debug_flag = 'Y'
1219: THEN
1220: OE_DEBUG_PUB.ADD(' x_comment '|| x_comment );
1221: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Hold_Message');
1222: END IF;
1223:
1224: EXCEPTION
1225: WHEN OTHERS THEN
1243: IS
1244: BEGIN
1245: IF G_debug_flag = 'Y'
1246: THEN
1247: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Release_Message');
1248: END IF;
1249:
1250: IF p_calling_action = 'AUTO RELEASE' THEN
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order Number: '||TO_CHAR(p_order_number)
1261: --OE_MSG_PUB.Save_Messages(1);
1262: --
1263: IF G_debug_flag = 'Y'
1264: THEN
1265: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Release_Message');
1266: END IF;
1267:
1268: EXCEPTION
1269: WHEN OTHERS THEN
1295:
1296: BEGIN
1297: IF G_debug_flag = 'Y'
1298: THEN
1299: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Order_Hold_Msg');
1300: END IF;
1301:
1302: -- Write to message stack anyway regardless of the calling action
1303: IF p_cc_limit_used <> 'ITEM' THEN
1358: x_comment := l_comment;
1359:
1360: IF G_debug_flag = 'Y'
1361: THEN
1362: OE_DEBUG_PUB.Add(' x_comment '|| x_comment );
1363: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Hold_Msg');
1364: END IF;
1365:
1366: EXCEPTION
1359:
1360: IF G_debug_flag = 'Y'
1361: THEN
1362: OE_DEBUG_PUB.Add(' x_comment '|| x_comment );
1363: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Hold_Msg');
1364: END IF;
1365:
1366: EXCEPTION
1367: WHEN OTHERS THEN
1382: IS
1383: BEGIN
1384: IF G_debug_flag = 'Y'
1385: THEN
1386: OE_DEBUG_PUB.Add('OEXVCRLB: In Write_Order_Release_Msg');
1387: END IF;
1388:
1389: IF p_calling_action = 'AUTO RELEASE' THEN
1390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order '||TO_CHAR(p_order_number)
1395: END IF;
1396: --
1397: IF G_debug_flag = 'Y'
1398: THEN
1399: OE_DEBUG_PUB.Add('OEXVCRLB: Out Write_Order_Release_Msg');
1400: END IF;
1401:
1402: EXCEPTION
1403: WHEN OTHERS THEN
1481: OE_HOLDS_PVT.G_MISS_Hold_Source_REC;
1482: BEGIN
1483: IF G_debug_flag = 'Y'
1484: THEN
1485: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1482: BEGIN
1483: IF G_debug_flag = 'Y'
1484: THEN
1485: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1490: OE_DEBUG_PUB.Add('---------------------------------');
1483: IF G_debug_flag = 'Y'
1484: THEN
1485: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1490: OE_DEBUG_PUB.Add('---------------------------------');
1491: END IF;
1484: THEN
1485: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1490: OE_DEBUG_PUB.Add('---------------------------------');
1491: END IF;
1492: --
1485: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Line_CC_Hold');
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1490: OE_DEBUG_PUB.Add('---------------------------------');
1491: END IF;
1492: --
1493: --
1486: OE_DEBUG_PUB.Add('p_calling_action => '|| p_calling_action );
1487: OE_DEBUG_PUB.Add('p_header_id => '|| p_header_id);
1488: OE_DEBUG_PUB.Add('p_line_id => '|| p_line_id );
1489: OE_DEBUG_PUB.Add('p_cc_limit_used => '|| p_cc_limit_used );
1490: OE_DEBUG_PUB.Add('---------------------------------');
1491: END IF;
1492: --
1493: --
1494: IF p_cc_limit_used <> 'ITEM' THEN
1549: l_hold_source_rec.line_id := p_line_id;
1550:
1551: IF G_debug_flag = 'Y'
1552: THEN
1553: OE_DEBUG_PUB.Add('OEXVCRLB: Hold already applied on Header/Line ID:' ||
1554: p_header_id || '/' || p_line_id, 1);
1555: END IF;
1556:
1557: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
1557: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
1558: THEN
1559: IF G_debug_flag = 'Y'
1560: THEN
1561: OE_DEBUG_PUB.ADD('OEXVCRLB: Call Update_Comments_And_Commit');
1562: END IF;
1563: --IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) =
1564: --FND_API.G_FALSE THEN --bug6120327
1565: l_cc_result_out := 'FAIL_HOLD';--kadiraju added for Bug# 13768161
1572:
1573: -- END IF;
1574: IF G_debug_flag = 'Y'
1575: THEN
1576: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Update_Comments_And_Commit');
1577: END IF;
1578:
1579: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1580: THEN
1579: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1580: THEN
1581: IF G_debug_flag = 'Y'
1582: THEN
1583: OE_DEBUG_PUB.ADD('OEXVCRLB: Call OE_Holds_PUB.Update_Hold_Comments directly');
1584: END IF;
1585: --IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) =
1586: --FND_API.G_FALSE THEN --bug6120327
1587: l_cc_result_out := 'FAIL_HOLD';--kadiraju added for Bug# 13768161
1595: --END IF;
1596:
1597: IF G_debug_flag = 'Y'
1598: THEN
1599: OE_DEBUG_PUB.ADD('OEXVCRLB: Out OE_Holds_PUB.Update_Hold_Comments directly');
1600: END IF;
1601: END IF;
1602:
1603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1605: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1607: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1608: IF G_debug_flag = 'Y' THEN
1609: OE_DEBUG_PUB.ADD
1610: ('OEXVCRLB: Updated Comments on Header/Line ID:' ||
1611: p_header_id || '/' ||
1612: p_line_id, 1);
1613: END IF;
1650: THEN
1651:
1652: IF G_debug_flag = 'Y'
1653: THEN
1654: OE_DEBUG_PUB.ADD('OEXVCRLB: Call Apply_hold_and_commit ');
1655: END IF;
1656:
1657: --8478151
1658: IF Oe_Globals.G_calling_source = 'ONT' and p_calling_action = 'SHIPPING'
1684:
1685:
1686: IF G_debug_flag = 'Y'
1687: THEN
1688: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Apply_hold_and_commit ');
1689: END IF;
1690:
1691:
1692: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1692: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
1693: THEN
1694: IF G_debug_flag = 'Y'
1695: THEN
1696: OE_DEBUG_PUB.ADD('OEXVCRLB: Call OE_Holds_PUB.Apply_Holds directly');
1697: END IF;
1698: OE_Credit_Engine_GRP.G_Credit_Profile_Level := p_cc_profile_used; --ER 12363706
1699: OE_Holds_PUB.Apply_Holds
1700: ( p_api_version => 1.0
1706: );
1707: OE_Credit_Engine_GRP.G_Credit_Profile_Level := NULL; --ER 12363706
1708: IF G_debug_flag = 'Y'
1709: THEN
1710: OE_DEBUG_PUB.ADD('OEXVCRLB: Out OE_Holds_PUB.Apply_Holds directly');
1711: END IF;
1712: END IF;
1713: -------------------------------------------------------
1714: IF G_debug_flag = 'Y' THEN
1711: END IF;
1712: END IF;
1713: -------------------------------------------------------
1714: IF G_debug_flag = 'Y' THEN
1715: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply Holds status '|| l_return_status );
1716: END IF;
1717:
1718: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1719: RAISE FND_API.G_EXC_ERROR;
1720: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1722: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1723: IF G_debug_flag = 'Y' THEN
1724: OE_DEBUG_PUB.ADD
1725: ('OEXVCRLB: Applied credit check hold on Header/Line ID:' ||
1726: p_header_id || '/' ||
1727: p_line_id, 1);
1728: END IF;
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_Line_CC_Hold Result = '|| x_cc_result_out );
1740: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Line_CC_Hold');
1741: END IF;
1742:
1743:
1736:
1737: IF G_debug_flag = 'Y'
1738: THEN
1739: OE_DEBUG_PUB.Add('OEXVCRLB: Apply_Line_CC_Hold Result = '|| x_cc_result_out );
1740: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Line_CC_Hold');
1741: END IF;
1742:
1743:
1744: EXCEPTION
1788: OE_HOLDS_PVT.G_MISS_Hold_Source_REC;
1789: BEGIN
1790: IF G_debug_flag = 'Y'
1791: THEN
1792: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Order_CC_Hold');
1793: END IF;
1794: --
1795: -- Get the order number for notification
1796: --
1827: l_hold_source_rec.hold_comment := l_hold_comment;
1828:
1829: IF G_debug_flag = 'Y'
1830: THEN
1831: OE_DEBUG_PUB.Add('OEXVCRLB: Hold already applied on Header ID:' ||
1832: p_header_id, 1);
1833: END IF;
1834: ELSE
1835: IF (Check_Manual_Released_Holds(
1848: G_result_out := 'FAIL' ;
1849:
1850: IF G_debug_flag = 'Y'
1851: THEN
1852: OE_DEBUG_PUB.Add( ' No manual release, call Write_order_hold_msg ');
1853: END IF;
1854:
1855: G_result_out := 'FAIL' ;
1856:
1881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1884: IF G_debug_flag = 'Y' THEN
1885: OE_DEBUG_PUB.ADD
1886: ('OEXVCRLB: Credit check hold applied on header_ID: '||p_header_id, 1);
1887: END IF;
1888: END IF;
1889: l_cc_result_out := 'FAIL_HOLD';
1893: x_cc_result_out := l_cc_result_out;
1894:
1895: IF G_debug_flag = 'Y'
1896: THEN
1897: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply_Order_CC_Hold Result = '
1898: ||l_cc_result_out);
1899: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Order_CC_Hold');
1900: END IF;
1901:
1895: IF G_debug_flag = 'Y'
1896: THEN
1897: OE_DEBUG_PUB.ADD('OEXVCRLB: Apply_Order_CC_Hold Result = '
1898: ||l_cc_result_out);
1899: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Order_CC_Hold');
1900: END IF;
1901:
1902: EXCEPTION
1903: WHEN OTHERS THEN
1938: l_calling_activity VARCHAR2(50); --ER#7479609
1939: BEGIN
1940: IF G_debug_flag = 'Y'
1941: THEN
1942: OE_DEBUG_PUB.Add('OEXVCRLB: In Release_Order_CC_Hold');
1943: END IF;
1944:
1945: l_return_status := FND_API.G_RET_STS_SUCCESS;
1946: --
1999: l_cc_result_out := 'PASS_REL';
2000:
2001: IF G_debug_flag = 'Y'
2002: THEN
2003: OE_DEBUG_PUB.ADD('OEXVCRLB: Released credit check hold on Header ID:'
2004: || p_header_id, 1);
2005: END IF;
2006: END IF; -- check calling action
2007: END IF; -- hold exist
2008: x_cc_result_out := l_cc_result_out;
2009:
2010: IF G_debug_flag = 'Y'
2011: THEN
2012: OE_DEBUG_PUB.Add('OEXVCRLB: Out Release_Order_CC_Hold');
2013: END IF;
2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2038: BEGIN
2039:
2040: IF G_debug_flag = 'Y'
2041: THEN
2042: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Item_Category_Holds');
2043: END IF;
2044:
2045: l_return_status := FND_API.G_RET_STS_SUCCESS;
2046: FOR i IN 1..p_lines.count LOOP
2044:
2045: l_return_status := FND_API.G_RET_STS_SUCCESS;
2046: FOR i IN 1..p_lines.count LOOP
2047: IF p_item_category_id = p_lines(i).item_category_id THEN
2048: OE_DEBUG_PUB.Add('Line ID '||p_lines(i).line_id
2049: ||' fails ITEM limit ck',1);
2050: Update_Holds_Table
2051: ( p_holds_table => p_holds_table
2052: , p_line_id => p_lines(i).line_id
2063: END IF;
2064: END IF;
2065: END LOOP;
2066:
2067: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Item_Category_Holds');
2068:
2069: EXCEPTION
2070: WHEN OTHERS THEN
2071: OE_MSG_PUB.Add_Exc_Msg
2093: l_return_status VARCHAR2(30);
2094: BEGIN
2095: IF G_debug_flag = 'Y'
2096: THEN
2097: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_Other_Holds');
2098: END IF;
2099:
2100: Update_Holds_Table
2101: ( p_holds_table => p_holds_table
2109: );
2110:
2111: IF G_debug_flag = 'Y'
2112: THEN
2113: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_Other_Holds');
2114: END IF;
2115:
2116: EXCEPTION
2117: WHEN OTHERS THEN
2156: BEGIN
2157:
2158: IF G_debug_flag = 'Y'
2159: THEN
2160: OE_DEBUG_PUB.ADD('OEXVCRLB: In Release_Line_CC_Hold');
2161: OE_DEBUG_PUB.ADD('Processing line ID = '||
2162: p_line_id );
2163: END IF;
2164:
2157:
2158: IF G_debug_flag = 'Y'
2159: THEN
2160: OE_DEBUG_PUB.ADD('OEXVCRLB: In Release_Line_CC_Hold');
2161: OE_DEBUG_PUB.ADD('Processing line ID = '||
2162: p_line_id );
2163: END IF;
2164:
2165: l_return_status := FND_API.G_RET_STS_SUCCESS;
2238: END IF; -- check calling action
2239: ELSE
2240: IF G_debug_flag = 'Y'
2241: THEN
2242: OE_DEBUG_PUB.ADD(' No Hold exist to be Released ');
2243: END IF;
2244: END IF; -- Holds Exist IF
2245:
2246: x_cc_result_out := l_cc_result_out;
2246: x_cc_result_out := l_cc_result_out;
2247:
2248: IF G_debug_flag = 'Y'
2249: THEN
2250: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Release_Line_CC_Hold');
2252: END IF;
2253:
2254: EXCEPTION
2247:
2248: IF G_debug_flag = 'Y'
2249: THEN
2250: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2251: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Release_Line_CC_Hold');
2252: END IF;
2253:
2254: EXCEPTION
2255: WHEN OTHERS THEN
2290:
2291: BEGIN
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2291: BEGIN
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2293: THEN
2294: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2294: OE_DEBUG_PUB.ADD('OEXVCRLB: In Check_Trx_Limit');
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2302: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2295: OE_DEBUG_PUB.ADD(' ', 2);
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2302: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2303: END IF;
2296: OE_DEBUG_PUB.ADD(' ---------------------------------------- ', 2);
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2302: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2303: END IF;
2304:
2297: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id, 2);
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2302: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2303: END IF;
2304:
2305: -- Initialize return status to success
2298: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id, 2);
2299: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id, 2);
2300: OE_DEBUG_PUB.ADD(' p_credit_level = '|| p_credit_level, 2);
2301: OE_DEBUG_PUB.ADD(' p_limit_curr_code = '|| p_limit_curr_code, 2);
2302: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit,2);
2303: END IF;
2304:
2305: -- Initialize return status to success
2306: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339: END IF;
2340:
2341: IF G_debug_flag = 'Y'
2342: THEN
2343: OE_DEBUG_PUB.ADD(' l_customer_id = '|| l_customer_id );
2344: OE_DEBUG_PUB.ADD(' Call GET_transaction_amount ' );
2345: END IF;
2346:
2347: OE_CREDIT_CHECK_UTIL.GET_transaction_amount
2340:
2341: IF G_debug_flag = 'Y'
2342: THEN
2343: OE_DEBUG_PUB.ADD(' l_customer_id = '|| l_customer_id );
2344: OE_DEBUG_PUB.ADD(' Call GET_transaction_amount ' );
2345: END IF;
2346:
2347: OE_CREDIT_CHECK_UTIL.GET_transaction_amount
2348: ( p_header_id => p_header_rec.header_id
2359: );
2360:
2361: IF G_debug_flag = 'Y'
2362: THEN
2363: OE_DEBUG_PUB.ADD(' Out of GET with status '
2364: || x_return_status );
2365: OE_DEBUG_PUB.ADD(' ERR curr tbl count = '
2366: || x_conversion_status.COUNT );
2367: END IF;
2361: IF G_debug_flag = 'Y'
2362: THEN
2363: OE_DEBUG_PUB.ADD(' Out of GET with status '
2364: || x_return_status );
2365: OE_DEBUG_PUB.ADD(' ERR curr tbl count = '
2366: || x_conversion_status.COUNT );
2367: END IF;
2368:
2369: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2373: END IF;
2374:
2375: IF G_debug_flag = 'Y'
2376: THEN
2377: OE_DEBUG_PUB.ADD(' l_order_value = '|| l_order_value );
2378: END IF;
2379:
2380:
2381: IF l_order_value > NVL(p_trx_credit_limit, l_order_value) THEN
2414: END IF;
2415:
2416: IF G_debug_flag = 'Y'
2417: THEN
2418: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2419: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2420: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2421: OE_DEBUG_PUB.ADD(' ' );
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2415:
2416: IF G_debug_flag = 'Y'
2417: THEN
2418: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2419: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2420: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2421: OE_DEBUG_PUB.ADD(' ' );
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2423: END IF;
2416: IF G_debug_flag = 'Y'
2417: THEN
2418: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2419: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2420: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2421: OE_DEBUG_PUB.ADD(' ' );
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2423: END IF;
2424: EXCEPTION
2417: THEN
2418: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2419: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2420: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2421: OE_DEBUG_PUB.ADD(' ' );
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2423: END IF;
2424: EXCEPTION
2425: WHEN others THEN
2418: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
2419: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
2420: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2421: OE_DEBUG_PUB.ADD(' ' );
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2423: END IF;
2424: EXCEPTION
2425: WHEN others THEN
2426: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
2422: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Trx_Limit');
2423: END IF;
2424: EXCEPTION
2425: WHEN others THEN
2426: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
2427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2429: OE_MSG_PUB.Add_Exc_Msg
2430: ( G_PKG_NAME
2430: ( G_PKG_NAME
2431: , 'Check_Trx_Limit'
2432: );
2433: END IF;
2434: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2435: END Check_Trx_Limit;
2436:
2437: -----------------------------------------------------+
2438: -- A trx is subject to credit check if all the |
2476: x_global_exposure_flag := 'N' ;
2477:
2478: IF G_debug_flag = 'Y'
2479: THEN
2480: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2477:
2478: IF G_debug_flag = 'Y'
2479: THEN
2480: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2478: IF G_debug_flag = 'Y'
2479: THEN
2480: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2479: THEN
2480: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2487: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2480: OE_DEBUG_PUB.ADD('OEXVCRLB: In Validate_other_credit_check');
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2487: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2488: END IF;
2481: OE_DEBUG_PUB.ADD(' ' );
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2487: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2488: END IF;
2489:
2482: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2487: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2488: END IF;
2489:
2490: ------------------------------------------------
2483: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
2484: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
2485: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
2486: OE_DEBUG_PUB.ADD(' p_party_id = '|| p_party_id );
2487: OE_DEBUG_PUB.ADD(' p_calling_action = '|| p_calling_action);
2488: END IF;
2489:
2490: ------------------------------------------------
2491: -- Program Logic: |
2538:
2539:
2540: IF G_debug_flag = 'Y'
2541: THEN
2542: OE_DEBUG_PUB.ADD(' after Get_Limit_Info ');
2543: END IF;
2544:
2545: IF (x_trx_credit_limit IS NULL AND
2546: x_overall_credit_limit IS NULL )
2552: END IF;
2553:
2554: IF G_debug_flag = 'Y'
2555: THEN
2556: OE_DEBUG_PUB.ADD(' ');
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2553:
2554: IF G_debug_flag = 'Y'
2555: THEN
2556: OE_DEBUG_PUB.ADD(' ');
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2554: IF G_debug_flag = 'Y'
2555: THEN
2556: OE_DEBUG_PUB.ADD(' ');
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2555: THEN
2556: OE_DEBUG_PUB.ADD(' ');
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2556: OE_DEBUG_PUB.ADD(' ');
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2557: OE_DEBUG_PUB.Add(' ');
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2558: OE_DEBUG_PUB.Add(' Result from credit profile check ');
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2559: OE_DEBUG_PUB.Add(' -------------------------------------------');
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2560: OE_DEBUG_PUB.Add(' ');
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2561: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '|| x_credit_check_lvl_out);
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2562: OE_DEBUG_PUB.Add('x_default_limit_flag = '|| x_default_limit_flag);
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2563: OE_DEBUG_PUB.Add('x_limit_curr_code = '|| x_limit_curr_code);
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2571: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2564: OE_DEBUG_PUB.Add('x_overall_credit_limit = '|| x_overall_credit_limit);
2565: OE_DEBUG_PUB.Add('x_trx_credit_limit = '|| x_trx_credit_limit);
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2571: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2572: OE_DEBUG_PUB.ADD(' ');
2566: OE_DEBUG_PUB.Add('x_include_all_flag = '|| x_include_all_flag);
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2571: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2572: OE_DEBUG_PUB.ADD(' ');
2573: END IF;
2574:
2567: OE_DEBUG_PUB.Add('x_global_exposure_flag = '|| x_global_exposure_flag );
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2571: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2572: OE_DEBUG_PUB.ADD(' ');
2573: END IF;
2574:
2575: FOR K IN 1..x_usage_curr.COUNT
2568: OE_DEBUG_PUB.Add('x_credit_limit_entity_id =' ||
2569: x_credit_limit_entity_id );
2570: OE_DEBUG_PUB.ADD(' ');
2571: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
2572: OE_DEBUG_PUB.ADD(' ');
2573: END IF;
2574:
2575: FOR K IN 1..x_usage_curr.COUNT
2576: LOOP
2575: FOR K IN 1..x_usage_curr.COUNT
2576: LOOP
2577: IF G_debug_flag = 'Y'
2578: THEN
2579: OE_DEBUG_PUB.Add(' Usage currency ' || k || ' => ' ||
2580: x_usage_curr(K).usage_curr_code );
2581: END IF;
2582: END LOOP ;
2583:
2582: END LOOP ;
2583:
2584: IF G_debug_flag = 'Y'
2585: THEN
2586: OE_DEBUG_PUB.ADD(' ');
2587: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2588: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2589: END IF;
2590: EXCEPTION
2583:
2584: IF G_debug_flag = 'Y'
2585: THEN
2586: OE_DEBUG_PUB.ADD(' ');
2587: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2588: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2589: END IF;
2590: EXCEPTION
2591: WHEN OTHERS THEN
2584: IF G_debug_flag = 'Y'
2585: THEN
2586: OE_DEBUG_PUB.ADD(' ');
2587: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
2588: OE_DEBUG_PUB.Add('OEXVCRLB: Out Validate_other_credit_check');
2589: END IF;
2590: EXCEPTION
2591: WHEN OTHERS THEN
2592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2596: , 'Validate_other_credit_check'
2597: );
2598: END IF;
2599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2600: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2601: END Validate_other_credit_check;
2602:
2603: -----------------------------------------------------------
2604: -- PROCEDURE: Check_Order_lines_exposure PUBLIC
2653: BEGIN
2654:
2655: IF G_debug_flag = 'Y'
2656: THEN
2657: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2654:
2655: IF G_debug_flag = 'Y'
2656: THEN
2657: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2655: IF G_debug_flag = 'Y'
2656: THEN
2657: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2656: THEN
2657: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2657: OE_DEBUG_PUB.Add('OEXVCRLB: IN Check_Order_lines_exposure ');
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2658: OE_DEBUG_PUB.Add(' ');
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2659: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2667: p_include_all_flag );
2660: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
2661: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2667: p_include_all_flag );
2668: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2662: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2663: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2667: p_include_all_flag );
2668: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2669: p_default_limit_flag );
2670: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2664: OE_DEBUG_PUB.Add('p_limit_curr_code = '||
2665: p_limit_curr_code );
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2667: p_include_all_flag );
2668: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2669: p_default_limit_flag );
2670: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2671: p_overall_credit_limit );
2672: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2666: OE_DEBUG_PUB.Add('p_include_all_flag = '||
2667: p_include_all_flag );
2668: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2669: p_default_limit_flag );
2670: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2671: p_overall_credit_limit );
2672: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2673: p_global_exposure_flag );
2674: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2668: OE_DEBUG_PUB.Add('p_default_limit_flag = '||
2669: p_default_limit_flag );
2670: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2671: p_overall_credit_limit );
2672: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2673: p_global_exposure_flag );
2674: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2675: p_credit_limit_entity_id);
2676: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2670: OE_DEBUG_PUB.Add('p_overall_credit_limit = '||
2671: p_overall_credit_limit );
2672: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2673: p_global_exposure_flag );
2674: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2675: p_credit_limit_entity_id);
2676: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2677: OE_DEBUG_PUB.Add(' ');
2678: END IF;
2672: OE_DEBUG_PUB.Add('p_global_exposure_flag = '||
2673: p_global_exposure_flag );
2674: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2675: p_credit_limit_entity_id);
2676: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2677: OE_DEBUG_PUB.Add(' ');
2678: END IF;
2679:
2680: l_current_order_value := 0 ;
2673: p_global_exposure_flag );
2674: OE_DEBUG_PUB.Add('p_credit_limit_entity_id => '||
2675: p_credit_limit_entity_id);
2676: OE_DEBUG_PUB.Add('-******---------------********---------------**********--');
2677: OE_DEBUG_PUB.Add(' ');
2678: END IF;
2679:
2680: l_current_order_value := 0 ;
2681:
2705: x_return_status := FND_API.G_RET_STS_SUCCESS;
2706: x_total_exposure := 0 ;
2707: l_current_order_value := 0 ;
2708:
2709: OE_DEBUG_PUB.ADD( ' Call Get_Exposure ');
2710:
2711: OE_CREDIT_EXPOSURE_PVT.Get_Exposure
2712: ( p_customer_id => l_customer_id
2713: , p_site_use_id => l_site_id
2729: );
2730:
2731: IF G_debug_flag = 'Y'
2732: THEN
2733: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2734: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2735: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2736: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2737: END IF;
2730:
2731: IF G_debug_flag = 'Y'
2732: THEN
2733: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2734: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2735: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2736: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2737: END IF;
2738:
2731: IF G_debug_flag = 'Y'
2732: THEN
2733: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2734: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2735: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2736: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2737: END IF;
2738:
2739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2732: THEN
2733: OE_DEBUG_PUB.Add('Out of Get_Exposure- Precalculated exposure ');
2734: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
2735: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2736: OE_DEBUG_PUB.Add('Error table count = '|| x_error_curr_tbl.COUNT );
2737: END IF;
2738:
2739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2740: RAISE FND_API.G_EXC_ERROR;
2773: END IF;
2774:
2775: IF G_debug_flag = 'Y'
2776: THEN
2777: OE_DEBUG_PUB.Add('l_current_order_value => '
2778: || l_current_order_value );
2779: END IF;
2780:
2781:
2787: ---------------------------------------------------
2788:
2789: IF G_debug_flag = 'Y'
2790: THEN
2791: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2792: OE_DEBUG_PUB.Add('p_overall_credit_limit = '|| p_overall_credit_limit );
2793: END IF;
2794:
2795: IF NVL(x_total_exposure,0) > p_overall_credit_limit
2788:
2789: IF G_debug_flag = 'Y'
2790: THEN
2791: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
2792: OE_DEBUG_PUB.Add('p_overall_credit_limit = '|| p_overall_credit_limit );
2793: END IF;
2794:
2795: IF NVL(x_total_exposure,0) > p_overall_credit_limit
2796: THEN
2802: IF NVL(x_error_curr_tbl.COUNT,0) > 0
2803: THEN
2804: x_cc_result_out := 'FAIL' ;
2805:
2806: OE_DEBUG_PUB.Add(' Currency conversion failed ');
2807:
2808: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2809: FND_MESSAGE.Set_Token('FROM',x_error_curr_tbl(1).usage_curr_code);
2810: FND_MESSAGE.Set_Token('TO',p_limit_curr_code );
2827:
2828:
2829: OE_MSG_PUB.ADD;
2830: x_return_status := FND_API.G_RET_STS_ERROR;
2831: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2832: || x_return_status );
2833: END IF;
2834:
2835:
2840: x_cc_result_out := 'PASS';
2841:
2842: IF G_debug_flag = 'Y'
2843: THEN
2844: OE_DEBUG_PUB.Add(' No need to check exposure, UNLIMITED ');
2845: END IF;
2846: END IF;
2847:
2848: IF G_debug_flag = 'Y'
2846: END IF;
2847:
2848: IF G_debug_flag = 'Y'
2849: THEN
2850: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2851: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2852: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2853: END IF;
2854: EXCEPTION
2847:
2848: IF G_debug_flag = 'Y'
2849: THEN
2850: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2851: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2852: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2853: END IF;
2854: EXCEPTION
2855: WHEN others THEN
2848: IF G_debug_flag = 'Y'
2849: THEN
2850: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
2851: OE_DEBUG_PUB.Add(' x_return_status = '|| x_return_status);
2852: OE_DEBUG_PUB.Add('OEXVCRLB: Out CHECK_ORDER_LINES_EXPOSURE');
2853: END IF;
2854: EXCEPTION
2855: WHEN others THEN
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2853: END IF;
2854: EXCEPTION
2855: WHEN others THEN
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: OE_DEBUG_PUB.Add('CHECK_ORDER_LINES_EXPOSURE: Other exceptions');
2858: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2859: OE_MSG_PUB.Add_Exc_Msg
2860: ( G_PKG_NAME
2861: , 'CHECK_ORDER_LINES_EXPOSURE'
2861: , 'CHECK_ORDER_LINES_EXPOSURE'
2862: );
2863: END IF;
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2865: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
2866: END CHECK_ORDER_LINES_EXPOSURE;
2867:
2868: -----------------------------------------------------------
2869: -- Check item category limits within the given site
2898: l_check_category_id NUMBER;
2899: l_limit_currency VARCHAR2(30);
2900:
2901: BEGIN
2902: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Item_Limits');
2903: --
2904: -- Initialize return status to success
2905: x_return_status := FND_API.G_RET_STS_SUCCESS;
2906: -- Default to Pass
2910: --
2911:
2912: l_include_tax_flag := p_credit_check_rule_rec.include_tax_flag ;
2913:
2914: OE_DEBUG_PUB.Add(' Call Get_Item_Limit ');
2915:
2916: OE_CREDIT_CHECK_UTIL.Get_Item_Limit
2917: ( p_header_id => p_header_rec.header_id
2918: , p_include_tax_flag => p_credit_check_rule_rec.include_tax_flag
2922: , x_lines_tbl => l_lines
2923: );
2924:
2925:
2926: OE_DEBUG_PUB.Add(' After Get_Item_Limit with item tbl count '
2927: || l_item_limits.COUNT );
2928:
2929: IF l_item_limits.count = 0
2930: THEN
2928:
2929: IF l_item_limits.count = 0
2930: THEN
2931: x_cc_result_out := 'NOCHECK';
2932: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2933:
2934: ELSE
2935: OE_DEBUG_PUB.Add(' start category loop ');
2936: OE_DEBUG_PUB.Add(' ======================== ');
2931: x_cc_result_out := 'NOCHECK';
2932: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2933:
2934: ELSE
2935: OE_DEBUG_PUB.Add(' start category loop ');
2936: OE_DEBUG_PUB.Add(' ======================== ');
2937:
2938: FOR i in 1..l_item_limits.count
2939: LOOP
2932: OE_DEBUG_PUB.Add(' No need to check as count 0 ');
2933:
2934: ELSE
2935: OE_DEBUG_PUB.Add(' start category loop ');
2936: OE_DEBUG_PUB.Add(' ======================== ');
2937:
2938: FOR i in 1..l_item_limits.count
2939: LOOP
2940: l_category_sum := 0;
2939: LOOP
2940: l_category_sum := 0;
2941: -- For each item category, sum the line values
2942: ----------------------------------------------
2943: OE_DEBUG_PUB.ADD(' ');
2944: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2945: OE_DEBUG_PUB.Add(' Category id = '
2946: || l_item_limits(i).item_category_id );
2947: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2940: l_category_sum := 0;
2941: -- For each item category, sum the line values
2942: ----------------------------------------------
2943: OE_DEBUG_PUB.ADD(' ');
2944: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2945: OE_DEBUG_PUB.Add(' Category id = '
2946: || l_item_limits(i).item_category_id );
2947: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2948: || l_item_limits(i).ctg_line_amount );
2941: -- For each item category, sum the line values
2942: ----------------------------------------------
2943: OE_DEBUG_PUB.ADD(' ');
2944: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2945: OE_DEBUG_PUB.Add(' Category id = '
2946: || l_item_limits(i).item_category_id );
2947: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2948: || l_item_limits(i).ctg_line_amount );
2949:
2943: OE_DEBUG_PUB.ADD(' ');
2944: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2945: OE_DEBUG_PUB.Add(' Category id = '
2946: || l_item_limits(i).item_category_id );
2947: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2948: || l_item_limits(i).ctg_line_amount );
2949:
2950: OE_DEBUG_PUB.Add(' limit_curr_code = '
2951: || l_item_limits(i).limit_curr_code );
2946: || l_item_limits(i).item_category_id );
2947: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2948: || l_item_limits(i).ctg_line_amount );
2949:
2950: OE_DEBUG_PUB.Add(' limit_curr_code = '
2951: || l_item_limits(i).limit_curr_code );
2952: OE_DEBUG_PUB.Add(' item_limit = '
2953: || l_item_limits(i).item_limit );
2954: OE_DEBUG_PUB.Add(' grouping = '
2948: || l_item_limits(i).ctg_line_amount );
2949:
2950: OE_DEBUG_PUB.Add(' limit_curr_code = '
2951: || l_item_limits(i).limit_curr_code );
2952: OE_DEBUG_PUB.Add(' item_limit = '
2953: || l_item_limits(i).item_limit );
2954: OE_DEBUG_PUB.Add(' grouping = '
2955: || l_item_limits(i).grouping_id );
2956:
2950: OE_DEBUG_PUB.Add(' limit_curr_code = '
2951: || l_item_limits(i).limit_curr_code );
2952: OE_DEBUG_PUB.Add(' item_limit = '
2953: || l_item_limits(i).item_limit );
2954: OE_DEBUG_PUB.Add(' grouping = '
2955: || l_item_limits(i).grouping_id );
2956:
2957: l_category_sum := l_item_limits(i).ctg_line_amount ;
2958:
2955: || l_item_limits(i).grouping_id );
2956:
2957: l_category_sum := l_item_limits(i).ctg_line_amount ;
2958:
2959: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2960: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2961: OE_Credit_Engine_GRP.GL_currency );
2962:
2963:
2956:
2957: l_category_sum := l_item_limits(i).ctg_line_amount ;
2958:
2959: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2960: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2961: OE_Credit_Engine_GRP.GL_currency );
2962:
2963:
2964: OE_DEBUG_PUB.ADD(' ');
2960: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2961: OE_Credit_Engine_GRP.GL_currency );
2962:
2963:
2964: OE_DEBUG_PUB.ADD(' ');
2965: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2966:
2967:
2968: l_check_category_id := l_item_limits(i).item_category_id ;
2961: OE_Credit_Engine_GRP.GL_currency );
2962:
2963:
2964: OE_DEBUG_PUB.ADD(' ');
2965: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2966:
2967:
2968: l_check_category_id := l_item_limits(i).item_category_id ;
2969: l_limit_currency := l_item_limits(i).limit_curr_code ;
2977: , p_conversion_date => SYSDATE
2978: , p_conversion_type => p_credit_check_rule_rec.conversion_type
2979: ) ;
2980:
2981: OE_DEBUG_PUB.Add
2982: (' l_limit_category_sum = '|| l_limit_category_sum );
2983:
2984: OE_DEBUG_PUB.Add
2985: (' Credit limit = '|| l_item_limits(i).item_limit );
2980:
2981: OE_DEBUG_PUB.Add
2982: (' l_limit_category_sum = '|| l_limit_category_sum );
2983:
2984: OE_DEBUG_PUB.Add
2985: (' Credit limit = '|| l_item_limits(i).item_limit );
2986:
2987: IF l_limit_category_sum > l_item_limits(i).item_limit
2988: THEN
2985: (' Credit limit = '|| l_item_limits(i).item_limit );
2986:
2987: IF l_limit_category_sum > l_item_limits(i).item_limit
2988: THEN
2989: OE_DEBUG_PUB.Add
2990: ('Fails item category ID: '|| l_item_limits(i).item_category_id);
2991:
2992: IF l_credit_hold_level = 'ORDER' THEN
2993:
2990: ('Fails item category ID: '|| l_item_limits(i).item_category_id);
2991:
2992: IF l_credit_hold_level = 'ORDER' THEN
2993:
2994: OE_DEBUG_PUB.Add
2995: (' Call Apply_Order_CC_Hold ');
2996:
2997: Apply_Order_CC_Hold
2998: ( p_header_id => p_header_rec.header_id
3008: );
3009: EXIT; -- stop checking item limits
3010: ELSE
3011:
3012: OE_DEBUG_PUB.Add
3013: (' Apply_Item_Category_Holds ');
3014:
3015: Apply_Item_Category_Holds
3016: ( p_header_id => p_header_rec.header_id
3030: l_limit_currency := NULL;
3031:
3032: END LOOP; -- category loop
3033:
3034: OE_DEBUG_PUB.ADD(' out of category loop ');
3035:
3036: x_cc_result_out := l_cc_result_out;
3037: END IF;
3038:
3035:
3036: x_cc_result_out := l_cc_result_out;
3037: END IF;
3038:
3039: OE_DEBUG_PUB.ADD(' x_cc_result_out = ' || x_cc_result_out );
3040:
3041: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Item_Limit');
3042:
3043: EXCEPTION
3037: END IF;
3038:
3039: OE_DEBUG_PUB.ADD(' x_cc_result_out = ' || x_cc_result_out );
3040:
3041: OE_DEBUG_PUB.ADD('OEXVCRLB: Out Check_Item_Limit');
3042:
3043: EXCEPTION
3044: WHEN GL_CURRENCY_API.NO_RATE
3045: THEN
3043: EXCEPTION
3044: WHEN GL_CURRENCY_API.NO_RATE
3045: THEN
3046: BEGIN
3047: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
3048: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
3049: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
3050: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
3051:
3044: WHEN GL_CURRENCY_API.NO_RATE
3045: THEN
3046: BEGIN
3047: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
3048: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
3049: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
3050: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
3051:
3052: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
3045: THEN
3046: BEGIN
3047: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
3048: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
3049: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
3050: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
3051:
3052: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
3053: FND_MESSAGE.Set_Token('FROM',p_header_rec.transactional_curr_code );
3046: BEGIN
3047: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
3048: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
3049: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
3050: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
3051:
3052: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
3053: FND_MESSAGE.Set_Token('FROM',p_header_rec.transactional_curr_code );
3054: FND_MESSAGE.Set_Token('TO',l_limit_currency );
3069: NVL(p_credit_check_rule_rec.user_conversion_type,'Corporate'));
3070:
3071: OE_MSG_PUB.ADD ;
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
3074: || x_return_status );
3075: END IF;
3076:
3077: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
3073: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
3074: || x_return_status );
3075: END IF;
3076:
3077: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
3078: END;
3079:
3080: WHEN others THEN
3081: OE_DEBUG_PUB.Add('Check_Item_Limit: Other exceptions');
3077: OE_DEBUG_PUB.ADD(' Item CTG cc fails due to conversion error ');
3078: END;
3079:
3080: WHEN others THEN
3081: OE_DEBUG_PUB.Add('Check_Item_Limit: Other exceptions');
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3083: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3084: OE_MSG_PUB.Add_Exc_Msg
3085: ( G_PKG_NAME
3085: ( G_PKG_NAME
3086: , 'Check_Item_Limits'
3087: );
3088: END IF;
3089: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300) ,1 );
3090: END Check_Item_Limits;
3091:
3092: ------------------------------------------------------------
3093: -- PROCEDURE: Check_Other_Credit_Limits PRIVATE
3223:
3224:
3225: IF G_debug_flag = 'Y'
3226: THEN
3227: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3224:
3225: IF G_debug_flag = 'Y'
3226: THEN
3227: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3225: IF G_debug_flag = 'Y'
3226: THEN
3227: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3226: THEN
3227: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3234: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3227: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_Other_Credit Limits');
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3234: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3235: END IF;
3228: OE_DEBUG_PUB.ADD(' ' );
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3234: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3235: END IF;
3236: --
3229: OE_DEBUG_PUB.ADD(' ---------------------------------------- ' );
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3234: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3235: END IF;
3236: --
3237: -----------------------------------------------------------
3230: OE_DEBUG_PUB.ADD(' Header ID = '|| p_header_rec.header_id );
3231: OE_DEBUG_PUB.ADD(' p_customer_id = '|| p_customer_id );
3232: OE_DEBUG_PUB.ADD(' p_site_use_id = '|| p_site_use_id );
3233: OE_DEBUG_PUB.Add(' p_calling_action = '|| p_calling_action );
3234: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
3235: END IF;
3236: --
3237: -----------------------------------------------------------
3238: -- Check if order site use needs credit check. Also |
3265: IF p_credit_check_rule_rec.credit_hold_level_code = 'ORDER' THEN
3266: BEGIN
3267: IF G_debug_flag = 'Y'
3268: THEN
3269: OE_DEBUG_PUB.Add('OEXVCRLB: Retrieve the latest released Credit Profile ' || p_header_rec.header_id);
3270: END IF;
3271:
3272: OPEN released_hold;
3273: FETCH released_hold INTO l_credit_profile_level;
3272: OPEN released_hold;
3273: FETCH released_hold INTO l_credit_profile_level;
3274:
3275: IF (released_hold%notfound) THEN
3276: oe_debug_pub.add('No Released record found');
3277: l_credit_profile_level := NULL;
3278: END IF;
3279:
3280: CLOSE released_hold;
3280: CLOSE released_hold;
3281:
3282: EXCEPTION
3283: WHEN OTHERS THEN
3284: oe_debug_pub.ADD('OEXVCRLB: In Exception block');
3285: l_credit_profile_level := NULL;
3286: END;
3287: END IF;
3288:
3290: LOOP
3291: l_line_exists := 'N';
3292:
3293: IF G_debug_flag = 'Y' THEN
3294: oe_debug_pub.add('OEXVCRLB: BillTo site has changed. Checking if the new site belongs to the same CUSTOMER');
3295: oe_debug_pub.add('OEXVCRLB: Also checking if the earlier credit checking also happened due to CUSTOMER level limits only');
3296: END IF;
3297:
3298: FOR k IN 1 ..p_holds_table.count
3291: l_line_exists := 'N';
3292:
3293: IF G_debug_flag = 'Y' THEN
3294: oe_debug_pub.add('OEXVCRLB: BillTo site has changed. Checking if the new site belongs to the same CUSTOMER');
3295: oe_debug_pub.add('OEXVCRLB: Also checking if the earlier credit checking also happened due to CUSTOMER level limits only');
3296: END IF;
3297:
3298: FOR k IN 1 ..p_holds_table.count
3299: LOOP
3301: l_line_exists := 'Y';
3302: --13706069 start
3303: ELSE
3304: IF G_debug_flag = 'Y' THEN
3305: oe_debug_pub.add('OEXVCRLB: Bill To site is not changed for the line.' || OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab(i).line_id);
3306: END IF;
3307:
3308: l_tolerance_check := 'Y';
3309: --13706069 end
3315:
3316: --13706069 start
3317: BEGIN
3318: IF G_debug_flag = 'Y' THEN
3319: OE_DEBUG_PUB.Add('OEXVCRLB: Retrieve the latest released Credit Profile ' || OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab(i).line_id);
3320: END IF;
3321:
3322: OPEN released_hold_line(OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab(i).line_id);
3323: FETCH released_hold_line INTO l_credit_profile_level;
3322: OPEN released_hold_line(OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab(i).line_id);
3323: FETCH released_hold_line INTO l_credit_profile_level;
3324:
3325: IF (released_hold_line%notfound) THEN
3326: oe_debug_pub.add('No Released record found');
3327: l_credit_profile_level := NULL;
3328: END IF;
3329:
3330: CLOSE released_hold_line;
3330: CLOSE released_hold_line;
3331:
3332: EXCEPTION
3333: WHEN OTHERS THEN
3334: oe_debug_pub.ADD('OEXVCRLB: In Exception block');
3335: l_credit_profile_level := NULL;
3336: END;
3337:
3338: --13706069 end
3364:
3365: IF l_new_cust_account_id <> l_old_cust_account_id THEN
3366: IF G_debug_flag = 'Y'
3367: THEN
3368: OE_DEBUG_PUB.Add('OEXVCRLB: Sites belong to the different customer and credit checking at Customer level. Tolerance check N ');
3369: END IF;
3370: l_tolerance_check := 'N';
3371: EXIT;
3372: ELSE
3371: EXIT;
3372: ELSE
3373: IF G_debug_flag = 'Y'
3374: THEN
3375: OE_DEBUG_PUB.Add('slagiset: Sites belong to the same customer and credit checking at Customer level. Tolerance check Y ');
3376: END IF;
3377: l_tolerance_check := 'Y';
3378: END IF;
3379: ELSE
3391: -- OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; Commented for bug# 13706069
3392: --ER 12363706 end
3393: IF G_debug_flag = 'Y'
3394: THEN
3395: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3396: || x_return_status );
3397: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3398: x_global_exposure_flag );
3399: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3393: IF G_debug_flag = 'Y'
3394: THEN
3395: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3396: || x_return_status );
3397: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3398: x_global_exposure_flag );
3399: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3400: l_credit_limit_entity_id );
3401: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3395: OE_DEBUG_PUB.Add(' After Validate_other_credit_check status '
3396: || x_return_status );
3397: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3398: x_global_exposure_flag );
3399: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3400: l_credit_limit_entity_id );
3401: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3402: END IF;
3403:
3397: OE_DEBUG_PUB.Add(' x_global_exposure_flag => '||
3398: x_global_exposure_flag );
3399: OE_DEBUG_PUB.Add(' l_credit_limit_entity_id ==> '||
3400: l_credit_limit_entity_id );
3401: OE_DEBUG_PUB.Add(' l_check_order = '|| l_check_order );
3402: END IF;
3403:
3404: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3405: RAISE FND_API.G_EXC_ERROR;
3449: );
3450:
3451: IF G_debug_flag = 'Y'
3452: THEN
3453: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Result Out ='
3454: ||l_cc_duedate_result_out);
3455: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Return Status ='
3456: || x_return_status );
3457:
3451: IF G_debug_flag = 'Y'
3452: THEN
3453: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Result Out ='
3454: ||l_cc_duedate_result_out);
3455: OE_DEBUG_PUB.Add('Chk_Past_Due_Invoice: Return Status ='
3456: || x_return_status );
3457:
3458: END IF;
3459:
3516: );
3517:
3518: IF G_debug_flag = 'Y'
3519: THEN
3520: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3521: ||l_cc_trx_result_out);
3522: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3523: || x_return_status );
3524: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3518: IF G_debug_flag = 'Y'
3519: THEN
3520: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3521: ||l_cc_trx_result_out);
3522: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3523: || x_return_status );
3524: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3525:
3526: END IF;
3520: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='
3521: ||l_cc_trx_result_out);
3522: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='
3523: || x_return_status );
3524: OE_DEBUG_PUB.Add('err curr tbl count = '|| l_error_curr_tbl.COUNT );
3525:
3526: END IF;
3527:
3528: IF l_cc_trx_result_out = 'FAIL' THEN
3580: x_check_exposure_mode := 'INLINE';
3581:
3582: IF G_debug_flag = 'Y'
3583: THEN
3584: OE_DEBUG_PUB.Add(' x_check_exposure_mode = '
3585: || x_check_exposure_mode );
3586: END IF;
3587: -------------------------------------------------
3588: -- l_prev_customer_id is used to keep track of the
3596: -- level
3597: ---------------------------------------------------
3598: IF G_debug_flag = 'Y'
3599: THEN
3600: OE_DEBUG_PUB.Add(' l_prev_customer_id = '|| l_prev_customer_id );
3601: END IF;
3602:
3603: IF ( ( x_credit_level NOT IN ( 'CUSTOMER','PARTY') )
3604: OR
3631:
3632:
3633: IF G_debug_flag = 'Y'
3634: THEN
3635: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3636: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3637: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3638: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3639: OE_DEBUG_PUB.Add('Err curr table count = '||
3632:
3633: IF G_debug_flag = 'Y'
3634: THEN
3635: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3636: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3637: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3638: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3639: OE_DEBUG_PUB.Add('Err curr table count = '||
3640: l_error_curr_tbl.COUNT );
3633: IF G_debug_flag = 'Y'
3634: THEN
3635: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3636: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3637: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3638: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3639: OE_DEBUG_PUB.Add('Err curr table count = '||
3640: l_error_curr_tbl.COUNT );
3641: END IF;
3634: THEN
3635: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3636: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3637: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3638: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3639: OE_DEBUG_PUB.Add('Err curr table count = '||
3640: l_error_curr_tbl.COUNT );
3641: END IF;
3642: --Bug 4320650
3635: OE_DEBUG_PUB.Add('After call to Check_order_lines_Exposure ');
3636: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_overall_result_out );
3637: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
3638: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
3639: OE_DEBUG_PUB.Add('Err curr table count = '||
3640: l_error_curr_tbl.COUNT );
3641: END IF;
3642: --Bug 4320650
3643: l_unrounded_exposure := l_total_exposure;
3661:
3662: ELSE
3663: IF G_debug_flag = 'Y'
3664: THEN
3665: OE_DEBUG_PUB.Add('customer exposure already checked');
3666: END IF;
3667:
3668: -- customer exposure already checked, retrieve the result
3669: l_cc_result_out := l_customer_result_out;
3739: END IF;
3740: ELSE
3741: IF G_debug_flag = 'Y'
3742: THEN
3743: OE_DEBUG_PUB.Add('No credit check required');
3744: END IF;
3745:
3746: l_cc_result_out := 'NOCHECK';
3747: END IF;
3817: l_source_security_group_id := FND_PROFILE.VALUE('SECURITY_GROUP_ID');
3818:
3819: IF G_debug_flag = 'Y'
3820: THEN
3821: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3822: credit check level= '||x_credit_level);
3823:
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3820: THEN
3821: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3822: credit check level= '||x_credit_level);
3823:
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3821: OE_DEBUG_PUB.Add('Calling Create_credit_request,
3822: credit check level= '||x_credit_level);
3823:
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3822: credit check level= '||x_credit_level);
3823:
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3823:
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3824: OE_DEBUG_PUB.Add('Parameters: ');
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3825: OE_DEBUG_PUB.Add('-------------------------------------------');
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3826: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
3827: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3828: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3829: --OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));-- Bug 12651163
3830: OE_DEBUG_PUB.Add('p_requested_amount= '||
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3831: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));-- Bug 12651163
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3832: --OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);-- Bug 12651163
3833: OE_DEBUG_PUB.Add('p_requested_currency= '||
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3834: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);-- Bug 12651163
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3835: --OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));-- Bug 12651163
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3836: OE_DEBUG_PUB.Add('p_trx_amount= '||
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3837: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));-- Bug 12651163
3838: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3839: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3840: OE_DEBUG_PUB.Add('p_term_length = NULL' );
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3841: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3842: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3843: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3844: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3845: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3846: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3847: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3848: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3849: OE_DEBUG_PUB.Add('p_notes = NULL');
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3850: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3858: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3851: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3858: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3859: TO_CHAR(p_header_rec.order_number));
3852: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
3853: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3858: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3859: TO_CHAR(p_header_rec.order_number));
3860: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3854: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
3855: OE_DEBUG_PUB.Add('p_source_name = OM');
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3858: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3859: TO_CHAR(p_header_rec.order_number));
3860: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3861:
3862: END IF;
3856: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
3857: TO_CHAR(p_header_rec.header_id));
3858: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
3859: TO_CHAR(p_header_rec.order_number));
3860: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
3861:
3862: END IF;
3863: ----------------Submit Credit Review--------------------
3864: AR_CMGT_CREDIT_REQUEST_API.Create_credit_request
3915: IF G_debug_flag = 'Y'
3916: THEN
3917: IF x_return_status='S'
3918: THEN
3919: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
3920: ||TO_CHAR(l_request_id));
3921: ELSE
3922: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3923: END IF;
3918: THEN
3919: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
3920: ||TO_CHAR(l_request_id));
3921: ELSE
3922: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3923: END IF;
3924:
3925: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3926: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3921: ELSE
3922: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3923: END IF;
3924:
3925: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3926: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3927: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3928: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3929:
3922: OE_DEBUG_PUB.Add('Credit review has not been submitted');
3923: END IF;
3924:
3925: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3926: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3927: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3928: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3929:
3930: END IF;
3923: END IF;
3924:
3925: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3926: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3927: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3928: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3929:
3930: END IF;
3931:
3924:
3925: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
3926: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
3927: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
3928: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
3929:
3930: END IF;
3931:
3932: END IF;
3940:
3941:
3942: -- ER 6135714
3943: IF G_debug_flag = 'Y' THEN
3944: OE_DEBUG_PUB.Add('Applying Hold for hold line sequence ');
3945: oe_debug_pub.add(' l_cc_limit_used= '||l_cc_limit_used||' l_total_exposure= '||l_total_exposure
3946: || ' l_hold_line_seq= '||l_hold_line_seq); --14365827
3947: END IF;
3948:
3941:
3942: -- ER 6135714
3943: IF G_debug_flag = 'Y' THEN
3944: OE_DEBUG_PUB.Add('Applying Hold for hold line sequence ');
3945: oe_debug_pub.add(' l_cc_limit_used= '||l_cc_limit_used||' l_total_exposure= '||l_total_exposure
3946: || ' l_hold_line_seq= '||l_hold_line_seq); --14365827
3947: END IF;
3948:
3949: IF (l_hold_line_seq = '1' OR p_calling_action = 'BOOKING'
3949: IF (l_hold_line_seq = '1' OR p_calling_action = 'BOOKING'
3950: OR ( l_cc_limit_used <> 'OVERALL' and l_total_exposure is NULL) --14365827
3951: OR nvl(p_credit_check_rule_rec.uninvoiced_orders_flag,'N') = 'Y') THEN
3952: IF G_debug_flag = 'Y' THEN
3953: OE_DEBUG_PUB.Add('Applying Hold for all hold line sequence option');
3954: END IF;
3955: -- ER 6135714
3956: Apply_Other_Holds
3957: ( p_header_id => p_header_rec.header_id
3997: END IF;
3998:
3999: IF G_debug_flag = 'Y'
4000: THEN
4001: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_Other_Credit Limits');
4002: END IF;
4003:
4004:
4005: EXCEPTION
4014: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4015: OE_MSG_PUB.Add_Exc_Msg
4016: ( G_PKG_NAME, 'Check_Other_Credit_Limits');
4017: END IF;
4018: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
4019:
4020: END Check_Other_Credit_Limits;
4021:
4022: -------------------------------------------------
4045:
4046: BEGIN
4047: IF G_debug_flag = 'Y'
4048: THEN
4049: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
4050: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
4051: OE_DEBUG_PUB.Add('start Loop for holds table');
4052: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
4053: END IF;
4046: BEGIN
4047: IF G_debug_flag = 'Y'
4048: THEN
4049: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
4050: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
4051: OE_DEBUG_PUB.Add('start Loop for holds table');
4052: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
4053: END IF;
4054:
4047: IF G_debug_flag = 'Y'
4048: THEN
4049: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
4050: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
4051: OE_DEBUG_PUB.Add('start Loop for holds table');
4052: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
4053: END IF;
4054:
4055: x_return_status := FND_API.G_RET_STS_SUCCESS;
4048: THEN
4049: OE_DEBUG_PUB.Add('OEXVCRLB: In Apply_And_Release_Holds');
4050: OE_DEBUG_PUB.Add('p_header_id: '||p_header_id);
4051: OE_DEBUG_PUB.Add('start Loop for holds table');
4052: OE_DEBUG_PUB.Add('p_check_exposure_mode => '|| p_check_exposure_mode );
4053: END IF;
4054:
4055: x_return_status := FND_API.G_RET_STS_SUCCESS;
4056: --
4088: );
4089:
4090: IF G_debug_flag = 'Y'
4091: THEN
4092: OE_DEBUG_PUB.Add('Apply Hold: l_result_out = '|| l_result_out);
4093: END IF;
4094:
4095: IF l_result_out = 'FAIL_HOLD' THEN
4096: l_cc_result_out := l_result_out;
4126: THEN
4127: BEGIN
4128: IF G_debug_flag = 'Y'
4129: THEN
4130: OE_DEBUG_PUB.ADD('Call Releases_Order_Cc_Hold ');
4131: OE_DEBUG_PUB.ADD('Before G_hdr_hold_released = '||
4132: G_hdr_hold_released );
4133: END IF;
4134:
4127: BEGIN
4128: IF G_debug_flag = 'Y'
4129: THEN
4130: OE_DEBUG_PUB.ADD('Call Releases_Order_Cc_Hold ');
4131: OE_DEBUG_PUB.ADD('Before G_hdr_hold_released = '||
4132: G_hdr_hold_released );
4133: END IF;
4134:
4135: Release_Order_CC_Hold
4160:
4161: ELSE
4162: IF G_debug_flag = 'Y'
4163: THEN
4164: OE_DEBUG_PUB.ADD('Header holds released already');
4165: END IF;
4166: END IF;
4167: l_cc_hdr_result_out := NULL ;
4168: END IF; -- End HDR_HOLD
4174: x_cc_result_out := l_cc_result_out;
4175:
4176: IF G_debug_flag = 'Y'
4177: THEN
4178: OE_DEBUG_PUB.Add('x_cc_result_out => '|| x_cc_result_out );
4179: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_And_Release_Holds');
4180: END IF;
4181: EXCEPTION
4182: WHEN others THEN
4175:
4176: IF G_debug_flag = 'Y'
4177: THEN
4178: OE_DEBUG_PUB.Add('x_cc_result_out => '|| x_cc_result_out );
4179: OE_DEBUG_PUB.Add('OEXVCRLB: Out Apply_And_Release_Holds');
4180: END IF;
4181: EXCEPTION
4182: WHEN others THEN
4183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4186: ( G_PKG_NAME
4187: , 'Apply_And_Release_Holds'
4188: );
4189: END IF;
4190: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
4191: END Apply_And_Release_Holds;
4192:
4193: ------------------------------------------------+
4194: -- Mainline Function that will read an Order |
4302:
4303: BEGIN
4304: IF G_debug_flag = 'Y'
4305: THEN
4306: OE_DEBUG_PUB.Add('OEXVCRLB: In Check_order_lines_credit API',1);
4307: END IF;
4308:
4309: --
4310: -- Set the default behavior to pass credit check
4323: l_credit_hold_level := p_credit_check_rule_rec.CREDIT_HOLD_LEVEL_CODE ;
4324:
4325: IF G_debug_flag = 'Y'
4326: THEN
4327: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
4328: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
4329: l_credit_hold_level );
4330: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
4331: G_hdr_hold_released);
4324:
4325: IF G_debug_flag = 'Y'
4326: THEN
4327: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
4328: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
4329: l_credit_hold_level );
4330: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
4331: G_hdr_hold_released);
4332: OE_DEBUG_PUB.Add('Inital G_release_status = '||
4326: THEN
4327: OE_DEBUG_PUB.Add('Inital starting G_result_out = '|| G_result_out);
4328: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
4329: l_credit_hold_level );
4330: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
4331: G_hdr_hold_released);
4332: OE_DEBUG_PUB.Add('Inital G_release_status = '||
4333: G_release_status );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4328: OE_DEBUG_PUB.Add('l_credit_hold_level => '||
4329: l_credit_hold_level );
4330: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
4331: G_hdr_hold_released);
4332: OE_DEBUG_PUB.Add('Inital G_release_status = '||
4333: G_release_status );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4330: OE_DEBUG_PUB.Add('Inital G_hdr_hold_released = '||
4331: G_hdr_hold_released);
4332: OE_DEBUG_PUB.Add('Inital G_release_status = '||
4333: G_release_status );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4332: OE_DEBUG_PUB.Add('Inital G_release_status = '||
4333: G_release_status );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4333: G_release_status );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4334: OE_DEBUG_PUB.Add('G_currency_error_msg = '||
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4335: OE_Credit_Engine_GRP.G_currency_error_msg );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4336: OE_DEBUG_PUB.Add(' ');
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4344: OE_DEBUG_PUB.Add(' conversion type = '
4337: OE_DEBUG_PUB.Add(' ---------------------------------------');
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4344: OE_DEBUG_PUB.Add(' conversion type = '
4345: || p_credit_check_rule_rec.conversion_type );
4338: OE_DEBUG_PUB.Add(' ');
4339: OE_DEBUG_PUB.Add(' p_calling_action = ' || p_calling_action );
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4344: OE_DEBUG_PUB.Add(' conversion type = '
4345: || p_credit_check_rule_rec.conversion_type );
4346: OE_DEBUG_PUB.Add(' Credit check level = '
4340: OE_DEBUG_PUB.Add(' OEXVCRLB:Header ID = ' || p_header_rec.header_id );
4341: OE_DEBUG_PUB.Add(' ORDER NUMBER = ' || p_header_rec.order_number );
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4344: OE_DEBUG_PUB.Add(' conversion type = '
4345: || p_credit_check_rule_rec.conversion_type );
4346: OE_DEBUG_PUB.Add(' Credit check level = '
4347: || p_credit_check_rule_rec.credit_check_level_code );
4348:
4342: OE_DEBUG_PUB.Add(' Credit check rule ID = '
4343: || p_credit_check_rule_rec.credit_check_rule_id );
4344: OE_DEBUG_PUB.Add(' conversion type = '
4345: || p_credit_check_rule_rec.conversion_type );
4346: OE_DEBUG_PUB.Add(' Credit check level = '
4347: || p_credit_check_rule_rec.credit_check_level_code );
4348:
4349: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
4350: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
4345: || p_credit_check_rule_rec.conversion_type );
4346: OE_DEBUG_PUB.Add(' Credit check level = '
4347: || p_credit_check_rule_rec.credit_check_level_code );
4348:
4349: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
4350: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
4351: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4347: || p_credit_check_rule_rec.credit_check_level_code );
4348:
4349: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
4350: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
4351: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4354: OE_DEBUG_PUB.Add(' ---------------------------------------');
4355: OE_DEBUG_PUB.Add(' ');
4349: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
4350: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
4351: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4354: OE_DEBUG_PUB.Add(' ---------------------------------------');
4355: OE_DEBUG_PUB.Add(' ');
4356: OE_DEBUG_PUB.Add('start SITE loop ');
4357: END IF;
4350: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
4351: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4354: OE_DEBUG_PUB.Add(' ---------------------------------------');
4355: OE_DEBUG_PUB.Add(' ');
4356: OE_DEBUG_PUB.Add('start SITE loop ');
4357: END IF;
4358:
4351: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4354: OE_DEBUG_PUB.Add(' ---------------------------------------');
4355: OE_DEBUG_PUB.Add(' ');
4356: OE_DEBUG_PUB.Add('start SITE loop ');
4357: END IF;
4358:
4359: -- bug 4767772
4352: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
4353: OE_DEBUG_PUB.Add(' ');
4354: OE_DEBUG_PUB.Add(' ---------------------------------------');
4355: OE_DEBUG_PUB.Add(' ');
4356: OE_DEBUG_PUB.Add('start SITE loop ');
4357: END IF;
4358:
4359: -- bug 4767772
4360: -- release the credit hold for lines with credit check flag not enabled.
4372: );
4373:
4374: IF G_debug_flag = 'Y'
4375: THEN
4376: oe_debug_pub.add ('line level credit checking hold is released for line: '||c_lines.line_id,3);
4377: oe_debug_pub.add ('l_cc_result_out is : '||l_cc_result_out ,3);
4378: END IF;
4379:
4380: END LOOP;
4373:
4374: IF G_debug_flag = 'Y'
4375: THEN
4376: oe_debug_pub.add ('line level credit checking hold is released for line: '||c_lines.line_id,3);
4377: oe_debug_pub.add ('l_cc_result_out is : '||l_cc_result_out ,3);
4378: END IF;
4379:
4380: END LOOP;
4381:
4385: IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) = FND_API.G_TRUE
4386: THEN
4387: IF l_credit_hold_level = 'ORDER'
4388: THEN
4389: oe_debug_pub.ADD('OEXVCRLB: Credit check at Order Level');
4390: IF OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED
4391: THEN
4392: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check is required');
4393: IF NOT OE_HOLDS_PUB.Hold_exists( p_hold_entity_code => 'O'
4388: THEN
4389: oe_debug_pub.ADD('OEXVCRLB: Credit check at Order Level');
4390: IF OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED
4391: THEN
4392: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check is required');
4393: IF NOT OE_HOLDS_PUB.Hold_exists( p_hold_entity_code => 'O'
4394: , p_hold_entity_id => p_header_rec.header_id
4395: , p_hold_id => 1
4396: , p_org_id => mo_global.get_current_org_id
4395: , p_hold_id => 1
4396: , p_org_id => mo_global.get_current_org_id
4397: )
4398: THEN
4399: oe_debug_pub.ADD('OEXVCRLB: Active hold does not exists.');
4400: IF Check_Manual_Released_Holds( p_calling_action => p_calling_action ,
4401: p_credit_hold_level => l_credit_hold_level ,
4402: p_hold_id => 1 ,
4403: p_header_id => p_header_rec.header_id ,
4403: p_header_id => p_header_rec.header_id ,
4404: p_line_id => NULL ,
4405: p_credit_check_rule_rec=>p_credit_check_rule_rec) = 'Y'
4406: THEN
4407: oe_debug_pub.ADD('OEXVCRLB: Manually released hold exists.');
4408: IF OE_CREDIT_ENGINE_GRP.CREDIT_TOLERANCE_CHECK( p_header_id => p_header_rec.header_id) THEN
4409: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE;
4410:
4411: IF G_debug_flag = 'Y'
4409: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE;
4410:
4411: IF G_debug_flag = 'Y'
4412: THEN
4413: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check Passed');
4414: END IF;
4415:
4416: RETURN;
4417: END IF;
4425: IF NVL(OE_credit_engine_GRP.G_delayed_request, FND_API.G_FALSE ) = FND_API.G_TRUE
4426: THEN
4427: IF l_credit_hold_level = 'LINE'
4428: THEN
4429: oe_debug_pub.ADD('OEXVCRLB: Credit check at Line Level');
4430: IF OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED
4431: THEN
4432: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check is required');
4433: OPEN latest_hold_rec(p_header_rec.header_id);
4428: THEN
4429: oe_debug_pub.ADD('OEXVCRLB: Credit check at Line Level');
4430: IF OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED
4431: THEN
4432: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check is required');
4433: OPEN latest_hold_rec(p_header_rec.header_id);
4434:
4435: FETCH latest_hold_rec INTO l_hold_source_id;
4436:
4437: CLOSE latest_hold_rec;
4438:
4439: IF G_debug_flag = 'Y'
4440: THEN
4441: oe_debug_pub.ADD('OEXVCRLB: Latest Hold Source id: '||l_hold_source_id);
4442: END IF;
4443:
4444: BEGIN
4445: SELECT RELEASE_REASON_CODE,CREATED_BY
4448: WHERE HOLD_SOURCE_ID = l_hold_source_id;
4449:
4450: IF G_debug_flag = 'Y'
4451: THEN
4452: oe_debug_pub.ADD('OEXVCRLB: Latest Hold Source Reason Code:'|| l_release_reason_code);
4453: oe_debug_pub.ADD('OEXVCRLB: Latest Hold Source Created By:' || l_created_by);
4454: END IF;
4455:
4456: IF l_release_reason_code <> 'PASS_CREDIT' AND l_created_by <> 1
4449:
4450: IF G_debug_flag = 'Y'
4451: THEN
4452: oe_debug_pub.ADD('OEXVCRLB: Latest Hold Source Reason Code:'|| l_release_reason_code);
4453: oe_debug_pub.ADD('OEXVCRLB: Latest Hold Source Created By:' || l_created_by);
4454: END IF;
4455:
4456: IF l_release_reason_code <> 'PASS_CREDIT' AND l_created_by <> 1
4457: THEN
4458: l_manual_hold_exists := 'Y';
4459: END IF;
4460: EXCEPTION
4461: WHEN OTHERS THEN
4462: oe_debug_pub.ADD('OEXVCRLB: Error Others');
4463: l_manual_hold_exists := 'N';
4464: END;
4465:
4466: IF G_debug_flag = 'Y'
4464: END;
4465:
4466: IF G_debug_flag = 'Y'
4467: THEN
4468: oe_debug_pub.ADD('OEXVCRLB: l_manual_hold_exists:'||l_manual_hold_exists);
4469: END IF;
4470:
4471: IF l_manual_hold_exists = 'Y'
4472: THEN
4473: IF OE_CREDIT_ENGINE_GRP.CREDIT_TOLERANCE_CHECK( p_header_id => p_header_rec.header_id) THEN
4474: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE;
4475: IF G_debug_flag = 'Y'
4476: THEN
4477: oe_debug_pub.ADD('OEXVCRLB: Tolerance Check Passed');
4478: END IF;
4479: RETURN;
4480: END IF;
4481: END IF;
4491: FOR c_site IN cust_and_site_csr
4492: LOOP
4493: IF G_debug_flag = 'Y'
4494: THEN
4495: OE_DEBUG_PUB.ADD('OEXVCRLB: HeaderID/SiteUseID:' ||
4496: p_header_rec.header_id || '/' || c_site.site_use_id, 1);
4497: END IF;
4498:
4499: l_own_customer_id := NULL ;
4512:
4513:
4514: IF G_debug_flag = 'Y'
4515: THEN
4516: OE_DEBUG_PUB.ADD(' l_own_customer_id = '|| l_own_customer_id );
4517: END IF;
4518:
4519: EXCEPTION
4520: WHEN NO_DATA_FOUND
4518:
4519: EXCEPTION
4520: WHEN NO_DATA_FOUND
4521: THEN
4522: OE_DEBUG_PUB.ADD(' Exception - No data found ');
4523: RAISE;
4524: WHEN TOO_MANY_ROWS
4525: THEN
4526: OE_DEBUG_PUB.ADD(' Exception - TOO_MANY_ROWS');
4522: OE_DEBUG_PUB.ADD(' Exception - No data found ');
4523: RAISE;
4524: WHEN TOO_MANY_ROWS
4525: THEN
4526: OE_DEBUG_PUB.ADD(' Exception - TOO_MANY_ROWS');
4527: RAISE;
4528: END ;
4529:
4530:
4544: );
4545:
4546: IF G_debug_flag = 'Y'
4547: THEN
4548: OE_DEBUG_PUB.Add('PLSQL Holds table created');
4549: END IF;
4550:
4551: ----------------------------------------------------------
4552: -- Perform item category credit check for the order site
4566: ---------------------------------------------------+
4567:
4568: IF G_debug_flag = 'Y'
4569: THEN
4570: OE_DEBUG_PUB.Add(' table count = '|| l_holds_table.COUNT );
4571: END IF;
4572:
4573: IF l_holds_table.COUNT > 0
4574: THEN
4593: x_return_status := FND_API.G_RET_STS_SUCCESS;
4594:
4595: IF G_debug_flag = 'Y'
4596: THEN
4597: OE_DEBUG_PUB.Add(' No check item categories, Flag OFF ');
4598: END IF;
4599:
4600: END IF;
4601:
4617: l_release_order_hold := 'N';
4618:
4619: IF G_debug_flag = 'Y'
4620: THEN
4621: OE_DEBUG_PUB.Add(' Exit SITE loop as order failed ');
4622: END IF;
4623:
4624: EXIT;
4625:
4658: );
4659:
4660: IF G_debug_flag = 'Y'
4661: THEN
4662: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits : Result Out = '
4663: || l_cc_result_out );
4664: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
4665: || x_return_status );
4666: END IF;
4660: IF G_debug_flag = 'Y'
4661: THEN
4662: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits : Result Out = '
4663: || l_cc_result_out );
4664: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
4665: || x_return_status );
4666: END IF;
4667:
4668:
4681: l_release_order_hold := 'N';
4682:
4683: IF G_debug_flag = 'Y'
4684: THEN
4685: OE_DEBUG_PUB.Add(' Exit site loop as FAILED ');
4686: END IF;
4687:
4688: EXIT; --exit out of bill-to site loop
4689:
4740: THEN
4741:
4742: IF G_debug_flag = 'Y'
4743: THEN
4744: OE_DEBUG_PUB.Add('Calling Create_credit_request ');
4745: END IF;
4746: -- bug 5907331
4747: l_review_party_id := l_party_id;
4748: ------check if the credit check level is PARTY, CUSTOMER or SITE
4774: FND_PROFILE.VALUE('SECURITY_GROUP_ID');
4775:
4776: IF G_debug_flag = 'Y'
4777: THEN
4778: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4779: credit check level= '||l_credit_level);
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4776: IF G_debug_flag = 'Y'
4777: THEN
4778: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4779: credit check level= '||l_credit_level);
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4777: THEN
4778: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4779: credit check level= '||l_credit_level);
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4778: OE_DEBUG_PUB.Add('Calling Create_credit_request,
4779: credit check level= '||l_credit_level);
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4779: credit check level= '||l_credit_level);
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4780: OE_DEBUG_PUB.Add('Parameters: ');
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4788: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4781: OE_DEBUG_PUB.Add('-------------------------------------------');
4782: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4788: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4789: OE_DEBUG_PUB.Add('p_trx_amount= '||
4783: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
4784: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4788: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4789: OE_DEBUG_PUB.Add('p_trx_amount= '||
4790: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4785: OE_DEBUG_PUB.Add('p_requested_amount= '||
4786: TO_CHAR(OE_CREDIT_CHECK_LINES_PVT.G_total_site_exposure ));
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4788: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4789: OE_DEBUG_PUB.Add('p_trx_amount= '||
4790: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4792: p_header_rec.transactional_curr_code );
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4787: OE_DEBUG_PUB.Add('p_requested_currency= '||
4788: OE_CREDIT_CHECK_LINES_PVT.G_limit_currency);
4789: OE_DEBUG_PUB.Add('p_trx_amount= '||
4790: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4792: p_header_rec.transactional_curr_code );
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4789: OE_DEBUG_PUB.Add('p_trx_amount= '||
4790: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4792: p_header_rec.transactional_curr_code );
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4790: TO_CHAR(OE_CREDIT_CHECK_UTIL.g_current_order_value));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4792: p_header_rec.transactional_curr_code );
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4791: OE_DEBUG_PUB.Add('p_trx_currency= '||
4792: p_header_rec.transactional_curr_code );
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4793: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4794: OE_DEBUG_PUB.Add('p_term_length = NULL' );
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4795: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4796: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4797: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4798: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(l_party_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4799: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4800: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4801: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4802: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4803: OE_DEBUG_PUB.Add('p_notes = NULL');
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4804: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4812: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4805: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4812: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4813: TO_CHAR(p_header_rec.order_number));
4806: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
4807: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4812: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4813: TO_CHAR(p_header_rec.order_number));
4814: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4808: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
4809: OE_DEBUG_PUB.Add('p_source_name = OM');
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4812: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4813: TO_CHAR(p_header_rec.order_number));
4814: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4815:
4816: END IF;
4810: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
4811: TO_CHAR(p_header_rec.header_id));
4812: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
4813: TO_CHAR(p_header_rec.order_number));
4814: OE_DEBUG_PUB.Add('p_source_column3= LINE');
4815:
4816: END IF;
4817: ----------------Submit Credit Review--------------------
4818: AR_CMGT_CREDIT_REQUEST_API.Create_credit_request
4879: THEN
4880: IF x_return_status='S'
4881: THEN
4882:
4883: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
4884: ||TO_CHAR(l_request_id));
4885: ELSE
4886: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4887: END IF;
4882:
4883: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
4884: ||TO_CHAR(l_request_id));
4885: ELSE
4886: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4887: END IF;
4888: END IF;
4889:
4890: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4886: OE_DEBUG_PUB.Add('Credit review has not been submitted');
4887: END IF;
4888: END IF;
4889:
4890: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4891: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4892: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4893: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4894:
4887: END IF;
4888: END IF;
4889:
4890: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4891: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4892: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4893: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4894:
4895:
4888: END IF;
4889:
4890: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4891: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4892: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4893: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4894:
4895:
4896: END IF;
4889:
4890: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
4891: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
4892: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
4893: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
4894:
4895:
4896: END IF;
4897:
4910: AND l_credit_hold_level = 'LINE'
4911: THEN
4912: IF G_debug_flag = 'Y'
4913: THEN
4914: OE_DEBUG_PUB.Add('No credit check required');
4915: END IF;
4916: --x_cc_result_out := 'NOCHECK';
4917:
4918:
4934: x_cc_profile_used := l_cc_profile_used;
4935: END IF;
4936:
4937: ELSE
4938: OE_DEBUG_PUB.Add('No credit check as table count = 0 ');
4939: END IF ; -- count IF
4940:
4941: END LOOP; -- End of Loop
4942:
4942:
4943: -- Release order level credit hold if it exist and if the
4944: IF G_debug_flag = 'Y'
4945: THEN
4946: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4947: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4948: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4949: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4950: END IF;
4943: -- Release order level credit hold if it exist and if the
4944: IF G_debug_flag = 'Y'
4945: THEN
4946: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4947: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4948: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4949: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4950: END IF;
4951:
4944: IF G_debug_flag = 'Y'
4945: THEN
4946: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4947: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4948: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4949: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4950: END IF;
4951:
4952:
4945: THEN
4946: OE_DEBUG_PUB.Add(' x_cc_result_out = '|| x_cc_result_out );
4947: OE_DEBUG_PUB.Add(' x_cc_limit_used = '|| x_cc_limit_used );
4948: OE_DEBUG_PUB.Add(' x_cc_profile_used = '|| x_cc_profile_used );
4949: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
4950: END IF;
4951:
4952:
4953: IF l_credit_hold_level = 'ORDER'
4970: x_cc_result_out := l_cc_result_out ;
4971:
4972: IF G_debug_flag = 'Y'
4973: THEN
4974: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4975: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4976: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4977: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4978: END IF;
4971:
4972: IF G_debug_flag = 'Y'
4973: THEN
4974: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4975: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4976: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4977: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4978: END IF;
4979: --
4972: IF G_debug_flag = 'Y'
4973: THEN
4974: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4975: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4976: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4977: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4978: END IF;
4979: --
4980: IF l_credit_hold_level = 'LINE'
4973: THEN
4974: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out);
4975: OE_DEBUG_PUB.Add(' G_result_out = '|| G_result_out );
4976: OE_DEBUG_PUB.Add(' G_release_status = '|| G_release_status );
4977: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out,1 );
4978: END IF;
4979: --
4980: IF l_credit_hold_level = 'LINE'
4981: THEN
5007:
5008: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5009: IF G_debug_flag = 'Y'
5010: THEN
5011: OE_DEBUG_PUB.Add('OEXVCRLB: Out Check_order_lines_credit API',1);
5012: END IF;
5013:
5014: EXCEPTION
5015: WHEN FND_API.G_EXC_ERROR THEN
5015: WHEN FND_API.G_EXC_ERROR THEN
5016: x_return_status := FND_API.G_RET_STS_ERROR;
5017: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5018: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5019: OE_DEBUG_PUB.Add('Check_order_lines_credit: Error ',1);
5020:
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5024: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5025: OE_DEBUG_PUB.Add('Check_order_lines_credit: Unexpected Error ',1);
5026: WHEN OTHERS THEN
5027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5028: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5029: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5026: WHEN OTHERS THEN
5027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5028: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5029: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5030: OE_DEBUG_PUB.Add('Check_order_lines_credit: Other Unexpected Error ',1);
5031: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
5032: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5033: OE_MSG_PUB.Add_Exc_Msg
5034: ( G_PKG_NAME
5027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5028: OE_CREDIT_ENGINE_GRP.TOLERANCE_CHECK_REQUIRED := TRUE; --ER 12363706
5029: OE_CREDIT_CHECK_UTIL.G_CC_Invoice_tab.delete; --13706069
5030: OE_DEBUG_PUB.Add('Check_order_lines_credit: Other Unexpected Error ',1);
5031: OE_DEBUG_PUB.ADD( SUBSTR(SQLERRM,1,300),1 ) ;
5032: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5033: OE_MSG_PUB.Add_Exc_Msg
5034: ( G_PKG_NAME
5035: , 'Check_order_lines_credit'