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 ; IHS/DIR/FJE - ACCESSION AREA WORKLIST 2/22/94 07:21 ;

Source Information

Source file <LRUW.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUW  

Entry Points

Name Comments DBIA/ICR reference
STF ;
SCN
END
D
H
ACN
DEV
L
WRT
QUE
T ;S X=^LR(LRDFN,0),Y=$P(X,"^",3),LRDPF=$P(^(0),U,2),(X,LRPF)=^DIC($P(X,"^",2),0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
ZZ
LRAD
NEW
ST

External References

Name Field # of Occurrence
^%DT D
^DIC LRUW+5
D^LRU LRAD
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU T+1
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
  • 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:
    • LRUW+5

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^( ACN, T+2, STF+1, ZZ
^(0 ACN, T+1, 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 T+1*
DIC LRUW+5*!
DIC("A" LRUW+4*
DIC(0 LRUW+5*
DTIME ST, ST+1
>> HRCN STF+4, STF+6
IO QUE
IOF ACN+1
IOM L+2
IOSL ZZ, SCN
IOST ACN+1, H
>> LR("%" H+3
>> LR("F" H, WRT*
>> LR("Q" H, NEW, WRT, ZZ, SCN
>> LRAA LRUW+5*, LRAD
>> LRAD D+1, D+2, ACN, T+2, LRAD*
>> LRDFN ACN*, T+1
>> LRDPF T+1*
>> LRH(0 D+2, NEW, ZZ, LRAD*
>> LRLLOC ACN*, STF+4, STF+6
>> LRP T+1*, STF+4, STF+6
>> LRPF T+1*, STF+4
>> LRQ WRT*
>> N QUE*, ACN*, L, L+2, T+2, STF+4*, STF+6, SCN*
>> N(1 ST*, QUE
>> N(2 ST+1*, ACN
>> N(7 L+2, SCN*
>> P STF+1*
>> POP DEV
>> SSN T+1*
>> T T+2*, STF+1, STF+4, STF+6, ZZ*, SCN
>> T(1 T+2*, STF+4, STF+6
>> T(2 NEW, ZZ*
>> T(3 NEW, ZZ*
>> T(4 T+2*, STF+4, STF+6
>> T(5 L, ZZ*, SCN*
>> T(6 T+2*, STF+4, STF+6
U LRUW+5, ST, ST+1, T+1
>> V T+2*, STF+4, STF+6
>> W LRUW+5*, D+2, ACN, H+1, T+2, STF+1, STF+2, STF+4, STF+6, WRT*
, ZZ, SCN
>> W(1 LRUW+5*, D+2
>> X LRUW+5, D+1*, ACN*, L+2*, T+1*, T+2*, STF+1*, STF+2*, ZZ*, LRAD*
>> Y LRUW+5, D, T+1*, T+2*, 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