Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXSTAT

Package: CMOP

Routine: PSXSTAT


Information

PSXSTAT ;BIR/WPB-Routine to Display Statistics ;08 APR 1997 2:06 PM

Source Information

Source file <PSXSTAT.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 2

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All