ตรวจทุก record ว่าเป็นไปตามเงื่อนไขไหม

BEGIN
    GO_BLOCK('BG_USAGE_PAYNAME');
    FIRST_RECORD;
FOR i IN 0..NVL(:bg_usage_payname.nb_cnt_rec,0) LOOP
--message(:bg_usage_payname.nb_cnt_rec);pause;
        IF     :BG_USAGE_PAYNAME.PAY_TYPE_CODE IS NOT NULL AND :BG_USAGE_PAYNAME.PAY_TYPE_CODE != STBG.GET_PARAMETER('PAY_TYPE_PAC','BG')  THEN
                UTIL.SHOW_MESSAGE('STOP','BG','B0148',STFN.PAYMENT_TYPE_NAME(STBG.GET_PARAMETER('PAY_TYPE_PAC','BG')),GET_ITEM_PROPERTY('BG_USAGE_MASTER.INTERNAL_CHARGE_YN',PROMPT_TEXT));
                :BG_USAGE_MASTER.INTERNAL_CHARGE_YN := 'N';
                RAISE FORM_TRIGGER_FAILURE;
        ELSE
                IF NVL(:BG_USAGE_MASTER.INTERNAL_CHARGE_YN,'N') = 'Y' THEN
                    Set_LOV_Property('M_PAY_TYPE_CODE_LOV',GROUP_NAME,'PAY_TYPE_CODE2_REC');
                ELSE
                    Set_LOV_Property('M_PAY_TYPE_CODE_LOV',GROUP_NAME,'PAY_TYPE_CODE_REC');
                END IF;
        END IF;
    NEXT_RECORD;
END LOOP;   
    GO_ITEM('BG_USAGE_MASTER.INTERNAL_CHARGE_YN');
END;