IBOMTC.m

IBOMTC	;ALB/CPM - CATEGORY C BILLING ACTIVITY LIST ; 09-JAN-92

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

	;

	;***

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

	;

	S:'$D(DTIME) DTIME=300 D HOME^%ZIS

	; Select Start and End dates.

BDT	S %DT="AEPX",%DT("A")="Start with DATE: " D ^%DT K %DT G END:Y<0 S IBBDT=Y

	I IBBDT<2901001 W !,"The Start Date cannot be earlier than 10/1/90.",! G BDT

EDT	S %DT="EX" R !,"Go to DATE: ",X:DTIME S:X=" " X=IBBDT

	G END:(X="")!(X["^") D ^%DT G EDT:Y<0 S IBEDT=Y

	I Y<IBBDT W *7," ??",!,"ENDING DATE must follow BEGINNING DATE." G BDT

	;

	; Select output device.

	S %ZIS="QM" D ^%ZIS G:POP END

	I $D(IO("Q")) D  G END

	.S ZTRTN="^IBOMTC1",ZTDESC="CATEGORY C BILLING ACTIVITY LIST"

	.S (ZTSAVE("IBBDT"),ZTSAVE("IBEDT"))=""

	.D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued.  The task number is "_ZTSK_".",1:"Unable to queue this job.")

	.K ZTSK,IO("Q") D HOME^%ZIS

	;

	U IO

	;***

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

	;

	D ^IBOMTC1 ; generate report

	;

END	K %DT,IBBDT,IBEDT,X,Y

	;***

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

	Q

IBOMTC    ;ALB/CPM - CATEGORY C BILLING ACTIVITY LIST ; 09-JAN-92

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

 +2       ;

 +3       ;***

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

 +5       ;

 +6        IF '$DATA(DTIME)

               SET DTIME=300

           DO HOME^%ZIS

 +7       ; Select Start and End dates.

BDT        SET %DT="AEPX"

           SET %DT("A")="Start with DATE: "

           DO ^%DT

           KILL %DT

           IF Y<0

               GOTO END

           SET IBBDT=Y

 +1        IF IBBDT<2901001

               WRITE !,"The Start Date cannot be earlier than 10/1/90.",!

               GOTO BDT

EDT        SET %DT="EX"

           READ !,"Go to DATE: ",X:DTIME

           IF X=" "

               SET X=IBBDT

 +1        IF (X="")!(X["^")

               GOTO END

           DO ^%DT

           IF Y<0

               GOTO EDT

           SET IBEDT=Y

 +2        IF Y<IBBDT

               WRITE *7," ??",!,"ENDING DATE must follow BEGINNING DATE."

               GOTO BDT

 +3       ;

 +4       ; Select output device.

 +5        SET %ZIS="QM"

           DO ^%ZIS

           IF POP

               GOTO END

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

               Begin DoDot:1

 +7                SET ZTRTN="^IBOMTC1"

                   SET ZTDESC="CATEGORY C BILLING ACTIVITY LIST"

 +8                SET (ZTSAVE("IBBDT"),ZTSAVE("IBEDT"))=""

 +9                DO ^%ZTLOAD

                   WRITE !!,$SELECT($DATA(ZTSK):"This job has been queued.  The task number is "_ZTSK_".",1:"Unable to queue this job.")

 +10               KILL ZTSK,IO("Q")

                   DO HOME^%ZIS

               End DoDot:1

               GOTO END

 +11      ;

 +12       USE IO

 +13      ;***

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

 +15      ;

 +16      ; generate report

           DO ^IBOMTC1

 +17      ;

END        KILL %DT,IBBDT,IBEDT,X,Y

 +1       ;***

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

 +3        QUIT