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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRCAPACC

Package: Lab Service

Routine: LRCAPACC


Information

LRCAPACC ; IHS/DIR/AAB - LAB WORKLOAD DIVISION REPORT BY CAP CODE 8/23/91 1039 ;

Source Information

Source file <LRCAPACC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 4 ^%DT  ^DIC  WAIT^DICD  YN^DICN  
Lab Service 1 DT^LRX  

Entry Points

Name Comments DBIA/ICR reference
DATES ;
EN ;
ASK1
ZIS
ASK2 ;
DD ;
QUEUE ;
HEADER ;
EXIT ;
SUB
LOOP3 ;
LOOP2 ;
LOOP1 ;
SEL ;
LOOP ;
DQ ;

External References

Name Field # of Occurrence
^%DT ASK1+1, ASK2+2
^%ZIS ZIS
^%ZISC EXIT+1
^%ZTLOAD QUEUE+1
^DIC SEL+4
WAIT^DICD LOOP+2
YN^DICN SEL+1, SEL+2
DT^LRX LOOP+1
$$FMTE^XLFDT DD+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Variable: X
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Beginning Date: "
  • Line Location: ASK1+0
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Variable: X
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Ending Date: "
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!?10,"Nothing Selected ",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+0
Function Call: WRITE
  • Prompt: !!?10,"No Data for "
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: " - "
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: " - "
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !,"Division: ",LRDV2
  • Line Location: LOOP3+2
Function Call: WRITE
  • Prompt: ?20,"From: "
  • Line Location: LOOP3+3
Function Call: WRITE
  • Prompt: ?35,"To: "
  • Line Location: LOOP3+3
Function Call: WRITE
  • Prompt: ?50,"Total: ",$J(^("TOT WRK"),10,2)
  • Line Location: LOOP3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP3+6
Function Call: WRITE
  • Prompt: !?2,$P(C,U,2),?12,$J(CP,10,2)," ",$P(C,U)
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IOST["P-"&($Y>(IOSL-10))
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!," Lab Workload Division Report for Site: ",LRDV1," Printed: ",LRDT0,!!,?60,"Pg: ",LRPG,!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(X,"1D")
  • Line Location: DD+1
Routine Call
  • DIC
  • Line Location:
    • SEL+4
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAM - [#64] SUB+1
^LAM("E" SUB
^TMP("WL" LOOP+2
^TMP($J EN+1!, DQ+3, EXIT+1!, LOOP+3, LOOP2+1, LOOP3+3, LOOP3+5, DATES+1*, DATES+2*, DATES+3
, DATES+4*, DATES+5*

Label References

Name Line Occurrences
ASK1 ASK1+1
ASK2 ASK2+2
DATES LOOP1+3
DD DQ+3, LOOP3+3
EXIT ASK1, ASK1+1, ASK2+1, ASK2+2, SEL+2, SEL+3, SEL+5, ZIS, QUEUE+1
HEADER LOOP+3, LOOP3+1, LOOP3+5
LOOP DQ+2
LOOP1 LOOP+2
LOOP2 LOOP+3
LOOP3 LOOP2+1
QUEUE ZIS
SUB LOOP3+5
ZIS SEL+2, SEL+3

Naked Globals

Name Field # of Occurrence
^( LOOP+2, LOOP3+5, DATES+3*
^("HI DT" LOOP3+3
^("TOT WRK" LOOP3+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SEL+1*, SEL+2*, SEL+3, EXIT+1!
%DT ASK1*, ASK2+1*, EXIT+1!
%ZIS ZIS*, EXIT+1!
C EXIT+1!, LOOP3+5*, SUB*, SUB+1*
CODE EXIT+1!, LOOP1+3*, DATES+3
CP EXIT+1!, LOOP3+5*, SUB+1
DIC SEL+4!*
DIC(0 SEL+4*
DTIME ASK1, ASK2+1
I EXIT+1!, LOOP3+5*
IO ZIS
IO("Q" ZIS, EXIT+1!
IO(0 ZIS
IOF DQ+4, LOOP+2, HEADER+1
ION QUEUE+1
IOSL LOOP+3, LOOP3+1, LOOP3+5, HEADER+1
IOST DQ+4, LOOP+2, LOOP+3, LOOP3+1, LOOP3+5, HEADER+1
LRCAP EXIT+1!, LOOP1+3
LRCAP( SEL+4*, LOOP1+3, DATES+3
LRCAP("A" SEL+3*, LOOP1+3, DATES+3
LRCAP(0 SEL+5
LRDT EXIT+1!, LOOP1+1*, LOOP1+3, DATES+4, DATES+5
>> LRDT0 HEADER+1
LRDT1 ASK1+1*, ASK2+2*, EXIT+1!, LOOP+1*, LOOP1+3
LRDT1P DQ+3, EXIT+1!, LOOP+1*
LRDT2 ASK2+2*, EXIT+1!, LOOP+1*, LOOP1+3
LRDT2P DQ+3, EXIT+1!, LOOP+1*
LRDV1 EXIT+1!, LOOP+1*, LOOP+3*, LOOP1+2*, LOOP1+3, LOOP2+1, LOOP3+3, LOOP3+5, HEADER+1, DATES+1
, DATES+2, DATES+3, DATES+4, DATES+5
LRDV2 EXIT+1!, LOOP+1*, LOOP1+1*, LOOP1+3, LOOP2+1*, LOOP3+2, LOOP3+3, LOOP3+5, DATES+1, DATES+2
, DATES+3, DATES+4, DATES+5
LRLN EXIT+1!, LOOP+1*, LOOP+2*
LRPG DQ+2*, EXIT+1!, HEADER+1*
LRTXT EXIT+1!, LOOP+2*, LOOP1+1, LOOP1+2, LOOP1+3, DATES+2
TOT DQ+2, EXIT+1!, LOOP+1*, LOOP3+4*
TT EXIT+1!, DATES+2*, DATES+3
U SEL+4, SUB+1
>> X ASK1*, ASK1+1, ASK2+1*, ASK2+2, SEL+4, DQ+3*, LOOP3+3*, DD+1
Y ASK1+1, ASK2+2*, SEL+4, EXIT+1!
Y(0 SEL+4
ZTCPU QUEUE+1!
ZTDESC EXIT+1!, QUEUE+1*
ZTDTH QUEUE+1!
ZTIO EXIT+1!, QUEUE+1*
>> ZTQUEUED DQ+1
>> ZTREQ DQ+1*
ZTRTN EXIT+1!, QUEUE+1*
ZTSAVE EXIT+1!
ZTSAVE("LRCAP*" QUEUE+1*
ZTSAVE("LRDT*" QUEUE+1*
ZTSK EN+1!, EXIT+1!
ZTUCI QUEUE+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All