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

Package: Lab Service

Routine: LRBLJED


Information

LRBLJED ;AVAMC/REG/CYM - BB INVENTORY EDIT 3/3/97 13:20 ;

Source Information

Source file <LRBLJED.m>

Entry Points

Name Comments DBIA/ICR reference
D
E
L
DIE
G
FX
FC
KL
A
W
W1
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,$C(7),$G(^DD(65,.01,3))
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !
  • Line Location: G+3
Function Call: WRITE
  • Prompt: !,"I can't do this right now. Someone else is editing this record. "
  • Line Location: FX+1
Function Call: WRITE
  • Prompt: !,"Someone else is editing this entry. Try again later "
  • Line Location: KL+0
Function Call: WRITE
  • Prompt: !?7,"No autologous/directed donor entry for this unit."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?7,"Donor unit has been released to stock.",!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: W:W
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !?7,"One or more screening tests from ",W(3)," are positive."
  • Condition for execution: W
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !?7,"Not all screening tests completed."
  • Condition for execution: W=""
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !?7,$C(7),"DELETION NOT ALLOWED !",!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: $C(7),!,$P(^LAB(66,$P(^LRD(65,X(2),0),U,4),0),U)," unit already exists in inventory"
  • Line Location: W1+0

FileMan Files Accessed Via FileMan Db Call

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