- IBCNSMRA ;ALB/AAS - MEDICARE BILLS ; 02-SEPT-97
- ;;2.0; INTEGRATED BILLING ;**92**; 21-MAR-94
- ;
- RPRT ; -- Create list of all bills for an insurance company
- ; by year, by inpatient/outpatient, by w/wo procs and dia,
- ; by IB Status, by leaving and dead patients.
- ;
- ; store in ^tmp("ib-mra",$j, ins co, calendar year of care, inpt/opt,
- ; w/wo proc and diag, ar status, ib status,
- ; leaving/dead,entry in 399) := bill no ^ dfn ^
- ;
- ; -- cnt := no. bills checked
- ; ;cnt("a") := no. patients alive ; Not used per group
- ; cnt("b") := no. bills with both procedure and diagnosis
- ; cnt("c") := no. bills canceled before completion
- ; cnt("d") := no. bills w/ diagnosis
- ; cnt("f") := no. bills never printed
- ; cnt("p") := no. bills w/ procedures
- ; cnt("m") := no. bills meeting criteria
- ; cnt("n") := no. bills w/ no diag no proc (neither)
- ; cnt("r") := no. bills w/ rate type not billable to medicare
- ; cnt("t") := no. bills w/ bill class. (type of bill) = 2 or 4
- ; cnt("w") := no. bills who's responsible not = "i"
- ; cnt("x") := no. bills for RX
- ; cnt("z") := no. bills for prosthetics
- ; cnt( ,0) := total dollar amount of bills
- ; cnt( ,1) := no. bills with paid principal
- ; cnt( ,2) := Total dollar amount of payments received
- ; cnt(m,4) := no. bills meeting criteria and referred to dc
- ; cnt(m,5) := Total $$ of bills criteria and referred to dc
- ; cnt(m,6) := no. bills meeting criteria with $$ and referred to dc
- ; cnt(m,7) := Total payment $$ bills meeting criteria and refer to dc
- ; cnt(3, := insurance company specific data, follows above format
- ; cnt("in" := totals for inpatients
- ; cnt("op" := totals for outpatients
- ;
- D HOME^%ZIS
- I '$D(DT) D DT^DICRW
- S IBQUIT=0
- ;
- W !!,"Build statistics on Insurance Companies that are withholding Medicare",!,"Supplemental Policy Payments.",!!
- ;
- I '$O(^IBE(350.9,1,99,0)) W !!,"You must enter the list of Insurance Companies Withholding Supplimental Payments first",!! D BLD1^IBCNSMRE
- I '$O(^IBE(350.9,1,99,0)) G END
- ;
- D ASKRPRT I IBQUIT G END
- D ASKPRNT I IBQUIT G END
- I IBPRNT="N",IBSNDRPT=0 W !!,"You didn't select anything to do! Try again.",!! G END
- ;
- QUE ; -- que compilation to run
- I IBPRNT="N",IBSNDRPT D G Q
- .W !!,"This will automatically be tasked to run. A mail message containing",!,"the data will be sent to you.",!
- .S ZTIO="",IO("Q")=1
- ;
- Q I $D(IO("Q")) D
- .S ZTDESC="IB-Compile MRA statistics",ZTRTN="DQ^IBCNSMR",ZTSAVE("IB*")=""
- .D ^%ZTLOAD
- I '$D(ZTSK) D DQ^IBCNSMR
- K ZTSK,ZTIO,ZTDESC,ZTRTN,ZTSAVE,IO("Q")
- G END
- Q
- ;
- END ; -- end of program
- K ^TMP("IB-MRA",$J),^TMP("IB-MRA-CNT",$J)
- I $D(ZTQUEUED),'IBQUIT S ZTREQ="@"
- Q:$D(ZTQUEUED)
- K C,I,J,POP,X,Y,ZTSK,ZTSAVE,ZTDESC,ZTRTN,IBPRNT,IBSNDRPT,IBQUIT
- D ^%ZISC
- Q
- ;
- ASKPRNT ; -- should a report be printed, summary, detail, none
- N %ZIS,DIR,DIRUT,DUOUT,DTOUT,X,Y
- W !
- S DIR("A")="Print Report, [S]ummary, [D]etail, [None]: "
- S DIR("?")="Select whether you want to print a summary report, a detail report, or No report. A detail report will list every claim. No report will automatically send data for national rollup."
- S DIR(0)="SMA^S:Summary;D:Detail;N:None"
- S DIR("B")="Summary"
- D ^DIR
- S IBPRNT=Y
- I $D(DIRUT) S IBQUIT=1 Q
- I IBPRNT'="N" D
- .S %ZIS="QM" D ^%ZIS I POP S IBQUIT=1
- Q
- ;
- ASKRPRT ; -- should a report be sent to the ISC
- N DIR,DIRUT,DUOUT,DTOUT,X,Y
- S DIR("A")="Send Data for National Rollup"
- S DIR("?")="Answer 'Yes' if you wish to send a report for national rollup purposes or answer 'No' if you just want to print a report."
- S DIR(0)="Y"
- S DIR("B")="NO"
- D ^DIR
- I $D(DIRUT) S IBQUIT=1
- S IBSNDRPT=Y
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSMRA 3804 printed Feb 18, 2025@23:44:08 Page 2
- IBCNSMRA ;ALB/AAS - MEDICARE BILLS ; 02-SEPT-97
- +1 ;;2.0; INTEGRATED BILLING ;**92**; 21-MAR-94
- +2 ;
- RPRT ; -- Create list of all bills for an insurance company
- +1 ; by year, by inpatient/outpatient, by w/wo procs and dia,
- +2 ; by IB Status, by leaving and dead patients.
- +3 ;
- +4 ; store in ^tmp("ib-mra",$j, ins co, calendar year of care, inpt/opt,
- +5 ; w/wo proc and diag, ar status, ib status,
- +6 ; leaving/dead,entry in 399) := bill no ^ dfn ^
- +7 ;
- +8 ; -- cnt := no. bills checked
- +9 ; ;cnt("a") := no. patients alive ; Not used per group
- +10 ; cnt("b") := no. bills with both procedure and diagnosis
- +11 ; cnt("c") := no. bills canceled before completion
- +12 ; cnt("d") := no. bills w/ diagnosis
- +13 ; cnt("f") := no. bills never printed
- +14 ; cnt("p") := no. bills w/ procedures
- +15 ; cnt("m") := no. bills meeting criteria
- +16 ; cnt("n") := no. bills w/ no diag no proc (neither)
- +17 ; cnt("r") := no. bills w/ rate type not billable to medicare
- +18 ; cnt("t") := no. bills w/ bill class. (type of bill) = 2 or 4
- +19 ; cnt("w") := no. bills who's responsible not = "i"
- +20 ; cnt("x") := no. bills for RX
- +21 ; cnt("z") := no. bills for prosthetics
- +22 ; cnt( ,0) := total dollar amount of bills
- +23 ; cnt( ,1) := no. bills with paid principal
- +24 ; cnt( ,2) := Total dollar amount of payments received
- +25 ; cnt(m,4) := no. bills meeting criteria and referred to dc
- +26 ; cnt(m,5) := Total $$ of bills criteria and referred to dc
- +27 ; cnt(m,6) := no. bills meeting criteria with $$ and referred to dc
- +28 ; cnt(m,7) := Total payment $$ bills meeting criteria and refer to dc
- +29 ; cnt(3, := insurance company specific data, follows above format
- +30 ; cnt("in" := totals for inpatients
- +31 ; cnt("op" := totals for outpatients
- +32 ;
- +33 DO HOME^%ZIS
- +34 IF '$DATA(DT)
- DO DT^DICRW
- +35 SET IBQUIT=0
- +36 ;
- +37 WRITE !!,"Build statistics on Insurance Companies that are withholding Medicare",!,"Supplemental Policy Payments.",!!
- +38 ;
- +39 IF '$ORDER(^IBE(350.9,1,99,0))
- WRITE !!,"You must enter the list of Insurance Companies Withholding Supplimental Payments first",!!
- DO BLD1^IBCNSMRE
- +40 IF '$ORDER(^IBE(350.9,1,99,0))
- GOTO END
- +41 ;
- +42 DO ASKRPRT
- IF IBQUIT
- GOTO END
- +43 DO ASKPRNT
- IF IBQUIT
- GOTO END
- +44 IF IBPRNT="N"
- IF IBSNDRPT=0
- WRITE !!,"You didn't select anything to do! Try again.",!!
- GOTO END
- +45 ;
- QUE ; -- que compilation to run
- +1 IF IBPRNT="N"
- IF IBSNDRPT
- Begin DoDot:1
- +2 WRITE !!,"This will automatically be tasked to run. A mail message containing",!,"the data will be sent to you.",!
- +3 SET ZTIO=""
- SET IO("Q")=1
- End DoDot:1
- GOTO Q
- +4 ;
- Q IF $DATA(IO("Q"))
- Begin DoDot:1
- +1 SET ZTDESC="IB-Compile MRA statistics"
- SET ZTRTN="DQ^IBCNSMR"
- SET ZTSAVE("IB*")=""
- +2 DO ^%ZTLOAD
- End DoDot:1
- +3 IF '$DATA(ZTSK)
- DO DQ^IBCNSMR
- +4 KILL ZTSK,ZTIO,ZTDESC,ZTRTN,ZTSAVE,IO("Q")
- +5 GOTO END
- +6 QUIT
- +7 ;
- END ; -- end of program
- +1 KILL ^TMP("IB-MRA",$JOB),^TMP("IB-MRA-CNT",$JOB)
- +2 IF $DATA(ZTQUEUED)
- IF 'IBQUIT
- SET ZTREQ="@"
- +3 if $DATA(ZTQUEUED)
- QUIT
- +4 KILL C,I,J,POP,X,Y,ZTSK,ZTSAVE,ZTDESC,ZTRTN,IBPRNT,IBSNDRPT,IBQUIT
- +5 DO ^%ZISC
- +6 QUIT
- +7 ;
- ASKPRNT ; -- should a report be printed, summary, detail, none
- +1 NEW %ZIS,DIR,DIRUT,DUOUT,DTOUT,X,Y
- +2 WRITE !
- +3 SET DIR("A")="Print Report, [S]ummary, [D]etail, [None]: "
- +4 SET DIR("?")="Select whether you want to print a summary report, a detail report, or No report. A detail report will list every claim. No report will automatically send data for national rollup."
- +5 SET DIR(0)="SMA^S:Summary;D:Detail;N:None"
- +6 SET DIR("B")="Summary"
- +7 DO ^DIR
- +8 SET IBPRNT=Y
- +9 IF $DATA(DIRUT)
- SET IBQUIT=1
- QUIT
- +10 IF IBPRNT'="N"
- Begin DoDot:1
- +11 SET %ZIS="QM"
- DO ^%ZIS
- IF POP
- SET IBQUIT=1
- End DoDot:1
- +12 QUIT
- +13 ;
- ASKRPRT ; -- should a report be sent to the ISC
- +1 NEW DIR,DIRUT,DUOUT,DTOUT,X,Y
- +2 SET DIR("A")="Send Data for National Rollup"
- +3 SET DIR("?")="Answer 'Yes' if you wish to send a report for national rollup purposes or answer 'No' if you just want to print a report."
- +4 SET DIR(0)="Y"
- +5 SET DIR("B")="NO"
- +6 DO ^DIR
- +7 IF $DATA(DIRUT)
- SET IBQUIT=1
- +8 SET IBSNDRPT=Y
- +9 QUIT