IB20P686 ;ALB/CXW - REACTIVATE 11 REASONS NOT BILLABLE; 08/12/2020
;;2.0;INTEGRATED BILLING;**686**;21-MAR-94;Build 12
;;Per VA Directive 6402, this routine should not be modified.
Q
POST ; Reactivate 11 RNBs that were requested to be deactivated with IB*2.0*673.
N IBZ,U S U="^"
D BMSG(" IB*2.0*686 Post-Install starts .....")
D RNB
D BMSG(" IB*2.0*686 Post-Install is complete.")
Q
;
RNB ; RNB in INACTIVE fields #.05/piece 5
N IBA,IBB,IBC,IBCNT,IBD,IBE,IBI,IBX,IBY,DA,DIE,DR,X,Y
S IBCNT=0
D BMSG(" >> Reactivating Reason Not Billable (RNB)")
F IBI=1:1 S IBX=$P($T(RARNB+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 reactivated") Q
. S DA=IBD,DIE="^IBE(356.8,",DR=".05///@" 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
;
RARNB ; RNB code^name (11)
;;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
;;MC01^NON-BILLABLE APPOINTMENT TYPE
;;MC03^NON-BILLABLE STOP CODE
;;MC05^NON-BILLABLE CLINIC
;;Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P686 1533 printed Dec 13, 2024@02:04:33 Page 2
IB20P686 ;ALB/CXW - REACTIVATE 11 REASONS NOT BILLABLE; 08/12/2020
+1 ;;2.0;INTEGRATED BILLING;**686**;21-MAR-94;Build 12
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
POST ; Reactivate 11 RNBs that were requested to be deactivated with IB*2.0*673.
+1 NEW IBZ,U
SET U="^"
+2 DO BMSG(" IB*2.0*686 Post-Install starts .....")
+3 DO RNB
+4 DO BMSG(" IB*2.0*686 Post-Install is complete.")
+5 QUIT
+6 ;
RNB ; RNB in INACTIVE fields #.05/piece 5
+1 NEW IBA,IBB,IBC,IBCNT,IBD,IBE,IBI,IBX,IBY,DA,DIE,DR,X,Y
+2 SET IBCNT=0
+3 DO BMSG(" >> Reactivating Reason Not Billable (RNB)")
+4 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RARNB+IBI),";;",2)
if IBX="Q"
QUIT
Begin DoDot:1
+5 SET IBA=$PIECE(IBX,U)
SET IBB=$PIECE(IBX,U,2)
+6 SET IBC=" "_IBA_" "_IBB
+7 SET IBD=+$ORDER(^IBE(356.8,"B",IBB,0))
+8 IF 'IBD
DO MSG(IBC_" not found")
QUIT
+9 SET IBE=$GET(^IBE(356.8,IBD,0))
if IBE=""
QUIT
+10 IF '$PIECE(IBE,U,5)
DO MSG(IBC_" not reactivated")
QUIT
+11 SET DA=IBD
SET DIE="^IBE(356.8,"
SET DR=".05///@"
DO ^DIE
+12 SET IBCNT=IBCNT+1
DO MSG(IBC)
End DoDot:1
+13 DO MSG("Total "_IBCNT_" code"_$SELECT(IBCNT'=1:"s",1:"")_" updated in CLAIMS TRACKING NON-BILLABLE REASONS (#356.8) file")
+14 QUIT
+15 ;
BMSG(IBZ) ;
+1 DO BMES^XPDUTL(IBZ)
+2 QUIT
+3 ;
MSG(IBZ) ;
+1 DO MES^XPDUTL(IBZ)
+2 QUIT
+3 ;
RARNB ; RNB code^name (11)
+1 ;;CV13^NO OUTPATIENT COVERAGE
+2 ;;CV14^NO INPATIENT COVERAGE
+3 ;;CV15^NO PHARMACY COVERAGE
+4 ;;CV16^NO DENTAL COVERAGE
+5 ;;CV17^NO MENTAL HEALTH COVERAGE
+6 ;;CV18^NO LTC COVERAGE
+7 ;;CV21^NO VISION COVERAGE
+8 ;;CV22^NO PROSTHETIC COVERAGE
+9 ;;MC01^NON-BILLABLE APPOINTMENT TYPE
+10 ;;MC03^NON-BILLABLE STOP CODE
+11 ;;MC05^NON-BILLABLE CLINIC
+12 ;;Q
