- 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 Feb 18, 2025@23:30:50 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