Difference between revisions of "MUMPS Code Examples"

From VistApedia
Jump to: navigation, search
(Instructions for page)
Line 1: Line 1:
 
== Instructions for page ==
 
== Instructions for page ==
 
For each of these code fragments, be sure to put them in CODE tags, and note whether the code is Standard MUMPS, and if not, what MUMPS systems it works on.
 
For each of these code fragments, be sure to put them in CODE tags, and note whether the code is Standard MUMPS, and if not, what MUMPS systems it works on.
 +
<nowiki><pre>
 +
=== Getting the {K} root for a Data Dictionary Number ==
 +
NOTE: Standard MUMPS
 +
<code>
 +
</code>
 +
</nowiki>
  
 
=== MUMPS Code to iterate over every global ===
 
=== MUMPS Code to iterate over every global ===
Line 18: Line 24:
 
<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)
 +
</code>
 +
 +
=== Getting the {K} root for a Data Dictionary Number ==
 +
NOTE: Standard MUMPS
 +
<code>
 
</code>
 
</code>

Revision as of 15:53, 27 February 2010

Instructions for page

For each of these code fragments, be sure to put them in CODE tags, and note whether the code is Standard MUMPS, and if not, what MUMPS systems it works on. <pre> === Getting the {K} root for a Data Dictionary Number == NOTE: Standard MUMPS <code> </code>

MUMPS Code to iterate over every global

NOTE: this is NON-STANDARD MUMPS. Known to work on GT.M SET GBLNAME="^%" FOR SET GBLNAME=$o(@GBLNAME) Q:GBLNAME="" DO Something(GBLNAME)

MUMPS Code to iterate over every FileMan File

NOTE: Standard MUMPS S FILE=0 F S FILE=$O(^DIC(FILE)) Q:FILE'=+FILE D Something(FILE)

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

NOTE: Standard MUMPS S DDNUM=0 F S DDNUM=$O(^DD(DDNUM)) Q:DDNUM'=+DDNUM D Something(DDNUM)

= Getting the {K} root for a Data Dictionary Number

NOTE: Standard MUMPS