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

Package: CMOP

Routine: PSXRACT


Information

PSXRACT ;BIR/HW-ACTIVITY REPORT [ 05/10/97 2:28 PM ] ; 31 Oct 2000 2:28 PM

Source Information

Source file <PSXRACT.m>

Entry Points

Name Comments DBIA/ICR reference
BEGDATE
ENDDATE
DEVICE
QUE
Q1
ST0
START
DIVISION ;
ONEDIV ;
BATCH
GRNDSUM ;
END
EXIT ;
RX ; COUNT RX DATA
TITLE
AHEAD
PRINT
SEL ;Select divisions
; returns arrays
; DIVNM("names of divisions")=selection number
; DIVDA("iens of divisions")=name of division
; for testing
SELECT ;
ALL

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: !,?9,DIV,?35,$J($G(TORDS(DIV)),7),?43,$J($G(TRXS(DIV)),6),?53,$J($G(PSXCRT(DIV)),7),?63,$J($G(PSXNDT(DIV)),7),?73,$J($G(PSXCUT(DIV)),5)
  • Line Location: BATCH+16
Function Call: WRITE
  • Prompt: !!,"TOTAL",?35,$J($G(TORDS),7),?43,$J($G(TRXS),6),?53,$J($G(PSXCRT),7),?63,$J($G(PSXNDT),7),?73,$J($G(PSXCUT),5)
  • Line Location: GRNDSUM+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?30,"CMOP ACTIVITY REPORT"_$S($G(ZZTOT)=1:" SUMMARY",1:"")
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,DIVDA(DIVDA)
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,"For ",PSXBP," thru ",$P(PSXEP,"@"),?40,"Printed: ",PSXNOW
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,"TRANS #",?9,"DIVISION",?37,"ORDERS",?45,"RXS",?53,"RELEASED",?63,"NOT DISP",?73,"UNREL"
  • Line Location: AHEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"SELECTION OF DIVISION(S)",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,DIV,?5,DIVNM(DIV)
  • Line Location: ALL+0
Info |  Source |  Entry Points |  Interaction Calls