794:
795: return boolean
796:
797: IS
798: l_instrid iby_creditcard.instrid%type;
799: l_flag boolean := false;
800:
801: cursor c_cc
802: (ci_instrid iby_creditcard.instrid%type)
798: l_instrid iby_creditcard.instrid%type;
799: l_flag boolean := false;
800:
801: cursor c_cc
802: (ci_instrid iby_creditcard.instrid%type)
803: is
804: SELECT instrid
805: FROM iby_creditcard_v
806: WHERE instrid = ci_instrid;
801: cursor c_cc
802: (ci_instrid iby_creditcard.instrid%type)
803: is
804: SELECT instrid
805: FROM iby_creditcard_v
806: WHERE instrid = ci_instrid;
807:
808:
809: cursor c_pc
806: WHERE instrid = ci_instrid;
807:
808:
809: cursor c_pc
810: (ci_instrid iby_creditcard.instrid%type)
811: is
812: SELECT instrid
813: FROM iby_purchasecard_v
814: WHERE instrid = ci_instrid;