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

Package: Lab Service

Routine: LRSORA2


Information

LRSORA2 ;DALOI/KCM/DRH/RLM-SEARCH LAB DATA AND PRINT REPORT ;8/28/89 12:07

Source Information

Source file <LRSORA2.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
MAINLOOP ;
END ;
SET ;
PRTCONT ;
COND1 ;
COND2 ;
COND3 ;
COND4 ;
PAGE ;
NEWPAT ;
NEWSPEC ;
NEWTST ;
SAMETST ;
CHKPG ;
PRSPEC ;
PRTEST ;
COM ;Print comments on specimen
SUMMARY ;
HDR1 ;
HDR2 ;
WAIT
CHNCASE ;
LEGEND ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " COMMENT: ",@LRSORTI,!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: ?2,$E(LRSPEC,1,10)
  • Line Location: PRSPEC+1
Function Call: WRITE
  • Prompt: ?14,$S(LRTHER:"Th. Range ",1:"Ref. Range: "),LRLO
  • Line Location: PRSPEC+2
Function Call: WRITE
  • Prompt: "-",LRHI," ",LRUNITS,!
  • Line Location: PRSPEC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTEST+3
Function Call: WRITE
  • Prompt: ?4,$E(LRTEST,1,12),?14,LRAN,?30,$J(LRVAL,4)
  • Line Location: PRTEST+5
Function Call: WRITE
  • Prompt: ?33,LRMRK,?40,$E(LRCDT,1,6)_" "_$E($P(LRCDT,",",2),2,5)
  • Line Location: PRTEST+6
Function Call: WRITE
  • Prompt: " at ",$P(LRCDT,"@",2)
  • Line Location: PRTEST+7
Function Call: WRITE
  • Prompt: ?64,LRLOC,!
  • Line Location: PRTEST+8
Function Call: WRITE
  • Prompt: !," COMMENT(S): "
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !,?20,"END OF SPECIAL REPORT"
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: "SPECIAL REPORT",?31
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: "Report Date: "
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$NOW^XLFDT,"")
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,LRHDR2,?71,"Pg ",$J(LRPAG,3)
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !,PNM,?28,SSN,?61,$E(LRWRD,1,16),!
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !,"Search Criteria:"
  • Line Location: LEGEND+2
Function Call: WRITE
  • Prompt: !,%,") "
  • Line Location: LEGEND+4
Function Call: WRITE
  • Prompt: LRCHNG," "
  • Line Location: LEGEND+5
Function Call: WRITE
  • Prompt: $P(LRTST(%,2),U,3)," Specimen: "
  • Line Location: LEGEND+6
Info |  Source |  Entry Points |  Interaction Calls