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

Package: Lab Service

Routine: LRBLDSC


Information

LRBLDSC ; IHS/DIR/FJE - DONOR SCHEDULING REPORT 09:01 ; [ 2/18/93 ]

Source Information

Source file <LRBLDSC.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 (B,DT,F,L,M,S,V)^LRU  (,BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDP  

Entry Points

Name Comments DBIA/ICR reference
B
END
I
H
H1
H2
QUE
T
W
Y

External References

Name Field # of Occurrence
B^LRU LRBLDSC+6
DT^LRU QUE+3, Y+1
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
^LRUTL LRBLDSC+4
BEG^LRUTL LRBLDSC+7
END^LRUTL QUE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,"DONOR SCHEDULING REPORT BY DONATION OR DEFERRAL DATE"
  • Line Location: LRBLDSC+5
Function Call: WRITE
  • Prompt: !!?2,"DONATION OR DEFERRAL DATE: ",Y
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!?5,"Total"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRF
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: ?11,$P($P(LRD,A_":",2),";"),?25,":",$J(LR(A,"S"),8)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?2,"Subtotal"
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRF
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?11,$P($P(LRD,A_":",2),";"),?25,":",$J(LR(A),8)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !?13,$P($P(LRT,B_":",2),";"),?24,":",$J(LR(A,B),3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,$S(Y[":":Y,1:Y_"??:??"),?15,$P(LRE,"^"),?28,A,?43,B,?54,$P(LRE,"^",4)
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !?13,$P($P(LRT,B_":",2),";"),?24,":",$J(LR(A,"S",B),4)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"DONOR SCHEDULING REPORT FROM ",LRSTR," TO ",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"ARRIVAL/APPT",?15,"UNIT ID",?28,"DON/DEF",?43,"DON. TYPE",?54,"PATIENT CREDIT",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!?2,"DONATION OR DEFERRAL DATE: ",LRW
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?2,"Total Count: "
  • Line Location: H2+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65.54 QUE
^LRE - [#65.5] I
^LRE("AD" QUE+1, I
^TMP($J QUE!, QUE+3, W+1, I*

Label References

Name Line Occurrences
B W+3
END LRBLDSC+4, LRBLDSC+6, LRBLDSC+7, QUE+5
H QUE, QUE+3, H1, H2
H1 W+1, W+2, W+3, B
H2 QUE+4, T
I QUE+1
T QUE+4
W QUE+3
Y W+1

Naked Globals

Name Field # of Occurrence
^( W+1
^(0 I

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+4*, W+3*, B, Y*, Y+1*, I*, T
>> B B*, Y*, Y+1*, I*, T*
IO QUE
IOF LRBLDSC+5
IOSL QUE+3, QUE+4, W+1, W+2, W+3, B, T
IOST H
>> LR( QUE+4, W+3, B, Y*, T
>> LR("%" H+2
>> LR("C" QUE+2*, W*
>> LR("F" QUE*, H
>> LR("N" QUE+2*, W*
>> LR("P" QUE+2*, W*
>> LR("Q" QUE+3, QUE+4, W+1, W+2, W+3, B, I, T, H, H1
, H2
>> LR("W" QUE+2*, W*
>> LRA QUE*, QUE+1*, QUE+3*, W+1, Y+1, I
>> LRB W+1*, Y+1
>> LRD QUE*, QUE+4, W+3, Y+1
>> LRE W+1*, Y, Y+1
>> LRF QUE+4*, W+3*
>> LRI W+1*, I*
>> LRIDT QUE+1*, QUE+3*, I
>> LRLDT QUE+1
>> LRLST H+1
>> LRSDT QUE, QUE+3
>> LRSTR H+1
>> LRT QUE*, B, Y+1, T
>> LRW QUE+3*, H1
>> POP LRBLDSC+7
U QUE
>> X LRBLDSC+4*, I*
>> Y LRBLDSC+4, LRBLDSC+6, QUE+1*, QUE+3*, Y+1*
>> ZTRTN LRBLDSC+7*
>> ZTSK LRBLDSC+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All