Routine: PSXSMRY

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$IEN^XUMF
VA Fileman	4	^%DT ^DIC $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
OUT1	;
EN	;
HDR	;S Y=START X ^DD("DD") S START=Y S Y=END X ^DD("DD") S END=Y,LCNT=0
TRN	;
QUE
DEV
TOTALS	;
PRT	;
GT	;
EXIT
EX1
EX2
PGBK
STRT
OUT	;

External References

Name	Field # of Occurrence
^%DT	STRT+1, STRT+3
^%ZIS	DEV
^%ZISC	EX1+4
^%ZTLOAD	QUE+2
^DIC	STRT+7
$$GET1^DIQ	STRT+9, STRT+10, TRN+6
^DIR	PRT+11, PGBK
$$IEN^XUMF	TRN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ending date must follow starting date!" Line Location: STRT+5
Function Call: WRITE	Prompt: !,"No Device Selected!" Line Location: DEV+0
Function Call: WRITE	Prompt: !,"No data for the report!" Line Location: TOTALS+4
Function Call: WRITE	Prompt: @IOF,!!,?13,"CONSOLIDATED MAIL OUTPATIENT PHARMACY ACTIVITY SUMMARY" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?SP1,HDATE Line Location: HDR+4
Function Call: WRITE	Prompt: !,?SP,$G(SNAME),!! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?66,$J("NOT",6) Line Location: HDR+7
Function Call: WRITE	Prompt: !,"TRANS #",?18,"DIVISION",?36,$J("PROC",4),?42,$J("ORDERS",6),?50,$J("RXS",6),?58,$J("REL",6) Line Location: HDR+8
Function Call: WRITE	Prompt: ?66,$J("DISP",6),?74,$J("UNREL",6) Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: HDR+10
Function Call: WRITE	Prompt: "-" Line Location: HDR+10
Function Call: WRITE	Prompt: !,$J((F_"-"_B),15),?18,$E($P(NODE,"^",7),1,16),?36,$J($S($P(NODE,U,3)=0:"NO",1:"YES"),4) Line Location: PRT+6
Function Call: WRITE	Prompt: ?42,$J($P(NODE,U),6),?50,$J($P(NODE,U,2),6),?58,$J($P(NODE,U,4),6),?66,$J($P(NODE,U,5),6),?74,$J($P(NODE,U,6),6) Line Location: PRT+7
Function Call: WRITE	Prompt: ! Line Location: GT+2
Function Call: WRITE	Prompt: "-" Line Location: GT+2
Function Call: WRITE	Prompt: !!,"TOTAL",?42,$J(TOR,6),?50,$J(TRX,6),?58,$J(TCO,6),?66,$J(TCA,6),?74,$J(TUN,6) Line Location: GT+4
Function Call: WRITE	Prompt: @IOF Line Location: PGBK+2
Function Call: WRITE	Prompt: !!,"GRAND TOTAL",?42,$J(GORD,6),?50,$J(GRX,6),?58,$J(GCOM,6),?66,$J(GND,6),?74,$J(GUNREL,6) Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: EX1+2
Function Call: WRITE	Prompt: !,"Job cancelled!" Line Location: QUE+2
Function Call: WRITE	Prompt: !,"REPORT Queued!" Line Location: QUE+3
Routine Call	DIC Line Location: STRT+7
Routine Call	DIR Line Location: PRT+11 PGBK
Routine Call	%ZIS Line Location: DEV

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TOTALS+2
^PSX(552	TRN+5
^PSX(552.1	EN+2, EN+3, EN+4, TRN+1, TRN+2, TRN+7, TRN+8
^PSX(552.4	TRN+9, TRN+10
^TMP($J	STRT!, TOTALS+4, TOTALS+5, TOTALS+6!, OUT+4, OUT1+3, TRN+11*

Label References

Name	Line Occurrences
DEV	STRT+8
EX1	STRT+1, STRT+3, STRT+7, DEV, TOTALS+7
EX2	TOTALS+4, QUE+4
EXIT	TOTALS+7
GT	OUT1+4
HDR	OUT1+2, PRT+12, PRT+13
OUT	TOTALS+5
OUT1	TOTALS+5
PGBK	TOTALS+4, TOTALS+5, EXIT, EX2
PRT	OUT1+3
QUE	DEV+1
STRT	STRT+5
TRN	EN+4

Naked Globals

Name	Field # of Occurrence
^(	OUT+4
^(0	TRN+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	STRT+1*, STRT+3!, EX1!
%DT("A"	STRT+1!, STRT+3
%DT("B"	STRT+1, STRT+3
%DT(0	STRT+1, STRT+3
%ZIS	DEV*, EX1!
>> AGNCY	TRN+4, TRN+5, TRN+6
ALL	STRT+8*, EXIT, EX2, EX1+1!
B	OUT+4, OUT1+3, PRT+6, EX1!
BAT	TRN+5*, TRN+11, EX1!
BF	EN+2, EN+3, EN+4, TRN+5, EX1!
CA	TRN+10*, TRN+11, TRN+12!
CO	TRN+10*, TRN+11, TRN+12!
DIC	STRT+6*, STRT+7!, STRT+14!
DIC("A"	STRT+6*
DIC(0	STRT+6*
DIR	PRT+11!, PGBK!, EX1!
DIR(0	PRT+11, PGBK
DIROUT	EX1!
DIRUT	EX1!
>> DIV	TRN+8*, TRN+11
DTOUT	STRT+1, STRT+3, STRT+7, STRT+14!, EX1!
DUOUT	STRT+7, STRT+14!, EX1!
END	STRT+4, STRT+5, TOTALS+2, TOTALS+3, EX1!
F	OUT+4, OUT1+3, PRT+6, EX1!
FAC	TRN+5*, TRN+11, EX1!
FAC1	STRT+8, STRT+9, STRT+10*, EN+2, TRN+2, EX1+1!
GCOM	PRT+8*, EXIT, EX1+1!
GND	PRT+8*, EXIT, EX1+1!
GORD	PRT+8*, EXIT, EX1+1!
GRX	PRT+8*, EXIT, EX1+1!
GUNREL	PRT+8*, EXIT, EX1+1!
HDATE	TOTALS+3*, HDR+4, EX1+1!
I	GT+2*, EX1!
IO	EN+1
IO("Q"	DEV+1, EX1+4!, QUE, QUE+2!
IOF	HDR+2, PGBK+2, EX1+2
IOSL	DEV
IOST	PRT+10, PRT+13, PGBK
LAST	STRT+4*, EN+2, EX1!
LCNT	HDR+1, HDR+11, PRT+8*, PRT+11, PRT+12, PRT+13, EX1!
MST	TRN+9*, TRN+10, TRN+12!
NODE	OUT1+3*, PRT+1, PRT+6, PRT+7, PRT+8, PRT+9!, EX1!
ORD	TRN+7*, TRN+11, TRN+12!
>> PGL	DEV*, PRT+11, PRT+12, PRT+13
>> POP	DEV
PROC	TRN+8*, TRN+11, TRN+12!
REC	EN+4*, TRN+1, TRN+2, TRN+7, TRN+8, TRN+9, EX1!
RST	TRN+10*, TRN+12!
RX	TRN+10*, TRN+12!
RXS	TRN+7*, TRN+11, TRN+12!
S	TOTALS+5*, OUT+2, OUT+4, OUT1+3, EX1!
SITE	TRN+6*, TRN+11, EX1!
SNAME	OUT+2*, HDR+5, EX1+1!
SNO	TRN+6*, EX1!
SP	OUT+2*, HDR+5, EX1+1!
SP1	TOTALS+3*, HDR+4, EX1+1!
ST	STRT+2, EN+2, EN+3, EN+4, EX1!
START	STRT+2, STRT+5, TOTALS+2, TOTALS+3, EX1!
STOP	TOTALS+1, TOTALS+5, TOTALS+7, OUT+1, OUT1+1, OUT1+3, PRT+1, PRT+2, PRT+11, GT+1 , PGBK*, EX1+1!
TCA	OUT+3, OUT+4, GT+4, EX1!
TCO	OUT+3, OUT+4, GT+4, EX1!
TOR	OUT+3, OUT+4, GT+4, EX1!
TRX	OUT+3, OUT+4, GT+4, EX1!
TUN	OUT+3, OUT+4, GT+4, EX1!
U	STRT+10, OUT+4, PRT+6, PRT+7, PRT+8, TRN+1, TRN+7, TRN+8, TRN+10, TRN+11
UN	TRN+10*, TRN+11, TRN+12!
X	STRT+7, STRT+14!, HDR+10, TRN+5, TRN+6, EX1!
XC	EX1+1!
XX	STRT+10*, EX1+1!
XXC	EN+1, TOTALS+5, PRT+2, EX1+1!
Y	STRT+1, STRT+2, STRT+3, STRT+4, STRT+8, STRT+9, STRT+10, STRT+14!, TOTALS+2, PRT+11 , TRN+6, PGBK, EX1!
ZTDESC	EX1!, QUE*
ZTDTH	EX1!, QUE*
>> ZTQUEUED	EX1+3
>> ZTREQ	EX1+3*
ZTRTN	EX1!, QUE*
ZTSAVE	EX1!
ZTSAVE("ALL"	QUE+1*
ZTSAVE("END"	QUE*
ZTSAVE("FAC1"	QUE*
ZTSAVE("GCOM"	QUE+1*
ZTSAVE("GND"	QUE+1*
ZTSAVE("GORD"	QUE+1*
ZTSAVE("GRX"	QUE+1*
ZTSAVE("GUNREL"	QUE+1*
ZTSAVE("LAST"	QUE*
ZTSAVE("PGL"	QUE*
ZTSAVE("ST"	QUE*
ZTSAVE("START"	QUE*
ZTSK	EX1!, QUE+2

Customize PDF page

Package: CMOP

Routine: PSXSMRY

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: