IBY452PO.m

IBY452PO ;ALB/ESG - Post Install for IB patch 452 ;27-Apr-2011

 ;;2.0;INTEGRATED BILLING;**452**;21-MAR-94;Build 26

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; ePharmacy Phase 6 - patch 452 post installation routine

 ;

EN ; entry point

 N XPDIDTOT

 S XPDIDTOT=1

 D CT(1)              ; 1. add new Claims Tracking Reasons Not Billable

 ;

EX ; exit point

 Q

 ;

CT(IBXPD) ; add new CT RNB

 N X

 D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 D MES^XPDUTL("-------------")

 D MES^XPDUTL("Add new Claims Tracking RNB ... ")

 ;

 F X="CHAMPVA INPATIENT/DISCHARGE","INPATIENT RX AUTO-REVERSAL" D

 . N DA,DIC,DO,Y

 . I $D(^IBE(356.8,"B",X)) D MES^XPDUTL(X_" - already there...no action") Q

 . S DIC="^IBE(356.8,",DIC(0)="F"

 . I X="CHAMPVA INPATIENT/DISCHARGE" S DIC("DR")=".04///RX17"

 . I X="INPATIENT RX AUTO-REVERSAL" S DIC("DR")=".02////1;.03////0;.04///RX18"

 . D FILE^DICN

 . I Y=-1 D MES^XPDUTL(X_" - ERROR when adding a new RNB to CT.  Please log a Remedy ticket!") Q

 . D MES^XPDUTL(X_" - Entry added successfully")

 . Q

 ;

CTX ;

 D MES^XPDUTL(" Done.")

 D UPDATE^XPDID(IBXPD)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY452PO   1150     printed  Apr 09, 2024@21:09:53                                                                                                                                                                                                    Page 2

IBY452PO  ;ALB/ESG - Post Install for IB patch 452 ;27-Apr-2011

 +1       ;;2.0;INTEGRATED BILLING;**452**;21-MAR-94;Build 26

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; ePharmacy Phase 6 - patch 452 post installation routine

 +5       ;

EN        ; entry point

 +1        NEW XPDIDTOT

 +2        SET XPDIDTOT=1

 +3       ; 1. add new Claims Tracking Reasons Not Billable

           DO CT(1)

 +4       ;

EX        ; exit point

 +1        QUIT 

 +2       ;

CT(IBXPD) ; add new CT RNB

 +1        NEW X

 +2        DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 +3        DO MES^XPDUTL("-------------")

 +4        DO MES^XPDUTL("Add new Claims Tracking RNB ... ")

 +5       ;

 +6        FOR X="CHAMPVA INPATIENT/DISCHARGE","INPATIENT RX AUTO-REVERSAL"

               Begin DoDot:1

 +7                NEW DA,DIC,DO,Y

 +8                IF $DATA(^IBE(356.8,"B",X))

                       DO MES^XPDUTL(X_" - already there...no action")

                       QUIT 

 +9                SET DIC="^IBE(356.8,"

                   SET DIC(0)="F"

 +10               IF X="CHAMPVA INPATIENT/DISCHARGE"

                       SET DIC("DR")=".04///RX17"

 +11               IF X="INPATIENT RX AUTO-REVERSAL"

                       SET DIC("DR")=".02////1;.03////0;.04///RX18"

 +12               DO FILE^DICN

 +13               IF Y=-1

                       DO MES^XPDUTL(X_" - ERROR when adding a new RNB to CT.  Please log a Remedy ticket!")

                       QUIT 

 +14               DO MES^XPDUTL(X_" - Entry added successfully")

 +15               QUIT 

               End DoDot:1

 +16      ;

CTX       ;

 +1        DO MES^XPDUTL(" Done.")

 +2        DO UPDATE^XPDID(IBXPD)

 +3        QUIT 

 +4       ;