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

Package: Lab Service

Routine: LRFAC


Information

LRFAC ; IHS/DIR/FJE - CUM PRINT FOR FILEROOM PATIENTS TO SEPARATE PRINTER ;

Source Information

Source file <LRFAC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  SETUP^XQALERT  
VA Fileman 2 ^%DT  ^DIR  
Lab Service 1 ENT^LRAC1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point from menu option to manually task file room cumulative.
END ; Clean up time.
CLOCK ; Task fileroom patients cumulative to appropiate devices.
ALERT ;Send Alert Messages to LRLIASON mail group
CHECK ; Check File 64.5 for proper setup.
DQ ; Queued entry point to actually print fileroom reports

External References

Name Field # of Occurrence
^%DT CLOCK+13
^%ZIS CLOCK+34
^%ZISC CLOCK+38, END+1
^%ZTLOAD EN+12, CLOCK+37
^DIR EN+9
ENT^LRAC1 DQ+2
SETUP^XQALERT ALERT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?20,"Checking File #64.5, LAB REPORTS FILE"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$C(7),$P(LRERR,U,2),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"File Setup ...OK",!!,"Will schedule report(s):"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: ?25,$P(LRRP(LRRPTN),U),!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Request ",$S($D(ZTSK):"",1:"NOT "),"Queued"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"Task #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: EN+12
Routine Call
  • DIR
  • Line Location:
    • EN+9
Routine Call
  • %ZIS
  • Line Location:
    • CLOCK+34

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.5 - [#64.5] CLOCK+5, CLOCK+6, CLOCK+10, CLOCK+11, CLOCK+12, CLOCK+25*, CLOCK+26, CLOCK+30, CLOCK+31, DQ+1*
, CHECK+2, CHECK+6, CHECK+7
^LAC("LRAC" - [#64.7] CLOCK+5, CLOCK+24
^LAC($J CLOCK+4!
^LRO(69 - [#69] CLOCK+18, CLOCK+20, CLOCK+22, CLOCK+24*
^XUSEC("LRLIASON" ALERT+1

Label References

Name Line Occurrences
ALERT CLOCK+3, CLOCK+8
CHECK EN+2, CLOCK+1
END EN+2, EN+13, CLOCK+1, CLOCK+9, CLOCK+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CLOCK+13*, END+2!
%H END+2!
%ZIS CLOCK+34*, END+2!
CNT CLOCK+6*, END+3!
DA END+2!
DIR EN+6!, EN+9!, END+2!
DIR("?" EN+8*
DIR("A" EN+7*
DIR("B" EN+7*
DIR(0 EN+7*
DIRUT END+2!
I CLOCK+35*, END+2!
IOF EN+1
IOP CLOCK+34*, CLOCK+38!
LRBOT CLOCK+12*, END+3!
LRCVT END+3!
LRDFN CLOCK+23*, CLOCK+24*, END+3!
LRDT CLOCK+10*, CLOCK+11, CLOCK+18, CLOCK+24, CLOCK+25, END+3!
LREND END+3!
LRERR EN+2, CLOCK+1, CHECK+2*, CHECK+3*, CHECK+4*, CHECK+6, CHECK+9*, CHECK+10*, CHECK+12*, CHECK+13*
, END+3!
LRLDT CLOCK+11*, CLOCK+17*, CLOCK+18*, CLOCK+20, CLOCK+22, CLOCK+24, CLOCK+25*, END+3!
LRLLOC CLOCK+19*, CLOCK+20*, CLOCK+22, CLOCK+24, END+3!
LRNM END+3!
LRPERM CLOCK+12*, END+3!
LRRE CLOCK+12*, END+3!
LRRP CHECK+13, END+3!
LRRP( EN+5, CHECK+11*
LRRPTN EN+4*, EN+5*, CLOCK+29*, CLOCK+30*, CLOCK+31, DQ+1, CHECK+1~, CHECK+5*, CHECK+6*, CHECK+7
, CHECK+11, END+3!
LRX CHECK+1~, CHECK+5!, END+3!
LRX( CLOCK+31*, CLOCK+32, CLOCK+34, CHECK+7*, CHECK+8
LRX(0 CLOCK+31*, CLOCK+32, CHECK+2*, CHECK+3, CHECK+7*, CHECK+9, CHECK+10, CHECK+11, CHECK+12
LRX(6 CHECK+2*, CHECK+4
LRXLR CLOCK+12*, END+3!
LRYDT CLOCK+13*, END+3!
PNM CLOCK+21*, CLOCK+22*, CLOCK+24, END+2!
>> POP CLOCK+34
U EN+2, EN+5, CLOCK+10, CLOCK+11, CLOCK+12, CLOCK+24, CLOCK+25, CLOCK+32, CLOCK+34, DQ+1
, CHECK+3, CHECK+4, CHECK+8, CHECK+9, CHECK+10, CHECK+12, CHECK+13
X CLOCK+13*, END+2!
X1 END+2!
X2 END+2!
XQ1 END+4!
>> XQA ALERT+2
>> XQA( ALERT+1*
XQAMSG CLOCK+2*, CLOCK+4!, CLOCK+7*, CLOCK+9, END+4!, ALERT+1
XQXFLG END+4!
Y EN+10, CLOCK+13, END+2!, ALERT+1~*
Z END+2!
>> ZTDESC EN+11*, CLOCK+36*
>> ZTDTH CLOCK+36*
ZTIO EN+11*, CLOCK+28~
>> ZTQUEUED DQ+3, END+1
>> ZTREQ DQ+3*, END+1*
>> ZTRTN EN+11*, CLOCK+36*
>> ZTSAVE( CLOCK+35*
ZTSK EN+12, CLOCK+37!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All