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

IB20P786.m

Go to the documentation of this file. 
  1. IB20P786 ;ALB/DMR - RNB UPDATES FOR 2024 ;01/23/2024
  1.  ;;2.0;INTEGRATED BILLING;**786**;21-MAR-94;Build 6
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ; This routine is used as a post-init in a KIDS build to
  1.  ; update the CLAIMS TRACKING NON-BILLABLE REASONS file (#356.8).
  1.  Q
  1. POST ;
  1.  ; Update RNB for 2024 in file #356.8
  1.  ; Start of Install
  1.  N IBZ,U S U="^"
  1.  D BMSG("    IB*2.0*786 Post-Install starting .....")
  1.  D RNB
  1.  D BMSG("    IB*2.0*786 Post-Install is complete.")
  1.  Q
  1.  ;
  1. RNB ; RNB in fields #.01/piece 1, #.02/piece 2, #.03/piece 3, #.04/piece 4, #.05/piece 5
  1.  N IBA,IBB,IBC,IBCNT,IBCNTA,IBCNTR,IBCNTD,IBD,IBE,IBF,IBI,IBX,IBY,IBX3,DA,DLAYGO,DIC,DIE,DINUM,DR,X,Y
  1.  S IBCNTA=0
  1.  D BMSG(" >> Adding Reason Not Billable (RNB)")
  1.  F IBI=1:1 S IBX=$P($T(NRNB+IBI),";;",2) Q:IBX="Q"  D
  1.  . S IBA=$P(IBX,U),IBB=$P(IBX,U,2),IBC=$P(IBX,U,3),IBD=$P(IBX,U,4)
  1.  . S IBY="    "_IBA_"  "_IBB
  1.  . S IBE=IBB_U_IBC_U_IBD_U_IBA
  1.  . S IBF=+$O(^IBE(356.8,"B",IBB,0))
  1.  . I IBF D  Q:'IBF
  1.  .. S IBX3=$G(^IBE(356.8,IBF,0)),DA=IBF,IBMS="updated"
  1.  .. I $P(IBX3,U,1,4)=IBE S IBF=0 D MSG(IBY_" not re-added") Q
  1.  . I 'IBF D  Q:Y<1
  1.  .. F IBF=100:1 S IBX3=$G(^IBE(356.8,IBF,0)) I IBX3="" S DINUM=IBF Q 
  1.  .. S DLAYGO=356.8,DIC="^IBE(356.8,",DIC(0)="L",X=IBB D FILE^DICN
  1.  .. I Y<1 D MSG(" >> ERROR when adding "_IBY_" to the #356.8 file, log a ticket!") Q
  1.  .. S DA=+Y,IBMS=""
  1.  . S DIE="^IBE(356.8,",DR=".02///"_IBC_";.03///"_IBD_";.04///"_IBA D ^DIE
  1.  . S IBCNTA=IBCNTA+1 D MSG(IBY_$S(IBMS'="":" "_IBMS,1:""))
  1.  ;
  1.  D BMSG(" >> Inactivating Reason Not Billable (RNB)")
  1.  S IBCNTD=0
  1.  F IBI=1:1 S IBX=$P($T(IRNB+IBI),";;",2) Q:IBX="Q"  D
  1.  . S IBA=$P(IBX,U),IBB=$P(IBX,U,2)
  1.  . S IBC="    "_IBA_"  "_IBB
  1.  . S IBD=+$O(^IBE(356.8,"B",IBB,0))
  1.  . I 'IBD D MSG(IBC_" not found") Q
  1.  . S IBE=$G(^IBE(356.8,IBD,0)) Q:IBE=""
  1.  . I $P(IBE,U,5) D MSG(IBC_" not re-inactivated") Q
  1.  . S DA=IBD,DIE="^IBE(356.8,",DR=".05///1" D ^DIE
  1.  . S IBCNTD=IBCNTD+1 D MSG(IBC)
  1.  ;
  1.  D BMSG(" >> Reactivating Reason Not Billable (RNB)")
  1.  S IBCNTR=0
  1.  F IBI=1:1 S IBX=$P($T(RARNB+IBI),";;",2) Q:IBX="Q"  D
  1.  . S IBA=$P(IBX,U),IBB=$P(IBX,U,2)
  1.  . S IBC="    "_IBA_"  "_IBB
  1.  . S IBD=+$O(^IBE(356.8,"B",IBB,0))
  1.  . I 'IBD D MSG(IBC_" not found") Q
  1.  . S IBE=$G(^IBE(356.8,IBD,0)) Q:IBE=""
  1.  . I '$P(IBE,U,5) D MSG(IBC_" not reactivated") Q
  1.  . S DA=IBD,DIE="^IBE(356.8,",DR=".05///@" D ^DIE
  1.  . S IBCNTR=IBCNTR+1 D MSG(IBC)
  1.  S IBCNT=IBCNTR+IBCNTA+IBCNTD
  1.  D MSG("Total "_IBCNT_" code"_$S(IBCNT'=1:"s",1:"")_" updated in CLAIMS TRACKING NON-BILLABLE REASONS (#356.8) file")
  1.  Q
  1.  ;
  1. BMSG(IBZ) ;
  1.  D BMES^XPDUTL(IBZ)
  1.  Q
  1.  ;
  1. MSG(IBZ) ;
  1.  D MES^XPDUTL(IBZ)
  1.  Q
  1.  ;
  1. NRNB ; RNB code^name^ecme flag^ecme paper flag (2)
  1.  ;;RX28^MISSING NDC^0^0
  1.  ;;B99^RX BILLED PAPER CLAIM^0^0
  1.  ;;VA12^PACT ACT 103^1^0
  1.  ;;B11^DOD PROVIDER TX DOD PT AT VA^0^0
  1.  ;;Q
  1. IRNB ; RNB code^name (2)
  1.  ;;BL10^BILLING LIMITATIONS
  1.  ;;CV30^NO COVERAGE
  1.  ;;999^OTHER
  1.  ;;Q
  1. RARNB ; RNB code^name (15)
  1.  ;;MC13^72 HOUR RULE
  1.  ;;MC20^APPT CANCELLED/PT NOT SEEN
  1.  ;;BL01^CHARGES SPLIT
  1.  ;;CV12^CUSTODIAL/RESIDENTIAL CARE
  1.  ;;MC10^DUPLICATE ENCOUNTER
  1.  ;;MC08^GLOBAL SURGERY
  1.  ;;CV03^HMO POLICY
  1.  ;;RX08^INVALID MULTIPLES PER DAY SUPP
  1.  ;;DC01^NO DOCUMENTATION
  1.  ;;DC02^NO TX PROVIDED/ADVICE ONLY
  1.  ;;MC22^NON-BILLABLE DME/PROSTHETIC
  1.  ;;MC14^RESIDENT SUPERVISION NOT MET
  1.  ;;RX15^RX DISCOUNT CARD
  1.  ;;RX14^RX MEDICARE PART D
  1.  ;;MC21^SEEN BY PROVIDER ON SAME DAY
  1.  ;;BL08^COMBINED CHARGES
  1.  ;;MC02^REFUSES TO SIGN RELEASE (ROI)
  1.  ;;MC04^RESEARCH VISIT
  1.  ;;Q