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

Package: Lab Service

Routine: LRBLJL


Information

LRBLJL ; IHS/DIR/AAB - UNIT RELOCATION 7/7/97 08:32 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRBLJL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 7 (,A,W)^LRBLJL1  (CK,EN)^LRBLPUS  EN1^LRBLU  (,S)^LRBLW  ^LRDPA  (CK,DT,FRE,V,YN)^LRU  X^LRUWK  
VA Fileman 3 ^%DT  ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLIDR  

Entry Points

Name Comments DBIA/ICR reference
A
PRE ; Warning message if a unit has had a previous Unsatisfactory Inspection
ALL ; This subroutine detects if a previous Inspection was
; Unsatisfactory, then calls up another subroutine to give
; a warning message. It also evaluates each individual unit
; within a group selected to be sure that all required testing
; is complete and compatible with the patient.
END
D
G
F
I
DIE
M
C
P
S
R
T
W
CLNP ; When indicated, current relocation episode is deleted.

External References

Name Field # of Occurrence
^%DT T+1
^DIE T+4
^DIK CLNP+1
^LRBLJL1 R+1
A^LRBLJL1 LRBLJL+3
W^LRBLJL1 A
CK^LRBLPUS LRBLJL+3
EN^LRBLPUS R
EN1^LRBLU LRBLJL+3
^LRBLW G
S^LRBLW LRBLJL+3
^LRDPA P
CK^LRU T+3
DT^LRU T+2
FRE^LRU T+4
V^LRU END
YN^LRU D+3, I
X^LRUWK LRBLJL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units available for release",!,"Use appropriate options to assign or modify"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: $C(7),!!?3,"( # unsatisfactory unit)"
  • Line Location: R+2
Function Call: WRITE
  • Prompt: $C(7),!!?3,"( *Expired unit )"
  • Line Location: R+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"Select (1-",F,"): "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"Enter number(s) from 1 to ",F,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed"
  • Line Location: M+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !,A,")"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!,"Unit unsatisfactory, cannot release."
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: $C(7),!,"Unit unsatisfactory, cannot release."
  • Line Location: DIE+1
Function Call: READ
  • Prompt: "DATE/TIME UNIT RELOCATION: NOW//"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7),!?5,"TIME and DATE must be entered, future time not allowed."
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Relocation time must be after DATE/TIME unit assigned "
  • Line Location: T+2
Function Call: WRITE
  • Prompt: "(",Y,")"
  • Line Location: T+2
Function Call: WRITE
  • Prompt: $C(7),!!,UNIT," has had a previous Unsatisfactory inspection and cannot be relocated.",!!,"Relocation entry <DELETED>",!
  • Line Location: PRE+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: $C(7),!,"ABO not rechecked"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"ABO recheck different from ABO GROUP"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: $C(7),!,"Rh NEG unit not rechecked"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,$P(LRE,"^",2)," relocated"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?15,$C(7),"***Unsatisfactory unit(s) returned to BLOOD BANK***",!
  • Line Location: S+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units with incomplete answers or units to be sent from the blood bank",!,"with unsatisfactory inspections can be relocated. Relocation entry <DELETED>",!
  • Line Location: W+0
Routine Call
  • DIE
  • Line Location:
    • T+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRBLJL+3, C
^LRD(65 - [#65] F*, ALL+13*, T+8*, PRE+1, C, D, D+2, S*
^TMP($J P!, A, ALL+6, ALL+7, DIE!

Label References

Name Line Occurrences
A M+4
ALL M+1
C ALL+7, DIE
CLNP T+6, T+7
D C+2
DIE R+4, A
END LRBLJL+3, LRBLJL+4, P
F ALL+13, T+3
G ALL+13, T+8
M M, M+2, M+3
P P
PRE ALL+12, T+7
R P
T ALL+10, T+1
W T+6

Naked Globals

Name Field # of Occurrence
^( A, F
^(0 F*
^(10 D
^(11 D+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D+3*, I*
%DT T+1*!
%DT(0 T+1*
>> A A*
C P!
DA P!, F*, ALL+13, S
DA(1 T+3*, CLNP+1*
>> DFN P
DIC P!
DIE P!, T+3*
>> DIK CLNP+1*
DR P!, T+4*
DTIME M, T
DUZ ALL+13
>> F R+1, R+4, M
>> L ALL+7*, DIE
>> LR("ALL" M+1*, T+5
>> LR("CK" DIE!, T+3
>> LR("STOP" ALL+5*, ALL+6, ALL+10, ALL+11, T+5*, T+6*
>> LR(44 T+3
>> LRA M+4*
>> LRAA(4 LRBLJL+4
>> LRB LRBLJL+3*, C
>> LRBL P*, ALL+13
>> LRC ALL+6*, ALL+7
>> LRCAPA LRBLJL+4, G
>> LRDFN P
>> LRE ALL+7*, ALL+8, DIE*, DIE+1, T+2, T+3, C, C+2, D, D+1
, D+2, D+3, G
LRG P!
LRG( ALL+12, T+7
LRG(1 R+2!
>> LRK ALL+13*, T+8*
>> LRP ALL+13
>> LRPFN P
>> LRQ M+4*
>> LRR( ALL+7*, DIE*, DIE+1*, T*, T+2*
LRV P!, R+4*, M+4*, A, DIE
LRW P!
LRW( R*
LRW(1 F, ALL+13, T+1*, T+8
LRW(2 ALL+13, T+6
LRW(3 ALL+13, T+3*
LRW(4 ALL+13
LRW(5 T+3*, T+6
>> LRX A*, F, ALL+7*, ALL+8, ALL+9, ALL+12, ALL+13, DIE*, DIE+1, T
, T+2, T+3, T+7, T+8, PRE+1, CLNP+1, C, C+1, C+2, D
, D+1, D+2, D+3, S
>> LRZ M+4*, ALL+5*
>> LRZ( ALL+7*, ALL+8*, ALL+9, DIE*, CLNP+1*, C*, C+1, C+2, D*, D+1*
, D+2*, D+3*
R P!, C
R( C
U M, ALL+7, ALL+8, T, T+2, PRE+1, D+2, D+3
UNIT PRE+1~*, PRE+2
V P!, R+3!
>> X LRBLJL+4*, R*, M*, M+1, M+2, M+3, M+4, F*, T*, T+1*
, T+3*, D*, D+1, D+2*, D+3
Y LRBLJL+3, DIE!, T+1, T+2*, T+6!, G!, I*, S*
>> Z C*
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