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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBTOVS   1255     printed  Apr 09, 2024@21:07:32                                                                                                                                                                                                      Page 2

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