source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTOVS.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1IBTOVS ;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 ;
7DATE ; -- select date
8 W !! D DATE^IBOUTL
9 I IBBDT=""!(IBEDT="") G END
10 ;
11DEV ; -- 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 ;
20END ; -- 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
26DQ ; -- 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 ;
32HDR ; -- 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
42PAT ; -- 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 ;
48VSIT ;
49 ; -- get claims tracking visit entry
50 D TRAC^IBTRV
51 I '$G(IBTRN) G END
Note: See TracBrowser for help on using the repository browser.