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

Package: Lab Service

Routine: LRBLJI


Information

LRBLJI ; IHS/DIR/FJE - CHECK FILE ENTRIES 2/18/93 09:14 ;

Source Information

Source file <LRBLJI.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (F,L,M,S,V)^LRU  (BEG,END)^LRUTL  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLII  

Entry Points

Name Comments DBIA/ICR reference
C
END
D
H
K
QUE
W
LRCKF ; Entry point for check all laboratory files option Routine LRCKF

External References

Name Field # of Occurrence
^%ZISC LRBLJI+5
F^LRU H+1
L^LRU QUE+1
M^LRU H
S^LRU QUE+1
V^LRU END
BEG^LRUTL LRBLJI+5
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?17,"Check inventory file entries for missing data.",!!
  • Line Location: LRBLJI+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLJI+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: LRBLJI+5
Function Call: WRITE
  • Prompt: !!,"Done."
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,"IFN: ",LRI," 0th subscript missing- Database degradation!"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,"""B"" Cross reference required re-setting"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !,"SOURCE missing"
  • Line Location: C+3
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,"DATE/TIME RECEIVED missing"
  • Line Location: C+4
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !,"INVOICE# missing"
  • Line Location: C+5
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !,"EXPIRATION DATE/TIME missing"
  • Line Location: C+6
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+7
Function Call: WRITE
  • Prompt: !,"DISPOSITION DATE present but DISPOSITION missing"
  • Line Location: C+7
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+8
Function Call: WRITE
  • Prompt: !,"DISPOSITION DATE missing"
  • Line Location: C+8
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+9
Function Call: WRITE
  • Prompt: !,"DISPOSITION ENTERING PERSON missing"
  • Line Location: C+9
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+10
Function Call: WRITE
  • Prompt: !,"MODIFIED TO/FROM missing"
  • Line Location: C+10
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+11
Function Call: WRITE
  • Prompt: !,"MODIFIED TO/FROM missing"
  • Line Location: C+11
Function Call: WRITE
  • Prompt: W:X]""
  • Line Location: W+0
Function Call: WRITE
  • Prompt: X
  • Condition for execution: X]""
  • Line Location: W+0
Function Call: WRITE
  • Prompt: "Component missing"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?20,"Missing data from Blood Bank Inventory File",!,LR("%")
  • Line Location: H+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 D
^LAB(66 - [#66] C+11, W, D+1
^LRD(65 - [#65] QUE+1, C+1*, C+2*, C+10, C+11, K!, K+1!, D+1!

Label References

Name Line Occurrences
C QUE+1
D K
END LRBLJI+4, LRBLJI+5, QUE+2, LRCKF+1
H QUE+1, W
K QUE+2
QUE LRBLJI+5, LRCKF+1
W C+2, C+3, C+4, C+5, C+6, C+7, C+8, C+9, C+10, C+11

Naked Globals

Name Field # of Occurrence
^( QUE+1
^(0 QUE+1, C+11, W, K
^(2 D
^(4 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C D+1*
>> DA K*, K+1*, D+1
IO QUE
IOF LRBLJI+5, QUE+2
IOSL W
IOST LRBLJI+5, QUE+2, H
>> LR C*, C+1, C+2, W
>> LR("%" W, H+1
>> LR("F" QUE+1*, H
>> LR("Q" QUE+1, C+2, C+3, C+4, C+5, C+6, C+7, C+8, C+9, C+10
, C+11, W, H
>> LRA K*, K+1*
LRB QUE+1!, W*
>> LRF D*
>> LRI QUE+1*, C, C+1, C+2, C+10, C+11, W
>> POP LRBLJI+5
>> S D+1*
>> W QUE+1*, C, C+3, C+4, C+5, C+6, C+11, W
>> W(4 QUE+1*, C+7, C+8, C+9, C+10
>> X C+11*, W*, K*, K+1*, D+1
>> X(1 C+1*
>> Y D+1*
>> ZTQUEUED QUE
>> ZTREQ QUE*
>> ZTRTN LRBLJI+5*
>> ZTSK LRBLJI+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All