Checking Credit Card Number validity in Internet Expenses, iPayments

/* Formatted on 4/18/2013 11:43:35 AM (QP5 v5.114.809.3010) */
  SELECT   rct.org_id Operating_unit,
           rc.customer_name customer,
           rct.trx_number invoice_number,
           aps.AMOUNT_DUE_REMAINING,
           apa.bank_account_name bank_name,
           apa.bank_account_num credit_card_number,
           apa.inactive_date credit_validaity_date,
           acol.NAME collector_name
    FROM   AP_BANK_ACCOUNTS_ALL apa,
           ra_customer_trx_all rct,
           ra_customers rc,
           ar_payment_schedules_all aps,
           ra_batch_sources_all rbs,
           AR_CUSTOMER_PROFILES ACP,
           AR_COLLECTORS ACOL
   WHERE       1 = 1
           AND ACP.CUSTOMER_ID = rc.CUSTOMER_ID
           AND ACP.COLLECTOR_ID = ACOL.COLLECTOR_ID
           AND ACP.SITE_USE_ID IS NULL
           AND rct.batch_source_id = rbs.batch_source_id
           AND rct.customer_trx_id = aps.customer_trx_id
           AND rct.org_id = aps.org_id
           AND apa.bank_account_id = rct.customer_bank_account_id
           AND rc.customer_id = rct.bill_to_customer_id
           AND aPS.gl_date_closed = TO_DATE ('4712/12/31', 'YYYY/MM/DD')
           AND aps.selected_for_receipt_batch_id IS NULL
           AND aps.status = 'OP'
           AND rct.attribute9 = 'CREDIT CARD'
           AND RCT.ORG_ID > 202
           AND aps.reserved_type IS NULL
           AND aps.reserved_value IS NULL
           AND aps.AMOUNT_DUE_REMAINING > 0
ORDER BY   aps.AMOUNT_DUE_REMAINING DESC;