Mumps Class 9

From VistApedia
Jump to: navigation, search
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>