BPS10P9.m

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 ---BPS10P9   1114     printed  Apr 09, 2024@20:55:36                                                                                                                                                                                                     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