BPS10P9 ;ALB/CNF - TRICARE ENHANCEMENT POST INSTALL UPDATES BPS*1*9 ;9/9/10
;;1.0;E CLAIMS MGMT ENGINE;**9**;JUN 2004;Build 18
;;Per VHA Directive 2004-038, this routine should not be modified.
;
Q ;No entry from top
;
EN ;Entry
;
D BMES^XPDUTL("Begin Post Installation Processing for patch BPS*1*9")
;
;Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary, #9002313.93
D ET
;
D BMES^XPDUTL("End Post Installation Processing for patch BPS*1*9")
;
Q
;
ET ;Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary, #9002313.93
;
N X,Y,DIC,DIE,DR,DA,D0
;
D BMES^XPDUTL("Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary")
;
;Quit if the code eT already exist
S X=$O(^BPSF(9002313.93,"B","eT",0))
I X D BMES^XPDUTL("Entry already exists") Q
;
;Add the entry
S DIC="^BPSF(9002313.93,",X="eT"
S DIC("DR")=".02///TRICARE-DRUG NON BILLABLE",DIC(0)="F"
D FILE^DICN
;
I Y D BMES^XPDUTL("Entry eT successfully added") Q
;
D BMES^XPDUTL("Error when adding TRICARE Reject Code. Please log a Remedy ticket!")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPS10P9 1114 printed Dec 13, 2024@01:50:18 Page 2
BPS10P9 ;ALB/CNF - TRICARE ENHANCEMENT POST INSTALL UPDATES BPS*1*9 ;9/9/10
+1 ;;1.0;E CLAIMS MGMT ENGINE;**9**;JUN 2004;Build 18
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ;No entry from top
QUIT
+5 ;
EN ;Entry
+1 ;
+2 DO BMES^XPDUTL("Begin Post Installation Processing for patch BPS*1*9")
+3 ;
+4 ;Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary, #9002313.93
+5 DO ET
+6 ;
+7 DO BMES^XPDUTL("End Post Installation Processing for patch BPS*1*9")
+8 ;
+9 QUIT
+10 ;
ET ;Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary, #9002313.93
+1 ;
+2 NEW X,Y,DIC,DIE,DR,DA,D0
+3 ;
+4 DO BMES^XPDUTL("Add TRICARE Reject Code eT to BPS NCPDP REJECT CODE dictionary")
+5 ;
+6 ;Quit if the code eT already exist
+7 SET X=$ORDER(^BPSF(9002313.93,"B","eT",0))
+8 IF X
DO BMES^XPDUTL("Entry already exists")
QUIT
+9 ;
+10 ;Add the entry
+11 SET DIC="^BPSF(9002313.93,"
SET X="eT"
+12 SET DIC("DR")=".02///TRICARE-DRUG NON BILLABLE"
SET DIC(0)="F"
+13 DO FILE^DICN
+14 ;
+15 IF Y
DO BMES^XPDUTL("Entry eT successfully added")
QUIT
+16 ;
+17 DO BMES^XPDUTL("Error when adding TRICARE Reject Code. Please log a Remedy ticket!")
+18 ;
+19 QUIT
