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 ---[H[J[2J[HIBTOVS 1255 printed Dec 13, 2024@02:27: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
