Routine: PSXRACT

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

Package	Total	Caller Graph
CMOP	1	PSXR ACTIVITY

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	TITLE+3
^%ZIS	DEVICE+1
^%ZISC	DEVICE+4, EXIT+3
^%ZTLOAD	QUE+3
^DIR	BEGDATE, ENDDATE+3, PRINT+1, SEL+10, 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: !,?9,DIV,?35,$J($G(TORDS(DIV)),7),?43,$J($G(TRXS(DIV)),6),?53,$J($G(PSXCRT(DIV)),7),?63,$J($G(PSXNDT(DIV)),7),?73,$J($G(PSXCUT(DIV)),5) Line Location: BATCH+16
Function Call: WRITE	Prompt: !!,"TOTAL",?35,$J($G(TORDS),7),?43,$J($G(TRXS),6),?53,$J($G(PSXCRT),7),?63,$J($G(PSXNDT),7),?73,$J($G(PSXCUT),5) Line Location: GRNDSUM+6
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?30,"CMOP ACTIVITY REPORT"_$S($G(ZZTOT)=1:" SUMMARY",1:"") Line Location: TITLE+4
Function Call: WRITE	Prompt: !,DIVDA(DIVDA) Line Location: TITLE+5
Function Call: WRITE	Prompt: !,"For ",PSXBP," thru ",$P(PSXEP,"@"),?40,"Printed: ",PSXNOW Line Location: TITLE+6
Function Call: WRITE	Prompt: !,"TRANS #",?9,"DIVISION",?37,"ORDERS",?45,"RXS",?53,"RELEASED",?63,"NOT DISP",?73,"UNREL" Line Location: AHEAD+0
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"SELECTION OF DIVISION(S)",! Line Location: SEL+5
Function Call: WRITE	Prompt: !,DIV,?5,DIVNM(DIV) Line Location: ALL+0
Routine Call	DIR Line Location: BEGDATE ENDDATE+3 PRINT+1 SEL+10 SELECT+3 ALL+1
Routine Call	%ZIS Line Location: DEVICE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENDDATE, ONEDIV+2, ONEDIV+3, TITLE+1, TITLE+2, TITLE+3
^PS(59 - [#59]	BATCH+3, SEL+7
^PSRX - [#52]	RX+1, RX+2
^PSRX("AS"	BATCH+11, BATCH+12
^PSX(550.2 - [#550.2]	BATCH, BATCH+1, BATCH+2, BATCH+3, BATCH+6

Label References

Name	Line Occurrences
ALL	SEL+10
BEGDATE	BEGDATE+3
END	BEGDATE+1, ENDDATE+4, DEVICE+1, EXIT+1
ENDDATE	ENDDATE+6
EXIT	DIVISION+3
GRNDSUM	DIVISION+2
ONEDIV	DIVISION+1
PRINT	BATCH+13
RX	BATCH+12
SEL	ENDDATE+8, ALL+6
SELECT	SEL+11
ST0	DEVICE+3
START	DEVICE+2
TITLE	ONEDIV+5, GRNDSUM+2, PRINT+2, PRINT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!, TITLE+3
>> %ZIS	DEVICE*
>> %ZIS("A"	DEVICE*
>> %ZIS("B"	DEVICE*
BATCH	BATCH+2*, END!, RX+4, PRINT+5, PRINT+7!
C	DEVICE+4!, SELECT+1*
COM	RX+11*, RX+14, PRINT+5, PRINT+7!
COM1	PRINT+7!
CT	ONEDIV+1*, EXIT+2!
>> DA	ALL+5*
DIR	BEGDATE!, ENDDATE+3!, Q1+1!, END!, PRINT+1!, SEL+9!, SEL+10!, 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, PRINT+1, SEL+9, SELECT+2, ALL+1
DIRUT	BEGDATE+1, ENDDATE+4, END!
DIV	BATCH+3, BATCH+4, BATCH+5, BATCH+8, BATCH+10, BATCH+15, BATCH+16, GRNDSUM+3, GRNDSUM+4, END+1! , RX+8, RX+10, RX+13, PRINT+5, PRINT+7!, SEL+6, SEL+7, ALL, ALL+5*
DIVDA	DIVISION+1, BATCH+5, BATCH+15, GRNDSUM+1, EXIT+2!, TITLE+5, SEL+6!, SEL+7*, ALL+4!
DIVDA(	DIVISION+1, BATCH+5, BATCH+15, TITLE+5, ALL+5*
DIVDA(0	GRNDSUM+1*
DIVNM	ENDDATE+8, EXIT+2!, SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM(	BATCH+4, SEL+7, SELECT+1, SELECT+6, ALL, ALL+5!
DIVX	SEL+6!, SELECT+5*, SELECT+7!
DIVX(	SELECT+6
DT	BEGDATE+3, ENDDATE
GT	END+1!
I	EXIT+2!, SEL+7, SEL+8, SELECT+1, SELECT+2, SELECT+6*
IO	ST0
IO("Q"	DEVICE+3
IOF	TITLE, PRINT+3
ION	DEVICE+1
IOST	DEVICE+2, TITLE, PRINT, PRINT+3
J	DEVICE+4!
LINE	START+1, ONEDIV+1, BATCH+14, GRNDSUM+5, EXIT+2!, TITLE+9, AHEAD+1
NODE	BATCH+6*, BATCH+7, BATCH+9, END+1!
ORDS	BATCH+7*, BATCH+8, PRINT+5, PRINT+7!
P5502	BATCH+1*, BATCH+2, BATCH+3, BATCH+6, END!
>> POP	DEVICE+1
PSX	END+2!, RX+1*, RX+2
PSX(	RX+5*, RX+7, RX+9, RX+11
PSXB	BEGDATE+2*, BEGDATE+3, ENDDATE+6, Q1+1!, ONEDIV+2, ONEDIV+4, END!, EXIT+2!, TITLE+1
PSXBE	ONEDIV+2*, EXIT+2!
PSXBP	TITLE+1*, TITLE+6, TITLE+8!
PSXCR	END+1!, RX+7*, PRINT+5, PRINT+7!
PSXCRT	GRNDSUM+6, END+2!, RX+7*
PSXCRT(	BATCH+16, GRNDSUM+4, RX+8*
PSXCU	RX+12, RX+14, PRINT+5, PRINT+7!
PSXCUT	GRNDSUM+6, END+2!, RX+12*
PSXCUT(	BATCH+16, GRNDSUM+4, RX+13*
PSXD	ONEDIV+4, BATCH, BATCH+1, BATCH+11, BATCH+12, END!
PSXE	ENDDATE+5*, ENDDATE+6, Q1+1!, ONEDIV+3, ONEDIV+4, END!, EXIT+2!, TITLE+2
PSXE1	ONEDIV+4*, BATCH, END!
PSXEE	ONEDIV+3*, EXIT+2!
PSXEP	TITLE+2*, TITLE+6, TITLE+8!
PSXF	BATCH+12*, END+1!, RX+3, RX+7, RX+9, RX+11
PSXFLAG	BATCH, BATCH+1, BATCH+13, END+1!, PRINT, PRINT+1*
PSXLAP	DEVICE+1*, QUE, END!
PSXLINE	END+2!, TITLE+7, PRINT, PRINT+3, PRINT+6
PSXND	RX+9*, PRINT+5, PRINT+7!
PSXNDT	GRNDSUM+6, END+2!, RX+9*
PSXNDT(	BATCH+16, GRNDSUM+4, RX+10*
PSXNOW	END+2!, TITLE+3*, TITLE+6
PSXOT	END!
PSXR	BATCH+11*, BATCH+12, END+1!, RX+1, RX+2
PSXRT	RX+11*, PRINT+7!
PSXSTAT	END+1!, RX+5*, RX+6!
RTRN	BATCH+7*, END+2!, RX+11
RXS	BATCH+9*, BATCH+10, PRINT+5, PRINT+7!
TORDS	BATCH+7*, GRNDSUM+6, END+1!
TORDS(	BATCH+8*, BATCH+16, GRNDSUM+3, GRNDSUM+4
TRXS	BATCH+9*, GRNDSUM+6, END+1!
TRXS(	BATCH+10*, BATCH+16, GRNDSUM+4
X	BEGDATE+1, BEGDATE+2!, ENDDATE+1!, END+2!, SELECT+6*
Y	BEGDATE+2!, ENDDATE!, ENDDATE+1!, ENDDATE+5!, Q1+1!, ONEDIV+2, ONEDIV+3, END+2!, TITLE+1, TITLE+2* , TITLE+3*, PRINT+1!, SEL+10, SEL+11, SELECT+4, SELECT+6, ALL+3
ZFILL	END+1!, RX+2*, RX+3!, RX+5, RX+6!
ZNODE	END+1!, RX+2*, RX+4, RX+5, RX+6!
>> ZTDESC	QUE+2*
>> ZTIO	QUE*
>> ZTQUEUED	START
>> ZTREQ	START*
>> ZTRTN	QUE+1*
>> ZTSAVE("DIVDA("	QUE*
>> ZTSAVE("DIVNM("	QUE*
>> ZTSAVE("PSXB"	QUE*
>> ZTSAVE("PSXE"	QUE*
ZTSK	Q1, EXIT+2!
ZZTODAY	ENDDATE*, ENDDATE+2, ENDDATE+7!, END!
ZZTOT	EXIT+2!, TITLE+4

Customize PDF page

Package: CMOP

Routine: PSXRACT

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

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
DIVISION	;
ALL
ENDDATE
AHEAD
EXIT	;
TITLE
PRINT
ONEDIV	;
RX	; COUNT RX DATA
BATCH
START
QUE
GRNDSUM	;
DEVICE
ST0
SEL	;Select divisions ; returns arrays ; DIVNM("names of divisions")=selection number ; DIVDA("iens of divisions")=name of division ; for testing
BEGDATE
SELECT	;
END