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 ;AVAMC/REG - SINGLE TEST WORKLIST ;2/22/94 09:45 ;

Source Information

Source file <LRUWG.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLTTW  

Entry Points

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

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+1
T^LRU SCN
V^LRU END
BEG^LRUTL ST+2
END^LRUTL ACN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Single test worklist"
  • Line Location: LRUWG+2
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
  • Formatting: !!
  • Prompt: "Start from accn #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: ST+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Go to accn #: LAST// "
  • Variable: N(2)
  • Timeout: DTIME
  • 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: !,^TMP($J,W,0)," Worklist",?40,"(* = STAT)"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COUNT",?6,"ACC#",?17,"RESULT",?37,"Completed",?49,"Tech",?54,"ID",?60,"PATIENT",!,LR("%"),!
  • Line Location: H+2
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+1
^DIC(4 - [#4] T+2
^LAB(60 - [#60] T+1, T+2, T+3, T+4, STF+1
^LR - [#63] TT+1
^LRO(68 - [#68] D+2, ACN, TT, TT+2, STF+2, LRAD
^TMP($J QUE+1!, ACN+1!, H+1, STF+1*, STF+2*, STF+3*, STF+4*, WRT, ZZ, SCN
^VA(200 - [#200] L+1

Label References

Name Line Occurrences
ASK T+3
D D+1, D+2
END LRUWG+2, T, D, ST, ST+1, ST+2, ACN+1
H NEW, WRT, ZZ
L SCN
LRAD D
NEW SCN
SCN ZZ
ST ST, ST+1
STF TT+2
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+3*
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
IOF ACN+1
IOM L+1
IOSL ZZ, SCN
IOST ACN+1, H
>> LR("%" H+2
>> 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+2, LRAD*
>> LRDFN ACN*, TT+1
>> LRDPF TT+1*
>> LRH(0 D+2, NEW, ZZ, LRAD*
>> LRLLOC ACN*, STF+3, STF+4
>> LRP TT+1*, STF+3, STF+4
>> LRPF TT+1*, STF+3
>> LRQ QUE+1*, WRT*
>> LRQ(1 QUE+1*
>> N QUE+1*, ACN*, L, L+1, TT, TT+2, STF+3*, STF+4, SCN*
>> N(1 ST*, QUE+1
>> N(2 ST+1*, ACN
>> N(7 L+1, SCN*
>> P STF+1*
>> POP ST+2
>> SSN TT+1*
>> SSN(1 STF+3, STF+4
>> T TT*, TT+2, STF+1, STF+3, STF+4, ZZ*, SCN
>> T(1 TT+2*, STF+3, STF+4
>> T(2 NEW, ZZ*
>> T(3 NEW, ZZ*
>> T(4 TT+2*, STF+3, STF+4
>> T(5 L, ZZ*, SCN*
>> T(6 TT+2*, STF+3, STF+4
U T, T+2, ST, ST+1, TT+1
>> V TT+2*, STF+3, STF+4
>> W T+4*, D+2, ACN, H+1, TT, TT+2, STF+1, STF+2, STF+3, STF+4
, WRT*, ZZ, SCN
>> W(1 T*, D+2
X T+1*, T+2, T+3, T+4*, D+1*, ACN*, L+1*, TT+1*, STF+1*, STF+2*
, ZZ*, ASK!, ASK+1*, LRAD*
X(1 T+2*, ASK
>> Y T, D, TT+1*, SCN*, ASK, ASK+1, LRAD*
>> Z L, SCN*
>> ZTQUEUED QUE
>> ZTREQ QUE*
>> ZTRTN ST+2*
>> ZTSK ST+2
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