506: OE_DEBUG_PUB.ADD('Release select : '||v_release_final_select,2);
507: --
508: -- Open the dynamic sql cursor
509: --
510: v_hold_cursorID := DBMS_SQL.OPEN_CURSOR;
511: v_release_cursorID := DBMS_SQL.OPEN_CURSOR;
512: --
513: -- Parse the query
514: --
507: --
508: -- Open the dynamic sql cursor
509: --
510: v_hold_cursorID := DBMS_SQL.OPEN_CURSOR;
511: v_release_cursorID := DBMS_SQL.OPEN_CURSOR;
512: --
513: -- Parse the query
514: --
515: DBMS_SQL.PARSE(v_hold_cursorID, v_hold_final_select, DBMS_SQL.NATIVE);
511: v_release_cursorID := DBMS_SQL.OPEN_CURSOR;
512: --
513: -- Parse the query
514: --
515: DBMS_SQL.PARSE(v_hold_cursorID, v_hold_final_select, DBMS_SQL.NATIVE);
516: DBMS_SQL.PARSE(v_release_cursorID, v_release_final_select, DBMS_SQL.NATIVE);
517: OE_DEBUG_PUB.ADD('Parsed the cursor',2);
518: --
519: -- Define input variables. Only bind the variables if it is part of the
512: --
513: -- Parse the query
514: --
515: DBMS_SQL.PARSE(v_hold_cursorID, v_hold_final_select, DBMS_SQL.NATIVE);
516: DBMS_SQL.PARSE(v_release_cursorID, v_release_final_select, DBMS_SQL.NATIVE);
517: OE_DEBUG_PUB.ADD('Parsed the cursor',2);
518: --
519: -- Define input variables. Only bind the variables if it is part of the
520: -- select statement
521: --
522: OE_DEBUG_PUB.ADD('Start binding input variables',2);
523:
524: IF p_order_by = 'GREATEST_ORDER_VALUE' THEN
525: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':gl_currency_code',p_gl_currency_code);
526: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':gl_currency_code',p_gl_currency_code);
527: OE_DEBUG_PUB.ADD('Binded gl_currency_code',2);
528: END IF;
529:
522: OE_DEBUG_PUB.ADD('Start binding input variables',2);
523:
524: IF p_order_by = 'GREATEST_ORDER_VALUE' THEN
525: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':gl_currency_code',p_gl_currency_code);
526: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':gl_currency_code',p_gl_currency_code);
527: OE_DEBUG_PUB.ADD('Binded gl_currency_code',2);
528: END IF;
529:
530: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_from') <> 0 THEN
527: OE_DEBUG_PUB.ADD('Binded gl_currency_code',2);
528: END IF;
529:
530: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_from') <> 0 THEN
531: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_prof_class_from',p_cust_prof_class_name_from);
532: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_prof_class_from',p_cust_prof_class_name_from);
533: OE_DEBUG_PUB.ADD('Binded cust_prof_class_from',2);
534: END IF;
535:
528: END IF;
529:
530: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_from') <> 0 THEN
531: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_prof_class_from',p_cust_prof_class_name_from);
532: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_prof_class_from',p_cust_prof_class_name_from);
533: OE_DEBUG_PUB.ADD('Binded cust_prof_class_from',2);
534: END IF;
535:
536: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_to') <> 0 THEN
533: OE_DEBUG_PUB.ADD('Binded cust_prof_class_from',2);
534: END IF;
535:
536: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_to') <> 0 THEN
537: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_prof_class_to',p_cust_prof_class_name_to);
538: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_prof_class_to' ,p_cust_prof_class_name_to);
539: OE_DEBUG_PUB.ADD('Binded cust_prof_class_to',2);
540: END IF;
541:
534: END IF;
535:
536: IF INSTRB(v_cust_prof_class_clause,':cust_prof_class_to') <> 0 THEN
537: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_prof_class_to',p_cust_prof_class_name_to);
538: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_prof_class_to' ,p_cust_prof_class_name_to);
539: OE_DEBUG_PUB.ADD('Binded cust_prof_class_to',2);
540: END IF;
541:
542: IF INSTRB(v_party_name_clause, ':party_name_from') <> 0 THEN
539: OE_DEBUG_PUB.ADD('Binded cust_prof_class_to',2);
540: END IF;
541:
542: IF INSTRB(v_party_name_clause, ':party_name_from') <> 0 THEN
543: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':party_name_from',p_party_name_from);
544: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':party_name_from',p_party_name_from);
545: OE_DEBUG_PUB.ADD('Binded party_name_from',2);
546: END IF;
547:
540: END IF;
541:
542: IF INSTRB(v_party_name_clause, ':party_name_from') <> 0 THEN
543: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':party_name_from',p_party_name_from);
544: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':party_name_from',p_party_name_from);
545: OE_DEBUG_PUB.ADD('Binded party_name_from',2);
546: END IF;
547:
548: IF INSTRB(v_party_name_clause, ':party_name_to') <> 0 THEN
545: OE_DEBUG_PUB.ADD('Binded party_name_from',2);
546: END IF;
547:
548: IF INSTRB(v_party_name_clause, ':party_name_to') <> 0 THEN
549: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':party_name_to',p_party_name_to);
550: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':party_name_to' ,p_party_name_to);
551: OE_DEBUG_PUB.ADD('Binded party_name_to',2);
552: END IF;
553:
546: END IF;
547:
548: IF INSTRB(v_party_name_clause, ':party_name_to') <> 0 THEN
549: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':party_name_to',p_party_name_to);
550: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':party_name_to' ,p_party_name_to);
551: OE_DEBUG_PUB.ADD('Binded party_name_to',2);
552: END IF;
553:
554: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_from') <> 0 THEN
551: OE_DEBUG_PUB.ADD('Binded party_name_to',2);
552: END IF;
553:
554: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_from') <> 0 THEN
555: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_acct_number_from', p_cust_acct_number_from);
556: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_acct_number_from', p_cust_acct_number_from);
557: OE_DEBUG_PUB.ADD('Binded cust_acct_number_from',2);
558: END IF;
559:
552: END IF;
553:
554: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_from') <> 0 THEN
555: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_acct_number_from', p_cust_acct_number_from);
556: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_acct_number_from', p_cust_acct_number_from);
557: OE_DEBUG_PUB.ADD('Binded cust_acct_number_from',2);
558: END IF;
559:
560: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_to') <> 0 THEN
557: OE_DEBUG_PUB.ADD('Binded cust_acct_number_from',2);
558: END IF;
559:
560: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_to') <> 0 THEN
561: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_acct_number_to', p_cust_acct_number_to);
562: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_acct_number_to', p_cust_acct_number_to);
563: OE_DEBUG_PUB.ADD('Binded cust_acct_number_to',2);
564: END IF;
565:
558: END IF;
559:
560: IF INSTRB(v_cust_acct_number_clause, ':cust_acct_number_to') <> 0 THEN
561: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':cust_acct_number_to', p_cust_acct_number_to);
562: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':cust_acct_number_to', p_cust_acct_number_to);
563: OE_DEBUG_PUB.ADD('Binded cust_acct_number_to',2);
564: END IF;
565:
566: IF INSTRB(v_order_date_clause, ':order_date_from') <> 0 THEN
563: OE_DEBUG_PUB.ADD('Binded cust_acct_number_to',2);
564: END IF;
565:
566: IF INSTRB(v_order_date_clause, ':order_date_from') <> 0 THEN
567: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':order_date_from', p_order_date_from);
568: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':order_date_from', p_order_date_from);
569: OE_DEBUG_PUB.ADD('Binded order_date_from',2);
570: END IF;
571:
564: END IF;
565:
566: IF INSTRB(v_order_date_clause, ':order_date_from') <> 0 THEN
567: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':order_date_from', p_order_date_from);
568: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':order_date_from', p_order_date_from);
569: OE_DEBUG_PUB.ADD('Binded order_date_from',2);
570: END IF;
571:
572: IF INSTRB(v_order_date_clause, ':order_date_to') <> 0 THEN
569: OE_DEBUG_PUB.ADD('Binded order_date_from',2);
570: END IF;
571:
572: IF INSTRB(v_order_date_clause, ':order_date_to') <> 0 THEN
573: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':order_date_to', p_order_date_to);
574: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':order_date_to', p_order_date_to);
575: OE_DEBUG_PUB.ADD('Binded order_date_to',2);
576: END IF;
577: OE_DEBUG_PUB.ADD('Finished binding input variables',2);
570: END IF;
571:
572: IF INSTRB(v_order_date_clause, ':order_date_to') <> 0 THEN
573: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':order_date_to', p_order_date_to);
574: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':order_date_to', p_order_date_to);
575: OE_DEBUG_PUB.ADD('Binded order_date_to',2);
576: END IF;
577: OE_DEBUG_PUB.ADD('Finished binding input variables',2);
578: --
577: OE_DEBUG_PUB.ADD('Finished binding input variables',2);
578: --
579: --Define the output variables
580: --
581: DBMS_SQL.DEFINE_COLUMN(v_hold_cursorID, 1, f_hold_header_id);
582: DBMS_SQL.DEFINE_COLUMN(v_release_cursorID, 1, f_release_header_id);
583:
584: OE_DEBUG_PUB.ADD('Hold ID : '||v_hold_cursorID,2); --bug# 5187621
585: OE_DEBUG_PUB.ADD('Release ID : '||v_release_cursorID,2);
578: --
579: --Define the output variables
580: --
581: DBMS_SQL.DEFINE_COLUMN(v_hold_cursorID, 1, f_hold_header_id);
582: DBMS_SQL.DEFINE_COLUMN(v_release_cursorID, 1, f_release_header_id);
583:
584: OE_DEBUG_PUB.ADD('Hold ID : '||v_hold_cursorID,2); --bug# 5187621
585: OE_DEBUG_PUB.ADD('Release ID : '||v_release_cursorID,2);
586: --
595: IF l_debug_level > 0 THEN
596: OE_DEBUG_PUB.Add('org_id : ' || l_profile_org_id);
597: END IF;
598:
599: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':profile_org_id', l_profile_org_id);
600: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':profile_org_id', l_profile_org_id);
601: OE_DEBUG_PUB.ADD('Binded profile_org_id',2);
602:
603: --------------------------------------------------------------------
596: OE_DEBUG_PUB.Add('org_id : ' || l_profile_org_id);
597: END IF;
598:
599: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':profile_org_id', l_profile_org_id);
600: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':profile_org_id', l_profile_org_id);
601: OE_DEBUG_PUB.ADD('Binded profile_org_id',2);
602:
603: --------------------------------------------------------------------
604: --
603: --------------------------------------------------------------------
604: --
605: -- RELEASE: Execute the RELEASE select statement
606: --
607: v_dummy := DBMS_SQL.EXECUTE(v_release_cursorID);
608: --
609: -- RELEASE: Fetch the orders and credit check each one with calling action AUTO RELEASE
610: --
611: LOOP
608: --
609: -- RELEASE: Fetch the orders and credit check each one with calling action AUTO RELEASE
610: --
611: LOOP
612: IF DBMS_SQL.FETCH_ROWS(v_release_cursorID) = 0 THEN
613: EXIT;
614: END IF;
615: l_count := l_count+1;
616: --
615: l_count := l_count+1;
616: --
617: -- Retreive the header ID into output variable
618: --
619: DBMS_SQL.COLUMN_VALUE(v_release_cursorID, 1, f_release_header_id);
620: OE_DEBUG_PUB.ADD('f_release_header_id = '|| f_release_header_id,4);
621: OE_Credit_Engine_GRP.Check_Credit
622: ( p_header_id => f_release_header_id
623: , p_calling_action => 'AUTO RELEASE'
644: Insert_In_Temp_Table(f_release_header_id, 'ERROR');
645: END IF;
646: END LOOP;
647:
648: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
649:
650: -------------------------------------------------------------------------
651: --
652: -- HOLD: Execute the HOLD select statement
650: -------------------------------------------------------------------------
651: --
652: -- HOLD: Execute the HOLD select statement
653: --
654: v_dummy := DBMS_SQL.EXECUTE(v_hold_cursorID);
655:
656: LOOP
657: IF DBMS_SQL.FETCH_ROWS(v_hold_cursorID) = 0 THEN
658: EXIT;
653: --
654: v_dummy := DBMS_SQL.EXECUTE(v_hold_cursorID);
655:
656: LOOP
657: IF DBMS_SQL.FETCH_ROWS(v_hold_cursorID) = 0 THEN
658: EXIT;
659: END IF;
660: l_count := l_count+1;
661: --
660: l_count := l_count+1;
661: --
662: -- Retreive the header ID into output variable
663: --
664: DBMS_SQL.COLUMN_VALUE(v_hold_cursorID, 1, f_hold_header_id);
665: OE_DEBUG_PUB.ADD('f_hold_header_id = '|| f_hold_header_id,4);
666: OE_Credit_Engine_GRP.Check_Credit
667: ( p_header_id => f_hold_header_id
668: , p_calling_action => 'AUTO HOLD'
689: Insert_In_Temp_Table(f_hold_header_id, 'ERROR');
690: END IF;
691: END LOOP;
692: --
693: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
694: OE_DEBUG_PUB.ADD('Orders Processed = '||l_count,2);
695: ELSE
696: OPEN l_secured_ou_cur;
697:
709: IF l_debug_level > 0 THEN
710: OE_DEBUG_PUB.Add('org_id : ' || l_profile_org_id);
711: END IF;
712:
713: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':profile_org_id', l_profile_org_id);
714: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':profile_org_id', l_profile_org_id);
715: OE_DEBUG_PUB.ADD('Binded profile_org_id',2);
716:
717: --------------------------------------------------------------------
710: OE_DEBUG_PUB.Add('org_id : ' || l_profile_org_id);
711: END IF;
712:
713: DBMS_SQL.BIND_VARIABLE(v_hold_cursorID,':profile_org_id', l_profile_org_id);
714: DBMS_SQL.BIND_VARIABLE(v_release_cursorID,':profile_org_id', l_profile_org_id);
715: OE_DEBUG_PUB.ADD('Binded profile_org_id',2);
716:
717: --------------------------------------------------------------------
718: --
717: --------------------------------------------------------------------
718: --
719: -- RELEASE: Execute the RELEASE select statement
720: --
721: v_dummy := DBMS_SQL.EXECUTE(v_release_cursorID);
722: --
723: -- RELEASE: Fetch the orders and credit check each one with calling action AUTO RELEASE
724: --
725: LOOP
722: --
723: -- RELEASE: Fetch the orders and credit check each one with calling action AUTO RELEASE
724: --
725: LOOP
726: IF DBMS_SQL.FETCH_ROWS(v_release_cursorID) = 0 THEN
727: EXIT;
728: END IF;
729: l_count := l_count+1;
730: --
729: l_count := l_count+1;
730: --
731: -- Retreive the header ID into output variable
732: --
733: DBMS_SQL.COLUMN_VALUE(v_release_cursorID, 1, f_release_header_id);
734: OE_DEBUG_PUB.ADD('f_release_header_id = '|| f_release_header_id,4);
735: OE_Credit_Engine_GRP.Check_Credit
736: ( p_header_id => f_release_header_id
737: , p_calling_action => 'AUTO RELEASE'
762: -------------------------------------------------------------------------
763: --
764: -- HOLD: Execute the HOLD select statement
765: --
766: v_dummy := DBMS_SQL.EXECUTE(v_hold_cursorID);
767:
768: LOOP
769: IF DBMS_SQL.FETCH_ROWS(v_hold_cursorID) = 0 THEN
770: EXIT;
765: --
766: v_dummy := DBMS_SQL.EXECUTE(v_hold_cursorID);
767:
768: LOOP
769: IF DBMS_SQL.FETCH_ROWS(v_hold_cursorID) = 0 THEN
770: EXIT;
771: END IF;
772: l_count := l_count+1;
773: --
772: l_count := l_count+1;
773: --
774: -- Retreive the header ID into output variable
775: --
776: DBMS_SQL.COLUMN_VALUE(v_hold_cursorID, 1, f_hold_header_id);
777: OE_DEBUG_PUB.ADD('f_hold_header_id = '|| f_hold_header_id,4);
778: OE_Credit_Engine_GRP.Check_Credit
779: ( p_header_id => f_hold_header_id
780: , p_calling_action => 'AUTO HOLD'
802: END IF;
803: END LOOP;
804: END LOOP;
805:
806: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
807: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
808:
809: OE_DEBUG_PUB.ADD('Orders Processed = '||l_count,2);
810:
803: END LOOP;
804: END LOOP;
805:
806: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
807: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
808:
809: OE_DEBUG_PUB.ADD('Orders Processed = '||l_count,2);
810:
811: CLOSE l_secured_ou_cur;
880: EXCEPTION
881: WHEN GL_CURRENCY_API.NO_RATE THEN
882: OE_DEBUG_PUB.ADD('OEXRCRCB: Credit_Check_Processor - Error',1);
883: OE_DEBUG_PUB.ADD('EXCEPTION: GL_CURRENCY_API.NO_RATE',1);
884: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
885: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
886: END IF;
887: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
888: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
881: WHEN GL_CURRENCY_API.NO_RATE THEN
882: OE_DEBUG_PUB.ADD('OEXRCRCB: Credit_Check_Processor - Error',1);
883: OE_DEBUG_PUB.ADD('EXCEPTION: GL_CURRENCY_API.NO_RATE',1);
884: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
885: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
886: END IF;
887: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
888: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
889: END IF;
883: OE_DEBUG_PUB.ADD('EXCEPTION: GL_CURRENCY_API.NO_RATE',1);
884: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
885: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
886: END IF;
887: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
888: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
889: END IF;
890: RAISE;
891: WHEN OTHERS THEN
884: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
885: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
886: END IF;
887: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
888: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
889: END IF;
890: RAISE;
891: WHEN OTHERS THEN
892: OE_DEBUG_PUB.ADD('OEXRCRCB: Credit_Check_Processor - Unexpected Error',1);
893: OE_DEBUG_PUB.ADD('EXCEPTION: '||SUBSTR(sqlerrm,1,200),1);
894: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
895: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Credit_Check_Processor');
896: END IF;
897: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
898: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
899: END IF;
900: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
901: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
894: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
895: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Credit_Check_Processor');
896: END IF;
897: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
898: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
899: END IF;
900: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
901: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
902: END IF;
896: END IF;
897: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
898: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
899: END IF;
900: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
901: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
902: END IF;
903: RAISE;
904: END Credit_Check_Processor;
897: IF DBMS_SQL.IS_OPEN(v_hold_cursorID) THEN
898: DBMS_SQL.CLOSE_CURSOR(v_hold_cursorID);
899: END IF;
900: IF DBMS_SQL.IS_OPEN(v_release_cursorID) THEN
901: DBMS_SQL.CLOSE_CURSOR(v_release_cursorID);
902: END IF;
903: RAISE;
904: END Credit_Check_Processor;
905: