IBCEMSR3 ;BI/ALB - non-MRA PRODUCTIVITY REPORT ;02/14/11
;;2.0;INTEGRATED BILLING;**447**;21-MAR-94;Build 80
;;Per VHA Directive 2004-038, this routine should not be modified.
;
Q
;
COLLECT2 ; Accumulate information for the Detailed Report
Q:$D(^TMP($J,"IBCEMSR2","FFORM",IBIFN)) ; Count each CLAIM/BILL only once
S ^TMP($J,"IBCEMSR2","FFORM",IBIFN)="" ; Record CLAIM/BILL use
I IBOB(.21)="P" D ; Primary
. I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
.. D FFORM("FPA",1) ; Total Number of Processes Requests
.. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to secondary
... D FFORM("FPAA",1) ; Total Number auto-processed to secondary
... I IBOB(35)=2 D ; Printed Locally
.... D FFORM("FPAAA",1) ; Number Printed Locally
.... D FFORM("FPAAA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
... I IBOB(35)=3 D ; Transmitted
.... D FFORM("FPAAB",1) ; Number Transmitted
.... D FFORM("FPAAB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
.. I ((IBOB(35)=1)!(IBOB(35)=4)) D ; Sent to Worklist
... D FFORM("FPAB",1) ; Total Number Sent to Worklist
... I IBOB(38)="PC" D ; Processed from worklist
.... D FFORM("FPABA",1) ; Number processed from worklist
.... D FFORM("FPABA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
... I IBOB(38)="RM" D ; Removed from worklist
.... D FFORM("FPABB",1) ; Number removed from worklist
.... D FFORM("FPABB1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
... I IBOB(38)="CA" D ; Cancelled from worklist
.... D FFORM("FPABC",1) ; Number cancelled from worklist
.... D FFORM("FPABC1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
... I IBOB(35)=1 D ; Still on worklist
.... D FFORM("FPABD",1) ; Number still on worklist
.... D FFORM("FPABD1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
.. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without secondary
... D FFORM("FPWOS",1) ; Total number w/out secondary
.. ;DBIA 1452 ; Number of EEOBs not collected/closed
.. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
... D FFORM("FPNCC",1) ; Total Number of EEOBs not collected/closed
. I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
.. D FFORM("FPB",1) ; Total Number of Denied Requests
.. I IBOB(35)=1 D ; Still on worklist
... D SFORM("FPSOW",1) ; Number still on worklist
.. I IBOB(38)="PC" D ; Processed from worklist
... D FFORM("FPBXD",1) ; Number processed from worklist
.. I IBOB(38)="RM" D ; Removed from worklist
... D FFORM("FPBXA",1) ; Number removed from worklist
.. I IBOB(38)="CA" D ; Cancelled from worklist
... D FFORM("FPBXE",1) ; Number cancelled from worklist
.. I IBOB(38)="CR" D ; Corrected from worklist
... D FFORM("FPBXB",1) ; Number corrected from worklist
... D FFORM("FPBXB1",IBOB(201)) ; Total primary charges
.. I IBOB(38)="CL" D ; Cloned from worklist
... D FFORM("FPBXC",1) ; Number cloned from worklist
... D FFORM("FPBXC1",IBOB(201)) ; Total primary charges
; ;
I IBOB(.21)="S" D ; Secondary
. I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
.. D FFORM("FSA",1) ; Total Number of Processes Requests
.. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to tertiary
... D FFORM("FSAA",1) ; Total Number auto-processed to tertiary
... I IBOB(35)=2 D ; Printed Locally
.... D FFORM("FSAAA",1) ; Number Printed Locally
.... D FFORM("FSAAA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
... I IBOB(35)=3 D ; Transmitted
.... D FFORM("FSAAB",1) ; Number Transmitted
.... D FFORM("FSAAB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
.. I ((IBOB(35)=1)!(IBOB(35)=4)) D ; Sent to Worklist
... D FFORM("FSAB",1) ; Total Number Sent to Worklist
... I IBOB(38)="PC" D ; Processed from worklist
.... D FFORM("FSABA",1) ; Number processed from worklist
.... D FFORM("FSABA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total secondary charges
... I IBOB(38)="RM" D ; Removed from worklist
.... D FFORM("FSABB",1) ; Number removed from worklist
.... D FFORM("FSABB1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
... I IBOB(38)="CA" D ; Cancelled from worklist
.... D FFORM("FSABC",1) ; Number cancelled from worklist
.... D FFORM("FSABC1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
... I IBOB(35)=1 D ; Still on worklist
.... D FFORM("FSABD",1) ; Number still on worklist
.... D FFORM("FSABD1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
.. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without tertiary
... D FFORM("FSWOT",1) ; Total number w/out tertiary
.. ;DBIA 1452 ; Number of EEOBs not collected/closed
.. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
... D FFORM("FSNCC",1) ; Total Number of EEOBs not collected/closed
. I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
.. D FFORM("FSB",1) ; Total Number of Denied Requests
.. I IBOB(35)=1 D ; Still on worklist
... D SFORM("FSSOW",1) ; Number still on worklist
.. I IBOB(38)="PC" D ; Processed from worklist
... D FFORM("FSBXD",1) ; Number processed from worklist
.. I IBOB(38)="RM" D ; Removed from worklist
... D FFORM("FSBXA",1) ; Number removed from worklist
.. I IBOB(38)="CA" D ; Cancelled from worklist
... D FFORM("FSBXE",1) ; Number cancelled from worklist
.. I IBOB(38)="CR" D ; Corrected from worklist
... D FFORM("FSBXB",1) ; Number corrected from worklist
... D FFORM("FSBXB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total tertiary charges
.. I IBOB(38)="CL" D ; Cloned from worklist
... D FFORM("FSBXC",1) ; Number cloned from worklist
... D FFORM("FSBXC1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total tertiary charges
;
Q
;
FFORM(IBACCUM,IBCNTCST) ; Detail Form Collectors
; IBLFTMP(IBDIV2,IBACCUM,IBFT)
; | | |
; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
; | --------- ACCUMULATOR FOR COUNTS AND CHARGES
; ---------------- BILL/CLAIM DEFAULT DIVISION, DICT #40.8, ^DG(40.8,)
S IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$G(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
S IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$G(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
Q
;
COLLECT3 ; Accumulate information for the Summary Report
I IBOB(.21)="P" D ; Primary
. D SFORM("SPA",1) ; Total number of EEOBs received
. Q:$D(^TMP($J,"IBCEMSR2","SFORM",IBIFN)) ; Count each CLAIM/BILL only once
. S ^TMP($J,"IBCEMSR2","SFORM",IBIFN)="" ; Record CLAIM/BILL use
. D SFORM("SPACL",1) ; Total number of associated CLAIM/BILLS
. ; SPAA Calculated Later ; % Processed
. ; SPAB Calculated Later ; % of Processed auto-processed to secondary
. I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
.. D SFORM("SPAC",1) ; Total Number of Processes Requests
.. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to secondary
... D SFORM("SPACA",1) ; Total Number auto-processed to secondary
... I IBOB(35)=2 D ; Printed Locally
.... D SFORM("SPACAA",1) ; Number Printed Locally
.... D SFORM("SPACAA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
... I IBOB(35)=3 D ; Transmitted
.... D SFORM("SPACAB",1) ; Number Transmitted
.... D SFORM("SPACAB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
.. I '((IBOB(35)=2)!(IBOB(35)=3)),IBOB(38)="PC" D ; Manually processed to secondary
... D SFORM("SPACB",1) ; Number manually processed to secondary
... I $G(IBOBS(27))'="",$G(IBOBS(21))="" D ; Printed Locally
.... D SFORM("SPACBA",1) ; Number Printed Locally
.... D SFORM("SPACBA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
... I $G(IBOBS(21))'="",$G(IBOBS(27))="" D ; Transmitted
.... D SFORM("SPACBB",1) ; Number Transmitted
.... D SFORM("SPACBB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
.. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without secondary
... D SFORM("SPWOS",1) ; Total number w/out secondary
.. ;DBIA 1452 ; Number of EEOBs not collected/closed
.. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
... D SFORM("SPNCC",1) ; Total Number of EEOBs not collected/closed
.. I IBOB(35)=1 D ; Still on worklist
... D SFORM("SPABD",1) ; Number still on worklist
. I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
.. D SFORM("SPAD",1) ; Number of Denied EEOBs
;
I IBOB(.21)="S" D ; Secondary
. D SFORM("SSA",1) ; Total number of EEOBs received
. Q:$D(^TMP($J,"IBCEMSR2","SFORM",IBIFN)) ; Count each CLAIM/BILL only once
. S ^TMP($J,"IBCEMSR2","SFORM",IBIFN)="" ; Record CLAIM/BILL use
. D SFORM("SSACL",1) ; Total number of associated CLAIM/BILLS
. ; SSAA Calculated Later ; % Processed
. ; SSAB Calculated Later ; % of Processed auto-processed to tertiary
. I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
.. D SFORM("SSAC",1) ; Total Number of Processes Requests
.. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to tertiary
... D SFORM("SSACA",1) ; Total Number auto-processed to tertiary
... I IBOB(35)=2 D ; Printed Locally
.... D SFORM("SSACAA",1) ; Number Printed Locally
.... D SFORM("SSACAA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
... I IBOB(35)=3 D ; Transmitted
.... D SFORM("SSACAB",1) ; Number Transmitted
.... D SFORM("SSACAB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
.. I '((IBOB(35)=2)!(IBOB(35)=3)),IBOB(38)="PC" D ; Manually processed to tertiary
... D SFORM("SSADB",1) ; Number manually processed to tertiary
... I $G(IBOBT(27))'="",$G(IBOBT(21))="" D ; Printed Locally
.... D SFORM("SSADBA",1) ; Number Printed Locally
.... D SFORM("SSADBA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary charges
... I $G(IBOBT(21))'="",$G(IBOBT(27))="" D ; Transmitted
.... D SFORM("SSPDABB",1) ; Number Transmitted
.... D SFORM("SSADBB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary charges
.. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without tertiary
... D SFORM("SSWOT",1) ; Total number w/out tertiary
.. ;DBIA 1452 ; Number of EEOBs not collected/closed
.. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D ;DBIA 1452 ; Number of EEOBs not collected/closed
... D SFORM("SSNCC",1) ; Total Number of EEOBs not collected/closed
.. I IBOB(35)=1 D ; Still on worklist
... D SFORM("SSABD",1) ; Number still on worklist
. I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
.. D SFORM("SSAD",1) ; Number of Denied EEOBs
;
Q
;
SFORM(IBACCUM,IBCNTCST) ; Summary Form Collectors
; IBLSTMP(IBDIV2,IBACCUM,IBFT)
; | | |
; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
; | --------- ACCUMULATOR IDENTIFIER FOR COUNTS AND CHARGES
; -------------------------- BILL/CLAIM DEFAULT IBDIV2, DICT #40.8, ^DG(40.8,)
S IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$G(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
S IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$G(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEMSR3 16329 printed Apr 09, 2024@21:14:19 Page 2
IBCEMSR3 ;BI/ALB - non-MRA PRODUCTIVITY REPORT ;02/14/11
+1 ;;2.0;INTEGRATED BILLING;**447**;21-MAR-94;Build 80
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
COLLECT2 ; Accumulate information for the Detailed Report
+1 ; Count each CLAIM/BILL only once
if $DATA(^TMP($JOB,"IBCEMSR2","FFORM",IBIFN))
QUIT
+2 ; Record CLAIM/BILL use
SET ^TMP($JOB,"IBCEMSR2","FFORM",IBIFN)=""
+3 ; Primary
IF IBOB(.21)="P"
Begin DoDot:1
+4 ; Processed
IF $$PROCSSED^IBCEMSR5(IBIFN)
Begin DoDot:2
+5 ; Total Number of Processes Requests
DO FFORM("FPA",1)
+6 ; Auto-processed to secondary
IF ((IBOB(35)=2)!(IBOB(35)=3))
Begin DoDot:3
+7 ; Total Number auto-processed to secondary
DO FFORM("FPAA",1)
+8 ; Printed Locally
IF IBOB(35)=2
Begin DoDot:4
+9 ; Number Printed Locally
DO FFORM("FPAAA",1)
+10 ; Total Secondary Charges
DO FFORM("FPAAA1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
+11 ; Transmitted
IF IBOB(35)=3
Begin DoDot:4
+12 ; Number Transmitted
DO FFORM("FPAAB",1)
+13 ; Total Secondary Charges
DO FFORM("FPAAB1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
End DoDot:3
+14 ; Sent to Worklist
IF ((IBOB(35)=1)!(IBOB(35)=4))
Begin DoDot:3
+15 ; Total Number Sent to Worklist
DO FFORM("FPAB",1)
+16 ; Processed from worklist
IF IBOB(38)="PC"
Begin DoDot:4
+17 ; Number processed from worklist
DO FFORM("FPABA",1)
+18 ; Total secondary charges
DO FFORM("FPABA1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
+19 ; Removed from worklist
IF IBOB(38)="RM"
Begin DoDot:4
+20 ; Number removed from worklist
DO FFORM("FPABB",1)
+21 ; Total secondary charges
DO FFORM("FPABB1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
+22 ; Cancelled from worklist
IF IBOB(38)="CA"
Begin DoDot:4
+23 ; Number cancelled from worklist
DO FFORM("FPABC",1)
+24 ; Total secondary charges
DO FFORM("FPABC1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
+25 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:4
+26 ; Number still on worklist
DO FFORM("FPABD",1)
+27 ; Total secondary charges
DO FFORM("FPABD1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
End DoDot:3
+28 ; Number without secondary
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)=22
Begin DoDot:3
+29 ; Total number w/out secondary
DO FFORM("FPWOS",1)
End DoDot:3
+30 ;DBIA 1452 ; Number of EEOBs not collected/closed
+31 IF '((IBOB(35)=1)!(IBOB(35)=4))
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)'=22
Begin DoDot:3
+32 ; Total Number of EEOBs not collected/closed
DO FFORM("FPNCC",1)
End DoDot:3
End DoDot:2
+33 ; Denied
IF $$DENIED^IBCEMSR5(IBIFN)
Begin DoDot:2
+34 ; Total Number of Denied Requests
DO FFORM("FPB",1)
+35 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:3
+36 ; Number still on worklist
DO SFORM("FPSOW",1)
End DoDot:3
+37 ; Processed from worklist
IF IBOB(38)="PC"
Begin DoDot:3
+38 ; Number processed from worklist
DO FFORM("FPBXD",1)
End DoDot:3
+39 ; Removed from worklist
IF IBOB(38)="RM"
Begin DoDot:3
+40 ; Number removed from worklist
DO FFORM("FPBXA",1)
End DoDot:3
+41 ; Cancelled from worklist
IF IBOB(38)="CA"
Begin DoDot:3
+42 ; Number cancelled from worklist
DO FFORM("FPBXE",1)
End DoDot:3
+43 ; Corrected from worklist
IF IBOB(38)="CR"
Begin DoDot:3
+44 ; Number corrected from worklist
DO FFORM("FPBXB",1)
+45 ; Total primary charges
DO FFORM("FPBXB1",IBOB(201))
End DoDot:3
+46 ; Cloned from worklist
IF IBOB(38)="CL"
Begin DoDot:3
+47 ; Number cloned from worklist
DO FFORM("FPBXC",1)
+48 ; Total primary charges
DO FFORM("FPBXC1",IBOB(201))
End DoDot:3
End DoDot:2
End DoDot:1
+49 ; ;
+50 ; Secondary
IF IBOB(.21)="S"
Begin DoDot:1
+51 ; Processed
IF $$PROCSSED^IBCEMSR5(IBIFN)
Begin DoDot:2
+52 ; Total Number of Processes Requests
DO FFORM("FSA",1)
+53 ; Auto-processed to tertiary
IF ((IBOB(35)=2)!(IBOB(35)=3))
Begin DoDot:3
+54 ; Total Number auto-processed to tertiary
DO FFORM("FSAA",1)
+55 ; Printed Locally
IF IBOB(35)=2
Begin DoDot:4
+56 ; Number Printed Locally
DO FFORM("FSAAA",1)
+57 ; Total tertiary Charges
DO FFORM("FSAAA1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
+58 ; Transmitted
IF IBOB(35)=3
Begin DoDot:4
+59 ; Number Transmitted
DO FFORM("FSAAB",1)
+60 ; Total tertiary Charges
DO FFORM("FSAAB1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
End DoDot:3
+61 ; Sent to Worklist
IF ((IBOB(35)=1)!(IBOB(35)=4))
Begin DoDot:3
+62 ; Total Number Sent to Worklist
DO FFORM("FSAB",1)
+63 ; Processed from worklist
IF IBOB(38)="PC"
Begin DoDot:4
+64 ; Number processed from worklist
DO FFORM("FSABA",1)
+65 ; Total secondary charges
DO FFORM("FSABA1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
+66 ; Removed from worklist
IF IBOB(38)="RM"
Begin DoDot:4
+67 ; Number removed from worklist
DO FFORM("FSABB",1)
+68 ; Total tertiary charges
DO FFORM("FSABB1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
+69 ; Cancelled from worklist
IF IBOB(38)="CA"
Begin DoDot:4
+70 ; Number cancelled from worklist
DO FFORM("FSABC",1)
+71 ; Total tertiary charges
DO FFORM("FSABC1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
+72 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:4
+73 ; Number still on worklist
DO FFORM("FSABD",1)
+74 ; Total tertiary charges
DO FFORM("FSABD1",$$TOT^IBCECOB2(IBIFN,1))
End DoDot:4
End DoDot:3
+75 ; Number without tertiary
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)=22
Begin DoDot:3
+76 ; Total number w/out tertiary
DO FFORM("FSWOT",1)
End DoDot:3
+77 ;DBIA 1452 ; Number of EEOBs not collected/closed
+78 IF '((IBOB(35)=1)!(IBOB(35)=4))
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)'=22
Begin DoDot:3
+79 ; Total Number of EEOBs not collected/closed
DO FFORM("FSNCC",1)
End DoDot:3
End DoDot:2
+80 ; Denied
IF $$DENIED^IBCEMSR5(IBIFN)
Begin DoDot:2
+81 ; Total Number of Denied Requests
DO FFORM("FSB",1)
+82 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:3
+83 ; Number still on worklist
DO SFORM("FSSOW",1)
End DoDot:3
+84 ; Processed from worklist
IF IBOB(38)="PC"
Begin DoDot:3
+85 ; Number processed from worklist
DO FFORM("FSBXD",1)
End DoDot:3
+86 ; Removed from worklist
IF IBOB(38)="RM"
Begin DoDot:3
+87 ; Number removed from worklist
DO FFORM("FSBXA",1)
End DoDot:3
+88 ; Cancelled from worklist
IF IBOB(38)="CA"
Begin DoDot:3
+89 ; Number cancelled from worklist
DO FFORM("FSBXE",1)
End DoDot:3
+90 ; Corrected from worklist
IF IBOB(38)="CR"
Begin DoDot:3
+91 ; Number corrected from worklist
DO FFORM("FSBXB",1)
+92 ; Total tertiary charges
DO FFORM("FSBXB1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:3
+93 ; Cloned from worklist
IF IBOB(38)="CL"
Begin DoDot:3
+94 ; Number cloned from worklist
DO FFORM("FSBXC",1)
+95 ; Total tertiary charges
DO FFORM("FSBXC1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:3
End DoDot:2
End DoDot:1
+96 ;
+97 QUIT
+98 ;
FFORM(IBACCUM,IBCNTCST) ; Detail Form Collectors
+1 ; IBLFTMP(IBDIV2,IBACCUM,IBFT)
+2 ; | | |
+3 ; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
+4 ; | --------- ACCUMULATOR FOR COUNTS AND CHARGES
+5 ; ---------------- BILL/CLAIM DEFAULT DIVISION, DICT #40.8, ^DG(40.8,)
+6 SET IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$GET(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
+7 SET IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$GET(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
+8 QUIT
+9 ;
COLLECT3 ; Accumulate information for the Summary Report
+1 ; Primary
IF IBOB(.21)="P"
Begin DoDot:1
+2 ; Total number of EEOBs received
DO SFORM("SPA",1)
+3 ; Count each CLAIM/BILL only once
if $DATA(^TMP($JOB,"IBCEMSR2","SFORM",IBIFN))
QUIT
+4 ; Record CLAIM/BILL use
SET ^TMP($JOB,"IBCEMSR2","SFORM",IBIFN)=""
+5 ; Total number of associated CLAIM/BILLS
DO SFORM("SPACL",1)
+6 ; SPAA Calculated Later ; % Processed
+7 ; SPAB Calculated Later ; % of Processed auto-processed to secondary
+8 ; Processed
IF $$PROCSSED^IBCEMSR5(IBIFN)
Begin DoDot:2
+9 ; Total Number of Processes Requests
DO SFORM("SPAC",1)
+10 ; Auto-processed to secondary
IF ((IBOB(35)=2)!(IBOB(35)=3))
Begin DoDot:3
+11 ; Total Number auto-processed to secondary
DO SFORM("SPACA",1)
+12 ; Printed Locally
IF IBOB(35)=2
Begin DoDot:4
+13 ; Number Printed Locally
DO SFORM("SPACAA",1)
+14 ; Total Secondary Charges
DO SFORM("SPACAA1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
+15 ; Transmitted
IF IBOB(35)=3
Begin DoDot:4
+16 ; Number Transmitted
DO SFORM("SPACAB",1)
+17 ; Total Secondary Charges
DO SFORM("SPACAB1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
End DoDot:3
+18 ; Manually processed to secondary
IF '((IBOB(35)=2)!(IBOB(35)=3))
IF IBOB(38)="PC"
Begin DoDot:3
+19 ; Number manually processed to secondary
DO SFORM("SPACB",1)
+20 ; Printed Locally
IF $GET(IBOBS(27))'=""
IF $GET(IBOBS(21))=""
Begin DoDot:4
+21 ; Number Printed Locally
DO SFORM("SPACBA",1)
+22 ; Total secondary charges
DO SFORM("SPACBA1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
+23 ; Transmitted
IF $GET(IBOBS(21))'=""
IF $GET(IBOBS(27))=""
Begin DoDot:4
+24 ; Number Transmitted
DO SFORM("SPACBB",1)
+25 ; Total secondary charges
DO SFORM("SPACBB1",$GET(IBOBS(201))-$GET(IBOBS(218)))
End DoDot:4
End DoDot:3
+26 ; Number without secondary
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)=22
Begin DoDot:3
+27 ; Total number w/out secondary
DO SFORM("SPWOS",1)
End DoDot:3
+28 ;DBIA 1452 ; Number of EEOBs not collected/closed
+29 IF '((IBOB(35)=1)!(IBOB(35)=4))
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)'=22
Begin DoDot:3
+30 ; Total Number of EEOBs not collected/closed
DO SFORM("SPNCC",1)
End DoDot:3
+31 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:3
+32 ; Number still on worklist
DO SFORM("SPABD",1)
End DoDot:3
End DoDot:2
+33 ; Denied
IF $$DENIED^IBCEMSR5(IBIFN)
Begin DoDot:2
+34 ; Number of Denied EEOBs
DO SFORM("SPAD",1)
End DoDot:2
End DoDot:1
+35 ;
+36 ; Secondary
IF IBOB(.21)="S"
Begin DoDot:1
+37 ; Total number of EEOBs received
DO SFORM("SSA",1)
+38 ; Count each CLAIM/BILL only once
if $DATA(^TMP($JOB,"IBCEMSR2","SFORM",IBIFN))
QUIT
+39 ; Record CLAIM/BILL use
SET ^TMP($JOB,"IBCEMSR2","SFORM",IBIFN)=""
+40 ; Total number of associated CLAIM/BILLS
DO SFORM("SSACL",1)
+41 ; SSAA Calculated Later ; % Processed
+42 ; SSAB Calculated Later ; % of Processed auto-processed to tertiary
+43 ; Processed
IF $$PROCSSED^IBCEMSR5(IBIFN)
Begin DoDot:2
+44 ; Total Number of Processes Requests
DO SFORM("SSAC",1)
+45 ; Auto-processed to tertiary
IF ((IBOB(35)=2)!(IBOB(35)=3))
Begin DoDot:3
+46 ; Total Number auto-processed to tertiary
DO SFORM("SSACA",1)
+47 ; Printed Locally
IF IBOB(35)=2
Begin DoDot:4
+48 ; Number Printed Locally
DO SFORM("SSACAA",1)
+49 ; Total tertiary Charges
DO SFORM("SSACAA1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
+50 ; Transmitted
IF IBOB(35)=3
Begin DoDot:4
+51 ; Number Transmitted
DO SFORM("SSACAB",1)
+52 ; Total tertiary Charges
DO SFORM("SSACAB1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
End DoDot:3
+53 ; Manually processed to tertiary
IF '((IBOB(35)=2)!(IBOB(35)=3))
IF IBOB(38)="PC"
Begin DoDot:3
+54 ; Number manually processed to tertiary
DO SFORM("SSADB",1)
+55 ; Printed Locally
IF $GET(IBOBT(27))'=""
IF $GET(IBOBT(21))=""
Begin DoDot:4
+56 ; Number Printed Locally
DO SFORM("SSADBA",1)
+57 ; Total tertiary charges
DO SFORM("SSADBA1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
+58 ; Transmitted
IF $GET(IBOBT(21))'=""
IF $GET(IBOBT(27))=""
Begin DoDot:4
+59 ; Number Transmitted
DO SFORM("SSPDABB",1)
+60 ; Total tertiary charges
DO SFORM("SSADBB1",$GET(IBOBT(201))-$GET(IBOBT(218))-$GET(IBOBT(219)))
End DoDot:4
End DoDot:3
+61 ; Number without tertiary
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)=22
Begin DoDot:3
+62 ; Total number w/out tertiary
DO SFORM("SSWOT",1)
End DoDot:3
+63 ;DBIA 1452 ; Number of EEOBs not collected/closed
+64 ;DBIA 1452 ; Number of EEOBs not collected/closed
IF '((IBOB(35)=1)!(IBOB(35)=4))
IF $$NOSUB^IBCEMSR5(IBIFN)
IF $PIECE($$BILL^RCJIBFN2(IBIFN),U,2)'=22
Begin DoDot:3
+65 ; Total Number of EEOBs not collected/closed
DO SFORM("SSNCC",1)
End DoDot:3
+66 ; Still on worklist
IF IBOB(35)=1
Begin DoDot:3
+67 ; Number still on worklist
DO SFORM("SSABD",1)
End DoDot:3
End DoDot:2
+68 ; Denied
IF $$DENIED^IBCEMSR5(IBIFN)
Begin DoDot:2
+69 ; Number of Denied EEOBs
DO SFORM("SSAD",1)
End DoDot:2
End DoDot:1
+70 ;
+71 QUIT
+72 ;
SFORM(IBACCUM,IBCNTCST) ; Summary Form Collectors
+1 ; IBLSTMP(IBDIV2,IBACCUM,IBFT)
+2 ; | | |
+3 ; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
+4 ; | --------- ACCUMULATOR IDENTIFIER FOR COUNTS AND CHARGES
+5 ; -------------------------- BILL/CLAIM DEFAULT IBDIV2, DICT #40.8, ^DG(40.8,)
+6 SET IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$GET(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
+7 SET IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$GET(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
+8 QUIT
