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

Package: Lab Service

Routine: LRBLU


Information

LRBLU ;AVAMC/REG/CYM - BB UTIL ;1/22/97 15:32 ;

Source Information

Source file <LRBLU.m>

Entry Points

Name Comments DBIA/ICR reference
I
F
S ;sets C-xref in FILE 65
K ;Kill C-xref in FILE 65
KK
S1
K1 ;Kill AG x-ref DD(65,4.1,1,
A ;Makes change to ^LRD(65,"AP" & date unit assigned if necessary
EN ;
EN1 ;
EN2 ;called by TRANSFUSION entry in EXECUTE CODE file
EN3 ;delete user print list for transfusion & hematology data
D
OUT
O ;enter old donor unit (CAUTION: This unit is in inventory)
P ;from DD(63.01, input transforms for fields 6.1 to 6.4
B ;
DT
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!?15,"INVENTORY FILE HAS AN ENTRY WITH SAME ID ! "
  • Line Location: LRBLU+6
Function Call: WRITE
  • Prompt: !,$C(7),X," assigned to ",$P(^LRE(Y,0),U)
  • Line Location: I+0
Function Call: WRITE
  • Prompt: $C(7),!,"UNIT IN INVENTORY - EDIT TRANSFUSION DATA THERE !"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!,"Specimen(s) received within past 72 hrs:"
  • Condition for execution: B=1
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,Y,?18,$P(Z,U,6)
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no user lists."
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: $C(7),"Must define blood bank site parameters using option:",!?3,"Edit blood bank site parameters [LRBLSSP] under the Supervisor menu"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Must enter second and third defaults for DONOR using:",!?3,"Edit blood bank site parameters [LRBLSSP] under the Supervisor menu"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,"Do you still want to enter this unit in the donor file "
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !,"Ok, done."
  • Line Location: O+2
Function Call: WRITE
  • Prompt: LRH
  • Line Location: B+2
Function Call: WRITE
  • Prompt: LRH
  • Line Location: B+4
Function Call: WRITE
  • Prompt: $C(7),!?35,"Not allowed, enter date and time.",!?35,"Future times not allowed."
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61.3 - [#61.3] Classic Fileman Calls
^LRO(69.2 - [#69.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call