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

Package: Lab Service

Routine: LRBLJR


Information

LRBLJR ;AVAMC/REG/CYM - RELEASE FROM XMATCH ;6/20/96 12:11 ;

Source Information

Source file <LRBLJR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 8 T^LRBLJX  DT^LRBLU  ^LRBLW  ^LRDPA  (V,YN)^LRU  Q^LRUB  ^LRUTL  X^LRUWK  
VA FileMan 1 ($$GET1,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: 1

Package Total Caller Graph
Lab Service 1 LRBLIUR  

Entry Points

Name Comments DBIA/ICR reference
ASK
R
SEL
REL
ALL
W
H
M
RES
SET
OUT
END

External References

Name Field # of Occurrence
$$GET1^DID RES+6
FIELD^DID RES+3
T^LRBLJX W+1
DT^LRBLU R+2
^LRBLW REL+5
^LRDPA ASK
V^LRU END
YN^LRU REL+2, RES+6
Q^LRUB RES+5
^LRUTL LRBLJR+3
X^LRUWK LRBLJR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: D:A=1
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units crossmatched for ",LRP
  • Line Location: R+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Select units (1-",A-1,") for release: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1 to ",A-1,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Selection ",LRV," doesn't exist.",!
  • Line Location: REL+0
Function Call: WRITE
  • Prompt: $C(7),!!,$P(^LRD(65,A(LRV),0),"^")," not returned to BLOOD BANK. Cannot release."
  • Line Location: REL+1
Function Call: WRITE
  • Prompt: !!?3,"All valid releases completed."
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: A,")",?3,$P(W,"^"),?17,$J($P(W,"^",7),2),?20,$P(W,"^",8),?24,$E($P(^LAB(66,$P(W,"^",4),0),"^"),1,20),?45
  • Line Location: W+1
Function Call: WRITE
  • Prompt: T,?58
  • Line Location: W+1
Function Call: WRITE
  • Prompt: T,?58
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?70,$E(P(A),1,10),!
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,"#",?3,"Unit ID",?17,"ABO/Rh",?24,"Component",?45,"Exp date",?58,"Xmatch date",?70,"Location",!
  • Line Location: H+0
Function Call: READ
  • Prompt: "Press RETURN"
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Function Call: READ
  • Formatting: !
  • Prompt: "Reason for release: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: $C(7)," Not allowed, try again."
  • Line Location: RES+1
Function Call: WRITE
  • Prompt: !,HLP
  • Line Location: RES+4
Function Call: WRITE
  • Prompt: $C(7),!,"Reason not valid, try again "
  • Line Location: RES+6
Function Call: WRITE
  • Prompt: $C(7)," Unit(s) not released."
  • Line Location: OUT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.02 FIELD^DID,  GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] W+1
^LRD(65 - [#65] R, REL+1, REL+2, REL+3!, REL+4, W

Label References

Name Line Occurrences
ALL SEL+1
ASK ASK
END LRBLJR+3, ASK
H R
M W
OUT R+2, SEL+4, ALL
R ASK
REL R+2, SEL+4, ALL
RES R+2, SEL+4, ALL, RES+1, RES+2, RES+6
SEL SEL, SEL+2, SEL+3
SET RES
W R, REL+2

Naked Globals

Name Field # of Occurrence
^( W
^(0 R, REL+3*, REL+4*, W
^(2 R

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REL+2*, RES+6*
A ASK!, R*, R+1, R+2, SEL, REL+2*, W, W+1, W+2
A( R*, REL, REL+1, REL+2, ALL
CHK RES+6~*
DIC ASK!
DTIME SEL, M, RES
HLP RES+3~, RES+4*
HLP("HELP-PROMPT" RES+4
>> L(1 RES+5*
>> LRA SEL+4*
>> LRCAPA LRBLJR+3, REL+5
>> LRDFN ASK, R, REL+3, REL+4
>> LRP R+1
>> LRQ SEL+4*
LRV ASK!, R+2*, SEL+4*, REL, REL+1, REL+2, ALL*
LRV(1 REL+4, SET*
LRV(2 REL+2, REL+5, ALL*
>> LRX R*, REL+2*, REL+3, REL+4, W
LRZ ASK!, R+2, SEL+4, ALL, RES*
>> M R*, W+1
>> P W*
>> P( REL+1, W*, W+2
>> T W+1*
U SEL, RES
>> W R*, REL+2*, W+1
X LRBLJR+3*, SEL*, SEL+1, SEL+2, SEL+3, SEL+4, REL+3*, REL+4*, M*, RES*!
, RES+1, RES+2, RES+6, SET
>> Y LRBLJR+3
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