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

Package: Lab Service

Routine: LRBLJD


Information

LRBLJD ;AVAMC/REG/CYM - BB UNIT DISPOSITION ;7/25/96 11:53 ; 12/18/00 2:06pm

Source Information

Source file <LRBLJD.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
REST
M
K ;from LRBLJD1, LRBLJDM, [LRBLID] edit template file #65
END
R
OUT
C

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?15,"Division: ",LRAA(4)
  • Line Location: LRBLJD+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Nothing selected "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Unit has positive screening tests and component selected is not autologous.",!
  • Line Location: M+3
Function Call: WRITE
  • Prompt: $C(7),!,"Answer all prompts (no NULL responses) DISPOSITION DELETED",!!
  • Line Location: K+1
Function Call: READ
  • Formatting: !
  • Prompt: "DISPOSITION: "
  • Variable: LRE(1)
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $E(LRB(X),$L(LRE(1))+1,$L(LRB(X)))
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !!,"Select from:"
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !?3,LRB(X)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !
  • Line Location: R+4
Function Call: WRITE
  • Prompt: " SALVAGE NOT ALLOWED."
  • Line Location: C+1

FileMan Files Accessed Via FileMan Db Call

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