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

Package: Lab Service

Routine: LRACM2F


Information

LRACM2F ; IHS/DIR/FJE - LIST CUMULATIVE PATIENTS FOR SELECTED LOCATIONS ; [ 07/22/2002 12:29 PM ]

Source Information

Source file <LRACM2F.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  
Lab Service 2 END^LRACM  (KVAR,PT)^LRX  
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAC LIST  LRACM2  

Entry Points

Name Comments DBIA/ICR reference
EN ;Print list of cumulative patients for range of locations.
END ; Clean up.
HDR ; Print header for report.
HDR1 ; Print header for display.
TASK ; Entry point for tasked option. Prints current report date for all locations.
DQ ; Dequeue entry point.

External References

Name Field # of Occurrence
^%DT EN+4
^%ZIS EN+30
^%ZISC EN+35, END+6
^%ZTLOAD EN+34
^DIR EN+12, EN+17, HDR+3
END^LRACM END+3
KVAR^LRX END+4
PT^LRX DQ+15
$$FMTE^XLFDT EN+3, EN+5, TASK+3
$$HTE^XLFDT DQ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Current Cumulative Report Date: ",Y,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: ?X,$J(LRI,4),?X+6,$E(Y,1,20)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: "No patients for this day",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: ?X,$J(LRI,4),?X+6,"ALL Locations"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Request ",$S($D(ZTSK):"",1:"NOT "),"Queued"
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !!," LOCATION: ",L,?43,"LRDFN",!
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !!," LOCATION: ",L," (Continued)",?43,"LRDFN",!
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !,LRCTRR,?5,$E(PNM,1,20),?28,HRCN,?42,$J(LRDFN,6),?50,$S(Y:"Processed",1:"")
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: ?61,"File: ",LRDPF,?72,$E(LRWRD,1,8)
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: !!,"Totals for ",$S(LRALL:"'ALL'",1:"Selected")," Locations"
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !!,"Number of Patients: ",$J($FN(LRCTRR(0),","),5)
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: !," Number Processed: ",$J($FN(LRCTRR(1),","),5)
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "List of Cumulative Patients for ",$S(LRALL:"'ALL'",1:"Selected")," Location",$S(LRCNT>1:"s",1:"")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+32>IOM
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?IOM-32," Printed: ",LRPDT
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Report Date: ",LRDT1,?IOM-28,"Page: ",LRPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"For Location",$S(LRCNT>1:"s",1:""),": "
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "'ALL'"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?17
  • Condition for execution: $X+$L(X)+3>IOM
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: X,", "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,LRLINE,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: @IOF,"The following locations have patients for ",LRDT1,".",!!
  • Line Location: HDR1+1
Routine Call
  • DIR
  • Line Location:
    • EN+12
    • EN+17
    • HDR+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.5 - [#64.5] EN+2, TASK+2
^LR - [#63] DQ+15
^LRO(69 - [#69] EN+8, DQ+11, DQ+13, DQ+16, TASK+5
^TMP($J EN+1!, EN+9*, EN+24*, EN+25*, EN+28*, EN+29*, DQ+4, DQ+7, END+1!, HDR+11
, TASK+5*, TASK+7*

Label References

Name Line Occurrences
DQ TASK+8
END EN+14, EN+18, EN+31, TASK+2, TASK+6
HDR DQ+5, DQ+8, DQ+14, DQ+22
HDR1 EN+6, EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+1!, EN+4*, END+2!
%DT("A" EN+4*
%DT("B" EN+3*
%DT(0 EN+4*
>> %ZIS EN+30*
>> DFN DQ+15*
DIR EN+1!, EN+12!, EN+17!, HDR+3!
DIR("A" EN+17*
DIR(0 EN+12*, EN+17*, HDR+3*
>> DIRUT EN+18
>> HRCN DQ+18
>> I EN+27*, EN+28*
IO DQ+1
IO("C" EN+30!
IO("Q" EN+30!, EN+31
IOF DQ+26, HDR+4, HDR1+1
IOM DQ+3, HDR+7, HDR+8, HDR+11
IOSL EN+11, DQ+8, DQ+14, DQ+22, HDR+2
IOST DQ+26, HDR+1
J EN+19*, EN+24*, EN+25, EN+27*, EN+28*, EN+29, END+2!
L DQ+6*, DQ+7*, DQ+9, DQ+11, DQ+13, DQ+14, DQ+16, END+2!
LR EN+1!, EN+2*, EN+15*, EN+23, END+2!
LRALL EN+2*, EN+20, EN+22, EN+23*, EN+26, DQ+23, END+2!, HDR+6, HDR+10, TASK+1*
LRCNT DQ+4*, END+2!, HDR+6, HDR+9
>> LRCTRR DQ+2*, DQ+16*, DQ+18, DQ+20*
>> LRCTRR(0 DQ+2*, DQ+20*, DQ+24
>> LRCTRR(1 DQ+2*, DQ+16*, DQ+25
>> LRDFN DQ+12*, DQ+13*, DQ+15, DQ+16, DQ+18
>> LRDPF DQ+15*, DQ+19
>> LRDT EN+5*, EN+8, DQ+11, DQ+13, DQ+16, TASK+2*, TASK+3, TASK+5
>> LRDT1 EN+5*, HDR+8, HDR1+1, TASK+3*
>> LREND EN+2*, EN+8, EN+12*, EN+15, DQ+2*, DQ+7, DQ+8, DQ+11, DQ+13, DQ+14
, DQ+21, HDR+1, HDR+3*, TASK+1*
LRI EN+7*, EN+9*, EN+14, EN+15*, EN+17, END+2!, TASK+4*, TASK+5*, TASK+6, TASK+7
LRLINE DQ+3*, END+2!, HDR+12
LRLLOC EN+1!, END+2!
LRPDT DQ+3*, END+2!, HDR+7
>> LRPG DQ+2*, HDR+1, HDR+5*, HDR+8
LRPRAC END+2!
>> LRWRD DQ+19
P DQ+10*, DQ+11*, DQ+13, DQ+16, END+2!
>> PNM DQ+18
>> POP EN+30
U EN+2, TASK+2
X EN+7*, EN+9*, EN+10*, EN+12~, EN+15, EN+21*, EN+22, EN+23, EN+24, DQ+15*
, END+2!, HDR+11*
XX EN+22*, EN+23, EN+24, END+2!
Y EN+2*, EN+3*, EN+4, EN+5, EN+7*, EN+8*, EN+9, EN+12~, DQ+16*, DQ+18
, HDR+3, TASK+4*, TASK+5*
Y( EN+20, EN+21
Z EN+19*, EN+20*, EN+21, END+2!
>> ZTDESC EN+32*
>> ZTQUEUED END+5, HDR+1
>> ZTREQ END+5*
>> ZTRTN EN+32*
>> ZTSAVE("LRALL" EN+33*
>> ZTSAVE("LRDT" EN+33*
>> ZTSAVE("LRDT1" EN+33*
>> ZTSAVE("^TMP($J,""LRLLOC""," EN+33*
ZTSK EN+34!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All