IB20P673 ;ALB/CXW - MCCR UTILITY/REVENUE/RNB UPDATES FOR 2020 ;04/20/2020
;;2.0;INTEGRATED BILLING;**673**;21-MAR-94;Build 10
;;Per VA Directive 6402, this routine should not be modified.
Q
POST ;
; Update value/condition/revenue/RNB for 2020 in files 399.1/399.2/356.8
N IBZ,U S U="^"
D BMSG(" IB*2.0*673 Post-Install starts .....")
D MCR,RVC,RNB
D BMSG(" IB*2.0*673 Post-Install is complete.")
Q
;
MCR ; Two types of codes
N IBCNT,IBPE,IBFD,IBI,IBX
; value code flag in field #.18/piece 11
S IBCNT=0,IBPE=11,IBFD=.18
D BMSG(" >> Adding Value Code")
F IBI=1:1 S IBX=$P($T(VALU+IBI),";;",2) Q:IBX="Q" D MFILE
; condition code flag in field #.22/piece 15
S IBPE=15,IBFD=.22
D BMSG(" >> Adding Condition Code")
F IBI=1:1 S IBX=$P($T(CONU+IBI),";;",2) Q:IBX="Q" D MFILE
;
D MSG("Total "_IBCNT_" code"_$S(IBCNT'=1:"s",1:"")_" added to MCCR UTILITY (#399.1) file")
Q
;
MFILE ; Store in fields
N IBA,IBB,IBC,IBFN,IBMS,IBX3,IBY,DLAYGO,DIC,DIE,DA,DD,DO,DR,X,Y
S IBA=$P(IBX,U),IBB=$P(IBX,U,2)
S IBY=" "_IBA_" "_IBB
S IBFN=+$$EXCODE(IBA,IBPE)
I IBFN D Q:'IBFN
. S IBX3=$G(^DGCR(399.1,IBFN,0)),IBC=IBB_U_IBA
. I $P(IBX3,U,1,2)=IBC S IBFN=0 D MSG(IBY_" not re-added") Q
. ; if new code already exists
. S DA=IBFN,IBMS="updated"
I 'IBFN D Q:Y<1
. S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=IBB D FILE^DICN
. I Y<1 D MSG(" >> ERROR when adding "_$S(IBPE=11:"Value",1:"Condition")_" Code #"_IBA_" to the #399.1 file, Log a ticket!") Q
. S DA=+Y,IBMS=""
S DIE="^DGCR(399.1,",DR=".01///"_IBB_";.02///"_IBA_";"_IBFD_"///1" D ^DIE
S IBCNT=IBCNT+1 D MSG(IBY_$S(IBMS'="":" "_IBMS,1:""))
Q
;
EXCODE(IBCOD,IBPE) ; Returns IEN if code found in the IBPE piece
N IBX,IBY S IBY=""
I $G(IBCOD)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"C",IBCOD,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(IBPE)) S IBY=IBX
Q IBY
;
RVC ; Revenue code in fields #1/piece 2, #2/piece 3, #3/piece 4
N IBA,IBB,IBC,IBCNT,IBD,IBF,IBI,IBMS,IBX,IBY,IBX3,DA,DIE,DR,X,Y
S IBCNT=0
D BMSG(" >> Activating Revenue Code")
F IBI=1:1 S IBX=$P($T(RVCU+IBI),";;",2) Q:IBX="Q" D
. S IBA=$P(IBX,U),IBB=$P(IBX,U,2),IBC=$P(IBX,U,3)
. S IBY=" "_IBA_" "_IBC,IBD=IBA_U_IBB_U_1_U_IBC
. S IBF=+$O(^DGCR(399.2,"B",IBA,0)) Q:'IBF
. S IBX3=$G(^DGCR(399.2,IBF,0))
. I $P(IBX3,U,1,4)=IBD D MSG(IBY_" not re-activated") Q
. S IBMS=$S($P(IBX3,U,2)="*RESERVED":"added",$P(IBX3,U,4)="*RESERVED":"added",1:"updated")
. ;4 slashes to override the letter if '*' exists
. S DR="1////"_IBB_";3////"_IBC_";2///1"
. S DIE="^DGCR(399.2,",DA=+IBF D ^DIE
. S IBCNT=IBCNT+1 D MSG(IBY)
D MSG("Total "_IBCNT_" code"_$S(IBCNT'=1:"s",1:"")_" updated in REVENUE CODE(#399.2) file")
Q
;
RNB ; RNB in fields #.01/piece 1, #.02/piece 2, #.03/piece 3, #.04/piece 4, #.05/piece 5
N IBA,IBB,IBC,IBCNT,IBD,IBE,IBF,IBI,IBX,IBY,IBX3,DA,DLAYGO,DIC,DIE,DINUM,DR,X,Y
S IBCNT=0
D BMSG(" >> Adding Reason Not Billable (RNB)")
F IBI=1:1 S IBX=$P($T(NRNB+IBI),";;",2) Q:IBX="Q" D
. S IBA=$P(IBX,U),IBB=$P(IBX,U,2),IBC=$P(IBX,U,3),IBD=$P(IBX,U,4)
. S IBY=" "_IBA_" "_IBB
. S IBE=IBB_U_IBC_U_IBD_U_IBA
. S IBF=+$O(^IBE(356.8,"B",IBB,0))
. I IBF D Q:'IBF
.. ; if new code already exists
.. S IBX3=$G(^IBE(356.8,IBF,0)),DA=IBF,IBMS="updated"
.. I $P(IBX3,U,1,4)=IBE S IBF=0 D MSG(IBY_" not re-added") Q
. I 'IBF D Q:Y<1
.. F IBF=100:1 S IBX3=$G(^IBE(356.8,IBF,0)) I IBX3="" S DINUM=IBF Q
.. S DLAYGO=356.8,DIC="^IBE(356.8,",DIC(0)="L",X=IBB D FILE^DICN
.. I Y<1 D MSG(" >> ERROR when adding "_IBY_" to the #356.8 file, log a ticket!") Q
.. S DA=+Y,IBMS=""
. S DIE="^IBE(356.8,",DR=".02///"_IBC_";.03///"_IBD_";.04///"_IBA D ^DIE
. S IBCNT=IBCNT+1 D MSG(IBY_$S(IBMS'="":" "_IBMS,1:""))
;
D BMSG(" >> Inactivating Reason Not Billable (RNB)")
F IBI=1:1 S IBX=$P($T(IRNB+IBI),";;",2) Q:IBX="Q" D
. S IBA=$P(IBX,U),IBB=$P(IBX,U,2)
. S IBC=" "_IBA_" "_IBB
. S IBD=+$O(^IBE(356.8,"B",IBB,0))
. I 'IBD D MSG(IBC_" not found") Q
. S IBE=$G(^IBE(356.8,IBD,0)) Q:IBE=""
. I $P(IBE,U,5) D MSG(IBC_" not re-inactivated") Q
. S DA=IBD,DIE="^IBE(356.8,",DR=".05///1" D ^DIE
. S IBCNT=IBCNT+1 D MSG(IBC)
D MSG("Total "_IBCNT_" code"_$S(IBCNT'=1:"s",1:"")_" updated in CLAIMS TRACKING NON-BILLABLE REASONS (#356.8) file")
Q
;
BMSG(IBZ) ;
D BMES^XPDUTL(IBZ)
Q
;
MSG(IBZ) ;
D MES^XPDUTL(IBZ)
Q
;
VALU ; Value code^name (2)
;;87^GENE THERAPY INVOICE COST
;;90^CELL THERAPY INVOICE COST
;;Q
CONU ; Condition code^name^update (1)
;;A7^HOSP SVCS PRVD IN A MBL FAC OR W PORT UNTS
;;Q
RVCU ; Revenue code^standard abbreviation^description (1)
;;892^SPECIAL PROCESSED DRUGS^SPECIAL PROCESSED DRUGS
;;Q
NRNB ; RNB code^name^ecme flag^ecme paper flag (7)
;;BL10^BILLING LIMITATIONS^0^0
;;CV30^NO COVERAGE^1^0
;;CV31^POLICY LIMITATIONS^1^0
;;DC20^DOCUMENTATION DOES NOT SUPPORT^0^0
;;MC30^NON-BILLABLE SERVICE^0^0
;;MN05^MEDICAL NECESSITY^1^0
;;RX20^RX LIMITATIONS^1^0
;;Q
IRNB ; RNB code^name (54)
;;BL01^CHARGES SPLIT
;;BL08^COMBINED CHARGES
;;CV02^COVERAGE CANCELED
;;CV03^HMO POLICY
;;CV04^OUT OF NETWORK (PPO)
;;CV11^CONCURRENT CARE
;;CV12^CUSTODIAL/RESIDENTIAL CARE
;;CV13^NO OUTPATIENT COVERAGE
;;CV14^NO INPATIENT COVERAGE
;;CV15^NO PHARMACY COVERAGE
;;CV16^NO DENTAL COVERAGE
;;CV17^NO MENTAL HEALTH COVERAGE
;;CV18^NO LTC COVERAGE
;;CV21^NO VISION COVERAGE
;;CV22^NO PROSTHETIC COVERAGE
;;DC01^NO DOCUMENTATION
;;DC02^NO TX PROVIDED/ADVICE ONLY
;;DC03^UNSIGNED DOCUMENT
;;DC04^NO DIAGNOSIS/SYMPTOMS IN NOTE
;;DC05^NO CHIEF COMPLAINT
;;DC06^NOTE NOT WRITTEN TIMELY
;;DC07^NO PHYSICIAN ORDER
;;DC08^NO PLAN OF CARE
;;DC09^STUDENT NOTE ONLY
;;DC10^NEW PT/NO HX
;;DC11^NEW PT/NO EXAM
;;DC12^NEW PT/NO COMPLEXITY
;;DC13^EST PT/NO HX/NO EXAM
;;DC14^EST PT/NO HX/NO COMPLEXITY
;;DC15^EST PT/NO EXAM/NO COMPLEXITY
;;MC01^NON-BILLABLE APPOINTMENT TYPE
;;MC02^REFUSES TO SIGN RELEASE (ROI)
;;MC03^NON-BILLABLE STOP CODE
;;MC04^RESEARCH VISIT
;;MC05^NON-BILLABLE CLINIC
;;MC08^GLOBAL SURGERY
;;MC10^DUPLICATE ENCOUNTER
;;MC11^TELEPHONE ENCOUNTER
;;MC13^72 HOUR RULE
;;MC14^RESIDENT SUPERVISION NOT MET
;;MC15^ANCILLARY PROVIDER AT CBOC
;;MC20^APPT CANCELLED/PT NOT SEEN
;;MC21^SEEN BY PROVIDER ON SAME DAY
;;MC22^NON-BILLABLE DME/PROSTHETIC
;;MC23^NON-BILLABLE PROCEDURE
;;MC25^ENCOUNTER DURING INPT STAY
;;MN01^MED NEC-DX NOT COVERED
;;MN02^MED NEC-CPT NOT COVERED
;;MN03^MED NEC-LCD EDIT
;;MN04^MED NEC-OTHER
;;RX02^REFILL ON VISIT DATE
;;RX08^INVALID MULTIPLES PER DAY SUPP
;;RX14^RX MEDICARE PART D
;;RX15^RX DISCOUNT CARD
;;Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P673 6674 printed Dec 13, 2024@02:04:27 Page 2
IB20P673 ;ALB/CXW - MCCR UTILITY/REVENUE/RNB UPDATES FOR 2020 ;04/20/2020
+1 ;;2.0;INTEGRATED BILLING;**673**;21-MAR-94;Build 10
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
POST ;
+1 ; Update value/condition/revenue/RNB for 2020 in files 399.1/399.2/356.8
+2 NEW IBZ,U
SET U="^"
+3 DO BMSG(" IB*2.0*673 Post-Install starts .....")
+4 DO MCR
DO RVC
DO RNB
+5 DO BMSG(" IB*2.0*673 Post-Install is complete.")
+6 QUIT
+7 ;
MCR ; Two types of codes
+1 NEW IBCNT,IBPE,IBFD,IBI,IBX
+2 ; value code flag in field #.18/piece 11
+3 SET IBCNT=0
SET IBPE=11
SET IBFD=.18
+4 DO BMSG(" >> Adding Value Code")
+5 FOR IBI=1:1
SET IBX=$PIECE($TEXT(VALU+IBI),";;",2)
if IBX="Q"
QUIT
DO MFILE
+6 ; condition code flag in field #.22/piece 15
+7 SET IBPE=15
SET IBFD=.22
+8 DO BMSG(" >> Adding Condition Code")
+9 FOR IBI=1:1
SET IBX=$PIECE($TEXT(CONU+IBI),";;",2)
if IBX="Q"
QUIT
DO MFILE
+10 ;
+11 DO MSG("Total "_IBCNT_" code"_$SELECT(IBCNT'=1:"s",1:"")_" added to MCCR UTILITY (#399.1) file")
+12 QUIT
+13 ;
MFILE ; Store in fields
+1 NEW IBA,IBB,IBC,IBFN,IBMS,IBX3,IBY,DLAYGO,DIC,DIE,DA,DD,DO,DR,X,Y
+2 SET IBA=$PIECE(IBX,U)
SET IBB=$PIECE(IBX,U,2)
+3 SET IBY=" "_IBA_" "_IBB
+4 SET IBFN=+$$EXCODE(IBA,IBPE)
+5 IF IBFN
Begin DoDot:1
+6 SET IBX3=$GET(^DGCR(399.1,IBFN,0))
SET IBC=IBB_U_IBA
+7 IF $PIECE(IBX3,U,1,2)=IBC
SET IBFN=0
DO MSG(IBY_" not re-added")
QUIT
+8 ; if new code already exists
+9 SET DA=IBFN
SET IBMS="updated"
End DoDot:1
if 'IBFN
QUIT
+10 IF 'IBFN
Begin DoDot:1
+11 SET DLAYGO=399.1
SET DIC="^DGCR(399.1,"
SET DIC(0)="L"
SET X=IBB
DO FILE^DICN
+12 IF Y<1
DO MSG(" >> ERROR when adding "_$SELECT(IBPE=11:"Value",1:"Condition")_" Code #"_IBA_" to the #399.1 file, Log a ticket!")
QUIT
+13 SET DA=+Y
SET IBMS=""
End DoDot:1
if Y<1
QUIT
+14 SET DIE="^DGCR(399.1,"
SET DR=".01///"_IBB_";.02///"_IBA_";"_IBFD_"///1"
DO ^DIE
+15 SET IBCNT=IBCNT+1
DO MSG(IBY_$SELECT(IBMS'="":" "_IBMS,1:""))
+16 QUIT
+17 ;
EXCODE(IBCOD,IBPE) ; Returns IEN if code found in the IBPE piece
+1 NEW IBX,IBY
SET IBY=""
+2 IF $GET(IBCOD)'=""
SET IBX=0
FOR
SET IBX=$ORDER(^DGCR(399.1,"C",IBCOD,IBX))
if 'IBX
QUIT
IF $PIECE($GET(^DGCR(399.1,IBX,0)),U,+$GET(IBPE))
SET IBY=IBX
+3 QUIT IBY
+4 ;
RVC ; Revenue code in fields #1/piece 2, #2/piece 3, #3/piece 4
+1 NEW IBA,IBB,IBC,IBCNT,IBD,IBF,IBI,IBMS,IBX,IBY,IBX3,DA,DIE,DR,X,Y
+2 SET IBCNT=0
+3 DO BMSG(" >> Activating Revenue Code")
+4 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RVCU+IBI),";;",2)
if IBX="Q"
QUIT
Begin DoDot:1
+5 SET IBA=$PIECE(IBX,U)
SET IBB=$PIECE(IBX,U,2)
SET IBC=$PIECE(IBX,U,3)
+6 SET IBY=" "_IBA_" "_IBC
SET IBD=IBA_U_IBB_U_1_U_IBC
+7 SET IBF=+$ORDER(^DGCR(399.2,"B",IBA,0))
if 'IBF
QUIT
+8 SET IBX3=$GET(^DGCR(399.2,IBF,0))
+9 IF $PIECE(IBX3,U,1,4)=IBD
DO MSG(IBY_" not re-activated")
QUIT
+10 SET IBMS=$SELECT($PIECE(IBX3,U,2)="*RESERVED":"added",$PIECE(IBX3,U,4)="*RESERVED":"added",1:"updated")
+11 ;4 slashes to override the letter if '*' exists
+12 SET DR="1////"_IBB_";3////"_IBC_";2///1"
+13 SET DIE="^DGCR(399.2,"
SET DA=+IBF
DO ^DIE
+14 SET IBCNT=IBCNT+1
DO MSG(IBY)
End DoDot:1
+15 DO MSG("Total "_IBCNT_" code"_$SELECT(IBCNT'=1:"s",1:"")_" updated in REVENUE CODE(#399.2) file")
+16 QUIT
+17 ;
RNB ; RNB in fields #.01/piece 1, #.02/piece 2, #.03/piece 3, #.04/piece 4, #.05/piece 5
+1 NEW IBA,IBB,IBC,IBCNT,IBD,IBE,IBF,IBI,IBX,IBY,IBX3,DA,DLAYGO,DIC,DIE,DINUM,DR,X,Y
+2 SET IBCNT=0
+3 DO BMSG(" >> Adding Reason Not Billable (RNB)")
+4 FOR IBI=1:1
SET IBX=$PIECE($TEXT(NRNB+IBI),";;",2)
if IBX="Q"
QUIT
Begin DoDot:1
+5 SET IBA=$PIECE(IBX,U)
SET IBB=$PIECE(IBX,U,2)
SET IBC=$PIECE(IBX,U,3)
SET IBD=$PIECE(IBX,U,4)
+6 SET IBY=" "_IBA_" "_IBB
+7 SET IBE=IBB_U_IBC_U_IBD_U_IBA
+8 SET IBF=+$ORDER(^IBE(356.8,"B",IBB,0))
+9 IF IBF
Begin DoDot:2
+10 ; if new code already exists
+11 SET IBX3=$GET(^IBE(356.8,IBF,0))
SET DA=IBF
SET IBMS="updated"
+12 IF $PIECE(IBX3,U,1,4)=IBE
SET IBF=0
DO MSG(IBY_" not re-added")
QUIT
End DoDot:2
if 'IBF
QUIT
+13 IF 'IBF
Begin DoDot:2
+14 FOR IBF=100:1
SET IBX3=$GET(^IBE(356.8,IBF,0))
IF IBX3=""
SET DINUM=IBF
QUIT
+15 SET DLAYGO=356.8
SET DIC="^IBE(356.8,"
SET DIC(0)="L"
SET X=IBB
DO FILE^DICN
+16 IF Y<1
DO MSG(" >> ERROR when adding "_IBY_" to the #356.8 file, log a ticket!")
QUIT
+17 SET DA=+Y
SET IBMS=""
End DoDot:2
if Y<1
QUIT
+18 SET DIE="^IBE(356.8,"
SET DR=".02///"_IBC_";.03///"_IBD_";.04///"_IBA
DO ^DIE
+19 SET IBCNT=IBCNT+1
DO MSG(IBY_$SELECT(IBMS'="":" "_IBMS,1:""))
End DoDot:1
+20 ;
+21 DO BMSG(" >> Inactivating Reason Not Billable (RNB)")
+22 FOR IBI=1:1
SET IBX=$PIECE($TEXT(IRNB+IBI),";;",2)
if IBX="Q"
QUIT
Begin DoDot:1
+23 SET IBA=$PIECE(IBX,U)
SET IBB=$PIECE(IBX,U,2)
+24 SET IBC=" "_IBA_" "_IBB
+25 SET IBD=+$ORDER(^IBE(356.8,"B",IBB,0))
+26 IF 'IBD
DO MSG(IBC_" not found")
QUIT
+27 SET IBE=$GET(^IBE(356.8,IBD,0))
if IBE=""
QUIT
+28 IF $PIECE(IBE,U,5)
DO MSG(IBC_" not re-inactivated")
QUIT
+29 SET DA=IBD
SET DIE="^IBE(356.8,"
SET DR=".05///1"
DO ^DIE
+30 SET IBCNT=IBCNT+1
DO MSG(IBC)
End DoDot:1
+31 DO MSG("Total "_IBCNT_" code"_$SELECT(IBCNT'=1:"s",1:"")_" updated in CLAIMS TRACKING NON-BILLABLE REASONS (#356.8) file")
+32 QUIT
+33 ;
BMSG(IBZ) ;
+1 DO BMES^XPDUTL(IBZ)
+2 QUIT
+3 ;
MSG(IBZ) ;
+1 DO MES^XPDUTL(IBZ)
+2 QUIT
+3 ;
VALU ; Value code^name (2)
+1 ;;87^GENE THERAPY INVOICE COST
+2 ;;90^CELL THERAPY INVOICE COST
+3 ;;Q
CONU ; Condition code^name^update (1)
+1 ;;A7^HOSP SVCS PRVD IN A MBL FAC OR W PORT UNTS
+2 ;;Q
RVCU ; Revenue code^standard abbreviation^description (1)
+1 ;;892^SPECIAL PROCESSED DRUGS^SPECIAL PROCESSED DRUGS
+2 ;;Q
NRNB ; RNB code^name^ecme flag^ecme paper flag (7)
+1 ;;BL10^BILLING LIMITATIONS^0^0
+2 ;;CV30^NO COVERAGE^1^0
+3 ;;CV31^POLICY LIMITATIONS^1^0
+4 ;;DC20^DOCUMENTATION DOES NOT SUPPORT^0^0
+5 ;;MC30^NON-BILLABLE SERVICE^0^0
+6 ;;MN05^MEDICAL NECESSITY^1^0
+7 ;;RX20^RX LIMITATIONS^1^0
+8 ;;Q
IRNB ; RNB code^name (54)
+1 ;;BL01^CHARGES SPLIT
+2 ;;BL08^COMBINED CHARGES
+3 ;;CV02^COVERAGE CANCELED
+4 ;;CV03^HMO POLICY
+5 ;;CV04^OUT OF NETWORK (PPO)
+6 ;;CV11^CONCURRENT CARE
+7 ;;CV12^CUSTODIAL/RESIDENTIAL CARE
+8 ;;CV13^NO OUTPATIENT COVERAGE
+9 ;;CV14^NO INPATIENT COVERAGE
+10 ;;CV15^NO PHARMACY COVERAGE
+11 ;;CV16^NO DENTAL COVERAGE
+12 ;;CV17^NO MENTAL HEALTH COVERAGE
+13 ;;CV18^NO LTC COVERAGE
+14 ;;CV21^NO VISION COVERAGE
+15 ;;CV22^NO PROSTHETIC COVERAGE
+16 ;;DC01^NO DOCUMENTATION
+17 ;;DC02^NO TX PROVIDED/ADVICE ONLY
+18 ;;DC03^UNSIGNED DOCUMENT
+19 ;;DC04^NO DIAGNOSIS/SYMPTOMS IN NOTE
+20 ;;DC05^NO CHIEF COMPLAINT
+21 ;;DC06^NOTE NOT WRITTEN TIMELY
+22 ;;DC07^NO PHYSICIAN ORDER
+23 ;;DC08^NO PLAN OF CARE
+24 ;;DC09^STUDENT NOTE ONLY
+25 ;;DC10^NEW PT/NO HX
+26 ;;DC11^NEW PT/NO EXAM
+27 ;;DC12^NEW PT/NO COMPLEXITY
+28 ;;DC13^EST PT/NO HX/NO EXAM
+29 ;;DC14^EST PT/NO HX/NO COMPLEXITY
+30 ;;DC15^EST PT/NO EXAM/NO COMPLEXITY
+31 ;;MC01^NON-BILLABLE APPOINTMENT TYPE
+32 ;;MC02^REFUSES TO SIGN RELEASE (ROI)
+33 ;;MC03^NON-BILLABLE STOP CODE
+34 ;;MC04^RESEARCH VISIT
+35 ;;MC05^NON-BILLABLE CLINIC
+36 ;;MC08^GLOBAL SURGERY
+37 ;;MC10^DUPLICATE ENCOUNTER
+38 ;;MC11^TELEPHONE ENCOUNTER
+39 ;;MC13^72 HOUR RULE
+40 ;;MC14^RESIDENT SUPERVISION NOT MET
+41 ;;MC15^ANCILLARY PROVIDER AT CBOC
+42 ;;MC20^APPT CANCELLED/PT NOT SEEN
+43 ;;MC21^SEEN BY PROVIDER ON SAME DAY
+44 ;;MC22^NON-BILLABLE DME/PROSTHETIC
+45 ;;MC23^NON-BILLABLE PROCEDURE
+46 ;;MC25^ENCOUNTER DURING INPT STAY
+47 ;;MN01^MED NEC-DX NOT COVERED
+48 ;;MN02^MED NEC-CPT NOT COVERED
+49 ;;MN03^MED NEC-LCD EDIT
+50 ;;MN04^MED NEC-OTHER
+51 ;;RX02^REFILL ON VISIT DATE
+52 ;;RX08^INVALID MULTIPLES PER DAY SUPP
+53 ;;RX14^RX MEDICARE PART D
+54 ;;RX15^RX DISCOUNT CARD
+55 ;;Q
