BCHFCP ; IHS/CMI/LAB - PRINT FORMS COUNT REPORT ;
;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
;IHS/CMI/LAB - tmp to xtmp
START ;
S BCH80S="-------------------------------------------------------------------------------",BCHPG=0
S Y=BCHBD D DD^%DT S BCHBDD=Y S Y=BCHED D DD^%DT S BCHEDD=Y
S (BCHTOT,BCHPROV,BCHTDES)=0
K BCHQUIT
I '$D(^XTMP("BCHFC",BCHJOB,BCHH)) S BCHPROV="NONE TO REPORT" D HEAD G DONE
F S BCHPROV=$O(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV)) Q:BCHPROV=""!($D(BCHQUIT)) D HEAD Q:$D(BCHQUIT) D SORT
G:$D(BCHQUIT) DONE
I $Y>(IOSL-5) D HEAD G:$D(BCHQUIT) DONE
W !?42,"------",!
W ?5,"Grand Total for ALL Operators:",?42,$J(BCHTOT,6)
D SUMMPAGE
DONE I $D(BCHET) S BCHTS=(86400*($P(BCHET,",")-$P(BCHBT,",")))+($P(BCHET,",",2)-$P(BCHBT,",",2)),BCHH=$P(BCHTS/3600,".") S:BCHH="" BCHH=0
S BCHTS=BCHTS-(BCHH*3600),BCHM=$P(BCHTS/60,".") S:BCHM="" BCHM=0 S BCHTS=BCHTS-(BCHM*60),BCHS=BCHTS W !!,"RUN TIME (H.M.S): ",BCHH,".",BCHM,".",BCHS
I $E(IOST)="C",IO=IO(0) S DIR(0)="E" D ^DIR K DIR
W:$D(IOF) @IOF
K ^XTMP("BCHFC",BCHJOB,BCHH),BCHJOB,BCHH
Q
SORT ;
S (BCHSUB,BCHDESU)=0,BCHFC("DAYS",BCHPROV)=0
S BCHDATE=0 F S BCHDATE=$O(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE)) Q:BCHDATE'=+BCHDATE!($D(BCHQUIT)) D WRITE
W !?42,"------",!
W ?5,"Totals for ",BCHPROV,?42,$J(BCHSUB,6)
S BCHFC("FORMS",BCHPROV)=BCHSUB
Q
WRITE ;
S Y=BCHDATE D DD^%DT S BCHWDAT=Y
I $Y>(IOSL-5) D HEAD Q:$D(BCHQUIT)
W ?25,BCHWDAT,?42,$J(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE),6),!
S BCHSUB=BCHSUB+^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE),BCHTOT=BCHTOT+^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE)
S BCHFC("DAYS",BCHPROV)=BCHFC("DAYS",BCHPROV)+1
Q
SUMMPAGE ;
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BCHQUIT="" Q
W:$D(IOF) @IOF S BCHPG=BCHPG+1
W !?58,$$FMTE^XLFDT(DT),?70,"Page ",BCHPG
W !?20,"SUMMARY OF FORMS KEYED BY ALL OPERATORS"
W !?15,"CHR RECORD POSTING DATES: ",BCHBDD," TO ",BCHEDD,!
W !?35,"No. of",?43,"Forms",?53,"% of"
W !?11,"Operator",?35,"Forms",?43,"per day",?53,"Workload"
W !,BCH80S
S X="" F S X=$O(BCHFC("FORMS",X)) Q:X="" W !,X,?32,$J(BCHFC("FORMS",X),8),?40,$J((BCHFC("FORMS",X)/BCHFC("DAYS",X)),8,2),?51,$J(((BCHFC("FORMS",X)/BCHTOT)*100),8,2)
;S X="" F S X=$O(BCHFC("FORMS",X)) Q:X="" W !,X,?32,$J(BCHFC("FORMS",X),8),?40,$J(((BCHFC("FORMS",X)/BCHFC("DAYS",X)),8),?51,$J((((BCHFC("FORMS",X)/BCHTOT)*100),8)
W !?35,"--------",!?32,$J(BCHTOT,8)
Q
HEAD I 'BCHPG G HEAD1
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BCHQUIT="" Q
HEAD1 ;
W @IOF S BCHPG=BCHPG+1
W !?58,$$FMTE^XLFDT(DT),?70,"Page ",BCHPG,!
S BCHLENG=$L($P(^DIC(4,DUZ(2),0),U))
W ?((80-BCHLENG)/2),$P(^DIC(4,DUZ(2),0),U),!
W ?29,"NUMBER OF FORMS KEYED",!
S BCHLENG=21+$L(BCHPROV)
W ?((80-BCHLENG)/2),"DATE ENTRY OPERATOR: ",BCHPROV,!
W ?15,"CHR RECORD POSTING DATES: ",BCHBDD," TO ",BCHEDD,!
W !?25,"POSTING DATE",?40,"# FORMS",!
W BCH80S,!
Q
BCHFCP ; IHS/CMI/LAB - PRINT FORMS COUNT REPORT ;
+1 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
+2 ;IHS/CMI/LAB - tmp to xtmp
START ;
+1 SET BCH80S="-------------------------------------------------------------------------------"
SET BCHPG=0
+2 SET Y=BCHBD
DO DD^%DT
SET BCHBDD=Y
SET Y=BCHED
DO DD^%DT
SET BCHEDD=Y
+3 SET (BCHTOT,BCHPROV,BCHTDES)=0
+4 KILL BCHQUIT
+5 IF '$DATA(^XTMP("BCHFC",BCHJOB,BCHH))
SET BCHPROV="NONE TO REPORT"
DO HEAD
GOTO DONE
+6 FOR
SET BCHPROV=$ORDER(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV))
IF BCHPROV=""!($DATA(BCHQUIT))
QUIT
DO HEAD
IF $DATA(BCHQUIT)
QUIT
DO SORT
+7 IF $DATA(BCHQUIT)
GOTO DONE
+8 IF $Y>(IOSL-5)
DO HEAD
IF $DATA(BCHQUIT)
GOTO DONE
+9 WRITE !?42,"------",!
+10 WRITE ?5,"Grand Total for ALL Operators:",?42,$JUSTIFY(BCHTOT,6)
+11 DO SUMMPAGE
DONE IF $DATA(BCHET)
SET BCHTS=(86400*($PIECE(BCHET,",")-$PIECE(BCHBT,",")))+($PIECE(BCHET,",",2)-$PIECE(BCHBT,",",2))
SET BCHH=$PIECE(BCHTS/3600,".")
IF BCHH=""
SET BCHH=0
+1 SET BCHTS=BCHTS-(BCHH*3600)
SET BCHM=$PIECE(BCHTS/60,".")
IF BCHM=""
SET BCHM=0
SET BCHTS=BCHTS-(BCHM*60)
SET BCHS=BCHTS
WRITE !!,"RUN TIME (H.M.S): ",BCHH,".",BCHM,".",BCHS
+2 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
SET DIR(0)="E"
DO ^DIR
KILL DIR
+3 IF $DATA(IOF)
WRITE @IOF
+4 KILL ^XTMP("BCHFC",BCHJOB,BCHH),BCHJOB,BCHH
+5 QUIT
SORT ;
+1 SET (BCHSUB,BCHDESU)=0
SET BCHFC("DAYS",BCHPROV)=0
+2 SET BCHDATE=0
FOR
SET BCHDATE=$ORDER(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE))
IF BCHDATE'=+BCHDATE!($DATA(BCHQUIT))
QUIT
DO WRITE
+3 WRITE !?42,"------",!
+4 WRITE ?5,"Totals for ",BCHPROV,?42,$JUSTIFY(BCHSUB,6)
+5 SET BCHFC("FORMS",BCHPROV)=BCHSUB
+6 QUIT
WRITE ;
+1 SET Y=BCHDATE
DO DD^%DT
SET BCHWDAT=Y
+2 IF $Y>(IOSL-5)
DO HEAD
IF $DATA(BCHQUIT)
QUIT
+3 WRITE ?25,BCHWDAT,?42,$JUSTIFY(^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE),6),!
+4 SET BCHSUB=BCHSUB+^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE)
SET BCHTOT=BCHTOT+^XTMP("BCHFC",BCHJOB,BCHH,BCHPROV,BCHDATE)
+5 SET BCHFC("DAYS",BCHPROV)=BCHFC("DAYS",BCHPROV)+1
+6 QUIT
SUMMPAGE ;
+1 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET BCHQUIT=""
QUIT
+2 IF $DATA(IOF)
WRITE @IOF
SET BCHPG=BCHPG+1
+3 WRITE !?58,$$FMTE^XLFDT(DT),?70,"Page ",BCHPG
+4 WRITE !?20,"SUMMARY OF FORMS KEYED BY ALL OPERATORS"
+5 WRITE !?15,"CHR RECORD POSTING DATES: ",BCHBDD," TO ",BCHEDD,!
+6 WRITE !?35,"No. of",?43,"Forms",?53,"% of"
+7 WRITE !?11,"Operator",?35,"Forms",?43,"per day",?53,"Workload"
+8 WRITE !,BCH80S
+9 SET X=""
FOR
SET X=$ORDER(BCHFC("FORMS",X))
IF X=""
QUIT
WRITE !,X,?32,$JUSTIFY(BCHFC("FORMS",X),8),?40,$JUSTIFY((BCHFC("FORMS",X)/BCHFC("DAYS",X)),8,2),?51,$JUSTIFY(((BCHFC("FORMS",X)/BCHTOT)*100),8,2)
+10 ;S X="" F S X=$O(BCHFC("FORMS",X)) Q:X="" W !,X,?32,$J(BCHFC("FORMS",X),8),?40,$J(((BCHFC("FORMS",X)/BCHFC("DAYS",X)),8),?51,$J((((BCHFC("FORMS",X)/BCHTOT)*100),8)
+11 WRITE !?35,"--------",!?32,$JUSTIFY(BCHTOT,8)
+12 QUIT
HEAD IF 'BCHPG
GOTO HEAD1
+1 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET BCHQUIT=""
QUIT
HEAD1 ;
+1 WRITE @IOF
SET BCHPG=BCHPG+1
+2 WRITE !?58,$$FMTE^XLFDT(DT),?70,"Page ",BCHPG,!
+3 SET BCHLENG=$LENGTH($PIECE(^DIC(4,DUZ(2),0),U))
+4 WRITE ?((80-BCHLENG)/2),$PIECE(^DIC(4,DUZ(2),0),U),!
+5 WRITE ?29,"NUMBER OF FORMS KEYED",!
+6 SET BCHLENG=21+$LENGTH(BCHPROV)
+7 WRITE ?((80-BCHLENG)/2),"DATE ENTRY OPERATOR: ",BCHPROV,!
+8 WRITE ?15,"CHR RECORD POSTING DATES: ",BCHBDD," TO ",BCHEDD,!
+9 WRITE !?25,"POSTING DATE",?40,"# FORMS",!
+10 WRITE BCH80S,!
+11 QUIT
