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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUW

Package: Lab Service

Routine: LRUW


Information

LRUW ;AVAMC/REG - ACCESSION AREA WORKLIST ;2/22/94 07:21 ;

Source Information

Source file <LRUW.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (D,F,L,M,S,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 LRUW  

Entry Points

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

External References

Name Field # of Occurrence
^%DT D
^DIC LRUW+3
D^LRU LRAD
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU T
T^LRU SCN
V^LRU END
BEG^LRUTL DEV
END^LRUTL ACN+1

Interaction Calls

Name Line Occurrences
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:
    • LRUW+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] T
^LAB(60 - [#60] T+1, STF+1
^LR - [#63] T
^LRO(68 - [#68] D+2, ACN, T+1, STF+2, LRAD
^TMP($J QUE!, 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
D D+1, D+2
END LRUW+2, LRUW+3, D, ST, ST+1, DEV, ACN+1
H NEW, WRT, ZZ
L SCN
LRAD D
NEW SCN
SCN ZZ
ST ST, ST+1
STF T+1
T ACN
WRT ACN+1
ZZ WRT

Naked Globals

Name Field # of Occurrence
^( ACN, T+1, STF+1, ZZ
^(0 ACN, T, 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 LRUW+3*!
DIC("A" LRUW+2*
DIC(0 LRUW+3*
DTIME ST, ST+1
IO QUE
IOF ACN+1
IOM L+1
IOSL ZZ, SCN
IOST ACN+1, H
>> LR("%" H+2
>> LR("F" H, WRT*
>> LR("Q" H, NEW, WRT, ZZ, SCN
>> LRAA LRUW+3*, LRAD
>> LRAD D+1, D+2, ACN, T+1, LRAD*
>> LRDFN ACN*, T
>> LRDPF T*
>> LRH(0 D+2, NEW, ZZ, LRAD*
>> LRLLOC ACN*, STF+3, STF+4
>> LRP T*, STF+3, STF+4
>> LRPF T*, STF+3
>> LRQ WRT*
>> N QUE*, ACN*, L, L+1, T+1, STF+3*, STF+4, SCN*
>> N(1 ST*, QUE
>> N(2 ST+1*, ACN
>> N(7 L+1, SCN*
>> P STF+1*
>> POP DEV
>> SSN T*
>> SSN(1 STF+3, STF+4
>> T T+1*, STF+1, STF+3, STF+4, ZZ*, SCN
>> T(1 T+1*, STF+3, STF+4
>> T(2 NEW, ZZ*
>> T(3 NEW, ZZ*
>> T(4 T+1*, STF+3, STF+4
>> T(5 L, ZZ*, SCN*
>> T(6 T+1*, STF+3, STF+4
U LRUW+3, ST, ST+1, T
>> V T+1*, STF+3, STF+4
>> W LRUW+3*, D+2, ACN, H+1, T+1, STF+1, STF+2, STF+3, STF+4, WRT*
, ZZ, SCN
>> W(1 LRUW+3*, D+2
>> X LRUW+3, D+1*, ACN*, L+1*, T*, T+1*, STF+1*, STF+2*, ZZ*, LRAD*
>> Y LRUW+3, D, T*, T+1*, SCN*, LRAD*
>> Z L, SCN*
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All