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

Package: Lab Service

Routine: LRBLJRB


Information

LRBLJRB ; IHS/DIR/FJE - UNIT ISSUE BOOK 2/18/93 09:30 ;

Source Information

Source file <LRBLJRB.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLIRB  

Entry Points

Name Comments DBIA/ICR reference
A
END
HDR
G
H
SUM
H1 ;D HDR Q:LR("Q") W !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location" W:IOM>80 ?81,"Patient SSN" W:IOM<81 !?53,"SSN" W !,LR("%") Q
QUE
T
W
ASK
X
D

External References

Name Field # of Occurrence
^%DT ASK+1, ASK+3, D
^LRU ASK+1
D^LRU ASK+4, ASK+5
F^LRU HDR+1
L^LRU QUE
M^LRU HDR
S^LRU QUE
SSN^LRU X+4
V^LRU END
YN^LRU LRBLJRB+5
BEG^LRUTL ASK+7
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"UNIT issue book"
  • Line Location: LRBLJRB+4
Function Call: WRITE
  • Prompt: !!,"Delete issue book entries over 31 days "
  • Line Location: LRBLJRB+5
Function Call: WRITE
  • Prompt: !!?15,"1. Print issue book entries by date",!?15,"2. Print issue book entries by patient"
  • Line Location: LRBLJRB+6
Function Call: READ
  • Prompt: "Select 1 or 2: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRA
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Enter a '1' or '2'.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,T,?12,$P(W,"^"),?25,M,?30,$P(G,"^",2),?34,V,?38,$E($P(G,"^",5),1,12),?51,$E($P(G,"^",6),1,19),?71,$E(L,1,8)
  • Line Location: X+2
Function Call: WRITE
  • Prompt: !,"TRANSFUSION SERVICE Unit issue book"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: ?81,"Patient SSN"
  • Condition for execution: IOM>80
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?53,"SSN"
  • Condition for execution: IOM<81
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: ?81,"Patient HRCN"
  • Condition for execution: IOM>80
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !?53,"HRCN"
  • Condition for execution: IOM<81
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Deletion completed.",!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,"-----------------------------------------",!,"Totals",?36,$J(T,5)
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !?8,L,?20,$J(L(L),5)
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: " (",$P(^LAB(66,X,0),"^"),")"
  • Condition for execution: X
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: ?(IOM-15),$J(X*100/Y,4,1),"% returned"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,"Unit counts by location from ",LRSTR," to ",LRLST,!,LR("%")
  • Line Location: H+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] X+4
^LAB(66 - [#66] X, SUM+2
^LRD(65 - [#65] QUE+1, X, W!, W+2, D!
^TMP($J QUE!, QUE+2, W+1*, W+2*
^VA(200 - [#200] X

Label References

Name Line Occurrences
A SUM
ASK ASK
D LRBLJRB+5
END LRBLJRB+4, LRBLJRB+5, ASK, ASK+2, ASK+4, ASK+7, QUE+3
G SUM+2
H SUM, SUM+2, A
H1 QUE, X+1
HDR H1+1, H
SUM QUE+3
T X
W QUE+1
X QUE+2

Naked Globals

Name Field # of Occurrence
^( QUE+2
^(0 X, X+4
^(3 X

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLJRB+5*
%DT ASK+1*!, ASK+3*!, D*
%DT("A" ASK+1*, ASK+3*
%DT(0 ASK+1*
>> A QUE+1*, QUE+2*, W+1, W+2, D*, SUM*, SUM+2*, A
>> B QUE+1*, QUE+2*, X, W, W+1, W+2, A*
>> C QUE+1*, QUE+2*, X, W, W+1, W+2
>> DFN X+4*
DT ASK+1, ASK+3
DTIME ASK
>> E QUE+1*
>> F QUE+1*
G QUE+2!, X*, X+2, W+2*
G( X+5*, SUM, A
G("BLOOD BANK " , SUM+2, G
G(6 W+2*
>> H(10 ASK+1, ASK+3
>> HRCN X+4
>> I QUE+2*
IO QUE
IOF QUE+3
IOM X+4, H1+1, G
IOSL X+1, SUM+2, A
IOST QUE+3, HDR
>> J QUE+2*
>> L X*, X+2, X+5*, SUM+2*, G
>> L( SUM+2, A*, G
>> LR("%" H1+1, H
>> LR("F" QUE*, HDR
>> LR("Q" QUE+2, QUE+3, X+1, HDR, H1+1, SUM, SUM+2, A, H
>> LRA ASK*, QUE+2*, W+1
>> LRDPF X+4*
>> LRLDT ASK+4*, ASK+5, ASK+6*, QUE+1
>> LRLST ASK+4*, ASK+5*, H
>> LRSDT ASK+2*, ASK+4*, ASK+5, ASK+6*, QUE+1
>> LRSTR ASK+5*, H
>> M X*, X+2, X+5, A*
>> POP ASK+7
>> SSN X+4*
>> T X*, X+2, T*, SUM*, SUM+1
>> V X*, X+2
>> W X*, X+2
>> X ASK+1, ASK+3, ASK+4*, X+2*, X+4*, D*, SUM+2*, G*
>> Y ASK+1*, ASK+2, ASK+3*, ASK+4, ASK+5*, D, G*
>> Z SUM*, A
>> ZTRTN ASK+7*
>> ZTSK ASK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All