Mumps Class 5
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: Fri Jan 7 20:50:23 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>; Pattern Matching
GTM>; Operator is "?"
GTM>; done on a string
GTM>; Output boolean (0 or 1)
GTM>WRITE "HELLO"?."H"
0
GTM>WRITE "HELLO"?."H".E
1
GTM>WRITE "0798888888"?10N
1
GTM>WRITE "079888888"?10N
0
GTM>WRITE "0798888888"?1"0"9N
1
GTM>; N -> Number
GTM>; A -> Alphabet
GTM>; U -> Uppercase
GTM>; L -> Lowercase
GTM>; P -> Punctuation
GTM>; C -> Control characters (like tabs, carriage returns, etc)
GTM>; E -> Everything
GTM>; How to remember?
GTM>; CLEAN-UP
GTM>; You don't have to say N or A; you can specify which character you are looking for
GTM>; ?1"A" --> Means one "A"
GTM>; To do repetition: Use the dot "."
GTM>; 1.3N means 1 to 3 numbers
GTM>; .3N means 0 to 3 numbers
GTM>; .N means any number of numbers
GTM>; 1.N means at least one number
GTM>; To do OR, use a comma in parentheses match
GTM>W "333"?1(2N,3N)
1
GTM>W "333"?1(2N,4N)
0
GTM>; 333 matches one of 2 numbers or 3 numbers
GTM>; Valid phone numbers in Jordan
GTM>; 0 + 9 numbers for cells phones
GTM>; 07 + 8 numbers for cell phones
GTM>; 00962 or just 962 or +926 then 7 then 8 numbers
GTM>; [06/03/05/02] + 7 numbers
GTM>; Cell phones
GTM>S X="0798888888"
GTM>WRITE X?1"07"8N
1
GTM>WRITE X?0.1"00962"1"07"8N
1
GTM>WRITE X?0.1"00"0.1"962"1"07"8N
1
GTM>WRITE X?0.1("00","+")0.1"962"1"07"8N
%GTM-E-PATCODE, Illegal syntax for pattern
WRITE X?0.1("00","+")0.1"962"1"07"8N
^-----
GTM>WRITE X?0.1(1"00",1"+")0.1"962"1"07"8N
1
GTM>S X="9620798888888"
GTM>WRITE X?0.1(1"00",1"+")0.1"962"1"07"8N
1
GTM>S X="962798888888"
GTM>WRITE X?0.1(1"00",1"+")0.1"962"1"07"8N
0
GTM>WRITE X?0.1(1"00",1"+")1(1"9627"8N,1"07"8N)
1
GTM>WRITE X?0.1(1"00",1"+")1(1"9627",1"07")8N
1
GTM>; X matches the following:
GTM>; 0 to 1 of (1 "00" or 1 "+") then
GTM>; 1 of (1 "9627" or 1 "07") then
GTM>; 8 numbers
GTM>S DUZ=8
GTM>D P^DI
MSC FileMan 22.1039
Select OPTION: DATA DICTIONARY UTILITIES
Select DATA DICTIONARY UTILITY OPTION: LIST FILE ATTRIBUTES
START WITH What File: ROUTINE// (25577 entries)
GO TO What File: ROUTINE// (25577 entries)
Select SUB-FILE:
Select LISTING FORMAT: STANDARD//
Start with field: FIRST// .01 NAME
Go to field: NAME
DEVICE: ;;99 TELNET
STANDARD DATA DICTIONARY #9.8 -- ROUTINE FILE 1/8/11 PAGE 1
STORED IN ^DIC(9.8, (25577 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VE
RSION 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-------------------------------------------------------------------------------
9.8,.01 NAME 0;1 (Required)
INPUT TRANSFORM: D CHKNAME^XQ5 K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"
%".UN)) X
LAST EDITED: OCT 3,1985
HELP-PROMPT: Please enter the NAME (1-8 characters), e.g.
DIC, XM, ...
DESCRIPTION: The name of the PACKAGE, ROUTINE, or PROGRAM
being documented.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9.8^B
1)= S ^DIC(9.8,"B",X,DA)=""
2)= K ^DIC(9.8,"B",X,DA)
^
Select DATA DICTIONARY UTILITY OPTION:
Select OPTION:
GTM>K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"
%GTM-E-PATLIT, Illegal character or unbalanced quotes for pattern literal
K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"
^-----
GTM>
GTM>K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X
%GTM-E-UNDEF, Undefined local variable: X
GTM>S X="ABC123"
GTM>WRITE X?.UN
1
GTM>WRITE X?.NU
1
GTM>S X="ABC123ABC"
GTM>WRITE X?.NU
1
GTM>WRITE X?.UN
1
GTM>S X="123ABC"
GTM>WRITE X?.UN
1
GTM>D ^123ABC
%GTM-E-RTNNAME, Routine name expected here
D ^123ABC
^-----
GTM>D ^ABC
%GTM-E-ZLINKFILE, Error while zlinking "ABC"
%GTM-E-FILENOTFND, File ABC not found
GTM>ZED "XQ5"
GTM>d ^XUP
Setting up programmer environment
This is a TEST account.
Terminal Type set to: C-VT100
Select OPTION NAME: edit optionS XUEDITOPT Edit options
Edit options
Select OPTION to edit: UJO TEST
Located in the UJO (JORDAN SPECIFIC MODIFICATIONS) namespace.
Are you adding 'UJO TEST' as a new OPTION (the 9937TH)? No// (No) ??
Select OPTION to edit:
EHR:cassandra>
EHR:cassandra>; HW
EHR:cassandra>; 11 01 2010 11:15
EHR:cassandra>; 11-01-2010
EHR:cassandra>; 11/01/2010 11:15:45
EHR:cassandra>; 11/01/2010@11:15:45
EHR:cassandra>; Match THESE!
EHR:cassandra>; 07-01-2010
EHR:cassandra>; 7-1-2010
EHR:cassandra>; 7-1-10
EHR:cassandra>zed "ORKPS"
EHR:cassandra>; Commands, in more details
EHR:cassandra>WRITE COMMAND
%GTM-E-UNDEF, Undefined local variable: COMMAND
EHR:cassandra>; WRITE COMMAND
EHR:cassandra>; READ COMMAND
EHR:cassandra>; SET COMMAND
EHR:cassandra>; Mumps Syntax
EHR:cassandra>; Command Argument command argument command argument etc
EHR:cassandra>; WRITE "HELLO" SET X=3 WRITE "BYE" SET X=4
EHR:cassandra>; Comma in arguments means that you repeat the command
EHR:cassandra>; WRITE "HELLO",!,"BYE"
EHR:cassandra>; WRITE "HELLO"
EHR:cassandra>; WRITE !
EHR:cassandra>; WRITE "BYE"
EHR:cassandra>; IF A,B
EHR:cassandra>; mean
EHR:cassandra>; IF A IF B
EHR:cassandra>S X=0
EHR:cassandra>IF X WRITE "HELLO"
EHR:cassandra>IF X WRITE "HELLO" ELSE WRITE "BYE"
EHR:cassandra>IF X WRITE "HELLO"
EHR:cassandra>ELSE WRITE "BYE"
BYE
EHR:cassandra>; colon ":"
EHR:cassandra>; Most commands have an optional colon after the command
EHR:cassandra>; It's used as a mini-if
EHR:cassandra>WRITE X
0
EHR:cassandra>WRITE:X "HELLO"
EHR:cassandra>SET Y=1
EHR:cassandra>WRITE:Y "HELLO"
HELLO
EHR:cassandra>WRITE:Y "HELLO"
HELLO
EHR:cassandra>; Colon is called "post-conditional"
EHR:cassandra>; Do and Goto commands have post-condtioals on arguments!
EHR:cassandra>; DO:X ^XUP:Y,^DI
EHR:cassandra>; Do (if X) ^XUP (only if Y) and ^DI
EHR:cassandra>; same as
EHR:cassandra>; DO:X ^XUP:Y DO:X ^DI
EHR:cassandra>zed "_DT"
EHR:cassandra>; Set command
EHR:cassandra>; S
EHR:cassandra>SET X=1
EHR:cassandra>SET X=1,Y=2
EHR:cassandra>SET (X,Y)=3
EHR:cassandra>; Using parantheses, can set mulitple variables
EHR:cassandra>; Set X and Y to 3
EHR:cassandra>; Set can be used to store values in local or global variables
EHR:cassandra>; to save off something in the database, use set with a global
EHR:cassandra>S ^SAM=1
EHR:cassandra>S STR="MARY HAS A LITTLE LAMB"
EHR:cassandra>WRITE $PIECE(STR," ",2)
HAS
EHR:cassandra>SET $PIECE(STR," ",2)="HAD"
EHR:cassandra>W STR
MARY HAD A LITTLE LAMB
EHR:cassandra>ZWRITE ^VA(200,:,0)
^VA(200,.5,0)="POSTMASTER^^;^^^^^^^^^^^^^.5"
^VA(200,.6,0)="SHARED,MAIL^^;^^^^^"
^VA(200,1,0)="WVEHR,PATCH INSTALLER^PIW^80755149508373^@^^^0^1^^^^^^^^1"
^VA(200,2,0)="COORDINATOR,NINE^NC^79657382794678787369677968788482^@^^^^^^^^^^^^
2"
^VA(200,3,0)="COORDINATOR,FOUR^FC^79657382794685707982677968788482^@^^^^"
^VA(200,4,0)="INTERFACE,IB IIV^IIV"
^VA(200,5,0)="CENTRAL,PAID"
^VA(200,6,0)="EDILOCKBOX,AUTOMATIC^EDI"
^VA(200,7,0)="PRCA,AUTOAUDIT^EDI"
^VA(200,8,0)="MANAGER,SYSTEM^SM^53486882695048^@^^^^1^5"
^VA(200,9,0)="COORDINATOR,FIVE^FC^5782677968^@^n^n^^1^1^^"
^VA(200,10,0)="USER,TEST^TU^ACCESS#1^#[]SsDd^^^0^1^1^^"
^VA(200,11,0)="DOCTOR,ONE^DO^49796768798482^#^^^^^2"
^VA(200,12,0)="NURSE,ONE^NO^^#dD^^^^^3"
^VA(200,13,0)="CLERK,ONE^CO^^dDsS#^^^^^4"
^VA(200,14,0)="ADMINISTRATOR,SYSTEM^WCJ^787765838389466873^^^^^1"
^VA(200,15,0)="DOCTOR,TWO^DT^504679676879848248^#^^^^1^2^^"
^VA(200,16,0)="DOCTOR,THREE^^5267YSQ^#^^^^^2^^"
^VA(200,17,0)="DOCTOR,FOUR^^52796768798482^#^^^^^2^^"
^VA(200,18,0)="DOCTOR,FIVE^^53796768798482^#^^^^^2^^"
^VA(200,19,0)="DOCTOR,SIX^^54796768798482^#^^^^^2^^"
^VA(200,20,0)="DOCTOR,SEVEN^^55796768798482^#^^^^^2^^"
^VA(200,21,0)="DOCTOR,EIGHT^^56796768798482^#^^^^1^2^^"
^VA(200,22,0)="DOCTOR,NINE^^57796768798482^#^^^^^2^^"
^VA(200,23,0)="DOCTOR,TEN^^507673658372666949^#^^^^1^2^^"
^VA(200,24,0)="DOCTOR,ELEVEN^^4730WQD^#^^^^^2^^"
^VA(200,26,0)="DOCTOR,TWELVE^^6565KQL^#^^^^^2^^"
^VA(200,27,0)="NURSE,TWO^^UOMO251^#dD^^^^^3^^"
^VA(200,28,0)="NURSE,THREE^^3986ICX^#dD^^^^^3^^"
^VA(200,29,0)="NURSE,FOUR^^KHVG351^#dD^^^^^3^^"
^VA(200,30,0)="NURSE,FIVE^^SOKH491^#dD^^^^^3^^"
^VA(200,31,0)="NURSE,SIX^^9521GRK^#dD^^^^^3^^"
^VA(200,32,0)="NURSE,SEVEN^^1649WEN^#dD^^^^^3^^"
^VA(200,33,0)="NURSE,EIGHT^^0053HQG^#dD^^^^^3^^"
^VA(200,34,0)="NURSE,NINE^^GTQC759^#dD^^^^^3^^"
^VA(200,35,0)="NURSE,TEN^^1252UND^#dD^^^^^3^^"
^VA(200,36,0)="NURSE,ELEVEN^^5176AOR^#dD^^^^^3^^"
^VA(200,37,0)="NURSE,TWELVE^^9977HOD^#dD^^^^^3^^"
^VA(200,38,0)="NURSE,THIRTEEN^^VQAI233^#dD^^^^^3^^"
^VA(200,39,0)="NURSE,FOURTEEN^^RBEI851^#dD^^^^^3^^"
^VA(200,40,0)="NURSE,FIFTEEN^^2503DVU^#dD^^^^^3^^"
^VA(200,41,0)="CLERK,TWO^^SGDM245^dDsS#^^^^^4^^"
^VA(200,42,0)="CLERK,THREE^^GPRB828^dDsS#^^^^^4^^"
^VA(200,43,0)="CLERK,FOUR^^QRQN033^dDsS#^^^^^4^^"
^VA(200,44,0)="CLERK,FIVE^^6497QKB^dDsS#^^^^^4^^"
^VA(200,45,0)="CLERK,SIX^^5786JDX^dDsS#^^^^^4^^"
^VA(200,46,0)="CLERK,SEVEN^^1405ADI^dDsS#^^^^^4^^"
^VA(200,47,0)="CLERK,EIGHT^^8675WQX^dDsS#^^^^^4^^"
^VA(200,48,0)="CLERK,NINE^^1916SLD^dDsS#^^^^^4^^"
^VA(200,49,0)="CLERK,TEN^^0658NGN^dDsS#^^^^^4^^"
^VA(200,50,0)="CLERK,ELEVEN^^8944FHI^dDsS#^^^^^4^^"
^VA(200,51,0)="CLERK,TWELVE^^QSMQ549^dDsS#^^^^^4^^"
^VA(200,52,0)="CLERK,THIRTEEN^^QGSF814^dDsS#^^^^^4^^"
^VA(200,53,0)="CLERK,FOURTEEN^^QVGC484^dDsS#^^^^^4^^"
^VA(200,54,0)="CLERK,FIFTEEN^^9747LGM^dDsS#^^^^^4^^"
^VA(200,55,0)="ZZ IT,MANAGER^^7389FOJ^^^^1^^1^^3050812^^NOT NEEDED"
^VA(200,56,0)="USER,PATCH^UP^PATCH1^@^^^^^5^^"
^VA(200,57,0)="AUTHORIZER,IB MRA^MRA"
^VA(200,58,0)="COORDINATOR,CLINICAL^CC^DLAN897^#^^^^^6^^"
^VA(200,59,0)="STARTUP,SYSTEM^SS^5084658384824951^@^^^^1"
^VA(200,60,0)="COORDINATOR,SIX^SC^828478687967888373467982736579^#^^^^^6^^"
^VA(200,61,0)="COORDINATOR,EIGHT^EC^8284786879678471697372467982736579^^^^1"
^VA(200,62,0)="LAB,SUPERUSER^LS^498367656@6983^^^^^^1^^"
^VA(200,63,0)="COORDINATOR,ONE^OC^828478687967697978467982736579^@^^^^^1^^"
^VA(200,64,0)="COORDINATOR,SEVEN^SC^8284786879677886836969467982736579"
^VA(200,65,0)="ANALYST,ONE^OA^8489656569797846787683^@^^^^^1^^"
^VA(200,66,0)="ANALYST,THREE^TA^84896565698284726946787683^#^^^^^1^^"
^VA(200,67,0)="COORDINATOR,THREE^TC^8284786879676982847269467982736579^#^^^^^1^^
"
^VA(200,68,0)="COORDINATOR,TWO^TC^828478687967798487467982736579^@^^^^^1^^"
^VA(200,69,0)="ANALYST,TWO^^8489656579848746787683^#^^^^^1^^"
^VA(200,70,0)="PATCHES,ALL D^ADP^496572848065677778"
^VA(200,71,0)="LRLAB,POC"
^VA(200,72,0)="LRLAB,HL"
^VA(200,73,0)="XOBVTESTER,APPLICATION PROXY"
^VA(200,74,0)="VPFS,APPLICATION PROXY"
^VA(200,75,0)="RADIOLOGY,OUTSIDE SERVICE"
^VA(200,76,0)="USER,OVID^OVU^514979865052^^^^^1"
^VA(200,77,0)="HABIEL,SAM^SMH^^^^^^^^^"
^VA(200,78,0)="SHDIFAT,HANEEN^HS"
^VA(200,79,0)="SAM,YOSEMEDIE"
^VA(200,80,0)="RUNNER,ROAD^^514982825052"
EHR:cassandra>SET $P(^VA(200,77,0),"^",2)="SH"
EHR:cassandra>WRITE ^VA(200,77,0)
HABIEL,SAM^SH^^^^^^^^^
EHR:cassandra>W STR
MARY HAD A LITTLE LAMB
EHR:cassandra>W $EXTRACT(STR)
M
EHR:cassandra>W $EXTRACT(STR,1)
M
EHR:cassandra>S $EXTRACT(STR,1)="B"
EHR:cassandra>W STR
BARY HAD A LITTLE LAMB
EHR:cassandra>W $EXTRACT(STR,1,4)
BARY
EHR:cassandra>S $EXTRACT(STR,1,4)="JIM"
EHR:cassandra>W STR
JIM HAD A LITTLE LAMB
EHR:cassandra>S $EXTRACT(STR,1,3)="JIMMY"
EHR:cassandra>W STR
JIMMY HAD A LITTLE LAMB
EHR:cassandra>
