source: FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMRBT.m@ 628

IVMRBT ;ALB/CPM - IVM BILLING TRANSMISSION REPORT ; 13-JUN-94
 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
 ;
EN ; Entry point to generate the IVM Billing Transmission Report.
 ;
 W !!,"This report will list all billing activity which has been, or will be,"
 W !,"transmitted to the IVM Center.  This includes Means Test charges for"
 W !,"patients who have changed categories due to IVM-verified Means Tests,"
 W !,"as well as claims to insurance companies for patients who have"
 W !,"insurance policies identified by the IVM Center."
 W !!,"Please note that this output requires 132 columns.  This report may not"
 W !,"run very quickly so you might choose to queue the report to a printer.",!
 ;
 S %ZIS="QM" D ^%ZIS G:POP ENQ
 I $D(IO("Q")) D  G ENQ
 .S ZTRTN="DQ^IVMRBT",ZTDESC="IVM - BILLING TRANSMISSION REPORT"
 .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
 .K ZTSK,IO("Q")
 ;
 U IO
 ;
DQ ; Tasked entry point.
 K ^TMP("IVMRBT",$J)
 S DFN=0 F  S DFN=$O(^IVM(301.61,"C",DFN)) Q:'DFN  S ^TMP("IVMRBT",$J,$P($$PT^IVMUFNC4(DFN),"^",1,2))=DFN
 ;
 ; - print out the report
 D NOW^%DTC S IVMHDRDT=$$DAT1^IVMUFNC4(%,1),IVMPAG=0,IVMQ=0 D HDR
 I '$D(^TMP("IVMRBT",$J)) W !!?25,"There have been no recorded transmissions of billing data to the IVM Center." G ENQ1
 ;
 S IVMNA="" F  S IVMNA=$O(^TMP("IVMRBT",$J,IVMNA)) Q:IVMNA=""!IVMQ  S DFN=^(IVMNA) D
 .W ! I $Y>(IOSL-5) D PAUSE Q:IVMQ  D HDR W !
 .W !,$E($P(IVMNA,"^"),1,25),?27,$E($P(IVMNA,"^",2),1,12)
 .;
 .S (IVMF,IVMTDA)=0 F  S IVMTDA=$O(^IVM(301.61,"C",DFN,IVMTDA)) Q:'IVMTDA!IVMQ  D
 ..I $Y>(IOSL-5),IVMF D PAUSE Q:IVMQ  D HDR W !!,$E($P(IVMNA,"^"),1,25),?27,$E($P(IVMNA,"^",2),1,14) S IVMF=0
 ..S IVMN=$G(^IVM(301.61,IVMTDA,0))
 ..W:IVMF !
 ..W ?40,$P(IVMN,"^")
 ..W ?52,$S($P(IVMN,"^",10)!$P(IVMN,"^",11):"*",1:"")
 ..W ?54,$$CLSF($P(IVMN,"^",3))
 ..W ?59,$$EXPAND^IVMUFNC(301.61,.04,$P(IVMN,"^",4))
 ..W ?70,$$DAT1^IVMUFNC4($P(IVMN,"^",5)),?80,$$DAT1^IVMUFNC4($P(IVMN,"^",6))
 ..W ?90,$$DAT1^IVMUFNC4($P(IVMN,"^",7))
 ..W ?100,$J($P(IVMN,"^",8),8,2)
 ..W ?110,$S($P(IVMN,"^",9):$J($P(IVMN,"^",9),8,2),$P(IVMN,"^",4)>1:" --N/A--",1:$J($P(IVMN,"^",9),8,2))
 ..W ?120,$S($P(IVMN,"^",13):$$DAT1^IVMUFNC4($P(IVMN,"^",13)),1:"Not Sent")
 ..W ?129,$$EXPAND^IVMUFNC(301.61,.14,+$P(IVMN,"^",14))
 ..S IVMF=1
 ;
 D:'IVMQ PAUSE
 ;
ENQ K ^TMP("IVMRBT",$J)
 I $D(ZTQUEUED) S ZTREQ="@" Q
 D ^%ZISC
 K IVMQ,IVMPAG,DIRUT,DUOUT,DTOUT,DIROUT,I,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
ENQ1 Q
 ;
 ;
PAUSE ; Pause for screen output.
 Q:$E(IOST,1,2)'="C-"
 N IVMI,DIR,DIRUT,DIROUT,DUOUT,DTOUT
 F IVMI=$Y:1:(IOSL-3) W !
 S DIR(0)="E" D ^DIR I $D(DIRUT)!($D(DUOUT)) S IVMQ=1
 Q
 ;
HDR ; Display report header.
 N X,Y
 I $E(IOST,1,2)="C-"!(IVMPAG) W @IOF
 S IVMPAG=IVMPAG+1
 W !,"Run Date: ",IVMHDRDT,?50,"IVM BILLING TRANSMISSION REPORT",?121,"Page: ",IVMPAG
 W !!,$$DASH,!,?53,"Bill",?92,"Date",?103,"Amt",?113,"Amt",?122,"Date",?128,"Last"
 W !,"Patient Name",?27,"SSN",?40,"Ref #",?53,"Clsf",?59,"Bill Type",?70,"Bill From   -   To",?90,"Generated",?102,"Billed",?113,"Coll",?122,"Trans",?128,"Tran",!,$$DASH
 Q
 ;
DASH() ; Write dashed line.
 Q $TR($J("",132)," ","=")
 ;
CLSF(X) ; Return the bill classification.
 ;  Input:  X  --  Internal value of classification in #301.61
 ; Output:  I=Inpatient, O=Outpatient, R=Refill, P=Prosthetics
 Q $S('$G(X):"O",X=1:"I",X=2:"O",X=3:"R",X=4:"P",1:"O")