Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 8 ($$READ,$$STRIP,BAR)^LRBLB  ^LRBLBU  (EN,EN1,PV)^LRBLJDA  F^LRBLJDM  RS^LRBLW  (CK,D,DA,FRE,K,V,YN)^LRU  ^LRUTL  X^LRUWK  
VA FileMan 3 ^%DT  ^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLIDN  LRBLJD1  LRBLJDM  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ASK
^DIC REST, M
^DIE REST+2, REST+5
$$READ^LRBLB ASK
$$STRIP^LRBLB ASK+3
BAR^LRBLB LRBLJD+9
^LRBLBU ASK+2
EN^LRBLJDA REST+1
EN1^LRBLJDA REST+4
PV^LRBLJDA M+2
F^LRBLJDM M+4
RS^LRBLW REST+4
CK^LRU REST+2
D^LRU M+5, M+6
DA^LRU M+7
FRE^LRU REST+2
K^LRU ASK+5
V^LRU END
YN^LRU M+6, C
^LRUTL LRBLJD+6
X^LRUWK LRBLJD+8

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
Routine Call
  • DIC
  • Line Location:
    • REST
    • M
Routine Call
  • DIE
  • Line Location:
    • REST+2
    • REST+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
^LAB(66 - [#66] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 LRBLJD+6, K+2
^LAB(66 - [#66] REST+1, REST+5, M+1
^LR - [#63] REST+3
^LRD(65 - [#65] REST+3, REST+4, M+5, K+2!, OUT
^TMP($J ASK+5!

Label References

Name Line Occurrences
@( M+8
ASK ASK+4, ASK+5
C OUT
END LRBLJD+6, LRBLJD+8, ASK
K REST+2, REST+5, M, M+2, M+6
M M+3
OUT R+1
R R+4
REST ASK+5

Naked Globals

Name Field # of Occurrence
^(0 REST+3!*
^(2 K+2
^(4 K+2
^(5 K+2!
^(8 OUT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % M+6*, C*
%DT ASK*!
>> A LRBLJD+8*, REST+3*
D REST+2!
DA ASK+5!, REST+1*, REST+2!*, REST+3, REST+5*, K+2, OUT
DIC REST*!, REST+2!, M*!
DIC("S" REST*
DIC(0 REST*, M*
DIE REST*, REST+2!, REST+5*
DR REST+2*!, REST+5*
DTIME R
>> LR ASK+1
>> LR("%" ASK+5!, REST+1
>> LR("%2" ASK+5!, REST+4
>> LR("%3" ASK+5!
>> LR("%4" ASK+5!
>> LR("%5" ASK+5!
>> LR("C" ASK+5!
>> LR("CK" ASK+5!, REST+2
>> LR("M" LRBLJD+6*
>> LR(2 ASK+1
>> LR(3 LRBLJD+6*
>> LRAA(4 LRBLJD+7
>> LRB( LRBLJD+6*, R+1, R+3
>> LRCAPA LRBLJD+8, REST+4
>> LRD M+1*
LRE ASK+5!, M+5*, M+6, M+7
LRE(1 REST+4, R*, R+1*, OUT, C*, C+1*
LRE(3 M+5*
LRE(4 REST+5
LRE(6 M+5*, M+6
LRE(69 M+5*
>> LRF ASK*, M+6
LRJ ASK+5!, REST+4*, M+3
LRJ(1 M+1*, M+3
LRM ASK+5!
>> LRN LRBLJD+6*, M+1*
LRO ASK+5!
LRO(1 M+4*, M+7*
LRO(9 M+4*
LRP ASK+5!
LRT LRBLJD+8, LRBLJD+9!, ASK+5!, REST+4*
LRT( LRBLJD+8
LRV ASK+5!, M+1*
LRV(1 M+1*, M+2
LRV(10 REST+1*
LRV(11 M+4*
LRV(15 REST+1*
LRV(2 M+1*, M+8
LRV(26 REST+1*
LRV(3 REST+5*
LRV(4 REST+1*, REST+3
LRV(6 M+1*, M+8
>> LRW("MO" LRBLJD+8*, REST+4
>> LRW("S" LRBLJD+8*
>> LRX REST+2*, REST+4, REST+5, M+5
U LRBLJD+6, ASK, REST+1, M+6, R, C, C+1
X LRBLJD+6*, LRBLJD+8*!, ASK*, ASK+1, ASK+3, ASK+4, REST+3*, M+1*, M+4, K+2*
, R+1*, R+3*, OUT*, C
X("NOCODES" LRBLJD+8*
X(1 REST+3*
>> Y LRBLJD+6*, ASK, REST, REST+1, REST+2, REST+5, M, M+1, M+5*, M+6*
, M+7*
>> Y(0 REST+1, M+1
>> Z LRBLJD+6*, M+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All