Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCEMSR3

IBCEMSR3.m

Go to the documentation of this file.
  1. IBCEMSR3 ;BI/ALB - non-MRA PRODUCTIVITY REPORT ;02/14/11
  1. ;;2.0;INTEGRATED BILLING;**447**;21-MAR-94;Build 80
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. COLLECT2 ; Accumulate information for the Detailed Report
  1. Q:$D(^TMP($J,"IBCEMSR2","FFORM",IBIFN)) ; Count each CLAIM/BILL only once
  1. S ^TMP($J,"IBCEMSR2","FFORM",IBIFN)="" ; Record CLAIM/BILL use
  1. I IBOB(.21)="P" D ; Primary
  1. . I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
  1. .. D FFORM("FPA",1) ; Total Number of Processes Requests
  1. .. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to secondary
  1. ... D FFORM("FPAA",1) ; Total Number auto-processed to secondary
  1. ... I IBOB(35)=2 D ; Printed Locally
  1. .... D FFORM("FPAAA",1) ; Number Printed Locally
  1. .... D FFORM("FPAAA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
  1. ... I IBOB(35)=3 D ; Transmitted
  1. .... D FFORM("FPAAB",1) ; Number Transmitted
  1. .... D FFORM("FPAAB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
  1. .. I ((IBOB(35)=1)!(IBOB(35)=4)) D ; Sent to Worklist
  1. ... D FFORM("FPAB",1) ; Total Number Sent to Worklist
  1. ... I IBOB(38)="PC" D ; Processed from worklist
  1. .... D FFORM("FPABA",1) ; Number processed from worklist
  1. .... D FFORM("FPABA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
  1. ... I IBOB(38)="RM" D ; Removed from worklist
  1. .... D FFORM("FPABB",1) ; Number removed from worklist
  1. .... D FFORM("FPABB1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
  1. ... I IBOB(38)="CA" D ; Cancelled from worklist
  1. .... D FFORM("FPABC",1) ; Number cancelled from worklist
  1. .... D FFORM("FPABC1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
  1. ... I IBOB(35)=1 D ; Still on worklist
  1. .... D FFORM("FPABD",1) ; Number still on worklist
  1. .... D FFORM("FPABD1",$$TOT^IBCECOB2(IBIFN,1)) ; Total secondary charges
  1. .. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without secondary
  1. ... D FFORM("FPWOS",1) ; Total number w/out secondary
  1. .. ;DBIA 1452 ; Number of EEOBs not collected/closed
  1. .. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
  1. ... D FFORM("FPNCC",1) ; Total Number of EEOBs not collected/closed
  1. . I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
  1. .. D FFORM("FPB",1) ; Total Number of Denied Requests
  1. .. I IBOB(35)=1 D ; Still on worklist
  1. ... D SFORM("FPSOW",1) ; Number still on worklist
  1. .. I IBOB(38)="PC" D ; Processed from worklist
  1. ... D FFORM("FPBXD",1) ; Number processed from worklist
  1. .. I IBOB(38)="RM" D ; Removed from worklist
  1. ... D FFORM("FPBXA",1) ; Number removed from worklist
  1. .. I IBOB(38)="CA" D ; Cancelled from worklist
  1. ... D FFORM("FPBXE",1) ; Number cancelled from worklist
  1. .. I IBOB(38)="CR" D ; Corrected from worklist
  1. ... D FFORM("FPBXB",1) ; Number corrected from worklist
  1. ... D FFORM("FPBXB1",IBOB(201)) ; Total primary charges
  1. .. I IBOB(38)="CL" D ; Cloned from worklist
  1. ... D FFORM("FPBXC",1) ; Number cloned from worklist
  1. ... D FFORM("FPBXC1",IBOB(201)) ; Total primary charges
  1. ; ;
  1. I IBOB(.21)="S" D ; Secondary
  1. . I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
  1. .. D FFORM("FSA",1) ; Total Number of Processes Requests
  1. .. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to tertiary
  1. ... D FFORM("FSAA",1) ; Total Number auto-processed to tertiary
  1. ... I IBOB(35)=2 D ; Printed Locally
  1. .... D FFORM("FSAAA",1) ; Number Printed Locally
  1. .... D FFORM("FSAAA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
  1. ... I IBOB(35)=3 D ; Transmitted
  1. .... D FFORM("FSAAB",1) ; Number Transmitted
  1. .... D FFORM("FSAAB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
  1. .. I ((IBOB(35)=1)!(IBOB(35)=4)) D ; Sent to Worklist
  1. ... D FFORM("FSAB",1) ; Total Number Sent to Worklist
  1. ... I IBOB(38)="PC" D ; Processed from worklist
  1. .... D FFORM("FSABA",1) ; Number processed from worklist
  1. .... D FFORM("FSABA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total secondary charges
  1. ... I IBOB(38)="RM" D ; Removed from worklist
  1. .... D FFORM("FSABB",1) ; Number removed from worklist
  1. .... D FFORM("FSABB1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
  1. ... I IBOB(38)="CA" D ; Cancelled from worklist
  1. .... D FFORM("FSABC",1) ; Number cancelled from worklist
  1. .... D FFORM("FSABC1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
  1. ... I IBOB(35)=1 D ; Still on worklist
  1. .... D FFORM("FSABD",1) ; Number still on worklist
  1. .... D FFORM("FSABD1",$$TOT^IBCECOB2(IBIFN,1)) ; Total tertiary charges
  1. .. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without tertiary
  1. ... D FFORM("FSWOT",1) ; Total number w/out tertiary
  1. .. ;DBIA 1452 ; Number of EEOBs not collected/closed
  1. .. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
  1. ... D FFORM("FSNCC",1) ; Total Number of EEOBs not collected/closed
  1. . I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
  1. .. D FFORM("FSB",1) ; Total Number of Denied Requests
  1. .. I IBOB(35)=1 D ; Still on worklist
  1. ... D SFORM("FSSOW",1) ; Number still on worklist
  1. .. I IBOB(38)="PC" D ; Processed from worklist
  1. ... D FFORM("FSBXD",1) ; Number processed from worklist
  1. .. I IBOB(38)="RM" D ; Removed from worklist
  1. ... D FFORM("FSBXA",1) ; Number removed from worklist
  1. .. I IBOB(38)="CA" D ; Cancelled from worklist
  1. ... D FFORM("FSBXE",1) ; Number cancelled from worklist
  1. .. I IBOB(38)="CR" D ; Corrected from worklist
  1. ... D FFORM("FSBXB",1) ; Number corrected from worklist
  1. ... D FFORM("FSBXB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total tertiary charges
  1. .. I IBOB(38)="CL" D ; Cloned from worklist
  1. ... D FFORM("FSBXC",1) ; Number cloned from worklist
  1. ... D FFORM("FSBXC1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total tertiary charges
  1. ;
  1. Q
  1. ;
  1. FFORM(IBACCUM,IBCNTCST) ; Detail Form Collectors
  1. ; IBLFTMP(IBDIV2,IBACCUM,IBFT)
  1. ; | | |
  1. ; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
  1. ; | --------- ACCUMULATOR FOR COUNTS AND CHARGES
  1. ; ---------------- BILL/CLAIM DEFAULT DIVISION, DICT #40.8, ^DG(40.8,)
  1. S IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$G(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
  1. S IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$G(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
  1. Q
  1. ;
  1. COLLECT3 ; Accumulate information for the Summary Report
  1. I IBOB(.21)="P" D ; Primary
  1. . D SFORM("SPA",1) ; Total number of EEOBs received
  1. . Q:$D(^TMP($J,"IBCEMSR2","SFORM",IBIFN)) ; Count each CLAIM/BILL only once
  1. . S ^TMP($J,"IBCEMSR2","SFORM",IBIFN)="" ; Record CLAIM/BILL use
  1. . D SFORM("SPACL",1) ; Total number of associated CLAIM/BILLS
  1. . ; SPAA Calculated Later ; % Processed
  1. . ; SPAB Calculated Later ; % of Processed auto-processed to secondary
  1. . I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
  1. .. D SFORM("SPAC",1) ; Total Number of Processes Requests
  1. .. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to secondary
  1. ... D SFORM("SPACA",1) ; Total Number auto-processed to secondary
  1. ... I IBOB(35)=2 D ; Printed Locally
  1. .... D SFORM("SPACAA",1) ; Number Printed Locally
  1. .... D SFORM("SPACAA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
  1. ... I IBOB(35)=3 D ; Transmitted
  1. .... D SFORM("SPACAB",1) ; Number Transmitted
  1. .... D SFORM("SPACAB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total Secondary Charges
  1. .. I '((IBOB(35)=2)!(IBOB(35)=3)),IBOB(38)="PC" D ; Manually processed to secondary
  1. ... D SFORM("SPACB",1) ; Number manually processed to secondary
  1. ... I $G(IBOBS(27))'="",$G(IBOBS(21))="" D ; Printed Locally
  1. .... D SFORM("SPACBA",1) ; Number Printed Locally
  1. .... D SFORM("SPACBA1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
  1. ... I $G(IBOBS(21))'="",$G(IBOBS(27))="" D ; Transmitted
  1. .... D SFORM("SPACBB",1) ; Number Transmitted
  1. .... D SFORM("SPACBB1",$G(IBOBS(201))-$G(IBOBS(218))) ; Total secondary charges
  1. .. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without secondary
  1. ... D SFORM("SPWOS",1) ; Total number w/out secondary
  1. .. ;DBIA 1452 ; Number of EEOBs not collected/closed
  1. .. I '((IBOB(35)=1)!(IBOB(35)=4)),$$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)'=22 D
  1. ... D SFORM("SPNCC",1) ; Total Number of EEOBs not collected/closed
  1. .. I IBOB(35)=1 D ; Still on worklist
  1. ... D SFORM("SPABD",1) ; Number still on worklist
  1. . I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
  1. .. D SFORM("SPAD",1) ; Number of Denied EEOBs
  1. ;
  1. I IBOB(.21)="S" D ; Secondary
  1. . D SFORM("SSA",1) ; Total number of EEOBs received
  1. . Q:$D(^TMP($J,"IBCEMSR2","SFORM",IBIFN)) ; Count each CLAIM/BILL only once
  1. . S ^TMP($J,"IBCEMSR2","SFORM",IBIFN)="" ; Record CLAIM/BILL use
  1. . D SFORM("SSACL",1) ; Total number of associated CLAIM/BILLS
  1. . ; SSAA Calculated Later ; % Processed
  1. . ; SSAB Calculated Later ; % of Processed auto-processed to tertiary
  1. . I $$PROCSSED^IBCEMSR5(IBIFN) D ; Processed
  1. .. D SFORM("SSAC",1) ; Total Number of Processes Requests
  1. .. I ((IBOB(35)=2)!(IBOB(35)=3)) D ; Auto-processed to tertiary
  1. ... D SFORM("SSACA",1) ; Total Number auto-processed to tertiary
  1. ... I IBOB(35)=2 D ; Printed Locally
  1. .... D SFORM("SSACAA",1) ; Number Printed Locally
  1. .... D SFORM("SSACAA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
  1. ... I IBOB(35)=3 D ; Transmitted
  1. .... D SFORM("SSACAB",1) ; Number Transmitted
  1. .... D SFORM("SSACAB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary Charges
  1. .. I '((IBOB(35)=2)!(IBOB(35)=3)),IBOB(38)="PC" D ; Manually processed to tertiary
  1. ... D SFORM("SSADB",1) ; Number manually processed to tertiary
  1. ... I $G(IBOBT(27))'="",$G(IBOBT(21))="" D ; Printed Locally
  1. .... D SFORM("SSADBA",1) ; Number Printed Locally
  1. .... D SFORM("SSADBA1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary charges
  1. ... I $G(IBOBT(21))'="",$G(IBOBT(27))="" D ; Transmitted
  1. .... D SFORM("SSPDABB",1) ; Number Transmitted
  1. .... D SFORM("SSADBB1",$G(IBOBT(201))-$G(IBOBT(218))-$G(IBOBT(219))) ; Total tertiary charges
  1. .. I $$NOSUB^IBCEMSR5(IBIFN),$P($$BILL^RCJIBFN2(IBIFN),U,2)=22 D ; Number without tertiary
  1. ... D SFORM("SSWOT",1) ; Total number w/out tertiary
  1. .. ;DBIA 1452 ; Number of EEOBs not collected/closed
  1. .. 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
  1. ... D SFORM("SSNCC",1) ; Total Number of EEOBs not collected/closed
  1. .. I IBOB(35)=1 D ; Still on worklist
  1. ... D SFORM("SSABD",1) ; Number still on worklist
  1. . I $$DENIED^IBCEMSR5(IBIFN) D ; Denied
  1. .. D SFORM("SSAD",1) ; Number of Denied EEOBs
  1. ;
  1. Q
  1. ;
  1. SFORM(IBACCUM,IBCNTCST) ; Summary Form Collectors
  1. ; IBLSTMP(IBDIV2,IBACCUM,IBFT)
  1. ; | | |
  1. ; | | - BILL/CLAIM FORM TYPE 2-CMS1500, 3-UB4
  1. ; | --------- ACCUMULATOR IDENTIFIER FOR COUNTS AND CHARGES
  1. ; -------------------------- BILL/CLAIM DEFAULT IBDIV2, DICT #40.8, ^DG(40.8,)
  1. S IBLTMP(IBOB(.22),IBACCUM,IBOB(.19))=$G(IBLTMP(IBOB(.22),IBACCUM,IBOB(.19)))+IBCNTCST
  1. S IBLTMP("DIVISION",IBACCUM,IBOB(.19))=$G(IBLTMP("DIVISION",IBACCUM,IBOB(.19)))+IBCNTCST
  1. Q