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 Dec 13, 2024@02:29:11 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
