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

Package: Lab Service

Routine: LRCAPAM3


Information

LRCAPAM3 ; IHS/DIR/AAB - LAB PHASE 3 LMIP DATA COLLECTION PRINT REPORT 8/23/91 1039 ;

Source Information

Source file <LRCAPAM3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LR WKLD LMIP 3  LR WKLD REVIEW AUSTIN DATA  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK1 ;
ASK2 ;
QUEUE ;
HEADER ;
EXIT ;
LOOP2 ;
DT
LOOP ;
DQ ;

External References

Name Field # of Occurrence
^%ZIS ASK2+5
^%ZISC EXIT+1
^%ZTLOAD QUEUE+2
^DIR DT+3, ASK2+3
$$FMTE^XLFDT ASK1+2, DT+5, ASK2+2, DQ+2, DQ+3, LOOP+11, LOOP2+12
$$NOW^XLFDT DQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(LINE))\2,LINE,!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?5,"Division ",$P($P(LN,U,3),"$$$")," has data for ",$$FMTE^XLFDT(LRDATE,"1D")
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !!?10,"I do not have any data in the file ",!!
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!?10,"I do not have data for this ",$$FMTE^XLFDT(LRDT1,"1D"),!!,$C(7)
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUEUE+3
Function Call: WRITE
  • Prompt: !?5,"Unable to enter User into 'CERTIFIED BY' field in file #67.9",!?10,"Div: [ ",LRDV2," ]for the month of ",$$FMTE^XLFDT(LRDT),!
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !!?5,"Nothing to Report",!!
  • Line Location: LOOP+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+23
Function Call: WRITE
  • Prompt: $E(LRCCD,15)
  • Condition for execution: $E(LRCCD,15)
  • Line Location: LOOP2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP2+8
Function Call: READ
  • Timeout: DTIME
  • Variable: LRX
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(LRPAGE)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"Lab WORKLOAD data Report for Div/Institution: ",$P($G(^DIC(4,LRDV2X,0)),U)_" / "_$P($G(^DIC(4,LRDV1X,0)),U),?(IOM-10)," Page: ",LRPAGE
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(LRHDT))/2,LRHDT
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !," Printed: ",LRPRDT,!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?5,"[ XX* data ] NOT included in total ",!
  • Line Location: HEADER+5
Routine Call
  • DIR
  • Line Location:
    • DT+3
    • ASK2+3
Routine Call
  • %ZIS
  • Line Location:
    • ASK2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOOP+5, LOOP+21, LOOP2+2, LOOP2+5, HEADER+2
^LAH("LABWL" ASK1+1, LOOP+2
^LRO(67.9 - [#67.9] LOOP+10
^TMP($J EN+6!, EXIT+5!, LOOP+12*, LOOP+15, LOOP+16, LOOP+18*, LOOP+19, LOOP+20, LOOP2+1, LOOP2+6
, LOOP2+11

Label References

Name Line Occurrences
ASK1 DT+5
EXIT ASK1+3, DT+4, ASK2+3, ASK2+5, QUEUE+3
HEADER LOOP2+4, LOOP2+7
LOOP DQ+3
LOOP2 LOOP+22
QUEUE ASK2+6

Naked Globals

Name Field # of Occurrence
^( ASK1+1, LOOP+2, LOOP+15*, LOOP+18, LOOP2+6
^("TOT WRK" LOOP+18*, LOOP2+11
^(0 LOOP+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+6!, EXIT+2!
%ZIS ASK2+5*, EXIT+2!
CNT ASK1+1!*, ASK1+2*, ASK1+3, EXIT+2!, LOOP+16*, LOOP+17*, LOOP+18
CNT( ASK1+2*, DT+5
DIR DT!, EXIT+2!
DIR("?" DT+1*, DT+2*, ASK2+1!*
DIR("A" DT*, ASK2+2*
DIR("B" ASK2+2*
DIR(0 DT*
DTIME HEADER+1
>> DTOUT DT+4, ASK2+3, ASK2+5
>> DUOUT DT+4, ASK2+3, ASK2+5
DUZ LOOP+10
I ASK1+1*, EXIT+2!, LOOP+16*, LOOP+17, LOOP2+9*, LOOP2+10
IFN EXIT+4!, LOOP+10*
IO ASK2+7
IO("Q" ASK2+6
IOF DQ+1, DQ+4, LOOP2+14, HEADER+2
IOM EN+1, EN+2, EN+3, EN+4, EN+5, LOOP2+10, HEADER+2, HEADER+3
ION QUEUE+1
IOSL LOOP2+7
IOST DQ+1, DQ+4, LOOP2+14, HEADER+1
LINE EN+1*, EN+2*, EN+3*, EN+4*, EN+5*, EXIT+2!
LN ASK1+1*, ASK1+2, EXIT+4!
LRCCD EXIT+2!, LOOP+12, LOOP+13*, LOOP+14*, LOOP+15, LOOP+16, LOOP+18, LOOP2+6*, LOOP2+8, LOOP2+11
LRCCDN EXIT+2!, LOOP+13*, LOOP+17, LOOP2+6*, LOOP2+9, LOOP2+10
LRCCDN0 EXIT+2!, LOOP2+6*, LOOP2+8
LRCCDNX EXIT+2!, LOOP+16*, LOOP+17*, LOOP+18
LRCHK EXIT+4!, LOOP+1*, LOOP+10*, LOOP+11
LRDATE ASK1+2*, EXIT+4!
LRDT EXIT+2!, LOOP+3*, LOOP+7, LOOP+10, LOOP+11
LRDT1 DT+5*, ASK2+2, DQ+3, EXIT+2!, LOOP+7, LOOP2+12
LRDT2 ASK2+4*, DQ+3, EXIT+2!, LOOP+7, LOOP2+12
LRDV1 EXIT+3!, LOOP+1*, LOOP+3*, LOOP+4, LOOP+5, LOOP+12, LOOP+15, LOOP+16, LOOP+18, LOOP+19*
, LOOP+20*, LOOP+21, LOOP2+1, LOOP2+6, LOOP2+11
LRDV1X EXIT+4!, LOOP+1*, LOOP+5*, LOOP+6, LOOP+10, LOOP+21*, LOOP2+3, HEADER+2
LRDV2 EXIT+3!, LOOP+1*, LOOP+3*, LOOP+4, LOOP+5, LOOP+11, LOOP+12, LOOP+15, LOOP+16, LOOP+18
, LOOP2+1*, LOOP2+2, LOOP2+6, LOOP2+11
LRDV2X EXIT+4!, LOOP+1*, LOOP+5*, LOOP+6, LOOP+10, LOOP2+2*, LOOP2+3, LOOP2+5, HEADER+2
LRHDT DQ+3*, EXIT+3!, HEADER+3
LRLN EXIT+3!, LOOP+1*, LOOP+2*
LRPAGE DQ+2*, EXIT+3!, HEADER+1, HEADER+2*
LRPRDT DQ+2*, EXIT+3!, HEADER+4
LRQUIT EXIT+3!, LOOP+20, LOOP2+1, LOOP2+3*, LOOP2+4, LOOP2+6, LOOP2+7, LOOP2+12, LOOP2+13, HEADER+1*
LRTXT EXIT+3!, LOOP+2*, LOOP+3, LOOP+9, LOOP+12, LOOP+13
LRX EXIT+4!, HEADER+1*
NUM EXIT+3!, LOOP+17*
>> POP ASK2+5
TCNT EXIT+3!, LOOP2+1*, LOOP2+11*, LOOP2+12
U ASK1+2, LOOP+3, LOOP+10, LOOP+13, LOOP+17, LOOP2+5, LOOP2+9, LOOP2+10, HEADER+2
Y DT+4, DT+5, ASK2+3, ASK2+4, EXIT+3!
>> ZTDESC QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTQUEUED EXIT+1, HEADER+1
>> ZTREQ EXIT+1*
>> ZTRTN QUEUE+1*
>> ZTSAVE("LR*" QUEUE+1*
ZTSK EN+6!, EXIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All