Difference between revisions of "Global Search"

From VistApedia
Jump to: navigation, search
(Created page with " 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, colo...")
 
 
(4 intermediate revisions by the same user not shown)
Line 4: Line 4:
  
 
and then needs an IF for each constant bit after the slot.
 
and then needs an IF for each constant bit after the slot.
−
 
−
 
  
  
Line 13: Line 11:
  
 
SET IEN=0 FOR  SET IEN=$O(^PXD(811.8,IEN)) QUIT:IEN'=+IEN  <blah blah>
 
SET IEN=0 FOR  SET IEN=$O(^PXD(811.8,IEN)) QUIT:IEN'=+IEN  <blah blah>
−
 
−
 
  
  
Line 22: Line 18:
  
 
SET SUB="" FOR SET SUB=$O(^PXD(811.8,"B",SUB)) QUIT:SUB=""  <blah blah>
 
SET SUB="" FOR SET SUB=$O(^PXD(811.8,"B",SUB)) QUIT:SUB=""  <blah blah>
−
 
−
 
  
  
Line 29: Line 23:
  
 
^PXD(811.8,D0,100,D1,0)=  (#.01) XML DATA [1W] ^
 
^PXD(811.8,D0,100,D1,0)=  (#.01) XML DATA [1W] ^
−
 
−
 
−
 
−
 
  
 
the comma+comma maps to D0 (the IEN in the REMINDER EXCHANGE FILE)
 
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 )
 
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.
 
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:
 
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 D0=0 FOR  SET D0=$O(^PXD(811.8,D0)) QUIT:D0'=+D0  IF $DATA(^(D0,100))  DO
Line 59: Line 40:
 
. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"   
 
. . . SET ^PXD(811.8,D0,100,D1,0)="<USER>PRD,USER</USER>"   
  
−
<nowiki>
+
== colorized ===
 +
<html>
 
<style type="text/css">
 
<style type="text/css">
 
span {
 
span {
Line 97: Line 79:
 
}
 
}
 
</style>
 
</style>
−
</head>
 
−
<body>
 
−
<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
 
−
</span><span class="sc24"> </span><span class="sc2">;;22.21062;VA FileMan;;Mar 30, 1999
 
−
</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">
+
<div style="float: left; white-space: pre; line-height: 1; background: #FFFFFF; ">
 +
<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">
Line 267: Line 88:
  
 
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc12">.</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">^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="sc3">0</span><span class="sc12">)=</span><span class="sc16">"&lt;USER&gt;PRD,USER&lt;/USER&gt;"</span><span class="sc24">   
 
</span><span class="sc12">.</span><span class="sc24"> </span><span class="sc12">.</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">^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="sc3">0</span><span class="sc12">)=</span><span class="sc16">"&lt;USER&gt;PRD,USER&lt;/USER&gt;"</span><span class="sc24">   
−
</span></div
+
</span></div>
−
</nowiki>
+
</html>

Latest revision as of 11:42, 7 August 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=18376"