Mumps Class 9 - Revision history

NeilArmstrong: Added a glossary link to Action~

2012-07-29T22:36:04Z

Added a glossary link to Action~

← Older revision		Revision as of 22:36, 29 July 2012
Line 84:		Line 84:

	sw-dev> W $$GLCREAT^ORKPS(16789)		sw-dev> W $$GLCREAT^ORKPS(16789)
	%GTM-I-BREAKZBA, Break instruction encountered during ZBREAK action		%GTM-I-BREAKZBA, Break instruction encountered during ZBREAK [[action~\|Action]]
	At M source location GLCREAT^ORKPS		At M source location GLCREAT^ORKPS

Line 90:		Line 90:

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+4^ORKPS		At M source location GLCREAT+4^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+5^ORKPS		At M source location GLCREAT+5^ORKPS

Line 103:		Line 103:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:'$L(DFN) "0^"		Q:'$L(DFN) "0^"
	~~%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action~~		Action]]
	At M source location GLCREAT+6^ORKPS		At M source location GLCREAT+6^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	S ORDAYS=$$GCDAYS(DFN)		S ORDAYS=$$GCDAYS(DFN)
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+7^ORKPS		At M source location GLCREAT+7^ORKPS

Line 118:		Line 118:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:'$L(ORDAYS) "0^"		Q:'$L(ORDAYS) "0^"
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+8^ORKPS		At M source location GLCREAT+8^ORKPS

Line 125:		Line 125:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	D NOW^%DTC		D NOW^%DTC
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+9^ORKPS		At M source location GLCREAT+9^ORKPS

	sw-dev> ZSTEP INTO		sw-dev> ZSTEP INTO
	NOW S %H=$H,%H=$S($P(%H,",",2):%H,1:%H-1)		NOW S %H=$H,%H=$S($P(%H,",",2):%H,1:%H-1)
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location NOW^%DTC		At M source location NOW^%DTC

	sw-dev> ZSTEP OUTOF		sw-dev> ZSTEP OUTOF
	S BDT=$$FMADD^XLFDT(%,"-"_ORDAYS,"","","")		S BDT=$$FMADD^XLFDT(%,"-"_ORDAYS,"","","")
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+10^ORKPS		At M source location GLCREAT+10^ORKPS

Line 142:		Line 142:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	K %		K %
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+11^ORKPS		At M source location GLCREAT+11^ORKPS

Line 149:		Line 149:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:'$L($G(BDT)) "0^"		Q:'$L($G(BDT)) "0^"
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+12^ORKPS		At M source location GLCREAT+12^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	S LABFILE=$$TERMLKUP^ORB31(.ORY,"SERUM CREATININE")		S LABFILE=$$TERMLKUP^ORB31(.ORY,"SERUM CREATININE")
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+13^ORKPS		At M source location GLCREAT+13^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:'$D(ORY) "0^" ;no link between SERUM CREATININE and local lab test		Q:'$D(ORY) "0^" ;no link between SERUM CREATININE and local lab test
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+14^ORKPS		At M source location GLCREAT+14^ORKPS

Line 166:		Line 166:
	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:$G(LABFILE)'=60 "0^"		Q:$G(LABFILE)'=60 "0^"
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+15^ORKPS		At M source location GLCREAT+15^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	S SPECFILE=$$TERMLKUP^ORB31(.ORX,"SERUM SPECIMEN")		S SPECFILE=$$TERMLKUP^ORB31(.ORX,"SERUM SPECIMEN")
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+16^ORKPS		At M source location GLCREAT+16^ORKPS

	sw-dev> ZSTEP OVER		sw-dev> ZSTEP OVER
	Q:'$D(ORX) "0^" ;no link between SERUM SPECIMEN and local specimen		Q:'$D(ORX) "0^" ;no link between SERUM SPECIMEN and local specimen
	%GTM-I-BREAKZST, Break instruction encountered during ZSTEP action		%GTM-I-BREAKZST, Break instruction encountered during ZSTEP [[action~\|Action]]
	At M source location GLCREAT+17^ORKPS		At M source location GLCREAT+17^ORKPS

Line 232:		Line 232:
	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)		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		[[Action~\|Action]] (? for help): step INTO// CLS


Line 254:		Line 254:
	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)		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],		}% =[], ORDAYS =[60],
	Action (? for help): step OVER//		[[Action~\|Action]] (? for help): step OVER//

Shabiel at 14:32, 2 April 2011

2011-04-02T14:32:49Z

New page

<pre style="padding:1em;border:1px dashed #2f6fab;color:black;background-color:#f9f9f9;line-height:1.1em">
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^"
%GTM-I-BREAKZST, Break instruction encountered during ZSTEP 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>
</pre>