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

Package: Lab Service

Routine: LRBLJW


Information

LRBLJW ; IHS/DIR/AAB - INVENTORY ABO/RH WORKSHEET 6/14/96 20:40 ;

Source Information

Source file <LRBLJW.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIWP  ^DIWW  
Lab Service 2 (F,L,M,S,V,YN)^LRU  (,BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLIW  

Entry Points

Name Comments DBIA/ICR reference
C
FT
D
H
INV
H1
M
WRK
L
S
QUE
W
END

External References

Name Field # of Occurrence
^DIC C
^DIWP FT+2
^DIWW FT+3
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
YN^LRU LRBLJW+5, LRBLJW+6, LRBLJW+8, C+1, C+2
^LRUTL LRBLJW+3
BEG^LRUTL LRBLJW+9
END^LRUTL QUE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?24,"PRINT ABO/RH INVENTORY WORKSHEET",!!
  • Line Location: LRBLJW+4
Function Call: WRITE
  • Prompt: !,"List ABO/Rh worksheet entries "
  • Line Location: LRBLJW+5
Function Call: WRITE
  • Prompt: !,"Add/delete ABO/Rh worksheet entries "
  • Line Location: LRBLJW+6
Function Call: WRITE
  • Prompt: $C(7),!!,"THERE ARE NO ENTRIES TO PRINT !"
  • Line Location: LRBLJW+7
Function Call: WRITE
  • Prompt: !!,"Save list for repeat printing "
  • Line Location: LRBLJW+8
Function Call: WRITE
  • Prompt: !,$J(C,3),")",?5,$P(LRI,"^"),?19,$J($P(LRI,"^",7),2),?23,$P(LRI,"^",8),?27,"|",?38,"|",?43,"| | | | | | | |",!,LR("%")
  • Line Location: WRK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't add this to the worksheet now ",!!,"Someone else is editing this record",!!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't delete this from the worksheet now",!!,"Someone else is editing this record",!!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: W:C#2=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C#2=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40
  • Condition for execution: C#2=0
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $J(C,2),") ",$P(LRI,"^")," ",$J($P(LRI,"^",7),2)," ",$P(LRI,"^",8)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Invoice #: ",F
  • Line Location: INV+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,LRO(68)," INVENTORY ABO/Rh TESTING WORKSHEET"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Incubator temp:",?28,"Reagent rack:",!,"Num",?5,"Donor ID",?18,"|Supplier",?27,"|VA interp",?38,"| |---ANTI----|Rh| |Du|"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?18,"|ABO Rh",?27,"| ABO Rh",?38,"|tech",?42,"|A |B |AB| D|Ct|Du|Ct|",!,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,"INVENTORY WORKSHEET must be an entry in the LAB LETTER FILE (65.9)",!,"to print legend."
  • Line Location: FT+0
Routine Call
  • DIC
  • Line Location:
    • C

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(65.9 - [#65.9] FT, FT+1, FT+2
^LRD(65 - [#65] S
^LRO(69.2 - [#69.2] LRBLJW+3, LRBLJW+5, LRBLJW+7, QUE+1!, S, C+1, C+3, C+4, C+5*, D
, D+1!
^TMP($J LRBLJW+5!, S*, L+1, FT+1!

Label References

Name Line Occurrences
@( L+1
C LRBLJW+6, C+1, C+2, C+4, C+6
D C+1
END LRBLJW+3, LRBLJW+9, QUE+1
FT QUE+1
H QUE, H1, FT+1, FT+2
H1 WRK
INV L+1, H1
L LRBLJW+5, QUE+1
M W
S L

Naked Globals

Name Field # of Occurrence
^( L+1
^(0 LRBLJW+3*, S, C+3*, C+5*, D+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLJW+5*, LRBLJW+6*, LRBLJW+8*, C+1*, C+2*
>> A L*, L+1*
>> B L+1*
>> C WRK, L*, L+1*, W
>> C(3 QUE*
DIC C*!
DIC("A" C*
DIC("S" C*
DIC(0 C*
>> DIWF FT+1*
>> DIWL FT+1*
>> DIWR FT+1*
DTIME M
>> E L*
>> F L*, L+1*, INV
>> G L+1*
>> I L+1*
IO QUE
IOM FT+1
IOSL WRK, FT+1, FT+2
IOST H
>> LR S*, C*, C+1, C+5, D+1
>> LR("%" WRK, H+3
>> LR("F" QUE*, H
>> LR("M" LRBLJW+3*
>> LR("Q" LRBLJW+5*, WRK, L+1, INV, M*, H, FT+1, FT+2, FT+3
>> LRA FT+2*
>> LRAA LRBLJW+3, LRBLJW+5, LRBLJW+7, QUE+1, S, C+1, C+3, C+4, C+5, D
, D+1
>> LRI WRK, L+1*, W, FT*, FT+1, FT+2
>> LRN QUE+1*, L+1
>> LRO(68 H+1
>> LRZ FT+2*, FT+3
>> POP LRBLJW+9
>> S LRBLJW+8*, QUE+1
U C, C+1, C+2, C+5, D+1, M, FT+1
>> X LRBLJW+3*, S*, C, C+5*, D+1*, M*, FT+1*, FT+2*
>> X(1 D+1*
>> Y LRBLJW+3, C, C+1, C+2
>> ZTRTN LRBLJW+9*
>> ZTSK LRBLJW+9
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