IBOCPD.m

IBOCPD	;ALB/ARH - CLERK PRODUCTIVITY REPORTS ; 10/8/91

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;

EN	;

	;***

	;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

	;S XRTL=$ZU(0),XRTN="IBOCPD-1" D T0^%ZOSV ;start rt clock

	S DIR(0)="SO^F:FULL CLERK PRODUCTIVITY REPORT;S:SUMMARY OF CLERK PRODUCTIVITY REPORT;"

	D ^DIR K DIR G:$D(DIRUT) EXIT I Y="F" D FULL G EXIT

	I Y="S" D ^IBOCPDS

EXIT	K X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIOEND

	;***

	;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

	Q

	;

FULL	D HOME^%ZIS S IBHDR="CLERK PRODUCTIVITY REPORT" W @IOF,?27,IBHDR,!!

	W !,"Report requires 132 columns."

	S IBFLD="Date Entered" D RANGE G:IBQUIT ENDF

	;

PRINTF	;print report

	;***

	;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

	;S XRTL=$ZU(0),XRTN="IBOCPD-2" D T0^%ZOSV ;start rt clock

	S DHD=IBHDR_" FOR "_IBBEGE_" - "_IBENDE,DIOEND="D PAUSE^IBOCPDS"

	S FR=IBBEG_",?,?,",TO=IBEND_",?,?,",L=0,DIC="^DGCR(399,",(BY,FLDS)="[IB CLK PROD]"

	D EN1^DIP

ENDF	;

	K DIC,L,FLDS,BY,DHD,FR,TO,IBHDR,IBBEG,IBEND,IBBEGE,IBENDE,IBFLD,IBQUIT,X,Y

	Q

	;

	;external entry point to get a range of dates

RANGE	;get date range

	S DIR(0)="D^:NOW:EX",DIR("A")="START WITH "_IBFLD

	D ^DIR K DIR I $D(DIRUT) S IBQUIT=1 Q

	S IBBEG=Y X ^DD("DD") S IBBEGE=Y

	S DIR(0)="D^"_IBBEG_":NOW:EX",DIR("A")="GO TO "_IBFLD,DIR("B")="TODAY"

	D ^DIR K DIR I $D(DIRUT) S IBQUIT=1 Q

	S IBEND=Y X ^DD("DD") S IBENDE=Y,IBQUIT=0

	Q

IBOCPD    ;ALB/ARH - CLERK PRODUCTIVITY REPORTS ; 10/8/91

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;

EN        ;

 +1       ;***

 +2       ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

 +3       ;S XRTL=$ZU(0),XRTN="IBOCPD-1" D T0^%ZOSV ;start rt clock

 +4        SET DIR(0)="SO^F:FULL CLERK PRODUCTIVITY REPORT;S:SUMMARY OF CLERK PRODUCTIVITY REPORT;"

 +5        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               GOTO EXIT

           IF Y="F"

               DO FULL

               GOTO EXIT

 +6        IF Y="S"

               DO ^IBOCPDS

EXIT       KILL X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIOEND

 +1       ;***

 +2       ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

 +3        QUIT 

 +4       ;

FULL       DO HOME^%ZIS

           SET IBHDR="CLERK PRODUCTIVITY REPORT"

           WRITE @IOF,?27,IBHDR,!!

 +1        WRITE !,"Report requires 132 columns."

 +2        SET IBFLD="Date Entered"

           DO RANGE

           IF IBQUIT

               GOTO ENDF

 +3       ;

PRINTF    ;print report

 +1       ;***

 +2       ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOCPD" D T1^%ZOSV ;stop rt clock

 +3       ;S XRTL=$ZU(0),XRTN="IBOCPD-2" D T0^%ZOSV ;start rt clock

 +4        SET DHD=IBHDR_" FOR "_IBBEGE_" - "_IBENDE

           SET DIOEND="D PAUSE^IBOCPDS"

 +5        SET FR=IBBEG_",?,?,"

           SET TO=IBEND_",?,?,"

           SET L=0

           SET DIC="^DGCR(399,"

           SET (BY,FLDS)="[IB CLK PROD]"

 +6        DO EN1^DIP

ENDF      ;

 +1        KILL DIC,L,FLDS,BY,DHD,FR,TO,IBHDR,IBBEG,IBEND,IBBEGE,IBENDE,IBFLD,IBQUIT,X,Y

 +2        QUIT 

 +3       ;

 +4       ;external entry point to get a range of dates

RANGE     ;get date range

 +1        SET DIR(0)="D^:NOW:EX"

           SET DIR("A")="START WITH "_IBFLD

 +2        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               SET IBQUIT=1

               QUIT 

 +3        SET IBBEG=Y

           XECUTE ^DD("DD")

           SET IBBEGE=Y

 +4        SET DIR(0)="D^"_IBBEG_":NOW:EX"

           SET DIR("A")="GO TO "_IBFLD

           SET DIR("B")="TODAY"

 +5        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               SET IBQUIT=1

               QUIT 

 +6        SET IBEND=Y

           XECUTE ^DD("DD")

           SET IBENDE=Y

           SET IBQUIT=0

 +7        QUIT