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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXRSTAT

Package: CMOP

Routine: PSXRSTAT


Information

PSXRSTAT ;BIR/HTW-Rx Workload Report ; 30 Oct 2000 5:08 PM

Source Information

Source file <PSXRSTAT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXR RX WORKLOAD REPORT  

Entry Points

Name Comments DBIA/ICR reference
Q1
DIVSUML ;
TITLE
TWO
END
DIVSUM ;EP DIVISIONAL SUMMARY
BEGDATE
SELECT ;
ONE
ST0
EXIT
SEL ;Select divisions
; returns arrays
; DIVNM("names of divisions")=selection number
; DIVDA("iens of divisions")=name of division
; for testing
COUNT ;
DIVISION ;
ENDDATE
AHEAD
START
GTOTAL ;
DEVICE
ALL
TOTALT ;
QUE
GRNDTOT ;EP WRITE /LOOP DIVISIONAL TOTALS & WRITE GRAND TOTALS
MAIN
OP

External References

Name Field # of Occurrence
NOW^%DTC TITLE+4
^%ZIS DEVICE+1
^%ZISC DEVICE+4, START+11
^%ZTLOAD QUE+3
^DIR BEGDATE, ENDDATE+3, MAIN+1, GTOTAL+4, DIVSUML+12, SEL+11, SELECT+3, ALL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed.",!
  • Line Location: BEGDATE+3
Function Call: WRITE
  • Prompt: !,"Ending date must follow beginning date!"
  • Line Location: ENDDATE+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !!!,?30,"Rx WORKLOAD BREAKDOWN"_$S($G(ZZTOT)=1:" SUMMARY",1:"")
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,DIVDA(DIVDA)
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,"FROM: ",PSXB," TO: ",$P(PSXE,"@")," PRINTED: ",PSXNOW
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"DATE",?8,"TOTAL",?17,"ENTERED",?35,"OUTPATIENT",?47,"RELEASED",?65,"CMOP",?74,"OTHER"
  • Line Location: AHEAD+0
Function Call: WRITE
  • Prompt: !,?8,"MAIL",?17,"WINDOW",?35,"MAIL",?47,"WINDOW",?65,"Released"
  • Line Location: AHEAD+1
Function Call: WRITE
  • Prompt: !,?17,"Tot",?23,"Ref",?29,"Rn1",?47,"Tot",?53,"Ref",?59,"Rn1"
  • Line Location: AHEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !,ZDATE,?8,+$G(PSXMT),?17,+$G(PSXWT),?23,+$G(PSXWRF),?29,+$G(PSXWRN),?35,+$G(PSXM),?47,+$G(PSXW),?53,+$G(PSXRRF),?59,+$G(PSXRRN),?65,+$G(PSXCR),?74,+$G(PSXUNREL)
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GRNDTOT+2
Function Call: WRITE
  • Prompt: !,DIVDA(DIV)
  • Line Location: DIVSUM+2
Function Call: WRITE
  • Prompt: !,?8,+$G(TOTALT(DIV,"MAIL"))
  • Line Location: DIVSUML+2
Function Call: WRITE
  • Prompt: ?17,+$G(TOTALT(DIV,"WINDOW"))
  • Line Location: DIVSUML+3
Function Call: WRITE
  • Prompt: ?23,+$G(TOTALT(DIV,"WINDOW REFIL"))
  • Line Location: DIVSUML+4
Function Call: WRITE
  • Prompt: ?29,+$G(TOTALT(DIV,"WINDOW RENEW"))
  • Line Location: DIVSUML+5
Function Call: WRITE
  • Prompt: ?35,+$G(TOTALT(DIV,"OP MAIL"))
  • Line Location: DIVSUML+6
Function Call: WRITE
  • Prompt: ?47,+$G(TOTALT(DIV,"OP WINDOW"))
  • Line Location: DIVSUML+7
Function Call: WRITE
  • Prompt: ?53,+$G(TOTALT(DIV,"RELEASE REFIL"))
  • Line Location: DIVSUML+8
Function Call: WRITE
  • Prompt: ?59,+$G(TOTALT(DIV,"RELEASE RENEW"))
  • Line Location: DIVSUML+9
Function Call: WRITE
  • Prompt: ?65,+$G(TOTALT(DIV,"CMOP RELEASED"))
  • Line Location: DIVSUML+10
Function Call: WRITE
  • Prompt: ?74,+($G(TOTALT(DIV,"CMOP UNRELEASED"))+$G(TOTALT(DIV,"OTHER")))
  • Line Location: DIVSUML+11
Function Call: WRITE
  • Prompt: !!,"SELECTION OF DIVISION(S)",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,DIV,?5,DIVNM(DIV)
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !,X,?30,@X
  • Line Location: TOTALT+1
Routine Call
  • DIR
  • Line Location:
    • BEGDATE
    • ENDDATE+3
    • MAIN+1
    • GTOTAL+4
    • DIVSUML+12
    • SEL+11
    • SELECT+3
    • ALL+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENDDATE, TITLE+2, TITLE+3, TITLE+4
^PS(52.5 - [#52.5] COUNT+24, COUNT+25, COUNT+26
^PS(59 - [#59] SEL+7
^PSRX - [#52] COUNT+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5, COUNT+9, COUNT+10, COUNT+16, COUNT+17, COUNT+19
, COUNT+27, COUNT+28, OP, OP+1
^PSRX("AD" DIVISION+2, ONE, TWO

Label References

Name Line Occurrences
ALL SEL+12
BEGDATE BEGDATE+3
COUNT TWO
DIVISION START+7
DIVSUM GRNDTOT+7
DIVSUML START+7, GRNDTOT+10
END BEGDATE+1, ENDDATE+4, DEVICE+1, START+8, START+12, EXIT
ENDDATE ENDDATE+6
EXIT PSXRSTAT+6
GRNDTOT START+10
GTOTAL DIVISION+3
MAIN DIVISION+2
ONE DIVISION+2
SEL ENDDATE+8, ALL+6
SELECT SEL+13
ST0 DEVICE+3
START DEVICE+2
TITLE DIVISION+1, MAIN+2, MAIN+3, GRNDTOT+4
TWO ONE

Naked Globals

Name Field # of Occurrence
^( COUNT+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!, TITLE+4
>> %ZIS DEVICE*
>> %ZIS("A" DEVICE*
>> %ZIS("B" DEVICE*
A END+2!, MAIN+6*
B END+2!, MAIN+6*
C DEVICE+4!, END+2!, MAIN+6*, SELECT+1*
D END+2!, MAIN+6*
>> DA ALL+5*
DIR BEGDATE!, ENDDATE+3!, Q1+1!, END+1!, MAIN+1!, GTOTAL+4!, DIVSUML+12!, SEL+9!, SEL+11!, SELECT+7!
, ALL+2!
DIR("A" BEGDATE*, ENDDATE+2*, SELECT+1*, SELECT+2*, ALL+1*
DIR("B" ENDDATE+2*, ALL+1*
DIR(0 BEGDATE*, ENDDATE+2*, MAIN+1*, GTOTAL+4*, DIVSUML+12*, SEL+10*, SELECT+2*, ALL+1*
DIROUT END+3!
DIRUT BEGDATE+1, ENDDATE+4, END+3!
DIV START+7*, COUNT+1*, COUNT+2*, GRNDTOT+6*, GRNDTOT+8, GRNDTOT+10*, DIVSUM+2, DIVSUML+2, DIVSUML+3, DIVSUML+4
, DIVSUML+5, DIVSUML+6, DIVSUML+7, DIVSUML+8, DIVSUML+9, DIVSUML+10, DIVSUML+11, SEL+6*, SEL+7*, ALL*
, ALL+5*, EXIT+1!
DIVDA ENDDATE+8, START+3*, START+7, COUNT+1, COUNT+2, TITLE+6, MAIN+10, MAIN+11, MAIN+12, MAIN+13
, GTOTAL+2, GRNDTOT+3*, SEL+6!, SEL+7*, ALL+4!, EXIT+1!
DIVDA( START+3, TITLE+6, GRNDTOT+6, DIVSUM+2, ALL+5*
DIVDA(0 GRNDTOT+3*
DIVNM SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM( SEL+7*, SELECT+1, SELECT+6*, ALL, ALL+5!
DIVX SEL+6!, SELECT+5*, SELECT+7!
DIVX( SELECT+6
DT BEGDATE+3, ENDDATE
DTOUT END+3!
DUOUT END+3!
E END+2!, MAIN+6*
I SEL+7*, SEL+8*, SELECT+1, SELECT+2, SELECT+6*, EXIT+1!
IO ST0
IO("Q" DEVICE+3
IOF TITLE+1, MAIN+3, GRNDTOT+2
ION DEVICE+1
IOST DEVICE+2, TITLE+1, MAIN, MAIN+3, GTOTAL+4, DIVSUML+12
J DEVICE+4!
LINE START+1*, START+6*, START+7, TITLE+9, AHEAD+3, GRNDTOT+5*, GRNDTOT+9, EXIT+1!
POP DEVICE+1, END+1!
PSX TWO!, COUNT+16*, COUNT+17, COUNT+19
PSX( COUNT+20*, COUNT+21, COUNT+22, COUNT+29*, COUNT+31
PSXAD START+4*, END!, COUNT+15*
PSXB BEGDATE+2*, BEGDATE+3, ENDDATE+6, Q1+1!, START+4, START+5, START+9*, END+1!, TITLE+2*, TITLE+7
PSXCR END+2!, COUNT+21*, MAIN+6, MAIN+8, MAIN+14!
PSXCU END+2!, COUNT+22*, COUNT+29*, MAIN+4, MAIN+14!
PSXD START+5*, DIVISION+2*, END!, ONE, TWO, MAIN+5, MAIN+9
PSXD1 DIVISION+2, END!, MAIN+9*
PSXE ENDDATE+5*, ENDDATE+6, Q1+1!, START+4, START+9*, END!, TITLE+3*, TITLE+7
PSXE1 START+4*, DIVISION+2, END!
PSXF END!, TWO*, COUNT+1, COUNT+2, COUNT+4, COUNT+9, COUNT+10, COUNT+18, COUNT+21, COUNT+22
, COUNT+27, COUNT+28, COUNT+29, COUNT+31, OP, OP+1, OP+4, OP+5
PSXFDT COUNT+27*, COUNT+28*, COUNT+29, COUNT+30!
PSXFLAG START+3, DIVISION+2, END+3!, ONE, TWO, TITLE, MAIN, MAIN+1*, GTOTAL+1, GRNDTOT+1
, DIVSUM+1, DIVSUML+1
PSXLAP DEVICE+1*, QUE, END+1!
PSXLINE END!, TITLE+8*, MAIN, MAIN+3, MAIN+9*, GTOTAL+4
PSXM END+2!, OP+2*, MAIN+6, MAIN+8, MAIN+14!
PSXMT END+2!, COUNT+6*, COUNT+11*, MAIN+8, MAIN+14!
PSXMW END+2!, TWO!, COUNT+5*, COUNT+6, COUNT+7, COUNT+10*, COUNT+11, COUNT+12, COUNT+13, COUNT+14
, OP+2, OP+3
PSXNOW END+1!, TITLE+4*, TITLE+7
PSXOT START+4*, END!
PSXR END!, ONE*, TWO, COUNT+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5, COUNT+9, COUNT+10
, COUNT+16, COUNT+17, COUNT+19, COUNT+24, COUNT+27, COUNT+28, OP, OP+1
PSXREL TWO!, OP*, OP+1*, OP+2, OP+3
PSXRNM COUNT+3*, COUNT+8, OP+4, EXIT+1!
PSXRRF OP+5*, MAIN+8, MAIN+12, MAIN+14!, EXIT+1!
PSXRRN OP+4*, MAIN+8, MAIN+13, MAIN+14!
PSXST COUNT+24*, COUNT+25, COUNT+26, COUNT+30!
PSXST1 COUNT+25*, COUNT+29, COUNT+30!
PSXSTAT END+3!, COUNT+19*, COUNT+20, COUNT+30!
PSXSUS COUNT+30!
PSXSUSDT END+2!, COUNT+26*, COUNT+29
PSXUNREL END+1!, OP+6*, MAIN+4*, MAIN+6, MAIN+8, MAIN+14!
PSXW END+2!, OP+3*, MAIN+6, MAIN+8, MAIN+14!
PSXWRF COUNT+12*, MAIN+8, MAIN+10, MAIN+14!
PSXWRN COUNT+8*, MAIN+8, MAIN+11, MAIN+14!
PSXWT END+2!, COUNT+7*, COUNT+12*, MAIN+6, MAIN+8, MAIN+14!
PSXXB START+4*, START+9, EXIT+1!
PSXXE START+4*, START+9!
TOTAL START+2!, GTOTAL+3!, EXIT+1!
TOTAL( GTOTAL+2
TOTAL("CMOP R ELEASED" , COUNT+21*, COUNT+29*
TOTAL("CMOP U NRELEASED" , COUNT+22*
TOTAL("MAIL" COUNT+13*
TOTAL("OP MAI L" , OP+2*
TOTAL("OP WIN DOW" , OP+3*
TOTAL("OTHER" OP+6*
TOTAL("WINDOW" COUNT+14*
TOTALT START+2!, EXIT+1!
TOTALT( MAIN+10*, MAIN+11*, MAIN+12*, MAIN+13*, GTOTAL+2*, GRNDTOT+8, DIVSUML+2, DIVSUML+3, DIVSUML+4, DIVSUML+5
, DIVSUML+6, DIVSUML+7, DIVSUML+8, DIVSUML+9, DIVSUML+10, DIVSUML+11
TOTALT(0 GRNDTOT+8*
U COUNT+1, COUNT+2, COUNT+3
X BEGDATE+1, BEGDATE+2!, ENDDATE+1!, END+1!, GTOTAL+2*, GRNDTOT+8*, SELECT+6*, TOTALT+1*
Y BEGDATE+2!, ENDDATE*!, ENDDATE+1!, ENDDATE+5!, Q1+1!, END+1!, TITLE+2*, TITLE+3*, TITLE+4*, MAIN+1!
, GTOTAL+4, DIVSUML+12, SEL+12, SEL+13, SELECT+4, SELECT+6, ALL+3
ZDATE END+3!, MAIN+5*, MAIN+8
ZFILL END+3!, COUNT+17*, COUNT+18!, COUNT+20, COUNT+30!
ZTDESC QUE+2*, END+1!
ZTIO QUE*, END+1!
>> ZTQUEUED START
>> ZTREQ START*
ZTRTN QUE+1*, END+1!
ZTSAVE END+1!
ZTSAVE("DIVDA(" QUE*
ZTSAVE("DIVNM(" QUE*
ZTSAVE("PSXB" QUE*
ZTSAVE("PSXE" QUE*
ZTSK Q1, END+2!
ZZ COUNT+30!
ZZTODAY ENDDATE*, ENDDATE+2, ENDDATE+7!
ZZTOT END+3!, TITLE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All