Mumps Class 9

 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 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 At M source location GLCREAT+4^ORKPS

sw-dev> ZSTEP OVER %GTM-I-BREAKZST, Break instruction encountered during ZSTEP 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 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 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 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 At M source location NOW^%DTC

sw-dev> ZSTEP OUTOF S BDT=$$FMADD^XLFDT(%,"-"_ORDAYS,"","","") %GTM-I-BREAKZST, Break instruction encountered during ZSTEP 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 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 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 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 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 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 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 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 (? 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 (? 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>