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~|Record]] number

GTM>; for example

GTM>; DA(1)=52

GTM>; DA=5

GTM>; means that I am in [[record~|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>