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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRUET

Package: Lab Service

Routine: LRUET


Information

LRUET ; IHS/DIR/FJE - RESULTS FOR A TEST RANGE 2/18/93 12:43 ;

Source Information

Source file <LRUET.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,DT,F,L,M,S,SSN,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
END
D
H
H1
S ;S DFN=$P(^LR(LRDFN,0),"^",3) Q:'DFN S X=^DPT(DFN,0),LRP=$P(X,"^"),SSN=$P(X,"^",9),^TMP($J,LRP,LRDFN,LRN,LRI)=$P(^LR(LRDFN,"CH",LRI,LRN),"^"),^TMP($J,LRP)=SSN,^TMP($J,"B",LRP,LRI)=$P(^LR(LRDFN,"CH",LRI,0),"^",11) Q
QUE
LRT
W
ASK

External References

Name Field # of Occurrence
^DIC LRUET+5, ASK
B^LRU B+2
DT^LRU W
F^LRU H+2
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU S+1
V^LRU LRUET+4, END
BEG^LRUTL B+3
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRUET+4
Function Call: WRITE
  • Prompt: $C(7),!,"Not a valid specimen for the test selected."
  • Line Location: ASK+0
Function Call: READ
  • Prompt: "Select 1 or 2: "
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,?15,"1. Greater than a value",!?15,"2. Less than a value",!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," Enter 1 or 2"
  • Line Location: A+0
Function Call: READ
  • Prompt: "Select value: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"Must be a numeric value."
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !!,LRP,?31,X
  • Line Location: LRT+0
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,^TMP($J,"B",LRP,LRI)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?31,N(1)
  • Condition for execution: LRE=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?41,Y,?65,$J(LRX,5)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRQ(2)," From: ",LRSTR," to ",LRLST,!,"Report for: ",$P(^VA(200,DUZ,0),U),!,"Patient",?34,"SSN",!,"Location",?31,"Test",?45,"Date",?65,"Result",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRQ(2)," From: ",LRSTR," to ",LRLST,!,"Report for: ",$P(^VA(200,DUZ,0),U),!,"Patient",?34,"HRCN",!,"Location",?31,"Test",?45,"Date",?65,"Result",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRP,?31,^TMP($J,LRP)
  • Line Location: H1+0
Routine Call
  • DIC
  • Line Location:
    • LRUET+5
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] S+1
^LAB(60 - [#60] LRUET+6, ASK
^LR - [#63] QUE+1, C, S+1, S+2
^TMP($J QUE!, QUE+2!, S+2*, D, LRT, LRT+1, W, H1
^VA(200 - [#200] H+2

Label References

Name Line Occurrences
A A
ASK ASK
B B
C QUE+1
D QUE+2
END LRUET+5, ASK, A, B, QUE+2
H QUE, LRT, H1
H1 LRT+1, W
LRT D
S C
W LRT+1

Naked Globals

Name Field # of Occurrence
^( C, LRT+1
^(0 QUE+1, C

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+1*
>> DFN S+1*
DIC LRUET+5*!, ASK*!
DIC("A" LRUET+4*, ASK*
DIC("S" LRUET+5*
DIC(0 LRUET+5*, ASK*
DTIME A, B
DUZ H+2
>> HRCN S+2
IO QUE
IOSL LRT, LRT+1, W
IOST H
>> LR("%" H+2
>> LR("F" QUE*, H
>> LR("Q" D, LRT, LRT+1, W, H, H1
>> LRA ASK*, C, D*
>> LRA(1 ASK*, B+1
>> LRB B+1*, C
>> LRC LRUET+6*, ASK
>> LRDFN QUE+1*, C, S+1, S+2, D*, LRT+1
>> LRE LRT+1*, W
>> LRG A+1*, B+1, C
>> LRI QUE+1*, C, S+2, LRT+1*, W
>> LRLDT B+2*, QUE+1
>> LRLDT(1 B+2*
>> LRLST H+2
>> LRN LRUET+6*, C, S+2
>> LRP S+1*, S+2, D*, LRT, LRT+1, W, H1
>> LRQ(2 B+1*, H+2
>> LRSDT B+2*, QUE+1
>> LRSDT(1 B+2*
>> LRSTR H+2
>> LRT LRT+1*
>> LRX LRT+1*, W
>> N(1 LRUET+6*, B+1, W
>> POP B+3
>> SSN S+1*
U LRUET+6, ASK, A, B, H+2
>> X A*, A+1, B*, B+1, C*, S+1*, LRT*
>> Y LRUET+5, LRUET+6, ASK, B+2, W*
>> Y(0 LRUET+6
>> ZTRTN B+3*
>> ZTSK B+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All