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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLJDA

Package: Lab Service

Routine: LRBLJDA


Information

LRBLJDA ; IHS/DIR/AAB - BB UNIT DISP NEW UNIT 10/24/96 10:41 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRBLJDA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 %XY^%RCR  ^DIC  ^DIE  
Lab Service 2 EN^LRBLDRR1  (SSN,YN)^LRU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLJD  LRBLJD1  LRBLJDM  

Entry Points

Name Comments DBIA/ICR reference
A
EN ;from LRBLJD
PV ;Enter new volume for units with plasma removed
EN1 ; from LRBLJD
S
W ;S (LR("%"),LR("%2"))=1,X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),SSN=$P(X,"^",9),X=$P(X,"^") D SSN^LRU W X," ",SSN S LR("%3",LRDFN)=X_"^"_SSN Q
Y

External References

Name Field # of Occurrence
%XY^%RCR Y+2, Y+5
^DIC LRBLJDA+4
^DIE LRBLJDA+5, Y
EN^LRBLDRR1 Y+6
SSN^LRU W+1
YN^LRU Y+1, EN+2, PV+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"New ID #: ",LRE(1)," ",LRV(1)
  • Line Location: LRBLJDA+3
Function Call: WRITE
  • Prompt: $C(7),!,"Unit on x-match/assigned to "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ;S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: X," ",SSN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: X," ",HRCN
  • Line Location: W+1
Function Call: READ
  • Prompt: "Enter unit volume AFTER plasma removed: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Z
  • Line Location: PV+1
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a whole number less than ",LRM
  • Line Location: PV+2
Routine Call
  • DIE
  • Line Location:
    • LRBLJDA+5
    • Y
Routine Call
  • DIC
  • Line Location:
    • LRBLJDA+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 S
^DIC - [#1] W+1
^LR - [#63] W+1
^LRD(65 - [#65] Y+2, Y+3*!, Y+4*, Y+5, Y+7*, A*, EN1+1, S*, EN+1
^TMP($J EN+3*

Label References

Name Line Occurrences
A Y+2
PV PV+2, PV+3
S EN1+1
W EN+1
Y Y, Y+1

Naked Globals

Name Field # of Occurrence
^( Y+2, Y+7
^(0 Y+4, Y+5, EN1+1
^(1 Y+4*
^(4 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Y+1*, EN+2*, PV+3*
>> %X Y+2*, Y+5*
>> %Y Y+2*, Y+5*
>> A S*
>> DA LRBLJDA+4*, Y+2, Y+3, Y+4, Y+7, A, EN+1
>> DFN W+1*
DIC LRBLJDA+4*!
DIC(0 LRBLJDA+4*
>> DIE LRBLJDA+4*
DLAYGO LRBLJDA+4*!, Y+8!
>> DR LRBLJDA+5*, Y*
DTIME PV+1
>> E Y+2*, A
>> HRCN W+1
>> LR("%" EN+2!*, W+1*
>> LR("%2" EN1+1, W+1*
>> LR("%3" EN+2!, EN+3, EN+4!, W+1*
>> LR("%5" Y+2
>> LRD Y+6, Y+7
>> LRDFN EN1+1*, S, EN+1*, W+1
>> LRDPF W+1*
>> LRE Y+4
>> LRE(1 LRBLJDA+3, LRBLJDA+4
>> LRE(3 Y+1
>> LRE(6 Y+1
>> LRE(9 Y+4*, Y+5
>> LRM PV+2, PV+3, PV+4*
>> LRO(2 Y+1
>> LRR LRBLJDA+4*, Y+6
>> LRV(1 LRBLJDA+3
>> LRV(2 Y+4
>> LRV(4 Y+4
>> LRV(6 Y+4
>> LRX Y+2, Y+3, Y+4, Y+5, Y+6*, Y+7, EN1+1, S
>> LRX(1 Y+6*
>> SSN W+1*
U S, PV+1
>> W Y+5*
>> X LRBLJDA+4*, Y, Y+2*, Y+3*, Y+7*, A, EN1+1*, S*, EN+3*, W+1*
>> X(1 Y+3*, Y+7*
>> Y LRBLJDA+4, Y, Y+1*, Y+2*, A, S*, W+1*
Z A*, PV+1*!, PV+2, PV+3, PV+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All