Routine: LRACM2F

Information

LRACM2F ;MILW/JMC - LIST CUMULATIVE PATIENTS FOR SELECTED LOCATIONS ; 5/15/92

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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.
DQ	; Dequeue entry point.
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.

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,SSN,?42,$J(LRDFN,6),?50,$S(Y:"Processed",1:"") Line Location: DQ+17
Function Call: WRITE	Prompt: ?61,"File: ",LRDPF,?72,$E(LRWRD,1,8) Line Location: DQ+18
Function Call: WRITE	Prompt: !!,"Totals for ",$S(LRALL:"'ALL'",1:"Selected")," Locations" Line Location: DQ+22
Function Call: WRITE	Prompt: !!,"Number of Patients: ",$J($FN(LRCTRR(0),","),5) Line Location: DQ+23
Function Call: WRITE	Prompt: !," Number Processed: ",$J($FN(LRCTRR(1),","),5) Line Location: DQ+24
Function Call: WRITE	Prompt: @IOF Line Location: DQ+25
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+21
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
>> I	EN+27, EN+28
IO	DQ+1
IO("C"	EN+30!
IO("Q"	EN+30!, EN+31
IOF	DQ+25, HDR+4, HDR1+1
IOM	DQ+3, HDR+7, HDR+8, HDR+11
IOSL	EN+11, DQ+8, DQ+14, DQ+21, HDR+2
IOST	DQ+25, 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+22, END+2!, HDR+6, HDR+10, TASK+1*
LRCNT	DQ+4*, END+2!, HDR+6, HDR+9
>> LRCTRR	DQ+2, DQ+16, DQ+17, DQ+19*
>> LRCTRR(0	DQ+2, DQ+19, DQ+23
>> LRCTRR(1	DQ+2, DQ+16, DQ+24
>> LRDFN	DQ+12, DQ+13, DQ+15, DQ+16, DQ+17
>> LRDPF	DQ+15*, DQ+18
>> 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+20, 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+18
P	DQ+10, DQ+11, DQ+13, DQ+16, END+2!
>> PNM	DQ+17
>> POP	EN+30
>> SSN	DQ+17
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+17 , 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!

Customize PDF page

Package: Lab Service