IBTOVS.m

IBTOVS	;ALB/AAS - CLAIMS TRACKING VISIT REPORT ; 27-OCT-93

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

	;

%	I '$D(DT) D DT^DICRW

	W !!,"Visit Report"

	;

DATE	; -- select date

	W !! D DATE^IBOUTL

	I IBBDT=""!(IBEDT="") G END

	;

DEV	; -- select device, run option

	W !

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

	I $D(IO("Q")) S ZTRTN="DQ^IBTOVS",ZTSAVE("IB*")="",ZTSAVE("DFN")="",ZTDESC="IB - Visit Report" D ^%ZTLOAD K IO("Q"),ZTSK D HOME^%ZIS G END

	;

	U IO

	D DQ G END

	Q

	;

END	; -- Clean up

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

	D ^%ZISC

	K I,J,X,Y,DFN,%ZIS,VA,IBTRN,IBTRND,IBTRND1,IBPAG,IBHDT,IBDISDT,IBETYP,IBQUIT,IBTAG

	D KVAR^VADPT

	Q

DQ	; -- print one billing report from ct

	S IBPAG=0,IBHDT=$$HTE^XLFDT($H,1),IBQUIT=0

	W !!,"Not Done Yet"

	;

	Q

	;

HDR	; -- Print header for billing report

	Q:IBQUIT

	I $E(IOST,1,2)="C-",IBPAG D PAUSE^VALM1 I $D(DIRUT) S IBQUIT=1 Q

	I $E(IOST,1,2)="C-"!(IBPAG) W @IOF

	S IBPAG=IBPAG+1

	W !,"MCCR/UR ACTIVITY REPORT Report",?(IOM-33),"Page ",IBPAG,"  ",IBHDT

	W !,$TR($J(" ",IOM)," ","-")

	Q

	;

	Q

PAT	; -- Select patient

	W !!

	S DIC="^DPT(",DIC(0)="AEQM"

	D ^DIC K DIC I +Y<1 G END

	S DFN=+Y

	;

VSIT	;

	; -- get claims tracking visit entry

	D TRAC^IBTRV

	I '$G(IBTRN) G END

IBTOVS    ;ALB/AAS - CLAIMS TRACKING VISIT REPORT ; 27-OCT-93

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

 +2       ;

%          IF '$DATA(DT)

               DO DT^DICRW

 +1        WRITE !!,"Visit Report"

 +2       ;

DATE      ; -- select date

 +1        WRITE !!

           DO DATE^IBOUTL

 +2        IF IBBDT=""!(IBEDT="")

               GOTO END

 +3       ;

DEV       ; -- select device, run option

 +1        WRITE !

 +2        SET %ZIS="QM"

           DO ^%ZIS

           IF POP

               GOTO END

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

               SET ZTRTN="DQ^IBTOVS"

               SET ZTSAVE("IB*")=""

               SET ZTSAVE("DFN")=""

               SET ZTDESC="IB - Visit Report"

               DO ^%ZTLOAD

               KILL IO("Q"),ZTSK

               DO HOME^%ZIS

               GOTO END

 +4       ;

 +5        USE IO

 +6        DO DQ

           GOTO END

 +7        QUIT 

 +8       ;

END       ; -- Clean up

 +1        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +2        DO ^%ZISC

 +3        KILL I,J,X,Y,DFN,%ZIS,VA,IBTRN,IBTRND,IBTRND1,IBPAG,IBHDT,IBDISDT,IBETYP,IBQUIT,IBTAG

 +4        DO KVAR^VADPT

 +5        QUIT 

DQ        ; -- print one billing report from ct

 +1        SET IBPAG=0

           SET IBHDT=$$HTE^XLFDT($HOROLOG,1)

           SET IBQUIT=0

 +2        WRITE !!,"Not Done Yet"

 +3       ;

 +4        QUIT 

 +5       ;

HDR       ; -- Print header for billing report

 +1        IF IBQUIT

               QUIT 

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

               IF IBPAG

                   DO PAUSE^VALM1

                   IF $DATA(DIRUT)

                       SET IBQUIT=1

                       QUIT 

 +3        IF $EXTRACT(IOST,1,2)="C-"!(IBPAG)

               WRITE @IOF

 +4        SET IBPAG=IBPAG+1

 +5        WRITE !,"MCCR/UR ACTIVITY REPORT Report",?(IOM-33),"Page ",IBPAG,"  ",IBHDT

 +6        WRITE !,$TRANSLATE($JUSTIFY(" ",IOM)," ","-")

 +7        QUIT 

 +8       ;

 +9        QUIT 

PAT       ; -- Select patient

 +1        WRITE !!

 +2        SET DIC="^DPT("

           SET DIC(0)="AEQM"

 +3        DO ^DIC

           KILL DIC

           IF +Y<1

               GOTO END

 +4        SET DFN=+Y

 +5       ;

VSIT      ;

 +1       ; -- get claims tracking visit entry

 +2        DO TRAC^IBTRV

 +3        IF '$GET(IBTRN)

               GOTO END