- IBTONB ;ALB/AAS - CLAIMS TRACKING NOT BILLED REPORT ; 27-OCT-93
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;
- % I '$D(DT) D DT^DICRW
- W !!,"Unbilled Care from Claims Tracking"
- ;
- 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^IBTONB",ZTSAVE("IB*")="",ZTSAVE("DFN")="",ZTDESC="IB - Unbilled Care from Claims Tracking" 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
- IBTONB ;ALB/AAS - CLAIMS TRACKING NOT BILLED REPORT ; 27-OCT-93
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;
- % IF '$DATA(DT)
- DO DT^DICRW
- +1 WRITE !!,"Unbilled Care from Claims Tracking"
- +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^IBTONB"
- SET ZTSAVE("IB*")=""
- SET ZTSAVE("DFN")=""
- SET ZTDESC="IB - Unbilled Care from Claims Tracking"
- 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
