database routines are added to 04-databases/simple-crud

04-databases/simple-crud/DatabaseRoutines.m

@@ -0,0 +1,6 @@
+
+drop()
+  k ^comments;
+  k ^posts;
+  k ^users;
+  q 1

04-databases/simple-crud/Main.m

@@ -58,6 +58,14 @@
   . w "User successfully fetched!",!
   . w "Username: ",data("username"),!
   . w "Email: ",data("email"),!
-  . w "Full name: ",data("fullname"),!
+  . w "Full name: ",data("fullname"),!,!
   e  d
-  . w "Whoops! The user could not be fetched.",!
+  . w "Whoops! The user could not be fetched.",!,!
+
+; drop database
+
+  s ok=$$drop^DatabaseRoutines()
+  i ok=1 d
+  . w "Database successfully dropped!",!
+  e  d
+  . w "Whoops! The database could not be dropped.",!

README.md

@@ -221,6 +221,8 @@ Copy the examples into your `~/.fis-gtm/V6.3-003A_x86_64/r` folder and run:
     Email:
     Full name:
 
+    Database successfully dropped!
+
   > For further details also visit [UserRoutines.m](https://github.com/programarivm/mumps-examples/blob/master/04-databases/simple-crud/UserRoutines.m)
 
 ---