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.
;
;
Q
;
;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"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSRPT8A 4158 printed Nov 22, 2024@17:03:02 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 ;
