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

Package: Lab Service

Routine: LRBLJL1


Information

LRBLJL1 ; IHS/DIR/AAB - UNIT RELOCATION 08:30 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRBLJL1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 1 (A,M)^LRU  
Registration 1 $$SITE^VASITE  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJL  

Entry Points

Name Comments DBIA/ICR reference
A
S
L
W
N

External References

Name Field # of Occurrence
^%DT LRBLJL1+3
A^LRU W
M^LRU S
$$SITE^VASITE A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Unit assigned/xmatched:",?44,"Exp date",?59,"Location"
  • Condition for execution: F=1
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !,$J(F,2),")"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: W:$P(LRX,U,11)="U"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?5,"#"
  • Condition for execution: $P(LRX,U,11)="U"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?6,$P(LRX,U,2),?17,$P(LRX,U,3),?38,$P(LRX,U,4)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?6,$P(LRX,U,2),?17,$P(LRX,U,3),?38,$P(LRX,U,4)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?6,$C(7),"*** Also assigned/xmatched to ",$P(N,"^")," ",$P(N,"^",9)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !
  • Line Location: N+0
Function Call: WRITE
  • Prompt: K
  • Line Location: N+0
Function Call: WRITE
  • Prompt: K
  • Line Location: N+0
Function Call: WRITE
  • Prompt: $C(7),!!,"There must be an entry in the HOSPITAL LOCATION file",!,"containing 'BLOOD BANK' in the name for ",LRAA(4)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !?3,C(A)
  • Line Location: A+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W+1
^LAB(66 - [#66] L+7
^LR - [#63] W+1
^LRD(65 - [#65] LRBLJL1+3, L!, L+1, L+5, L+6, L+8, W+1
^SC - [#44] A
^SC("B" A
^TMP($J LRBLJL1+4*, LRBLJL1+5!, LRBLJL1+6!, L+9*, S*, N!

Label References

Name Line Occurrences
L LRBLJL1+3
N L+10
S LRBLJL1+5
W N

Naked Globals

Name Field # of Occurrence
^( LRBLJL1+5, L+1, A
^(0 L+6
^(3 L+1
^(4 L

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LRBLJL1+3*
A LRBLJL1+3*, LRBLJL1+4*, LRBLJL1+5*, L+9*, N, A*, A+2*, A+3!
B LRBLJL1+4*, LRBLJL1+5*, S, A*, A+3!
C LRBLJL1+3*, LRBLJL1+4*, LRBLJL1+5*, L, L+1, L+5, L+6, L+8, L+9, S
, A*, A+1, A+2, A+3!
C( A*, A+2
C(1 LRBLJL1+3*, A+2
DT A
DUZ(2 L+1, A
>> E LRBLJL1+4*, W+1*
>> F LRBLJL1+4*, LRBLJL1+5*, S*
>> H LRBLJL1+3*, L+9
>> I W+1*
>> L L+1*, L+9, W*
>> LR( L+8*, L+9
>> LR("Q" LRBLJL1+3*, LRBLJL1+5
>> LR(44 A+2*
>> LRAA(4 A+1, A+2
>> LRDFN LRBLJL1+3, L, L+8, W+1
LRDT L+5~*, L+6
>> LRG L+1*, L+9
>> LRG( L+6*
>> LRG(1 W*
>> LRX LRBLJL1+5*, W, W+1, N*
>> M L+7*, L+9, L+10
>> N W+1*
>> T L+1*, L+7*, L+9
U L+1, L+6, L+7, L+10, W, A
>> V W*
>> X LRBLJL1+3*, L+1*, L+7, L+9, W+1*
>> Y LRBLJL1+3, L+1*, L+9, W*, W+1*, N, A+1*, A+2*
>> Z L+7*, L+9, N
>> Z(1 N*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All