Mumps Class 10

 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 Jan 26 01:09:58 2011 from 192.168.56.1 worldvistaEHR@cassandra:~$ gtm

GTM>zed "PSOSTART"

GTM>W $H ; Horolog. first part is days; second part is time. Represents current date/time in Mumps format. 62117,9271 GTM>zed "PSOSTART"

GTM>; DA(n+1) = higher level

GTM>; DA = Record number

GTM>; for example

GTM>; DA(1)=52

GTM>; DA=5

GTM>; means that I am in Record 5 of file 52.

GTM>; DA(2)=55,DA(1)=10,DA=5

GTM>; 55 is top; 10 is subfile, 5 is entry number

GTM>zed "PSOSTART"

GTM>S DUZ=9 D P^DI

MSC FileMan 22.1039

Select OPTION: DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: LIST FILE ATTRIBUTES START WITH What File: BSDX ACCESS BLOCK// TITLE 1  TITLE                            (8 entries) 2  TITLE AUTHORITY                  (7915 entries) CHOOSE 1-2: 1 TITLE                      (8 entries) GO TO What File: TITLE//           (8 entries) Select LISTING FORMAT: STANDARD// Start with field: FIRST// DEVICE:  TELNET STANDARD DATA DICTIONARY #3.1 -- TITLE FILE                  1/26/11    PAGE 1 STORED IN ^DIC(3.1, (8 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR (VERSIO N 8.0)

DATA         NAME                  GLOBAL        DATA ELEMENT      TITLE                 LOCATION      TYPE --- This file may be used to indicate a user's title. It is pointed to by the NEW PERSON. It is only cross-referenced by name. It is not distributed with data.

DD ACCESS: # DEL ACCESS: #

POINTED TO BY: TITLE field (#8) of the NEW PERSON File (#200) TITLE field (#1) of the CONCURRING OFFICIALS File (#413.3) TITLE OF THE REPORTING PERSON field (#.07) of the QA INCIDENT REPORT File (#742.4)

CROSS REFERENCED BY: NAME(B)^

Select DATA DICTIONARY UTILITY OPTION:

Select OPTION: GTM>ZWRITE ^DIC(3.1*) %GTM-E-RHMISSING, Right-hand side of expression expected ZWRITE ^DIC(3.1*) ^-

GTM>ZWRITE ^DIC(3.1,*) ^DIC(3.1,0)="TITLE^3.1^8^8" ^DIC(3.1,0,"DD")="#" ^DIC(3.1,0,"DEL")="#" ^DIC(3.1,0,"GL")="^DIC(3.1," ^DIC(3.1,1,0)="ANALYST" ^DIC(3.1,2,0)="Physician" ^DIC(3.1,3,0)="Nurse" ^DIC(3.1,4,0)="Medical Clerk" ^DIC(3.1,5,0)="System Manager" ^DIC(3.1,6,0)="CLINICAL COORDINATOR" ^DIC(3.1,7,0)="PHARMACIST" ^DIC(3.1,8,0)="VERY FUNNY GUY" ^DIC(3.1,"%",0)="^1.005^1^1" ^DIC(3.1,"%",1,0)="XU" ^DIC(3.1,"%","B","XU",1)="" ^DIC(3.1,"%D",0)="^^3^3^2940913^^" ^DIC(3.1,"%D",1,0)="This file may be used to indicate a user's title. It is poi          nted to by" ^DIC(3.1,"%D",2,0)="the NEW PERSON. It is only cross-referenced by name.  It is          not distributed" ^DIC(3.1,"%D",3,0)="with data." ^DIC(3.1,"B","ANALYST",1)="" ^DIC(3.1,"B","CLINICAL COORDINATOR",6)="" ^DIC(3.1,"B","Medical Clerk",4)="" ^DIC(3.1,"B","Nurse",3)="" ^DIC(3.1,"B","PHARMACIST",7)="" ^DIC(3.1,"B","Physician",2)="" ^DIC(3.1,"B","System Manager",5)="" ^DIC(3.1,"B","VERY FUNNY GUY",8)=""

GTM>ZWRITE ^DD(3.1,*) ^DD(3.1,0)="FIELD^NL^.01^1" ^DD(3.1,0,"DDA")="N" ^DD(3.1,0,"IX","B",3.1,.01)="" ^DD(3.1,0,"NM","TITLE")="" ^DD(3.1,0,"PT",200,8)="" ^DD(3.1,0,"PT",413.3,1)="" ^DD(3.1,0,"PT",742.4,.07)="" ^DD(3.1,0,"VR")="8.0" ^DD(3.1,0,"VRPK")="KERNEL PUBLIC DOMAIN" ^DD(3.1,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)         <3)!'(X'?1P.E) X" ^DD(3.1,.01,1,0)="^.1" ^DD(3.1,.01,1,1,0)="3.1^B" ^DD(3.1,.01,1,1,1)="S ^DIC(3.1,""B"",$E(X,1,30),DA)=""""" ^DD(3.1,.01,1,1,2)="K ^DIC(3.1,""B"",$E(X,1,30),DA)" ^DD(3.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH" ^DD(3.1,.01,"DT")=2841004 ^DD(3.1,"B","NAME",.01)="" ^DD(3.1,"GL",0,1,.01)="" ^DD(3.1,"IX",.01)="" ^DD(3.1,"RQ",.01)=""

GTM>zed "PSOSTART"

GTM>S DIK(1)="SAM"

GTM>S DIK(2)="MURAT"

GTM>WRITE DIK %GTM-E-UNDEF, Undefined local variable: DIK

GTM>WRITE $DATA(DIK) 10 GTM>ZWRITE DIK DIK(1)="SAM" DIK(2)="MURAT"

GTM>KILL DIK

GTM>WRITE $DATA(DIK) 0 GTM>ZED

GTM>WRITE ^VA(200,9,0) COORDINATOR,FIVE^FC^5782677968^@^n^n^^1^1^^ GTM>WRITE $REFERENCE ^VA(200,9,0) GTM>WRITE ^(.1) 61663,66055^51461031007311010511151^^^RED^^^^^^ GTM>WRITE $REFERENCE ^VA(200,9,.1) GTM>WRITE ^(1) ^M^^^2^^3041201^0^ GTM>WRITE $REFERENCE ^VA(200,9,1) GTM>; ^(node) is a short way (and very confusing way) of getting data from the l ast global you referenced.

GTM>I ^DPT(4,0)

GTM>W $REFERENCE ^DPT(4,0) GTM>ZED

GTM>zp ^PSOSTART PSOSTART ;BHAM ISC/SAB - pre init for v7 ;2/28/95 [1/26/11 3:27am] ;;7.0;OUTPATIENT PHARMACY;**10**;DEC 1997 ;this routine should only called by the KIDS installer ;Q:'$G(PSOINST) S (XQABT1,XQABT2,XQABT3)=$H,PSOIT=$P(XQABT1,",",2) ;master file update ;D EN1^PSSHL1 I $G(XPDABORT) K XQABT1,XQABT2,XQABT3 Q ;D:$P(^PS(59.7,1,49.99),"^")'="7.0" I $P(^PS(59.7,1,49.99),"^")'="7.0" D .N DIU .S $P(^PS(59.7,1,49.99),"^",7)="",ZTDTH=$H,ZTRTN="POST^PSOPOST",ZTIO="",ZTDESC= "Outpatient Pharmacy version 7.0 background conversion" D ^%ZTLOAD .S DIU(0)="DT" F DIU=52.41 D EN^DIU2 W "." ;deletes *REFILL WITH NON VERIFIED N EWS (#52.41) file K DIK,DA S DIK="^DD(52,",DA(1)=52 F DA=6,17,39.4,39.5 D ^DIK K DIK,DA S DIK="^DD(59,",DA(1)=59 F DA=.19,.093 D ^DIK K DIK,DA S DIK="^DD(52.11,",DA(1)=52.11 F DA=.01,1,4,6,7,8 D ^DIK K DIK,DA S DIK="^DD(59.3,",DA(1)=59.3,DA=2 D ^DIK K DA,DIK F DA=3,4,5,6,7 S DIK="^DD(50.9006,",DA(1)=50.9006 D ^DIK ;deletes dupl icate fields in 50.9 K DIK,DA I $P($G(^PS(54,0)),"^")'="RX CONSULT" D W "." .K ^PS(54) .S %X="^DIC(54,",%Y="^PS(54," D %XY^%RCR K ^PS(54,0,"GL"),^PS(54,"%"),^PS(54,"% D") K ^DIC(54,"B") F I=0:0 S I=$O(^DIC(54,I)) Q:'I  K ^DIC(54,I) .S DIU="^DIC(54,",DIU(0)="" D EN^DIU2 S DIU(0)="DT" F DIU=59.9 D EN^DIU2 K DIU W "." ;deletes pharmacy functions file K ^PSRX("AP") K DA,DIK S DIK="^DD(52,",DA(1)=52 F DA=10,100 D ;removes old sig and status fi elds .I DA=10,$P($G(^DD(52,10,0)),"^",4)'="SIG;1" D ^DIK W "." .I DA=100,$P($G(^DD(52,100,0)),"^",4)'="STA;1" D ^DIK W "." ;delete Pharmacy Archive data K DA,DIK S DIK="^PSOARC(" F DA=0:0 S DA=$O(^PSOARC(DA)) Q:'DA  D .I $P($G(^PSOARC(DA,0)),"^"),$P($G(^(0)),"^",2),$D(^PSRX(DA,0)),$P($G(^(0)),"^" ,2) D ^DIK Q .E  K ^PSOARC(DA,0) K ^PSOARC("B"),^PSOARC("C") K DA,DIK Q

GTM>