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

Package: Lab Service

Routine: LRBLJLA


Information

LRBLJLA ;AVAMC/REG/CYM - CROSSMATCH LABELS ;6/17/96 14:21 ;

Source Information

Source file <LRBLJLA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 CK^LRBLPUS  ^LRDPA  (D,SSN,V,YN)^LRU  (BEG,END)^LRUTL  
VA FileMan 3 ^%DT  ^DIC  ^DIE  

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

Package Total Caller Graph
Lab Service 2 LRBLILA  LRBLPX  

Entry Points

Name Comments DBIA/ICR reference
ED
I
ASK
QUE
OUT
C
E
A
B
END

External References

Name Field # of Occurrence
^%DT B+1
^DIC C
^DIE C+1
CK^LRBLPUS LRBLJLA+3
^LRDPA A
D^LRU B+1
SSN^LRU A
V^LRU END
YN^LRU LRBLJLA+5, LRBLJLA+6, LRBLJLA+7, ED, ED+1
BEG^LRUTL ASK+3
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"PRINT XMATCH LABELS"
  • Line Location: LRBLJLA+4
Function Call: WRITE
  • Prompt: !?25,"(There ",$S(X>1:"are",1:"is")," ",X," label",$S(X>1:"s",1:"")," to print)"
  • Condition for execution: X
  • Line Location: LRBLJLA+4
Function Call: WRITE
  • Prompt: !?3,"Add labels for emergency transfusion "
  • Line Location: LRBLJLA+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLJLA+6
Function Call: WRITE
  • Prompt: !,"Do you want to delete the list of labels "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: $C(7),!,"Are you sure "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: $C(7),!,"Are you sure "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: !,"Edit LABELS "
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !!,"Save list for repeat printing "
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL"
  • Line Location: ED+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !,$C(7),^(3)
  • Condition for execution: $D(^DD(69.2,.07,3))
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $P(X,"^",B),!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: A+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter number of crossmatch labels wanted: "
  • Variable: LRB
  • Timeout: DTIME
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99."
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't make those extra labels now.",!!,"Someone else started this first",!!,"Try again later if you still need extras",!!
  • Line Location: B+2
Routine Call
  • DIC
  • Line Location:
    • C
Routine Call
  • DIE
  • Line Location:
    • C+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69.2 - [#69.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(69.2 ASK
^DIC - [#1] A
^LR - [#63] A
^LRO(69.2 - [#69.2] LRBLJLA+3, LRBLJLA+4, LRBLJLA+6, LRBLJLA+7!, ED+3, QUE+1, OUT!, E, B+2, B+3
, B+4*, B+5

Label References

Name Line Occurrences
A A+1
ASK ASK+1
B B
C LRBLJLA+6, ED, C+1
E LRBLJLA+5
ED LRBLJLA+6
END LRBLJLA+3, LRBLJLA+6, LRBLJLA+7, ED, ED+1, I, ASK+3, OUT
I ASK

Naked Globals

Name Field # of Occurrence
^( QUE+1, A
^(0 LRBLJLA+3*, ED+3, E*, B+3*
^(3 ASK
^(4 ASK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLJLA+5*, LRBLJLA+6*, LRBLJLA+7*, ED*, ED+1*
>> %DT B+1*
%ZIS OUT!
>> A QUE+1*, B+4*
>> B QUE+1*
D C+1!
DA C*, C+1*!
DIC C*!, C+1!, A!
DIC("A" C*
DIC(0 C*
DIE C+1*!
DLAYGO C*!
DR C+1*!
DTIME I, B
IO QUE
>> LR("FORM" OUT*
>> LR("LINE" OUT*
>> LR(1 ED+3*, I, ASK+2*, QUE+1
>> LRAA LRBLJLA+3, LRBLJLA+4, LRBLJLA+6, LRBLJLA+7, ED+3, QUE+1, OUT, E, B+2, B+3
, B+4, B+5
>> LRABO A*, B+4
>> LRB B*, B+3
>> LRC B+3*, B+4
>> LRDFN A
>> LRDPF A*
>> LRP A*, B+4
>> LRQ ED+1*, OUT
>> LRRH A*, B+4
>> POP ASK+3
>> SSN A*, B+4
U ED+3, I, C, B
>> X LRBLJLA+4*, I*, ASK, ASK+1*, ASK+2, QUE+1*, C, A*, B+1*, B+3*
>> Y LRBLJLA+3, C, C+1, A*, B+4
>> Z A*, A+1, B+3*, B+4
>> ZTRTN ASK+3*
>> ZTSK ASK+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