Mumps Class 12
From VistApedia
Revision as of 22:37, 29 July 2012 by NeilArmstrong (talk | contribs) (Added a glossary link to Action~)
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: Wed Feb 23 13:04:46 2011 from 192.168.56.2
worldvistaEHR@cassandra:~$ gtm
GTM>; Extrinsic Functions
GTM>; Instrinsic Functions (part of the Mumps language)
GTM>; Extrinsic Functions (user defined)
GTM>; Instrinsic -> case insensensive, $
GTM>; Extrinsic -> case sensitive, $$
GTM>ZED "KBANEXT"
GTM>zl
%GTM-E-LABELMISSING, Label referenced but not defined: PIECE
%GTM-I-SRCNAM, in source module /opt/worldvista/EHR/p/KBANEXT.m
GTM>zed
GTM>ZL
GTM>ZP ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:21pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Y SET X=$$PIECE2("CAT^DOG","^",2) ; Extrinic Function
QUIT
;
PIECE2(A,B,C) ; Function
QUIT $PIECE(A,B,C)
GETFIVE() ; Function (Quit with Argument)
QUIT 5
GTM>DO GETFIVE^KBANEXT()
%GTM-E-NOTEXTRINSIC, Quit does not return to an extrinsic function: argument not allowed
At M source location GETFIVE+1^KBANEXT
GTM>WRITE $$GETFIVE^KBANEXT()
5
GTM>; Starts with $$
GTM>; Parameter list comes AFTER the routine name
GTM>WRITE $$GETFIVE()^KBANEXT
%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found
WRITE $$GETFIVE()^KBANEXT
^-----
GTM>; Other languages: KBANEXT::GETFIVE()
GTM>; Reversed in Mumps
GTM>; $$GETFIVE^KBANEXT(parameters)
GTM>zed
GTM>zl
%GTM-E-LOADRUNNING, Cannot ZLINK an active routine KBANEXT
GTM>zg
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:24pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
GTM>; Examples of VISTA extrinsic functions
GTM>; Get Today's Date
GTM>WRITE $$NOW^XLFDT()
3110223.152539
GTM>WRITE $$FMTE^XLFDT(3110223.152539)
Feb 23, 2011@15:25:39
GTM>; Extrinsic functions can be expressions that return values
GTM>; like 2+2
GTM>; You can use Extrinsic functions whereever you use other expressions
GTM>; (like parameters)
GTM>WRITE $$FMTE^XLFDT($$NOW^XLFDT())
Feb 23, 2011@15:27:32
GTM>ZED "XLFDT"
GTM>zed
GTM>; How to pass parameters to Extrinsic Functions
GTM>; 3 ways
GTM>; Pass by Value
GTM>; Pass by Reference
GTM>; Pass by Name (same as pass by Value; but you get the data from indirecting
name)
GTM>zed "KBANEXT"
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:33pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW A SET A=$$ADD1(2,3)
WRITE A
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
QUIT Q+R
;
GTM>d ^KBANEXT
5
GTM>WRITE A
%GTM-E-UNDEF, Undefined local variable: A
GTM>ZED
GTM>zl
GTM>rec zp
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:35pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW A SET A=$$ADD1(2,3)
WRITE "A is ",A,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT Q+R
;
GTM>rec d
GTM>d ^KBANEXT
Q is 2
R is 3
A is 5
GTM>zed
GTM>zl
GTM>rec zp
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:36pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(2,3)
WRITE "A is ",A,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT Q+R
;
GTM>rec d
GTM>d ^KBANEXT
Q is 2
R is 3
A is 5
GTM>
GTM>; When you pass by Value
GTM>; Mumps news the Variable name in the parameter list of the function
GTM>; Mumps sets the variable to the value you passed.
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:38pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(2,3)
WRITE "A is ",A,!
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
GTM>d ^KBANEXT
Q (inside function) is 2
R (inside function) is 3
A is 5
Q is 9
R is 8
GTM>; Pass by reference is different
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:40pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(Q,R)
WRITE "A is ",A,!
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
GTM>d ^KBANEXT
Q (inside function) is 9
R (inside function) is 8
A is 17
Q is 9
R is 8
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:41pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(.Q,.R)
WRITE "A is ",A,!
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
GTM>d ^KBANEXT
Q (inside function) is 9
R (inside function) is 8
A is 17
Q is 9
R is 8
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:42pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(.Q,.R)
WRITE "A is ",A,!
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
SET Q=Q+1
SET R=R+1
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
GTM>d ^KBANEXT
Q (inside function) is 10
R (inside function) is 9
A is 19
Q is 10
R is 9
GTM>zed
GTM>zl
GTM>rec zp
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:42pm
;;
EN ; Procedure
NEW X SET X=$PIECE("CAT^DOG","^",2) ; Instrinic Function
NEW Z SET Z=$$GETFIVE()
NEW Q SET Q=9
NEW R SET R=8
NEW A SET A=$$ADD1(Q,R)
WRITE "A is ",A,!
WRITE "Q is ",Q,!
WRITE "R is ",R,!
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
SET Q=Q+1
SET R=R+1
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
GTM>rec d
GTM>d ^KBANEXT
Q (inside function) is 10
R (inside function) is 9
A is 19
Q is 9
R is 8
GTM>R is 9
%GTM-E-CMD, Command expected but not found
R is 9
^-----
GTM>; When you pass data by reference?
GTM>; When you need to send a lot of data to or from a routine
GTM>; How?
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:58pm
;;
EN ; Procedure
NEW I
NEW TOADD
FOR I=2,3,4,5,8 SET TOADD(I)=""
WRITE "$$ADD2 is ",$$ADD2(.TOADD)
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
SET Q=Q+1
SET R=R+1
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
ADD2(VALUES) ; Adds all first subscripts together
N SUM S SUM=0
N I S I=""
FOR SET I=$ORDER(VALUES(I)) QUIT:I="" SET SUM=SUM+I
QUIT SUM
GTM>zed
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 3:59pm
;;
EN ; Procedure
NEW I
NEW TOADD
FOR I=2,3,4,5,8 SET TOADD(I)=""
BREAK
WRITE "$$ADD2 is ",$$ADD2(.TOADD)
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
SET Q=Q+1
SET R=R+1
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
ADD2(VALUES) ; Adds all first subscripts together
N SUM S SUM=0
N I S I=""
BREAK
FOR SET I=$ORDER(VALUES(I)) QUIT:I="" SET SUM=SUM+I
BREAK
QUIT SUM
GTM>D ^KBANEXT
%GTM-I-BREAK, Break instruction encountered
At M source location EN+4^KBANEXT
GTM>
GTM>ZWRITE TOADD
TOADD(2)=""
TOADD(3)=""
TOADD(4)=""
TOADD(5)=""
TOADD(8)=""
GTM>ZCONTINUE
$$ADD2 is %GTM-I-BREAK, Break instruction encountered
At M source location ADD2+3^KBANEXT
GTM>ZWRITE VALUES
VALUES(2)=""
VALUES(3)=""
VALUES(4)=""
VALUES(5)=""
VALUES(8)=""
GTM>WRITE SUM
0
GTM>GTM>ZWRITE VALUES
%GTM-E-INVCMD, Invalid command keyword encountered
GTM>ZWRITE VALUES
^-----
GTM>GTM>ZWRITE VALUES
%GTM-E-INVCMD, Invalid command keyword encountered
GTM>ZWRITE VALUES
^-----
GTM>ZCONTINUE
%GTM-I-BREAK, Break instruction encountered
At M source location ADD2+5^KBANEXT
GTM>WRITE SUM
22
GTM>ZC
22
GTM>D P^DI
MSC FileMan 22.1039
Identity = INQ ??
Identity = 9 COORDINATOR,FIVE FC IRM ANALYST
...OK? Yes// (Yes)
Select OPTION: INQUIRE TO FILE ENTRIES
Output from what File: INSTALL// REMOTE PROCEDURE (2465 entries)
Select REMOTE PROCEDURE NAME: ORWU NEWPERS
Another one:
Standard Captioned Output? Yes// (Yes)
Include COMPUTED fields: (N/Y/R/B): NO// - No [[record~|Record]] number (IEN), no Computed
Fields
NAME: ORWU NEWPERS TAG: NEWPERS
ROUTINE: ORWU RETURN VALUE TYPE: ARRAY
DESCRIPTION:
Returns a set of New Person file entries for use in a long list box.
Select REMOTE PROCEDURE NAME:
Select OPTION:
GTM>N SAM
GTM>D NEWPER^ORWU(.SAM,"A",1)
%GTM-E-LABELMISSING, Label referenced but not defined: NEWPER
GTM>D NEWPERS^ORWU(.SAM,"A",1)
GTM>ZWRITE SAM
SAM(1)="14^Administrator,System"
SAM(2)="65^Analyst,One^- ANALYST"
SAM(3)="66^Analyst,Three^- ANALYST"
SAM(4)="69^Analyst,Two^- ANALYST"
SAM(5)="47^Clerk,Eight^- Medical Clerk"
SAM(6)="50^Clerk,Eleven^- Medical Clerk"
SAM(7)="54^Clerk,Fifteen^- Medical Clerk"
SAM(8)="44^Clerk,Five^- Medical Clerk"
SAM(9)="43^Clerk,Four^- Medical Clerk"
SAM(10)="53^Clerk,Fourteen^- Medical Clerk"
SAM(11)="48^Clerk,Nine^- Medical Clerk"
SAM(12)="46^Clerk,Seven^- Medical Clerk"
SAM(13)="45^Clerk,Six^- Medical Clerk"
SAM(14)="49^Clerk,Ten^- Medical Clerk"
SAM(15)="52^Clerk,Thirteen^- Medical Clerk"
SAM(16)="42^Clerk,Three^- Medical Clerk"
SAM(17)="51^Clerk,Twelve^- Medical Clerk"
SAM(18)="41^Clerk,Two^- Medical Clerk"
SAM(19)="58^Coordinator,Clinical^- CLINICAL COORDINATOR"
SAM(20)="9^Coordinator,Five^- ANALYST"
SAM(21)="3^Coordinator,Four"
SAM(22)="2^Coordinator,Nine"
SAM(23)="63^Coordinator,One^- ANALYST"
SAM(24)="64^Coordinator,Seven"
SAM(25)="60^Coordinator,Six^- CLINICAL COORDINATOR"
SAM(26)="67^Coordinator,Three^- ANALYST"
SAM(27)="68^Coordinator,Two^- ANALYST"
SAM(28)="21^Doctor,Eight^- Physician"
SAM(29)="24^Doctor,Eleven^- Physician"
SAM(30)="18^Doctor,Five^- Physician"
SAM(31)="17^Doctor,Four^- Physician"
SAM(32)="22^Doctor,Nine^- Physician"
SAM(33)="11^Doctor,One^- Physician"
SAM(34)="20^Doctor,Seven^- Physician"
SAM(35)="19^Doctor,Six^- Physician"
SAM(36)="23^Doctor,Ten^- Physician"
SAM(37)="16^Doctor,Three^- Physician"
SAM(38)="26^Doctor,Twelve^- Physician"
SAM(39)="15^Doctor,Two^- Physician"
SAM(40)="62^Lab,Superuser^- ANALYST"
SAM(41)="8^Manager,System^- System Manager"
SAM(42)="33^Nurse,Eight^- Nurse"
SAM(43)="36^Nurse,Eleven^- Nurse"
SAM(44)="40^Nurse,Fifteen^- Nurse"
GTM>ZED "ORWU"
GTM>zed
GTM>ZED "KBANEXT"
GTM>zl
GTM>zp ^KBANEXT
KBANEXT ; UJO/SMH - Extrinsic Functions ; 2/23/11 4:11pm
;;
EN ; Procedure
NEW I
NEW TOADD
FOR I=2,3,4,5,8 SET TOADD(I)=""
BREAK
WRITE "$$ADD2 is ",$$ADD2(.TOADD)
QUIT
;
GETFIVE() ; Function (Quit with Argument)
QUIT 5
;
ADD1(Q,R)
SET Q=Q+1
SET R=R+1
WRITE "Q (inside function) is ",Q,!
WRITE "R (inside function) is ",R,!
QUIT Q+R
;
ADD2(VALUES) ; Adds all first subscripts together
N SUM S SUM=0
N I S I=""
BREAK
FOR SET I=$ORDER(VALUES(I)) QUIT:I="" SET SUM=SUM+I
BREAK
QUIT SUM
GETF200(RETURN)
NEW I SET I=""
NEW COUNTER SET COUNTER=0
FOR SET I=$ORDER(^VA(200,"B",I)) QUIT:I="" DO
. SET RETURN(COUNTER)=I
. SET COUNTER=COUNTER+1
QUIT
GTM>D GETF200^KBANEXT(.GARBAGE)
GTM>ZWRITE GARBAGE
GARBAGE(0)="ADMINISTRATOR,SYSTEM"
GARBAGE(1)="ANALYST,ONE"
GARBAGE(2)="ANALYST,THREE"
GARBAGE(3)="ANALYST,TWO"
GARBAGE(4)="AUTHORIZER,IB MRA"
GARBAGE(5)="CENTRAL,PAID"
GARBAGE(6)="CLERK,EIGHT"
GARBAGE(7)="CLERK,ELEVEN"
GARBAGE(8)="CLERK,FIFTEEN"
GARBAGE(9)="CLERK,FIVE"
GARBAGE(10)="CLERK,FOUR"
GARBAGE(11)="CLERK,FOURTEEN"
GARBAGE(12)="CLERK,NINE"
GARBAGE(13)="CLERK,ONE"
GARBAGE(14)="CLERK,SEVEN"
GARBAGE(15)="CLERK,SIX"
GARBAGE(16)="CLERK,TEN"
GARBAGE(17)="CLERK,THIRTEEN"
GARBAGE(18)="CLERK,THREE"
GARBAGE(19)="CLERK,TWELVE"
GARBAGE(20)="CLERK,TWO"
GARBAGE(21)="COORDINATOR,CLINICAL"
GARBAGE(22)="COORDINATOR,EIGHT"
GARBAGE(23)="COORDINATOR,FIVE"
GARBAGE(24)="COORDINATOR,FOUR"
GARBAGE(25)="COORDINATOR,NINE"
GARBAGE(26)="COORDINATOR,ONE"
GARBAGE(27)="COORDINATOR,SEVEN"
GARBAGE(28)="COORDINATOR,SIX"
GARBAGE(29)="COORDINATOR,THREE"
GARBAGE(30)="COORDINATOR,TWO"
GARBAGE(31)="DOCTOR,EIGHT"
GARBAGE(32)="DOCTOR,ELEVEN"
GARBAGE(33)="DOCTOR,FIVE"
GARBAGE(34)="DOCTOR,FOUR"
GARBAGE(35)="DOCTOR,NINE"
GARBAGE(36)="DOCTOR,ONE"
GARBAGE(37)="DOCTOR,SEVEN"
GARBAGE(38)="DOCTOR,SIX"
GARBAGE(39)="DOCTOR,TEN"
GARBAGE(40)="DOCTOR,THREE"
GARBAGE(41)="DOCTOR,TWELVE"
GARBAGE(42)="DOCTOR,TWO"
GARBAGE(43)="EDILOCKBOX,AUTOMATIC"
GARBAGE(44)="HABIEL,SAM"
GARBAGE(45)="INTERFACE,IB IIV"
GARBAGE(46)="LAB,SUPERUSER"
GARBAGE(47)="LRLAB,HL"
GARBAGE(48)="LRLAB,POC"
GARBAGE(49)="MANAGER,SYSTEM"
GARBAGE(50)="NURSE,EIGHT"
GARBAGE(51)="NURSE,ELEVEN"
GARBAGE(52)="NURSE,FIFTEEN"
GARBAGE(53)="NURSE,FIVE"
GARBAGE(54)="NURSE,FOUR"
GARBAGE(55)="NURSE,FOURTEEN"
GARBAGE(56)="NURSE,NINE"
GARBAGE(57)="NURSE,ONE"
GARBAGE(58)="NURSE,SEVEN"
GARBAGE(59)="NURSE,SIX"
GARBAGE(60)="NURSE,TEN"
GARBAGE(61)="NURSE,THIRTEEN"
GARBAGE(62)="NURSE,THREE"
GARBAGE(63)="NURSE,TWELVE"
GARBAGE(64)="NURSE,TWO"
GARBAGE(65)="PATCHES,ALL D"
GARBAGE(66)="POSTMASTER"
GARBAGE(67)="PRCA,AUTOAUDIT"
GARBAGE(68)="RADIOLOGY,OUTSIDE SERVICE"
GARBAGE(69)="RUNNER,ROAD"
====================================================================================================
RETURN
}~0 = ADMINISTRATOR,SYSTEM
}~1 = ANALYST,ONE
}~2 = ANALYST,THREE
}~3 = ANALYST,TWO
}~4 = AUTHORIZER,IB MRA
}~5 = CENTRAL,PAID
}~6 = CLERK,EIGHT
}~7 = CLERK,ELEVEN
}~8 = CLERK,FIFTEEN
}~9 = CLERK,FIVE
}~10 = CLERK,FOUR =[CLERK,TEN],
}~11 = CLERK,FOURTEENstep INTO// SHOW RETURN
}~12 = CLERK,NINE
}~13 = CLERK,ONE==================================
}~14 = CLERK,SEVEN
}~15 = CLERK,SIXgger in THIS window.
}~16 = CLERK,TENgger CONTROLLER for another Process.
}~17 = CLERK,THIRTEENcontrol to a Controller.
}~18 = CLERK,THREE breakpoint
}~19 = CLERK,TWELVE breakpoint
}~20 = CLERK,TWOHER PROCESS
}~21 = COORDINATOR,CLINICAL
}~22 = COORDINATOR,EIGHT
}~23 = COORDINATOR,FIVEom last run
}~24 = COORDINATOR,FOUR===========================
}~25 = COORDINATOR,NINEbort): ^// 1
}~26 = COORDINATOR,ONE
}~27 = COORDINATOR,SEVEN
}~28 = COORDINATOR,SIX
}~29 = COORDINATOR,THREE
}~30 = COORDINATOR,TWO
}~31 = DOCTOR,EIGHT
}~32 = DOCTOR,ELEVEN
}~33 = DOCTOR,FIVE
}~34 = DOCTOR,FOUR
}~35 = DOCTOR,NINE
}~36 = DOCTOR,ONE
}~37 = DOCTOR,SEVENdebugging environment
}~38 = DOCTOR,SIX command...
}~39 = DOCTOR,TENETF200^KBANEXT(.GARBAGE)
=== Routine: ^KBANEXT (GETF200+5^KBANEXT) ==========================================================
+25 FOR SET I=$ORDER(VALUES(I)) QUIT:I="" SET SUM=SUM+I
+26 BREAK
+27 QUIT SUM
+28GETF200(RETURN)
+29 NEW I SET I=""
+30 NEW COUNTER SET COUNTER=0
+31 FOR SET I=$ORDER(^VA(200,"B",I)) QUIT:I="" DO
+32 . SET RETURN(COUNTER)=I
>+33 . SET COUNTER=COUNTER+1
+34 QUIT
+35
07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)
}COUNTER =[17], I =[CLERK,THIRTEEN],
[[Action~|Action]] (? for help): step INTO// CLS
}~56 = NURSE,NINE
}~57 = NURSE,ONE
}~58 = NURSE,SEVEN
}~59 = NURSE,SIX
}~60 = NURSE,TEN
}~61 = NURSE,THIRTEEN
}~62 = NURSE,THREE
}~63 = NURSE,TWELVE
}~64 = NURSE,TWO
}~65 = PATCHES,ALL D
}~66 = POSTMASTER
}~67 = PRCA,AUTOAUDIT
}~68 = RADIOLOGY,OUTSIDE SERVICE
}~69 = RUNNER,ROAD
}~70 = SAM,YOSEMEDIE
}~71 = SHARED,MAIL
}~72 = SHDIFAT,HANEEN
}~73 = STARTUP,SYSTEM
}~74 = USER,OVID
}~75 = USER,PATCH
}~76 = USER,TEST
}~77 = VPFS,[[APPLICATION~|Application]] PROXY
}~78 = WVEHR,PATCH INSTALLER
}~79 = XOBVTESTER,[[APPLICATION~|Application]] PROXY
}~80 = ZZ IT,MANAGER
----- Press Key To Continue -----
=== Routine: ^KBANEXT (GETF200+6^KBANEXT) ==========================================================
+26 BREAK
+27 QUIT SUM
+28GETF200(RETURN)
+29 NEW I SET I=""
+30 NEW COUNTER SET COUNTER=0
+31 FOR SET I=$ORDER(^VA(200,"B",I)) QUIT:I="" DO
+32 . SET RETURN(COUNTER)=I
+33 . SET COUNTER=COUNTER+1
>+34 QUIT
+35
+36
07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)07:45, 2 Apr 2011 (PDT)
}COUNTER =[81], I =[],
[[Action~|Action]] (? for help): step INTO//
}~31 = DOCTOR,EIGHT
----- Press Key To Continue -----
(^ to quit) //Leaving TMG debugging environment. Goodbye.
GTM>ZWRITE GARBAGE
GARBAGE(18)="CLERK,THREE"
GARBAGE(19)="CLERK,TWELVE"
GARBAGE(20)="CLERK,TWO"
GARBAGE(21)="COORDINATOR,CLINICAL"
GARBAGE(22)="COORDINATOR,EIGHT"
GARBAGE(23)="COORDINATOR,FIVE"
GARBAGE(24)="COORDINATOR,FOUR"
GARBAGE(25)="COORDINATOR,NINE"
GARBAGE(26)="COORDINATOR,ONE"
GARBAGE(27)="COORDINATOR,SEVEN"
GARBAGE(28)="COORDINATOR,SIX"
GARBAGE(29)="COORDINATOR,THREE"
GARBAGE(30)="COORDINATOR,TWO"
GARBAGE(31)="DOCTOR,EIGHT"
GARBAGE(32)="DOCTOR,ELEVEN"
GARBAGE(33)="DOCTOR,FIVE"
GARBAGE(34)="DOCTOR,FOUR"
GARBAGE(35)="DOCTOR,NINE"
GARBAGE(36)="DOCTOR,ONE"
GARBAGE(37)="DOCTOR,SEVEN"
GARBAGE(38)="DOCTOR,SIX"
GARBAGE(39)="DOCTOR,TEN"
GARBAGE(40)="DOCTOR,THREE"
GARBAGE(41)="DOCTOR,TWELVE"
GARBAGE(42)="DOCTOR,TWO"
GARBAGE(43)="EDILOCKBOX,AUTOMATIC"
GARBAGE(44)="HABIEL,SAM"
GARBAGE(45)="INTERFACE,IB IIV"
GARBAGE(46)="LAB,SUPERUSER"
GARBAGE(47)="LRLAB,HL"
GARBAGE(48)="LRLAB,POC"
GARBAGE(49)="MANAGER,SYSTEM"
GARBAGE(50)="NURSE,EIGHT"
GARBAGE(51)="NURSE,ELEVEN"
GARBAGE(52)="NURSE,FIFTEEN"
GARBAGE(53)="NURSE,FIVE"
GARBAGE(54)="NURSE,FOUR"
GARBAGE(55)="NURSE,FOURTEEN"
GARBAGE(56)="NURSE,NINE"
GARBAGE(57)="NURSE,ONE"
GARBAGE(58)="NURSE,SEVEN"
GARBAGE(59)="NURSE,SIX"
GARBAGE(60)="NURSE,TEN"
GARBAGE(61)="NURSE,THIRTEEN"
GARBAGE(62)="NURSE,THREE"
GARBAGE(63)="NURSE,TWELVE"
GARBAGE(64)="NURSE,TWO"
GARBAGE(65)="PATCHES,ALL D"
GARBAGE(66)="POSTMASTER"
GARBAGE(67)="PRCA,AUTOAUDIT"
GARBAGE(68)="RADIOLOGY,OUTSIDE SERVICE"
GARBAGE(69)="RUNNER,ROAD"
GARBAGE(70)="SAM,YOSEMEDIE"
GARBAGE(71)="SHARED,MAIL"
GARBAGE(72)="SHDIFAT,HANEEN"
GARBAGE(73)="STARTUP,SYSTEM"
GARBAGE(74)="USER,OVID"
GARBAGE(75)="USER,PATCH"
GARBAGE(76)="USER,TEST"
GARBAGE(77)="VPFS,[[APPLICATION~|Application]] PROXY"
GARBAGE(78)="WVEHR,PATCH INSTALLER"
GARBAGE(79)="XOBVTESTER,[[APPLICATION~|Application]] PROXY"
GARBAGE(80)="ZZ IT,MANAGER"
GTM>ZED
GTM>D GETF200^KBANEXT(.BLAHBLAH
%GTM-E-COMMAORRPAREXP, Comma or right parenthesis expected but not found
D GETF200^KBANEXT(.BLAHBLAH
^-----
GTM>D GETF200^KBANEXT(.BLAHBLAH)
GTM>ZWRITE BLAHBLAH
BLAHBLAH(0)="ADMINISTRATOR,SYSTEM"
BLAHBLAH(1)="ANALYST,ONE"
BLAHBLAH(2)="ANALYST,THREE"
BLAHBLAH(3)="ANALYST,TWO"
BLAHBLAH(4)="AUTHORIZER,IB MRA"
BLAHBLAH(5)="CENTRAL,PAID"
BLAHBLAH(6)="CLERK,EIGHT"
BLAHBLAH(7)="CLERK,ELEVEN"
BLAHBLAH(8)="CLERK,FIFTEEN"
BLAHBLAH(9)="CLERK,FIVE"
BLAHBLAH(10)="CLERK,FOUR"
BLAHBLAH(11)="CLERK,FOURTEEN"
BLAHBLAH(12)="CLERK,NINE"
BLAHBLAH(13)="CLERK,ONE"
BLAHBLAH(14)="CLERK,SEVEN"
BLAHBLAH(15)="CLERK,SIX"
BLAHBLAH(16)="CLERK,TEN"
BLAHBLAH(17)="CLERK,THIRTEEN"
BLAHBLAH(18)="CLERK,THREE"
BLAHBLAH(19)="CLERK,TWELVE"
BLAHBLAH(20)="CLERK,TWO"
BLAHBLAH(21)="COORDINATOR,CLINICAL"
BLAHBLAH(22)="COORDINATOR,EIGHT"
BLAHBLAH(23)="COORDINATOR,FIVE"
BLAHBLAH(24)="COORDINATOR,FOUR"
BLAHBLAH(25)="COORDINATOR,NINE"
BLAHBLAH(26)="COORDINATOR,ONE"
BLAHBLAH(27)="COORDINATOR,SEVEN"
BLAHBLAH(28)="COORDINATOR,SIX"
BLAHBLAH(29)="COORDINATOR,THREE"
BLAHBLAH(30)="COORDINATOR,TWO"
BLAHBLAH(31)="DOCTOR,EIGHT"
BLAHBLAH(32)="DOCTOR,ELEVEN"
BLAHBLAH(33)="DOCTOR,FIVE"
BLAHBLAH(34)="DOCTOR,FOUR"
BLAHBLAH(35)="DOCTOR,NINE"
BLAHBLAH(36)="DOCTOR,ONE"
BLAHBLAH(37)="DOCTOR,SEVEN"
BLAHBLAH(38)="DOCTOR,SIX"
BLAHBLAH(39)="DOCTOR,TEN"
BLAHBLAH(40)="DOCTOR,THREE"
BLAHBLAH(41)="DOCTOR,TWELVE"
BLAHBLAH(42)="DOCTOR,TWO"
BLAHBLAH(43)="EDILOCKBOX,AUTOMATIC"
BLAHBLAH(44)="HABIEL,SAM"
BLAHBLAH(45)="INTERFACE,IB IIV"
BLAHBLAH(46)="LAB,SUPERUSER"
BLAHBLAH(47)="LRLAB,HL"
BLAHBLAH(48)="LRLAB,POC"
BLAHBLAH(49)="MANAGER,SYSTEM"
BLAHBLAH(50)="NURSE,EIGHT"
BLAHBLAH(51)="NURSE,ELEVEN"
BLAHBLAH(52)="NURSE,FIFTEEN"
BLAHBLAH(53)="NURSE,FIVE"
BLAHBLAH(54)="NURSE,FOUR"
BLAHBLAH(55)="NURSE,FOURTEEN"
BLAHBLAH(56)="NURSE,NINE"
BLAHBLAH(57)="NURSE,ONE"
BLAHBLAH(58)="NURSE,SEVEN"
BLAHBLAH(59)="NURSE,SIX"
BLAHBLAH(60)="NURSE,TEN"
BLAHBLAH(61)="NURSE,THIRTEEN"
BLAHBLAH(62)="NURSE,THREE"
BLAHBLAH(63)="NURSE,TWELVE"
BLAHBLAH(64)="NURSE,TWO"
BLAHBLAH(65)="PATCHES,ALL D"
BLAHBLAH(66)="POSTMASTER"
BLAHBLAH(67)="PRCA,AUTOAUDIT"
BLAHBLAH(68)="RADIOLOGY,OUTSIDE SERVICE"
BLAHBLAH(69)="RUNNER,ROAD"
BLAHBLAH(70)="SAM,YOSEMEDIE"
BLAHBLAH(71)="SHARED,MAIL"
BLAHBLAH(72)="SHDIFAT,HANEEN"
BLAHBLAH(73)="STARTUP,SYSTEM"
BLAHBLAH(74)="USER,OVID"
BLAHBLAH(75)="USER,PATCH"
BLAHBLAH(76)="USER,TEST"
BLAHBLAH(77)="VPFS,[[APPLICATION~|Application]] PROXY"
BLAHBLAH(78)="WVEHR,PATCH INSTALLER"
BLAHBLAH(79)="XOBVTESTER,[[APPLICATION~|Application]] PROXY"
BLAHBLAH(80)="ZZ IT,MANAGER"
GTM>; Guessing Game
GTM>; HW: Computer will pick a random number between 1 and 100
GTM>; Player has to guess the number
GTM>; Computer will compare number and say: too low, or too high; and try again;
GTM>; until players get it right.
GTM>; $RANDOME
GTM>; $RANDOM
GTM>WRITE $RANDOM(100)
48
GTM>WRITE $RANDOM(100)
33
GTM>WRITE $RANDOM(100)
38
GTM>WRITE $RANDOM(100)
57
GTM>WRITE $RANDOM(100)
63
GTM>WRITE $RANDOM(100)
68
GTM>WRITE $RANDOM(100)
69
GTM>WRITE $RANDOM(100)
3
GTM>WRITE $RANDOM(100)
44
GTM>WRITE $RANDOM(100)
86
GTM>WRITE $RANDOM(100)+1
28
GTM>WRITE $RANDOM(100)+1
10
GTM>WRITE $RANDOM(100)+1
79
GTM>WRITE $RANDOM(100)+1
77
GTM>WRITE $RANDOM(100)+1
92
GTM>WRITE $RANDOM(100)+1
62
GTM>WRITE $RANDOM(100)+1
54
GTM>WRITE $RANDOM(100)+1
1
GTM>
