Mumps Class 8

From VistApedia
Revision as of 14:29, 2 April 2011 by Shabiel (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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>
Retrieved from "https://vistapedia.com/index.php?title=Mumps_Class_8&oldid=12248"