Mumps Class 9
From VistApedia
Using username "sw-dev".
sw-dev@172.16.16.108's password:
Linux swdev 2.6.31-20-generic #58-Ubuntu SMP Fri Mar 12 05:23:09 UTC 2010 i686
To access official Ubuntu documentation, please visit:
http://help.ubuntu.com/
232 packages can be updated.
193 updates are security updates.
Last login: Wed Feb 16 09:15:56 2011 from rami-laptop.local
sw-dev@swdev:/var/worldvista/sw/dev$ ls
172.16.16.11 journals objects var
backup localo old-localr vista-login-msg
bin localr routines vista-state
globals log svn
GTM_FATAL_ERROR.ZSHOW_DMP_8882_1 md5sum tmp
sw-dev@swdev:/var/worldvista/sw/dev$ ls 172.16.16.11
172.16.16.11
sw-dev@swdev:/var/worldvista/sw/dev$ rm 172.16.16.11
sw-dev@swdev:/var/worldvista/sw/dev$ ls
backup localo old-localr vista-login-msg
bin localr routines vista-state
globals log svn
GTM_FATAL_ERROR.ZSHOW_DMP_8882_1 md5sum tmp
journals objects var
sw-dev@swdev:/var/worldvista/sw/dev$ rm GTM_FATAL_ERROR.ZSHOW_DMP_8882_1
sw-dev@swdev:/var/worldvista/sw/dev$ ls
backup globals localo log objects routines tmp vista-login-msg
bin journals localr md5sum old-localr svn var vista-state
sw-dev@swdev:/var/worldvista/sw/dev$ ls
backup globals localo log objects routines tmp vista-login-msg
bin journals localr md5sum old-localr svn var vista-state
sw-dev@swdev:/var/worldvista/sw/dev$ gtm
sw-dev> zed ""
%GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification:
sw-dev> zed "ORB3TIM1"
sw-dev> zed "ORB3TIM1"
sw-dev> zed "ORKPS"
sw-dev> zed "ORKPS"
sw-dev> zed "BSDX07"
sw-dev> zed "ORKPS"
sw-dev> zed
sw-dev> W $$GLCREAT^ORKPS(16789)
%GTM-E-UNDEF, Undefined local variable: DUZ(2)
At M source location ENTDFLT+12^XPAR1
sw-dev> ZG
sw-dev> S DUZ=111 D ^XUP
Setting up programmer environment
This is a TEST account.
Terminal Type set to: C-VT102
Select OPTION NAME:
sw-dev> W $$GLCREAT^ORKPS(16789)
0^
sw-dev> ZBREAK "GLCREAT^ORKPS"
%GTM-E-LABELEXPECTED, Label expected in this context
ZBREAK "GLCREAT^ORKPS"
^-----
sw-dev> ZBREAK GLCREAT^ORKPS
sw-dev> ZSHOW "B"
GLCREAT^ORKPS
sw-dev> ; ZBREAK puts a breakpoint
sw-dev> ; ZSHOW "B" shows all currently defined breakpoints
sw-dev> W $$GLCREAT^ORKPS(16789)
%GTM-I-BREAKZBA, Break instruction encountered during ZBREAK [[action~|Action]]
At M source location GLCREAT^ORKPS
sw-dev> ; ZSTEP INTO, ZSTEP OVER, ZSTEP OUTOF
sw-dev> ZSTEP OVER
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+4^ORKPS
sw-dev> ZSTEP OVER
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+5^ORKPS
sw-dev> W $ZSTEP
B
sw-dev> SET $ZSTEP="WRITE $TEXT(@$ZPOSITION),! BREAK"
sw-dev> ZSTEP OVER
Q:'$L(DFN) "0^"
Action]]
At M source location GLCREAT+6^ORKPS
sw-dev> ZSTEP OVER
S ORDAYS=$$GCDAYS(DFN)
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+7^ORKPS
sw-dev> WRITE DFN
16789
sw-dev> WRITE ORDAYS
%GTM-E-UNDEF, Undefined local variable: ORDAYS
sw-dev> ZSTEP OVER
Q:'$L(ORDAYS) "0^"
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+8^ORKPS
sw-dev> WRITE ORDAYS
7
sw-dev> ZSTEP OVER
D NOW^%DTC
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+9^ORKPS
sw-dev> ZSTEP INTO
NOW S %H=$H,%H=$S($P(%H,",",2):%H,1:%H-1)
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location NOW^%DTC
sw-dev> ZSTEP OUTOF
S BDT=$$FMADD^XLFDT(%,"-"_ORDAYS,"","","")
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+10^ORKPS
sw-dev> WRITE %
3110216.100356
sw-dev> ZSTEP OVER
K %
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+11^ORKPS
sw-dev> WRITE BDT
3110209.100356
sw-dev> ZSTEP OVER
Q:'$L($G(BDT)) "0^"
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+12^ORKPS
sw-dev> ZSTEP OVER
S LABFILE=$$TERMLKUP^ORB31(.ORY,"SERUM CREATININE")
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+13^ORKPS
sw-dev> ZSTEP OVER
Q:'$D(ORY) "0^" ;no link between SERUM CREATININE and local lab test
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+14^ORKPS
sw-dev> W LABFILE
60
sw-dev> ZSTEP OVER
Q:$G(LABFILE)'=60 "0^"
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+15^ORKPS
sw-dev> ZSTEP OVER
S SPECFILE=$$TERMLKUP^ORB31(.ORX,"SERUM SPECIMEN")
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+16^ORKPS
sw-dev> ZSTEP OVER
Q:'$D(ORX) "0^" ;no link between SERUM SPECIMEN and local specimen
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~|Action]]
At M source location GLCREAT+17^ORKPS
sw-dev> W SPECFILE
61
sw-dev> ZSTEP OVER
0^
sw-dev> ZSTEP OVER
sw-dev> ZSTEP OVER
sw-dev> ZSTEP OVER
sw-dev> WRITE $$NOW^XLFDT
3110216.103603
sw-dev>
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: Tue Jan 25 10:38:59 2011 from 192.168.56.1
worldvistaEHR@cassandra:~$ gtm
GTM>D ^TMGIDE
Entering TMG IDE. But first, let's set up an environment...
Please type your name: 8 ??
Please type your name: HABIEL,SAM SH
==================================================
Welcome to the TMG debugging environment
==================================================
Options:
1. Start debugger in THIS window.
2. Start debugger CONTROLLER for another Process.
=== Routine: ^ORKPS (GLCREAT^ORKPS) ============================================
+105 S VA200="" D OERR^VADPT
+106 S ORLOC=+$G(^DIC(42,+VAIN(4),44))
+107 K VA200,VAIN
+108 S ORENT=+$G(ORLOC)_";SC(^DIV^SYS^PKG"
+109 S ORPAR=$$GET^XPAR(ORENT,"ORK POLYPHARMACY",1,"I") +110 S ORMEDS=$$NUMRX(DFN)
+111 I $G(ORMEDS)>$G(ORPAR) S ORSLT=1
+112 Q ORSLT
>+113GLCREAT(DFN) ;extrinsic function returns patient's (DFN) most recent serum
+114 ; creatinine within # of days from parameter ORK GLUCOPHAGE CREATININE
+115 ; results format: test id^result units flag ref range collect d/t^result
07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)
}
[[Action~|Action]] (? for help): step INTO// CLS
Welcome to the TMG debugging environment
Enter any valid M command...
(^ to quit) //W $$GLCREAT^ORKPS(4)
=== Routine: ^ORKPS (GLCREAT+14^ORKPS) =========================================
+119 Q:'$L(DFN) "0^"
+120 S ORDAYS=$$GCDAYS(DFN)
+121 Q:'$L(ORDAYS) "0^"
+122 D NOW^%DTC
+123 S BDT=$$FMADD^XLFDT(%,"-"_ORDAYS,"","","") +124 K %
+125 Q:'$L($G(BDT)) "0^"
+126 S LABFILE=$$TERMLKUP^ORB31(.ORY,"SERUM CREATININE")
>+127 Q:'$D(ORY) "0^" ;no link between SERUM CREATININE and local lab test
+128 Q:$G(LABFILE)'=60 "0^"
+129 S SPECFILE=$$TERMLKUP^ORB31(.ORX,"SERUM SPECIMEN")
07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)07:32, 2 Apr 2011 (PDT)
}% =[], ORDAYS =[60],
[[Action~|Action]] (? for help): step OVER//
0^
(^ to quit) //^Leaving TMG debugging environment. Goodbye.
GTM>D ^TMGIDE
==================================================
Welcome to the TMG debugging environment
==================================================
Options:
1. Start debugger in THIS window.
2. Start debugger CONTROLLER for another Process.
3. Debug, SENDING control to a Controller.
4. Set a custom breakpoint
5. Kill a custom breakpoint
6. Debug ANOTHER PROCESS
7. KILL ANOTHER PROCESS
8. Run ^ZJOB
9. View TRACE log from last run
==================================================
Enter selection (^ to abort): ^// ^
Leaving TMG debugging environment. Goodbye.
GTM>ZED "XUSRB"
GTM>zed "ZU"
GTM>zed "XWBTCPM"
GTM>ZED "XUSRB"
GTM>WRITE $$NOW^XLFDT
3110125.132702
GTM>ZED "XUSRB"
GTM>
