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: LRDIST2

Package: Lab Service

Routine: LRDIST2


Information

LRDIST2 ;SLC/DM - WRITE SUMMARY OF LEVY-JENNINGS LRQC CHART ;2/5/91 13:06 ;

Source Information

Source file <LRDIST2.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENTD ;from LRDIST1
LREND ;from LRDIST1
WX
LRSD ;from LRDIST1
SQRT ;%Y=SQRT(%X)
L

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: PNM,?35," ",SSN,?69," ",LRDT0,!!?18,"ACTUAL:",?39,"TARGET:",?65,"VALUE OUTSIDE:"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !?10,"+--------------------+",?35,"+------------+"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?2,"TEST",?11,"MEAN",?19,"SD",?25,"CV",?30,"N",?36,"MEAN",?44,"SD",?50,"FL",?53,"ACCESSION",?69,"2SD",?75,"3SD"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"---------",?10,"------",?17,"------",?24,"----",?29,"---",?35,"------",?42,"-------",?50,"--",?53,"-------------",?68,"----",?74,"----",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: ?10,$J(%X,6,3),?17,$J(LRSD,6,3),?24,$J(LRCV,4,1)
  • Line Location: ENTD+2
Function Call: WRITE
  • Prompt: ?10,$J(LRVAL,6,3)
  • Condition for execution: LRNC>0
  • Line Location: ENTD+3
Function Call: WRITE
  • Prompt: ?14,"**"
  • Condition for execution: LRNC<1
  • Line Location: ENTD+3
Function Call: WRITE
  • Prompt: ?17," ** **"
  • Line Location: ENTD+3
Function Call: WRITE
  • Prompt: ?29,$J(LRNC,3)
  • Line Location: ENTD+4
Function Call: WRITE
  • Prompt: ?35,$J(LREM,6,3),?42,$J(LRESD,6,3)
  • Condition for execution: LREM'=""&(LRESD'="")
  • Line Location: ENTD+4
Function Call: WRITE
  • Prompt: ?35,"No reference range available"
  • Line Location: ENTD+5
Function Call: WRITE
  • Prompt: ?50,$J(I,2,0),?53,$E(^TMP("LR",$J,"X",LRFOOT(I),4),1,15)
  • Line Location: ENTD+6
Function Call: WRITE
  • Prompt: ?$S(X>LRLM2!(X<LRLM1):74,1:68),X
  • Line Location: ENTD+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $O(LRFOOT(I))>0
  • Line Location: ENTD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LREND+2
Info |  Source |  Entry Points |  Interaction Calls