 
 (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)


(defn delete-record-from-realtime-update  [ table-name    record-id     data-session-id ]
  (do
    (println (str "delete-record-from-realtime-update: " ))
    (println (str "              table-name: "       table-name))
    (println (str "              record-id: "        record-id))
    (println (str "              data-session-id: "  data-session-id))

  (let [client-data-atom         (if server-side-realtime-clients  (get @server-side-realtime-clients  data-session-id))
        response-atom            (if client-data-atom  client-data-atom )

        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 "      "))
