MUMPS Code Examples - Revision history

DaveMishler: /* MUMPS Code to iterate over every subscript of the global ^XTMP */

2010-02-27T20:47:59Z

MUMPS Code to iterate over every subscript of the global ^XTMP

← Older revision		Revision as of 20:47, 27 February 2010
Line 16:		Line 16:
	SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)
	</pre></tt>		</pre></tt>
	=== MUMPS Code to iterate over every subscript of the global ^XTMP ===		=== MUMPS Code to iterate over every value of the first subscript of the global ^XTMP ===

	NOTE: Standard MUMPS		NOTE: Standard MUMPS

DaveMishler at 20:46, 27 February 2010

2010-02-27T20:46:03Z

← Older revision		Revision as of 20:46, 27 February 2010
Line 15:		Line 15:
	<tt><pre>		<tt><pre>
	SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)
			</pre></tt>
			=== MUMPS Code to iterate over every subscript of the global ^XTMP ===

			NOTE: Standard MUMPS
			Note: the following code immediately stops if there are no subscripts to ^XTMP

			<tt><pre>
			SET SUB="" FOR SET SUB=$ORDER(^XTMP(SUB)) QUIT:SUB="" DO Something(SUB)
	</pre></tt>		</pre></tt>

DaveMishler at 18:34, 27 February 2010

2010-02-27T18:34:45Z

← Older revision		Revision as of 18:34, 27 February 2010
Line 4:		Line 4:
	=== Title for explanation of code purpose ==		=== Title for explanation of code purpose ==
	NOTE: Standard MUMPS		NOTE: Standard MUMPS
	<code>		<tt><pre>
	</~~code~~>		some code
			</pre></tt>
	</nowiki></pre>		</nowiki></pre>

Line 19:		Line 20:
	NOTE: Standard MUMPS		NOTE: Standard MUMPS

	<tt>		<tt><pre>
	S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)		S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)
	</tt>		</pre></tt>

	=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===		=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===
	NOTE: Standard MUMPS		NOTE: Standard MUMPS

	<~~code~~>		<tt><pre>
	S DDNUM=0 F S DDNUM=$O(^DD(DDNUM)) Q:DDNUM'=+DDNUM D Something(DDNUM)		S DDNUM=0 F S DDNUM=$O(^DD(DDNUM)) Q:DDNUM'=+DDNUM D Something(DDNUM)
	</~~code~~>		</pre></tt>

	=== Getting the {K} closed root for a Data Dictionary Number ===		=== Getting the {K} closed root for a Data Dictionary Number ===
Line 37:		Line 38:
	until the {K} text is replaced with either a constant or a variable.		until the {K} text is replaced with either a constant or a variable.

	<~~code~~>		<tt><pre>
	S RESULT=$$ROOT^DMSQU(ddnum)		S RESULT=$$ROOT^DMSQU(ddnum)
	</~~code~~>		</pre></tt>

	Example:		Example:
	PATIENT File #2 has a Field #1900 the "APPOINTMENT" multiple that is in DDNUM 2.98		PATIENT File #2 has a Field #1900 the "APPOINTMENT" multiple that is in DDNUM 2.98

	<~~code~~>		<tt><pre>
	MUMPS> W !,$$ROOT^DMSQU(2.98)		MUMPS> W !,$$ROOT^DMSQU(2.98)

	^DPT({K},"S",{K})		^DPT({K},"S",{K})
	</~~code~~>		</pre></tt>

DaveMishler: /* MUMPS Code to iterate over every FileMan File */

2010-02-27T18:32:54Z

MUMPS Code to iterate over every FileMan File

← Older revision		Revision as of 18:32, 27 February 2010
Line 19:		Line 19:
	NOTE: Standard MUMPS		NOTE: Standard MUMPS

	<~~code~~>		<tt>
	S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)		S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)
	</~~code~~>		</tt>

	=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===		=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===

DaveMishler: /* MUMPS Code to iterate over every global */

2010-02-27T18:32:09Z

MUMPS Code to iterate over every global

← Older revision		Revision as of 18:32, 27 February 2010
Line 12:		Line 12:
	NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M		NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M

	<~~pre~~><tt>		<tt><pre>
	SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)
	</tt></~~pre~~>		</pre></tt>

	=== MUMPS Code to iterate over every FileMan File ===		=== MUMPS Code to iterate over every FileMan File ===

DaveMishler: /* MUMPS Code to iterate over every global */

2010-02-27T18:31:10Z

MUMPS Code to iterate over every global

← Older revision		Revision as of 18:31, 27 February 2010
Line 12:		Line 12:
	NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M		NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M

	<pre><~~code~~>		<pre><tt>
	SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)
	</~~code~~></pre>		</tt></pre>

	=== MUMPS Code to iterate over every FileMan File ===		=== MUMPS Code to iterate over every FileMan File ===

DaveMishler: /* MUMPS Code to iterate over every global */

2010-02-27T18:30:43Z

MUMPS Code to iterate over every global

← Older revision		Revision as of 18:30, 27 February 2010
Line 12:		Line 12:
	NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M		NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M

	<code>		<pre><code>
	SET GBLNAME="^%" FOR SET GBLNAME=$o(@GBLNAME) Q:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$ORDER(@GBLNAME) QUIT:GBLNAME="" DO Something(GBLNAME)
	</code>		</code></pre>

	=== MUMPS Code to iterate over every FileMan File ===		=== MUMPS Code to iterate over every FileMan File ===

DaveMishler: /* MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile */

2010-02-27T16:15:49Z

MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile

← Older revision		Revision as of 16:15, 27 February 2010
Line 25:		Line 25:
	=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===		=== MUMPS Code to iterate over Data Dictionary Number of every FileMan File & Subfile ===
	NOTE: Standard MUMPS		NOTE: Standard MUMPS

	<code>		<code>
	S DDNUM=0 F S DDNUM=$O(^DD(DDNUM)) Q:DDNUM'=+DDNUM D Something(DDNUM)		S DDNUM=0 F S DDNUM=$O(^DD(DDNUM)) Q:DDNUM'=+DDNUM D Something(DDNUM)

DaveMishler: /* MUMPS Code to iterate over every FileMan File */

2010-02-27T16:14:55Z

MUMPS Code to iterate over every FileMan File

← Older revision		Revision as of 16:14, 27 February 2010
Line 18:		Line 18:
	=== MUMPS Code to iterate over every FileMan File ===		=== MUMPS Code to iterate over every FileMan File ===
	NOTE: Standard MUMPS		NOTE: Standard MUMPS

	<code>		<code>
	S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)		S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)

DaveMishler: /* MUMPS Code to iterate over every global */

2010-02-27T16:14:31Z

MUMPS Code to iterate over every global

← Older revision		Revision as of 16:14, 27 February 2010
Line 9:		Line 9:

	=== MUMPS Code to iterate over every global ===		=== MUMPS Code to iterate over every global ===

	NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M		NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M

	<code>		<code>
	SET GBLNAME="^%" FOR SET GBLNAME=$o(@GBLNAME) Q:GBLNAME="" DO Something(GBLNAME)		SET GBLNAME="^%" FOR SET GBLNAME=$o(@GBLNAME) Q:GBLNAME="" DO Something(GBLNAME)