[Home] [Help]
111: BEGIN
112: IF G_debug_flag = 'Y'
113: THEN
114:
115: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Manual_Released_Holds');
116: OE_DEBUG_PUB.Add('Check Header ID/Line ID: '||p_header_id||'/'||p_line_id);
117: OE_DEBUG_PUB.Add('p_calling action = '|| p_calling_action );
118: OE_DEBUG_PUB.Add('G_delayed_request = '||
119: OE_credit_engine_GRP.G_delayed_request );
112: IF G_debug_flag = 'Y'
113: THEN
114:
115: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Manual_Released_Holds');
116: OE_DEBUG_PUB.Add('Check Header ID/Line ID: '||p_header_id||'/'||p_line_id);
117: OE_DEBUG_PUB.Add('p_calling action = '|| p_calling_action );
118: OE_DEBUG_PUB.Add('G_delayed_request = '||
119: OE_credit_engine_GRP.G_delayed_request );
120: END IF;
113: THEN
114:
115: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Manual_Released_Holds');
116: OE_DEBUG_PUB.Add('Check Header ID/Line ID: '||p_header_id||'/'||p_line_id);
117: OE_DEBUG_PUB.Add('p_calling action = '|| p_calling_action );
118: OE_DEBUG_PUB.Add('G_delayed_request = '||
119: OE_credit_engine_GRP.G_delayed_request );
120: END IF;
121:
114:
115: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Manual_Released_Holds');
116: OE_DEBUG_PUB.Add('Check Header ID/Line ID: '||p_header_id||'/'||p_line_id);
117: OE_DEBUG_PUB.Add('p_calling action = '|| p_calling_action );
118: OE_DEBUG_PUB.Add('G_delayed_request = '||
119: OE_credit_engine_GRP.G_delayed_request );
120: END IF;
121:
122: -- Will check only if delayed_request is FALSE
142: AND S.HOLD_ENTITY_ID = p_header_id
143: AND S.RELEASED_FLAG ='Y';
144: EXCEPTION
145: WHEN NO_DATA_FOUND THEN
146: OE_DEBUG_PUB.Add
147: ('No data found ');
148: l_released_rec_exists := 'N';
149: END;
150:
174: END IF;
175:
176: EXCEPTION
177: WHEN NO_DATA_FOUND THEN
178: OE_DEBUG_PUB.Add
179: ('No manually released credit holds for Header ID/Line ID: '||
180: p_header_id||'/'||p_line_id,1);
181: l_manual_hold_exists := 'N';
182:
185: END IF;
186:
187: IF G_debug_flag = 'Y'
188: THEN
189: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_Manual_Released_Holds:'||l_manual_hold_exists);
190: END IF;
191:
192: RETURN l_manual_hold_exists;
193:
192: RETURN l_manual_hold_exists;
193:
194: EXCEPTION
195: WHEN OTHERS THEN
196: OE_DEBUG_PUB.ADD(SUBSTR(SQLERRM,1,300) ) ;
197:
198: OE_MSG_PUB.Add_Exc_Msg
199: ( G_PKG_NAME
200: , 'Check_Manual_Released_Holds'
220: l_msg_data VARCHAR2(2000);
221: BEGIN
222: IF G_debug_flag = 'Y'
223: THEN
224: OE_DEBUG_PUB.ADD('OEXVCRHB: In Hold_Exists');
225: OE_DEBUG_PUB.ADD('OEXVCRHB: Check holds for Header ID : '
226: || p_header_id,1);
227: OE_DEBUG_PUB.ADD('g_hold_exist => '|| g_hold_exist );
228:
221: BEGIN
222: IF G_debug_flag = 'Y'
223: THEN
224: OE_DEBUG_PUB.ADD('OEXVCRHB: In Hold_Exists');
225: OE_DEBUG_PUB.ADD('OEXVCRHB: Check holds for Header ID : '
226: || p_header_id,1);
227: OE_DEBUG_PUB.ADD('g_hold_exist => '|| g_hold_exist );
228:
229:
223: THEN
224: OE_DEBUG_PUB.ADD('OEXVCRHB: In Hold_Exists');
225: OE_DEBUG_PUB.ADD('OEXVCRHB: Check holds for Header ID : '
226: || p_header_id,1);
227: OE_DEBUG_PUB.ADD('g_hold_exist => '|| g_hold_exist );
228:
229:
230: END IF;
231:
237: l_hold_result := 'F' ;
238: ELSE
239: l_hold_result := NULL ;
240:
241: OE_DEBUG_PUB.ADD('Calling OE_HOLDS_PUB.Check_Holds ');
242:
243: OE_HOLDS_PUB.Check_Holds
244: ( p_api_version => 1.0
245: , p_header_id => p_header_id
257: );
258:
259: IF G_debug_flag = 'Y'
260: THEN
261: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Holds ');
262: OE_DEBUG_PUB.ADD('l_return_status = '|| l_return_status );
263: END IF;
264:
265: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
258:
259: IF G_debug_flag = 'Y'
260: THEN
261: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Holds ');
262: OE_DEBUG_PUB.ADD('l_return_status = '|| l_return_status );
263: END IF;
264:
265: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
271: END IF; -- g_hold_exist
272:
273: IF G_debug_flag = 'Y'
274: THEN
275: OE_DEBUG_PUB.ADD('OEXVCRHB: about to Hold_Exists');
276: OE_DEBUG_PUB.ADD('l_hold_result => '|| l_hold_result );
277: END IF;
278:
279: IF l_hold_result = FND_API.G_TRUE THEN
272:
273: IF G_debug_flag = 'Y'
274: THEN
275: OE_DEBUG_PUB.ADD('OEXVCRHB: about to Hold_Exists');
276: OE_DEBUG_PUB.ADD('l_hold_result => '|| l_hold_result );
277: END IF;
278:
279: IF l_hold_result = FND_API.G_TRUE THEN
280: return TRUE;
308: BEGIN
309:
310: IF G_debug_flag = 'Y'
311: THEN
312: OE_DEBUG_PUB.Add('OEXVCRHB: In Write_Release_Message');
313: END IF;
314:
315: IF p_calling_action = 'AUTO RELEASE' THEN
316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order Number: '||TO_CHAR(p_order_number)
325: ---OE_MSG_PUB.Save_Messages(1);
326:
327: IF G_debug_flag = 'Y'
328: THEN
329: OE_DEBUG_PUB.Add('OEXVCRHB: Out Write_Release_Message');
330: END IF;
331: EXCEPTION
332: WHEN OTHERS THEN
333: OE_MSG_PUB.Add_Exc_Msg
360: l_calling_activity VARCHAR2(50); --ER#7479609
361: BEGIN
362: IF G_debug_flag = 'Y'
363: THEN
364: OE_DEBUG_PUB.Add('OEXVCRHB: In Write_Order_Hold_Msg');
365: OE_DEBUG_PUB.Add('p_calling_action => '||
366: p_calling_action );
367: OE_DEBUG_PUB.Add('p_cc_limit_used => '||
368: p_cc_limit_used );
361: BEGIN
362: IF G_debug_flag = 'Y'
363: THEN
364: OE_DEBUG_PUB.Add('OEXVCRHB: In Write_Order_Hold_Msg');
365: OE_DEBUG_PUB.Add('p_calling_action => '||
366: p_calling_action );
367: OE_DEBUG_PUB.Add('p_cc_limit_used => '||
368: p_cc_limit_used );
369: OE_DEBUG_PUB.Add('p_cc_profile_used => '||
363: THEN
364: OE_DEBUG_PUB.Add('OEXVCRHB: In Write_Order_Hold_Msg');
365: OE_DEBUG_PUB.Add('p_calling_action => '||
366: p_calling_action );
367: OE_DEBUG_PUB.Add('p_cc_limit_used => '||
368: p_cc_limit_used );
369: OE_DEBUG_PUB.Add('p_cc_profile_used => '||
370: p_cc_profile_used );
371: OE_DEBUG_PUB.Add('p_order_number => '||
365: OE_DEBUG_PUB.Add('p_calling_action => '||
366: p_calling_action );
367: OE_DEBUG_PUB.Add('p_cc_limit_used => '||
368: p_cc_limit_used );
369: OE_DEBUG_PUB.Add('p_cc_profile_used => '||
370: p_cc_profile_used );
371: OE_DEBUG_PUB.Add('p_order_number => '||
372: p_order_number );
373: END IF;
367: OE_DEBUG_PUB.Add('p_cc_limit_used => '||
368: p_cc_limit_used );
369: OE_DEBUG_PUB.Add('p_cc_profile_used => '||
370: p_cc_profile_used );
371: OE_DEBUG_PUB.Add('p_order_number => '||
372: p_order_number );
373: END IF;
374:
375: -- Write to message stack anyway regardless of the calling action
453: x_comment := l_comment;
454:
455: IF G_debug_flag = 'Y'
456: THEN
457: OE_DEBUG_PUB.Add('x_comment => '||
458: x_comment );
459: OE_DEBUG_PUB.Add('OEXVCRHB: Out Write_Order_Hold_Msg');
460: END IF;
461:
455: IF G_debug_flag = 'Y'
456: THEN
457: OE_DEBUG_PUB.Add('x_comment => '||
458: x_comment );
459: OE_DEBUG_PUB.Add('OEXVCRHB: Out Write_Order_Hold_Msg');
460: END IF;
461:
462: EXCEPTION
463: WHEN OTHERS THEN
481: IS
482: BEGIN
483: IF G_debug_flag = 'Y'
484: THEN
485: OE_DEBUG_PUB.Add('OEXVCRHB: In Write_Order_Release_Msg');
486: END IF;
487:
488: IF p_calling_action = 'AUTO RELEASE' THEN
489: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Order '||TO_CHAR(p_order_number)
494: END IF;
495: --
496: IF G_debug_flag = 'Y'
497: THEN
498: OE_DEBUG_PUB.Add('OEXVCRHB: Out Write_Order_Release_Msg');
499: END IF;
500:
501: EXCEPTION
502: WHEN OTHERS THEN
524:
525:
526: BEGIN
527:
528: OE_DEBUG_PUB.ADD(' OEXVCRHB: In Apply_hold_and_commit ');
529: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
530:
531:
532: OE_Holds_PUB.Apply_Holds
525:
526: BEGIN
527:
528: OE_DEBUG_PUB.ADD(' OEXVCRHB: In Apply_hold_and_commit ');
529: OE_DEBUG_PUB.ADD(' Call OE_Holds_PUB.Apply_Holds ');
530:
531:
532: OE_Holds_PUB.Apply_Holds
533: ( p_api_version => 1.0
537: , x_msg_data => x_msg_data
538: , x_return_status => x_return_status
539: );
540:
541: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
542: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
543:
544: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
538: , x_return_status => x_return_status
539: );
540:
541: OE_DEBUG_PUB.ADD(' Out OE_Holds_PUB.Apply_Holds ');
542: OE_DEBUG_PUB.ADD(' x_return_status => '|| x_return_status );
543:
544: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
546: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
549:
550: OE_DEBUG_PUB.ADD(' Holds success ');
551: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
552:
553: COMMIT;
554:
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
549:
550: OE_DEBUG_PUB.ADD(' Holds success ');
551: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
552:
553: COMMIT;
554:
555: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
551: OE_DEBUG_PUB.ADD(' About to Issue COMMIT');
552:
553: COMMIT;
554:
555: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
556:
557: END IF;
558:
559: OE_DEBUG_PUB.ADD(' OEXVCRHB: OUT Apply_hold_and_commit ');
555: OE_DEBUG_PUB.ADD(' AFter Issue COMMIT');
556:
557: END IF;
558:
559: OE_DEBUG_PUB.ADD(' OEXVCRHB: OUT Apply_hold_and_commit ');
560:
561: EXCEPTION
562: WHEN OTHERS THEN
563: rollback;
560:
561: EXCEPTION
562: WHEN OTHERS THEN
563: rollback;
564: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
565: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
566: OE_MSG_PUB.Add_Exc_Msg
567: ( G_PKG_NAME
568: , 'Apply_hold_and_commit'
561: EXCEPTION
562: WHEN OTHERS THEN
563: rollback;
564: OE_DEBUG_PUB.ADD(' Error in Apply_hold_and_commit ' );
565: OE_DEBUG_PUB.ADD(' SQLERRM: '|| SQLERRM );
566: OE_MSG_PUB.Add_Exc_Msg
567: ( G_PKG_NAME
568: , 'Apply_hold_and_commit'
569: );
586: BEGIN
587:
588: IF G_debug_flag = 'Y'
589: THEN
590: OE_DEBUG_PUB.ADD('OEXVCRHB: Entering Update_Comments_And_Commit');
591: OE_DEBUG_PUB.ADD('OEXVCRHB: Before OE_Holds_PUB.Update_Hold_Comments');
592: END IF;
593:
594: OE_Holds_PUB.Update_Hold_comments
587:
588: IF G_debug_flag = 'Y'
589: THEN
590: OE_DEBUG_PUB.ADD('OEXVCRHB: Entering Update_Comments_And_Commit');
591: OE_DEBUG_PUB.ADD('OEXVCRHB: Before OE_Holds_PUB.Update_Hold_Comments');
592: END IF;
593:
594: OE_Holds_PUB.Update_Hold_comments
595: ( p_hold_source_rec => p_hold_source_rec
599: );
600:
601: IF G_debug_flag = 'Y'
602: THEN
603: OE_DEBUG_PUB.ADD('OEXVCRHB: After OE_Holds_PUB.Update_Hold_Comments Status '
604: || x_return_status);
605: END IF;
606:
607: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
612: IF G_debug_flag = 'Y'
613: THEN
614: OE_DEBUG_PUB.ADD('OEXVCRHB: Update Hold Comment Success, Issue COMMIT');
615: END IF;
616:
617: COMMIT;
618:
617: COMMIT;
618:
619: IF G_debug_flag = 'Y'
620: THEN
621: OE_DEBUG_PUB.ADD('OEXVCRHB: After Issuing COMMIT');
622: END IF;
623: END IF;
624:
625: IF G_debug_flag = 'Y'
623: END IF;
624:
625: IF G_debug_flag = 'Y'
626: THEN
627: OE_DEBUG_PUB.ADD(' OEXVCRHB: Exiting Update_Comments_And_Commit');
628: END IF;
629:
630: EXCEPTION
631: WHEN OTHERS THEN
629:
630: EXCEPTION
631: WHEN OTHERS THEN
632: rollback;
633: OE_DEBUG_PUB.ADD('OEXVCRHB: Error in Update_Comments_And_Commit' );
634: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
635: OE_MSG_PUB.Add_Exc_Msg
636: ( G_PKG_NAME
637: , 'Update_Comments_And_Commit'
630: EXCEPTION
631: WHEN OTHERS THEN
632: rollback;
633: OE_DEBUG_PUB.ADD('OEXVCRHB: Error in Update_Comments_And_Commit' );
634: OE_DEBUG_PUB.ADD('SQLERRM: '|| SQLERRM );
635: OE_MSG_PUB.Add_Exc_Msg
636: ( G_PKG_NAME
637: , 'Update_Comments_And_Commit'
638: );
688: OE_HOLDS_PVT.G_MISS_Hold_Source_REC;
689: BEGIN
690: IF G_debug_flag = 'Y'
691: THEN
692: OE_DEBUG_PUB.Add('OEXVCRHB: In Apply_Order_CC_Hold');
693: END IF;
694:
695: IF p_cc_limit_used = 'ITEM' THEN
696: OPEN item_category_csr;
722: l_hold_source_rec.hold_comment := l_hold_comment;
723:
724: IF G_debug_flag = 'Y'
725: THEN
726: OE_DEBUG_PUB.Add('OEXVCRHB: Hold already applied on Header ID:' ||
727: p_header_id, 1);
728: END IF;
729:
730: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
730: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
731: THEN
732: IF G_debug_flag = 'Y'
733: THEN
734: OE_DEBUG_PUB.ADD('OEXVCRHB: Call Update_Comments_And_Commit');
735: END IF;
736:
737: Update_Comments_And_Commit
738: ( p_hold_source_rec => l_hold_source_rec
742: );
743:
744: IF G_debug_flag = 'Y'
745: THEN
746: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Update_Comments_And_Commit');
747: END IF;
748:
749: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
750: THEN
749: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
750: THEN
751: IF G_debug_flag = 'Y'
752: THEN
753: OE_DEBUG_PUB.ADD('OEXVCRHB: Call OE_Holds_PUB.Update_Hold_Comments directly');
754: END IF;
755:
756: OE_Holds_PUB.Update_hold_comments
757: ( p_hold_source_rec => l_hold_source_rec
761: );
762:
763: IF G_debug_flag = 'Y'
764: THEN
765: OE_DEBUG_PUB.ADD('OEXVCRHB: Out OE_Holds_PUB.Update_Hold_Comments directly');
766: END IF;
767: END IF; -- Calling Action
768:
769: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
774: IF G_debug_flag = 'Y'
775: THEN
776: OE_DEBUG_PUB.ADD('OEXVCRHB: Updated Comments on Header ID:'
777: ||p_header_id, 1);
778: END IF;
779: END IF;
780: ELSE
787: ) = 'N'
788: THEN
789: IF G_debug_flag = 'Y'
790: THEN
791: OE_DEBUG_PUB.Add('No manual released holds ');
792: END IF;
793: G_result_out := 'FAIL' ;
794: Write_Order_Hold_Msg
795: (
809: THEN
810:
811: IF G_debug_flag = 'Y'
812: THEN
813: OE_DEBUG_PUB.ADD('OEXVCRHB: Call Apply_hold_and_commit ');
814: END IF;
815:
816: Apply_hold_and_commit
817: ( p_hold_source_rec => l_hold_source_rec
821: );
822:
823: IF G_debug_flag = 'Y'
824: THEN
825: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Apply_hold_and_commit ');
826: END IF;
827:
828: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
829: THEN
828: ELSIF NVL( p_calling_action,'BOOKING') IN ('BOOKING','UPDATE','AUTO HOLD')
829: THEN
830: IF G_debug_flag = 'Y'
831: THEN
832: OE_DEBUG_PUB.ADD('OEXVCRHB: Call OE_Holds_PUB.Apply_Holds directly');
833: END IF;
834:
835:
836: OE_Holds_PUB.Apply_Holds
842: , x_return_status => l_return_status
843: );
844:
845: IF G_debug_flag = 'Y' THEN
846: OE_DEBUG_PUB.ADD('OEXVCRHB: Out OE_Holds_PUB.Apply_Holds directly');
847: END IF;
848: END IF; --check calling action
849:
850:
853: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
856: IF G_debug_flag = 'Y' THEN
857: OE_DEBUG_PUB.ADD('OEXVCRHB: Credit check hold applied header_ID: '
858: ||p_header_id, 1);
859: END IF;
860: END IF;
861: l_cc_result_out := 'FAIL_HOLD';
865: x_cc_result_out := l_cc_result_out;
866:
867: IF G_debug_flag = 'Y'
868: THEN
869: OE_DEBUG_PUB.ADD('OEXVCRHB: Apply_Order_CC_Hold Result = '
870: ||x_cc_result_out);
871: OE_DEBUG_PUB.Add('OEXVCRHB: Out Apply_Order_CC_Hold');
872: END IF;
873:
867: IF G_debug_flag = 'Y'
868: THEN
869: OE_DEBUG_PUB.ADD('OEXVCRHB: Apply_Order_CC_Hold Result = '
870: ||x_cc_result_out);
871: OE_DEBUG_PUB.Add('OEXVCRHB: Out Apply_Order_CC_Hold');
872: END IF;
873:
874: EXCEPTION
875: WHEN OTHERS THEN
913: l_calling_activity VARCHAR2(50); --ER#7479609
914: BEGIN
915: IF G_debug_flag = 'Y'
916: THEN
917: OE_DEBUG_PUB.Add('OEXVCRHB: In Release_Order_CC_Hold',1);
918: END IF;
919:
920: l_return_status := FND_API.G_RET_STS_SUCCESS;
921:
920: l_return_status := FND_API.G_RET_STS_SUCCESS;
921:
922: IF G_debug_flag = 'Y'
923: THEN
924: OE_DEBUG_PUB.Add('Check if Holds exist to release ');
925: END IF;
926:
927: IF hold_exists( p_header_id => p_header_id
928: , p_line_id => NULL
953:
954:
955: IF G_debug_flag = 'Y'
956: THEN
957: OE_DEBUG_PUB.ADD('Attempt to Release hold on ' || p_header_id, 1);
958: END IF;
959:
960: IF NVL(p_calling_action, 'BOOKING') <> 'AUTO HOLD' THEN
961: OE_Holds_PUB.Release_Holds
977: );
978:
979: IF G_debug_flag = 'Y'
980: THEN
981: OE_DEBUG_PUB.ADD('OEXVCRHB: Released credit check hold on Header ID:'
982: || p_header_id, 1);
983: END IF;
984: END IF;
985: l_cc_result_out := 'PASS_REL';
988: x_cc_result_out := l_cc_result_out;
989:
990: IF G_debug_flag = 'Y'
991: THEN
992: OE_DEBUG_PUB.Add('OEXVCRHB: Out Release_Order_CC_Hold');
993: END IF;
994: EXCEPTION
995: WHEN OTHERS THEN
996: OE_MSG_PUB.Add_Exc_Msg
1028:
1029: BEGIN
1030: IF G_debug_flag = 'Y'
1031: THEN
1032: OE_DEBUG_PUB.ADD('OEXVCRHB: In Chk_Past_Due_Invoice');
1033: OE_DEBUG_PUB.ADD('p_global_exposure_flag = '|| p_global_exposure_flag );
1034: OE_DEBUG_PUB.ADD('Call Get_Past_Due_Invoice ');
1035: END IF;
1036:
1029: BEGIN
1030: IF G_debug_flag = 'Y'
1031: THEN
1032: OE_DEBUG_PUB.ADD('OEXVCRHB: In Chk_Past_Due_Invoice');
1033: OE_DEBUG_PUB.ADD('p_global_exposure_flag = '|| p_global_exposure_flag );
1034: OE_DEBUG_PUB.ADD('Call Get_Past_Due_Invoice ');
1035: END IF;
1036:
1037: -- Initialize return status to success
1030: IF G_debug_flag = 'Y'
1031: THEN
1032: OE_DEBUG_PUB.ADD('OEXVCRHB: In Chk_Past_Due_Invoice');
1033: OE_DEBUG_PUB.ADD('p_global_exposure_flag = '|| p_global_exposure_flag );
1034: OE_DEBUG_PUB.ADD('Call Get_Past_Due_Invoice ');
1035: END IF;
1036:
1037: -- Initialize return status to success
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057: );
1058:
1059: IF G_debug_flag = 'Y'
1060: THEN
1061: OE_DEBUG_PUB.ADD(' After Get_Past_Due_Invoice ');
1062: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
1063: OE_DEBUG_PUB.ADD(' l_exist_flag = '|| l_exist_flag );
1064: END IF;
1065:
1058:
1059: IF G_debug_flag = 'Y'
1060: THEN
1061: OE_DEBUG_PUB.ADD(' After Get_Past_Due_Invoice ');
1062: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
1063: OE_DEBUG_PUB.ADD(' l_exist_flag = '|| l_exist_flag );
1064: END IF;
1065:
1066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1059: IF G_debug_flag = 'Y'
1060: THEN
1061: OE_DEBUG_PUB.ADD(' After Get_Past_Due_Invoice ');
1062: OE_DEBUG_PUB.ADD(' x_return_status = '|| x_return_status);
1063: OE_DEBUG_PUB.ADD(' l_exist_flag = '|| l_exist_flag );
1064: END IF;
1065:
1066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1067: RAISE FND_API.G_EXC_ERROR;
1076: END IF;
1077:
1078: IF G_debug_flag = 'Y'
1079: THEN
1080: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
1081: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Chk_Past_Due_Invoice');
1082: END IF;
1083: EXCEPTION
1084: WHEN OTHERS THEN
1077:
1078: IF G_debug_flag = 'Y'
1079: THEN
1080: OE_DEBUG_PUB.ADD(' x_cc_result_out = '|| x_cc_result_out );
1081: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Chk_Past_Due_Invoice');
1082: END IF;
1083: EXCEPTION
1084: WHEN OTHERS THEN
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: BEGIN
1118:
1119: IF G_debug_flag = 'Y'
1120: THEN
1121: OE_DEBUG_PUB.ADD('OEXVCRHB: In Check_Trx_Limit');
1122: END IF;
1123:
1124: -- Initialize return status to success
1125: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145: -- means Y. |
1146: ----------------------------------------------
1147: IF G_debug_flag = 'Y'
1148: THEN
1149: OE_DEBUG_PUB.ADD(' call GET_transaction_amount ');
1150: END IF;
1151:
1152: OE_CREDIT_CHECK_UTIL.GET_transaction_amount
1153: ( p_header_id => p_header_rec.header_id
1163: );
1164:
1165: IF G_debug_flag = 'Y'
1166: THEN
1167: OE_DEBUG_PUB.ADD(' after GET_transaction_amount with status '
1168: || x_return_status );
1169: END IF;
1170:
1171: ELSE
1170:
1171: ELSE
1172: IF G_debug_flag = 'Y'
1173: THEN
1174: OE_DEBUG_PUB.ADD(' call GET_external_trx_amount ');
1175: END IF;
1176:
1177: OE_CREDIT_CHECK_UTIL.GET_external_trx_amount
1178: ( p_transaction_curr_code => p_header_rec.transactional_curr_code
1186: );
1187:
1188: IF G_debug_flag = 'Y'
1189: THEN
1190: OE_DEBUG_PUB.ADD(' after GET_transaction_amount with status '
1191: || x_return_status );
1192: END IF;
1193:
1194: END IF;
1194: END IF;
1195:
1196: IF G_debug_flag = 'Y'
1197: THEN
1198: OE_DEBUG_PUB.ADD(' err curr table count = '
1199: || x_conversion_status.COUNT );
1200: END IF;
1201:
1202: IF NVL(x_conversion_status.COUNT,0) > 0
1202: IF NVL(x_conversion_status.COUNT,0) > 0
1203: THEN
1204: IF G_debug_flag = 'Y'
1205: THEN
1206: OE_DEBUG_PUB.ADD(' Currency conversion failure ');
1207: END IF;
1208:
1209: x_cc_result_out := 'FAIL';
1210:
1209: x_cc_result_out := 'FAIL';
1210:
1211: IF G_debug_flag = 'Y'
1212: THEN
1213: OE_DEBUG_PUB.Add('Fails trx credit limit');
1214: END IF;
1215:
1216: END IF;
1217:
1216: END IF;
1217:
1218: IF G_debug_flag = 'Y'
1219: THEN
1220: OE_DEBUG_PUB.ADD(' l_order_value = ' || l_order_value );
1221: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit );
1222: END IF;
1223:
1224:
1217:
1218: IF G_debug_flag = 'Y'
1219: THEN
1220: OE_DEBUG_PUB.ADD(' l_order_value = ' || l_order_value );
1221: OE_DEBUG_PUB.ADD(' p_trx_credit_limit = '|| p_trx_credit_limit );
1222: END IF;
1223:
1224:
1225: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: IF NVL(x_conversion_status.COUNT,0) > 0
1237: THEN
1238: IF G_debug_flag = 'Y'
1239: THEN
1240: OE_DEBUG_PUB.ADD(' Currency conversion failure ');
1241: END IF;
1242:
1243: x_cc_result_out := 'FAIL';
1244:
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263:
1264: IF G_debug_flag = 'Y'
1265: THEN
1266: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
1267: || x_return_status );
1268: END IF;
1269:
1270: END IF;
1270: END IF;
1271:
1272: IF G_debug_flag = 'Y'
1273: THEN
1274: OE_DEBUG_PUB.ADD('x_cc_result_out = ' || x_cc_result_out );
1275: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Trx_Limit');
1276: END IF;
1277: EXCEPTION
1278: WHEN others THEN
1271:
1272: IF G_debug_flag = 'Y'
1273: THEN
1274: OE_DEBUG_PUB.ADD('x_cc_result_out = ' || x_cc_result_out );
1275: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Trx_Limit');
1276: END IF;
1277: EXCEPTION
1278: WHEN others THEN
1279: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
1275: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Trx_Limit');
1276: END IF;
1277: EXCEPTION
1278: WHEN others THEN
1279: OE_DEBUG_PUB.Add('Check_Trx_Limit: Other exceptions');
1280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1281: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1282: OE_MSG_PUB.Add_Exc_Msg
1283: ( G_PKG_NAME
1312:
1313: BEGIN
1314: IF G_debug_flag = 'Y'
1315: THEN
1316: OE_DEBUG_PUB.Add(' IN check_credit_check_flags ');
1317: END IF;
1318:
1319: SELECT /* MOAC_SQL_NO_CHANGE */ COUNT(line_id)
1320: INTO l_count
1344:
1345:
1346: IF G_debug_flag = 'Y'
1347: THEN
1348: OE_DEBUG_PUB.Add(' l_exist = '|| l_exist );
1349: OE_DEBUG_PUB.Add(' l_count = '|| l_count );
1350: OE_DEBUG_PUB.Add(' OUT check_credit_check_flags ');
1351: END IF;
1352:
1345:
1346: IF G_debug_flag = 'Y'
1347: THEN
1348: OE_DEBUG_PUB.Add(' l_exist = '|| l_exist );
1349: OE_DEBUG_PUB.Add(' l_count = '|| l_count );
1350: OE_DEBUG_PUB.Add(' OUT check_credit_check_flags ');
1351: END IF;
1352:
1353: RETURN l_exist;
1346: IF G_debug_flag = 'Y'
1347: THEN
1348: OE_DEBUG_PUB.Add(' l_exist = '|| l_exist );
1349: OE_DEBUG_PUB.Add(' l_count = '|| l_count );
1350: OE_DEBUG_PUB.Add(' OUT check_credit_check_flags ');
1351: END IF;
1352:
1353: RETURN l_exist;
1354:
1353: RETURN l_exist;
1354:
1355: EXCEPTION
1356: WHEN others THEN
1357: OE_DEBUG_PUB.Add('check_credit_check_flags: Other exceptions');
1358: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1359: OE_MSG_PUB.Add_Exc_Msg
1360: ( G_PKG_NAME
1361: , 'check_credit_check_flags'
1404:
1405: BEGIN
1406: IF G_debug_flag = 'Y'
1407: THEN
1408: OE_DEBUG_PUB.ADD('OEXVCRHB: In Validate_other_credit_check');
1409: OE_DEBUG_PUB.ADD('HEADER id = '|| p_header_rec.header_id );
1410: OE_DEBUG_PUB.ADD('p_customer_id = '|| p_customer_id );
1411: OE_DEBUG_PUB.ADD('p_site_use_id = ' || p_site_use_id );
1412: END IF;
1405: BEGIN
1406: IF G_debug_flag = 'Y'
1407: THEN
1408: OE_DEBUG_PUB.ADD('OEXVCRHB: In Validate_other_credit_check');
1409: OE_DEBUG_PUB.ADD('HEADER id = '|| p_header_rec.header_id );
1410: OE_DEBUG_PUB.ADD('p_customer_id = '|| p_customer_id );
1411: OE_DEBUG_PUB.ADD('p_site_use_id = ' || p_site_use_id );
1412: END IF;
1413:
1406: IF G_debug_flag = 'Y'
1407: THEN
1408: OE_DEBUG_PUB.ADD('OEXVCRHB: In Validate_other_credit_check');
1409: OE_DEBUG_PUB.ADD('HEADER id = '|| p_header_rec.header_id );
1410: OE_DEBUG_PUB.ADD('p_customer_id = '|| p_customer_id );
1411: OE_DEBUG_PUB.ADD('p_site_use_id = ' || p_site_use_id );
1412: END IF;
1413:
1414: x_check_order_flag := 'Y';
1407: THEN
1408: OE_DEBUG_PUB.ADD('OEXVCRHB: In Validate_other_credit_check');
1409: OE_DEBUG_PUB.ADD('HEADER id = '|| p_header_rec.header_id );
1410: OE_DEBUG_PUB.ADD('p_customer_id = '|| p_customer_id );
1411: OE_DEBUG_PUB.ADD('p_site_use_id = ' || p_site_use_id );
1412: END IF;
1413:
1414: x_check_order_flag := 'Y';
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1426: END IF;
1427:
1428: IF G_debug_flag = 'Y'
1429: THEN
1430: OE_DEBUG_PUB.ADD('QUICK_CR_CHECK_FLAG = '||
1431: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1432: OE_DEBUG_PUB.ADD('l_suppress_flag = '|| l_suppress_flag );
1433: OE_DEBUG_PUB.ADD('----------------------------------------- ');
1434: END IF;
1428: IF G_debug_flag = 'Y'
1429: THEN
1430: OE_DEBUG_PUB.ADD('QUICK_CR_CHECK_FLAG = '||
1431: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1432: OE_DEBUG_PUB.ADD('l_suppress_flag = '|| l_suppress_flag );
1433: OE_DEBUG_PUB.ADD('----------------------------------------- ');
1434: END IF;
1435:
1436:
1429: THEN
1430: OE_DEBUG_PUB.ADD('QUICK_CR_CHECK_FLAG = '||
1431: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1432: OE_DEBUG_PUB.ADD('l_suppress_flag = '|| l_suppress_flag );
1433: OE_DEBUG_PUB.ADD('----------------------------------------- ');
1434: END IF;
1435:
1436:
1437:
1486: );
1487:
1488: IF G_debug_flag = 'Y'
1489: THEN
1490: OE_DEBUG_PUB.ADD(' after SITE Get_Limit_Info ');
1491: OE_DEBUG_PUB.ADD(' l_credit_check_flag ==> '|| l_credit_check_flag );
1492: OE_DEBUG_PUB.ADD(' x_limit_curr_code ==> ' || x_limit_curr_code );
1493: OE_DEBUG_PUB.ADD(' x_trx_credit_limit ==> '|| x_trx_credit_limit );
1494: OE_DEBUG_PUB.ADD(' x_overall_credit_limit
1487:
1488: IF G_debug_flag = 'Y'
1489: THEN
1490: OE_DEBUG_PUB.ADD(' after SITE Get_Limit_Info ');
1491: OE_DEBUG_PUB.ADD(' l_credit_check_flag ==> '|| l_credit_check_flag );
1492: OE_DEBUG_PUB.ADD(' x_limit_curr_code ==> ' || x_limit_curr_code );
1493: OE_DEBUG_PUB.ADD(' x_trx_credit_limit ==> '|| x_trx_credit_limit );
1494: OE_DEBUG_PUB.ADD(' x_overall_credit_limit
1495: ==> '|| x_overall_credit_limit );
1488: IF G_debug_flag = 'Y'
1489: THEN
1490: OE_DEBUG_PUB.ADD(' after SITE Get_Limit_Info ');
1491: OE_DEBUG_PUB.ADD(' l_credit_check_flag ==> '|| l_credit_check_flag );
1492: OE_DEBUG_PUB.ADD(' x_limit_curr_code ==> ' || x_limit_curr_code );
1493: OE_DEBUG_PUB.ADD(' x_trx_credit_limit ==> '|| x_trx_credit_limit );
1494: OE_DEBUG_PUB.ADD(' x_overall_credit_limit
1495: ==> '|| x_overall_credit_limit );
1496: END IF;
1489: THEN
1490: OE_DEBUG_PUB.ADD(' after SITE Get_Limit_Info ');
1491: OE_DEBUG_PUB.ADD(' l_credit_check_flag ==> '|| l_credit_check_flag );
1492: OE_DEBUG_PUB.ADD(' x_limit_curr_code ==> ' || x_limit_curr_code );
1493: OE_DEBUG_PUB.ADD(' x_trx_credit_limit ==> '|| x_trx_credit_limit );
1494: OE_DEBUG_PUB.ADD(' x_overall_credit_limit
1495: ==> '|| x_overall_credit_limit );
1496: END IF;
1497:
1490: OE_DEBUG_PUB.ADD(' after SITE Get_Limit_Info ');
1491: OE_DEBUG_PUB.ADD(' l_credit_check_flag ==> '|| l_credit_check_flag );
1492: OE_DEBUG_PUB.ADD(' x_limit_curr_code ==> ' || x_limit_curr_code );
1493: OE_DEBUG_PUB.ADD(' x_trx_credit_limit ==> '|| x_trx_credit_limit );
1494: OE_DEBUG_PUB.ADD(' x_overall_credit_limit
1495: ==> '|| x_overall_credit_limit );
1496: END IF;
1497:
1498: IF (x_trx_credit_limit IS NULL AND
1505: END IF;
1506:
1507: IF G_debug_flag = 'Y'
1508: THEN
1509: OE_DEBUG_PUB.ADD(' ');
1510: OE_DEBUG_PUB.ADD('Results from the credit profiles check');
1511: OE_DEBUG_PUB.ADD('--------------------------------------------');
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1506:
1507: IF G_debug_flag = 'Y'
1508: THEN
1509: OE_DEBUG_PUB.ADD(' ');
1510: OE_DEBUG_PUB.ADD('Results from the credit profiles check');
1511: OE_DEBUG_PUB.ADD('--------------------------------------------');
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1507: IF G_debug_flag = 'Y'
1508: THEN
1509: OE_DEBUG_PUB.ADD(' ');
1510: OE_DEBUG_PUB.ADD('Results from the credit profiles check');
1511: OE_DEBUG_PUB.ADD('--------------------------------------------');
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1515: || x_credit_check_lvl_out,1);
1508: THEN
1509: OE_DEBUG_PUB.ADD(' ');
1510: OE_DEBUG_PUB.ADD('Results from the credit profiles check');
1511: OE_DEBUG_PUB.ADD('--------------------------------------------');
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1515: || x_credit_check_lvl_out,1);
1516: OE_DEBUG_PUB.Add('x_default_limit_flag = '
1510: OE_DEBUG_PUB.ADD('Results from the credit profiles check');
1511: OE_DEBUG_PUB.ADD('--------------------------------------------');
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1515: || x_credit_check_lvl_out,1);
1516: OE_DEBUG_PUB.Add('x_default_limit_flag = '
1517: || x_default_limit_flag);
1518: OE_DEBUG_PUB.Add('x_limit_curr_code = '
1512: OE_DEBUG_PUB.Add('x_check_order_flag = '
1513: || x_check_order_flag,1 );
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1515: || x_credit_check_lvl_out,1);
1516: OE_DEBUG_PUB.Add('x_default_limit_flag = '
1517: || x_default_limit_flag);
1518: OE_DEBUG_PUB.Add('x_limit_curr_code = '
1519: || x_limit_curr_code,1);
1520: OE_DEBUG_PUB.Add('x_overall_credit_limit = '
1514: OE_DEBUG_PUB.Add('x_credit_check_lvl_out = '
1515: || x_credit_check_lvl_out,1);
1516: OE_DEBUG_PUB.Add('x_default_limit_flag = '
1517: || x_default_limit_flag);
1518: OE_DEBUG_PUB.Add('x_limit_curr_code = '
1519: || x_limit_curr_code,1);
1520: OE_DEBUG_PUB.Add('x_overall_credit_limit = '
1521: ||x_overall_credit_limit,1);
1522: OE_DEBUG_PUB.Add('x_trx_credit_limit = '
1516: OE_DEBUG_PUB.Add('x_default_limit_flag = '
1517: || x_default_limit_flag);
1518: OE_DEBUG_PUB.Add('x_limit_curr_code = '
1519: || x_limit_curr_code,1);
1520: OE_DEBUG_PUB.Add('x_overall_credit_limit = '
1521: ||x_overall_credit_limit,1);
1522: OE_DEBUG_PUB.Add('x_trx_credit_limit = '
1523: || x_trx_credit_limit,1);
1524: OE_DEBUG_PUB.Add('x_include_all_flag = '
1518: OE_DEBUG_PUB.Add('x_limit_curr_code = '
1519: || x_limit_curr_code,1);
1520: OE_DEBUG_PUB.Add('x_overall_credit_limit = '
1521: ||x_overall_credit_limit,1);
1522: OE_DEBUG_PUB.Add('x_trx_credit_limit = '
1523: || x_trx_credit_limit,1);
1524: OE_DEBUG_PUB.Add('x_include_all_flag = '
1525: ||x_include_all_flag);
1526: OE_DEBUG_PUB.add ('x_global_exposure_flag = '||
1520: OE_DEBUG_PUB.Add('x_overall_credit_limit = '
1521: ||x_overall_credit_limit,1);
1522: OE_DEBUG_PUB.Add('x_trx_credit_limit = '
1523: || x_trx_credit_limit,1);
1524: OE_DEBUG_PUB.Add('x_include_all_flag = '
1525: ||x_include_all_flag);
1526: OE_DEBUG_PUB.add ('x_global_exposure_flag = '||
1527: x_global_exposure_flag,1 );
1528: OE_DEBUG_PUB.add ('x_credit_limit_entity_id => '||
1522: OE_DEBUG_PUB.Add('x_trx_credit_limit = '
1523: || x_trx_credit_limit,1);
1524: OE_DEBUG_PUB.Add('x_include_all_flag = '
1525: ||x_include_all_flag);
1526: OE_DEBUG_PUB.add ('x_global_exposure_flag = '||
1527: x_global_exposure_flag,1 );
1528: OE_DEBUG_PUB.add ('x_credit_limit_entity_id => '||
1529: x_credit_limit_entity_id );
1530:
1524: OE_DEBUG_PUB.Add('x_include_all_flag = '
1525: ||x_include_all_flag);
1526: OE_DEBUG_PUB.add ('x_global_exposure_flag = '||
1527: x_global_exposure_flag,1 );
1528: OE_DEBUG_PUB.add ('x_credit_limit_entity_id => '||
1529: x_credit_limit_entity_id );
1530:
1531: OE_DEBUG_PUB.ADD(' ');
1532: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
1527: x_global_exposure_flag,1 );
1528: OE_DEBUG_PUB.add ('x_credit_limit_entity_id => '||
1529: x_credit_limit_entity_id );
1530:
1531: OE_DEBUG_PUB.ADD(' ');
1532: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
1533: OE_DEBUG_PUB.ADD(' ');
1534: END IF;
1535:
1528: OE_DEBUG_PUB.add ('x_credit_limit_entity_id => '||
1529: x_credit_limit_entity_id );
1530:
1531: OE_DEBUG_PUB.ADD(' ');
1532: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
1533: OE_DEBUG_PUB.ADD(' ');
1534: END IF;
1535:
1536: FOR K IN 1..x_usage_curr.COUNT
1529: x_credit_limit_entity_id );
1530:
1531: OE_DEBUG_PUB.ADD(' ');
1532: OE_DEBUG_PUB.ADD('****** List of associated Usage currency rules **** ');
1533: OE_DEBUG_PUB.ADD(' ');
1534: END IF;
1535:
1536: FOR K IN 1..x_usage_curr.COUNT
1537: LOOP
1536: FOR K IN 1..x_usage_curr.COUNT
1537: LOOP
1538: IF G_debug_flag = 'Y'
1539: THEN
1540: OE_DEBUG_PUB.Add(' Usage currency ' || k || ' => ' ||
1541: x_usage_curr(K).usage_curr_code );
1542: END IF;
1543:
1544: END LOOP ;
1545:
1546:
1547: IF G_debug_flag = 'Y'
1548: THEN
1549: OE_DEBUG_PUB.ADD(' ');
1550: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
1551: OE_DEBUG_PUB.Add('OEXVCRHB: Out Validate_other_credit_check');
1552: END IF;
1553:
1546:
1547: IF G_debug_flag = 'Y'
1548: THEN
1549: OE_DEBUG_PUB.ADD(' ');
1550: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
1551: OE_DEBUG_PUB.Add('OEXVCRHB: Out Validate_other_credit_check');
1552: END IF;
1553:
1554: EXCEPTION
1547: IF G_debug_flag = 'Y'
1548: THEN
1549: OE_DEBUG_PUB.ADD(' ');
1550: OE_DEBUG_PUB.ADD('**************** End of List *********************** ');
1551: OE_DEBUG_PUB.Add('OEXVCRHB: Out Validate_other_credit_check');
1552: END IF;
1553:
1554: EXCEPTION
1555: WHEN OTHERS THEN
1622:
1623: IF G_debug_flag = 'Y'
1624: THEN
1625:
1626: OE_DEBUG_PUB.Add('OEXVCRHB: IN Check_order_exposure ');
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1623: IF G_debug_flag = 'Y'
1624: THEN
1625:
1626: OE_DEBUG_PUB.Add('OEXVCRHB: IN Check_order_exposure ');
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1624: THEN
1625:
1626: OE_DEBUG_PUB.Add('OEXVCRHB: IN Check_order_exposure ');
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1625:
1626: OE_DEBUG_PUB.Add('OEXVCRHB: IN Check_order_exposure ');
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1626: OE_DEBUG_PUB.Add('OEXVCRHB: IN Check_order_exposure ');
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1627: OE_DEBUG_PUB.Add(' ');
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1628: OE_DEBUG_PUB.Add('-******-------------********---------------**********--');
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1629: OE_DEBUG_PUB.Add('p_header_id = '|| p_header_id );
1630: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1631: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1632: OE_DEBUG_PUB.Add('p_party_id = ' || p_party_id );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1633: OE_DEBUG_PUB.Add('p_credit_limit_entity_id = '||
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1634: p_credit_limit_entity_id );
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1635: OE_DEBUG_PUB.Add('p_credit_level = '|| p_credit_level );
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1636: OE_DEBUG_PUB.Add('p_transaction_curr_code = '|| p_transaction_curr_code );
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1637: OE_DEBUG_PUB.Add('p_limit_curr_code = '|| p_limit_curr_code );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1645: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1638: OE_DEBUG_PUB.Add('p_include_all_flag = '|| p_include_all_flag );
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1645: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1646: OE_DEBUG_PUB.Add(' ');
1639: OE_DEBUG_PUB.Add('p_default_limit_flag = '|| p_default_limit_flag );
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1645: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1646: OE_DEBUG_PUB.Add(' ');
1647: END IF;
1640: OE_DEBUG_PUB.Add('p_global_exposure_flag = '|| p_global_exposure_flag );
1641: OE_DEBUG_PUB.Add('p_transaction_amount = '|| p_transaction_amount );
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1645: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1646: OE_DEBUG_PUB.Add(' ');
1647: END IF;
1648:
1642: OE_DEBUG_PUB.Add('-******------------********---------------**********--');
1643: OE_DEBUG_PUB.Add(' ');
1644: OE_DEBUG_PUB.Add(' Precalculated flag = '||
1645: p_credit_check_rule_rec.QUICK_CR_CHECK_FLAG );
1646: OE_DEBUG_PUB.Add(' ');
1647: END IF;
1648:
1649:
1650: x_total_exposure := 0 ;
1664: END IF;
1665:
1666: IF G_debug_flag = 'Y'
1667: THEN
1668: OE_DEBUG_PUB.ADD('err curr table count = ' || l_conversion_status.COUNT );
1669: END IF;
1670:
1671: IF NVL(l_conversion_status.COUNT,0) > 0 THEN
1672: x_cc_result_out := 'FAIL';
1684: IF NVL(p_calling_action, 'BOOKING') = 'EXTERNAL' THEN
1685:
1686: IF G_debug_flag = 'Y'
1687: THEN
1688: OE_DEBUG_PUB.Add('OEXVCRHB GET_external_trx_amount ');
1689: END IF;
1690:
1691: OE_CREDIT_CHECK_UTIL.GET_external_trx_amount
1692: ( p_transaction_curr_code => p_transaction_curr_code
1701:
1702: IF G_debug_flag = 'Y'
1703: THEN
1704:
1705: OE_DEBUG_PUB.Add(' after get_external_trx_amount ');
1706: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1707: OE_DEBUG_PUB.Add(' l_trasaction_value = '|| l_transaction_value );
1708: OE_DEBUG_PUB.ADD('err curr table count = '
1709: || l_conversion_status.COUNT );
1702: IF G_debug_flag = 'Y'
1703: THEN
1704:
1705: OE_DEBUG_PUB.Add(' after get_external_trx_amount ');
1706: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1707: OE_DEBUG_PUB.Add(' l_trasaction_value = '|| l_transaction_value );
1708: OE_DEBUG_PUB.ADD('err curr table count = '
1709: || l_conversion_status.COUNT );
1710: END IF;
1703: THEN
1704:
1705: OE_DEBUG_PUB.Add(' after get_external_trx_amount ');
1706: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1707: OE_DEBUG_PUB.Add(' l_trasaction_value = '|| l_transaction_value );
1708: OE_DEBUG_PUB.ADD('err curr table count = '
1709: || l_conversion_status.COUNT );
1710: END IF;
1711:
1704:
1705: OE_DEBUG_PUB.Add(' after get_external_trx_amount ');
1706: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1707: OE_DEBUG_PUB.Add(' l_trasaction_value = '|| l_transaction_value );
1708: OE_DEBUG_PUB.ADD('err curr table count = '
1709: || l_conversion_status.COUNT );
1710: END IF;
1711:
1712: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1717: END IF;
1718:
1719: IF NVL(l_conversion_status.COUNT,0) > 0 THEN
1720: IF G_debug_flag = 'Y' THEN
1721: OE_DEBUG_PUB.Add(' Currency conversion failure ');
1722: END IF;
1723: ELSE
1724: -- Get exposure only when there are no previous conversion failures.
1725: -- otherwise, just fail the exposure credit check with status Error.
1751: );
1752:
1753: IF G_debug_flag = 'Y'
1754: THEN
1755: OE_DEBUG_PUB.Add(' after get_order_exposure ');
1756: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1757: OE_DEBUG_PUB.Add(' x_total_exposure = '|| x_total_exposure );
1758: OE_DEBUG_PUB.Add(' err cur tbl count = '||
1759: l_conversion_status.COUNT );
1752:
1753: IF G_debug_flag = 'Y'
1754: THEN
1755: OE_DEBUG_PUB.Add(' after get_order_exposure ');
1756: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1757: OE_DEBUG_PUB.Add(' x_total_exposure = '|| x_total_exposure );
1758: OE_DEBUG_PUB.Add(' err cur tbl count = '||
1759: l_conversion_status.COUNT );
1760: END IF;
1753: IF G_debug_flag = 'Y'
1754: THEN
1755: OE_DEBUG_PUB.Add(' after get_order_exposure ');
1756: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1757: OE_DEBUG_PUB.Add(' x_total_exposure = '|| x_total_exposure );
1758: OE_DEBUG_PUB.Add(' err cur tbl count = '||
1759: l_conversion_status.COUNT );
1760: END IF;
1761:
1754: THEN
1755: OE_DEBUG_PUB.Add(' after get_order_exposure ');
1756: OE_DEBUG_PUB.Add(' x_return_status ' || x_return_status );
1757: OE_DEBUG_PUB.Add(' x_total_exposure = '|| x_total_exposure );
1758: OE_DEBUG_PUB.Add(' err cur tbl count = '||
1759: l_conversion_status.COUNT );
1760: END IF;
1761:
1762: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1789: );
1790:
1791: IF G_debug_flag = 'Y'
1792: THEN
1793: OE_DEBUG_PUB.Add('Out of Precalculated exposure ');
1794: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
1795: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
1796: OE_DEBUG_PUB.Add('Error table count = '||l_conversion_status.COUNT );
1797: END IF;
1790:
1791: IF G_debug_flag = 'Y'
1792: THEN
1793: OE_DEBUG_PUB.Add('Out of Precalculated exposure ');
1794: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
1795: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
1796: OE_DEBUG_PUB.Add('Error table count = '||l_conversion_status.COUNT );
1797: END IF;
1798:
1791: IF G_debug_flag = 'Y'
1792: THEN
1793: OE_DEBUG_PUB.Add('Out of Precalculated exposure ');
1794: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
1795: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
1796: OE_DEBUG_PUB.Add('Error table count = '||l_conversion_status.COUNT );
1797: END IF;
1798:
1799: -- BUG Fix 2338145
1792: THEN
1793: OE_DEBUG_PUB.Add('Out of Precalculated exposure ');
1794: OE_DEBUG_PUB.Add('x_return_status = '|| x_return_status );
1795: OE_DEBUG_PUB.Add('x_total_exposure = '|| x_total_exposure );
1796: OE_DEBUG_PUB.Add('Error table count = '||l_conversion_status.COUNT );
1797: END IF;
1798:
1799: -- BUG Fix 2338145
1800: -- Get the current order amount to be included into the
1831: l_current_order_value :=
1832: NVL(OE_CREDIT_CHECK_UTIL.g_current_order_value,0) ;
1833: IF G_debug_flag = 'Y'
1834: THEN
1835: OE_DEBUG_PUB.Add('Calling action=BOOKING and G_delayed_request=FALSE');
1836: END IF;
1837: ELSIF NVL(p_calling_action, 'BOOKING') <> 'EXTERNAL'
1838: THEN
1839: IF p_calling_action <> 'BOOKING'
1844: IF NVL(p_credit_check_rule_rec.uninvoiced_orders_flag,'N') = 'Y'
1845: THEN
1846: IF G_debug_flag = 'Y'
1847: THEN
1848: OE_DEBUG_PUB.Add(' Call Hold_Exists after get_exposure ');
1849: END IF;
1850: --
1851: IF Hold_Exists( p_header_id => p_header_id
1852: , p_line_id => NULL )
1857: END IF;
1858:
1859: IF G_debug_flag = 'Y'
1860: THEN
1861: OE_DEBUG_PUB.Add(' after g_hold_exist => '|| g_hold_exist );
1862: END IF;
1863:
1864: IF g_hold_exist = 'Y'
1865: THEN
1876: END IF;
1877:
1878: IF G_debug_flag = 'Y'
1879: THEN
1880: OE_DEBUG_PUB.Add('l_current_order_value = '|| l_current_order_value );
1881: OE_DEBUG_PUB.Add('x_total_exposure before add = '|| x_total_exposure );
1882: END IF;
1883:
1884: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1877:
1878: IF G_debug_flag = 'Y'
1879: THEN
1880: OE_DEBUG_PUB.Add('l_current_order_value = '|| l_current_order_value );
1881: OE_DEBUG_PUB.Add('x_total_exposure before add = '|| x_total_exposure );
1882: END IF;
1883:
1884: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1885: RAISE FND_API.G_EXC_ERROR;
1895: ELSE
1896: x_total_exposure := 0 ;
1897: x_return_status := FND_API.G_RET_STS_SUCCESS;
1898: IF G_debug_flag = 'Y' THEN
1899: OE_DEBUG_PUB.Add(' UNLIMITED overall credi '
1900: || p_overall_credit_limit );
1901: END IF;
1902: END IF;
1903:
1902: END IF;
1903:
1904: IF G_debug_flag = 'Y'
1905: THEN
1906: OE_DEBUG_PUB.Add('OEXVCRHB: x_total_exposure ' || x_total_exposure,1 );
1907: OE_DEBUG_PUB.Add('OEXVCRHB: p_overall_credit_limit '
1908: || p_overall_credit_limit,1 );
1909: OE_DEBUG_PUB.Add(' curr conv err count ' || l_conversion_status.COUNT );
1910: END IF;
1903:
1904: IF G_debug_flag = 'Y'
1905: THEN
1906: OE_DEBUG_PUB.Add('OEXVCRHB: x_total_exposure ' || x_total_exposure,1 );
1907: OE_DEBUG_PUB.Add('OEXVCRHB: p_overall_credit_limit '
1908: || p_overall_credit_limit,1 );
1909: OE_DEBUG_PUB.Add(' curr conv err count ' || l_conversion_status.COUNT );
1910: END IF;
1911:
1905: THEN
1906: OE_DEBUG_PUB.Add('OEXVCRHB: x_total_exposure ' || x_total_exposure,1 );
1907: OE_DEBUG_PUB.Add('OEXVCRHB: p_overall_credit_limit '
1908: || p_overall_credit_limit,1 );
1909: OE_DEBUG_PUB.Add(' curr conv err count ' || l_conversion_status.COUNT );
1910: END IF;
1911:
1912: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1913: RAISE FND_API.G_EXC_ERROR;
1917:
1918: IF NVL(l_conversion_status.COUNT,0) > 0
1919: THEN
1920: IF G_debug_flag = 'Y' THEN
1921: OE_DEBUG_PUB.Add(' Currency conversion error ');
1922: END IF;
1923: x_cc_result_out := 'FAIL';
1924:
1925:
1944: x_return_status := FND_API.G_RET_STS_ERROR;
1945:
1946: IF G_debug_flag = 'Y'
1947: THEN
1948: OE_DEBUG_PUB.Add(' Exposure CC Failed due to currency failure');
1949: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
1950: || x_return_status );
1951: END IF;
1952:
1945:
1946: IF G_debug_flag = 'Y'
1947: THEN
1948: OE_DEBUG_PUB.Add(' Exposure CC Failed due to currency failure');
1949: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
1950: || x_return_status );
1951: END IF;
1952:
1953: ELSE
1961: END IF;
1962:
1963: IF G_debug_flag = 'Y'
1964: THEN
1965: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
1966: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_Exposure ');
1967: END IF;
1968:
1969: EXCEPTION
1962:
1963: IF G_debug_flag = 'Y'
1964: THEN
1965: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
1966: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_Exposure ');
1967: END IF;
1968:
1969: EXCEPTION
1970: WHEN others THEN
1969: EXCEPTION
1970: WHEN others THEN
1971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1972: IF G_debug_flag = 'Y' THEN
1973: OE_DEBUG_PUB.Add('Check_order_exposure: Other exceptions');
1974: END IF;
1975: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1976: OE_MSG_PUB.Add_Exc_Msg
1977: ( G_PKG_NAME
1979: );
1980: END IF;
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: IF G_debug_flag = 'Y' THEN
1983: OE_DEBUG_PUB.Add( SUBSTR(SQLERRM,1,300) ) ;
1984: END IF;
1985: END Check_order_Exposure ;
1986:
1987: -----------------------------------------------------------
2019:
2020: BEGIN
2021: IF G_debug_flag = 'Y'
2022: THEN
2023: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Item_Limits');
2024: END IF;
2025: --
2026: -- Initialize return status to success
2027: x_return_status := FND_API.G_RET_STS_SUCCESS;
2048: THEN
2049: x_cc_result_out := 'NOCHECK';
2050: IF G_debug_flag = 'Y'
2051: THEN
2052: OE_DEBUG_PUB.Add(' Count of category table = 0 ');
2053: END IF;
2054: ELSE
2055: IF G_debug_flag = 'Y'
2056: THEN
2053: END IF;
2054: ELSE
2055: IF G_debug_flag = 'Y'
2056: THEN
2057: OE_DEBUG_PUB.Add(' start category LOOP ');
2058: OE_DEBUG_PUB.Add(' ===================== ');
2059: END IF;
2060:
2061: FOR i in 1..l_item_limits.count
2054: ELSE
2055: IF G_debug_flag = 'Y'
2056: THEN
2057: OE_DEBUG_PUB.Add(' start category LOOP ');
2058: OE_DEBUG_PUB.Add(' ===================== ');
2059: END IF;
2060:
2061: FOR i in 1..l_item_limits.count
2062: LOOP
2064: -- For each item category, sum the line values
2065:
2066: IF G_debug_flag = 'Y'
2067: THEN
2068: OE_DEBUG_PUB.ADD(' ');
2069: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2070: OE_DEBUG_PUB.Add(' Category id = '
2071: || l_item_limits(i).item_category_id );
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2065:
2066: IF G_debug_flag = 'Y'
2067: THEN
2068: OE_DEBUG_PUB.ADD(' ');
2069: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2070: OE_DEBUG_PUB.Add(' Category id = '
2071: || l_item_limits(i).item_category_id );
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2073: || l_item_limits(i).ctg_line_amount );
2066: IF G_debug_flag = 'Y'
2067: THEN
2068: OE_DEBUG_PUB.ADD(' ');
2069: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2070: OE_DEBUG_PUB.Add(' Category id = '
2071: || l_item_limits(i).item_category_id );
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2073: || l_item_limits(i).ctg_line_amount );
2074: OE_DEBUG_PUB.Add(' limit_curr_code = '
2068: OE_DEBUG_PUB.ADD(' ');
2069: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2070: OE_DEBUG_PUB.Add(' Category id = '
2071: || l_item_limits(i).item_category_id );
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2073: || l_item_limits(i).ctg_line_amount );
2074: OE_DEBUG_PUB.Add(' limit_curr_code = '
2075: || l_item_limits(i).limit_curr_code );
2076: OE_DEBUG_PUB.Add(' item_limit = '
2070: OE_DEBUG_PUB.Add(' Category id = '
2071: || l_item_limits(i).item_category_id );
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2073: || l_item_limits(i).ctg_line_amount );
2074: OE_DEBUG_PUB.Add(' limit_curr_code = '
2075: || l_item_limits(i).limit_curr_code );
2076: OE_DEBUG_PUB.Add(' item_limit = '
2077: || l_item_limits(i).item_limit );
2078: OE_DEBUG_PUB.Add(' grouping = '
2072: OE_DEBUG_PUB.Add(' ctg_line_amount = '
2073: || l_item_limits(i).ctg_line_amount );
2074: OE_DEBUG_PUB.Add(' limit_curr_code = '
2075: || l_item_limits(i).limit_curr_code );
2076: OE_DEBUG_PUB.Add(' item_limit = '
2077: || l_item_limits(i).item_limit );
2078: OE_DEBUG_PUB.Add(' grouping = '
2079: || l_item_limits(i).grouping_id );
2080: END IF;
2074: OE_DEBUG_PUB.Add(' limit_curr_code = '
2075: || l_item_limits(i).limit_curr_code );
2076: OE_DEBUG_PUB.Add(' item_limit = '
2077: || l_item_limits(i).item_limit );
2078: OE_DEBUG_PUB.Add(' grouping = '
2079: || l_item_limits(i).grouping_id );
2080: END IF;
2081:
2082: l_category_sum := l_item_limits(i).ctg_line_amount ;
2085: -- what to do when there is not limit
2086:
2087: IF G_debug_flag = 'Y'
2088: THEN
2089: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2090: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2091: OE_Credit_Engine_GRP.GL_currency );
2092:
2093: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2086:
2087: IF G_debug_flag = 'Y'
2088: THEN
2089: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2090: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2091: OE_Credit_Engine_GRP.GL_currency );
2092:
2093: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2094: OE_DEBUG_PUB.Add(' ');
2089: OE_DEBUG_PUB.Add(' l_category_sum = ' || l_category_sum );
2090: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2091: OE_Credit_Engine_GRP.GL_currency );
2092:
2093: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2094: OE_DEBUG_PUB.Add(' ');
2095: END IF;
2096:
2097: l_check_category_id := l_item_limits(i).item_category_id ;
2090: OE_DEBUG_PUB.Add(' GL_CURRENCY = '||
2091: OE_Credit_Engine_GRP.GL_currency );
2092:
2093: OE_DEBUG_PUB.Add(' ------------------------------------ ');
2094: OE_DEBUG_PUB.Add(' ');
2095: END IF;
2096:
2097: l_check_category_id := l_item_limits(i).item_category_id ;
2098: l_limit_curr := l_item_limits(i).limit_curr_code ;
2107: ) ;
2108:
2109: IF G_debug_flag = 'Y'
2110: THEN
2111: OE_DEBUG_PUB.Add(' l_limit_category_sum = ' || l_limit_category_sum );
2112: OE_DEBUG_PUB.Add(' item_limit = ' || l_item_limits(i).item_limit );
2113: END IF;
2114:
2115: IF l_limit_category_sum > l_item_limits(i).item_limit
2108:
2109: IF G_debug_flag = 'Y'
2110: THEN
2111: OE_DEBUG_PUB.Add(' l_limit_category_sum = ' || l_limit_category_sum );
2112: OE_DEBUG_PUB.Add(' item_limit = ' || l_item_limits(i).item_limit );
2113: END IF;
2114:
2115: IF l_limit_category_sum > l_item_limits(i).item_limit
2116: THEN
2115: IF l_limit_category_sum > l_item_limits(i).item_limit
2116: THEN
2117: IF G_debug_flag = 'Y'
2118: THEN
2119: OE_DEBUG_PUB.Add
2120: ('Fails item category ID: '|| l_item_limits(i).item_category_id);
2121: END IF;
2122: Apply_Order_CC_Hold
2123: ( p_header_id => p_header_rec.header_id
2144: END IF;
2145:
2146: IF G_debug_flag = 'Y'
2147: THEN
2148: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2149: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Item_Limit');
2150: END IF;
2151:
2152: EXCEPTION
2145:
2146: IF G_debug_flag = 'Y'
2147: THEN
2148: OE_DEBUG_PUB.ADD('x_cc_result_out = '|| x_cc_result_out );
2149: OE_DEBUG_PUB.ADD('OEXVCRHB: Out Check_Item_Limit');
2150: END IF;
2151:
2152: EXCEPTION
2153: WHEN GL_CURRENCY_API.NO_RATE
2153: WHEN GL_CURRENCY_API.NO_RATE
2154: THEN
2155: BEGIN
2156: IF G_debug_flag = 'Y' THEN
2157: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2158: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2159: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2160: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2161: END IF;
2154: THEN
2155: BEGIN
2156: IF G_debug_flag = 'Y' THEN
2157: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2158: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2159: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2160: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2161: END IF;
2162:
2155: BEGIN
2156: IF G_debug_flag = 'Y' THEN
2157: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2158: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2159: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2160: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2161: END IF;
2162:
2163: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2156: IF G_debug_flag = 'Y' THEN
2157: OE_DEBUG_PUB.Add('EXCEPTION: GL_CURRENCY_API.NO_RATE ');
2158: OE_DEBUG_PUB.Add('Apply_Order_CC_Hold for Item category');
2159: OE_DEBUG_PUB.Add('currency = '|| p_header_rec.transactional_curr_code );
2160: OE_DEBUG_PUB.Add('checking category = '|| l_check_category_id );
2161: END IF;
2162:
2163: fnd_message.set_name('ONT', 'OE_CC_CONVERSION_ERORR');
2164: FND_MESSAGE.Set_Token('FROM',p_header_rec.transactional_curr_code);
2180: x_cc_result_out := 'FAIL';
2181: x_return_status := FND_API.G_RET_STS_ERROR;
2182:
2183: IF G_debug_flag = 'Y' THEN
2184: OE_DEBUG_PUB.Add(' Item CTG CC Failed due to currency failure');
2185: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2186: || x_return_status );
2187: END IF;
2188: END;
2181: x_return_status := FND_API.G_RET_STS_ERROR;
2182:
2183: IF G_debug_flag = 'Y' THEN
2184: OE_DEBUG_PUB.Add(' Item CTG CC Failed due to currency failure');
2185: OE_DEBUG_PUB.ADD('Return status after assigned as Error = '
2186: || x_return_status );
2187: END IF;
2188: END;
2189:
2188: END;
2189:
2190: WHEN others THEN
2191: IF G_debug_flag = 'Y' THEN
2192: OE_DEBUG_PUB.Add('Check_Item_Limit: Other exceptions');
2193: END IF;
2194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2195: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2196: OE_MSG_PUB.Add_Exc_Msg
2198: , 'Check_Item_Limits'
2199: );
2200: END IF;
2201: IF G_debug_flag = 'Y' THEN
2202: OE_DEBUG_PUB.Add( SUBSTR(SQLERRM,1,300),1 ) ;
2203: END IF;
2204: END Check_Item_Limits;
2205:
2206: ------------------------------------------------------------
2273: BEGIN
2274:
2275: IF G_debug_flag = 'Y'
2276: THEN
2277: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_Other_Credit Limits',1);
2278: END IF;
2279:
2280: --
2281: -- Set the default behavior to pass credit check
2290: l_cc_overall_result_out := 'PASS';
2291:
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.Add(' ');
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2291:
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.Add(' ');
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2292: IF G_debug_flag = 'Y'
2293: THEN
2294: OE_DEBUG_PUB.Add(' ');
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2300: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
2293: THEN
2294: OE_DEBUG_PUB.Add(' ');
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2300: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
2301: END IF;
2294: OE_DEBUG_PUB.Add(' ');
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2300: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
2301: END IF;
2302: --
2295: OE_DEBUG_PUB.Add('Calling action = '|| p_calling_action);
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2300: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
2301: END IF;
2302: --
2303: -----------------------------------------------------------
2296: OE_DEBUG_PUB.Add('p_customer_id = '|| p_customer_id);
2297: OE_DEBUG_PUB.Add('p_site_use_id = '|| p_site_use_id );
2298: OE_DEBUG_PUB.Add('p_party_id => '|| p_party_id );
2299: OE_DEBUG_PUB.Add(' ');
2300: OE_DEBUG_PUB.Add('Calling Validate_other_credit_check');
2301: END IF;
2302: --
2303: -----------------------------------------------------------
2304: -- Check if order site use needs credit check. Also |
2351: ----------------------------------------------------+
2352: -- order site use is subject to credit check: |
2353: ----------------------------------------------------|
2354: IF G_debug_flag = 'Y' THEN
2355: OE_DEBUG_PUB.Add('Calling Check Transaction Limit procedure');
2356: END IF;
2357:
2358: OE_credit_check_order_PVT.Check_Trx_Limit
2359: ( p_header_rec => p_header_rec
2371: , x_conversion_status => l_error_curr_tbl
2372: );
2373:
2374: IF G_debug_flag = 'Y' THEN
2375: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='||l_cc_trx_result_out);
2376: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='|| x_return_status );
2377: END IF;
2378:
2379: -- bug 4002820
2372: );
2373:
2374: IF G_debug_flag = 'Y' THEN
2375: OE_DEBUG_PUB.Add('Check_Trx_Limit: Result Out ='||l_cc_trx_result_out);
2376: OE_DEBUG_PUB.Add('Check_Trx_Limit: Return Status ='|| x_return_status );
2377: END IF;
2378:
2379: -- bug 4002820
2380: IF l_cc_trx_result_out = 'FAIL' THEN
2405:
2406: IF l_cc_trx_result_out = 'PASS'
2407: OR OE_CREDIT_CHECK_UTIL.G_crmgmt_installed = TRUE THEN
2408: IF G_debug_flag = 'Y' THEN
2409: OE_DEBUG_PUB.Add('Calling Check Past Due Invoice procedure');
2410: END IF;
2411:
2412: OE_credit_check_order_PVT.Chk_Past_Due_Invoice
2413: ( p_customer_id => p_customer_id
2423: , x_return_status => x_return_status
2424: );
2425:
2426: IF G_debug_flag = 'Y' THEN
2427: OE_DEBUG_PUB.Add('Chk_Duedate_Limit: Result Out ='|| l_cc_duedate_result_out );
2428: OE_DEBUG_PUB.Add('Chk_Duedate_Limit: Return Status ='|| x_return_status );
2429: END IF;
2430:
2431: -- bug 4002820
2424: );
2425:
2426: IF G_debug_flag = 'Y' THEN
2427: OE_DEBUG_PUB.Add('Chk_Duedate_Limit: Result Out ='|| l_cc_duedate_result_out );
2428: OE_DEBUG_PUB.Add('Chk_Duedate_Limit: Return Status ='|| x_return_status );
2429: END IF;
2430:
2431: -- bug 4002820
2432: IF l_cc_duedate_result_out = 'FAIL' THEN
2466:
2467: x_check_exposure_mode := 'INLINE';
2468:
2469: IF G_debug_flag = 'Y' THEN
2470: OE_DEBUG_PUB.Add('x_check_exposure_mode = '|| x_check_exposure_mode );
2471: OE_DEBUG_PUB.Add('Calling Check order Exposure procedure');
2472: END IF;
2473:
2474: OE_credit_check_order_PVT.Check_order_exposure
2467: x_check_exposure_mode := 'INLINE';
2468:
2469: IF G_debug_flag = 'Y' THEN
2470: OE_DEBUG_PUB.Add('x_check_exposure_mode = '|| x_check_exposure_mode );
2471: OE_DEBUG_PUB.Add('Calling Check order Exposure procedure');
2472: END IF;
2473:
2474: OE_credit_check_order_PVT.Check_order_exposure
2475: ( p_customer_id => p_customer_id
2496: , x_return_status => x_return_status
2497: );
2498:
2499: IF G_debug_flag = 'Y' THEN
2500: OE_DEBUG_PUB.Add('After call to Check_order_exposure ');
2501: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_result_out );
2502: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
2503: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
2504: OE_DEBUG_PUB.Add(' Credit Rule Id = '
2497: );
2498:
2499: IF G_debug_flag = 'Y' THEN
2500: OE_DEBUG_PUB.Add('After call to Check_order_exposure ');
2501: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_result_out );
2502: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
2503: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
2504: OE_DEBUG_PUB.Add(' Credit Rule Id = '
2505: ||to_char(p_credit_check_rule_rec.credit_check_rule_id));
2498:
2499: IF G_debug_flag = 'Y' THEN
2500: OE_DEBUG_PUB.Add('After call to Check_order_exposure ');
2501: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_result_out );
2502: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
2503: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
2504: OE_DEBUG_PUB.Add(' Credit Rule Id = '
2505: ||to_char(p_credit_check_rule_rec.credit_check_rule_id));
2506: END IF;
2499: IF G_debug_flag = 'Y' THEN
2500: OE_DEBUG_PUB.Add('After call to Check_order_exposure ');
2501: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_result_out );
2502: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
2503: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
2504: OE_DEBUG_PUB.Add(' Credit Rule Id = '
2505: ||to_char(p_credit_check_rule_rec.credit_check_rule_id));
2506: END IF;
2507: --Bug 4320650
2500: OE_DEBUG_PUB.Add('After call to Check_order_exposure ');
2501: OE_DEBUG_PUB.Add('l_cc_result_out = ' || l_cc_result_out );
2502: OE_DEBUG_PUB.Add('total exposure = ' || l_total_exposure );
2503: OE_DEBUG_PUB.Add('x_return_status = ' || x_return_status );
2504: OE_DEBUG_PUB.Add(' Credit Rule Id = '
2505: ||to_char(p_credit_check_rule_rec.credit_check_rule_id));
2506: END IF;
2507: --Bug 4320650
2508: l_unrounded_exposure := l_total_exposure;
2556: l_cc_limit_used := 'TRX';
2557: END IF;
2558: ELSE
2559: IF G_debug_flag = 'Y' THEN
2560: OE_DEBUG_PUB.Add('No credit check required');
2561: END IF;
2562: l_cc_result_out := 'NOCHECK';
2563: END IF;
2564: --
2571:
2572: IF G_debug_flag = 'Y'
2573: THEN
2574:
2575: OE_DEBUG_PUB.Add(' OEXVCRHB: l_cc_limit_used ==> '|| l_cc_limit_used );
2576: OE_DEBUG_PUB.Add(' before l_cc_result_out => '|| l_cc_result_out );
2577:
2578: OE_DEBUG_PUB.add(' g_current_order_value => '||
2579: OE_CREDIT_CHECK_UTIL.g_current_order_value );
2572: IF G_debug_flag = 'Y'
2573: THEN
2574:
2575: OE_DEBUG_PUB.Add(' OEXVCRHB: l_cc_limit_used ==> '|| l_cc_limit_used );
2576: OE_DEBUG_PUB.Add(' before l_cc_result_out => '|| l_cc_result_out );
2577:
2578: OE_DEBUG_PUB.add(' g_current_order_value => '||
2579: OE_CREDIT_CHECK_UTIL.g_current_order_value );
2580:
2574:
2575: OE_DEBUG_PUB.Add(' OEXVCRHB: l_cc_limit_used ==> '|| l_cc_limit_used );
2576: OE_DEBUG_PUB.Add(' before l_cc_result_out => '|| l_cc_result_out );
2577:
2578: OE_DEBUG_PUB.add(' g_current_order_value => '||
2579: OE_CREDIT_CHECK_UTIL.g_current_order_value );
2580:
2581: OE_DEBUG_PUB.Add('before g_order ==> ' || g_order );
2582: END IF;
2577:
2578: OE_DEBUG_PUB.add(' g_current_order_value => '||
2579: OE_CREDIT_CHECK_UTIL.g_current_order_value );
2580:
2581: OE_DEBUG_PUB.Add('before g_order ==> ' || g_order );
2582: END IF;
2583:
2584: -- IF NVL(g_order,0) = 0
2585: IF (OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can) --bug 3944617
2597:
2598:
2599: IF G_debug_flag = 'Y'
2600: THEN
2601: OE_DEBUG_PUB.Add('after l_cc_result_out => '|| l_cc_result_out );
2602: OE_DEBUG_PUB.Add('after g_order ==> ' || g_order );
2603: END IF;
2604:
2605: IF l_cc_result_out = 'FAIL' THEN
2598:
2599: IF G_debug_flag = 'Y'
2600: THEN
2601: OE_DEBUG_PUB.Add('after l_cc_result_out => '|| l_cc_result_out );
2602: OE_DEBUG_PUB.Add('after g_order ==> ' || g_order );
2603: END IF;
2604:
2605: IF l_cc_result_out = 'FAIL' THEN
2606: IF NVL(p_calling_action,'BOOKING') <> 'EXTERNAL' THEN
2604:
2605: IF l_cc_result_out = 'FAIL' THEN
2606: IF NVL(p_calling_action,'BOOKING') <> 'EXTERNAL' THEN
2607: IF G_debug_flag = 'Y' THEN
2608: OE_DEBUG_PUB.Add('Calling Apply_Order_CC_Hold ');
2609: END IF;
2610:
2611: -- bug 4153299
2612: -- 6616741 l_cc_profile_used := OE_CREDIT_CHECK_UTIL.Get_CC_Lookup_Meaning('OE_CC_PROFILE', l_cc_profile_used);
2672: := FND_PROFILE.VALUE('SECURITY_GROUP_ID');
2673:
2674: IF G_debug_flag = 'Y'
2675: THEN
2676: OE_DEBUG_PUB.Add('Calling Create_credit_request,
2677: credit check level= '||x_credit_level);
2678:
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2675: THEN
2676: OE_DEBUG_PUB.Add('Calling Create_credit_request,
2677: credit check level= '||x_credit_level);
2678:
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2676: OE_DEBUG_PUB.Add('Calling Create_credit_request,
2677: credit check level= '||x_credit_level);
2678:
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2677: credit check level= '||x_credit_level);
2678:
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2678:
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2679: OE_DEBUG_PUB.Add('Parameters: ');
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2680: OE_DEBUG_PUB.Add('-------------------------------------------');
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2681: OE_DEBUG_PUB.Add('p_requestor_id= '||TO_CHAR(fnd_global.employee_id));
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2682: OE_DEBUG_PUB.Add('p_review_type= ORDER_HOLD');
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2683: OE_DEBUG_PUB.Add('p_credit_classification= NULL');
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2684: OE_DEBUG_PUB.Add('p_requested_amount= '||TO_CHAR(l_total_exposure ));
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2685: OE_DEBUG_PUB.Add('p_requested_currency= '||l_limit_curr_code);
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2686: OE_DEBUG_PUB.Add('p_trx_amount= '||TO_CHAR(g_order));
2687: OE_DEBUG_PUB.Add('p_trx_currency= '||p_header_rec.transactional_curr_code );
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2688: OE_DEBUG_PUB.Add('p_credit_type = TRADE' );
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2689: OE_DEBUG_PUB.Add('p_term_length = NULL' );
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2690: OE_DEBUG_PUB.Add('p_credit_check_rule_id= '||
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2691: TO_CHAR(p_credit_check_rule_rec.credit_check_rule_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2692: OE_DEBUG_PUB.Add('p_credit_request_status = SUBMIT');
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2693: OE_DEBUG_PUB.Add('p_party_id= '||TO_CHAR(p_party_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2694: OE_DEBUG_PUB.Add('p_cust_account_id= '||TO_CHAR(l_customer_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2695: OE_DEBUG_PUB.Add('p_cust_acct_site_id = NULL');
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2696: OE_DEBUG_PUB.Add('p_site_use_id= '||TO_CHAR(l_site_use_id));
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2697: OE_DEBUG_PUB.Add('p_contact_party_id = NULL');
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2698: OE_DEBUG_PUB.Add('p_notes = NULL');
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2699: OE_DEBUG_PUB.Add('p_source_org_id= '||TO_CHAR(l_source_org_id));
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2707: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
2700: OE_DEBUG_PUB.Add('p_source_user_id= '||TO_CHAR(l_source_user_id));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2707: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
2708: TO_CHAR(p_header_rec.order_number));
2701: OE_DEBUG_PUB.Add('p_source_resp_id= '||TO_CHAR(l_source_resp_id));
2702: OE_DEBUG_PUB.Add('p_source_appln_id= '||TO_CHAR(l_source_appln_id));
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2707: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
2708: TO_CHAR(p_header_rec.order_number));
2709: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
2703: OE_DEBUG_PUB.Add('p_source_security_group_id= '||TO_CHAR(l_source_security_group_id));
2704: OE_DEBUG_PUB.Add('p_source_name = OM');
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2707: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
2708: TO_CHAR(p_header_rec.order_number));
2709: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
2710:
2711: END IF;
2705: OE_DEBUG_PUB.Add('p_source_column1 = header_id= '||
2706: TO_CHAR(p_header_rec.header_id));
2707: OE_DEBUG_PUB.Add('p_source_column2 = order_number= '||
2708: TO_CHAR(p_header_rec.order_number));
2709: OE_DEBUG_PUB.Add('p_source_column3= ORDER');
2710:
2711: END IF;
2712: ----------------Submit Credit Review--------------------
2713: AR_CMGT_CREDIT_REQUEST_API.Create_credit_request
2764: THEN
2765: IF x_return_status='S'
2766: THEN
2767:
2768: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
2769: ||TO_CHAR(l_request_id));
2770: ELSE
2771: OE_DEBUG_PUB.Add('Credit review has not been submitted');
2772: END IF;
2767:
2768: OE_DEBUG_PUB.Add('Credit review submitted, request_id= '
2769: ||TO_CHAR(l_request_id));
2770: ELSE
2771: OE_DEBUG_PUB.Add('Credit review has not been submitted');
2772: END IF;
2773: END IF;
2774:
2775: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
2771: OE_DEBUG_PUB.Add('Credit review has not been submitted');
2772: END IF;
2773: END IF;
2774:
2775: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
2776: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
2777: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
2778: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
2779:
2772: END IF;
2773: END IF;
2774:
2775: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
2776: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
2777: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
2778: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
2779:
2780:
2773: END IF;
2774:
2775: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
2776: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
2777: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
2778: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
2779:
2780:
2781: END IF;
2774:
2775: OE_DEBUG_PUB.Add('l_request_id= '||TO_CHAR(l_request_id));
2776: OE_DEBUG_PUB.Add('x_return_status= '||x_return_status);
2777: OE_DEBUG_PUB.Add('l_msg_count= '||TO_CHAR(l_msg_count));
2778: OE_DEBUG_PUB.Add('l_msg_data= '||l_msg_data);
2779:
2780:
2781: END IF;
2782:
2807: END IF;
2808:
2809: IF G_debug_flag = 'Y'
2810: THEN
2811: OE_DEBUG_PUB.Add('x_check_exposure_mode = ' || x_check_exposure_mode );
2812: OE_DEBUG_PUB.Add('x_cc_result_out = '|| x_cc_result_out );
2813: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_Other_Credit Limits');
2814: END IF;
2815:
2808:
2809: IF G_debug_flag = 'Y'
2810: THEN
2811: OE_DEBUG_PUB.Add('x_check_exposure_mode = ' || x_check_exposure_mode );
2812: OE_DEBUG_PUB.Add('x_cc_result_out = '|| x_cc_result_out );
2813: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_Other_Credit Limits');
2814: END IF;
2815:
2816: EXCEPTION
2809: IF G_debug_flag = 'Y'
2810: THEN
2811: OE_DEBUG_PUB.Add('x_check_exposure_mode = ' || x_check_exposure_mode );
2812: OE_DEBUG_PUB.Add('x_cc_result_out = '|| x_cc_result_out );
2813: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_Other_Credit Limits');
2814: END IF;
2815:
2816: EXCEPTION
2817: WHEN FND_API.G_EXC_ERROR THEN
2824: OE_MSG_PUB.Add_Exc_Msg
2825: ( G_PKG_NAME, 'Check_Other_Credit_Limits');
2826: END IF;
2827: IF G_debug_flag = 'Y' THEN
2828: OE_DEBUG_PUB.Add( SUBSTR(SQLERRM,1,300),1 ) ;
2829: END IF;
2830: END Check_Other_Credit_Limits;
2831:
2832: ------------------------------------------------+
2866: l_cc_hold_comment VARCHAR2(2000) := NULL;
2867:
2868: BEGIN
2869: IF G_debug_flag = 'Y' THEN
2870: OE_DEBUG_PUB.Add('OEXVCRHB: In Check_order_credit API');
2871: END IF;
2872: --
2873: -- Set the default behavior to pass credit check
2874: --
2878: l_global_exposure_flag := 'N' ;
2879: g_hold_exist := NULL ;
2880: OE_Credit_Engine_GRP.G_currency_error_msg := NULL ;
2881: IF G_debug_flag = 'Y' THEN
2882: OE_DEBUG_PUB.Add( 'Initial start G_result_out = '|| G_result_out );
2883: OE_DEBUG_PUB.Add( 'Initial start G_currency_error_msg = '||
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2879: g_hold_exist := NULL ;
2880: OE_Credit_Engine_GRP.G_currency_error_msg := NULL ;
2881: IF G_debug_flag = 'Y' THEN
2882: OE_DEBUG_PUB.Add( 'Initial start G_result_out = '|| G_result_out );
2883: OE_DEBUG_PUB.Add( 'Initial start G_currency_error_msg = '||
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2881: IF G_debug_flag = 'Y' THEN
2882: OE_DEBUG_PUB.Add( 'Initial start G_result_out = '|| G_result_out );
2883: OE_DEBUG_PUB.Add( 'Initial start G_currency_error_msg = '||
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2882: OE_DEBUG_PUB.Add( 'Initial start G_result_out = '|| G_result_out );
2883: OE_DEBUG_PUB.Add( 'Initial start G_currency_error_msg = '||
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2883: OE_DEBUG_PUB.Add( 'Initial start G_currency_error_msg = '||
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2884: substr(OE_Credit_Engine_GRP.G_currency_error_msg,1,10)) ;
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2885: OE_DEBUG_PUB.Add(' ');
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2886: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2894: || p_header_rec.sold_to_org_id );
2887: OE_DEBUG_PUB.Add(' Calling action = '|| p_calling_action);
2888: OE_DEBUG_PUB.Add(' Transaction Amount = '|| p_transaction_amount);
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2894: || p_header_rec.sold_to_org_id );
2895: OE_DEBUG_PUB.Add(' Inv_to_org = '
2889: OE_DEBUG_PUB.Add(' Header ID = '|| p_header_rec.header_id );
2890: OE_DEBUG_PUB.Add(' Order Number = '|| p_header_rec.order_number );
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2894: || p_header_rec.sold_to_org_id );
2895: OE_DEBUG_PUB.Add(' Inv_to_org = '
2896: || p_header_rec.invoice_to_org_id );
2897: OE_DEBUG_PUB.Add(' Credit check level = '
2891: OE_DEBUG_PUB.Add(' Order currency = '
2892: || p_header_rec.transactional_curr_code );
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2894: || p_header_rec.sold_to_org_id );
2895: OE_DEBUG_PUB.Add(' Inv_to_org = '
2896: || p_header_rec.invoice_to_org_id );
2897: OE_DEBUG_PUB.Add(' Credit check level = '
2898: || p_credit_check_rule_rec.credit_check_level_code );
2899: OE_DEBUG_PUB.Add(' Conversion Type = '
2893: OE_DEBUG_PUB.Add(' sold_to_org = '
2894: || p_header_rec.sold_to_org_id );
2895: OE_DEBUG_PUB.Add(' Inv_to_org = '
2896: || p_header_rec.invoice_to_org_id );
2897: OE_DEBUG_PUB.Add(' Credit check level = '
2898: || p_credit_check_rule_rec.credit_check_level_code );
2899: OE_DEBUG_PUB.Add(' Conversion Type = '
2900: || p_credit_check_rule_rec.conversion_type );
2901: OE_DEBUG_PUB.Add(' User Conversion Type = '
2895: OE_DEBUG_PUB.Add(' Inv_to_org = '
2896: || p_header_rec.invoice_to_org_id );
2897: OE_DEBUG_PUB.Add(' Credit check level = '
2898: || p_credit_check_rule_rec.credit_check_level_code );
2899: OE_DEBUG_PUB.Add(' Conversion Type = '
2900: || p_credit_check_rule_rec.conversion_type );
2901: OE_DEBUG_PUB.Add(' User Conversion Type = '
2902: || p_credit_check_rule_rec.user_conversion_type );
2903: OE_DEBUG_PUB.Add(' Credit check rule id = '
2897: OE_DEBUG_PUB.Add(' Credit check level = '
2898: || p_credit_check_rule_rec.credit_check_level_code );
2899: OE_DEBUG_PUB.Add(' Conversion Type = '
2900: || p_credit_check_rule_rec.conversion_type );
2901: OE_DEBUG_PUB.Add(' User Conversion Type = '
2902: || p_credit_check_rule_rec.user_conversion_type );
2903: OE_DEBUG_PUB.Add(' Credit check rule id = '
2904: || p_credit_check_rule_rec.credit_check_rule_id );
2905: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
2899: OE_DEBUG_PUB.Add(' Conversion Type = '
2900: || p_credit_check_rule_rec.conversion_type );
2901: OE_DEBUG_PUB.Add(' User Conversion Type = '
2902: || p_credit_check_rule_rec.user_conversion_type );
2903: OE_DEBUG_PUB.Add(' Credit check rule id = '
2904: || p_credit_check_rule_rec.credit_check_rule_id );
2905: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
2906: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2901: OE_DEBUG_PUB.Add(' User Conversion Type = '
2902: || p_credit_check_rule_rec.user_conversion_type );
2903: OE_DEBUG_PUB.Add(' Credit check rule id = '
2904: || p_credit_check_rule_rec.credit_check_rule_id );
2905: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
2906: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2908: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
2909: OE_DEBUG_PUB.Add('g_hold_exist => '|| g_hold_exist );
2903: OE_DEBUG_PUB.Add(' Credit check rule id = '
2904: || p_credit_check_rule_rec.credit_check_rule_id );
2905: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
2906: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2908: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
2909: OE_DEBUG_PUB.Add('g_hold_exist => '|| g_hold_exist );
2910: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2911: OE_DEBUG_PUB.Add(' ');
2905: OE_DEBUG_PUB.Add(' CHECK_ITEM_CATEGORIES_FLAG = '
2906: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2908: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
2909: OE_DEBUG_PUB.Add('g_hold_exist => '|| g_hold_exist );
2910: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2911: OE_DEBUG_PUB.Add(' ');
2912: END IF;
2913: --
2906: || p_credit_check_rule_rec.CHECK_ITEM_CATEGORIES_FLAG );
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2908: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
2909: OE_DEBUG_PUB.Add('g_hold_exist => '|| g_hold_exist );
2910: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2911: OE_DEBUG_PUB.Add(' ');
2912: END IF;
2913: --
2914: -- Check payment term only if the calling action is not EXTERNAL
2907: OE_DEBUG_PUB.Add(' SEND_HOLD_NOTIFICATIONS_FLAG = '
2908: || p_credit_check_rule_rec.SEND_HOLD_NOTIFICATIONS_FLAG );
2909: OE_DEBUG_PUB.Add('g_hold_exist => '|| g_hold_exist );
2910: OE_DEBUG_PUB.Add(' -------------------------------------------- ');
2911: OE_DEBUG_PUB.Add(' ');
2912: END IF;
2913: --
2914: -- Check payment term only if the calling action is not EXTERNAL
2915: --
2914: -- Check payment term only if the calling action is not EXTERNAL
2915: --
2916: IF NVL(p_calling_action,'BOOKING') <> 'EXTERNAL' THEN
2917: IF G_debug_flag = 'Y' THEN
2918: OE_DEBUG_PUB.Add(' Call check_credit_check_flags ');
2919: END IF;
2920: l_check_order_eligible := check_credit_check_flags
2921: ( p_header_id => p_header_rec.header_id );
2922: ELSE
2923: l_check_order_eligible := 'Y';
2924: END IF;
2925:
2926: IF G_debug_flag = 'Y' THEN
2927: OE_DEBUG_PUB.Add(' l_check_order_eligible = '|| l_check_order_eligible );
2928: END IF;
2929:
2930: IF l_check_order_eligible = 'Y'
2931: THEN
2929:
2930: IF l_check_order_eligible = 'Y'
2931: THEN
2932: IF G_debug_flag = 'Y' THEN
2933: OE_DEBUG_PUB.Add('OEXVCRHB: Payment term YES CC checked , continue CC ');
2934: END IF;
2935:
2936: SELECT /* MOAC_SQL_CHANGE */ cas.cust_account_id
2937: , su.site_use_id
2946: AND cas.CUST_ACCT_SITE_ID = su.CUST_ACCT_SITE_ID
2947: AND cas.cust_account_id=ca.cust_account_id; ---------new (FPI)
2948:
2949: IF G_debug_flag = 'Y' THEN
2950: OE_DEBUG_PUB.Add('l_own_customer_id '|| l_own_customer_id );
2951: OE_DEBUG_PUB.Add('l_order_site_use_id '|| l_order_site_use_id);
2952: END IF;
2953:
2954: ---------------------------------------------------+
2947: AND cas.cust_account_id=ca.cust_account_id; ---------new (FPI)
2948:
2949: IF G_debug_flag = 'Y' THEN
2950: OE_DEBUG_PUB.Add('l_own_customer_id '|| l_own_customer_id );
2951: OE_DEBUG_PUB.Add('l_order_site_use_id '|| l_order_site_use_id);
2952: END IF;
2953:
2954: ---------------------------------------------------+
2955: -- order is subject to credit check: |
2973: , x_cc_result_out => l_cc_result_out
2974: , x_return_status => x_return_status
2975: );
2976: IF G_debug_flag = 'Y' THEN
2977: OE_DEBUG_PUB.Add('Check_Item_Limit: Result Out = '
2978: || l_cc_result_out );
2979: OE_DEBUG_PUB.Add('Check_Item_Limit: Return Status = '
2980: || x_return_status );
2981: END IF;
2975: );
2976: IF G_debug_flag = 'Y' THEN
2977: OE_DEBUG_PUB.Add('Check_Item_Limit: Result Out = '
2978: || l_cc_result_out );
2979: OE_DEBUG_PUB.Add('Check_Item_Limit: Return Status = '
2980: || x_return_status );
2981: END IF;
2982: ELSE
2983: l_cc_result_out := 'PASS' ;
2982: ELSE
2983: l_cc_result_out := 'PASS' ;
2984: x_return_status := FND_API.G_RET_STS_SUCCESS;
2985: IF G_debug_flag = 'Y' THEN
2986: OE_DEBUG_PUB.Add(' No Item category credit checking, flag OFF ');
2987: OE_DEBUG_PUB.Add('l_cc_result_out = '
2988: || l_cc_result_out );
2989: OE_DEBUG_PUB.Add('x_return_status = '
2990: || x_return_status );
2983: l_cc_result_out := 'PASS' ;
2984: x_return_status := FND_API.G_RET_STS_SUCCESS;
2985: IF G_debug_flag = 'Y' THEN
2986: OE_DEBUG_PUB.Add(' No Item category credit checking, flag OFF ');
2987: OE_DEBUG_PUB.Add('l_cc_result_out = '
2988: || l_cc_result_out );
2989: OE_DEBUG_PUB.Add('x_return_status = '
2990: || x_return_status );
2991: END IF;
2985: IF G_debug_flag = 'Y' THEN
2986: OE_DEBUG_PUB.Add(' No Item category credit checking, flag OFF ');
2987: OE_DEBUG_PUB.Add('l_cc_result_out = '
2988: || l_cc_result_out );
2989: OE_DEBUG_PUB.Add('x_return_status = '
2990: || x_return_status );
2991: END IF;
2992: END IF;
2993:
3005: THEN
3006: -- set the order hold release flag
3007: l_release_order_hold := 'N';
3008: IF G_debug_flag = 'Y' THEN
3009: OE_DEBUG_PUB.Add(' l_release_order_hold = '||l_release_order_hold );
3010: END IF;
3011: ELSE
3012: IF G_debug_flag = 'Y'
3013: THEN
3010: END IF;
3011: ELSE
3012: IF G_debug_flag = 'Y'
3013: THEN
3014: OE_DEBUG_PUB.Add('Item checking PASS, call Check_Other_Credit_Limits' );
3015: END IF;
3016:
3017: ---------------------------------------------------+
3018: -- Check other credit limits for the bill-to site: |
3038: );
3039:
3040: IF G_debug_flag = 'Y'
3041: THEN
3042: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Result Out = '
3043: || l_cc_result_out );
3044: OE_DEBUG_PUB.Add('l_check_exposure_mode = '||
3045: l_check_exposure_mode );
3046: OE_DEBUG_PUB.Add('l_credit_level = '||
3040: IF G_debug_flag = 'Y'
3041: THEN
3042: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Result Out = '
3043: || l_cc_result_out );
3044: OE_DEBUG_PUB.Add('l_check_exposure_mode = '||
3045: l_check_exposure_mode );
3046: OE_DEBUG_PUB.Add('l_credit_level = '||
3047: l_credit_level );
3048: OE_DEBUG_PUB.Add('x_cc_hold_comment = '||
3042: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Result Out = '
3043: || l_cc_result_out );
3044: OE_DEBUG_PUB.Add('l_check_exposure_mode = '||
3045: l_check_exposure_mode );
3046: OE_DEBUG_PUB.Add('l_credit_level = '||
3047: l_credit_level );
3048: OE_DEBUG_PUB.Add('x_cc_hold_comment = '||
3049: x_cc_hold_comment );
3050: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
3044: OE_DEBUG_PUB.Add('l_check_exposure_mode = '||
3045: l_check_exposure_mode );
3046: OE_DEBUG_PUB.Add('l_credit_level = '||
3047: l_credit_level );
3048: OE_DEBUG_PUB.Add('x_cc_hold_comment = '||
3049: x_cc_hold_comment );
3050: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
3051: || x_return_status );
3052: END IF;
3046: OE_DEBUG_PUB.Add('l_credit_level = '||
3047: l_credit_level );
3048: OE_DEBUG_PUB.Add('x_cc_hold_comment = '||
3049: x_cc_hold_comment );
3050: OE_DEBUG_PUB.Add('Check_Other_Credit_Limits: Return Status = '
3051: || x_return_status );
3052: END IF;
3053:
3054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3065: THEN
3066: -- set the order hold release flag
3067: l_release_order_hold := 'N';
3068: IF G_debug_flag = 'Y' THEN
3069: OE_DEBUG_PUB.Add(' l_release_order_hold = '||l_release_order_hold );
3070: END IF;
3071: END IF;
3072:
3073: END IF; -- else item checking
3079: END IF;
3080:
3081: IF G_debug_flag = 'Y'
3082: THEN
3083: OE_DEBUG_PUB.Add('OEXVCRHB: Check_order_credit Results');
3084: OE_DEBUG_PUB.Add('l_release_order_hold : '|| l_release_order_hold );
3085: OE_DEBUG_PUB.Add('l_cc_result_out : '|| l_cc_result_out );
3086: END IF;
3087:
3080:
3081: IF G_debug_flag = 'Y'
3082: THEN
3083: OE_DEBUG_PUB.Add('OEXVCRHB: Check_order_credit Results');
3084: OE_DEBUG_PUB.Add('l_release_order_hold : '|| l_release_order_hold );
3085: OE_DEBUG_PUB.Add('l_cc_result_out : '|| l_cc_result_out );
3086: END IF;
3087:
3088: ELSE
3081: IF G_debug_flag = 'Y'
3082: THEN
3083: OE_DEBUG_PUB.Add('OEXVCRHB: Check_order_credit Results');
3084: OE_DEBUG_PUB.Add('l_release_order_hold : '|| l_release_order_hold );
3085: OE_DEBUG_PUB.Add('l_cc_result_out : '|| l_cc_result_out );
3086: END IF;
3087:
3088: ELSE
3089: x_cc_result_out := 'NOCHECK';
3090: l_release_order_hold := 'Y' ;
3091:
3092: IF G_debug_flag = 'Y'
3093: THEN
3094: OE_DEBUG_PUB.Add('OEXVCRHB: Payment term NO CC checked ');
3095: END IF;
3096:
3097: END IF; -- payment term check
3098:
3097: END IF; -- payment term check
3098:
3099: IF G_debug_flag = 'Y'
3100: THEN
3101: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
3102: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
3103: END IF;
3104: --
3105: -- Also check calling action to release hold only when action not EXTERNAL
3098:
3099: IF G_debug_flag = 'Y'
3100: THEN
3101: OE_DEBUG_PUB.Add(' l_release_order_hold = '|| l_release_order_hold );
3102: OE_DEBUG_PUB.Add(' x_cc_result_out = ' || x_cc_result_out );
3103: END IF;
3104: --
3105: -- Also check calling action to release hold only when action not EXTERNAL
3106: --
3109: -- AND l_cc_result_out <> 'NOCHECK'
3110: THEN
3111: IF G_debug_flag = 'Y'
3112: THEN
3113: OE_DEBUG_PUB.Add(' CALL Release_Order_CC_Hold ' );
3114: END IF;
3115:
3116: Release_Order_CC_Hold
3117: ( p_header_id => p_header_rec.header_id
3122: );
3123:
3124: IF G_debug_flag = 'Y'
3125: THEN
3126: OE_DEBUG_PUB.Add(' Release_Order_CC_Hold : Result Out = '
3127: || l_cc_result_out );
3128: END IF;
3129:
3130: END IF;
3136: g_hold_exist := NULL ;
3137:
3138: IF G_debug_flag = 'Y'
3139: THEN
3140: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out );
3141: OE_DEBUG_PUB.Add(' G_result_out = ' || G_result_out );
3142: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out );
3143: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_credit API');
3144: END IF;
3137:
3138: IF G_debug_flag = 'Y'
3139: THEN
3140: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out );
3141: OE_DEBUG_PUB.Add(' G_result_out = ' || G_result_out );
3142: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out );
3143: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_credit API');
3144: END IF;
3145:
3138: IF G_debug_flag = 'Y'
3139: THEN
3140: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out );
3141: OE_DEBUG_PUB.Add(' G_result_out = ' || G_result_out );
3142: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out );
3143: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_credit API');
3144: END IF;
3145:
3146: EXCEPTION
3139: THEN
3140: OE_DEBUG_PUB.Add(' l_cc_result_out = '|| l_cc_result_out );
3141: OE_DEBUG_PUB.Add(' G_result_out = ' || G_result_out );
3142: OE_DEBUG_PUB.Add(' final x_cc_result_out = '|| x_cc_result_out );
3143: OE_DEBUG_PUB.Add('OEXVCRHB: Out Check_order_credit API');
3144: END IF;
3145:
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3145:
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3148: IF G_debug_flag = 'Y' THEN
3149: OE_DEBUG_PUB.Add('Check_order_credit: Error ');
3150: END IF;
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3153: IF G_debug_flag = 'Y' THEN
3150: END IF;
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3153: IF G_debug_flag = 'Y' THEN
3154: OE_DEBUG_PUB.Add('Check_order_credit: Unexpected Error ');
3155: END IF;
3156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3157: WHEN OTHERS THEN
3158: IF G_debug_flag = 'Y' THEN
3155: END IF;
3156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3157: WHEN OTHERS THEN
3158: IF G_debug_flag = 'Y' THEN
3159: OE_DEBUG_PUB.Add('Check_order_credit: Other Unexpected Error ');
3160: END IF;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3162: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3163: OE_MSG_PUB.Add_Exc_Msg
3165: , 'Check_order_credit'
3166: );
3167: END IF;
3168: IF G_debug_flag = 'Y' THEN
3169: OE_DEBUG_PUB.Add( SUBSTR(SQLERRM,1,300),1 ) ;
3170: END IF;
3171: OE_MSG_PUB.Count_And_Get
3172: ( p_count => x_msg_count
3173: , p_data => x_msg_data