Mumps Class 5

 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>