Routine: BPSRPT8A

BPSRPT8A ;AITC/CKB - ECME REPORTS ;3/9/2020

 ;;1.0;E CLAIMS MGMT ENGINE;**28**;JUN 2004;Build 22

 ;;Per VA Directive 6402, this routine should not be modified.

 ;Print Excel Header - moved from BPSRPT8

HDR(BPRTYPE) ;

 ;Check if header already printed

 I $G(BPSDATA) Q

 S BPSDATA=1

 ;Division

 W !,"DIVISION",U

 I BPRTYPE'=5,BPRTYPE'=6 W "INSURANCE",U

 I (",2,")[BPRTYPE W "BIN",U

 I (",5,8,")[BPRTYPE W "PATIENT NAME",U,"Pt.ID",U

 I (",1,2,3,4,7,9,")[BPRTYPE W "PATIENT",U,"Pt.ID",U

 I BPRTYPE=1 D  Q

 . W "ELIG",U

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "VA ING. COST",U

 . W "VA DISP. FEE",U

 . W "$BILLED",U

 . W "INGREDIENT COST PAID",U

 . W "DISPENSING FEE PAID",U

 . W "PATIENT RESP (INS)",U

 . W "$INS RESPONSE",U

 . W "$COLLECT",U

 . W "DRUG",U

 . W "NDC",U

 . W "RELEASED",U

 . W "LOCATION",U

 . W "TYPE",U

 . W "STATUS",U

 . W "REJECTED",U

 . W "BILL#",U

 . W "COB"

 I BPRTYPE=4 D  Q

 . W "ELIG",U

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "VA ING. COST",U

 . W "VA DISP. FEE",U

 . W "$BILLED",U

 . W "ING. COST PAID",U

 . W "DIS. FEE PAID",U

 . W "PATIENT RESP (INS)",U

 . W "$INS RESPONSE",U

 . W "$COLLECT",U

 . W "DRUG",U

 . W "NDC",U

 . W "RELEASED",U

 . W "LOCATION",U

 . W "TYPE",U

 . W "STATUS",U

 . W "COB",U

 . W "REJECTED",U

 . W "REVERSAL METHOD",U

 . W "RETURN STATUS",U

 . W "REASON"

 I BPRTYPE=2 D  Q

 . W "ELIG",U

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "RELEASED",U

 . W "LOCATION",U

 . W "TYPE",U

 . W "STATUS",U

 . W "COB",U

 . W "OPEN/CLOSED",U

 . W "GROUP ID",U

 . W "VA ING. COST",U

 . W "VA DISP. FEE",U

 . W "$BILLED",U

 . W "QTY",U

 . W "NDC#",U

 . W "DRUG",U

 . W "PRESCRIBER ID",U

 . W "PRESCRIBER",U

 . W "MULT REJ",U

 . W "REJECT CODE",U

 . W "REJECT EXPLANATION"

 I BPRTYPE=3 D  Q

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "VA ING. COST",U

 . W "VA DISP. FEE",U

 . W "$BILLED",U

 . W "INGREDIENT COST PAID",U

 . W "DISPENSING FEE PAID",U

 . W "PATIENT RESP (INS)",U

 . W "$INS RESPONSE",U

 . W "DRUG",U

 . W "NDC",U

 . W "LOCATION",U

 . W "TYPE",U

 . W "STATUS",U

 . W "COB",U

 . W "ELIG",U

 . W "REJECTED"

 I BPRTYPE=5 D  Q

 . W "RX#",U

 . W "REF/ECME#",U

 . W "COMPLETED",U

 . W "TRANS TYPE",U

 . W "PAYER RESPONSE",U

 . W "RX COB",U

 . W "DRUG",U

 . W "NDC",U

 . W "FILL LOCATION",U

 . W "FILL TYPE",U

 . W "STATUS",U

 . W "REJECTED",U

 . W "INSURANCE",U

 . W "ELAP TIME IN SECONDS"

 I BPRTYPE=6 D  Q

 .W "DATE",U

 .W "#CLAIMS",U

 .W "AMOUNT SUBMITTED",U

 .W "RETURNED REJECTED",U

 .W "RETURNED PAYABLE",U

 .W "AMOUNT TO RECEIVE",U

 .W "DIFFERENCE"

 I BPRTYPE=7 D  Q

 . W "ELIG",U

 . W "RX#",U

 . W "REF/ECME#",U

 . W "LOCATION",U

 . W "TYPE",U

 . W "STATUS",U

 . W "REJECTED",U

 . W "DRUG",U

 . W "NDC",U

 . W "GROUP ID",U

 . W "$BILLED",U

 . W "CLOSE DATE/TIME",U

 . W "CLOSED BY",U

 . W "CLOSE REASON",U

 . W "CLAIM ID",U

 . W "MULTI REJ",U

 . W "REJECT CODE",U

 . W "REJECT EXPLANATION"

 I BPRTYPE=8 D  Q

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "$BILLED",U

 . W "$INS RESPONSE",U

 . W "$COLLECT",U

 . W "DRUG",U

 . W "RX INFO",U

 . W "INS GROUP#",U

 . W "INS GROUP NAME",U

 . W "BILL#",U

 . W "$PROVIDER NETWORK",U

 . W "$BRAND DRUG",U

 . W "$NON-PREF FORM",U

 . W "$BRAND NON-PREF FORM",U

 . W "$COVERAGE GAP",U

 . W "$HEALTH ASST",U

 . W "$SPEND ACCT REMAINING",U

 I BPRTYPE=9 D  Q

 . W "ELIG",U

 . W "RX#",U

 . W "REF",U

 . W "DATE",U

 . W "$DRUG COST",U

 . W "DRUG",U

 . W "NDC",U

 . W "RELEASED ON",U

 . W "LOCATION",U

 . W "STATUS",U

 . W "NON-BILLABLE STATUS REASON"

 I BPRTYPE=10 D  Q

 . W "PATIENT",U

 . W "PT. ID",U

 . W "ELIG",U

 . W "RX#",U

 . W "REF/ECME#",U

 . W "DATE",U

 . W "VA ING. COST",U

 . W "VA DISP. FEE",U

 . W "$BILLED",U

 . W "INGREDIENT COST PAID",U

 . W "DISPENSING FEE PAID",U

 . W "PATIENT RESP (INS)",U

 . W "$INS RESPONSE",U

 . W "$COLLECT",U

 . W "DRUG",U

 . W "NDC",U

 . W "RELEASED",U

 . W "RX INFO",U

 . W "BILL#",U

 . W "COB",U

 . W "STATUS"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSRPT8A   4158     printed  Mar 13, 2025@20:57:30                                                                                                                                                                                                    Page 2

BPSRPT8A  ;AITC/CKB - ECME REPORTS ;3/9/2020

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**28**;JUN 2004;Build 22

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ;

 +5        QUIT

 +6       ;

 +7       ;Print Excel Header - moved from BPSRPT8

 +8       ;

HDR(BPRTYPE) ;

 +1       ;

 +2       ;Check if header already printed

 +3        IF $GET(BPSDATA)

               QUIT

 +4        SET BPSDATA=1

 +5       ;

 +6       ;Division

 +7        WRITE !,"DIVISION",U

 +8       ;

 +9        IF BPRTYPE'=5

               IF BPRTYPE'=6

                   WRITE "INSURANCE",U

 +10       IF (",2,")[BPRTYPE

               WRITE "BIN",U

 +11      ;

 +12       IF (",5,8,")[BPRTYPE

               WRITE "PATIENT NAME",U,"Pt.ID",U

 +13       IF (",1,2,3,4,7,9,")[BPRTYPE

               WRITE "PATIENT",U,"Pt.ID",U

 +14      ;

 +15       IF BPRTYPE=1

               Begin DoDot:1

 +16               WRITE "ELIG",U

 +17               WRITE "RX#",U

 +18               WRITE "REF/ECME#",U

 +19               WRITE "DATE",U

 +20               WRITE "VA ING. COST",U

 +21               WRITE "VA DISP. FEE",U

 +22               WRITE "$BILLED",U

 +23               WRITE "INGREDIENT COST PAID",U

 +24               WRITE "DISPENSING FEE PAID",U

 +25               WRITE "PATIENT RESP (INS)",U

 +26               WRITE "$INS RESPONSE",U

 +27               WRITE "$COLLECT",U

 +28               WRITE "DRUG",U

 +29               WRITE "NDC",U

 +30               WRITE "RELEASED",U

 +31               WRITE "LOCATION",U

 +32               WRITE "TYPE",U

 +33               WRITE "STATUS",U

 +34               WRITE "REJECTED",U

 +35               WRITE "BILL#",U

 +36               WRITE "COB"

               End DoDot:1

               QUIT

 +37      ;

 +38       IF BPRTYPE=4

               Begin DoDot:1

 +39               WRITE "ELIG",U

 +40               WRITE "RX#",U

 +41               WRITE "REF/ECME#",U

 +42               WRITE "DATE",U

 +43               WRITE "VA ING. COST",U

 +44               WRITE "VA DISP. FEE",U

 +45               WRITE "$BILLED",U

 +46               WRITE "ING. COST PAID",U

 +47               WRITE "DIS. FEE PAID",U

 +48               WRITE "PATIENT RESP (INS)",U

 +49               WRITE "$INS RESPONSE",U

 +50               WRITE "$COLLECT",U

 +51               WRITE "DRUG",U

 +52               WRITE "NDC",U

 +53               WRITE "RELEASED",U

 +54               WRITE "LOCATION",U

 +55               WRITE "TYPE",U

 +56               WRITE "STATUS",U

 +57               WRITE "COB",U

 +58               WRITE "REJECTED",U

 +59               WRITE "REVERSAL METHOD",U

 +60               WRITE "RETURN STATUS",U

 +61               WRITE "REASON"

               End DoDot:1

               QUIT

 +62      ;

 +63       IF BPRTYPE=2

               Begin DoDot:1

 +64               WRITE "ELIG",U

 +65               WRITE "RX#",U

 +66               WRITE "REF/ECME#",U

 +67               WRITE "DATE",U

 +68               WRITE "RELEASED",U

 +69               WRITE "LOCATION",U

 +70               WRITE "TYPE",U

 +71               WRITE "STATUS",U

 +72               WRITE "COB",U

 +73               WRITE "OPEN/CLOSED",U

 +74               WRITE "GROUP ID",U

 +75               WRITE "VA ING. COST",U

 +76               WRITE "VA DISP. FEE",U

 +77               WRITE "$BILLED",U

 +78               WRITE "QTY",U

 +79               WRITE "NDC#",U

 +80               WRITE "DRUG",U

 +81               WRITE "PRESCRIBER ID",U

 +82               WRITE "PRESCRIBER",U

 +83               WRITE "MULT REJ",U

 +84               WRITE "REJECT CODE",U

 +85               WRITE "REJECT EXPLANATION"

               End DoDot:1

               QUIT

 +86      ;

 +87       IF BPRTYPE=3

               Begin DoDot:1

 +88               WRITE "RX#",U

 +89               WRITE "REF/ECME#",U

 +90               WRITE "DATE",U

 +91               WRITE "VA ING. COST",U

 +92               WRITE "VA DISP. FEE",U

 +93               WRITE "$BILLED",U

 +94               WRITE "INGREDIENT COST PAID",U

 +95               WRITE "DISPENSING FEE PAID",U

 +96               WRITE "PATIENT RESP (INS)",U

 +97               WRITE "$INS RESPONSE",U

 +98               WRITE "DRUG",U

 +99               WRITE "NDC",U

 +100              WRITE "LOCATION",U

 +101              WRITE "TYPE",U

 +102              WRITE "STATUS",U

 +103              WRITE "COB",U

 +104              WRITE "ELIG",U

 +105              WRITE "REJECTED"

               End DoDot:1

               QUIT

 +106     ;

 +107      IF BPRTYPE=5

               Begin DoDot:1

 +108              WRITE "RX#",U

 +109              WRITE "REF/ECME#",U

 +110              WRITE "COMPLETED",U

 +111              WRITE "TRANS TYPE",U

 +112              WRITE "PAYER RESPONSE",U

 +113              WRITE "RX COB",U

 +114              WRITE "DRUG",U

 +115              WRITE "NDC",U

 +116              WRITE "FILL LOCATION",U

 +117              WRITE "FILL TYPE",U

 +118              WRITE "STATUS",U

 +119              WRITE "REJECTED",U

 +120              WRITE "INSURANCE",U

 +121              WRITE "ELAP TIME IN SECONDS"

               End DoDot:1

               QUIT

 +122     ;

 +123      IF BPRTYPE=6

               Begin DoDot:1

 +124              WRITE "DATE",U

 +125              WRITE "#CLAIMS",U

 +126              WRITE "AMOUNT SUBMITTED",U

 +127              WRITE "RETURNED REJECTED",U

 +128              WRITE "RETURNED PAYABLE",U

 +129              WRITE "AMOUNT TO RECEIVE",U

 +130              WRITE "DIFFERENCE"

               End DoDot:1

               QUIT

 +131     ;

 +132      IF BPRTYPE=7

               Begin DoDot:1

 +133              WRITE "ELIG",U

 +134              WRITE "RX#",U

 +135              WRITE "REF/ECME#",U

 +136              WRITE "LOCATION",U

 +137              WRITE "TYPE",U

 +138              WRITE "STATUS",U

 +139              WRITE "REJECTED",U

 +140              WRITE "DRUG",U

 +141              WRITE "NDC",U

 +142              WRITE "GROUP ID",U

 +143              WRITE "$BILLED",U

 +144              WRITE "CLOSE DATE/TIME",U

 +145              WRITE "CLOSED BY",U

 +146              WRITE "CLOSE REASON",U

 +147              WRITE "CLAIM ID",U

 +148              WRITE "MULTI REJ",U

 +149              WRITE "REJECT CODE",U

 +150              WRITE "REJECT EXPLANATION"

               End DoDot:1

               QUIT

 +151     ;

 +152      IF BPRTYPE=8

               Begin DoDot:1

 +153              WRITE "RX#",U

 +154              WRITE "REF/ECME#",U

 +155              WRITE "DATE",U

 +156              WRITE "$BILLED",U

 +157              WRITE "$INS RESPONSE",U

 +158              WRITE "$COLLECT",U

 +159              WRITE "DRUG",U

 +160              WRITE "RX INFO",U

 +161              WRITE "INS GROUP#",U

 +162              WRITE "INS GROUP NAME",U

 +163              WRITE "BILL#",U

 +164              WRITE "$PROVIDER NETWORK",U

 +165              WRITE "$BRAND DRUG",U

 +166              WRITE "$NON-PREF FORM",U

 +167              WRITE "$BRAND NON-PREF FORM",U

 +168              WRITE "$COVERAGE GAP",U

 +169              WRITE "$HEALTH ASST",U

 +170              WRITE "$SPEND ACCT REMAINING",U

               End DoDot:1

               QUIT

 +171     ;

 +172      IF BPRTYPE=9

               Begin DoDot:1

 +173              WRITE "ELIG",U

 +174              WRITE "RX#",U

 +175              WRITE "REF",U

 +176              WRITE "DATE",U

 +177              WRITE "$DRUG COST",U

 +178              WRITE "DRUG",U

 +179              WRITE "NDC",U

 +180              WRITE "RELEASED ON",U

 +181              WRITE "LOCATION",U

 +182              WRITE "STATUS",U

 +183              WRITE "NON-BILLABLE STATUS REASON"

               End DoDot:1

               QUIT

 +184     ;

 +185      IF BPRTYPE=10

               Begin DoDot:1

 +186              WRITE "PATIENT",U

 +187              WRITE "PT. ID",U

 +188              WRITE "ELIG",U

 +189              WRITE "RX#",U

 +190              WRITE "REF/ECME#",U

 +191              WRITE "DATE",U

 +192              WRITE "VA ING. COST",U

 +193              WRITE "VA DISP. FEE",U

 +194              WRITE "$BILLED",U

 +195              WRITE "INGREDIENT COST PAID",U

 +196              WRITE "DISPENSING FEE PAID",U

 +197              WRITE "PATIENT RESP (INS)",U

 +198              WRITE "$INS RESPONSE",U

 +199              WRITE "$COLLECT",U

 +200              WRITE "DRUG",U

 +201              WRITE "NDC",U

 +202              WRITE "RELEASED",U

 +203              WRITE "RX INFO",U

 +204              WRITE "BILL#",U

 +205              WRITE "COB",U

 +206              WRITE "STATUS"

               End DoDot:1

               QUIT

 +207      QUIT

 +208     ;

BPSRPT8A.m