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 ; IHS/DIR/FJE - RESULTS FOR SELECTED LAB TESTS 3/3/94 12:11 ;

Source Information

Source file <LRUE.m>

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
END
D
H ;S LRQ=LRQ+1,%DT="T",X="N" D ^%DT,D^LRU W @IOF,!,Y,?23,"LABORATORY SERVICE ",LRQ(1),?IOM-10,"Pg:",LRQ,!,"From: ",LRSTR," To: ",LRLST,!?3,"SSN",?19,"Loc",?44,"Patient",!?3,"DATE" F X=0:0 S X=$O(N(X)) Q:'X W ?(16+(X*8)),$J(N(X),7)
H1 ;D H I W>1 W !,SSN,?19,$E(LRL,1,5),?44,LRP
S
QUE
W

External References

Name Field # of Occurrence
^%DT H+1
^DIC LRUE+5
B^LRU LRUE+6
D^LRU H+1
L^LRU QUE
S^LRU QUE
SSN^LRU W+2
V^LRU END
BEG^LRUTL LRUE+7
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+4
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+5
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J(N(X),7)
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J(N(X),7)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2
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
Function Call: WRITE
  • Prompt: W
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,HRCN,?19,$E(LRL,1,5),?44,LRP
  • Line Location: H1+1
Routine Call
  • DIC
  • Line Location:
    • LRUE+5

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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