IBOBCRT.m

IBOBCRT	;ALB/RJS - IB-BILLING-CYCLE-REPORT 12/19/91

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

CATCCLK	;

	;***

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

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

	;***

	S DIC="^IBE(351,",DIC(0)="AEQMZ"

	S DIC("A")="Select CAT C Billing Clock by PATIENT NAME: "

	D ^DIC

	I Y<0 G END

	S IBD0=$P(Y,"^",1)

	W ! D OPEN G END:POP

	I $D(IO("Q")) D QUEUED,HOME^%ZIS G CATCCLK

	U IO D DQ

	W ! S DIR(0)="E" D ^DIR I '$D(DIRUT) W @IOF G CATCCLK

	Q

OPEN	;

	S %ZIS="QM" D ^%ZIS

	Q

QUEUED	;

	S ZTRTN="DQ^IBOBCRT",ZTDESC="IB BILLING REPORT",ZTSAVE("IBD0")="" D ^%ZTLOAD W !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")

	Q

HEADER	;

	S Y=DT X ^DD("DD")

	W !,Y,"            Billing Cycle Inquiry",?30,!!

	K Y

	Q

DQ	;

	;***

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

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

	;*** suppress initial form feed (to all but crts)

	W:$E(IOST,1,2)["C-" @IOF

	S D0=IBD0

	I $E(IOST,1,2)="P-" D HEADER

	K DXS D ^IBXBCR2 K DXS D ^IBXBCR K DXS

END	;

	;***

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

	I $D(ZTQUEUED) S ZTREQ="@" Q

	D ^%ZISC

	K D0,DIC,DIR,DIRUT,DXS,POP,Y,ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,ZTSK,IBD0

	Q

IBOBCRT   ;ALB/RJS - IB-BILLING-CYCLE-REPORT 12/19/91

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

CATCCLK   ;

 +1       ;***

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

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

 +4       ;***

 +5        SET DIC="^IBE(351,"

           SET DIC(0)="AEQMZ"

 +6        SET DIC("A")="Select CAT C Billing Clock by PATIENT NAME: "

 +7        DO ^DIC

 +8        IF Y<0

               GOTO END

 +9        SET IBD0=$PIECE(Y,"^",1)

 +10       WRITE !

           DO OPEN

           IF POP

               GOTO END

 +11       IF $DATA(IO("Q"))

               DO QUEUED

               DO HOME^%ZIS

               GOTO CATCCLK

 +12       USE IO

           DO DQ

 +13       WRITE !

           SET DIR(0)="E"

           DO ^DIR

           IF '$DATA(DIRUT)

               WRITE @IOF

               GOTO CATCCLK

 +14       QUIT 

OPEN      ;

 +1        SET %ZIS="QM"

           DO ^%ZIS

 +2        QUIT 

QUEUED    ;

 +1        SET ZTRTN="DQ^IBOBCRT"

           SET ZTDESC="IB BILLING REPORT"

           SET ZTSAVE("IBD0")=""

           DO ^%ZTLOAD

           WRITE !!,$SELECT($DATA(ZTSK):"Request Queued!",1:"Request Cancelled")

 +2        QUIT 

HEADER    ;

 +1        SET Y=DT

           XECUTE ^DD("DD")

 +2        WRITE !,Y,"            Billing Cycle Inquiry",?30,!!

 +3        KILL Y

 +4        QUIT 

DQ        ;

 +1       ;***

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

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

 +4       ;*** suppress initial form feed (to all but crts)

 +5        IF $EXTRACT(IOST,1,2)["C-"

               WRITE @IOF

 +6        SET D0=IBD0

 +7        IF $EXTRACT(IOST,1,2)="P-"

               DO HEADER

 +8        KILL DXS

           DO ^IBXBCR2

           KILL DXS

           DO ^IBXBCR

           KILL DXS

END       ;

 +1       ;***

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

 +3        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +4        DO ^%ZISC

 +5        KILL D0,DIC,DIR,DIRUT,DXS,POP,Y,ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,ZTSK,IBD0

 +6        QUIT