Difference between revisions of "Global Search"

From VistApedia
Jump to: navigation, search
Line 58: Line 58:
  
 
. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"   
 
. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"   
−
 
+
== colorized ===
 
<html>
 
<html>
 
<style type="text/css">
 
<style type="text/css">
Line 98: Line 98:
 
</style>
 
</style>
  
−
<div style="float: left; white-space: pre; line-height: 1; background: #FFFFFF; "><span class="sc0">DDGF1</span><span class="sc24"> </span><span class="sc2">;SFISC/MKO-MAIN SCREEN ;02:46 PM  12 Oct 1994
+
<div style="float: left; white-space: pre; line-height: 1; background: #FFFFFF; ">
−
</span><span class="sc24"> </span><span class="sc2">;;22.21062;VA FileMan;;Mar 30, 1999
+
<span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D0</span><span class="sc12">=</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">FOR</span><span class="sc24">  </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D0</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(</span><span class="sc0">^PXD</span><span class="sc12">(</span><span class="sc3">811</span><span class="sc12">.</span><span class="sc3">8</span><span class="sc12">,</span><span class="sc0">D0</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">QUIT</span><span class="sc12">:</span><span class="sc0">D0</span><span class="sc12">'=+</span><span class="sc0">D0</span><span class="sc24">  </span><span class="sc4">IF</span><span class="sc24"> </span><span class="sc6">$DATA</span><span class="sc12">(</span><span class="sc0">^</span><span class="sc12">(</span><span class="sc0">D0</span><span class="sc12">,</span><span class="sc3">100</span><span class="sc12">))</span><span class="sc24">  </span><span class="sc4">DO</span><span class="sc24">
−
</span><span class="sc24"> </span><span class="sc2">; Submitted to OSEHRA 11/19/2014 by Medsphere Systems Corporation.
 
−
</span><span class="sc24"> </span><span class="sc2">; Licensed under the terms of the Apache License, Version 2.0.
 
−
</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">),</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">DDGFE</span><span class="sc12">=</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">F</span><span class="sc24">  </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc0">$$READ</span><span class="sc24"> </span><span class="sc4">W</span><span class="sc12">:</span><span class="sc5">$T</span><span class="sc12">(@</span><span class="sc0">Y</span><span class="sc12">)=</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">7</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc12">:</span><span class="sc6">$D</span><span class="sc12">(</span><span class="sc0">DDGFMSG</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc0">MSG^DDGF</span><span class="sc12">()</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc12">:</span><span class="sc5">$T</span><span class="sc12">(@</span><span class="sc0">Y</span><span class="sc12">)]</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc12">@</span><span class="sc0">Y</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc12">:</span><span class="sc0">DDGFE</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">LNU</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY-1</span><span class="sc12">,</span><span class="sc0">DX</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">LND</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">3</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">+</span><span class="sc3">1</span><span class="sc12">,</span><span class="sc0">DX</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">CHR</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc0">DX</span><span class="sc12">+</span><span class="sc3">1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">CHL</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc0">DX-1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">ELR</span><span class="sc24"> </span><span class="sc4">N</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">=</span><span class="sc0">DX</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc12">:</span><span class="sc4">X</span><span class="sc12">=</span><span class="sc16">""</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc16">""</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">]</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc16">""</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc12">:</span><span class="sc4">X</span><span class="sc12">]</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">ELL</span><span class="sc24"> </span><span class="sc4">N</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">=</span><span class="sc0">DX</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">),</span><span class="sc3">-1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc12">:</span><span class="sc4">X</span><span class="sc12">=</span><span class="sc16">""</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">),</span><span class="sc3">-1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc16">""</span><span class="sc12">),</span><span class="sc3">-1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">]</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"RC"</span><span class="sc12">,</span><span class="sc0">DDGFWID</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc16">""</span><span class="sc12">),</span><span class="sc3">-1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc12">:</span><span class="sc4">X</span><span class="sc12">]</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">Y</span><span class="sc12">,</span><span class="sc4">X</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">TBR</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc5">$S</span><span class="sc12">(</span><span class="sc0">DX</span><span class="sc12">+</span><span class="sc3">5</span><span class="sc12">'&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">):</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">),</span><span class="sc3">1</span><span class="sc12">:</span><span class="sc0">DX</span><span class="sc12">+</span><span class="sc3">5</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">E</span><span class="sc24">  </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">3</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">+</span><span class="sc3">1</span><span class="sc12">,</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">TBL</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc5">$S</span><span class="sc12">(</span><span class="sc0">DX-5</span><span class="sc12">'&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">):</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">),</span><span class="sc3">1</span><span class="sc12">:</span><span class="sc0">DX-5</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">E</span><span class="sc24">  </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY-1</span><span class="sc12">,</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">SCT</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">),</span><span class="sc0">DX</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">SCB</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">3</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">3</span><span class="sc12">),</span><span class="sc0">DX</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">SCR</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&lt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">4</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">SCL</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DX</span><span class="sc12">&gt;</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DY</span><span class="sc12">,</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGFLIM</span><span class="sc12">,</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">SAVE</span><span class="sc24"> </span><span class="sc2">;Save data from DDGFREF
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">SAVE^DDGFSV</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">SELECT</span><span class="sc24"> </span><span class="sc2">;Select an item
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">SELECT^DDGFEL</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">EDIT</span><span class="sc24"> </span><span class="sc2">;Edit a caption or data length
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">EDIT^DDGFEL</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">FLDADD</span><span class="sc24"> </span><span class="sc2">;Add a new field to the form
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">ADD^DDGFFLDA</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc4">VIEW</span><span class="sc24"> </span><span class="sc2">;Go to block viewer
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">I</span><span class="sc24"> </span><span class="sc6">$O</span><span class="sc12">(@</span><span class="sc0">DDGFREF</span><span class="sc12">@(</span><span class="sc16">"F"</span><span class="sc12">,</span><span class="sc0">DDGFPG</span><span class="sc12">,</span><span class="sc16">""</span><span class="sc12">))=</span><span class="sc16">""</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">120</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">^DDGF3</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">BKADD</span><span class="sc24"> </span><span class="sc2">;Add a new block
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">ADD^DDGFBK</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">HBKADD</span><span class="sc24"> </span><span class="sc2">;Add a header block
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">ADD^DDGFHBK</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">NXTPG</span><span class="sc24"> </span><span class="sc2">;Go to next page
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">NXTPRV^DDGFPG</span><span class="sc12">(</span><span class="sc3">1</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">PRVPG</span><span class="sc24"> </span><span class="sc2">;Go to previous page
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">NXTPRV^DDGFPG</span><span class="sc12">(</span><span class="sc3">-1</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">CLSPG</span><span class="sc24"> </span><span class="sc2">;Close pop-up page
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">CLSPG^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">PGSEL</span><span class="sc24"> </span><span class="sc2">;Select a new page
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">PGSEL^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">PGADD</span><span class="sc24"> </span><span class="sc2">;Add a new page to the form
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">ADD^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">PGEDIT</span><span class="sc24"> </span><span class="sc2">;Edit attributes of a page
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc12">'</span><span class="sc0">DDGFPG</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc3">110</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">EDIT^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">FMSEL</span><span class="sc24"> </span><span class="sc2">;Select another form
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">SEL^DDGFFM</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">FMADD</span><span class="sc24"> </span><span class="sc2">;Add a new form
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">ADD^DDGFFM</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">FMEDIT</span><span class="sc24"> </span><span class="sc2">;Edit the form
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">EDIT^DDGFFM</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">HELP</span><span class="sc24"> </span><span class="sc2">;Invoke help screens
 
−
</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">HLP^DDGFH</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">TO</span><span class="sc24"> </span><span class="sc2">;Time-out
 
−
</span><span class="sc24"> </span><span class="sc4">W</span><span class="sc24"> </span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">7</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc4">QUIT</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc4">QUIT</span><span class="sc24"> </span><span class="sc2">;Exit from form designer
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DDGLSCR</span><span class="sc12">&gt;</span><span class="sc3">1</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">CLSPG^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">DDGFE</span><span class="sc12">=</span><span class="sc3">1</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc0">EXIT</span><span class="sc24"> </span><span class="sc2">;Save and exit
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DDGLSCR</span><span class="sc12">&gt;</span><span class="sc3">1</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">CLSPG^DDGFPG</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">DDGFE</span><span class="sc12">=</span><span class="sc3">1</span><span class="sc24">
 
−
</span><span class="sc4">G</span><span class="sc24"> </span><span class="sc0">SAVE^DDGFSV</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">RC</span><span class="sc12">(</span><span class="sc0">DDGFY</span><span class="sc12">,</span><span class="sc0">DDGFX</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc2">;Update status line, reset DX and DY, move cursor
 
−
</span><span class="sc24"> </span><span class="sc4">N</span><span class="sc24"> </span><span class="sc0">DDGFS</span><span class="sc24">
 
−
</span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DDGFR</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">=</span><span class="sc0">IOSL-6</span><span class="sc12">,</span><span class="sc0">DX</span><span class="sc12">=</span><span class="sc0">IOM-9</span><span class="sc12">,</span><span class="sc0">DDGFS</span><span class="sc12">=</span><span class="sc16">"R"</span><span class="sc12">_(</span><span class="sc0">DDGFY</span><span class="sc12">+</span><span class="sc3">1</span><span class="sc12">)_</span><span class="sc16">",C"</span><span class="sc12">_(</span><span class="sc0">DDGFX</span><span class="sc12">+</span><span class="sc3">1</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc24"> </span><span class="sc0">IOXY</span><span class="sc24"> </span><span class="sc4">W</span><span class="sc24"> </span><span class="sc0">DDGFS</span><span class="sc12">_</span><span class="sc5">$J</span><span class="sc12">(</span><span class="sc16">""</span><span class="sc12">,</span><span class="sc0">7-$L</span><span class="sc12">(</span><span class="sc0">DDGFS</span><span class="sc12">))</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">DY</span><span class="sc12">=</span><span class="sc0">DDGFY</span><span class="sc12">,</span><span class="sc0">DX</span><span class="sc12">=</span><span class="sc0">DDGFX</span><span class="sc24"> </span><span class="sc4">X</span><span class="sc24"> </span><span class="sc0">IOXY</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc4">READ</span><span class="sc12">()</span><span class="sc24"> </span><span class="sc4">N</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">,</span><span class="sc0">Y</span><span class="sc24">
 
−
</span><span class="sc4">F</span><span class="sc24">  </span><span class="sc4">R</span><span class="sc24"> </span><span class="sc12">*</span><span class="sc0">Y</span><span class="sc12">:</span><span class="sc0">DTIME</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc4">C</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">'=</span><span class="sc3">-1</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc4">C</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">&lt;</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc16">"TO"</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">S</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">=</span><span class="sc16">""</span><span class="sc24">
 
−
</span><span class="sc0">C1</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">=</span><span class="sc4">S</span><span class="sc12">_</span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc0">Y</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DDGF</span><span class="sc12">(</span><span class="sc16">"IN"</span><span class="sc12">)'[(</span><span class="sc4">U</span><span class="sc12">_</span><span class="sc4">S</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24">  </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc3">-1</span><span class="sc24"> </span><span class="sc4">W</span><span class="sc24"> </span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">7</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc0">Y</span><span class="sc12">)'?</span><span class="sc0">1L</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc3">-1</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">=</span><span class="sc6">$E</span><span class="sc12">(</span><span class="sc4">S</span><span class="sc12">,</span><span class="sc3">1</span><span class="sc12">,</span><span class="sc6">$L</span><span class="sc12">(</span><span class="sc4">S</span><span class="sc12">)</span><span class="sc3">-1</span><span class="sc12">)_</span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc0">Y-32</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc12">:</span><span class="sc0">DDGF</span><span class="sc12">(</span><span class="sc16">"IN"</span><span class="sc12">)'[(</span><span class="sc4">U</span><span class="sc12">_</span><span class="sc4">S</span><span class="sc12">_</span><span class="sc4">U</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc3">-1</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc24"> </span><span class="sc4">I</span><span class="sc24"> </span><span class="sc0">DDGF</span><span class="sc12">(</span><span class="sc16">"IN"</span><span class="sc12">)[(</span><span class="sc4">U</span><span class="sc12">_</span><span class="sc4">S</span><span class="sc12">_</span><span class="sc4">U</span><span class="sc12">),</span><span class="sc4">S</span><span class="sc12">'=</span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">27</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc4">S</span><span class="sc24"> </span><span class="sc0">Y</span><span class="sc12">=</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGF</span><span class="sc12">(</span><span class="sc16">"OUT"</span><span class="sc12">),</span><span class="sc4">U</span><span class="sc12">,</span><span class="sc6">$L</span><span class="sc12">(</span><span class="sc6">$P(</span><span class="sc12">D</span><span class="sc0">DGF</span><span class="sc12">(</span><span class="sc16">"IN"</span><span class="sc12">),</span><span class="sc4">U</span><span class="sc12">_</span><span class="sc4">S</span><span class="sc12">_</span><span class="sc4">U</span><span class="sc12">),</span><span class="sc4">U</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc4">R</span><span class="sc24"> </span><span class="sc12">*</span><span class="sc0">Y</span><span class="sc12">:</span><span class="sc3">5</span><span class="sc24"> </span><span class="sc4">G</span><span class="sc12">:</span><span class="sc0">Y</span><span class="sc12">'=</span><span class="sc3">-1</span><span class="sc24"> </span><span class="sc0">C1</span><span class="sc24"> </span><span class="sc4">W</span><span class="sc24"> </span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">7</span><span class="sc12">)</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc2">;
 
−
</span><span class="sc0">ERR</span><span class="sc12">(</span><span class="sc4">X</span><span class="sc12">)</span><span class="sc24"> </span><span class="sc2">;
 
−
</span><span class="sc24"> </span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">MSG^DDGF</span><span class="sc12">(</span><span class="sc6">$C</span><span class="sc12">(</span><span class="sc3">7</span><span class="sc12">)_</span><span class="sc6">$P(</span><span class="sc12">$</span><span class="sc0">T</span><span class="sc12">(@</span><span class="sc4">X</span><span class="sc12">),</span><span class="sc16">";;"</span><span class="sc12">,</span><span class="sc3">2</span><span class="sc12">,</span><span class="sc3">999</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">H</span><span class="sc24"> </span><span class="sc3">3</span><span class="sc24">
 
−
</span><span class="sc4">D</span><span class="sc24"> </span><span class="sc0">MSG^DDGF</span><span class="sc12">()</span><span class="sc24">
 
−
</span><span class="sc4">Q</span><span class="sc24">
 
−
</span><span class="sc3">110</span><span class="sc24"> </span><span class="sc2">;;There are no pages on this form.  Use PF2-P to add a page.
 
−
</span><span class="sc3">120</span><span class="sc24"> </span><span class="sc2">;;There are no blocks on this page.  Use PF2-B to add a block.
 
−
</span><span class="sc24">
 
−
 
 
−
</span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D0</span><span class="sc12">=</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">FOR</span><span class="sc24">  </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D0</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(</span><span class="sc0">^PXD</span><span class="sc12">(</span><span class="sc3">811</span><span class="sc12">.</span><span class="sc3">8</span><span class="sc12">,</span><span class="sc0">D0</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">QUIT</span><span class="sc12">:</span><span class="sc0">D0</span><span class="sc12">'=+</span><span class="sc0">D0</span><span class="sc24">  </span><span class="sc4">IF</span><span class="sc24"> </span><span class="sc6">$DATA</span><span class="sc12">(</span><span class="sc0">^</span><span class="sc12">(</span><span class="sc0">D0</span><span class="sc12">,</span><span class="sc3">100</span><span class="sc12">))</span><span class="sc24">  </span><span class="sc4">DO</span><span class="sc24">
 
  
 
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D1</span><span class="sc12">=</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">FOR</span><span class="sc24">  </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D1</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(</span><span class="sc0">^PXD</span><span class="sc12">(</span><span class="sc3">811</span><span class="sc12">.</span><span class="sc3">8</span><span class="sc12">,</span><span class="sc0">D0</span><span class="sc12">,</span><span class="sc3">100</span><span class="sc12">,</span><span class="sc0">D1</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">QUIT</span><span class="sc12">:</span><span class="sc0">D1</span><span class="sc12">'=+</span><span class="sc0">D1</span><span class="sc24">  </span><span class="sc4">DO</span><span class="sc24">
 
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D1</span><span class="sc12">=</span><span class="sc3">0</span><span class="sc24"> </span><span class="sc4">FOR</span><span class="sc24">  </span><span class="sc4">SET</span><span class="sc24"> </span><span class="sc0">D1</span><span class="sc12">=</span><span class="sc6">$O</span><span class="sc12">(</span><span class="sc0">^PXD</span><span class="sc12">(</span><span class="sc3">811</span><span class="sc12">.</span><span class="sc3">8</span><span class="sc12">,</span><span class="sc0">D0</span><span class="sc12">,</span><span class="sc3">100</span><span class="sc12">,</span><span class="sc0">D1</span><span class="sc12">))</span><span class="sc24"> </span><span class="sc4">QUIT</span><span class="sc12">:</span><span class="sc0">D1</span><span class="sc12">'=+</span><span class="sc0">D1</span><span class="sc24">  </span><span class="sc4">DO</span><span class="sc24">

Revision as of 04:20, 30 July 2020


Well, ZWRITE ^PXD(811.8,,100,7,0) has to have a FOR command and a variable each time there is a ,, (comma,comma) in the ZWRITE argument or where there is a ,:, (comma, colon, comma) to stand in for that "Slot".

and then needs an IF for each constant bit after the slot.



So ^PXD(811.8,:) is looping through an Internal Entry Number

maps to code for a 0..# numeric value loop like:

SET IEN=0 FOR SET IEN=$O(^PXD(811.8,IEN)) QUIT:IEN'=+IEN <blah blah>



and ^PXD(811.8,"B",) is looping through a crossreference of a file

maps to code for an empty string through an empty string (string value) loop like:

SET SUB="" FOR SET SUB=$O(^PXD(811.8,"B",SUB)) QUIT:SUB="" <blah blah>



^PXD(811.8,,100,7,0) maps to the global map level

^PXD(811.8,D0,100,D1,0)= (#.01) XML DATA [1W] ^



the comma+comma maps to D0 (the IEN in the REMINDER EXCHANGE FILE)

and the 7 maps to D1 (the line number in the Word Processing field )



I doubt that you only want to change the pattern ="<USER>PRD, USER</USER>" when it is on the 7th line and ignore it if it is only any other line.



So D0 and D1 are both IENs so the both loops need to be of the numeric kind which I will put into lines of a program for clear code:



SET D0=0 FOR SET D0=$O(^PXD(811.8,D0)) QUIT:D0'=+D0 IF $DATA(^(D0,100)) DO

. SET D1=0 FOR SET D1=$O(^PXD(811.8,D0,100,D1)) QUIT:D1'=+D1 DO

. . IF $G(^(D1,0))?1"<USER>".E1"</USER>" DO

. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"

colorized =

<html> <style type="text/css"> span { font-family: 'Courier New'; font-size: 10pt; color: #000000; } .sc0 { } .sc2 { font-style: italic; color: #8080C0; } .sc3 { font-weight: bold; } .sc4 { font-weight: bold; color: #FF0000; } .sc5 { font-weight: bold; color: #FF8040; } .sc6 { font-weight: bold; color: #008000; } .sc12 { font-weight: bold; color: #FF00FF; } .sc16 { color: #0080FF; } .sc24 { } </style>

SET D0=0 FOR SET D0=$O(^PXD(811.8,D0)) QUIT:D0'=+D0 IF $DATA(^(D0,100)) DO

. SET D1=0 FOR SET D1=$O(^PXD(811.8,D0,100,D1)) QUIT:D1'=+D1 DO

. . IF $G(^(D1,0))?1"<USER>".E1"</USER>" DO

. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"

</html>

Retrieved from "https://vistapedia.com/index.php?title=Global_Search&oldid=18314"