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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXTNRPT

Package: CMOP

Routine: PSXTNRPT


Information

PSXTNRPT ;BIR/WPB-Routine to Provide Turnaround Reports at Host & Remote Facilities ; 04/08/97 2:06 PM

Source Information

Source file <PSXTNRPT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
VA Fileman 3 ^%DT  ^DIC  $$GET1^DIQ  
CMOP 1 $$STHMS^PSXTNRPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXR TURNAROUND TIME REPORT  PSXTNRPT  

Entry Points

Name Comments DBIA/ICR reference
STHMS(X)
REMOTE
R1
RPT1
REMOTE1
HOST
QUE
HOST1
DEVICE
EXIT
RPT

External References

Name Field # of Occurrence
^%DT R1, R1+1
^%ZIS DEVICE
HOME^%ZIS QUE+4
^%ZISC EXIT+1
^%ZTLOAD QUE+1
^DIC HOST+2
$$GET1^DIQ HOST+3
$$STHMS^PSXTNRPT REMOTE1+14, RPT+6, RPT+7, RPT+8
$$FMADD^XLFDT R1
$$FMDIFF^XLFDT REMOTE1+8, HOST1+9
$$FMTE^XLFDT RPT1+1, RPT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: !,"Beginning date must be before ending date."
  • Line Location: R1+3
Function Call: WRITE
  • Prompt: !,"You must select a printer."
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"Job Canceled"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Job Queued"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REMOTE1+15
Function Call: WRITE
  • Prompt: !!!,"TURNAROUND TIME FOR PERIOD"
  • Line Location: RPT1+0
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(BB,"1P")," - ",$$FMTE^XLFDT(EE,"1P")
  • Line Location: RPT1+1
Function Call: WRITE
  • Prompt: !,"No Rx's completed during this period."
  • Line Location: RPT1+2
Function Call: WRITE
  • Prompt: !!,"Total Rx's Completed : ",CNT
  • Line Location: RPT1+3
Function Call: WRITE
  • Prompt: !,"Maximum turnaround time: ",LTT," Rx: ",$P(^PSRX(LRX,0),"^",1)
  • Line Location: RPT1+4
Function Call: WRITE
  • Prompt: !,"Minimum turnaround time: ",STT," Rx: ",$P(^PSRX(SRX,0),"^",1)
  • Line Location: RPT1+5
Function Call: WRITE
  • Prompt: !,"Average turnaround time: ",AVTTM
  • Line Location: RPT1+6
Function Call: WRITE
  • Prompt: !!,"Number of Rx's missing refill node: ",CNTA
  • Line Location: RPT1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: HOST+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPT+0
Function Call: WRITE
  • Prompt: !!!,"TURNAROUND TIME REPORT FOR "_SNAME
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !,"FOR "_$$FMTE^XLFDT(BB,"1P")," - ",$$FMTE^XLFDT(EE,"1P")
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !!,"No Rx's completed during this time period."
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !!,"Total Rx's Completed : ",CNT
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !,"Number of Rx's not processed at remote: ",CNTA
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !,"Maximum turnaround time: ",$P($$STHMS^PSXTNRPT(LT),".")," Rx: ",LRX
  • Line Location: RPT+6
Function Call: WRITE
  • Prompt: !,"Minimum turnaround time: ",$P($$STHMS^PSXTNRPT(ST),".")," Rx: ",SRX
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !,"Average turnaround time: ",$P($$STHMS^PSXTNRPT(AVT),"."),!
  • Line Location: RPT+8
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4
Routine Call
  • DIC
  • Line Location:
    • HOST+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HOST+4
^PSRX - [#52] REMOTE1+2, REMOTE1+4, REMOTE1+6, RPT1+4, RPT1+5
^PSRX("AR" REMOTE1+1
^PSX(550.2 - [#550.2] REMOTE1+7
^PSX(552.1 HOST1+3, HOST1+8
^PSX(552.4 HOST1+1, HOST1+2, HOST1+4, HOST1+5, HOST1+6, HOST1+8, HOST1+9, HOST1+11

Label References

Name Line Occurrences
DEVICE DEVICE, HOST+5
EXIT R1, R1+1, DEVICE, DEVICE+1, DEVICE+4, RPT1+2, HOST+2, RPT+3, RPT+9
HOST1 DEVICE+3
QUE DEVICE+1
R1 HOST+1
REMOTE R1+3
REMOTE1 DEVICE+2
RPT HOST1+13
RPT1 REMOTE1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT R1*, R1+1!, EXIT+2!
%DT("A" R1*, R1+1*, R1+2!
%DT("B" R1*, R1+2!
%DT(0 R1*, R1+2!
%ZIS DEVICE*, EXIT+2!
%ZIS("B" DEVICE*
AVRTM EXIT+2!
AVT EXIT+2!, HOST1*, HOST1+14*, RPT+8
AVTTM REMOTE1*, REMOTE1+13*, REMOTE1+14*, RPT1+6, EXIT+2!
BAT REMOTE1+4*, REMOTE1+7, EXIT+2!
BB R1*, R1+3, RPT1+1, EXIT+2!, RPT+2
BEG R1*, REMOTE1+1*, REMOTE1+8, EXIT+2!, HOST1+1*
CMDT EXIT+2!, HOST1+7*, HOST1+8*, HOST1+9
CNT REMOTE1*, REMOTE1+10*, REMOTE1+11, REMOTE1+12, REMOTE1+13, RPT1+2, RPT1+3, EXIT+2!, HOST1*, HOST1+7*
, HOST1+11, HOST1+13, HOST1+14, RPT+3, RPT+4
CNTA REMOTE1*, REMOTE1+6*, RPT1+7, EXIT+2!, HOST1*, HOST1+6*, RPT+5
DIC EXIT+2!, HOST+2*!
DIC("A" HOST+2*
DIC(0 HOST+2*
DTOUT R1, R1+1, R1+2!, EXIT+2!, HOST+2
DUOUT EXIT+2!, HOST+2
E1 STHMS+2~, STHMS+3*, STHMS+5!
EE R1+1*, R1+3, RPT1+1, EXIT+2!, HOST1+1, RPT+2
END R1+1*, REMOTE1+1, EXIT+2!
FACDA HOST+2*, HOST+3!
FILL REMOTE1+1*, REMOTE1+4, REMOTE1+6, EXIT+2!
FLAG REMOTE*, R1+4, DEVICE+2, DEVICE+3, QUE, QUE+1, EXIT+2!, HOST*, HOST+1
IO REMOTE1, HOST1
IO("Q" DEVICE+1
IOF REMOTE1+15, EXIT, RPT
ION DEVICE
IOST DEVICE, REMOTE1+15, RPT
LRT EXIT+2!
LRX REMOTE1+9*, REMOTE1+11*, RPT1+4, EXIT+2!, HOST1+9*, HOST1+11*, RPT+6
LT EXIT+2!, HOST1*, HOST1+9*, RPT+6
LTT REMOTE1*, REMOTE1+9*, REMOTE1+14*, RPT1+4, EXIT+2!
>> POP DEVICE
PSXLION DEVICE*, QUE, EXIT+2!
PTR514 EXIT+2!, HOST1+2*, HOST1+3, HOST1+8
R1 STHMS+2~, STHMS+4*, STHMS+6
RTURN EXIT+2!
RX REMOTE1+1*, REMOTE1+2, REMOTE1+4, REMOTE1+6, REMOTE1+9, REMOTE1+11, EXIT+2!
RXRTM EXIT+2!
RXTTM REMOTE1+3*, EXIT+2!
SITE EXIT+2!, HOST+3*, HOST+4*, HOST1+3
SNAME EXIT+2!, HOST+2*, RPT+1
SRT EXIT+2!
SRX REMOTE1+9*, RPT1+5, EXIT+2!, HOST1+9*, RPT+7
ST EXIT+2!, HOST1*, HOST1+9*, RPT+7
STAT REMOTE1+4*, REMOTE1+5, EXIT+2!
STT REMOTE1*, REMOTE1+9*, REMOTE1+14*, RPT1+5, EXIT+2!
T1 STHMS+2~, STHMS+3*, STHMS+5!
TDT EXIT+2!, HOST1+7*, HOST1+8*, HOST1+9
TOTTM REMOTE1*, REMOTE1+9*, REMOTE1+13, EXIT+2!, HOST1*, HOST1+10*, HOST1+14
TRTM EXIT+2!
TT HOST1+9*, HOST1+10, HOST1+12!
TTM REMOTE1+7*, REMOTE1+8, EXIT+2!
TURN REMOTE1*, REMOTE1+8*, REMOTE1+9, EXIT+2!
U1 STHMS+2~, STHMS+3*, STHMS+4, STHMS+5!
W1 STHMS+2~, STHMS+5!
X R1+2!, EXIT+2!, HOST+2!, STHMS~, STHMS+1, STHMS+3
X1 STHMS+2~, STHMS+3*, STHMS+4, STHMS+5!
X2 STHMS+2~, STHMS+3*, STHMS+5!
X3 STHMS+2~, STHMS+3*, STHMS+5!
XS EXIT+2!, HOST+2*, HOST+4
XX REMOTE1+4*, EXIT+2!, HOST1+1*, HOST1+2, HOST1+4, HOST1+5, HOST1+6, HOST1+8, HOST1+9, HOST1+11
, STHMS+2~, STHMS+3*, STHMS+5!
Y R1, R1+1, R1+2!, EXIT+2!, HOST+2!
Y(0 HOST+2
Y1 STHMS+2~, STHMS+3*, STHMS+4, STHMS+5!
Y2 STHMS+2~, STHMS+3*, STHMS+5!
Y3 STHMS+2~, STHMS+3*, STHMS+4, STHMS+5!
YY EXIT+2!, HOST1+1*, HOST1+4, HOST1+5, HOST1+6, HOST1+8, HOST1+9, HOST1+11, STHMS+2~, STHMS+3*
, STHMS+5!
>> ZTDESC QUE*
>> ZTIO QUE*
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
>> ZTRTN QUE*
>> ZTSAVE("BB" QUE*
>> ZTSAVE("BEG" QUE*
>> ZTSAVE("EE" QUE*
>> ZTSAVE("END" QUE*
>> ZTSAVE("SITE" QUE+1*
>> ZTSAVE("SNAME" QUE+1*
>> ZTSK QUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All