Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(550.2 - [#550.2] Classic Fileman Calls,  GET1^DIQ
^PSX(552.1 - [#552.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call