Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPS34PRE

BPS34PRE.m

Go to the documentation of this file.
  1. BPS34PRE ;AITC/PED - Pre-install routine for BPS*1*34 ;08/2022
  1. ;;1.0;E CLAIMS MGMT ENGINE;**34**;JUN 2004;Build 11
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; MCCF EDI TAS ePharmacy - BPS*1*34 patch pre-install
  1. ;
  1. Q
  1. ;
  1. PRE ; Entry Point for pre-install
  1. ;
  1. D MES^XPDUTL(" Starting pre-install for BPS*1*34")
  1. ;
  1. ; Update BPS NCPDP Other Payer Amt Paid Qual in file #9002313.2
  1. ;
  1. D PDQUAL
  1. ;
  1. D MES^XPDUTL(" Finished pre-install of BPS*1*34")
  1. ;
  1. Q
  1. ;
  1. PDQUAL ; Update Other Payer Amt Paid Qual
  1. ;
  1. N BPSA,BPSFN,BPSID,BPSREC
  1. ;
  1. S BPSID=$O(^BPS(9002313.2,"B",10,""))
  1. I BPSID="" Q
  1. S BPSFN=9002313.2
  1. S BPSREC=BPSID_","
  1. S BPSA(BPSFN,BPSREC,.02)="SALES TAX"
  1. D FILE^DIE("","BPSA","")
  1. ;
  1. Q
  1. ;