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: LRUPACS

Package: Lab Service

Routine: LRUPACS


Information

LRUPACS ;AVAMC/REG - LAB ACCESSION COUNTS BY SHIFT ;2/18/93 13:09 ;

Source Information

Source file <LRUPACS.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (,D,F,L,M,S,V)^LRU  (BEG,EN,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 LRUPACS  

Entry Points

Name Comments DBIA/ICR reference
QUE
OUT
TOT
SUM
TST
Z
AC1
H
B
N
END

External References

Name Field # of Occurrence
^%DT B, B+2
^DIC LRUPACS+2
^LRU B
D^LRU B, B+2, B+5
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL LRUPACS+4
EN^LRUTL QUE
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,W(1)," ACCESSION & TEST COUNTS BY SHIFT"
  • Line Location: LRUPACS+3
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(61,S,0),"^"),1,19)
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !,?20,"-----",?35,"-----",?50,"-----",?65,"-------",!,"Total",$S($D(S):" Accessions",1:" Tests"),?20,$J(A(7),5),?35,$J(A(5),5),?50,$J(A(6),5),?65,$J(A(8),7)
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: ?20,$J(A(3),5),?35,$J(A(1),5),?50,$J(A(2),5),?65,$J(A(4),7)
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: TST+0
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(60,T,0),"^"),1,19)
  • Line Location: TST+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",W(1)," COUNTS",!?21,"From:",LRSTR," To:",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,?20,"12am-8am",?35,"8am-4pm",?50,"4pm-midnight",?65,"Total count",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: B+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: B+2
Function Call: WRITE
  • Prompt: $C(7),!?3,"Date cannot be TODAY."
  • Line Location: N+0
Routine Call
  • DIC
  • Line Location:
    • LRUPACS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TST+1
^LAB(61 - [#61] QUE+6
^LRO(68 - [#68] QUE+3, QUE+4, Z+1, AC1, AC1+1

Label References

Name Line Occurrences
AC1 Z+1
B LRUPACS+3, B+1, B+3
END LRUPACS+2, LRUPACS+3, LRUPACS+4, OUT
H QUE+5, QUE+6, TOT, TST, TST+1
N B+1, B+3
OUT QUE+7
SUM QUE+6, TST+1
TOT QUE+7
TST QUE+7
Z QUE+5

Naked Globals

Name Field # of Occurrence
^(0 AC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT B*!, B+2*!
%DT("A" B*, B+2*
%DT(0 B*
A QUE+7!
A( QUE+5*, TST*
A(1 QUE+6*, SUM, SUM+1, TST+1*
A(2 QUE+6*, SUM, SUM+1, TST+1*
A(3 QUE+6*, SUM, SUM+1, TST+1*
A(4 SUM*, SUM+1
A(5 TOT, TOT+1, SUM*
A(6 TOT, TOT+1, SUM*
A(7 TOT, TOT+1, SUM*
A(8 TOT, TOT+1, SUM*
>> B Z+1*
DIC LRUPACS+2*!
DIC("S" LRUPACS+2*
DIC(0 LRUPACS+2*
DT B+1, B+3
>> I Z+1*, AC1, AC1+1
IO QUE
IOF OUT
IOSL QUE+6, TOT, TST, TST+1
IOST OUT, H
>> LR("%" H+2
>> LR("F" QUE+5*, H
>> LR("Q" QUE+6, QUE+7, TOT, TST, TST+1, H
>> LRLDT QUE+2*, QUE+4, Z+1, B+3*, B+4*, B+5
>> LRLST H+1, B+5*
>> LRSDT QUE+3, Z+1, B+1*, B+4*, B+5
>> LRSTR H+1, B+5*
>> LRU AC1
>> POP LRUPACS+4
S QUE+5*, QUE+6*, QUE+7!, TOT, AC1*
S( QUE+6, AC1*
>> T TST*, TST+1*, AC1+1*
>> T( TST+1, AC1+1*
U LRUPACS+2, QUE+3, QUE+4
>> W LRUPACS+2*, QUE+3, QUE+4, Z+1, AC1, AC1+1
>> W(1 LRUPACS+2*, LRUPACS+3, H+1
>> W(6 Z+1*, AC1, AC1+1
X LRUPACS+4!, B*, B+2*, B+4*
XY LRUPACS+4!
Y LRUPACS+2, LRUPACS+3, LRUPACS+4!, Z+1*, AC1, AC1+1, B*, B+1, B+2*, B+3
, B+5*
>> Z QUE+3*, Z*, Z+1
>> Z(1 QUE+4*, Z+1
>> Z(3 Z+1*
>> ZTRTN LRUPACS+4*
>> ZTSK LRUPACS+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All