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 ; IHS/DIR/AAB - CROSSMATCH LABELS 6/17/96 14:21 ;

Source Information

Source file <LRBLJLA.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLILA  LRBLPX  

Entry Points

Name Comments DBIA/ICR reference
A ;K DIC D ^LRDPA Q:LRDFN=-1 S X=^LR(LRDFN,0),Y=$P(X,"^",3),LRABO=$P(X,"^",5),LRRH=$P(X,"^",6),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),Z=$S($D(@(X_Y_",.35)")):+^(.35),1:0),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
C
B
E
I
ED
QUE
ASK
END
OUT

External References

Name Field # of Occurrence
^%DT B+1
^DIC C
^DIE C+1
CK^LRBLPUS LRBLJLA+3
^LRDPA A+1
D^LRU B+1
SSN^LRU A+1
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
  • Timeout: DTIME
  • Variable: X
  • 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+2
Function Call: READ
  • Prompt: "Enter number of crossmatch labels wanted: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: LRB
  • 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
  • DIE
  • Line Location:
    • C+1
Routine Call
  • DIC
  • Line Location:
    • C

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+1
^LR - [#63] A+1
^LRO(69.2 - [#69.2] LRBLJLA+3, LRBLJLA+4, LRBLJLA+6, LRBLJLA+7!, ED+3, QUE+1, OUT!, E, B+2, B+3
, B+5*, B+6

Label References

Name Line Occurrences
A A+2
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+1
^(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+5*
>> B QUE+1*
D C+1!
DA C*, C+1*!
>> DFN A+1*
DIC C*!, C+1!, A+1!
DIC("A" C*
DIC(0 C*
DIE C+1*!
DLAYGO C*!
DR C+1*!
DTIME I, B
>> HRCN B+5
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+5, B+6
>> LRABO A+1*, B+5
>> LRB B*, B+3
>> LRC B+3*, B+5
>> LRDFN A+1
>> LRDPF A+1*
>> LRP A+1*, B+5
>> LRQ ED+1*, OUT
>> LRRH A+1*, B+5
>> POP ASK+3
>> SSN A+1*
U ED+3, I, C, B
>> X LRBLJLA+4*, I*, ASK, ASK+1*, ASK+2, QUE+1*, C, A+1*, B+1*, B+3*
>> Y LRBLJLA+3, C, C+1, A+1*, B+5
>> Z A+1*, A+2, B+3*, B+5
>> 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