| 1 | IBTOVS ;ALB/AAS - CLAIMS TRACKING VISIT REPORT ; 27-OCT-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | % I '$D(DT) D DT^DICRW
|
|---|
| 5 | W !!,"Visit Report"
|
|---|
| 6 | ;
|
|---|
| 7 | DATE ; -- select date
|
|---|
| 8 | W !! D DATE^IBOUTL
|
|---|
| 9 | I IBBDT=""!(IBEDT="") G END
|
|---|
| 10 | ;
|
|---|
| 11 | DEV ; -- select device, run option
|
|---|
| 12 | W !
|
|---|
| 13 | S %ZIS="QM" D ^%ZIS G:POP END
|
|---|
| 14 | 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
|
|---|
| 15 | ;
|
|---|
| 16 | U IO
|
|---|
| 17 | D DQ G END
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | END ; -- Clean up
|
|---|
| 21 | I $D(ZTQUEUED) S ZTREQ="@" Q
|
|---|
| 22 | D ^%ZISC
|
|---|
| 23 | K I,J,X,Y,DFN,%ZIS,VA,IBTRN,IBTRND,IBTRND1,IBPAG,IBHDT,IBDISDT,IBETYP,IBQUIT,IBTAG
|
|---|
| 24 | D KVAR^VADPT
|
|---|
| 25 | Q
|
|---|
| 26 | DQ ; -- print one billing report from ct
|
|---|
| 27 | S IBPAG=0,IBHDT=$$HTE^XLFDT($H,1),IBQUIT=0
|
|---|
| 28 | W !!,"Not Done Yet"
|
|---|
| 29 | ;
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | HDR ; -- Print header for billing report
|
|---|
| 33 | Q:IBQUIT
|
|---|
| 34 | I $E(IOST,1,2)="C-",IBPAG D PAUSE^VALM1 I $D(DIRUT) S IBQUIT=1 Q
|
|---|
| 35 | I $E(IOST,1,2)="C-"!(IBPAG) W @IOF
|
|---|
| 36 | S IBPAG=IBPAG+1
|
|---|
| 37 | W !,"MCCR/UR ACTIVITY REPORT Report",?(IOM-33),"Page ",IBPAG," ",IBHDT
|
|---|
| 38 | W !,$TR($J(" ",IOM)," ","-")
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | Q
|
|---|
| 42 | PAT ; -- Select patient
|
|---|
| 43 | W !!
|
|---|
| 44 | S DIC="^DPT(",DIC(0)="AEQM"
|
|---|
| 45 | D ^DIC K DIC I +Y<1 G END
|
|---|
| 46 | S DFN=+Y
|
|---|
| 47 | ;
|
|---|
| 48 | VSIT ;
|
|---|
| 49 | ; -- get claims tracking visit entry
|
|---|
| 50 | D TRAC^IBTRV
|
|---|
| 51 | I '$G(IBTRN) G END
|
|---|
