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

Package: Lab Service

Routine: LRCAPA12


Information

LRCAPA12 ;SLC/RJS/FHS - LAB WORKLOAD DIVISION REPORT;8/23/91 1039;

Source Information

Source file <LRCAPA12.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 ^%DT  WAIT^DICD  
Lab Service 1 DT^LRX  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!,"Beginning Date: "
  • Line Location: ASK1+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Ending Date: "
  • Line Location: ASK2+1
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: !!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IOST["P-"
  • Line Location: LOOP+2
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: @IOF
  • Condition for execution: IOST["P-"&($Y>(IOSL-6))
  • 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
  • %ZIS
  • Line Location:
    • ASK2+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("WL" LOOP+3
^TMP($J EN+2!, DQ+3, EXIT+2!, LOOP+5, LOOP1+4*, LOOP2+1, LOOP3+3, DATES+1, DATES+2*, DATES+3*
NEW+1*, NEW+2*, NEW+3*

Label References

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

Naked Globals

Name Field # of Occurrence
^( LOOP+3
^("HI DT" LOOP3+3
^("TOT WRK" LOOP3+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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