Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRBLJI

Package: Lab Service

Routine: LRBLJI


Information

LRBLJI ;AVAMC/REG - CHECK FILE ENTRIES ;2/18/93 09:14 ;

Source Information

Source file <LRBLJI.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?17,"Check inventory file entries for missing data.",!!
  • Line Location: LRBLJI+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLJI+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: LRBLJI+4
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
Info |  Source |  Entry Points |  Interaction Calls