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 Oct 16, 2024@18:34:49 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 ;
