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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRRP8A

Package: Lab Service

Routine: LRRP8A


Information

LRRP8A ; IHS/DIR/FJE - WKLD STATS REPORT BY SHIFT ;

Source Information

Source file <LRRP8A.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 DD^%DT  ^DIC  ^DIR  
Lab Service 1 DATE^LRCAPR1A  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRRP8  

Entry Points

Name Comments DBIA/ICR reference
Q1
DATES ;*** Query for date ***
QTR ;*** Query for a time range (in military format) ***
REPTYP ;*** Query for type of type of report ***
QST ;*** Query for shifts ***
CAPS ;*** Query for CAP codes ***
DEVICE ;
QDT ;*** Query for a specific date ***
INST ;*** Query for institution ***
ACCAREA ;*** Query for accession areas ***
ASK ;
QUE ;
TIMES ;*** Query for type of time search ***

External References

Name Field # of Occurrence
DD^%DT QDT+4
^%ZIS DEVICE+1
^%ZISC QUE+3
^%ZTLOAD QUE+3
^DIC INST+3, ACCAREA+10, CAPS+11, QDT+2
^DIR ACCAREA+6, DATES+3, CAPS+6, TIMES+3, REPTYP+3, QST+4, QTR+3, Q1+1
DATE^LRCAPR1A DATES+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ENTRY POINT IS AT EN^LRRP8."
  • Line Location: LRRP8A+4
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: !,"DATE selection:"
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CAPS+9
Function Call: WRITE
  • Prompt: !,"TIME selection:"
  • Line Location: TIMES+1
Function Call: WRITE
  • Prompt: !,"REPORT selection:"
  • Line Location: REPTYP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QDT+1
Function Call: WRITE
  • Prompt: !,"How many shifts?"
  • Line Location: QST+2
Function Call: WRITE
  • Prompt: !!,"For Shift # ",I3
  • Line Location: QST+6
Function Call: WRITE
  • Prompt: !,"Enter TIME RANGE in military format HHMM.SS (0.00 - 2400.00):"
  • Line Location: QTR+1
Function Call: WRITE
  • Prompt: !,"Stop time should be GREATER than start time"
  • Line Location: Q1+3
Routine Call
  • DIC
  • Line Location:
    • INST+3
    • ACCAREA+10
    • CAPS+11
    • QDT+2
Routine Call
  • DIR
  • Line Location:
    • ACCAREA+6
    • DATES+3
    • CAPS+6
    • TIMES+3
    • REPTYP+3
    • QST+4
    • QTR+3
    • Q1+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] Classic Fileman Calls
^LRO(64.1 - [#64.1] Classic Fileman Calls

Label References

Name Line Occurrences
ACCAREA ASK+2
CAPS ASK+4
DATES ASK+3
DEVICE ASK+7
INST ASK+1
Q1 Q1+2
QDT DATES+5
QST TIMES+4
QTR TIMES+5, QST+7, QTR+4, Q1+3
QUE DEVICE+3
REPTYP ASK+6
TIMES ASK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1!*
DIC INST+1!, INST+3*, ACCAREA+9!*, CAPS+10*, QDT+2*
DIC("A" CAPS+10*
DIC(0 INST+3*, ACCAREA+9*, CAPS+10*, QDT+2*
DIR ACCAREA+2!, DATES+2!, CAPS+1!, TIMES+2!, TIMES+3!, REPTYP+2!, QST+3!, QST+4!, QTR+2!, QTR+3!
, Q1!, Q1+1!
DIR("?" ACCAREA+4*, ACCAREA+5*, CAPS+4*, CAPS+5*
DIR("A" ACCAREA+3*, CAPS+3*, QTR+2*, Q1*
DIR("B" ACCAREA+2*, CAPS+2*
DIR(0 ACCAREA+2*, DATES+2*, CAPS+2*, TIMES+2*, REPTYP+2*, QST+3*, QTR+2*, Q1*
>> DIRUT DATES+4, QST+4
>> DTOUT INST+4, ACCAREA+8, ACCAREA+12, CAPS+8, CAPS+12, TIMES+3, REPTYP+4, QTR+3, Q1+1
>> DUOUT INST+4, ACCAREA+8, ACCAREA+12, DATES+4, CAPS+8, CAPS+12, TIMES+3, REPTYP+4, QST+4, QTR+3
, Q1+1
I CAPS+1~, CAPS+11*
I3 QST+1~, QST+5*, QST+6, QST+8
IO("Q" DEVICE+3
IOF INST+2
>> LRAA ACCAREA+1*, ACCAREA+11*, QUE+2
>> LRAA( ACCAREA+11*
>> LRCAPS CAPS+1*, CAPS+11*
>> LRCAPS( CAPS+11*
>> LRDATE QDT+4*
>> LRDR QDT+4*
>> LRDTH QDT+5*
>> LREND ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, INST+4*, ACCAREA+8*, ACCAREA+12*
, DATES+4*, DATES+6*, CAPS+8*, CAPS+12*, TIMES+3*, TIMES+5*, REPTYP+4*, DEVICE+2*, DEVICE+3*, QDT+3*
, QST+4*, QST+5, QST+7, QTR+3*, Q1+1*
>> LRFR QDT+4*
>> LRIN INST+5*, QDT+2
>> LRNSFT QST+4*, QST+5
>> LRRPT REPTYP+5*
>> LRST( QST+8*
>> LRSTFLG QST+2*
>> LRSTOP TIMES+5, QST+8, Q1+2*, Q1+3
>> LRSTRT TIMES+5, QST+8, QTR+4*, Q1+3
>> LRTO QDT+4*
POP DEVICE+1!, DEVICE+2
U ACCAREA+11, CAPS+11
X ACCAREA+2!, DATES+2!, DATES+5, CAPS+1!, TIMES+4, REPTYP+5, QST+4, QTR+4, Q1+2
Y INST+4, INST+5, ACCAREA+2!, ACCAREA+7, ACCAREA+10, ACCAREA+11, DATES+2!, DATES+6, CAPS+1!, CAPS+7
, CAPS+11, QDT+3, QDT+4, QDT+5
Y(0 ACCAREA+11
>> ZTDESC QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE("LR*" QUE+1*
>> ZTSAVE("LRAA*" QUE+2*
>> ZTSK QUE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All