Mumps Class 8
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: Tue Jan 25 04:24:57 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>D ^%T
4:49 AM
GTM>D ^%D
25-JAN-11
GTM>ZED "KBANFOR"
GTM>zl
GTM>zp ^KBANFOR
KBANFOR ; Routine to show For loops ; 1/25/11 4:53am
;;
FOR1
; Simplest For Loop
; from 1 to 10 step 1
FOR I=1:1:10 WRITE I,!
; from 1 to 10 step 2
WRITE !
FOR I=1:2:10 WRITE I,!
; from 10 to 1 step -1
WRITE !
FOR I=10:-1:1 WRITE I,!
GTM>D FOR1^KBANFOR
1
2
3
4
5
6
7
8
9
10
1
3
5
7
9
10
9
8
7
6
5
4
3
2
1
GTM>ZED
GTM>zp FOR2:FOR2+5
GTM>zp FOR2^KBANFOR:FOR2+5
%GTM-E-ZPRTLABNOTFND, Label not found in routine
GTM>ZL
GTM>zp FOR2^KBANFOR:FOR2+5
FOR2
; For over a list of items
SET A=1,B=3,C=5
FOR X=A,B,C WRITE X
QUIT
GTM>D FOR2^KBANFOR
135
GTM>ZED
GTM>zl
GTM>zp FOR3^KBANFOR:FOR3+10
FOR3
; For with a Do command
SET LTRNUM=0 ; Letter Number
FOR X="A","B","C","D","E","F","G","H" DO
. WRITE "X is: ",X
. WRITE !
. SET LTRNUM=LTRNUM+1
. WRITE "Letter Number is: ",LTRNUM
QUIT
GTM>D FOR3^KBANFOR
X is: A
Letter Number is: 1X is: B
Letter Number is: 2X is: C
Letter Number is: 3X is: D
Letter Number is: 4X is: E
Letter Number is: 5X is: F
Letter Number is: 6X is: G
Letter Number is: 7X is: H
Letter Number is: 8
GTM>ZED
GTM>zl
GTM>zp FOR3^KBANFOR:FOR3+10
FOR3
; For with a Do command
SET LTRNUM=0 ; Letter Number
FOR X="A","B","C","D","E","F","G","H" DO
. WRITE "X is: ",X
. WRITE ?20
. SET LTRNUM=LTRNUM+1
. WRITE "Letter Number is: ",LTRNUM,!
QUIT
GTM>D FOR3^KBANFOR
X is: A Letter Number is: 1
X is: B Letter Number is: 2
X is: C Letter Number is: 3
X is: D Letter Number is: 4
X is: E Letter Number is: 5
X is: F Letter Number is: 6
X is: G Letter Number is: 7
X is: H Letter Number is: 8
GTM>zed
GTM>zl
GTM>zp FOR4^KBANFOR:FOR4+10
FOR4
; For with a Quit inside the for loop
SET LTRNUM=0 ; Letter Number
FOR X="A","B","C","D","E","F","G","H" DO
. SET LTRNUM=LTRNUM+1
. IF LTRNUM#2 QUIT ;We don't like odd numbers, so we stop.
. WRITE "X is: ",X
. WRITE ?20
. WRITE "Letter Number is: ",LTRNUM,!
QUIT
GTM>D FOR4^KBANFOR
X is: B Letter Number is: 2
X is: D Letter Number is: 4
X is: F Letter Number is: 6
X is: H Letter Number is: 8
GTM>; The quit inside the for loop acts as a continue.
GTM>; There is NO, NO, NO break command to get out of a loop
GTM>zed
GTM>zl
GTM>D FOR5^KBANFOR
X is: B Letter Number is: 2
X is: D Letter Number is: 4
X is: F Letter Number is: 6
GTM>zl
GTM>zp FOR5^KBANFOR:FOR5+5
FOR5
; For with a Quit inside the for loop
SET LTRNUM=0 ; Letter Number
FOR X="A","B","C","D","E","F","G","H" DO QUIT:LTRNUM>6
. SET LTRNUM=LTRNUM+1
. IF LTRNUM#2 QUIT ;We don't like odd numbers, so we stop.
GTM>zp FOR5^KBANFOR:FOR5+10
FOR5
; For with a Quit inside the for loop
SET LTRNUM=0 ; Letter Number
FOR X="A","B","C","D","E","F","G","H" DO QUIT:LTRNUM>6
. SET LTRNUM=LTRNUM+1
. IF LTRNUM#2 QUIT ;We don't like odd numbers, so we stop.
. WRITE "X is: ",X
. WRITE ?20
. WRITE "Letter Number is: ",LTRNUM,!
QUIT
GTM>D FOR5^KBANFOR
X is: B Letter Number is: 2
X is: D Letter Number is: 4
X is: F Letter Number is: 6
GTM>; Quit on a For line terminates the for loop
GTM>zed
GTM>zl
%GTM-E-LABELMISSING, Label referenced but not defined: QUIT
%GTM-I-SRCNAM, in source module /opt/worldvista/EHR/p/KBANFOR.m
GTM>zed
GTM>zl
GTM>zed
GTM>zl
FOR I=1:1 QUIT:NUM>5 DO ; I is 1 step 1, no end
^-----
At column 23, line 51, source module /opt/worldvista/EHR/p/KBANFOR.m
%GTM-E-QUITARGUSE, Quit cannot take an argument in this context
GTM>; Quit needs to get 2 spaces
GTM>zed
GTM>zl
GTM>ZED
GTM>zl
GTM>zp FOR6^KBANFOR:FOR6+10
FOR6
; For; Quit command location
SET NUM=1
FOR I=1:1 QUIT:NUM>5 DO ; I is 1 step 1, no end
. SET NUM=NUM*2
. WRITE "NUM is: ",NUM,!
QUIT
GTM>D FOR6^KBANFOR
NUM is: 2
NUM is: 4
NUM is: 8
GTM>; How come it printed 8??
GTM>; Because the Quit happens after the multiplication takes place
GTM>zed
GTM>zl
GTM>zp FOR7^KBANFOR:FOR7+10
FOR7
; For and quit, try 2
SET NUM=1
FOR I=1:1 QUIT:NUM>5 DO
. WRITE "Num is: ",NUM,!
. SET NUM=NUM*2
QUIT
GTM>D FOR7^KBANFOR
Num is: 1
Num is: 2
Num is: 4
GTM>ZED
GTM>zl
GTM>zp FOR8^KBANFOR:FOR8+10
FOR8
; For; Quit command location; prints 2, 4, 8
SET NUM=1
FOR I=1:1 DO QUIT:NUM>5 ; I is 1 step 1, no end
. SET NUM=NUM*2
. QUIT:NUM>5
. WRITE "NUM is: ",NUM,!
QUIT
GTM>D FOR8^KBANFOR
NUM is: 2
NUM is: 4
GTM>; Quit before the Do in a for loop acts like a while loop in C
GTM>; Quit after the Do in a for loop acts like a do/while loop in C
GTM>zed
GTM>zl
GTM>zp FOR9^KBANFOR:FOR9+10
FOR9
; For, infinite loops
FOR WRITE "HELLO" ; for with no arguments is an infinite loop
FOR I=0:0 WRITE "HELLO" ; Step is zero, but no end.
FOR I=1:1 WRITE "HELLO" ; Step is 1, but no end either.
QUIT
GTM>zed
GTM>zl
GTM>zp FOR10^KBANFOR:FOR10+15
FOR10
; A use for infinite loops
S DONE=0
FOR DO QUIT:DONE
. WRITE "Pick a menu option, or type ""Q"" to quit",!
. WRITE !
. WRITE "1. Option 1"
. WRITE "2. Option 2"
. WRITE "3. Option 3"
. WRITE !
. READ "Enter Option: ",X
. IF X="Q" SET DONE=1 QUIT
. WRITE "Doing something with what the user picked",!
. WRITE # ; Form feed; clears the screen
QUIT
GTM>D FOR10^KBANFOR
Pick a menu option, or type "Q" to quit
1. Option 12. Option 23. Option 3
Enter Option:
%GTM-I-CTRLC, CTRL_C encountered
GTM>ZG
GTM>zed
GTM>zl
GTM>zp FOR10^KBANFOR:FOR10+15
FOR10
; A use for infinite loops
S DONE=0
FOR DO QUIT:DONE
. WRITE "Pick a menu option, or type ""Q"" to quit",!
. WRITE !
. WRITE "1. Option 1",!
. WRITE "2. Option 2",!
. WRITE "3. Option 3",!
. WRITE !
. READ "Enter Option: ",X
. IF X="Q" SET DONE=1 QUIT
. WRITE "Doing something with what the user picked",!
. WRITE # ; Form feed; clears the screen
QUIT
GTM>D FOR10^KBANFOR
Pick a menu option, or type "Q" to quit
1. Option 1
2. Option 2
3. Option 3
Enter Option: 1Doing something with what the user picked
Pick a menu option, or type "Q" to quit
1. Option 1
2. Option 2
3. Option 3
Enter Option: 2Doing something with what the user picked
Pick a menu option, or type "Q" to quit
1. Option 1
2. Option 2
3. Option 3
Enter Option: Q
GTM>; HW: Explain what a significant chunk of a routine does!!!!!!!!
GTM>zed "_DT"
GTM>zed "XMS"
GTM>; XMS -> Abu AbuRuzz
GTM>zed "ORKPS"
GTM>; GLCREAT^ORKPS -> Murat
GTM>zed "XUSRB"
GTM>; VALIDAV^XUSRB -> Abu Dayyeh
GTM>zed "ORB3TIM1"
GTM>; NPO^ORB3TIM1 -> Ayman
GTM>zed "ORB3TIM2"
GTM>; EXPIR^ORB3TIM2 -> Hiba (Poor Hiba)
GTM>zed "XMRPOP"
GTM>; ENTRY^XMRPOP -> Rami
GTM>; Here is what to do for your homework.
GTM>; Copy the routine to a decent place
GTM>; And start commenting the routine explaining what each line does.
GTM>
