Mumps Class 5

From VistApedia
Jump to: navigation, search
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~|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>