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

Package: Lab Service

Routine: LRBLDPA


Information

LRBLDPA ;AVAMC/REG/CYM - BLOOD DONOR PRINT ;6/26/96 08:57 ;

Source Information

Source file <LRBLDPA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRBLDPA1  (D,L,M,S,V,YN)^LRU  (BEG,END)^LRUTL  
VA FileMan 2 ^DIC  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 LRBLQSD  

Entry Points

Name Comments DBIA/ICR reference
QUE
L
ASK
W
END

External References

Name Field # of Occurrence
^DIC LRBLDPA+3
FIELD^DID QUE
^LRBLDPA1 QUE+2
D^LRU L, ASK+1
L^LRU QUE
M^LRU L
S^LRU QUE
V^LRU END
YN^LRU LRBLDPA+4
BEG^LRUTL LRBLDPA+5
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Include workload information "
  • Line Location: LRBLDPA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLDPA+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Numbers only from 1 to ",C
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: W:B=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!?5,"Donation Date",?30,"Unit ID"
  • Condition for execution: B=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$J(C,2),?5,Y,?30,$P(W,"^",4)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: "NO DONATION"
  • Condition for execution: W(2)="N"
  • Line Location: W+0
Routine Call
  • DIC
  • Line Location:
    • LRBLDPA+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls,  FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRE - [#65.5] LRBLDPA+4, L, ASK+1
^TMP($J LRBLDPA+4!, L*, ASK, ASK+1!

Label References

Name Line Occurrences
ASK ASK
END LRBLDPA+3, LRBLDPA+4, LRBLDPA+5, QUE+2
L LRBLDPA+4
W L

Naked Globals

Name Field # of Occurrence
^( L

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDPA+4*
>> A LRBLDPA+4*, L*
>> B L*, W
>> C LRBLDPA+4*, L*, ASK, W
DIC LRBLDPA+3*!, LRBLDPA+5!
DIC("A" LRBLDPA+3*
DIC(0 LRBLDPA+3*
DIE LRBLDPA+5!
>> DIWF QUE+1*
>> DIWL QUE+1*
>> DIWR QUE+1*
DR LRBLDPA+5!
DTIME ASK
IO QUE
IOM QUE+1
>> LR LRBLDPA+3*, LRBLDPA+4, L, ASK+1
>> LR("Q" LRBLDPA+3*, L
>> LRI LRBLDPA+4, ASK+1*
>> LRN LRBLDPA+3*, LRBLDPA+4*
NAME QUE~
NAME("LABEL" QUE
>> POP LRBLDPA+5
U LRBLDPA+3, ASK
>> W L*, W
>> W(2 L*, W
>> X LRBLDPA+3, QUE*, ASK*, ASK+1
>> Y LRBLDPA+3, QUE*, L*, ASK+1*, W
>> ZTRTN LRBLDPA+5*
>> ZTSK LRBLDPA+5
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