Routine: PSXRSTAT

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
CMOP	1	PSXR RX WORKLOAD REPORT

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	TITLE+4
^%ZIS	DEVICE+1
^%ZISC	DEVICE+4, START+11
^%ZTLOAD	QUE+3
^DIR	BEGDATE, ENDDATE+3, MAIN+1, GTOTAL+4, DIVSUML+12, SEL+11, SELECT+3, ALL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Future dates are not allowed.",! Line Location: BEGDATE+3
Function Call: WRITE	Prompt: !,"Ending date must follow beginning date!" Line Location: ENDDATE+6
Function Call: WRITE	Prompt: !! Line Location: DEVICE+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+1
Function Call: WRITE	Prompt: !!!,?30,"Rx WORKLOAD BREAKDOWN"_$S($G(ZZTOT)=1:" SUMMARY",1:"") Line Location: TITLE+5
Function Call: WRITE	Prompt: !,DIVDA(DIVDA) Line Location: TITLE+6
Function Call: WRITE	Prompt: !,"FROM: ",PSXB," TO: ",$P(PSXE,"@")," PRINTED: ",PSXNOW Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"DATE",?8,"TOTAL",?17,"ENTERED",?35,"OUTPATIENT",?47,"RELEASED",?65,"CMOP",?74,"OTHER" Line Location: AHEAD+0
Function Call: WRITE	Prompt: !,?8,"MAIL",?17,"WINDOW",?35,"MAIL",?47,"WINDOW",?65,"Released" Line Location: AHEAD+1
Function Call: WRITE	Prompt: !,?17,"Tot",?23,"Ref",?29,"Rn1",?47,"Tot",?53,"Ref",?59,"Rn1" Line Location: AHEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: MAIN+3
Function Call: WRITE	Prompt: !,ZDATE,?8,+$G(PSXMT),?17,+$G(PSXWT),?23,+$G(PSXWRF),?29,+$G(PSXWRN),?35,+$G(PSXM),?47,+$G(PSXW),?53,+$G(PSXRRF),?59,+$G(PSXRRN),?65,+$G(PSXCR),?74,+$G(PSXUNREL) Line Location: MAIN+8
Function Call: WRITE	Prompt: @IOF Line Location: GRNDTOT+2
Function Call: WRITE	Prompt: !,DIVDA(DIV) Line Location: DIVSUM+2
Function Call: WRITE	Prompt: !,?8,+$G(TOTALT(DIV,"MAIL")) Line Location: DIVSUML+2
Function Call: WRITE	Prompt: ?17,+$G(TOTALT(DIV,"WINDOW")) Line Location: DIVSUML+3
Function Call: WRITE	Prompt: ?23,+$G(TOTALT(DIV,"WINDOW REFIL")) Line Location: DIVSUML+4
Function Call: WRITE	Prompt: ?29,+$G(TOTALT(DIV,"WINDOW RENEW")) Line Location: DIVSUML+5
Function Call: WRITE	Prompt: ?35,+$G(TOTALT(DIV,"OP MAIL")) Line Location: DIVSUML+6
Function Call: WRITE	Prompt: ?47,+$G(TOTALT(DIV,"OP WINDOW")) Line Location: DIVSUML+7
Function Call: WRITE	Prompt: ?53,+$G(TOTALT(DIV,"RELEASE REFIL")) Line Location: DIVSUML+8
Function Call: WRITE	Prompt: ?59,+$G(TOTALT(DIV,"RELEASE RENEW")) Line Location: DIVSUML+9
Function Call: WRITE	Prompt: ?65,+$G(TOTALT(DIV,"CMOP RELEASED")) Line Location: DIVSUML+10
Function Call: WRITE	Prompt: ?74,+($G(TOTALT(DIV,"CMOP UNRELEASED"))+$G(TOTALT(DIV,"OTHER"))) Line Location: DIVSUML+11
Function Call: WRITE	Prompt: !!,"SELECTION OF DIVISION(S)",! Line Location: SEL+5
Function Call: WRITE	Prompt: !,DIV,?5,DIVNM(DIV) Line Location: ALL+0
Function Call: WRITE	Prompt: !,X,?30,@X Line Location: TOTALT+1
Routine Call	DIR Line Location: BEGDATE ENDDATE+3 MAIN+1 GTOTAL+4 DIVSUML+12 SEL+11 SELECT+3 ALL+1
Routine Call	%ZIS Line Location: DEVICE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENDDATE, TITLE+2, TITLE+3, TITLE+4
^PS(52.5 - [#52.5]	COUNT+24, COUNT+25, COUNT+26
^PS(59 - [#59]	SEL+7
^PSRX - [#52]	COUNT+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5, COUNT+9, COUNT+10, COUNT+16, COUNT+17, COUNT+19 , COUNT+27, COUNT+28, OP, OP+1
^PSRX("AD"	DIVISION+2, ONE, TWO

Label References

Name	Line Occurrences
ALL	SEL+12
BEGDATE	BEGDATE+3
COUNT	TWO
DIVISION	START+7
DIVSUM	GRNDTOT+7
DIVSUML	START+7, GRNDTOT+10
END	BEGDATE+1, ENDDATE+4, DEVICE+1, START+8, START+12, EXIT
ENDDATE	ENDDATE+6
EXIT	PSXRSTAT+6
GRNDTOT	START+10
GTOTAL	DIVISION+3
MAIN	DIVISION+2
ONE	DIVISION+2
SEL	ENDDATE+8, ALL+6
SELECT	SEL+13
ST0	DEVICE+3
START	DEVICE+2
TITLE	DIVISION+1, MAIN+2, MAIN+3, GRNDTOT+4
TWO	ONE

Naked Globals

Name	Field # of Occurrence
^(	COUNT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!, TITLE+4
>> %ZIS	DEVICE*
>> %ZIS("A"	DEVICE*
>> %ZIS("B"	DEVICE*
A	END+2!, MAIN+6*
B	END+2!, MAIN+6*
C	DEVICE+4!, END+2!, MAIN+6, SELECT+1
D	END+2!, MAIN+6*
>> DA	ALL+5*
DIR	BEGDATE!, ENDDATE+3!, Q1+1!, END+1!, MAIN+1!, GTOTAL+4!, DIVSUML+12!, SEL+9!, SEL+11!, SELECT+7! , ALL+2!
DIR("A"	BEGDATE, ENDDATE+2, SELECT+1, SELECT+2, ALL+1*
DIR("B"	ENDDATE+2, ALL+1
DIR(0	BEGDATE, ENDDATE+2, MAIN+1, GTOTAL+4, DIVSUML+12, SEL+10, SELECT+2, ALL+1
DIROUT	END+3!
DIRUT	BEGDATE+1, ENDDATE+4, END+3!
DIV	START+7, COUNT+1, COUNT+2, GRNDTOT+6, GRNDTOT+8, GRNDTOT+10, DIVSUM+2, DIVSUML+2, DIVSUML+3, DIVSUML+4 , DIVSUML+5, DIVSUML+6, DIVSUML+7, DIVSUML+8, DIVSUML+9, DIVSUML+10, DIVSUML+11, SEL+6, SEL+7, ALL , ALL+5*, EXIT+1!
DIVDA	ENDDATE+8, START+3, START+7, COUNT+1, COUNT+2, TITLE+6, MAIN+10, MAIN+11, MAIN+12, MAIN+13 , GTOTAL+2, GRNDTOT+3, SEL+6!, SEL+7*, ALL+4!, EXIT+1!
DIVDA(	START+3, TITLE+6, GRNDTOT+6, DIVSUM+2, ALL+5*
DIVDA(0	GRNDTOT+3*
DIVNM	SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM(	SEL+7, SELECT+1, SELECT+6, ALL, ALL+5!
DIVX	SEL+6!, SELECT+5*, SELECT+7!
DIVX(	SELECT+6
DT	BEGDATE+3, ENDDATE
DTOUT	END+3!
DUOUT	END+3!
E	END+2!, MAIN+6*
I	SEL+7, SEL+8, SELECT+1, SELECT+2, SELECT+6*, EXIT+1!
IO	ST0
IO("Q"	DEVICE+3
IOF	TITLE+1, MAIN+3, GRNDTOT+2
ION	DEVICE+1
IOST	DEVICE+2, TITLE+1, MAIN, MAIN+3, GTOTAL+4, DIVSUML+12
J	DEVICE+4!
LINE	START+1, START+6, START+7, TITLE+9, AHEAD+3, GRNDTOT+5*, GRNDTOT+9, EXIT+1!
POP	DEVICE+1, END+1!
PSX	TWO!, COUNT+16*, COUNT+17, COUNT+19
PSX(	COUNT+20, COUNT+21, COUNT+22, COUNT+29, COUNT+31
PSXAD	START+4, END!, COUNT+15
PSXB	BEGDATE+2, BEGDATE+3, ENDDATE+6, Q1+1!, START+4, START+5, START+9, END+1!, TITLE+2*, TITLE+7
PSXCR	END+2!, COUNT+21*, MAIN+6, MAIN+8, MAIN+14!
PSXCU	END+2!, COUNT+22, COUNT+29, MAIN+4, MAIN+14!
PSXD	START+5, DIVISION+2, END!, ONE, TWO, MAIN+5, MAIN+9
PSXD1	DIVISION+2, END!, MAIN+9*
PSXE	ENDDATE+5, ENDDATE+6, Q1+1!, START+4, START+9, END!, TITLE+3*, TITLE+7
PSXE1	START+4*, DIVISION+2, END!
PSXF	END!, TWO*, COUNT+1, COUNT+2, COUNT+4, COUNT+9, COUNT+10, COUNT+18, COUNT+21, COUNT+22 , COUNT+27, COUNT+28, COUNT+29, COUNT+31, OP, OP+1, OP+4, OP+5
PSXFDT	COUNT+27, COUNT+28, COUNT+29, COUNT+30!
PSXFLAG	START+3, DIVISION+2, END+3!, ONE, TWO, TITLE, MAIN, MAIN+1*, GTOTAL+1, GRNDTOT+1 , DIVSUM+1, DIVSUML+1
PSXLAP	DEVICE+1*, QUE, END+1!
PSXLINE	END!, TITLE+8, MAIN, MAIN+3, MAIN+9, GTOTAL+4
PSXM	END+2!, OP+2*, MAIN+6, MAIN+8, MAIN+14!
PSXMT	END+2!, COUNT+6, COUNT+11, MAIN+8, MAIN+14!
PSXMW	END+2!, TWO!, COUNT+5, COUNT+6, COUNT+7, COUNT+10, COUNT+11, COUNT+12, COUNT+13, COUNT+14 , OP+2, OP+3
PSXNOW	END+1!, TITLE+4*, TITLE+7
PSXOT	START+4*, END!
PSXR	END!, ONE*, TWO, COUNT+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5, COUNT+9, COUNT+10 , COUNT+16, COUNT+17, COUNT+19, COUNT+24, COUNT+27, COUNT+28, OP, OP+1
PSXREL	TWO!, OP, OP+1, OP+2, OP+3
PSXRNM	COUNT+3*, COUNT+8, OP+4, EXIT+1!
PSXRRF	OP+5*, MAIN+8, MAIN+12, MAIN+14!, EXIT+1!
PSXRRN	OP+4*, MAIN+8, MAIN+13, MAIN+14!
PSXST	COUNT+24*, COUNT+25, COUNT+26, COUNT+30!
PSXST1	COUNT+25*, COUNT+29, COUNT+30!
PSXSTAT	END+3!, COUNT+19*, COUNT+20, COUNT+30!
PSXSUS	COUNT+30!
PSXSUSDT	END+2!, COUNT+26*, COUNT+29
PSXUNREL	END+1!, OP+6, MAIN+4, MAIN+6, MAIN+8, MAIN+14!
PSXW	END+2!, OP+3*, MAIN+6, MAIN+8, MAIN+14!
PSXWRF	COUNT+12*, MAIN+8, MAIN+10, MAIN+14!
PSXWRN	COUNT+8*, MAIN+8, MAIN+11, MAIN+14!
PSXWT	END+2!, COUNT+7, COUNT+12, MAIN+6, MAIN+8, MAIN+14!
PSXXB	START+4*, START+9, EXIT+1!
PSXXE	START+4*, START+9!
TOTAL	START+2!, GTOTAL+3!, EXIT+1!
TOTAL(	GTOTAL+2
TOTAL("CMOP R	ELEASED" , COUNT+21, COUNT+29
TOTAL("CMOP U	NRELEASED" , COUNT+22*
TOTAL("MAIL"	COUNT+13*
TOTAL("OP MAI	L" , OP+2*
TOTAL("OP WIN	DOW" , OP+3*
TOTAL("OTHER"	OP+6*
TOTAL("WINDOW"	COUNT+14*
TOTALT	START+2!, EXIT+1!
TOTALT(	MAIN+10, MAIN+11, MAIN+12, MAIN+13, GTOTAL+2*, GRNDTOT+8, DIVSUML+2, DIVSUML+3, DIVSUML+4, DIVSUML+5 , DIVSUML+6, DIVSUML+7, DIVSUML+8, DIVSUML+9, DIVSUML+10, DIVSUML+11
TOTALT(0	GRNDTOT+8*
U	COUNT+1, COUNT+2, COUNT+3
X	BEGDATE+1, BEGDATE+2!, ENDDATE+1!, END+1!, GTOTAL+2, GRNDTOT+8, SELECT+6, TOTALT+1
Y	BEGDATE+2!, ENDDATE!, ENDDATE+1!, ENDDATE+5!, Q1+1!, END+1!, TITLE+2, TITLE+3, TITLE+4, MAIN+1! , GTOTAL+4, DIVSUML+12, SEL+12, SEL+13, SELECT+4, SELECT+6, ALL+3
ZDATE	END+3!, MAIN+5*, MAIN+8
ZFILL	END+3!, COUNT+17*, COUNT+18!, COUNT+20, COUNT+30!
ZTDESC	QUE+2*, END+1!
ZTIO	QUE*, END+1!
>> ZTQUEUED	START
>> ZTREQ	START*
ZTRTN	QUE+1*, END+1!
ZTSAVE	END+1!
ZTSAVE("DIVDA("	QUE*
ZTSAVE("DIVNM("	QUE*
ZTSAVE("PSXB"	QUE*
ZTSAVE("PSXE"	QUE*
ZTSK	Q1, END+2!
ZZ	COUNT+30!
ZZTODAY	ENDDATE*, ENDDATE+2, ENDDATE+7!
ZZTOT	END+3!, TITLE+5

Customize PDF page

Package: CMOP

Routine: PSXRSTAT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
DIVSUML	;
TITLE
TWO
END
DIVSUM	;EP DIVISIONAL SUMMARY
BEGDATE
SELECT	;
ONE
ST0
EXIT
SEL	;Select divisions ; returns arrays ; DIVNM("names of divisions")=selection number ; DIVDA("iens of divisions")=name of division ; for testing
COUNT	;
DIVISION	;
ENDDATE
AHEAD
START
GTOTAL	;
DEVICE
ALL
TOTALT	;
QUE
GRNDTOT	;EP WRITE /LOOP DIVISIONAL TOTALS & WRITE GRAND TOTALS
MAIN
OP