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

Package: Lab Service

Routine: LRBLA1


Information

LRBLA1 ; IHS/DIR/AAB - BB ADM DATA 07:45 ; [ 6/21/96 ]

Source Information

Source file <LRBLA1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 ^LRBLA2  (D,F,M,S)^LRU  
VA Fileman 2 ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLA  LRBLA2  

Entry Points

Name Comments DBIA/ICR reference
A
D
H
H1
H4
S
W
H3

External References

Name Field # of Occurrence
^DIWP D+1
^DIWW D+2
^LRBLA2 LRBLA1+3
D^LRU D
F^LRU H+1
M^LRU H
S^LRU S

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: LRBLA1+3
Function Call: WRITE
  • Prompt: !!,"COUNT",?7,"TEMPORARY DEFERRAL REASON"
  • Line Location: LRBLA1+4
Function Call: WRITE
  • Prompt: !!,"PERMANENT DEFERRALS:",!,"--------------------"
  • Line Location: LRBLA1+7
Function Call: WRITE
  • Prompt: !!,LRP,?32,"Deferral Date: ",Y
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,$J(LRB,4),?7,LRD
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Blood Bank Administrative Data from: ",LRSTR," to ",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"DIVISION: ",LRC(2)
  • Condition for execution: LRC
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"| ",LRB(LRB),?20,"|",?30,"SOURCE",?40,"|",?50,"INVENTORY DISPOSITION",?79,"|"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%"),!,"|",?5,"COMPONENT",?20,"|Prepared",?30,"|Received",?40,"|Transfused",?51,"|Shipped",?59,"|Outdated",?69,"|Discarded",?79,"|",!,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"COUNT",?7,"TEMPORARY DEFERRAL REASON"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"PERMANENT DEFERRALS:"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,LRP,?31,"Deferral Date: ",LRY
  • Line Location: H4+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(66 S+1
^LAB(65.4 - [#65.4] A
^LRE - [#65.5] D+1
^TMP("LR" LRBLA1+4, LRBLA1+5*, LRBLA1+6, LRBLA1+8, A, S+1*, S+2*, S+3*, S+4*, S+5*
^TMP($J D!

Label References

Name Line Occurrences
A LRBLA1+6
D LRBLA1+8
H LRBLA1+3, LRBLA1+4, LRBLA1+7, H1, H3
H1 A
H3 D, H4
H4 D+1
W LRBLA1+3

Naked Globals

Name Field # of Occurrence
^( LRBLA1+5, D+1, A, S+4*
^("N" S+5*
^("T" S+5*
^(0 A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLA1+5*, S+1*
>> B S+1*
>> E S+2*, S+3*
IOSL LRBLA1+7, D, D+1, A
IOST H
>> LR("%" H+1, H+3
>> LR("F" H
>> LR("Q" LRBLA1+3, LRBLA1+4, LRBLA1+6, LRBLA1+7, LRBLA1+8, D, D+1, A, H, H1
, H3, H4
>> LRA LRBLA1+8*, A*
>> LRA( S+1*
LRB LRBLA1+3!, LRBLA1+8*, D+1, A*, H+2
LRB( H+2
LRB("A" S*
LRB("CA" W+2*
LRB("CD" W+2*
LRB("CH" W+2*
LRB("CT" W+2*
LRB("D" S*
LRB("H" S*
LRB("N" W+3*
LRB("PA" W+1*
LRB("PD" W+1*
LRB("PH" W+1*
LRB("PT" W+1*
LRB("S" S*
LRB("T" S*
LRB("WA" W*
LRB("WD" W*
LRB("WH" W*
LRB("WT" W*
>> LRC H+1
>> LRC(2 H+1
>> LRD LRBLA1+8*, D, A*
>> LRE D+1*
>> LRF LRBLA1+3*, S*, H+1
>> LRG D+1*, D+2
>> LRLST H+1
>> LRP LRBLA1+7*, LRBLA1+8*, D, H4
>> LRSTR H+1
>> LRX LRBLA1+6*, D+1*, A
>> LRY D*, H4
>> T S+1*, S+2*, S+4*
>> X LRBLA1+5*, D+1*, A*, S*, S+1*, W*, W+1*, W+2*
>> Y LRBLA1+5*, D*, S+1*
>> Z S+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All