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
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls