Routine: PSXRACT

Information

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

Source file <PSXRACT.m>

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

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