Mumps Class 3
From VistApedia
Using username "worldvistaEHR".
Authenticating with public key "rsa-key-20101206"
Linux cassandra 2.6.26-1-686 #1 SMP Fri Mar 13 18:08:45 UTC 2009 i686
The programs included with the Debian GNU/Linux system are free software;
the exact distribution terms for each program are described in the
individual files in /usr/share/doc/*/copyright.
Debian GNU/Linux comes with ABSOLUTELY NO WARRANTY, to the extent
permitted by applicable law.
Last login: Thu Jan 6 17:11:18 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>; Variables start with a letter or %
GTM>; rest of variables can be letters or numbers.
GTM>; Variables can be up to 16 letters long
GTM>; Basic Commands:
GTM>; Set, Write, Read (S, W, R)
GTM>; +
GTM>WRITE 3+4
7
GTM>WRITE 3.1+4
7.1
GTM>; Incremeting
GTM>S X=0
GTM>S X=X+1
GTM>W X
1
GTM>; -
GTM>WRITE 4-3
1
GTM>WRITE 3-4
-1
GTM>WRITE 3.1-4
-.9
GTM>; Decrementing
GTM>S X=X-1
GTM>W X
0
GTM>S X=X-1
GTM>W X
-1
GTM>; *
GTM>W 3*4
12
GTM>W 3.2*4
12.8
GTM>W 3.200000
3.2
GTM>W 3.200000*4
12.8
GTM>; /
GTM>W 3/4
.75
GTM>W 4/3
1.33333333333333333
GTM>W 4/3*3
3.99999999999999999
GTM>; \
GTM>; Integer Division
GTM>W 4\3
1
GTM>W 7\3
2
GTM>W 7/-3
-2.33333333333333333
GTM>W 7\-3
-2
GTM>W 20\7
2
GTM>; # modulo
GTM>W 20#7
6
GTM>; ** power
GTM>W 3**2
9
GTM>W 3**3
27
GTM>W 3**4
81
GTM>W 3**.5
1.73205080756887712
GTM>; Binary operators for numbers
GTM>; Next: Urnary operators
GTM>; +, -, '
GTM>; + -> Change string to number
GTM>; even if it is not a number
GTM>; Numbers have a canonical form in Mumps:
GTM>; No zeros before the decimal; no zeros after the decimal if there is no other digit after the z
ero
GTM>W 00000000003
3
GTM>W 3.223000000000
3.223
GTM>; Rules for converting strings
GTM>; If strings starts with number, use that number.
GTM>; if string doesn't start with a number, it will be zero.
GTM>W +"30 MEADOW ROAD"
30
GTM>W +"HELLO"
0
GTM>W +""
0
GTM>I $G(VAR) W "HELLO"
GTM>W $G(VAR)
GTM>W $G(VAR)==""
%GTM-E-RHMISSING, Right-hand side of expression expected
W $G(VAR)==""
^-----
GTM>W $G(VAR)=""
1
GTM>W +$G(VAR)
0
GTM>ZWRITE ^DPT(3,*)
^DPT(3,0)="ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1"
^DPT(3,.11)="123 ANYWHERE^^^AVON^18^46123^7^^^^^46123^3050724.173752^VAMC^050^^59"
^DPT(3,.21)="CLAUSE,SANTA^FRIEND^^^^^^^^N"
^DPT(3,.24)="^^NITWIT,"
^DPT(3,.3)="N^^^^^^^^^^^"
^DPT(3,.31)="^^^^^^^^^^N"
^DPT(3,.311)="^^^^^^^^^^^^^^9"
^DPT(3,.32)="^^98"
^DPT(3,.36)="10^^--"
^DPT(3,1010)="3^^^^^^^^3050509.0907^RED^"
^DPT(3,"DIS",0)="^2.101DA^6949489.9093^1"
^DPT(3,"DIS",6949489.9093,0)="3050509.0907^1^3^2^9^^^^^1^5^^10^0^0"
^DPT(3,"DIS",6949489.9093,2)="N^^^N"
^DPT(3,"E",0)="^2.0361P^10^1"
^DPT(3,"E",10,0)="10^^--^"
^DPT(3,"E","B",10,10)=""
^DPT(3,"LR")=3
^DPT(3,"MPI")="500000002^140241^24^1"
^DPT(3,"NAME")="76^68"
^DPT(3,"S",0)="^2.98P^3110106.093^48"
^DPT(3,"S",3100111.0815,0)="2^^^^^^3^^^^^^^^^9^^^3100114.092542"
^DPT(3,"S",3100111.09,0)="2^C^^^^^3^^^^^23^^3100114.0925^10^9^^23^3100113"
^DPT(3,"S",3100111.1,0)="2^^^^^^3^^^^^^^^^9^^^3100113.084626"
^DPT(3,"S",3100123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101023.233802"
^DPT(3,"S",3100919.09,0)="1^^^^^^3^^^^^^^^^9^^^3100916.102431"
^DPT(3,"S",3100920.0845,0)="2^C^^^^^3^^^^^23^^3100915.1814^10^9^^23^3100915"
^DPT(3,"S",3100920.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202231"
^DPT(3,"S",3100920.093,0)="2^^^^^^3^^^^^^^^^9^^^3100915.184746"
^DPT(3,"S",3100920.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195028"
^DPT(3,"S",3100920.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202222"
^DPT(3,"S",3100920.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202305"
^DPT(3,"S",3100920.1045,0)="2^C^^^^^3^^^^^23^^3100915.2024^11^9^^23^3100915"
^DPT(3,"S",3100921.103,0)="2^^^^^^3^^^^^^^^^9^^^3100915.20241"
^DPT(3,"S",3100922.0845,0)="2^^^^^^3^^^^^^^^^9^^^3100915.185524"
^DPT(3,"S",3100922.0915,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195408"
^DPT(3,"S",3100922.093,0)="2^C^^^^^3^^^^^23^^3100915.1817^10^9^^23^3100915"
^DPT(3,"S",3100922.0945,0)="2^^^^^^3^^^^^^^^^9^^^3100915.195343"
^DPT(3,"S",3100922.1,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202448"
^DPT(3,"S",3100922.1015,0)="2^C^^^^^3^^^^^23^^3100915.2021^11^9^^23^3100915"
^DPT(3,"S",3100922.1045,0)="2^^^^^^3^^^^^^^^^9^^^3100915.202156"
^DPT(3,"S",3101206.0256,0)="2^^^^^^3^^^^^^^^^9^^^3101206.025656"
^DPT(3,"S",3101206.0304,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030416"
^DPT(3,"S",3101206.0305,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030527"
^DPT(3,"S",3101206.0307,0)="2^^^^^^3^^^^^^^^^9^^^3101206.030706"
^DPT(3,"S",3101206.0647,0)="2^N^^^^^3^^^^^23^^3101206.064737^^9^^^3101206.064737"
^DPT(3,"S",3101206.0728,0)="2^N^^^^^3^^^^^9^^3101206.07283^^9^^^3101206.07283"
^DPT(3,"S",3101206.0731,0)="2^N^^^^^3^^^^^9^^3101206.073128^^9^^^3101206.073128"
^DPT(3,"S",3101206.0737,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073703"
^DPT(3,"S",3101206.0739,0)="2^^^^^^3^^^^^^^^^9^^^3101206.073955"
^DPT(3,"S",3101206.074,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074"
^DPT(3,"S",3101206.0741,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074104"
^DPT(3,"S",3101206.0742,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074205"
^DPT(3,"S",3101206.0744,0)="2^^^^^^3^^^^^^^^^9^^^3101206.074408"
^DPT(3,"S",3101206.0802,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080222"
^DPT(3,"S",3101206.0803,0)="2^^^^^^3^^^^^^^^^9^^^3101206.080332"
^DPT(3,"S",3101206.0814,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081415"
^DPT(3,"S",3101206.0816,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081658"
^DPT(3,"S",3101206.0817,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081704"
^DPT(3,"S",3101206.0818,0)="2^^^^^^3^^^^^^^^^9^^^3101206.081816"
^DPT(3,"S",3101206.1156,0)="2^^^^^^3^^^^^^^^^9^^^3101206.11562"
^DPT(3,"S",3101206.1219,0)="2^N^^^^^3^^^^^11^^3101206.121901^^9^^^3101206.121901"
^DPT(3,"S",3101206.1221,0)="2^^^^^^3^^^^^^^^^9^^^3101206.12211"
^DPT(3,"S",3101206.1227,0)="2^N^^^^^3^^^^^11^^3101206.122759^^9^^^3101206.122759"
^DPT(3,"S",3101206.1248,0)="2^N^^^^^3^^^^^11^^3101206.124839^^9^^^3101206.124839"
^DPT(3,"S",3110106.093,0)="4^^^^^^4^^^^^^^^^9^^^3110106.090646"
^DPT(3,"S",3110123.09,0)="2^^^^^^3^^^^^^^^^9^^^3101031.093646"
^DPT(3,"S",3110123.093,0)="2^^^^^^3^^^^^^^^^9^^^3101031.101933"
^DPT(3,"S",3110123.094,0)="2^PC^^^^^3^^^^^9^^3101031.1043^1^9^^9^3101031"
^DPT(3,"S",3110123.094,"R")="Sam's Reason"
^DPT(3,"TYPE")=15
^DPT(3,"VET")="N"
GTM>W ^DPT(3,"MPI")
500000002^140241^24^1
GTM>W +^DPT(3,"MPI")
500000002
GTM>; -
GTM>; Make a number negative
GTM>; '
GTM>; NOT
GTM>S X=1
GTM>W 'X
0
GTM>S X=5
GTM>W 'X
0
GTM>W ''X
1
GTM>; ' Changes expression to boolean
GTM>IF X W "HELLO"
HELLO
GTM>W X
5
GTM>IF ''X W "HELLO"
HELLO
GTM>; ' frequently stops looping
GTM>SET Y="" FOR SET Y=$ORDER(^DPT(Y)) QUIT:'Y WRITE ^DPT(Y,0)
GTM>SET Y=0 FOR SET Y=$ORDER(^DPT(Y)) QUIT:'Y WRITE ^DPT(Y,0)
ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060511^^^^1ZZ PATIENT,TEST TWO^
M^2571225^^7^^SAILOR^29^^Test patient only, please use to test, train^BOSTON^25^^^^^^^^1ZZ PATIENT,T
EST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^1
2^^^^^^^^1DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1GOOSE,GOOFY^M^2820929^^2^^^104^3030929
82P^^NESPELEM^53^^^23^3100214^^^^1MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100
214^^^^1LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^3100214^^^^1MCDUCK,SCRO
OGE^M^2331122^^^^^^^^^^^^^^^^^1RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1WHITE,SNOW^F^2331122^^^^^
^123458902^^^^^^9^3100318^^^^1BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1RUNNER,ROAD^F^2801122^^^^^^^^^^^
^^^^^^1WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1MARTIAN,THE^M
^2330122^^^^^^^^^^^^^^^^^1MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^
^^1MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1THECAT,TOM^M^28007
07^^^^^^^^^^^^^^^^^1POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^
^1
GTM>SET Y=0 FOR SET Y=$ORDER(^DPT(Y)) QUIT:'Y WRITE ^DPT(Y,0),!
ZZ PATIENT,TEST ONE^F^2450124^^2^^NOE^^000003322^^LAS VEGAS^32^^^68^3060511^^^^1
ZZ PATIENT,TEST TWO^M^2571225^^7^^SAILOR^29^^Test patient only, please use to test, train^BOSTON^25^
^^^^^^^1
ZZ PATIENT,TEST THREE^M^2680115^^7^^UNEMPLOYED^^^^MIAMI^12^^^^^^^^1
MOUSE,MICKEY^M^2311120^^2^^ACTOR^^^^ORLANDO^12^^^^^^^^1
DUCK,DONALD^M^2831203^^2^^ACTOR^^^^AMMAN^90^^^^^^^^1
GOOSE,GOOFY^M^2820929^^2^^^104^303092982P^^NESPELEM^53^^^23^3100214^^^^1
MOUSE,MINNIE^F^2650423^^2^^ACTRESS^^505042365P^^AMMAN^90^^^23^3100214^^^^1
LISA,MONA DA^F^2371111^^2^^PAINTER SUBJECT^^524111137P^^ROMA^93^^^23^3100214^^^^1
MCDUCK,SCROOGE^M^2331122^^^^^^^^^^^^^^^^^1
RED NOSE,RUDOLPH^M^2331122^^^^^^^^^^^^^^^^^1
WHITE,SNOW^F^2331122^^^^^^123458902^^^^^^9^3100318^^^^1
BUNNY,BUGS^M^3011122^^^^^^^^^^^^^^^^^1
RUNNER,ROAD^F^2801122^^^^^^^^^^^^^^^^^1
WILE,COYOTE E^M^2331122^^^^^^^^^^^^^^^^^1
MOORE,MANDY^F^2881122^^^^^^^^^^^^^^^^^1
MARTIAN,THE^M^2330122^^^^^^^^^^^^^^^^^1
MOON,SAILOR^F^2800000^^^^^^^^^^^^^^^^^1
MOON,PLUTO^F^2800000^^^^^^^^^^^^^^^^^1
MARS,SAILOR^M^2900000^^^^^^^^^^^^^^^^^1
BIRD,TWEETIE^F^2881207^^^^^^^^^^^^^^^^^1
THECAT,TOM^M^2800707^^^^^^^^^^^^^^^^^1
POOH,WINNIE THE^M^2221101^^^^^^^^^^^^^^^^^1
MICHIRO,AOI^F^2881111^^^^^^^^^^^^^^^^^1
GTM>SET Y=0 FOR SET Y=$ORDER(^DPT(Y)) WRITE Y,! QUIT:'Y
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
AAP
GTM>W '"23"
0
GTM>W '"AAP"
1
GTM>W +"APP"
0
GTM>W '+"APP"
1
GTM>;
GTM>; Comparison operators
GTM>; Output comparison operators is always boolean
GTM>; 1 or 0
GTM>; Less than
GTM>WRITE 3<4
1
GTM>WRITE 4<3
0
GTM>WRITE 4<=3
%GTM-E-RHMISSING, Right-hand side of expression expected
WRITE 4<=3
^-----
GTM>; Mumps has no less than or equal. Use instead "Not Greater than"
GTM>WRITE 4'>3
0
GTM>; Same as less than or equal
GTM>; More than
GTM>WRITE 4>3
1
GTM>WRITE 3>4
0
GTM>WRIET 4'<3
%GTM-E-INVCMD, Invalid command keyword encountered
WRIET 4'<3
^-----
GTM>WRITE 4'<3
1
GTM>; 4 greater than or equal
GTM>WRITE 4'<4
1
GTM>; 4 greater than or equal to 4
GTM>; =
GTM>; Equal sign used for both assignment and comparison in Mumps
GTM>; no ==
GTM>; Mumps uses Equal for assignment only in Set command
GTM>; Otherwise, Equal is used for comparison
GTM>; Equal compares strings, not numbers
GTM>WRITE "HELLO"="NOT HELLO"
0
GTM>WRITE "3.000"="3"
0
GTM>WRITE 3.0000=3
1
GTM>; Mumpc converts 3.0000 to 3 first in the act of storage before continuing.
GTM>; [
GTM>; Contains
GTM>WRITE "HELLO"["E"
1
GTM>WRITE "E"["HELLO"
0
GTM>WRITE "HELLO"["LLO"
1
GTM>WRITE "HELLO"["LLOO"
0
GTM>; ]
GTM>; follows
GTM>WRITE "B"]"A"
1
GTM>WRITE "A"]"B"
0
GTM>WRITE "B">"A"
0
GTM>; follows comapares strings; > compares numbers
GTM>; Follows almost never used, except in one context
GTM>; "following" an empty string.
GTM>; Actually a shorthand for not equal
GTM>W X
5
GTM>; Is X empty?
GTM>W X]""
1
GTM>; Is X NOT empty?
GTM>W X]""
1
GTM>W X'=""
1
GTM>ZED "DI"
GTM>W X'=""
1
GTM>; ? - expression matching (not quite regular expressions)
GTM>W "33"?1.3N
1
GTM>W "33"?3.4N
0
GTM>; Does "33" match (1) 1 - 3 numbers or (2) 3 - 4 numbers?
GTM>; Logical operators
GTM>; & - AND
GTM>; ! - OR
GTM>; ' - NOT
GTM>S A=1,B=0
GTM>W A&B
0
GTM>W A!B
1
GTM>W A&'B
1
GTM>; Routine name is 8 letters long
GTM>ZEDIT "KJOHCIRC"
GTM>; HW:
GTM>; 1. Calculate the circumference of a circle whose radius is 12.5
GTM>; 2. Read the radius from the user, and calculate circumference
GTM>; 3. If the circumference is less than zero, output zero instead of a negative number
GTM>ZEDIT "KJOHCIRC"
GTM>zlink "KJOHCIRC"
GTM>D ^KJOHCIRC
CIRCUMFERENCE OF A CIRCLE WITH RADIUS OF 12.5: 78.5
GTM>ZEDIT "KJOHCIRC"
GTM>zl
GTM>zl
GTM>D ^KJOHCIRC
CIRCUMFERENCE OF A CIRCLE WITH RADIUS OF 12.5:
78.5
GTM>ZPRINT ^KJOHCIRC
KJOHCIRC ; 1/7/11 12:02pm
;
;
HW1
WRITE "CIRCUMFERENCE OF A CIRCLE WITH RADIUS OF 12.5: ",!
WRITE 2*3.14*12.5
GTM>
