Routine: PSXSTAT

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	3	HOME^%ZIS ^%ZTLOAD $$FMTE^XLFDT

Package	Total	Caller Graph
CMOP	2	PSXR BATCH INQUIRY PSXR COMMENT

Entry Points

Name	Comments	DBIA/ICR reference
EXIT1
RPT
BB
SHOW
COMM	;code to enter the comment field of PSX(550.2 - called from the
COMM514	; Enter batch comments in 552.1 called from option PSX COMMENT
BATCH	;displays the status of a batch - called from the CMOP MGR menu
DEV	;I COMFLAG=0 S %ZIS="Q" D ^%ZIS S PSXLION=ION I POP W !,"NO DEVICE SELECTED" G EXIT
EDIT
QUE
EXIT
SHOW1

External References

Name	Field # of Occurrence
HOME^%ZIS	QUE+3
^%ZTLOAD	QUE
^DIC	BB+4, SHOW
^DIE	EDIT+1, COMM514+4
$$GET1^DIQ	BB+2, BB+5
^DIR	RPT+21, SHOW1+9
$$FMTE^XLFDT	SHOW1, SHOW1+1, SHOW1+2, SHOW1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Job Canceled" Line Location: QUE+1
Function Call: WRITE	Prompt: !!,"Job Queued" Line Location: QUE+2
Function Call: WRITE	Prompt: !,"A transmission has not been created yet." Line Location: BB+1
Function Call: WRITE	Prompt: !,"Transmission "_PSXBAT_" doesn't exist." Line Location: BB+6
Function Call: WRITE	Prompt: ! Line Location: BB+7
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED" Line Location: DEV+0
Function Call: WRITE	Prompt: @IOF,!!!,?30,"View Transmission" Line Location: RPT+8
Function Call: WRITE	Prompt: !!!,"Division",?25,":",?27,DIV Line Location: RPT+9
Function Call: WRITE	Prompt: !,"CMOP",?25,":",?27,CMOP Line Location: RPT+10
Function Call: WRITE	Prompt: !,"Transmission number",?25,":",?27,PSXBAT,?50,"Status",?62,": ",?65,STATUS Line Location: RPT+11
Function Call: WRITE	Prompt: !,"Retransmission of batch",?25,":",?27,RETRAN Line Location: RPT+12
Function Call: WRITE	Prompt: !,"Sender",?25,":",?27,SENDR Line Location: RPT+13
Function Call: WRITE	Prompt: !,"Transmission date/time",?25,":",?27,TDATE Line Location: RPT+14
Function Call: WRITE	Prompt: !,"Received date/time",?25,":",?27,RECVD Line Location: RPT+15
Function Call: WRITE	Prompt: !,"Closed date/time",?25,":",?27,CLOSED Line Location: RPT+16
Function Call: WRITE	Prompt: !,"Beginning order number",?25,":",?27,$P($G(^PSX(550.2,PSXBAT,1)),U,5),?50,"Total orders:",?65,$P($G(^PSX(550.2,PSXBAT,1)),U,7) Line Location: RPT+17
Function Call: WRITE	Prompt: !,"Ending order number",?25,":",?27,$P($G(^PSX(550.2,PSXBAT,1)),U,6),?50,"Total Rxs : ",?65,$P($G(^PSX(550.2,PSXBAT,1)),U,8) Line Location: RPT+18
Function Call: WRITE	Prompt: !,NOTE Line Location: RPT+19
Function Call: WRITE	Prompt: ! Line Location: RPT+20
Function Call: WRITE	Prompt: @IOF Line Location: RPT+20
Function Call: WRITE	Prompt: ! Line Location: RPT+21
Function Call: WRITE	Prompt: @IOF Line Location: RPT+21
Function Call: WRITE	Prompt: !!,"This record is currently in use, try later." Line Location: EDIT+0
Function Call: WRITE	Prompt: @IOF,!!!,?28,"VIEW TRANSMISSION" Line Location: SHOW+2
Function Call: WRITE	Prompt: !!,"Transmission",?17,":",?19,$P(NODE0,"^",1),?39,"Transmitted",?52,":",?54,$$FMTE^XLFDT($P(NODE0,"^",3),"1P") Line Location: SHOW1+0
Function Call: WRITE	Prompt: !,"Status",?17,":",?19,$S(STAT=1:"Received",STAT=2:"Queued",STAT=3:"Processed",STAT=4:"Closed",STAT=5:"Hold",STAT=6:"Printed",STAT=99:"Rejected",1:""),?39,"Received",?52,":",?54,$$FMTE^XLFDT($P(NODE0,"^",4),"1P") Line Location: SHOW1+1
Function Call: WRITE	Prompt: !,"Division",?17,":",?19,$E($P(NODEP,"^",1),1,18) Line Location: SHOW1+2
Function Call: WRITE	Prompt: ?39,"Processed",?52,":",?54,$$FMTE^XLFDT($P(NODE0,"^",6),"1P") Line Location: SHOW1+2
Function Call: WRITE	Prompt: !,"Sender",?17,":",?19,$E($P(NODEP,"^",3),1,18) Line Location: SHOW1+3
Function Call: WRITE	Prompt: ?39,"Closed",?52,":",?54,$$FMTE^XLFDT($P(NODE0,"^",5),"1P") Line Location: SHOW1+3
Function Call: WRITE	Prompt: !,"Beginning order #",?17,":",?19,$P(NODE1,"^",1),?39,"Total orders",?52,":",?54,$P(NODE1,"^",3) Line Location: SHOW1+4
Function Call: WRITE	Prompt: !,"Ending order #",?17,":",?19,$P(NODE1,"^",2),?39,"Total Rx's",?52,":",?54,$P(NODE1,"^",4) Line Location: SHOW1+5
Function Call: WRITE	Prompt: !,"Retransmission of ",$P(NODE2,"^",2) Line Location: SHOW1+6
Function Call: WRITE	Prompt: $G(^PSX(552.1,REC,3,I,0)),! Line Location: SHOW1+7
Function Call: WRITE	Prompt: ! Line Location: SHOW1+8
Function Call: WRITE	Prompt: @IOF Line Location: SHOW1+8
Function Call: WRITE	Prompt: ! Line Location: SHOW1+9
Function Call: WRITE	Prompt: @IOF Line Location: SHOW1+9
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIE Line Location: EDIT+1 COMM514+4
Routine Call	DIC Line Location: BB+4 SHOW
Routine Call	DIR Line Location: RPT+21 SHOW1+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSX(550.2 - [#550.2]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	RPT, RPT+5, RPT+6
^PS(59 - [#59]	RPT+2
^PSX(550 - [#550]	RPT+3
^PSX(550.2 - [#550.2]	BB, RPT, RPT+1, RPT+2, RPT+3, RPT+4, RPT+5, RPT+6, RPT+7, RPT+17 , RPT+18, RPT+19, EDIT, EDIT+1
^PSX(552.1	COMM514+4, SHOW+1, SHOW1+7
^VA(200 - [#200]	RPT+4

Label References

Name	Line Occurrences
BATCH	RPT+21
BB	COMM+3
EDIT	RPT+22
EXIT	BB+4, RPT+23
EXIT1	COMM514+2, SHOW, SHOW1+10
SHOW	COMM514+2, SHOW1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+1!
AA	EXIT+2!
ACT	EXIT+2!
ACTIVE	EXIT+2!
BAT	EXIT!, BB*
CDOM	EXIT+1!
CFLAG	COMM514+1*, EXIT1!, SHOW+2, SHOW1+7, SHOW1+9, SHOW1+10
CLOSED	EXIT!, RPT+5*, RPT+16
CMOP	EXIT+2!, RPT+3*, RPT+10
CNT	EXIT!, RPT+19*
COMFLAG	EXIT+2!, BATCH+1, RPT+8, RPT+19, RPT+21, RPT+22, COMM+2
DA	EDIT+1!, COMM514+3, COMM514+4!
DIC	BB+4!, EXIT1!, SHOW!
DIC("A"	SHOW*
DIC("B"	BB+4*
DIC(0	BB+4, EXIT1!, SHOW
DIE	EDIT+1!, COMM514+4!
DIR	EXIT+3!, RPT+21!, SHOW1+9!
DIR("A"	RPT+21, SHOW1+9
DIR("B"	RPT+21, SHOW1+9
DIR(0	RPT+21, SHOW1+9
DIROUT	EXIT+3!, EXIT1!
DIRUT	EXIT+3!, EXIT1!
DIV	EXIT!, RPT+2*, RPT+9
DPT	EXIT!
DR	EDIT+1!, COMM514+4!
DTOUT	EXIT+3!, BB+4, EXIT1!, SHOW
DUOUT	EXIT+3!, BB+4, EXIT1!, SHOW
FAC	EXIT+1!
FDOM	EXIT+1!
FILL	EXIT!
I	EXIT1!, SHOW1+7*
IOF	RPT+8, RPT+21, SHOW+2, SHOW1+9
LINE	EXIT!
NAME	EXIT+2!
NODE0	EXIT1!, SHOW+1*, SHOW1, SHOW1+1, SHOW1+2, SHOW1+3
NODE1	EXIT1!, SHOW+1*, SHOW1+4, SHOW1+5
NODE2	EXIT1!, SHOW+1*, SHOW1+6
NODEP	EXIT1!, SHOW+1*, SHOW1+2, SHOW1+3
NOTE	EXIT+2!, RPT+19*
PDTTM	EXIT+1!
PP	EXIT+1!
>> PSX(	COMM514+3
PSXBAT	EXIT+2!, BB, BB+1, BB+2, BB+4, BB+5, RPT, RPT+1, RPT+2, RPT+3 , RPT+4, RPT+5, RPT+6, RPT+7, RPT+11, RPT+17, RPT+18, RPT+19, EDIT, EDIT+1
>> PSXBATNM	BB+2, BB+4, BB+5
PSXLION	EXIT+1!, QUE
PURG	EXIT+1!
REC	COMM514+2, COMM514+3, EXIT1!, SHOW*, SHOW1+7
RECVD	EXIT+2!, RPT+6*, RPT+15
RETRAN	EXIT!, RPT+1*, RPT+12
RETRANS	EXIT!
RX	EXIT+2!
SENDR	EXIT!, RPT+4*, RPT+13
SS	EXIT+2!
SSN	EXIT+2!
STAT	EXIT!, RPT+7, EXIT1!, SHOW+1, SHOW1+1, SHOW1+2, SHOW1+3
STATUS	EXIT+2!, RPT+7*, RPT+11
SYS	EXIT+1!
SYSSTAT	EXIT+1!
SYSTEM	EXIT+1!
TDATE	EXIT!, RPT*, RPT+14
TT	EXIT+3!
U	RPT, RPT+1, RPT+2, RPT+3, RPT+4, RPT+5, RPT+6, RPT+7, RPT+17, RPT+18
X	EXIT!, EXIT1!
XMIT	EXIT+1!
XX	EXIT+1!
Y	EXIT!, BB+4!, RPT!, RPT+5!, RPT+6*!, RPT+21, COMM514+3!, EXIT1!, SHOW, SHOW+1 , SHOW1+9
>> ZTDESC	QUE*
>> ZTIO	QUE*
>> ZTQUEUED	EXIT+4
>> ZTREQ	EXIT+4*
>> ZTRTN	QUE*
>> ZTSAVE("COMFLAG"	QUE*
>> ZTSAVE("DTAIL"	QUE*
>> ZTSAVE("PSXBAT"	QUE*
>> ZTSK	QUE+1
ZZ	EXIT+3!

Customize PDF page

Package: CMOP

Routine: PSXSTAT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: