- 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 Mar 13, 2025@20:54:58 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
