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

Package: Lab Service

Routine: LRUWG


Information

LRUWG ; IHS/DIR/FJE - SINGLE TEST WORKLIST 2/22/94 09:45 ;

Source Information

Source file <LRUWG.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLTTW  

Entry Points

Name Comments DBIA/ICR reference
STF ;
SCN
END
D
H
TT
ACN
ST
WRT
QUE
T
ZZ
LRAD
ASK
NEW
L

External References

Name Field # of Occurrence
^%DT D
^DIC T, ASK
D^LRU LRAD
F^LRU H+1
L^LRU QUE+1
M^LRU H
SSN^LRU TT+2
T^LRU SCN
V^LRU END
BEG^LRUTL ST+3
END^LRUTL ACN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Single test worklist"
  • Line Location: LRUWG+4
Function Call: WRITE
  • Prompt: $C(7),!,"No INSTITUTION designated in LAB TEST FILE (#60, field 6)",!
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!,"No Accession AREA for this test",!
  • Line Location: T+4
Function Call: WRITE
  • Prompt: $C(7)," Date not specific enough"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",W(1)," ACCESSIONS IN FILE FOR ",LRH(0),!
  • Line Location: D+2
Function Call: READ
  • Prompt: "Start from accn #: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: N(1)
  • Line Location: ST+0
Function Call: READ
  • Prompt: "Go to accn #: LAST// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: N(2)
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY"
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !,$J(Z,3),") ",$J($S(T(5)>.999:T(5),1:T(5)*1000),5),?14,$P(N,"^",6)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L($P(N,"^",6))>21
  • Line Location: L+0
Function Call: WRITE
  • Prompt: ?37,N(7),?49,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?54,$P(N,"^",2),?60,$E($P(N,"^"),1,19),!?15
  • Line Location: L+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: L+1
Function Call: WRITE
  • Prompt: ?29,N(7),?41,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?45,$P(N,"^",2),?52,$E($P(N,"^"),1,20),?73,$P(N,"^",3),!?13
  • Line Location: L+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,^TMP($J,W,0)," Worklist",?40,"(* = STAT)"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COUNT",?6,"ACC#",?14,"RESULT",?29,"Completed",?40,"Tech",?45,"ID",?52,"PATIENT",?72,"LOCATION",!,LR("%"),!
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?15,T(2),T(3),":",!,LRH(0)
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: !?15,T(2),T(3),":",!,LRH(0)
  • Line Location: ZZ+0
Routine Call
  • DIC
  • Line Location:
    • T
    • ASK

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] TT+2
^DIC(4 - [#4] T+2
^LAB(60 - [#60] T+1, T+2, T+3, T+4, STF+1
^LR - [#63] TT+2
^LRO(68 - [#68] D+2, ACN, TT, TT+3, STF+2, LRAD
^TMP($J QUE+1!, ACN+1!, H+1, STF+1*, STF+2*, STF+4*, STF+6*, WRT, ZZ, SCN
^VA(200 - [#200] L+2

Label References

Name Line Occurrences
ASK T+3
D D+1, D+2
END LRUWG+4, T, D, ST, ST+1, ST+3, ACN+1
H NEW, WRT, ZZ
L SCN
LRAD D
NEW SCN
SCN ZZ
ST ST, ST+1
STF TT+3
T T+1, T+3, T+4
TT ACN
WRT ACN+1
ZZ WRT

Naked Globals

Name Field # of Occurrence
^( ACN, STF+1, ZZ
^(0 ACN, STF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT D*
>> %DT("A" D*
>> A ACN*
>> A(8 ZZ*
>> C(6 STF+4*
>> DFN TT+2*
DIC T*!, ASK*!
DIC("B" ASK*
DIC(0 T*, ASK*
DTIME ST, ST+1
DUZ(2 QUE+1
>> F T*, T+1, T+2, T+3, T+4, TT
>> HRCN STF+4, STF+6
IOF ACN+1
IOM L+2
IOSL ZZ, SCN
IOST ACN+1, H
>> LR("%" H+3
>> LR("F" H, WRT*
>> LR("Q" QUE+1*, H, NEW, WRT, ZZ, SCN
>> LRAA T+4*, LRAD
>> LRAD D+1, D+2, ACN, TT, TT+3, LRAD*
>> LRDFN ACN*, TT+2
>> LRDPF TT+2*
>> LRH(0 D+2, NEW, ZZ, LRAD*
>> LRLLOC ACN*, STF+4, STF+6
>> LRP TT+2*, STF+4, STF+6
>> LRPF TT+2*, STF+4
>> LRQ QUE+1*, WRT*
>> LRQ(1 QUE+1*
>> N QUE+1*, ACN*, L, L+2, TT, TT+3, STF+4*, STF+6, SCN*
>> N(1 ST*, QUE+1
>> N(2 ST+1*, ACN
>> N(7 L+2, SCN*
>> P STF+1*
>> POP ST+3
>> SSN TT+2*
>> T TT*, TT+3, STF+1, STF+4, STF+6, ZZ*, SCN
>> T(1 TT+3*, STF+4, STF+6
>> T(2 NEW, ZZ*
>> T(3 NEW, ZZ*
>> T(4 TT+3*, STF+4, STF+6
>> T(5 L, ZZ*, SCN*
>> T(6 TT+3*, STF+4, STF+6
U T, T+2, ST, ST+1, TT+2
>> V TT+3*, STF+4, STF+6
>> W T+4*, D+2, ACN, H+1, TT, TT+3, STF+1, STF+2, STF+4, STF+6
, WRT*, ZZ, SCN
>> W(1 T*, D+2
X T+1*, T+2, T+3, T+4*, D+1*, ACN*, L+2*, TT+2*, STF+1*, STF+2*
, ZZ*, ASK!, ASK+1*, LRAD*
X(1 T+2*, ASK
>> Y T, D, TT+2*, SCN*, ASK, ASK+1, LRAD*
>> Z L, SCN*
>> ZTQUEUED QUE
>> ZTREQ QUE*
>> ZTRTN ST+3*
>> ZTSK ST+3
Info |  Source |  Call Graph |  Caller 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