Routine: PSXSUDCN

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

Package	Total	Caller Graph
CMOP	1	PSXR SUSPENSE COUNT

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	HEADER
^%ZIS	DEVICE+1
^%ZISC	Q1+1, EXIT+1
^%ZTLOAD	QUE+3
^DIR	BEGDATE+3, ENDDATE+3, PAGE+1, SEL+10, SELECT+3, ALL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Rx's Suspended for CMOP",! Line Location: BEGDATE+2
Function Call: WRITE	Prompt: !,"Ending date must follow beginning date!" Line Location: ENDDATE+7
Function Call: WRITE	Prompt: !! Line Location: DEVICE+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+0
Function Call: WRITE	Prompt: !,?20,"COUNT OF SUSPENDED CMOP RX's BY DAY" Line Location: HDR1+1
Function Call: WRITE	Prompt: !,DIVDA(DIV) Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"FROM: "_PSXBE," TO: "_$P(PSXEE,"@")," PRINTED: ",PSXNOW Line Location: HDR1+3
Function Call: WRITE	Prompt: !,"DATE",?14,"QUEUED",?29,"TRANSMITTED",?47,"PRINTED",?62,"TOTAL" Line Location: H1+0
Function Call: WRITE	Prompt: @IOF Line Location: BODY+2
Function Call: WRITE	Prompt: @IOF Line Location: BODY+3
Function Call: WRITE	Prompt: !,XDATE,?A,$J($G(PSXQ),5),?B,$J($G(PSXAX),5),?C,$J($G(PSXP),5),?D,$J($G(PSXTOT),5) Line Location: B1+1
Function Call: WRITE	Prompt: !,"Division Total",?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5) Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+4
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: !,DIVDA(DIV) Line Location: GRNDSUM+6
Function Call: WRITE	Prompt: !,?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5) Line Location: GRNDSUM+8
Function Call: WRITE	Prompt: !,"Grand Total",?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5) Line Location: GRNDSUM+11
Routine Call	DIR Line Location: BEGDATE+3 ENDDATE+3 PAGE+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+2, ONEDIV+2, ONEDIV+3, HEADER, B1
^PS(52.5 - [#52.5]	ONEDIV+7, 525+1, 525+2, 525+3
^PS(59 - [#59]	SEL+7

Label References

Name	Line Occurrences
525	ONEDIV+7
ALL	SEL+11
B1	BODY+2
BEGDATE	ENDDATE+4, ENDDATE+5
BODY	ONEDIV+7
EN0	DEVICE+3
EN1	DEVICE+2
END	ONEDIV+8
END1	BEGDATE+4, ENDDATE+10, DEVICE+1, EXIT+2
ENDDATE	ENDDATE+7
EXIT	ENDDATE+10, Q1+2, DIVISION+3
GRNDSUM	DIVISION+2
HDR1	BODY+2
HEADER	ONEDIV+6, BODY+3, GRNDSUM+3
ONEDIV	DIVISION+1
PAGE	BODY+2, END+3
SEL	ENDDATE+9, ALL+6
SELECT	SEL+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HEADER, END1!
>> %ZIS	DEVICE*
>> %ZIS("A"	DEVICE*
>> %ZIS("B"	DEVICE*
A	H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
ANS	ONEDIV+7, BODY+2, PAGE+1*, END1+4!
B	H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
C	H1+1, B1+1, END+1, END1+4!, SELECT+1, GRNDSUM+8, GRNDSUM+11
CT	ONEDIV+1, ONEDIV+6, BODY+2, BODY+3, B1*, END1+4!
D	H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
>> DA	ALL+5*
DIR	BEGDATE+1!, BEGDATE+3!, ENDDATE+1!, ENDDATE+3!, Q1+1!, PAGE+1!, END1!, SEL+9!, SEL+10!, SELECT+7! , ALL+2!
DIR("A"	BEGDATE+3, ENDDATE+3, PAGE+1, SELECT+1, SELECT+2, ALL+1
DIR("B"	ENDDATE+2, ALL+1
DIR(0	BEGDATE+3, ENDDATE+3, PAGE+1, SEL+9, SELECT+2, ALL+1
DIROUT	END1+4!
DIRUT	BEGDATE+4, END1+4!
DIV	DIVISION+1, 525+2, HDR1+2, END+2, EXIT+2!, SEL+6, SEL+7, ALL, ALL+5, GRNDSUM+2 , GRNDSUM+5*, GRNDSUM+6, GRNDSUM+7
DIVDA	EXIT+2!, SEL+6!, SEL+7*, ALL+4!
DIVDA(	DIVISION+1, HDR1+2, ALL+5*, GRNDSUM+5, GRNDSUM+6
DIVDA(0	GRNDSUM+2*
DIVNM	ENDDATE+10, EXIT+2!, SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM(	SEL+7, SELECT+1, SELECT+6, ALL, ALL+5!
DIVRX	525+2*, EXIT+2!
DIVTOT	EXIT+2!
DIVTOT(	END+2*, GRNDSUM+7
DIVTOT(0	GRNDSUM+4!, GRNDSUM+7*, GRNDSUM+9
DIVX	SEL+6!, SELECT+5*, SELECT+7!
DIVX(	SELECT+6
DT	ENDDATE+2
DTOUT	ENDDATE+5, PAGE+1, END1+4!
DUOUT	ENDDATE+5, PAGE+1, END1+4!
E	END1+3!
FILL	END1+1!
I	END1+1!, SEL+7, SEL+8, SELECT+1, SELECT+2, SELECT+6*
IO	EN0
IO("Q"	DEVICE+3
IOF	HDR1, BODY+2, BODY+3, END+4
ION	DEVICE+1
IOST	DEVICE+2, HDR1, BODY+2, END+3, END+4
J	END1+4!
LINE	ONEDIV+1*, HDR1+4, H1+2, END+1, EXIT+2!, GRNDSUM+10
N	525+3*, 525+4, 525+5, 525+6, END1+4!
NODE	END1+1!
POP	DEVICE+1, END1+1!
PSX525	525+1*, 525+2, 525+3, END1+4!
PSXAD	END1+1!
PSXAX	ONEDIV+4, 525+5, H1+1, B1+1, B1+2, B1+3*, END1!
PSXAXGD	B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXB	BEGDATE+5*, ENDDATE+7, Q1+1!, ONEDIV+2, ONEDIV+5, EXIT+2!
PSXBE	ONEDIV+2*, HDR1+3, EXIT+2!
PSXCR	END1+3!
PSXCU	END1+3!
PSXD	ONEDIV+5, ONEDIV+7, 525+1, B1, END1!
PSXE	ENDDATE+6*, ENDDATE+7, Q1+1!, ONEDIV+3, ONEDIV+5, EXIT+2!
PSXEE	ONEDIV+3*, HDR1+3, EXIT+2!
PSXF	END1!
PSXFILL	END1+3!
PSXFLAG	DIVISION+1, ONEDIV+7, 525, 525+1, BODY+1, PAGE, PAGE+1*, END, EXIT+2!, GRNDSUM+1
PSXGO	END1+1!
PSXL	ONEDIV+4*, END1!
PSXLAP	DEVICE+1*, QUE, END1+2!
PSXM	END1+2!
PSXMT	END1+4!
PSXMW	END1+2!
PSXNOW	HEADER*, HDR1+3, END1+2!
PSXOT	END1+1!
PSXP	ONEDIV+4, 525+6, H1+1, B1+1, B1+2, B1+3*, END1!
PSXPGD	B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXQ	ONEDIV+4, 525+4, H1+1, B1+1, B1+2, B1+3*, END1!
PSXQGD	B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXR	END1+1!
PSXSUSDT	END1+3!
PSXTE	ONEDIV+5*, ONEDIV+7, EXIT+2!
PSXTOT	ONEDIV+4, 525+7, H1+1, B1+1, B1+2, B1+3*, END1!
PSXTOTGD	B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXUNREL	END1!
PSXW	END1+2!
PSXWT	END1+4!
PSXX	END1+3!
PSXYES	END1+2!
PSXZ	END1+1!
STAT	END1+1!
U	525+2
X	ENDDATE+1!, END+2, END1!, SELECT+6, GRNDSUM+7, GRNDSUM+9
XDATE	B1*, B1+1, B1+3!
Y	BEGDATE+4, BEGDATE+5, ENDDATE+1!, ENDDATE+2, ENDDATE+4, ENDDATE+6, Q1+1!, ONEDIV+2, ONEDIV+3, HEADER , B1*, END1!, SEL+11, SEL+12, SELECT+4, SELECT+6, ALL+3
ZTDESC	QUE+2*, END1+2!
ZTIO	QUE*, END1+2!
>> ZTQUEUED	EN1+1
>> ZTREQ	EN1+1*
ZTRTN	QUE+1*, END1+2!
ZTSAVE	END1+2!
ZTSAVE("DIVDA("	QUE*
ZTSAVE("DIVNM("	QUE*
ZTSAVE("PSXB"	QUE*
ZTSAVE("PSXE"	QUE*
ZTSK	Q1, END1+3!

Customize PDF page

Package: CMOP

Routine: PSXSUDCN

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
ONEDIV	;
END
BEGDATE	;GET BEGIN DATE
SELECT	;
END1
EN1	;
EN0
525
QUE
SEL	;Select divisions ; returns arrays ; DIVNM("names of divisions")=selection number ; DIVDA("iens of divisions")=name of division ; for testing
HDR1
BODY	;
DIVISION	;
ENDDATE	;GET ENDING DATE
HEADER
DEVICE
ALL
H1
EXIT	;
B1
GRNDSUM	;
PAGE