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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBLJLG

Package: Lab Service

Routine: LRBLJLG


Information

LRBLJLG ;AVAMC/REG/CYM - BB INVENTORY LOG-IN 11/12/96 07:49 ; 11/22/00 2:21pm

Source Information

Source file <LRBLJLG.m>

Entry Points

Name Comments DBIA/ICR reference
I
D
C
E
A
ED
S
H
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"I need to know the name of your site (In the INSTITUTION file)."
  • Line Location: LRBLJLG+3
Function Call: WRITE
  • Prompt: !!?28,"Blood Component Log-In",!!?15,"Division: ",LRAA(4)
  • Line Location: LRBLJLG+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter INVOICE (or order) NUMBER: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: I+2
Function Call: READ
  • Formatting: !
  • Prompt: "DATE/TIME RECEIVED: NOW// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"Must enter a TIME. Future DATE/TIME not allowed.",!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,"Invoice number: ",LRI,!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have at least one supplier for this component",!,"Please have appropriate person enter supplier(s) in ",$P(^LAB(66,0),U)," FILE (#66)",!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," No spaces allowed."
  • Line Location: E+3
Function Call: WRITE
  • Prompt: $C(7)," Enter the Unit ID Without the Prefix"
  • Line Location: E+4
Function Call: WRITE
  • Prompt: !!,$C(7),HLP
  • Line Location: E+6
Function Call: WRITE
  • Prompt: $C(7),!!,"I might have that unit already in inventory. Let's try that again ",!
  • Line Location: E+9
Function Call: WRITE
  • Prompt: $C(7),!,$P(^LAB(66,LRC,0),U)," already in inventory with same Unit ID !"
  • Line Location: E+10
Function Call: WRITE
  • Prompt: $C(7),!,"Entry in INVENTORY file.",!,"Add ",P," for this DONOR ID# "
  • Line Location: E+11
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"No such ABO/Rh bar code",!!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: $C(7),!,"Not Date bar code",!
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !"
  • Line Location: ED+4
Function Call: WRITE
  • Prompt: $C(7),!!,"We can't do this right now...",!!,"Someone else is creating a new entry in the INVENTORY file ",!!,"Try again..",!!
  • Line Location: ED+5
Function Call: WRITE
  • Prompt: $C(7),!!,"I think someone else is trying to log this unit in"
  • Line Location: ED+9
Function Call: WRITE
  • Prompt: $C(7),!!,"Can't do this now...",!!,"Looks like 2 of you are creating the same record.",!!,"Try again..."
  • Line Location: ED+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry deleted."
  • Line Location: ED+18
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't add this to the ABO/Rh typing worksheet",!!,"Someone else is editing that worksheet",!!,"Add this unit Manually when printing the ABO/Rh typing worksheet",!!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Answer prompt. To quit enter '^' and unit will be deleted.",!
  • Line Location: H+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls,  FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call