 
 (defn parse-id [s]
   (do
-    (println (str "(defn parse-id [" s "]"))
+    ;(println (str "(defn parse-id [" s "]"))
     (let [find-num (re-find  #"\d+" s )]
       (if find-num
         (Integer. find-num)

              ""))
        ]
    (do
      (println "SQL::: " sql "," id , ":fields:" fields)
      (sql-1  sql [id])
      )))


        db-table         (str (:record_table_name realtime-log-entry))
        db-schema        (str (:record_table_schema realtime-log-entry))
        ]
    ;(println (str "**** Processing realtime record change: "))
    ;(println (str "      schema.db-table: "  db-schema "." db-table))
    ;(println (str "      "  "realtime-log-entry"))
    ;(println (str "      "  realtime-log-entry))
    ;(println (str "      "))
