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

Package: Lab Service

Routine: LRBLDRR


Information

LRBLDRR ;AVAMC/REG/CYM - REVIEW/RELEASE COMPONENTS ;1/24/97 11:04 ;

Source Information

Source file <LRBLDRR.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 9 (BAR,U)^LRBLB  (,FRE)^LRBLDRR1  EN1^LRBLDRR2  D^LRBLU  S^LRBLWD  (D,SSN,V,YN)^LRU  ^LRUMSG  ^LRUTL  
X^LRUWK  
VA FileMan 3 ^DIC  MIX^DIC1  FIELD^DID  

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

Package Total Caller Graph
Lab Service 2 LRBLDED  LRBLDRR  

Entry Points

Name Comments DBIA/ICR reference
P
S
REST
SUPER
ASK
E
W

External References

Name Field # of Occurrence
^DIC ASK
MIX^DIC1 P+1
FIELD^DID LRBLDRR+8, LRBLDRR+9, LRBLDRR+11, LRBLDRR+12
BAR^LRBLB LRBLDRR+6
U^LRBLB P
^LRBLDRR1 REST+23
FRE^LRBLDRR1 REST+12, REST+16, REST+19, SUPER
EN1^LRBLDRR2 REST+13
D^LRBLU LRBLDRR+3
S^LRBLWD LRBLDRR+4, LRBLDRR+5
D^LRU S, REST+20
SSN^LRU REST+8
V^LRU E
YN^LRU LRBLDRR+6, SUPER
^LRUMSG SUPER+2
^LRUTL LRBLDRR+3
X^LRUWK LRBLDRR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Review-label-release components",!!?20,LRAA(4),!
  • Line Location: LRBLDRR+6
Function Call: WRITE
  • Prompt: !!?15,"STANDARD UNIT ID LABELING "
  • Line Location: LRBLDRR+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Select UNIT FOR LABEL/RELEASE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing this entry! "
  • Line Location: P+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $S(LRQ("S")="A":"AUTOLOGOUS ",LRQ("S")="D":"DIRECTED ",1:" ")
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: "For: "
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: "For: "
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: ?53,"Unit: ",LRG
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: !,"Unit testing:",?70,"Tech"
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: $C(7),!,"Must perform ABO/Rh testing !!",!
  • Line Location: REST+12
Function Call: WRITE
  • Prompt: $C(7),!,"Donor ABO (",LRQ(5),") is different from unit ABO (",LRJ(10),"). Resolve discrepancy."
  • Line Location: REST+14
Function Call: WRITE
  • Prompt: $C(7),!,"Donor Rh (",LRQ(6),") is different from unit Rh (",$E(LRJ(11),1,3),"). Resolve discrepancy."
  • Line Location: REST+15
Function Call: WRITE
  • Prompt: $C(7),!!,"No components prepared !",!
  • Line Location: REST+19
Function Call: WRITE
  • Prompt: !!,"Donation: ",LRJ(1),?36,"Collection completed: ",Y,!?5,"Component",?36,"Date/time stored",?58,"Expiration date"
  • Line Location: REST+20
Function Call: WRITE
  • Prompt: !,$J(A,2),".",?5,$P(F(A),U,4),?27,$S(L=2:"Discard",L=1:"Quarant",$P(F(A),U,3)]"":"released",$P(F(A),U,2)]"":"labeled",1:""),?36,$P(F(A),U,5),?58,$P(F(A),U,6)
  • Line Location: REST+21
Function Call: WRITE
  • Prompt: $C(7),!!,LRN(6.1),": ",LRJ(6.1)
  • Line Location: REST+22
Function Call: WRITE
  • Prompt: !!,"If you continue with label/release of ",LRG," a message will be",!,"sent to all users holding the blood bank supervisor's key.",!,"Do you want to continue with label/release of ",LRG
  • Line Location: SUPER+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A))
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A))
  • Line Location: W+0
Routine Call
  • DIC
  • Line Location:
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls
65.54 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] REST+8
^LAB(66 - [#66] S
^LAB(69.9 - [#69.9] LRBLDRR+5
^LR - [#63] REST+8
^LRE - [#65.5] P+3, P+4, REST, REST+2, REST+3, REST+18, ASK+1
^LRE("C" P+3
^VA(200 - [#200] W
^XUSEC("LRBLSUPER" REST+16

Label References

Name Line Occurrences
ASK P+2
E LRBLDRR+3, LRBLDRR+4, LRBLDRR+6, P+1
P P+1, P+2, P+3, P+4
REST P+2, P+4
S REST+18
SUPER REST+17
W REST+10, REST+11

Naked Globals

Name Field # of Occurrence
^( REST, REST+2, REST+3, REST+18
^(0 LRBLDRR+5, W
^(2 REST
^(5 REST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDRR+6*, SUPER*
>> A LRBLDRR+7*, LRBLDRR+8, LRBLDRR+9, LRBLDRR+10*, LRBLDRR+11, LRBLDRR+12, S, S+1, REST*, REST+1*
, REST+2*, REST+3*, REST+5*, REST+6*, REST+10*, REST+11*, REST+13*, REST+18*, REST+20*, REST+21*
, W
>> B S+1, REST+2*, REST+3*, REST+5*, REST+6*, REST+18*, REST+19, REST+21*
>> D P+1*
DIC P+1*!, ASK*!
DIC("A" ASK*
DIC(0 P+1*, ASK*
DTIME P
DUZ REST+16
F S*, S+1, REST+18!
F( S+1*, REST+21
IOF REST+7
>> L REST+21*
>> LR LRBLDRR+6, P
>> LR("KEY" SUPER+1*
>> LR("M" LRBLDRR+3*
>> LR("SUB" SUPER+1*
>> LR("TXT" SUPER+1*
>> LR(3 LRBLDRR+6*
>> LRA LRBLDRR+5*, REST+13
>> LRAA(4 LRBLDRR+6
>> LRB( LRBLDRR+8*, LRBLDRR+11*, REST+5, REST+6
>> LRB("POINTER" LRBLDRR+8, LRBLDRR+11
>> LRCAPA LRBLDRR+4, LRBLDRR+5
LRD REST+14*, REST+15*, REST+16, REST+17!
>> LRDPF REST+8*
>> LRE( REST+1*, REST+2*, REST+3*, W
>> LRG P+4*, REST+9, SUPER, SUPER+1, ASK+1*
>> LRH( LRBLDRR+10, REST+3, REST+6, REST+11
>> LRI P+3*, P+4, REST, REST+2, REST+3, REST+18, ASK+1*
>> LRJ( REST*, REST+1*, REST+2*, REST+3*, REST+4*, REST+5*, REST+6*, REST+22, W
>> LRJ(1 REST+4*, REST+20
>> LRJ(10 REST+4, REST+12, REST+14
>> LRJ(11 REST+4, REST+12, REST+15
>> LRN( LRBLDRR+9*, LRBLDRR+12*, REST+22, W
>> LRN("LABEL" LRBLDRR+9, LRBLDRR+12
>> LRQ P+3*, P+4, REST, REST+2, REST+3, REST+18, ASK*, ASK+1
>> LRQ("D" REST*, REST+8
>> LRQ("S" REST*, REST+7, REST+8
>> LRQ("X" P+1*
>> LRQ(5 P+1*, REST+14
>> LRQ(6 P+1*, REST+15
LRT LRBLDRR+4!
>> LRV REST*
>> LRW( REST+1*, REST+2*, REST+3*, W
LRY REST+17!, SUPER*
>> S S*, S+1
>> SSN REST+8*
>> T REST*, REST+20
U P+1, REST+3, REST+21, ASK+1
>> V REST+4*, REST+22
>> V(10 REST+4*
>> V(11 REST+4*
>> V(12 REST+4*
>> W REST+4*
>> X LRBLDRR+3*, LRBLDRR+4*, P*, P+1, P+2, P+3, S, S+1, REST*, REST+4
, REST+5*, REST+6*, REST+8*, REST+18*, ASK
>> Y LRBLDRR+3, LRBLDRR+4*, LRBLDRR+5*, P+1, P+2, P+3, S*, S+1, REST+8*, REST+20*
, ASK*, ASK+1
>> Y(0 P+1
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