- IBTUBUL ;ALB/AAS - UNBILLED AMOUNTS ;29-SEP-94
- ;;2.0;INTEGRATED BILLING;**19,123,159,217,155,356,516,547,608**;21-MAR-94;Build 90
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; IB*2.0*516 - Added sort by Division. Because some of the totals
- ; can be done by Division and some cannot, portions of the report
- ; were reorganized.
- ;
- TEST ; - Create and send test bulletin.
- N IBBDT,IBEDT,IBSEL,IBTEST
- S IBBDT=DT,IBEDT=DT,IBSEL="1,2,3",IBTEST=1
- D TESTV
- ;
- BULL ; - Create and send bulletin.
- ;
- I '$O(IBUNB(0)) Q ; Quit out if no data.
- ;
- N I,IBDIV,IBGRP,IBT,IBTOTAL,IBX,IDX,X,XMDUZ,XMN,XMSUB,XMTEXT,XMY,XMZ
- S XMSUB="UNBILLED AMOUNTS SUMMARY REPORT"_$S($G(IBTEST):" (TEST)",1:"")
- ;
- D BULL1,SUMMARY
- ;
- I $G(IBSBD) S IBDIV=0 F S IBDIV=$O(IBUNB(IBDIV)) Q:'IBDIV D BULL2
- ;
- D BULL3,SEND
- ;
- Q
- ;
- SUMMARY ; Print Grand Totals.
- ;
- S IBT(IDX)="",IDX=IDX+1
- ;S IBT(IDX)=" GRAND TOTALS",IDX=IDX+1 ;JRA;IB*2.0*608 ';'
- S IBT(IDX)=" GRAND TOTALS"_$S($G(IBMCCF)="N":" FOR NON-MCCF CLAIMS",1:""),IDX=IDX+1 ;JRA;IB*2.0*608
- S IBT(IDX)="",IDX=IDX+1
- ;
- I IBSEL[1 D
- . S X=$$INPAVG^IBTUBOU(IBTIMON)
- . S IBT(IDX+1)=" Inpatient Care:"
- . S IBT(IDX+2)=" Number of Unbilled Inpatient Admissions : "_$J(+$G(IBUNB("EPISM-A")),11)
- . S IBT(IDX+3)=" Number of MRA Unbilled Inpt Admissions : "_$J(+$G(IBUNB("EPISM-A-MRA")),11)
- . S IBT(IDX+4)=" Number of Inpt. Institutional Cases : "_$J(+$G(IBUNB("EPISM-I")),11)
- . S IBT(IDX+5)=" Average Inpt. Institutional Bill Amount : "_$J($P(X,"^"),11,2)
- . S IBT(IDX+6)=" Number of Inpt. Professional Cases : "_$J(+$G(IBUNB("EPISM-P")),11)
- . S IBT(IDX+7)=" Average Inpt. Professional Bill Amount : "_$J($P(X,"^",2),11,2)
- . S IBT(IDX+8)=" Total Unbilled Inpatient Care : "_$J($G(IBUNB("UNBILIP")),11,2)
- . S IBT(IDX+9)=" Total MRA Unbilled Inpatient Care : "_$J($G(IBUNB("UNBILIP-MRA")),11,2)
- . S IBT(IDX+10)="",IDX=IDX+10
- . Q
- ;
- I IBSEL[2 D
- . ;S IBT(IDX+1)=" Outpatient Care:" ;JRA;IB*2.0*608 ';'
- . S IBT(IDX+1)=" "_$S($G(IBMCCF)="M":"MCCF Claims - ",$G(IBMCCF)="N":"Non-MCCF Claims - ",1:"MCCF & Non-MCCF Claims - ")_"Outpatient Care:" ;JRA;IB*2.0*608
- . S IBT(IDX+2)=" Number of Unbilled Outpatient Cases : "_$J(+$G(IBUNB("ENCNTRS")),11)
- . S IBT(IDX+3)=" Number of Unbilled CPT Codes : "_$J(+$G(IBUNB("CPTMS")),11)
- . S IBT(IDX+4)=" Number of MRA Unbilled CPT Codes : "_$J(+$G(IBUNB("CPTMS-MRA")),11)
- . S IBT(IDX+5)=" Total Unbilled Outpatient Care : "_$J($G(IBUNB("UNBILOP")),11,2)
- . S IBT(IDX+6)=" Total MRA Unbilled Outpatient Care : "_$J($G(IBUNB("UNBILOP-MRA")),11,2)
- . S IBT(IDX+7)="",IDX=IDX+7
- . Q
- ;
- I IBSEL[3 D
- . S IBT(IDX+1)=" Prescriptions:"
- . S IBT(IDX+2)=" Number of Unbilled Prescriptions : "_$J(+$G(IBUNB("PRESCRP")),11)
- . S IBT(IDX+3)=" Number of MRA Unbilled Prescriptions : "_$J(+$G(IBUNB("PRESCRP-MRA")),11)
- . S IBT(IDX+4)=" Total Unbilled Prescriptions : "_$J($G(IBUNB("UNBILRX")),11,2)
- . S IBT(IDX+5)=" Total MRA Unbilled Prescriptions : "_$J($G(IBUNB("UNBILRX-MRA")),11,2)
- . S IBT(IDX+6)="",IDX=IDX+6
- . Q
- ;
- Q
- ;
- BULL1 ; Header for entire report.
- ;
- N IBDIV
- S IDX=1
- S IBX=$P($$SITE^VASITE,U,2,3)
- S IBT(IDX)="SUMMARY UNBILLED AMOUNTS FOR "
- I '$D(^TMP($J,"IBTUB-DIV")) S IBT(IDX)=IBT(IDX)_$P(IBX,U)_" ("_$P(IBX,U,2)_").",IDX=IDX+1
- I $D(^TMP($J,"IBTUB-DIV")) D
- . S IBT(IDX)=IBT(IDX)_"SELECTED DIVISIONS:",IDX=IDX+1
- . S IBDIV="" F S IBDIV=$O(^TMP($J,"IBTUB-DIV",IBDIV)) Q:IBDIV="" D
- .. S IBT(IDX)=" "_$$GET1^DIQ(40.8,IBDIV_",",.01)_" ("_$$GET1^DIQ(40.8,IBDIV_",",1)_")",IDX=IDX+1
- S IBT(IDX)="PERIOD: FROM "_$$DAT1^IBOUTL(IBBDT)_" TO "_$$DAT1^IBOUTL(IBEDT),IDX=IDX+1
- ;
- I $G(IBDET) S IBT(IDX)="DETAILED REPORT PRINTED TO '"_IO_"'",IDX=IDX+1
- I $G(IBCOMP) S IBT(IDX)="UNBILLED AMOUNTS FIGURES STORED FOR "_$$DAT2^IBOUTL(IBTIMON),IDX=IDX+1
- ;
- Q
- ;
- BULL2 ; Totals for one Division.
- ;
- I IBDIV=999999 S IBDIVHDR="UNKNOWN"
- E S IBDIVHDR=$$GET1^DIQ(40.8,IBDIV_",",.01)_" ("_$$GET1^DIQ(40.8,IBDIV_",",1)_")"
- S IBT(IDX)="",IDX=IDX+1
- S IBT(IDX)=" DIVISION: "_IBDIVHDR,IDX=IDX+1
- S IBT(IDX)="",IDX=IDX+1
- ;
- I $G(IBTEST) S IBT(IDX)=" *** TEST DATA, TEST DATA ***",IDX=IDX+1
- ;
- I IBSEL[1 D
- . S X=$$INPAVG^IBTUBOU(IBTIMON)
- . S IBT(IDX+1)=" Inpatient Care:"
- . S IBT(IDX+2)=" Number of Unbilled Inpatient Admissions : "_$J(+$G(IBUNB(IBDIV,"EPISM-A")),11)
- . S IBT(IDX+3)=" Number of MRA Unbilled Inpt Admissions : "_$J(+$G(IBUNB(IBDIV,"EPISM-A-MRA")),11)
- . S IBT(IDX+4)=" Number of Inpt. Institutional Cases : "_$J(+$G(IBUNB(IBDIV,"EPISM-I")),11)
- . S IBT(IDX+5)=" Average Inpt. Institutional Bill Amount : "_$J($P(X,"^"),11,2)
- . S IBT(IDX+6)=" Number of Inpt. Professional Cases : "_$J(+$G(IBUNB(IBDIV,"EPISM-P")),11)
- . S IBT(IDX+7)=" Average Inpt. Professional Bill Amount : "_$J($P(X,"^",2),11,2)
- . S IBT(IDX+8)=" Total Unbilled Inpatient Care : "_$J($G(IBUNB(IBDIV,"UNBILIP")),11,2)
- . S IBT(IDX+9)=" Total MRA Unbilled Inpatient Care : "_$J($G(IBUNB(IBDIV,"UNBILIP-MRA")),11,2)
- . S IBT(IDX+10)="",IDX=IDX+10
- . Q
- ;
- I IBSEL[2 D
- . S IBT(IDX+1)=" Outpatient Care:"
- . S IBT(IDX+2)=" Number of Unbilled Outpatient Cases : "_$J(+$G(IBUNB(IBDIV,"ENCNTRS")),11)
- . S IBT(IDX+3)=" Number of Unbilled CPT Codes : "_$J(+$G(IBUNB(IBDIV,"CPTMS-I"))+$G(IBUNB(IBDIV,"CPTMS-P")),11)
- . S IBT(IDX+4)=" Number of MRA Unbilled CPT Codes : "_$J(+$G(IBUNB(IBDIV,"CPTMS-I-MRA"))+$G(IBUNB(IBDIV,"CPTMS-P-MRA")),11)
- . S IBT(IDX+5)=" Total Unbilled Outpatient Care : "_$J($G(IBUNB(IBDIV,"UNBILOP")),11,2)
- . S IBT(IDX+6)=" Total MRA Unbilled Outpatient Care : "_$J($G(IBUNB(IBDIV,"UNBILOP-MRA")),11,2)
- . S IBT(IDX+7)="",IDX=IDX+7
- . Q
- ;
- I IBSEL[3 D
- . S IBT(IDX+1)=" Prescriptions:"
- . S IBT(IDX+2)=" Number of Unbilled Prescriptions : "_$J(+$G(IBUNB(IBDIV,"PRESCRP")),11)
- . S IBT(IDX+3)=" Number of MRA Unbilled Prescriptions : "_$J(+$G(IBUNB(IBDIV,"PRESCRP-MRA")),11)
- . S IBT(IDX+4)=" Total Unbilled Prescriptions : "_$J($G(IBUNB(IBDIV,"UNBILRX")),11,2)
- . S IBT(IDX+5)=" Total MRA Unbilled Prescriptions : "_$J($G(IBUNB(IBDIV,"UNBILRX-MRA")),11,2)
- . S IBT(IDX+6)="",IDX=IDX+6
- . Q
- ;
- Q
- ;
- BULL3 ; concluding notes.
- ;
- I IBSEL="1,2,3" D
- . S IBT(IDX+1)=" Total Unbilled Amount (all care) : "_$J($G(IBUNB("UNBILTL")),11,2)
- . S IBT(IDX+2)=" Total MRA Unbilled Amount (all care) : "_$J($G(IBUNB("UNBILTL-MRA")),11,2)
- . S IDX(IDX+3)="",IDX=IDX+3
- . Q
- ;
- S IBT(IDX+1)="",IDX=IDX+1
- ;
- I IBSEL[1 D
- . S IBT(IDX+1)="Note: Average bill Amount is based on Bills Authorized during the 12"
- . S IBT(IDX+2)=" months preceding the month of this report."
- . S IDX=IDX+2
- . Q
- ;
- S IBT(IDX+1)="Note: Number of cases is insured cases in Claims Tracking that are"
- S IBT(IDX+2)=" not billed (or bill not authorized/req MRA) but appear to be billable."
- ;
- Q
- ;
- SEND ; - Send bulletin.
- K XMY
- S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
- S XMN=0,IBGRP=$P($G(^XMB(3.8,+$P($G(^IBE(350.9,1,6)),"^",25),0)),"^")
- I $G(IBCOMP),IBGRP]"" S XMY("G."_IBGRP_"@"_^XMB("NETNAME"))=""
- I '$G(IBCOMP) S XMY(DUZ)=""
- D ^XMD
- Q
- ;
- TESTV ; - Set up test variables.
- S IBTIMON=9999999
- S IBUNB(999999,"CPTMS-I")=11111
- S IBUNB(999999,"CPTMS-I-MRA")=22222
- S IBUNB(999999,"CPTMS-P")=0
- S IBUNB(999999,"CPTMS-P-MRA")=0
- S IBUNB(999999,"ENCNTRS")=11111
- S IBUNB(999999,"EPISM-A")=11111
- S IBUNB(999999,"EPISM-A-MRA")=22222
- S IBUNB(999999,"EPISM-I")=11111
- S IBUNB(999999,"EPISM-P")=0
- S IBUNB(999999,"PRESCRP")=11111
- S IBUNB(999999,"PRESCRP-MRA")=22222
- S IBUNB(999999,"UNBILIP")=99999.99
- S IBUNB(999999,"UNBILIP-MRA")=77777.77
- S IBUNB(999999,"UNBILOP")=99999.99
- S IBUNB(999999,"UNBILOP-MRA")=77777.77
- S IBUNB(999999,"UNBILRX")=11111
- S IBUNB(999999,"UNBILRX-MRA")=22222
- ;
- S IBUNB("UNBILTL")=99999.99
- S IBUNB("UNBILTL-MRA")=77777.77
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTUBUL 8220 printed Feb 18, 2025@23:55:40 Page 2
- IBTUBUL ;ALB/AAS - UNBILLED AMOUNTS ;29-SEP-94
- +1 ;;2.0;INTEGRATED BILLING;**19,123,159,217,155,356,516,547,608**;21-MAR-94;Build 90
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; IB*2.0*516 - Added sort by Division. Because some of the totals
- +5 ; can be done by Division and some cannot, portions of the report
- +6 ; were reorganized.
- +7 ;
- TEST ; - Create and send test bulletin.
- +1 NEW IBBDT,IBEDT,IBSEL,IBTEST
- +2 SET IBBDT=DT
- SET IBEDT=DT
- SET IBSEL="1,2,3"
- SET IBTEST=1
- +3 DO TESTV
- +4 ;
- BULL ; - Create and send bulletin.
- +1 ;
- +2 ; Quit out if no data.
- IF '$ORDER(IBUNB(0))
- QUIT
- +3 ;
- +4 NEW I,IBDIV,IBGRP,IBT,IBTOTAL,IBX,IDX,X,XMDUZ,XMN,XMSUB,XMTEXT,XMY,XMZ
- +5 SET XMSUB="UNBILLED AMOUNTS SUMMARY REPORT"_$SELECT($GET(IBTEST):" (TEST)",1:"")
- +6 ;
- +7 DO BULL1
- DO SUMMARY
- +8 ;
- +9 IF $GET(IBSBD)
- SET IBDIV=0
- FOR
- SET IBDIV=$ORDER(IBUNB(IBDIV))
- if 'IBDIV
- QUIT
- DO BULL2
- +10 ;
- +11 DO BULL3
- DO SEND
- +12 ;
- +13 QUIT
- +14 ;
- SUMMARY ; Print Grand Totals.
- +1 ;
- +2 SET IBT(IDX)=""
- SET IDX=IDX+1
- +3 ;S IBT(IDX)=" GRAND TOTALS",IDX=IDX+1 ;JRA;IB*2.0*608 ';'
- +4 ;JRA;IB*2.0*608
- SET IBT(IDX)=" GRAND TOTALS"_$SELECT($GET(IBMCCF)="N":" FOR NON-MCCF CLAIMS",1:"")
- SET IDX=IDX+1
- +5 SET IBT(IDX)=""
- SET IDX=IDX+1
- +6 ;
- +7 IF IBSEL[1
- Begin DoDot:1
- +8 SET X=$$INPAVG^IBTUBOU(IBTIMON)
- +9 SET IBT(IDX+1)=" Inpatient Care:"
- +10 SET IBT(IDX+2)=" Number of Unbilled Inpatient Admissions : "_$JUSTIFY(+$GET(IBUNB("EPISM-A")),11)
- +11 SET IBT(IDX+3)=" Number of MRA Unbilled Inpt Admissions : "_$JUSTIFY(+$GET(IBUNB("EPISM-A-MRA")),11)
- +12 SET IBT(IDX+4)=" Number of Inpt. Institutional Cases : "_$JUSTIFY(+$GET(IBUNB("EPISM-I")),11)
- +13 SET IBT(IDX+5)=" Average Inpt. Institutional Bill Amount : "_$JUSTIFY($PIECE(X,"^"),11,2)
- +14 SET IBT(IDX+6)=" Number of Inpt. Professional Cases : "_$JUSTIFY(+$GET(IBUNB("EPISM-P")),11)
- +15 SET IBT(IDX+7)=" Average Inpt. Professional Bill Amount : "_$JUSTIFY($PIECE(X,"^",2),11,2)
- +16 SET IBT(IDX+8)=" Total Unbilled Inpatient Care : "_$JUSTIFY($GET(IBUNB("UNBILIP")),11,2)
- +17 SET IBT(IDX+9)=" Total MRA Unbilled Inpatient Care : "_$JUSTIFY($GET(IBUNB("UNBILIP-MRA")),11,2)
- +18 SET IBT(IDX+10)=""
- SET IDX=IDX+10
- +19 QUIT
- End DoDot:1
- +20 ;
- +21 IF IBSEL[2
- Begin DoDot:1
- +22 ;S IBT(IDX+1)=" Outpatient Care:" ;JRA;IB*2.0*608 ';'
- +23 ;JRA;IB*2.0*608
- SET IBT(IDX+1)=" "_$SELECT($GET(IBMCCF)="M":"MCCF Claims - ",$GET(IBMCCF)="N":"Non-MCCF Claims - ",1:"MCCF & Non-MCCF Claims - ")_"Outpatient Care:"
- +24 SET IBT(IDX+2)=" Number of Unbilled Outpatient Cases : "_$JUSTIFY(+$GET(IBUNB("ENCNTRS")),11)
- +25 SET IBT(IDX+3)=" Number of Unbilled CPT Codes : "_$JUSTIFY(+$GET(IBUNB("CPTMS")),11)
- +26 SET IBT(IDX+4)=" Number of MRA Unbilled CPT Codes : "_$JUSTIFY(+$GET(IBUNB("CPTMS-MRA")),11)
- +27 SET IBT(IDX+5)=" Total Unbilled Outpatient Care : "_$JUSTIFY($GET(IBUNB("UNBILOP")),11,2)
- +28 SET IBT(IDX+6)=" Total MRA Unbilled Outpatient Care : "_$JUSTIFY($GET(IBUNB("UNBILOP-MRA")),11,2)
- +29 SET IBT(IDX+7)=""
- SET IDX=IDX+7
- +30 QUIT
- End DoDot:1
- +31 ;
- +32 IF IBSEL[3
- Begin DoDot:1
- +33 SET IBT(IDX+1)=" Prescriptions:"
- +34 SET IBT(IDX+2)=" Number of Unbilled Prescriptions : "_$JUSTIFY(+$GET(IBUNB("PRESCRP")),11)
- +35 SET IBT(IDX+3)=" Number of MRA Unbilled Prescriptions : "_$JUSTIFY(+$GET(IBUNB("PRESCRP-MRA")),11)
- +36 SET IBT(IDX+4)=" Total Unbilled Prescriptions : "_$JUSTIFY($GET(IBUNB("UNBILRX")),11,2)
- +37 SET IBT(IDX+5)=" Total MRA Unbilled Prescriptions : "_$JUSTIFY($GET(IBUNB("UNBILRX-MRA")),11,2)
- +38 SET IBT(IDX+6)=""
- SET IDX=IDX+6
- +39 QUIT
- End DoDot:1
- +40 ;
- +41 QUIT
- +42 ;
- BULL1 ; Header for entire report.
- +1 ;
- +2 NEW IBDIV
- +3 SET IDX=1
- +4 SET IBX=$PIECE($$SITE^VASITE,U,2,3)
- +5 SET IBT(IDX)="SUMMARY UNBILLED AMOUNTS FOR "
- +6 IF '$DATA(^TMP($JOB,"IBTUB-DIV"))
- SET IBT(IDX)=IBT(IDX)_$PIECE(IBX,U)_" ("_$PIECE(IBX,U,2)_")."
- SET IDX=IDX+1
- +7 IF $DATA(^TMP($JOB,"IBTUB-DIV"))
- Begin DoDot:1
- +8 SET IBT(IDX)=IBT(IDX)_"SELECTED DIVISIONS:"
- SET IDX=IDX+1
- +9 SET IBDIV=""
- FOR
- SET IBDIV=$ORDER(^TMP($JOB,"IBTUB-DIV",IBDIV))
- if IBDIV=""
- QUIT
- Begin DoDot:2
- +10 SET IBT(IDX)=" "_$$GET1^DIQ(40.8,IBDIV_",",.01)_" ("_$$GET1^DIQ(40.8,IBDIV_",",1)_")"
- SET IDX=IDX+1
- End DoDot:2
- End DoDot:1
- +11 SET IBT(IDX)="PERIOD: FROM "_$$DAT1^IBOUTL(IBBDT)_" TO "_$$DAT1^IBOUTL(IBEDT)
- SET IDX=IDX+1
- +12 ;
- +13 IF $GET(IBDET)
- SET IBT(IDX)="DETAILED REPORT PRINTED TO '"_IO_"'"
- SET IDX=IDX+1
- +14 IF $GET(IBCOMP)
- SET IBT(IDX)="UNBILLED AMOUNTS FIGURES STORED FOR "_$$DAT2^IBOUTL(IBTIMON)
- SET IDX=IDX+1
- +15 ;
- +16 QUIT
- +17 ;
- BULL2 ; Totals for one Division.
- +1 ;
- +2 IF IBDIV=999999
- SET IBDIVHDR="UNKNOWN"
- +3 IF '$TEST
- SET IBDIVHDR=$$GET1^DIQ(40.8,IBDIV_",",.01)_" ("_$$GET1^DIQ(40.8,IBDIV_",",1)_")"
- +4 SET IBT(IDX)=""
- SET IDX=IDX+1
- +5 SET IBT(IDX)=" DIVISION: "_IBDIVHDR
- SET IDX=IDX+1
- +6 SET IBT(IDX)=""
- SET IDX=IDX+1
- +7 ;
- +8 IF $GET(IBTEST)
- SET IBT(IDX)=" *** TEST DATA, TEST DATA ***"
- SET IDX=IDX+1
- +9 ;
- +10 IF IBSEL[1
- Begin DoDot:1
- +11 SET X=$$INPAVG^IBTUBOU(IBTIMON)
- +12 SET IBT(IDX+1)=" Inpatient Care:"
- +13 SET IBT(IDX+2)=" Number of Unbilled Inpatient Admissions : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"EPISM-A")),11)
- +14 SET IBT(IDX+3)=" Number of MRA Unbilled Inpt Admissions : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"EPISM-A-MRA")),11)
- +15 SET IBT(IDX+4)=" Number of Inpt. Institutional Cases : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"EPISM-I")),11)
- +16 SET IBT(IDX+5)=" Average Inpt. Institutional Bill Amount : "_$JUSTIFY($PIECE(X,"^"),11,2)
- +17 SET IBT(IDX+6)=" Number of Inpt. Professional Cases : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"EPISM-P")),11)
- +18 SET IBT(IDX+7)=" Average Inpt. Professional Bill Amount : "_$JUSTIFY($PIECE(X,"^",2),11,2)
- +19 SET IBT(IDX+8)=" Total Unbilled Inpatient Care : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILIP")),11,2)
- +20 SET IBT(IDX+9)=" Total MRA Unbilled Inpatient Care : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILIP-MRA")),11,2)
- +21 SET IBT(IDX+10)=""
- SET IDX=IDX+10
- +22 QUIT
- End DoDot:1
- +23 ;
- +24 IF IBSEL[2
- Begin DoDot:1
- +25 SET IBT(IDX+1)=" Outpatient Care:"
- +26 SET IBT(IDX+2)=" Number of Unbilled Outpatient Cases : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"ENCNTRS")),11)
- +27 SET IBT(IDX+3)=" Number of Unbilled CPT Codes : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"CPTMS-I"))+$GET(IBUNB(IBDIV,"CPTMS-P")),11)
- +28 SET IBT(IDX+4)=" Number of MRA Unbilled CPT Codes : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"CPTMS-I-MRA"))+$GET(IBUNB(IBDIV,"CPTMS-P-MRA")),11)
- +29 SET IBT(IDX+5)=" Total Unbilled Outpatient Care : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILOP")),11,2)
- +30 SET IBT(IDX+6)=" Total MRA Unbilled Outpatient Care : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILOP-MRA")),11,2)
- +31 SET IBT(IDX+7)=""
- SET IDX=IDX+7
- +32 QUIT
- End DoDot:1
- +33 ;
- +34 IF IBSEL[3
- Begin DoDot:1
- +35 SET IBT(IDX+1)=" Prescriptions:"
- +36 SET IBT(IDX+2)=" Number of Unbilled Prescriptions : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"PRESCRP")),11)
- +37 SET IBT(IDX+3)=" Number of MRA Unbilled Prescriptions : "_$JUSTIFY(+$GET(IBUNB(IBDIV,"PRESCRP-MRA")),11)
- +38 SET IBT(IDX+4)=" Total Unbilled Prescriptions : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILRX")),11,2)
- +39 SET IBT(IDX+5)=" Total MRA Unbilled Prescriptions : "_$JUSTIFY($GET(IBUNB(IBDIV,"UNBILRX-MRA")),11,2)
- +40 SET IBT(IDX+6)=""
- SET IDX=IDX+6
- +41 QUIT
- End DoDot:1
- +42 ;
- +43 QUIT
- +44 ;
- BULL3 ; concluding notes.
- +1 ;
- +2 IF IBSEL="1,2,3"
- Begin DoDot:1
- +3 SET IBT(IDX+1)=" Total Unbilled Amount (all care) : "_$JUSTIFY($GET(IBUNB("UNBILTL")),11,2)
- +4 SET IBT(IDX+2)=" Total MRA Unbilled Amount (all care) : "_$JUSTIFY($GET(IBUNB("UNBILTL-MRA")),11,2)
- +5 SET IDX(IDX+3)=""
- SET IDX=IDX+3
- +6 QUIT
- End DoDot:1
- +7 ;
- +8 SET IBT(IDX+1)=""
- SET IDX=IDX+1
- +9 ;
- +10 IF IBSEL[1
- Begin DoDot:1
- +11 SET IBT(IDX+1)="Note: Average bill Amount is based on Bills Authorized during the 12"
- +12 SET IBT(IDX+2)=" months preceding the month of this report."
- +13 SET IDX=IDX+2
- +14 QUIT
- End DoDot:1
- +15 ;
- +16 SET IBT(IDX+1)="Note: Number of cases is insured cases in Claims Tracking that are"
- +17 SET IBT(IDX+2)=" not billed (or bill not authorized/req MRA) but appear to be billable."
- +18 ;
- +19 QUIT
- +20 ;
- SEND ; - Send bulletin.
- +1 KILL XMY
- +2 SET XMDUZ="INTEGRATED BILLING PACKAGE"
- SET XMTEXT="IBT("
- +3 SET XMN=0
- SET IBGRP=$PIECE($GET(^XMB(3.8,+$PIECE($GET(^IBE(350.9,1,6)),"^",25),0)),"^")
- +4 IF $GET(IBCOMP)
- IF IBGRP]""
- SET XMY("G."_IBGRP_"@"_^XMB("NETNAME"))=""
- +5 IF '$GET(IBCOMP)
- SET XMY(DUZ)=""
- +6 DO ^XMD
- +7 QUIT
- +8 ;
- TESTV ; - Set up test variables.
- +1 SET IBTIMON=9999999
- +2 SET IBUNB(999999,"CPTMS-I")=11111
- +3 SET IBUNB(999999,"CPTMS-I-MRA")=22222
- +4 SET IBUNB(999999,"CPTMS-P")=0
- +5 SET IBUNB(999999,"CPTMS-P-MRA")=0
- +6 SET IBUNB(999999,"ENCNTRS")=11111
- +7 SET IBUNB(999999,"EPISM-A")=11111
- +8 SET IBUNB(999999,"EPISM-A-MRA")=22222
- +9 SET IBUNB(999999,"EPISM-I")=11111
- +10 SET IBUNB(999999,"EPISM-P")=0
- +11 SET IBUNB(999999,"PRESCRP")=11111
- +12 SET IBUNB(999999,"PRESCRP-MRA")=22222
- +13 SET IBUNB(999999,"UNBILIP")=99999.99
- +14 SET IBUNB(999999,"UNBILIP-MRA")=77777.77
- +15 SET IBUNB(999999,"UNBILOP")=99999.99
- +16 SET IBUNB(999999,"UNBILOP-MRA")=77777.77
- +17 SET IBUNB(999999,"UNBILRX")=11111
- +18 SET IBUNB(999999,"UNBILRX-MRA")=22222
- +19 ;
- +20 SET IBUNB("UNBILTL")=99999.99
- +21 SET IBUNB("UNBILTL-MRA")=77777.77
- +22 QUIT