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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUE

Package: Lab Service

Routine: LRUE


Information

LRUE ;AVAMC/REG - RESULTS FOR SELECTED LAB TESTS ;3/3/94 12:11 ;

Source Information

Source file <LRUE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (B,D,L,S,SSN,V)^LRU  (BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^DIC  

Entry Points

Name Comments DBIA/ICR reference
QUE
D
W
S
H
H1
END

External References

Name Field # of Occurrence
^%DT H
^DIC LRUE+3
B^LRU LRUE+4
D^LRU H
L^LRU QUE
S^LRU QUE
SSN^LRU W+1
V^LRU END
BEG^LRUTL LRUE+5
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Find results for one or more tests (maximum of 13)",!?23,"from one date to another",!
  • Line Location: LRUE+2
Function Call: WRITE
  • Prompt: !!?30,"Summary Report",!,"Patient count: ",LRA
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,N(A),?8,"Repeat tests in one day:",$J(LRT(A),6)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: ?40,"(",$J(LRT(A)*100\LRC(A),2),"%)"
  • Condition for execution: LRT(A)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: ?46,"Total tests:",$J(LRC(A),5)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: Q
  • Line Location: D+0
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J(Y,7)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J(N(X),7)
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: W
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,SSN,?19,$E(LRL,1,5),?44,LRP
  • Line Location: H1+0
Routine Call
  • DIC
  • Line Location:
    • LRUE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W+1
^LAB(60 - [#60] LRUE+3
^LAB(61 - [#61] QUE, W+2
^LR - [#63] QUE+1, D, W, W+1, W+3

Label References

Name Line Occurrences
D QUE+1
END LRUE+2, LRUE+4, LRUE+5, QUE+4
H QUE, QUE+2, H1
H1 W+2
S D+1, W+4
W D

Naked Globals

Name Field # of Occurrence
^( W+1, W+3
^(0 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
>> A LRUE+3*, LRUE+4, QUE+3*, D*
>> B D*
DIC LRUE+3*!
DIC("S" LRUE+3*
DIC(0 LRUE+3*
IO QUE
IOF H
IOM H
>> L( LRUE+3*, D, W+3
>> LR("%" H+1
>> LRA QUE*, QUE+2, W+1*
LRB S+1!
LRB( W+3*, S
>> LRC( LRUE+3*, QUE+3, W+3*
>> LRD W*, W+1, W+4
>> LRD(1 W+1*, W+4*
>> LRDFN QUE+1*, D, W, W+1, W+3
>> LRDPF W+1*
>> LRI QUE+1*, D*, W, W+3
>> LRL W+1*, W+2, H1
>> LRLDT LRUE+4*, QUE+1
>> LRLST H
>> LRP W+1*, W+2, H1
>> LRQ H*
>> LRQ(1 H
>> LRSDT LRUE+4*, D
>> LRSTR H
>> LRT( QUE+3, S*
>> N( LRUE+3*, QUE+3, H
>> POP LRUE+5
>> SSN W+1*, W+2, H1
>> T W*, W+2
>> T(1 W*, W+2
U LRUE+3
>> V W+1*
>> W QUE+1*, W*, W+1, W+2, H1
>> X LRUE+3, W*, W+1*, W+3*, H*
>> Y LRUE+3, LRUE+4, W*, W+1*, W+3*, S*, H
>> Y(0 LRUE+3
>> Z(2 QUE*, W+2
>> Z(3 QUE*, W+2
>> Z(5 QUE*, W+2
>> ZTRTN LRUE+5*
>> ZTSK LRUE+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All