diff --git a/api/debug/all_businesses.cfm b/api/debug/all_businesses.cfm
new file mode 100644
index 0000000..54b7701
--- /dev/null
+++ b/api/debug/all_businesses.cfm
@@ -0,0 +1,22 @@
+<cfsetting showdebugoutput="false">
+<cfsetting enablecfoutputonly="true">
+<cfcontent type="application/json; charset=utf-8" reset="true">
+
+<cfquery name="q" datasource="payfrit">
+  SELECT ID, Name, BeaconShardID, BeaconMajor
+  FROM Businesses
+  WHERE IsDemo = 0 AND IsPrivate = 0
+  ORDER BY Name
+</cfquery>
+
+<cfset bizList = []>
+<cfloop query="q">
+  <cfset arrayAppend(bizList, {
+    "ID": q.ID,
+    "Name": q.Name,
+    "BeaconShardID": val(q.BeaconShardID),
+    "BeaconMajor": val(q.BeaconMajor)
+  })>
+</cfloop>
+
+<cfoutput>#serializeJSON({ "OK": true, "Count": q.recordCount, "Businesses": bizList })#</cfoutput>