- 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 ---[H[J[2J[HIBY452PO 1150 printed Mar 13, 2025@21:39:23 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 ;
