BPS34PRE.m

BPS34PRE ;AITC/PED - Pre-install routine for BPS*1*34 ;08/2022

 ;;1.0;E CLAIMS MGMT ENGINE;**34**;JUN 2004;Build 11

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 ; MCCF EDI TAS ePharmacy - BPS*1*34 patch pre-install

 ;

 Q

 ;

PRE ; Entry Point for pre-install

 ;

 D MES^XPDUTL("  Starting pre-install for BPS*1*34")

 ;

 ; Update BPS NCPDP Other Payer Amt Paid Qual in file #9002313.2

 ;

 D PDQUAL

 ;

 D MES^XPDUTL("  Finished pre-install of BPS*1*34")

 ;

 Q

 ;

PDQUAL ; Update Other Payer Amt Paid Qual

 ;

 N BPSA,BPSFN,BPSID,BPSREC

 ;

 S BPSID=$O(^BPS(9002313.2,"B",10,""))

 I BPSID="" Q

 S BPSFN=9002313.2

 S BPSREC=BPSID_","

 S BPSA(BPSFN,BPSREC,.02)="SALES TAX"

 D FILE^DIE("","BPSA","")

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPS34PRE   754     printed  Apr 09, 2024@20:56:06                                                                                                                                                                                                     Page 2

BPS34PRE  ;AITC/PED - Pre-install routine for BPS*1*34 ;08/2022

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**34**;JUN 2004;Build 11

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; MCCF EDI TAS ePharmacy - BPS*1*34 patch pre-install

 +5       ;

 +6        QUIT 

 +7       ;

PRE       ; Entry Point for pre-install

 +1       ;

 +2        DO MES^XPDUTL("  Starting pre-install for BPS*1*34")

 +3       ;

 +4       ; Update BPS NCPDP Other Payer Amt Paid Qual in file #9002313.2

 +5       ;

 +6        DO PDQUAL

 +7       ;

 +8        DO MES^XPDUTL("  Finished pre-install of BPS*1*34")

 +9       ;

 +10       QUIT 

 +11      ;

PDQUAL    ; Update Other Payer Amt Paid Qual

 +1       ;

 +2        NEW BPSA,BPSFN,BPSID,BPSREC

 +3       ;

 +4        SET BPSID=$ORDER(^BPS(9002313.2,"B",10,""))

 +5        IF BPSID=""

               QUIT 

 +6        SET BPSFN=9002313.2

 +7        SET BPSREC=BPSID_","

 +8        SET BPSA(BPSFN,BPSREC,.02)="SALES TAX"

 +9        DO FILE^DIE("","BPSA","")

 +10      ;

 +11       QUIT 

 +12      ;