Mumps Class 10
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: 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>
