video code mumps

Author: rdoetjes

mumps-demo/demo

@@ -1,20 +1,20 @@
-Saved by %RS from [MGR,TST] on 02 Nov 2024 at 09:14:10 AM
-demo code
+Saved by %RS from [MGR,DEV] on 03 Nov 2024 at 12:03:17 PM
+demo code that generates test data
 demo
-demo ; Demo routine
-  s fnames="Roy|Maurice|Jeffrey|Ray|Vincent|Rob|Wilco|Wim|Rajesh|Julia|Enid|Edith|Archie|Robert|Cynthia|Clare|Karin|Tony|Anthony|Mick|Keith|Juliet|Daisy"
-  s lnames="Jagger|Woods|Johnson|DeVille|Williams|Richarson|van de Oort|Beckham|Robbinson|Vega|de Lange|Orbinson|Richards|Meijer|Romer|Duke|Coltrane|Ford|Cooper"
+demo ; New routine
+  s fnames="Roy|Maurice|Jeffrey|Ray|Vincent|Rob|Wilco|Wim|Rajesh|Julia|Enid|Edith|Archie|Robert|Cynthia|Clare|Karin|Tony|Anthony|Mick|Keith|Juliet|Daisy|Marc"
+  s lnames="Jagger|Woods|Johnson|DeVille|Williams|Richardson|van der Oort|Beckham|Robinsson|Vega|de Lange|Orbinson|Richards|Meijer|Roner|Duke|Coltrane|Ford|Cooper"
   s agep=67
   s agew=15
-  s year=$PIECE($H,",",1)\365.25+1841
-  r "Number of users to add:",AMOUNT
-  f i=1:1:AMOUNT do
+  s year=$P($H,",",1)\365.25+1841
+  r "Numer of users to add: ",AMOUNT
+  f i=1:1:AMOUNT d
   . s id=$i(^USERS)
-  . s fname=$P(fnames,"|",$R($L(fnames,"|")-1)+1)
-  . s lname=$P(lnames,"|",$R($L(lnames,"|")-1)+1)
+  . s fname=$P(fnames,"|",$R($L(fnames,"|"))+1)
+  . s lname=$P(lnames,"|",$R($L(lnames,"|"))+1)
   . s byear=(year-agep)+($R(agep-agew))
   . s ^USERS(id,"name")=fname_"|"_lname
-  . s ^USERS(id,"age")=byear
+  . s ^USERS(id,"byear")=byear
   . w:(i#10=0) "."
   quit
 ;---

mumps-demo/find

@@ -1,16 +1,15 @@
-Saved by %RS from [MGR,TST] on 02 Nov 2024 at 03:56:17 PM
-find code depends on ^print
+Saved by %RS from [MGR,DEV] on 03 Nov 2024 at 12:03:25 PM
+find demo code
 find
 find ; New routine
   R "NAME|LASTNAME: ",NAME,!
   S ID=""
   S FOUND=0
   F  S ID=$O(^USERS(ID)) Q:ID=""  D
-  .I ^USERS(ID,"name")=NAME D
-  ..W ID,!
-  ..D ^print(ID)
-  ..S FOUND=FOUND+1
-  W !,"# RECORDS FOUND :"_FOUND,!
+  . I ^USERS(ID,"name")=NAME D
+  . . D ^print(ID)
+  . . S FOUND=FOUND+1
+  W !,"# RECORDS FOUND : "_FOUND,!
 ;---
 
 

mumps-demo/print

@@ -1,18 +1,18 @@
-Saved by %RS from [MGR,TST] on 02 Nov 2024 at 04:01:22 PM
-print code user by find
+Saved by %RS from [MGR,DEV] on 03 Nov 2024 at 12:03:06 PM
+print code used by find
 print
-print(USERID) ; Entry point for printing user information
+print(USERID) ; New routine
   NEW NODE
   S Y=$P($H,",",1)/365.25+1841
   I '$DATA(^USERS(USERID))  DO
-  .W "User ID "_USERID_" does not exist.",!
+  . W "UserID "_USERID_" does not exist.",!
   E  DO
-  .W "________________________________________________________________________________",!
-  .W "User ID: ",USERID,!
-  .S NODE=""
-  .F  S NODE=$O(^USERS(USERID,NODE)) Q:NODE=""  DO
-  ..I NODE="name" W "Firstname: "_$P(^USERS(USERID,NODE),"|",1)_" Lastname: "_$P(^USERS(USERID,NODE),"|",2)_" age : "_(Y-^USERS(USERID,"age")\1),!
-  .W "________________________________________________________________________________",!
+  . W "_________________________________________________",!
+  . W "UserID: "_USERID,!
+  . S NODE=""
+  . F  S NODE=$O(^USERS(USERID,NODE)) Q:NODE=""  D
+  . . I NODE="name" W "Firstname: "_$P(^USERS(USERID,NODE),"|",1)_" Lastname: "_$P(^USERS(USERID,NODE),"|",2)_" age: "_(Y-^USERS(USERID,"byear")\1),!
+  . W "________________________________________________",!
   QUIT
 ;---