Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRDIST3

Package: Lab Service

Routine: LRDIST3


Information

LRDIST3 ;SLC/CJS - DATA DISTRIBUTION ; 2/22/87 1:53 PM ;

Source Information

Source file <LRDIST3.m>

Entry Points

Name Comments DBIA/ICR reference
Q3 ;from LRDIST1
WX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: Q3+1
Function Call: WRITE
  • Prompt: " ",$S($D(^LAB(61,^TMP("LR",$J,"X",LRII,3),0)):$P(^(0),U,1),1:"")
  • Condition for execution: LRSPEC=-1&(^TMP("LR",$J,"X",LRII,3)>0)
  • Line Location: Q3+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: Q3+4
Function Call: WRITE
  • Prompt: ?76,"*"
  • Line Location: Q3+5
Function Call: WRITE
  • Prompt: ?(^TMP("LR",$J,"X",LRII,2)-LRLM1/LRSTS\1+15),"X"
  • Line Location: Q3+6
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: $L(LRFOOT)=1
  • Line Location: WX+2
Function Call: WRITE
  • Prompt: LRFOOT
  • Line Location: WX+2
Function Call: WRITE
  • Prompt: " "
  • Line Location: WX+3
Function Call: WRITE
  • Prompt: $S(^TMP("LR",$J,"X",LRII,2)=LRLM2:"X",1:".")
  • Line Location: WX+5
Function Call: WRITE
  • Prompt: ?76,LRFOOT
  • Line Location: WX+5
Info |  Source |  Entry Points |  Interaction Calls