CMR-10556: adding a few more fields for the external process

Author: jceaser

metadata-db-app/src/cmr/metadata_db/services/subscriptions.clj

@@ -264,14 +264,19 @@
 
 (defn create-notification-message-body
   "Create the notification when a subscription exists.
-   * At this time only concept-id of the granule is needed as an external subscription process will
-   pull other values meaning this code will not need to translate the XML or JSON to find values for
-   the subscription process.
+   * At this time concept-id, revision-id, granule-ur, and location are all that is needed of the
+     granule is needed as an external subscription process will pull other values meaning this code
+     will not need to translate the XML or JSON to find values for the subscription process.
    * This function exists so that it can be tested as the output is expected in external software:
-   'subscription_worker'
-   * Returns a String containing JSON with the granule concept id."
+     'subscription_worker'
+   * Returns a String containing JSON."
   [concept]
-  (format "{\"concept-id\": \"%s\"}" (:concept-id concept)))
+  (let [granule-ur-str (get-in concept [:extra-fields :granule-ur])
+        concept-id-str (:concept-id concept)
+        revision-id-str (get concept :revision-id "1")
+        location-str (get-location-message-str concept)]
+    (format "{\"concept-id\": \"%s\", \"revision-id\": \"%s\", \"granule-ur\": \"%s\", %s}"
+            concept-id-str revision-id-str granule-ur-str location-str)))
 
 (defn create-message-attributes
   "Create the notification message attributes so that the notifications can be

metadata-db-app/test/cmr/metadata_db/test/services/subscriptions_test.clj

@@ -506,7 +506,7 @@
       (let [message-str (.body message)
             message (json/decode message-str true)]
         (is (= "G12345-PROV1" (:concept-id message)))
-        (is (= '(:concept-id) (keys message)) "expected output for external subscription_worker")
+        (is (= '(:concept-id :revision-id :granule-ur :location) (keys message)) "expected output for external subscription_worker")
         (is (some? (queue/delete-messages sqs-client queue-url messages)))))))
 
 (deftest publish-subscription-notification-test