Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 3 $$LOWCASE^LRAFUNC  BUILD^LRSORA3  LRGLIN^LRX  
VA Fileman 2 DD^%DT  ^DIR  
IHS Changes To Lab 1 LABHDR^BLRUTIL2  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 1 BLRSORA  
Lab Service 1 LRSORA  

Entry Points

Name Comments DBIA/ICR reference
COND4 ;
COND1 ;
COND3 ;
COND2 ;
PRTCONT ;
COM ;Print comments on specimen
LEGEND ;
SET ;
HDR2 ;
; W !,PNM,?28,SSN,?61,$E(LRWRD,1,16),!
HDR1 ;
NEWSPEC ;
MAINLOOP ;
PRSPEC ;
CHNCASE ;
NEWPAT ;
; D HDR2 S LRPATCK=SSN
END ;
NEWTST ;
SUMMARY ;
START ;
SAMETST ;
CHKPG ;
WAIT
PRTEST ;
PAGE ;

External References

Name Field # of Occurrence
DD^%DT SET+17
LABHDR^BLRUTIL2 HDR1+1
^DIR WAIT
$$LOWCASE^LRAFUNC CHNCASE+1
BUILD^LRSORA3 START+1
LRGLIN^LRX HDR1+9, LEGEND+1
$$FMTE^XLFDT HDR1+7
$$NOW^XLFDT HDR1+7

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: ?4,$E(LRTEST,1,12),?14,LRAN,?30,$J(LRVAL,4)
  • Line Location: PRTEST+4
Function Call: WRITE
  • Prompt: ?33,LRMRK,?40,$E(LRCDT,1,6)_" "_$E($P(LRCDT,",",2),2,5)
  • Line Location: PRTEST+5
Function Call: WRITE
  • Prompt: " at ",$P(LRCDT,"@",2)
  • Line Location: PRTEST+6
Function Call: WRITE
  • Prompt: ?64,LRLOC,!
  • Line Location: PRTEST+7
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+5
Function Call: WRITE
  • Prompt: "Report Date: "
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$NOW^XLFDT,"")
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,LRHDR2,?71,"Pg ",$J(LRPAG,3)
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !,PNM,?28,SSN,?61,$E(LRWRD,1,16),!
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !,PNM,?28,HRCN,?61,$E(LRWRD,1,16),!
  • Line Location: HDR2+2
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
Routine Call
  • DIR
  • Line Location:
    • WAIT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("LR" COM+3

Label References

Name Line Occurrences
CHKPG PRTCONT+3, COM+5, SUMMARY+1
CHNCASE SET+7, LEGEND+4
COND1 PRTCONT+4
COND2 PRTCONT+6
COND3 PRTCONT+7, PRTCONT+8
COND4 PRTCONT+9
END START+4, START+6
HDR1 PAGE+2
HDR2 NEWPAT+2
LEGEND CHKPG+4, SUMMARY+2
MAINLOOP START+4
NEWPAT COND1+2, COND2+1
NEWSPEC COND1+3, COND2+2, COND3+1
NEWTST COND1+4, COND2+3, COND3+2, COND4+1
PAGE COND1+1
PRSPEC NEWSPEC+1
PRTCONT MAINLOOP+5
PRTEST NEWTST+1, SAMETST+1
SET MAINLOOP+4
SUMMARY START+5
WAIT CHKPG+5, COM+5, SUMMARY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR1+3*, LEGEND+3*, LEGEND+4, LEGEND+6, LEGEND+7
>> C COM+2*, COM+3*
DIR END+1!, WAIT!
DIR(0 WAIT*
>> DTOUT WAIT
>> DUOUT WAIT
>> HRCN SET+5*, SET+15, PRTCONT+6, NEWPAT+2, HDR2+2
>> I SUMMARY+3*
IOF START+3, PAGE+1, CHKPG+4
IOSL CHKPG+3, COM+4, SUMMARY+1, SUMMARY+3
IOST START+3, PAGE+1, CHKPG+4, CHKPG+5, COM+5, SUMMARY+1
LRAN END+3!, SET+10*, PRTEST+4, COM+3
LRCDT END+4!, SET+10*, SET+17*, PRTEST+5, PRTEST+6
>> LRCHKSP HDR1+11*
LRCHNG END+3!, SET+7*, CHNCASE+1*, LEGEND+4*, LEGEND+5
>> LRCNT CHKPG+1*, CHKPG+3, SUMMARY+1
LRCOMX END+2!, SET+1*, SET+2*, PRTEST+1, PRTEST+3*
LRCOUNT END+4!, PRTCONT+2*, COND1+4*, COND2+3*, COND3+2*, COND4+1*
>> LREND START+4, START+5, MAINLOOP+3, MAINLOOP+4, MAINLOOP+5, PRTCONT+1, PRTCONT+3, CHKPG+2, CHKPG+5, PRTEST+2
, PRTEST+8, COM+1, COM+3, COM+5, COM+7, SUMMARY+1, WAIT*
>> LRHDR2 HDR1+8
LRHI END+3!, SET+8*, PRSPEC+3
LRLO END+3!, SET+8*, PRSPEC+2
>> LRLOC SET+4*, PRTEST+7
LRMRK END+3!, SET+9*, PRTEST+5
LROLD MAINLOOP+1*, END+2!, SET+15*
>> LRPAG HDR1+4*, HDR1+8
>> LRPATCK START+2*, PRTCONT+6, NEWPAT+2*
LRPREC END+3!, END+4!, SET+3*, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SET+11
, SET+13, SET+16
LRSORTI MAINLOOP+2*, MAINLOOP+3*, END+2!, SET+2, SET+3
LRSPCK START+2*, MAINLOOP+1*, END+2!, PRTCONT+7, NEWSPEC+1*
>> LRSPEC SET+6*, SET+7*, PRTCONT+7, NEWSPEC+1, PRSPEC+1
>> LRSUB1 COM+3
>> LRSUB2 COM+3
>> LRSUB3 COM+3
LRTEST END+4!, SET+13*, PRTCONT+8, PRTCONT+9, NEWTST+1, PRTEST+4
>> LRTHER SET+9*, PRSPEC+2
LRTOP MAINLOOP+1*, END+2!, SET+15*, PAGE+2*, CHKPG+5*, PRTEST+8, HDR1+10*
>> LRTST LEGEND+3
>> LRTST( LEGEND+4, LEGEND+6, LEGEND+7
>> LRTST(0 HDR1+2*, HDR1+3
>> LRTSTCK START+2*, MAINLOOP+1*, PRTCONT+8, PRTCONT+9, NEWTST+1*
LRTSTK END+2!
LRUNITS END+4!, SET+16*, PRSPEC+3
LRVAL END+3!, SET+8*, PRTEST+4
LRWRD END+3!, SET+11*, SET+12*, HDR2+2
NEWPG START+2*, END+4!, PRTCONT+4, COND1+1*, CHKPG+3*
PNM END+3!, SET+4*, HDR2+2
REFCK MAINLOOP+1*, END+2!
>> SSN SET+4*
U SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SET+11, SET+13, SET+16, LEGEND+4
, LEGEND+6, LEGEND+7
>> Y SET+17*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All