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 ; IHS/DIR/AAB - REVIEW/RELEASE COMPONENTS 1/24/97 11:04 ; [ 02/03/1999 2:08 PM ]

Source Information

Source file <LRBLDRR.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLDED  LRBLDRR  

Entry Points

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

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+25
FRE^LRBLDRR1 REST+14, REST+18, REST+21, SUPER
EN1^LRBLDRR2 REST+15
D^LRBLU LRBLDRR+3
S^LRBLWD LRBLDRR+4, LRBLDRR+5
D^LRU S, REST+22
SSN^LRU REST+10
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
  • Prompt: "Select UNIT FOR LABEL/RELEASE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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: "For: "
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: $P(X,"^")," ",SSN
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: $S(LRQ("S")="A":"AUTOLOGOUS ",LRQ("S")="D":"DIRECTED ",1:" ")
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: "For: "
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: $P(X,"^")," ",HRCN
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: ?53,"Unit: ",LRG
  • Line Location: REST+11
Function Call: WRITE
  • Prompt: !,"Unit testing:",?70,"Tech"
  • Line Location: REST+12
Function Call: WRITE
  • Prompt: $C(7),!,"Must perform ABO/Rh testing !!",!
  • Line Location: REST+14
Function Call: WRITE
  • Prompt: $C(7),!,"Donor ABO (",LRQ(5),") is different from unit ABO (",LRJ(10),"). Resolve discrepancy."
  • Line Location: REST+16
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+17
Function Call: WRITE
  • Prompt: $C(7),!!,"No components prepared !",!
  • Line Location: REST+21
Function Call: WRITE
  • Prompt: !!,"Donation: ",LRJ(1),?36,"Collection completed: ",Y,!?5,"Component",?36,"Date/time stored",?58,"Expiration date"
  • Line Location: REST+22
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+23
Function Call: WRITE
  • Prompt: $C(7),!!,LRN(6.1),": ",LRJ(6.1)
  • Line Location: REST+24
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+10
^LAB(66 - [#66] S
^LAB(69.9 - [#69.9] LRBLDRR+5
^LR - [#63] REST+10
^LRE - [#65.5] P+3, P+4, REST, REST+2, REST+3, REST+20, ASK+1
^LRE("C" P+3
^VA(200 - [#200] W
^XUSEC("LRBLSUPER" REST+18

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+20
SUPER REST+19
W REST+12, REST+13

Naked Globals

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