IB20P686.m

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 ---IB20P686   1533     printed  Apr 09, 2024@21:06:55                                                                                                                                                                                                    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